修改密碼是系統中必不可少的一項功能。對於使用者而言，無非就是輸入個原密碼，在輸入新密碼。可對於程式而言，可不是簡單的密碼轉換

先上流程圖

部分程式碼展示

 '判斷原密碼是否為空
    If txtOldpassword.Text = "" Then
        MsgBox "請輸入原密碼！", vbOKOnly + vbExclamation, "提示"
        txtOldpassword.SetFocus
        Exit Sub
    End If
    
    '判斷是否輸入新密碼
    If txtPassWord1.Text = "" Then
        MsgBox "請輸入新密碼！", vbOKOnly + vbExclamation, "提示"
        txtPassWord1.SetFocus
        Exit Sub
    End If
    
    '判斷是否輸入確認密碼
    If txtPassWord2.Text = "" Then
        MsgBox "確認密碼不能為空！", vbOKOnly + vbExclamation, "提示"
        txtPassWord2.SetFocus
        Exit Sub
    End If
    
    
    '檢查原密碼是否正確
    txtsql = "select * from User_Info where pwd= '" & Trim(frmLogin.txtPWD.Text) & "'" '--------Trim(txtOldpassword.Text) ？
    Set mrc = ExecuteSQL(txtsql, msgtext)
    
    If Trim(txtOldpassword.Text) <> Trim(mrc.Fields(1)) Then
        MsgBox "原密碼輸入不正確!", vbOKOnly + vbExclamation, "提示"
        txtOldpassword.Text = ""
        txtOldpassword.SetFocus
        Exit Sub
    Else
        If Trim(txtPassWord1.Text) = Trim(txtOldpassword.Text) Then
            MsgBox "新密碼不能與舊密碼相同", vbOKOnly + vbExclamation, "提示"
            txtPassWord1.Text = ""
            txtPassWord2.Text = ""
            txtPassWord1.SetFocus
        Else
            
    
            '判斷兩次輸入的密碼是否一致
            If Trim(txtPassWord1.Text) <> Trim(txtPassWord2.Text) Then
                MsgBox "兩次輸入的密碼不一致，請核對！", vbOKOnly + vbExclamation, "提示"
                txtPassWord1.Text = ""
                txtPassWord2.Text = ""
                txtPassWord1.SetFocus
        
            Else
'
                mrc.Fields(1) = txtPassWord2.Text
                mrc.Update
                mrc.Close
                MsgBox "密碼修改成功，即將重新登入系統", vbOKOnly + vbExclamation, "提示"
                
                Unload Me
                FrmMain.Hide
                frmLogin.Show
                frmLogin.txtUserID = ""
                frmLogin.txtPWD = ""
                frmLogin.txtUserID.SetFocus
            End If
        End If
    End If
 

細心很重要，在敲程式碼的過程中，不僅會鍛鍊我們的邏輯能力，更鍛鍊我們的細心程度。當然還有好多限制沒有展示。
後期陸續更新！