毕业设计（论文）-医学三基题库管理系统.doc

内容摘要医院医务科经常对医护人员进行三基考试，每次都是人工出题，效率低下不说，还经常出错，为了能够帮助从繁重的出题工作中解放出来，我试着开发本系统，为了让相关人员使用方便，特此考虑了用microsoft office word做为本软件的输出对象，使用vb6.0以及相关控件和vba编程的相关知识，另外选用了sybase公司的powerdesigner11.0进行数据库的建模。关键词：题库系统;试卷生成;数据库;vba目 录内容摘要1引 言31.简述41.1开发工具简介41.1.1 vb 6.0的特点41.1.2 主要的控件及其属性简介41.1.3 数据库平台介绍51.2 系统运行环境52.需求分析62.1 功能模块62.2 功能分析62.2.1 题目随机自动生成62.2.2 图片与word的交互73.设计阶段93.1概要设计93.1.1系统数据库设计93.2 详细设计113.2.1 程序流程图113.2.2 程序界面介绍144.程序实现254.1开发的关键技术254.2图片与word的交互255.软件测试及其维护265.1 软硬件测试平台265.2 程序测试265.2.1界面测试265.2.2功能测试296. 总结30参考文献31引 言在做本系统之前我并没有深入了解过vb，这次我选择了vb做为我的开发工具，在这么短的时间内要比较熟悉这个开发工具对我来说也是个挑战，题目要求而且最主的是要用文本方式或者用通过microsoft office word做为试卷的终端输出，既然选择这个课题就要克服困难把它做好，所以我选择用word作为输出工具，虽然有难度但是锻炼人，为了比较好的完成该项目，在整个程序开发中，我查阅过很多资料来了解vba的相关编程知识，并且将它应用于这次的软件开发中，因而比较好的解决了microsoft office word的接口编程问题。在一般的题库系统中，往往只是文字性的内容，实现起来比较简单，所以我试图在本系统中加入对图片的管理，实际在程序处理的过程中也碰到不少难题，图片是一种二进制大对象，对这种数据在处理时与其他类型的数据完全不同，必须考虑的问题也很多，比如如何通过剪切板传递图形文件，如何把它转换成数据存入数据库，如何读取转换成图形文件，以及如何将它们插入到word中等等。虽然实现起来较为困难，但是最终产品适应性和实用性会更强。在使用vb开发的过程中还是用了第三方控件，比如图形按钮、janus gridex控件等，在实际使用的过程中也学到了很多相关知识，对vb的特性有一定的了解。1.简述1.1开发工具简介1.1.1 vb 6.0的特点visual basic（vb）是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。vb拥有 图形用户界面 （ gui ）和 快速应用程序开发 （ rad ）系统，可以轻易的使用 dao 、 rdo 、 ado 连接 数据库 ，或者轻松的创建 activex 控件 。程序员可以轻松的使用vb提供的组仠快速建立一个 应用程序 。visual basic for applications，即vba，包含在微软的应用程序中（比如microsoft office），以及类似wordperfect office这样第三方的产品里面。vba这样嵌入在各种应用程序中看起来有些矛盾，但是它的功能和vb一样强大。visual basic 6.0在数据访问方面有了很大的改进，新的ado组件让对大量数据快速访问成为可能。数据环境和新的报表功能也让数据开发有了全新的体验。总之visual basic 6.0已经是非常成熟稳定的开发系统，能让企业快速建立多层的系统以及web应用程序，成为当前 windows 上最流行的 visual basic 版本。1.1.2 主要的控件及其属性简介u treeview控件1) checkboxes 获得或设置一个值，决定在树的每一项的旁边，是否显示一个复选框。2) labeledit 获得或设置一个值，决定用户是否能编辑listitem或node对象的标签。3) index 在对象数组中的编号4) style 显示node对象的层次列表，每个列标有一个标签和一个可选位图构成。u janus gridex控件该控件是供用户浏览数据的网格控件。它可以对字段进行索引、分组。用户可以拖动纵栏标题，将它拖到分组框中，就可以自动分组。用户添加或更新记录时，gridex 就会把记录自动按索引值排序，并放置在一个适合的位置。allowaddnew：是否能够增加新行allowdelete：是否允许删除allowedit:是否允许编辑databasename 定义数据源datamode数据访问方式：dao、ado、unboundgroupbyboxvisible:是否显示分组u isexplorerbar控件一个可以生成xp风格的导航栏控件，使用该控件能使系统界面美观，程序使用方便快捷。isebabout.addgroup group, 试卷功能, 0 isebabout.additem group, 现有试卷管理, 现有试卷管理, 2 isebabout.additem group, 自动生成试卷, 自动生成试卷, 3 isebabout.additem group, 手动生成试卷, 手动生成试卷, 1 isebabout.addgroup group1, 题库功能, 1 isebabout.additem group1, 科目维护, 科目维护, 4 isebabout.additem group1, 题库管理, 题库管理, 5 isebabout.addgroup group2, 操作员管理, 1 isebabout.additem group2, , 操作员维护, 7 isebabout.additem group2, , 权限管理, 3 isebabout.addgroup group3, 数据库管理, 1 isebabout.additem group3, , 数据库备份, 21.1.3 数据库平台介绍采用ms sqlserver2000作为后台数据库，vb中采用ado方式访问后台数据库。sqlserver基于服务器端的中型的数据库，可以适合大容量数据的应用，在功能上管理上也要比access要强得多。在处理海量数据的效率，后台开发的灵活性，可扩展性等方面强大。因为现在数据库都使用标准的sql语言对数据库进行管理，所以如果是标准sql语言，两者基本上都可以通用的。sql server还有更多的扩展，可以用存储过程，数据库大小无极限限制。ado 是对当前微软所支持的数据库进行操作的最有效和最简单直接的方法，它是一种功能强大的数据访问编程模式，从而使得大部分数据源可编程的属性得以直接扩展到你的active server 页面上。可以使用ado 去编写紧凑简明的脚本以便连接到 open database connectivity (odbc) 兼容的数据库和 ole db 兼容的数据源，这样程序员就可以访问任何与 odbc 兼容的数据库，包括 ms sql server、access、 oracle 等等。1.2 系统运行环境操作系统：windows 2003、windows xp办公软件：office xp、office 2000、office 20032.需求分析2.1 功能模块n 自动生成试卷是根据用户的设定，选择相关学科和题目类型，分数，其他的由系统自动生成，方便快捷n 手动生成试卷是用户选择指定的章节中具体的题目，与自动生成试卷相比，手动生成试卷则更有针对性n 现有试卷管理是对之前选择的题目保留下来，以便下次参照使用2.2 功能分析2.2.1 题目随机自动生成自动生成的关键就是，用户不关心所选题目是从题库的什么地方出来，只要指定章节、题型以及数量，有程序自动从题库中随机选择，且不能重复选择，算法如下：为了生成某个范围内的随机整数，可使用以下公式int(upperbound - lowerbound + 1) * rnd + lowerbound)这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。randomize n = 题目数量 m = 所选题数 s = int(n - 1 + 1) * rnd + 1) n = 0: s = int(rnd(1) * 10) + 1 do while n 0 then 开始初始化 for i = 0 to num - 1 xth(i) = minbh + i 动态数组设初值 next i randomize 初始化随机数生成器 for i = 0 to num - 1 randomize j = (int(maxbh - minbh + 1) * rnd + minbh) - 1 temp = xth(i) xth(i) = xth(j) xth(j) = temp next i end if -经过大量反复测试，该算法效率很高，时间延迟很短，很好的满足实际的需要。2.2.2 图片与word的交互无论是自动生成还是手动生成试卷，最重要的环节就是vba访问word，其中文字访问是最简单的，下面主要说明对图片的访问，本系统设计是通过windows剪贴板的交互来实现数据库图片和word的交互，下面是主要的代码1）、图片访问dim rs as new adodb.recordsetset wrd = createobject(word.application)wrd.documents.addwrd.selection.typetext (word) rs.open select * from choice where question_id = + ls_bh ,cn, adopenkeyset, adlockoptimisticwhile rs.eof truedim pbag as new propertybagdim b() as byteb = rs.fields(pic_a).valuepbag.contents = b 指定 pbag容器的内容读取容器中的图片set image1.picture = pbag.readproperty(picture)clipboard.clear 清空剪贴板clipboard.setdata image1.picture 图片读取到剪贴板wrd.selection.typeparagraph 回车wrd.selection.paste 粘贴rs.movenextwendrs.closewrd.activedocument.savewrd.activedocument.closewrd.quit3.设计阶段3.1概要设计3.1.1系统数据库设计根据任务书的规定，现设计如下的数据库表结构：1) 科目表2) 章表3) 节表4) 题型表5) 题目表6) 试卷管理7) 试卷表8) 用户表9）选择题表3.2 详细设计3.2.1 程序流程图1、手动生成试卷2、自动生成试卷是否输出试卷输入对应题型分值选择章节开始ny输出试卷结束3、现有试卷管理结束输出试卷删除现有试卷选择现有试卷开始yn3.2.2 程序界面介绍1、登录界面输入用户名和密码，验证通过便可进入程序主界面2、程序主界面程序主界面左边导航栏是各个功能模块列表：现有试卷：点击后进入抽取现有试卷的功能界面。自动生成试卷：点击后进入自动生成试卷的功能界面。手动生成试卷：点击后进入手动生成试卷。科目维护：生成题目所在章、节。题库管理：添加或者修改相应章节的试题。操作员维护：添加操作员。权限管理：对不同操作员设置不同权限。数据库备份：备份或还原数据库。3、科目维护选择相应章或节，添加对应节点，修改或删除4、题库管理双击放大选择添加的题型，输入题目内容题目答案，如果是单项或多项选择题，本系统还支持图片的输入，双击小图片还可以将图片放大预览。5.自动生成试卷选择对应章节，然后选择对应题型，输入题量，选题后进入下面表格，最后根据选择的题型和题量随机生成试卷。 自动生成题库时，还可以选择只输出试卷、只输出答案或者试题与答案一起输出，程序的这种设计方法使系统更加灵活，适应性更强。生成答案的代码：public sub l_out_da(byval as_filename as string) 输出答案 向word中输入数据 if gb_flag = false then set wrd = createobject(word.application) wrd.documents.add else wrd.selection.insertbreak (1) 插入分页符 end if wrd.selection.typetext (word) gridex6.refreshsort gridex6.movefirst dim ls_tx as string dim ls_temp as string ls_temp = dim ls_temp1 as string ls_temp1 = dim li_temp as integer li_temp = 1 dim ls_temp2 as string ls_temp2 = wrd.selection.font.size = 16 wrd.selection.font.name = 宋体 wrd.selection.paragraphformat.alignment = 1 居中对齐 wrd.selection.typetext (答案- + as_filename) 文章标题 wrd.selection.typeparagraph 回车 wrd.selection.font.name = 宋体 wrd.selection.font.size = 10 wrd.selection.paragraphformat.alignment = 0 两端对齐 for li_num = 1 to gridex6.rowcount select case gridex6.value(3) case 1 ls_tx = 名词解释题 case 2 ls_tx = 单项选择题 case 3 ls_tx = 多项选择题 case 4 ls_tx = 复合型选择题 case 5 ls_tx = 填空题 case 6 ls_tx = 问答题 case 7 ls_tx = 判断题 end select if ls_temp = gridex6.value(3) then if ls_tx = 单项选择题 or ls_tx = 多项选择题 then wrd.selection.typetext (cstr(gridex6.value(4) + 、 + trim(gridex6.value(2) + 题目内容 else wrd.selection.typetext (cstr(gridex6.value(4) + 、 + trim(gridex6.value(2) 题目内容 wrd.selection.typeparagraph 回车 end if else if ls_temp2 = 单项选择题 or ls_temp2 = 多项选择题 then if ls_tx ls_temp2 then wrd.selection.typeparagraph 回车 wrd.selection.typeparagraph 回车 ls_temp2 = else wrd.selection.typeparagraph 回车 end if else wrd.selection.typeparagraph 回车 end if if li_temp = 1 then wrd.selection.typetext (一、 + ls_tx) 题型 end if if li_temp = 2 then wrd.selection.typetext (二、 + ls_tx) 题型 end if if li_temp = 3 then wrd.selection.typetext (三、 + ls_tx) 题型 end if if li_temp = 4 then wrd.selection.typetext (四、 + ls_tx) 题型 end if if li_temp = 5 then wrd.selection.typetext (五、 + ls_tx) 题型 end if if li_temp = 6 then wrd.selection.typetext (六、 + ls_tx) 题型 end if if li_temp = 7 then wrd.selection.typetext (七、 + ls_tx) 题型 end if wrd.selection.typeparagraph 回车 li_temp = li_temp + 1 if ls_tx = 单项选择题 or ls_tx = 多项选择题 then ls_temp2 = ls_tx wrd.selection.typetext (cstr(gridex6.value(4) + 、 + trim(gridex6.value(2) + 题目内容 else wrd.selection.typetext (cstr(gridex6.value(4) + 、 + trim(gridex6.value(2) 题目内容 wrd.selection.typeparagraph 回车 end if end if ls_temp = gridex6.value(3) gridex6.movenext next li_num wrd.activedocument.selection.shaperange.width = 50 wrd.activedocument.selection.shaperange.height = 100 wrd.activedocument.save wrd.activedocument.save wrd.activedocument.close wrd.quit set wrd = nothingend sub6.手动生成试卷手动从题库中选择需要的题型，当选择重复时系统会给出相应提示，双击上面题库数据，系统会将相应题目拷贝到下面的数据窗口中，相反，如果需要删除选题，只需要双击下面的数据窗口所选题目便可去除，当然也可通过按钮完成相同的操作。7.现有试卷管理根据时间段选择在指定时间范围内的题库，然后从其中的题库中选择需要生成的试题集，下面的数据窗口显示对应试卷的详细内容，如果确认需要生成相应试卷则在指定的试卷上按右键在弹出的菜单中选择相应的功能，同样与自动和手动生成一样可以指定输出试卷或答案。4.程序实现4.1开发的关键技术visual basic 的应用程序版（vba）是microsoft 公司长期追求的目标，使可编程应用软件得到完美的实现，它作为一种通用的宏语言可被所有的microsoft 可编程应用软件所共享。在没有vba 以前，一些应用软件如excel、word、access、project 等都采用自己的宏语言供用户开发使用，但每种宏语言都是独立的，需要用户专门去学习，它们之间互不兼容，使得应用软件之间不能在程序上互联。拥有一种可跨越多个应用软件，使各应用软件产品具有高效、灵活且一致性的开发工具是至关重要的。vba 作为一种新一代的标准宏语言，具有上述跨越多种应用软件并且具有控制应用软件对象的能力，使得程序设计人员仅需学习一种统一的标准宏语言，就可以转换到特定的应用软件上去，程序设计人员在编程和调试代码时所看到的是相同的用户界面，而且vba 与原应用软件的宏语言相兼容，以保障用户在代码和工作上的投资。有了vba 以后，多种应用程序共用一种宏语言，节省了程序人员的学习时间，提高了不同应用软件间的相互开发和调用能力。 在office 2000 中，宏语言vba 适用于所有应用程序，包括word 、 excel、powerpoint、access、outlook 以及project。在office 97 的各应用程序中，新增了visual basic 编辑器。这样，用户无论是在excel 中，还是在word 中以至是在access 中建立和管理vba 都具有统一的方法和标准。4.2图片与word的交互本系统中难点在于图片如何插入到word中，对于指定目录下的图片插入到word中相对容易，但是如果每次从数据库中将图片取出生成临时文件再将该文件插入到word中，虽然也能实现但是效率较差，所以我想到用系统剪贴板来实现图片的插入，实现思想就是将数据库中的图片转化成图片放在image控件中，再将该图片复制到剪贴板中，然后将该信息粘贴到word指定地方即可。clipboard.clear 清空剪贴板clipboard.setdata image1.picture 图片读取到剪贴板wrd.selection.typeparagraph 回车wrd.selection.paste 粘贴本系统中还考虑了，对图片的宽和高的设置，即不管图片实际有多大，当输入到word中，程序都会按照指定的宽和高生成相应图片，这样生成的试卷干净美观。for each s in wrd.activedocument.inlineshapes 设置图片的宽和高 s.width = 50 以磅为单位 s.height = 100next s5.软件测试及其维护5.1 软硬件测试平台硬件平台cpuintel core t6670 2.2ghz内存2g硬盘seagate barracuda 7200.7 320g显卡集成显示器14.4寸led软件环境操作系统microsoft windowsxp简体中文专业版sp3办公软件microsoft office 20035.2 程序测试5.2.1界面测试在不同分辨率下查看程序的外观，看是否出现外观变形，按钮或者字体失真等现象。本程序是在1024*768的分辨率下开发的，刚开始我考虑在程序运行时，如果分辨率发生改变程序自动根据当前的分辨率重新动态计算窗口和各个控件的大小，但是这种方法实际取得的效果并不理想，于是我另辟蹊径，我在程序运行时读出当前的分辨率，保存在指定变量中，然后强行将当前的分辨率调至1024*768，当程序运行结束关闭后，自动将分辨率切换回去，这种方法与前面的方法相比，实际使用效果更佳。下面是相关的代码：option explicitpublic declare function getsystemmetrics lib user32 (byval nindex as long) as longconst sm_cxscreen = 0const sm_cyscreen = 1private declare function enumdisplaysettings lib user32 alias enumdisplaysettingsa (byval lpszdevicename as long, byval imodenum as long, lpdevmode as any) as booleanprivate declare function changedisplaysettings lib user32 alias changedisplaysettingsa (lpdevmode as any, byval dwflags as long) as longconst ccdevicename = 32const ccformname = 32const dm_pelswidth = &h80000const dm_pelsheight = &h100000private type devmodedmdevicename as string * ccdevicenamedmspecversion as integerdmdriverversion as integerdmsize as integerdmdriverextra as integerdmfields as longdmorientation as integerdmpapersize as integerdmpaperlength as integerdmpaperwidth as integerdmscale as integerdmcopies as integerdmdefaultsource as integerdmprintquality as integerdmcolor as integerdmduplex as integerdmyresolution as integerdmttoption as integerdmcollate as integerdmformname as string * ccformnamedmunusedpadding as integer