机房收费系统之结账窗体理解

 原因  

最近在学习机房收费系统的时候，我发现再一次暴躁了，，狂躁症使我崩溃，但是后来在新月的讲解下，我慢慢的懂了这是咋回事，既然理解了就很好敲了，所以今天就来说说我的理解

 本窗体目的

为了能清楚这一天，操作员账目的情况，赚了多少钱，进来了多少钱，退了多少钱，每笔钱花在哪了

本窗体的方法

为了很明确的看到每一个操作员都创造了那些收益，或者进行了什么样的流入流出，让管理员选择一个操作员，然后把他账下的卡数，钱，一一进行显示，最后汇总一下，看看总共赚了多少钱

本窗体的代码

              两部分：一部分是单纯显示信息部分，即查看某个操作员下，他的卡数，钱的流动情况，把这些信息显示出来，第二个部分就是汇总的部分，这里涉及到算账了，算一下这个操作员这一天总共的获利，是赚了还是赔了呢？

        显示部分的代码：注意，因为使用的SSTAB控件，所以我用到了select   case 语句

   以充值信息举例：

         

Case 2
        Dim txtSQLs As String
        Dim MsgText As String
        Dim mrcs As ADODB.Recordset

        '从Recharge_Info表中调出数据。

        txtSQLs = "select * from ReCharge_Info where UserID='" & comboOpUserID.Text & "'and Ischeck='未结账'"
        Set mrcs = ExecuteSQL(txtSQLs, MsgText)


            With MSHFlexGrid3
                .CellAlignment = 4
                .Cols = 4
                .Rows = 1
                .TextMatrix(0, 0) = "学号"
                .TextMatrix(0, 1) = "卡号"
                .TextMatrix(0, 2) = "日期"
                .TextMatrix(0, 3) = "时间"
                .TextMatrix(0, 4) = "充值金额"
            End With
        If mrcs.RecordCount <> 0 Then

            Do While mrcs.EOF = False
                With MSHFlexGrid1
                    .CellAlignment = 4
                    .Cols = 4
                    .Rows = .Rows + 1
                    .TextMatrix(.Rows - 1, 0) = mrcs.Fields(1)
                    .TextMatrix(.Rows - 1, 1) = mrcs.Fields(2)
                    .TextMatrix(.Rows - 1, 2) = mrcs.Fields(4)
                    .TextMatrix(.Rows - 1, 3) = mrcs.Fields(5)
                    .TextMatrix(.Rows - 1, 4) = mrcs.Fields(3)
                    mrcs.MoveNext
                End With
            Loop
        End If

这是我的理解，对于我来说最难的就是那段显示的代码，好在理解了