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

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

第1个回答  2014-12-02
请进一步说明,用的什么编程环境,是直接在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


设计界面图:



运行图:


本回答被提问者采纳

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网