关于登陆的简单问题求教，先谢了！

bbbbyyyy

想做一个登陆界面，用户名和密码存在表中，用户登陆时只能用组合框选用户名，然后输入密码，问题是如何知道选中的用户对应的密码是什么？这个窗体上用一个组合框、一个文本框、一个按钮是否就够了？

haixing

Private Sub Form_Load()
If Nz([Txt密码]) = Nz(DLookup("[密码]", "用户密码表", "[用户名]=" & "'" & Combo用户名 & "'")) _
    And Me.Combo用户名 <> "" Then                           
DoCmd.Close
end if
end sub

加在窗体的Load 事件中

则卷小云

请问在哪里输入以上的源码？？

daihw

请教一下，你们说的是用模块做的吗？我是新手，刚开始学习，能说的再明白一些吗？多谢了。

bbbbyyyy

谢谢各位的指点！
我是一个初学者，“玉面飞狐“兄的代码看不太懂，能否帮我解释一下？

唐小小

哈哈，有人会偷你密码啊，555，要小心点了

想不通

用户密码表放在同一个数据库里, 怎么安全呢?
能不能放在另一个加密的数据库里，用程序调用完后再关闭？

玉面飞狐

If Nz([Txt密码]) = Nz(DLookup("[密码]", "用户密码表", "[用户名]=" & "'" & Combo用户名 & "'")) _
    And Me.Combo用户名 <> "" Then                           
DoCmd.Close

krts

晕，记住一点，同样达到一样的目的，一定要使过程最简化！！！

krts

晕，大哥没必要这样麻烦吧，简化一些语言可以使速度加快哦：
If Me.password = DLookup("password", "用户表", "username= username") Then
DoCmd.Close
DoCmd.OpenForm "发票"

Else
Beep
MsgBox ("请输入正确的用户名与密码！")
end if

[此贴子已经被作者于2003-6-18 8:26:00编辑过]