怎么做才能实现在窗体里输入正确的用户名和密码,才能正确登录,若输入错误则提示用户名或密码错误。
直接在Access里做 我做的教师评价系统,需要学生登陆评教,有学生的用户名和密码,需要进入评教系统
第1个回答 2014-12-02
请进一步说明,用的什么编程环境,是直接在Access里做还是只使用access库?追问
Private Sub btnExit_Click()
DoCmd.Quit
End Sub
Private Sub btnLogin_Click()
If IsNull(UserName) Then
MsgBox "用户名不能为空,请重新选择!", vbExclamation + vbOKOnly, "提醒您!"
Me.UserName.SetFocus
Else
If IsNull(PassWord) Then
MsgBox "注意,您忘了输入密码!", vbExclamation + vbOKOnly, "提醒您!"
Me.PassWord.SetFocus
Else
If DLookup("[密码]", "学生密码", "学号='" & UserName & "'") = [PassWord] Then
Me.Visible = False
Me.PassWord = Null
MsgBox "登录成功!", vbExclamation, "提醒您"
Else
MsgBox "您输入的密码有误,请重新输入,注意大小写!", vbExclamation + vbOKOnly, "提醒您!"
Me.PassWord = Null
Me.PassWord.SetFocus
End If
End If
End If
End Sub
直接在Access里做 我做的教师评价系统,需要学生登陆评教,有学生的用户名和密码,需要进入评教系统
追答试编写代码如下:
Option Compare DatabasePrivate Sub btnExit_Click()
DoCmd.Quit
End Sub
Private Sub btnLogin_Click()
If IsNull(UserName) Then
MsgBox "用户名不能为空,请重新选择!", vbExclamation + vbOKOnly, "提醒您!"
Me.UserName.SetFocus
Else
If IsNull(PassWord) Then
MsgBox "注意,您忘了输入密码!", vbExclamation + vbOKOnly, "提醒您!"
Me.PassWord.SetFocus
Else
If DLookup("[密码]", "学生密码", "学号='" & UserName & "'") = [PassWord] Then
Me.Visible = False
Me.PassWord = Null
MsgBox "登录成功!", vbExclamation, "提醒您"
Else
MsgBox "您输入的密码有误,请重新输入,注意大小写!", vbExclamation + vbOKOnly, "提醒您!"
Me.PassWord = Null
Me.PassWord.SetFocus
End If
End If
End If
End Sub
设计界面图:
运行图: