汽車業務管理系統(VBMS)使用FastReport設計報表（一）

一、 報表設計與范例

根據報表需求的不同，你可以利用多種報表方式完成報表。下面我將結合VBMS中已經實現的報表范例講述各種報表的設計方法和思路。FastReport

1、簡單報表(Simple list)

*報表格式

一般由報表抬頭、頁首、頁腳（或者欄首、欄尾，或者頭、尾）、主項數據組成。

*報表范例

#商品檔案列表

步驟如下：

1. 新建數據源(FIB Components->FIB Query)，起名tblProduct。（修改Name屬性）

2. 獲取所需數據(tblProduct->SQL)。

3. 依次添加ReportTitle、PageHeader、MastData、PageFooter區域。

4. 設置MastData區域連接的數據源->tblProduct。（雙擊MastData區域）

5. 在ReportTitle中添加文本對象，錄入報表名稱。

6. 在PageHeader中添加若干文本對象，錄入字段中文名稱。

7. 在MastData中添加若干文本對象，并連接該文本對象至對應數據字段。（可以從下拉框中選取）

8. 在PageFooter中添加文本對象，錄入頁碼。（使用FastReport中的系統變量 [Page]）

SQL語句:

SELECT * FROM TB_PRODUCT;

《備注：一般報表都是從簡單開始構建，然后逐步細化后得出的。因此可以利用FastReport報表中的新建報表向導功能(菜單->文件->新建…->標準報表向導)快速搭建起一個報表的雛形，而且他會自動將各個字段排列整齊，這樣可以節約一些時間。

如果希望在報表抬頭打印本公司的名稱以及電話等信息，可以使用自定義變量(Custom)中的相關變量，該變量內容為VBMS在參數設置中定義的本公司資料。

在向PageHeader中添加中文欄目和向MastData中添加數據字段時，你可以直接用鼠標從右側的數據列表框中拖拽相應字段到相應的區域中。你可以將欄目和字段一起建立，當然數據列表框下方的多選框要打勾。

可以在PageFooter中添加頁碼(Page)和總頁數(TotalPages)。一般在文本對象中的格式為：共[TotalPages]頁第[Page]頁。但是需要聲明的是，必須將報表設置成兩遍報表(Double pass)模式后TotalPages變量才起作用否則為0。這很好理解，當報表引擎(Engine)執行第一遍時并不知道數據將充滿幾頁紙，只有當第一遍完成后才計算得出，因此需要二遍報表才能打印出總的頁數。因此兩遍報表在FastReport中是一個重要概念，對于某些特殊報表可能會用到。例如：需要將統計的合計值打印在所有明細之前而不是之后。》

技巧：

前面說過，你可以利用字段別名修改英文的字段名稱為中文名稱，這樣對于系統不很熟悉的人也可以看得懂報表。這里介紹另一個方法，使用該方法既可以達到修改中文名稱的目的，又可以令報表制作更加快捷。例如還是上面這張商品檔案列表。我們可以直接在SQL語句中加入中文別名。如下所示：

SQL語句：(中文別名需要用雙引號包含)

SELECT PRODUCTNUMBER AS "商品編號",

PRODUCTNAME AS "品名規格",

PRODUCTUNIT AS "單位",

SELLPRICE AS "零售價"

FROM TB_PRODUCT

這樣做的好處，一是報表中的數據字段均為中文容易理解，二是在執行上面6、7步驟時，你可以拖拽右側的數據字段同時建立欄目頭和字段，而此時欄目頭中也跟隨著變成了中文，避免了重新修改成中文的麻煩。當然由于vbms中的報表數量龐大，因此并未采用這種方法。

*報表中的變量

FastReport中的變量分為三種。

#系統變量

系統定義的一些與報表打印相關的變量，這里介紹幾個常用的變量。

• Date --- 系統當前日期
• Time --- 系統當前時間
• TotalPages --- 總頁數（必須設置Double pass）
• Page --- 當前頁碼
• Line --- 當前行序號
• Line# --- 也是當前行序號，但區別是在一個新的數據區域(Band)內該變量將重新計數。

#自定義變量(Custom)

自定義變量是由VBMS系統傳入到報表系統中的。

#編程(Code)中使用的全局變量

你可以在Code頁的起始處定義一些需要的全局變量。

例如：

var

S: string;

