vb版機房 新增和刪除使用者

2021-07-04 15:35:03 字數 986 閱讀 6909

在新增和刪除使用者窗體中有一些邏輯問題如果沒有注意就會造成錯誤。下面將對這些錯誤進行總結,羅列。

通過下面的流程圖進行思路整理。

如果把資料庫全清之後,以後系統該如何進入呢?所以在刪除使用者的時候就要進行限制。

if myflexgrid.row = 0 then    '不能刪除第一行文字

msgbox "這一行不能刪除!", vbokonly + vbexclamation, "警告"

exit sub

end if

'判斷要刪除的是不是正在登陸的視窗

if myflexgrid.textmatrix(myflexgrid.rowsel, 0) = trim(username) then

msgbox "正在登陸的使用者不能刪除!", vbokonly + vbexclamation, "警告"

else

txtsql = "select * from user_info where userid= '" & trim(myflexgrid.textmatrix(myflexgrid.row, 0)) & "'"

set mrc = executesql(txtsql, msgtext)

'移除要刪除的專案

myflexgrid.removeitem myflexgrid.row

mrc.delete

mrc.update

mrc.close

end if

新增使用者一般是因為**這一類使用者,缺少才會新增。所以新增使用者的使用者型別為自己**的值。

新增使用者的使用者型別combo視窗中設定為型別3即不能手動輸入,這樣造成了乙個問題,不能進行清空。我的解決方法為在窗體的load事件中對上面控制項新增空專案。清空的時候對控制項的tablist屬性設定為0.就不會有不能清空的問題。

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

功能 新增刪除各種使用者 包括 管理員,操作員,一般使用者 新增按鈕的邏輯 1.判斷是否將所有資訊正確填寫完畢 2.判斷是否這個使用者已存在,需要呼叫user info查詢是否有匹配項,存在則提醒,不存在就注入sql.刪除按鈕的邏輯 刪除使用者就是顯示出此型別使用者,選中要刪除的使用者。有三點注意的...

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

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

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

新增刪除使用者這個視窗看起來並不是太難,但是還是有一些細節需要注意的。首先,要設定myflexgrid控制項的屬性,因為我們刪除使用者時要求選中一整條記錄,而不是單個乙個,這就要用到下面的 myflexgrid.selectionmode flexselectionbyrow 單擊的時候選擇的是整行...