一个需要验证密码的用户登入界面

violetkan

一个用户登入界面:一个用户一个密码，当密码输入正确时，方可进入。


具体：有一个原始表，叫“班级”：里面有[学号]、[姓名]等字段。


     有一个窗体，叫“登录”：上面有列表框“combo姓名”，用户登录时，可在其内选择一个名；还有一个文本框“输入密码框”，里面可输入密码（学号）。当所输入密码正确时，可以进入“数据库信息”窗体。


密码正确的条件是：所输入的密码号等于从“combo姓名”列表框所选姓名对应的学号时（该对应关系可从“班级”表中得到），密码正确。


可以VB代码，请解释清楚过程（尤其是验证姓名与密码的一致性）；


也可以宏，但要给出条件表达式具体形式。


谢谢诸位大侠                       

一点通

可以用"登陆"关键字搜索一下论坛的旧贴

WDLRCZT

参照下面这个例子

violetkan

感谢楼上那位大侠

不过我是个新用户，还没发过3个帖子，上面那个文件打不开。而且我没学过VB即使打开，太难的估计也看不懂。我在别处查到过一个：不过经我更改后并不执行预期操作：各位也可看看是哪里出错：

Private Sub 输入密码框_AfterUpdate()
If Nz([输入密码框]) = Nz(DLookup("[学号]", "班级", "[姓名]=" & "'" & Combo姓名 & "'")) _
    And Me.Combo姓名 <> "" Then                           '验证用户和密码)
      
        Me.Visible = False '隐藏窗体
      
        Dim stDocName As String
        
        stDocName = "数据库信息"  '进入主窗体

        DoCmd.OpenForm stDocName
        
Else

MsgBox "用户名和密码错误", , "请重新输入"
   Me.Combo姓名.SetFocus
   End If
   Exit Sub
   End Sub
'当我密码输入正确时，也弹出消息：“用户和密码错误，请重新输入”

WDLRCZT

把附件传上来看看

xfol138716

我也学习学习