【机房收费系统】修改密码

      对于修改密码也是很熟悉的一个窗体。因为在学生信息系统管理中也有修改密码的窗体。首先输入原密码→输入新密码→再次确认新密码，输入完成以后，当点击修改密码的时候，开始进行验证，首先，原密码是否正确，原密码正确的前提下，判断新密码是否和原密码一致，不一致的情况下判断两次输入的新密码是否一致，如果此时新密码一致，那么提示用户修改密码成功，强制用户下线，因为在主界面关闭的时候需要有提示，此时就应该在用户即使选择不退出系统的情况下依然退出系统

下面来看看l流程图和重要代码吧!

窗体显示：

部分代码：

判断密码:

If Trim(txtoldpwd.Text = "") Then
         MsgBox "请输入旧口令！", vbOKOnly + vbExclamation, "提示"
         txtoldpwd.SetFocus
         txtoldpwd.Text = ""
         Exit Sub

    Else                                '判断旧口令是否正确
         txtSQL = "select * from User_Info where PWD='" & txtoldpwd.Text & "'"
         Set mrc = executeSQL(txtSQL, msgtext)

         If mrc.EOF = True Then
            MsgBox "原口令不正确，请重新输入！", vbOKOnly + vbExclamation, "提示"
            txtoldpwd.Text = ""
            txtoldpwd.SetFocus
            Exit Sub
        Else
         If Trim(txtnewpwd = "") Then
            MsgBox "请输入新口令！", vbOKOnly + vbExclamation, "提示"
            txtnewpwd.SetFocus
            txtnewpwd.Text = ""
         Exit Sub

        Else
         If txtrenewpwd.Text <> txtnewpwd.Text Then
             MsgBox "两次口令不一致，请重新确认！", vbOKOnly + vbExclamation, "提示"
             txtrenewpwd.Text = ""
             txtrenewpwd.SetFocus
            Exit Sub
        Else
         mrc.Fields(1) = txtnewpwd.Text
         mrc.Update
         mrc.Close
            MsgBox "修改密码成功,！", vbOKOnly, "修改密码"

密码不能粘贴复制：

Private Sub txtoldpwd_KeyDown(KeyCode As Integer, Shift As Integer)
    If (KeyCode = 86 Or KeyCode = 67 Or KeyCode = 88) And Shift = 2 Then
        MsgBox "密码不能粘贴复制!", vbOKOnly + vbExclamation, "提示"
        txtoldpwd.Text = ""
        End If
        
End Sub