【机房】充值

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

窗体展示：

充值的时候需要连接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
    

然后连接学生表查看卡号是否可以使用，可以使用就把数据更新到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
            

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

欢迎交流啊~