机房系统（三）——【充值退卡】

前言
充值在我们的日常生活中随处可见。新办理的手机卡号，为保证在无WiFi的情况下，我们可以使用，不与外界失联，手机卡号里面要有钱，我们才能正常上网、接打电话等。注册完卡号信息后，为保证这个卡能为我们正常所用，卡里需要有足够的金额。所以，就需要我们时常进行充值。如果不想要这个手机卡号了，我们就得注销掉，卡里面的钱会返还给我们，或者转到自己其他的手机卡号里。如果不想要在机房里办的卡了，我们也得需要退卡，然后把卡里面的余额退还给我们。
正文
在机房系统这个项目里，充值窗体和退卡窗体的思路是大致相同的，理清楚其中之一，另一个就很好办了。以充值为例，下面是小编做的流程图：

实现上述功能的部分代码如下：

   '查找student表中信息txtSQLStu = "select * from student_Info where cardno='" & txtCardNo.Text & "'"Set mrcStu = ExecuteSQL(txtSQLStu, MsgTextStu)'查询基础数据设定表的最低充值金额txtSQLBD = "select * from BasicData_Info"Set mrcBD = ExecuteSQL(txtSQLBD, MsgTextBD)b = mrcBD.Fields(5)'卡号不存在If mrcStu.EOF = True Then   '如果记录集指针指到最后一条记录，没有找到相应的卡号信息，弹出提示MsgBox "卡号不存在，请重新输入！", 48, "温馨提示："txtCardNo.SetFocus  '卡号文本框获得焦点txtCardNo.Text = ""txtCash.Text = ""Else'卡号存在，但已停用If Trim(txtCardNo.Text) = Trim(mrcStu.Fields(1)) And Trim(mrcStu.Fields(10)) = "不使用" ThenMsgBox "此卡已停用，请您输入正确卡号信息。", 48, "温馨提示！"txtCardNo.Text = ""txtCash.Text = ""txtCardNo.SetFocusElse'判断充值金额是否满足最低要求If Val(txtCash.Text) < b ThenMsgBox "输入金额不得低于设置的最低金额20元。", 48, "温馨提示："txtCash.SetFocustxtCash.Text = ""Else'连接recharge/student表，添加充值信息，并更新表txtSQLRe = "select * from ReCharge_Info"Set mrcRe = ExecuteSQL(txtSQLRe, MsgTextRe)txtSQLStu = "select * from student_Info where cardno='" & txtCardNo.Text & "'"Set mrcStu = ExecuteSQL(txtSQLStu, MsgTextStu)studentNo = mrcStu.Fields(1)cashPass = mrcStu.Fields(7)cashNow = cashPass + txtCash.Text       '计算充值之后，即现在的总金额=以前金额+本次充值金额.......

在这里要特别注意的地方就是，充值金额的计算。在基础数据设定中，已经设定了充值的最低金额，充值时候就派上用场了。在更新表之前，先要获取当前卡里的金额，然后再计算充值后的金额。
退卡和充值类似，小编做出的流程图如下：

结语
没有白做的一步，每做一步都算数。这周在敲机房的过程中，对数据库中各个表的理解又加深了许多。发现了之前在敲的过程中，有些地方连接的数据表是不全面的。发现了就及时补充上，让它们形成闭合循环。

机房系统（三）——【充值退卡】相关推荐

机房收费管理系统之退卡
退卡是将学生表中卡号信息删除,并将status列改为不使用. 退卡逻辑思路如下: 问题及重点代码: 1.vbCrLf=Chr(13) & Chr(10) 回车+换行符 2.文本框多行显示: ...
机房收费系统的退卡和结账
在做机房收费系统的时候为了保证核心功能的实现,我将计费时间调成了秒.这样就可以迅速,快捷地看到了收费的结果. 在这种环境下,我的机房收费系统不负众望,终于一次又一次将金额搞错,经过n次实验,将测试的结 ...
机房收费系统（二）之下机退卡
今天我又回顾了一下机房管理系统,看见了我熟悉的花费了我三天才敲好的窗体(当然想了两天),然后今天我就来总结一下下机退卡吧! 第一句话是让子窗体在父窗体中的图片框里显示! 其他的然后就是定义函数名称 ...
机房收费--充值和退卡
充值和退卡窗体在界面上非常相似,当然其过程也有点类似,那就放在一起来总结吧,先上图: 在充值的时候也需要判断充值的金额是否大于最低金额: If Val(txtaddmoney.Text) < V ...
机房收费系统——退卡
今天第一次验收,却出现了很多问题,主要就是在涉及到钱的问题上就比较混乱,出现这个问题的原因也就是因为当时思路没有理清楚就着急实现功能.出来混迟早要还的,今天自己又再一次验证了这个理论.已经退了的卡,为 ...
机房收费系统 —— 退卡
退卡逻辑判断卡号是否为空(是否输入)判断有无卡号(是否注册)判断卡号是否正在上机(上机时不能退卡)退卡更新数据库注意事项 ###换行符的添加因为在窗体中需要有一个文本框来显示"您已退卡 ...
机动车驾驶员考试系统（科目二、三）数据采集卡介绍
机动车驾驶员考试系统(科目二.三)数据采集卡介绍一.数据采集卡数据格式定义 1.1.数据流格式数据流说明数据序号数据名称单位及备注 $OBD-RT 1 钥匙状态 OFF,ACC,ON,STA ...
机房系统（十）——【结账】
机房收费系统中的结账部分,可以说是重中之重了.操作员在经历了给用户注册.充值.退卡.收取金额查询.金额返还信息查询等工作之后,要对每个操作员的的业绩进行考核,这个时候就需要看看操作员在完成上面的一系列 ...
jeston TX1/TX2 系统迁移至SD卡的正确步骤
如果是刚刚开始Nvidia jeston TX1/TX2 开发的初学者,希望本文可以帮助节省时间.首先上张图,完成配置后的 jeston TX1.载板使用的是作者自己设计的EdgeBox_EHub_t ...

机房系统（三）——【充值退卡】

机房系统（三）——【充值退卡】相关推荐

最新文章

热门文章

机房系统（三）——【充值 退卡 】

机房系统（三）——【充值 退卡 】相关推荐

最新文章

热门文章

机房系统（三）——【充值退卡】

机房系统（三）——【充值退卡】相关推荐