在平台上解决用户修改密码过于简单的问题?
时 间: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
经试验符合要求。
Access快速开发平台QQ群 (群号:321554481) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)