VB【E咖吧收费系统】下机

####前言
 不知上篇的上机大家懂了没？反正小编又要发干货，欢迎大家“抢购”，下机其实和上机大同小异，唯一的区别就是你得计算消费者消费了多长时间，花了多少钱，最后还剩多少钱。这和我们平时去网吧的套路差不多，只不过现在你变成了程序的缔造者，加油啊！

####代码分享

Private Sub cmdOffline_Click()
    txtSQL = "select * from student_Info where cardno ='" & Trim(txtCardID.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    If mrc.EOF = True Then
        MsgBox "该卡号不存在，请先注册！", vbOKOnly + vbExclamation, "警告"
        txtCardID.SetFocus
        txtCardID = ""
        txtType.Text = ""
        txtStudentID.Text = ""
        txtName.Text = ""
        txtMajor.Text = ""
        txtSex.Text = ""
        txtOnlineDate.Text = ""