小型试题库系统设计案例.ppt

第8章 小型试题库系统设计案例 学习目标： 了解应用项目的设计、分析及开发过程 教学内容： 8.1 系统的组成及功能简述 8.2 试题库管理程序的设计 8.3 试题答题及评分程序的设计 8.4 有待完善的问题与思考 1文库专用 8.1 系统组成及功能简述系统组成 小型试题库系统的组成模块： 教师模块：实现题库管理功能 学生模块：实现答题及自动评分功能 返回目录 2文库专用 8.1 系统组成及功能简述系统组成 小型试题库系统的组成模块： 教师模块：实现题库管理功能 学生模块：实现答题及自动评分功能 返回目录 3文库专用 8.1 系统组成及功能简述教师模块的功能 试题库管理程序(教师模块)的功能： 登录(验证用户的合法性) 题库的管理与维护：记录的新建、修改、删除和定位 选题：从题库中自动选择一定数量的选择题和填空题 ，作为本次学生考试的考试库。 生成学生考盘 返回目录 4文库专用 8.1 系统组成及功能简述学生模块的功能 试题答题及评分程序( 学生模块)的功能： 随机产生题号，使各考 生的题目顺序不一样 登录(验证考生的合法性 ) 答题。中途退出，可再 次进入答题环境。 答题结束退出时，系统 可自动进行评分。评分后 ，不能再进入答题界面。 窗体切换流程 返回目录 5文库专用 8.1 系统组成及功能简述数据库设计 以第7章例7.11中建立的试题库TestDb.MDB和学 生考试库Test.MDB为基础 为验证学生身份的合法性以及记录学生的成绩，需 在考试库Test.MDB中增加一个考生表UserDb，结构 ： 返回目录 6文库专用 8.2 试题库管理程序的设计 试题库管理程序(教师模块)由四个窗体和一个 模块文件(xt.bas)组成 返回目录 7文库专用 8.2 试题库管理程序的设计 1. 用户登录窗体FrmDl (1) 窗体设计： 新建一个VB工程，保存为ctk.vbp 将窗体Form1保存为FrmDl.frm 部分控件的属性见教材表8.2 返回目录 8文库专用 8.2 试题库管理程序的设计 (2) 编写代码 ： 在程序的“通用”声明段定义模块级变量 Dim cs As Integer 记录用户登录时出错的次 数 编写窗体的Load事件响应代码：调用xt.bas中的通用 过程CenterOnSetupForm(功能：将窗口居中安放) 编写Cmgqd按钮(“确定”)的Click事件响应代码：检 查用户名和密码是否正确。如果连错3次，只能退出 编写Cmdml按钮(控件数组按钮)的Click事件响应代 码：根据选择打开“题库管理“、“选题“或“制作考盘“ 窗体 返回目录 9文库专用 8.2 试题库管理程序的设计 2. 添加自动选题窗体FrmXt 将例7.11中的FrmSele.frm窗体添加到本工 程中，并进行重命名另存： 添加FrmSele窗体： 执行“工程添加文件”命令，选择例7.11 建立的FrmSele.frm文件 将FrmSele.frm另存为FrmXt.frm 返回目录 10文库专用 8.2 试题库管理程序的设计 3. 添加题库管理窗体FrmSele 将例7.12中的FrmManage.frm窗体添加到 本工程中，并进行重命名另存： 添加FrmManage.frm窗体： 执行“工程添加文件”命令，选择例7.12 建立的FrmManage.frm文件 将FrmManage.frm另存为FrmSele.frm 返回目录 11文库专用 8.2 试题库管理程序的设计 4. 设计制作考盘窗体FrmCopy (1) 添加窗体： 执行“工程添加窗体”命令，添加一个新窗体， 并保存为FrmCopy.frm 在窗体上添加两个命令按钮和一个标签。标签的 属性设置：Caption为空，ForeColor为红色。 返回目录 12文库专用 8.2 试题库管理程序的设计 (2) 编写代码 ： 编写窗体的Load事件响应代码，功能：出现“请 插入学生考盘！”的提示 编写通用过程CopyDB，功能：复制试题文件 编写Cmdqd按钮(“确定”)的Click事件响应代码： 调用CopyDB过程，将当前目录中的test.mdb复制 到A盘的根目录中 编写Cmdexit按钮(“返回”)的Click事件响应代码 ：卸载制作考盘窗体 返回目录 13文库专用 8.2 试题库管理程序的设计 5. 添加模块文件xt.bas 执行“工程添加模块”命令，添加一个模块，并 保存为xt.bas 在模块代码窗口中定义通用过程，功能：将窗口 居中安放 返回目录 14文库专用 8.3 试题答题及评分程序的设计 试题答题及评分 程序(学生模块)也是 由四个窗体和一个模 块文件组成 (xt.bas) 组成。 返回目录 15文库专用 8.3 试题答题及评分程序的设计 1. 考生登录窗体FrmDl (1) 窗体设计： 新建一个VB工程， 保存为xz.vbp 将窗体Form1保存为 FrmDl.frm 按右图进行窗体设计 返回目录 16文库专用 8.3 试题答题及评分程序的设计 (2) 编写代码 ： 编写窗体的Load事件响应代码： v通过DAO 工作区对象的OpenDatabase方法打开学 生考试库Test.MDB v调用xt.bas中的过程(将窗口居中安放) 编写Txtcode文本框(“考核证号”)的LostFocus事件响 应代码：失去焦点时检查准考证号输入是否正确 编写Txtname文本框(“姓名”)的LostFocus事件响应代 码：失去焦点时检查姓名是否输入 返回目录 17文库专用 8.3 试题答题及评分程序的设计 编写Txtzwh文本框(“座位号”)的LostFocus事件响应代 码：失去焦点时检查座位号是否正确输入 编写cmdml按钮(“正确无误”)的Click事件响应代码： 检查准考证号、考生姓名和座位号是否按要求输入。如 果正确，则： v向UserDb表中添加一条用户记录。若该记录已存在 ，则给出相应的提示 v显示Frmxz(考生答题)窗体，卸载Frmdl(考生登录) 窗体 返回目录 18文库专用 8.3 试题答题及评分程序的设计 2. 考生答题窗体FrmXz (1) 添加窗体： 执行“工程添加窗体”命令，添加一个新窗体，并保 存为FrmXz.frm 在窗体上添加一个SSTab控件：执行“工程部件”命 令，“控件” 选Microsoft Tabbed Dialog Control 6.0 设置SSTab控件： v 属性窗口中设置Tabs为2，设置TabsPerRow为2 返回目录 19文库专用 8.3 试题答题及评分程序的设计 设置SSTab控件： v 右击SSTab控件，选“属性”命令， 设置如下： 返回目录 20文库专用 8.3 试题答题及评分程序的设计 设置SSTab控件： v “单选题”选项卡界面设置(部分控件的属性见教材 表8.3)： 返回目录 21文库专用 8.3 试题答题及评分程序的设计 设置SSTab控件： v “填空题”选项卡界面设置(部分控件的属性见教材 表8.4)： 返回目录 22文库专用 8.3 试题答题及评分程序的设计 (2) 编写代码 ： 在 “通用”声明段定义模块级变量及通用过程xianshi 编写窗体的Load事件响应代码 编写单击Option1按钮(选择答案)的事件响应代码 编写滚动Hscroll(选择题目)的事件响应代码 编写单击滚动条上的Optti按钮(选题)的事件响应代码 编写窗体的Activate(激活)事件响应代码 编写单击Cmdjj按钮(“交卷评分” )的事件响应代码 编写单击Cmdjs按钮(“结束”)的事件响应代码 返回目录 23文库专用 8.3 试题答题及评分程序的设计 3. 考生答题未答完提示窗体FrmTs (1) 添加窗体： 执行“工程添加窗体”命令， 添加一个新窗体，并保存为 FrmTs.frm 设计窗体 (2) 编写代码 ： 编写窗体的Load事件响应代码 编写单击命令按钮数组的事件 响应代码 返回目录 24文库专用 8.3 试题答题及评分程序的设计 4. 阅卷评分窗体FrmTj (1) 添加窗体： 执行“工程添加窗体” 命令，添加一个新窗体， 并保存为FrmTj.frm 设计窗体 返回目录 25文库专用 8.3 试题答题及评分程序的设计 (2) 编写代码 ： 在 “通用”声明段定义模块级变量 Dim senum As Integer 记录答对的选择题数 Dim finum As Integer 记录答对的填空题数 编写窗体的Load事件响应代码：判别选择题和填空 题的答题是否正确，并给出考生得分 编写单击cmdml按钮(“结束考试”)的事件响应代码: 将考生成绩记录在考生表中，并释放记录集对象。 返回目录 26文库专用 8.3 试题答题及评分程序的设计 5. 添加模块文件xt.bas “工程添加模块” ，添加一个模块，保存为xt.bas 在模块代码窗口中定义全局变量及通用过程 返回目录 27文库专用 8.4 有待完善的问题与思考 在学生考试库中，