第一次机房收费—充值窗体

【前言】

机房收费充值窗体的学习中学习，这个窗体相对简单些，心态也是放松了许多，没有之前烦躁的心情了，一步一步的把顺序感弄清楚，知道自己该做什么，感受到机房的逻辑顺序很强，这次按照想的顺序，开始的时候点击原exe，把逻辑顺序捋清楚，画思维导图。发现有很多代码都和注册是一样的，把每个窗体的应用考虑全面后，在开始敲代码

【思维导图】

在画思维导图的时候金额的最低设定的时候把recharge和 Basicadata混了。所以这里用到的是三个表Recharge表、Student表和Recharge表。

【代码理解】

(1)更新Recharge表

'更新Recharge表
        txtSQL = "select * from Recharge_info"
        Set mrc2 = ExecuteSQL(txtSQL, msgtext)
        mrc2.AddNew
        'mrc2.Fields(0) serial自增的数据类型
        mrc2.Fields(1) = mrc.Fields(1)
        mrc2.Fields(2) = mrc.Fields(0)
        mrc2.Fields(3) = Trim(txtRecharge.Text)
        mrc2.Fields(4) = Date
        mrc2.Fields(5) = Time
        mrc2.Fields(6) = mrc.Fields(9)
        mrc2.Fields(7) = mrc.Fields(10)
        mrc2.Update

Recharge表中的serial是一个自增数据库类型，更多详情有待学习。

(2)txt内容的填充

txtList.Text = "充值卡号:" & mrc.Fields(1) & vbCrLf & _
                        "原余额:" & A & vbCrLf & vbCrLf & _
                        "充值金额:" & txtRecharge.Text & vbCrLf & vbCrLf & _
                        "现总金额:" & B & vbCrLf & vbCrLf & _
                        "充值日期:" & Date & vbCrLf & vbCrLf & _
                        "充值时间:" & Time & vbCrLf & vbCrLf & _
                        "充值教师:" & UserName

这段代码中& VBCrlf &换行的作用。PS：要在TextBox控件中换行，需先将Multiline属性设置为True

(3)定义数据库记录集

Dim mrc As ADODB.Recordset

ADODB是动态数据库链接对象，Recordset是ADODB的一个子类。mrc用来记录数据库的记录，那个数据库用的mrc就用这个了，当多个数据库的时候不会混乱。

【我的Idea】

在这里关于输入卡号和金额的判断还有点小纠结，我的想法是；输入卡号(没有输入充值金额)——点击确定——可以判断卡号是否存在。❶存在：请输入充值金额！❷不存在：卡号未注册或不存在，请重新输入！这里还没有修改，优化时在好好想想，有其他好想法的小伙伴一起讨论哈。

【小结】

这个窗体的学习中觉得有些理解代码了，很棒的感受，这也要感谢帮助我的前辈和师傅的指引，和小伙伴的共同学习。加油！感谢阅读！