【机房收费系统】结账（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

结账一定要结清楚，要不然赔钱呐！！！