📄 h20000419-34.htm
字号:
<html><head><script language="JavaScript"> function reset(){ for ( var i=0; i < document.Form1.elements.length; i++ ) { document.Form1.elements[i].options[0].selected=true }}function going(url){ parent.location=url; reset();}</script><style><!--A:link {text-decoration: none; color: #000000; font-family: 宋体}A:visited {text-decoration: none; color: #000000; font-family: 宋体}A:active {text-decoration: none; font-family: 宋体}A:hover {text-decoration: underline:#ffffff; color: #ff0000}body,table {font-size: 9pt; font-family: 宋体}.H1 {font-size: 9pt ; line-height:9pt; align=center}.ourfont {font-size: 9pt ; line-height:9pt; }.ourfont1 {font-size: 9pt ; line-height:9pt; }--></style><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>Delphi应用身序中中国式报表的制作</title></head><body topmargin="0" leftmargin="0"><div align="center"><center><table border="0" cellPadding="0" cellSpacing="0" width="700"><tbody> <tr> <td><p class="content4"><span class="font"><img border="0" height="3" src="../../soft/pix.gif" width="700"></span></td> </tr></tbody></table></center></div><div align="center"><center><table border="0" cellPadding="0" cellSpacing="0" width="700"><tbody> <tr> <td bgColor="#3399ff" width="658"><p class="ourfont"><span class="font"> </span><a style="text-decoration: none; color: rgb(255,255,255)" href="../os/H00705-2.htm">操作系统</a><font color="#FFFFFF"><span class="font"><span> |</span></span></font><a style="color: rgb(255,255,255); text-decoration: none" href="../image/H00705-14.htm">图像处理</a><font color="#FFFFFF"><span>|<span class="font"> </span></span></font><a style="color: rgb(255,255,255); text-decoration: none" href="../autoCAD/H00705-19.htm">辅助设计</a><span class="font"><font color="#FFFFFF"><span> | </span></font></span><a style="color: rgb(255,255,255); text-decoration: none" href="../data/H00705-18.htm">数 据 库</a><span class="font"><font color="#FFFFFF"><span> | </span></font></span><a style="color: rgb(255,255,255); text-decoration: none" href="H00706-1.htm">高级编程</a><span class="font"><font color="#FFFFFF"><span> | </span></font></span><a style="color: rgb(255,255,255); text-decoration: none" href="../netuse/H00705-20.htm">网络应用</a><font color="#FFFFFF"><span><span class="font"> | </span></span></font><a style="color: rgb(255,255,255); text-decoration: none" href="../webpage/H00705-21.htm">网页制作</a><font color="#FFFFFF"><span><span class="font"> |</span></span></font> <a style="color: rgb(255,255,255); text-decoration: none" href="../technic/H00706-3.htm">技术交流 </a><a style="color: rgb(255,255,255); text-decoration: none" href="http://202.100.13.77/clslyb/default.asp?clsid=jiaoc"><font color="#FFFFFF"><strong>过客留言</strong></font></a></td> <td bgColor="#3399ff" width="32"><p align="center" class="ourfont"><a href="mailto:net@163.sn.cn"><img src="../../soft/email.gif" alt="email.gif (493 字节)" border="0" WIDTH="20" HEIGHT="19"></a></td> </tr></tbody></table></center></div><div align="center"><center><table border="1" cellSpacing="1" width="700" bordercolor="#3399FF"><tbody> <tr> <td align="left" bgColor="#FFFFFF" vAlign="top" width="700" bordercolor="#0000FF" bordercolorlight="#0000FF" bordercolordark="#0000FF"><p class="ourfont"> </p> <p align="center">Delphi应用程序中中国式报表的制作<br> <br> 中国空间技术研究院物资部 史宝军</p> <p><br> 在众多可视化数据库开发工具中, Delphi以其真正的面向对象、高效率、支持多层结构应用开发、支持多层B/S结构开发等优良特性脱颖而出，成为广大编程人员的首选开发工具。<br> <br> 在数据库应用程序开发中，系统设计员、程序设计员需要考虑的一个重要问题是如何设计和输出报表，在Delphi中我们可以采用多种方案来解决这一问题，如运用OLE自动化技术将数据输出到MS-WORD、MS-EXCEL中等，但其中最直接、最本地化的还是使用Delphi3.0/40中的QuickReport报表组件，它是挪威QuSoft公司专门为Delphi 编写的，使用QuickReport可以迅速设计出符合西方人习惯的报表。<br> 然而，在设计中国式报表时，笔者发现在QuickReport中设计列与列之间的竖线和斜线比较困难；虽然QuickReport提供了TQShape控件,使用该控件可以画出列与列之间的竖线，但如果用户不能正确调整TQShape实例的高度，输出报表中的竖线不是不连续就是超长，另外如果我们调整了某个Band的高度，我们将不得不调整该Band下的所有TQShape实例的高度；至于斜线，QuickReport报表组件根本就没有提供这一功能。<br> 笔者认真查找了有关资料，成功地解决以上问题，并愿意将解决方法与大家共享，希<br> 望能对大家有所帮助。<br> <br> １、 解决思路<br> 以TQShape为父类，建立新的控件，新控件可以画竖线、斜线和反斜线。重载TQShape 类的Paint方法，这样在设计阶段可以非常直观地画斜线、反斜线和竖线，用户可以在设计阶段选择线的类型，如果选择直线，控件自动将其高度调整为所属Band的高度，用户可以调整其横向位置但不能调整其高度；如果选择斜线，用户可以根据需要调整斜线的长度和倾角。重载TQShape 类的Print方法，这样可以在运行阶段输出直线和斜线。<br> 说明：该控件只能画直线和斜线，如果读者需要画矩形和园，可以使用TQShape控件来实现。<br> <br> ２、控件设计步骤<br> 步骤１、使用Delphi提供的控件向导，选择TQShape为父类，建立新类TMyQRShape，并选择适当的包(Package)，最后生成单元文件。<br> 步骤２、在生成的单元文件中，增加枚举类型， <br> TLines = ( None,TopBottom,BottomTop ) ;<br> None、TopBottom、BottomTop三种取值，分别代表直线、斜线 和反斜线 / 。<br> 步骤３、在新类TMyQRShape 中增加private 成员 FLineType:TLines ，增加published属性 LineType:TLines Read FLineType Write SetFLineType 。<br> 步骤４、建立过程SetFLineType 。<br> procedure TMyQRShape.SetFLineType(Value:TLines);<br> begin<br> if Value<>FLineType then<br> begin<br> FLineType:=Value ;<br> Invalidate ;<br> end ;<br> end ;<br> 步骤５、重载Paint方法<br> procedure TMyQRShape.Paint ;<br> begin<br> case LineType of<br> BottomTop:<br> begin<br> Canvas.MoveTo(0,Height) ;<br> Canvas.LineTo(width,0 ) ;<br> end ;<br> TopBottom:<br> begin<br> Canvas.MoveTo(0,0) ;<br> Canvas.LineTo(width,Height ) ;<br> end ;<br> None:<br> begin<br> Height := Parent.Height ;<br> Top:=0 ;<br> Width:=4 ;<br> Shape:=qrsVertLine ;<br> Inherited Paint ;<br> end ;<br> end ;<br> end ;<br> <br> 步骤６、重载Print方法<br> procedure TMyQRShape.Print(OfsX,OfsY : Integer);<br> begin<br> with QRPrinter do<br> begin<br> case LineType of<br> BottomTop:<br> begin<br> Canvas.MoveTo(XPos(OfsX + Size.Left), YPos(OfsY + Size.Top)+Height) ;<br> Canvas.LineTo(XPos(OfsX + Size.Left)+width,YPos(OfsY + Size.Top) ) ;<br> end ;<br> TopBottom:<br> begin<br> Canvas.MoveTo(XPos(OfsX + Size.Left), YPos(OfsY + Size.Top)) ;<br> Canvas.LineTo(XPos(OfsX + Size.Left)+Width,YPos(OfsY + Size.Top)+Height ) ;<br> end ;<br> None:<br> Inherited Print(OfsX,OfsY ) ;<br> end ;<br> end ;<br> end;<br> 步骤７、保存并安装TMyQRShape控件。<br> 本控件在Delphi40下调试、安装，并成功应用于某数据库管理系统的开发。该控件的完整代码如下。<br> 源程序：<br> unit MyQRShape;<br> <br> interface<br> <br> uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br> QuickRpt, Qrctrls;<br> <br> type<br> TLines = ( None,TopBottom,BottomTop ) ;<br> <br> TMyQRShape = class(TQRShape)<br> private<br> FLineType:TLines ;<br> procedure SetFLineType(Value:TLines) ;<br> protected<br> procedure Print(OfsX, OfsY : integer); override;<br> procedure Paint ;Override ;<br> public<br> <br> published<br> property LineType:TLines Read FLineType Write SetFLineType ;<br> end;<br> <br> procedure Register;<br> <br> implementation<br> <br> procedure TMyQRShape.SetFLineType(Value:TLines);<br> begin<br> if Value<>FLineType then<br> begin<br> FLineType:=Value ;<br> Invalidate ;<br> end ;<br> end ;<br> <br> procedure TMyQRShape.Paint ;<br> begin<br> case LineType of<br> BottomTop:<br> begin<br> Canvas.MoveTo(0,Height) ;<br> Canvas.LineTo(width,0 ) ;<br> end ;<br> TopBottom:<br> begin<br> Canvas.MoveTo(0,0) ;<br> Canvas.LineTo(width,Height ) ;<br> end ;<br> None:<br> begin<br> Height := Parent.Height ;<br> Top:=0 ;<br> Width:=4 ;<br> Shape:=qrsVertLine ;<br> Inherited Paint ;<br> end ;<br> end ;<br> end ;<br> <br> procedure TMyQRShape.Print(OfsX,OfsY : Integer);<br> begin<br> with QRPrinter do<br> begin<br> case LineType of<br> BottomTop:<br> begin<br> Canvas.MoveTo(XPos(OfsX + Size.Left), YPos(OfsY + Size.Top)+Height) ;<br> Canvas.LineTo(XPos(OfsX + Size.Left)+width,YPos(OfsY + Size.Top) ) ;<br> end ;<br> TopBottom:<br> begin<br> Canvas.MoveTo(XPos(OfsX + Size.Left), YPos(OfsY + Size.Top)) ;<br> Canvas.LineTo(XPos(OfsX + Size.Left)+Width,YPos(OfsY + Size.Top)+Height ) ;<br> end ;<br> None:<br> Inherited Print(OfsX,OfsY ) ;<br> end ;<br> end ;<br> end;<br> <br> procedure Register;<br> begin<br> RegisterComponents(`QReport`, [TMyQRShape]);<br> end;</td> </tr></tbody></table></center></div><hr align="center" SIZE="1" width="700"><p align="center" class="ourfont"><span><span><font color="#000000"> <a style="color: rgb(0,0,0); text-decoration: none" href="../../soft/network/index.htm">互联网络</font><font color="#FFFFFF"> </font></a><font color="#000000">|</span></span><a href="../../soft/system/index.htm" style="color: rgb(0,0,0); text-decoration: none">系统工具</a><span>|<span> <a href="../../soft/tools/index.htm" style="color: rgb(0,0,0); text-decoration: none">实用工具</a> | <a href="../../soft/multimedia/index.htm" style="color: rgb(0,0,0); text-decoration: none">媒体工具</a> | <a href="../../soft/image/index.htm" style="color: rgb(0,0,0); text-decoration: none">图形图像</a> | <a href="../../soft/game/index.htm" style="color: rgb(0,0,0); text-decoration: none">游戏娱乐</a> | </span><a href="../../soft/usesoft/index.htm" style="color: rgb(0,0,0); text-decoration: none">软件<span>使用</a></font><font color="#FFFFFF"> |</font> </span></span></p><hr align="center" SIZE="1" width="700"><font color="#FFE8BB"><p align="center" class="ourfont"></font><font color="#000000"><span><span>© Copyright 2000 </span></span>陕西公用计算机互联网信息中心<span><span> 版权所有 </font></p></span></span><p align="center" class="ourfont"><font color="#000000"><span><span>本站制作维护by <a style="color: rgb(0,0,0)" href="mailto:haiyuan@163.sn.cn">HAIYUAN</a></span></span></font></p><p align="center" class="ourfont"><font color="#000000"><span><span>电话：（029）8371051 8371055 8371049 联系信箱：<a href="mailto:net@163.sn.cn">net@163.sn.cn</a></span></span></font></p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -