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

bbbbyyyy

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

bbbbyyyy

我是新手，每人帮帮我吗?

bbbbyyyy

等了一晚上也没人帮我，先去睡，明天再来等，我就不信没人会！

dinghui

以下是引用bbbbyyyy在2003-6-14 22:56:13的发言：
等了一晚上也没人帮我，先去睡，明天再来等，我就不信没人会！

这早就睡了,看首页上的"一个酷毙了的用户登陆例子"里面有个登录窗体,看一下程序吧.

[此贴子已经被作者于2003-6-14 23:51:25编辑过]

bbbbyyyy

在"一个酷毙了的用户登陆例子"的登陆界面里随便输入用户名然后确定，只能看到一个空白窗体，怎样看代码呢？

bbbbyyyy

我已经解决了，请大家指正：
Private Sub Form_Load()
'让所有控件有效，初始化用户名和密码框
    NameList.Enabled = True
    PassTxt.Enabled = True
    Study_Logon_command.Enabled = True
    ExitCmd.Enabled = True
    'NameList.ListIndex = -1
    PassTxt.Value = ""
End Sub

Private Sub Study_Logon_command_Click()
    If NameList.ListIndex = -1 Or PassTxt.Value = Null Then '判断是否选择了用户和是否输入了密码
        MsgBox "请选择用户名并输入正确的密码！"
    Else
        If PassTxt.Value = DLookup("[考生密码]", "考生表", _
                        "[考生编号]=NameList.ListIndex+1") Then '判断输入的密码是否与选择用户的密码相同
            MsgBox "ok"
        Else: MsgBox "请选择用户名并输入正确的密码2"
        End If
    End If
   
End Sub

krts

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

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

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

krts

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

玉面飞狐

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

想不通

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