p; main.StatusBar1.Panels(4).Text = text1.Text '赋值给main.StatusBar1.Panels(4).Text
'验证操作员及密码
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，如果用户名或密码输入错误，则提示。
