机房收费系统关于结账和账单生成的计算问题

         在做这一块的时候,会涉及很多的计算问题,当然都是些加减乘除的简单计算,虽然简单,但是要想用代码实现它,就有些晕了,因为我们计算的数据都来自于数据库.

         其实这些计算的程序代码是很简单的,因为我们不曾接触,所以大家会觉得乱,不知道如何下手.虽然如此,但是大家还是依靠自己的想法写出了代码,只是方法不一样,举个简单的例子:

         比如我们要计算数据库中充值记录表Recharge_Info中的字段addmoney的所有数据的总和，即充值的总金额summoney.

         大部分人都是用宿主语言实现的累加，即使用查询语句查出所有的记录，再利用循环语句将字段addmoney中的所有数据遍历，然后累加，具体实现如下：

           

    txtSQL = "select * from ReCharge_Info "
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.RecordCount > 0 Then
        rechargemoney = 0
        Do While Not mrc.EOF
            rechargemoney = rechargemoney + mrc!addmoney
            mrc.MoveNext
        Loop
    End If
    mrc.Close

 

        但是我在一开始的时候就没想过用宿主语言去进行累加,因为我清楚的记得在学习数据库的时候,select的语句是可以使用数学函数的,可以用来汇总和聚合数据,比如:COUNT(字段名或*号)用于统计结果中记录的数目,SUM()函数将传递给它作为参数的,表达式中的所有值累加在一起,表达式既可以是列的名字,也可以是一个计算的结果,AVG()函数则是用来求结果集中的一个列或者一个表达式的平均值，还有MAX()和MIN()，相信大家都知道这两个函数是干嘛的吧。没错！是求结果集中的极值的。

       了解到这些，我们就可以采用另一种方法，将计算任务交给DBMS。具体实现如下：

    txtSQL = "select sum(addmoney) from ReCharge_Info "
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.Fields(0) > 0 Then
        rechargemoney = mrc.Fields(0)
    Else
        rechargemoney = 0
    End If
    mrc.Close

 

        我们看到这两种方法的代码量差不多，但是执行效率和系统开销是有区别的，尤其是在有大量数据的情况下。试想如果有10万条记录，那么应用程序就得做10万次的循环，这可是一笔不小的时间开销啊。

        再者，要是让你返回结果中的最大值和最小值，你得做多少次的比较运算呢？虽然说DBMS和SQL是原始数据的提供程序，并不是用来完成重要的数据处理的，但是一些最基础的工作还是可以交给它们去做的。