【机房收费】结账

ゝ一世哀愁。 2022-09-25 11:20 228阅读 0赞

# 前言 #

感觉机房中最难的一部分就是结账这一部分了，越敲越乱，敲的曲曲折折的，真正弄懂结账这一块是第一次验收之后。结账是整个机房收费系统中除了上下机最核心的地方了，所以理清逻辑之后再敲，不然敲的时候会感觉乱七八糟的

# 分析 #

管理员是否需要结账？我认为的管理员就是大BOSS，大BOSS是不需要结账的，所以管理员是不需要结账的，而操作员是不需要结账的，而操作员就是大BOSS底下的员工，结账这个功能只有大BOSS才有，大BOSS是不用结自己的帐的，而结账结的是什么呢，就是操作员的营业额。一开始我理解的汇总是没什么作用的，只有点结账的时候才把售卡张数之类的东西显示出来，后来在敲代码的时候我发现不是这样的，点结账只是改变的结账状态，而汇总才是把所有的东西显示出来，这两种是不一样的，第一种在逻辑上是不合理的

下面介绍一下结账窗体的所有功能：

购卡：该操作员操作注册的学生

充值：该操作员操作的充值的学生

退卡：通过该操作员操作的退卡的所有学生

临时用户：该操作员操作注册的临时用户

退出：卸载窗体

![SouthEast][]

下面分析一下汇总的逻辑，请看下图，是我个人理解的汇总的流程

![SouthEast 1][]

# 代码 #

以汇总为例，请看如下代码，每个人都有每个人的思维方式

'使汇总成为一个按钮，单击汇总显示所有信息
            If SSTab1.Caption = "汇总" Then
                Dim i As Integer
                
                Dim recharge As Long     '定义充值金额
                Dim consume As Long      '定义消费金额
                Dim returncash As Long   '定义退卡金额
                Dim profit As Long       '
                Dim Cash As Long         '定义余额
                
                If txtcash.Text = "0" Then '限制重复结账
    
                    '售卡张数=未结账的学生人数
                    txtConsumeCard.Text = mrc.RecordCount
                    '退卡张数=退卡表里未结账的学生
                    txtCancelCard.Text = mrc3.RecordCount
                    '总售卡数=售卡张数+退卡张数
                    txtAllcard.Text = Val(txtConsumeCard.Text) + Val(txtCancelCard.Text)
                    
                    '建立退卡表连接，计算退卡金额总和
                    txtSQL5 = "select sum(CancelCash) from CancelCard_Info where status='正常下机'"
                    Set mrc5 = ExecuteSQL(txtSQL5, MsgText5)
                    
                    If mrc5.BOF And mrc5.EOF Then
                        returncash = 0
                        txtCancelCash.Text = returncash
                    Else
                        If IsNull(Trim(mrc5.Fields(0))) Then
                            returncash = 0
                            txtCancelCash.Text = returncash
                        Else
                            returncash = mrc5.Fields(0)
                            txtCancelCash.Text = returncash
                        End If
                    End If
                    '建立充值表的连接，计算充值总金额
                    txtSQL6 = "select sum(addmoney) from ReCharge_Info where UserID='" & Trim(cmbUserId.Text) & "' and status='未结账'"
                    Set mrc6 = ExecuteSQL(txtSQL6, MsgText6)
            
                    If mrc6.EOF And mrc6.BOF Then
                         recharge = 0
                         txtRechargeCash.Text = recharge
                    Else
                         If IsNull(Trim(mrc5.Fields(0))) Then
                             recharge = 0
                             txtRechargeCash.Text = recharge
                         Else
                             recharge = mrc6.Fields(0)
                             txtRechargeCash.Text = recharge
                         End If
                    End If
                    
                    '建立学生表的连接，计算临时用户金额
                    txtSQL7 = "select * from student_Info where userID='" & Trim(cmbUserId.Text) & "'" & " and type='临时用户'" & " and status='使用'"
                    Set mrc7 = ExecuteSQL(txtSQL7, MsgText7)
        
                    For i = 1 To mrc5.RecordCount
                        txtTmpCash.Text = Val(txtTmpCash.Text) + Val(Trim(mrc5.Fields(7)))
                    Next i
        
                    mrc.Close
                    '应收金额=临时收费金额+充值金额-退卡金额
                    txtcash.Text = Val(txtTmpCash.Text) + Val(txtRechargeCash.Text) - Val(txtCancelCash.Text)
                    
                End If
            End If

汇总之后需要把汇总的数据写到账单里面，这是需要注意的，代码很简单，具体代码我就不展示了

[SouthEast]: /images/20220718/baad5b27b1904c5689660596c0995d38.png
[SouthEast 1]: /images/20220718/96260dfe7c16476482c0f8823314a041.png