机房收费系统—日结账单

前端之家收集整理的这篇文章主要介绍了机房收费系统—日结账单前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

前言

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

问题的由来

  经过机房收费系统的尝试,相信大家都对原来的系统有了一些想法,或许原来的系统有些地方优化的不是很好,当然也正是因为这样给了我们想象的空间。
  我发现如果有一段时间我们没有查看日结账单,那么下一次的上期余额就会变成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

总结

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

原文链接:https://www.f2er.com/vb/256229.html

猜你在找的VB相关文章