FastReport 4程序員手冊

1、FastReport 程序員手冊一、使用TfrxReport 組件工作1、加載并存儲報表默認情況下，報表窗體同項目窗體構(gòu)存儲在同一個DFM文件中。多數(shù)情況下，無須再操作，因而你就不必采用特殊方法加載報表。如果你決定在文件中存儲報表窗體或者是數(shù)據(jù)庫的Blob字段（他提供了非常大的彈性，你能夠在非編譯程序中修改），你必須使用“TfrxReport”提供的加載和存儲方法。function LoadFromFile(const FileName: String; ExceptionIfNotFound: Boolean = False): Boolean;從一個給定名字文件中加載報表。如果第二個參數(shù)等

2、于“True”并且文件沒找到，那么他會觸發(fā)一個異常。如果文件加載成功，他返回“True”。procedure LoadFromStream(Stream: TStream);從流中加載報表。procedure SaveToFile(const FileName: String);用特殊名稱文件存儲報表。procedure SaveToStream(Stream: TStream);把報表存在流中。例如：Pascal:frxReport1.LoadFromFile('c:1.fr3');frxReport1.SaveToFile('c:2.fr3');C+:frx

3、Report1->LoadFromFile("c:1.fr3");frxReport1->SaveToFile("c:2.fr3");2.設(shè)計報表通過“TfrxReport.DesignReport”方法調(diào)用報表設(shè)計器。你必須在你的項目中包含報表設(shè)計器（必要條件是：要么使用“TfrxDesigner”組件，要么增加“frxDesgn”單元到uses列表）“DesigReport”方法接受兩個默認參數(shù)：procedure DesignReport(Modal: Boolean = True; MDIChild: Boolean = False)

4、;Modal參數(shù)決定設(shè)計器是否被模態(tài)，MDIChild參數(shù)允許把設(shè)計器窗體作為一個MDI子窗體。例如：frxReport1.DesignReport;3.運行報表應(yīng)用下面兩個“TfrxReport”方法中的一個啟動報表：procedure ShowReport(ClearLastReport: Boolean = True);啟動報表并在預(yù)覽窗體中顯示。如果“ClearLastReport”參數(shù)等于“False”，報表將會增加先前的一個報表結(jié)果，否則清除前一個報表結(jié)構(gòu)。function PrepareReport(ClearLastReport: Boolean = True): Boolea

5、n;啟動報表，沒有打開預(yù)覽窗體，參數(shù)賦值與“ShowReport”方法同名。如果報表構(gòu)造成功，他返回“True”。多數(shù)情況下，使用第一種方法更為方便一些。在報表被構(gòu)造的同時，他會立刻顯示一個預(yù)覽窗體。當(dāng)需要增加另一個報表到前一個報表中的時候，“ClearLastReport”參數(shù)顯得方便些。（此類技術(shù)用于批量報表打印）。例如：frxReport1.ShowReport;4.預(yù)覽報表使用兩種途徑顯示一個報表是可能的：兩者都是調(diào)用“TfrxReport.ShowReport”方法（先前描述過了），或者使用“TfrxReport.ShowPreparedReport”方法來幫助實現(xiàn)。在第二種情況下，

