机房收费系统之结账
来源:互联网 发布:php项目部署到apache 编辑:程序博客网 时间:2024/03/29 07:06
忙活了这么长时间,今天终于把结账这块是搞明白了。
首先为大家介绍一下窗体吧
首先是添加操作者的用户名 txtSQL = "select * from User_info where level='" & "操作员" & "' " '选择用户级别 Set mrc = ExecuteSQL(txtSQL, Msgtext) Do While mrc.EOF = False '如国表中有数据 Combo1.AddItem mrc.Fields(0) '通过循环进行添加操作员名称 mrc.MoveNext Loop
If SSCounts.Tab = 0 Then '根据用户名来查询卡张数情况 txtSQL = "select * from student_info where teacher = '" & Trim(Combo1.Text) & "'" Set mrc = ExecuteSQL(txtSQL, Msgtext) With myflexgrid1 .CellAlignment = 4 .TextMatrix(0, 0) = "学号" .TextMatrix(0, 1) = "卡号" .TextMatrix(0, 2) = "日期" .TextMatrix(0, 3) = "时间" Do While mrc.EOF = False .Rows = .Rows + 1 .CellAlignment = 4 .TextMatrix(.Rows - 1, 0) = mrc.Fields(1) .TextMatrix(.Rows - 1, 1) = mrc.Fields(0) .TextMatrix(.Rows - 1, 2) = mrc.Fields(12) .TextMatrix(.Rows - 1, 3) = mrc.Fields(13) txtTotalcard.Text = mrc.RecordCount '获取得到的卡数 mrc.MoveNext Loop End With mrc.Close End If
If SSCounts.Tab = 1 Then '充值记录的显示 '根据用户名来查询充值情况 txtSQL = "select * from charge_info where teacher = '" & Trim(Combo1.Text) & "'" Set mrcCharge = ExecuteSQL(txtSQL, Msgtext) '向表中添加记录 With MyFlexGrid2 .CellAlignment = 4 .TextMatrix(0, 0) = "学号" .TextMatrix(0, 1) = "卡号" .TextMatrix(0, 2) = "充值金额" .TextMatrix(0, 3) = "日期" .TextMatrix(0, 4) = "时间" Do While mrcCharge.EOF = False .Rows = .Rows + 1 .CellAlignment = 4 '.TextMatrix(.Rows - 1, 0) = mrcCharge.Fields(7) .TextMatrix(.Rows - 1, 1) = mrcCharge.Fields(0) .TextMatrix(.Rows - 1, 2) = mrcCharge.Fields(1) .TextMatrix(.Rows - 1, 3) = mrcCharge.Fields(4) .TextMatrix(.Rows - 1, 4) = mrcCharge.Fields(5) allcharge = allcharge + mrcCharge!addmoney '充值金额计算 mrcCharge.MoveNext Loop txtcharge.Text = Trim(allcharge) '显示充值金额 End With mrcCharge.Close End If
退卡方式一样,就不再赘述了,而且通过其实通过前边的购卡、充值、退卡,汇总的信息基本也都统计出来了,那么下面就为大家介绍一下结账吧,就是把信息保存到日结账单中的数据库的表中。
txtSQL = "select * from checkday " Set mrc = ExecuteSQL(txtSQL, Msgtext) 因为在查询的时候都需要用日期和状态来查询,所以就没有一直在注释 '获取当日充值金额 txtSQL = "select * from charge_info where chargedate= '" & Format(Now, "yyyy/mm/dd") & "' and status= '未结账'" Set mrcCharge = ExecuteSQL(txtSQL, Msgtext) nowCharge = nowCharge + Val(Trim(mrcCharge!addmoney)) 计算当日金额 '获取当日消费金额 txtSQL = "select * from line_info where lineday= '" & Format(Now, "yyyy/mm/dd") & "' and status= '未结账'" Set mrcSum = ExecuteSQL(txtSQL, Msgtext) expense = exepnse + mrcSum!expense '计算消费金额 '当日退款金额 txtSQL = "select * from Cancelcard_info where date= '" & Format(Now, "yyyy/mm/dd") & "' and status= '未结账'" Set mrcDel = ExecuteSQL(txtSQL, Msgtext) backMoney = backMoney + mrcDel!charge '计算退卡金额 chargeMoney = nowCharge - expense - backMoney '获取上次余额 mrc.MoveLast lastCharge = mrc.Fields(5) mrc.MoveFirst mrc.AddNew mrc.Fields(0) = lastCharge mrc.Fields(1) = nowCharge mrc.Fields(2) = expense mrc.Fields(3) = backMoney mrc.Fields(5) = chargeMoney mrc.Fields(4) = Date mrc.Update mrc.Close MsgBox "结账成功"
东西长了点,大家有什么意见一定要告诉我啊
- 机房收费系统之结账
- 机房收费系统之结账
- 机房收费系统之结账
- 机房收费系统 之结账
- 机房收费系统之结账
- 机房收费系统之结账
- 机房收费系统之结账
- 机房收费系统之结账
- 【机房收费系统】之结账
- 【机房收费系统】 之 结账
- 机房收费系统之结账
- 机房收费系统之结账
- 机房收费系统之结账
- 机房收费系统之结账
- 机房收费系统之结账
- 机房收费系统 之 结账
- 机房收费系统之结账
- 机房收费系统之结账
- 在线编译器汇总及优缺点分析
- S3C2440看门狗
- Discuz 解决最新回覆数据调用的问题(过滤没有回复的帖子)
- OleDbCommand与OleDbCommandBuilder、OleDbDataAdapter、OleDbDataReader的关系
- ecm&emm
- 机房收费系统之结账
- c++学习之路
- 向函数传递二维数组
- 查看线程的cpu使用率
- 常用文件重定向命令
- 完全数
- cocos2dx : schedule 计时,调用崩溃
- 《High Performance JavaScript》的一些摘要3
- 各种排序集结&归并排序