報表作爲系統信息的典型輸出形式之一,是大多數應用系統非凡是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是程序運行時生成的報表預覽效果。
(圖片較大,請拉動滾動條觀看)