Fastreport报表合并单元格技巧

Fastreport报合并单元格技巧 在做企业的ERP,SCM,CRM等等的软件中, 经常要做的就是报表, 如财务报表, 生产车间报表。很多时候企业可能对报表格式提出特别的要求，但作为软件开发公司，能开发出 符合客户要求的报表就显得十分迫切。以下我对报表的合并技巧作一个总结，希望对后面要 做类似报表的同事有些帮助。 合并报表1：江苏美的春花电器股价有限公司-委外加工材料月结表 在没有合并之前显示如下： 在对供应商编码和材料编码进行合并后显示如下： 1 对于合并功能，其实fastreport是有的，但这个功能做得远远不够，不能按客户的要求进行合 并，要完成上述功能，我是通过下面的做出来的。 这种要求的合并要结合Delphi与Fastreport来协作完成。首先然前台Delphi相应方法中编写有关的算法，然后在Fastreport中根据这种算法作相应的显示。 操作方法如下： 1．选中Fastreport的主数据项，双击OnBeforePrint方法，在begin end 之间编写代码： 2 1．MainData.Height：为每行数据显示的高度， 2．[CLTAutoreporthead_AutoreportlineOfAutoreporthead."Flag"]：表示要合并的行数（Delphi 算法）， 3．memo7.visible：是否显示单元格， [CLTAutoreporthead_AutoreportlineOfAutoreporthead."Search_Flag"]=2：（Delphi算法）， 只要在Delphi中把要合并的行数与列用字段Flag(控制行数)，Search_Flag（控制是否可见,2 为可见）算出来，再在FastReport中显示出来，那么合并功能就算搞好。 以下是在Delphi中的合并算法代码： function TAutoReportProcessMonthForm.GetFastRptObj: TBizObject; var BizHead,BizLine:TBizObject; i,j,k,n,m,p:Integer; Head:TAutoreporthead; Line:TAutoreportline; slItemVendor,slVendors:TStringList; strItemVendor,strItemVendor2,strVendor:String; VendorsCount:array of Integer; begin MyCheck; Head:=TAutoreporthead.Create(false,true); Head.UserName:=LoginUser.UserName; for i:=1 to dgView.RowCount-1 do if dgView.RowProps[i].Checked and (not dgView.IsRowEmpty(i))then begin Line:=TAutoreportline.Create; self.SetDgDataToBizObject(i,dgView,TBizObject(line)); head.AutoreportlineOfAutoreporthead.Add(line); end; //合并报表算法开始 added by wbc, 2009-04-23 slItemVendor:=TStringList.Create; slVendors:=TStringList.Create; for i:=0 to head.AutoreportlineOfAutoreporthead.Count-1 do begin strItemVendor:=TAutoreportline(head.AutoreportlineOfAutoreporthead.Items[i]).Item_Code+TAut oreportline(head.AutoreportlineOfAutoreporthead.Items[i]).Vendor_Code; if Pos(strItemVendor,slItemVendor.Text)=0 then slItemVendor.Add(strItemVendor); 3 strVendor:=TAutoreportline(head.AutoreportlineOfAutoreporthead.Items[i]).Vendor_Code; if Pos(strVendor,slVendors.Text)=0 then slVendors.Add(strVendor); end; //showMessage(slVendors.Text); setLength(VendorsCount,slVendors.Count); for i:=0 to slVendors.Count-1 do begin VendorsCount[i]:=0; for j:=0 to head.AutoreportlineOfAutoreporthead.Count-1 do if sameText(slVendors.Strings[i],TAutoreportline(head.AutoreportlineOfAutoreporthead.Items[j]).Ven dor_Code) then begin VendorsCount[i]:=VendorsCount[i]+1; end; end; setLength(MyVendors,slVendors.Count); for i:=0 to slVendors.Count-1 do begin MyVendors[i]:=TMyVendor.Create; MyVendors[i].Vendor_Code:=slVendors.Strings[i]; setLength(MyVendors[i].XVendors,VendorsCount[i]); n:=0; for j:=0 to head.AutoreportlineOfAutoreporthead.Count-1 do if sameText(slVendors.Strings[i],TAutoreportline(head.AutoreportlineOfAutoreporthead.Items[j]).Ven dor_Code) then begin MyVendors[i].XVendors[n]:=TXVendor.Create; MyVendors[i].XVendors[n].index:=j; //MyVendors[i].XVendors[n].flag:=MyVendors[i].XVendors[n].flag+1; //MyVendors[i].XVendors[n].search_flag:=0; n:=n+1; end; end; for i:=0 to head.AutoreportlineOfAutoreporthead.Count-1 do begin n:=0; strItemVendor:=TAutoreportline(head.AutoreportlineOfAutoreporthead.Items[i]).Item_Code+TAut oreportline(head.AutoreportlineOfAutoreporthead.Items[i]).Vendor_Code; 4 for j:=i to head.AutoreportlineOfAutoreporthead.Count-1 do begin strItemVendor2:=TAutoreportline(head.AutoreportlineOfAutoreporthead.Items[j]).Item_Code+TAu toreportline(head.AutoreportlineOfAutoreporthead.Items[j]).Vendor_Code; if sameText(strItemVendor,strItemVendor2) then n:=n+1; end; TAutoreportline(head.AutoreportlineOfAutoreporthead.Items[i]).Flag:=n; for k:=0 to slVendors.Count-1 do for m:=0 to length(MyVendors[k].XVendors)-1 do if MyVendors[k].xVendors[m].index=i then MyVendors[k].xVendors[m].flag:=n; end; //Search_Flag: 2 报表行可见,1不可见. for i:=0 to slVendors.Count-1 do begin //for i if length(MyVendors[i].xVendors)<=27 then begin for j:=0 to length(MyVendors[i].xVendors)-1 do begin//for j if MyVendors[i].XVendors[j].search_flag=0 then MyVendors[i].XVendors[j].search_flag:=2; if MyVendors[i].XVendors[j].flag>1 then for k:=1 to MyVendors[i].XVendors[j].flag-1 do MyVendors[i].XVendors[j+k].search_flag:=1; end;//for j end else begin for j:=0 to length(MyVendors[i].xVendors)-1 do begin//for j if MyVendors[i].XVendors[j].search_flag=0 then MyVendors[i].XVendors[j].search_flag:=2; if j mod 27 =0 then MyVendors[i].XVendors[j].search_flag:=2; p:=MyVendors[i].XVendors[j].flag; n:=0; for k:=1 to MyVendors[i].XVendors[j].flag-1 do if MyVendors[i].XVendors[j+k].Search_Flag=0 then if (j+k) mod 27=0 then 5 begin MyVendors[i].XVendors[j+k].Search_Flag:=2; MyVendors[i].XVendors[j+k].flag:=p-k; if n=0 then begin MyVendors[i].XVendors[j].flag:=k; n:=1; end; end else begin MyVendors[i].XVendors[j+k].Search_Flag:=1; end; end;//for j end; end; //for i for i:=0 to slVendors.Count-1 do begin //for i for j:=0 to length(MyVendors[i].xVendors)-1 do begin//for j TAutoreportline(head.AutoreportlineOfAutoreporthead.Items[MyVendors[i].xVendors[j].index]).Flag:=MyVendors[i].xVendors[j].flag; TAutoreportline(head.AutoreportlineOfAutoreporthead.Items[MyVendors[i].xVendors[j].index]).Search_Flag:=MyVendors[i].xVendors[j].search_flag; //showMessage(inttostr(MyVendors[i].xVendors[j].index)+':flag='+inttostr(MyVendors[i].xVendors[j].flag)+#13#10+inttostr(MyVendors[i].xVendors[j].index)+':search_flag='+inttostr(MyVendors[i].xVendors[j].search_flag)); end;//for j; end;//for i //合并报表算法结束 added by wbc, 2009-04-23 result:=Head; end; 涉及的数据类型： type TXVendor=class index:Integer; flag:Integer; 6 search_flag:Integer; end; TMyVendor=class public Vendor_Code:String; xVendors:array of TXVendor; end; MyVendors:array of TMyVendor; 合并报表2:模具工厂—供方送货单 操作步骤: 同样方法, 选中Fastreport的主数据项，双击OnBeforePrint方法，在begin end 之间编写代码： if Pos('模具工厂',[PriseName])=0 then begin if (IsBegin=1) then begin Memo19.Height:=MainData.Height*5; Memo19.Visible:=true; memo20.Height:=MainData.Height*5; memo20.Visible:=true; memo21.Height:=MainData.Height*5; memo21.Visible:=true; IsBegin:=0; end else begin Memo19.Height:=MainData.Height; Memo19.Visible:=false; //Memo19.Top:=-18; memo20.Height:=MainData.Height; 7 memo20.Visible:=false; memo21.Height:=MainData.Height; memo21.Visible:=false; IsBegin:=0; end; end else begin Memo34.visible:=true; Memo42.visible:=True; end; 这个合并相对前面的合并显得更简单, 只要通过PriseName这个Delphi传来的参数就能够实行按物料编码合并. PriseName这个参数可能通过frGetValue这个方法传入Fastreport. (注意大小写,Fastreport对大小 写参数是敏感的) procedure TAutoReportProcessMonthForm.frGetValue(const ParName: String; var ParValue: Variant); begin inherited; if parname = 'PriseName' then parvalue := LoginUser.Enterprise_Name; if parname = 'Company_Name' then parvalue :=Loginuser.GetSysConfParam('Company_Name'); if parname = 'Print_Date' then parvalue :=DatetimeToStr(variables.SysServerTime); end; 以后要开发类似合并报表的话，可以参照上述算法，根据要合并的字段进行相应修改即 可达到客户报表的要求。希望本篇技术文档对读者有帮助。 作者：王北成 日期：2009-4-28 8