一、QuickReport
1、安装
Component->Install packages->X:/Program Files/Borland/Delphi7/Bin/dclqrt70.bpl->OK,组件栏出现QReport
2、使用
简单应用举例说明:
第一步:工程建立后,在调用报表的窗体加入一个Button,一个ADOConnection、一个ADOStoredProc或ADOQuery(本例使用的是ADOStoredProc,调用现有的存储过程),设置好数据的相关链接后进入报表设计;
第二步:进入报表设计,File->New->Other->Report,其实也相当于一个窗体,在QReport组件栏拖入三个QRBand,他们的Bandtype分别设置为rbTitle、rbColumnHeader、rbDetail;
第三步:添加QRLabel写上标题,之后添加多个QRShape放在rbColumnHeader并调整好宽高用于显示表头,这个主要用于显示出表格效果,QuickReport好像这方便不给力,需要自己仔细调整才能达到所需的个性表格,如果需要背景色,调整Brush的Color属性即可,然后对应添加多个QRLabel在对应的QRShape上(注意上下层控制,让QRLable在上否则表头信息将被掩盖住),填写表头信息;
第四步:参照第三步在rbDetail添加QRShape,然后对应添加QRDBText,并设置每个QRDBText的DateSet属性为Form1.ADOStoredProc1(注意单元文件的引入),DataField属性对应的存储过程查询的字段,至此完成报表设计。
相关代码参考如下:
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- ADOStoredProc1.close;
- ADOStoredProc1.parameters.parambyname('@pCheckDate').value:='2011-05-05'; //存储过程参数
- ADOStoredProc1.prepared:=true;
- ADOStoredProc1.open;
- RpFrm.Prepare;
- RpFrm.Preview; //预览
- //RpFrm.Print; //打印
- end;
二、FastReport(版本FastReport Enterprise v4.9.32 )
1、Delphi7安装
直接运行fr4_9_32_d7e.exe,填入Key即可完成安装,其它版本的Delphi安装可能会稍微麻烦一点
2、使用
简单应用举例说明:
第一步:工程建立后,在调用报表的窗体加入一个Button,一个ADOConnection、一个ADOQuery、一个frxDBDataset、一个frxReport;ADOConnection设置好链接后将ADOQuery与之关联并写好Sql语句,完成与数据库相关表的关联,将frxDBDataset的DataSet属性设置为ADOQuery;
第二步:双击frxReport,根据需要添加相应的band栏,如ReportTitle、ColumnHeader、MasterData、PageFooter,用TextObject写好标题、列名等(TextObject类似于Delphi的Lable);然后,菜单Report->Data选中frxDBDataset,这时在报表设计器的右侧Data栏出现关联表的字段,双击MasterData同样选中frxDBDataset,然后将右侧Data栏想要显示在报表中的字段拖入MasterData栏即可,最后保存报表文件。
第三步,窗体调用,如果使用保存的报表文件,注意路径。
相关代码参考如下:
- procedure TForm1.Button2Click(Sender: TObject);
- var
- sPath: String;
- begin
- sPath := ExtractFilePath(Application.ExeName);
- self.frxReport1.Clear;
- self.frxReport1.LoadFromFile(sPath +'simpleFr.fr3');
- self.frxReport1.ShowReport;
- //self.frxReport1.Print;
- end;