首页新闻手机家电数码电脑财经大模型直播

用Delphi制作中国式报表

来源：互联网作者：若水 2008-03-20/14:54

软件频道

编程学院

Delphi

入门教程

正文

在数据库应用程序开发中,系统设计员、程序设计员需要考虑的一个重要问题是如何设计和输出报表,在Delphi中我们可以采用多种方案来解决这一问题。如运用OLE自动化技术将数据输出到MS-Word、MS-Excel中等,但其中最直接、最本地化的还是使用Delphi3.0/40中的QuickReport报表组件。它是挪威QuSoft公司专门为Delphi 编写的,使用QuickReport可以迅速设计出符合西方人习惯用的报表。

然而,在设计中国式报表时,笔叻⑾衷赒uickReport中设计列与列之间的竖线和斜线比较困难;虽然QuickReport提供了TQShape控件,使用该控件可以画出列与列之间的竖线,但如果用户不能正确地调整TQShape实例的高度,输出报表中的竖线不是不连续就是超长,另外如果我们调整了某个Band的高度,我们将不得不调整该Band下的所有TQShape实例的高度;至于斜线,QuickReport报表组件根本就没有提供这一功能。

笔者认真查找了有关的资料,成功地解决了以上问题,希望能对大家有所帮助。

解决思路

以TQShape为父类,建立新的控件,新控件可以画竖线、斜线和反斜线。

重载TQShape 类的Paint方法,这样在设计阶段可以非常直观地画坚线、斜线和反斜线。用户可以在设计阶段选择线的类型,如果选择直线,控件自动将其高度调整为所属Band的高度,用户可以调整其横向位置但不能调整其高度;如果选择斜线,用户可以根据需要调整斜线的长度和倾角。重载TQShape 类的Print方法,这样可以在运行阶段输出直线和斜线。

说明:该控件只能画直线和斜线,如果读者需要画矩形和圆,可以使用TQShape控件来实现。

控件设计步骤

步骤1.使用Delphi提供的控件向导,选择TQShape为父类,建立新类TMyQRShape,并选择适当的包(Package),最后生成单元文件。

步骤2.在生成的单元文件中,增加枚举类型。

TLines = ( None,TopBottom,BottomTop ) None、TopBottom、BottomTop三种取值,分别代表直线、斜线 \ 和反斜线 /。

步骤3.在新类TMyQRShape 中增加private 成员 FLineType:TLines ,增加published属性 LineType:TLines Read

FLineType Write SetFLineType。

步骤4.建立过程SetFLineType。

procedure

TMyQRShape.SetFLineType(value:TLines);

begin

if value<>FLineType then

begin

FLineType:=value

Invalidate

end

步骤5.重载Paint方法。[page]

procedure TMyQRShape.Paint

begin

case LineType of

BottomTop:

begin

Canvas.MoveTo(0,Height)

Canvas.LineTo(width,0 )

end

TopBottom:

begin

Canvas.MoveTo(0,0)

Canvas.LineTo(width,Height )

end

None:

begin

Height := Parent.Height

Top:=0

Width:=4

Shape:=qrsVertLine

Inherited Paint

end

步骤6.重载Print方法。[page]

procedure TMyQRShape.Print(OfsX,OfsY : Integer);

begin

with QRPrinter do

begin

case LineType of

BottomTop:

begin

Canvas.MoveTo(XPos(OfsX + Size.Left), YPos(OfsY + Size.Top)+Height)

Canvas.LineTo(XPos(OfsX + Size.Left)+width,YPos(OfsY + Size.Top) )

end

TopBottom:

begin

Canvas.MoveTo(XPos(OfsX + Size.Left), YPos(OfsY + Size.Top))

Canvas.LineTo(XPos(OfsX + Size.Left)+Width,YPos(OfsY + Size.Top)+Height )

end

None:

Inherited Print(OfsX,OfsY )

end
#p#分页标题#e#

end

end;

步骤7.保存并安装TMyQRShape控件。

本控件在Delphi40下调试、安装,并成功地应用于某数据库管理系统的开发中。该控件的完整代码如下:

源程序:[page]

unit MyQRShape;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs,

QuickRpt, Qrctrls;

type

TLines = ( None,TopBottom,BottomTop )

TMyQRShape = class(TQRShape)

private

FLineType:TLines

procedure SetFLineType(value:TLines)

protected

procedure Print(OfsX, OfsY : integer); override;

procedure Paint Override

public

published

property LineType:TLines Read FLineType Write SetFLineType

end;

[page]

procedure Register;

implementation

procedure

TMyQRShape.SetFLineType(value:TLines);

begin

if value<>FLineType then

begin

FLineType:=value

Invalidate

end

procedure TMyQRShape.Paint

begin

case LineType of

BottomTop:

begin

Canvas.MoveTo(0,Height)

Canvas.LineTo(width,0 )

end

TopBottom:

begin

Canvas.MoveTo(0,0)

Canvas.LineTo(width,Height )

end

[page]

None:

begin

Height := Parent.Height

Top:=0

Width:=4

Shape:=qrsVertLine

Inherited Paint

end

procedure TMyQRShape.Print(OfsX,OfsY : Integer);

begin

with QRPrinter do

begin

case LineType of

BottomTop:

begin

Canvas.MoveTo(XPos(OfsX + Size.Left), YPos(OfsY + Size.Top)+Height)

Canvas.LineTo(XPos(OfsX + Size.Left)+width,YPos(OfsY + Size.Top) )

end

TopBottom:

begin

