前言
剛開始進行機房感覺哪個窗體都特別難，無從下手的感覺，其實每接觸乙個新的專案都會有這個感覺，但是後邊你仔細想想其中的邏輯，就會發現，他其實和學生差不了多少。只要邏輯搞清楚就行。
剛開始看見這個窗體，知道怎麼給他安排的整整齊齊的，但是對於寫**還真的是一點頭緒都沒有，後邊就看其他人寫的部落格，畫出來了流程圖，瞬間就感覺簡單了。
流程圖
**展示
private sub cmdinquiry_click()
dim txtsql as string
dim mrc as adodb.recordset
dim msgtext as string
'判斷卡號是否輸入
if trim(txtcardno.text = "") then
msgbox "請輸入使用者名稱！", vbokonly + vbexclamation, "提示"
txtcardno.setfocus
else
'判斷是否輸入的為數字
if not isnumeric(txtcardno.text) then
msgbox "請輸入數字！", vbokonly + vbexclamation, "提示"
exit sub
txtcardno.setfocus
else
'判斷卡號是否存在
txtsql = "select * from student_info where cardno='" & txtcardno.text & "'"
set mrc = executesql(txtsql, msgtext)
if mrc.eof then
msgbox "卡號不存在，請重新輸入！", vbokonly + vbexclamation, "提示"
txtcardno.setfocus
txtcardno.text = ""
else
'如果卡號正確，可以查詢
txtsid.text = mrc.fields(1)
txtname.text = mrc.fields(2)
txt***.text = mrc.fields(3)
txtdept.text = mrc.fields(4)
txtgrade.text = mrc.fields(5)
txtclass.text = mrc.fields(6)
txtstate.text = mrc.fields(10)
txtexplain.text = mrc.fields(8)
txtbalance.text = mrc.fields(7)
end if
mrc.close
end if
end if
end sub
當敲完**之後才會感覺出來這部分其實挺簡單的，應該是整個機房裡最簡單的一部分了吧，所以應該知道，萬事開頭難，但是有了乙個開頭就可以做好以後的事了。用心去學習，就會摸清楚它的門道。
第一次機房收費系統 幽夢
經過了分析需求 基本配置。終於開始敲機房了。第一步就是敲模組，我只能按照學生資訊管理系統的模組照葫蘆畫瓢。稍微改改，雖然當時整學生時把模組的 一句一句的查了一遍，但到現在還是不懂。不管怎樣，接著進行吧。於是，正式開始了！0.0 登入 在敲登入窗體時，還是要參考學生資訊管理系統。這第一句 就讓我一頭霧...
第一次機房收費系統總結
1.sub與function的區別 1 sub 過程，不需要返回值 function 函式,可以帶返回值 2 語法 sub subname 引數1,引數2,end sub function functionname 引數1,引數2,functionname 返回值 end function 2.如何...
第一次機房收費系統 總攻
前言 今天終於驗完了機房收費系統，驗完後感覺如釋重負 終於結束了。這次的驗專案相比上次的完善功能相比，更多的是對邏輯 使用者體驗的要求，所以這次的驗證相比上次來說要重要的多 因為後面我們會不斷進行機房收費系統的重構，而第一遍的邏輯若能梳理好，那麼後面不僅會輕鬆，更會少走不必要的彎路。首先我先來總結一...