机房收费系统之学生查看上机状态

always_fly

心得

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

思路

该窗体难点我认为是所有学上下线和选中部分学生下线两个部分，之前也试了很多种方法，都比较麻烦，也总是出现问题，最终突然看到了军星的博客中所有学生全部下线部分，不得不说，真的好棒。其中这部分是利用了调用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
    

复制代码

总结

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