机房收费管理系统之日结账单

日结账单，里面包含了上期余额，当日充值金额，当日消费金额，当日退还金额，本期金额。

          上期余额：指昨天的本期金额

          当日充值金额：指今天充值的总帐

          当日消费余额：指顾客上机消费的总额

          当日退还金额：指顾客退卡的钱数

          本期金额：今天的总账（购卡金额+充值金额-退卡的钱）

'计算上期余额

txtsql = "select sum(allcash) from checkday_info where date = '" & Date - 1 & "'"     '计算上期余额
    Set mrc = ExecuteSQL(txtsql, Msgtext)

    If IsNull(mrc.Fields(0)) = True Then
        SYE = 0
    Else
        SYE = Trim(mrc.Fields(0))
    End If

 '计算充值金额 

 txtsql = "select sum(addmoney) from ReCharge_Info where date='" & Date & "'"      '计算充值金额  把金额按照今天的日期都加在一起
    Set mrcc = ExecuteSQL(txtsql, Msgtext)

        If IsNull(mrcc.Fields(0)) = True Then
            CZ = 0
        Else
            CZ = Trim(mrcc.Fields(0))
        End If

'计算退卡金额 

txtsql = "select sum(cancelcash) from cancelcard_Info where date='" & Date & "'"        '计算退卡金额   把退卡金额按照今天的日期都加在一起
    Set mrccc = ExecuteSQL(txtsql, Msgtext)

        If IsNull(mrccc.Fields(0)) = True Then
            TK = 0
        Else
            TK = Trim(mrccc.Fields(0))
        End If

'计算消费金额 

 txtsql = "select sum(consume) from line_Info where ondate='" & Date & "'"        '计算消费金额
    Set mrcccc = ExecuteSQL(txtsql, Msgtext)
    
        If IsNull(mrcccc.Fields(0)) = True Then
            XF = 0
        Else
            XF = Trim(mrcccc.Fields(0))
        End If