If txtExamNo.Text <> "" Then
sql4 = "and result_info.exam_no='" & txtExamNo.Text & "'"
Else
sql4 = " "
End If
If cboCourseName.Text <> "" Then
sql5 = "and result_info.course_name='" & cboCourseName.Text & "'"
Else
sql5 = " "
End If
sql = sql & sql1 & sql2 & sql3 & sql4 & sql5 ’合并各分支语句
ResultQuery.rsDK1 sql
If ResultQuery.rs1.EOF Then
ResultGrid.Clear
ResultGrid.FormatString = " | 员 工 号|姓 名| 课 程 编 号|课 程 名 称| 考试编号|分 数"
MsgBox "没有找到符合条件的记录！", vbOKOnly + vbInformation, "提示"’无记录提示
Else
ResultQuery.rsDK1 sql
Set ResultGrid.DataSource = ResultQuery.rs1
ResultGrid.FormatString = " | 员 工 号|姓 名| 课 程 编 号|课 程 名 称| 考试编号|分 数" ’显示查询结果
End If
End Sub
Private Sub Form_Load() ’表载入初始化显示
Set ResultQuery = New OpenRs
ResultGrid.FormatString = " | 员 工 号|姓 名| 课 程 编 号|课 程 名 称| 考试编号|分 数"
ResultQuery.rsDK1 "select student_info.student_id,student_info.student_name,result_info.course_no,result_info.course_name,result_info.exam_no,result_info.result from result_info inner join student_info on result_info.student_id=result_info.student_id inner join course_info on result_info.course_no=course_info.course_no where 1=1"
ResultGrid.Clear
Set ResultGrid.DataSource = ResultQuery.rs1
ResultGrid.FormatString = " | 员 工 号|姓 名| 课 程 编 号|课 程 名 称| 考试编号|分 数"
ResultQuery.rsDK1 "select distinct course_name from course_info"
While Not ResultQuery.rs1.EOF
cboCourseName.AddItem ResultQuery.rs1!course_name
ResultQuery.rs1.MoveNext
Wend
cboResult.AddItem ">=90" ’成绩查询条件的下拉列表
cboResult.AddItem ">=80"
cboResult.AddItem ">=70"
cboResult.AddItem ">=60"
cboResult.AddItem "<60"
cboResult.AddItem ""
End Sub
Private Sub txtExamNo_KeyPress(KeyAscii As Integer) ’考试编号的输入范围
If Not ((UCase(Chr(KeyAscii)) <= "Z" And UCase(Chr(KeyAscii)) >= "A") Or (Chr(KeyAscii) <= "9" And Chr(KeyAscii) >= "0") Or KeyAscii = 8) Then
KeyAscii = 0
End If
End Sub
Private Sub txtStudentId_KeyPress(KeyAscii As Integer) ’员工id的输入范围
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If Not ((Chr(KeyAscii) <= "Z" And Chr(KeyAscii) >= "A") Or (Chr(KeyAscii) <= "9" And Chr(KeyAscii) >= "0") Or KeyAscii = 8) Then
KeyAscii = 0
End If
End Sub
Private Sub txtstudentName_KeyPress(KeyAscii As Integer)
If KeyAscii = 39 Then KeyAscii = 0
End Sub
Private Sub cmdReturn_Click() ’设置返回键代码
ResultQuery.rsDK1 "select student_info.student_id,student_info.student_name,result_info.course_no,result_info.course_name,result_info.exam_no,result_info.result from result_info inner join student_info on result_info.student_id=result_info.student_id inner join course_info on result_info.course_no=course_info.course_no where 1=1"
Set ResultGrid.DataSource = ResultQuery.rs1
ResultGrid.FormatString = " | 员 工 号|姓 名| 课 程 编 号|课 程 名 称| 考试编号|分 数"
cboResult.Text = ""
txtStudentId.Text = ""
txtStudentName.Text = ""
txtExamNo.Text = ""
cboCourseName.Text = ""
End Sub
5.7 说明界面
该界面是系统设计者有关信息的说明，存于系统主界面内的帮助窗口下。
图5-7 说明界面
第辣章 系统的测试与分析
6.1 系统测试测试策略说明
6.1.1 整个系统界面窗口的测试
1）系统运行是否正常？
2）用户登录界面的使用及登录是否正常？
3）进入系统主界面后，有关的下拉菜单、工具条、对话框、按钮、图标和其他控件窗口使用是否正常？
4）显示的页面程序是否正常运行，读数据库时是否出错？
5）信息录入、保存、查询是否正常？
6）多用户信息录入是否互通，查询是否出错？
6.1.2 数据测试项目
1）能否识别输入数据的类型，长度？
2）数据库在大量的数据输入、输出时能否正常运行？
3）日期、数据等数值是否正确处理？
4）数据写入数据库时，数据是否写入对应的字段？
6.2 测试报告
6.2.1 用户登录界面、系统主界面的测试
1）测试日期：2006年4月28日上午9:00--11:00，测试人：蔡跃城
2）测试目的：a）验证系统是否能够正常运行；b）用户是否能够成功登录；c）系统主界面各下拉菜单、工具条等窗口的使用是否正常。
3）测试结果：
a）系统运行正常。与设计的设想吻合，在进入系统登录界面之前，能够预先出现系统欢迎界面。
b）用户登录过程正常。以不同权限的用户登录后，出现与设计设想一样的使用功能。
c）系统主界面各下拉菜单、工具条的使用正常。当鼠标指向系统主界面各下拉功能菜单时，下拉菜单能自动弹开，单击能正常出现对应功能的对话框。
6.2.2 课程信息管理功能的测试
1）测试日期：2006年4月28日下午15:00--17:00，测试人：蔡跃城
2）测试目的：a）验证课程信息管理功能的使用是否正常；b）课程基本信息是否能够正常录入、正常保存，及是否能够查询；c）课程培训需求是否能够正常录入、正常保存，及是否能够查询；d）数据录入时，数据是否写入对应的字段。
3）测试结果：
a）该功能可正常运行。登录系统后，进入系统主界面，单击课程信息管理菜单可弹开相应的下拉对话框。
b）课程基本信息可正常录入并保存、查询，如下图：
<< 上一页 [11] [12] [13] [14] 下一页