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

if mrc.fields(2) = "一般使用者" then            '判斷使用者級別

frmmain.admin.enabled = false '凍結相應的選單欄
frmmain.operator.enabled = false
end if
if mrc.fields(2)= "操作員" then
frmmain.admin.enabled = false
end if

if trim(mrc.fields(2)) = "一般使用者" then      '判斷使用者級別

frmmain.admin.enabled = false '凍結相應的選單欄
frmmain.operator.enabled = false
end if
if trim(mrc.fields(2)) = "操作員" then
frmmain.admin.enabled = false
end if

public function testtxt(txt as string) as boolean

if trim(txt) = "" then
testtxt = false
else
testtxt = true
end if
end function

if mrc.eof then                                      '通過eof，bof來判斷是否有該使用者

txtuserid.text = "" '清空使用者名稱文字框內容
txtuserid.setfocus
else
if trim(mrc.fields(1)) = trim(txtpwd.text) then '如果輸入密碼與資料庫密碼相等
me.hide
......

if micount = 1 then

txtpwd.text = ""
txtpwd.setfocus
exit sub
end if
if micount = 2 then
txtpwd.text = ""
txtpwd.setfocus
exit sub
end if
if micount = 3 then
endend if

if trim(mrc.fields(2)) = "一般使用者" then      '判斷使用者級別

frmmain.admin.enabled = false '凍結相應的選單欄
frmmain.operator.enabled = false
end if
if trim(mrc.fields(2)) = "操作員" then
frmmain.admin.enabled = false
end if

機房收費系統之登入窗體

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等，不要讓窗體名稱出現中文，因為中文不是國籍標碼方式，當然更不要出現拼音。本行 的大意是，使用在語句中使用清除空格並呼叫資料表中第二列的資訊是否等於資料表記錄...

機房收費系統 登入 二

之前把登入窗體的的思路捋了一下，機房收費系統 登入 一 那會兒的思路還是不是很清晰，現在簡單的說一下，對於使用者的登入，級別對於使用系統中的功能有限制的作用 一般使用者 一級使用者，就是一般的操作使用者，可以用來上機和下機，對於個人賬戶的查詢等 操作員 二級使用者，可以管理一般使用者 管理員 使用者...