機房收費總結

首先，登入窗體：

一、一般情況下，為了拉下或收起組合框的下拉列表，需要用鍵盤或滑鼠進行操作，而有時我們希望程式執行的某個時刻

自動拉出下拉列表

（比如在登入窗體自動彈出所有使用者）

其實學生的時候師傅就要去這樣設定，但是感覺很難就沒有做，現在師傅又一次提了出來，想想如果能自動彈出列表確實也挺不錯的，所以查了一下資料，結果……也不是很難，主要用到

sendmessage函式

const常量函式

showdropdown函式把下拉條彈出

二、還有就是如果該

使用者不能重複登入

問題，這個**實現很簡單，重要的是有沒有想到，漸漸明了了敲機房的目的

private

subtxtname_change
()dim
mrca 
asadodb
.recordset
'判斷登入使用者是否已經登入
dim txtsql as string
dim msgtext as string
txtsql = "select * from onwork_info"
set mrca = executesql(txtsql, msgtext)
if trim(txtname.text) = trim(mrca.fields(0)) then
msgbox "此使用者已經登入，請重新輸入", vbcritical
txtname.text = ""
exit sub
end if
end sub

選單的設計、命名一定要合理，要不然會花費很長的時間找選單於窗體的聯絡，勞神費時、事半功倍

二、 上下機

student上機

1、檢查卡號是否存在，是否在上機，金額是否不足，滿足條件後可以上機，但是為了避免student負資產

優化：

滾動的「歡迎」字母；o(∩_∩)o~特別簡單小優化

2、下機：分為正常下機和強制下機

①正常下機：可能同時有好幾個student在上機，所以選擇下機的時候需要將相應的資訊反饋到窗體上，計算上機花費，將資料傳入到資料庫相應表中，處理相應的資料庫表

②強制下機，發生在系統退出，或者操作員、管理員因為某些原因強制使用者下機

系統退出時如果還有學生在上機，彈出提示框，提醒是否強制下機，是的話、清空上下機窗體資訊、相應的資料庫表中資訊，計算花費、餘額並將值傳入資料庫（金額涉及的表比較多，要仔細操            作）

同時別忘了新增worklog值班日誌

一篇網易部落格

機房收費總結

歷時乙個多月的機房終於結束了，中間夾雜著各種心情，有時候做不出來想過放棄，比如說組合查詢中想選擇欄位的時候用dtpicker控制項直接顯示時間，這樣就不用去輸入時間了，節省了好多時間，也可以提高效率，還有你選擇了組合關係才能進行下一步選擇，否則不行等等。可是做這塊的時候花費了好多時間，效果卻不盡人意...

機房收費系統總結

歷時兩個多月，機房收費系統終於完成了，師傅驗收還算滿意，當然也還存在一些問題，好好總結一下吧，好歹也是兩個多月的努力。從一般使用者開始，檢視餘額和修改密碼比較簡單，在學生檢視充值記錄和上機記錄檢視中涉及到了匯出excel，這裡在模組定義乙個公共過程就可以了。public sub toexcel fl...

機房收費系統總結

再敲之前 是有說過要好好的先研究一下機房收費系統的原理，以及其中各步驟的相關邏輯關係。當然向很多時候一樣我沒有好好的去理解當時 說的話，很隨意的將每一項功能都點了一下就著手幹了。沒過多久的 開了一次會，問我怎麼做的。是不是三種許可權都試了 一般使用者 操作員 管理員 說實話當時我都沒有想到不同的許可...