机房收费系统之上机状态查看

前言：

上机状态查看这块查询部分和之前的查询类似，不再多说；
下面来说下如何实现所有学生下线：

---

1.如何实现所有学生下线：
我的思路是通过click事件将上机表中的online信息删除
所以显示全部的时候就查询不到online表中的信息了。

2.如何实现选中学生下线：
(通过如下代码可以实现，其中后面的添加和删除用户部分中删除用户也是用的同样的功能)
所以点击所有学生下机的时候我让它显示这个界面：

通过如下代码实现：

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

---

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

    With MSHFlexGrid
        If .RowSel = 0 Then
            MsgBox "请选择数据!", vbOKOnly, "提示"
            Exit Sub
        Else
            If .RowSel > 1 Then
            txtSQL = "delete from online_Info where online_Card='" & Trim(.TextMatrix(.RowSel, 0)) & "'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)
            .RemoveItem .RowSel
            End If
      End If
End With
End Sub