机房收费系统——退卡

机房收费系统——退卡机房收费系统——退卡

大家好,又见面了,我是你们的朋友全栈君。

今天第一次验收,却出现了很多问题,主要就是在涉及到钱的问题上就比较混乱,出现这个问题的原因也就是因为当时思路没有理清楚就着急实现功能。出来混迟早要还的,今天自己又再一次验证了这个理论。已经退了的卡,为什么还能上机,而且卡里还有钱?出现这种情况自己也大吃了一惊,后来又重新理了一遍,现在应该就没有问题了。

下面就谈谈怎么退卡:首先是进行一系列的判断,判断卡号是否为空,是否为数字,接着进行查询,然后再进行判断,判断卡号是否存在,是否已经退卡,是否正在上机,最后就是对数据的进行操作,更新student_Info表中的status字段为“不使用”,cash=0,并将相应的student_Info表中的部分信息插入到CancelCard_Info表中。

具体思路如图
机房收费系统——退卡

代码如下

'判断卡号是否为空
    If Not Testtxt(txtCardno.Text) Then
        MsgBox "请输入卡号!", vbOKOnly + vbExclamation, "提示"
        txtCardno.SetFocus
        Exit Sub
    End If
'新建查询
    strSQL = "select status,studentNo,Cash,UserID,Ischeck from student_Info where cardno = '" & txtCardno.Text & "'"
    Set mrc = ExecuteSQL(strSQL, msgText)
    
    studentNo = Trim(mrc.Fields(1))
    Cash = mrc.Fields(2)
    UserID = mrc.Fields(3)
    Ischeck = mrc.Fields(4)
'判断是否注册
    If mrc.EOF Then
        MsgBox "没有该卡号!", vbOKOnly + vbExclamation, "提示"
        txtCardno.SetFocus
        txtCardno.Text = ""
        Exit Sub
'判断是否退卡
    ElseIf Trim(mrc.Fields(0)) = Trim("不使用") Then
        MsgBox "此卡已退卡!", 48, "提示"
        txtCardno.SetFocus
        txtCardno.Text = ""
        Exit Sub
    Else
'判断是否正在上机
        strSQL = "select * from Online_Info where cardno= '" & txtCardno.Text & "'"
        Set mrcO = ExecuteSQL(strSQL, msgText)
        
        If Not mrcO.EOF Then
            MsgBox "此卡正在上机,请先下机再退卡!", 48, "提示"
            txtCardno.SetFocus
            txtCardno.Text = ""
            Exit Sub
        End If
'更新student_Info表

        strSQL = "update student_Info set status = '" & "不使用" & "'" & "where cardno = '" & txtCardno.Text & "'"
        Set mrc2 = ExecuteSQL(strSQL, msgText)

        strSQL = "update student_Info set cash= '" & Val(0) & "'" & "where cardno = '" & txtCardno.Text & "'"
        Set mrcS = ExecuteSQL(strSQL, msgText)
'把数据插入到CancelCard_Info表
        strSQL = "select * from CancelCard_Info"
        Set mrcC = ExecuteSQL(strSQL, msgText)
        
        mrcC.AddNew
        mrcC.Fields(0) = studentNo
        mrcC.Fields(1) = txtCardno.Text
        mrcC.Fields(2) = Cash
        mrcC.Fields(3) = Date
        mrcC.Fields(4) = Time
        mrcC.Fields(5) = UserID
        mrcC.Fields(6) = Ischeck
        mrcC.Update
        mrcC.Close
        
        txtReturnAmount.Text = Cash
        
        txtMessage.Text = "退款卡号:" & txtCardno.Text & vbCrLf & vbCrLf & _
                          "应退款金额:" & Cash & vbCrLf & vbCrLf & _
                          "退款日期:" & CancelDate & vbCrLf & vbCrLf & _
                          "退款时间:" & CancelTime & vbCrLf & vbCrLf & _
                          "办理退卡老师:" & UserID
        
        MsgBox "退卡成功!", vbOKOnly + vbExclamation, "提示"
    End If

最后在往CancelCard_Info表中插入数据是,也可以使用 insert 语句

    strSQL = "insert into CancelCard_Info values('" & studentNo & "','" & txtCardno.Text & "','" & Cash & "','" & Date & _
             "','" & Time & "','" & UserID & "','" & Ischeck & "')"
    Call ExecuteSQL(strSQL, msgText)

两种方法实现的功能是一样的,但是我们因为敲学生的问题,一开始都比较习惯用select语句,但是insert语句用起来也挺简单的。

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/105790.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)
blank

相关推荐

  • ODT 学习笔记「建议收藏」

    ODT 学习笔记「建议收藏」珂朵莉,要一直幸福下去哟!warning:本文在大白天书写,脑子可能不大好用。目前代码选自题解,等有时间自己写一下。简介ODT(OldDriverTree(中文译名张舟树),又称ChthollyTree,即众人皆知的珂朵莉树)是一种非常暴力的思想或者做法(注意我没有说是数据结构)简单来说,其核心思想是把一段区间推平(这也是其适用的地方——区间赋值),推平之后,原数列变成一段一段的了(每段的数值相同),然后就可以搞事了。ODT在随机数据下,复杂度近似O(mlogn)O(mlog

  • k8s解除service端口限制

    k8s解除service端口限制

  • mac键位的键盘_键盘键位图高清126键

    mac键位的键盘_键盘键位图高清126键mac和Windows在键盘上还是有一些差距的,在习惯了Windows的键位之后还是很难第一时间转换到mac的键位上,为大家整理了一下mac的键位分布,和常用的快捷键。Mac键盘键位分布【F1~12】与传统键盘不同的是,Mac键盘,只是多了几个功能键,可以简单将Mac上的【fn+F112】对应Win上【F112】,其Mac环境上的功能,如下图标注所示。Command键(⌘)Command键是mac独有的一个按键,大多数的快捷组合键都是和它配合使用,相当于Windows下的Ctrl键的功能,但

  • TCP长连接数据传输(同步方式)[通俗易懂]

    TCP长连接数据传输(同步方式)

  • Eclipse快捷键_10个最高效的快捷键

    1. ctrl+shift+r:打开资源    这可能是所有快捷键组合中最省时间的了。这组快捷键可以让你打开你的工作区中任何一个文件,而你只需要按下文件名或mask名中的前几个字母,比如applic*.xml。美中不足的是这组快捷键并非在所有视图下都能用。2. ctrl+o:快速outline    如果想要查看当前类的方法或某个特定方法,但又不想把代码拉上拉下,也不想使用查找功能的话

  • PyQt5高级界面控件之QThread(十二)

    PyQt5高级界面控件之QThread(十二)QThread前言QThread是Qt线程类中最核心的底层类。由于PyQt的跨平台特性,QTHread要隐藏所有与平台相关的代码要使用QThread开始一个线程,可以创建它的一个子类,然后覆盖器其QThread.run()函数classThread(QThread):def__init__(self):super(Thread,self)._…

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号