机房收费系统 之结账

一 写在前面

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