【机房】正在值班教师

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

窗体界面：

窗体一加载就可以看到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
    

  

 

  
1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
 

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

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

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

  

 

  
 
 

  
1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
25
  
26
  
27
  
28
  
29
  
30
  
31
 

感谢阅读，欢迎斧正~

文章来源: blog.csdn.net，作者：张艳伟_Laura，版权归原作者所有，如需转载，请联系作者。

原文链接：blog.csdn.net/Laura__zhang/article/details/107460287