2. 程式人生 > >機房收費系統之結賬總結

機房收費系統之結賬總結

阿新 • • 發佈：2019-01-06

【前言】

說到機房結賬，說難不難，說簡單也簡單，只要捋清楚思理接著再寫程式碼就可以了，本次是第一次機房，只是初次接觸結賬的，只要是賬能對的上就可以，這次機房的驗收光結賬我就驗收了三次，還是有個嚴格的師傅好啊，跟我講了很多，正好另一個師傅在做機房重構，一些內容和第一的機房的區別都告訴了。

【機房結賬理解】

要想把結賬做好首先要知道理解它的功能，結賬是給誰結的對吧！我把機房專案當作成一個網咖。

一般使用者：來上網的人

操作員： 網管

管理員： 網咖老闆

管理員那一列就是給網咖老闆用的，之前我們涉及到了級別登陸在資料庫中User_Info表中不難看出，登陸管理員的賬號操作那一下拉選單，之後老闆來看操作員網管一天都辦理了幾張卡，充值了多少，臨時使用者又辦了幾張，最後又退卡還給人家多少錢，最後這就是他一天獲利的錢。

結賬：三進一出， 有這個理解不會讓用你軟體的成為一個糊塗老闆。

應收金額=充值金額+臨時收費金額 -退卡金額

在就是知道SSTab控制元件中購卡、充值、退卡、臨時使用者所對應的表，充值金額是固定使用者平時充值的記錄，而臨時使用者不具備充值這個功能，所以在管理員算今天櫃檯上的收入的時候，就應該算上臨時使用者消費的金額和固定使用者充值的金額，再減掉退卡金額。

結賬部分程式碼

    '計算上期充值卡餘額
    txtSQL = "select sum(cash) from student_Info where UserID='" & Trim(cmbOpUserID.Text) & "' and Ischeck ='" & "未結賬" & "'"
        Set mrcStudent = ExecuteSQL(txtSQL, MsgText)
        If IsNull(mrcStudent.Fields(0)) Then
            sumcash = 0
        Else
            sumcash = mrcStudent.Fields(0)
        End If

    '計算line表當日消費餘額
    txtSQL = "select sum(cash) from Line_Info where offdate='" & Date & "'"
        Set mrcline = ExecuteSQL(txtSQL, MsgText)
        If IsNull(mrcline.Fields(0)) Then
            ConsumeCash = 0
        Else
            ConsumeCash = mrcline.Fields(0)
        End If

    '將相應的記錄存入到日結表
    txtSQL = "select * from CheckDay_Info"
    Set mrcCheckDay = ExecuteSQL(txtSQL, MsgText)
            
    '當天結多次賬的情況，就在原有基礎上更新
    mrcCheckDay.AddNew
        mrcCheckDay!RemainCash = sumcash + mrcCheckDay!RemainCash
        mrcCheckDay!RechargeCash = Val(txtRechargeMoney.Text) + mrcCheckDay!RechargeCash
        mrcCheckDay!ConsumeCash = ConsumeCash + mrcCheckDay!ConsumeCash
        mrcCheckDay!CancelCash = Val(txtBackCardMoney.Text) + mrcCheckDay!CancelCash
        mrcCheckDay!AllCash = (sumcash + Val(txtRechargeMoney.Text) - Val(txtBackCardMoney.Text) - ConsumeCash) + mrcCheckDay!AllCash
        mrcCheckDay!Date = Date
        mrcCheckDay.Update
        mrcCheckDay.Close
        mrcStudent.Close
        mrcline.Close


    txtSQL = "select * from student_Info where UserID='" & cmbOpUserID.Text & "'"
        Set mrcStudent = ExecuteSQL(txtSQL, MsgText)

            Do While Not mrcStudent.EOF
                mrcStudent.Fields(11) = "結賬"
                mrcStudent.MoveNext
            Loop

    txtSQL = "select * from ReCharge_Info where UserID='" & cmbOpUserID.Text & "'"
        Set mrcRecharge = ExecuteSQL(txtSQL, MsgText)

        Do While Not mrcRecharge.EOF
            mrcRecharge.Fields(7) = "結賬"
            mrcRecharge.MoveNext
        Loop

    txtSQL = "select * from CancelCard_Info where UserID='" & cmbOpUserID.Text & "'"
        Set mrcCancelCard = ExecuteSQL(txtSQL, MsgText)

        Do While Not mrcCancelCard.EOF
            mrcCancelCard.Fields(6) = "結賬"
            mrcCancelCard.MoveNext
        Loop

        MsgBox "結賬成功!", vbOKOnly + vbExclamation, "提示"
            txtSalecard.Text = "0"
            txtBackCardMoney.Text = "0"
            txtBackCard.Text = "0"
            txtSalecardSum.Text = "0"
            txtRechargeMoney.Text = "0"
            txtCollectMoney.Text = "0"
            txtTemRecharge.Text = "0"

