模拟考试系统的设计和实现

1、1 模拟考试系统的设计和实现模拟考试系统的设计和实现 摘 要 随着计算机技术在现代化教学系统中的广泛应用，以及我国大专院校规模 的不断扩大和上级考试的日趋繁琐，模拟考试系统已成为许多学校模拟考试过 程中不可缺少的一部分。面向校园公共机房的模拟考试系统，可以看作是教师、 学生、机房等教学中不可缺少系统，它是计算机信息管理在学校教学活动中的 又一个重要的应用。是基于局域网，具有随机考试、成绩回收、考务管理等功 能，适用于院校的无纸化考试系统。 我们将此系统与国内现有的原有的模拟考试系统进行了比较，分析了它的 技术可行和经济可行性。同时进行了市场调查，进行了必要的需求分析，最终 确定有必要设计这个模

2、拟考试系统。本系统的开发主要包括后台数据库的建立 和维护以及前端应用程序的设计两个方面。对于数据库要求实现数据的一致性、 完整性和安全性，而对于应用程序则要求功能完善、简洁易用。 经过分析，我们决定前台使用 microsoft 公司的代表性开发工具 visualbasic6.0。后台使用 sql server2000。并且采用 odbc 连接数据库。众 所周知，vb 开发的应用程序（尤其是数据库应用程序）代码操作数据库效率高、 具有组件丰富、语言简单、功能强大的优点。利用 vb6 提供的面向对象开发思 想和各种实用美观的数据库程序，我们能在最短的时间内完成系统开发满足模 拟考试系统的需要。 关

3、键字关键字：模拟系统；vb6；sql server；odbc abstractabstract with modern computer technology in the teaching system in the broad application, as well as the scale of chinas tertiary institutions are continuously expanding and increasingly complex higher-level examinations, the examination system has been simulat

4、ed in many schools in the process of mock examinations indispensable part. campus room for the public examination system simulation can be seen as teachers, students, teaching rooms, and other indispensable system, which is computer information management in the teaching and learning activities in s

5、chools is another important application. is based on the lan, with random examinations, 2 results recovery, examination management, and other functions, applicable to institutions paperless examination system. we see this system and the existing domestic original mock examinations system has been co

6、mpared and analyzed its technical feasibility and economic feasibility. at the same time carried out a market survey, carried out the necessary analysis of requirements and the need to determine the final design of the mock examinations system. the development of the system including the main backgr

7、ound of the establishment and maintenance of database front-end applications, as well as two aspects of the design. the database requirements for data consistency, integrity and security, and application procedures for the functional requirements of perfect simplicity. after analysis, we decided to

8、use microsofts future development tools visualbasic6.0 representative. background using sql server2000. and using odbc database connectivity. as we all know, the development of vb applications (especially database applications) code database high efficiency operation with components rich in language

9、 simple, powerful advantages. vb6 provided by the use of object-oriented thinking and the development of a range of practical handsome database program, we can in the shortest period of time in the system development system to meet the needs of mock examinations. keywords:keywords: simulation system

10、; vb6; sql server; odbc 3 目 录 1可行性研究.4 1.1项目编写目的.4 1.2项目背景.5 1.3项目可行性评估.5 1.3.1经济可行性.6 1.3.2时间可行性.6 1.3.3技术可行性.6 1.3.4社会可行性.6 2需求分析.7 2.1市场需求.7 2.2软件功能分析.7 2.3软件的非功能性需求.7 2.4软件其他方面的要求.8 3环境与系统结构要求.9 3.1硬件环境需求.9 3.2编程环境.9 3.2.1vb6.0.9 3.2.2sql server 2000.10 3.2.3odbc .10 3.3系统结构 c/s 模式.11 4系统总体设计.12

11、 4.1系统体系结构.12 4.2系统功能概述.14 4.2.1题库管理.14 4.2.2题库维护.14 4.2.3试卷提交地址.15 4.2.4卷号设置.15 4.2.5考试时间设置.15 4.2.6练习系统.15 4.2.7考试系统.15 4.2.8查看成绩.15 4.2.9系统实现.16 4.3数据库设计.16 4.3.1数据库的概述(数据库连接方式).16 4.3.2数据库设计.17 5详细设计及编码.19 5.1用户登录.19 5.2题库设计.20 5.3模拟考试实现.20 5.3.1练习或考试模式.21 5.3.2选择题答题.22 5.3.3设置试卷提交地址.23 4 5.3.4卷

