前言:
上机状态查看这块查询部分和之前的查询类似,不再多说;
下面来说下如何实现所有学生下线:
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