Office中国论坛/Access中国论坛

标题: 请教多用户登陆的代码问题 [打印本页]

作者: jjblue77 时间: 2006-3-12 00:01
标题: 请教多用户登陆的代码问题
Private Sub Form_Load()
'设置密码
Dim X As String
Dim Y As String
Do
X = InputBox("User Name:")
Loop Until X = "

MC"
Do
Y = InputBox("

assword Please:")
Loop Until Y = "jhk"

End Sub

以上代码可在启动时显示输入正确的用户名后，再出现一个输入密码的窗口

我想实现的是在启动窗体启动时，出现一个登陆窗口，可以同时输入用户名和密码，输入不正确时显示：
MsgBox "用户名不正确，请重新输入！"

还有要设置多用户和密码，不知道代码怎么写，请老鸟们帮帮忙，谢谢！

作者: jjblue77 时间: 2006-3-12 00:07
是不是还有其他的办法，我以独占方式打开数据库后在工具-安全-用户与组帐户-设置了用户名和密码，但是启动ACCESS也要输入用户名和密码，是怎么回事，请问各位大虾如何解决？

作者: msf 时间: 2006-3-12 00:17
最简单的方法：

建立一个用户表，至少包括用户名和密码字段，然后将用户表作为登陆窗体的数据源，用户名和密码邦定在窗体的用户名组合框，并且隐藏密码列，然后根据选择的用户名判断在密码框输入的密码与列表框邦定的密码是否相符：

if me.密码框=me.用户名.Column（1） then

进入系统

else

msgbox 密码错误

end if

[此贴子已经被作者于2006-3-11 16:19:35编辑过]

作者: jjblue77 时间: 2006-3-12 01:10
还是不太清楚：怎样“将用户表作为登陆窗体的数据源，用户名和密码邦定在窗体的用户名组合框，并且隐藏密码列”。是在启动窗体的属性里设置吗？可是没有看见，还有代码加在哪里，我刚学这个，都不太清楚，麻烦你讲讲详细的实现方法，谢谢了！

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