机房收费管理系统之退卡
本文共 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 死锁 Deadlock found when trying to get lock； try restarting transaction
查看>>
mysql 死锁(先delete 后insert)日志分析
查看>>
MySQL 死锁了，怎么办？
查看>>
MySQL 深度分页性能急剧下降，该如何优化？
查看>>
MySQL 深度分页性能急剧下降，该如何优化？
查看>>
MySQL 添加列，修改列，删除列
查看>>
mysql 添加索引
查看>>
MySQL 添加索引，删除索引及其用法
查看>>
mysql 状态检查,备份，修复
查看>>
MySQL 用 limit 为什么会影响性能？
查看>>
MySQL 用 limit 为什么会影响性能？有什么优化方案？
查看>>
MySQL 用户权限管理：授权、撤销、密码更新和用户删除（图文解析）
查看>>
mysql 用户管理和权限设置
查看>>
MySQL 的 varchar 水真的太深了！
查看>>
mysql 的GROUP_CONCAT函数的使用（group_by 如何显示分组之前的数据）
查看>>
MySQL 的instr函数
查看>>
MySQL 的mysql_secure_installation安全脚本执行过程介绍
查看>>
MySQL 的Rename Table语句
查看>>
MySQL 的全局锁、表锁和行锁
查看>>
mysql 的存储引擎介绍
查看>>