12、号维护.24 5.3.5题库维护.26 5.3.6考试时间设置.31 5.3.7查看成绩.32 6总结.34 7参考文献.35 1 可行性研究可行性研究 1.1 项目编写目的项目编写目的 随着社会的快速发展，计算机科学技术的日趋完善，人们传统的思想观念 和生活方式开始改变，一切向着高效率发展，各个高校越来越注重对学生的实 践动手能力，特别是计算机专业的学生，这样以来，增加了教师阅卷的负担， 因此，开发一个完善的模拟考试系统，是非常有必要的，但是由于资源缺乏和 交付时间限制的困扰，使得开发工作变得比较困难，可行性研究的目的就是为 了解决这问题。 本系统的目标是在客户机/服务器上设计考试系统,所以

13、首先要考虑的是系 统的安全性,尽可能地减少考试中的数据流失。因此,本系统的体系结构建立在 c/s 基础上,通过与 c/结构的数据库系统结合,真正实现了数据的安全由于本 在线考试系统是实现将现有的纸张答题式考试向基于 internet 的无纸张考试系 统的转变，所以他必须实现整个考试流程的进行，实现对系统的帐户不同管理， 以及完成阅卷、6 评分这些环节的处理。由于系统数据收集的实时性要求并不 高，因此采用 c/s 结构来进行设计是合理可行的。在根据现有的技术，采用 vb6 + sql server + odbc 技术完全可以高效、快速地开发出该系统。 由于采用 vb6，开发方式能为我们尽可能的缩

14、短开发周期，节约系统的开 发费用，避免人力、物力的浪费。 参照其他考试系统，界面上完全可以实现与用户的良好交尽可能地减少让 用户难以操作的交互方式。 5 1.2 项目背景项目背景 随着计算机技术的发展及应用,使得现在的教育方式和方法面临着前所未有 的挑战。计算机教育作为一种新的重要的教学形式,呈现出广阔的发展前景。模 拟考试是计算机教育的一部分,是不可缺少的教学环节。采用模拟考试或利用计 算机进行考试可以提高教学效率,而且是以后考试发展的必然趋势。 模拟考试系统的大致思想是：提供考生在计算机上考试功能，让考生即时答题， 即时评分。所谓模拟考试系统，就是一个在服务器上运行的程序，该程序从服 务器

15、数据库中读取考试题目的内容供考生测试，并把考生的答案与数据库中的 正确答案比较，从而完成出题和评分的功能。 现阶段，学校与社会上的各种考试大都采用传统的考试方式，在此方式下， 组织一次考试至少要经过五个步骤，即人工出卷、考生考试、人工阅卷、成绩 评估和试卷分析。显然，随着考试类型的不断增加及考试要求的不断提高，教 师的工作量将会越来越大，并且其工作将是一件十分烦琐和非常容易出错的事 情，可以说传统的考试方式已经不能适应现代考试的需要。相比于传统的考试 方式，模拟考试系统的主要好处是一方面可以动态的管理各种考试信息，只要 准备好足够大的题库，就可以按照要求自动生成各种试卷；另一方面，计算机 化考

16、试阅卷能力快，系统可以在考试结束时当场给出考试结果，并且计算机考 试给了考生最大的公平感。 模拟考试极大的提高了教学的灵活性，现在在许多领域已经有了广泛的应 用。最有影响的案例就是 ets（美国教育考试中心）举办的 gre（美国研究生入 学考试）的计算机化考试，它使考试由原来的每年只能有两次参加考试的机会 便为每个工作日都可以参加考试。因此，采用模拟考试方式将是以后考试发展 的趋势，模拟考试必将会日益盛行。本系统讲述了一个模拟考试系统的实现过 程，该系统基本上可以满足考生考试的需要。希望能对考生有所帮助。 1.3 项目可行性评估项目可行性评估 任何一个系统或一项工程，在建立之前，必须首选进行可

