前言
感觉充值窗体比较简单，整体上就是一个数据库写入数据的操作，通过几个判断就可以把数据写入数据库了。
主要内容
一、逻辑图
二、代码部分
1.如何判断框内数据和数据库数据大小
If Val(txtAddMoney.Text) < mrc.Fields(5) Then MsgBox "输入金额不得低于设置的最低金额！", vbOKOnly + vbExclamation, "温馨提示" txtAddMoney.SetFocus txtAddMoney.Text = "" End If
难点解释：
Val() ：将数字字符串换成数值
2.公式理解
mrc.Fields(7) = (Val(mrc.Fields(7)) + Val(txtAddMoney.Text))
难点解释：
公式：该公式的意思是 现在第7列字段的值等于之前第七列字段的值和文本框txtAddMoney的值的和。
小结
这个窗体的难度不是很高，很是逻辑还是需要学习一下，另外涉及到了公式、逻辑运算符的知识，应该深入了解一下这方面的知识。
