51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2437|回复: 1
打印 上一主题 下一主题

[其他] 机房收费系统之学生查看上机状态

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2019-2-22 11:24:13 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
心得

距离上次验机房已经有已有一段时日,期末考试期间把所有的进度都停了下来,然而大家都一如既往的学习,差距也许就是这样的越拉越大的吧,大家都好厉害。
今天所带来的是所有学生下线和选中学生下线,这个之前做的不知道为什么就是不显示出来,注释了很多的代码,真是费了我好多时间。但其实走过一遍后,会发现原来如此神奇。

思路

该窗体难点我认为是所有学上下线和选中部分学生下线两个部分,之前也试了很多种方法,都比较麻烦,也总是出现问题,最终突然看到了军星的博客中所有学生全部下线部分,不得不说,真的好棒。其中这部分是利用了调用MDI窗体的下机按钮(基本思路:查看上机表–用MSHFlexGrid控件判断是否有无上机—有,则调动MDI的下机按钮,从而完美的错过计算下机的各种计算,也因此而省掉了很多的代码。看来我注释了这么多代码是对的。而选中部分学生下线我则是直接用MSHFleGrid1控件来进行判断然后删除。

代码展示部分
  1. rem:所有学生全部下线(核心代码)
  2. If MSFlexGrid1.Text = "" Then
  3.              MsgBox "无记录", 48, ""
  4.              Exit Sub
  5.         Else
  6.             If mrconline.EOF = False Then
  7.                 For i = 1 To MSFlexGrid1.Rows - 1
  8.                 MDIfrmMain.txtcardno.Text = MSFlexGrid1.TextMatrix(i, 0)
  9.                 MDIfrmMain.cmdoffline.Value = True
  10.                 Next
  11.                 MsgBox "均已全部下机"
  12.                 MSFlexGrid1.Clear
  13.             End If
  14.         End If
复制代码
  1. rem:选中学生下线
  2. With MSFlexGrid1
  3.               If .RowSel = 0 Then
  4.                  MsgBox "请选择数据", 48, ""
  5.               Else
  6.                      txtsql = "delete from online_info where cardno='" & Trim(.TextMatrix(.RowSel, 0)) & "'"
  7.                      Set mrc = ExecuteSQL(txtsql, msgtext)
  8.                      .RemoveItem .RowSel
  9.              End If
  10.         End With
复制代码

总结

关于总结,我们的宗旨是:关系简单,重点突出


分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-21 22:02 , Processed in 0.060097 second(s), 23 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表