第一次机房收费系统之退卡

流程图

代码部分

Private Sub Command1_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset      '定义student数据集对象
    Dim mrc1 As ADODB.Recordset     '定义Online数据集对象
    Dim mrc2 As ADODB.Recordset     '定义退卡表
    Dim a, b, c, d, e As String
    If Not IsNumeric(Trim(Text1.Text)) Then '限制输入框仅为数字
        MsgBox "请输入卡号"
        Text1.Text = ""
        Exit Sub
    End If
        
        txtSQL = "select * from student_Info where cardno = '" & Trim(Text1.Text) & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF = True Then
        MsgBox "该卡未被注册"
        Text1.Text = ""
        Exit Sub
    End If
       
        txtSQL = "select * from Online_Info where cardno = '" & Trim(Text1.Text) & "'"
        Set mrc1 = ExecuteSQL(txtSQL, MsgText)
    
    '查看是否退卡
    If mrc1.EOF = False Then
            MsgBox "该卡号未下机，请下机后再退卡"
            Text1.Text = ""
        Exit Sub
    End If
        txtSQL = "select * from CancelCard_Info"
        Set mrc2 = ExecuteSQL(txtSQL, MsgText)
        
    '将Student表赋值给退卡表
        With mrc2
            mrc2.AddNew
            mrc2.Fields(0) = Trim(mrc.Fields(1))
            mrc2.Fields(1) = mrc.Fields(0)
            mrc2.Fields(2) = mrc.Fields(7)
            mrc2.Fields(3) = Date
            mrc2.Fields(4) = Time
            mrc2.Fields(5) = mrc.Fields(9)
            mrc2.Fields(6) = mrc.Fields(11)
            mrc.Update
            mrc2.Update
        End With
            a = Val(mrc2.Fields(1)) '卡号
            b = Val(mrc2.Fields(2)) '应退金额
            c = Val(mrc2.Fields(3)) '退卡日期
            d = Val(mrc2.Fields(4)) '退卡时间
            e = Val(mrc2.Fields(5)) '操作员
        Label3.Caption = "退卡卡号：" & a & vbCrLf & "应退金额:" & b & vbCrLf & "退卡日期:" & c & vbCrLf & "退卡时间：" & Format(Now(), "HH:mm:ss") '获取当前时间
        Text2.Text = b '显示退卡金额
            MsgBox "退卡成功"
            Text1.Text = ""
            Text2.Text = ""
            Label3.Caption = ""
End Sub