VB做的系统的登陆密码的修改代码

来源:百度知道 编辑:UC知道 时间:2024/03/29 02:33:10
用户名
旧密码
新密码
确认新密码
确定 取消
代码是什么?把代码需要该的地方标出来啊 谢谢

Private Sub Command1_Click()
'确认修改密码提交
If Text1(0).Text = "" Then
MsgBox "你没有输入名称,请重新输入!", 16, "错误!"
Exit Sub
ElseIf Text1(1).Text = "" Then
MsgBox "你没有输入原密码,请重新输入!", 16, "错误!"
Exit Sub
ElseIf Text1(2).Text = "" Then
MsgBox "你没有输入新密码,请重新输入!", 16, "错误!"
Exit Sub
ElseIf Text1(3).Text = "" Then
MsgBox "你没有再次输入新密码,请重新输入!", 16, "错误!"
Exit Sub
End If
If Text1(2).Text <> Text1(3).Text Then
MsgBox "你输入的新密码和再次输入的新密码不符,请重新输入!", 16, "错误!"
Exit Sub
End If
If Text1(0).Text <> YHMC Then
MsgBox "你输入的名称不是你的名称,请重新输入!", 16, "错误!"
Exit Sub
End If
If Text1(1).Text <> YHMM Then
MsgBox "你输入的原密码不是你的密码,请重新输入!", 16, "错误!"
Exit Sub
End If
Call conn
strSql = "s