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

前言

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

思路整理



代码整理

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

后记

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