VB【E咖吧收费系统】结账

前言

 说起结账大家肯定都不陌生，因为我们在做生意的时候一定要算算自己挣没挣到钱，要是不挣钱这个生意还做的话迟早就得倒闭。就拿我们的机房收费系统来说吧，结账就是一个很好的功能，而且是每天结账，一方面可以知道今天挣了多少钱，另一方面可以与昨天相比看自己赚钱还是赔钱，同理周结。
 还没做结账之前，师哥问我结账是给谁结的？怎么结的？我当时也是特别懵逼，不知道嘟囔些什么，后来看了很多巨人的博客才明白，原来结账的窗体中单次是给单个操作员结账，而结账按钮是结的总账，也就是说所有的操作员的帐，换句话来说就是给老板结的，因为操作员是给老板打工的嘛，钱又进不了他们的口袋。下面来看看我是怎么结的帐吧！

部分代码展示

给操作员结账

Private Sub cboUserID_Click()
    txtSQL = "select * from User_Info where userID='" & cboUserID.Text & "'"
    Set mrc7 = ExecuteSQL(txtSQL, MsgText)
    
    lblUserName.Caption = mrc7.Fields(3)
    mrc7.Close
    
    Call viewdata  '调用过程
End Sub
Private Sub viewdata()
    If cboUserID.Text = "" Then
        MsgBox "请选择操作员用户名", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If
 
    txtSQL = "select * from student_Info where UserID='" & cboUserID.Text & "' and date='" & Date & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    With MSHFlexGrid1
        .CellAlignment = 4
        .Rows = 1
        .ColWidth(2) = 1900
        .TextMatrix(0, 0) = "学号"
        .TextMatrix(0, 1) = "卡号"
        .TextMatrix(0, 2) = "日期"
        .TextMatrix(0, 3) = "时间"
        
    Do While Not mrc.EOF
        .Rows = .Rows + 1
        .CellAlignment = 4
        .TextMatrix(.Rows - 1, 0) = mrc.Fields(1)
        .TextMatrix(.Rows - 1, 1) = mrc.Fields(0)
        .TextMatrix(.Rows - 1, 2) = mrc.Fields(12)
        .TextMatrix(.Rows - 1, 3) = mrc.Fields(13)
        mrc.MoveNext
        Loop
    End With
    
    tx