【結賬查詢】

結賬的時候應該修改相應的資料庫資訊（將結賬的所有賬戶資訊改為“已結賬”），並且在checkWeek_Info和checkDay_Info中新增資料，方便在報表中呼叫，完成之後將窗體的所有資訊清0。

注意：

既然這裡將所有資訊都改為了“已結賬”，那麼這些使用者下次登入的記錄將不再收集，但是確實消費了，所以在下次登入的時候應該將餘額大於0的使用者統一改回“未結賬”

仔細研究下這三個表中的status列和Ischeck列對應下面的程式碼思考下為什麼這麼寫，程式碼的重點在查詢表語句中。

【如下圖和程式碼】

【程式碼展示】

   '購卡
    If SSTab1.Tab = 0 Then
        With MSHFlexGrid1
            .CellAlignment = 4
            .Rows = 1
            .TextMatrix(0, 0) = "學號"
            .TextMatrix(0, 1) = "卡號"
            .TextMatrix(0, 2) = "日期"
            .TextMatrix(0, 3) = "時間"
        End With
    End If
    
        '選擇student表中使用者名稱為combo且未結賬的資料
        txtSQL = "select * from student_Info where UserID='" & cmbOpUserID.Text & "' and Ischeck='未結賬 ' and type='固定使用者 '"
        Set mrcStudent = ExecuteSQL(txtSQL, MsgText)
        SaleCard = mrcStudent.RecordCount
        
        With MSHFlexGrid1
        Do While Not mrcStudent.EOF
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = mrcStudent.Fields(1)
            .TextMatrix(.Rows - 1, 1) = mrcStudent.Fields(0)
            .TextMatrix(.Rows - 1, 2) = mrcStudent.Fields(12)
            .TextMatrix(.Rows - 1, 3) = mrcStudent.Fields(13)
            mrcStudent.MoveNext
        Loop
        End With
    
    
    
    '充值
    If SSTab1.Tab = 1 Then
        With MSHFlexGrid2
            .CellAlignment = 4
            .Rows = 1
            .TextMatrix(0, 0) = "學號"
            .TextMatrix(0, 1) = "卡號"
            .TextMatrix(0, 2) = "充值金額"
            .TextMatrix(0, 3) = "日期"
            .TextMatrix(0, 4) = "時間"
        End With
    End If
    
        '選擇recharge表中使用者名稱為combo、未結賬的資料
        txtSQL = "select * from Recharge_Info where UserID='" & cmbOpUserID.Text & "' and status='未結賬 '"
        Set mrcRecharge = ExecuteSQL(txtSQL, MsgText)
        RechargeMoney = 0
        
        With MSHFlexGrid2
        Do While Not mrcRecharge.EOF
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = mrcRecharge.Fields(1)
            .TextMatrix(.Rows - 1, 1) = mrcRecharge.Fields(2)
            .TextMatrix(.Rows - 1, 2) = mrcRecharge.Fields(3)
            .TextMatrix(.Rows - 1, 3) = mrcRecharge.Fields(4)
            .TextMatrix(.Rows - 1, 4) = mrcRecharge.Fields(5)
        RechargeMoney = RechargeMoney + mrcRecharge.Fields(3)
        mrcRecharge.MoveNext
        Loop
        End With
    
        
    '退卡
    If SSTab1.Tab = 2 Then
  
        With MSHFlexGrid3
            .CellAlignment = 4
            .Rows = 1
            .TextMatrix(0, 0) = "學號"
            .TextMatrix(0, 1) = "卡號"
            .TextMatrix(0, 2) = "退卡金額"
            .TextMatrix(0, 3) = "日期"
            .TextMatrix(0, 4) = "時間"
        End With
    End If
    
    '選擇cancelcard表中使用者名稱為combo、未結賬的資料
    txtSQL = "select * from CancelCard_Info where UserId='" & cmbOpUserID.Text & "'and status='未結賬 '"
    
    Set mrcCancelCard = ExecuteSQL(txtSQL, MsgText)
        BackCardMoney = 0
        BackCard = mrcCancelCard.RecordCount
    
    With MSHFlexGrid3
    Do While Not mrcCancelCard.EOF
        .Rows = .Rows + 1
        .CellAlignment = 4
        .TextMatrix(.Rows - 1, 0) = mrcCancelCard.Fields(0)
        .TextMatrix(.Rows - 1, 1) = mrcCancelCard.Fields(1)
        .TextMatrix(.Rows - 1, 2) = mrcCancelCard.Fields(2)
        .TextMatrix(.Rows - 1, 3) = mrcCancelCard.Fields(3)
        .TextMatrix(.Rows - 1, 4) = mrcCancelCard.Fields(4)
        BackCardMoney = BackCardMoney + mrcCancelCard.Fields(2)
        mrcCancelCard.MoveNext
    Loop
    End With
    
  
    '臨時使用者
    If SSTab1.Tab = 3 Then
        With MSHFlexGrid4
            .CellAlignment = 4
            .Rows = 1
            .TextMatrix(0, 0) = "學號"
            .TextMatrix(0, 1) = "卡號"
            .TextMatrix(0, 2) = "日期"
            .TextMatrix(0, 3) = "時間"
        End With
    End If
    '選擇學生表中使用者名稱為combo,型別為臨時使用者，且未結賬的使用者
    txtSQL = "select * from student_Info where UserID='" & cmbOpUserID.Text & "' and type='臨時使用者 ' and Ischeck='未結賬 '"
    Set mrcStudent = ExecuteSQL(txtSQL, MsgText)
    
    With MSHFlexGrid4
    Do While Not mrcStudent.EOF
        .Rows = .Rows + 1
        .CellAlignment = 4
        .TextMatrix(.Rows - 1, 0) = mrcStudent.Fields(1)
        .TextMatrix(.Rows - 1, 1) = mrcStudent.Fields(0)
        .TextMatrix(.Rows - 1, 2) = mrcStudent.Fields(12)
        .TextMatrix(.Rows - 1, 3) = mrcStudent.Fields(13)
    
        mrcStudent.MoveNext
    Loop
    End With

