Delphi中用FastReport制作報表

報表作為系統信息的典型輸出形式之一，是大多數應用系統特別是MIS系統的重要功能。是否具有一個良好的打印功能，往往從一定程度上關系到系統的成敗。Delphi有很強的報表功能，但是它的報表功能還不能滿足我們的需要。於是許多Delphi高手相繼推出了不少優秀的報表控件（模塊），作為QuickReport的補充，其中FastReport就是一個代表。

FastReport綜合了QuickReport和Re portBuilder的優點，個頭小，速度快，並帶有全部源碼。筆者在開發一個藥品管理系統時，用FastReport2.51成功制作出了和藥品驗收單、藥品調撥單一模一樣的表單式報表。下面給朋友們介紹一下。

報表的需求分析

在醫院工作的朋友都知道，藥品入庫時要填寫藥品驗收單，藥房工作人員領取藥品時要填寫藥品調撥單。筆者單位使用的藥品驗收單和調撥單不是專用的，而是通用的商品驗收單和調撥單。與百貨業、電信系統使用的報表不同，它的形狀為條形，每張固定可填五種藥品，內容包括發貨單位、發貨單號、收貨單位、品名、規格、單位、價格、金額等，一式三聯。

綜上所述，我們可以把報表設計的需求歸納如下：

1. 大小為：長21cm，寬10cm；

2. 每張可以打印5種藥品，表單下面有本頁小計。

3. 多於5種藥品時開始新一張表單的打印，不足5種藥品時要用空行補足。

報表設計

1.打開FastReport的報表設計器，按照圖1設計出“藥品驗收單”。

另外，InHJ、OutHJ、CaHj、LineCount這幾個變量分別表示“入庫合計”、“出庫合計”、“差價合計”和“數據總行數”，在程序中將對這幾個變量賦值。

2.按F11鍵，調出對象查看器，選中Band2，在它的OnBeforPrint事件中輸入如下代碼：

begin
if LINE#-1　<>0　 and LINE#-1　 mod 5=0　 then
begin
showBandChild1　
showBandband1　
end
end

代碼中用FastReport的內置函數LINE#取得當前行號，如果滿足條件，就顯示頁頭和Child3，開始新的一張表單。

3.選中Child3，在它的OnBeforPrint事件中輸入如下代碼：

begin
lin=lineCount //在程序中要對該變量賦值
while lin mod 5<>0　 do
begin
showbandchild2　 //打印空行
inclin　
end
showBandchild3　
end

這段代碼的用途是如果最後數據行不夠一張表單顯示時，就打印空行。

4. 選中Band3，在它的OnBeforPrint事件中輸入如下代碼：

begin
showbandchild1　 //到達報表結束時顯示表單底部的內容
end

5.將報表保存後回到Delphi開發環境。

Delphi編程部分

在Delphi編程部分我們主要完成報表所需參數的傳遞，因為要在好幾個過程中訪問這些參數，所以要將這幾個參數設為全局變量：

private
line1line2integer //保存行號
inputXjintemp //入庫小計 ，每5行後清零，下同
outXjoutemp //出庫小計
CajiaXjcatempReal //差價小計
下面是幾個主要過程的代碼清單。
//單張表單數據合並過程
procedure TInputForm.frDBDataSet1NextSender TObject　
var
ReCountinteger
begin
ReCount = Adoruku.RecordCount
Incline1　// 該變量傳至報表文件控制打印空行
Incline2　// 該變量控制清零小計值
if not Adoruku.Eof then
begin
inputXj=inputXj+ADORuku.fieldByName'入庫金額'　.AsFloat
outXj=outXj+Adoruku.fieldByName'出庫金額'　.AsFloat
CajiaXj=CajiaXj+AdorukuJXCJ.AsFloat
end
//每5行後將小計值清零 www.bianceng.cn（編程入門網）
if line2 mod 5 = 0　 and ReCount>line2 div 5　5　　 then
begin
intemp=inputXj
outemp=outXj
Catemp=CajiaXj
inputXj=0
outXj=0
CajiaXj=0
end
//到達數據集末尾時給變量賦值
if Adoruku.Eof then
begin
intemp=inputXj
outemp=outXj
Catemp=CajiaXj
end
end

以上程序在Windows 2000/XP+Delphi6.0中調試通過。至此，我們已經完成了藥品驗收單的設計工作，其他的類似報表設計可以參照以上過程。圖2是程序運行時生成的報表預覽效果。