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

        修改密码，其实非常简单，流程是这样的，首先输入原密码→输入新密码→再次确认新密码，输入完成以后，当点击修改密码的时候，开始进行验证，首先，原密码是否正确，原密码正确的前提下，判断新密码是否和原密码一致，不一致的情况下判断两次输入的新密码是否一致，如果此时新密码一致，那么提示用户修改密码成功，强制用户下线，因为在主界面关闭的时候需要有提示，此时就应该在用户即使选择不退出系统的情况下依然退出系统，具体代码如下：

Dim mrc AsADODB.Recordset

    Dim txtSQL, MsgText As String

    If oldpassword.Text = "" Then

        MsgBox "请输入当前密码！", vbOKOnly + vbInformation, "提示信息"

        oldpassword.SetFocus

    ElseIf newpassword(0).Text = ""Then

        MsgBox "请输入新密码！", vbOKOnly + vbInformation, "提示信息"