機房收費系統之新增刪除使用者
阿新 • • 發佈:2019-01-01
【新增】
機房的新增刪除使用者窗體新增功能很好理解,點選新增跳轉到另外一個窗體
之後通過這個窗體進行新增理解這個功能就不難理解了!
【刪除-顯示要刪除的內容】
讓我真正費解的是刪除功能,看專案給的功能實現是下拉一個使用者出現相對應的使用者名稱、身份和姓名!以為是要在點選不同使用者級別上做文章,以前沒這麼寫過啊!讓我費解半天!最後通過巨人的肩膀讓我知道了沒有我想象得那麼複雜!
這個選擇功能出現相對應的使用者名稱、身份和姓名主要是通過點選控制元件Combo**來實現尋找資料庫!
程式碼展示:
Private Sub ComboLevel_Click() Dim txtSQL As String Dim MsgText As String Dim mrc As ADODB.Recordset txtSQL = "select * from User_Info where level='" & Trim(comboLevel.Text) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF Then MsgBox "沒有內容!", vbOKOnly, "提示" Else With MSHFlexGrid1 .Rows = 1 .TextMatrix(0, 0) = "使用者名稱" .TextMatrix(0, 1) = "身份" .TextMatrix(0, 2) = "姓名" Do While Not mrc.EOF .Rows = .Rows + 1 .CellAlignment = 4 .ColWidth(1) = 1000 .TextMatrix(.Rows - 1, 0) = mrc.Fields(0) .TextMatrix(.Rows - 1, 1) = mrc.Fields(2) .TextMatrix(.Rows - 1, 2) = mrc.Fields(3) mrc.MoveNext Loop End With mrc.Close End If End Sub
【刪除】
既然可以顯示出來了,下面就是選中並刪除,如何選中我在機房收費系統系列中說明了兩種方法!
刪除中要考慮到登陸的使用者是不可以刪除的,還有第一列的表頭也是不能刪除的,最近才學的自考資料庫系統,說上所說的主鍵就是它,不可以刪除表頭。
展示程式碼:
Private Sub cmdDelete_Click() Dim txtSQL As String Dim Msgtext As String Dim mrc As ADODB.Recordset With MSFlexGrid1 If .RowSel = 0 Then MsgBox "請選擇資料", vbOKOnly + vbExclamation, "提示" Exit Sub Else If .RowSel > 0 Then txtSQL = "delete from user_Info where userID='" & Trim(MSFlexGrid1.TextMatrix(.RowSel, 0)) & "'" Set mrc = ExecuteSQL(txtSQL, Msgtext) '判斷該使用者是否正在登入 If Trim(MSFlexGrid1.TextMatrix(.RowSel, 0)) = UserName Then MsgBox "該使用者正在登入,不能刪除", vbOKOnly + vbExclamation, "警告" Exit Sub Else a = MsgBox("確定要刪除該使用者嗎?", vbYesNo, "提示") If a = 6 Then .RemoveItem .RowSel Else Exit Sub End If End If End If End If End With End Sub