试题库管理系统开发心得.docVIP

试题库管理系统开发心得 陈 明 （怀化培训基地信息教研室 邮编：418000） ［摘　要］　教考分离不失为提高职工培训教学质量的一种有效手段，试题库的建立又是教考分离实施的前提，本文就试题库平台的开发的难点提供关键代码。 ［关键词］　格式文本存储 随机抽题　面向对象 ［正 文］ 　　2009年我担任（试题库管理系统）的负责人，主要负责平台开发，试题库管理系统基本要求为：能随机对题库各种题型抽题生成试卷，同时能面向对象进行修改，基于本人的认知水平及时下网络技术的流行，我选择了VF+SQL模式，以便达到共享数据库，多机同时录入的 效果。系统平台的开发难点主要在于（1）VF向SQL存储图片及格式文本，（2）随机抽题，（3）生成能面向对象进行修改的试卷即VF控制WORD. 本系统于9月初研发完，经10、11月调试修改即将投入使用，本人在开发运用软件之路上的艰辛和快乐，体现在下列程序代码之中。 　　现将部分程序代码呈现给广铁的同行，希望能对各位的程序开发有所帮助。 一、VF向SQL存储图片及格式文本 IF EMPTY(thisform.edit1.Value) mand4.Visible= .F. =MESSAGEBOX(试题添加失败，没有题目！,0+48,提示) RETURN else nHandle=GetConnHandle() lIsRight=.T. IF nHandle0 =SQLSETPROP(nHandle,Asynchronous,.F.) 设置为同步连接 =SQLSETPROP(nHandle,Transactions,2) 开始人工事务处理 aa=ALLTRIM(Tbo2.Value) ff=ALLTRIM(Tbo1.Value) ictxtfile=Thisform.edit1.Value STRTOFILE(ictxtfile,c:\playerhelp.txt) lcTextString=Strconv(Filetostr(c:\playerhelp.txt),13) DO CASE CASE EMPTY(thisform.TEXT2.Value) lcTextString1=thisform.text2.Value a=MESSAGEBOX(本题无图片，单击是将添加试题入库，单击否将取消本题入库！,32+4,系统提示) IF a=6 cSQLString=INSERT INTO tbltk (km,lx,tm,tp) VALUES (aa,ff,?lcTextString,) ELSE RETURN endif OTHERWISE lcTextString1=thisform.text2.Value lcTextString2=Filetostr(lcTextString1)+chr(0) cSQLString=INSERT INTO tbltk (km,lx,tm,tp) VALUES (aa,ff,?lcTextString,?lcTextString2) ENDCASE nResult=SQLEXEC(nHandle,cSQLString) IF lIsRight=.T. =SQLCOMMIT(nHandle) WAIT WINDOW 试题加添成功！ NOWAIT TIMEOUT 2 thisform.edit1.Value= thisform.text2.Value= ELSE =SQLROLLBACK(nHandle) =MESSAGEBOX(试题添加失败，请重新执行！,0+48,提示) ENDIF =SQLSETPROP(nHandle,Transactions,1) 结束人工事务处理 ENDIF ENDIF 二、随机抽题 nHandle=GetConnHandle() IF nHandle0 cString=SELECT * FROM tbltk where tbltk.km=ddand tbltk.lx=选择题 cString1=SELECT * FROM tbltk where tbltk.km= nResult=SQLEXEC(nH