機房收費系統 上下機

最近大家都在進行機房收費系統，看大家的部落格，基本上都是先理清思路再實現功能，回想自己當時做的時候就不夠好，只是盲目的敲**，卻忽略了方向比努力更重要這個道理，導致最後出現了很多漏洞，於是又重新畫了一遍上下機的流程圖，希望能對以後機房的學習有幫助。 上機

只要思路清晰，具體的**實現很簡單。 下機

下機需要計算消費金額，具體是怎麼計算的呢？

關於消費金額的計算，每個人都有不同的計算方法，我覺得只要合理就行。

在基本資料設定的表中，有準備時間，最小上機時間，那麼這兩個時間跟實際的上機時間有什麼區別和聯絡呢？

如果實際上機時間 < 準備時間，消費金額為0。

如果實際上機時間 < 最小上機時間，有的說法是不能下機，但是這樣顯得也不太合理，萬一真的有特殊情況必須下機怎麼辦呢，所以在這可以下機，但是會收取一部分費用。

如果實際上機時間 > 最小上機時間，則按照不同的身份進行計算。

（以上計算是在 設定的準備時間 < 最小上機時間的基礎上計算的）

具體**如下

ontime = mrco.fields(9)  '獲取上機時間

offtime = now '獲取下機時間
consumetime = datediff("n", ontime, offtime) '計算上機時間
if consumetime < preparetime then '實際上機時間 < 準備時間
consume = 0#
elseif (preparetime < consumetime) and (consumetime < leasttime) then 』實際上機時間 < 最小上機時間 
a = msgbox "確定要下機嗎？", vbyes + vbquestion , "提示"
if a =vbyes then
consume = int(rate / 2)
end if
elseif trim(usertype) = trim(user) then '實際上機時間 > 最小上機時間
consume = rate * int(((consumetime / unittime) + 1)) '固定使用者消費 
elseif trim(usertype) = trim(tmpuser) then 
consume = tmprate * int(((consumetime / unittime) + 1)) '臨時使用者消費
end if

機房收費系統 上下機

在 上機下機中 主要是要想到所有在上機中可能發生的事件 並作出相應的對策 確保使用者可以成功的上機 下 機。上機 卡號是否位數字，需要判斷卡號是否存在，卡內餘額是否充足，卡號是否正在被使用。首先 查詢資料庫 中的student表 判斷卡號是否存在，且 處於可使用狀態 如果均符合以上要求 那麼就要檢視...

機房收費系統 上下機

前言 這兩個窗體 邏輯基本類似，開始正文 邏輯圖 重要 展示 從下機來說下機時間的確定是乙個承上啟下的作用 basicsql select from basicdata info 連線基本資料表 set basicmrc executesql basicsql,basictext if online...

機房收費系統之上下機

之前做完就一直沒有整理部落格。最後關頭，還是好好的總結一下。就可以開始新的征程了。查bsicdate 是否已經進行了基本資料設定。查student，學生是否存在，是否餘額足夠。查online 是否正在上機。符合上機條件後，在主窗體中顯示資訊。同時新增記錄到online 中。上機人數 1.通過onli...