基于VB+ACCESS的检斤队在线考试系统的设计与实现

随着计算机通信技术的发展，无纸化考试已成为主要的考试形式之一，它对于保证考试的实时公正，提质增效等都有积极作用。本文主要介绍了以日照港检斤队局域网为研究开发平台，基于vb和access的在线考试系统设计。检斤员用姓名、密码登录成功后，进入考试页面，随机抽题组卷、在线考试、考试结束后，系统实时自动阅卷评分。

【关键词】检斤队 在线考试系统 vb+access 随机抽题 自动判分

一直以来，检斤队通过每日一题、两月一考的岗位练兵，每年一次的技术比武来巩固和提高检斤员的业务技能。随着港口信息化建设步伐的加快，无纸化在线模拟考试系统和传统的纸质考试方式相比，有着较为明显的优势，不仅能够考核检斤员对专业技能的掌握情况，还能够自动评分，实现了考试的实时性和全面性。此外，还可以把命题者从大量重复的命题、阅卷、成绩统计与分析中解放出来，同时也为公司节省了一大笔打印费用。

1 系统主要功能模块概述

该系统主要使用VB+ACCESS+Visual Studio6.0等开发工具，基于c/s模式进行设计开发，主要由以下几个模块组成：

1.1 个人信息管理模块

该模块分管理人员和检斤员赋予不同权限，主要对参加考试的检斤员信息进行管理。管理人员权限主要包括对检斤员信息的注册、删除、修改、查看成绩及排名等。检斤员只能注册、修改密码、答题、获取考试成绩及排名。

1.2 考试模块

主要实现对检斤员登录姓名、密码进行验证；从已经建好的试题库中随机的抽取试题；对考试时间进行计时；自动阅卷及评分展示。

1.3 成绩管理模块

该模块主要负责对已结束考试的检斤员的成绩进行提取，并对成绩进行分析和总结。

1.4 题库维护

面向管理人员开放，主要负责题库的添加、删除、修改等。题型主要有：单选题、多选题和判断题等。

考试系统数据流程图如图1所示。

2 数据库设计

针对我队员工较少，数据量不多。单机考试时，选用Access2003作为数据库开发工具。根据系统的特点和要求，在该数据库中主要包含以下数据表，每个工作表包含的数据项和数据类型如下：

2.1 检斤员信息表

学号（文本型），姓名（文本型），是否正在考试（是/否型），是否已经考试（是/否型），考试成绩（数值型）。

2.2 管理人员信息表

工号（文本型），姓名（文本型），密码（文本型），权限（文本型）。

2.3 选择题题库表

题干（文本型）、选项a（文本型）、选项b（文本型）、选项c（文本型）、选项d（文本型）、标准答案（文本型）。

2.4 判断题题库表

题干（文本型），标准答案（文本型）。

3 主要模块设计与实现

3.1 登录模块

在使用本系统时，要求检斤员首先对姓名、班组及密码进行注册。然后输入姓名和密码，系统从数据库的检斤员信息表中进行信息检索，如果学号和姓名都正确，则允许该检斤员正常登录本系统；如果姓名或密码中有一项或者两项不正确，则会弹出提示信息，要求检斤员重新输入信息。登录界面如图1所示。

3.2 随机抽题模块

检斤员登录后，系统将随机从题库中抽题组卷。首先会清空“单选题”、“多选题”、“判断题”等工作表中原有的记录，然后再通过调用call（）函数从数据库中的“单选”、“多选”、“判断”等3个工作表中随机抽取规定数量的试题进行组卷，作为该检斤员本次考试的试题，最后再通过以下语句为“检斤员考试”窗体设置数据源：dimdbasdatabasedimrsasrecordsetsetrs=db.openrecordset（“工作表名称”）考试模块主界面如图3所示。

3.3 时间控制模块

在“检斤员考试”窗体的右上角设置了一个考试时间的倒计时，当考试时间还剩2分钟的时候，系统将自动给出提示；当考试时间已到，而检斤员还没有交卷，系统将自动强行收卷。

系统中设置了一个保存考试时间的全局变量time，初始化为本场考试的总时间60分钟。在本模块中添加了一个计时器控件timer，并将其interval属性设置为3600，以实现每秒钟将全局变量time的值减1，实现倒计时。

3.4 交卷评分模块

本系统先从数据库data中取得“标准答案”和“检斤员答案”等字段值，并将它们分别显示在“试卷评分”窗体中对应的文本框中，以方便检斤员了解本次考试的答题情况；然后系统再把“标准答案”和“检斤员答案”的字段值进行比较，如果相同就表明本道题该检斤员答对了，则需要把成绩字段值加1且成绩累加，如果不同就表明本道题该检斤员答错了，则需要把本道题对应题号以红色显示，以方便检斤员查询试题的答题情况；

部分代码：intDX = rsStudent.Fields（4）.Value / rsDX.RecordCount

rsDX.MoveFirst

Do While Not rsDX.EOF

If rsDX.Fields（2）.Value = rsDX.Fields（3）.Value Then

Score = Score + intDX

End If

rsDX.MoveNext

Loop

最后把该检斤员的单选成绩显示在窗体的“单选题”文本框中，并且把总成绩保存到data数据库的检斤员信息表且显示在红色文本框中。 该模块的界面如图2所示。

4 结束语

本系统结合我队实际情况，经过多次修改和调试，已基本上满足检斤队日常考试所要求的准确性、稳定性和通用性，能对检斤员业务技能情况做到较好掌握，但在一些方面还需要进一步深入和完善，如：可将更优的遗传算法应用到自动组卷中；可应用SQLServer数据库实现更强的应用性、可维护性和可扩展性等。

参考文献

[1]潘晓辉.在线考试系统中组卷技术的研究[J].价值工程，2010，29（14）.

[2]李程.学生成绩管理系统的设计与实现[D].大连理工大学（硕士论文），2009.