今天我又回顧了一下 機房管理系統，看見了我熟悉的花費了我三天才敲好的窗體（當然想了兩天），然後今天我就來總結一下下機退卡吧！
第一句話是讓子窗體在父窗體中的框裡顯示！
其他的然後就是定義函式名稱
然後接下來就是 呼叫函式，並計算上機時間的消費金額：
接下來就是將**寫上資料庫中：
寫完之後就關閉掉資料庫
整理思路：
這其中我在之前出現的問題是刪除資料直接在資料中刪除，導致迴圈的時候出現資料缺少不統一的情況，於是我就想到了先計算，統一刪除更新的思想解決了這個問題！
我並不急於每刪除一條資料就更新，所以我將迴圈的次數轉移到msflexgrids表中,讓呼叫出來的資料不改變，這樣就避免了迴圈的次數不發現變化和呼叫的資料不出現不一致的情況。然後將資料庫中的表的操作都做完之後再將msflexgrids表中的資料刪除，這樣就很好的解決我的問題。不知道對大家有幫助沒有？
思路清晰是在編寫**中最重要的一部分，所以我們不妨在紙上去理清我們的思路，分模組或者功能一步一步的進行，然後再在電腦上進行測試，對其中的錯誤我們也可以在紙上找到，並且及時糾正，這樣子能幫助我們建立很好的程式設計思維。
好了，今天就分享到這裡吧！
機房收費系統之下機
收費了，開始收費了，機房終於要做到收費的階段了。本目前為止，終於扣題了。關於收費的難點就是時間差的計算，時間差算出來錢就可以隨便算 只要你不怕被打 不過前提是合理。下面就說說怎麼計算這個時間差。1 在就算時間差的時候，用到了 datediff 函式，關於函式的使用規則，這裡給出簡單介紹 datedi...
機房收費系統之下機
下機找好邏輯然後慢慢來，平靜下心來，其實也不難。主要邏輯和上機還是挺像的。如圖 部分 如下 一 判斷卡號是否為空 if trim txtcardno.text then msgbox 請輸入卡號，卡號不能為空！48,提示 exit sub 防止錯誤 3021 二 判斷此卡是否存在 else txts...
機房收費系統 退卡
具體思路如圖 如下 判斷卡號是否為空 if not testtxt txtcardno.text then msgbox 請輸入卡號 vbokonly vbexclamation,提示 txtcardno.setfocus exit sub end if 新建查詢 strsql select sta...