【機房收費系統】結賬（2）

結賬：

Dim txtsql As String
Dim msgtext As String
Dim mrcst As ADODB.Recordset                '連接student_info表
Dim mrcca As ADODB.Recordset                '連接cancelcard_info表
Dim mrcli As ADODB.Recordset                '連接line_info表
Dim mrcre As ADODB.Recordset                '連接recharge_info表
Dim mrcch As ADODB.Recordset               '連接checkday_info表
Dim consumecash As Integer                  '定義消費金額
Dim sumcash As Integer
Dim mrccch As ADODB.Recordset
Rem:判斷操作員是否爲空
    If Trim(combouserid.Text = "") Then
        MsgBox "請選擇操作員用戶名！", vbOKOnly + vbExclamation, "警告"
        combouserid.SetFocus
    Exit Sub
    End If
    Rem：計算上期消費餘額
    txtsql = "select sum(cash) from student_info where userid='" & Trim(combouserid.Text) & "'and ischeck='" & "未結賬" & "'"
    Set mrcst = executeSQL(txtsql, msgtext)
        If IsNull(mrcst.Fields(0)) Then
            sumcash = 0
        Else
            sumcash = mrcst.Fields(0)
        End If
    Rem:計算當日消費金額
    txtsql = "select sum(consume) from line_info "
    Set mrcli = executeSQL(txtsql, msgtext)
    If IsNull(mrcli.Fields(0)) Then
        consumecash = 0
    Else
        consumecash = mrcli.Fields(0)
    End If
Rem：更新student表
    txtsql = "select * from student_info where userid='" & Trim(combouserid.Text) & "'and ischeck='" & "未結賬" & "'"
    Set mrcst = executeSQL(txtsql, msgtext)
        Do While Not mrcst.EOF
            mrcst!ischeck = "已結賬"
            mrcst.Update
            mrcst.MoveNext
        Loop
        mrcst.Close
Rem:更新canclecard表
    txtsql = "select * from cancelcard_info where userid='" & Trim(combouserid.Text) & "' and status='" & "未結賬" & "'"
    Set mrcca = executeSQL(txtsql, msgtext)
        Do While Not mrcca.EOF
            mrcca!Status = "已結賬"
            mrcca.Update
            mrcca.MoveNext
        Loop
        mrcca.Close
Rem:更新recharge表
    txtsql = "select * from recharge_info where userid='" & Trim(combouserid.Text) & "' and status='" & "未結賬" & "'"
    Set mrcre = executeSQL(txtsql, msgtext)
        Do While Not mrcre.EOF
            mrcre!Status = "已結賬"
            mrcre.Update
            mrcre.MoveNext
        Loop
        mrcre.Close
        MsgBox "結賬成功！", vbOKOnly, "提示"
        Dim ctrl As Control
        For Each ctrl In Me.Controls
            If TypeOf ctrl Is TextBox Then
                ctrl.Text = ""
            End If
        Next ctrl
    Unload Me
End Sub

結賬一定要結清楚，要不然賠錢吶！！！