欢迎来到天天文库
浏览记录
ID:18907359
大小:214.50 KB
页数:6页
时间:2018-09-21
《基于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.AbsolutePosition4、tEndSubPrivateSubcmdRefresh_Click()'刷新按钮代码Data1.RefreshEndSubPrivateSubcmdUpdate_Click()'更新按钮代码Data1.UpdateRecordData1.Recordset.Bookmark=Data1.Recordset.LastModifiedEndSubPrivateSubcmdClose_Click()'关闭按钮代码UnloadMeEndSubPrivateSubCombo1_Click()'章节选择组合框按钮代码OnErrorGoToerr1IfCombo1.Text<>"所有章节"ThenData5、1.RecordSource=zhj&Combo1.Text&")"ElseData1.RecordSource="试题一"EndIfData1.RefreshData1.Recordset.MoveLastData1.Recordset.MoveFirstExitSuberr1:MsgBox"本章节无题,请另选!"EndSubPrivateSubData1_Error(DataErrAsInteger,ResponseAsInteger)'Data1控件代码MsgBox"数据错误事件捕捉到错误:"&Error$(DataErr)Response=0'忽略错误EndSubPrivateSub6、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
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
此文档下载收益归作者所有