如何制作复杂的中国式报表 (200分)

请问哪儿有关于制作中国式报表的控件或文章。我现在要做一个电费台帐，要比企业
的资产负债表复杂，而且很宽，请大侠们多多帮助。
我用delphi5。听说EReport很好，但哪儿有for 5 的。

王寒松大虾的FastReport不是就可以胜任吗?你要的话,我可以发给你.我的email是
kan@freetrend.
com.vn,要的话可以写信给我.

王寒松大虾的FastReport？是ereport.
不过，fastreport也没问题，支持汉语。可在用户段设计表格。

还是使用delphi自带的好，因为版本总是兼容的。
也可以制作动态的，不过中文的话，要修改原代码

fastreport控件最适合做中国式报表

用FR吧，很容易的，作固定格式的报表和搭积木差不多

FastReport我今天刚从网上下载下来2.43
对FastReport不熟悉，有谁可以谈一下，同时它对汉字的处理会不会存在问题。
问题主要是报表很大而且很复杂，动态生成很繁。

对汉字要怎么处理？

哪有FastReport？我没时间去找，请帮帮。gzcyp2000@21cn.com

www.inprises.com有

看它的demo和FQ就够了。
汉字没问题，连界面都是：）
有问题再问或查以前的贴子，很多的。
祝顺利。

不好意思，我忘了填加路径了。
请问如何做成像word那样，可以合单元格，
若单元格内的汉字超出单元格宽度会自动回车？

如何安装，有什顺序？好像FastReport存在版权问题。。。

那你就得用ereport了，不错，可以在d5下用

ereport : 深圳同丰公司主页 http://www.netease.com/~bozhi/
fastreport :http://go5.163.com/delphi50/
ehlib : http://www.inprises.com/control/before.htm

速达软件3000pro的报表设计得很有特色，是比较方便中国式的报表制作，但不知那位大虾知道是如何制作的呢?

有很多报表是用报表组件做不出来的;
自己写吧,当然别吝望DELPHI的QUICKREPORT啦.

关注

[blue] Delphi应用程序中中国式报表的制作[/blue]
在众多可视化数据库开发工具中, Delphi以其真正的面向对象、高效率、支持多层结构应用开发、支持多层B/S结构开发等优良特性脱颖而出，成为广大编程人员的首选开发工具。
在数据库应用程序开发中，系统设计员、程序设计员需要考虑的一个重要问题是如何设计和输出报表，在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控件来实现。
２、控件设计步骤
步骤１、使用Delphi提供的控件向导，选择TQShape为父类，建立新类TMyQRShape，并选择适当的包(Package)，最后生成单元文件。
步骤２、在生成的单元文件中，增加枚举类型，
Tlines = ( None,TopBottom,BottomTop ) ;
None、TopBottom、BottomTop三种取值，分别代表直线、斜线 和反斜线 / 。
步骤３、在新类TMyQRShape 中增加private 成员 FLineType:Tlines ，增加published属性 LineType:Tlines Read FLineType Write SetFLineType 。
步骤４、建立过程SetFLineType 。
procedure TMyQRShape.SetFLineType(Value:Tlines);
begin
if Value<>FLineType then
begin
FLineType:=Value ;
Invalidate ;
end ;
end ;
步骤５、重载Paint方法
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 ;
end ;
end ;
步骤６、重载Print方法
procedure TMyQRShape.Print(OfsX,OfsY : Integer);
begin
with QRPrinterdo
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 ;
end;
步骤７、保存并安装TMyQRShape控件。
本控件在Delphi40下调试、安装，并成功应用于某数据库管理系统的开发。该控件的完整代码如下。
源程序：
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;

procedure Register;
implementation
procedure TMyQRShape.SetFLineType(Value:Tlines);
begin
if Value<>FLineType then
begin
FLineType:=Value ;
Invalidate ;
end ;
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 ;
None:
begin
Height := Parent.Height ;
Top:=0 ;
Width:=4 ;
Shape:=qrsVertLine ;
Inherited Paint ;
end ;
end ;
end ;
procedure TMyQRShape.Print(OfsX,OfsY : Integer);
begin
with QRPrinterdo
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 ;
end;

procedure Register;
begin
RegisterComponents(`Qreport`, [TMyQRShape]);
end;

to aidren
这篇文章我也看过,但感觉对我做的报表没什帮助。看样我做的报表要是一单元格cells
来做了。有什没有版权限制的免费控件。
要支持分解与合并单元格，支持边框线为虚线。单元格的有效性检验
我找到一个ExcelGrids 但其打印功能较弱。没有demo.