机房收费--上机状态查询

淩亂°似流年 2022-01-20 23:11 266阅读 0赞

关于上机状态查询窗体，组合查询下次再总结，这次先说后面的选择下机，说到选择下机，就不得不先说一下显示全部上机信息。这里的显示全部其实非常简单就是点击按钮，然后进行一个查询语句，接着就是把查到的所有有效数据显示在表格里。

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 MSFlexGrid1                 '添加表头
                .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
            MSFlexGrid1.CellAlignment = 4

下面就说一下选中下机和全部下机，先说全部下机，这个其实也很简单的。语句如下：

txtsql = "delete from online_Info"
        Set mrc = ExecuteSQL(txtsql, MsgText)
    
            '将查询内容显示在表格控件中
            With MSFlexGrid1
                .Clear
                .Rows = 2 '两行
                .CellAlignment = 4  '单元格内容居中,居中对齐
                .TextMatrix(0, 0) = "卡号"
                .TextMatrix(0, 1) = "姓名"
                .TextMatrix(0, 2) = "上机日期"
                .TextMatrix(0, 3) = "上机时间"
                .TextMatrix(0, 4) = "电脑号"
            End With
            
            MsgBox "所有同学已下机！"
            cmdallstudown.Enabled = False

这里需要注意的是不要忘记把主界面的上机人数改动一下，全部下机后，在线人数当然就是0了：

frmMain.lblnumber.Caption = 0

然后就是选中下机，这里稍微麻烦一点，首先是定义控件MSFlexGrid：

MSFlexGrid1.SelectionMode = flexSelectionByRow      '单击的时候选择的是整行
    MSFlexGrid1.FocusRect = flexFocusNone               '在当前单元的周围画一个焦点框
    MSFlexGrid1.HighLight = flexHighlightWithFocus      '该值决定了所选定的单元是否突出显示

然后就是判断你是否选择了某一行，如果没有请选中一行，然后再查询，然后再把你选中的那一行让它下机：

With MSFlexGrid1
        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

最后也是别忘了要修改主界面上的在线人数：

'查询正在上机的人数
        txtsql6 = "select * from OnLine_info"
        Set mrc6 = ExecuteSQL(txtsql6, MsgText6)
          
        If mrc6.EOF = True Then
            frmMain.lblnumber.Caption = 0
        Else
            frmMain.lblnumber.Caption = mrc6.RecordCount
        End If