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

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

    txtsql = "select * from OnLine_Info"            '查看数据库以得到所有上机同学的表Set mrc = ExecuteSQL(txtsql, MsgText)If mrc.EOF = True Then            '判断数据库是否为空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) = "机房号"'将数据库的值赋给表格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)'将查询内容显示在表格控件中With MSFlexGrid1.Clear.Rows = 2 '两行.CellAlignment = 4  '单元格内容居中,居中对齐.TextMatrix(0, 0) = "卡号".TextMatrix(0, 1) = "姓名".TextMatrix(0, 2) = "上机日期".TextMatrix(0, 3) = "上机时间".TextMatrix(0, 4) = "电脑号"End WithMsgBox "所有同学已下机！"cmdallstudown.Enabled = False

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

frmMain.lblnumber.Caption = 0

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

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

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

With MSFlexGrid1If .RowSel = 0 Then        '选中行为第一行MsgBox "请选择数据!", 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

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

    '查询正在上机的人数txtsql6 = "select * from OnLine_info"Set mrc6 = ExecuteSQL(txtsql6, MsgText6)If mrc6.EOF = True ThenfrmMain.lblnumber.Caption = 0ElsefrmMain.lblnumber.Caption = mrc6.RecordCountEnd If

机房收费--上机状态查询相关推荐

VB.NET版机房收费系统---组合查询
查询的意思就是查找,寻找,指在某一个或几个地方找出自己所要的信息,假如我想搜索一下我自己写的博客,名字叫做初雪之恋,我在百度的搜索框中输入丁国华三个字,会有怎样的惊喜等着我? 啊哦,这个信息并不是我想 ...
机房收费系统合作版（二）:透过显示上机人数品味如何做到全心全意为人民服务
[前言] 尘封半年之久的机房合作再次被鹅大组长提上日程,为了积极响应组长的号召最近两日在噼里啪啦的弄机房!逐渐追回了开始合作时信誓旦旦的宣言(详情点击<机房收费系统合作版:开始团队合作之旅> ...
机房收费系统【VB版】——选择下机
前言: 今天实现机房收费系统--一般用户--学生上机状态查看--选中全部/部分下机部分收获很多!多亏了看光哥的博客,写的很清楚机房收费系统--上机状态查询之下机过程: 要显示的表格式写查询,就会出来 ...
《机房收费系统》软件需求说明书
1引言 1.1编写目的主要说明机房收费系统用户的各个方面的工作需求,包括教职工的值班结账,学生的上下机等.预期读者是系统分析员和开发人员. 1.2背景说明: a．待开发的软件系统的名称:机房收费 ...
机房收费软件需求说明书
机房收费软件需求说明书 1引言 1.1编写目的为了使用户和软件开发者双方对该软件的初始规定有一个共同的理解, 使之成为整个开发工作的基础,有利于对项目的回溯和指导后续的开发和维护. 文档读者:软件开 ...
机房收费系统之软件需求说明书
1.引言 1.1编写目的本软件的需求说明书是为了使用户和软件开发者对该软件的初始规定有一个共同的理解,使之成为整个开发工作的基础文档.是对需求分析的各项结果进行了总结详细描述了本软件的规格,并且给出 ...
机房收费系统——软件需求说明书
软件需求说明书 1引言 1.1编写目的软件需求说明书是需求分析阶段的一个文档,是对软件目标及范围的求精和细化,深入描述软件功能及软件的约束范围,使用户和软件开发者对该软件的初始的规定有个大概的了解, ...
机房收费系统—项目开发总结报告
项目开发总结报告 1引言 1.1编写目的机房收费系统的开发工作已经基本完成.写此项目开发总结报告,以方便我们在以后的项目开发中来更好的实施项目的制定开发,让我们在今后的项目开发中有更多的资料来规范我 ...
（三）机房收费系统软件需求说明书
软件需求说明书 1引言 1.1编写目的软件需求说明书是需求分析阶段的一个文档,是对软件目标及范围的求精和细化,深入描述软件的功能和性能以及软件的约束范围,使用户和软件开发者对该软件的初始规定有个大概 ...

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

机房收费--上机状态查询相关推荐

最新文章

热门文章