VB课程设计论文自测考试管理系统

1、自测考试管理系统 VB课程设计目录第一章 绪论11.1课题背景11.2开发工具11.2.1 Visual Basic 6.0简介1第二章 可行性分析22.1 技术可行性分析22.1.1 技术支持2软件资源2第三章 需求分析33.1系统需求分析3功能需求3性能需求3第四章 系统设计44.1 前台模块设计：4功能描述：4系统功能模块设计：4系统功能流程设计：5第五章 详细设计75.1 系统的一些主要编码和界面：7启动窗口7系统登录窗口8系部信息管理8班级信息管理12学生信息管理12阅卷教师信息管理13判断题、单项选择题、填空、程序阅读题库管13手工选题窗口15试卷评阅16成绩查询16考试客户端登录

2、17第六章 结束语18参考文献19第一章 绪论1.1课题背景今世界是21世纪，在工农业不断发展的同时，Internet也迅速发展起来，而且已经飞速改变了人们的生活和工作。有一些个人和单位现在根本是离不开Internet。如大专院校以及各种培训机构,为了提高教学质量,开发了自测考试管理系统,学生可以自己检测自己,及时发现自己的不足,提高成绩!同时教师也可以运用检测学生提高工作效率. 同时建立学生考试管理系统，采用计算机对学生成绩进行管理，进一步提高办学效益和现代化水平帮助广大教师提高工作效率，实现学生成绩信息管理工作流程的系统化，规范化和自主化。1.2开发工具 本系统前台使用Visual Bas

3、ic 6.0开发，后台使用强大的数据库软件 SQL Server 2000。 1.2.1 Visual Basic 6.0简介 Visual Basic 是Microsoft公司推出的一种Windows应用程序的开发工具。由于它具有使用方便，简单易学、功能丰富等特点，迅速成为最流行的Windows应用程序的开发工具之一，数据访问特性允许对包括Microsoft SQL Server和其他企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。 作为数据库系统的开发，Visual Basic是一个非常理想的选择，该开发工具具有很多长处：Visual Basic是一种可

4、视化的、面向对象和调用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的各种应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。第二章 可行性分析2.1 技术可行性分析技术可行

5、性分析主要包括四个方面：目前有关的技术能否支持所开发的新系统；新系统开发人员的数量和水平，即人力资源；硬件和软件资源。2.1.1 技术支持首先根据新系统的目标，考虑目前有关的技术能否支持所开发的新系统。这里讨论的技术必须是已经普遍使用的，而不是待研究的或正在研究的，本系统用Visual Basic 6.0和SQL Server 进行开发，Visual Basic 是Microsoft公司推出的一种Windows应用程序的开发工具，是目前最流行的Windows应用程序的开发工具之一.2.1.2软件资源软件资源的可行性分析主要考虑以下几点是否满足用户的要求：操作系统的选择； Windows 200

6、0/2003/xp/vista开发工具的选择； Visual Basic 6.0数据库管理系统的选择； SQL Server 2000高级编程语言的选择； Visual Basic汉字处理系统的选择； Microsoft office 2003第三章 需求分析3.1系统需求分析系统需求分析是开发管理信息系统的关键性阶段，是一个从不断认识和逐步细化的过程，是下一阶段的工作基础，是为下一阶段进行物理方案设计、解决“怎么做”提供依据，基关键性主要体现在“理解需求”和“表达需求”两方面，本系统的需求分析如下：用户登录窗体学生用户教师用户参加考试查询成绩、答案及试卷解析管理界面试卷管理用户管理3.1.1

7、功能需求自测考试管理系统主要涉及的信息数据主要包括系统管理员、系部信息、班级信息、班级信息、学生信息、阅读教师信息和成绩信息等基本信息，以及考试试题和各种题库等数据，涉及的操作主要包括各种信息数据的管理，为考试定制试卷、题库管理、学生考试、试卷评阅和成绩查询等管理操作。3.1.2性能需求考虑到目前该系统正处于课程设计阶段，所以对该系统没有什么严格要求。但该系统今后可能投入到商业化运营中，故系统的总体性能应该有一定的严格要求，具体如下：联机系统对用户请求的响应时间不应超过10S，以免产生等待感；系统需要的存储容量：硬盘不应该少于40G，内存不少于128M；作为服务器的计算机，CPU最好在PIII