這里S就成了一個全局的字符型變量，你可以對它進行賦值、取值。也可以在文本對象中引用它，格式為：[<S>]。

《備注：其實在FastReport報表系統中，所有對象諸如頁(Page)、區域(Band)、文本對象(TextObject)、對話框控件、數據源字段、系統變量、自定義變量等，你均可以在文本對象中顯示他們的值，只是引用他們的方式不同罷了。

例如：通過文本對象(TextObject)

打印文本編輯框的內容可以引用Text屬性，格式：[Edit1.Text]。

打印公司名稱可以引用自定義變量，格式：[CompanyName]。

打印數據字段值，格式：[tblProduct."商品編號"]。其實數據字段也可以看成變量。

打印自定義的全局變量，格式：[<S>]。這里S需要用尖括號包含，其實一般情況下對于變量而言均需要用尖括號包含，只是FastReport對于非自定義的變量（不是在Code中定義的）有了一個預先判斷，允許省略尖括號而已，你加上尖括號也不會出錯。但在編程(Code)中所有變量被引用就一定需要有尖括號。

特別提醒：在文本對象中打印所有變量都必須用中括號[]將變量包含起來。》

2、主從報表（Master Detail）

*報表格式

一般由報表抬頭、頁首、頁腳（或者欄首、欄尾，或者頭、尾）、主項數據、細項數據組成。

*報表范例

#銷售單據列表

步驟如下：

1. 新建2個數據源(FIB Components->FIB Query)，起名tblOrder、tblItem。

2. 獲取所需數據(tblOrder->SQL、tblItem->SQL)。

3. 依次添加ReportTitle、PageHeader、MastData、Header、DetailData、Footer、PageFooter區域。

4. 設置MastData區域連接的數據源->tblOrder，DetailData->tblItem。

5. 在ReportTitle中添加文本對象，錄入報表名稱。

6. 在PageHeader中添加若干文本對象，錄入字段中文名稱（單據頭）。

7. 在MastData中添加若干文本對象，并連接該文本對象至對應數據字段。

8. 在Header中添加若干文本對象，錄入字段中文名稱（單據體）。

9. 在DetailData中添加若干文本對象，并連接該文本對象至對應數據字段。

10. 在Footer中添加System Text對象，用于顯示金額合計。

11. 在PageFooter中添加文本對象，錄入頁碼。（使用FastReport中的系統變量 [Page]）

SQL語句:

#tblOrder

SELECT * FROM TB_ORDER WHERE ORDERTYPE='銷售出庫';

#tblItem

SELECT * FROM TB_ITEM WHERE ORDERID=:ORDERID;

《備注：主從報表的關鍵是需要關聯主數據源和從數據源。一般情況需要通過以下方式關聯：

#從數據源的SQL語句中一般需要有用于關聯的關鍵字段（外鍵）。例如上例中的ORDERID=:ORDERID。前面的ORDERID為tblItem的外鍵，即明細數據通過ORDERID與某一條主項數據關聯。而:ORDERID為一個變量（在SQL語句中使用<冒號+變量名稱>表示一個變量）。而一般這個變量的名稱（ORDERID）的定義與tblOrder（主項數據）中的主鍵的名稱相同，即變量名稱定義為:ORDERID而不是:O或者其他。這樣做的目的是系統可以自動進行匹配。

#定義tblItem的屬性Master等于tblOrder。這樣明細數據就被主項數據所控制了。

#定義tblItem的屬性Params中的變量ORDERID的類型為整型（Integer），值為變量<tblOrder."ORDERID">。當你打開Params時，ORDERID變量已經默認存在了，這是因為你在tblItem的SQL中定義了這個變量的緣故。將來你可能會在一個數據源中定義多個變量，操作方法是相同的。設置值等于<tblOrder.&quot;ORDERID">表示當需要獲取:ORDERID變量的值時，將會從主項數據中獲取。這樣當主項數據的ORDERID發生變化時，明細數據也隨之變化。這個值的選取你可以通過按鈕(fx)更方便的獲取》

*SystemText對象

該對象與文本對象（TextObject）基本上相同，區別在于使用SystemText可以更加方便的對一個數據集進行求和或者其他的操作。雖然你也可以直接在文本對象（TextObject）中使用求和函數對數據集進行求和，不過使用SystemText可以令你不需要記憶許多函數，因為它幫你做了，基本上它就是一個構建函數向導的工具。當然如果你對FastReport中的函數比較熟悉，完全可以不必使用SystemText而直接使用TextObject更加快捷。

