这个密码怎么设???

追求曙光

小弟按照书上说的,在自己设计的小系统开始的时候做了个界面,就是要输密码的,程序是这样的



Private Sub 登录_Click()

  '如果用户名不为空

  If IsNull(用户名) = False Then

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

  

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

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

    DoCmd.Close

    DoCmd.OpenForm "客户单位列表"

  Else

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

    密码 = ""

    '设置密码框的焦点

    密码.SetFocus

   

'弹出消息框报错

    MsgBox "密码错误！", vbCritical

   

  End If

  End If

End Sub

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

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

sweetduck

http://www.office-cn.net/forum.php?mod=viewthread&tid=19632

追求曙光

哦,明白了