机房收费系统—结账

第一遍机房收费系统很顺利就完成了，但是并没有完善，借着建一个样板的机会，写一个相对完善的机房收费系统。首先，就是完善结账功能，很多同学都没有做这个，因为前模板就没有完善这个功能，所以我就写这篇文章，给大家消除一下恐惧感。

 

首先，我们要了解它的控件窗体里面都有些什么。

从表中我们不难看出：左边的是一部分（主要是用到student表），右边的是另一部分（主要是用到recharge表），我分类的依据是数据库。

第二步：细化功能：

这里可以根据SStab控件的属性里面的每一个选项卡来进行细分。这里我来做最难的一个，当然，你们要是做的话，就按顺序做，因为前面的购卡、充值、退卡、临时用户都很简单。我现在就仅仅讲一下汇总选项卡。

从这里可以看到，很散，我用另一张表来记录它。

是不是看上面的表就可以很清楚的看到他们的数据关系：

不管是张数还是金额，都是很简单的，因为它们都是在select语句中限定条件外加循环做成的。

接下来就是代码实现了：

 

我觉得就是两部分：

第一：

 

    Select Case SSTab1.Tab
        Case 0
            With myFlexGrid
                .Rows = 1
                .CellAlignment = 4
                .TextMatrix(0, 0) = "学号"
                .TextMatrix(0, 1) = "卡号"
                .TextMatrix(0, 2) = "日期"
                .TextMatrix(0, 3) = "时间"
                
                txtsql = "select * from student_info where userid='" & CmbUserId & "'"     '从student表中查询出购卡的记录
                Set mrc = ExecuteSQL(txtsql, msgtext)
                
                If (mrc.EOF Or mrc.BOF) = False Then
                
                    While (mrc.EOF = False)
    
                        .Rows = .Rows + 1
                        .CellAlignment = 4


                        .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(0))
                        .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(1))
                        .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(12))
                        .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(13))
                        mrc.MoveNext
                    
                    Wend
               End If
               mrc.Close
            
            End With

 

这是购卡的一个实现，其他的跟这个很类似。

第二就是：结账

Private Sub CmdCheckout_Click()
Dim txtsql As String
Dim msgtext As String
Dim mrc As ADODB.Recordset
Dim AddCheckout_I As Integer
Dim AddCheckOut_TmpRate As Single
Dim AddCheckOut_cancelcash As Single
    
    txtsql = "select * from student_info where userid='" & CmbUserId & "'and status='使用'"    '查询student表中的信息售卡情况
    Set mrc = ExecuteSQL(txtsql, msgtext)
    
        AddCheckout_I = 0
        AddCheckOut_TmpRate = 0
        While (mrc.EOF = False)
            AddCheckout_I = AddCheckout_I + 1
            AddCheckOut_TmpRate = AddCheckOut_TmpRate = mrc.Fields(7)
            mrc.Fields(11) = Trim("结账")
            mrc.MoveNext
        Wend
        txtSaleNum = AddCheckout_I    '这里算出卖出的钱数
    mrc.Close
    
    txtsql = "select * from student_info where userid='" & CmbUserId & "'and status='不使用'"    '查询student表中的信息退卡情况
    Set mrc = ExecuteSQL(txtsql, msgtext)
    
        AddCheckout_I = 0
        AddCheckOut_cancelcash = 0
        While (mrc.EOF = False)
            AddCheckout_I = AddCheckout_I + 1
            AddCheckOut_cancelcash = AddCheckOut_cancelcash = mrc.Fields(7)     '这里是退卡的钱数
            mrc.Fields(11) = Trim("结账")
            mrc.MoveNext
        Wend
        TxtCancelNum = AddCheckout_I
        TxtCancelCash = AddCheckOut_cancelcash
        TxtAllCash = AddCheckOut_TmpRate - AddCheckOut_cancelcash         '这里算出的总的钱数

    mrc.Close
    
    txtsql = "select * from student_info where userid='" & CmbUserId & "'and type='临时用户'and status='使用'"    '查询student表中的信息临时用户的金额情况
    Set mrc = ExecuteSQL(txtsql, msgtext)
    
        AddCheckOut_TmpRate = 0
        While (mrc.EOF = False)
            AddCheckOut_TmpRate = AddCheckOut_TmpRate + mrc.Fields(7)
            mrc.Fields(11) = Trim("结账")
            mrc.MoveNext
        Wend
        TxtTmpCash = AddCheckOut_TmpRate
    mrc.Close
    
    txtsql = "select * from recharge_info where userid='" & CmbUserId & "'"    '查询student表中的信息充值金额情况
    Set mrc = ExecuteSQL(txtsql, msgtext)
        AddCheckOut_TmpRate = 0
        While (mrc.EOF = False)
            AddCheckOut_TmpRate = AddCheckOut_TmpRate + mrc.Fields(3)
            mrc.Fields(7) = Trim("结账")
            mrc.MoveNext
        Wend
        txtRechargeCash = AddCheckOut_TmpRate
    mrc.Close
    
    MsgBox "结账成功"
    
End Sub

别看它的代码这么长，其实懂了里面的一个功能段其他的就很简单了，无非就是循环相加和注意它的数据类型就行了。

 

上升到思想的高度，首先我们要有全局观，知道我们大体是要实现什么样的功能，哪里的功能是一样的。其次就是细节决定成败，我没有自己把自己给弄乱了，是应为我干什么都用自己的笔记从新给他们分类，就简单了。最后，就是代码的思维了，我一直想这事一种什么思维，其实，很简单，当你把前两条做好了，然后参照代码就行了。