fast report 使用(2)

TfrxDBDataset        TfrxUserDataset

数据存取元件。FastReport 使用这些元件读取及参考数据库的字段,这两个元件都源于 “TfrxDataSet” 并继承其大部分的功能。

TfrxUserDataSet 元件允许构建未连接到数据库的报表,而由其它来源接收数(据如:数列、文件等)。在此同时,程序员仅需提供浏览此数据集的功能,资料接收并非由此元件执行,而是用其它的方法(例如,经由“TfrxReport.OnGetValue”事件)。

TfrxUserDataSet 元件有下列的属性:

property RecNo: Integer readonly;目前记录编号,首笔的记录编号是“0

property Enabled: Boolean default True;定义此元件是否可在designer 里面使用。

property RangeBegin: TfrxRangeBegin default rbFirst;数据导航(navigation)的起点。下列的值可以使用:

rbFirst – 从数据的第一笔记录开始。rbCurrent – 从当前的记录开始

property RangeEnd: TfrxRangeEnd default reLast;数据导航(navigation)的起点。下列的值可以使用:

reLast – 直到数据结束。ReCurrent – 直到目前的记录。reCount – “RangeEndCount” 属性而定。

property RangeEndCount: Integer;数据集中的数据个数,此功能只在“RangeEnd”属性等于reCount 有效。

property UserName: String;符号名称。在报表设计环境(Designer)下,将被显示于DataSet 的下方。

property OnCheckEOF: TfrxCheckEOFEvent;

TfrxCheckEOFEvent = procedure(Sender: TObject; var Eof: Boolean)of object; 此事件在数据集的尾端时,Eof 参数将返回True

property OnFirst: TNotifyEvent;数据集移至第一笔的位置时,会触发此事件。

property OnNext: TNotifyEvent;数据集移至下一笔的位置时,会触发此事件。

property OnPrior: TNotifyEvent;数据集移至上一笔的位置时,会触发此事件。

TfrxDBDataSet 元件用来连接以TDataSet, TTable TQuery 为基类的数据库元件,有关数据的导航及字段的参考都是自动的,程序员不需特殊的设定。除上述属性外,该元件有下列的属性:

property CloseDataSource: Boolean default False;报表创建完成后,关闭数据库。

property OpenDataSource: Boolean default True;在报表创建之前打开数据库。

property FieldAliases: TStrings;数据集字段的符号名称(别名)

property DataSet: TDataSet; property DataSource:

TDataSource;连结至TDataSet TDataSource 类型的元件。

property OnClose: TNotifyEvent;当关闭数据集时触发此事件。

property OnOpen: TNotifyEvent;当打开数据集时触发此事件

TfrxDesigner

TfrxDesigner 元件是报表设计器,当使用此元件,你的工程文件就可以使用报表设计器,此元件它只包含一些报表设计器的设定,当加入”frxDesign” 单元到uses 清单中,就表明与报表设计器连接上了。此元件包含下列的属性:

property CloseQuery: Boolean default True;定义结束设计报表是否询问储存报表之用。

property OpenDir: String;打开报表的预置数据目录property SaveDir: String;储存报表的预置数据目录。

property Restrictions: TfrxDesignerRestrictions;报表设计环境下,限制不同的报表操作标识(flag),此标识包含单一或混合数据值:

drDontInsertObject – 禁止插入物件drDontDeletePage – 禁止刪除页面drDontCreatePage – 禁止建立新的页面

drDontChangePageOptions – 禁止修改页面属性drDontCreateReport – 禁止建立新报表

drDontLoadReport – 禁止载入报表drDontSaveReport – 禁止储存报表

drDontPreviewReport – 禁止预览报表drDontEditVariables – 禁止编辑变量

drDontChangeReportOptions – 禁止修改报表属性

property OnLoadReport: TfrxLoadReportEvent;

TfrxLoadReportEvent = function(Report: TfrxReport): Boolean of

object;

此事件发生在载入报表之时。利用此事件,你可以从数据库载入报表。

property OnSaveReport: TfrxSaveReportEvent;

TfrxSaveReportEvent = function(Report: TfrxReport;SaveAs:Boolean): Boolean of object;

此事件发生在储存报表之时。利用此事件,你可以将报表储存于数据库中。

