Office中国论坛/Access中国论坛

标题: 一个需要验证密码的用户登入界面 [打印本页]

作者: violetkan 时间: 2006-5-25 19:54
标题: 一个需要验证密码的用户登入界面
一个用户登入界面:一个用户一个密码，当密码输入正确时，方可进入。

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

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

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

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

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

谢谢诸位大侠

作者: 一点通 时间: 2006-5-25 20:00
可以用"登陆"关键字搜索一下论坛的旧贴

作者: WDLRCZT 时间: 2006-5-25 20:19
参照下面这个例子[attach]18037[/attach]

作者: violetkan 时间: 2006-5-25 21:40
感谢楼上那位大侠

不过我是个新用户，还没发过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 时间: 2006-5-25 22:42
把附件传上来看看

作者: xfol138716 时间: 2010-5-26 15:09
我也学习学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)