机房收费系统之代码库

来源：互联网发布：2017淘宝设备管理在哪编辑：程序博客网时间：2024/05/17 23:17

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

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 ControlFor Each ctrl In Me.Controls   If TypeOf ctrl Is TextBox Then   '是否为文本框TextBox       ctrl.Text = ""   End IfNext</span>

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

<span style="font-size:18px;">Public Function field(a As String) As String Select Case a   Case "学号"   field = "studentno" EndSelectEnd 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>

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

0 0