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 subject's 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
第一章 系统分析 1
1.1系统简介 1
1.2 质量分析 3
1.3 开发环境介绍 4
第二章 数据库的设计 6
2—1 数据库设计 6
2。2 VB程序设计与数据库 7
第三章 系统实现 9
3.2学生界面 12
3.2.1 选择题 13
3.2。2填空题 14
4.2。3连线题 15
3.3 教师界面 16
3.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） 成绩查询;
其结构如下图所示：
登录界面

学生
教师
管理员

成绩查询
答试题
申请考试
修改试题
查询成绩
试题录入
增删除信息
管理密码

1—1系统程序流程图

基于以上诸因素的考虑，设计本系统其意旨在于提供一个适合于形成性测试和阶段性测试的实验测试系统。本系统能快速方便地提供上机答题及交卷,免去了纸质试卷开考发卷退考收卷的麻烦，帮助教师把握教学的进度,及时地反馈教学中的问题，以改进教学方法和调整教学重点。教师修改及录入试题,管理员管理学生密码方便快捷。又减少因工作的冗余出现的错误，并且操作非常简单，可减少许多不必要的人员，这无论从物质上还是工作人员的工资上都为学校节约了开支。
实现工具：实验测试系统即以强大的试题数据库作为后台支持，由于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。分别对应着系统中的选择题，填空题及连线题。将数据库分开主要是为了能够更好的将系统内的数据控件成功绑定在系统内,使得系统在存取数据是不会产生二义性.使系统能够更高效的完成系统内的所有任务，同时也使教师在修改试题是不会产生差错，学生在使用系统时不会有影响。
表2—1 db1。mdb
字段名称
Stuno
Stuname
scores
密码
node
数据类型
数字
文本
数字
数字
文本
字段名称
Id
Text
sa
sb
sc
sd
se
数据类型
自动编号
文本
文本
文本
文本
文本
文本
表2-2选择。mdb

表2—3填空。mdb
字段名称
id
题目
空1
aa
数据类型
自动编号
文本
文本
文本
表2-4 连线.mdb
字段名称
A1
A2
A3
A4
B1
B2
B3
B4
数据类型
文本
文本
文本
文本
文本
文本
文本
文本
2。2 VB程序设计与数据库

VB与数据库连接采用了ADO控件连接的方式,方便不易出错。代码连接易出现错误.数据库利用Access，.它Mricrosoft公司自带一种数据库管理系统,它在数据仓库，数据库解决方案中起着重要的核心作用，是目前广泛使用的一种数据库之一，简单学生容易操作。在VB编程中通常要和数据库打交道,对于数据量较小，应用一般选用Access作为数据库，Access数据库比较简单功能也比较齐全，数据备份、拷贝都很方便且发布时不需要额外单独安装其它数据库管理软件Software。因此，在功能能够满足要求条件下，Access数据库往往成为一些小型数据库软件Software的首选。
使用ADOD连接数据库：
首先声明个链接变量并根据需要声明记录集变量
Dim LocCnn1 As ADODB.Connection
Dim 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 NoneExtended Properties='’Persist Security Info=False〃 & _
〃Jet OLEDBDatabase Password='asp561rbc'〃
这种思路方法虽然代码长些但对数据环境要求低且结构清晰所编写发布也大为减小由于和链接SQL Server等数据库思路方法样因而大量操作数据库代码相同当数据库需要由Access扩充到些大型数据库或由些大型数据库裁剪出个简单数据库时移植会比较方便
另外这种思路方法对于Access2000均能很好地支持兼容性好对于大量插入、删除、修改等操作只在Connection层进行即可既可提高速度又可减少代码
如果还要获取具体记录集内容则须再根据条件打开具体库表代码如下：
Set LocRst1 = New ADODB。Record
LocRst1.CursorType = adOpenKey
LocRst1。LockType = adLockOptimistic
LocRst1。Open 〃SELECT FROM 表名〃 LocCnn1adCmdText
第三章 系统实现
由于系统的集成设计，是登陆界面有3个登录入口给予选择。分别为：学生状态，教师状态，管理员状态。对应有3个进入时的登录窗体,这样就能满足多个用户登录。在类别中选择的登录的人员类别,其他文本框将会根据所填写的人员类别进行改变.填写好的数据会通过连接数据库的控件提交到数据库，与数据库中的信息进行比较，并完成登录的全过程.
3。1登陆界面

图 4。1 登陆界面
不同权限下的用户登录实现：
Private Sub Combo1_Click（index As Integer）
If Combo1。Item（0) = ”学生” Then
Label3.Caption = "学号：”
Label4。Caption = ”密码:”

Else
Label3。Caption = "用户名:”
Label4。Caption = "密码：”
End If
End Sub
这样可以是不同权限下的用户登录不同的界面。
登录代码：
Dim stuno As Integer '共声明部分
Private Sub Combo1_Click（index As Integer）
If Combo1.Item(0) = ”学生” Then
Label3。Caption = ”学号："
Label4。Caption = "密码：”
Else
Label3.Caption = ”用户名：”
Label4.Caption = ”密码："
End If
End Sub

Private Sub Command1_Click(） ‘登录按钮的单击事件
If Combo1。Item（0） = ”学生" And Text1。Text = Adodc1.Recordset（”stuno") And Text2。Text=Adodc1。Recordset（”密码"） Then
Dim name As String
Dim p As Integer
Adodc1.Recordset.MoveFirst
For p = 1 To stuno
'For q = 1 To 密码
Adodc1.Recordset.MoveNext
Next
'MsgBox ”您输入的密码不正确，请重新登录", vbCritical, "错误提示"

