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

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

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

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

结账流程：

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 

Part Two：从ID或Name中任意选择一个，便将该操作员的工作记录显示在SSTAB控件中，全部是“未结账”状态下的工作记录。（下面以充值选项为例）

 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 

Part Three：确认结账。将所有表中结账状态改变。（以充值表为例）

 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 

Part Four：解决问题。如果按照上面的流程去做，那么在结账表中只会出现该管理员点击“结账”后的记录。如果该管理员某天休息，没有及时结账，那么这一天的数据变会丢失。那么账单中肯定会少钱了，这系统做的就不合格了。所以，在此之前，我将所有信息都先存在了另一个新表中，不管是该管理员结账了还是没结账，数据都写进去。

 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 

Part Five：制作报表，以便查询账单。

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

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

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

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

报表与火锅的故事 上篇文章也谈到BI报表查询，但更多在讲技术人员的价值观，有标题党的嫌疑。本文回归技术分析，题目有点小写意，套用一个火锅店的小故事，重点是MPP与分布式数据库存储上的一个差异点，希望能达到通俗易懂的效果。
数据时代，信息化成熟的企业通常建设了很多BI报表系统，每天各级管理人员根据报表的数据调整企业整体的经营决策和各项具体措施、行动。系统除了保证数据准确，最受关注的就是查询的相应效率也就是延迟时间（Latency）。