【机房收费系统】——下机

感觉这个下机有点难~废了老大的劲，没事就琢磨琢磨快下课了就打开这个窗体调试调试一直推推推，到今天不能推了一股劲做完了，过程中也有许多坎坷，画的流程图也不是很完整，看博客也看不进去完全在未知的领域凭着之前在网吧的经验，一步一步摸爬滚打删列去表到现在取得最后的成功~~

  感觉有好多东西没有必要，比如上机的基础扣费站在老板的角度想肯定要扣啊，凭我这么多年的经验没有一个网吧是没有基础扣费的，好啦，废话不多说上图了~     后面的代码有一块可能会有冗余，没有修改见谅 啦~

Private Sub cmdDown_Click()
    
    Dim mrc As ADODB.Recordset
    Dim Msgtext As String
    Dim txtsql As String
    
    Dim mrc1 As ADODB.Recordset
    Dim MsgText1 As String
    Dim txtSQL1 As String
    
    Dim mrc2 As ADODB.Recordset
    Dim MsgText2 As String
    Dim txtSQL2 As String
    
    Dim mrc3 As ADODB.Recordset
    Dim MsgText3 As String
    Dim txtSQL3 As String
    
    Dim n As Timer
            
    txtsql = "select * from line_Info where cardno ='" & txtCardNumber.Text & "'"
    Set mrc = ExecuteSQL(txtsql, Msgtext)
    
    txtSQL1 = "select * from Online_Info where cardno ='" & txtCardNumber.Text & "'"
    Set mrc1 = ExecuteSQL(txtSQL1, Msgtext)
    
    txtSQL2 = "select * from student_Info where cardno ='" & txtCardNumber.Text & "'"
    Set mrc2 = ExecuteSQL(txtSQL2, Msgtext)
    
    txtSQL3 = "select * from basicdata_Info where cardno ='" & txtCardNumber.Text & "'"
    Set mrc3 = ExecuteSQL(txtSQL3, Msgtext)
    
    
    If Trim(txtCardNumber.Text = "") Then
            MsgBox "卡号为空，请输入卡号！", vbOKOnly + vbExclamation, "警告"
            txtCardNumber.SetFocus
    Else
    
        If mrc1.EOF Then
            MsgBox "当前卡号没有上机，请重新输入！", vbOKOnly + vbExclamation, "警告"
            txtCardNumber.Text = ""
            txtCardNumber.SetFocus
        End If
    End If
    
    txtDownDate.Text = Date
    txtDowntime.Text = Time

    txtConsumptionTime.Text = DateDiff("n", txtBoardingTime.Text, txtDowntime.Text)
    
    If txtConsumptionTime.Text < "60" And txtType.Text = mrc1.Fields(1) Then
    txtMoney.Text = "6"
    txtBalance.Text = Val(mrc2.Fields(7)) - Val(txtMoney.Text)
        mrc1.Fields(8) = txtBalance.Text
        mrc2.Fields(7) = txtBalance.Text
        
        mrc.AddNew
        mrc.Fields(0) = mrc1.Fields(1)
        mrc.Fields(1) = mrc1.Fields(0)
        mrc.Fields(2) = mrc1.Fields(2)
        mrc.Fields(3) = mrc1.Fields(3)
        mrc.Fields(4) = mrc1.Fields(4)
        mrc.Fields(5) = mrc1.Fields(5)
        mrc.Fields(6) = mrc1.Fields(6)
        mrc.Fields(7) = mrc1.Fields(7)
        mrc.Fields(8) = Date
        mrc.Fields(9) = Time
        mrc.Fields(10) = txtConsumptionTime.Text
        mrc.Fields(11) = txtMoney.Text
        mrc.Fields(12) = txtBalance.Text
        
        mrc.Update
        mrc1.Update
        mrc2.Update
    Else
    If txtConsumptionTime.Text < "60" And txtType.Text = mrc1.Fields(1) Then
    txtMoney.Text = "5"
    txtBalance.Text = Val(mrc2.Fields(8)) - Val(txtMoney.Text)
        mrc1.Fields(8) = txtBalance.Text
        mrc2.Fields(7) = txtBalance.Text
        
        mrc.AddNew
        mrc.Fields(0) = mrc1.Fields(1)
        mrc.Fields(1) = mrc1.Fields(0)
        mrc.Fields(2) = mrc1.Fields(2)
        mrc.Fields(3) = mrc1.Fields(3)
        mrc.Fields(4) = mrc1.Fields(4)
        mrc.Fields(5) = mrc1.Fields(5)
        mrc.Fields(6) = mrc1.Fields(6)
        mrc.Fields(7) = mrc1.Fields(7)
        mrc.Fields(8) = Date
        mrc.Fields(9) = Time
        mrc.Fields(10) = txtConsumptionTime.Text
        mrc.Fields(11) = txtMoney.Text
        mrc.Fields(12) = txtBalance.Text
        
        mrc.Update
        mrc1.Update
        mrc2.Update
    Else
    If txtType.Text = "临时用户" Then
        txtMoney.Text = Val(txtConsumptionTime.Text) / Val(mrc3.Fields(3)) * Val(mrc3.Fields(1))
        mrc.AddNew
        mrc.Fields(0) = mrc1.Fields(1)
        mrc.Fields(1) = mrc1.Fields(0)
        mrc.Fields(2) = mrc1.Fields(2)
        mrc.Fields(3) = mrc1.Fields(3)
        mrc.Fields(4) = mrc1.Fields(4)
        mrc.Fields(5) = mrc1.Fields(5)
        mrc.Fields(6) = mrc1.Fields(6)
        mrc.Fields(7) = mrc1.Fields(7)
        mrc.Fields(8) = Date
        mrc.Fields(9) = Time
        mrc.Fields(10) = txtConsumptionTime.Text
        mrc.Fields(11) = txtMoney.Text
        mrc.Fields(12) = txtBalance.Text
        mrc1.Fields(8) = txtBalance.Text
        mrc2.Fields(7) = txtBalance.Text
    Else
        If txtType.Text = "固定用户" Then
            txtMoney.Text = Val(txtConsumptionTime.Text) / Val(mrc3.Fields(3)) * Val(mrc3.Fields(0))
            mrc.AddNew
            mrc.Fields(0) = mrc1.Fields(1)
            mrc.Fields(1) = mrc1.Fields(0)
            mrc.Fields(2) = mrc1.Fields(2)
            mrc.Fields(3) = mrc1.Fields(3)
            mrc.Fields(4) = mrc1.Fields(4)
            mrc.Fields(5) = mrc1.Fields(5)
            mrc.Fields(6) = mrc1.Fields(6)
            mrc.Fields(7) = mrc1.Fields(7)
            mrc.Fields(8) = Date
            mrc.Fields(9) = Time
            mrc.Fields(10) = txtConsumptionTime.Text
            mrc.Fields(11) = txtMoney.Text
            mrc.Fields(12) = txtBalance.Text
            mrc1.Fields(8) = txtBalance.Text
            mrc2.Fields(7) = txtBalance.Text
        
        End If
        
    End If
    End If
End If
    
End Sub