近期，我們大部分人進度都進入到了機房收費系統，算起來到現在我已經開始了這
個專案兩個星期了，目前已經將基本的功能全部都實現了。在這裡總結一些自己當
初沒有涉及過得或者已經遺忘了的知識點。
1.msgbox的應用
當我們使用這個控制項的時候不知道大家發現沒有，如果只是`msgbox("是否確定
要退出",vbokonly + vbexclamation, "提示")`的話，不論你單擊是
或者否，他都會預設你選擇了是，然後繼續執行下去。感覺這一點很不人性化，所
以繼續挖掘了一下，發現是這樣設計的：
dim msg
msg = msgbox("是否確定要退出", vbyesno + vbexclamation, "提示")
if msg = vbyes then
....
else
....
endif
這樣的話就可以了，具體就不在解釋了。
2.datediff函式的使用
datediff(interval, date1, date2
[, firstdayofweek[, firstweekofyear]])
示例：`onlinetime = datediff("n",mrd.fields(9),now)`，
這是我在機房中用到的。
日數，ww周，h時，n分鐘，s秒。而我的例子，求得就是now和mrd.fields(9)之間相差的分鐘數，簡潔了很多。 （感謝曉潔的幫助！）
3.獲得當前計算機的名
vba.environ("computername")相信大家還記得當初的on error goto myerror。這其中也是用到了goto語句。其無條件地轉移到過程中指定的行goto line。但太多的 goto 語句，會使程式**不容易閱讀及除錯。所有我們還是盡可能使用結構化控制語句(do...loop、for...next、if...then...else、select case）
5.for…next 語句 和select case語句 的使用
相信這些大家也很熟悉，不知道大家有沒有很好的利用到。我對他的第一次應用是在組合查詢時候，新增資料的時候憋出來的一點想法，當時不太會就查了一下。在這分享一下。
for b = 0to2
select
case thename
with combo2(b) case
"卡號"
.additem "=" tname = "cardno"
.additem "<"
case
"姓名"
.additem ">" tname = "studentname"
.additem "<>"
case
"上機"日期
endwith tname = "ondate"
next b end
select
具體的用法也就不再過對贅述了。相信這些運用好了可以節省好多力氣。val(string)，必要的 string 引數可以是任何有效的字串表示式.。這是我在對比充值金額是否大於設定最小值的時候設定的。if val(trim(txtcash.text)) < trim(mrd.fields(5)) then。 這樣的話就可以正常執行了。
7.textbox中的換行。
其中在我們運用text控制項的時候，有時候需要其中的內容分行顯示，這裡我可以用於asccii碼中的 13 cr (carriage return) 回車鍵。除此之外還可以運用vbnewline，來進行換行。（示例："充值卡號:" & vbnewline & "上次卡內餘額」 ）用法和asccii用法類似。但不管用哪一種方法，有一點需要注意的就是，將該text控制項中mulitiline屬性設為true。給予它這個許可權，否則不論我們怎麼設定都是無用功。
機房收費系統總結
歷時兩個多月，機房收費系統終於完成了，師傅驗收還算滿意，當然也還存在一些問題，好好總結一下吧，好歹也是兩個多月的努力。從一般使用者開始，檢視餘額和修改密碼比較簡單，在學生檢視充值記錄和上機記錄檢視中涉及到了匯出excel，這裡在模組定義乙個公共過程就可以了。public sub toexcel fl...
機房收費系統總結
再敲之前 是有說過要好好的先研究一下機房收費系統的原理，以及其中各步驟的相關邏輯關係。當然向很多時候一樣我沒有好好的去理解當時 說的話，很隨意的將每一項功能都點了一下就著手幹了。沒過多久的 開了一次會，問我怎麼做的。是不是三種許可權都試了 一般使用者 操作員 管理員 說實話當時我都沒有想到不同的許可...
機房收費系統總結
經過二十天的艱苦奮鬥我的機房收費系統最終敲完了，在回家之前又讓師傅驗收了一邊最終通過，自己當時感覺那叫乙個興奮呀，最終能夠高高興興回家了，太好了。當時興奮過頭導致沒有寫總結，以致回到家後才寫總結。我在做機房收費系統時。感覺最讓人頭疼的就是結賬 算錢，儘管自己是個理科生。但是這算賬真不敢恭維，那真叫個...