用Delphi制作中國式報表

2019-11-18 18:27:05

字體：大中小

來源：轉載

供稿：網友

在數據庫應用程序開發中,系統設計員、程序設計員需要考慮的一個重要問題是如何設計和輸出報表,在Delphi中我們可以采

用多種方案來解決這一問題。如運用OLE自動化技術將數據輸出到MS-Word、MS-Excel中等,但其中最直接、最本地化的還是使用

Delphi3.0/40中的QuickReport報表組件。它是挪威QuSoft公司專門為Delphi 編寫的,使用QuickReport可以迅速設計出符合西

方人習慣用的報表。

然而,在設計中國式報表時,筆者發現在QuickReport中設計列與列之間的豎線和斜線比較困難;雖然QuickReport提供了

TQShape控件,使用該控件可以畫出列與列之間的豎線,但如果用戶不能正確地調整TQShape實例的高度,輸出報表中的豎線不是不

連續就是超長,另外如果我們調整了某個Band的高度,我們將不得不調整該Band下的所有TQShape實例的高度;至于斜線,

QuickReport報表組件根本就沒有提供這一功能。

筆者認真查找了有關的資料,成功地解決了以上問題,希望能對大家有所幫助。

解決思路

以TQShape為父類,建立新的控件,新控件可以畫豎線、斜線和反斜線。

重載TQShape 類的Paint方法,這樣在設計階段可以非常直觀地畫堅線、斜線和反斜線。用戶可以在設計階段選擇線的類型,

如果選擇直線,控件自動將其高度調整為所屬Band的高度,用戶可以調整其橫向位置但不能調整其高度;如果選擇斜線,用戶可以

根據需要調整斜線的長度和傾角。

重載TQShape 類的
end;

end.