机房收费--充值和退卡

充值和退卡窗体在界面上非常相似，当然其过程也有点类似，那就放在一起来总结吧，先上图：

在充值的时候也需要判断充值的金额是否大于最低金额：

    If Val(txtaddmoney.Text) < Val(mrc.Fields(5)) Then
        MsgBox "充值金额不能少于最小金额！", vbOKOnly + vbExclamation, "警告"
        txtaddmoney.Text = ""
        txtaddmoney.SetFocus
    End if

这是充值的流程图，而退卡则省略了上图中对于金额的判断，因为金额是退卡时查询数据库然后才显示出来的，它的属性是只读的。但是有一点注意注意的是退卡需要先判断此卡号是否还在上机，如果还是上机状态，那么需要先让他下机，结账，然后再给它退卡，退完卡还要在学生表里把这个卡号的状态变为不再使用。