前言

初次碰到結賬這個問題，心裡還是有很多的抵觸，覺得太難了，下機的時候就覺得有些困難，因為涉及到了算賬的問題，現在開始結賬了，放眼望去，慢慢的全是賬，不管怎樣，先學做一個會計吧！

功能實現

其實結賬這裡分為兩大部分

一：從資料庫中匯出操作員使用者名稱和真實姓名

需要實現的功能：當選擇某個使用者名稱的時候他的真實姓名直接調出，雖說這個功能不難實現，但是不怕不知道就怕不知道！

程式碼實現：

首先設定使用者名稱部分，該部分程式碼在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

（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

（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

資料表的引用

總結

總結下來之後覺得自己又收穫了不少，思路比之前清晰了許多，而且在總結的過程中也會發現程式的一些不足之處，順便做了一些修改，所以說總結很重要，顆粒歸倉!

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