📄 051411_05.htm
字号:
<html>
<head>
<link REL="stylesheet" HREF="/style.css" TYPE="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>计算机世界日报:
Delphi应用程序中中国式报表的制作
</title>
<!--***********-->
</head>
<body bgcolor="#FFFFFF" >
<p><br>
<font color="#b904e8"><b><em><a href="class.htm">返回</a></em></b></font>
<center>
<font color="#0000c0"><h2>
Delphi应用程序中中国式报表的制作
</h2></font>
<h3>
中国空间技术研究院物资部
<br><a href="mailto: shibaojun@263.net"> 史宝军</a>
</h3>
</center>
<font color="#ffffff">----</font>
[本文为摘略，<a href="051411-05.zip">全文可下载</a>，Zip 3KB]
<p><font color="#ffffff">----</font>
在众多可视化数据库开发工具中, Delphi以其真正的面向对象、高效率、支持多层结构应用开发、支持多层B/S结构开发等优良特性脱颖而出，成为广大编程人员的首选开发工具。
<p><font color="#ffffff">----</font>
在数据库应用程序开发中，系统设计员、程序设计员需要考虑的一个重要问题是如何设计和输出报表，在Delphi中我们可以采用多种方案来解决这一问题，如运用OLE自动化技术将数据输出到MS-WORD、MS-EXCEL中等，但其中最直接、最本地化的还是使用Delphi3.0/40中的QuickReport报表组件，它是挪威QuSoft公司专门为Delphi 编写的，使用QuickReport可以迅速设计出符合西方人习惯的报表。
<p><font color="#ffffff">----</font>
然而，在设计中国式报表时，笔者发现在QuickReport中设计列与列之间的竖线和斜线比较困难；虽然QuickReport提供了TQShape控件,使用该控件可以画出列与列之间的竖线，但如果用户不能正确调整TQShape实例的高度，输出报表中的竖线不是不连续就是超长，另外如果我们调整了某个Band的高度，我们将不得不调整该Band下的所有TQShape实例的高度；至于斜线，QuickReport报表组件根本就没有提供这一功能。
<p><font color="#ffffff">----</font>
笔者认真查找了有关资料，成功地解决以上问题，并愿意将解决方法与大家共享，希望能对大家有所帮助。
<p><font color="#ffffff">----</font>
<b>１、 解决思路</b>
<p><font color="#ffffff">----</font>
以TQShape为父类，建立新的控件，新控件可以画竖线、斜线和反斜线。
<p><font color="#ffffff">----</font>
重载TQShape 类的Paint方法，这样在设计阶段可以非常直观地画斜线、反斜线和竖线，用户可以在设计阶段选择线的类型，如果选择直线，控件自动将其高度调整为所属Band的高度，用户可以调整其横向位置但不能调整其高度；如果选择斜线，用户可以根据需要调整斜线的长度和倾角。
<p><font color="#ffffff">----</font>
重载TQShape 类的Print方法，这样可以在运行阶段输出直线和斜线。
<p><font color="#ffffff">----</font>
说明：该控件只能画直线和斜线，如果读者需要画矩形和园，可以使用TQShape控件来实现。
<p><font color="#ffffff">----</font>
<b>２、控件设计步骤</b>
<p><font color="#ffffff">----</font>
步骤１、使用Delphi提供的控件向导，选择TQShape为父类，建立新类TMyQRShape，并选择适当的包(Package)，最后生成单元文件。
<p><font color="#ffffff">----</font>
步骤２、在生成的单元文件中，增加枚举类型，
<pre>
TLines = ( None,TopBottom,BottomTop ) ;
None、TopBottom、BottomTop三种取值，
分别代表直线、斜线 \ 和反斜线 / 。
</pre>
<p><font color="#ffffff">----</font>
步骤３、在新类TMyQRShape 中增加private 成员 FLineType:TLines ，增加published属性 LineType:TLines Read FLineType Write SetFLineType 。
<p><font color="#ffffff">----</font>
步骤４、建立过程SetFLineType 。
<pre>
... ...
</pre>
<p><font color="#ffffff">----</font>
步骤５、重载Paint方法
<pre>
... ...
</pre>
<p><font color="#ffffff">----</font>
步骤６、重载Print方法
<pre>
... ...
</pre>
<p><font color="#ffffff">----</font>
步骤７、保存并安装TMyQRShape控件。
<pre>
... ...
</pre>
<p align="right"><small><em>中国计算机世界出版服务公司版权所有</em></small>
<br>
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -