机房收费系统之结账

该窗体的作用：管理员对每个操作员的工作情况进行查看（查看她卖了几张卡，充值了多少钱，退了多少钱等等）。

 

该窗体的主要思路：

1，遍历学生信息表（单击购卡选项时），充值信息表（单击充值选项时），退卡信息表（单击退卡选项时）中的该操作员和结账状态为“未结账”的金额。

2，单击结账选项时写入结账表，并将前面三个表中的结账状态标记为“已结账”，然后在将这些文本框清除。

SSTab控件的缺点和优点：

1,缺点：你写入到每个选项卡的事件只能在该选项再次变为当前活动选项时显示出来。（对于该缺点我觉得TabScrip控件比较好，它是一触发就会显示出来）

2,优点：SSTab的每个选项都是一个容器，而TabScrip控件只有一个容器。

该窗体的代码（单击SSTab选项卡时）：

Private Sub SSTab1_Click(PreviousTab As Integer)
    Dim strSQL As String
    Dim MsgString As String
    Dim mrs As ADODB.Recordset
    Dim Registermoney As Single
    Dim Rechargemoney As Single
    Dim Backmoney As Single

    '先判断真实名是否正确
    strSQL = "select * from Userinfo where Username='" & Trim(cboUsername.Text) & "'"
    Set mrs = ExecuteSQL(strSQL, MsgString)
    If mrs.EOF Then
        MsgBox "请选择操作员！", vbExclamation + vbOKOnly, "警告"
        Exit Sub
    End If
    Select Case PreviousTab
        Case 0      '选择购卡选项
            BuyCardFlexGrid.Visible = True
            strSQL = "select * from Studentinfo where Teacher='" & Trim(cboUsername.Text) & "' and CheckState='未结账'"
            Set mrs = ExecuteSQL(strSQL, MsgString)
            If mrs.EOF Then
                With BuyCardFlexGrid
                    .Rows = 1
                    .CellAlignment = 4
                    .TextMatrix(0, 0) = "卡号"
                    .TextMatrix(0, 1) = "学号"
                    .TextMatrix(0, 2) = "日期"
                    .TextMatrix(0, 3) = "时间"
                End With
                Exit Sub
            End If
            With BuyCardFlexGrid
                .Rows = 1
                .CellAlignment = 4
                .TextMatrix(0, 0) = "卡号"
                .TextMatrix(0, 1) = "学号"
                .TextMatrix(0, 2) = "日期"
                .TextMatrix(0, 3) = "时间"
                Do While Not (mrs.EOF)
                    .Rows = .Rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.Rows - 1, 0) = Trim(mrs.Fields(0))
                    .TextMatrix(.Rows - 1, 1) = Trim(mrs.Fields(1))
                    .ColWidth(2) = 1600
                    .TextMatrix(.Rows - 1, 2) = Trim(mrs.Fields(12))
                    .TextMatrix(.Rows - 1, 3) = Trim(mrs.Fields(13))
                    Registermoney = Registermoney + Val(Trim(mrs.Fields(8)))
                    mrs.MoveNext
                Loop
                txtBuyCard.Text = mrs.RecordCount
                txtRegister.Text = Trim(Registermoney)
                mrs.Close
            End With
            txtSum.Text = Val(txtRegister.Text) + Val(txtRecharge.Text) - Val(txtBackMoney.Text)

        Case 1 '选择充值选项
            strSQL = "select * from Recharge where Teacher='" & Trim(cboUsername.Text) & "' and CheckState='未结账'"
            Set mrs = ExecuteSQL(strSQL, MsgString)
            If mrs.EOF Then
                With RechargeFlexGrid
                    .Rows = 1
                    .CellAlignment = 4
                    .TextMatrix(0, 0) = "卡号"
                    .TextMatrix(0, 1) = "学号"
                    .TextMatrix(0, 2) = "充值金额"
                    .TextMatrix(0, 3) = "日期"
                    .TextMatrix(0, 4) = "时间"
                End With
                Exit Sub
            End If
            With RechargeFlexGrid
                .Rows = 1
                .CellAlignment = 4
                .TextMatrix(0, 0) = "卡号"
                .TextMatrix(0, 1) = "学号"
                .TextMatrix(0, 2) = "充值金额"
                .TextMatrix(0, 3) = "日期"
                .TextMatrix(0, 4) = "时间"
                Do While Not (mrs.EOF)
                    .Rows = .Rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.Rows - 1, 0) = Trim(mrs.Fields(0))
                    .TextMatrix(.Rows - 1, 1) = Trim(mrs.Fields(8))
                    .TextMatrix(.Rows - 1, 2) = Trim(mrs.Fields(1))
                    Rechargemoney = Rechargemoney + Val(Trim(mrs.Fields(1)))
                    .ColWidth(3) = 1600
                    .TextMatrix(.Rows - 1, 3) = Trim(mrs.Fields(5))
                    .TextMatrix(.Rows - 1, 4) = Trim(mrs.Fields(4))
                    mrs.MoveNext
                Loop
                txtRecharge.Text = Trim(Rechargemoney)
                mrs.Close
            End With
            txtSum.Text = Val(txtRegister.Text) + Val(txtRecharge.Text) - Val(txtBackMoney.Text)

        Case 2      '选择退卡选项
            strSQL = "select * from BackCard where Teacher='" & Trim(cboUsername.Text) & "' and CheckState='未结账'"
            Set mrs = ExecuteSQL(strSQL, MsgString)
            If mrs.EOF Then
                With BackCardFlexGrid
                    .Cols = 5
                    .Rows = 1
                    .CellAlignment = 4
                    .TextMatrix(0, 0) = "卡号"
                    .TextMatrix(0, 1) = "学号"
                    .TextMatrix(0, 2) = "退卡金额"
                    .TextMatrix(0, 3) = "日期"
                    .TextMatrix(0, 4) = "时间"
                End With
                Exit Sub
            End If
            With BackCardFlexGrid
                .Cols = 5
                .Rows = 1
                .CellAlignment = 4
                .TextMatrix(0, 0) = "卡号"
                .TextMatrix(0, 1) = "学号"
                .TextMatrix(0, 2) = "退卡金额"
                .TextMatrix(0, 3) = "日期"
                .TextMatrix(0, 4) = "时间"
                Do While Not (mrs.EOF)
                    .Rows = .Rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.Rows - 1, 0) = Trim(mrs.Fields(0))
                    .TextMatrix(.Rows - 1, 1) = Trim(mrs.Fields(6))
                    .TextMatrix(.Rows - 1, 2) = Trim(mrs.Fields(1))
                    Backmoney = Backmoney + Val(Trim(mrs.Fields(1)))
                    .ColWidth(3) = 1600
                    .TextMatrix(.Rows - 1, 3) = Trim(mrs.Fields(2))
                    .TextMatrix(.Rows - 1, 4) = Trim(mrs.Fields(3))
                    mrs.MoveNext
                Loop
                txtBackCard.Text = mrs.RecordCount
                txtBackMoney.Text = Trim(Backmoney)
                mrs.Close
            End With
            txtSum.Text = Val(txtRegister.Text) + Val(txtRecharge.Text) - Val(txtBackMoney.Text)
        Case 3     '选择汇总选项
            txtSum.Text = Val(txtRegister.Text) + Val(txtRecharge.Text) - Val(txtBackMoney.Text)
            '标记结账
