结账:
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
结账一定要结清楚,要不然赔钱呐!!!