【機房收費系統】機房收費系統之删除使用者

在機房收費系統中有一個删除使用者窗體，我們要實作單擊MSFlexGrid中的資料，點選删除。即可實作表和資料庫裡的資料同時删除。以下是詳細代碼，及注釋。

<span style="font-size:14px;">Private Sub cmdDelete_Click()  '删除使用者（保留正在登陸的使用者）                
Dim txtSQL, MsgText As String
Dim mrc As ADODB.Recordset
Dim mrcc As ADODB.Recordset    
    myflexgrid.SelectionMode = flexSelectionByRow      '單擊的時候選擇的是整行
    myflexgrid.FocusRect = flexFocusNone               '在目前單元的周圍畫一個焦點框
    myflexgrid.HighLight = flexHighlightWithFocus      '該值決定了所標明的單元是否突出顯示
    txtSQL = "select *from User_Info where userID='" & Trim(myflexgrid.TextMatrix(myflexgrid.Row, 0)) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If Trim(myflexgrid.TextMatrix(myflexgrid.Row, 0)) = Trim(UserName) Then
    x = MsgBox("該使用者正在登陸，不能删除！", vbOKCancel, "警告")
    Else
    txtSQL = "delete from User_Info where userID = '" & Trim(myflexgrid.TextMatrix(myflexgrid.Row, 0)) & "'"      
    Set mrcc = ExecuteSQL(txtSQL, MsgText)
    '删除選中行，對應資料庫中的資料
   myflexgrid.RemoveItem myflexgrid.Row
   '删除MSFlexGrid選中的行
MsgBox "删除成功！"
   End If
End Sub</span>