SystemText的用法如下：

#放置一個SystemText對象到Footer中，用于對銷售明細數據中的金額進行求和。

#系統會立即彈出一個對話向導框。你可以選擇三種方式中的一種：系統變量、求和、文本。這里主要將求和，另外兩種方式很好理解（系統變量用于打印時間、頁碼等，而文本與TextObject中一樣）。

#選擇求和（Ageregate value）。選擇函數->SUM（其他為最大值、最小值、平均值、數量），數據Band->DetailData1（設置你需要求和的數據區域，這里當然是明細數據），數據庫->tblItem（上一步選擇好后，系統自動會設定為該數據區域連接的數據源），下一步你可以從數據字段中選擇需要求和的字段（例如：TotalTaxSum）。或者在表達式中構造更為復雜的求和內容（這里暫不講述）。

#按確定后，SystemText中的文本自動生成為[SUM(<tblDetail."TOTALTAXSUM">;,MasterData2)]。當你再次雙擊該SystemText，你會發現對話框中系統默認為文本，而文本內容就是上面的內容。由此可見，SystemText其實就是TextObject加上函數向導。

《備注：大家如果仔細會發現在求和向導對話框中有兩個選項，一個是";計算不可見Band的數據"，一個是"執行總數"。這兩個選項是做什么用的呢？

"計算不可見Band的數據"：有時候在報表中我們會對數據源做一些設置，例如滿足某些條件的數據不顯示出來（例如：維修結算單打印中僅打印自付內容）。那么這個選項可以使得系統在求和時只計算可見的數據。

"執行總數"：我們知道，對于主從報表中明細的求和，例如銷售明細中商品的銷售金額。該金額是表示本單據的合計。當單據變化時，這個合計值也隨之變化。而有些時候，我們可能不希望這樣，而是希望有一個值一直在累加合計金額，而不是隨著單據的變化這個合計值被重置。那么這個選項可以使得系統一直累計合計值直到最后一張單據。

上面兩個選項對于很多報表是很有用處的。》

*SUM函數

完整定義：SUM(Expr,Band,Flags);

• Expr：你需要求和的變量或者更加復雜的函數，例如：<tblItem."TOTALTAXSUM">。
• Band：你需要求和的數據區域名稱，例如：DetailData1。
• Flags：默認為0，可以省略。

1 --- 計算不可見Band數據

2 --- 執行總數

3 --- 1 并且2（計算不可見Band數據 并且 執行總數）

3、分組報表（Group）

*報表格式

一般由報表抬頭、群組首、主項數據、群組尾組成。

*報表范例

#商品檔案報表(按商品分類分組)

步驟如下：

1. 新建1個數據源(FIB Components->FIB Query)，起名tblProduct。

2. 獲取所需數據(tblProduct->SQL)。

3. 依次添加ReportTitle、GroupHeader、MastData、GroupFooter區域。

4. 設置MastData區域連接的數據源->tblProduct。

5. 在ReportTitle中添加文本對象，錄入報表名稱。

6. 雙擊GroupHeader，設置分組條件，選擇數據字段tblProduct->PRODUCTSORT。

7. 在MastData中添加若干文本對象，并連接該文本對象至對應數據字段。

8. 在GroupHeader中添加若干文本對象，錄入字段中文名稱。

9. 在GoupHeader中添加一個文本對象，錄入<tblProduct."PRODUCTSORT">。用于顯示商品分類名稱。

10. 在GroupFooter中添加System Text對象，用于顯示合計數。

11. 在PageFooter中添加文本對象，錄入頁碼。（使用FastReport中的系統變量 [Page]）

SQL語句:

SELECT * FROM TB_PRODUCT ORDER BY PRODUCTSORT;

《所謂分組報表，就是按某一個字段進行分組顯示，該字段具有相同的值的數據記錄將被歸類顯示在一起。例如：上例中將商品檔案按照商品分類歸類顯示。

要達到分組的目的，其中一個關鍵是該數據集必須按分組條件排序。即SQL語句中一定要有ORDER BY這樣的排序語句，而排序字段就是分組的字段。

