机房收费管理系统之退卡
本文共 1671 字，大约阅读时间需要 5 分钟。
退卡是将学生表中卡号信息删除，并将status列改为不使用。
退卡逻辑思路如下：
问题及重点代码：
1.vbCrLf=Chr(13) & Chr(10) 回车+换行符 2.文本框多行显示： Multiline = True 意思是可决定一个控件可以接受多行文本判断卡号
If Trim(txtCardNo.Text) = "" Then MsgBox "卡号为空，请输入卡号", , "提示" txtCardNo.SetFocus Exit Sub End If
判断该卡号是否下机
txtSQL1 = "select * from OnLine_info where cardno='" & Trim(txtCardNo.Text) & "'" Set mrc1 = ExecuteSQL(txtSQL1, Msgtext1) If mrc1.EOF = False Then MsgBox "该卡号没有下机，请下机后退卡", , "提示" txtCardNo.Text = "" txtCardNo.SetFocus Exit Sub End If
添加 一行cancelcard 表
txtSQL2 = "select * from cancelcard_info" Set mrc2 = ExecuteSQL(txtSQL2, Msgtext2) With mrc2 mrc2.AddNew .Fields(0) = Trim(mrc.Fields(1)) .Fields(1) = Trim(mrc.Fields(0)) .Fields(2) = Trim(mrc.Fields(7)) .Fields(3) = Date .Fields(4) = Time .Fields(5) = Trim(mrcOnwork.Fields(0)) .Fields(6) = "不使用" .Fields(7) = "未结账" mrc.Update mrc2.Update End With
显示该卡号信息
a = Val(mrc2.Fields(1)) b = Val(mrc2.Fields(2)) c = mrc2.Fields(3) d = Val(mrc2.Fields(4)) e = Val(mrc2.Fields(5)) Text3.Text = "退卡卡号：" & a & vbCrLf & "应退金额:" & b & vbCrLf & "退卡日期:" & c & vbCrLf & "退卡时间：" & Format(Now(), "HH:mm:ss") txtRecharge.Text = b txtSQL3 = "delete from student_info where cardno='" & Trim(txtCardNo.Text) & "'" Set mrc3 = ExecuteSQL(txtSQL3, Msgtext3) MsgBox "退卡成功", , "提示"
转载地址：http://jkep.baihongyu.com/
你可能感兴趣的文章
MySQL 用 limit 为什么会影响性能？
查看>>
MySQL 用 limit 为什么会影响性能？有什么优化方案？
查看>>
MySQL 用户权限管理：授权、撤销、密码更新和用户删除（图文解析）
查看>>
mysql 用户管理和权限设置
查看>>
MySQL 的 varchar 水真的太深了！
查看>>
mysql 的GROUP_CONCAT函数的使用（group_by 如何显示分组之前的数据）
查看>>
MySQL 的instr函数
查看>>
MySQL 的mysql_secure_installation安全脚本执行过程介绍
查看>>
MySQL 的Rename Table语句
查看>>
MySQL 的全局锁、表锁和行锁
查看>>
mysql 的存储引擎介绍
查看>>
MySQL 的存储引擎有哪些？为什么常用InnoDB？
查看>>
Mysql 知识回顾总结-索引
查看>>
Mysql 笔记
查看>>
MySQL 精选 60 道面试题（含答案）
查看>>
mysql 索引
查看>>
MySQL 索引失效的 15 种场景！
查看>>
MySQL 索引深入解析及优化策略
查看>>
MySQL 索引的面试题总结
查看>>
mysql 索引类型以及创建
查看>>