機房下機總結

機房下機是乙個比較複雜的過程，同樣涉及多個資料表間的資料交換，同時還涉及到時間的計算及金錢的計算。特別是金錢的計算，是整個機房系統的中的重中之重，需要仔細研究，可以肯定的是沒有乙個網咖希望有乙個算不准錢的機房系統。

這是我下機的資料流程圖。

這是我的下機**：

判斷上機時間

txtsql = "select * from line_info where cardno ='" & trim(txtcid.text) & "'"

set mrc1 = executesql(txtsql, msgtext)
txtsql = "select * from basicdata_info where head = '" & username & "'"
set mrc3 = executesql(txtsql, msgtext)
valuedate = datediff("n", mrc!ondate, date)
valuetime = datediff("n", mrc!ontime, time)
valuetime = valuedate + valuetime

if mrc2!type = "固定使用者" then

pay = format(mrc3.fields(0) / 60, "0.0")
pay = format(pay * valuetime, "0.0")
else
pay = format(mrc3.fields(1) / 60, "0.0")
pay = format(pay * valuetime, "0.0")
end if

txtoffdate.text = date

txtofftime.text = time
txtwtime.text = valuetime
text1.text = pay

mrc1.addnew

mrc1.fields(1) = mrc!cardno
mrc1.fields(2) = mrc!studentno
mrc1.fields(3) = mrc!studentname
mrc1.fields(4) = mrc!department
mrc1.fields(5) = mrc!***
mrc1.fields(6) = mrc!ondate
mrc1.fields(7) = mrc!ontime
mrc1.fields(8) = date
mrc1.fields(9) = time
mrc1.fields(10) = valuetime
mrc1.fields(11) = pay
mrc1.fields(12) = mrc2!cash - pay
mrc1.fields(13) = "正常下機"
mrc1.fields(14) = mrc!computer
mrc1.update
mrc2!cash = mrc1.fields(12)
mrc2.update

txtsql = "delete from online_info where cardno = '" & trim(txtcid.text) & "'"

set mrc = executesql(txtsql, msgtext)        
msgbox "已成功下機", vbokonly + vbexclamation, "提示"

機房收費系統 下機

有了上機的思路，下機當然也就很簡單了，不過總是要比別人多想一步，這樣你就能夠比別人更加的優秀。下機的流程圖 下機的注意事項 txtontime.text trim mrc3.fields 7 txtdowndate.text format now yyyy mm dd txtdowntime.tex...

機房收費系統 下機

上下機是機房收費系統中比較重要的一部分，所以我們一定要把上下機的思路理清楚才可以，不然會很亂，一會兒就把自己繞進去了，現在我們一起分析一下下機的思路吧！片段 判斷上下機的情況 private sub cmdoffline click dim mrconline as adodb.recordset ...

機房收費系統 下機

計算消費時間 計算上機時間 intlinetime date datevalue onw ondate 1440 hour time hour timevalue onw ontime 60 minute time minute timevalue onw ontime 計算機上機時間 txtcti...