机房收费系统之结账

来源:互联网 发布:matlab根据数据求函数 编辑:程序博客网 时间:2024/03/29 20:39

 

 

     在做机房收费系统的时候,最麻烦的事情,莫过于结账、日结与周结账单的操作。下面就来说一下我自己的经验。

 

         思路

 

 

 

           这是我们需要操作的界面。

  在做的过程中,思路很重要,思路通了,整个代码也就基本上做出来了。

  下面就来分析一下这个界面的功能。

 

 

  1.通过选择不同的操作员,下面就呈现不同的操作员的工作记录。

  2.购卡账单,显示购买卡学生的信息。

  3.退卡账单显示退卡学生信息

  4.充值卡显示充值学生信息。

  5.结账界面,就是整个操作的汇总。

 

 

 

  代码过程

  以上的操作怎么转变为代码呢?

  操作员的设置。

    在操作员选择的部分是同步的(选择好操作员姓名后,下面就是操作员的真实姓名),其实感觉这个功能是多余的。

  

 '选择框写入相应的人员的名字    txtsql = "select * from userinfo where level='" & "操作员" & "'"    '选择用户级别    Set mrc = executesql(txtsql, msgtext)          Do While mrc.EOF = False        text33.AddItem mrc.Fields(0)                '通过循环进行添加        mrc.MoveNext     Loop


   这个功能是自动添加相应的操作员。那么怎么实现同步呢?

   这个也好实现,只需要相应的组合框的单击事件即可同步。

 

 

   购卡界面

   购卡界面,是通过切换实现,此操作员的购卡信息。代码如下:

  

     '开始写入购卡信息    If sstab1.Tab = 0 Then                '切换不同选项卡来写入事件        myflexgrid1.Rows = 1           '此功能是当切换的时候,自动的清楚行中的信息        myflexgrid1.Cols = 4          '售卡信息       txtsql = "select * from student_information where rechargeman = '" & Trim(text33.Text) & "'" & " and checkcount = '" & "否" & "'"       Set mrc = executesql(txtsql, msgtext)        With myflexgrid1            .TextMatrix(0, 0) = "学号"            .TextMatrix(0, 1) = "卡号"            .TextMatrix(0, 2) = "日期"            .TextMatrix(0, 3) = "时间"            Do While mrc.EOF = False                .Rows = .Rows + 1                .TextMatrix(.Rows - 1, 0) = Str(mrc.Fields(0))                .TextMatrix(.Rows - 1, 1) = Str(mrc.Fields(6))                .TextMatrix(.Rows - 1, 2) = mrc.Fields(8)                .TextMatrix(.Rows - 1, 3) = mrc.Fields(9)                mrc.MoveNext            Loop        End With


  

   结账界面操作

   退卡、充值的操作是一致的。在此就不多说了。

   怎么来获得购卡张数,退卡张数呢? 代码如下:

   

'计算学生购卡的张数         txtsql = "select count(*) from student_information where rechargeman = '" & Trim(text33.Text) & "'" & " and checkcount = '" & "否" & "'"         Set mrc = executesql(txtsql, msgtext)         g_totalcard = mrc.Fields(0)         mrc.Close         End If                 '计算此操作员卖出去的总张数        txtsql = "select count(*) from student_information where rechargeman = '" & Trim(text33.Text) & "'"         Set mrc = executesql(txtsql, msgtext)         g_allcard = mrc.Fields(0)         mrc.Close

     通过这种方式可以计算出此操作员的各中操作。

     总后的应收总金额总又怎么来写入呢?

     应收总金额=充值金额-退卡金额

 

 

 

  结账

  得到了以上的各种功能,下面就开始我们的结账了。

  此操作就是把这个结账界面的信息存入到我们的日结账单表中,为以后查询做准备。

 

  首先为了防止重复性的操作一个人员,需要修改状态。代码如下:

  

         '充值状态变化     txtsql = "select * from rechargerecord where rechargeman ='" & Trim(text33.Text) & "'" & " and checkcount = '" & "否" & "'"     Set mrc = executesql(txtsql, msgtext)          Do While mrc.EOF = False        mrc.Fields(5) = "是"        mrc.MoveNext     Loop            mrc.Close


      通过这个操作就修改了我们表中的结账状态。(当然需要修改的表的又好几个,比如充值表,退卡表),操作都是一致的。

 

  存入数据

  修改完状态后,就开始把需要的数据存储到日结账单表中

  我们的日结账单表如下:

  

 

  在此我们怎么来了解到上次结账的余额呢?

  代码如下:

 

'上次剩余金额     txtsql = "select * from checkday"     Set mrc = executesql(txtsql, msgtext)     '获取上次的剩余金额        mrc.MoveLast      '移动到最后        lastremain = mrc.Fields(4)     '获得上次结账的余额        mrc.MoveFirst

 

   通过对象的Movelast属性获得我们需要的数据。

 

   写入数据

  

 '添加下一次记录     mrc.AddNew     mrc.Fields(0) = lastremain     mrc.Fields(1) = g_consumecash     mrc.Fields(2) = g_txttotalmoney + money     mrc.Fields(3) = Text1.Text     mrc.Fields(4) = txtreturnmoney + lastremain     mrc.Fields(5) = registerdate     mrc.Update     mrc.Close          MsgBox "结账成功", vbOKOnly + vbExclamation, "提示"

 

  到此,整个结账的过程,添加完毕。

 

  下一篇,将介绍周结账单。

    

  

原创粉丝点击