题库管理系统_毕业设计论文(编辑修改稿)

题库管理系统_毕业设计论文(编辑修改稿)内容摘要：

该表记录了人工输入的试题信息，包括：题型、科目、章节 、知识点、难度系数、分值、题目、答案、选项 选项 选项 选项 选项 5。 主键为：16 试题编号，数据类型为：整形，使用“标识”功能。 当有新记录加入时系统会将试题编号加 1 并赋予新记录，保证所有记录的试题编号值不会重复。 字段名称 数据类型 字段大小 允许空 试题编号 Int 4 否 题型 Char 50 否 科目 Char 50 否 章节 Char 50 否 知识点 Nvarchar 1000 否 难度系数 Char 10 否 分值 Numeric 9 否 题目 Nvarchar 2020 否 答案 Nvarchar 2020 否 选择 1 Char 200 是 选择 2 Char 200 是 选择 3 Char 200 是 选择 4 Char 200 是 选择 5 Char 200 是 表 试题信息表 概念结构设计 （ 1）本系统的总实体 E－ R 图 ，如图 所示 本系统总实体 ER 图是对整个系统程序所用到的主体，包含系统用户、试卷信息、人工组卷、自动组卷、成套试卷几个主体间的关系，体现本系统的基本逻辑结构。 17 用 户试 题 信 息自 动 组 卷 信 息成 套 试 卷 信 息人 工 组 卷 信 息使 用组 卷图 系 统总实体 ER 图 （ 2）各实体的主要属性图 用户实体的主要属性如图 所示，包含用户名，用户密码，用户身份等。 系 统 用 户用 户 名用 户 密 码用 户 身 份 图 用户实体属性图 人工组卷信息 人工组卷信息主要属性如图 所示，包含试题编号、题型、科目、章节、知识点、难度系数、分值、题目、答案、选项 选项 选项 选项 选项5 等。 18 人 工 组 卷试 题 编 号题 型科 目章 节知 识 点难 度 系 数分 值题 目答 案选 项 1选 项 2选 项 3选 项 4选 项 5图 人工组卷信息实体属性图 成套试卷信息 成套试卷信息主要属性如图 所示，包含记录 编号、学校、年级、科目、试卷标题、试卷内容等。 成 套 试 卷学 校年 级 科 目试 卷 标 题试 卷 内 容记 录 编 号图 成套试卷信息实体属性图 自动组卷信息 自动组卷信息主要属性如图 所示，包含记录编号、学校、年级、科目、题型、题数、难度、知识点等。 19 自 动 组 卷年 级科 目 题 型题 数难 度知 识 点记 录 编 号学 校图 自动组卷信息实体属性图 试题信息 试题信息主要属性如图 所示，包含试题编号、题型、科目、章节、知识点、难度系数、分值、题目、答案、选项 选项 选项 选项 选项 5等。 试 题 信 息试 题 编 号题 型科 目章 节知 识 点难 度 系 数分 值题 目答 案选 项 1选 项 2选 项 3选 项 4选 项 5图 试题信息实体属性图 20 5 系统详细设计 登录窗体模块 登录窗体是一个系统必不可少的界面之一，其主要功能在于验证系统用户的合法性，使合法用户能够顺利的使用系统，而将非法用户拒之门外。 设计好的“登录窗体”运行效果图如图 所示。 图 系统登录窗体 本模块中实现“登录”功能时所执行的部分代码如下所示： = select * from 用户表 where 用户名 =39。 amp。 Trim(TxtName) amp。 39。 If 1 Then MsgBox 用户名错误，请重新输入。 , vbCritical, 系统提示 Exit Sub ElseIf Trim(!用户密码 ) Trim(TxtPwd) Then MsgBox 密码错误，请重新输入。 , vbCritical, 系统提示 TxtPwd = Exit Sub ElseIf Trim(!用户身份 ) Trim(CmbSF) Then MsgBox 用户身份错误，请重新选择。 , vbCritical, 系统提示 21 Exit Sub End If MsgBox 欢迎使用本系统。 , vbInformation, 系统提示 Unload Me 系统主窗体模块 系统主窗体是整个系统的核心，在这里，几乎将系统所有的功能 都囊括其中。 本系统主窗体采用 MDI（多文档窗口窗体）界面设计，可以在当中很方便的打开，或者关闭各种系统子功能窗体，而在操作系统任务栏中却只存在系统主窗体一个任务图标。 另外，本系统主窗体还采用了几个 VB 的内置函数，很容易的就实现了当中子窗体的各种排列功能，如层叠排列，水平平铺，垂直排列等等，使系统界面更友好，使用更方便。 设计好的“程序主界面窗体”如图 所示。 图 系统主窗体 22 部分实现代码如下 : Private Sub mmuTileH_Click() vbTileVertical 39。 水平平铺子窗体 End Sub Private Sub mmuTileV_Click() vbTileHorizontal 39。 垂直平铺子窗体 End Sub Private Sub mmuXSXXBB_Click() End Sub 试题信息录入模块 此模块可以输入试题的相关信息，比如题型、科目、章节、难度系数、知识点、题目、答案等等，此处录入的试题信息是整个系统的核心基础，为后面所述的题库数据管理、 自动组卷和人工组卷等模块提供数据依据。 其运行时的效果图如图 所示。 图 试题信息录入模块 23 本模块中实现试题信息录入时所执行的部分代码如下所示： If 0 Then MsgBox 相同的试题题目已经存在，数据录入失败，请重新输入相关的数据。 , vbCritical, 系统提示 Exit Sub End If With .AddNew .Fields!科目 = Trim(CmbKM) .Fields!章节 = Trim(TxtZJ) .Fields!难度系数 = CInt(Trim(CmbNDXS)) .Fields!知识点 = Trim(TxtZSD) .Fields!分值 = CCur(Trim(TxtFZ)) .Fields!题目 = Trim(TxtTM) If Opt(0).Value = True Then .Fields!题型 = 单项选择题 .Fields!选项 1 = Trim(TxtA) .Fields!选项 2 = Trim(TxtB) .Fields!选项 3 = Trim(TxtC) .Fields!选项 4 = Trim(TxtD) .Fields!答案 = Trim(CmbDA) End If If Opt(1).Value = True Then .Fields!题型 = 多项选择题 .Fields!选项 1 = Trim(TxtA) .Fields!选项 2 = Trim(TxtB) .Fields!选项 3 = Trim(TxtC) .Fields!选项 4 = Trim(TxtD) .Fields!选项 5 = Trim(TxtE) 24 .Fields!答案 = Trim(CmbDA) End If If Opt(2).Value = True Then .Fields!题型 = 判断题 .Fields!答案 = Trim(TxtDA) End If If Opt(3).Value = True Then .Fields!题型 = 解答题 .Fields!答案 = Trim(TxtDA) End If If Opt(4).Value = True Then .Fields!题型 = 作文题 .Fields!答案 = Trim(TxtDA) End If If Opt(5).Value = True Then .Fields!题型 = 翻译题 .Fields!答案 = Trim(TxtDA) End If If Opt(6).Value = True Then .Fields!题型 = 论述题 .Fields!答案 = Trim(TxtDA) End If .Update End With MsgBox 试题信息录入成功。 , vbInformation, 系统提示 题库数据管理模块 此模块实现了对前述模块录入的数据管理功能，包括对记录的修改，删除，25 打印等功能，另外，此模块还提供了对相关数据的多条件模糊检索功能，只需要选择相关的检索条件，输入检索内容，就可以检索到相关的数据记录。 其运行效果图如图 所示。 图 题库管理窗体 本模块中实现试题信息多条件查询时所执行的关键代码如下所示： If = 0 Then MsgBox 请选择查询条件。 , vbCritical, 系统提示 Exit Sub End If If Trim(TxtCXNR) = Then MsgBox 请输入查询内容。 , vbCritical, 系统提示 TxtCXNR = Exit Sub 26 End If Select Case Case 1 = select * from 试题信息 where 题型 like 39。 % amp。 Trim(TxtCXNR) amp。 %39。 Case 2 = select * from 试题信息 where 科目 like 39。 % amp。 Trim(TxtCXNR) amp。 %39。 Case 3 = select * from 试题信息 where 章节 like 39。 % amp。 Trim(TxtCXNR) amp。 %39。 Case 4 = select * from 试题信息 where 知识点 like 39。 % amp。 Trim(TxtCXNR) amp。 %39。 Case 5 = select * from 试题信息 where 题目 like 39。 % amp。 Trim(TxtCXNR) amp。 %39。 End Select If 1 Then MsgBox 查询结束，无相关信息记录。 , vbExclamation, 系统提示 AllClear TxtTiShi = 查询结束，无相关信息记录 Else ShowData End If 试题查询排序模块 此模块实现了对前述模块录入的试题信息查询和排序功能，在查询子模块，27 可以对试题信息实现多条件模糊查询功能，只需要选择要查询的条件，系统会自动对查询内容进行分组初始化，方便用户选择对应的查询内容 ；在排序模块，可以根据选定的题型，按照难度系数升序和降序排序，方便用户对相关的试题信息分组查看。 其运行效果图如图 所示。 图 试题查询排序窗体 在本模块中实现试题排序时所执行的部分代码如下所示： If = 0 Then MsgBox 请选择要排序的题型。 , vbCritical, 系统提示 Exit Sub End If If Opt(0).Value = True Then = select * from 试题信息 where 题型 =39。 amp。 Trim(CmbTX) amp。 39。 order by 难度系数 End If If Opt(1).Value = True Then 28 = select * from 试题信息 where 题型 =39。 amp。 Trim(CmbTX) amp。 39。 order by 难度系数 desc End If If 1 Then MsgBox 排序结束，无相关信息记录。 , vbExclamation, 系统提示 Else MsgBox 排序结束。 , vbInformation, 系统提示 End If 自动组卷模块 本模块是整个系统的核心功能，实现了对试题信息的自动组卷功能，在此模块当中，用户只需要输入相关的组卷信息（学校、年级、科目、题型、题数、难度系数，知识点等等），点击“开始组卷”按钮后，系统即可自动根据用户选择的条件组合成一套相关的试卷。 其运行效果图如图 所示，其组卷后的效果图如图 所示。 图 自动组卷窗体 29 图 自动组卷效果图 本模块中实现自动组卷功能的关键代码如下所示： = select * from 自动组卷信息 where 学校 =39。 amp。 Trim(ZDZJXX) a。