機房收費系統之登入窗體

private sub cmdok_click()

dim txtsql as string
dim txtsql1 as string
dim mrc as adodb.recordset
dim mrc1 as adodb.recordset
dim msgtext as string
dim frmlogin as integer
username = ""
'判斷是否輸入
if trim(txtusername.text = "") then
msgbox "沒有這個使用者，請重新輸入使用者名稱!", vbokonly + vbexclamation, "警告"
txtusername.setfocus
else
'判斷賬戶密碼是否正確
txtsql = "select * from user_info where userid = '" & txtusername.text & "'"
set mrc = executesql(txtsql, msgtext)
if mrc.eof = true then
msgbox "沒有這個使用者，請重新輸入使用者名稱！", vbokonly + vbexclamation, "警告"
txtusername.setfocus
else
if trim(mrc.fields(1)) = trim(txtpassword.text) then
ok = true
mrc.close
me.hide
frmmain.show
frmmain.label19.caption = format(now, "hh:mm:ss")
txtsql1 = "select * from online_info"
set mrc1 = executesql(txtsql1, msgtext)
frmmain.label16.caption = "當前上機人數:" & mrc1.recordcount
username = trim(txtusername.text)
else
msgbox "密碼不正確，請重新輸入,還剩餘" & (2 - a) & "次機會 ！", 0 + 48, "提示"
txtpassword.text = ""
txtpassword.setfocus
frmlogin = false
end if
end if
'判斷密碼的輸入次數
if frmlogin = false then
a = a + 1
if a > 2 then
msgbox "登陸次數過多，將退出程式！", 0 + 48, "提示"
end if
end if
end if
end sub

機房收費系統之登入窗體（登入級別的設定）

if mrc.fields 2 一般使用者 then 判斷使用者級別 frmmain.admin.enabled false 凍結相應的選單欄 frmmain.operator.enabled false end if if mrc.fields 2 操作員 then frmmain.admin.e...

VB機房收費系統03 登入窗體

敲登入的時候很有意思，因為我發現了一段沒用的 首先要注意命名規範，當我們自行敲寫時，自己命名 的時候就到了。在命名上，不要給文字框起text1等，不要讓窗體名稱出現中文，因為中文不是國籍標碼方式，當然更不要出現拼音。本行 的大意是，使用在語句中使用清除空格並呼叫資料表中第二列的資訊是否等於資料表記錄...

機房收費系統之充值窗體

感覺充值窗體比較簡單，整體上就是乙個資料庫寫入資料的操作，通過幾個判斷就可以把資料寫入資料庫了。一 邏輯圖 二 部分 1.如何判斷框內資料和資料庫資料大小 if val txtaddmoney.text mrc.fields 5 then txtaddmoney.setfocus txtaddmon...