机房收费系统之密码修改

       密码修改的窗体较为简单，这个窗体里并没有复杂的逻辑，都是常用的查询、更新语句，此窗体没有错误集和查询集，我们就简单的分享一下它的流程图和代码片段吧^_^

一、密码修改窗体流程图

二、代码片段

①、判断是否与原密码相同

    txtSQL = "select * from User_Info where userID='" & frmlogin.txtuserid.Text & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    If Trim(mrc.Fields(1)) <> Trim(txtoldpwd.Text) Then
        MsgBox "您输入的旧密码有误，请重新输入！", vbOKOnly, "温馨提示："
        txtoldpwd.SetFocus
        txtoldpwd.Text = ""
        Exit Sub
    End If

②、判断两次密码输入是否相同

    If txtnewpwd.Text <> txttruepwd.Text Then
        MsgBox "您两次密码不相同，请重新输入！", vbOKOnly, "温馨提示："
        txttruepwd.SetFocus
        txttruepwd.Text = ""
        Exit Sub
    End If
    

③、更新数据库数据

    updatetxtSQL = "update User_Info set PWD='" & Trim(txtnewpwd.Text) & "'where userID='" & frmlogin.txtuserid.Text & "'"
    Set updatemrc = ExecuteSQL(updatetxtSQL, updateMsgText)
    
    MsgBox "密码修改成功！", vbOKOnly, "温馨提示："

以上便是密码修改的简单梳理，下一站（学生查看上下机记录）走起^_^