[计算机]CB中利用Ole服务器生成Word试卷.docVIP

4　CB中利用Ole服务器生成Word试卷 ?? 仅仅将考试所需试卷内容抽取到试卷表中是不够的，还必须将试卷表中的试题输出到Word文件中，才能完成后续的打印、复印等工作。因此如何将试卷表中的试题输出到Word文件中是一个必须解决的问题，特别是当试题中既有文字也有试题插图时，这个问题就更加复杂化了。为解决该问题，我们采用了OLE技术，OLE技术是微软提出的一种软件产品规范，是应用程序间交换数据、相互操作的标准。OLE技术的实质是通过编程来控制其它的应用程序或者DLL(动态链接库)中的对象。采用这一技术的应用程序不仅能使用驻留在自己程序中的对象，而且能使用驻留在系统里其它程序中的对象，并能够访问这些对象的属性和方法。在CB中使用OLE技术嵌入并控制Word是扩充系统文字处理功能最简洁、高效的途径，其关键步骤 ?? (1) 创建OLE对象。 Variant VwordApp，VwordBasic； VwordApp = CreateOleObject(Word.Application)；? // 创建Word应用程序对象 VwordBasic = CreateOleObject(Word.Basic)；?? // 创建Word VBScript对象 ?? (2) 新建Word文档并创建操作图形的Shape对象。 Variant Vshape； VwordBasic.Exec(Procedure(FileNew)Normal)；?? // 用模板新建Word文档 Vshape = VwordApp.OlePropertyGet(ActiveDocument). OlePropertyGet(Shapes)； ?? (3) 将试题内容与试题插图写入Word文档中，以试题表中一条记录为例。 AnsiString SaveImage = GetCurrentDir()+““image.bmp；? // 暂存图像路径及文件名 AnsiString Stnr =? ADOQueryA-FieldByName(stnr)-AsString； ?// 取试题内容 VwordBasic.Exec(Procedure(Insert) Stnr)；?? // 向Word文档中写试题内容 blob=(TBlobField *)ADOQueryB-FieldByName(image)；? // 取试题插图 if(!blob-IsNull)?? ????// 判断该试题是否有插图 { ?? blob-SaveToFile(SaveImage.c_str())；?? // 暂存为图像文件 ?? Vshape.OleFunction(AddPicture，SaveImage.c_str())；? //将图像插入Word文档 } ?? (4) 保存试卷。 AnsiString SaveFile = GetCurrentDir()+““Test_A.doc；? // 试卷路径及文件名 VwordBasic.Exec(Procedure(FileSaveAs) SaveFile)；? // 保存试卷 5　结束语 ?? 本试题库系统的程序开发已基本完成，正处于试用阶段，该系统除具备试题库管理、随机组卷及试卷生成等基本功能外，还实现了历史试卷的管理和系统设置功能，希望本系统的设计与实现能为开发类似试题库系统的人员在一定程度上起到借鉴作用。 参考文献 [1] 邓又明，刘庆红，董光. 试题库管理系统的分析与设计[J]. 现代情报，2005年第4期，157-158 任治斌，耿国华，张富春等. 在VFP下高等代数试题库的设计与实现[J]. 微计算机应用，第26卷第5期，2005年9月，638-640 刘光. C++Builder数据库系统设计与开发[M]，清华大学出版社，2003.8 陈周造，陈灿煌. 精通C++Builder 5程序设计高级教程[M]. 中国青年出版社，2001.2 我在往WORD里面送文字\图片无可以实现了.但现在是送文字的上标.在一般的地方可以 ? 如下列代码 ? try ? ? ? ? ? { ? ? ? ? ? ? ? ? ? vWordApp ? = ? Variant::CreateObject( Word.Application ); ? ? ? ? ? } ? ? ? ? ? catch(...) ? ? ? ? ? { ? ? ? ? ? ? ? ? ? MessageBox(0, ? 启动 ? Word ? 出错, ? 可能是没有安装Word. , ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Print2Doc , ? MB_OK ? | ? MB_ICONERROR); ? ? ? ? ?