【学生】学生优化（二）修改密码

修改密码时需要显示用户名和旧密码，并判断输入的旧密码是否是当前用户的密码。修改密码成功之后需要重新登录。

加一个label框，来显示当前用户名。

  

   

    

     

    
    

     

      Private Sub Form_Load()
     
    
   

    

     

    
    

     

          Label4.Caption = "当前用户名为：" & UserName
     
    
   

    

     

    
    

     

      End Sub
     
    
  
 

 从数据库中查询当前用户名和旧密码，并判断输入的旧密码是否正确。同时判断新旧密码不一致。

  

   

    

     

    
    

     

      '进入数据库进行查询当前用户名和密码 
     
    
   

    

     

    
    

     

      txtSQL = "select * from [user_Info] where user_ID = '" & UserName & "'"
     
    
   

    

     

    
    

     
        Set mrc = ExecuteSQL(txtSQL, MsgText)
     
    
   

    

     

    
    

     
        
     
    
   

    

     

    
    

     
        '验证原密码是否正确
     
    
   

    

     

    
    

     
        If Trim(txtoldPassword.Text) = Trim(mrc.Fields(1)) Then
     
    
   

    

     

    
    

     
        Else
     
    
   

    

     

    
    

     

                  MsgBox "旧密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
     
    
   

    

     

    
    

     

                  txtoldPassword.SetFocus
     
    
   

    

     

    
    

     

                  txtoldPassword.Text = ""
     
    
   

    

     

    
    

     

                  txtPassword1.Text = ""
     
    
   

    

     

    
    

     

                  txtPassword2.Text = ""
     
    
   

    

     

    
    

     
            Exit Sub
     
    
   

    

     

    
    

     
        End If
     
    
   

    

     

    
    

     
 
     
    
   

    

     

    
    

     
        '验证新密码与原密码不能一致
     
    
   

    

     

    
    

     
        If Trim(txtoldPassword.Text) <> Trim(txtPassword1.Text) Then
     
    
   

    

     

    
    

     
        Else
     
    
   

    

     

    
    

     

                  MsgBox "新密码与旧密码不能一致，请重新输入！", vbOKOnly + vbExclamation, "警告"
     
    
   

    

     

    
    

     

                  txtPassword1.SetFocus
     
    
   

    

     

    
    

     

                  txtPassword1.Text = ""
     
    
   

    

     

    
    

     

                  txtPassword2.Text = ""
     
    
   

    

     

    
    

     
            Exit Sub
     
    
   

    

     

    
    

     
        End If
     
    
  
 

  
 
 

密码修改正确，需要重新登录。

  

   

    

     

    
    

     
    If mrc.RecordCount = 0 Then
     
    
   

    

     

    
    

     

                  MsgBox "记录为空，请先添加！", vbOKOnly + vbExclamation, "警告"
     
    
   

    

     

    
    

     

                  mrc.Close
     
    
   

    

     

    
    

     
            Set mrc = Nothing
     
    
   

    

     

    
    

     

                  frmMain.Show
     
    
   

    

     

    
    

     
        Else
     
    
   

    

     

    
    

     

                  mrc.Fields(1) = txtPassword2.Text
     
    
   

    

     

    
    

     

                  mrc.Update
     
    
   

    

     

    
    

     

                  mrc.Close
     
    
   

    

     

    
    

     

                  MsgBox "密码修改成功，请重新登录！", vbOKOnly + vbExclamation, "修改密码"
     
    
   

    

     

    
    

     
 
     
    
   

    

     

    
    

     

                  Unload Me
     
    
   

    

     

    
    

     

                  Unload frmMain
     
    
   

    

     

    
    

     

                  Unload frmLogin
     
    
   

    

     

    
    

     

                  frmLogin.Show
     
    
   

    

     

    
    

     
     End If
     
    
  
 

  
 
 

文章来源: blog.csdn.net，作者：张艳伟_Laura，版权归原作者所有，如需转载，请联系作者。

原文链接：blog.csdn.net/Laura__zhang/article/details/99771376