机房收费系统（六）

在机房收费系统中，添加和删除用户所用到的知识点是以往的窗体所遇不到的。整个窗体的界面设计如下：

在点击用户级别的COMBO控件后，会在下面的表格中显示对应的数据，所有整个事件的代码应该发生在点击COMBO控件后。代码如下：

Private Sub comboLevel_click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    Dim sMeg As String
        '查询所有满足条件的内容
        txtSQL = "select * from User_Info where Level= '" & comboLevel.Text & "'"
        '执行查询语句
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        With MSHFlexGrid1
        Do While Not mrc.EOF
              .Rows = .Rows + 1
              .CellAlignment = 4
              
              .TextMatrix(.Rows - 1, 0) = mrc.Fields(0)
              
              .TextMatrix(.Rows - 1, 1) = mrc.Fields(3)
             
              .TextMatrix(.Rows - 1, 2) = mrc.Fields(4)
              
            '移动到下一条记录
            mrc.MoveNext
            Loop
            End With
        If mrc.BOF = True Then
               MsgBox "没有记录！", vbOKOnly, "警告"
        Else
        End If
End Sub

代码一开始开始定义了一些变量和数据记录集，然后用SQL语句从数据库的User_Info表中查询对应的信息，然后把对应的信息导入到MSHFlexFrid控件中去，如何查询不到记录机会弹出提醒的框，显示没有记录。

在窗体右边有四个按钮，点击添加按钮就会出现添加用户的界面，很标准的数据库的添加记录的功能。

删除按钮对应的操作就要比添加更家简单一些，但是需要一串能够点击选取一行的代码。