机房之充值

充值窗体以“确定”按钮实现功能，分别判断卡号和充值金额是否为空，是否为数字，卡号是否存在等等。有一点注意的是判断金额是否低于设置的最低金额，需要连接“BasicData”表，进行比较

下面是流程图思路：

下面是代码部分：

遇到的问题

一：对象变量或With块变量未设置

看到这个问题那么是数据库没有连接上，小伙伴们你们能发现哪错了吗？

原来是连接数据库代码的问题，是一个比较常见又容易犯错的地方

二：VB中文本框如何换行

如上图所示，虽然充值成功了，但是里面的文本却都跑在了一行。解决方法：先把该文本框的Muiltline属性设为True 表示可以支持多行输入，然后在需要按行的地方按入 & vbCrlf代表回车。如果嫌空隙小可以再加一个& vbCrlf