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

收费系统】结账"/>

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.CloseCall viewdata  '调用过程
End Sub
Private Sub viewdata()If cboUserID.Text = "" ThenMsgBox "请选择操作员用户名", vbOKOnly + vbExclamation, "警告"Exit SubEnd IftxtSQL = "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,