机房收费--修改密码-蒲公英云

机房收费--修改密码

之前在敲学生信息管理系统时曾经做过类似的窗体，下面再总结一下机房收费系统的修改密码。其实这个窗体主要就是需要做一些判定条件：首先是先判断你输入的的原密码是否正确，其次判断新输入的密码与之前的旧密码是否相同，接着判断两次密码是否相同，当然最大的前提是它们都不能为空。

watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70

整体代码如下：

Dim txtsql As String             '存放数据库语句
  Dim MsgText As String            '存放返回信息
  Dim mrc As ADODB.Recordset       '存放记录集对象
  txtsql = "select * from User_Info where UserName='" & frmLogin.txtUserName.Text & "'"
  Set mrc = ExecuteSQL(txtsql, MsgText)
  If Trim(txtold.Text) <> Trim(mrc.Fields(3)) Then  '判断原密码是否正确
      MsgBox "原密码输入不正确", vbOKOnly + vbExclamation, "警告"
           txtold.SetFocus
           txtold.Text = ""
           txtPassword1.Text = ""
           txtPassword2.Text = ""
      Exit Sub
  End If
  '判断
  If Trim(txtold.Text) = Trim(txtPassword1.Text) Then
      MsgBox "新旧密码不能相同", vbOKOnly + vbExclamation, "警告"
      txtPassword1.Text = ""
      txtPassword2.Text = ""
  ElseIf txtPassword1.Text = "" Then
      MsgBox "新密码不能为空", vbOKOnly + vbExclamation, "警告"
      txtPassword1.SetFocus
      txtPassword1.Text = ""
      txtPassword2.Text = ""
  ElseIf txtPassword2.Text = "" Then
      MsgBox "确认密码不能为空，请再次确认密码", vbOKOnly + vbExclamation, "警告"
      txtPassword1.SetFocus
  ElseIf Trim(txtPassword1.Text) <> Trim(txtPassword2.Text) Then
      MsgBox "两次密码输入不一致！", vbOKOnly + vbExclamation, "警告"
      txtPassword2.SetFocus
      txtPassword2.Text = ""
  Else
  txtsql = "select * from User_Info where UserName='" & frmLogin.txtUserName.Text & "'"
      Set mrc = ExecuteSQL(txtsql, MsgText)
      mrc.Fields(3) = txtPassword1.Text
      mrc.Update
      mrc.Close
      MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码"
      Me.Hide
  End If
  End If
     MDIFrmMain.Hide
     frmLogin.Show
     txtPassword1.Text = ""
     txtPassword2.Text = ""