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