[求助] 密码复杂性验证 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 密码复杂性验证

共有3623人关注过本帖树形打印复制链接主题：[求助] 密码复杂性验证

wumingrong1

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

[求助] 密码复杂性验证 发帖心情

Post By：2016/1/4 14:45:00 [显示全部帖子]

我有一个“TextBox”控件、该控件为录入密码控件；我希望在离开该控件后、如果在该控件中录入的内容没有包括数字、大小写字母、并且位长没有达到8位；那么弹出提示。

我在该控件的Leave中应该写什么样的命令？

wumingrong1

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2016/1/4 15:25:00 [显示全部帖子]

写了如下命令，没有成功；红色部分该怎么修改？

If e.Form.Controls("Password1").Text = "" Then

e.Form.Controls("新密码").Text = "请输入新密码"

Else

If e.Form.Controls("Password1").Text = e.Form.Controls("Password").Text Then

e.Form.Controls("新密码").Text = "新旧密码不可相同"

Else

Dim str As String = "23434343434"

Dim reg = new System.Text.RegularExpressions.Regex("[a-zA-Z0-9]+")

If reg.Ismatch(str) = False OrElse str.Length < 8 Then

e.Form.Controls("新密码").Text = "新密码复杂性不够"

Else

e.Form.Controls("新密码").Text = "√"

End If

wumingrong1

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2016/1/4 15:38:00 [显示全部帖子]

还是不行

If e.Form.Controls("Password1").Text = "" Then

e.Form.Controls("新密码").Text = "请输入新密码"

Else

If e.Form.Controls("Password1").Text = e.Form.Controls("Password").Text Then

e.Form.Controls("新密码").Text = "新旧密码不可相同"

Else

Dim str As String = e.Form.Controls("Password1").Text

Dim reg = new System.Text.RegularExpressions.Regex("[a-zA-Z0-9]+")

If reg.Ismatch(str) = False OrElse str.Length < 8 Then

e.Form.Controls("新密码").Text = "新密码复杂性不够"

Else

e.Form.Controls("新密码").Text = "√"

End If

wumingrong1

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2016/1/4 16:09:00 [显示全部帖子]

如果我想在打开修改密码窗口的AfterLoad写入命令，让【全局代码】中的 Public _userPassword As String 重新读取当前登陆用户的密码；我的命令该怎么写？

wumingrong1

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2016/1/4 16:15:00 [显示全部帖子]

登陆的时候已经赋了值、就是当我登陆系统后完成密码修改，当再次打开修改密码窗口在旧密码中输入修改后的密码会提示错误、而输入未修改前的密码就正确；

说明当我修改密码后、_userPassword并没有将密码修改为修改后的密码。

所以我想实现当完成密码修改后、_userPassword的赋值也能修改成新密码

[此贴子已经被作者于2016/1/4 16:16:08编辑过]

wumingrong1

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2016/1/4 16:25:00 [显示全部帖子]

就是不知道在点确定按钮时，给当前登陆用户的_userPassword赋值的命令该怎么写？

Public _userPassword As String = e.Form.Controls("Password1").Text

好像还缺什么，不对

[此贴子已经被作者于2016/1/4 16:29:57编辑过]

wumingrong1

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2019/3/6 9:15:00 [显示全部帖子]

以下命令可以判断密码是否有【大写字母】【小写字母】【数字】【密码位数必须超8位】；如果我想增加一个密码必须有【特殊符号】、该怎么写？

Dim reg = new System.Text.RegularExpressions.Regex("[***]+")

Dim reg = new System.Text.RegularExpressions.Regex("[A-Z]+")
                    If reg.Ismatch(Password) = False Then
                        msgbox("必须有大写字母")
                    Else

                        Dim reg1 = new System.Text.RegularExpressions.Regex("[a-z]+")
                        If reg1.Ismatch(Password) = False Then
                            msgbox("必须有小写字母")
                        Else

                            reg = new System.Text.RegularExpressions.Regex("[0-9]+")
                            If reg.Ismatch(Password) = False Then
                                msgbox("必须有数字")
                            Else

                                If Password.Length < 8 Then
                                    msgbox("必须大于8位")
                                Else

下一主题 >> << 上一主题

主题：[求助] 密码复杂性验证