| 導購 | 订阅 | 在线投稿
分享
 
 
 

Delphi中用FastReport制作報表

2008-06-01 02:07:20  編輯來源:互聯網  简体版  手機版  移動版  評論  字體: ||
 

報表作爲系統信息的典型輸出形式之一,是大多數應用系統非凡是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

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行後將小計值清零

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是程序運行時生成的報表預覽效果。

(圖片較大,請拉動滾動條觀看)

報表作爲系統信息的典型輸出形式之一,是大多數應用系統非凡是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 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行後將小計值清零 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是程序運行時生成的報表預覽效果。 (圖片較大,請拉動滾動條觀看)
󰈣󰈤
王朝萬家燈火計劃
期待原創作者加盟
 
 
 
>>返回首頁<<
 
 
 
 
 熱帖排行
 
王朝網路微信公眾號
微信掃碼關註本站公眾號 wangchaonetcn
 
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有