vb设计《计算机网络实验测试系统》.doc

vb设计计算机网络实验测试系统 作者： 日期：2 个人收集整理 勿做商业用途- 1 -吉林工程技术师范学院计算机网络实验测试系统学生姓名: 班级： 指导教师： 职称： 专业名称：计算机应用与技术 答辩时间 2011年6月2日 答辩委员会主席: 2011 年 6 月信息工程学院15摘要计算机应用技术的发展使得考试的技术手段和载体发生了革命性的变化，计算机应用的开放性、分布性的特点和基于计算机应用的巨大的计算能力使得考试突破了时间和空间的限制.与传统考试模式相比，计算机考试具有无可比拟的优越性，它可以将传统考试过程中的试卷组织、审定印制、传送收集、登记发放各个环节缩小到一至两个环节，几乎屏蔽了所有人工直接干预考试活动的可能性,不但能够节约大量的时时间、人力、物力与财力，而且还可以大幅度增加考试成绩的客观性和公正性。本文以计算机应用为平台，包括系统需求分析和系统功能设计以及数据库设计。重点阐述了用户登录模块、考试模块、题库管理、试卷管理模块、学生管理模块、成绩管理模块等简单设计.计算机考试系统课题产生的背景是当今教育信息化的趋势及我国高校教育信息化系统的建设,目的是充分利用学校现有的计算机软和硬件实现无纸化考试以避免传统手工考试的不足。关键字：计算机考试、模块、信息化Abstract Computer application of technology to make the technical means and carrier a revolution in computer application of an open and distribution characteristics of and based on the computer applications to the computational power to make the examination was a time and space limitation. Compared with traditional the computer is superior。 It can be the traditional test in the course of examination papers printed approved organization, collection ,dissemination and transfer of registration every link to one or two, almost shielding all direct intervention by the activity， not only can save a lot of time， manpower, material and financial resources， but also increased significantly in the examination of objectivity and impartiality。个人收集整理，勿做商业用途个人收集整理,勿做商业用途The paper with computer applications are platform， including system needs analysis and the system functions and the database design。 The emphasis on the users login， modules， the library, papers management module, a management module and management module, a simple design。 The computer system of the subjects education background information to the trend of our institutions of higher education and information system and aim is to make full use of the school computer software and hardware NO Paper to prevent the realization of the traditional handicraft the examination。个人收集整理,勿做商业用途个人收集整理,勿做商业用途Keywords : the computer test， modules， information目录引言I第一章 系统分析11.1系统简介11.2 质量分析31.3 开发环境介绍4第二章 数据库的设计621 数据库设计62。2 VB程序设计与数据库7第三章 系统实现93.2学生界面123.2.1 选择题133.2。2填空题144.2。3连线题153.3 教师界面163.4 管理员界面21致谢24参考文献25引言在传统学校教学中，考试、阅卷这一块都属于教学管理的工作，而且它与学生成绩管理有着密切关系.因此，网络课程测验系统拥有对学生的学习成绩进行管理的功能，因此一个完整的实验测试系统应该包括这三大块：学生的信息管理；成绩管理;教师修改试卷系统。本系统要实现的功能是管理员可以对学生信息进行查询，可以根据本人用户名和密码登录系统。在信息系统中,后台数据库存储的地位相当重要。本系统采用了Access数据库及数据表，程序能对该表进行写入和读出数据的操作.编写计算机程序需要使用计算机编程语言。计算机编程语言是人和计算机“对话”的桥梁。就像人类的语言一样，计算机编程语言也有很多。VB程序设计应用到许多控件，该系统主要应用vb语言设计本系统。第一章 系统分析作为在教学第一线的老师,往往需要及时了解学生对某一章节知识掌握的情况，经常需要对学生进行形成性测验和终结性测试，来发现教学中的问题,纠正教学误区。本系统中的应用程序使用的是Visual Basic设计语言，它是Mricrosoft公司开发的一个套件部分，是一个功能丰富，方便实用的程序开发环境,它的一个很大的特点就是功能强大，编程简单的数据库操作能力。可视化的开发环境，丰富的数据库访问控件的支持，使它成为数据库应用程序项目中重要的开发工具。本系统采用的数据库是ACCESS，它Mricrosoft公司自带一种数据库管理系统,它在数据仓库，数据库解决方案中起着重要的核心作用，是目前广泛使用的一种数据库之一。本系统使用ADO组件,提供了轻量高性能的连接数据库的接口。因此，ADO是如今使用最广泛，应用最成功的数据访问技术。1.1系统简介在试题库方面，老师最需要的是对试题库管理的自主性.学生们渴望能自由地答试题，管理员希望能对系统内的学生进行一键式的方便管理，以求高效率完成管理，节约宝贵的时间。本系统的具体功能主要表现在以下三个方面：管理员：（1） 登录密码管理； （2) 管理学生信息；教 师:(1) 试题录入； (2) 维护试题库、修改； （3) 成绩查询；学 生：（1) 申请考试； (2) 试题答题； （3） 试题提交； (4） 成绩查询;其结构如下图所示：登录界面学生教师管理员成绩查询答试题申请考试修改试题查询成绩试题录入增删除信息管理密码11系统程序流程图基于以上诸因素的考虑，设计本系统其意旨在于提供一个适合于形成性测试和阶段性测试的实验测试系统。本系统能快速方便地提供上机答题及交卷,免去了纸质试卷开考发卷退考收卷的麻烦，帮助教师把握教学的进度,及时地反馈教学中的问题，以改进教学方法和调整教学重点。教师修改及录入试题,管理员管理学生密码方便快捷。又减少因工作的冗余出现的错误，并且操作非常简单，可减少许多不必要的人员，这无论从物质上还是工作人员的工资上都为学校节约了开支。实现工具：实验测试系统即以强大的试题数据库作为后台支持，由于Access是目前比较流行的一种数据库软件，它允许并很容易地用多种方式进行插入、删除和更新数据，因此本系统中采用Access来构建系统数据库.作为与用户做交互界面的前台，本系统采用Visual Basic 6。0作为开发工具，它具有丰富的控件、先进的ADO数据访问技术等。1。2 质量分析本系统其意旨在于提供一个适合于实验测试系统。本系统能快速方便地提供上机答题及交卷,免去了纸质试卷开考发卷退考收卷的麻烦，帮助教师把握教学的进度，及时地反馈教学中的问题，以改进教学方法和调整教学重点.教师修改及录入试题，管理员管理学生密码方便快捷。而且,本系统并不是十分的复杂,当系统开发完实际运行后，将很大程度上提高计算机的功能，为使用者带来便利.最重要的是该软件的开发可以使我们对系统的开发有全面的认识。从经济角度考虑，此系统设备管理信息开提供了可行。针对一般网络实验课程的考试系统的需求，计算机网络实验测试系统录入了与网络课程相关的试题，在系统内设计采用多接口登录的方式，管理员对学生信息进行操作，如插入、删除等.教师可对数据库的所有的题目进行修改、删除和更新,系统的设计如下所示的数据项:l 管理员信息，包括的数据项有：管理员姓名、密码等.l 学生信息，包括的数据项有：姓名、密码、学号等。l 试卷信息,包括的数据项有：填空题、填空题数量、判断题分值。l 填空题信息,包括的数据项有：填空题编号、题干、正确答案等.l 选择题信息，包括的数据项有：单选题编号、题干、正确答案、备选项（A、B、C、D）等。l 成绩信息，包括的数据项有:考试、学号、成绩本系统应该建立一个稳定的后台数据库系统，通过该数据库管理整个考试系统所需的信息.1。3 开发环境介绍计算机应用技术的发展使得考试的技术手段和载体发生了革命性的变化,计算机应用的开放性、分布性的特点和基于计算机应用的巨大的计算能力使得考试突破了时间和空间的限制.与传统考试模式相比,计算机考试具有无可比拟的优越性，它可以将传统考试过程中的试卷组织、审定印制、传送收集、登记发放各个环节缩小到一至两个环节，几乎屏蔽了所有人工直接干预考试活动的可能性，不但能够节约大量的时时间、人力、物力与财力,而且还可以大幅度增加考试成绩的客观性和公正性。本系统中的应用程序使用的是Visual Basic设计语言,它是Mricrosoft公司开发的一个套件部分，是一个功能丰富，方便实用的程序开发环境，它的一个很大的特点就是功能强大，编程简单的数据库操作能力。可视化的开发环境,丰富的数据库访问控件的支持,使它成为数据库应用程序项目中重要的开发工具。本系统采用的数据库是ACCESS，它Mricrosoft公司自带一种数据库管理系统，它在数据仓库,数据库解决方案中起着重要的核心作用,是目前广泛使用的一种数据库之一.本系统使用ADO组件，提供了轻量高性能的连接数据库的接口。因此，ADO是如今使用最广泛,应用最成功的数据访问技术。第二章 数据库的设计数据库的库结构对于整个系统的性能起着重要作用。它是本系统的基础。一个题库将存放大量的题目和对学生信息的管理，这些题目在计算机内如何存储将直接影响题库系统的工作效率和效果，因此题库结构的设计是题库系统设计开发的关键一环。题库结构设计时要考虑题库的基本特征。题库结构设计最基础的工作应包括确定题目类型、规定试题属性及题库总体数据结构的确立等几方面。题库是计算机辅助测验系统的基础.一个大的测验系统的题库应能容纳足够数量的题目，这些题目在题库中的组织、分类及其特征信息的确立与描述将直接影响系统的工作效率与效果。本系统总共构建了1个数据库文件，4个数据库,分别为：stu、选择、填空、连线。2-1 数据库设计 本系统内设计有4个数据库，分别为：stu、选择、填空、连线.mdb。分别对应着系统中的选择题，填空题及连线题。将数据库分开主要是为了能够更好的将系统内的数据控件成功绑定在系统内,使得系统在存取数据是不会产生二义性.使系统能够更高效的完成系统内的所有任务，同时也使教师在修改试题是不会产生差错，学生在使用系统时不会有影响。表21 db1。mdb字段名称StunoStunamescores密码node数据类型数字文本数字数字文本字段名称IdTextsasbscsdse数据类型自动编号文本文本文本文本文本文本表2-2选择。mdb表23填空。mdb字段名称id题目空1aa数据类型自动编号文本文本文本表2-4 连线.mdb字段名称A1A2A3A4B1B2B3B4数据类型文本文本文本文本文本文本文本文本2。2 VB程序设计与数据库VB与数据库连接采用了ADO控件连接的方式,方便不易出错。代码连接易出现错误.数据库利用Access，.它Mricrosoft公司自带一种数据库管理系统,它在数据仓库，数据库解决方案中起着重要的核心作用，是目前广泛使用的一种数据库之一，简单学生容易操作。在VB编程中通常要和数据库打交道,对于数据量较小，应用一般选用Access作为数据库，Access数据库比较简单功能也比较齐全，数据备份、拷贝都很方便且发布时不需要额外单独安装其它数据库管理软件Software。因此，在功能能够满足要求条件下，Access数据库往往成为一些小型数据库软件Software的首选。使用ADOD连接数据库：首先声明个链接变量并根据需要声明记录集变量Dim LocCnn1 As ADODB.ConnectionDim LocRst1 As ADODB。Record建立和数据库链接如果数据库没有口令最后行可以不写(写上也不会错） Set LocCnn1 = New ADODB.Connection LocCnn1。Open Provider=Microsoft。Jet。OLEDB.4。0 User ID=Admin _Data Source= App。Path & 数据库名称.mdb _Mode=Share Deny NoneExtended Properties=Persist Security Info=False & _Jet OLEDBDatabase Password=asp561rbc这种思路方法虽然代码长些但对数据环境要求低且结构清晰所编写发布也大为减小由于和链接SQL Server等数据库思路方法样因而大量操作数据库代码相同当数据库需要由Access扩充到些大型数据库或由些大型数据库裁剪出个简单数据库时移植会比较方便另外这种思路方法对于Access2000均能很好地支持兼容性好对于大量插入、删除、修改等操作只在Connection层进行即可既可提高速度又可减少代码如果还要获取具体记录集内容则须再根据条件打开具体库表代码如下：Set LocRst1 = New ADODB。Record LocRst1.CursorType = adOpenKeyLocRst1。LockType = adLockOptimisticLocRst1。Open SELECT FROM 表名 LocCnn1adCmdText第三章 系统实现由于系统的集成设计，是登陆界面有3个登录入口给予选择。分别为：学生状态，教师状态，管理员状态。对应有3个进入时的登录窗体,这样就能满足多个用户登录。在类别中选择的登录的人员类别,其他文本框将会根据所填写的人员类别进行改变.填写好的数据会通过连接数据库的控件提交到数据库，与数据库中的信息进行比较，并完成登录的全过程.3。1登陆界面图 4。1 登陆界面不同权限下的用户登录实现：Private Sub Combo1_Click（index As Integer）If Combo1。Item（0) = ”学生” ThenLabel3.Caption = 学号：”Label4。Caption = ”密码:”ElseLabel3。Caption = 用户名:”Label4。Caption = 密码：”End IfEnd Sub这样可以是不同权限下的用户登录不同的界面。登录代码：Dim stuno As Integer 共声明部分Private Sub Combo1_Click（index As Integer）If Combo1.Item(0) = ”学生” ThenLabel3。Caption = ”学号：Label4。Caption = 密码：”ElseLabel3.Caption = ”用户名：”Label4.Caption = ”密码：End IfEnd SubPrivate Sub Command1_Click(） 登录按钮的单击事件 If Combo1。Item（0） = ”学生 And Text1。Text = Adodc1.Recordset（”stuno) And Text2。Text=Adodc1。Recordset（”密码） ThenDim name As StringDim p As IntegerAdodc1.Recordset.MoveFirstFor p = 1 To stuno For q = 1 To 密码 Adodc1.Recordset.MoveNext Next MsgBox ”您输入的密码不正确，请重新登录, vbCritical, 错误提示学生界面.ShowForm1。HideElseIf Combo1。Item(0) = 管理员” And Text1.Text = ”管理员 And Text2。Text = ”123456 ThenForm1.Hide管理员界面.ShowElseIf Combo1。Item(0) = 教师” And Text1。Text = 1 And Text2.Text = 1” ThenForm1。Hide教师界面.ShowElseMsgBox ”密码或用户名错误,请重新输入！End IfEnd SubPrivate Sub Command2_Click() 空文本框按钮Text1.Text = Text2.Text = ”End SubPrivate Sub Command3_Click() 关闭窗体按钮Me。HideEnd SubPrivate Sub Form_Load() 窗体的装载事件Adodc1.ConnectionString = ”Provider=Microsoft。Jet.OLEDB。4。0；Data Source=” + App.Path + db1.mdb”Adodc1.RecordSource = ”stu”Adodc1.Recordset。MoveFirstAdodc1.RefreshEnd Sub3。2学生界面图4.2 学生界面学生在登录学生界面之后会显示当前登录学生的姓名,方便确认自己的个人信息。在菜单栏中选择题目的类型,查询成绩等操作。登录的判断条件：Private Sub Command1_Click（）Dim p As IntegerDim q As IntegerAdodc1.Recordset.MoveFirst For p = 1 To stuno For q = 1 To 密码 Adodc1。Recordset.MoveNext Next If Text1。Text = Adodc1.Recordset(”stuno） Then lebel.Caption = Adodc1.Recordset（”stuname”) End IfEnd Sub在界面内有菜单栏方便学生跳转题目：例如：Private Sub lian_Click() 跳转到连线题连线。ShowMe。HideEnd Sub3.2。1 选择题图4.3 选择题如果学生选择正确的选项，在公共声明中的add变量将加此道题的相应分数，并累计加到学生信息表中分数字段当中,进行分数的运算累加，完成此次答题.部分代码：Private Sub Option1_Click（）Dim a As IntegerIf Option1。Value = True Thenadd = add + 1End IfEnd Sub3。2。2填空题图 4。4 填空题与选择题相同的是声明部分的add变量在此还是要加或不加，在此需要对学生填入的填空区的字段于数据库中的相应字段进行比较，如果所填字段与数据库中的字段相同,就在add变量加上一定的分数提交到学生信息表中的分数字段中去.代码如下： Private Sub Text2_Change(）If Text3.Text = Adodc1.Recordset(”空1”） Thenadd = add + 1End IfEnd Sub4.2。3连线题图 4.5 连线题连线题使用的是填写号码的方法，这样连线题就不用使用画图任何的工具手动划线,只需将正确的标号填写到正确的位置即可完成连线题。3.3 教师界面图4.6 教师登陆界面教师的主要任务就将试题是录入和修改试题，所以教师主要是在数据库中进行修改等操作,比如对选择题的第一题进行修改的话，就将选择题第一题输入到选定的区域中，点击修改就能将新的题目录入到数据库中。教师修改和维护的题目包括：选择题、填空题、连线题,而这三种试题的修改都是修改数据库中的相应的题目，所以仅以修改选择题为例。修改选择题需要有连接数据库的控件连接,修改完成后将相应的题目更新、保存后,即可存入数据库中。下图为修改选择题的教师界面：图47 教师修改试题界面代码实现:Private Sub back_Click（）Me.HideForm1。ShowEnd SubPrivate Sub Command1_Click（）If Adodc1。Recordset。BOF = True Then MsgBox 没有记录可以添加” Exit Sub End If With Adodc1.Recordset If Not 。EOF And Not 。BOF Then If MsgBox（确认添加当前记录？， vbYesNo + vbQuestion) = vbYes Then 。AddNew 。MoveNext If 。EOF Then .MoveNext End If End If End With Exit SubEnd SubPrivate Sub Command2_Click（）If Adodc1。Recordset。BOF = True Then MsgBox ”没有记录可以更新 Exit Sub End If With Adodc1.Recordset If Not 。EOF And Not 。BOF Then If MsgBox(确认更新当前记录？”, vbYesNo + vbQuestion） = vbYes Then .Update 。MoveNext If 。EOF Then 。MoveNext End If End If End With Exit SubEnd SubPrivate Sub Command3_Click(）If Adodc1。Recordset.BOF = True Then MsgBox 没有记录可以删除” Exit Sub End If With Adodc1。Recordset If Not 。EOF And Not .BOF Then If MsgBox(”确认删除当前记录？”， vbYesNo + vbQuestion) = vbYes Then 。Delete 。MoveNext If 。EOF Then 。MoveNext End If End If End With Exit Sub End SubPrivate Sub exit_Click()Me.HideEnd SubPrivate Sub Form_Load（)Adodc1。ConnectionString = ”Provider=Microsoft。Jet。OLEDB.4.0;Data Source= + App.Path + ”db1.mdbAdodc1.RecordSource = ”stu”Adodc1.Recordset.MoveFirstAdodc1.RefreshEnd Sub填空题代码：Dim add As Integer 公共声明部分Private Sub back_Click（）选择.ShowMe。HideEnd SubPrivate Sub lian_Click（) 连线.Show Me.HideEnd SubPrivate Sub Text2_Change()If Text3.Text = Adodc1.Recordset(空1） Thenadd = add + 1End IfEnd Sub填空题代码:Dim add As Integer 公共声明Private Sub back_Click(）选择。ShowMe。HideEnd SubPrivate Sub lian_Click() 连线。Show Me。HideEnd SubPrivate Sub Text2_Change(）If Text3。Text = Adodc1。Recordset(”空1”) Thenadd = add + 1End IfEnd Sub253。4 管理员界面管理员是整个系统维护者,他主要是对系统的学生信息进行插入及删除的操作,和对数据库中密码的管理，试题的维护工作。图 4.7 管理员界面部分代码：Private Sub back_Click（) 返回菜单Me.HideForm1.ShowEnd SubPrivate Sub Command1_Click（) 添加数据按钮If Adodc1.Recordset.BOF = True Then MsgBox 没有记录可以添加 Exit Sub End If With Adodc1。Recordset If Not .EOF And Not .BOF Then If MsgBox(确认添加当前记录？”, vbYesNo + vbQuestion） = vbYes Then .AddNew .MoveNext If 。EOF Then 。MoveNext End If End If End With Exit SubEnd SubPrivate Sub Command2_Click(） 更新数据按钮If Adodc1。Recordset.BOF = True Then MsgBox 没有记录可以更新 Exit Sub End If With Adodc1。Recordset If Not .EOF And Not .BOF Then If MsgBox（”确认更新当前记录?, vbYesNo + vbQuestion） = vbYes Then .Update 。MoveNext If .EOF Then .MoveNext End If End If End With Exit SubEnd Sub Private Sub Command3_Click() 删除命令按钮If Adodc1。Recordset。BOF = True Then MsgBox 没有记录可以删除” Exit Sub End If With Adodc1.Recordset If Not .EOF And Not 。BOF Then If MsgBox（”确认删除当前记录？”, vbYesNo + vbQuestion) = vbYes Then 。Delete .MoveNext If 。EOF Then .MoveNext End If End If End With Exit Sub End SubPrivate Sub exit_Click（) 退出菜单Me。HideEnd SubPrivate Sub Form_Load(）Adodc1。ConnectionString = Provider=Microsoft。Jet.OLEDB。4.0;Data Source=” + App.Path + ”db1.mdbAdodc1。RecordSource = ”stu”Adodc1.Recordset。MoveFirstAdodc1。RefreshEnd Sub致谢完成这个系统我也学到不少的知识，原来也没有想过vb能做什么,通过制作毕业设计，我才深刻的体会到了，设计是一个非常严谨的学问，他不会给你留一点面子，丝毫不能将设计工作看得太简单了。从中我学到了，如何自主完成毕业设计。在此我要感谢我的导师刘君玲老师给予我的设计思路及方向。在刘老师的督促下，我终于在期限内完成我的毕业设计。我觉得什么事如果你不做永远也不知道你会做还是不会做，开始我也在怀疑自己的能力,不过在刘老师的指导下我完成了设计,也感谢刘老师的支持与鼓励。希望刘君玲老师工作顺利,合家幸福安康。参考文献1 陈明 软件工程N，中央广播电视大学出版社,2001年2 陈明 Visual Basic程序设计N，中央广播电视大学出版社，2000年3 刘韬、骆娟、何旭洪 Visual Basic6。0数据库系统开发实例导航N，人民邮电出版社 2002年4 王利，数据库基础与应用N，中央广播电视大学出版社,1997年5 Bob Reselman ， Richard Peasley ， Wayne Pruchniak. Visual Basic 6.0 使用指南N，电子工业出版社6（美）沸里兹 尹哲等译,Visual basic 数据库编程宝典，电子工业出版社 7 王丽娜、肖京,ACCESS应用技术,东北大学学报 8 肖文辉，试卷自动分析系统设计（电脑科技），中央广播电视大学出版社9 许建龙 林霖 孙进，网络实验测试，浙江工程学院学报