机房收费系统之代码库

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

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>

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