所有学生下机
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