机房收费系统——总结（一）

前言：

不知道为什么，最近总是对写博客有点恐惧，积累了大量的素材，就是懒得来到此“宝地”留下痕迹，自我感觉是自己的文笔不好，缺乏自信，哎，还是要多读书啊！好了，不说了，还是看看积累的干货吧，虽然你可能见到过，但是那都不是我写的，这才是！

正文：

1.在敲完模块后，还未敲登录界面，自己就按捺不住自己的内心了，想要测试一下VB是否可以和数据库连接，于是输入代码：

mrc.addNew
mrc.Fields(0)=1
mrc.Update

这一测试可不得了，出问题了：“编译错误：用户定义类型未定义。”其位置在：

Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset

方法总比困难多，解决办法：工程—引用—勾选“Microsoft ActiveX Data Objects 2.6 Library”

2.学习的过程中还是要学会站在巨人的肩膀上，遇到不会的问题还是需要自己运用互联网去解决一下，比如说Trim函数，在敲学生的时候不懂，现在到机房了不能不懂啊，查了查才知道：Trim函数的作用是去掉字符序列左边和右边的空格，如字符串str=“  i love you   ”；运用Trim函数：str=Trim(str)，输出的是：“i love you”，中间的空格它的管不着滴。

还有一个问题就是之前在敲学生时遇到代码和现在遇到的代码两相对比如下去：

MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"

MsgBox "没有这个用户，请重新输入用户名！", 0 + 48, "警告"

其中“0+48”，自我猜测和“vbOKOnly + vbExclamation”，是一个意思，确实如此，接下来继续科普：0+48是Msgbox里面的两个参数，Msgbox中按钮Button参数的其他常见常量如下：

vbOKOnly 0只显示“确定”按钮；vbOKCancel 1显示“确定”和“取消”按钮；vbAborRetrylgnore 2显示“终止”、“重试”和“忽略”按钮；

vbYesNoCancel 3显示“是”、“否”和“取消”按钮；vbYesNo 4显示“是”和“否”按钮；vbRetryCancel 5显示“重试”和“取消”按钮；

vbCritical 16显示“关键信息”图标；vbQuestion 32显示“警告询问”图标；vbExclamation 48显示“警告消息”图标；

vbInformation 64显示“通知消息”图标

当然，从各个参数的英文意思来看大概意思也明了了，我是刚刚才发现的，哈哈~

3.对于EOF与BOF在学生中也有接触，前辈也提到过，自己当时没怎么理解，时隔已久自己也忘了，这就简单回顾一下：

EOF：指当前记录位置位于Recordset对象的最后一个记录之后

BOF：指当前记录位置位于Recordset对象的第一个记录之前

都为True时，都为无知；反之，无值。

4.“确定”键用键盘“回车”代替：修改Command控件的属性Default未True；在Form_Load事件中写入Command.Default=True

5.Exit Sub 和End Sub的区别：

Exit Sub是一个动词，表示在过程中任意位置退出过程，作用是结束当前的进程，不再执行后续程序；End Sub是一个状态词，表示过程到这里已经结束了。举个例子，比如说你准备跑着去游泳馆，中途突然想起来还有其他事要做，于是就不跑了，退出这次跑步，中途任何时候退出就是Exit Sub；而当你已经到了游泳馆，游泳馆的大门紧闭，提示“暂停营业”就是End Sub。

······

结语：

摸索的过程成长最快，这个过程有喜有忧，接下来继续记录、总结！