【机房】充值

机房收费系统中的操作员可以给用户充值。

窗体展示：

充值的时候需要连接basicdata表，学生表，recharge表

先判断卡号和充值金额是否为空，然后连接basicdata表判断金额是否小于最小充值金额。

 txtSQL = "select * from BasicData_Info"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    '判断金额是否小于于最小充值金额
    If Trim(txtRecharge.Text) < mrc.Fields(5) Then
        MsgBox "充值金额不能小于最小充值金额", 64, "温馨提示"
        txtRecharge.Text = ""
        txtRecharge.SetFocus
        Exit Sub
    End If
    

  

 

  
1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
 

然后连接学生表查看卡号是否可以使用，可以使用就把数据更新到recharge表和学生表，然后在text文本框显示充值信息。

代码展示：

'连接student表查看卡号是否存在
    txtSQL = "select * from student_Info where cardno='" & Trim(txtCardNo.Text) & " '"
    Set mrc1 = ExecuteSQL(txtSQL, MsgText)
    
    If mrc1.EOF = True Then
    
        MsgBox "卡号不存在或已停用，请重新输入", 64, "温馨提示"
        txtCardNo.Text = ""
        txtCardNo.SetFocus
        Exit Sub
    
    
    Else
        If mrc1.EOF = False And mrc1.Fields(10) = "不使用" Then
            MsgBox "该卡已经停用！", vbOKOnly, "提示"
            txtCardNo.Text = ""
            txtCardNo.SetFocus

        Else
   
 
        '更新Recharg表
        txtSQL = "select * from ReCharge_Info"
        Set mrc2 = ExecuteSQL(txtSQL, MsgText)
            
            mrc2.AddNew
            mrc2.Fields(1) = mrc1.Fields(1) '学号
            mrc2.Fields(2) = mrc1.Fields(0) '卡号
            mrc2.Fields(3) = Trim(txtRecharge.Text) '充值金额
            mrc2.Fields(4) = Date '充值日期
            mrc2.Fields(5) = Time '充值时间
            mrc2.Fields(6) = mrc1.Fields(9) 'UserID
            mrc2.Fields(7) = "未结账"  '
            mrc2.Update
            
            
            '将总金额更新到student表
            cash1 = mrc1.Fields(7)
            cash2 = cash1 + Val(txtRecharge.Text)
            mrc1.Fields(7) = cash2
            mrc1.Update
            
            'text1文本框显示信息
            Text1.Text = "充值卡号:" & txtCardNo.Text & vbCrLf & vbCrLf & _
                         "原金额:" & cash1 & vbCrLf & vbCrLf & _
                        "充值金额:" & txtRecharge & vbCrLf & vbCrLf & _
                        "现有金额：" & cash2 & vbCrLf & vbCrLf & _
                        "充值日期：" & Date & vbCrLf & vbCrLf & _
                        "充值时间：" & Time & vbCrLf & vbCrLf & _
                        "充值老师：" & mrc1.Fields(9)
        
            mrc.Close
            mrc1.Close
            mrc2.Close
                        
            MsgBox "充值成功", 64, "温馨提示"
            
        End If
          
    End If
            

  

 

  
 
 

  
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
 

输入数值的时候也是需要限制输入内容的格式和字数，这里就不再赘述了。

欢迎交流啊~

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

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