分組是可以多級的，也就是可以嵌套分組。例如：商品檔案定義時可能用商品分類表示大類，商品類型表示小類。分組顯示時希望按大類包含小類這樣嵌套方式顯示。那你可以讓數據集按ORDER BY PRODUCTSORT,PRODUCTSTYLE這樣來排序。排序時，排在前面的字段首先被排序，在相同的條件下，對排在后面的字段再進行排序。同樣的這種情況下，你需要增加兩個群組首尾，讓他們嵌套排列。居于外層的設置分組條件為商品分類，居于內層的設為商品類型。》

*分組條件設置中的選項

在你設置GroupHeader的分組條件時，有以下幾個選項，他們的用途如下：

#保持與群組在一起 --- 這個選項表示，FastReport報表系統總是試圖將一個群組的內容打印在一張紙上而不做分割。例如：有一個群組的內容比較多，而這個群組的開始打印位置居于紙的中部，因此本頁將無法將全部該群組的內容顯示完畢。那么FastReport將把這個群組打印在新的一頁上，這樣上頁紙的底部將會留出空白。當然如果這個群組在新的一頁仍然無法顯示完畢，那FastReport就接著顯示，不再做其他處理了。

#換頁 --- 這個選項與上面這個選項基本概念相同，只是他總是將新的分組內容打印在新的一頁上，而不管這個分組的內容有多少。當然這樣紙張的空白也更多更浪費。但這種方式對于某些客戶來說仍然可能是需要的。

#顯示在大綱 --- 如果選擇本選項，那么在你預覽報表時，你可以使用綱要功能（有一個綱要按鈕）。他可以將分組的名稱顯示在左邊的樹型框中，這樣你可以更加方便的定位到相應的分組。

《如果你想預覽時總是顯示綱要（不需要總是按綱要按鈕）。你可以選擇左側Page1中的Report對象，在屬性PreviewOptions->OutlineVisibe設置為True。》

*Reprint On NewPage

如果你選擇GroupHeader區域，然后點擊鼠標右鍵彈出菜單（Context PopupMenu）。你會發現有一個選項Reprint On NewPage，這個在其他區域的右鍵菜單中是沒有的。他是起什么作用呢？

我們知道，一般分組報表設計時，總是將分組條件和中文字段名稱顯示在群組首。這樣打印時，碰到一個新的分組，FastReport先是打印群組首中的內容，例如：商品分類的名稱等。然后再打印該分組的數據。但如果數據較多時不能在一頁中顯示，那么剩余內容將打印在后面的一頁中。這帶來一個問題就是，如果獨立看待后面一頁紙，上面顯示的數據我們不知道是屬于哪一個商品分類的（分組），必須返回去查看上一頁中的群組首才知道。而使用Reprint On NewPage，則FastReport將在新的一頁中將群組首中的內容再打印一遍（Reprint）。這樣你就可以清楚知道本組數據的歸屬了。當然這樣的話，群組首中的內容將可能會被打印超過一遍，這取決于數據的多少。

分欄報表、多列報表、子報表、交叉報表就不詳講了

二、 常用功能及函數

常用功能列舉如下：

*報表設置

什么時候需要兩遍報表（Double pass）？

應用1 用于顯示總的頁數（TotalPages），例如：頁腳顯示第1頁/共20頁。系統第一遍掃描報表時計算出TotalPages，然后第二遍實際生成報表。如果不使用Double pass，則TotalPages返回0。

應用2 用于將明細項的合計值打印在報表起始位置，而不是在末尾。這需要在第一遍掃描報表時計算出然后在第二遍生成報表時顯示在起始位置。

密碼 --- 用于將報表加密，這樣在設計或者顯示報表時需要輸入密碼。

*頁面設置

分欄 --- 可以將報表在一張紙上分成若干列來打印，比較利于節省紙張。這與在主項數據的Band中設置多個列（Column）不同，分欄打印順序是從上往下，然后從左往右。多列打印順序是從左往右，再從上往下。

函數

ListValue --- 根據SQL語句自動填充一個列表的值；

procedure ListValue(ASQL: string;AList: TStrings);

begin

tblList.Close;

tblList.SQL.Text := ASQL;

tblList.Open;

tblList.First;

while not tblList.Eof do

begin

AList.Add(tblList.Fields[0].AsString);

tblList.Next;

end;

end;

ShowLoginSector --- 登陸分公司列表自動選擇，如果不是管理部門則不允許選擇；

