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

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

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