相關推薦

機房收費系統之結賬總結

【前言】 說到機房結賬，說難不難，說簡單也簡單，只要捋清楚思理接著再寫程式碼就可以了，本次是第一次機房，只是初次接觸結賬的，只要是賬能對的上就可以，這次機房的驗收光結賬我就驗收了三次，還是有個嚴格的師傅好啊，跟我講了很多，正好另一個師傅在做機房重構，一些內容和第一的機房的區

機房收費系統之結賬與報表（二）週報表製作《一學就會傻瓜版》

如果你對機房收費系統的結賬與日結賬、周結賬的關係資料庫表不清楚、可以先補補課 有錯請及時指出、有錯必改、方便大家！ 我們要用一個軟體做報表的模板、然後在VB裡面新增部件、程式碼呼叫模板，

機房收費系統之結賬

　　看評論，小夥伴們建議畫張流程圖來直觀表示，部落格釋出的意義之一在於廣開言路，察納雅言，故更新部落格，添上流程圖一張，贈與新的讀者~~~ 彙總 　　充值表中添加了UserID這個欄位，便於在學生註冊的時候就將金額相關資訊存入充值表中，減少了計算的複雜性。

機房收費系統之總結篇

      歷時兩個月的機房收費系統終於結束咯，感覺機房收費系統在學生管理系統的基礎上又提升了一個等級，學生管理系統是照著原始碼敲的，而機房收費系統除了Excel的匯出，報表的生成，模組是參照原始碼學習的，其他都是自己一個一個敲出來的，感覺還是很充實的，這兩個月都做了哪

軟工文件之機房收費系統文件總結

對文件的理解： 歷經大量的借鑑，我的第一次文件生涯就這樣結束了。整個過程下來，自己對機房收費系統的整體脈絡和業務流程有了更加深刻清晰的認識。而且有這樣一個感悟：一個不會寫文件的程式設計師和一個不會寫文件的程式設計師兩者之間的行業地位又好比武林高手和武學宗師的關係。但凡武學宗

機房收費系統之總結（一）

機房收費系統涉及到的版塊比較多，因此涉及到的功能也比較多，而這些功能恰巧是需要用程式碼來實現的，下面我就來做一些分享了。 第一：如何一鍵刪除vb窗體中所有控制元件的內容，（省程式碼的操作） rem：一鍵清除vb控制元件中所有的內容 Private Sub cmdclea

軟體工程之機房收費系統文件總結

    看完了軟工視訊，我們又迎來了軟工文件。過程確實有些枯燥，作為一名理科女，愈發覺得，語言文字不是我的強項。     下面附圖一張。       我們要清楚各個文件是在什麼時候生成的，還有預期讀者

機房收費系統之結尾

分享一下我老師大神的人工智慧教程！零基礎，通俗易懂！http://blog.csdn.net/jiangjunshow 也歡迎大家轉載本篇文章。分享知識，造福人民，實現我們中華民族偉大復興！        

機房收費系統之細化篇（跨日期下機，MDI窗體的運用，MDI主窗體與子窗體的互動）

      最近在細化機房收費系統時，發現在下機窗體出現了很多消費時間為負值的情況，有時還會彈出Bug，仔細一看原來是跨日期的消費時間問題，那麼如何設定跨日期的下機呢？在機房收費系統中的MDI 窗體如何運用呢？下面就這兩個問題進行梳理分享。 一、跨日期的下機 核

