【机房收费系统】---结账

于 2018-01-01 11:45:16 发布
阅读量443 收藏
点赞数 1
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Xumuyang_/article/details/78944958
版权

一、查看某操作员的工作数据信息


代码：

Private Sub comboUserName_Click()

    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    
    '通过用户名，显示真实姓名
    txtSQL = "select * from User_Info where UserID='" & Trim(comboUserName.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    txtTrueName.Text = mrc.Fields(3)
    mrc.Close
    
   '购卡
    If SSTab1.Tab = 0 Then

        With MSHFlexGrid1
            .CellAlignment = 4
            .Rows = 1
            .TextMatrix(0, 0) = "学号"
            .TextMatrix(0, 1) = "卡号"
            .TextMatrix(0, 2) = "日期"
            .TextMatrix(0, 3) = "时间"
            
        '选择student表中用户名为combo且未结账的数据
        txtSQL = "select * from student_Info where UserID='" & _
        Trim(comboUserName.Text) & "'and Ischeck='" & "未结账" & "'"
        Set mrcS = ExecuteSQL(txtSQL, MsgText)
                
        Do While Not mrcS.EOF
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = Trim(mrcS.Fields(1) & "")
            .TextMatrix(.Rows - 1, 1) = Trim(mrcS.Fields(0) & "")
            .TextMatrix(.Rows - 1, 2) = Trim(mrcS.Fields(12) & "")
            .TextMatrix(.Rows - 1, 3) = Trim(mrcS.Fields(13) & "")
            mrcS.MoveNext
        Loop
        End With
    End If
    
    '充值
    If SSTab1.Tab = 1 Then
        With MSHFlexGrid2
            .CellAlignment = 4
            .Rows = 1
            .TextMatrix(0, 0) = "学号"
            .TextMatrix(0, 1) = "卡号"
            .TextMatrix(0, 2) = "充值金额"
            .TextMatrix(0, 3) = "日期"
            .TextMatrix(0, 4) = "时间"
        
        '选择recharge表中用户名为combo、未结账的数据
        txtSQL = "select * from ReCharge_Info where UserID='" & Trim(comboUserName.Text) & _
        "' and status='" & "未结账" & "'"
        Set mrcR = ExecuteSQL(txtSQL, MsgText)
        Do While Not mrcR.EOF
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = Trim(mrcR.Fields(1)) & ""
            .TextMatrix(.Rows - 1, 1) = Trim(mrcR.Fields(2)) & ""
            .TextMatrix(.Rows - 1, 2) = Trim(mrcR.Fields(3)) & ""
            .TextMatrix(.Rows - 1, 3) = Trim(mrcR.Fields(4)) & ""
            .TextMatrix(.Rows - 1, 4) = Trim(mrcR.Fields(5)) & ""
            mrcR.MoveNext
        Loop
        End With
    End If
        
    '退卡
    If SSTab1.Tab = 2 Then
  
        With MSHFlexGrid3
            .CellAlignment = 4
            .Rows = 1
            .TextMatrix(0, 0) = "学号"
            .TextMatrix(0, 1) = "卡号"
            .TextMatrix(0, 2) = "退卡金额"
            .TextMatrix(0, 3) = "日期"
            .TextMatrix(0, 4) = "时间"
    
        '选择cancelcard表中用户名为combo、未结账的数据
        txtSQL = "select * from CancelCard_Info where UserID='" & Trim(comboUserName.Text) & _
        "'and status='" & "未使用" & "'"
        Set mrcc = ExecuteSQL(txtSQL, MsgText)
    
        Do While Not mrcc.EOF
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = Trim(mrcc.Fields(0) & "")
            .TextMatrix(.Rows - 1, 1) = Trim(mrcc.Fields(1) & "")
            .TextMatrix(.Rows - 1, 2) = Trim(mrcc.Fields(2) & "")
            .TextMatrix(.Rows - 1, 3) = Trim(mrcc.Fields(3) & "")
            .TextMatrix(.Rows - 1, 4) = Trim(mrcc.Fields(4) & "")
            mrcc.MoveNext
        Loop
        End With
    End If
  
    '临时用户
    If SSTab1.Tab = 3 Then
  
        With MSHFlexGrid4
            .CellAlignment = 4
            .Rows = 1
            .TextMatrix(0, 0) = "学号"
            .TextMatrix(0, 1) = "卡号"
            .TextMatrix(0, 2) = "日期"
            .TextMatrix(0, 3) = "时间"
    
        '选择学生表中用户名为combo,类型为临时用户，且未结账的用户
        txtSQL = "select * from student_Info where UserID='" & Trim(comboUserName.Text) & _
        "'and type='" & "临时用户" & "'and Ischeck='" & "未结账" & "'"
        Set mrcS = ExecuteSQL(txtSQL, MsgText)
    
        Do While Not mrcS.EOF
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = Trim(mrcS.Fields(1) & "")
            .TextMatrix(.Rows - 1, 1) = Trim(mrcS.Fields(0) & "")
            .TextMatrix(.Rows - 1, 2) = Trim(mrcS.Fields(12) & "")
            .TextMatrix(.Rows - 1, 3) = Trim(mrcS.Fields(13) & "")
            mrcS.MoveNext
        Loop
        End With
    End If
              
              
    '汇总
    If SSTab1.Tab = 4 Then
        '售卡数量
        txtSQL = "select * from student_Info where UserID='" & Trim(comboUserName.Text) & _
        "' and Ischeck='" & "未结账" & " ' and status='" & "使用" & "'"
        Set mrcS = ExecuteSQL(txtSQL, MsgText)
        
        If mrcS.RecordCount = 0 Then
            txtSellCard.Text = "0"
        Else
            txtSellCard.Text = mrcS.RecordCount
        End If
        
        '退卡数量
        txtSQL = "select * from CancelCard_Info where UserID='" & Trim(comboUserName.Text) & _
        "'and status='" & "未使用" & "'"
        Set mrcc = ExecuteSQL(txtSQL, MsgText)
        
        If mrcc.RecordCount = 0 Then
            txtRtnNum.Text = "0"
        Else
            txtRtnNum.Text = mrcc.RecordCounttuika
        End If
        
        '退卡金额=该操作员操作的所有用户退卡金额的总和
        txtSQL = "select sum(CancelCash) from CancelCard_Info where UserID='" & Trim(comboUserName.Text) & _
        "'and status='" & "未使用" & "'"
        Set mrcc = ExecuteSQL(txtSQL, MsgText)
        
        If IsNull(Trim(mrcc.Fields(0))) Then
            txtRtnSum.Text = "0"
        Else
            txtRtnSum.Text = Val(mrcc.Fields(0))
        End If
        
        '充值金额(不区分临时用户和固定用户)
        txtSQL = "select sum(addmoney) from Recharge_Info where UserID='" & Trim(comboUserName.Text) & _
        "'and status='" & "未结账" & "'"
        Set mrcR = ExecuteSQL(txtSQL, MsgText)
        
        If IsNull(Trim(mrcR.Fields(0))) Then
            txtRechargeSum.Text = "0"
        Else
            txtRechargeSum.Text = Val(mrcR.Fields(0))
        End If
        
        '临时收费金额=临时用户注册金额
        txtSQL = "select * from student_Info where UserID = '" & Trim(comboUserName.Text) & "'and Ischeck='未结账' and type='临时用户'"
        Set mrcS = ExecuteSQL(txtSQL, MsgText)
        
        '------若所有临时用户已结账
        If mrcS.EOF = True Then
            MsgBox "没有临时用户需要结账", , "提示"

            Dim ctl As Control

            '删除所有text文本框内容
            For Each ctl In Controls
                If TypeOf ctl Is TextBox Then ctl.Text = ""
            Next ctl
                Else
            
        End If
        '------
        
        txtTemporarySum.Text = Val(Trim(mrcS.Fields(7)))

        '总售卡数=售卡数量-退卡数量
        txtSaleCardNumber.Text = Val(txtSellCard.Text) - Val(txtRtnNum.Text)
        
        '应收金额=充值金额-退卡金额
        txtSum.Text = Val(txtRechargeSum.Text) - Val(txtRtnSum.Text)
        
    End If
         
End Sub


二、结账

结账的思路很简单，就两件事儿：

1.更新日结：计算日结账单中所需数据金额，并更新到表中；

                    1）若结过帐：更新表中数据；

                    2）未结过帐：添加新数据。

2.更新表


代码：

Private Sub cmdCheckout_Click()

    Dim RemainCash As String
    Dim RechargeCash As String
    Dim ConsumeCash As String
    Dim CancelCash As String
    Dim AllCash As String
    
    If comboUserName = "" Then
        MsgBox "请选择操作员后再结账！", vbOKOnly, "提示"
        Exit Sub
    End If
    
'更新日结
    '计算上期充值卡余额
    txtSQL = "select sum(cash) from student_Info where UserID='" & Trim(comboUserName.Text) & "'and ischeck='" & "未结账" & "'"
    Set mrcS = ExecuteSQL(txtSQL, MsgText)
    
    If IsNull(mrcS.Fields(0)) Then
        RemainCash = "0"
    Else
        RemainCash = mrcS.Fields(0)
    End If
    
    '充值金额
    txtSQL = "select sum(addmoney) from Recharge_Info where status='未结账'and date='" & Date & "'"
    Set mrcR = ExecuteSQL(txtSQL, MsgText)
    
    If IsNull(mrcR.Fields(0)) = True Then
        RechargeCash = "0"
    Else
        RechargeCash = mrcR.Fields(0)
    End If
    
    '从Line表计算当日消费金额
    txtSQL = "select sum(consume) from Line_Info where offdate='" & Date & "'"
    Set mrcL = ExecuteSQL(txtSQL, MsgText)
    If IsNull(mrcL.Fields(0)) Then
        ConsumeCash = "0"
    Else
        ConsumeCash = mrcL.Fields(0)
    End If
    
    '更新计算当天的退卡金额，不会出现未结账的操作员
    txtSQL = "select sum(CancelCash) from CancelCard_Info where date='" & Date & "'and status='未使用'"
    Set mrcc = ExecuteSQL(txtSQL, MsgText)
    
    If IsNull(mrcc.Fields(0)) Then
        CancelCash = "0"
    Else
        CancelCash = mrcc.Fields(0)
    End If
    
   '更新到日结账单
    txtSQL = "select * from CheckDay_Info where  date='" & Date & "'"
    Set mrcDay = ExecuteSQL(txtSQL, MsgText)
        
    '若结过账,在原有基础上更新
    If Not mrcDay.EOF Then
        mrcDay!RemainCash = Val(RemainCash) + mrcDay!RemainCash
        mrcDay!RechargeCash = Val(RechargeCash) + mrcDay!RechargeCash
        mrcDay!ConsumeCash = Val(ConsumeCash) + mrcDay!ConsumeCash
        mrcDay!CancelCash = Val(CancelCash) + mrcDay!CancelCash
        mrcDay!AllCash = Val(RemainCash) + Val(RechargeCash) - Val(ConsumeCash) - Val(CancelCash) + mrcDay!AllCash
        mrcDay!Date = Date
        mrcDay.Update
        mrcDay.Close
        mrcL.Close
        mrcS.Close
        
    Else
    '若未结过账，添加新数据
        mrcDay.AddNew
        mrcDay!RemainCash = Val(RemainCash)
        mrcDay!RechargeCash = Val(RechargeCash)
        mrcDay!ConsumeCash = Val(ConsumeCash)
        mrcDay!CancelCash = Val(CancelCash)
        mrcDay!AllCash = Val(RemainCash) + Val(RechargeCash) - Val(CancelCash)
        mrcDay!Date = Date
        mrcDay.Update
        mrcS.Close
        mrcL.Close
        mrcDay.Close
        End If
         
    '更新学生表
    txtSQL = "select * from student_Info where UserID='" & Trim(comboUserName.Text) & "'and Ischeck='" & "未结账" & "'"
    Set mrcS = ExecuteSQL(txtSQL, MsgText)
    Do While Not mrcS.EOF
        mrcS!ischeck = "结账"
        mrcS.Update
        mrcS.MoveNext
    Loop
    mrcS.Close
    
    '更新充值表
    txtSQL = "select * from Recharge_Info where UserID='" & Trim(comboUserName.Text) & "'and status='" & "未结账" & "'"
    Set mrcR = ExecuteSQL(txtSQL, MsgText)
    Do While Not mrcR.EOF
        mrcR!Status = "结账"
        mrcR.Update
        mrcR.MoveNext
    Loop
    mrcR.Close
    
    '更新退卡表
    txtSQL = "select * from CancelCard_Info where UserID='" & Trim(comboUserName.Text) & "'and status='" & "未结账" & "'"
    Set mrcc = ExecuteSQL(txtSQL, MsgText)
    Do While Not mrcc.EOF
        mrcc!ischeck = "结账"
        mrcc.Update
        mrcc.MoveNext
    Loop
    mrcc.Close
    
    '清空文本框显示的信息
    Dim ctr1 As Control
    For Each ctr1 In Me.Controls
        If TypeOf ctr1 Is TextBox Then
            ctr1.Text = ""
        End If
    Next
      
    MsgBox "结账成功！", vbOKOnly, "提示"
    Me.Hide
                
End Sub



杨幂等
关注
  • 1
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 15
    评论
专栏目录
机房收费系统之结账
刘亚男
02-27 308
流程图 部分代码 Private Sub SSTab1_Click(PreviousTab As Integer) Dim mrcCan As ADODB.Recordset Dim MsgText As String Dim txtSQL As String Dim mrcReC As ADODB.Recordset Dim mrcStu ...
机房收费管理系统课程设计（C语言）
06-20
### 机房收费管理系统课程设计（C语言） #### 课程设计背景与意义 机房收费管理系统作为一门课程设计项目，其主要目的是让学生通过实践来掌握C语言编程的基础知识及其应用能力。通过本项目的开发，不仅可以加深对...
【机房收费系统】——结账
海棠不惜胭脂色，独立蒙蒙细雨中
08-24 989
结账，结的就是哪些账，给谁结账，结账需要涉及到哪些表？这些都是开始设计代码之前首先要想的。        看到这个界面，你会怎么想？对，首先要看需要哪些表来查询相关信息。                        其中要用到的表： user_info表：查询相关操作员，在这里注意，管理员也可以是操作员，优化的时候要想到这点。 student_info表：查询购卡数及购卡信息 rec
机房收费系统—结账
许小乖……是总攻
10-31 1482
机房收费系统快要接近尾声了，到了最后有关钱的部分，在没有理清计算关系之前真的是一头雾水，就像是中间遇到过的一些困难，只要理清关系代码就很容易写了。
【机房收费系统】结账
学习使用
09-09 850
我在进行结账窗体的时候，真的是被困了很长时间，好多逻辑性的东西以及一些常识性的东西都没有考虑到，花了整整1天时间才算是初步整理清楚，下面就将一些我遇到的问题以及应该考虑到的问题写下来，希望可以帮助到有需要的读者。 首先，在窗体加载的时候应该让它自动查询管理员和操作员的信息并且在下拉控件中显示；其次，当选中用户的时候应该显示用户真实姓名；然后，在SSTab控件中显示该用户的相应操作信息；最后，结账
机房收费系统 之 结账
张旭 廊坊师范学院信息技术提高班 十二期
09-05 700
结账，顾名思义就是把钱算一下。   这的结账不是给每一个卡号结账，而是给一个操作员结账，算一下这个操作员一共卖卡张数，退卡张数，实收金额，应收金额等等。 结账的界面是这个样子的，其中用到一个选项卡        这个窗体相比较而言还有有点难度的。别看一个小小的操作员用户名，它不是一般的Combo控件，对于一般的Combo控件下拉菜单中的内容， 例如使用ComboBox
机房收费系统顶层图
11-23
机房收费系统顶层图是一种设计方法，用于描绘整个系统架构的高级视图，它强调了系统的主要组件及其相互关系，以便于理解系统的工作流程。在本文中，我们将深入探讨机房收费系统的顶层设计理念，以及其中涉及到的关键...
机房收费管理系统.doc.doc
06-22
系统流程图表明，机房收费管理系统的主要流程图包括查询事务信息、查询程序、机房使用信息、信息生成程序、信息报表、学生上机信息、文件结账事务、结账程序、费用账单等几个方面。 需求分析表明，机房收费管理系统...
computer-room-.rar_上机管理系统
09-23
该系统具备收费、添加用户、结账、下机等核心功能，覆盖了机房日常运营的各个方面。 首先，收费功能是机房管理系统的核心模块之一，它能够自动计算用户的上机时长并进行费用结算，减少了人工计费的错误和繁琐。系统...
机房收费管理系统课程设计.pdf
06-29
机起始时间(小时):");scanf("%d",&student[i]...}void end_money()/*结账功能*/{int money, total_hour;total_hour = (student[i-1].end.hour - student[i-1].begin.hour) + (student[i-1].end.minute >= student[i-1].
机房收费系统(1)之结账
狂奔的蜗牛
08-22 1175
结账？首先
第一次机房收费系统【总结】——结账
程金鹏（程利鹏）
08-10 2042
说起机房，我个人感觉最具有挑战性的就是上下机，组合查询，以及结账。下面我就来说一说结账。 结账，概括的来说，就让管理员知道每天机房的金钱收支。详细的说是把每个操作员一天收支明细列出来让管理员一目了然。 下面我们先来看看结账的界面，如下图 经过分析，我们可知道，这就是管理员看操作员一天的工作明细，即售卡，充值，退卡的情况。 1、  购卡：就是在student_info表总查询没有
SQL存储过程——机房收费系统结账的那些事
YQAG
02-12 1919
结合网上的概念，和自己的理解，存储过程更像在vb.net中写的一个函数，传入参数就能去执行一系列的操作,返回一个值(或者没有返回值)。传入参数后，就能直接传出文本框内是否为空，并给出相应的提示。而同样的存储过也是一样的。当传入参数后，经过一系列的sql语句，就能得到自己想到的结果。这样大大的减少了在程序编程中对于数据库的操作。而且将其封装成一个存储过程，更方便程序的调用，和对数据库操作语句的修改。
工业视觉智能-分割模型基础知识
08-18
根据《阿里云工业视觉智能高级工程师ACP认证免费课程》（https://edu.aliyun.com/course/3128115/lesson/342981389）创建的个人笔记
计算机毕业设计jsp高考志愿选择辅助系统idea论文
最新发布
08-18
计算机毕业设计jsp高考志愿选择辅助系统idea论文
分享一款特别好看特别美的樱花博客前端页面
08-18
分享一款特别好看特别美的樱花博客前端页面
宾馆客房管理系统-数据库课程设计
用户需求分析中提到了管理系统应具备六大功能，包括便捷的入住登记、结账及预订，支持团体操作，以及查询、修改和删除房间信息等。 2. **数据库的概念结构设计**： 概念结构设计阶段主要是确定系统的数据实体和...
评论 15
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

杨幂等

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值