上一篇文章总结了下机的基本操作，接下来总结一下上机管理
上机管理中有两个难点，就是所有学生下机和选中学生下机！

1、所有学生下机

思考

前面下机操作执行的是对一个用户进行下机操作！现在要让所有上机的用户全都下机。在实际过程中，可能正在上机的有几百人，那么一一下机太过繁琐，所有人下机可以分解看每一个人都下机的累加。毫无疑问，每个人下机的过程都需要走下机操作那个过程的！所以这很强烈的意味着，需要用一个循环来代替繁琐的人工操作！

代码

Dim mrc1 As ADODB.Recordset
Dim txtSQL1 As String
Dim msgtext1 As String
Dim h As IntegertxtSQL1 = "select * from online_info"
Set mrc1 = executeSQL(txtSQL1, msgtext1)
If mrc1.EOF = True ThenMsgBox "没有学生上机!", vbOKOnly + vbExclamation, "提示"
ElseDo While Not mrc1.EOFh = mrc1.Fields(0)zjmwbform.Showzjmwbform.txtcardnum = hzjmwbform.xiajicmd = Truemrc1.MoveNextLoopMSFlexGrid1.Rows = 1MsgBox "所有学生下机成功!", vbOKOnly + vbExclamation, "提示"zjmwbform.sjrs = "0"
End If

利用一个循环，将在online_info中查询到的正在上机的用户的卡号赋值给H ，然后在将H 赋值给下机操作中的txtcardnum然后执行下机操作！直到online_info表中查询不到数据！

2、选中学生下机

思考

选中学生下机就考查了我们对MSFlexgrid控件的了解！
1、选中整行
控件的属性中
选中模式-BY row
焦点区-0-none
固定行、列-0
2、选中一行后的值
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0)
代表在选中行的第1列

代码

If MSFlexGrid1.Rows - 1 <= 0 ThenMsgBox "请先查看正在上机的学生信息", vbOKOnly + vbExclamation, "提示"Exit Sub
End If
'判断用户是否选择了某一行学生信息
If MSFlexGrid1.RowSel = 0 ThenMsgBox "请选择要下机的用户!", vbOKOnly + vbExclamation, "提示"Exit Sub
End If
'如果用户选择空数据则不执行下机操作！
If MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 0) = "" ThenExit Sub
End If
'执行下机操作

执行下机操作就不在多说，前面已经展示过了！
除了直接在这里写上下机的代码外，还可以通过调用主窗体上下机操作，来执行！这样更加简单方便！

3、结束语

下机的介绍到这里就结束了，如果你有更好的方法，欢迎欢迎分享！
感谢你的阅读！

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！