机房收费——周日结账单

      前几天自己一直在纠结周日结账单，到底应该怎么写呢？后来自己想了想，觉得好像周结账单在我看来好像没什么主要的作用，只是对日结账单的一个查询而已，顺着这个思路，我想对于一个工作人员来说，他的工作肯定是一天一结的，不会今天上班，明天才下班（当然不排除上夜班的人），我想对于一个人来说，因该是一天一结的，所以自己就写了下面的代码，基本上是基于日结账单，而对周结账单只是简单的处理。

Private Sub cmdFresh_Click()
     Dim txtsql As String
     Dim TxtsqlCZ As String
     Dim TxtsqlJRX As String
     Dim TxtsqlJRT As String
     Dim reTK As ADODB.Recordset
     Dim reXF As ADODB.Recordset
     Dim msgtext As String
     Dim ReCZ As ADODB.Recordset
     Dim reSCY As ADODB.Recordset
     Dim SYE As Integer         '学生上期余额
      Dim JRC As Integer         '今日充值金额
      Dim JRX As Integer         '今日消费金额
      Dim JRT  As Long           '今日退款金额
      Dim BCY As Integer         '本期充值卡余额
      Dim intC1 As Integer     '上期充值金额
      Dim X1 As Integer          '上期消费金额
      Dim T1 As Long             '上期退款金额
     
     
     
     
     '计算上期充值卡余额
     txtsql = "select * from day_info "
     Set reSCY = ExecuteSQL(txtsql, msgtext)
            '求解上期余额  只要是小于今天日期的即为上期的
            
           TxtsqlCZ = "select SUM(chargecash) as CZ  from charge_info where date< '" & Format(Date, "yyyy-mm-dd") & "'"
          Set ReCZ = ExecuteSQL(TxtsqlCZ, msgtext)
             
            C1 = ReCZ("cz").Value
            
            
             '消费金额
           TxtsqlJRX = "select SUM(consumecash) as XF from SLonout_info where Logoutdate< '" & Format(Date, "yyyy-mm-dd") & "'"
          Set reXF = ExecuteSQL(TxtsqlJRX, msgtext)
            
            X1 = reXF("xf").Value
            
            '退款金额
           TxtsqlJRT = "select SUM(cancelcash) as TK from Cancelcard_info where Date< '" & Format(Date, "yyyy-mm-dd") & "'"
          Set reTK = ExecuteSQL(TxtsqlJRT, msgtext)
            
            T1 = reTK("tk").Value
            SYE = C1 - X1 - T1

             '充值金额
           TxtsqlCZ = "select SUM(chargecash) as CZ  from charge_info where date= '" & Format(Date, "yyyy-mm-dd") & "'"
          Set ReCZ = ExecuteSQL(TxtsqlCZ, msgtext)

            JRC = ReCZ("cz").Value

'            '消费金额
           TxtsqlJRX = "select SUM(consumecash) as XF from SLonout_info where Logoutdate= '" & Format(Date, "yyyy-mm-dd") & "'"
          Set reXF = ExecuteSQL(TxtsqlJRX, msgtext)

            JRX = reXF("xf").Value

            '退款金额
           TxtsqlJRT = "select SUM(cancelcash) as TK from Cancelcard_info where Date= '" & Format(Date, "yyyy-mm-dd") & "'"
          Set reTK = ExecuteSQL(TxtsqlJRT, msgtext)

            JRT = reTK("tk").Value

            '本期剩余金额
            BCY = SYE + JRC - JRX - JRT

       reSCY.AddNew
       reSCY.Fields(0) = SYE
       reSCY.Fields(1) = JRC
       reSCY.Fields(2) = JRX
       reSCY.Fields(3) = JRT
       reSCY.Fields(4) = BCY
       reSCY.Fields(5) = Format(Now(), "yyyy-mm-dd")
       reSCY.Update
       reSCY.Close
     
     
     
     
     GRDisplayViewer1.Refresh
End Sub

                 而周结账单的目的就是根据时间的范围而对其进行查询，就在时间范围内的记录显示出来，这是我自己的一个理解~