机房收费系统之充值窗体

前言

感觉充值窗体比较简单，整体上就是一个数据库写入数据的操作，通过几个判断就可以把数据写入数据库了。

主要内容

一、逻辑图

二、代码部分

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的值的和。

小结

这个窗体的难度不是很高，很是逻辑还是需要学习一下，另外涉及到了公式、逻辑运算符的知识，应该深入了解一下这方面的知识。