Office中国论坛/Access中国论坛

标题: 这个密码怎么设??? [打印本页]

作者: 追求曙光 时间: 2004-10-29 04:47
标题: 这个密码怎么设???
小弟按照书上说的,在自己设计的小系统开始的时候做了个界面,就是要输密码的,程序是这样的

Private Sub 登录_Click()

  '如果用户名不为空

  If IsNull(用户名) = False Then

  '根据输入的用户名查找相应的密码，看它和数据表中的密码记录是否一致



If DLookup("[密码]", "系统用户", "[用户名]= """ & 用户名 & """") = 密码 Then

  '如果一致，就关闭当前窗体，并打开客户单位列表窗体

DoCmd.Close

DoCmd.OpenForm "客户单位列表"

  Else

'如果不一致，就将密码框清空

密码 = ""

'设置密码框的焦点

密码.SetFocus

'弹出消息框报错

MsgBox "密码错误！", vbCritical

  End If

  End If

End Sub

东西是做好了,就是不知道密码那里去设,望那位高手指导迷津!!多谢多谢!

[attach]7375[/attach]

[此贴子已经被作者于2004-10-28 20:55:14编辑过]

作者: sweetduck 时间: 2004-10-29 17:14
http://www.office-cn.net/forum.php?mod=viewthread&tid=19632

作者: 追求曙光 时间: 2004-10-29 18:43
哦,明白了

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