991      阿里云  技术社区[云栖]

机房收费系统之结账与报表

机房收费系统在几天前终于告一个段落了，这篇是关于最后阶段结账与报表的总结。

结账，首先清楚该窗体的作用是：管理员对每个操作员工作情况的查看。其中包括售卡数量，充值金额以及退还金额。

知道全局后，操作上就会简单不少了。我们需要做的就是将遍历学生信息表、充值信息表和退卡信息表后的该操作员和结账状态为“未结账”的所有金额总计。然后在单击结账后，将汇总后的信息写入结账表，将前面三个表中的结账状态标记为“已结账”。

结账流程：

Part One：将所有操作员ID和Name提取出来，以供选择。（下面以选择姓名为例）

<strong><span >    '将数据库中操作员的UserName提供出来
    strTxtSQL = "select UserID from tb_User where userlevel='操作员'"
    Set mrc = ExecuteSQL(strTxtSQL, strMsgText)

    '点击操作员姓名，相应地出现其ID
    strTxtSQL = "select * from tb_User where username='" & comboOperatorName.Text & "'"
    Set mrc = ExecuteSQL(strTxtSQL, strMsgText)
    comboOperatorID.Text = mrc.Fields(0)</span></strong>

<strong><span > '充值选项
         RechargeFlexGrid.Visible = True
         '从充值表中查看是否有该操作员的充值工作记录
         strTxtSQL = "select * from tb_Recharge where checkState = '未结账' and UserID= '" & Trim(comboOperatorID.Text) & "'"
         Set mrc = ExecuteSQL(strTxtSQL, strMsgText)
            
         If mrc.EOF = True Then         '该操作员没有充值工作记录
                With RechargeFlexGrid
                    .Rows = 1
                    .TextMatrix(0, 0) = "卡号"
                    .TextMatrix(0, 1) = "学号"
                    .TextMatrix(0, 2) = "日期"
                    .TextMatrix(0, 3) = "时间"
                    .TextMatrix(0, 4) = "充值金额"
                End With
         Else
             With RechargeFlexGrid       '该操作员充值工作记录显示
                  .Rows = 1
                  .TextMatrix(0, 0) = "卡号"
                  .TextMatrix(0, 1) = "学号"
                  .TextMatrix(0, 2) = "日期"
                  .TextMatrix(0, 3) = "时间"
                  .TextMatrix(0, 4) = "充值金额"
                  .ColWidth(0) = 800
                  .ColWidth(1) = 800
                  .ColWidth(2) = 2000
                  .ColWidth(3) = 2000
                  .ColWidth(4) = 2000
                  Do While Not mrc.EOF
                        .Rows = .Rows + 1
                        .TextMatrix(.Rows - 1, 0) = mrc.Fields(2)
                        .TextMatrix(.Rows - 1, 1) = mrc.Fields(1)
                        .TextMatrix(.Rows - 1, 2) = mrc.Fields(4)
                        .TextMatrix(.Rows - 1, 3) = mrc.Fields(5)
                        .TextMatrix(.Rows - 1, 4) = mrc.Fields(3)
                        .ColWidth(0) = 800
                        .ColWidth(1) = 800
                        .ColWidth(2) = 2000
                        .ColWidth(3) = 2000
                        .ColWidth(4) = 2000
                    '该操作员通过学生充值所获得的金额
                        Rechargemoney = Rechargemoney + Trim(mrc.Fields(3))
                        mrc.MoveNext
                   Loop
                    '该操作员的售卡金额
                        txtRechargeSum.Text = Trim(Rechargemoney)
                        mrc.Close
              End With
                '该操作员的注册、充值和退卡后的总金额
                txtSum.Text = Val(Trim(txtSum.Text)) + Val(Trim(txtRechargeSum.Text)) - Val(Trim(txtReturnCardSum.Text))
          End If</span></strong>

<strong><span >'将所有信息修改为“已结账”
    strTxtSQL = "select * from tb_recharge where userid ='" & Trim(comboOperatorID.Text) & "'" & " and checkstate = '" & "未结账" & "'"
    Set mrc = ExecuteSQL(strTxtSQL, strMsgText)
      
    Do While mrc.EOF = False
       mrc.Fields(7) = "已结账"
       mrc.Update
       mrc.MoveNext
    Loop
       
     mrc.Close</span></strong>

