机房收费系统 ——删除用户

在机房中有一个和表格设置有关的窗体，那就是删除用户

##功能
删除用户的功能就是查找级别用户，比如我要删除一般用户里的** ，那我就先选择等级，在这个一般用户的表格里找到这个人，将其删除！

##具体代码

Private Sub Command1_Click()  '删除按钮的代码

   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)
    '删除选中行，对应数据库中的数据
    
   
   If myFlexGrid.row = 1 Then   '这是自己做的，就是当表格内容只有一行时，提示不能删除
        MsgBox "您需要保留一个用户!"
        Exit Sub
   Else
	   myFlexGrid.RemoveItem myFlexGrid.row
   End If
   '删除MSFlexGrid选中的行
    MsgBox "删除成功！"
   End If
 
End Sub

Private Sub Command2_Click()  ' 查看按钮的代码
     txtsql = "select * from user_info where level='" & Trim(Combo1.Text) & "'"
Set mrc = executeSQL(txtsql, msgtext)

With myFlexGrid  '添加表头
      .CellAlignment = 4
      .Rows = 1
      .TextMatrix(0, 0) = "用户名"
      .TextMatrix(0, 1) = "姓名"
      .TextMatrix(0, 2) = "开户人"
End With


Do While Not mrc.EOF   '将数据库中的内容给表格
   With myFlexGrid
      .Rows = .Rows + 1
      .CellAlignment = 4
      .TextMatrix(.Rows - 1, 0) = Trim(mrc!UserId)
      .TextMatrix(.Rows - 1, 1) = Trim(mrc!UserName)
      .TextMatrix(.Rows - 1, 2) = Trim(mrc!head)
   End With
   mrc.MoveNext
   Loop
End Sub

Private Sub Form_Load()
    '级别下拉菜单中添加项目
    Combo1.AddItem "请选择"
    Combo1.AddItem "一般用户"
    Combo1.AddItem "操作员"
    Combo1.AddItem "管理员"
    
     Combo1.Text = Combo1.List(0) '默认选择框第一行是“请选择”，用户体验
End Sub