機房收費系統 上下機

前言：這兩個窗體**邏輯基本類似，開始正文

邏輯圖：

重要**展示：

從下機來說下機時間的確定是乙個承上啟下的作用

basicsql = "select * from basicdata_info "   』連線基本資料表

set basicmrc = executesql(basicsql, basictext)
if onlinemrc.recordcount = 0
then
'處理3021
exit
subelse
txtconsume.text = datediff("n", onlinemrc.fields(9), format(now, "yyyy/mm/dd h:mm:ss"))'判斷時間間隔
if val(txtconsume.text) < basicmrc.fields(4) then
txtconscash.text = 0
else
if val(txtconsume.text) > 60
then
if txttype.text = "固定使用者"
then
txtconscash.text = int(basicmrc.fields(0) / 60 * val(txtconsume.text))
else
txtconscash.text = int(basicmrc.fields(1) / 60 * val(txtconsume.text))
endifelse
if txttype.text = "臨時使用者"
then
txtconscash.text = basicmrc.fields(1)
else
txtconscash.text = basicmrc.fields(0)
endifend
ifend
ifend
if

機房收費系統 上下機

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

機房收費系統 上下機

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

機房收費系統之上下機

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