修改密码是系统中必不可少的一项功能。对于使用者而言，无非就是输入个原密码，在输入新密码。可对于程序而言，可不是简单的密码转换

先上流程图

部分代码展示

 '判断原密码是否为空
    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

细心很重要，在敲代码的过程中，不仅会锻炼我们的逻辑能力，更锻炼我们的细心程度。当然还有好多限制没有展示。
后期陆续更新！