一，结账
在说周结账单和日结账单之前，得先做好结账的工作。在汇总里面，有个结账，其实这个结账的代码很简单，只是两个Update，值要把结账状态的标记改变一下就可以。这个结账好像平常都会有个老师负责收取充值的现金，也负责退卡的现金，在结他的账的时候，他要把手里的钱都上交。
周结账单和日结账单是对所有金额的汇总，包括学生的消费金额，而由于在上机时的消费金额是在下机时自动扣除的，所以，不涉及到现金的问题。但是，虽然这个金额不反应在结账里面，但是却反应在周结账单和日决诶账单里面。
'先判断所有内容是否都为0，如果都为0，那么，禁止结账
If (Trim(txtReturnCardNum.Caption) = "0" And Trim(txtRechargeRmb.Caption) = "0" And Trim(txtReturnRmb.Caption) = "0" And Trim(txtAllRmb.Caption) = "0") Then
MsgBox "操作员 " + " " + Trim$(cmbUserId.Text) + " 账目已全部结完！", vbOKOnly + vbInformation, "提示"
Exit Sub
Else '如果有信息
'将“未结账”的标记改为“已结账”的标记
SQL = "update TeaReturnCard set 结账状态='已结账' where 退卡教师='" & Trim(cmbUserId.Text) & "'"
Set Rst = ExecuteSQL(SQL, strMsg)
SQL = "update TeaRechargeInfo set 结账状态='已结账' where 充值教师='" & Trim(cmbUserId.Text) & "'"
Set Rst = ExecuteSQL(SQL, strMsg)
MsgBox "结账成功！", vbOKOnly + vbInformation, "提示"
End If
二，日结账单
在计算日结账单时，我采取的方法是：在昨日账单的基础上结账。
'在窗体加载时，写日结账单表
'在写日结账单表之前，先判断今天是否已经写过日结账单表了
'如果写过日结账单表了，那么，就删除今天写过的那条，重写今天的日结账记录
'如果，没有，就不重写记录
'日结账单中的计算
'昨日充值卡中余额=读取昨天的日结账单的金额总和
'充值金额=今天充值表中所有的钱
'消费金额=今天学生上机表中，所有的消费金额相加
'退还金额=今天教师退卡表里面，已经（结过账）的退卡总金额
'金额总和=昨日卡中金额+充值金额-消费金额-退还金额
'日期时间是今天的日期时间
'判断今天是否已经结果账了
SQL = "select * from dayaccount where 日期='" & Format(GetSqlTime, "yyyy-mm-dd") & "'" '从日结账单表里选择今天的结账记录
Set Rst = ExecuteSQL(SQL, strMsg)
If Not (Rst.BOF And Rst.EOF) Then '今天已经结过账了，即，这不是今天第一次结账
'先删除今天结过的账单
SQL = "delete from dayaccount where 日期='" & Format(GetSqlTime, "yyyy-mm-dd") & "'"
Call ExecuteSQL(SQL, strMsg)
'然后根据昨天的结账记录重新结账
'此处因为今天已经结果账了，也可以不上去今天的结账记录，在今天的记录上重新计算，然后用update更新一下就行
End If
'计算昨日充值卡中的余额
'昨日充值卡中的余额=日结账单表中金额总和
SQL = "select sum(金额总和) from dayaccount where 日期='" & Format(GetSqlTime - 1, "yyyy-mm-dd") & "'"
Set Rst = ExecuteSQL(SQL, strMsg)
If IsNull(Rst.Fields(0)) = True Then
YesDayRMB = 0
Else
YesDayRMB = Trim(Rst.Fields(0))
End If
'计算充值金额（充值金额是教师充值信息表里面，教师今天充值的金额，并且这些金额都已经结果账了，如果今天充值了某些金额，但是没有结账，则在计算日结账单时，不计入）
SQL = "select sum(充值金额) from tearechargeinfo where 日期='" & Format(GetSqlTime, "yyyy-mm-dd") & "' and 结账状态='已结账'"
Set Rst = ExecuteSQL(SQL, strMsg)
If IsNull(Rst.Fields(0)) = True Then
RechargeRmb = 0
Else
RechargeRmb = Trim(Rst.Fields(0)) '充值金额赋值
End If
'计算消费金额
SQL = "select sum(消费金额) from stushangji where 上机日期='" & Format(GetSqlTime, "yyyy-mm-dd") & "'"
Set Rst = ExecuteSQL(SQL, strMsg)
If Rst.EOF And Rst.BOF Then
CostRMB = 0
Else
CostRMB = Trim(Rst.Fields(0))
End If
'计算退还金额
SQL = "select sum(退卡金额) from teareturncard where 退卡日期='" & Format(GetSqlTime, "yyyy-mm-dd") & "' and 结账状态='已结账'"
Set Rst = ExecuteSQL(SQL, strMsg)
If IsNull(Rst.Fields(0)) = True Then
RetRMB = 0
Else
RetRMB = Trim(Rst.Fields(0))
End If
'计算金额总和=昨日卡中金额+充值金额-消费金额-退还金额
AllRMB = YesDayRMB + RechargeRmb - CostRMB - RetRMB
'插入日结账单表
SQL = "insert into DayAccount values('" & YesDayRMB & "','" & RechargeRmb & "','" & CostRMB & "','" & RetRMB & "','" & AllRMB & "','" & Format(GetSqlTime, "yyyy-mm-dd") & "','" & Format(GetSqlTime, "hh-mm-ss") & "')"
Call ExecuteSQL(SQL, strMsg)
周结账单是对从BeginTime到EndTime的金额的汇总，每次在需要周结账单时才插入，一旦不需要，就删除掉。可以说，周结账单是对这段是间的日结账单的汇总。
'每次都先删除周结账单里的数据，然后重新写入
SQL = "delete from weekaccount "
Call ExecuteSQL(SQL, strMsg)
'将日结账单里的内容汇总后，填入周结账单，周结账单只是一个临时的表，一旦本窗体写在，周结账单里的内容也随之被Delete
'上期充值卡余额=在begintime之前的充值卡的余额
'本期充值金额=从dayAccount中，得到的这段时间的充值金额
'本期消费金额=从dayAccount中，得出的这段时间的消费金额
'本期退款金额=从dayAccount中，得出的这时间的退款金额
'本期充值卡余额=上期充值卡余额+本期充值金额-本期消费金额-本期退款金额
'日期=今天
'计算上期充值卡余额
SQL = "select max(金额总和) from dayaccount where 日期 < '" & Format(CDate(DTpcBegin.Value), "yyyy-mm-dd") & "'"
Set Rst = ExecuteSQL(SQL, strMsg)
Debug.Print SQL
If IsNull(Rst.Fields(0)) = True Then
BalanceRmb = 0
Else
BalanceRmb = Trim(Rst.Fields(0)) '上期充值卡余额
End If
'显示在文本框中
txtBalance.Text = Format(BalanceRmb, "Fixed")
'计算本期充值金额
SQL = "select sum(充值金额) from dayaccount where 日期 between '" & Format(CDate(DTpcBegin.Value), "yyyy-mm-dd") & "' and '" & Format(CDate(DTPcEnd.Value), "yyyy-mm-dd") & "'"
Set Rst = ExecuteSQL(SQL, strMsg)
Debug.Print SQL
If IsNull(Rst.Fields(0)) = True Then
BenQiRechargeRmb = 0
Else
BenQiRechargeRmb = Trim(Rst.Fields(0))
End If
'计算本期消费金额
SQL = "select sum(消费金额) from dayaccount where 日期 between '" & Format(CDate(DTpcBegin.Value), "yyyy-mm-dd") & "' and '" & Format(CDate(DTPcEnd.Value), "yyyy-mm-dd") & "'"
Set Rst = ExecuteSQL(SQL, strMsg)
Debug.Print SQL
If IsNull(Rst.Fields(0)) = True Then
BenQiCostRmb = 0
Else
BenQiCostRmb = Trim(Rst.Fields(0))
End If
'计算本期退款金额
SQL = "select sum(退还金额) from dayaccount where 日期 between '" & Format(CDate(DTpcBegin.Value), "yyyy-mm-dd") & "' and '" & Format(CDate(DTPcEnd.Value), "yyyy-mm-dd") & "'"
Set Rst = ExecuteSQL(SQL, strMsg)
Debug.Print SQL
If IsNull(Rst.Fields(0)) = True Then
ReturnRmb = 0
Else
ReturnRmb = Trim(Rst.Fields(0))
End If
'计算本期充值卡余额
'BenQiCardRmb = BalanceRmb + BenQiRechargeRmb - BenQiCostRmb - ReturnRmb（在所有数据完整时没问题，但是数据如果不完整，就不行了，所以采取别的办法）
SQL = "select max(金额总和) from dayaccount where 日期 <= '" & Format(CDate(DTPcEnd.Value), "yyyy-mm-dd") & "'"
Set Rst = ExecuteSQL(SQL, strMsg)
If IsNull(Rst.Fields(0)) = True Then
BenQiCardRmb = 0
Else
BenQiCardRmb = Trim(Rst.Fields(0))
End If
'计算日期
DateToday = Format(GetSqlTime, "yyyy-mm-dd")
'插入到周结账单里面
SQL = "insert into weekaccount values('" & BalanceRmb & "','" & BenQiRechargeRmb & "','" & BenQiCostRmb & "','" & ReturnRmb & "','" & BenQiCardRmb & "','" & DateToday & "')"
Call ExecuteSQL(SQL, strMsg)
Call showReport '显示查询到的报表
Viewer.Refresh '刷新
扫一扫
1617
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
