【机房】学生查看上机记录

机房中一般用户可以查看学生上机记录

窗体界面：

点击清空按钮，清除所有内容

'点击清空数据
Private Sub Command1_Click()
    txtCardNo.Text = ""
    MSHFlexGrid1.ClearStructure
End Sub

点击查询的时候，需要先判断卡号是否为空，连接数据表查看卡号是否存在。
如果卡号存在，那么读取数据表的最后一条记录，将数据调出到MSHFlexGrid表格中。

Private Sub cmdInquiry_Click()

    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    
     MSHFlexGrid1.Rows = 2
     
    If txtCardNo.Text = "" Then
        MsgBox "请先输入卡号", 64, "温馨提示"
        txtCardNo.SetFocus
        Exit Sub
    End If
    
    '连接Line表
    txtSQL = "select * from Line_Info where cardno='" & Trim(txtCardNo.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    If mrc.EOF = True Then
    
        MsgBox "卡号不存在", 64, "温馨提示"
        txtCardNo.Text = ""
        txtCardNo.SetFocus
        Exit Sub
        
    Else

         '判断是否移动到数据集对象的最后一条记录
        Do While Not mrc.EOF
        
            With MSHFlexGrid1
                .Rows = .Rows + 1
                .CellAlignment = 4
                .TextMatrix(.Rows - 1, 0) = mrc.Fields(1)  '卡号
                .TextMatrix(.Rows - 1, 1) = mrc.Fields(3) '姓名
                .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(6)) '上机日期
                .TextMatrix(.Rows - 1, 3) = mrc.Fields(7) '上机时间
                .TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(8)) '下机日期
                .TextMatrix(.Rows - 1, 5) = mrc.Fields(9) '下机时间
                .TextMatrix(.Rows - 1, 6) = mrc.Fields(11) '消费金额
                .TextMatrix(.Rows - 1, 7) = mrc.Fields(12) '余额
                .TextMatrix(.Rows - 1, 8) = mrc.Fields(13) '备注
            
            '移动到下一条记录
            mrc.MoveNext
            
           End With
        Loop
        mrc.Close
    End If
    
     '添加列名
    With MSHFlexGrid1

        .CellAlignment = 4
        .TextMatrix(0, 0) = "卡号"
        .TextMatrix(0, 1) = "姓名"
        .TextMatrix(0, 2) = "上机日期"
        .TextMatrix(0, 3) = "上机时间"
        .TextMatrix(0, 4) = "上机日期"
        .TextMatrix(0, 5) = "下机日期"
        .TextMatrix(0, 6) = "消费金额"
        .TextMatrix(0, 7) = "余额"
        .TextMatrix(0, 8) = "备注"

    End With
End Sub

数据导出到Excel表格中，我上一篇博客已经说过了，点击查看：导出Excel表格

欢迎斧正~