动态生成合计

原创 2003年08月01日 14:58:00

在最近的项目开发过程中,由于客户的需要,要对数据库中相同种类的货物进行汇总统计,经过多方面查阅,发现网上这方面的东西缺乏,于是就写了一个过程来实现这一功能。由不足之处请大家多多指正,多谢

程序中用到了第三方控件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<conm then               //跳过合计

  begin

  he:=false;

  continue;                              //执行下一循环 跳过本循环

  end;

 end;

  if (vsgrid.TextMatrix[record_flag,0]<>vsgrid.TextMatrix[record_flag+1,0]) then   //判断相邻纪录是否同类型

       begin                   //不相同则:

        he:=true;

        vsgrid.AddItem(vsgrid.textmatrix[record_flag,0]+'合计',record_flag+1); //record_flag处增加合计行

          for comn_num:=5 to vsgrid.Cols-1 do //循环计算要合计的字段值

          begin heji:=0;

            for record_flag2:=conm to record_flag do   //conm处开始计算

              begin

                if (trim(vsgrid.TextMatrix[0,col])='周计划') or (trim(vsgrid.TextMatrix[0,comn_num])='上周欠产') or (trim(vsgrid.TextMatrix[0,comn_num])='当日')

                  or (trim(vsgrid.TextMatrix[0,comn_num])='累计') or (trim(vsgrid.TextMatrix[0,comn_num])='欠产') then

                  begin

            //      if (vsgrid.TextMatrix[record_flag,6]='直供机') or (vsgrid.TextMatrix[record_flag,6]='内提机') then

                   heji:=strtoint(vsgrid.TextMatrix[record_flag2,comn_num])+heji;  //保存合计值

                   vsgrid.Select(record_flag+1,comn_num);                 //

                   vsgrid.CellForeColor:= clwhite;                   //给合计换颜色

                   vsgrid.Text:=inttostr(heji);                      //vsgridcell负值

                   vsgrid.Select(record_flag+1,11);

                   vsgrid.Text:=vsgrid.TextMatrix[record_flag,11];

                   vsgrid.Select(record_flag+1,12);

                   vsgrid.Text:=vsgrid.TextMatrix[record_flag,12];

                  end;

              end;

              vsgrid.Select(record_flag+1,col);

              vsgrid.CellBackColor:=clhighlight; //改变背景颜色

          end;

       conm:=record_flag+2;     //增加合计后 conm+2 跳过合计

       ceshi:=vsgrid.Rows;      //vsgrid增加了一行,重新负值

      end;

     end;

 except

 kk:=vsgrid.Rows-record_flag;

 end;            

//由于当循环到最后两条记录时,record_flag+1不存在所以有一条记录无法计算,在这里处理,代码如下:

 kk:=vsgrid.Rows-record_flag;       //计算行数与比较过的行数之差

 if kk>1 then ll:=1 else ll:=0;

    if (record_flag+kk)=vsgrid.Rows then

     begin

      vsgrid.AddItem(vsgrid.textmatrix[record_flag+kk-1,0]+'合计',record_flag+kk);

          for comn_num:=5 to vsgrid.Cols-1 do

          begin heji:=0;

            for record_flag2:=conm to record_flag+ll do

              begin

                if (trim(vsgrid.TextMatrix[0,col])='周计划') or (trim(vsgrid.TextMatrix[0,comn_num])='上周欠产') or (trim(vsgrid.TextMatrix[0,col])='当日')

                  or (trim(vsgrid.TextMatrix[0,col])='累计') or (trim(vsgrid.TextMatrix[0,comn_num])='欠产') then

                  begin

                   heji:=strtoint(vsgrid.TextMatrix[record_flag2,comn_num])+heji;

                   vsgrid.Select(record_flag+kk,comn_num);

                   vsgrid.CellForeColor:= clwhite;

                   vsgrid.Text:=inttostr(heji);

                   vsgrid.Select(record_flag+kk,11);

                   vsgrid.Text:=vsgrid.TextMatrix[record_flag+kk-1,11];

                   vsgrid.Select(record_flag+kk,12);

                   vsgrid.Text:=vsgrid.TextMatrix[record_flag+kk-1,12];

                  end;

              end;

              vsgrid.Select(record_flag+kk,comn_num);

              vsgrid.CellBackColor:=clhighlight;

          end;

        exit;

     end;

上述算法很简单,首先把相邻的两Rows德number付给两个变量,然后比较这两行的种类字段值,相同的话,继续负值,不相同的话,就在Rows值最大的行上插入和集字段,然后在这一行上合计要进行合计的字段值,合计完毕后,跳过合计行,继续执行。由于当循环到最后两条记录时,最大行+1不存在,所以有一条记录无法计算,程序最后对这种情况单独处理。

代码在win2k server+sql 2000企业版中测试通过

把这段代码写出来,供大家参考,如果你有什么好的方法,请联系:lsl@haiersoft.com.cn

springmvc+activiti 完美整合- 流程在线设计+代码生成器+UI快速开发库,提高一半的开发效率

JEECG(J2EE Code Generation) 是一款基于代码生成器的智能开发平台,采用代码生成+手工MERGE半智能开发模式, 可以帮助解决Java项目60%的重复工作,让开发更多关注业务逻...
  • bestlove12345
  • bestlove12345
  • 2016年05月27日 06:57
  • 2376

java动态生成pdf含表格table和 合并两个pdf文件功能

1.首先一样需要maven依赖包: com.itextpdf itextpdf 5.5.10    com.itextpdf ...
  • TOP__ONE
  • TOP__ONE
  • 2017年03月24日 19:25
  • 1804

使用JavaScript实现动态创建含合并单元格(行)的表单

在HTML DOM中,Table中的行数据是可以通过JavaScript的函数方法insertRow(index)动态增加的,通过insertCell(index)增加单元格。 其中,比较麻烦的是合并...
  • xiaoyw
  • xiaoyw
  • 2016年04月29日 10:23
  • 4763

算法合计之动态规划(高)

  • 2010年08月11日 15:06
  • 255KB
  • 下载

JavaWeb项目动态导出Excel可弹出下载(基于POI和java反射机制,可选择导出项,读取数据库注释作为表头,可合计)

说明:由于公司项目需求,需要将数据导出成Excel表格,并且可选择导出项,选择合计项,可下载。项目使用的Spring+Mybatis+SpringMVC框架,利用Apache POI导出Excel。因...
  • stickzone
  • stickzone
  • 2016年03月11日 14:10
  • 1685

动态生成SNMP的MIB库

  • 2018年01月17日 16:14
  • 8KB
  • 下载

动态生成控件

  • 2018年01月13日 09:12
  • 29.72MB
  • 下载

动态生成二维码

  • 2018年01月15日 15:28
  • 34.04MB
  • 下载

动态生成移动路径

  • 2016年09月10日 11:29
  • 20KB
  • 下载

jasperreport 6.4.1报表动态列,以及生成导出html

  • 2017年11月07日 16:51
  • 41KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:动态生成合计
举报原因:
原因补充:

(最多只允许输入30个字)