订阅報表作爲系統信息的典型輸出形式之一，是大多數應用系統非凡是MIS系統的重要功能。是否具有一個良好的打印功能，往往從一定程度上關系到系統的成敗。Delphi有很強的報表功能，但是它的報表功能還不能滿足我們的需要。于是許多Delphi高手相繼推出了不少優秀的報表控件（模塊），作爲QuickReport的補充，其中FastReport就是一個代表。
FastReport綜合了QuickReport和Re portBuilder的優點，個頭小，速度快，並帶有全部源碼。筆者在開發一個藥品治理系統時，用FastReport2.51成功制作出了和藥品驗收單、藥品調撥單一模一樣的表單式報表。下面給朋友們介紹一下。
FastReport2.51下載地址：http//www.skycn.com/soft/8805.Html。
報表的需求分析
在醫院工作的朋友都知道，藥品入庫時要填寫藥品驗收單，藥房工作人員領取藥品時要填寫藥品調撥單。筆者單位使用的藥品驗收單和調撥單不是專用的，而是通用的商品驗收單和調撥單。與百貨業、電信系統使用的報表不同，它的外形爲條形，每張固定可填五種藥品，內容包括發貨單位、發貨單號、收貨單位、品名、規格、單位、價格、金額等，一式三聯。
綜上所述，我們可以把報表設計的需求歸納如下：
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
showBandChild1
showBandband1
end
end
代碼中用FastReport的內置函數LINE#取得當前行號，假如滿足條件，就顯示頁頭和Child3，開始新的一張表單。
3.選中Child3，在它的OnBeforPrint事件中輸入如下代碼：
begin
lin=lineCount //在程序中要對該變量賦值
while lin mod 5<>0 do
begin
showbandchild2 //打印空行
inclin
end
showBandchild3
end
這段代碼的用途是假如最後數據行不夠一張表單顯示時，就打印空行。
4. 選中Band3，在它的OnBeforPrint事件中輸入如下代碼：
begin
showbandchild1 //到達報表結束時顯示表單底部的內容
end
5.將報表保存後回到Delphi開發環境。
Delphi編程部分
在Delphi編程部分我們主要完成報表所需參數的傳遞，因爲要在好幾個過程中訪問這些參數，所以要將這幾個參數設爲全局變量：
private
line1line2integer //保存行號
inputXjintemp //入庫小計 ，每5行後清零，下同
outXjoutemp //出庫小計
CajiaXjcatempReal //差價小計
下面是幾個主要過程的代碼清單。
//單張表單數據合並過程
procedure TInputForm.frDBDataSet1NextSender TObject
var
ReCountinteger
begin
ReCount = Adoruku.RecordCount
Incline1// 該變量傳至報表文件控制打印空行
Incline2// 該變量控制清零小計值
if not Adoruku.Eof then
begin
inputXj=inputXj+ADORuku.fieldByName'入庫金額'.AsFloat
outXj=outXj+Adoruku.fieldByName'出庫金額'.AsFloat
CajiaXj=CajiaXj+AdorukuJXCJ.AsFloat
end
//每5行後將小計值清零
if line2 mod 5 = 0 and ReCount>line2 div 55 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是程序運行時生成的報表預覽效果。
(圖片較大，請拉動滾動條觀看)
