感覺好多人在註冊這裡出現了問題，下面是我對註冊的理解。
註冊中需要注意到的有，要註冊 ，首先，它的資訊不能有空著的，然後，這裡的金額需要注意，不要低於最小設定的金額，其次，存檔中需要注意要和資料庫中資訊對應一致。
下面是我的**，僅供參考。
'存檔if not testtxt(txtcardno.text) then
msgbox "卡號不能為空", vbokonly + vbexclamation, "警告"
txtcardno.setfocus
exit sub
end if
if not testtxt(lblsid.text) then
msgbox "學號不能為空", vbokonly + vbexclamation, "警告"
lblsid.setfocus
exit sub
end if
if not testtxt(lblname.text) then
msgbox "姓名不能為空", vbokonly + vbexclamation, "警告"
lblname.setfocus
exit sub
end if
if not testtxt(lblgrade.text) then
msgbox "年級不能為空", vbokonly + vbexclamation, "警告"
lblgrade.setfocus
exit sub
end if
if not testtxt(txtexplain.text) then
msgbox "注釋不能為空", vbokonly + vbexclamation, "警告"
txtexplain.setfocus
exit sub
end if
if not testtxt(lbldept.text) then
msgbox "系別不能為空", vbokonly + vbexclamation, "警告"
lbldept.setfocus
exit sub
end if
if not testtxt(lblclass.text) then
msgbox "班級不能為空", vbokonly + vbexclamation, "警告"
lblclass.setfocus
exit sub
end if
if not testtxt(txtcash.text) then
msgbox "金額不能為空", vbokonly + vbexclamation, "警告"
txtcash.setfocus
exit sub
end if
if not testtxt(lbl***.text) then
msgbox "請選擇性別", vbokonly + vbexclamation, "警告"
lbl***.setfocus
exit sub
end if
if not testtxt(lblstate.text) then
msgbox "請選擇狀態", vbokonly + vbexclamation, "警告"
lblstate.setfocus
exit sub
end if
if not testtxt(lbltype.text) then
msgbox "請選擇型別", vbokonly + vbexclamation, "警告"
lbltype.setfocus
exit sub
end if
if txtrecharge.text > txtcash.text then
msgbox "金額不能低於設定的金額", vbokonly + vbexclamation, "提示"
txtcash.text = txtrecharge.text
exit sub
end if
'判斷是否有重覆記錄
txtsql = "select * from student_info where studentno ='" & trim(txtcardno.text) & "'"
set mrc = executesql(txtsql, msgtext)
if mrc.eof = false then
msgbox "卡號重複，請重新輸入", vbokonly + vbexclamation, "提示"
txtcardno.text = ""
txtcardno.setfocus
exit sub
end if
mrc.addnew
mrc.fields(0) = trim(txtcardno.text)
mrc.fields(7) = trim(txtrecharge.text)
mrc.fields(1) = trim(lblsid.text)
mrc.fields(2) = trim(lblname.text)
mrc.fields(5) = trim(lblgrade.text)
mrc.fields(8) = trim(txtexplain.text)
mrc.fields(4) = trim(lbldept.text)
mrc.fields(6) = trim(lblclass.text)
mrc.fields(3) = trim(lbl***.text)
mrc.fields(10) = trim(lblstate.text)
mrc.fields(14) = trim(lbltype.text)
mrc.fields(9) = "11"
mrc.fields(11) = "未結賬"
mrc.fields(12) = date
mrc.fields(13) = time
mrc.update
msgbox "註冊成功！", vbokonly + vbexclamation, "提示"
機房收費註冊窗
每次開始敲 後都有一種越敲越想敲的感覺，機房收費系統開始後也一樣，一開始就敲了幾個窗體，從裡面不光學到了很多新的知識，還回顧了很多以前的東西，以下是註冊窗體裡面我又一次學習到的東西。1 連線資料庫 可以通過這幾行 查詢 更新 修改 刪除資料庫裡的資料。dim txtsql as string 這種情...
機房收費系統「物件庫未註冊」
下午 在開啟之前的學生管理系統的時候出現了這樣乙個問題 一點點小心煩還是有的，不過 發現問題，解決問題 物件庫未註冊 聽起來很是熟悉，於是就想到了 部件 那邊 經過查閱 總結一下解決這個問題的方法 1 在 vb 環境下直接註冊 2 利用 regsvr32 工具註冊 利用 win r開啟執行視窗，在其...
機房收費系統之結尾
機房收費系統在這個冬月告乙個不完美的結局，剛開始接觸他的時候，各種糾結，各種逃避，各種不想做，接觸乙個新的事物，內心充滿了恐懼與排斥，機房收費系統與學生管理系統不一樣，沒有原始碼，這個時候，需要自己不斷的給予自己鼓勵，七 期的師哥師姐都做出來了，你完全有理由相信，自己也能做出來。機房收費系統來來回回...