机房收费系统之代码库

 

  机房收费系统敲完了，真的发现收获很多，了解了很多代码的功能，也发现了一些缩短代码的方法，

1.  select语句可以这样写：

 

<span style="font-size:18px;">   selectcardno,studentno,date,time ,ischeck from student_info where</span>

 

 

下面按mrc0,1,2,3使用，很有趣吧

2.  清除所有文本框的快捷代码

 

<span style="font-size:18px;">Dim ctrl As Control
For Each ctrl In Me.Controls
   If TypeOf ctrl Is TextBox Then   '是否为文本框TextBox
       ctrl.Text = ""
   End If
Next</span>

3.  case语句定义field搜索函数，很有趣，变相的调用所有的数据库字段

 

 

<span style="font-size:18px;">Public Function field(a As String) As String
 Select Case a
   Case "学号"
   field = "studentno"
 EndSelect
End Function</span>

4.  在开始的txtsql基础上继续连接，很神奇的存在

 

 

<span style="font-size:18px;">txtsql=txtsql &“ ”</span>

 

 

5.  数据库如何检查 有没有数据

 

<span style="font-size:18px;">If mrcE.EOF And mrcE.BOF Then
        MsgBox "没有数据诶~"
End if</span>

6.  消费的时间竟然可以一个函数搞定。

 

 

<span style="font-size:18px;">contime = DateDiff("n",mrcB.Fields(9),<span style="color:#ff0000;"> Format</span>(Now(), "yyyy-mm-dd hh:mm:ss"))</span>

7.  timer控件也很有意思，可以实现代码间接性应用操作，帮助你完成强制下机的操作。

 

 把timer控件的intervel属性改成你想要的时间就ok了。

8.  出现空值报错，可用下面的操作避免

 

<span style="font-size:18px;">.TextMatrix(.Rows - 1, 5) =mrcA.Fields(5)<span style="color:#ff6666;"> & ""</span></span>

9.  报账表中计算金额可以用函数，简单很多

 

 

<span style="font-size:18px;">txtSQL = "select sum(addmoney) from ReCharge_Info where date='"& Date & "' and status='结账'"
Set mrc = executesql(txtSQL, Msgtext)
 IfIsNull(mrc.Fields(0)) = True Then
         RechargeRMB = 0
 Else
          RechargeRMB = Trim(mrc.Fields(0))
 End If</span>

简单的方法，值得探索，欢迎大家多多提供一些简化代码的方法，我们一起讨论讨论~