【新增】

機房的新增刪除使用者窗體新增功能很好理解，點選新增跳轉到另外一個窗體

之後通過這個窗體進行新增理解這個功能就不難理解了！

【刪除-顯示要刪除的內容】

讓我真正費解的是刪除功能，看專案給的功能實現是下拉一個使用者出現相對應的使用者名稱、身份和姓名！以為是要在點選不同使用者級別上做文章，以前沒這麼寫過啊！讓我費解半天！最後通過巨人的肩膀讓我知道了沒有我想象得那麼複雜！

這個選擇功能出現相對應的使用者名稱、身份和姓名主要是通過點選控制元件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