机房收费系统 之结账

一 写在前面

       结账时走了一点弯路.开始想到点击选项卡事件要进行查询，觉得一个一个小功能都能敲下来,于是我就把代码敲出来了，后来觉得这些功能也要响应单击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    Loopmrc1.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