在平台上解决用户修改密码过于简单的问题？

时　间:2013-04-06 13:51:48
作　者:李锋   ID：28974  城市：重庆
摘　要:在平台上修改密码加以限制。
正　文:

在平台上提供了用户密码功能，但个人修改密码可以改得简单，比如，全数字，相同字符。为了对用户修改密码加以限制，一是字符数大于11；二是要用字符和数字等结合；三是不能用全字符或全数字，数字不是超过9位。自已试着编了程序，达到了要求，当然程序也有改进的地方。

步骤z：

1、打开窗体usysfrmPWS_Modify_child的设计窗口：

2、在新密码txtNewPWS的更新后写下事件程序：

If VarType(Me.txtNewPWS) <> 8 Then
MsgBox "新密码必须是带有字符、数字、符号，并不能小于11位，请重新输入！", vbOKOnly, "修改密码"
Me.txtNewPWS = ""
Me.txtNewPWS.SetFocus
Exit Sub
ElseIf Val(GetNum(Me.txtNewPWS)) = 0 Then

MsgBox "新密码应包括字符、数字、符号，请重新输入！", vbOKOnly, "修改密码"
Me.txtNewPWS = ""
Me.txtNewPWS.SetFocus
Exit Sub
ElseIf Len(Str(GetNum(Me.txtNewPWS))) > 9 Then

MsgBox "新密码数字不能超过9位，请重新输入！", vbOKOnly, "修改密码"
Me.txtNewPWS = ""
Me.txtNewPWS.SetFocus
Exit Sub
ElseIf Len(Me.txtNewPWS) < 11 Then
MsgBox "新密码的位数不能小于11位，请重新输入！", vbOKOnly, "修改密码"
Me.txtNewPWS = ""
Me.txtNewPWS.SetFocus

经试验符合要求。