机房收费系统—日结账单

前言

??这个星期机房敲完了日周结账单和上下机，但是不同的人看待问题的角度不一样，所以大家做出来的机房也有一些差别，下面我就说一说我的想法。

问题的由来

??经过机房收费系统的尝试，相信大家都对原来的系统有了一些想法，或许原来的系统有些地方优化的不是很好，当然也正是因为这样给了我们想象的空间。
??我发现如果有一段时间我们没有查看日结账单，那么下一次的上期余额就会变成0，当然这是不行的。因为这个问题我也想到了一些其他的问题。
??1、首先第一个问题，就像上面所说，如果长时间没有更新日结账单，下一次的上期余额就会变成0。
??2、由于我们现在技术有限，机房的数据不是实时变更的，只有我们查看日结账单的时候，数据库中的内容才会刷新（当然有的小伙伴是结账的时候，大致都一个意思）。大家都知道上期余额是要用到昨天的余额的，但是假如当我们是中午的时候刷新了一次数据，然后下午和晚上我们都没有更新，当然下午和晚上还是营业的，那这个余额还是正确的余额吗？这个余额可能还停留在中午刷新的时候。
??3、还有一个问题，因为只有管理员才有权限查看日结账单和结账，如果管理员有事情，好几天都没有查看日结账单，那么这几天的数据就不会写入日结表中，我们看数据库的时候也会发现日结表中的数据是断断续续的，并不是每天都有的。那如果管理员就是想看缺失的这几天的收入情况怎么办呢？

逻辑流程图

??带着这三个问题，我进行了思考。当我们要动手写代码之前必须要弄清楚逻辑，那么流程图将是一个十分好用的工具。下面就是我的流程图：

??可能大家只看我的流程图并不能看明白我要表达的意思，那么我也讲解一下我的思路：
??首先我在加载日结账单这个窗体的时候，先判断日结表中是否有记录，如果没有则说明用户是第一次用这个软件，那么今天的上期余额就是0了。
??如果日结表中有数据，那么再判断一下数据库中是否有今天的记录，如果有那就更新今天的所有数据，当然上期余额不用改。
??如果没有今天的记录，我们就要将今天的所有数据写入日结表中了，但是在这之前要先更新一下昨天的数据，这样今天的上期余额不正确的问题就解决了。所以我们在写入日结表中时要先判断一下有没有昨天的记录，如果有，则说明之前的记录没有断过。
??如果日结表中没有昨天的记录，说明之前有些天是没有记录在日结表中的，所以我们只需要将数据更新到今天就可以了。我的解决方法就是：先查出日结表中最近的日期，然后循环逐一将每天的收入情况插入日结表中，直到日期到今天为止。

部分代码展示

??这是一直将缺失的数据更新到今天的代码

'将日结表中数据一直更新到今天
'查询日结表中最大的日期
txtsql = "select Top 1 date from CheckDay_Info order by date DESC"
Set mrc = ExecuteSQL(txtsql,msgtext)
MaxDate = mrc.Fields(0)
'当最大日期小于昨天的日期时
Do While MaxDate <= (Date - 1)
    '查询最大日期那天的余额
    txtsql = "select AllCash from CheckDay_Info where date = '" & MaxDate & "'"
    Set mrc = ExecuteSQL(txtsql,msgtext)
    If IsNull(mrc.Fields(0)) = True Then
        remaincash = 0
    Else
        remaincash = mrc.Fields(0)
    End If
    '查询最大日期后一天的充值金额
    txtsql = "select sum(addmoney) from Recharge_Info where date = '" & MaxDate + 1 & "'"
    Set mrc = ExecuteSQL(txtsql,msgtext)
    If IsNull(mrc.Fields(0)) = True Then
        rechargecash = 0
    Else
        rechargecash = mrc.Fields(0)
    End If
    '查询最大日期后一天的消耗金额
    txtsql = "select sum(consume) from Line_Info where offdate = '" & MaxDate + 1 & "'"
    Set mrc = ExecuteSQL(txtsql,msgtext)
    If IsNull(mrc.Fields(0)) = True Then
        consumecash = 0
    Else
        consumecash = mrc.Fields(0)
    End If
    '查询最大日期后一天的退换金额
    txtsql = "select sum(CancelCash) from CancelCard_Info where date = '" & MaxDate + 1 & "'"
    Set mrc = ExecuteSQL(txtsql,msgtext)
    If IsNull(mrc.Fields(0)) = True Then
        cancelcash = 0
    Else
        cancelcash = mrc.Fields(0)
    End If
    '计算最大日期后一天的余额
    allcash = remaincash + rechargecash - consumecash - cancelcash
    '最大日期加1
    MaxDate = MaxDate + 1
    '向日结表中插入最大日期后一天的数据
    txtsql = "insert into CheckDay_Info values(" & remaincash & "," & rechargecash & _
             "," & consumecash & "," & cancelcash & "," & allcash & ",'" & MaxDate & "')" 
    Call ExecuteSQL(txtsql,msgtext)
Loop

总结

??其实我们认为的很难，只是我们不熟悉而已，如果看两篇巨人们的博客，理清自己的思路之后，所谓的很难也就那么回事而已。
??可能我的想法比较偏颇，如果大家有什么高见，欢迎在评论中指出或者找个时间当面交流一下也是不错的。