【机房收费系统】机房收费系统之删除用户

在机房收费系统中有一个删除用户窗体，我们要实现单击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>