机房收费系统之周结账单

 

 

       机房收费的周结账单是日结账单的衍生，因为在每一天中都可以结好几次帐，最后在日结账单表中一天的记录有好几个，而周结账单就是为了解决这个问题。把每一天的记录汇总成一条来显示出来，方便管理员清楚的了解到每天的营业情况。

 

  大致思路

 

  1.周结账单表是可以选择起始日期和终止日期来查看最近的消费情况。

  2.周结账单表是一张空的表，在需要的时候才添加数据，不需要的时候就会删除整个表中的数据。

 

  3.由于是一张空表，所以我们要添加记录

 

  4.我们要汇总每一天的总的消费、总退卡钱数、总充值钱数

 

 

  代码过程

 

 

  删除操作

  我们要在每一刷新的时候，都删掉表中的数据，然后再添加。

 

txtsql = "delete from checkweek"    '执行删除命令
Set mrc = executesql(txtsql, msgtext)

  添加空表数据

 

Do While endtime.Value - starttime.Value >= 0
txtsql1 = "select * from checkday where date ='" & Trim(starttime.Value - 1) & "'"
Set mrcc = executesql(txtsql1, msgtext)
If mrcc.EOF = True Then
mrcc.AddNew
mrcc.Fields(0) = 0
mrcc.Fields(1) = 0
mrcc.Fields(2) = 0
mrcc.Fields(3) = 0
mrcc.Fields(4) = 0
mrcc.Fields(5) = starttime.Value - 1
mrcc.Update

End If
Loop

  通过执行指针的操作来判断空表的存在，从而添加数据。

 

 

  消费、退卡，充值汇总

  此过程需要连接两次数据库

  代码如下：

 

 

Do
'执行汇总，得到各个记录的汇总
txtsql = "select sum(lastdate),SUM(onconsume),SUM(onrecharge),SUM(onreturn),sum(ondateall) from checkday where date='" & Trim(starttime.Value) & "'"
Set mrc = executesql(txtsql, msgtxt)

'上次剩余金额
txtsql2 = "select * from checkday where date='" & Trim(starttime.Value - 1) & "'"
Set mrc2 = executesql(txtsql2, msgtext)
mrc2.MoveLast
lastremain = mrc2.Fields(4)
mrc2.Close

'开始添加数据
txtsql1 = "select * from checkweek where date='" & Trim(starttime.Value) & "'"
Set mrcc = executesql(txtsql1, msgtext)

'此过程是用来把汇总表中记录添加到周结账单表中

mrcc.AddNew
mrcc.Fields(0) = lastremain
mrcc.Fields(1) = mrc.Fields(1)
mrcc.Fields(2) = mrc.Fields(2)
mrcc.Fields(3) = mrc.Fields(3)
mrcc.Fields(4) = lastremain + mrc.Fields(1) - mrc.Fields(3) + mrc.Fields(2)
mrcc.Fields(5) = starttime.Value
mrcc.Update
starttime.Value = starttime.Value + 1

Loop

    到此整个周结账单表中的数据就添加好了。