机房收费--修改密码

￡神魔★判官ぃ 2022-01-22 14:53 224阅读 0赞

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

![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 = ""

需要注意的是一般修改完密码都会让大家重新登录，所以代码的最后也是这样安排的。

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70]: /images/20220122/8dfdd1b1934b4c718554dcaf0166c016.png