機房收費之登陸窗體

總結是在機房結束以後寫的，總結的不及時之前的進度慢了，中間趕了一段時間沒有去及時總結部落格，隨時總結確實有很大的作用，不過只要寫了就不晚，結束之後讓我有了更深刻的了解，乙個簡單的登陸窗體其實也不能想的太過片面，我剛開始做的很多不完善的地方，在做的過程中也回頭不斷地完善。

首先我沒做乙個窗體應該先去思考它要實現的的功能這裡先拿登陸來說。

第一點就是主要的登陸功能保證賬號密碼的輸入正確

首先限制字元

select case keyascii
case 8
'無變化,退格鍵不遮蔽
case asc("a") to asc("z")
case asc("0") to asc("9")
case is < 0
case else ' 除了以上的 都遮蔽
keyascii = 0

end select

然後判斷賬號密碼是否為空不為空就查詢資料庫 '判斷輸入使用者是否為空、 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)

第二點要在onwork和 worklog表新增記錄

txtsql = "select * from user_i

『把資訊寫入onwork表

txtsql = 「select * from onwork_info where userid =』」 & txtusername.text & 「』」

set mrc1 = executesql(txtsql, msgtext)

mrc1.addnew

mrc1.fields(0) = trim(txtusername.text)

mrc1.fields(1) = trim(mrc.fields(2))

mrc1.fields(2) = date

mrc1.fields(3) = time

mrc1.fields(4) = vba.environ(「computername」)

mrc1.update

mrc.close

『把資訊寫入worklog表

txtsql = 「select * from worklog_info 」

set mrc2 = executesql(txtsql, msgtext)

mrc2.addnew
mrc2.fields(1) = trim(txtusername.text)
mrc2.fields(2) = trim(mrc1.fields(1))
mrc2.fields(3) = trim(mrc1.fields(2))
mrc2.fields(4) = trim(mrc1.fields(3))
mrc2.fields(7) = vba.environ("computername")
mrc2.fields(8) = "true"
mrc2.update
mrc2.close
mrc1.close

第三點要確定許可權根據許可權開放功能『選擇操作員就隱藏管理員

if trim(userlevel) = 「操作員」 then

mdifrmmain.操作員.enabled = true

mdifrmmain.一般使用者.enabled = true

mdifrmmain.管理員.enabled = false

mdifrmmain.管理員.visible = false

end if

『選擇一般使用者，就隱藏管理員和操作員

if trim(userlevel) = 「一般使用者」 then

mdifrmmain.一般使用者.enabled = true

mdifrmmain.管理員.enabled = false

mdifrmmain.管理員.visible = false

mdifrmmain.操作員.enabled = false

mdifrmmain.操作員visible = false

end if

機房收費之登陸窗體

機房收費系統登陸窗體部分

機房收費系統登陸問題

第一次機房收費系統之登陸窗體

機房收費之登陸窗體

機房收費系統 登陸窗體部分

機房收費系統登陸問題

第一次機房收費系統之登陸窗體

相關推薦

機房收費系統登陸窗體部分