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

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

窗体界面：

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

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

  

 

  
1
  
2
  
3
  
4
  
5
 

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

  

 

  
 
 

  
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
  
32
  
33
  
34
  
35
  
36
  
37
  
38
  
39
  
40
  
41
  
42
  
43
  
44
  
45
  
46
  
47
  
48
  
49
  
50
  
51
  
52
  
53
  
54
  
55
  
56
  
57
  
58
  
59
  
60
  
61
  
62
  
63
  
64
  
65
  
66
  
67
 

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

欢迎斧正~

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

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