- 1、本文档共9页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Fastreport报表合并单元格技巧
Fastreport报表合并单元格技巧
在做企业的ERP,SCM,CRM等等的软件中, 经常要做的就是报表, 如财务报表, 生产车间报表。很多时候企业可能对报表格式提出特别的要求,但作为软件开发公司,能设计开发出符合客户要求的报表就显得十分迫切。以下我对报表的合并技巧作一个总结,希望对后面要做类似报表的同事有些帮助。
合并报表1:江苏美的春花电器股价有限公司-委外加工材料月结表
在没有合并之前显示如下:
在对供应商编码和材料编码进行合并后显示如下:
对于合并功能,其实fastreport是有的,但这个功能做得远远不够,不能按客户的要求进行合并,要完成上述功能,我是通过下面的方法做出来的。
这种要求的合并要结合Delphi与Fastreport来协作完成。首先然前台Delphi相应方法中编写有关的算法,然后在Fastreport中根据这种算法作相应的显示。
操作方法如下:
选中Fastreport的主数据项,双击OnBeforePrint方法,在begin end 之间编写代码:
MainData.Height:为每行数据显示的高度,
[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+TAutoreportline(head.AutoreportlineOfAutoreporthead.Items[i]).Vendor_Code;
if Pos(strItemVendor,slItemVendor.Text)=0 then
slItemVendor.Add(strItemVendor);
strVendor:=TAutoreportline(head.AutoreportlineOfAutoreporthead.Items[i]).Vendor_Code;
if Pos(strVendor,slVendors.Text)=
您可能关注的文档
- EPLAN标准化设计转贴.doc
- 2011公司财务报表分析培训答案100分.doc
- EPON传真故障处理方法.doc
- 2011六年级上册综合实践活动教案.doc
- 2011六年级上册期末试题答案.doc
- 2011六年级上册信息技术第一单元教案.doc
- Epson针式打印机具有微调整功能.doc
- 2011六年级下册科学复习计划.doc
- 2011六年级模拟试题(语文).doc
- 2011六年级语文数学期中试卷.doc
- 2024-2025学年高一上学期期末模拟政治试卷(四)(解析版).docx
- 四川省安宁河高中振兴联盟2024-2025学年高二上学期11月期中考试语文试题(解析版).docx
- 山东省名校考试联盟2024-2025学年高一上学期11月期中考试语文试题(解析版).docx
- 福建省泉州市四校联盟2024-2025学年高二上学期11月期中联考政治试题(解析版).docx
- 广东省部分学校2024-2025学年高二上学期期中联考政治试题(解析版).docx
- 2024-2025学年高二上学期期末模拟政治试卷(三)(解析版).docx
- 湖北省部分高中联考协作体2024-2025学年高一上学期期中联考政治试题(解析版).docx
- 黑龙江省牡丹江市部分学校2024-2025学年高三上学期期中考试政治试题(解析版).docx
- 北京市2024-2025学年高二上学期期末模拟政治试卷(解析版).docx
- 广东省茂名市电白区2024-2025学年高一上学期期中考试政治试卷(解析版).docx
文档评论(0)