第一次机房收费系统--结账

前言

初次碰到结账这个问题，心里还是有很多的抵触，觉得太难了，下机的时候就觉得有些困难，因为涉及到了算账的问题，现在开始结账了，放眼望去，慢慢的全是账，不管怎样，先学做一个会计吧！

功能实现

其实结账这里分为两大部分

一：从数据库中导出操作员用户名和真实姓名

需要实现的功能：当选择某个用户名的时候他的真实姓名直接调出，虽说这个功能不难实现，但是不怕不知道就怕不知道！

代码实现：

首先设置用户名部分，该部分代码在Form_Load里

    '设置用户名的下拉菜单，当本模块运行时调出数据库中所有的操作员用户名
    txtSQL = "select * from user_info where level='操作员'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    Do While Not mrc.EOF
            CmdUserId.AddItem mrc.Fields(0)
            mrc.MoveNext
    Loop

其次实现同步操作员真实姓名部分

    '设置操作员真实姓名
    txtSQL = "select * from user_info where userid='" & CmdUserId.Text & "'"
    Set mrc1 = ExecuteSQL(txtSQL, MsgText)
    CmdUserName.Text = mrc1.Fields(3)

二：SSTab控件的功能

这里分为7个部分 

（1）如何让SSTab控件的每个选项卡实现不同的功能，这里用到的是Select语句

代码实现：

首先需要设置每一个选显卡的Tab属性，将其设置为相应的数字

Private Sub SSTab1_Click(PreviousTab As Integer)
    Select Case SSTab1.Tab
Select Case SSTab1.Tab
        Case 0     '第一个选项卡
        Case 1     '第二个选项卡
        Case 2     '第三个选项卡
        Case 3     '第四个选项卡
        Case 4     '第五个选项卡
        Case 5     '第六个选项卡
    End Select
End Sub

（2）购卡：将操作员的购卡信息调出

（3）充值：将操作员的充值信息调出

代码实现：

此处定义了rechargecash为充值金额，方便结账时调用

            With MSFlexGrid2
            
                .CellAlignment = 4
                .Rows = 1
                .TextMatrix(0, 0) = "学号"
                .TextMatrix(0, 1) = "卡号"
                .TextMatrix(0, 2) = "充值金额"
                .TextMatrix(0, 3) = "日期"
                .TextMatrix(0, 4) = "时间"
            End With
            rechargecash = 0 
            '将表recharge_info的数据同步至表
            txtSQL = "select * from recharge_info where userid='" & CmdUserId.Text & "' and status='未结账'"
            Set mrc3 = ExecuteSQL(txtSQL, MsgText)
            Text3.Text = 0
            Do While Not mrc3.EOF
                With MSFlexGrid2
                    .CellAlignment = 4
                    .Rows = .Rows + 1
                    .TextMatrix(.Rows - 1, 0) = Trim(mrc3.Fields(1))
                    .TextMatrix(.Rows - 1, 1) = Trim(mrc3.Fields(2))
                    .TextMatrix(.Rows - 1, 2) = Trim(mrc3.Fields(3))
                    .TextMatrix(.Rows - 1, 3) = Trim(mrc3.Fields(4))
                    .TextMatrix(.Rows - 1, 4) = Trim(mrc3.Fields(5))
                    AdjustColWidth frmaccounts, MSFlexGrid2
                End With
                Text3.Text = Val(Text3.Text) + mrc3.Fields(3)       '设置文本框中的充值总金额
                rechargecash = Trim(Text3.Text)
                mrc3.MoveNext

（2）（3）（4）（5）功能实现过程是一样的

（4）退卡：将操作员的退卡信息调出

此处定义了cancelcash为退卡金额，方便结账时调用

（5）临时用户：将操作员注册的临时用户信息调出

（6）汇总：

各种关于卡的信息：

代码实现：