17、行性分析，可行 性分析包括两层含义，一是可能性，二是必要性。可能性指开发信息系统的条 6 件是否具备，必要性是指客观上是否真正需要，通过可行性研究，可避免盲目 投资，减少政治性要的损失。下面从四方面来讨论： 1.3.1 经济可行性经济可行性 主要是只指算一个新的系统开发所需要的投资费用和运算费用，并与估计 的新系统收益进行比较，看是否有利。本系统所需的软硬件成本比较低，投资 小，具有一定的通过性，因此 ，在经济上是可行的。 1.3.2 时间可行性时间可行性 主要包括系统在目前环境下能否正常运行，运行后所引起的各方面，以及 这些变化对社会或人的因素所产生的影响。本系统对人事的管理比较全面，可 长

18、期使用。 1.3.3 技术可行性技术可行性 利用现有的设备，软件及技术人员，新系统的目标能否达到，这也是可行 性研究中需要考虑的一个问题。关系型数据库的高速发展使管理信息系统具备 了良好的开发环境。本系统使用的 vb 普及性好，操作简单，用户可以很快掌 握使用方法，因此，在技术上是完全可行的。 1.3.4 社会可行性社会可行性 人类社会文明的发展已进入信息化的高速发展时期，传统的手工方式支持 下的管理模式，已经不能满足各方面的需要。开发本系统的目标不仅是提高工 作效率，减轻劳动强度，而且减少出错率，具有很好的社会意义。 7 2 需求分析需求分析 2.1 市场需求市场需求 为了满足市场的需求，软

19、件的设计必须有一定的市场针对性。考试系统软 件是为了针对现在学校的考试的增加和规模的增大而造成的人工管理压力，和 人力难以实现监控考试的情况，而设计的辅助教师进行考试的管理工作的一种 小型考试软件。它以其独特的功能和良好的适应性和兼容性来适应市场发展的 需求，并且由于其尚处于继续改进的阶段，改进的考试系统软件将不断的涌向 市场。 2.2 软件功能分析软件功能分析 根据高校管理的实际要求，结合考试管理的实际过程，系统应该实现以下 功能： (1)掌握本考试系统范围内所有用户的基本情况，包括编号，姓名，登录口 令等。 (2)基于考试系统的基本功能管理，本系统可以提供给管理员类用户及学生 类用户使用。

20、不同的用户类型所能完成的功能不同。教师类用户可以创建试题、 删除过期试题、进行题库维护、创建试卷以及对本系统内人员信息进行维护和 更新等；学生类用户主要是参与考试，完成试卷，查询成绩。 (3)适时的试题题库更新，试题题型包括判断题、选择题类型。试题库的更 新由管理员类用户完成。学生类用户不允许对试题进行更新。 (4)试卷可由本系统自动生成，也可以由管理员类用户从题库中选择试题创建。 2.3 软件的非功能性需求软件的非功能性需求 作为一种软件产品，除了在功能方面必需达到用户的基本要求以外，还必 需在意一些非功能方面的因素，诸如：软件的用户操作界面的美观和简洁，以 及界面图标的标准化和规范化。软件

21、要有一定的兼容性，应该兼容当前的主流 操作系统平台，象 windows 98/nt/me/2000/xp/2003 等。硬件方面应当要求配 8 置低一点，象这样的小型开发软件应该适用于现大多数的计算机网络系统。而 且，最好是可以适应打印机等其它硬件设备，而本软件就很好地做到了这一点。 2.4 软件其他方面的要求软件其他方面的要求 (1)在软件程序设计过程中，依据国家计算机软件产品开发文件编制指南 和现代软件工程两项理论与原则的要求，应当编制标准的软件技术文档。 如软件使用的编码必须符合 c#编程的编码设计标准与规范，其使用的对象名、 对象类型和命名约定应该一致并规范化。软件编码时应注意代码清晰

22、、可读性 好，还要运用缩进、空行等必要的格式，结合大小写的区别等方法保持程序结 构良好。涉及多表操作的模块应运用“事务”处理，以保持数据完整性。 (2)软件的设计应该有一个完整的过程，各个步骤都必须做到。一般一个完 整的软件设计过程总体分为三个阶段： 1.软件的开发设计阶段。这一阶段一开始要对所开发的软件项目先做一个 市场调查，分析其市场需求的大小和需求度。然后根据市场调查对软件做一个 概念性的设计，确定软件的方向和重点。接着就进行概要性的设计，将软件的 基本框架进行整理和确定。接下来就是详细的设计，这个过程是软件设计的重 点。详细的设计完成之后，软件的开发设计阶段也就结束了。 2.软件的操作