機房收費系統之手動下機（獲取時間差、更新資料庫資料、判斷時間差）

        下機窗體的梳理著實耗費了不少時間，的確是一個費腦細胞的活兒，不過過程也是挺享受的，那個專注力、那個廢寢忘食的勁頭兒少有吖^_^ 一、下機窗體的流程圖（如有不對的地方還望各位大神給予指導^_^）： 二、錯誤集（本窗體中的大錯誤並不是很多，都是以前遇到

機房收費系統之學生檢視上機記錄（MSHFlexGrid控制元件資料匯出Excel）

       這個窗體之所以可以順利的進行下去，全靠藉助於巨人的力量，站在了巨人的肩膀上前行，Excel的匯出還是很神奇的，讓我們一起來看一下吧^_^ 一、學生檢視上下機記錄窗體的流程圖 二、查詢集 ①、機房收費系統中Excel表如何匯出 ②、vb中DoEve

機房收費系統之組合查詢（程式碼部分）

       最近的事情比較多，本該留出大塊時間整理組合查詢的程式碼部分，結果是分為一段一段的零散時間來整理的，最終整理的這些組合查詢程式碼可能還是有很多冗餘，本來不想拿出來的，但考慮到自己的不足就要展示給大家，這樣自己才能進步嘛，所以還是厚著臉皮把我冗餘的程式碼展示出來了，

機房收費系統之收取金額查詢（TPicker控制元件時間段取值、SQL語句中單引號與雙引號區別）

        收取金額查詢窗體較組合查詢而言就是小菜一碟，但即便是內容較少也有其精華之處，現在分享一下我的學習過程吧^_^ 一、收取金額查詢窗體的流程圖： 二、問題集 這是什麼錯誤呢，為什麼會出現這個型別的錯誤？ 產生此問題的程式碼部分是什麼樣子的呢？ 以

機房收費系統之學生基本資訊維護

前言 該窗體功能是實現查詢學生的資訊，並可給予修改的許可權。其中包含兩個重大部分，一是組合查詢，二是修改；其中修改又涉及到了修改學生資訊窗體，此窗體中取消修改嘗試了很多方法，最後選取比較簡單的方法，這個窗體不難。最重要的莫過於組合查詢：組合查詢我使用的方法是一行一行的查，因為對於我目前的

機房收費系統之收取金額查詢

前言 本窗體相對來說比較簡單，主要涉及到從Recharge_info表中查詢，與及excel的匯出；其大概思路如下：終止日期不能小於起始日期----連線Recharge_info表，顯示內容----匯出表格：判斷有無資訊可匯出-----有則呼叫excel程式 問題所在 問題1：卡

機房收費系統之新增和刪除使用者

前言 剛開始敲此窗體時，頭就開始暈了，因為覺得自己啥也不會，覺得這個還挺難的，其實主要還是抗拒產生難。不過還是應徵了魯迅先生說的那句話：有些路走著走著就有了。 流程 因為沒有拷流程圖，所以我基本上是手動輸入的。具體如下：使用者級別點選事件，連線資料庫，更新至MSFlexGri

機房收費系統之學生檢視餘額

流程 判斷卡號是否為空----為空，輸入卡好—不為空，連線資料庫----判斷是否有此使用者----沒有，提示-----有，連線並顯示資訊 知識點 If mrc.BOf Then :當前指標的位置是在第一行記錄之前 If mrc.EOF Then :當前指標的位置是在最後一行記

機房收費系統之註冊

流程 註冊—判斷卡號是否為空—為空，輸入卡號—不為空，連線資料庫判斷是否存在—存在，進行金額查詢—不存在，註冊資訊存入存檔—清除資訊，為了使用者方便，一鍵清除所有的資訊 注意：combobox不能手動輸入，只能選擇；存檔存入資訊有條件限制，充值有條件：輸入的金額不能低於餘額 挫折

機房收費系統之操作員記錄、正在值班人員記錄（關閉視窗判斷事件，MsgBox返回值，Queryunload與Unload區別）

      機房收費系統的操作員記錄與正在值班人員記錄的窗體比較簡單，思路也差不多，在這裡就彙總在一起進行總結。 一、流程圖 ①操作員工作記錄窗體流程圖 ②正在值班人員窗體流程圖 二、查詢集 ①MsgBox的返回值有哪些，如何獲取返回值？  

機房收費系統之學生上機資訊

前言 組合查詢是機房三大難點之一，不過等做完之後會豁然開朗，原來就是一句話的事。雖然這樣還是自己還是研究了好幾天才弄明白。下面先來說一下我的思路。 思路 重點程式碼： Private Sub ComboField2_Click() If ComboFi