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

前言：

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

---

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 IfEnd WithEnd Sub