23、和实现阶段。这一阶段主要就是要将设计出来的软件进行各 个功能的具体实现情况进行检验，看是否与开发设计的要求达到一致。为软件 的成功投放市场进行质量上的严格把关。 3.软件的市场检验和改进完善阶段。软件经过市场的检验之后，要进行一 系列的改进与升级换代。要知道一个成功的软件产品往往能改进成好几代的产 品，这主要是软件为了不断满足市场新的变化需求。这也是促进计算机软件领 域不断发展的原因之一。 9 3 环境与系统结构要求环境与系统结构要求 3.1 硬件环境需求硬件环境需求 cpu：piv 2.0ghz 或更高频率的 cpu 内存：ddr333 256mb 或更多的内存 硬盘：至少 10g 以上或更

24、多的硬盘空间 3.2 编程环境编程环境 需要运行该应用的 vb6.0 软件 能够存储该应用的所有数据所需的 sqlserver2000 数据库 3.2.1 vb6.0 vb6.0 所具有的特点： 1.具有面向对象的可视化设计工具 2.事件驱动的编程机制 3.提供了易学易用的应用程序集成开发环境 4.结构化的程序设计语言 5.支持多种数据库系统的访问 由于 vb6.0 具有可视化设计截面，因此开发起来比较快。并且截面设计比 较快。并且也支持多数据库系统访问，因此今后在别的系统中继承起来也比较 方便。由于提供易学易用的程序集成开发环境，因此对于新手上手比较快。综 合上面 vb6.0 的一些优点所以

25、我选择 vb6.0 来开发我的系统。 3.2.2 sql server 2000 用户对数据库的使用，是通过数据库管理系统提供的语言来实现的。不同 的数据库管理系统提供不同的数据库语言。关系数据库管理系统几乎都提供关 10 系数据库标准语言sql。sql 的全称是 structured query language，即结 构化查询语言。sql 语句可以从关系数据库中获得数据，也可以建立数据库、 增加数据、修改数据。1986 年 ansi 采用 sql 语言作为关系数据库系统的标准 语言，后被国际化标准组织（iso）采纳为国际标准。sql 语言使用方便、功能 丰富、简洁易学，是操作数据库的工业标

26、准语言，得到广泛地应用。同时，其 它数据库产品厂家也纷纷推出各自的支持 sql 的软件或者与 sql 的接口软件。 这样 sql 语言很快被整个计算机界认可。 sql 语言是一种非过程化语言，它一次处理一个记录集合，对数据提供自 动导航。sql 语言允许用户在高层的数据结构上工作，而不对单个记录进行操 作。sql 语言不要求用户指定数据的存取方法，而是使用查询优化器，由系统 决定对指定数据存取的最快速手段。当设计者在关系表上定义了索引时，系统 会自动利用索引进行快速检索，用户不需知道表上是否有索引或者有什么类型 的索引等细节。 3.2.3 odbc 开放式数据库连接 (odbc) 技术为访问不

27、同种类的 sql 数据库提供了通用 接口。odbc 是基于结构查询语言 (sql) 的，以此作为访问数据的标准。此接 口提供了最大的互操作性：一个应用程序可以通过一组公用代码访问不同的 sql 数据库管理系统 (dbms)。这使得开发人员能够在不以特定的 dbms 为目标 的情况下构建和分发一个客户端/服务器应用程序。然后，会添加数据库驱动程 序以将应用程序链接到用户选择的 dbms。 以下特性说明了 odbc 的灵活性： 应用程序没有绑定到专有供应商 api。 sql 语句可以明确地包括在源代码中也可以在运行时即时构建。 应用程序可以忽略基础数据通信协议。 数据可以用方便于应用程序的格式进行

