机房收费系统-上机管理

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

1、所有学生下机

思考

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

代码

Dim mrc1 As ADODB.Recordset
Dim txtSQL1 As String
Dim msgtext1 As String
Dim h As Integer

txtSQL1 = "select * from online_info"
Set mrc1 = executeSQL(txtSQL1, msgtext1)
If mrc1.EOF = True Then
    MsgBox "没有学生上机!", vbOKOnly + vbExclamation, "提示"
Else
    Do While Not mrc1.EOF
        h = mrc1.Fields(0)
        zjmwbform.Show
        zjmwbform.txtcardnum = h
        zjmwbform.xiajicmd = True
    mrc1.MoveNext
    Loop
    MSFlexGrid1.Rows = 1
        MsgBox "所有学生下机成功!", 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 Then
    MsgBox "请先查看正在上机的学生信息", vbOKOnly + vbExclamation, "提示"
    Exit Sub
End If
'判断用户是否选择了某一行学生信息
If MSFlexGrid1.RowSel = 0 Then
    MsgBox "请选择要下机的用户!", vbOKOnly + vbExclamation, "提示"
    Exit Sub
End If
'如果用户选择空数据则不执行下机操作！
If MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 0) = "" Then
    Exit Sub
End If
'执行下机操作

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

3、结束语

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