我的上下機可以說是機房收費系統的最後的一部分。在敲上下機之前自己沒有去理一理思路，使用者是怎樣上機的又是怎樣下機的，只是聽他們說比較難，所以有一點點畏懼的心理，所以一直拖延到了最後。其實，當自己靜下心來思考的時候，也沒有那麼難，最最主要的要有自己的思考。
下面是我對於上下機的流程圖分析
下面是上機按鈕下的**實現過程
dim txtsql as string '定義變數
dim msgtext as string
dim mrconline as adodb.recordset
dim mrcline as adodb.recordset
dim mrcstudent as adodb.recordset
dim mrccancelcard as adodb.recordset
'假如卡號未註冊
txtsql = "select * from student_info where cardno='" & trim(txtcardno.text) & "' "
set mrcstudent = executesql(txtsql, msgtext)
if mrcstudent.eof then
msgbox "此卡未註冊！", vbokonly + vbexclamation, "警告"
exit sub
end if
'假如卡號已經上機
txtsql = "select * from online_info where cardno='" & trim(txtcardno.text) & "' "
set mrconline = executesql(txtsql, msgtext)
if mrconline.eof = false then
msgbox "此卡已經上機，請重新輸入卡號！", vbokonly + vbexclamation, "警告"
exit sub
end if
'假如已經退卡，不能再上機
txtsql = "select * from cancelcard_info where cardno='" & trim(txtcardno.text) & "' "
set mrccancelcard = executesql(txtsql, msgtext)
if mrccancelcard.eof = false then
msgbox "此卡已經退卡，請重新輸入！", vbokonly + vbexclamation, "警告"
exit sub
end if
'判斷輸入情況
if trim(txtcardno.text) = "" then
msgbox "請輸入卡號！", vbokonly + vbexclamation, "警告"
txtcardno.setfocus
exit sub
else
if len(txtcardno.text) > 10 then
msgbox "卡號不能超過10位數，請重新輸入！", vbokonly + vbexclamation, "警告"
txtcardno.setfocus
exit sub
end if
txtsql = "select * from student_info where cardno='" & txtcardno.text & "'"
set mrconline = executesql(txtsql, msgtext)
if mrconline.eof and mrconline.bof then '沒有找到相應的卡號
msgbox "卡號未註冊，請重新輸入！", vbokonly + vbexclamation, "警告"
txtcardno.text = ""
txtcardno.setfocus
exit sub
end if
end if
機房收費系統之上下機
之前做完就一直沒有整理部落格。最後關頭，還是好好的總結一下。就可以開始新的征程了。查bsicdate 是否已經進行了基本資料設定。查student，學生是否存在，是否餘額足夠。查online 是否正在上機。符合上機條件後，在主窗體中顯示資訊。同時新增記錄到online 中。上機人數 1.通過onli...
機房收費系統 之上下機
機房從開始到結束用了將近乙個半月。具體用了多少個番茄我也不清楚了。只覺得這個過程既煎熬又快樂。現在回頭想想自己都不敢相信自己完成了這個曾經畏懼到不行的專案。可能真的是這樣吧。你的潛力連你自己都不會清楚，只要按照計畫一步一步的來，當你有一天回頭的時候，你才會發現，自己已經離山頂不遠了。有的時候可能我們...
機房收費系統之上 下機
上機 判斷 卡號是否為空，是否已註冊，是否已退卡，餘額是否充足，是否正在上機 調動學生資訊到輸入框i 資料同步到online info表中 同步到line info表中 下機 判斷 計算消費金額 計算餘額 餘額更新到student info表中 刪除line info表中的資訊 更新line inf...