Case 4      '第四个选项卡
           Text6.Text = mrc2.RecordCount                                     '总售卡张数
           Text2.Text = mrc4.RecordCount                                     '退卡张数
           Text1.Text = Val(Text6.Text) - Val(Text2.Text)                    '售卡张数=总售卡张数-退卡张数
           '应收金额=充值金额+临时收费金额-退卡金额
           Text7.Text = Val(Text3.Text) + Val(Text4.Text) - Val(Text5.Text)

结账功能：

代码实现：

Private Sub cmdOK_Click()
'点击结账按钮之后需要更新的表有checkday_info和checkweek_info
'需要做的就是计算上次结账和本次结账之间的充值金额，消费金额，退款金额

'更新checkday_info表中的信息
'上次剩余金额
    txtSQL = "select * from checkday_info"
    Set mrc6 = ExecuteSQL(txtSQL, MsgText)
        mrc6.MoveLast      '移动到最后
        lastremain = mrc6.Fields(4)
        mrc6.MoveFirst
    
    '向checkday_info表中写入数据
    mrc6.AddNew
    mrc6.Fields(0) = lastremain                            '上次剩余金额
    mrc6.Fields(1) = rechargecash
    mrc6.Fields(2) = mrc6.Fields(2) + frmMain.money        '上机消费的金额之和
    mrc6.Fields(3) = cancelcash
    mrc6.Fields(4) = Val(mrc6.Fields(0)) + Val(mrc6.Fields(1)) - Val(mrc6.Fields(3))
    mrc6.Fields(5) = Date
    mrc6.Update
    mrc6.Close

    '更新checkweek_info表中的信息
    '上次剩余金额
    txtSQL = "select * from checkweek_info"
    Set mrc7 = ExecuteSQL(txtSQL, MsgText)
        mrc7.MoveLast
        lastremain = mrc7.Fields(4)
        mrc7.MoveFirst
        
    '向cheekday_info表中写入数据
    mrc7.AddNew
    mrc7.Fields(0) = lastremain
    mrc7.Fields(1) = rechargecash
    mrc7.Fields(2) = mrc7.Fields(2) + frmMain.money          '上机消费的金额之和
    mrc7.Fields(3) = cancelcash
    mrc7.Fields(4) = Val(mrc7.Fields(0)) + Val(mrc7.Fields(1)) - Val(mrc7.Fields(3))
    mrc7.Fields(5) = Date
    mrc7.Update
    mrc7.Close
    
    '弹出提示框，避免重复结账
    MsgBox "结账成功", 0 + 48, "提示"
    
    '更新recharge_info表
    txtSQL = "select * from recharge_info where status='未结账'"
    Set mrc2 = ExecuteSQL(txtSQL, MsgText)
    
    Do While Not mrc2.EOF
        mrc2.Fields(7) = "结账"
        mrc2.MoveNext
    Loop
    

    '更新student_info表
    txtSQL = "select * from student_info where status='使用' and ischeck='未结账'"
    Set mrc1 = ExecuteSQL(txtSQL, MsgText)
    Do While Not mrc1.EOF
        mrc1.Fields(11) = "结账"
        mrc1.MoveNext
    Loop

End Sub

（7）退出：退出结账结账界面

代码实现：

Case 5      '第五个选项卡
            Unload Me

数据表的引用

结账这里打交道最多的就是数据表了，接下来就梳理一下各个功能用到的数据表

（1）结账按钮：checkday_info   checkweek_info  recharge_info  student_info

（2）操作员用户名和姓名：user_info

（3）选项卡：student_info  recharge_info  cancelcard_info 

总结：这里数据表的引用就是查询表里的信息，将数据表里的信息同步到VB中或将VB中的信息更新到数据表中，总体来说还是比较简单的！

总结

总结下来之后觉得自己又收获了不少，思路比之前清晰了许多，而且在总结的过程中也会发现程序的一些不足之处，顺便做了一些修改，所以说总结很重要，颗粒归仓!

未完待续O(∩_∩)O~