第一次机房收费系统-注册窗体

将近一个月的时间，这个过程中也不是没有学习，但是没有什么效果，而且特别的消极，为什么没有好好弄呢？学习的方式很重要，在这段时间里，计划的是整理完一个窗体在弄一个窗体，不堆积问题，一步一步走下去。可是当有问题的时候长时间解决不了很烦恼，就又开始了下一个窗体，弄了几个后越来越混乱，学下去的信心也被一次次的失败所打击，当问题出现的时候，长时间的解决不掉，问题的解决方式不是逃避，而是怎样把它解决掉，把前行道路上的障碍跨越过去，这样当我们每次的成功运行把一个个障碍跨越过去的时候，都是在给自己打气，像这样逃避，并没有解决问题的能力，问题还是会不断的暴露，所以不怕有问题，就看怎样对待它。这个过程中，有一点很重要就是需要交流，当问题出现时，先自己解决，给自己一个限定的时间，解决不掉该怎样做，给自己设定一个期限，一个方案。

【逻辑顺序】

说一下注册窗体的学习路程，开始的时候逻辑很混乱，捋清思路的过程有些坎坷，第一个的思路捋清后以后的学习也就是一样的套路了：点击exe文件-熟悉逻辑，知道自己要做什么-用到的数据库表-思维导图-代码-完善思维导图，这是我画的注册窗体的思维导图。


问题集锦

sutent表和use表的混乱：这个过程中把userID和cardID混乱了，没有弄清楚是用那个表里的卡号，其实是这是两条不一样的线，而我却混在了一起。用户号是用来区别用户的级别的，这里的卡号是一般用户的卡号，需要区分开来。

【代码问题】

1、判断充值金额

在充值金额和金额的这两个过程中总觉的有些没有必要，但是现在已经这样弄了就先弄着，优化的时候在进行自己的个人想法实现。代码理解部分

txtSQL = "select * from BasicData_Info "
Set mrc = ExecuteSQL(txtSQL, msgtext)

If txtRecharge.Text < (mrc.Fields(7)) Then'和设定的最少充值金额进行比较。
MsgBox "金额不得小于最低余额充值！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If

2、注释信息的不必要输入问题
注释的信息可以不必要的输入

If Not Testtxt(txtNotes.Text) Then
MsgBox "请输入注释信息！", vbOKOnly + vbExclamation, "警告"
txtNotes.SetFocus
Exit Sub
End If

这个if语句的使用是txt窗体的必须输入，不输入，焦点还会落到此窗体上。

3、NULL值问题



(1)怎样可以添加空值的语句

Eg:

mrc.Fields(14) = Trim(cmbType.Text) '不可以有空值

mrc.Fields(14) = Trim(cmbType.Text) & ""'可以有空值，语句后面添加空格+&+""

(2)Student表中UserID的获取

txtSQL1 = "select * from onwork_info"
Set mrc1 = ExecuteSQL(txtSQL1, msgtext)'链接数据库
mrc.Fields(9) = mrc1.Fields(0)'获取数据库mrc1（onwork）中的Userid

【我的Idea】

开始注册的时候，我的想法是在卡号输入的时候就可以判断此卡号是否存在，在输入基本信息，可以在提高用户的体验度，在这里用的是change事件，但是在实现的过程中当有改变的时候程序就会执行，有很多问题的出现，后来把我的想法分享的时候得到了另外一种思路，在保存的时候可以只是清除卡号，重新输入其他的卡号，不用把全部的信息都清除就好了，还是很喜欢自己的那个想法，重要的是这个尝试的过程，不知道那位大神已经实现了，请赐教。

【小结】

注册窗体就这样完成了没有想象的那样困难，只要用心去做！加油！！！