機房收費系統 許可權和復用過程

在做的過程中，我偶爾才發現，不同的使用者級別還有不同的許可權。

一、寫怎麼限制級別不同的使用者的許可權

見如下**：

private sub picture1_gotfocus()

'判斷是一般使用者等的級別來顯示功能區的**
txtsql = "select * from user_info where userid='" & username & "'"
set mrc = executesql(txtsql, msgtext)
if trim(mrc.fields(2)) = "操作員" then '如果級別是操作員，那麼
ad.enabled = false 'ad是選單欄的管理員那一項
elseif trim(mrc.fields(2)) = "一般使用者" then
ad.enabled = false
op.enabled = false 'op是選單欄中操作員的那一項
end if
mrc.close
end sub

寫好這些**後，就成了下面的結果：

在這個過程中，我體會到了自己想辦法解決問題的成就感，只要有了思路，從網上查資料，不同的答案中提出自己需要的答案，一步步的去試試，總會成功的！

二、過程的復用

如果乙個過程需要用好幾次，在不同的地方用到，那麼就可以自己定以乙個過程，比如如下**：

private sub viewdate()

txtsql = "select * from line_info where "
if combo3.text = "卡號" then
'判斷操作符和查詢的內容是否為空
if trim(combo6.text) = "" then
msgbox "請輸入操作符！", vbokonly + vbexclamation
combo6.setfocus
exit sub
elseif trim(text3.text) = "" then
msgbox "請輸入要查詢的內容！", vbokonly + vbexclamation
text3.setfocus
exit sub

end sub

call viewdate

這樣就提高了**的復用率，效率也就提高了！

機房收費系統重構之儲存過程

是在大型 資料庫系統 中，一組為了完成特定功能的sql 語句集，儲存在資料庫中，經過第一次編譯後再次呼叫不需要再次編譯，使用者通過指定儲存過程的名字並給出引數 如果該儲存過程帶有引數 來執行它。類似於c語言中的函式 用來執行管理任務或應用複雜的業務規則 可以帶引數，也可以返回結果 可以包含資料操作語...

機房收費系統 新增和刪除使用者

新增和刪除使用者 這個窗體看起來並不難，但是還是要注意一些細節的。昨天被小夥伴安利了乙個做流程圖的網頁，在敲 之前畫一畫流程圖確實可以讓自己的邏輯更加清晰 實時錯誤 91 物件變數或with塊變數未設定 想必這個錯誤大家再熟悉不過了，但是這次一開始我真的不知道錯在哪兒，後來通過師哥的部落格發現 原來...

機房收費系統重構之儲存過程的使用

從一開始對於機房收費系統的無從下手，到現在已經接近尾聲，像冬天的迷霧一樣，隨著時間散開了去，對於其也是越來越清晰，想一想，這種學習的過程還真是美妙。當然只學習不去總結是沒有意義的。今天我就來把儲存過程的使用總結一下。拿使用者註冊來說，就是往資料庫裡新增使用者，以方便更多的使用者使用。那麼使用者註冊我...