机房收费系统的修改密码跟之前学生的修改密码有所不同。学生的是先输入用户名然后输入新密码,接着确认新密码。机房是首先输入旧密码然后再输入新密码最后确认新密码,等一切准备就绪,改完密码之后用户会被强制下机,重新登录系统。
首先判断文本框内是否输入内容
If oldpassword.Text = "" Then
MsgBox "请输入当前密码!", vbOKOnly + vbInformation, "提示信息"
oldpassword.SetFocus
ElseIf newpassword(0).Text = "" Then
MsgBox "请输入新密码!", vbOKOnly + vbInformation, "提示信息"
newpassword(0).SetFocus
ElseIf newpassword(1).Text = "" Then
MsgBox "请输入新密码!", vbOKOnly + vbInformation, "提示信息"
newpassword(1).SetFocus
Else
判断原密码是否正确,新密码是否和原密码一致,新密码是否一致
txtSQL = "select * from User_Info where userID= '" & UserName & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If Trim(mrc.Fields(1)) <> Trim(oldpassword.Text) Then
MsgBox "原密码错误,请重新输入!", vbOKOnly + vbInformation, "提示信息"
oldpassword.Text = ""
oldpassword.SetFocus
ElseIf Trim(newpassword(0).Text) = Trim(oldpassword.Text) Then
MsgBox "旧密码不能与新密码一致!", vbOKOnly + vbInformation, "提示信息"
newpassword(0).Text = ""
newpassword(0).SetFocus
ElseIf Trim(newpassword(0).Text) <> Trim(newpassword(1).Text) Then
MsgBox "请核对两次输入是否一致,并重新输入!", vbOKOnly + vbInformation, "提示信息"
oldpassword.Text = ""
newpassword(0).Text = ""
newpassword(1).Text = ""
oldpassword.SetFocus
Else
'修改密码
mrc.Fields(1) = newpassword(0).Text
mrc.Update
mrc.Close
MsgBox "密码修改成功,请重新登录系统!", vbOKOnly, "提示信息"
输入旧密码,然后修改完密码之后,强制用户下机,重新登录
If frm.Name <> "Login" Then
Unload frm
If myexit = vbNo Or myexit = vbYes Then
Cancel = False
End If
FrmMain.Hide
frmLogin.Show
frmLogin.txtPassword.Text = ""
frmLogin.txtUserName.Text = ""
End If
以上就是修改密码的主要过程,希望对大家有帮助。