procedure ShowLoginSector(L: TfrxComboBoxControl);

var

S: string;

begin

S := VarToStr(Get('LoginSector'));

if S = '' then S := '管理部門';

L.ItemIndex := L.Items.IndexOf(S);

L.Enabled := S = '管理部門';

end;

報表設計中常用技巧：

A 為系統數據源增加自定義數據源，達到擴展數據的目的

在VBMS中的報表中心我們可以自己設計數據源然后設計自己需要的報表。其實，我們在其他的模塊中一樣可以自己設計數據源（原來以為不可以）。

設計方法與報表中心中是一樣的。

下面我舉一個例子：

在客戶檔案模塊中的打印報表中，增加每個客戶的對應的車輛資料的顯示。

原報表中已經有了一個系統傳入的數據源dsCustomer。

1. FIB->FIB Query，新增一個數據源 dsVehicle。

SQL語句為：

SELECT * FROM TB_VEHICLE WHERE CLIENTID=:CLIENTID；

其中:CLIENTID為變量，是隨著dsCustomer的變化而變化的。

（注意：如果你希望這個變量由主數據源來控制，則該變量的命名必須與主數據源中的字段名稱一致。）

2. 設置dsVehicle的如下屬性：

Master -> dsCustomer；（設置主數據源）

Params -> CLIENTID，數據類型 Integer，值 <dsCustomer."CLIENTID">;

（設置參數：設置值時可以選擇按鈕fx來選擇）

3. 插入一個Band（明細數據）。

設置連接數據庫為dsVehicle。然后放入相關的字段（Text Object）。

4. 鼠標右鍵設置MastData1的 Print if Detail Empty。目的是如果該客戶沒有車輛依然需要打印出來。

總結：

現在，我們既可以在報表中心，也可以在任何位置的打印報表中設計自己的數據源，并且可以將自己的數據源與vbms系統傳入的數據源進行關聯。這樣的應用可以使報表設計更加靈活、更加強大。

B 為報表增加分組顯示功能

在vbms系統的設計報表功能中，有一個群組頭、群組尾的功能。

如果將群組頭和群組尾分別置于主項數據的上面和下面，則可以對該主項數據進行分組統計功能，設置群組頭時，系統會詢問對哪一個字段進行分組。然后你可以在該群組頭上放置一個該字段的TextObject來顯示分組內容，在群組尾放置一個用于求和的SystemText。這樣就可以按照該字段來分組統計了。

注意：要讓相同組別的記錄顯示在一起，必須使數據源按該字段排序。因此，在一般報表中，如果你希望按照某個字段來分組統計，必須在打印所在的窗體上點擊數據列表的該字段項（即排序，可以正排和逆排），然后再進入打印對話框來打印；如果是在報表中心中設計的報表，則在SQL中必須加上ORDER BY語句來排序。

另外，在群組頭的屬性中有一個OutLine，如果等于True。則可以在預覽中使用列表導航。

C 將對話框（DialogForm）中的信息顯示在報表中。

例如：對話框中錄入開始日期和結束日期，你希望將該時間范圍顯示在報表頭上。

方法是，在報表頭上加一個Text Object，然后錄入[edtBD.Text]；edtBD就是開始日期編輯框的Name，記住要用中括號括起來。其他的類推。

*在對話框中的下拉框中顯示一個列表。

例如，在對話框中你可能需要用一個下拉框讓用戶選擇某一個供應商，下拉框中存儲了所有供應商。

方法是，首先建一個數據源（tblProvider），該數據源返回了所有供應商。在對話框中放一個下拉框（cmbClientName），在對話框的OnShow事件中編寫如下代碼：

tblProvider.Open;

tblProvider.First;

while not tblProvder.Eof do

begin

cmbClientName.Items.Add(tblProvider.FieldByName('CLIENTNAME').AsString);

tblProvder.Next;

end;

該方法通用，只需要替換相應的數據源就可以實現其他的內容。

D 在分組腳或者欄尾顯示多個數據項的合計。

例如，對于導購人員統計表，有銷售金額、項目金額、其他金額三項，我希望在欄尾顯示三項的合計值（不是每一項的合計）。

如果要分別統計每一項的合計，你只需這樣。

SUM(<tblBMAccount."SELLSUM"&gt;)就可以統計銷售金額了。

將三項加起來，則寫如下代碼

