关于密码窗体里输入密码框的密码不会自动删除

LSM　发表于：2009-09-10 23:02:08 　

复制

当我做完一切操作准备开始运行的时候

运行密码窗体输入错误的密码（点确定）

—————————————————————————

“密码错误” 当我输入第二遍的时候

系统不会自动把原先的错误密码删除

而是要我自己手动把它删除这太麻烦了

还有如果我输入正确的密码进入下一个窗口时

原先这窗口的密码还在一般来说它会自动删掉

就因为这两点（即麻烦又不安全）

所以就

跑来问一下

我应该怎么设置

麻烦各位了

Top

LSM 发表于：2009-09-10 23:05:52

在想补充一点输入的密码能区分它的大小写吗？如果能我在属性里应该怎么设置

Top

残荷听雨发表于：2009-09-11 01:13:32

附件不能上传？

Top

残荷听雨发表于：2009-09-11 01:42:33

Private Sub Command2_Click()
   If IsNull(Me.Text0) Then
      MsgBox ("您未输入密码！")
      Me.Text0.SetFocus
      Exit Sub
   End If

   Dim I, J, K As Integer
   K = 0
   For I = 1 To Len(Me.Text0)
       J = Asc(Mid(Me.Text0, I, 1))
       If J >= 65 And J <= 90 Then
          K = 1
          MsgBox ("您使用了大写字母，请切换为小写！")
          Exit For
       End If
   Next I

   If K = 1 Then
      Me.Text0.SetFocus
      Me.Text0 = Null
      Exit Sub
   End If

   If Me.Text0 = "123asd" Then
      Me.Text0 = Null
      DoCmd.OpenForm "点击“确定”按钮后打开的窗体", acNormal, "", "", , acNormal
      Exit Sub
   Else
      Me.Text0 = Null
      MsgBox ("密码错误！")
      Me.Text0.SetFocus
   End If


End Sub

Top

残荷听雨发表于：2009-09-11 01:45:47

附件不能上传，不知咋回事？只好将代码上传。测试密码：123asd

不输入密码、含大写、密码错误等情况均测试一下。

Top

LSM 发表于：2009-09-11 16:16:58

谢谢你

好完整

可我想问一下

方法是不是在按钮里写代码

而不是在按钮的属性里设置

或者说是在宏里建命令。