8、733以上。而在安全性方面采用Windows NT安全认证机制。第四章 系统设计4.1 前台模块设计：功能描述：经考察与分析，典型的自测考试管理系统主要应具有以下功能：1. 基本信息管理：包括对系统管理员登录信息、系部信息、班级信息、学生信息、阅卷教师信息的录入、修改、删除等功能。2. 考试试题管理：包括对历届试题的删除、定制考试试卷、选择题考试试题等功能。3. 题库管理：包括对判断题、选择题、程序阅读题、程序填空题等题库的管理功能。4. 考试管理：学生考试、试卷评阅、考试成绩查询功能。系统功能模块设计：对上述各项功能进行集中、分块，按照结构化程序设计的要求，得到系统功能模块图。系统功能模块图

9、如下：图 4.1自测考试管理系功能模块图系统功能流程设计：根据系统功能模块结构图和自测考试管理流程,绘制出4.2自测考试管理系数据流图图 4.2自测考试管理系数据流图第五章 详细设计 5.1 系统的一些主要编码和界面：启动窗口 图5.1系统登录启动屏幕在启动屏幕时测试是否能够正确连接数据库服务器，如果不能正确连接数据库服务器，显示相应的提示信息，不再继续启动系统。主要代码如下：Private Sub Form_GotFocus() On Error GoTo DealError '测试是否可联接到SQL Server服务器 Me.Enabled = False '在测试完成之前

10、，禁止窗体响应用户操作 '创建与数据库的联接 Dim objCn As New Connection '定义并实例化联接对象 With objCn '建立数据库联接 .Provider = "SQLOLEDB" .ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=exam1;Data Source=MICROSOF-88DEE5" .Open '打开数据库联

11、接 .Close '关闭数据库联接 End With Set objCn = Nothing '释放数据库联接 Label1(4) = "已联接到数据库服务器" '提示联接到数据库服务器 Timer1.Interval = 3000 '启动计数器，定时为三秒 Me.Enabled = True '允许窗体响应用户操作 Exit SubDealError: '在不能正确联接数据库服务起伏时显示提示信息 MsgBox "不能正确联接数据库服务器，请与系统管理员联系！", vbCritical Unload Me

12、 '关闭窗体End Sub5.1.2系统登录窗口 图5.2用户登录主要代码（略）5.1.3系部信息管理图5.3系部管理主要代码如下：Private Sub cmdMove_Click(Index As Integer) With objDepart Select Case Index '切换当前记录 Case 0 '使第一个记录成为当前记录 If .RecordCount > 0 And Not .BOF Then .MoveFirst Case 1 '使上一个记录成为当前记录 If .RecordCount > 0 And Not .BOF The

13、n .MovePrevious If .BOF Then .MoveFirst End If Case 2 '使下一个记录成为当前记录 If .RecordCount > 0 And Not .EOF Then .MoveNext If .EOF Then .MoveLast End If Case 3 '使最后一个记录成为当前记录 If .RecordCount > 0 And Not .EOF Then .MoveLast End Select If .RecordCount < 1 Then txtNews = "记录：无" '

14、;显示无记录提示 txtNum = "" txtName = "" Else '显示当前记录数据 txtNum = .Fields("编号") txtName = .Fields("名称") '显示当前记录编号和记录总数 txtNews = "记录：" & .AbsolutePosition & "/" & .RecordCount End If End With If isAdding Then isAdding = FalseEnd

15、 SubPrivate Sub cmdAdd_Click() txtNews = "添加新记录" txtNum = "" txtName = "" isAdding = True txtNum.SetFocusEnd SubPrivate Sub cmdDelete_Click() '根据是否处于添加记录状态执行不同的操作 If isAdding Then '退出添加记录状态，显示当前记录 isAdding = False If objDepart.BOF And objDepart.EOF Then txtNews

16、= "记录：无" '显示无记录提示 Else '显示当前记录数据 txtNum = objDepart.Fields("编号") txtName = objDepart.Fields("名称") '显示当前记录编号和记录总数 txtNews = "记录：" & objDepart.AbsolutePosition & "/" & objDepart.RecordCount End If Else If objDepart.RecordCount &

17、gt; 0 Then '检查在教师信息和学生信息表中是否使用了当前记录的编号 '如果被使用，则不执行删除操作 Dim objTemp As New Recordset With objTemp Set .ActiveConnection = objCn '设置数据库联接 .CursorLocation = adUseClient '指定使用客户端器游标 .CursorType = adOpenStatic '指定使用静态游标 '获取使用了该编号的第一条记录 .Open "SELECT TOP 1 * FROM 学生信息 WHERE 系部

