机房收费系统之修改密码

      机房收费系统的修改密码跟之前学生的修改密码有所不同。学生的是先输入用户名然后输入新密码，接着确认新密码。机房是首先输入旧密码然后再输入新密码最后确认新密码，等一切准备就绪，改完密码之后用户会被强制下机，重新登录系统。

       首先判断文本框内是否输入内容

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

    以上就是修改密码的主要过程，希望对大家有帮助。