Delphi程序代码设计报表.docVIP

用程序代码设计报表 创建一窗体Form1，unit文件保存为RaveReport.pas，窗体上放置一个RpSystem控件和一个Button，程序代码如下，一个简单的报表就完成了。 unit RaveReport; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RpRenderCanvas, RpRenderPreview, RpRender, RpRenderPDF, RpBase, RpSystem, StdCtrls, RpDefine, RpRave; type TForm1 = class(TForm) Button1: TButton; RvSystem1: TRvSystem; procedure RvSystem1Print(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.RvSystem1Print(Sender: TObject); var I1: integer; S1: string[20]; S2: string[20]; Bitmap: TBitmap; PolyLineArr: array[1..6] of TPoint; begin with Sender as TBaseReport do begin { 打印表头和表尾 } SectionTop := 0.75; //设定内容输出区域的顶部位置 These properties return or set the current section of the paper to be printed on. //Header 输出在 内容输出区域 的顶部 SetFont(宋体,10); PrintHeader(第 + IntToStr(CurrentPage) + 页,pjLeft); //页码 This method will print the string, Text, just below the current SectionTop justified by, Justify, between the current SectionLeft and SectionRight. PrintHeader(日期: +DateToStr(Date)+ ,pjRight); //日期 This method will print the string, Text, just below the current SectionTop justified by, Justify, between the current SectionLeft and SectionRight. SectionBottom := 10.75; //设定内容输出区域的底部位置 These properties return or set the current section of the paper to be printed on. //Footer 输出在 内容输出区域 的底部 SetFont(宋体,10); PrintFooter(第 + IntToStr(CurrentPage) + 页,pjLeft); //页码 This method will print the string, Text, just above the current SectionBottom justified by, Justify, between the current SectionLeft and SectionRight. PrintFooter(日期: +DateToStr(Date)+ ,pjRight); //日期 This method will print the string, Text, just above the current SectionBottom justified