机房收费系统之修改密码

窗体功能：修改用户密码（登录到该系统的用户）

步骤：

1，判断输入的旧密码是否正确（是否为登录用户的密码，遍历用户表），若不是提示信息。

2，判断新密码和确认密码是否一致（密码不能为空，若空则提示），不一致则提示。

3，若修改成功后则将表中该用户的密码进行修改。

该窗体的代码：

'判断旧密码是否正确，并输入新密码
Private Sub cmdOk_Click()
Dim strSQL As String
Dim MsgString As String
Dim mrs As ADODB.Recordset
strSQL = "select * from Userinfo where Password='" & txtOldPwd.Text & "'"
Set mrs = ExecuteSQL(strSQL, MsgString)
If mrs.EOF = True Then
MsgBox "原密码不正确，请重新输入！", vbExclamation + vbOKOnly, "警告"
txtOldPwd.Text = ""
txtOldPwd.SetFocus
Else
If Trim(txtNewPwd.Text) = "" Then
MsgBox "密码不能设为空！", vbExclamation + vbOKOnly, "警告"
txtNewPwd.Text = ""
txtNewPwd.SetFocus
Else
If txtReNewPwd.Text <> txtNewPwd.Text Then
MsgBox "两次密码不一致，请重新输入确认密码！", vbExclamation + vbOKOnly, "警告"
txtReNewPwd.Text = ""
txtReNewPwd.SetFocus
Else
mrs.Fields(1) = txtNewPwd.Text
mrs.Update
mrs.Close
MsgBox "修改密码成功！", vbInformation + vbOKOnly, "修改密码"
Me.Hide
End If
End If
End If
End Sub