机房收费系统之修改密码

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

步骤：

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