用QuickRep打印dbgrid中的内容，如何加竖线？（在线等待）

Question

我也尝试了一些打印dbgrid中内容的方法，但还是有点小遗憾，就是给表格加竖线，因为QuickRep默认打印只有横线，但我们中国式报表都有横线和竖线，怎么给字段和字段之间加上竖线呢？

Answer 1

fastreport，可是我必须用delphi 6，delphi 6好像没有fastreport吧。

Answer 2

在数据库应用程序开发中,系统设计员、程序设计员需要考虑的一个重要问题是如何设计和输出报表,在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控件来实现

Answer 3

控件设计步骤  步骤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。

Answer 4

procedureTMyQRShape.SetFLineType(value:TLines);beginif value<>FLineType then

Answer 5

tigertou(虎头) ，多谢！不过，我要先试一下。

Answer 6

tigertou(虎头) ，不好意思，我很笨，没有试通，你的语句是不是没有写完啊。

Answer 7

用shape控件啊，他就是各式样的线啊。

Answer 8

sixgj(轰炸机)÷÷能画斜线吗？我一直象画斜线

Answer 9

只能写一个继承自TQShape的控件了

Answer 10

sixgj(轰炸机），用shape 控件可以，但每个字段之间都要加上竖线，而且还要对齐，好像有点儿麻烦，有没有简单一点的呢。