基于vb题库管理系统的设计与实现

《基于vb题库管理系统的设计与实现》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、DIY题库管理系统电脑编程技巧与维护2012年6月马浩洲摘要：为了改善课程的考试内容和考核方式，基于课程和VB编程语言的特点，构建了试题库管理系统，该系统具有较好的实用性和发展性。关键词：DIY；VB；试题库；教考分离1引言提高教学水平和教学质量的一个可行的重要手段就是教考分离。部分乡村学校的规模并不大，学生数量少，经费紧张，还在使用文本试题库。文本试题库具有考核内容受限、试卷数量受限、难于管理和修改等不足，因此很难做到真正的教考分离。针对上述问题，在已有文本题库的基础上，低成本的DIY（DoItYourself）开发题库管理系统，进行试题的管理、组卷和维护很有必要。而VB编程语言在各学校已

2、经普及使用，因此选择VB和ACCESS开发本校试题管理系统是可行的，同时可以减少购买试题库软件的开支。2实现根据学校考试现状，本系统实现的功能主要有：试题的添加、修改和删除，试卷的自动与手工生成和试卷的打印、上机测试等功能。系统采用Access2003作为数据库管理系统（DBMS），为了管理上的方便，本系统只建立1个数据库，命名为TEST.mdb。2.1试题维护子模块该模块主要实现的功能是试题的添加、修改与删除。为了方便使用，将试题的添加、修改和删除集中于一个窗体内。管理员根据需要，只要选择题型后，就可以实现相关试题的添加、修改和删除。选择题库编辑界面如图1，主要代码如下：图1图2Priva

3、teConstzhj="Select试题一.*From试题一Where(试题一.章节="PrivateSubcmdAdd_Click()Data1.Recordset.AddNewtxtFields(0).SetFocusEndSubPrivateSubcmdDelete_Click()'添加按钮代码IfData1.Recordset.RecordCount>0ThenData1.Recordset.DeleteIfData1.Recordset.AbsolutePosition

4、tEndSubPrivateSubcmdRefresh_Click()'刷新按钮代码Data1.RefreshEndSubPrivateSubcmdUpdate_Click()'更新按钮代码Data1.UpdateRecordData1.Recordset.Bookmark=Data1.Recordset.LastModifiedEndSubPrivateSubcmdClose_Click()'关闭按钮代码UnloadMeEndSubPrivateSubCombo1_Click()'章节选择组合框按钮代码OnErrorGoToerr1IfCombo1.Text<>"所有章节"ThenData

5、1.RecordSource=zhj&Combo1.Text&")"ElseData1.RecordSource="试题一"EndIfData1.RefreshData1.Recordset.MoveLastData1.Recordset.MoveFirstExitSuberr1:MsgBox"本章节无题，请另选！"EndSubPrivateSubData1_Error(DataErrAsInteger,ResponseAsInteger)'Data1控件代码MsgBox"数据错误事件捕捉到错误："&Error$(DataErr)Response=0'忽略错误EndSubPrivateSub

6、Data1_Reposition()'Data1控件代码Screen.MousePointer=vbDefaultOnErrorResumeNextData1.Caption="记录："&(Data1.Recordset.AbsolutePosition+1)&"/共"&Data1.Recordset.RecordCount&"条记录"EndSubPrivateSubForm_resize()'窗体代码IfData1.Recordset.RecordCount>0ThenData1.Recordset.MoveLastData1.Recordset.MoveFirstEndIfEndSub填

7、空题库编辑界面如图2，代码和选择题库编辑界面类似，主要不同点：PrivateConstzhj="Select填空题.*From填空题Where(填空题.章节="PrivateSubCombo1_Click()'章节选择组合框按钮代码OnErrorGoToerr1IfCombo1.Text<>"所有章节"ThenData1.RecordSource=zhj&Combo1.Text&")"ElseData1.Re