博客
关于我
机房收费管理系统之退卡
阅读量:233 次
发布时间:2019-02-28

本文共 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学习总结(74)——慢SQL!压垮团队的最后一根稻草!
查看>>
Mysql学习总结(75)——并发量大、数据量大的互联网业务数据库设计军规
查看>>
Mysql学习总结(76)——MySQL执行计划(explain)结果含义总结
查看>>
Mysql学习总结(77)——温故Mysql数据库开发核心原则与规范
查看>>
Mysql学习总结(78)——MySQL各版本差异整理
查看>>
Mysql学习总结(79)——MySQL常用函数总结
查看>>
Mysql学习总结(7)——MySql索引原理与使用大全
查看>>
Mysql学习总结(80)——统计数据库的总记录数和库中各个表的数据量
查看>>
Mysql学习总结(81)——为什么MySQL不推荐使用uuid或者雪花id作为主键?
查看>>
Mysql学习总结(82)——MySQL逻辑删除与数据库唯一性约束如何解决?
查看>>
Mysql学习总结(83)——常用的几种分布式锁:ZK分布式锁、Redis分布式锁、数据库分布式锁、基于JDK的分布式锁方案对比总结
查看>>
Mysql学习总结(84)—— Mysql的主从复制延迟问题总结
查看>>
Mysql学习总结(85)——开发人员最应该明白的数据库设计原则
查看>>
Mysql学习总结(8)——MySql基本查询、连接查询、子查询、正则表达查询讲解
查看>>
Mysql学习总结(9)——MySql视图原理讲解与使用大全
查看>>
Mysql学习笔记 - 在Centos7环境下离线安装Mysql
查看>>
MySQL学习笔记十七:复制特性
查看>>
Mysql学习第一课-mysql的定义及sql语句
查看>>
mysql安全模式: sql_safe_updates
查看>>
mysql安装,卸载,连接
查看>>