Office中国论坛/Access中国论坛

标题: [求助][em01]密码验证中,如何处理密码掩码，附源码！ [打印本页]

作者: 田野 时间: 2002-5-27 21:18
标题: [求助][em01]密码验证中,如何处理密码掩码，附源码！
下面是我编的密码验证登录窗口,有这样的问题,把用户密码文本框的掩码设置"

ASSWORD"时,用户密码.text=****,不再是用户实际输入的字符,该如何处理.
Private Sub 确定_Click()
If IsNull([用户名]) Then
            MsgBox "请选择用户名", vbInformation, "提示信息"
      Else
            Me.Refresh
               用户名.SetFocus
                     strtext1 = 用户名.text
                        intnum1 = 用户名.Column((0), (用户名.ListIndex))
      strtext2 = DLookup("[用户密码]", "tb用户密码表", "[用户ID]=" & intnum1)
               用户密码.SetFocus
  End If
  If 用户密码.text = strtext2 Then
      DoCmd.Close
      DoCmd.OpenForm "w主界面窗体", acNormal, , , acFormReadOnly, acWindowNormal
      Else
      MsgBox "密码不对,请重新输入!", vbQuestion, "提示信息"
      用户密码.SetFocus
  End If
End Sub[em01]

作者: make 时间: 2002-5-27 22:40
显示的是****，保存的还是真正的密码

作者: tmtony 时间: 2002-5-28 06:43
不要使用TEXT属性。
请使用VALUE属性，此属性为文本框的缺省属性，举个例子，你的密码输入为333。
用用户密码.text获得值是 *** (且须先设置焦点到用户密码文本框）
用用户密码.value 或直接用用户密码获得的是333, 即你所需的

作者: 田野 时间: 2002-5-28 08:24
谢谢tmtony,问题已经解决.

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