【机房收费系统】退卡

退卡窗体和充值窗体大致思路是一样的，只不过在图卡的窗体中要更改student中的信息，判断online是否正在上机其他的都是一样的

退卡流程图：

在文本框中显示信息：

 '在文本框中显示信息
    txt.FontSize = 16
    txt.Text = "退卡卡号：" & Trim(mrcca.Fields(0)) & vbCrLf & vbCrLf & _
                           "应退款金额：" & Trim(txtBackMoney.Text) & vbCrLf & vbCrLf & _
                           "退卡日期：" & Date & vbCrLf & vbCrLf & _
                           "退卡时间：" & mrcca.Fields(4) & vbCrLf & vbCrLf & _
                           "办理退卡老师:" & mrcca.Fields(5)
                           

修改student中的状态和余额：

mrcst.Fields(7) = 0
        mrcst.Fields(10) = "不使用"
        mrcst.Fields(11) = "未结账"
        mrcst.Update
        mrcst.Close

对文本框加限制，其他的都是小case啦！