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

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

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

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

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

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

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

'计算上期余额

txtsql = "select sum(allcash) from checkday_info where date = '" & Date - 1 & "'"     '计算上期余额Set mrc = ExecuteSQL(txtsql, Msgtext)If IsNull(mrc.Fields(0)) = True ThenSYE = 0ElseSYE = 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 ThenCZ = 0ElseCZ = 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 ThenTK = 0ElseTK = 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 ThenXF = 0ElseXF = Trim(mrcccc.Fields(0))End If

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！