机房收费总结 学生上机状态查询

所有学生下机

 

Private Sub cmdallstudown_Click()
        
        txtsql = "delete from online_Info"
        Set mrc = executeSQL(txtsql, msgtext)
        '将查询内容显示在表格控件中
        With myFlexGrid
        .Rows = 2 '两行
        .CellAlignment = 4  '单元格内容居中,居中对齐
        .TextMatrix(0, 0) = "卡号"
        .TextMatrix(0, 1) = "学号"
        .TextMatrix(0, 2) = "姓名"
        .TextMatrix(0, 3) = "上机日期"
        .TextMatrix(0, 4) = "上机时间"
        .TextMatrix(0, 5) = "电脑号"
        End With
        


    MsgBox "所有同学已下机！"
    cmdallstudown.Enabled = False
End Sub

选中学生下线

 

 

Private Sub cmdchoosedown_Click()
   Dim msgtext As String
    myFlexGrid.SelectionMode = flexSelectionByRow     '单击的时候选择的是整行
    myFlexGrid.FocusRect = flexFocusNone               '在当前单元的周围画一个焦点框
    myFlexGrid.HighLight = flexHighlightWithFocus      '该值决定了所选定的单元是否突出显示


    With myFlexGrid
        
        If .RowSel = 0 Then  '选中行为第一行
            MsgBox "请选择数据!", vbOKOnly, "提示"
            Exit Sub
        End If
            If .RowSel >= 1 Then
            txtsql = "select * from OnLine_Info where cardno='" & Trim(.TextMatrix(.RowSel, 0)) & "'"
            Set mrc = executeSQL(txtsql, msgtext)
            If mrc.EOF = True Then
               MsgBox "无上线人数！"
               Exit Sub
            Else
            .RemoveItem .RowSel
            mrc.Delete
            
            End If
            End If
      
      End With
           mrc.Update
End Sub

查看全部

 

 

Private Sub cmdlookallstu_Click()

         myFlexGrid.SelectionMode = flexSelectionByRow     '单击的时候选择的是整行
    myFlexGrid.FocusRect = flexFocusNone               '在当前单元的周围画一个焦点框
    myFlexGrid.HighLight = flexHighlightWithFocus      '该值决定了所选定的单元是否突出显示

        
        txtsql = "select * from OnLine_Info" '查看数据库以得到所有上机同学的表
        Set mrc = executeSQL(txtsql, msgtext)
       
        If mrc.EOF = True Then '判断数据库是否为空
            MsgBox "学生上机记录为空！", vbOKOnly, "温馨提示"
            cmdlookallstu.Enabled = False
        Else
            cmdlookallstu.Enabled = True
        End If
        
        
         With myFlexGrid '添加表头
            .Rows = 1
            .CellAlignment = 4
            .TextMatrix(0, 0) = "卡号"
            .TextMatrix(0, 1) = "姓名"
            .TextMatrix(0, 2) = "上机日期"
            .TextMatrix(0, 3) = "上机时间"
            .TextMatrix(0, 4) = "机房号"
        '将数据库的值赋给表格
        Do While Not mrc.EOF
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(0)) & ""
            .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(3))
            .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(6))
            .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(7))
            .TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(8))
            mrc.MoveNext
        Loop
      End With
       mrc.Close
       myFlexGrid.CellAlignment = 4
        
        
        
       
        
    
    
End Sub