学生界面.Show

Form1。Hide

ElseIf Combo1。Item(0) = "管理员” And Text1.Text = ”管理员" And Text2。Text = ”123456" Then
Form1.Hide
管理员界面.Show

ElseIf Combo1。Item(0) = "教师” And Text1。Text = "1" And Text2.Text = "1” Then
Form1。Hide
教师界面.Show
Else
MsgBox ”密码或用户名错误,请重新输入！"

End If
End Sub

Private Sub Command2_Click() ‘空文本框按钮
Text1.Text = ""
Text2.Text = ””
End Sub

Private Sub Command3_Click() ‘关闭窗体按钮
Me。Hide
End Sub
Private Sub Form_Load() ‘窗体的装载事件
Adodc1.ConnectionString = ”Provider=Microsoft。Jet.OLEDB。4。0；Data Source=” + App.Path + "\db1.mdb”
Adodc1.RecordSource = ”stu”
'Adodc1.Recordset。MoveFirst
Adodc1.Refresh
End Sub

3。2学生界面

图4.2 学生界面
学生在登录学生界面之后会显示当前登录学生的姓名,方便确认自己的个人信息。在菜单栏中选择题目的类型,查询成绩等操作。

登录的判断条件：
Private Sub Command1_Click（）
Dim p As Integer
’Dim q As Integer
Adodc1.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 If

End Sub
在界面内有菜单栏方便学生跳转题目：
例如：Private Sub lian_Click() ‘跳转到连线题
连线。Show
Me。Hide
End Sub
3.2。1 选择题

图4.3 选择题
如果学生选择正确的选项，在公共声明中的add变量将加此道题的相应分数，并累计加到学生信息表中分数字段当中,进行分数的运算累加，完成此次答题.
部分代码：
Private Sub Option1_Click（）
Dim a As Integer
If Option1。Value = True Then
add = add + 1
End If
End Sub
3。2。2填空题

图 4。4 填空题

与选择题相同的是声明部分的add变量在此还是要加或不加，在此需要对学生填入的填空区的字段于数据库中的相应字段进行比较，如果所填字段与数据库中的字段相同,就在add变量加上一定的分数提交到学生信息表中的分数字段中去.
代码如下：
Private Sub Text2_Change(）
If Text3.Text = Adodc1.Recordset(”空1”） Then

add = add + 1
End If
End Sub

4.2。3连线题

图 4.5 连线题
连线题使用的是填写号码的方法，这样连线题就不用使用画图任何的工具手动划线,只需将正确的标号填写到正确的位置即可完成连线题。
3.3 教师界面

图4.6 教师登陆界面
教师的主要任务就将试题是录入和修改试题，所以教师主要是在数据库中进行修改等操作,比如对选择题的第一题进行修改的话，就将选择题第一题输入到选定的区域中，点击修改就能将新的题目录入到数据库中。教师修改和维护的题目包括：选择题、填空题、连线题,而这三种试题的修改都是修改数据库中的相应的题目，所以仅以修改选择题为例。修改选择题需要有连接数据库的控件连接,修改完成后将相应的题目更新、保存后,即可存入数据库中。下图为修改选择题的教师界面：

图4—7 教师修改试题界面
代码实现:
Private Sub back_Click（）
Me.Hide
Form1。Show
End Sub

Private 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 Sub
End Sub

Private 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 Sub
End 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 Sub
Private Sub exit_Click()
Me.Hide
End Sub

Private Sub Form_Load（)
Adodc1。ConnectionString = ”Provider=Microsoft。Jet。OLEDB.4.0;Data Source=" + App.Path + ”\db1.mdb"
Adodc1.RecordSource = ”stu”
'Adodc1.Recordset.MoveFirst
Adodc1.Refresh
End Sub

填空题代码：

Dim add As Integer ‘公共声明部分

Private Sub back_Click（）
选择.Show
Me。Hide
End Sub

Private Sub lian_Click（)
连线.Show
Me.Hide
End Sub

Private Sub Text2_Change()
If Text3.Text = Adodc1.Recordset("空1"） Then
add = add + 1
End If
End Sub

填空题代码:
Dim add As Integer ‘公共声明
Private Sub back_Click(）
选择。Show
Me。Hide
End Sub
Private Sub lian_Click()
连线。Show
Me。Hide
End Sub
Private Sub Text2_Change(）
If Text3。Text = Adodc1。Recordset(”空1”) Then
add = add + 1
End If
End Sub

25
3。4 管理员界面
管理员是整个系统维护者,他主要是对系统的学生信息进行插入及删除的操作,和对数据库中密码的管理，试题的维护工作。

图 4.7 管理员界面
部分代码：
Private Sub back_Click（) ‘返回菜单
Me.Hide
Form1.Show
End Sub

Private 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 Sub
End Sub

Private 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 Sub
End 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 Sub

Private Sub exit_Click（) ‘退出菜单
Me。Hide
End Sub

Private Sub Form_Load(）
Adodc1。ConnectionString = "Provider=Microsoft。Jet.OLEDB。4.0;Data Source=” + App.Path + ”\db1.mdb"
Adodc1。RecordSource = ”stu”
'Adodc1.Recordset。MoveFirst
Adodc1。Refresh
End 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] 许建龙 林霖 孙进，网络实验测试，浙江工程学院学报