Question

用access数据库实现用户登录，我建了一个包括用户名和用户密码的表，做了一个窗体，窗体里有用户名和密码

怎么做才能实现在窗体里输入正确的用户名和密码，才能正确登录，若输入错误则提示用户名或密码错误。
直接在Access里做 我做的教师评价系统，需要学生登陆评教，有学生的用户名和密码，需要进入评教系统





Answer 1

请进一步说明，用的什么编程环境，是直接在Access里做还是只使用access库？

追问

直接在Access里做 我做的教师评价系统，需要学生登陆评教，有学生的用户名和密码，需要进入评教系统

追答

试编写代码如下：

Option Compare Database

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

设计界面图：

运行图：