在VFP中将通用字段值与WORD文档进行数据交换的实现方法.doc

在VFP中将通用字段值与WORD文档进行数据交换的实现方法第12卷第4期2007年8月新余高专J0URNALOFXINYUCOLLEGEVo1.12,NO.4Aug.2007在VFP中将通用字段值与WORD文档进行数据交换的实现方法廖志斌(新余高等专科学校现代教育技术中心,江西新余338000)摘要:介绍了在数据表中加OLE对象以在表单中添加,显示OLE对象的方法.使用这种方法可以实现将从数据库中抽取的试题输出到WORD文档,从而可以对抽取的试题自由编辑;同时也可用这种方法实现将WORD编辑的内容(如公式,图表)自动存储到试题库中.关键词:VFP;OLE;WORD文档;字段值;数据交换中图分类号:TP311文献标识码:A文章编号:10086765(2007)04008602目前,许多学校的学生考试的试卷生成,已经由人工出题转变为采用计算机来进行题库与试卷的生成.计算机处理这项事务与传统的人工出题组卷相比.有多方面的优势.首先,可以充分发挥计算机在信息处理方面的优势.例如:建立海量的题库供将来使用,对历年的题库做出分析统计,提供有价值的信息等.其次,题库的建立,有利于教考分离工作的展开,能够更准确的反馈教学情况,指导教师搞好教学工作.随着科学技术的迅猛发展和管理水平的不断提高,计算机已经被广泛应用于13常管理之中,也使得创建一套集信息采集,信息加工,信息传输与信息存储高度自动化,共享化的信息管理系统成为可能.VisualFoxPro数据库因其简单易学,方便适用,成为众多系统开发的主要工具之一,但是,由于VisualFoxPro本身存在一定的局限性,字段类型少,功能相对较弱,这就要求开发人员充分挖掘VisualFoxPro的OLE对象的功能,以满足系统的需要.笔者在利用VisualFoxPro设计”高等数学”试题库时发现,由于试题中含有很多数学公式,图表及图形等不能直接存放在字符型(Character)的字段中,只能存放在通用字段(Genera1)中,而最后随机在试题库抽取了试卷进行打印,对抽取的试题格式不满意却又不能修改.针对上述存在的使用不便的问题,笔者利用VisualFoxPro把通用型字段内容直接输出到WORD文档方法,然后直接在WORD中修改试题题面.同时在向题库输入试题时,在系统中自动调用WORD来编辑输入试题题面,最后保存在通用字段中.利用这种方法,很好地解决了试题添加入库及随机抽题后的试卷编辑,修改,增删等一系列问题,在利用VisualFoxpro设计试题库时具有一定的通用性和实用性.而且一般的教师都能使用WORD把利用题库系统抽取的试题进行编辑,系统具有极大的灵活性和方便性.具体步骤是:1在数据表中加入OLE对象,对试题库添加WORD文档格式的试题OLE控件是预包装的对象,一般只能用一些专门的工具创建,可插入的OLE对象则可以来自WORD,EXCEL和GRAPH等应用程序,这些应用程序都支持对OLE对象的操作.在VisualFoxPro中,可以把OLE对象添加到VisualFoxPro应用程序中.为应用程序设计数据表时,首先应考虑是否需要OLE对象,若需要就必须在表中定义一个通用型字段,这样才能将OLE对象链接嵌入到通用型字段中并将其添加到表中.具体方法:使用”表设计器”创建一个带有通用字段的数据表,浏览并双击”通用型”字段,或者使用ModifyGeneral命令,也可使用AppendGeneral命令嵌入或链接OLE对象,假设我们要将WORD文档存储在VisualFoxpro数据表中,而且该表有一个名为”Word文档内容”的通用字段,那么可以使用下列代码将整个WORD文档嵌入到“Word文档内容”中.CREATETABLEoletable(Word文档名C(24),Word文档内容g)/在默认目录里建一个含有指收稿日期:20070426作者简介:廖志斌(1964一),男,江西南城人,副教授,主要从事数据库研究.一862007(第12卷)廖志斌:在VFP中将通用字段值与WORD文档进行数据交换的实现方法堑两个字段的表CDGETDIR()/选择到含有所需文件的目录NFiles=ADIR(aWordFiles,”.doc”)/检测出当前目录里含有指定扩展名类型的文档数IFNFiles>0/将所有”.doc”文档的名称及内容都分别添加到对应字段中FORi=1toNFilesAPPENDBLANKREPLACEOletable.NameWITHaWordFiles(i,1)APPENDGENERALWordDOCFRO.MaWordFiles(i,1)ENDFORENDIF2在表单中添加和显示OLE对象使用表单设计器,在表单的数据环境中添加进对应的数据表,然后逐个将所选字段拖放到表单中,ActiveX绑定控件,显示通用型字段的OLE对象.若要通过编程的方式显示通用型字段中的OLE对象,则一般需要创建表单,添加控件,将数据与控件绑定以及使控件和表单可见.3将通用型字段中的内容输出到WORD文档上面我们介绍了如何在表单中加入OLE对象以及在表单中添加和显示OLE对象,它们是我们要解决问题的基础.在VisualFoxpro应用程序中如何将表中通用型字段内容输出到WORD文档中进行编辑.基本原理是先创建一个WORD对象,打开一个存在的WORD文档;创建一个Form对象,在Form对象中添加一个OLE约束控件OLEBoundControl来显示General中的OLE对象;执行DoVerb方法程序以编辑方式打开或编辑OLE对象;将表单中显示出来的内容全部选定并复制到粘贴板,将粘贴板中的内容插入到打开的WORD文档中;最后将打开的WORD文档换名存盘.实现的代码是:(1)创建一个WORD对象(oWordObj:CREATEOBJECT(“Word.Application”);(2)打开一个WORD对象(oWordObj.Documents.Open(“&sysfile”);(3)读取wordbasic对象(oWord=GETOBJECT(.”WORD.basic”);(4)创建一个form对象(frmWord=CREATEOBJECT(“FORM”);(5)在form对象中添加一个OLE约束控件OLEBoundControl来显示General中的OLE对象(frmWord.ADDOBJECT(“OBJWORDDOC”,”OLEBOUNDCONTROL”);(6)指定数据源(frmWord.OBJWORDDOC.CONTROLSOURCE=“试题.题面”)(试题为数据表名,题面是一个通用型字段);(7)执行doverb命令(frmWord.OBJWORDDOC.Doverb(0);(8)将表示中显示出来的资料全部选定(oWord.EditSelectAl1)(9)将选定的内容复制到粘贴板(oWord.EditCopy1);(10)再将粘贴板中存放的具体内容复制到已经打开的word文档中暂存放(oWordObj.WordBasic.editpaste);(11)将打开的word文档换名存盘(oWordObj.WordBasic.FileSaveAs(“文件名”).参考文献:1陈俊晟.专业课试题库系统的设计与实现J.电脑开发与应用,2002,15(12);3638.2李淑华.VisualFoxpro)程序设计M.辽宁:辽海出版社.2003.(责任编校:任华)RealizationofdataexchangeofcommonfieldvaluewithWoRDdocumentationinVFPLIA0Zhibing(XinyuCollege,Xinyu338000China)Abstract:ThispaperintroducesthemethodofaddingOLEobjecttothedatatableSOastoaddandindicateOLEobjectinthetable.Bvthismethod.thetestquestionsselectedfromthedatatablecanbeoutputtedtoWORDdocume