用delphi制作中国式报表

在数据库应用程序开发中,系统设计员、程序设计员需要考虑的一个重要问题是如何设计和输出报表,在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 类的print方法,这样可以在运行阶段输出直线和斜线。

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

控件设计步骤

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

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

tlines = ( none,topbottom,bottomtop ) none、topbottom、bottomtop三种取值,分别代表直线、斜线 \ 和反斜线 /。

步骤3.在新类tmyqrshape 中增加private 成员 fl.netype:tlines ,增加published属性 l.netype:tlines read

fl.netype write setfl.netype。

步骤4.建立过程setfl.netype。

procedure

tmyqrshape.setfl.netype(value:tlines);

begin

if value<>fl.netype then

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

用delphi制作中国式报表

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

用delphi制作中国式报表

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范