6、報表構(gòu)造沒有被執(zhí)行，但顯示了一個完成的報表。也就是說，你要么在“PreparedReport”方法幫助下構(gòu)造他，要么在構(gòu)造前從文件中加載報表（查看“加載存儲完成的報表”）例如：Pascal:if frxReport1.PrepareReport then  frxReport1.ShowPreparedReport;C+:if(frxReport1->PrepareReport(true)  frxReport1->ShowPreparedReport(); 在這種情況下，報表構(gòu)造器先被完成了，并顯示在預(yù)覽窗體中。構(gòu)造一個龐大的報表可能要花費很多時間，那就是為什

7、么使用“ShowReport”非等時同步方法會好于“PrepareReport/ShowPreparedReport”方法。你可以通過“TfrxReport.PreviewOptions”屬的缺省值設(shè)定預(yù)覽參數(shù)值。（這句翻譯的不夠好，請參考原文）原文參考：In this case, report construction is finished first, and after that it is displayed in the preview window. Construction of a large report can take a lot of time, and that i

8、s why it is better to use the “ShowReport anisochronous” method, than the “PrepareReport/ShowPreparedReport” one. One can assign preview settings by default via the “TfrxReport.PreviewOptions” property.SPAN5、打印報表大多數(shù)情況下，你可以從預(yù)覽窗體打印報表。要人工打印報表，你應(yīng)該使用“TfrxReport.Print”方法,例如:frxReport1.LoadFromFile(.);frxR

9、eport1.PrepareReport;frxReport1.Print;同時，你可以在顯示的打印對話框中設(shè)置打印參數(shù)，你也可以使用默認設(shè)定值。取消打印對話框，請參考“TfrxReport.PrintOptions”屬性幫助6.載入并存儲報表這個功能可以在預(yù)覽窗口中執(zhí)行。也可以使用手工方法執(zhí)行，幫助參考“TfrxReport.PreviewPages”方法：   function LoadFromFile(const FileName: String; ExceptionIfNotFound: Boolean = False): Boolean;  

10、procedure SaveToFile(const FileName: String);   procedure LoadFromStream(Stream: TStream);   procedure SaveToStream(Stream: TStream);賦值和參數(shù)化類似與TfrxReport相應(yīng)的方法。文件包含了完成的報表，默認情況下以“FP3”為擴展名。例如：Pascal:frxReport1.PreviewPages.LoadFromFile('c:1.fp3');frxReport1.ShowPreparedReport

11、;C+:frxReport1->PreviewPages->LoadFromFile("c:1.fp3");frxReport1->ShowPreparedReport();注意，完成的報表加載完畢后，預(yù)覽方法是通過“ShowPreparedReport” 方法執(zhí)行的。7.導(dǎo)出報表他可以從預(yù)覽窗口中執(zhí)行。也可以手動操作，通過“FfrxReport.Export”方法，及這個方法中的參數(shù)，你可以導(dǎo)出你想要導(dǎo)出的文件類型：frxReport1.Export(frxHTMLExport1);導(dǎo)出過濾組件必須是有效的（你必須把他們放到你項目中的窗體上）并調(diào)整正確。

12、The export filter component must be available (you must put it on the form of your project) and be adjusted correctly.8.創(chuàng)建自定義預(yù)覽窗體FastReport在標(biāo)準(zhǔn)的預(yù)覽窗口中顯示報表。如果因為某些原因而不適合你，你可以創(chuàng)建一個自定義預(yù)覽窗體。為了這個目的，需要設(shè)計FastReport組件面板中的“TfrxReport”組件。要顯示報表，TfrxReport.Preview方法應(yīng)該連接到這個組件。在使用TfrxPreview組件的時候，有兩個典型的問題。他不會處理按鍵（箭頭，

13、PgUp，PgDown等等）和鼠標(biāo)滾輪（如果有的話）。要讓TfrxPreview同按鍵工作，設(shè)置焦點給他（他是可以做到的，例如，在窗體的OnShow事件句柄中）frxPreview.SetFocus;要讓TfrxPreview同鼠標(biāo)滾輪工作，你必須創(chuàng)建OnMouseWheel事件句柄，并且調(diào)用TfrxPreview.MouseWheelScroll方法。procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: B

14、oolean);begin  frxPreview1.MouseWheelScroll(WheelDelta);end;9.建立復(fù)合報表（批量打印）    在某些情況下，需要立刻組織幾個報表打印，或者在一個打印預(yù)覽窗體中封裝并呈現(xiàn)幾個報表。要執(zhí)行這些，在FastReport中有些工具能夠允許建立一個新的報表附加在一個已經(jīng)存在的報表上?！癟frxReport.PrepareReport”方法中有一個選項“ClearLasReport”布爾類型參數(shù)，默認情況下他等于True，這個參數(shù)定義了是否有必要在建立報表時清除前一個報表。下面的方法展示了如何從兩個報表中

