VFP中利用WORD控件實(shí)現(xiàn)通用課程試題庫開發(fā)

許琴

摘 要：利用WORD控件對復(fù)雜文字、圖形、公式等內(nèi)容編輯的方便性和VFP數(shù)據(jù)庫管理的易用性，利用VF通用型數(shù)據(jù)中的OLE對象可以用來存儲電子表格、文檔、圖形、聲音等信息。本設(shè)計(jì)利用VF中的通用字段存放并保留WORD格式試題庫，達(dá)到對通用試題庫進(jìn)行編輯、管理等操作?？蓪?shí)現(xiàn)對WORD格式的題庫進(jìn)行編輯與修改，并能自動(dòng)生成WORD格式試卷功能，具有廣泛的通用性。

關(guān)鍵詞：WORD控件 VFP數(shù)據(jù)庫 通用試題庫

中圖分類號：TP311 文獻(xiàn)標(biāo)識碼：A 文章編號：1672-3791（2018）04（a）-0188-02

Abstract： The use of WORD control to edit the contents of complex texts， graphics， formulas and other contents is convenient and VFP database management is easy to use. OLE objects in VF general data can be used to store information such as spreadsheets， documents， graphs， sounds， etc. This design uses the general fields in VF to store and retain the WORD format test library， so as to achieve the editing and management of the general test question bank. It can be edited and modified in WORD format， and can automatically generate WORD format test paper， which has extensive generality.

Key Words： WORD control； VFP database； General test database

在試題庫的開發(fā)中，幾乎所有的課程中都會(huì)涉及到圖形、公式、上下標(biāo)等特殊的格式。眾所周知WORD、WPS是最容易處理圖形、公式和上下標(biāo)等特殊格式的應(yīng)用軟件。但是WORD、WPS它們不方便實(shí)現(xiàn)數(shù)據(jù)庫的管理和試卷自動(dòng)組卷等功能，而Visual Foxpro則在數(shù)據(jù)庫管理方面有著方便、靈活的優(yōu)勢。本文將VF與WORD各自的優(yōu)勢結(jié)合起來，可以實(shí)現(xiàn)自動(dòng)組卷且可以以WORD格式方便編輯。

1 實(shí)現(xiàn)原理

在VF中字段中，有一種字段類型中做通用型字段，通用型數(shù)據(jù)中的OLE對象可以用來存儲電子表格、文檔、圖形、聲音等信息。因此我們設(shè)置數(shù)據(jù)庫中的表的字段類型為通用型，通過APPEND GENERAL向字段中添加WORDOLE對象。通過表單中添加WORDOLE控件并綁定在字段中，就可以在表單中向WORD一樣編輯此字段，如圖1所示，編輯完成后自動(dòng)保存。生成試卷時(shí)也需要用WORD OLE控件來完成WORD試卷的組成工作。

2 軟件實(shí)現(xiàn)

本系統(tǒng)主要實(shí)現(xiàn)新建題庫、選擇題庫、錄入題庫和自動(dòng)出卷幾個(gè)功能模塊，本文主要對錄入題庫和自動(dòng)組卷進(jìn)行說明。

2.1 試題庫錄入實(shí)現(xiàn)

試題庫錄入界面如圖2所示。首先在表單的初始化事件中進(jìn)行WORD OLE控件定義并與數(shù)據(jù)庫中的字段相綁定，代碼如下：

thisform.AddObject （"OBJWORDDOC"，"OLEBOUNDCONTROl"） &&創(chuàng)建WORD OLE控件

thisform.OBJWORDDOC.visible=.T. &&顯示W(wǎng)ORD OLE控件

thisform.OBJWORDDOC.CONTROLSOURCE="選擇題"+".題干" &&將OLE控件與表中字段相綁定

經(jīng)過綁定后，圖2中的控件1就與數(shù)據(jù)庫中的字段聯(lián)系完成，但是為了能在此處完成WORD 編輯，需要在編輯前向字段中加入WORD空白文檔后才可以編輯，代碼如下：

APPEND GENERAL 題干 FROM "demo.doc" CLASS OBJWORDDOC &&向字段添加一個(gè)空白WORD文檔

2.2 自動(dòng)出卷實(shí)現(xiàn)

自動(dòng)出卷界面如圖3所示。首先在表單上面設(shè)置一個(gè)題型信息表，了解題庫中的各種題型與數(shù)量，方便設(shè)置出題里的數(shù)量。表單下面是一個(gè)試卷設(shè)定信息，在此可以設(shè)定各種題型、分值及數(shù)量。還有試卷份數(shù)，點(diǎn)擊“生成WORD試卷”按鈕后，就可以生成圖4所示的試卷及答案。

主要代碼實(shí)現(xiàn)如下：

Word=CREATEOBJECT（'word.application'） &&創(chuàng)建WORD文檔

Word.Documents.add（） &&建立新文檔，試卷文檔

Word.ActiveDocument.SaveAs（"&filename1;"） &&保存文檔，如果文件另存為如果要存到文件夾下，要先先創(chuàng)建文件夾，否則分報(bào)錯(cuò)

Word.Documents.Open （"&filename1;"） &&打開文檔

COPY TO temp FIELDS &zdName; NEXT 1 && 復(fù)制通用字段的內(nèi)容到臨時(shí)文件中

handlein=FOPEN（"temp.fpt"）

handleout=FCREATE（"&LCNowpath;"+"temp.DOC"） && 事先知道表中存的為doc文件

gnEnd = FSEEK（handlein， 0， 2） &&確定"Temp.fpt"文件的長度

gnTop = FSEEK（handlein， 0）

str1 = FREAD（handlein， gnEnd） &&保存全部文件到一個(gè)串 "str1" 中

str2=RIGHT（str1，LEN（str1）-610） &&從 Str1 的偏移 599 字節(jié)開始保存到 "str2"

n=FWRITE（handleout，str2） &&寫 "Str2" 到 doc 文件 "temp.doc"

=FCLOSE（handlein） &&關(guān)閉兩個(gè)打開的文件

=FCLOSE（handleout）

3 結(jié)語

本設(shè)計(jì)采用VF數(shù)據(jù)庫的靈活方便和WORD編輯文檔的優(yōu)勢相結(jié)合，實(shí)現(xiàn)了通用課程試題庫的開發(fā)，解決了傳統(tǒng)數(shù)據(jù)無法實(shí)現(xiàn)WORD文檔隨意編輯的要求，給建立各種試卷的題庫帶來方便，同時(shí)可實(shí)現(xiàn)自動(dòng)組卷，減少重復(fù)勞動(dòng)，提高了效率。不足之處是對數(shù)據(jù)的加密還未實(shí)現(xiàn)，在今后的系統(tǒng)開發(fā)中來逐漸完善。

參考文獻(xiàn)

[1] 孫彥生.VFP中通用字段內(nèi)容的轉(zhuǎn)換[J].圖書情報(bào)導(dǎo)刊，2006，16（20）：230-232.

[2] 甕正科.Visual Foxpro 6數(shù)據(jù)庫開發(fā)教程[M].北京：清華大學(xué)出版社，2002.

[3] 周升鋒.Visual Foxpro 6.0 實(shí)用開指南[M].成都：電子科技大學(xué)出版社，1999.

[4] 弘道工作室.Visual Foxpro 5.0中文版程序員伴侶[M].北京：人民交通出版社，1998.