關(guān)于上機狀態(tài)查詢窗體，組合查詢下次再總結(jié)，這次先說后面的選擇下機，說到選擇下機，就不得不先說一下顯示全部上機信息。這里的顯示全部其實非常簡單就是點擊按鈕，然后進行一個查詢語句，接著就是把查到的所有有效數(shù)據(jù)顯示在表格里。

txtsql = "select * from OnLine_Info" '查看數(shù)據(jù)庫以得到所有上機同學的表Set mrc = ExecuteSQL(txtsql, MsgText)If mrc.EOF = True Then '判斷數(shù)據(jù)庫是否為空MsgBox "學生上機記錄為空！", vbOKOnly, "溫馨提示"cmdlookallstu.Enabled = FalseElsecmdlookallstu.Enabled = TrueEnd IfWith MSFlexGrid1 '添加表頭.Rows = 1.CellAlignment = 4.TextMatrix(0, 0) = "卡號".TextMatrix(0, 1) = "姓名".TextMatrix(0, 2) = "上機日期".TextMatrix(0, 3) = "上機時間".TextMatrix(0, 4) = "機房號"'將數(shù)據(jù)庫的值賦給表格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.MoveNextLoopEnd Withmrc.CloseMSFlexGrid1.CellAlignment = 4

下面就說一下選中下機和全部下機，先說全部下機，這個其實也很簡單的。語句如下：

txtsql = "delete from online_Info"Set mrc = ExecuteSQL(txtsql, MsgText)'將查詢內(nèi)容顯示在表格控件中With MSFlexGrid1.Clear.Rows = 2 '兩行.CellAlignment = 4 '單元格內(nèi)容居中,居中對齊.TextMatrix(0, 0) = "卡號".TextMatrix(0, 1) = "姓名".TextMatrix(0, 2) = "上機日期".TextMatrix(0, 3) = "上機時間".TextMatrix(0, 4) = "電腦號"End WithMsgBox "所有同學已下機！"cmdallstudown.Enabled = False

這里需要注意的是不要忘記把主界面的上機人數(shù)改動一下，全部下機后，在線人數(shù)當然就是0了：

frmMain.lblnumber.Caption = 0

然后就是選中下機，這里稍微麻煩一點，首先是定義控件MSFlexGrid：

MSFlexGrid1.SelectionMode = flexSelectionByRow '單擊的時候選擇的是整行 MSFlexGrid1.FocusRect = flexFocusNone '在當前單元的周圍畫一個焦點框 MSFlexGrid1.HighLight = flexHighlightWithFocus '該值決定了所選定的單元是否突出顯示

然后就是判斷你是否選擇了某一行，如果沒有請選中一行，然后再查詢，然后再把你選中的那一行讓它下機：

With MSFlexGrid1If .RowSel = 0 Then '選中行為第一行MsgBox "請選擇數(shù)據(jù)!", vbOKOnly, "提示"Exit SubEnd IfIf .RowSel >= 1 Thentxtsql = "select * from OnLine_Info where cardno='" & Trim(.TextMatrix(.RowSel, 0)) & "'"Set mrc = ExecuteSQL(txtsql, MsgText)If mrc.EOF = True ThenMsgBox "無上線人員！"Exit SubElse.RemoveItem .RowSelmrc.DeleteEnd IfEnd If End Withmrc.Update

最后也是別忘了要修改主界面上的在線人數(shù)：

'查詢正在上機的人數(shù)txtsql6 = "select * from OnLine_info"Set mrc6 = ExecuteSQL(txtsql6, MsgText6)If mrc6.EOF = True ThenfrmMain.lblnumber.Caption = 0ElsefrmMain.lblnumber.Caption = mrc6.RecordCountEnd If

?

總結(jié)

以上是生活随笔為你收集整理的机房收费--上机状态查询的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。