property OnShow: TNotifyEvent;此事件发生在启动报表设计环境时。

TfrxPreview

此元件专供建立自定义报表合预览窗口使用。procedure AddPage;加入空白页面到报表末端。

procedure DeletePage;删除当前页。procedure Print;打印报表。procedure LoadFromFile;显示文件载入窗口。procedure LoadFromFile(FileName: String);载入指定的文件。procedure SaveToFile;显示文件储存窗口。procedure SaveToFile(FileName: String);储存文件到指定的文件名称procedure Edit;载入当前页至设计模式供编辑使用。

procedure Export(Filter: TfrxCustomExportFilter);使用指定的导出过滤器导出报表。

procedure First;第一页。procedure Next;下一页。procedure Prior;上一页procedure Last;最后一页。

procedure PageSetupDlg;显示页面设定窗口。procedure Find;显示文字搜寻窗口。procedure FindNext;继续找下一个。procedure Cancel;取消创建报表。procedure Clear;清除报表。

你可以使用下列属性:

property PageCount: Integer readonly;报表页数。

property PageNo: Integer;目前报表页码(起始值为1)。要移至其它页面,指定此属性的值即可。

property Tool: TfrxPreviewTool;选取工具。property Zoom: Extended;显示比例,“1” 代表100%

property ZoomMode: TfrxZoomMode;显示模式,可以的显示模式如下:zmDefault – 预置值,显示比例根据“Zoom” 属性而定zmWholePage – 整页模式zmPageWidth – 与页面宽度相同

zmManyPages – 一屏显示多页property OutlineVisible: Boolean;是否显示报表大纲(树状结构)

property OnPageChanged: TfrxPageChangedEvent;目前页面要改变时,此事件将被触发。

TfrxBarcodeObject  TfrxOLEObject   TfrxChartObjectTfrxRichObject

TfrxCrossObject    TfrxCheckBoxObject     TfrxGradientObject

可在报表内部使用的物件,这些元件自己没做任何事情,它们会自动将元件的单元加入uses 清单,加入你打算打开一份报表,此功能会自动被加入报表,未包括此物件至工程文件的话,打开报表时将会发生错误。

TfrxDialogContols

附加项(add-in) 物件的集合,可用于报表内的对话窗口,它包含下列元件:button,edit box, list box 等。此元件自己不会执行任何事,加入此元件“frxDCtrl”将会自动加入“Uses”清单。

TfrxBDEComponents

BDE 数据库元件,数据库界面采用BDE(Borland Database Engine)时,工程文件必须加入此元件。

TfrxADOComponents

ADO 数据库元件,数据库连接采用ADO(Advance Data Object)时,工程文件必须加入此元件。

TfrxIBXComponents

Interbase 数据库元件,数据库采用IBX 连接Interbase 后台数据库时,工程文件必须加入此元件。上述数据库元件,可被使用在报表的对话窗口上,它包括下列的元件: “Database”,“Table” “Query” 。这些元件本身并不做任何事;它们只会将元件隶属的单元自动加入uses 清单中。

Working with TfrxReport component

Loading and saving a report 存取报表

报表定义表格与工程文件的表格储存在同一个文件(.DFM),在大部分的情況下,并不需要额外的操作步骤,因此载入报表便相当简单。假如你要将报表储存在文件或数据库的BLOB 字段,你必须使用“TfrxReport”提供的方法来载入及储存报表。

function LoadFromFile(const FileName: String;

ExceptionIfNotFound: Boolean = False): Boolean;

载入指定的报表,假如第二个参数的值等于”True ” 且指定的文件不存在,然后它会产生一个例外。假如文件载入成功,它返回“True”

procedure LoadFromStream(Stream: TStream);从数据流(stream)载入报表。

procedure SaveToFile(const FileName: String);储存报表至指定的文件名。

procedure SaveToStream(Stream: TStream);储存报表至数据流(stream)

报表预置的后缀名称为“FR3”。范例:

frxReport1.LoadFromFile('c:\1.fr3');

frxReport1.SaveToFile('c:\2.fr3');

Designing a report 设计报表

通过“TfrxReport.DesignReport”方法调用报表设计器(reportdesigner),要具有设计报表的功能,你必须在工程文件中加入“TfrxDesigner”元件,或在uses 加入“frxDesgn”单元。范例:frxReport1.DesignReport;