18、='" & Trim(txtNum) & "'" If .RecordCount > 0 Then MsgBox "编号被学生信息表使用，不能删除当前记录！", , "系部信息管理" Exit Sub End If .Close End With Set objTemp = Nothing '可以删除，请求确认执行删除操作 If MsgBox("是否删除当前记录？", vbYesNo + vbQuestion, "系部信息管理") = vb

19、Yes Then '执行删除当前记录操作 objDepart.Delete '显示下一记录数据 cmdMove(2).Value = True Else '显示当前记录数据 txtNum = objDepart.Fields("编号") txtName = objDepart.Fields("名称") '显示当前记录编号和记录总数 txtNews = "记录：" & objDepart.AbsolutePosition & "/" _ & objDepart.

20、RecordCount End If End If End IfEnd SubPrivate Sub cmdSave_Click() If Len(Trim(txtNum) <> 8 Then MsgBox "系部编号必须为8位字符串！", vbCritical, "系部信息管理" txtNum.SetFocus txtNum.SelStart = 0 txtNum.SelLength = Len(txtNum) Exit Sub End If If Trim(txtName) = "" Then MsgBox "

21、;系部名称不能为空！", vbCritical, "系部信息管理" txtName.SetFocus txtName = "" Exit Sub End If '在进一步保存添加的新记录或修改的当前记录之前，检查编号是否重复 Dim objCopy As New Recordset Set objCopy = objDepart.Clone If objCopy.RecordCount > 0 Then objCopy.MoveFirst objCopy.Find "编号='" & Trim(t

22、xtNum) & "'" If (isAdding And Not objCopy.EOF) Or (Not isAdding And Not objCopy.EOF And _ objCopy.AbsolutePosition <> objDepart.AbsolutePosition) Then MsgBox "编号：" & Trim(txtNum) & "已被使用，请使用其他编号！", _ vbCritical, "系部信息管理" txtNum.SetFocus t

23、xtNum.SelStart = 0 txtNum.SelLength = Len(txtNum) Exit Sub '编号重复，直接退出 End If End If '编号不重复，执行下一步保存操作 With objDepart If isAdding Then '添加新记录 .AddNew Else '保存被修改的当前记录 If objDepart.Fields("编号") <> Trim(txtNum) Then If MsgBox("修改编号将影响教师信息和学生信息表中的相关记录，是否继续？", _ v

24、bYesNo + vbQuestion, "系部信息管理") = vbNo Then '取消保存操作，还原当前记录 txtNum = .Fields("编号") txtName = .Fields("名称") Exit Sub '退出过程 End If End If End If '修改记录 .Fields("编号") = Trim(txtNum) .Fields("名称") = Trim(txtName) '执行更新操作 objDepart.Update Msg

25、Box "数据保存成功！", vbInformation, "系部信息管理" isAdding = False '显示当前记录编号和记录总数 txtNews = "记录：" & objDepart.AbsolutePosition & "/" & objDepart.RecordCount End WithEnd Sub5.1.4班级信息管理图5.3班级信息管理主要代码：代码类似系部信息管理（略）5.1.4学生信息管理图5.4学生信息管理主要代码：代码类似系部信息管理（略）阅卷教师信

26、息管理图5.5阅卷信息管理主要代码：代码类似系部信息管理（略）5.1.6判断题、单项选择题、填空、程序阅读题库管图5.6单项选择题 图5.7程序阅读题 图5.8判断题 图5.9填空题 主要代码：代码类似系部信息管理（略）5.1.7手工选题窗口图5.10 手工选题主要代码（略）5.1.8试卷评阅 图5.11 试卷评阅主要代码（略）5.1.9成绩查询图5.12 成绩查询5.1.10考试客户端登录图5.13 考试系统客户端登录（2）数据库设计学生信息表数据结构字段名数据类型备注学号数字具备单一性姓名文本与学号对应照片OLE对象与学号对应密码文本学生教师均可修改总分数字每次答题后更新数据来源：通过教师用户登录进入用户管理模块进行添加、修改、删除。教师教师信息表数据结构字段名数据类型备注登陆账号文本可添加、修改、删除密码文本教师用户可修改数据来源：通过教师用户登录进入用户管理模块进行添加、修改、删除。题库表数据结构字段名数据类型备注套卷文本标明试题所属卷试题类型文本表明试题类型题号文本每套试题号分别编写题干文本A选项文本只录入选择题选项，填空题此字段为空B选项文本C选项文本D选项文本正确答案文本选择题答案为选项，填空题为内容详解文本答案解析学生答案文本每次答题保存后更新作答情况文本保存后提示“以保存”分值数字与