【机房】正在值班教师

机房收费系统中，管理员可以查看正在值班教师

窗体界面：

窗体一加载就可以看到MSHFlexGrid的表头

'加载列名
    With MSHFlexGrid1
            
            .CellAlignment = 4
            .TextMatrix(1, 0) = "记录号"
            .TextMatrix(1, 1) = "操作人员"
            .TextMatrix(1, 2) = "级别"
            .TextMatrix(1, 3) = "登录日期"
            .TextMatrix(1, 4) = "登录时间"
            .TextMatrix(1, 5) = "机器名"
            
    End With
    

查询的时候需要连接到数据库。

需要注意的是，这次查询出来的结果是不允许有空值的，所以我们要首先保证数据库中的数据是没有空值的，不然会报错哟

Private Sub cmdInquiry_Click()
    
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As Recordset
   
    MSHFlexGrid1.Rows = 2
    
    '连接数据库
    txtSQL = "select * from worklog_info where level='" & Trim(ComboSelect.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    'Do...Loop循环，向单元格写数据
    Do While Not mrc.EOF
        
        With MSHFlexGrid1
                
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = mrc.Fields(0)   '记录号
            .TextMatrix(.Rows - 1, 1) = mrc.Fields(1)   '教师
            .TextMatrix(.Rows - 1, 2) = mrc.Fields(2)   '级别
            .TextMatrix(.Rows - 1, 3) = mrc.Fields(3)   '登录日期
            .TextMatrix(.Rows - 1, 4) = mrc.Fields(4)   '登录时间
            .TextMatrix(.Rows - 1, 5) = mrc.Fields(7)   '机器名
            
            mrc.MoveNext
        End With
    Loop  
    mrc.Close    
End Sub

感谢阅读，欢迎斧正~