![](https://csdnimg.cn/release/download_crawler_static/87849130/bg9.jpg)
End If
End Sub
Private Sub Cmd1_Click()
rs1.Open "select * from 操作员信息表 where 操作员名称='" &
DataCombo1.BoundText & "'", Cnn,
adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
If DataCombo1.Text = "" Then
MsgBox ("请选择操作员~"), vbOKOnly
DataCombo1.SetFocus
Exit Sub
End If
'验证操作员及密码
Dim MESSAGE As String
Textime.Text = Tim
If Text2.Text = rs1.Fields("密码") Then
Load frm_main
frm_main.Show
czy = DataCombo1.Text
Unload Me
Else
If Tim = 3 Then
MESSAGE = MsgBox("密码输入错误,请向系统管理员查询!", 0, "")
If MESSAGE = vbOK Then End