Running a report 执行报表

应用下列两个“TfrxReport”元件的方法启动报表:procedure ShowReport(ClearLastReport: Boolean = True);

启动报表并显示结果在浏览窗口。假如“ClearLastReport”参数等于“False”,然后报表将会清前一份报表的末端,否则前一份报表的内容将会被清除ど柚。function PrepareReport(ClearLastReport: Boolean = True):Boolean;

启动报表,但不开启预览窗口,参数用法同“ShowReport”方法,假如报表建立成功,它返回“True”。在大部分的情況下,采用第一种方法比较方便,当报表建立的过程中,它会立刻显示预览窗口。当我们要把报表加入上一份报表的后面时,“ClearLastReport”

数是非常方便的技巧在批次报表打印时特别有效)。范例:frxReport1.ShowReport;

Previewing a report 预览报表

在报表预览窗口显示报表有两种方式:不管是调用“TfrxReport.ShowReport”方法(前面已提及)或使用“TfrxReport.ShowPreparedReport”方法。在第二种状况,报表创建的过程不会执行,但是报表的结果会显示于屏幕。这个意思是说,你应该使用“PrepareReport”方法创建报表或载入先前已经建立的报表。范例:

if frxReport1.PrepareReport then

frxReport1.ShowPreparedReport;

在这个案例中,报表创建完成在先,然后显示报表于浏览窗口。创建大型的报表可能耗费许多时间,那也是为什么使用“ShowReport”方法会比“PrepareReport/ShowPreparedReport” 来的好的原因,我们指定“TfrxReport.PreviewOptions” 属性,指定预览的参数。

Printing a report 打印报表

在大部份的情況,你会从预览窗口打印报表。要手动打印报表,你应该使用“TfrxReport.Print”方法,例如:frxReport1.Print;

在此同时,你可以设定打印对话窗口的参数。你可以从“TfrxReport.PrintOptions”属性指定打印的预置值及取消显示打印窗口。

Loading and saving a finished report 存取已完成的报表

它可以从预览窗口执行,这也可以手动的用“TfrxReport.PreviewPages”方法执行:

function LoadFromFile(const FileName: String;

ExceptionIfNotFound: Boolean = False): Boolean;

procedure SaveToFile(const FileName: String);

procedure LoadFromStream(Stream: TStream);

procedure SaveToStream(Stream: TStream);指定参数与TfrxReport 对应的方法类似,报表文件后缀名必须是”FP3” 。例:

frxReport1.PreviewPages.LoadFromFile('c:\1.fp3');

frxReport1.ShowPreparedReport;注:当已完成报表载入后,预览报表必须通过 “ShowPreparedReport”方法来执行。

Exporting a report 导出报表

它可从预览窗口执行,此项功能也可以用“TfrxReport.Export”方法来执行,在此方法的参数中,你必须指定要使用的导出过滤元件:如:frxReport1.Export(frxHTMLExport1);导出过滤元件必须是可用的(你必须将它放入工程文件的表单上)且设定正确。

Creating a custom preview window 建立自定义预览窗口

FastReport 显示报表于标准的预览窗口。假如为了某种理由它无法满足你,你可以使用自定义的预览窗口。为此,FastReport “TfrxPreview” 元件于是诞生了,要显示报表这个元件必须连接到“TfrxReport.Preview”属性。

Building a composite report (batch printing) 建立复合报表(批量打引)

在某些情况下,我们必须一次打印数份报表,或封装及实现多份报表于同一个预览窗口。要执行这项工作,在FastReport 中有多个工具,允许建立一份新的报表,置于另一份已存在的报表末端,«TfrxReport.PrepareReport»方法有此«ClearLastReport», «True»,此参数定义是否清除前一份已建立的报表。下列的程序码示范如何从两个报表定义文件,批次建立一份报表:

frxReport1.LoadFromFile('1.fr3');

frxReport1.PrepareReport;

frxReport1.LoadFromFile('2.fr3');

frxReport1.PrepareReport(False);

frxReport1.ShowPreparedReport;