15、建立一個批量報表：Pascal:frxReport1.LoadFromFile('1.fr3');frxReport1.PrepareReport;frxReport1.LoadFromFile('2.fr3');frxReport1.PrepareReport(False);frxReport1.ShowPreparedReport;C+:frxReport1->LoadFromFile("1.fr3");frxReport1->PrepareReport(true);frxReport1->LoadFromFile(&q

16、uot;2.fr3");frxReport1->PrepareReport(false);frxReport1->ShowPreparedReport();    我們加載并建立第一個報表，但并沒有顯示他。然后我們加載第二個報表到同一個TfrxReport對象，并使用“ClearLastReport”參數(shù)，讓他等于False。這就允許第二個報表附加在先前建立的報表之后。接下來，我們在預(yù)覽窗口中顯示一個完成的報表。9.1 復(fù)合報表中的頁數(shù)    你可以使用“Page”，“Page#”，“TotalPages”和“T

17、otalPages#”系統(tǒng)變量顯示頁數(shù)或總頁數(shù)，在復(fù)合報表中，這些變量以下面的方式工作：Page - 當(dāng)前報表頁數(shù)Page# - 批量報表頁數(shù)TotalPages - 當(dāng)前報表總頁數(shù)（報表必須兩遍）Totalpages# - 批量報表總頁數(shù)9.2 合并符合報表頁數(shù)    正如上面所說的，報表設(shè)計頁中的“PrintOnPrevousPage”方法讓你在打印報表的時候使用前一頁的剩余空間接合報表。在復(fù)合報表中，允許你在前一個報表的最后一頁的剩余空間創(chuàng)建一個新的報表。要執(zhí)行這個，要使能每一個連續(xù)報表的第一個設(shè)計頁“PrintOnPreviousePage”屬性SPAN1

18、0.交互報表    在交互報表中，你可以在預(yù)覽窗口定義任意報表對象的鼠標(biāo)單擊反應(yīng)。例如，一個用戶能夠單擊數(shù)據(jù)線，結(jié)果運行一個帶有選擇線的明細數(shù)據(jù)。    任何報表都能交互。要執(zhí)行他，你僅僅需要創(chuàng)建TfrxReport.OnClickObject事件句柄。下面代碼是這個事件句柄的示例：Pascal:procedure TForm1.frxReport1ClickObject(Page: TfrxPage; View: TfrxView;  Button: TMouseButton; Shift: TShiftState; va

19、r 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 Memo

20、2 text:', TfrxMemoView(View).Text);    Modified := True;  end;end;C+:void _fastcall TForm1:frxReport1ClickObject(TfrxView *Sender,      TMouseButton Button, TShiftState Shift, bool &Modified)  TfrxMemoView * Memo;  if(Memo =  dynami

21、c_cast <TfrxMemoView *> (Sender)      if(Memo->Name = "Memo1")      ShowMessage("Memo1 contents:nr" + Memo->Text);    if(Memo->Name = "Memo2")          Mem

22、o->Text = InputBox("Edit", "Edit Memo2 text:", Memo->Text);      Modified = true;      在對象的單擊事件句柄上，你可以做如下事情：- 修改一個對象或頁的內(nèi)容，傳遞句柄（結(jié)果，被修改的將被特殊標(biāo)記，因此修改的內(nèi)容應(yīng)該引起重視）；- 由于使用重構(gòu)或重新建立報表，調(diào)用TfrxReport.PrepareReport方法在此例中，點擊名字為memo1對象的結(jié)果顯示這個對象內(nèi)容的

23、消息。當(dāng)點擊memo2是顯示一個對話框，這個對象的內(nèi)容可能被修改。設(shè)置Modified標(biāo)志為True，允許保持和顯示變更。  同樣的方法，單擊事件可以被定義成不同的響應(yīng)。例如，運行一個新報表。如下注釋是必要的。在FastReport3版本中，一個報表組件可以在一個預(yù)覽窗口中顯示唯一的報表（不像FastReport2.x版本）。那就是為什么一個報表預(yù)覽窗也會在分開的對象中運行一個報表，或者是同一個對象，但當(dāng)前報表必須被抹除。關(guān)于給終端用戶一個可單擊對象提示定位,在預(yù)覽窗口中，鼠標(biāo)經(jīng)過一個可單擊對象的時候，我們可以修改鼠標(biāo)的光標(biāo)。要做到這些，在報表設(shè)計器上選擇一個要設(shè)計的對象并設(shè)置他的c

24、ursor屬性為不同于crDefault的某個值。更多的細節(jié)涉及到定義的單擊對象。在簡單報表中，可以依照對象的名字或他的內(nèi)容來定義。然而，這就不能更多的執(zhí)行可修改的事例。例如，一個明細報表應(yīng)當(dāng)在一個數(shù)據(jù)選擇行被創(chuàng)建。一個用戶單擊了內(nèi)容為12的memo1對象。數(shù)據(jù)行讓這個對象參考什么？那就是為什么你應(yīng)當(dāng)知道主鍵了，主鍵用于明確的標(biāo)識這一行。FastReport能夠賦值一個字串，包含任意數(shù)據(jù)（在我們的事例主鍵數(shù)據(jù)中），對于每個報表對象，這個字串存儲在TagStr屬性中。讓我們來通過一個報表的例子來舉例說明，這個報表包含在FastReportDemo.exe-'Simple list'

25、;示例中。這是一個公司的客戶列表，包含諸如客戶名稱，地址，聯(lián)系人等數(shù)據(jù)。數(shù)據(jù)源是來自DBDEMOS演示數(shù)據(jù)庫的Customer.db表。這個表有一個主鍵，CustNO字段，他沒有出現(xiàn)在報表中。我們的任務(wù)是終止他通過參考單擊完成報表上的任意對象記錄他，這就意味著要獲取主鍵的值，要執(zhí)行此項操作，就要為所有對象的TagStr屬性加入值，依賴于主數(shù)據(jù)欄：Customers."CustNo" 在報表建立期間，使用相同的方法計算TagStr屬性內(nèi)容，同時計算文本對象的內(nèi)容；這就意味著變量值會替代所有變量的位置。變量細節(jié)使用方括號括起來。那就是為什么行值是'1005&#

26、39;, '2112'等類似值了。在報表建立后，包含TagStr屬性對象的類型取決與主數(shù)據(jù)欄。一個簡單的從字串到整形的轉(zhuǎn)換就會提供給我們一個主鍵的值，這也是所需記錄能夠找到的主鍵。如果主鍵是復(fù)合的（包含多個字段），TagStr屬性的內(nèi)容可能是如下值：Table1."Field1"Table1."Field2"在構(gòu)造一個報表完成后，TagStr屬性包含“1000;1”類型值, 此值不同比相同要好。11.從代碼中存取報表對象報表對象（例如：report page, band, memo-object）是不能在你的代碼中直接存取的。這就意味著你

27、不能通過名字尋址對象。例如，當(dāng)你在你的窗體上尋址一個按鈕。要尋址一個對象，在TfrxReport.FindObject方法中找到幫助：Pascal:var  Memo1: TfrxMemoView;Memo1 := frxReport1.FindObject('Memo1') as TfrxMemoView;C+:TfrxMemoView * Memo = dynamic_cast <TfrxMemoView *> (frxReport1->FindObject("Memo1");然后，你就能夠?qū)ぶ穼ο蟮膶傩院头椒?。你也使用“Tf

28、rxReport.Pages”屬性尋址報表頁。Pascal:var  Page1: TfrxReportPage;Page1 := frxReport1.Pages1 as TfrxReportPage;C+:TfrxReportPage * Page1 = dynamic_cast <TfrxReportPage *> (frxReport1->Pages1);12.從代碼中創(chuàng)建報表作為一項規(guī)則，你將在設(shè)計器中創(chuàng)建多數(shù)報表。然而，在某些情況下（例如，當(dāng)報表窗體未知的時候），使用代碼手工創(chuàng)建一個報表是是十分必要的。想要手工創(chuàng)建一個報表，你需要執(zhí)行下面的順序步驟：-

29、清除報表組件- 添加數(shù)據(jù)源- 添加數(shù)據(jù)頁- 添加報表頁- 添加欄頁- 設(shè)置欄屬性，接著把他們同數(shù)據(jù)相連- 在每個欄上加入對象- 設(shè)置對象屬性，接著把他們同數(shù)據(jù)相連讓我們來檢查一下創(chuàng)建一個簡單報表的類型列表。假設(shè)我們擁有如下組件：frxReport1: TfrxReport and frxDBDataSet1: TfrxDBDataSet(最后一個連接到DBDEMOS數(shù)據(jù)，Customer.db表)。我們的報表將包含一個帶有報表標(biāo)題和主數(shù)據(jù)欄的頁。在報表標(biāo)題欄上有一個帶有“Hellow FastReport”文本的對象，主數(shù)據(jù)欄包含一個帶有連接到“CustNo”字段的對象。Pascal:var&

30、#160; DataPage: TfrxDataPage;  Page: TfrxReportPage;  Band: TfrxBand;  DataBand: TfrxMasterData;  Memo: TfrxMemoView; 清除報表 frxReport1.Clear; 為報表添加數(shù)據(jù)集到可存取的列表中 frxReport1.DataSets.Add(frxDBDataSet1); 添加"Data"頁 DataPage := TfrxDataPage.Create(frxReport1); 添加頁 Page := TfrxR

31、eportPage.Create(frxReport1); 創(chuàng)建唯一名稱 Page.CreateUniqueName; 設(shè)置默認字段大小, 紙張和打印方向 Page.SetDefaults; 修改紙張方向 Page.Orientation := poLandscape; 添加一個報表標(biāo)題欄 Band := TfrxReportTitle.Create(Page);Band.CreateUniqueName; it is sufficient to set the ?Top? coordinate and height for a band both coordinates are in pix

32、els Band.Top := 0;Band.Height := 20;  為標(biāo)題欄添加一個對象 Memo := TfrxMemoView.Create(Band);Memo.CreateUniqueName;Memo.Text := 'Hello FastReport!'Memo.Height := 20; 這個對象將伸展坐標(biāo)到欄的寬度 Memo.Align := baWidth;  添加主數(shù)據(jù)欄 DataBand := TfrxMasterData.Create(Page);DataBand.CreateUniqueName;DataBand.DataS

33、et := frxDBDataSet1; 頂端的調(diào)整應(yīng)當(dāng)比先前加入欄的頂部+高度大一些 DataBand.Top := 100;DataBand.Height := 20; 在主數(shù)據(jù)欄上添加一個對象 Memo := TfrxMemoView.Create(DataBand);Memo.CreateUniqueName; 連接數(shù)據(jù) Memo.DataSet := frxDBDataSet1;Memo.DataField := 'CustNo'Memo.SetBounds(0, 0, 100, 20); 調(diào)整文本到右側(cè)的對象邊緣 Memo.HAlign := haRight; 顯示

34、報表 frxReport1.ShowReport;C+:TfrxDataPage * DataPage;TfrxReportPage * Page;TfrxBand * Band;TfrxMasterData * DataBand;TfrxMemoView * Memo;/ 清除報表 frxReport1->Clear();/ 在報表上添加一個數(shù)據(jù)集到數(shù)據(jù)集存取列表frxReport1->DataSets->Add(frxDBDataset1);/ 添加“數(shù)據(jù)”頁DataPage = new TfrxDataPage(frxReport1);/ 添加一頁Page = new

35、TfrxReportPage(frxReport1);/ 創(chuàng)建一個不重復(fù)的名稱Page->CreateUniqueName();/ 設(shè)置域大小, 紙張和默認的打印方向Page->SetDefaults();/ 修改紙張的打印方向Page->Orientation = poLandscape;/ 增加一個報表標(biāo)題欄Band = new TfrxReportTitle(Page);Band->CreateUniqueName();/ 為欄充分設(shè)置頂部坐標(biāo)和高度/ 在像素上包含坐標(biāo)Band->Top = 0;Band->Height = 20;/ 在報表標(biāo)題欄加入

36、一個對象Memo = new TfrxMemoView(Band);Memo->CreateUniqueName();Memo->Text = "Hello FastReport!"Memo->Height = 20;/ 此對象將會被按照欄的寬度延展Memo->Align = baWidth;/ 添加主數(shù)據(jù)欄DataBand = new TfrxMasterData(Page);DataBand->CreateUniqueName();DataBand->DataSet = frxDBDataset1;/ 頂部坐標(biāo)應(yīng)該大于前邊添加欄的頂部

37、坐標(biāo)+高度DataBand->Top = 100;DataBand->Height = 20;/ 主數(shù)據(jù)上加入一個對象Memo = new TfrxMemoView(DataBand);Memo->CreateUniqueName();/ 連接到數(shù)據(jù)Memo->DataSet = frxDBDataset1;Memo->DataField = "CustNo"Memo->SetBounds(0, 0, 100, 20);/ 調(diào)整文本到右側(cè)對象的空白Memo->HAlign = haRight;/ 顯示報表frxReport1->

38、;ShowReport(true);讓我們來解釋一些細節(jié)：    所有在報表中使用的數(shù)據(jù)集都必須添加到數(shù)據(jù)源列表中，在我們示例中，是用frxReport1.DataSets.Add(frxDBDataSet1)這一行執(zhí)行的。否則，報表就不會工作。    數(shù)據(jù)頁對于插入內(nèi)部數(shù)據(jù)集是必要的，例如TfrxADOTable。這些數(shù)據(jù)集只能放在數(shù)據(jù)頁。    調(diào)用Page.SetDefaults不是必須的，因為在這個案例中頁A4紙張設(shè)置和頁邊距都是0毫米。默認值設(shè)置10毫米頁邊距，并捕獲打印機頁大小和對齊方式。    在增加欄到頁面的同時，你要確認他們沒有互相重疊在一起。要執(zhí)行他，頂部和高度的坐標(biāo)是相似的。總是要在設(shè)計器中定位相同的位置的。 對象的坐標(biāo)和大小是以像素為單位的，因為所有對象的left,