机房收费系统（三）选中学生强制下机

机房进行的差不多了，但是自己的学生上机状态查询总是出现错误，该如何单机选中下机呢？自己想的很好，不就是单机选中，然后flexgrid中的和数据库表中的额内容消失不见吗！

想的很简单，其实做起来也并非很难。

第一想法就是应用相关的鼠标属性，使之单机生效

相关代码：

'用户在窗体或控件鼠标键按下发生
Private Sub MyFlexGrid_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)With MyFlexGrid.row = .MouseRownowrow = .row.col = 0          '第一列.ColSel = .Cols - 1    '确定列数位置，起始列的意思End WithEnd Sub

'用户在窗体或控件上释放鼠标按键时发生。
Private Sub MyFlexGrid_MouseUp(Button As Integer, Shift As Integer, X As Single, y As Single)With MyFlexGrid.RowSel = nowrow       '选择第几行.ColSel = .Cols - 1End WithEnd Sub

Private Sub mnu_force_Click()Dim txtSQL As StringDim mrc As ADODB.RecordsetDim msgText As StringtxtSQL = "select * from online_info "Set mrc = ExecuteSQL(txtSQL, msgText)   If mrc.EOF = True Then       '判断是否有记录      msgbox "已经没有学生上机", vbOKOnly + vbExclamation, "警告" Exit Sub    Elsemrc.Deletemrc.MoveNextmrc.Close'数据库数据对应删除MyFlexGrid.RemoveItem MyFlexGrid.row      '表格单机删除End If

鼠标事件真的是很好用的！如果不用的话，也有一种方法：

相关代码：

Dim txtSQL As StringDim mrc As ADODB.RecordsetDim msgText As StringtxtSQL = "select * from online_info where cardno='" & Trim(MyFlexGrid.TextMatrix(MyFlexGrid.row, 0)) & "'"Set mrc = ExecuteSQL(txtSQL, msgText)If mrc.EOF = True Then       '判断是否有记录msgbox "已经没有学生上机", vbOKOnly + vbExclamation, "警告"Exit SubElsemrc.Deletemrc.MoveNext
'     mrc.Close'数据库数据对应删除
'
'错误语句：
On Error GoTo gpError:MyFlexGrid.RemoveItem MyFlexGrid.row      '表格单机删除
gpError:        '最后非固定行不删除If Err.Number = 30015 ThenMyFlexGrid.ClearEnd IfEnd If

进度并没有太大的差距，不管进行到哪了？有些问题是否自己真的理解了？昨天说到对于数据库的总结，自己貌似真的是欠缺啊！视频并没有进行相关的总结！自己貌似又想回到远点一样！得吸取教训啊！一步一个脚印，做好总结，不能为了赶进度而找那些所谓的借口！给自己一个警告！

机房收费系统（三）选中学生强制下机相关推荐

机房收费系统-动态计费与强制下机
前言:之前以为自己机房收费系统马上就要收官了,结果最近自己发现还少点功能:那就是动态计费功能与强制下机功能.本次博客分为两个模块:第一模块为主界面的动态计费及强制下机,第二模块为学生上机状态查询的选中 ...
机房收费系统（二）之下机退卡
今天我又回顾了一下机房管理系统,看见了我熟悉的花费了我三天才敲好的窗体(当然想了两天),然后今天我就来总结一下下机退卡吧! 第一句话是让子窗体在父窗体中的图片框里显示! 其他的然后就是定义函数名称 ...
机房收费系统【VB版】——选择下机
前言: 今天实现机房收费系统--一般用户--学生上机状态查看--选中全部/部分下机部分收获很多!多亏了看光哥的博客,写的很清楚机房收费系统--上机状态查询之下机过程: 要显示的表格式写查询,就会出来 ...
机房收费系统【VB版】——上下机
前言: 机房收费系统三大难点之一--上下机,需要一点一点开始分析,不断完善自己的逻辑,然后对照逻辑[查表--更新--显示],编写代码. 逻辑流程图: 注意计算消费金额: 总结: 其实这里自己应该反思 ...
机房收费系统验收报告
1.项目信息项目名称:机房收费系统项目开始时间: 项目结束时间: 2.项目概述该项目适用于做学校机房收费系统,适合学生的上下机,各种权限的管理员的不同操作,以及金额的日结算和月结 ...
机房收费系统（一）-前期准备
机房收费系统是继学生信息管理系统之后的又一个完整的系统,但是学生完全是按着源码敲的,而机房只有一个EXE打包文件,其他一无所有,代码完全需要自己去敲,这就让我和着急了,,,, 唉,真的是好后悔,学生里 ...
机房收费系统学生下机结账小结
这几天一直在考虑机房收费系统学生下机操作.学生下机,一则须要加入学生下机记录信息:还须要计算学生在整个上机过程中所花费的金额,而且更新学生剩余金额.那么如何做在性能上或者扩展上更好一些呢? 操作 1 ...
机房收费系统下机之动态显示余额和强制下机（1）
优化在做下机的时候,要考虑到强制下机的问题,如果我卡里面只有30元,却玩了40元的,那么在下机余额就是负的了,这时候再去充值就不合理了,所以我加了一个动态显示余额和强制下机的功能,我的动态计算是15 ...
机房收费系统中——存储过程中加入事务，实现学生注册
需求介绍: 现在正在开发的机房收费系统,总得来说,是对学生上机进行收费管理(没有要在学校开网吧的意思啊!为了学习面开发的)大体的功能是这样的:学生上机,然后刷卡,下机的时候,再刷卡,然后通过对学生的上 ...

机房收费系统（三）选中学生强制下机

机房收费系统（三）选中学生强制下机相关推荐

最新文章

热门文章