机房收费系统 之结账

一 写在前面

       结账时走了一点弯路.开始想到点击选项卡事件要进行查询，觉得一个一个小功能都能敲下来,于是我就把代码敲出来了，后来觉得这些功能也要响应单击combox事件，于是我又开始补充。也没理顺，就着急敲了。到后来越想越乱，就突然觉得复杂了起来。

实际那等我敲完之后，做总结想理理流程的时候，才豁然开朗。

所以说，要有全局观。从一开始，不要急着敲代码，要先理清思路，找到方向，在去行动，这就让我们少走好多弯路。现在就是把整理后的写在下面了。难免出各种错误，请各位不吝赐教。

二 对所用到的表进行分析。

三 对流程进行分析。

四 几个部分的实现过程：

  1从数据库中调操作员。通过下拉选项显示。

txtsql1 = "select * from user_info where level='" & "操作员" & "'" Set mrc1 = ExecuteSQL(txtsql1, msgString1) Do While Not mrc1.EOF Combo1.AddItem mrc1.Fields(0) mrc1.MoveNext Loop mrc1.Close

2汇总查询售卡张数和查询充值金额。其他查询退卡等也都大同小异。

 '汇总查询售卡张数 If Combo1.Text = "" Then txtSaleAll1.Text = "" txtCashAll1.Text = "" txtSale1.Text = "" txtCancel1.Text = "" Else txtSale = "select * from student where ischeck ='" & "未结账" & "'" & " and userId='" & Trim(Combo1.Text) & "'" Set mrcSale = ExecuteSQL(txtSale, msgSale) If mrcSale.EOF = False Then txtSale1.Text = Val(mrcSale.RecordCount) Else txtSale1.Text = 0 End If mrcSale.Close '汇总查询充值金额 txtRecharge = "select * from reCharge where ischeck ='" & "未结账" & "'" & " and userId='" & Trim(Combo1.Text) & "'" Set mrcRecharge = ExecuteSQL(txtRecharge, msgRecharge) ri = 0 Do While Not mrcRecharge.EOF ri = ri + Val(mrcRecharge.Fields(3)) mrcRecharge.MoveNext Loop txtRecharge1.Text = Trim(ri) mrcRecharge.Close End If