'验证操作员及密码
If Data2.Recordset.BOF = False Then Data2.Recordset.MoveFirst
Data2.Recordset.FindFirst "操作员 like " + Chr(34) + text1.BoundText + Chr(34) + ""
If Data2.Recordset.NoMatch Then
MsgBox ("操作员输入错误!")
Else
Data1.RecordSource = "select * from qxsz where 操作员='" & text1.BoundText & "'"
Data1.Refresh
If text1.BoundText <> "" And Text2.Text <> "" And Text2.Text = Data1.Recordset.Fields("密码") Then
Load main
main.Show
Unload Me
Else
If TIM = 3 Then '密码输错3次，退出系统
myval = MsgBox("密码输入错误,请向系统管理员查询!", 0, "")
If myval = vbOK Then End
End If
If text1.BoundText = "" Then
MsgBox ("请输入操作员!")
text1.SetFocus
Else
If text1.BoundText <> Data1.Recordset.Fields("操作员") Then
MsgBox ("查无此操作员,请重新输入操作员!")
text1.SetFocus
Else
If Text2.Text = "" Then
MsgBox ("请输入操作员密码!")
Text2.SetFocus
Else
If Text2.Text <> Data1.Recordset.Fields("密码") Then
MsgBox ("密码错误,请重新输入密码!")
TIM = TIM + 1
Text2.SetFocus
End If
End If
End If
End If
End If
End If
End Sub
Private Sub cmd2_Click()
End
End Sub
此程序段中，“IF”语句的作用是判断用户输入的用户名与密码和数据库的是否相同，如果相同，则执行unload me，如果用户名或密码输入错误，则提示。
使用户重新输入密码。
此窗体上另外还有二个Data1控件在程序运行时是看不到的，它们的作用是使VB与Access数据库相连，然后判断用户输入的用户名与密码是否与数据库中的一致，如果一致，则允许用户进入系统。此三个控件的创建方法如下：
首先，将Data控件拖放到窗体上，其次，设置它们的属性：
（1）Data1控件的属性设置如下图：
此两个属性的作用是保证Data控件与数据库相连。
Visible属性是使此控件运行时在窗体上不显示。
（2）Text3控件的属性设置如下：
后面几节的数据库的连接方法与此相同，不再解释。
6系统测试
6.1系统登录模块测试
（1）测试问题单
项目编号 测试类别:集成测试 序号: LWXT_001
产品标识 产品中文标识 文档范文选题系统—系统登录
第几次测试 2 测试工程师 XXX
测试模块/功能/性能 系统登录
测试记录单 测试时间 2007-5-20
问题记录
序号 故障现象 级别 处理人 处理时间 处理说明
1 输入用户名及密码后，不选择游客或用户选项仍可进入系统。 中 S 2007/5/20 已处理
2 当输入一用户名及密码后，在数据库中查找无该用户时无提示信息。 中 S 2007/5/20 已处理
3 管理员登录后显示后台不正确。 中 S 2007/5/20 目前不处理
（2）问题严重度描述,如表6.1所示:
表6.1
级别 描述
高 如使系统崩溃，功能无法实现或实现错误等
中 如界面中的错误，性能不优化，校验不严格等
低 如提示信息不明确，操作不方便，焦点跳转错误等
（3）填写说明
6.2用户选路线模块测试
(1)测试问题Bug单
项目编号： 测试类别：集成测试 序号：LWXT_002
产品标识 产品中文标识 范文选题系统—学生选题
第几次测试 2 测试工程师 XXX
测试模块/功能/性能 用户查询模块
测试记录单 测试时间 2007-5-23
问题记录
序号 故障现象 级别 处理人 处理时间 处理说明
1 用户登录系统后，对范文题目的选择不能在数据库中进行更新。 高 S 2007/5/23 已处理
2 用户登录系统后，无法显示