28、发送和接收。 odbc 是随新兴的国际 iso call-level interface 标准一起设计的。 目前提供了可用于 55 种最流行的数据库的 odbc 数据库驱动程序。 11 3.3 系统结构系统结构 c/s 模式模式 设计这个系统时，有个问题摆在我面前，那就是对于这个系统我是采用 c/s 模式进行开发呢，还是 b/s? 于是我把这两个的优缺点例举下来，进行了一个比较。 c/sc/s 模式开发考试系统模式开发考试系统 优点：优点： 由于 c/s 模式是通过客户端直接与服务器交互数据，因此其相应速度比 较快，不需要通过 ie 浏览器进行数据传输，因此数据比较安全。很适合适 时提交数据系

29、统。 缺点：缺点： 由于是直接用客户端直接与服务器交互，因此需要为每台电脑安装客户 端，因此对电脑的配置要求比较高。并且对系统升级的话，就增加了升级 的复杂性，因为需要为每台电脑都更新客户端。 b/sb/s 模式开发考试系统模式开发考试系统 优点：优点： 由于 b/s 模式是通过 ie 浏览器来访问，所以它适合分散性的考试系统， 并且用户只需要能访问 ie 就可以参加考试。由于只需要对服务器进行更新， 所以更新起来比较快。 缺点：缺点： 由于采用 ie 浏览器经过网络传输，因此数据的安全性不高，很可能导 致数据的丢失，由它没有客户端因此客户端只能进行一些数据的查询，读 写，都需要跟远程服务器进

30、行交互，因此增加了服务器的压力。并且不适 合适时的数据进行交互，这样会导致服务器压力会很大。 综合上面 b/s 与 c/s 的优缺点可知，由于我们考试系统适用与学校，并 12 且对数据交互比较频繁，对数据的安全性需要很高。因此我们将采用 c/s 模式来开发该系统。 4 系统总体设计系统总体设计 4.1 系统体系结构系统体系结构 模拟考试系统的操作对象分为教师和考生，角色不同,操作的模块也不同， 其系统逻辑模型，如图所示。 考试模块结构图 登陆界面 练习系统 考试系统 教师模块结构图： 13 登陆界面 提交地址 卷号维护 题库维护 考试时间 查看成绩 模拟考试流程图： 考生登陆 获取用户角色 随

31、机获取试卷种类 随机生成试卷 显示试卷 结束 系统模块划分图 14 网上考试系统 用户登录题库管理 在线答题 系统数据访问层 数据库 4.2 系统功能概述系统功能概述 4.2.1 题库管理题库管理 试题类别管理，主要实现试卷类别的添加、删除、修改和排序功能； 考试试题管理，主要实现试题的添加、删除和修改功能； 试题答案管理，主要实现试题的答案的添加、删除和修改功能。 动态随机生成试卷使用随机函数动态地从题库中取得整张试卷的题目， 每次生成的试卷是不相同的 4.2.2 题库维护题库维护 教师负责维护题库和查看统计考生成绩,学生在考试机器上随机抽取题库题 目进行练习或考试,考试后统计成绩进入后台成

32、绩表。 此权限只有老师可以使用： （1）增加题库：增加选择题或填空题进入题库并存档； 15 （2）删除题库：从题库中删除选择题或填空题； 4.2.3 试卷提交地址试卷提交地址 将考生考试后传递文件地址保存 4.2.44.2.4 卷号设置卷号设置 （1）增加卷号：增加随机出卷的卷套； （2）删除卷号：删除随机出卷的卷套以及卷套下属的题目。 4.2.5 考试时间设置考试时间设置 老师可以根据考试的内容设定考试的时间，并存档到数据库。当学生考试时 只能在老师设定的时间内进行答题。 4.2.6 练习系统练习系统 考生选择进入练习系统后，考生如正常考试一样答卷。答卷完毕后将其成 绩进行存档。这样让考生知