SUM(<tblBMAccount.&quot;SELLSUM";>+<tblBMAccount."SERVICESUM">+<tblBMAccount."OTHERSUM">)

*這里講一下一些語法格式。

取一個字段的格式，

格式：TableName."FieldName"

表名+逗號+字段名，字段名用雙引號引起來。

如果你希望在一個TextObject中顯示某一個字段內容，

格式是：[TableName."FieldName"]

用中括號括起來，中間是字段。

如果該字段內容作為參數參加運算或者作為一個函數的參數，則需要用<>尖括號將字段括起來。

格式：SUM(<TableName."FieldName">)

比如：SUM(<tblBMAccount."SELLSUM">)；

或者 <tblBMAccount.";SELLSUM">+<tblBMAccount."SERVICESUM">；

同樣的，如果希望將他們放在Text Object中顯示，還必須加上中括號。

例如：[SUM(<TableName."FieldName">)]

這里關鍵記住，如果想在TextObject中顯示要用[]中括號，要在函數的參數中引用字段或者使用字段進行運算，需要用<>尖括號將字段括起來。

E 如何將報表底部的合計顯示在報表頭

如果直接將合計的TextObject放在主項數據的前面，將不能統計值，因為此時尚未解析出所有數據。

利用FastReport的兩遍報表和臨時變量功能實現。

首先設置該報表為兩遍報表（Double Pass）。

在底部的某一個Band中的OnBeforePrint事件中加入以下代碼：

例如：

Set(<tblBMAccount."BM">,SUM(<tblBMAccount."SELLSUM">+<tblBMAccount."SERVICESUM">;+<tblBMAccount."OTHERSUM">));

說明：Set是一個函數，他將一個值存入了一個變量中。

Set(var,value)；其中變量var可以利用數據表中的某一個字段，Value是你的合計值。

在主項數據（MastData）的上面的某一個Band中放一個TextObject（例如：memTotal）

然后在該TextObject的OnBeforePrint事件中加入如下代碼：

例如：

if Engine.FinalPass then

memTotal.Text := Format('%8.2f',[Get(<tblBMAccount."BM">)]);

說明：Engine是FastReport管理報表的對象，FinalPass表示最后一遍報表。

Get(var)將變量var的值返回。Format是一個格式化數字的函數。

F 在底部顯示多個數據源某個字段的合計值

例如：將三個明細的合計相加后顯示總的合計。

方法一：

公式如下：

[SUM(<dsServiceItem."TOTALTAXSUM">,MasterData1)+SUM(&lt;dsProductItem."TOTALTAXSUM">,MasterData2)+SUM(<dsOtherItem."TOTALTAXSUM">,MasterData3)]

但有一個問題是，當三個明細不是全部存在時，打印時會發生Variant Operate操作錯誤。

我分析該錯誤產生的的原因是當其中一個明細不存在時，此時SUM后的結果為NULL（空值）而不是0，所以當一個NULL值與其他一個數值相加時會發生上述錯誤。

解決的方法是，判斷一下：如果SUM后為NULL，則給它賦值0。恰好FastReport中有一個函數IIF(Expression,TureValue,FalseValue);該函數可以通過判斷條件，如果條件為True，則返回True值，為False則返回False值。

所以將上述表達式進行一些改造。

IIF(SUM(<dsServiceItem."TOTALTAXSUM&quot;>,MasterData1)<>null,SUM(<dsServiceItem."TOTALTAXSUM">,MasterData1),0)

上面這個表達式表示：如果合計值不為空，則返回合計值，否則返回0。

因此，整個表達式如下：

[IIF(SUM(<dsServiceItem."TOTALTAXSUM">,MasterData1)<>null,SUM(<dsServiceItem."TOTALTAXSUM">,MasterData1),0)+IIF(SUM(<dsProductItem."TOTALTAXSUM">,MasterData2)<>null,SUM(<dsProductItem."TOTALTAXSUM">,MasterData2),0)+IIF(SUM(<dsOtherItem."TOTALTAXSUM">,MasterData3)<;>null,SUM(<dsOtherItem."TOTALTAXSUM">,MasterData3),0)]

方法二：

在Code頁的最頂部定義三個變量，例如：

var

V1,V2,V3: Double;

在每個數據源的主項腳的OnBeforePrint的事件中分別錄入：

主項腳1的OnBeforePrint:

V1 := SUM(<dsServiceItem.&quot;TOTALTAXSUM">,MasterData1);

主項腳2的OnBeforePrint:

V2 := SUM(<dsProductItem."TOTALTAXSUM">,MasterData2);

主項腳3的OnBeforePrint:

V3 := SUM(<dsOtherItem."TOTALTAXSUM">,MasterData3);

在需要顯示合計的TextObject中使用：

[<V1>]或者[<V2>]或者[<V3>]或者[<V1+V2+V3>]即可。

G 在報表中引入自己的數據源

有客戶需求：希望打印條碼時同時打印出商品的品名規格和零售價（或其它商品相關信息），但條碼庫數據表中沒有相應的數據字段。如何進行設計呢？

其實利用條碼庫數據表中的商品序號（ProductID），可以自己增加一個數據源（dsBarCodeEx），通過ProductID作為主鍵來連接數據表TB_BARCODE和TB_PRODUCT，將TB_PRODUCT表中的某些字段引入（根據需要）。

數據源可能是如下內容：

SELECT

TB_BARCODE.PRODUCTID,

TB_BARCODE.BARCODE,

TB_PRODUCT.PRODUCTNUMBER,

TB_PRODUCT.PRODUCTNAME,

TB_PRODUCT.SELLPRICE

FROM

TB_BARCODE

LEFT JOIN TB_PRODUCT

ON TB_PRODUCT.PRODUCTID=TB_BARCODE.PRODUCTID

這樣，你可以利用自己設計的數據源（原來的數據源dsBarCode不去管他）設計出相應的條碼打印報表（可以打印零售價等）。

H 在報表中實現可變數據源

在報表中可以根據對話框中的條件實時調整數據源中的參數。

例如：在庫存狀況表中導出到條碼庫后（所有商品均導出），有時需要只打印某些商品的條碼。你可以設計一個對話框，可以按照商品編號篩選，如果篩選條件為空，則打印所有商品，否則打印篩選出的商品。

設計數據源如下：

SELECT

BA.PRODUCTID,

BA.BARCODE,

PR.PRODUCTNUMBER,

PR.PRODUCTNAME,

PR.SELLPRICE

FROM

TB_BARCODE BA

LEFT JOIN TB_PRODUCT PR

ON PR.PRODUCTID=BA.PRODUCTID

WHERE PR.PRODUCTNUMBER = :N

然后在數據源的Params中設置N的參數。

此時，如果篩選條件為空，則查詢出來的數據也為空。

這是因為條件 WHERE PR.PRODUCTNUMBER = :N 導致的。

篩選條件為空時，數據源應該去掉該條件。此時需要根據條件動態調整數據源。

在btnOK（對話框中的確定按鈕）的OnClick事件中加入以下代碼：

procedure btnOKOnClick(Sender: TfrxComponent);

var

S: string;

begin

S := 'SELECT BA.PRODUCTID,BA.BARCODE,PR.PRODUCTNUMBER,PR.PRODUCTNAME,PR.SELLPRICE'+

' FROM TB_BARCODE BA'+

' LEFT JOIN TB_PRODUCT PR'+

' ON PR.PRODUCTID=BA.PRODUCTID';

if edtProductNumber.Text<>'' then

begin

S := S + ' WHERE PR.PRODUCTNUMBER = :N';

dsBarCodeEx.ParamByName('N').Value := edtProductNumber.Text;

end;

dsBarCodeEx.SQL.Text := S;

end;

該代碼根據篩選條件不同，對數據源的SQL語句進行不同的設置。

這樣就可以達到要求了。

I 在對話框中，顯示開始日期和結束日期。

在DialogPage1的OnShow事件中加入以下代碼：

方式1：

procedure DialogPage1OnShow(Sender: TfrxComponent);

begin

edtBD.Text := DateToStr(Date);

edtED.Text := DateToStr(Date);

end;

說明：

edtBD,edtED為開始日期、結束日期的編輯框。

DateToStr()函數將日期型變量轉為字符串。

現在，開始日期和結束日期默認為今日。

方式2：

procedure DialogPage1OnShow(Sender: TfrxComponent);

var

Y,M,D: Integer;

begin

Y := YearOf(Date);

M := MonthOf(Date);

D := DaysInMonth(Y,M);

edtBD.Text := DateToStr(EnCodeDate(Y,M,1));

edtED.Text := DateToStr(EnCodeDate(Y,M,D));

end;

說明：

YearOf()函數返回某個日期的年份；

MonthOf()函數返回某個日期的月份；

DaysInMonth()函數返回某月的天數；

EnCodeDate()函數將年、月、日整型數轉為日期型；

現在，開始日期為本月的1號，結束日期為本月的最后一天。

J 在對話框DialogPage1中使用警告框提醒輸入相關內容

例如：你可能需要用戶必須錄入某些查詢內容，否則提醒用戶輸入。

在btnOK（確定按鈕）的OnClick事件中加入以下代碼：

procedure btnOKOnClick(Sender: TfrxComponent);

begin

if edtDepotName.Text = '' then

begin

ShowMessage('請輸入倉庫!');

edtDepotName.SetFocus;

DialogPage1.ModalResult := mrNone;

Exit;

end else

DialogPage1.ModalResult := mrOK;

end;

說明：

ShowMessage()函數用于顯示一條警告信息。

edtDepotName.SetFocus 表示該編輯框獲取輸入焦點；

DialogPage1.ModalResult := mrOK 表示通過；

DialogPage1.ModalResult := mrNone 表示不通過；

K 單據打印中如何實現空表格填滿剩余的空行，達到指定的行數。

在原來的報表基礎上，增加一個子Band（Child1），在這個Band上設計空白行。

可以將Footer1的高度Height設置為0；

在Code頁中錄入以下代碼：

var

PageLine: Integer; //在現在頁打印到第幾行

PageMaxRow: Integer = 8; //指定的每頁固定行數 你可以修改

//在MasterData1的OnBeforePrint事件中加入以下內容

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);

begin

PageLine := <Line#> mod PageMaxRow;

if (PageLine = 1) and (<Line#> > 1) then

Engine.NewPage;

end;

//在Footer1的OnBeforePrint事件中加入以下內容

procedure Footer1OnBeforePrint(Sender: TfrxComponent);

var

i: Integer;

begin

i := iif(PageLine=0,PageMaxRow,PageLine);

while i < PageMaxRow do

begin

i := i + 1;

Engine.ShowBand(Child1); //增加一個子Band，在該Band上設計空白的行

end;

end;

L 在報表中使用金額大寫

在FastReport的設計模式下，在Code頁中加入以下函數：

function SumToCaps(const Value : Double): string;

const

d = '零壹貳叁肆伍陸柒捌玖分角元拾佰仟萬拾佰仟億';

var

m,k : string;

j : Integer;

begin

k :='';

m :=FloatToStr(int(Value*100));

for j:=length(m) downto 1 do

k := k+d[(strtoint(m[Length(m)-j+1])+1)*2-1]+

d[(strtoint(m[Length(m)-j+1])+1)*2]+d[(10+j)*2-1]+d[(10+j)*2];

result := k;

end;

當你需要將一個金額轉換為金額大寫時可以如下操作：

1、在Code頁的開始處定義一個字符串。

Var

TOTALSUM_CAPS: string;

2、在相應的事件（可能是OnBeforePrint）中加入

TOTALSUM_CAPS := SumToCaps(TOTALSUM);

注：這里的TOTALSUM可能是一個變量，也可以是數據源中的字段或者合計值。例如：

<tblMaster."TOTALSUM">或者SUM(<tblMaster."TOTALSUM",MasterData1,1>)。

3、在需要顯示大寫金額的TextObject中鍵入[<TOTALSUM_CAPS>]。

M 如何隱藏某些主項數據記錄

通常當某個數值為零時，我們不希望這條記錄被打印或者顯示。

步驟如下：

1、選擇主項數據MastData1的OnBeforePrint時間。

2、在OnBeforePrint事件中填寫代碼

if <tblMaster."TotalSum">=0 then

MastData1.Visible := False else

MastData1.Visible := True;

其中<tblMaster."TotalSum">=0是條件，你可以定義為自己的條件。

N 如何強調某些主項數據的內容

有時我們希望當滿足一定條件時，某些數據的字體或者顏色顯示不同，以達到強調的目的。

步驟如下：

1 選擇需要強調的TextObject。

2 選擇工具欄中的強調按鈕。

3 在對話框中錄入需要強調時的條件。例如：<tblMasterData.";TotalSum"> >= 1000

4 選擇強調的字體，顏色。