机房收费系统敲完了,真的发现收获很多,了解了很多代码的功能,也发现了一些缩短代码的方法,
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>
简单的方法,值得探索,欢迎大家多多提供一些简化代码的方法,我们一起讨论讨论~