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

【前言】

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

【正文】

加入一个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