机房收费系统——修改密码

前言

在机房收费系统中，修改密码算是很简单的窗体了，所以敲的过程中也是相当的顺利，没有遇到什么太大的问题！下面总结一下！

思路整理

代码整理

Private Sub cmdOk_Click()
    Dim txtSQL As String
    Dim msgtext As String
    Dim mrc As ADODB.Recordset

    If Trim(txtPWD.Text = "") Then
         MsgBox "请输入旧口令！", vbOKOnly + vbExclamation, "提示"
         txtPWD.SetFocus

    Else  '判断旧口令是否正确

         txtSQL = "select * from User_Info where PWD='" & txtPWD.Text & "'"
         Set mrc = ExecuteSQL(txtSQL, msgtext)

         If mrc.EOF = True Then
         MsgBox "原口令不正确，请重新输入！", vbOKOnly + vbExclamation, "提示"
         txtPWD.Text = ""
         txtPWD.SetFocus

    Else
         If Trim(txtNewPWD = "") Then
         MsgBox "请输入新口令！", vbOKOnly + vbExclamation, "提示"
         txtNewPWD.SetFocus

    Else
         If txtReNewPWD.Text <> txtNewPWD.Text Then
         MsgBox "两次口令不一致，请重新确认！", vbOKOnly + vbExclamation, "提示"
         txtReNewPWD.Text = ""
         txtReNewPWD.SetFocus
    Else
         mrc.Fields(1) = txtNewPWD.Text
         mrc.Update
         mrc.Close

         MsgBox "修改密码成功！", vbOKOnly + vbExclamation, "提示"
   End If
   End If
   End If
   End If
End Sub
           

后记

蚊子虽小也是肉啊！写到这里不禁要夸夸自己，以前这些简单的代码也不会敲，现在能够自己敲出来了！看来还得认真点，继续努力！