机房收费系统总结【2】-细节优化

前言：

机房收费的过程中遇到了很多以前没有发现的问题！
问题1:
我们都要给用户提示，询问用户是否确认关闭窗体，这个功能还是有必要的，万一一不小心点击退出！保障措施！
解决：在卸载事件里写这样的代码，提示用户！

Private Sub Form_Unload(Cancel As Integer)If MsgBox("确定要退出吗?", vbYesNo) = vbNo ThenCancel = 1End If
End Sub

---

问题2:
在一些窗体中我们用到下拉列表时，需要给用户设置一个默认缺省值，这样可以减少用户自己的输入，这样让有特殊需求的用户去自己选。能够提高用户体验！
解决：

下拉框默认值
Private Sub Form_Load()
Combo1.Text = Combo1.List(1)
End Sub

---

问题三：
想要在系统中显示现在时间，首先调用日期函数，将函数放到Timer控件中，隔一段时间就可以刷新，一直显示的是当前时间！
解决：获取时间
https://blog.csdn.net/u013201439/article/details/47376497

---

问题四：获取消费时间
解决：关键是要计算上机时间和下机时间的差值是多少个单位时间！
DateDiff函数
格式：DateDiff(“s”,2017-1-1 18:00:00",“2017-1-2 18:00:00”)
计算2017年1月1号下午6点到2017年1月2号下午6点之间的秒数！
DateDiff(“n”,2017-1-1 18:00:00",“2017-1-2 18:00:00”)
计算2017年1月1号下午6点到2017年1月2号下午6点之间的分钟数！
DateDiff(“h”,2017-1-1 18:00:00",“2017-1-2 18:00:00”)
计算2017年1月1号下午6点到2017年1月2号下午6点之间的小时数！
DateDiff(“n”,mrc!ontime",“now()”)
函数的两个时间参数的格式需要一致！
相关推荐：
https://blog.csdn.net/lyyswx/article/details/51985300
https://blog.csdn.net/enzochan/article/details/51695466

---

问题五：
在文本框的输入首先都会被处理为字符，但我需要输入的内容进行计算！
解决：类型转换函数
VAL（字符串表达式）将数字字符串换成数值
CSTR与VAL功能相反,CSTR将数值表达式的值换成字符串

如：VAL（"-3.85")=-3.85VAL("vb5.0")=0VAL("12 bC")=12 CSTR(125)="125"

---

问题六：代码中调用记录集字段的两种方法
mrc.Field(0) mrc!Date
解决：我还不是很懂两种的区别！欢迎留言讨论！！！！！！！！！

---

问题七：查询操作，有的加架构名。有的不加！
解决：为了避免报错，我在报错的代码中加入了架构名，但不懂为什么有的不加 还能运行出来，就奇了怪！

总结：

不会使用msdn和调试工具真的不方便！

总结

以上是生活随笔为你收集整理的机房收费系统总结【2】-细节优化的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。