【学生】修改密码时显示旧密码

【前言】

在进行学生信息管理系统的时候，在修改密码的时候需要验证原密码是否是正确的。

【正文】

加入一个label控件，显示现在的用户名。

进入数据库进行查询，显示当前用户名。

  

   

    

     

    
    

     

      Private Sub Form_Load()
     
    
   

    

     

    
    

     
    Dim txtSQL As String
     
    
   

    

     

    
    

     
    Dim MsgText As String
     
    
   

    

     

    
    

     
 
     
    
   

    

     

    
    

     

          Width = 6252
     
    
   

    

     

    
    

     

          Height = 5640
     
    
   

    

     

    
    

     

          txtoldPassword.Text = ""
     
    
   

    

     

    
    

     

          txtPassword1.Text = ""
     
    
   

    

     

    
    

     

          txtPassword2.Text = ""
     
    
   

    

     

    
    

     
    
     
    
   

    

     

    
    

     
    '连接数据库
     
    
   

    

     

    
    

     

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

    

     

    
    

     
    Set mrc = ExecuteSQL(txtSQL, MsgText)
     
    
   

    

     

    
    

     
    
     
    
   

    

     

    
    

     
    'label框查询数据库
     
    
   

    

     

    
    

     

          Label4.Caption = Trim(mrc.Fields(0))
     
    
   

    

     

    
    

     

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

    

     

    
    

     
    Me.Show
     
    
   

    

     

    
    

     

          txtoldPassword.SetFocus
     
    
   

    

     

    
    

     

      End Sub
     
    
  
 

  
 
 

在确认修改的控件下，加一个判断，进入数据库进行判断，判断旧密码是否是当前用户的密码。正确就进行下一步，不正确就警示并重新输入。

  

   

    

     

    
    

     

      '验证原密码是否正确
     
    
   

    

     

    
    

     
        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
     
    
  
 

  
 
 

【后记】

有错误请联系我。

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

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