<strong><span >'连接结账表，将新的信息写入表中
    '向结账表中添加数据
    strTxtSQL = "select * from tb_checkout where userid='" & Trim(comboOperatorID.Text) & "'"
    Set mrc = ExecuteSQL(strTxtSQL, strMsgText)
    '如果没有新的记录则提示
    If Trim(txtSaleCardCount.Text) = "0" And Trim(txtRechargeSum.Text) = "0" And _
        Trim(txtReturnCardCount.Text) = "0" And Trim(txtReturnCardSum.Text) = "0" And _
        Trim(txtSaleCardSum.Text) = "0" And Trim(txtSum.Text) = "0" Then
        MsgBox "数据未更新，结账操作无效！", vbOKOnly + vbExclamation, "结账提示"
    End If
     
    '如果有新的工作记录
     strTxtSQL = "select * from tb_checkout where userid='" & Trim(comboOperatorID.Text) & "'"
     Set mrc = ExecuteSQL(strTxtSQL, strMsgText)
     If mrc.EOF = True Then
        lastbalance = " 0"
     Else
        lastbalance = mrc.Fields(1)
     End If
     
         '向结账表中添加数据
         mrc.AddNew
         mrc.Fields(0) = frmLogin.txtUserName.Text
         mrc.Fields(1) = lastbalance
         mrc.Fields(2) = txtRechargeSum.Text
         mrc.Fields(3) = txtCasualSum.Text
         mrc.Fields(4) = txtReturnCardSum.Text
         mrc.Fields(5) = txtSum.Text
         mrc.Fields(6) = Date
         mrc.Fields(7) = "已结账"
         mrc.Update
         mrc.Close

    MsgBox "已成功结账！", vbOKOnly + vbExclamation, "结账提示"</span></strong>

<strong><span >       '不管是否结账，都将该操作员的信息写入DayCheck中
       '向表DayCheck中添加数据
        strTxtSQL = "select * from tb_daycheck where date ='" & Trim(Label10.Caption) & "'"
        Set mrc = ExecuteSQL(strTxtSQL, strMsgText)
        If mrc.EOF = True Then
            Trim(lastbalance) = 0
            mrc.AddNew
            mrc.Fields(0) = lastbalance
            mrc.Fields(1) = txtRechargeSum.Text
            mrc.Fields(2) = txtCasualSum.Text
            mrc.Fields(3) = txtReturnCardSum.Text
            mrc.Fields(4) = txtSum.Text
            mrc.Fields(5) = Date
            mrc.Update
            mrc.Close
        Else
            mrc.MoveLast
            lastbalance = Trim(mrc.Fields(4))
            mrc.MoveNext
            mrc.AddNew
            mrc.Fields(0) = lastbalance
            mrc.Fields(1) = txtRechargeSum.Text
            mrc.Fields(2) = txtCasualSum.Text
            mrc.Fields(3) = txtReturnCardSum.Text
            mrc.Fields(4) = txtSum.Text
            mrc.Fields(5) = Date
            mrc.Update
            mrc.Close
        End If</span></strong>

报表，一个以前没有接触的东西。刚开始，可能无从下手，不过我们可以站在巨人的肩膀上，如果你的报表还没有做，推荐一个师哥的博客：

用VB做报表（一）https://blog.csdn.net/wlccomeon/article/details/8269917  

用VB做报表（二）https://blog.csdn.net/wlccomeon/article/details/8296679

很详细的讲解，一个报表，也可以轻松搞定。
最后，说说做这个部分的感受。还是感觉全局认识很重要，如果心中没有谱，肯定不知道如何下手。与其浪费时间坐在那瞎想，瞎敲，还不如花些时间把流程弄明白。这样会起到一个事半功倍的效果。

最后更新：2017-04-03 20:19:30

  上一篇： 过滤器和拦截器异同

  下一篇： 2015火车票抢票，放票时间，几点放票