』在submain窗體中定義全域性變數strusername
public strusername as string
'在frmmain窗體載入時進行許可權設定
private sub form_load()
dim strsql as string
dim strmsg as string
dim strlevel as string
dim rstmrc as adodb.recordset
'判斷使用者登入級別
strsql = "select * from user_info where username='" & strusername & "'"
set rstmrc = executesql(strsql, strmsg)
'獲得當前使用者名稱的使用者級別
strlevel = rstmrc!level
'對獲得的級別進行許可權設定
select case trim(strlevel)
case "管理員"
case "操作員"
'管理員許可權不可用
mnuadmin.enabled = false
case "一般使用者"
'管理員和操作員許可權不可用
mnuadmin.enabled = false
mnuoperator.enabled = false
end select
end sub
機房收費系統之使用者登入
機房敲了乙個半月了，之前總是一直修改，需要好好的總結一下，首先是登陸窗體。登陸窗體 問題及重點 1.問題1實時錯誤 3704 物件關閉時，不允許操作 出現這個問題是因為前面寫了 mrc.close導致後面mrc1呼叫mrc資料集裡面的內容時無法呼叫。trim函式用來刪除乙個字串的字頭或字尾，刪除字串...
機房收費系統之結尾
機房收費系統在這個冬月告乙個不完美的結局，剛開始接觸他的時候，各種糾結，各種逃避，各種不想做，接觸乙個新的事物，內心充滿了恐懼與排斥，機房收費系統與學生管理系統不一樣，沒有原始碼，這個時候，需要自己不斷的給予自己鼓勵，七 期的師哥師姐都做出來了，你完全有理由相信，自己也能做出來。機房收費系統來來回回...
機房收費系統之思路
機房收費系統的資料放在手裡已經有好一段時間了，卻遲遲沒有開始動工。不知道是對它產生的牴觸心理，還是自己本身就好懶。總是放著不肯前進。但是這幾天看到同學們的進度都好快，有的甚至都已經結束了。不能再偷懶了，話說進度不用太趕，但是自己心裡還是很著急的。畢竟大家的起跑點都是一樣的，怎麼能夠在半路落在別人身後...