动态生成合计计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:30:26
来源 100Test.Com百考试题网

　　在最近的项目开发过程中，由于客户的需要，要对数据库中相同种类的货物进行汇总统计，经过多方面查阅，发现网上这方面的东西缺乏，于是就写了一个过程来实现这一功能。由不足之处请大家多多指正，多谢
　　程序中用到了第三方控件vsflexgrid,过程中变量vsgrid可以换成stringgrid但其中的部分代码要做必要的删除。
　　procedure heji(vsgrid:tvsflexgrid).
　　var
　　comn_num,heji,kk,ll:integer. //comn_num： vsgrid的列数 heji:保存合计值 kk:保存程序读取的行数之差
　　he:boolean.
　　begin
　　ceshi:=vsgrid.Rows-1.
　　he:=false.
　　try
　　for record_flag:=conm to ceshi do
　　begin
　　if he=true then begin //为真则合计出现过
　　if record_flag