【机房】退卡

原创于 2020-07-23 08:47:47 发布 · 398 阅读

0 ·

CC 4.0 BY-SA版权

机房收费系统VB版专栏收录该内容

24 篇文章

订阅专栏

本文详细介绍了机房收费系统中退卡功能的实现过程，包括卡号验证、上机状态检查、信息展示及数据更新至退卡表的完整流程。

机房收费系统中的操作员可以设置退卡

窗体展示
在这里插入图片描述

退卡的时候首先要对输入的卡号进行判断，先判断是否输入卡号，然后连接学生判断卡号是否存在，是否已经注销。还需要连接online表判断卡号是否正在上机，正在上机的账户是不可以退卡的。

退卡完成之后将数据更新到退卡表。

代码展示：

Private Sub cmdok_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    Dim mrc1 As ADODB.Recordset
    Dim mrc2 As ADODB.Recordset
    Dim mrc3 As ADODB.Recordset
    
   '判断卡号是否为空
   
    If Trim(txtCardNo.Text = "") Then
        MsgBox "请输入卡号！", 48, "提示"
        txtCardNo.SetFocus
    Else
    
        '卡号为数字
        
        If Not IsNumeric(txtCardNo.Text) Then
            MsgBox "请输入数字！", 48, "提示"
            txtCardNo.SetFocus
        Else
        
                
            '判断卡号是否存在
            
            txtSQL = "select * from student_info where cardno = '" & txtCardNo.Text & "'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)
            
            If mrc.EOF Then
                MsgBox "卡号不存在或已经注销，请重新输入卡号！", 48, "提示"
                txtCardNo.SetFocus
                txtCardNo.Text = ""
            
            
            '已经退卡
            
            ElseIf Trim(mrc.Fields(10)) = Trim("不使用") Then
            
                    MsgBox "此卡已退！", 48, "提示"
                    txtCardNo.SetFocus
                    txtCardNo.Text = ""
                Else
            
                '判断是否正在上机
                
                txtSQL = "select * from online_info where cardno = '" & txtCardNo.Text & "'"
                Set mrc1 = ExecuteSQL(txtSQL, MsgText)
                    If Not mrc1.EOF Then
                        MsgBox "此卡正在上机，请先下机再退卡！", 48, "提示"
                        txtCardNo.SetFocus
                        txtCardNo.Text = ""
                    Else
            
            '显示信息-----在一个文本框如何显示多行数据？vbcrlf字符串常数
            
                
                Text1.Text = "" & vbCrLf & vbCrLf & _
                                  "充值卡号：" & txtCardNo.Text & vbCrLf & vbCrLf & _
                                  "退款金额：" & mrc.Fields(7) & vbCrLf & vbCrLf & _
                                  "退卡日期：" & Date & vbCrLf & vbCrLf & _
                                  "退卡时间：" & Time & vbCrLf & vbCrLf & _
                                  "办理老师：" & mrc.Fields(9)
                                  
                '更新到student表
                
                    txtSQL = "update student_info set status = '" & "不使用" & "'" & "where cardno = '" & txtCardNo.Text & "'"
                    Set mrc2 = ExecuteSQL(txtSQL, MsgText)
                    
                '将数据添加到cancel card表种
                
                    txtSQL = "select * from cancelcard_info"
                    Set mrc3 = ExecuteSQL(txtSQL, MsgText)
                        mrc3.AddNew
                            
                            mrc3.Fields(1) = txtCardNo.Text
                            mrc3.Fields(2) = mrc.Fields(7)
                            mrc3.Fields(3) = Date
                            mrc3.Fields(4) = Time
                            mrc3.Fields(0) = Trim(mrc.Fields(1))
                            mrc3.Fields(5) = mrc.Fields(9)
                            mrc3.Fields(6) = "未结账"
                        mrc3.Update
                        mrc3.Close
                    
                    MsgBox "退卡成功", vbOKOnly, "恭喜"
                    
                    txtCardNo.Text = ""
                    Text1.Text = ""
                End If
            End If
        End If
    End If
End Sub