机房收费系统之正在值班教师

这个总体来说就非常的简单，把OnWork 表里的数据展示出来，就行了。

    With MSFlexGrid1
            .Rows = 2
            .CellAlignment = 4
            .TextMatrix(0, 0) = "教师"
            .TextMatrix(0, 1) = "级别"
            .TextMatrix(0, 2) = "登录日期"
            .TextMatrix(0, 3) = "登陆时间"
            .TextMatrix(0, 4) = "机器名"
    End With
    
    Dim txtSQL As String
    Dim msgtext As String
    Dim mrc As ADODB.Recordset
    
        txtSQL = "select * from OnWork_info"
        Set mrc = ExecuteSQL(txtSQL, msgtext)
        With MSFlexGrid1
            .Rows = 2
            .CellAlignment = 4
            .TextMatrix(1, 0) = Trim(mrc.Fields(0))
            .TextMatrix(1, 1) = Trim(mrc.Fields(1))
            .TextMatrix(1, 2) = Trim(mrc.Fields(2))
            .TextMatrix(1, 3) = Trim(mrc.Fields(3))
            .TextMatrix(1, 4) = Trim(mrc.Fields(4))
    End With
        mrc.Close