'            bCheckOut = True

            '向结账表中添加数据,每个操作员一天只有一条记录
            strSQL = "select * from Checkout where Operatername='" & Trim(cboUsername.Text) & "'"
            Set mrs = ExecuteSQL(strSQL, MsgString)
            '若没有新的记录则退出
            If Trim(txtBuyCard.Text) = "0" And Trim(txtRecharge.Text) = "0" And Trim(txtBackCard.Text) = "0" And _
                Trim(txtRegister.Text) = "0" And Trim(txtBackMoney.Text) = "0" And Trim(txtSum.Text) = "0" Then
                Exit Sub
            End If
            mrs.AddNew
            mrs.Fields(0) = Trim(cboUsername.Text)
            mrs.Fields(1) = Trim(cboName.Text)
            mrs.Fields(2) = Trim(txtBuyCard.Text)
            mrs.Fields(3) = Trim(txtRecharge.Text)
            mrs.Fields(4) = Trim(txtBackCard.Text)
            mrs.Fields(5) = Trim(txtRegister.Text)
            mrs.Fields(6) = Trim(txtBackMoney.Text)
            mrs.Fields(7) = Trim(txtSum.Text)
            mrs.Fields(8) = Date
            mrs.Fields(9) = Time
            mrs.Fields(10) = IIf(bCheckOut, "已结账", "未结账")
            mrs.Fields(11) = Trim(strName)
            mrs.Update
            mrs.Close
    End Select
End Sub