33、道自己对自己掌握的不足点有所了解，并且可以加 强这方面的复习。以便考试时得到最好的发挥。 4.2.7 考试系统考试系统 考生进入考试系统后，就开始考试。答题时系统不能切换到别的界面。考 试结束时，电脑会自动保留你的答题内容并进行存档。 4.2.8 查看成绩查看成绩 老师可以查看班上所有学生的考试成绩，了解目前学生学习的状况，对以 后的教学进行更好的规划。 学生只能通过准考证号去查询自己本人的成绩 16 4.2.9 系统实现系统实现 系统通过排课过程算法实现及：教师录入题库-设置考试相关参数-考生 考试教师查看考生成绩。 4.3 数据库设计数据库设计 4.3.1 数据库的概述数据库的概述(数据库

34、连接方式数据库连接方式) （1）减少数据的重复（redundancy can be reduced） 当在一个非数据库系统当中，每一个应用程序都有属于他们自己的文件， 由于无法有系统建立的数据，因此常常会造成存储数据的重复与浪费。 （2）避免数据的不一致（inconsistency can avoid） 本项特色，可以说是延伸前项的一个特点，记录同时被存放在数据库的两 个地方，而数据库管理系统却没有对这样重要的情况加以控制，当其中一条数 据库被修改时，便会造成数据的不一致，但是，对于一个健全的数据库管理系 统而言，将会对这样的情况加以控制，但有时并不需要刻意消除这种情形，应 当视该数据库的需求

35、与效率来决定。 （3）数据共享（data shared） 对于数据共享的意义，并不是只有针对数据库设计的应用程序，可以使用 数据库中的数据，对于其他撰写好的应用程序，同样可以对相同数据库当中的 数据进行处理，进而达到数据共享的目的。 （4）强化数据的标准化（standard can be enforced） 由数据库管理系统，对数据做出统筹性的管理，对于数据的格式与一些存 储上的标准进行控制，也能提高数据处理的效率。 （5）实践安全性的管理（security restriction can be applied） 通过对数据库完整的权限控制，数据库管理者可以确认所有可供用户存取 数据的合法途径

36、渠道，并且可以事先对一些较重要或关键性的数据进行安全检 查，以确保数据存取时，能够将任何不当损毁的情形降至最低。 （6）完整性的维护（integrity can be maintained） 17 所谓完整性的问题，就是要确认某条数据在数据库当中，是正确无误的。 正如（2）所述，若是无法控制数据的不一致性，便会产生完整性不足的问题， 所以，我们会发现，当数据重复性高的时候，数据不完整的情形也会增加，当 然，若是数据库的功能完整，将会大大地提高数据完整性，也会增加数据库的 维护能力与维护简便性。 （7）需求冲突会获得平衡（conflicting requirements can be balan

37、ce） 在一个较大型的企业当中，用户不同的需求，往往会造成系统或数据库在 设计上的困扰，但是一个合适的数据库系统，可以通过数据库管理员的管理， 将会有效地整理各方面的信息，对于一些较重要的应用程序，可以适时地提供 较快速的数据存取方法与格式，以平衡多个用户在需求上的冲突。 上述七个方面构成了数据库系统的主要特征。 4.3.2 数据库设计数据库设计 首先用 odbc 建立数据库为 exam，然后在建立数据表 （1）选择题表（choose）：记录所有选择题题库的表. 字段名类型长度备注 卷号 float8 卷套号 题号 float8 题目编号 题文 nvarchar254 题目内容 anvarch

38、ar100 答案 a bnvarchar100 答案 b cnvarchar100 答案 c dnvarchar100 答案 d 答案 nvarchar4 正确答案 分值 int4 本题分值 （2）填空题表(fillblank)：记录所有填空题题库的表 字段名类型长度备注 卷号 float8 卷套号 18 题号 float8 题目编号 题文 nvarchar254 题目内容 答案 nvarchar100 正确答案 分值 int4 本题分值 （3）分数表(grade)：记录所有考生考试成绩的表； 字段名 类型长度备注 考号 nvarchar20 考生考号 姓名 nvarchar20 考生姓名 题

39、型 nvarchar10 考题题型 题号 float8 考题号 分值 int4 本题分值 考生得分 int4 考生得分 考生答案 nvarchar50 考生答案 正确答案 nvarchar50 正确答案 时间 datetime8 提交时间 (4)考卷提交地址表(referaddr)：记录考生考试后传递文件地址的表； 字段名 类型长度备注 addrnvarchar50 考卷提交地址 （5）考试时间表(timeset)：记录设定考试时间的表； 字段名 类型长度备注 examtimeint4 考试时间 (6)卷号表（tomeno）：记录卷号信息的表； 字段名 类型长度备注 卷号 int4 卷套号 说

