機房敲了乙個半月了，之前總是一直修改，需要好好的總結一下，首先是登陸窗體。
登陸窗體：
問題及重點**:
1.問題1實時錯誤』3704』 物件關閉時，不允許操作
出現這個問題是因為前面寫了**mrc.close導致後面mrc1呼叫mrc資料集裡面的內容時無法呼叫。
trim函式用來刪除乙個字串的字頭或字尾，刪除字串首尾的空白
end sub 和exit sub的區別：
end sub 是乙個過程的結束**（每乙個sub中必須對應乙個end sub）exit sub 是在過程內**執行時，可選擇性的退出過程執行（即不執行exit sub之後的**，相當於中途退出的意思)，這不是必須的。
所以**編寫的時候不要隨便亂加exit sub
private
sub cmdok_click()
dim txtsql as
string
dim txtsql1 as
string
dim txtsql2 as
string
dim mrc as adodb.recordset '連線user表
dim mrc1 as adodb.recordset '連線onwork表
dim mrc2 as adodb.recordset '連線worklog表
dim msgtext as
string
if trim(txtusername.text = "") then
msgbox "文字框不能輸入為空！", vbokonly, "提示"
txtusername.text = ""
txtpassword.text = ""
endif
if trim(txtpassword.text = "") then
msgbox "文字框不能輸入為空！", vbokonly, "提示"
txtusername.text = ""
txtpassword.text = ""
endif
txtsql = "select * from user_info where userid = '" & txtusername.text & "'"
set mrc = executesql(txtsql, msgtext)
if mrc.eof then
msgbox "沒有這個使用者，請重新輸入使用者名稱!", vbokonly, "提示"
txtusername = ""
txtpassword = ""
exit
subend
if txtsql = "select * from user_info where user_pwd = '" & txtpassword.text & "'and userid = '" & txtusername.text & "'"
set mrc = executesql(txtsql, msgtext)
if mrc.eof then
msgbox "密碼輸入不正確,請重新輸入密碼!", vbokonly, "提示"
txtusername = ""
txtpassword = ""
exit
subend
ifif trim(mrc.fields(1)) = trim(txtpassword.text) then
me.hide
else
msgbox "密碼不正確,請重新輸入密碼!", vbokonly, "提示"
endif
micount = micount + 1
'登陸限制
if micount > 3
then
msgbox "登陸超過次數限制!", vbokonly, "提示"
endif
'結束條件語句
txtsql1 = "select * from onwork_info "
set mrc1 = executesql(txtsql1, msgtext)
mrc1.addnew
mrc1.fields(0) = trim(txtusername.text)
mrc1.fields(1) = mrc.fields(2)
mrc1.fields(2) = date
mrc1.fields(3) = time
mrc1.update
mrc1.close
txtsql2 = "select * from worklog_info"
set mrc2 = executesql(txtsql2, msgtext)
mrc2.addnew
mrc2.fields(0) = trim(txtusername) 'trim函式用來刪除乙個字串的字頭或字尾，刪除字串首尾的空白
mrc2.fields(1) = mrc.fields(2)
mrc2.fields(2) = date
mrc2.fields(3) = time
mrc2.update
mrc2.close
msgbox "登陸成功!", vbokonly, "提示"
me.hide
frmmain.show
endsub
private
sub form_load()
txtusername.fontsize = txtusername.fontsize + 10
txtpassword.fontsize = txtpassword.fontsize + 10
me.width = screen.width * 0.4
me.height = screen.height * 0.5
left = 0
' 在水平方向上居中顯示。
top = 0
' 在垂直方向上居中顯示
endsub
機房收費系統 登入 二
之前把登入窗體的的思路捋了一下，機房收費系統 登入 一 那會兒的思路還是不是很清晰，現在簡單的說一下，對於使用者的登入，級別對於使用系統中的功能有限制的作用 一般使用者 一級使用者，就是一般的操作使用者，可以用來上機和下機，對於個人賬戶的查詢等 操作員 二級使用者，可以管理一般使用者 管理員 使用者...
機房收費系統之登入窗體
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 fr...
VB機房收費系統03 登入窗體
敲登入的時候很有意思，因為我發現了一段沒用的 首先要注意命名規範，當我們自行敲寫時，自己命名 的時候就到了。在命名上，不要給文字框起text1等，不要讓窗體名稱出現中文，因為中文不是國籍標碼方式，當然更不要出現拼音。本行 的大意是，使用在語句中使用清除空格並呼叫資料表中第二列的資訊是否等於資料表記錄...