我们载入第一个报表并在后台处理报表(不显示),然后我们载入第二份报表到同一«TfrxReport»物件,并置参数 «ClearLastReport» 的值为假(False)建立报表。此功能允许第二份报表的结果接在第一份报表的后面。最后,我们将两份报表显示在同一个预览窗口中。

Numbering of pages in a composite report 复合报表中的页数

你可以使用 «Page», «Page#», «TotalPages» «TotalPages#» 系统变量显示页码或总页数。在复合式报表,这些变量代表的意义如下:Page -目前报表的页码Page# -批次报表的页码TotalPages -目前报表的总页数(报表必须设定为two-pass)TotalPages# -批次报表的总页数

Combination of pages in a composite report 复合报表的合并页

如上所述,当打印时,报表设计的属性 «PrintOnPreviousPage»可以利用前一页的可用空间打印下一页的内容。在复合报表中,它允许你在前一份报表最后一页的可用空间上建立一份新的报表,要执行此功能,必须在每一份连续报表的第一个设计页面启动属性«PrintOnPreviousPage»

Interactive reports 交互式报表

在交互式报表中,我们可以在预览窗口定义任何报表物件对鼠标按下的反应。例如,使用者选择数据列,然后做一份新的报表,显示选取列的明细数据。任何报表都可以成为交互式报表,要执行此操作,你只需建立TfrxReport.OnClickObject 事件处理程序。下面是此事件处理的范例:

procedure TForm1.frxReport1ClickObject(Page: TfrxPage;

View: TfrxView; Button: TMouseButton; Shift: TShiftState;

var Modified: Boolean);

begin

if View.Name = 'Memo1' then

ShowMessage('Memo1 contents:' + #13#10 +

TfrxMemoView(View).Text);

if View.Name = 'Memo2' then

begin

TfrxMemoView(View).Text := InputBox('Edit', 'Edit

Memo2 text:', TfrxMemoView(View).Text);

Modified := True;

end;

end;

«OnClickObject» 事件处理程序中,你可以执行下列工作:-修改物件或页面的內容,但前提是«Modified»属性必须被指定。-调用 «TfrxReport.PrepareReport» 方法重新建立报表。在此范例中,点选 «Memo1» 物件将显示此物件的內容,当点选«Memo2,»将显示Dialog 窗口,物件的内容可于此窗口内被修改。设定«Modified» 标识为«True» 允許保留及显示修改后的內容。同样的方法,它也可被定义为一个单击,有不同的反映。例如,执行一个新的报表。下列的注释是必要的。在中,在一个预览窗口仅显示一个报告,由一个元件组成(不像FastReport 2.x 版)。这就是运行一个报告,其它 TfrxReport 物件,必须删除的原因。

要给使用者按下物件一个提示,我们可以在鼠标指针移至物件上方时变更鼠标指针显示。要达到此目的,请在报表设计环境下,选取想要的物件,并设定不同于预置的Cursor 属性即可。可单击(clickable)物件有许多详细的定义规则。在简单的报表中,可以随意定义目录(contents)中物件的名称。可是,在复杂报表的报表中却不行。 例如,创建逐条的报表在有序的数据中。一个用户单击目录为“12”的«Memo1»物件。在该物件上数据将怎样排序?这就是你该明确知道主键值排列顺序的原因。FastReport 可分配一个包含任何数据(我们的例子中是主键值的数据)的字符串到任何报表的物件。此字符串储存在 «TagStr» 属性中。让我们以FastReport 的范例(FastReportDemo.exe 内的【Simple list)来说明,这是一家公司的客户明细,打印的內容包括【client’s name】,【address】 【contact person】 等字段,数据来源是DBDEMOS 演示数据库的“Customer.db”数据表,该数据表有一个主键值【CustNo】字段,它并未输出在报表。我们的工作是决定点下的物件是哪一笔记录,然后取得该记录的主键值。要执行该工作,必须在Master Data 区域所有物件的«TagStr» 属性在报表建立期间, «TagStr» 属性的內容会以相同的方法被重新计算,当字符物件的內容被计算,所有用到此变量的值将会被取代。假如主鍵值(Primary Key) 是复合字段(它包含多个字段)«TagStr» 属性的內容可以是下列的写法:[Table1."Field1"];[Table1."Field2"]

原文地址:https://www.cnblogs.com/kingwangzhen/p/1500435.html