【机房收费系统】——正在值班教师

  不知道为什么越到晚上工作效率越高，这个是不是程序员的通病呢~~

  这个窗体总的来说比较简单，没有什么表与表之间的联系~之前一直没有重视的电脑的用户名，今天看了一下还是挺简单的，不过我之前把那些东西从数据库里删除了，可能会有连锁反应，之前一直在这一块堵着现在有了解决的办法，就算报错也可以添加上去了！！！

Private Sub Form_Load()
    
    Dim mrc As ADODB.Recordset
    Dim Msgtext As String
    Dim txtsql As String

    txtsql = "select * from onwork_Info "
    Set mrc = ExecuteSQL(txtsql, Msgtext)

    '单击查询后先清空MSHFlexGrid中的内容
    MSshow.Clear
    With MSshow
        .Rows = 1
        .TextMatrix(0, 0) = "教师"
        .TextMatrix(0, 1) = "级别"
        .TextMatrix(0, 2) = "登陆日期"
        .TextMatrix(0, 3) = "登录时间"
        .TextMatrix(0, 4) = "用户名"
    End With

    With MSshow
            '判断是否移动到数据集对象的最后一条记录
            Do While mrc.EOF = False
                .Rows = .Rows + 1
                .CellAlignment = 4
                .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(0))
                .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(1))
                .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(2))
                .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(3))
                .TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(4))
                '移动到下一条记录
                mrc.MoveNext
            Loop
        mrc.Close
    End With
End Sub