40、明 nvarchar50 卷套说明 （7）练习表(tran)：记录考生练习成绩的表； 字段名 类型长度备注 19 考号 nvarchar20 考生考号 姓名 nvarchar20 考生姓名 题型 nvarchar10 考题题型 题号 float8 考题号 分值 int4 本题分值 考生得分 int4 考生得分 考生答案 nvarchar50 考生答案 正确答案 nvarchar50 正确答案 时间 char10 提交时间 5 详细设计及编码详细设计及编码 5.1 用户登录用户登录 用户登录是应用程序的主入口，用户只有通过该入口才能进入系统，用户根据 使用权限不同分为两种：管理员登陆（主要对象：

41、老师） ，考生登陆。 考生登录图 privateprivate subsub cmdlogin_click()cmdlogin_click()记录记录考考号号, ,姓名姓名 if if trim(txtname.text)trim(txtname.text) = = thenthen msgboxmsgbox 请输请输入姓名入姓名!,!, vbinformation,vbinformation, 提示提示 exitexit subsub elseelse g_strnameg_strname = = trim(txtname.text)trim(txtname.text) endend if

42、if 20 if if trim(txtno.text)trim(txtno.text) = = thenthen msgboxmsgbox 请输请输入考入考号号!,!, vbinformation,vbinformation, 提示提示 exitexit subsub elseelse g_strnog_strno = = trim(txtno.text)trim(txtno.text) endend if if 5.2 题库设计题库设计 当用户以管理员身份登录考试系统时，首先进入欢迎界面在该界面中，用 户以管理员身份，实现判断题和选择题的管理以及成绩管理和学生管理，分别 单击相应的连接即可

43、进入对应的界面。主要有选择题的管理及填空题的管理。 5.3 模拟考试实现模拟考试实现 当用户以考生的身份登录考试系统时，则如下图出现该界面。考生可以根据自 己的需求去选择练习系统跟考试系统。 a：窗体说明： b：主要代码： 21 private sub form_load() if g_strf = 考试 then cmdok.visible = false elseif g_strf = 练习 then cmdok.visible = true end if showgrade end sub 5.3.1 练习或考试模式练习或考试模式 a：窗体说明： b：主要代码： private sub

44、lblfinish_mouseup(button as integer, shift as integer, x as single, y as single) 22 if msgbox(时间还没到，真的要交卷吗？, vbyesno + vbinformation, 提示) = vbyes then frmexcute.show unload frmexam unload me if minute = 5 and second = 0 then msgbox 您还有 5 分钟！, vbinformation, 提示 end if minute = minute - 1 second = 59

