第1个回答 推荐于2016-01-02
Private Sub OK_GotFocus()
Dim str As String
Dim rs As New ADODB.Recordset
logname = Trim(Me.UserName) '将两头空格全部去除
pwd = Trim(Me.PassWord) '将两头空格全部去除
If IsNull(logname) Then
DoCmd.Beep
MsgBox "请输入用户名称!", vbOKOnly, "提示信息"
Me.UserName.SetFocus
ElseIf IsNull(pwd) Then
DoCmd.Beep
MsgBox "请输入登录口令!", vbOKOnly, "提示信息"
Me.PassWord.SetFocus
Else
str = "Select * From Admin Where UserName= '" & logname & "' And PassWord='" & pwd & "'"
Set rs = GetRS(str)
If rs.EOF Then '未检索到当前记录则提示错误
DoCmd.Beep
MsgBox "用户名称或登录口令有误,请输入正确的用户名称和登录口令!", vbOKOnly, "提示信息"
Me.UserName.SetFocus
Else '正确登录后隐藏登录窗口
check = True
Me.Visible = False
DoCmd.OpenForm "欢迎", acNormal, , , , acDialog
End If
End If
Set rs = Nothing
Set conn = Nothing
End Sub本回答被提问者采纳