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

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

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, "提示信息"

        newpassword(0).SetFocus

    ElseIf newpassword(1).Text = ""Then

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

        newpassword(1).SetFocus

    Else

        '判断原密码是否正确，新密码是否和原密码一致，新密码是否一致

        txtSQL = "select * from User_Infowhere userID= '" & UserName & "'"

        Set mrc = ExecuteSQL(txtSQL, MsgText)

       

        If Trim(mrc.Fields(1)) <>Trim(oldpassword.Text) Then

            MsgBox "原密码错误，请重新输入！", vbOKOnly +vbInformation, "提示信息"

            oldpassword.Text = ""

            oldpassword.SetFocus

        ElseIf Trim(newpassword(0).Text) =Trim(oldpassword.Text) Then

            MsgBox "旧密码不能与新密码一致！", vbOKOnly +vbInformation, "提示信息"

            newpassword(0).Text = ""

            newpassword(0).SetFocus

           

        ElseIf Trim(newpassword(0).Text)<> Trim(newpassword(1).Text) Then

            MsgBox "请核对两次输入是否一致，并重新输入！", vbOKOnly+ vbInformation, "提示信息"

            oldpassword.Text = ""

            newpassword(0).Text = ""

            newpassword(1).Text = ""

            oldpassword.SetFocus

           

        Else

         '修改密码

            mrc.Fields(1) = newpassword(0).Text

            mrc.Update

            mrc.Close

            MsgBox "密码修改成功，请重新登录系统！", vbOKOnly,"提示信息"

           ‘强制用户下机，重新登录系统

            Dim frm As Form

            For Each frm In Forms

                If frm.Name <>"Login" Then

                   

                    Unload frm

                    If myexit = vbNo Or myexit= vbYes Then

                        Cancel = False

                    End If

                    Frmmain.Hide                                               

                    Login.Show

                    Login.txtpassword.Text =""

                    Login.txtusername.Text =""

                   

                End If

            Next

        End If

    End If

   

       在修改密码的时候，我们应该要求用户改密码完成以后，强制用户重新登录，红字字体部分为该部分代码。

      小结：机房收费系统并没有很多太难的地方，只是一些小地方，我们需要改善，需要加强，让系统更加完善，更加适应使用者的需求。