每次開始敲**後都有一種越敲越想敲的感覺，機房收費系統開始後也一樣， 一開始就敲了幾個窗體，從裡面不光學到了很多新的知識，還回顧了很多以前的東西，以下是註冊窗體裡面我又一次學習到的東西。
1、連線資料庫
可以通過這幾行** 查詢、更新、修改、刪除資料庫裡的資料。
dim txtsql as string
'這種情況說明這個窗體要和資料庫進行連線，查詢，更新等
txtsql = "select * from student_info where cardno='" & trim(txtcardno.text) & "'"
set mrc = executesql(txtsql, msgtext)
2、註冊使用者名稱
新註冊的使用者名稱要和資料庫裡的資料進行比較，如果有相同的資料，則註冊不成功。
'判斷是否有重複的卡號和學號
while mrc.eof = false
if trim(mrc.fields(0)) = trim(txtcardid.text) then
msgbox "此卡號已存在，請重新輸入！", vbokonly + vbexclamation, "警告"
txtcardid.text = ""
txtcardid.setfocus
mrc.close
exit sub
else
if trim(mrc.fields(1)) = trim(txtstid.text) then
msgbox "此學號已存在，請重新輸入！", vbokonly + vbexclamation, "警告"
txtstid.text = ""
txtstid.setfocus
mrc.close
exit sub
else
mrc.movenext
end if
end if
wend
3、判斷是否為數字
當需要輸入數字的時候，會需要進行判斷輸入資料是否為數字，如果不為數字，則彈窗提醒，文字框清空，重新獲得焦點。
'判斷輸入資料是否為數字
if not isnumeric(trim(text1.text)) then
msgbox "卡號必須是數字，請輸入數字", vbokonly + vbexclamation, "警告"
text1.text = ""
text1.setfocus
end if
'記錄輸入次數，超過三次自動關閉窗體
dim micount as integer
micount = micount + 1
if micount = 3 then
'me.hide
unload me
end if
對於vb和資料庫的學習我的認識不是很深，需要投入更多的精力和時間去了解他們，繼續加油！
機房收費系統之註冊
感覺好多人在註冊這裡出現了問題，下面是我對註冊的理解。註冊中需要注意到的有，要註冊 首先，它的資訊不能有空著的，然後，這裡的金額需要注意，不要低於最小設定的金額，其次，存檔中需要注意要和資料庫中資訊對應一致。下面是我的 僅供參考。存檔if not testtxt txtcardno.text the...
機房收費系統「物件庫未註冊」
下午 在開啟之前的學生管理系統的時候出現了這樣乙個問題 一點點小心煩還是有的，不過 發現問題，解決問題 物件庫未註冊 聽起來很是熟悉，於是就想到了 部件 那邊 經過查閱 總結一下解決這個問題的方法 1 在 vb 環境下直接註冊 2 利用 regsvr32 工具註冊 利用 win r開啟執行視窗，在其...
機房收費總結
首先，登入窗體 一 一般情況下，為了拉下或收起組合框的下拉列表，需要用鍵盤或滑鼠進行操作，而有時我們希望程式執行的某個時刻 自動拉出下拉列表 比如在登入窗體自動彈出所有使用者 其實學生的時候師傅就要去這樣設定，但是感覺很難就沒有做，現在師傅又一次提了出來，想想如果能自動彈出列表確實也挺不錯的，所以查...