机房收费系统--添加删除用户

【添加】

机房的添加删除用户窗体添加功能很好理解，点击添加跳转到另外一个窗体

之后通过这个窗体进行添加理解这个功能就不难理解了！

【删除-显示要删除的内容】

让我真正费解的是删除功能，看项目给的功能实现是下拉一个用户出现相对应的用户名、身份和姓名！以为是要在点击不同用户级别上做文章，以前没这么写过啊！让我费解半天！最后通过巨人的肩膀让我知道了没有我想象得那么复杂！

这个选择功能出现相对应的用户名、身份和姓名主要是通过点击控件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