通用心理测试系统的设计和开发.pptVIP

4、系统实现方法——代码编程 测试窗体代码 Load事件 设置控件内容 将记录集中对应的试卷名称内容显示到当前窗体的标题栏上 Me.Caption = Me.Caption --- rs.Fields(试卷名称) ? 将记录集中测试时间字段的值赋给变量testTime testTime = rs.Fields(测试时间) ? 设置窗体上显示剩余时间的控件 Me.lbl剩余时间.Caption = testTime 分钟 ? 设置窗体上显示已用时间的控件 Me.lbl已用时间.Caption = 0 分钟 ? 关闭记录集 rs.Close ? 构建新的SQL查询字符串,根据试卷编号在试题表中查询对应的试题信息 sSQL = select * from 试题 where 试卷编号= frmTesterInfo.paperID order by 试题编号 ? 根据SQL字符串打开记录集,发挥查询结果 rs.Open sSQL, dfwConn, 1, 3 ? 调用showQuestion自定义函数,显示试题内容 showQuestion End Sub 4、系统实现方法——代码编程 测试窗体代码 showQuestion过程 显示题目及选项 Private Sub showQuestion() 利用lbl试题控件显示试题内容 Me.lbl试题.Caption = rs.Fields(试题编号) 、 rs.Fields(试题内容) ? 如果该题的选项A字段不为空，则利用控件Option1显示选项A，并使Option1可见，并将选项A对应的分值保存在scores数组的对应元素中。 如果该选项为空，则隐藏对应控件 选项B到选项H都按此方法判断和设置。 ? If rs.Fields(选项A) Then Me.Option1.Caption = rs.Fields(选项A) scores(1) = rs.Fields(选项A分值) Me.Option1.Visible = True Else Me.Option1.Visible = False End If ? …… 设置默认选择为选项A Me.Option1.Value = True End Sub 4、系统实现方法——代码编程 测试窗体代码 开始测试按钮的Click事件 设置控件状态 启动计时器 Private Sub cmdStartTest_Click() 显示包含题目和选项的Frame3控件 Me.Frame3.Visible = True ? 使下一题按钮可用 Me.cmdNext.Enabled = True ? 使开始测试按钮不可用 Me.cmdStartTest.Enabled = False ? 初始化已用测试时间变量 usedTime = 0 ? 激活定时器,定时执行Timer1的Timer事件,显示测试时间信息 Me.Timer1.Enabled = True End Sub 4、系统实现方法——代码编程 测试窗体代码 定时器Timer1的Timer事件 设置控件状态 启动计时器 Private Sub Timer1_Timer() Timer1的Interval属性为1000,相对于1秒钟,因此每次执行Timer事件时将已用时间加1 usedTime = usedTime + 1 ? 将已用时间转换成分钟并显示,同时计算剩余时间并显示 Me.lbl已用时间.Caption = Format(usedTime / 60, 0) 分钟 Me.lbl剩余时间.Caption = Format(testTime - usedTime / 60, 0) 分钟 ? 如果剩余时间小于5分钟,则通过变换Frame2的背景颜色和时间信息控件的前景颜色提示测试者 If testTime - usedTime / 60 5 Then Me.lbl剩余时间.ForeColor = vbRed Me.Frame2.BackColor = QBColor(Int(Rnd() * 15) + 1) Me.lbl已用时间.ForeColor = RGB(0, 255, 0) Me.Label5.ForeColor = HFF0000 End If ? 如果测试时间到，提示测试者 If testTime - usedTime / 60 0 Then MsgBox 测试时间到，请单击确定按钮察看得分, vbInformation + vbOKOnly Me.Timer1.Enabled = False Me.cmdShowResult.Value = True End