Office中国论坛/Access中国论坛

标题: 关于登陆的简单问题求教，先谢了！ [打印本页]

作者: bbbbyyyy 时间: 2003-6-15 05:39
标题: 关于登陆的简单问题求教，先谢了！
想做一个登陆界面，用户名和密码存在表中，用户登陆时只能用组合框选用户名，然后输入密码，问题是如何知道选中的用户对应的密码是什么？这个窗体上用一个组合框、一个文本框、一个按钮是否就够了？

作者: bbbbyyyy 时间: 2003-6-15 05:57
我是新手，每人帮帮我吗?

作者: bbbbyyyy 时间: 2003-6-15 06:56
等了一晚上也没人帮我，先去睡，明天再来等，我就不信没人会！

作者: dinghui 时间: 2003-6-15 07:51

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

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

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

作者: bbbbyyyy 时间: 2003-6-15 18:35
在"一个酷毙了的用户登陆例子"的登陆界面里随便输入用户名然后确定，只能看到一个空白窗体，怎样看代码呢？

作者: bbbbyyyy 时间: 2003-6-18 04:50
我已经解决了，请大家指正：
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 时间: 2003-6-18 16:23
晕，大哥没必要这样麻烦吧，简化一些语言可以使速度加快哦：
If Me.password = DLookup("password", "用户表", "username= username") Then
DoCmd.Close
DoCmd.OpenForm "发票"

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

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

作者: krts 时间: 2003-6-18 16:25
晕，记住一点，同样达到一样的目的，一定要使过程最简化！！！

作者: 玉面飞狐 时间: 2003-6-18 18:36
If Nz([Txt密码]) = Nz(DLookup("[密码]", "用户密码表", "[用户名]=" & "'" & Combo用户名 & "'")) _
And Me.Combo用户名 <> "" Then
DoCmd.Close

作者: 想不通 时间: 2003-6-18 21:44
用户密码表放在同一个数据库里, 怎么安全呢?
能不能放在另一个加密的数据库里，用程序调用完后再关闭？

作者: 唐小小 时间: 2003-6-19 01:24
哈哈，有人会偷你密码啊，555，要小心点了

作者: bbbbyyyy 时间: 2003-6-20 03:59
谢谢各位的指点！
我是一个初学者，“玉面飞狐“兄的代码看不太懂，能否帮我解释一下？

作者: daihw 时间: 2003-6-20 17:45
请教一下，你们说的是用模块做的吗？我是新手，刚开始学习，能说的再明白一些吗？多谢了。

作者: 则卷小云 时间: 2003-8-29 03:26
请问在哪里输入以上的源码？？

作者: haixing 时间: 2003-8-29 04:58
Private Sub Form_Load()
If Nz([Txt密码]) = Nz(DLookup("[密码]", "用户密码表", "[用户名]=" & "'" & Combo用户名 & "'")) _
And Me.Combo用户名 <> "" Then
DoCmd.Close
end if
end sub

加在窗体的Load 事件中

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