Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click
If MsgBox("是否确定退出系统？", vbQuestion + vbYesNo, "系统提示") = vbYes Then
DoCmd.Quit
Else
Exit Sub
End If
Exit_cmdClose_Click:
Exit Sub
Err_cmdClose_Click:
MsgBox Err.Description
Resume Exit_cmdClose_Click
End Sub
Private Sub cmdOK_Click()
On Error GoTo Err_cmdOK_Click
'第一步 判断用户情况
Call cobUser_LostFocus
If blnAsUser = True Then
Me.cobUser.SetFocus
Exit Sub
Else
Me.txtPwd.SetFocus
End If
'第二步 判断密码情况
Call txtPwd_LostFocus
If blnAsPwd = True Then
Me.txtPwd.SetFocus
Exit Sub
Else
Me.lblPwd.ForeColor = RGB(0, 100, 0)
Me.lblPwd.Caption = "√"
'MsgBox "测试通过 用户ID =" & userID
MsgBox "测试通过！"
Me.Visible = False
End If
Exit_cmdOK_Click:
Exit Sub
Err_cmdOK_Click:
MsgBox Err.Description
Resume Exit_cmdOK_Click
End Sub
Private Sub cobUser_LostFocus()
On Error GoTo Err_cobUser_LostFocus
blnAsUser = False
Dim blnUser As Boolean
blnUser = False
If IsNull(Me.cobUser) Then
Me.lblUser.ForeColor = RGB(255, 0, 0)
Me.lblUser.Caption = "× 用户名不能为空"
blnAsUser = True
'当此处不退出，则会运行到 用户不存在的错误提示
Exit Sub
End If
Set rsAs = New ADODB.Recordset
strAsSQL = "SELECT tb_user.用户ID,tb_user.用户名 FROM tb_user"
rsAs.Open strAsSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rsAs.MoveFirst
For iAs = 1 To rsAs.RecordCount
If rsAs!用户名 = Me!cobUser Then
blnUser = True
iAs = rsAs.RecordCount + 1
'赋值给全局变量，适用于模块 Macro_modUsersLog
Else
rsAs.MoveNext
End If
Next iAs
rsAs.Close
Set rsAs = Nothing
If blnUser = False Then
Me.lblUser.ForeColor = RGB(255, 0, 0)
Me.lblUser.Caption = "× 用户不存在"
blnAsUser = True
Exit Sub
Else
Me.lblUser.ForeColor = RGB(0, 100, 0)
Me.lblUser.Caption = "√"
End If
Exit_cobUser_LostFocus:
Exit Sub
Err_cobUser_LostFocus:
MsgBox Err.Description
Resume Exit_cobUser_LostFocus
End Sub
Private Sub txtPwd_LostFocus()
On Error GoTo Err_txtPwd_LostFocus
blnAsPwd = False
If IsNull(Me.cobUser) Then
Me.lblPwd.Caption = ""
Me.cobUser.SetFocus
Exit Sub
End If
If IsNull(Me.txtPwd) Then
Me.lblPwd.ForeColor = RGB(255, 0, 0)
Me.lblPwd.Caption = "× 密码不能为空"
blnAsPwd = True
End If
If DLookup("密码", "tb_user", "[用户名]=" & "'" & Me!cobUser & "'") <> Me!txtPwd Then
Me.lblPwd.ForeColor = RGB(255, 0, 0)
Me.lblPwd.Caption = "× 密码错误"
blnAsPwd = True
End If
Exit_txtPwd_LostFocus:
Exit Sub
Err_txtPwd_LostFocus:
MsgBox Err.Description
Resume Exit_txtPwd_LostFocus
End Sub
