FastReport報表設計
FastReport報表設計
原文地址:FastReport報表設計作者:小黑
目錄
5.1 前言
5.2 基本概念及操作
5.3 報表設計與範例
5.4 常用功能及函數
5.5 報表設計常用技巧
5.1 前言
汽車業務管理系統(VBMS)使用FastReport3.0報表系統設計報表。
本文主要描述使用FastReport設計報表的基本概念、使用方法、設計技巧和範例,不是FastReport的用戶手冊因此並不針對每個細節進行闡述。立足於建立設計報表的概念和實用技巧範例的講解,面對的是具有一定計算機操作水平的用戶。
在VBMS中使用FastReport設計報表應該掌握以下知識:
2、 掌握VBMS的數據結構,可參考相關資料。
3、 掌握FastReport報表的設計使用方法。
體系結構
學習報表設計前應當首先弄清楚VBMS系統與FastReport報表設計之間的關系。報表設計的目的是將VBMS數據庫(Firebird1.5)中的數據按照需要的視圖方式顯示、統計出來,並且可以打印、導出。
VBMS數據庫與VBMS管理系統以及FastReport報表設計之間的關系是:
Firebird數據庫系統是報表的數據源,它存儲著客戶的業務數據。但該數據的存儲方式並不一定是客戶希望直接看到的。
VBMS管理系統是中間層,它負責連接Firebird數據庫和FastReport報表系統,將數據庫信息(例如數據庫的位置)傳入到報表系統中供設計報表時使用。
設計步驟
完成一張報表的設計主要包括以下幾個步驟:
1、 確定報表的需求,查閱VBMS關於數據庫結構的文檔,確認該需求的所有內容在VBMS中均有數據字段記錄(即VBMS必須記錄了相關數據,否則報表設計無從談起)。
3、 利用數據庫工具(例如:IBExpert),使用SQL語言嘗試獲取報表希望的數據集。這裏有可能不能通過SQL語言一步到位獲取到希望的結果,但你仍可能通過FastReport報表系統對數據集進行二次加工。
4、 在FastReport報表中自定義數據源(通過上步獲取的SQL語句),利用報表系統中提供的各種控件構造出希望的報表格式。
5、 對於設計好的報表進行測試。
5.2 基本概念及操作
本節主要講述FastReport報表系統的基本概念、基本操作方法、基本控件使用等內容。
基本概念
最主要的概念是FastReport報表的組成方式和控件主要用途,它一般包括以下方面:
*頁面(Page) --- 默認為Page1
與我們現實中使用的紙張相似。但它不僅僅指的是一張紙,而是用於我們設計報表的容器。打印出來可以是一張紙也可以是多張。頁面(Page)可以有多個(你可以新增頁面New Page),即可以有多個報表容器。利用這一點,你可以設計出復合報表(Composite Report)。
利用頁面設置可以定義大小、方向、邊界、打印方式、分欄等參數。這裏不再詳述,只特別強調分欄的作用。你可以將頁面分成多欄,這樣打印時數據將按照從上到下,再從左往右的方式顯示。這就是我們通常說的分欄報表(Splite Report)。
*區域(Band)
FastReport將整個頁面劃分成若幹個區域。而每個區域有著各自不同的功能,這些功能由FastReport自動加載。一個頁面中可以沒有區域,也可以只有其中的某些區域,這根據報表的需求而定。放置在頁面中的區域有範圍,落入區域範圍內的控件(例如:TextObject)才具有區域的功能。
重要的區域包括:
#報表擡頭(ReportTitle)
僅在第一頁顯示在紙張的上部。一般用於打印報表的標題等信息。
#報表合計(ReprotSummary)
僅顯示在所有數據的最後末尾。一般用於打印統計信息等。
#頁首(PageHeader)
顯示在每頁的最上部。通過設置你可以讓它置於報表擡頭之上或者之下。一般用於打印頁眉信息等。
#頁腳(PageFooter)
顯示在每頁的最底部。一般用於打印頁序等信息。
#主數據(MasterData)
用於顯示數據源的數據,是最重要的區域。在該區域中可以定義連接哪一個數據源,那麽該數據源的數據將會按順序依次將記錄打印出。
數據區域還有明細數據(DetailData)等,一共支持6階數據。利用明細數據可以設計出主從報表、主-細-子細報表等。例如:各類單據的打印報表就是由單據頭(主數據)和單據體(明細數據)共同完成的。
在打印時,明細一級的數據是受上一級主數據的控制,因此需要進行相關設置。
#頭(Header)
顯示在所有數據源的最上部,僅打印一次。一般用於顯示相關摘要信息。
#尾(Footer)
顯示在所有數據源的最下部,僅打印一次。一般用於顯示所有數據的合計信息。
#欄首(ColumnHeader)
顯示在每頁數據源的上部,它在每頁均顯示。因此一般用於打印數據源字段的欄目信息。
#欄尾(ColumnHeader)
顯示在每頁數據源的下部,它在每頁均顯示。一般可用於統計顯示每頁數據的頁合計信息。
#群組首(GroupHeader)
用於顯示分組數據,在每一個分組開始顯示。一般可用於顯示分組索引數據。例如:將商品檔案按商品分類分組顯示,在群組首你可以顯示商品分類名稱。利用群組首可以設計出分組報表,關鍵是數據源必須按分組索引的字段排序才能達到分組的效果。群組首可以有多個,即可以嵌套使用。
另外,可以設置讓分組索引數據在報表預覽時顯示在左側的樹型列表框(OutLine)中。
#群組尾(GroupFooter)
與群組首一一對應。一般用於顯示分組數據的統計信息。
#子(Child)
是一個獨立的區域。你可以設置子區域隸屬於上述區域中的任何一個。在打印時,打印完父區域後,子區域將會跟隨打印。一般可用於打印裝飾線、調整高度或者打印子報表(SubReport)。
#重疊(overlay)
該區域內包含的內容將從頁的開始位置計算打印,而不受其他功能區域的影響。一般用於無法在其他功能區域打印的內容的顯示。
*對話框(DialogPage)
你可以通過設計對話框完成對數據源進行動態控制的目的,這也是設計復雜報表的重要手段。
對話框主要通過各種輸入數據控件來接受客戶的查詢請求,因此可以學習幾種主要的控件。
#標簽(Label Control) --- 用於顯示文字信息。使用Caption屬性修改文字信息。
#文本編輯框(Edit Control) --- 用於接收用戶錄入的文字信息。使用Text屬性修改文字信息。
#按鈕(Button Control) --- 一般用於確定和取消。使用Caption屬性修改文字信息。
#多選框(CheckBox Control) --- 用於用戶對條件的選擇。使用Checked屬性確定是否。
#單選框(RadioButton Control) --- 用於用戶對條件的單一選擇。使用Checked屬性確定是否。
#下拉框(ComboBox Control) --- 用於用戶對多個數據列表的選擇。使用Text屬性修改當前文字信息,使用Items屬性填充列表信息。
#時間框(DateEdit Control) --- 用於用戶對時間的選擇。利用Date屬性改變時間。
在Code頁中,使用Pacal Script(就是類Pascal)語言進行編程,將大大發揮報表的功能。
|
*文本對象(Text Object)
這是FastReport報表中使用最頻繁的控件。可用它完成如下主要功能:
- 顯示一般文字信息 --- 直接錄入即可。
- 顯示數據字段信息 --- 一般格式:[數據源."字段名稱"]。
- 顯示變量內容 --- 一般格式:[<變量名>]。
- 顯示裝飾線等。
文本對象可以進行文字對齊、格式轉化、文本著色、字體改變、畫邊框線等許多功能,這與MicrosoftWord中的操作有諸多相同特征。因此這裏不再一一贅述。
在文本對象中引用數據字段或者變量需要用中括號包含,而且引用變量名時還需要用尖括號包含,這樣系統就知道這是一個變量名稱而不是其他什麽。
|
*子報表(Subreport Object)
放置子報表後,系統會自動增加一個頁面,你可以在此頁面上設計需要的報表。系統在打印處理時,先按主報表打印,當碰到子報表時會自動轉入子報表的頁面進行打印處理,完成後繼續執行主報表打印的工作,所以我們又稱之為嵌套報表。
設計子報表與主報表基本上相同,唯一的區別是有些功能區域不能在子報表中實現,例如:報表擡頭、群組。
*交叉報表(DB cross-tab)
又稱動態報表,即可以實現橫向和縱向都不能確定時的報表。該報表的實現需要數據源按一定規格組織數據方能實現。
*數據感知控件(FIB Query)
利用該控件進行數據源的設計,可以完成設計SQL語句、測試結果、字段別名等工作。
在FIBQuery控件的SQL屬性對話框中有一個QueryBuilder工具。利用該工具你可以查看到目前數據庫中所有的數據表以及數據字段信息。並且可以在工具中利用向導功能(Model)可以更好的完成SQL語句的編制工作,並可以測試結果(Result)。不過這裏列出的僅是數據表(Table),還有視圖(View)沒有列出。如果需要使用視圖或存儲過程(Procedure)可以查閱相關資料,FIBQuery同樣支持視圖和過程。 |
FastReport報表系統中還包含了一些其他控件,這些控件大部分是用於裝飾報表的,比較容易理解,使用起來也比較簡單,這裏也不再說明了。
基本操作
FastReport中的操作與MicrosoftWord中的操作非常相似,不再詳述。下面僅對一些常用功能及操作技巧進行提示。
*熱鍵
Arrow --- 在Object之間移動
Del --- 刪除一個Object
Enter --- 調出選擇的Object的編輯器
Shift+Arrow --- 改變Object的尺寸大小
Ctrl+Arrow --- 移動Object的位置
Alt+Arrow --- 移動選擇的Object到相鄰的Object的旁邊並且對齊
*鼠標
Left button --- 選擇、移動一個Object,對於多選的一組Object,可以拖動右下角的紅點同時改變所選的Object的尺寸大小
Right button --- 調出右鍵菜單
Shift+left button --- 多選Object
Ctrl+left button --- 按住Ctrl鍵不放用鼠標左鍵可以拖出一個虛線矩形框,釋放鼠標按鈕可以將該矩形框內所有Object選中,然後使用left button將選中的Object移動到所需位置
Alt+left button --- 如果針對Text Object使用,將可以直接編輯內容,無需彈出編輯窗
5.3 報表設計與範例
根據報表需求的不同,你可以利用多種報表方式完成報表。下面我將結合VBMS中已經實現的報表範例講述各種報表的設計方法和思路。
簡單報表(Simple list)
*報表格式
一般由報表擡頭、頁首、頁腳(或者欄首、欄尾,或者頭、尾)、主項數據組成。
*報表範例
#商品檔案列表
步驟如下:
- 新建數據源(FIB Components->FIB Query),起名tblProduct。(修改Name屬性)
- 獲取所需數據(tblProduct->SQL)。
- 依次添加ReportTitle、PageHeader、MastData、PageFooter區域。
- 設置MastData區域連接的數據源->tblProduct。(雙擊MastData區域)
- 在ReportTitle中添加文本對象,錄入報表名稱。
- 在PageHeader中添加若幹文本對象,錄入字段中文名稱。
- 在MastData中添加若幹文本對象,並連接該文本對象至對應數據字段。(可以從下拉框中選取)
- 在PageFooter中添加文本對象,錄入頁碼。(使用FastReport中的系統變量 [Page])
SQL語句:
SELECT * FROM TB_PRODUCT;
一般報表都是從簡單開始構建,然後逐步細化後得出的。因此可以利用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)、對話框控件、數據源字段、系統變量、自定義變量等,你均可以在文本對象中顯示他們的值,只是引用他們的方式不同罷了。 |
主從報表(Master Detail)
*報表格式
一般由報表擡頭、頁首、頁腳(或者欄首、欄尾,或者頭、尾)、主項數據、細項數據組成。
*報表範例
#銷售單據列表
步驟如下:
- 新建2個數據源(FIB Components->FIB Query),起名tblOrder、tblItem。
- 獲取所需數據(tblOrder->SQL、tblItem->SQL)。
- 依次添加ReportTitle、PageHeader、MastData、Header、DetailData、Footer、PageFooter區域。
- 設置MastData區域連接的數據源->tblOrder,DetailData->tblItem。
- 在ReportTitle中添加文本對象,錄入報表名稱。
- 在PageHeader中添加若幹文本對象,錄入字段中文名稱(單據頭)。
- 在MastData中添加若幹文本對象,並連接該文本對象至對應數據字段。
- 在Header中添加若幹文本對象,錄入字段中文名稱(單據體)。
- 在DetailData中添加若幹文本對象,並連接該文本對象至對應數據字段。
- 在Footer中添加System Text對象,用於顯示金額合計。
- 在PageFooter中添加文本對象,錄入頁碼。(使用FastReport中的系統變量 [Page])
SQL語句:
#tblOrder
SELECT * FROM TB_ORDER WHERE ORDERTYPE=‘銷售出庫‘;
#tblItem
SELECT * FROM TB_ITEM WHERE ORDERID=:ORDERID;
主從報表的關鍵是需要關聯主數據源和從數據源。一般情況需要通過以下方式關聯: |
*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的數據",一個是"執行總數"。這兩個選項是做什麽用的呢? |
*SUM函數
完整定義:SUM(Expr,Band,Flags);
Expr:你需要求和的變量或者更加復雜的函數,例如:<tblItem."TOTALTAXSUM">。
Band:你需要求和的數據區域名稱,例如:DetailData1。
Flags:默認為0,可以省略。
1 --- 計算不可見Band數據
2 --- 執行總數
3 --- 1 並且2(計算不可見Band數據 並且 執行總數)
分組報表(Group)
*報表格式
一般由報表擡頭、群組首、主項數據、群組尾組成。
*報表範例
#商品檔案報表(按商品分類分組)
步驟如下:
- 新建1個數據源(FIB Components->FIB Query),起名tblProduct。
- 獲取所需數據(tblProduct->SQL)。
- 依次添加ReportTitle、GroupHeader、MastData、GroupFooter區域。
- 設置MastData區域連接的數據源->tblProduct。
- 在ReportTitle中添加文本對象,錄入報表名稱。
- 雙擊GroupHeader,設置分組條件,選擇數據字段tblProduct->PRODUCTSORT。
- 在MastData中添加若幹文本對象,並連接該文本對象至對應數據字段。
- 在GroupHeader中添加若幹文本對象,錄入字段中文名稱。
- 在GoupHeader中添加一個文本對象,錄入<tblProduct."PRODUCTSORT">。用於顯示商品分類名稱。
- 在GroupFooter中添加System Text對象,用於顯示合計數。
- 在PageFooter中添加文本對象,錄入頁碼。(使用FastReport中的系統變量 [Page])
SQL語句:
SELECT * FROM TB_PRODUCT ORDER BY PRODUCTSORT;
所謂分組報表,就是按某一個字段進行分組顯示,該字段具有相同的值的數據記錄將被歸類顯示在一起。例如:上例中將商品檔案按照商品分類歸類顯示。 |
*分組條件設置中的選項
在你設置GroupHeader的分組條件時,有以下幾個選項,他們的用途如下:
#保持與群組在一起 --- 這個選項表示,FastReport報表系統總是試圖將一個群組的內容打印在一張紙上而不做分割。例如:有一個群組的內容比較多,而這個群組的開始打印位置居於紙的中部,因此本頁將無法將全部該群組的內容顯示完畢。那麽FastReport將把這個群組打印在新的一頁上,這樣上頁紙的底部將會留出空白。當然如果這個群組在新的一頁仍然無法顯示完畢,那FastReport就接著顯示,不再做其他處理了。
#換頁 --- 這個選項與上面這個選項基本概念相同,只是他總是將新的分組內容打印在新的一頁上,而不管這個分組的內容有多少。當然這樣紙張的空白也更多更浪費。但這種方式對於某些客戶來說仍然可能是需要的。
#顯示在大綱 --- 如果選擇本選項,那麽在你預覽報表時,你可以使用綱要功能(有一個綱要按鈕)。他可以將分組的名稱顯示在左邊的樹型框中,這樣你可以更加方便的定位到相應的分組。
如果你想預覽時總是顯示綱要(不需要總是按綱要按鈕)。你可以選擇左側Page1中的Report對象,在屬性PreviewOptions->OutlineVisibe設置為True。 |
*Reprint On NewPage
如果你選擇GroupHeader區域,然後點擊鼠標右鍵彈出菜單(Context PopupMenu)。你會發現有一個選項Reprint On NewPage,這個在其他區域的右鍵菜單中是沒有的。他是起什麽作用呢?
我們知道,一般分組報表設計時,總是將分組條件和中文字段名稱顯示在群組首。這樣打印時,碰到一個新的分組,FastReport先是打印群組首中的內容,例如:商品分類的名稱等。然後再打印該分組的數據。但如果數據較多時不能在一頁中顯示,那麽剩余內容將打印在後面的一頁中。這帶來一個問題就是,如果獨立看待後面一頁紙,上面顯示的數據我們不知道是屬於哪一個商品分類的(分組),必須返回去查看上一頁中的群組首才知道。而使用Reprint On NewPage,則FastReport將在新的一頁中將群組首中的內容再打印一遍(Reprint)。這樣你就可以清楚知道本組數據的歸屬了。當然這樣的話,群組首中的內容將可能會被打印超過一遍,這取決於數據的多少。
分欄報表
待續...
多列報表
待續...
子報表
待續...
交叉報表
待續...
5.4 常用功能及函數
常用功能
*報表設置
什麽時候需要兩遍報表(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;
5.5 報表設計常用技巧
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">)就可以統計銷售金額了。
將三項加起來,則寫如下代碼
SUM(<tblBMAccount."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(<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">,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."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 選擇強調的字體,顏色。
FastReport報表設計