【第一次机房收费系统】—修改密码

一、思维导图
这个容易理解，就不写了哈。
二、代码

Private Sub cmdOk_Click()
     Dim txtSQL As String
     Dim msgtext As String
     Dim mrc As ADODB.Recordset
     Dim updatemrc As ADODB.Recordset
    
    '判断输入的旧口令是否为空
    If Not Testtxt(txtOldPwd.Text) Then
        MsgBox "请输入旧口令！", vbOKOnly + vbExclamation, "警告"
        txtOldPwd.SetFocus
        Exit Sub
        
    End If
    
       '判断输入的新口令是否为空
    If Not Testtxt(txtNewPwd.Text) Then
        MsgBox "请输入新口令！", vbOKOnly + vbExclamation, "警告"
        txtNewPwd.SetFocus
        Exit Sub
        
    End If
    
        '判断输入的确认新口令是否为空
    If Not Testtxt(txtOknewPwd.Text) Then
        MsgBox "请确认新口令！", vbOKOnly + vbExclamation, "警告"
        txtOknewPwd.SetFocus
        Exit Sub
        
    End If
    
    txtSQL = "select * from User_Info where userID='" & frmlogin.txtUserName.Text & "'"
    Set mrc = ExecuteSQL(txtSQL, msgtext)
    
    If Trim(mrc.Fields(1)) <> Trim(txtOldPwd.Text) Then
        MsgBox "您输入的旧密码有误，请重新输入！", vbOKOnly, "温馨提示："
        txtOldPwd.SetFocus
        txtOldPwd.Text = ""
        Exit Sub
    End If
    
    If txtOknewPwd.Text <> txtOknewPwd.Text Then
        MsgBox "您两次密码不相同，请重新输入！", vbOKOnly, "温馨提示："
        txtOknewPwd.SetFocus
        txtOknewPwd.Text = ""
        Exit Sub
    End If
    
    txtSQL = "update User_Info set PWD='" & Trim(txtNewPwd.Text) & "'where userID='" & frmlogin.txtUserName.Text & "'"
    Set updatemrc = ExecuteSQL(txtSQL, msgtext)
    
    MsgBox "密码修改成功！", vbOKOnly, "温馨提示："
   
End Sub