上機**分解：
**定義和清空：
判斷卡號階段：
txtsql = "select * from student_info where cardno='" & trim(stutxtcardsno.text) & "'"
set mrc = executesql(txtsql, msgtext)
if stutxtcardsno.text = "" then '判斷卡號是否為空
msgbox "卡號不能為空
", vbokonly + vbexclamation, "警告"
else
if isnumeric(stutxtcardsno.text) = false then
msgbox "只能輸入數字"
stutxtcardsno.text = ""
stutxtcardsno.setfocus
else
if mrc.eof then '判斷卡號是否註冊
msgbox "此卡尚未註冊，請重新輸入！
", vbokonly + vbexclamation, "警告"
stutxtcardsno.text = ""
else
if trim(mrc.fields(10)) = trim("不使用
") then
msgbox "此卡尚未使用！
", vbokonly + vbexclamation, "警告"
stutxtcardsno.text = ""
else
txtsql = "select * from online_info where cardno='" & trim(stutxtcardsno.text) & "'"
set mrc = executesql(txtsql, msgtext)
if mrc.eof = false then '判斷卡是否正在使用
msgbox "此卡正在使用中
", vbokonly + vbexclamation, "警告"
txtsql = "select * from student_info where cardno='" & trim(stutxtcardsno.text) & "'"
set mrc = executesql(txtsql, msgtext)
stutxtcardsno.text = trim(mrc.fields(0))
txtstuno.text = trim(mrc.fields(1))
txtstuname.text = trim(mrc.fields(2))
txtstu***.text = trim(mrc.fields(3))
txt1.text = trim(mrc.fields(4))
txtstutype.text = trim(mrc.fields(14))
txtdataonline.text = date
txtonlinetime.text = time
txtstucharg.text = trim(mrc.fields(7))
else
txtsql = "select * from student_info where cardno='" & trim(stutxtcardsno.text) & "'"
set mrc = executesql(txtsql, msgtext)
'判斷卡內餘額是否充足
if mrc.fields(7) <= 0 then
msgbox "餘額不足，請充值！
", vbokonly, ""
stutxtcardsno.text = ""
確認無誤後顯示階段：
注顯示階段分為在文字上顯示和在sql上的
online
表上顯示。
下機：定義階段：
判斷卡號：
結賬計算階段和顯示：
最後就完成了上下機的操作！
機房收費系統之上下機
之前做完就一直沒有整理部落格。最後關頭，還是好好的總結一下。就可以開始新的征程了。查bsicdate 是否已經進行了基本資料設定。查student，學生是否存在，是否餘額足夠。查online 是否正在上機。符合上機條件後，在主窗體中顯示資訊。同時新增記錄到online 中。上機人數 1.通過onli...
機房收費系統 之上下機
機房從開始到結束用了將近乙個半月。具體用了多少個番茄我也不清楚了。只覺得這個過程既煎熬又快樂。現在回頭想想自己都不敢相信自己完成了這個曾經畏懼到不行的專案。可能真的是這樣吧。你的潛力連你自己都不會清楚，只要按照計畫一步一步的來，當你有一天回頭的時候，你才會發現，自己已經離山頂不遠了。有的時候可能我們...
機房收費系統 之 上下機
我的上下機可以說是機房收費系統的最後的一部分。在敲上下機之前自己沒有去理一理思路，使用者是怎樣上機的又是怎樣下機的，只是聽他們說比較難，所以有一點點畏懼的心理，所以一直拖延到了最後。其實，當自己靜下心來思考的時候，也沒有那麼難，最最主要的要有自己的思考。下面是我對於上下機的流程圖分析 下面是上機按鈕...