1、济宁医学院信息科学技术系毕业设计(论文)第 1 页，共 41 页摘 要随着计算机技术的发展，各行各业中计算机都已经普及，尤其是在学校，考试跟学生的关系是非常密切的，考试的出题也是一个比较麻烦的问题，要花费大量的时间和精力，教师出题工作量大，劳动强度高，而且试题的保存也比较占地方，而且试题多了也显得乱，基于以上这几点考虑，为了解决考试试题的多样性、随机性和上述一些问题，教师拥有一套试题库管理管理系统是非常必要的。该试题库管理系统就可以摒弃传统试题的手工整理的麻烦，而且可以减少出题的精力和时间。这个试题库管理系统是基于 Windows 平台，采用了 Visual Basic 6.0 编程和 SQL
2、 Server数据库技术。此系统包含试题管理、试卷管理、课程管理、用户管理和帮助这五大功能。为了实系统这些功能，我建立了数据库 exam，该数据库共中共包含 Users(用户表)，Class(课程表),Titles(题型表),Exams(试题表),Papaers(试卷表),QuestionP(试卷题目表)这几个表。能够实现的主要功能有录入试题，查询试题，修改试题，修改/添加/删除用户，课程添加/删除，题型添加/删除，修改密码，自动组卷等。另外根据用户的权限不同，可以访问不同的模块。其中系统管理员可以管理各个用户，而科目教师只能管理所授科目的所有信息不能越权操作。【关键字】试题库 试卷管理 试题
3、库管理系统全套源程序代码，联系 153893706试题库管理系统第 2 页ABSTRACTAlong with the computer technology development, in all the various trades and occupations the computer all already popularized, in the school, took a test with students relations was extremely close in particular, the test set the topic of a composition a
4、lso is a quite troublesome question, had to spend the massive time and the energy, the teacher sets the topic of a composition the work load to be big, the labor intensity was high, moreover the test question preservation also compared occupies the place, moreover the test question many has also app
5、eared chaotically, based on above these considerations, in order to solve the test test question multiplicity, randomness and the above some questions, the teacher had a set to try the question bank management system management system is extremely essential. Should try the question bank management s
6、ystem management system to be possible to abandon the traditional test question the manual reorganization trouble, moreover may reduce the energy and the time which sets the topic of a composition.This tries the question bank management system management system is based on the Windows platform, has
7、used Visual the Basic 6.0 programming and SQL the Server data bank technology. This system contains the test question management, the examination paper management, the curriculum manages, the user manages and helps these five big functions. For real system these functions, I have established databas
8、e exam, this database altogether Chinese Communist Party contains Users (user table), Class (class schedule),Titles (topic table),Exams (test question table),Papaers (examination paper table),QuestionP (examination paper topic table) these tables. Can realize the main function has the input test que
9、stion, inquires the test question, revises the test question, the revision/Increase/The deletion user, the curriculum increases/Deletion, topic increase/Deletion, revision password, automatic group volume and so on. Moreover the basis users jurisdiction is different, may visit the different module.
10、The in which system manager may manage each user, but the subject teacher only can the administration center give the subject all informations not to be able to exceed authority to operate.【Keywords】 the question bank the examination paper management question bank management system 济宁医学院信息科学技术系毕业设计(
11、论文)第 3 页，共 41 页目 录摘 要 .1ABSTRACT2第一章 前 言 4第二章 系统分析 52.1 可行性分 析 52.2 需求分析 52.3 设计工具简介 6第三章 系统设计 831 模 块图及 系统总流程 83.1.1 登陆模 块 .93.1.2 试题管理模块 103.1.3 题型设置模块 113.1.4 查询试题模块 113.1.5 试卷管理模块 123.1.6 课程设置模块 133.1.7 用户管理模块 143.1.8 帮助模块 143.2 数据库的分析与设 计 14结束语 .16致谢 .16参考文献 .16附程序源码 .17试题库管理系统第 4 页第一章 前 言考试在我国
12、古代就已经有了很大的发展，早在 1300 年以前就有了科举制度。但这种考试不规范、不严密，不能客观、准确地评估一个人的能力水平。第二次世界大战结束后，考试在社会生活中的地位进一步提高， 资格证书考试也就应运而生。这种考试次数频繁，命题工作量大，并且对考试的测量学特性要求更加严格，不少考生要求结果相互可比，因此，建立高质量、大容量的现代化题库成为必要。目前，经济发达国家已经建立了完善的考试专业机构。各机构也都根据自己所承担的职能建立起了大型题库。传统的考试出题总是教师考前集中出题、集中组卷，这样很难保证试卷的质量，进而不能准确反映学生的学习效果。为促进教学手段的现代化，提高教学质量，减轻教师在出
13、题、组卷和成绩分析中的工作量，本系统在 VB 编程环境下开发了这套能实现试题管理软件。试题库系统作为教学手段现代化的重要组成部分，与数据库相结合，发挥着很大的作用。该软件在 Windows XP 操作系统下，采用 Visual Basic 语言开发而成，具有 Windows 风格，其主要特点如下：1、图形化界面、可操作性强、通用性强：界面和菜单显而易见，所以即使是计算机基础很差的用户经过简单的培训后，也能很快地熟练操作。2、安全性：试题库管理系统必须要有极其强大的安全性。本系统会在内部设制权限来控制用户的操作。提高整个系统的安全性。3、通过其录入模块录入试题后，即可形成本课程的试题库系统，而且
14、系统还具有自动组卷功能、试题查询等功能，从而可以实现教考分离。4、强大的提示性功能：该系统将具有较强的纠错能力，当运行时，用户操作错误时会提出相当的的警示，能自动保护系统避免系统出错。济宁医学院信息科学技术系毕业设计(论文)第 5 页，共 41 页第二章 系统分析如今是信息化的时代，学校、企事业单位的电脑特别是 PC 机已相当普及，对试题进行电脑化管理已具备了足够的硬件条件，本系统是在电脑中进行试题管理的一种软件，提供友好的界面，结合数据库技术，具有易学、易懂、易操作的优点，本软件的开发一定能得到广大用户的欢迎。考试是检查学生对知识掌握程度的一种考核，试题的管理，特别是学校对试题的管理不能停留
15、在普通试卷存档上，无纸化的试题管理才能适应当今的发展潮流，具有试题更新方便、组卷快的特点。本系统的开发的目的就是要对试题进行集中、有序、有效的管理。2.1 可行性分析随着现代教育事业的发展，教学手段现代化问题显得越来越重要。试题库的管理，特别是学校的试题库具有量大、种类多的特点，常规管理有工作量大、查询困难、不易更新的缺点，试题库管理系统可对试题实行科学的管理，利用现代电脑功能强大、运算速度快的优点，对试题进行集中、有序、有效的管理，更新方便、查询快捷、组卷灵活，大大降低了劳动强度，需用密码登录系统，具有一定的安全性。可行性研究主要集中在四个方面：（1）经济可行性（2）技术可行性（3）法律可行
16、性（4）技术可行性由 于 时 间 的 限 制 ， 虽 然 还 存 在 在 着 一 些 问 题 ， 但 是 也 有 其 优 点 ：1、图形化界面、菜单栏，工具栏清晰地展现系统的功能。2、系统安全性：试题库管理系统必须要有极其强大的安全性。3、高效性：试题库管理系统应该具有的强大适应能力和简便实现能力。系统运行的高效性是我们追求的目标之一。4、本系统开发成本低，风险小。试题库管理系统第 6 页2.2 需求分析(一)在考试过程中，教师工作存在以下问题：1、必须事先找好要出的试题、并且是最好的试题。有时教师在教学过程中，发现了很好的试题，只好记在书上或本子上，这是很容易忘记的事，等到要再用的时候，才发
17、现试题不知放到哪了；2、找好试题之后，整理试题也是一项要花费大量时间的问题；3、整理好试题后，要把试题输入到计算机中，以进行打印。当教师想把上次或以前的某些试题再放到试卷中时，必须再重新输入一次，给工作带来了许多时间的浪费；4、还有一个问题，当下次出试卷时，很难找到以前试卷的原样。（二）功能分析（1）数据的录入：把系统中所需要的信息录入进去，包括，用户信息的录入，题型的录入，课程的录入，试题的录入等。（2）数据的查询：根据已有的条件查询需求的信息,本系统的查询主要是试题的查询，可以根据试题号，试题的难易程度，试题的题型来查询。（3）数据的修改和删除：包括题型、试题、课程的修改删除等。（4）用户
18、的管理：用户的增加、删除及密码修改。2.3 设计工具简介Visual BasicVisual Basic 是创建 Windows 应用程序最快捷、最容易的工具。Visual Basic 提供了一整套简化快速应用程序开发的工具集。Visual 指的是创建图形用户界面（GUI）所使用的方法。不用编写许多行代码来描述界面元素的外形和位置，你只需简单地在屏幕上添加一个预先创建的对象即可。假如你已使用过像画笔（Paint）之类的画图程序，你就已经有了创建有效的用户界面所必需的大部分技巧。济宁医学院信息科学技术系毕业设计(论文)第 7 页，共 41 页无论你是要创建个人还是工作组的小型实用程序或者企业级大
19、型系统，Visual Basic 都有能满足你要求的工具。其数据访问的特性可以创建数据库、前端应用程序和应用于大多数流行数据库格式的可伸缩服务端组件。ActiveX 技术允许你使用由其他应用程序所提供的功能，如由 Word 字处理程序、Excel 电子表格和其他 Windows 应用程序提供的功能。Visual Basic 的因特网功能，使你可以通过因特网很容易从你的应用程序访问文档和其他应用程序，或创建因特网服务器应用程序。对于 Visual Basic 来说，它的主要优点是很容易理解，许多编程工作都很容易完成，基本上隐藏了 Windows API 和 COM 组件结构的内涵。其缺点是 Vi
20、sual Basic 从来没有实现真正意义上的面向对象，所以大型应用程序很难分解和维护。另外，因为 VB 的语法继承于 BASIC 的早期版本(BASIC 主要是为了让初学者更容易理解，而不是为了编写大型商业应用程序)，所以不能真正成为结构化或面向对象的编程语言。SQL ServerMicrosft SQL Server,是基于客户端 /服务器模式的新一代大型关系型数据库管理系统。它在电子商务、数据他库和数据库解决方案等应用中起着重要的核心作用，为企业的数据管理提供强大的支持，对数据为患 的数据提供有效的管理，并采用有效的措施实现数据的完整性及数据的安全性。试题库管理系统第 8 页第三章 系统
21、设计31 模块图及系统总流程功能结构图管理课程登陆主界面试题管理 试卷管理题型设置课程管理 用户管理 帮助录入试题 试题查询 自动组卷编辑试题 删除用户 添加用户修改密码关于开始用户登录 退出程序读取用户类型1、 管理自己和用户信息2、 管理所有用户的信息3、 管理课程信息1、管理自己的用户信息2、管理自己课程的题型3、管理自己课程的试题4、管理自己课程的试卷济宁医学院信息科学技术系毕业设计(论文)第 9 页，共 41 页系统总流程本 系 统 统 包 括 以 下 六 大 模 块 ， 即 登 陆 、 试 题 管 理 模 块 ， 试 卷 模 块 ， 课 程 管 理 模 块 ，查 询 模 块 ， 帮
22、 助 和 用 户 管 理 模 块 。3.1.1 登陆模块：考虑到试题库系统的的安全性，每个用户都有自己的密码，用户只有输入正确密码，才能进入本系统的主菜单界面。而在主界面中，用户可以根据自己的权限选择系统所提供的功能。而系统管理员还可以添加、删除修改用户，查看、删除和增加各种题型和科目。设 计 构 思系 统 运 行 时 ， 首 先 是 一 个 简 单 明 了 的 登 陆 界 面 。 用 户 需 要 输 入 “用 户 名 ”，“密 码 ”， 系 统 将 所 填 写 的 资 料 与 exam 数 据 库 里 的 用 户 表 资 料 核 对 ， 经 核 对 正 确 以后 ， 考 生 才 能 进 入
23、主 界 面 ， 否 则 退 出 登 陆 。登 陆 界 面登 陆 后 ， 就 是 主 菜 单 界 面 。 用 户 可 以 根 据 需 要 来 选 择 主 菜 单 所 提 供 的 功 能 。 系 统主 界 面 截 取 图 如 下 ：试题库管理系统第 10 页3.1.2 试题管理模块：此 菜 单 具 有 以 下 子 菜 单 ： “录 入 试 题 ”、 “编 辑 试 题 ”、 “查 询 试 题 ”、 “题 型 设置 ”。（ ） “录 入 试 题 ”： 即 添 加 新 的 试 题 ， 该 菜 单 和 “编 辑 试 题 ”菜 单 单 击 后链 接 到 一 个 界 面 。设 计 构 思 ：系 统 设 置 了
24、 两 个 Combo 控 件 ， 可 以 选 择 题 型 及 题 型 的 难 易 程 度 ， 另 外 试 题 的 题号 是 继 上 一 题 目 自 动 递 增 的 。 还 有 设 置 了 两 个 Richtextbox 控 件 用 于 录 入 题 目 和 试题 的 答 案 。 还 有 一 个 Datagrid 控 件 和 一 个 ADODC 控 件 可 以 即 时 显 示 刚 添 加 的 试 题 ，能 做 到 浏 览 方 便 ， 而 且 也 便 于 修 改 试 题 和 删 除 试 题 时 能 清 晰 地 看 清 每 个 题 的 题 目 、 答案 、 录 入 人 员 ， 题 号 等 相 关 信
25、息 。 界 面 如 下 ：济宁医学院信息科学技术系毕业设计(论文)第 11 页，共 41 页（ ） “编 辑 试 题 ”： 包 括 修 改 试 题 和 删 除 试 题 ， 可 以 对 刚 才 用 “添 加 试 题 ”按 钮 加 入 的 试 题 进 行 修 正 和 删 除 。设 计 构 思 ：（ 1） “修 改 试 题 ”： 通 过 双 击 Datagrid 控 件 的 一 行 ， 使 该 行 的 相 关 信 息 （ 题 型 ，难 易 程 度 ， 题 目 ， 答 案 ） 进 入 到 各 信 息 对 应 的 地 方 处 于 可 编 辑 状 态 进 行 编 辑 。 编 辑 后再 占 击 “修 改 试
26、 题 “按 钮 保 存 对 刚 才 试 题 的 修 改 。（ 2） 删 除 试 题 ： 在 Datagrid 中 选 中 要 修 改 行 ， 点 击 “删 除 试 题 ”即 可 。 单 击 后 ，该 行 即 从 Datagrid 中 消 失 ， 同 时 更 改 Exams 表 ， 使 相 对 应 的 记 录 删 除 。3.1.3 题型设置模块：该 模 块 包 括 “添 加 ”、 “删 除 ”、 “修 改 题 型 ”三 个 子 功 能 。 界 面 如 下 图 所 示 ：试题库管理系统第 12 页进 入 此 模 块 系 统 会 自 动 记 录 用 户 登 录 时 的 科 目 （ 如 语 文 ） ，
27、 也 就 是 说 ， 用 户 只能 设 置 所 教 课 程 （ 语 文 ） 的 题 型 ， 不 能 越 权 设 置 。设 计 构 思 ：“添 加 题 型 ”后 ， 新 增 的 题 型 会 在 list1 中 显 示 ， 另 外 还 要 在 Titles 表 中 添加 新 题 型 。 “修 改 题 型 ”后 会 将 修 改 后 的 题 型 保 存 。 “删 除 题 型 ”， 需 要 在 list 中删 除 ， 同 时 从 Titles 表 中 删 除 。 “返 回 ”即 是 关 闭 该 窗 口3.1.4 查询试题模块：该 模 块 可 以 根 据 已 知 条 件 ， 查 询 试 题 题 目 和 答
28、 案 。设 计 构 思 ：此 处 设 置 了 三 个 查 询 条 件 ： 试 题 类 型 ， 难 易 程 度 和 试 题 题 号 。 属 于 单 选 按 钮option， 查 询 出 结 果 后 即 时 在 Datagrid 控 件 中 显 示 ， 同 时 设 置 两 个Richtextbox 控 件 ， 处 于 非 编 辑 状 态 ， 鼠 标 选 项 中 Datagrid 中 的 某 一 行 时 ， 该 行的 详 细 信 息 会 在 Richtextbox 中 显 示 ，此 功 能 复 杂 之 处 在 于 涉 及 到 Exam 表 ， Titles 表 ,Classes 表 三 个 表 ，
29、sql 句 中 需要 进 行 必 要 的 关 联 。 界 面 中 显 示 的 信 息 只 能 查 看 ， 不 能 修 改 ， 如 果 要 修 改 需 要 在 上 面介 绍 的 “编 辑 试 题 ”菜 单 中 进 行 。 该 模 块 的 流 程 图 如 下 ：查询课程号难易程度题型数据库信息显示济宁医学院信息科学技术系毕业设计(论文)第 13 页，共 41 页“查 询 试 题 ”界 面 如 下 :3.1.5 试卷管理模块：此 菜 单 设 置 了 一 项 功 能 ： 自 动 组 卷 功 能 。设 计 构 思 ：需 要 填 入 试 卷 名 称 ， 试 卷 标 题 ， 还 需 要 选 择 题 型 以
30、及 每 个 题 型 的 题 量 。 此 模 块 有两 个 地 方 难 实 现 ： （ 1） 在 添 加 题 型 时 ， 在 text 处 需 要 输 入 题 量 ， 需 要 统 计 出 数 据库 中 每 一 题 型 的 总 题 量 ， 输 入 的 题 量 不 能 超 过 总 题 量 。 （ 2） 在 组 卷 时 ， 需 要 利 用随 机 函 数 选 择 试 题 ， 但 是 由 于 随 机 函 数 的 随 机 性 ， 就 需 要 循 环 判 断 每 一 次 选 择 的 试 题是 否 已 经 添 加 到 试 卷 中 ， 防 止 一 个 试 题 添 加 两 次 。试题库管理系统第 14 页添 加 完
31、 试 题 及 试 题 的 数 量 以 后 就 可 以 点 击 “组 卷 ”进 行 自 动 组 卷 ， 链 接 到 另一 个 界 面 ， 设 置 一 个 richtextbox 显 示 组 卷 完 成 的 内 容 ， 以 达 到 一 目 了 然 的 效 果 ，另 外 ， 设 计 “保 存 试 卷 ”按 钮 ， 可 以 将 组 的 试 卷 存 放 在 .txt 文 件 中 。 界 面 如 下 ：3.1.6 课程设置模块：可 以 添 加 、 删 除 、 修 改 课 程 ， 这 一 模 块 只 能 由 系 统 管 理 员 使 用 。 某 一 科 目 教 师 无 权使 用 该 功 能 。设计构思：在课程
32、名处填写要添加的课程，描述不是必须的。在“ 添 加 题 型 ”后 ， 需 要 在 list1中 显 示 ， 另 外 还 要 对 应 地 在 后 台 Classes 表 中 添 加 新 课 程 。 “修 改 课 程 ”后 会 将 修改 后 的 题 型 保 存 。 “删 除 题 型 ”， 需 要 在 list 中 删 除 ， 同 时 从 Classes 表 中 删 除 。界 面 如 下 图 所 示 ：济宁医学院信息科学技术系毕业设计(论文)第 15 页，共 41 页3.1.7 用户管理模块：此模块具有“添加用户” ， “删除用户”和“修改密码”三个功能。添加用户和删除用户只能由管理员使用。设计构思
33、：添加用户需要输入用户名，密码，科目名称，以及用户的类型（系统管理员或科目管理员）添加后在 list 中显示，同时要在 Users 表中添加新记录.删除用户要在 list 中删除，同时在Users 表中删除该记录。修改密码功能是每个用户都可以用的，只要用户名和旧密码输入正确，就可以更改新密码，所以具有一定的安全性。界面略。3.1.8 帮助模块：目前只添加了“关于”下拉菜单。3.2 数据库的分析与设计打开 SQL server 企业管理器，新建一个数据库，名称为 exam。建好空数据库后，再建立各张表:数据表名称 数据表用途Users（用户表） 保存用户名，密码，用户权限等Titles（题型表）
34、 保存题型名，题型所属的课程Classes(课程表) 保存课程的课程号、课程名、课程描述QuestionP（试卷题目表） 保存顺序的试题号，试卷号，数据库中的试题号试题库管理系统第 16 页Exams（试题表） 保存试题的号，试题所属的课程号、题目、答案、试题描述等Papers（试卷表） 保存试卷号、试卷名、试卷标题、试卷描述等数据库中各表的字段设置如下：Users（用户表）：Username（char,15,用户名）主键Password（char,10,密码）Usertype（smallint,2 权限）Classname (char 30,课程名)Classes（课程表）：Classid
35、(int 4 课程号）主键Classname (char 30 课程名）Des (text 16 描述）Titles（题型表）：Classid (int 4 课程号）主键Titlename (char 20 题型名）主键Exams（试题表）：Examid （int 4 试题号）主键Classid （int 4 课程号）Titlename （char 20 题型名）Question （text 16 问题）Answer （text 16 答案）Username （char 15 用户名）nanyi （char 16 难易程度）Papers（试卷表）Paperid （int 4 试卷号）关键字Pa
36、pername （char 30 试卷名）Username （char 15 用户名）Header （char 60 试卷标题）Des （text 16 试卷描述）Classname （char 30 试卷的课程名）QuestionP（试卷题目表）：Id (int 4 实际题号)Paperid (int 4 试卷号)Examid (int 4 试题号)济宁医学院信息科学技术系毕业设计(论文)第 17 页，共 41 页结束语本系统以“实用”为基本指导思想，在数据库选择方面做了细致的研究和对比，在综合分析了各种数据库的优缺点和试题库的特点后选用了稳定实用的 SQL Server 数据库；在对试题库
37、功能做了大量分析后，确定了本系统的数据结构；本系统界面友好，易于使用，通用性强；在自动组卷、试题查询和试题录入等功能的设计方面突出体现了其实用性。同时，本系统的自动组卷模块设计尚需进一步完善，试卷预览也应进一步改善，应不断提高试卷显示功能，另外手工组卷，在初步分析阶段也列在其中，但由于时间原因，在该系统中没做考虑。另外以后还可以考虑把“组卷内容直接打印形成 word 文档”功能加入其中，这样系统功能就可以做到非常完善。系统在设计过程中遇到不少难题。虽 然 ， 我 们 不 是 全 都 解 决 ， 更 重 要 的 是 学 会 了 书 本上 学 不 到 的 知 识 和 方 法 。 在 此 我 要 感
38、 谢 那 些 在 我 们 设 计 过 程 中 给 我 们 的 提 出 了 不 少 宝贵 意 见 的 老 师 和 同 学 ， 有 了 他 们 的 帮 助 才 使 此 系 统 的 功 能 逐 渐 完 善 ， 从 而 基 本 都 能 顺利 使 用 。致谢现 在 我 们 的 系 统 已 基 本 完 成 ， 其 中 夹 有 我 很 多 的 艰 辛 也 有 快 乐 。 在 此 我 要 对 各 位指 导 师 老 师 ： 刘 宝 旨 ， 王 忠 华 ， 张 丽 ， 姚 青 ， 曹 灿 老 师 说 声 ： “谢 谢 ”。 另 外 我还 要 感 谢 在 这 两 个 月 的 设 计 过 程 给 过 我 帮 助 的
39、同 学 们 。参考文献、Visual Basic 程序设计教程（第二版） 刘炳文 清华大学出版社、Visual Basic 编程实例教程 袁帅 希望电子出版社、SQL Server 实用教程 郑阿奇 电子工业出版社、管理信息系统 北京大学出版社、MSDN Microsoft 试题库管理系统第 18 页附程序源码1、 登陆界面Private Sub Command1_Click()Dim mysql As String 存放 sql 语句If Trim(Text1.Text) = “ Then 用户名为空MsgBox “请输入用户名“, vbOKOnly + 48, “警告“Exit SubEn
40、d IfIf Trim(Text2.Text) = “ Then 密码为空MsgBox “密码不能为空 “, vbOKOnly + 48, “警告“Exit SubEnd Ifmysql = “select * from users where username=“ “objconn.Open connectionstringDim objrs As ADODB.Recordset 声明Set objrs = New ADODB.Recordset 实例化objrs.Open Trim$(mysql), objconn, adOpenKeyset, adLockOptimistic 前:上下移
41、动指针,后:查询的记录放在 objrs,可增删改等.If objrs.EOF ThenMsgBox “没有这个用户请重新输入“, vbOKOnly + 48, “警告“Text1.SetFocusElseIf Trim(objrs.Fields(1) = Trim(Text2.Text) Then 普通用户登陆系统，设置可使用的菜单和工具栏UserName = Text1.TextIf objrs.Fields(2) = 1 ThenClassName = objrs.Fields(3)MDIFrmmain.mnu_stgl.Enabled = TrueMDIFrmmain.mnu_sjgl.
42、Enabled = TrueMDIFrmmain.mnu_kcgl.Enabled = FalseMDIFrmmain.mnu_yhgl.Enabled = FalseElse 管理员登陆，设置可使用的菜单并隐藏工具栏MDIFrmmain.mnu_stgl.Enabled = FalseMDIFrmmain.mnu_sjgl.Enabled = FalseMDIFrmmain.mnu_kcgl.Enabled = True济宁医学院信息科学技术系毕业设计(论文)第 19 页，共 41 页MDIFrmmain.mnu_yhgl.Enabled = TrueMDIFrmmain.Toolbar1.
43、Visible = FalseEnd IfMDIFrmmain.ShowUnload MeElseMsgBox “密码错误,请重新输入!“, vbOKOnly + 48, “警告“Text1.Text = “Text2.Text = “Text2.SetFocusEnd IfEnd IfSet objconn = NothingSet rst = NothingEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub2、录入试题界面Public connectionstring As StringDim hao As String 存放课程号Pri
44、vate Sub Command1_Click() 添加试题Dim max As Integer 存放最大的试题号RichTextBox1.SetFocusIf RichTextBox1.Text = “ Or RichTextBox2.Text = “ ThenMsgBox “请输入题目和答案！“, vbOKOnly, “提示“Exit SubEnd Ifconnectionstring = “DSN=wang“Dim tsql As StringDim ssql As StringDim objconn1 As ADODB.ConnectionDim objrs1 As ADODB.Rec
45、ordsetSet objconn1 = New ADODB.ConnectionSet objrs1 = New ADODB.Recordsetobjconn1.Open connectionstringssql = “select max(Examid) from Exams “objrs1.Open Trim(ssql), objconn1, adOpenKeyset, adLockOptimistic试题库管理系统第 20 页max = objrs1.Fields(0)objrs1.Closetsql = “select * from Exams“objrs1.Open Trim(ts
46、ql), objconn1, adOpenKeyset, adLockOptimistic试题号，课程号，题型名，问题，答案，录入员，难易程度objrs1.AddNewobjrs1.Fields(0) = max + 1objrs1.Fields(1) = haoobjrs1.Fields(2) = Trim(Combo1.Text)objrs1.Fields(3) = Trim(RichTextBox1.Text)objrs1.Fields(4) = Trim(RichTextBox2.Text)objrs1.Fields(5) = Trim(Label2.Caption)objrs1.Fi
47、elds(6) = Trim(Combo2.Text)objrs1.UpdateMsgBox “试题添加成功 !“RichTextBox1.Text = “RichTextBox2.Text = “Adodc1.RefreshDataGrid1.Columns(0).Width = 500 更改 datagrid 中的列宽DataGrid1.Columns(1).Width = 800DataGrid1.Columns(2).Width = 800DataGrid1.Columns(3).Width = 800DataGrid1.AllowAddNew = False 不允许手动更新DataG
48、rid1.AllowUpdate = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowRowSizing = FalseEnd SubPrivate Sub Command2_Click() 修改试题If RichTextBox1.Text = “ ThenMsgBox “请双击选择要修改的试题！“, vbOKOnly, “提示“Exit SubEnd IfDim msql As StringDim objconnm As ADODB.Connection 声明 objconnm :修改功能Set objconnm = New ADODB.Connectionconnectionstring = “DSN=wang“objconnm.Open connectio
