【机房】退卡

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

窗体展示

退卡的时候首先要对输入的卡号进行判断，先判断是否输入卡号，然后连接学生判断卡号是否存在，是否已经注销。还需要连接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
  
 

  
 
 

  
1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
25
  
26
  
27
  
28
  
29
  
30
  
31
  
32
  
33
  
34
  
35
  
36
  
37
  
38
  
39
  
40
  
41
  
42
  
43
  
44
  
45
  
46
  
47
  
48
  
49
  
50
  
51
  
52
  
53
  
54
  
55
  
56
  
57
  
58
  
59
  
60
  
61
  
62
  
63
  
64
  
65
  
66
  
67
  
68
  
69
  
70
  
71
  
72
  
73
  
74
  
75
  
76
  
77
  
78
  
79
  
80
  
81
  
82
  
83
  
84
  
85
  
86
  
87
  
88
  
89
  
90
  
91
  
92
  
93
  
94
 

有问题及时沟通~

文章来源: blog.csdn.net，作者：张艳伟_Laura，版权归原作者所有，如需转载，请联系作者。

原文链接：blog.csdn.net/Laura__zhang/article/details/107528220