将近一个月的时间,这个过程中也不是没有学习,但是没有什么效果,而且特别的消极,为什么没有好好弄呢?学习的方式很重要,在这段时间里,计划的是整理完一个窗体在弄一个窗体,不堆积问题,一步一步走下去。可是当有问题的时候长时间解决不了很烦恼,就又开始了下一个窗体,弄了几个后越来越混乱,学下去的信心也被一次次的失败所打击,当问题出现的时候,长时间的解决不掉,问题的解决方式不是逃避,而是怎样把它解决掉,把前行道路上的障碍跨越过去,这样当我们每次的成功运行把一个个障碍跨越过去的时候,都是在给自己打气,像这样逃避,并没有解决问题的能力,问题还是会不断的暴露,所以不怕有问题,就看怎样对待它。这个过程中,有一点很重要就是需要交流,当问题出现时,先自己解决,给自己一个限定的时间,解决不掉该怎样做,给自己设定一个期限,一个方案。
【逻辑顺序】
说一下注册窗体的学习路程,开始的时候逻辑很混乱,捋清思路的过程有些坎坷,第一个的思路捋清后以后的学习也就是一样的套路了:点击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
注释的信息可以不必要的输入
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) & ""'可以有空值,语句后面添加空格+&+""
txtSQL1 = "select * from onwork_info"
Set mrc1 = ExecuteSQL(txtSQL1, msgtext)'链接数据库
mrc.Fields(9) = mrc1.Fields(0)'获取数据库mrc1(onwork)中的Userid
【我的Idea】
开始注册的时候,我的想法是在卡号输入的时候就可以判断此卡号是否存在,在输入基本信息,可以在提高用户的体验度,在这里用的是change事件,但是在实现的过程中当有改变的时候程序就会执行,有很多问题的出现,后来把我的想法分享的时候得到了另外一种思路,在保存的时候可以只是清除卡号,重新输入其他的卡号,不用把全部的信息都清除就好了,还是很喜欢自己的那个想法,重要的是这个尝试的过程,不知道那位大神已经实现了,请赐教。
【小结】
注册窗体就这样完成了没有想象的那样困难,只要用心去做!加油!!!