第一次机房收费系统
华淑敏
这个作者很懒,什么都没留下…
展开
-
【机房】充值
前言:充值是机房里面较为简单的一个窗体,逻辑理清楚之后上手就简单多了。正文:下面是流程图,在代码中我把判断卡号是否存在与是否停用合并了。下面是部分重要代码:Private Sub cmdOk_Click() Dim mrc As ADODB.Recordset Dim txtSQL As String Dim MsgText As String D...原创 2018-12-23 23:41:30 · 225 阅读 · 24 评论 -
【机房】上机
流程图如下:部分重要代码如下:Private Sub cmdOnLine_Click() Dim mrc_li As ADODB.Recordset '判断卡号是否为空 If Trim(txtCardno.Text) = "" Then MsgBox "请输入卡号!", 48 txtCardno.Text = "" ...原创 2018-12-30 21:37:07 · 230 阅读 · 18 评论 -
【机房】删除和添加用户
前言删除和添加窗体中比较复杂的一部分是删除。我在调试的过程中遇到了两个问题,下面我就来说一下这两个问题以及解决方法。正文实时错误94问题代码:原因:因为在添加用户的窗体中并没有数据库中Head的数据,所以会报错94解决方案:①在后面加 & "",用来存储null值,即.TextMatrix(.Rows - 1, 2) = Trim(mrc_user...原创 2019-01-06 21:34:32 · 250 阅读 · 22 评论 -
【机房】组合查询
前言 组合查询是机房的三大难点之一。不过只要弄懂敲完一个组合查询的窗体,另外两个也就不成问题了,说到底逻辑最重要。正文 先来看以下几个控件之间的关系,如下图。选择了第一个组合条件,就可以查询前两行所要求的内容,选择第二个条件同理。我是这么设置的:每一行为一组,选择了第一个组合关系,第二行的combo和text才可用,同理,选择了第二个组合关系,第三行才可用。首先判断有没有输入...原创 2019-01-30 21:27:21 · 249 阅读 · 20 评论 -
【第一次机房收费系统】总结
第一次机房收费系统历时两个多月终于结束了,期间经历六级考试、期末考试等,拿起放下、拿起放下,一件事情拖太久果然不是很好,要缓好一会儿才能把思路重新捡起来,吸取这次教训啦。 在进行机房之前就问过好几个人机房该怎么敲,结合自己敲机房的经验,总结下来就是逻辑是最重要的,弄清楚逻辑其他就水到渠成了,然后遇到不懂的要学会站在巨人的肩膀上,当然前提得有自己的想法。...原创 2019-02-22 21:31:13 · 220 阅读 · 18 评论 -
【机房】结账
前言终于做到了机房的三大难点之一——结账。一开始看到这个窗体我是思路混乱的,涉及到好多表啊,然后我就利用搜索引擎,还有问师父,站在巨人们的肩膀上,理清了逻辑,接下来就是实践了。正文购卡:student_info表中未结账的注册用户信息充值:recharge_info表未结账的充值信息退卡:cancelcard_info表中未结账的退卡信息临时用户:student_info表...原创 2019-02-28 18:41:17 · 212 阅读 · 9 评论