Canvas.MoveTo(XPos(OfsX + Size.Left), YPos(OfsY + Size.Top))

Canvas.LineTo(XPos(OfsX + Size.Left)+Width,YPos(OfsY + Size.Top)+Height )

end

None:

Inherited Print(OfsX,OfsY )

end

end;

procedure Register;

begin

RegisterComponents(‘QReport', [TMyQRShape]);

end;

end.

{{cmoun}}人已赞

评论 {{userinfo.comments}}

{{c.nickname}}
{{c.create_time}}

{{c.content}}

点赞已赞 ({{c.count_praise}}) 回复({{c.count_reply}})

{{child.nickname}}
{{child.create_time}}

{{child.content}}

查看全部评论

{{money}}元

A {{question.A}}

B {{question.B}}

C {{question.C}}

D {{question.D}}

提交

专题更多

2024年度中兴通讯云网生态峰会

聚焦315提振消费信心专题报道

用Delphi制作中国式报表

{{c.nickname}} {{c.create_time}}

{{child.nickname}} {{child.create_time}}

海信家电”换帅 “ 高玉玲接替代慧忠出任新任董事长

REDMI K80发布会邀请函出圈：5瓶辣酱背后的暖心故事

梅赛德斯-奔驰国内召回A级、E级与AMG GT部分车辆

2024世界互联网大会乌镇峰会闭幕：中国已成全球最大互联网市场

十月份国内智能门锁市场首次实现单月突破百万套销量

REDMI K80发布会邀请函出圈：5瓶辣酱背后的暖心故事

努比亚Z70 Ultra评测：集屏幕、影像、AI优势于一身 2024最具个性化的旗舰之选

努比亚Z70 Ultra发布：第七代屏下前摄 首发星云AI 4599元起

华为折叠屏更加耐用可靠！华为Mate X6首发分布式玄武架构

红米logo换新：REDMI全部改大写 K80将率先采用

海信家电”换帅 “ 高玉玲接替代慧忠出任新任董事长

格力电器申请“格力女王”“蒙面女王”医疗器械类商标

2024Q3全球电视出货量达到5233万台 环比增长9.6%

预计2024年国内智能盒子销量同比去年萎缩20%

2024年电视行业用户满意度测评分数创出新高

荣耀新突破：挑战极限！即将发布重量不足980克的超级轻薄笔记本

苹果Vision Pro国行版开启预购，1TB版售价32999起

618智能穿戴怎么选？华为智能穿戴全系列选购攻略出炉

苹果新款iPad Pro遭遇渲染问题，修复补丁即将推出

业绩最新出炉，全球TOP10芯片巨头Q1表现如何？

直播电商：抖音、快手、视频号上演“刀光剑影”

小熊电器一季报业绩下滑：短期承压明显，销售费用再创新高

第四范式亏损有所收窄：短期股价大跌，客户高黏性被机构看好

不卷低价卷“性价比”：京东采销的竞争谋局

百度开发者大会即将举行，小度将发布全球首个AI原生操作系统DuerOS X

讯飞星火4.0 Turbo正式发布，重磅首发11项技术及应用，大模型迎来规模化应用落地时代

创意无限，AI有界 七彩虹、NVIDIA和火星时代创作挑战赛，颠覆你的想象

以AI为核心的新一代架构 萤石蓝海大模型正式发布

阿里云通义千问Qwen2大型模型正式发布同步开源

AGI时代，AI软着陆的新范式注定属于更多的企业

奥运观赛AI新体验！通义App上线“赛事百事通”等多款新功能

云计算首次超越卫星！超三分之二奥运直播信号基于阿里云向全球分发

国际奥委会主席巴赫：阿里AI技术将巴黎奥运转播带到新高度

“崩”了的阿里云，能靠AI带动增长？

芯片生产，磨难重重

梅赛德斯-奔驰国内召回A级、E级与AMG GT部分车辆

小米纯电SUV代号MX11 预计明年2-3月份上市

我国电动汽车充电桩保有量已超1188万台 同比增49.4%

乘联会预计11月新能源汽车零售128万辆 渗透率超53%

华为注册仙界、天界、君界等多个汽车类商标

云计算迎变局：阿里云、腾讯云“各有千秋”

Sora正在颠覆游戏行业，CEO们该怎么应对？

道总有理：苹果其实不想成为全球第一

抛开大模型故事，阿里、抖音、京东都在攻坚AI电商哪个方向？

处置1.9万个账号和240万条视频，抖音治理不实信息这一年

西北工业大学研究团队模仿萤火虫通信机制 实现无人机光链路协同飞行

价格才不是小米汽车的最大“杀器”

懂车帝与车企争论的背后，新能源测试标准何时迎来终局？

惨！判赔10亿巨款，阿里卸下包袱重新出发

立讯收购Qorvo中国工厂的幕后推手

专题 更多

驱动号 更多

{{c.nickname}}
{{c.create_time}}

{{child.nickname}}
{{child.create_time}}

努比亚Z70 Ultra发布：第七代屏下前摄首发星云AI 4599元起

2024Q3全球电视出货量达到5233万台环比增长9.6%

创意无限，AI有界七彩虹、NVIDIA和火星时代创作挑战赛，颠覆你的想象

以AI为核心的新一代架构萤石蓝海大模型正式发布

我国电动汽车充电桩保有量已超1188万台同比增49.4%

乘联会预计11月新能源汽车零售128万辆渗透率超53%

西北工业大学研究团队模仿萤火虫通信机制实现无人机光链路协同飞行

专题更多

驱动号更多