計算消費時間
'計算上機時間
intlinetime = (date - datevalue(onw!ondate)) * 1440 + (hour(time) - _
hour(timevalue(onw!ontime))) * 60 + (minute(time) - _
minute(timevalue(onw!ontime))) '計算機上機時間
txtctime.text = trim(intlinetime)
if intlinetime <= val(trim(bas.fields(4))) then '判斷上機時間是否小於準備時間
txtcmoney.text = 0
else
'判斷實際時間是否小於最低消費時間
if intlinetime <= val(trim(bas.fields(3))) then '如果小於
txtcmoney.text = 0
else
if intlinetime > val(trim(bas!leasttime)) and trim(stu.fields(14)) = "固定使用者" then
curconsume = intlinetime / val(trim(bas!unittime)) '用上機時長除以遞增時間 等於上機小時
txtcmoney.text = val(curconsume) * val(fixedunit) '用上機小時乘固定使用者每小時費用等於消費金額
else
if intlinetime > val(trim(bas!leasttime)) and trim(stu.fields(14)) = "臨時使用者" then
'如果是臨時使用者
curconsume = intlinetime / val(bas!unittime) '用上機時長除以遞增時間
txtcmoney.text = val(curconsume) * val(temunit) '用上機小時乘臨時使用者每小時費用 等於消費金額
end if
end if
end if
'計算消費金額
curconsume = intlinetime / val(bas!unittime) '用上機時長除以遞增時間
txtcmoney.text = val(curconsume) * val(temunit) '用上機小時乘臨時使用者每小時費用 等於消費金額
'計算餘額（賬戶餘額=原賬戶餘額-消費餘額）
txtbalance.text = stu!cash - val(txtcmoney.text) '賬戶餘額
'顯示上機人數
dim onw1 as adodb.recordset '判斷卡號是否正在上機
txtsql = "select*from online_info"
set onw1 = executesql(txtsql, msgtext)
lbluser.caption = onw1.recordcount
onw1.close
'更新上機表
txtsql = "select * from line_info " '獲取上機記錄表
set linesql = executesql(txtsql, msgtext)
linesql.addnew
linesql.fields(1) = trim(txtcardno.text)
linesql.fields(2) = trim(txtsid.text)
linesql.fields(3) = trim(txtname.text)
linesql.fields(4) = trim(txtdept.text)
linesql.fields(5) = trim(txt***.text)
linesql.fields(6) = trim(txtondate.text)
linesql.fields(7) = trim(txtontime.text)
linesql.fields(8) = trim(txtoffdate.text)
linesql.fields(9) = trim(txtofftime.text)
linesql.fields(10) = trim(txtctime.text)
linesql.fields(11) = trim(txtcmoney.text)
linesql.fields(12) = trim(txtbalance.text)
linesql.fields(13) = trim("正常下機")
linesql.fields(14) = trim(computername)
linesql.update
機房收費系統 下機
有了上機的思路，下機當然也就很簡單了，不過總是要比別人多想一步，這樣你就能夠比別人更加的優秀。下機的流程圖 下機的注意事項 txtontime.text trim mrc3.fields 7 txtdowndate.text format now yyyy mm dd txtdowntime.tex...
機房收費系統 下機
上下機是機房收費系統中比較重要的一部分，所以我們一定要把上下機的思路理清楚才可以，不然會很亂，一會兒就把自己繞進去了，現在我們一起分析一下下機的思路吧！片段 判斷上下機的情況 private sub cmdoffline click dim mrconline as adodb.recordset ...
機房收費系統 上下機
最近大家都在進行機房收費系統，看大家的部落格，基本上都是先理清思路再實現功能，回想自己當時做的時候就不夠好，只是盲目的敲 卻忽略了方向比努力更重要這個道理，導致最後出現了很多漏洞，於是又重新畫了一遍上下機的流程圖，希望能對以後機房的學習有幫助。上機 只要思路清晰，具體的 實現很簡單。下機 下機需要計...