45、end if second = second - 1 lbltime.caption = minute & 分 & second & 秒 end sub 5.3.2 选择题答题选择题答题 23 5.3.35.3.3 设置试卷提交地址设置试卷提交地址 a：窗体说明： b：主要代码： private sub cmdsave_click() if trim(txtaddr.text) = then msgbox 请输入地址!, vbinformation, 提示 exit sub else g_conn.execute update referaddr set addr = & trim(txtad

46、dr.text) & msgbox 保存成功!, vbinformation, 提示 24 end if end sub private sub form_load() dim rsquery as new adodb.recordset rsquery.open select addr from referaddr, g_conn, adopenforwardonly, adlockreadonly if rsquery.eof = true then txtaddr.text = else txtaddr.text = trim(rsquery(addr) end if if rsquer

47、y.state = 1 then rsquery.close end sub 5.3.45.3.4卷号维护卷号维护 a：窗体说明： 25 b：主要代码： option explicit private sub cmdadd_click() g_conn.execute insert into tomeno(说明) values( & trim(txttomememo.text) & ) txttomememo.text = showdata end sub private sub cmddel_click() if msgbox(是否要删除卷号 & datagrid1.columns(0) &

48、 (提示:本次操作会删除 卷号包含的所有题目,并无法恢复)?, vbinformation + vbyesno, 提示) = vbyes then g_conn.execute delete from choose where 卷号 = & datagrid1.columns(0) g_conn.execute delete from fillblank where 卷号 = & datagrid1.columns(0) g_conn.execute delete from tomeno where 卷号 = & datagrid1.columns(0) showdata else exit

49、sub end if end sub private sub cmdexit_click() unload me end sub private sub form_load() showdata end sub private sub showdata() dim rsdata as new adodb.recordset 26 dim strsql as string on error goto e_process if rsdata.state = 1 then rsdata.close strsql = select * from tomeno rsdata.open strsql, g

50、_conn, adopenforwardonly, adlockreadonly set datagrid1.datasource = rsdata exit sub e_process: msgbox err.description, vbcritical, 提示 end sub 5.3.55.3.5题库维护题库维护 a：窗体说明： 27 b：主要代码： 添加题目 private sub cmdok_click() dim dblno as double dim strsql1 as string dim strsql2 as string dim rsquery as new adodb.

51、recordset on error goto e_process 添加选择题 if optchoose.value = true then if trim(txttitle.text) = or trim(txtvalue.text) = or _ trim(txta.text) = or trim(txtb.text) = or _ trim(txtc.text) = or trim(txtd.text) = or _ trim(txtchooseanswer.text) = or cbotomeno.text = then msgbox 所有项必须填写!, vbinformation,

52、提示 exit sub end if strsql1 = select max(题号) as no from choose rsquery.open strsql1, g_conn, adopenforwardonly, adlockreadonly if rsquery.eof = true then 28 dblno = 1 else if isnull(rsquery(no) = true then dblno = 1 else dblno = val(rsquery(no) + 1 end if end if if rsquery.state = 1 then rsquery.clos

53、e strsql2 = insert into choose values( & cbotomeno.text & , & dblno & , & _ trim(txttitle.text) & , & trim(txta.text) & , & trim(txtb.text) & _ , & trim(txtc.text) & , & trim(txtd.text) & , & _ trim(txtchooseanswer.text) & , & val(txtvalue.text) & ) g_conn.execute strsql2 添加填空题 elseif optfill.value

54、= true then if trim(txttitle.text) = or trim(txtvalue.text) = or _ trim(txtfillanswer.text) = or cbotomeno.text = then msgbox 所有项必须填写!, vbinformation, 提示 exit sub end if strsql1 = select max(题号) as no from fillblank rsquery.open strsql1, g_conn, adopenforwardonly, adlockreadonly if rsquery.eof = tru

55、e then dblno = 1 else if isnull(rsquery(no) = true then dblno = 1 29 else dblno = val(rsquery(no) + 1 end if end if if rsquery.state = 1 then rsquery.close if rsquery.state = 1 then rsquery.close strsql2 = insert into fillblank values( & cbotomeno.text & , & dblno & , & _ trim(txttitle.text) & , & t

56、rim(txtfillanswer.text) & , & _ val(txtvalue.text) & ) g_conn.execute strsql2 end if if msgbox(添加成功！是否继续添加？（点击确定继续，点击取消返回主窗口！）, vbyesno + vbinformation, 提示) = vbyes then txttitle.text = txtfillanswer.text = txtchooseanswer.text = txtvalue.text = txta.text = txtb.text = txtc.text = txtd.text = else u

57、nload me end if exit sub e_process: msgbox err.description, vbcritical, 提示 exit sub end sub private sub cmdrenew_click() objclear 30 end sub private sub cmdviewquestion_click() frmviewquestion.show 1 end sub private sub form_load() dim rstomeno as new adodb.recordset dim strsql as string dim i as in

58、teger on error goto e_process optchoose.value = false optfill.value = false me.height = 1320 txtvalue.text = 0 cbotomeno.clear strsql = select 卷号 from tomeno rstomeno.open strsql, g_conn, adopenforwardonly, adlockreadonly if rstomeno.eof = true then msgbox 请先维护卷号信息!, vbinformation, 提示 exit sub else

59、for i = 0 to rstomeno.recordcount - 1 cbotomeno.additem trim(rstomeno(卷号), i rstomeno.movenext next end if if rstomeno.state = 1 then rstomeno.close exit sub e_process: msgbox err.description, vbcritical, 提示 end sub 31 private sub optchoose_click() me.height = 6260 famcontrol.top = 4975 famfillblank

60、.visible = false famchoose.visible = true me.top = screen.height / 2 - me.height / 2 objclear end sub private sub objclear() txttitle.text = txtvalue.text = txtfillanswer.text = txta.text = txtb.text = txtc.text = txtd.text = txtchooseanswer.text = end sub private sub optfill_click() me.height = 430