请在CSDN中搜索SReport(软件),这是一个控件。我的。相信你一定会有收获。
解决方案 »
- Indy心跳法判断断线的问题
- TStringGrid的OnCellSelect事件对FixedCol列不响应?
- 条型图或者柱状图大家都用什么控件?
- Delphi书籍资料下载
- 最后的散份贴 (2)
- 如何把CreatOleObject产生的变量删除?
- 关于查询的一个问题,请各位高手指教,我在线等待,答者有分
- 如何给动态创建的多个TComboBox赋不同的Onchange事件?
- 自增字段问题:
- 难道这就是Report Builder Enterprise Edition?
- 关于自定义函数响应组件事件的问题。
- 启动Database Desktop时,显示无法初始化BDE是怎么回事?而且连接数据库也连不上,怎么办?
你可以试试fast report,你的问题我认为思路是:先根据报表的条件查询出需要显示出来的字段,然后用fast report把这些字段做成报表,样式可以自己弄,很自由的。
放在程序中没问题。(作为程序的一个模块).
你要想要先加分,留下e-mail.我给你发过去
begin
QRLabel[i]:=TQRLabel.Create(QRep.Bands.ColumnHeaderBand);
QRLabel[i].parent:=QRep.Bands.ColumnHeaderBand;
QRep.Bands.ColumnHeaderBand.Height:=20;///jiajia
QRLabel[i].height:=QRep.Bands.ColumnHeaderBand.height-2;
QRLabel[i].width:=200;//table1.Fields[i].DisplayWidth
QRLabel[i].Font.size:=8;
if i=0 then
QRLabel[i].Left:=-3
else
QRLabel[i].left:=QRlabel[i-1].left+QRLabel[i-1].width-3;
QRLabel[i].top:= 1;
if i=total-1 then
begin
QRLabel[i].frame.drawtop:=true;
QRLabel[i].frame.drawbottom:=false;//true; {指定Text是否有边框}
QRLabel[i].frame.drawleft:=true;;
QRLabel[i].frame.drawright:=true;
end
else
begin
QRLabel[i].frame.drawtop:=true;
QRLabel[i].frame.drawbottom:=false;//true; {指定Text是否有边框}
QRLabel[i].frame.drawleft:=true;
QRLabel[i].frame.drawright:=false;;
end;
//QRLabel[i].Top:=1; //调节列表字段的表格高度,,
if comcate.Text='详细报表' then
QRLabel[i].Caption:=table1.Fields[i].DisplayLabel
else
QRLabel[i].Caption:=table2.Fields[i].DisplayLabel ; end;我现在用这段代码,可以实现不错位了,但是titleband的上线画出来总是宽度不够,所以不能封口一样就这样:
_ _ _ _ _ 我只能演示上线,下线是正常的,就是上线不能封口似的,liulin(liulin)麻烦帮
| | | | | 帮我看看代码,,我晚上就结你分,,
希望能帮到你。只是这个有个问题,就是一页的列数说到底也是固定的了,只是显示不显示的问题。如果你有更好的办法,别忘了告诉我哟。
_ _ _ _ _ 看见没啊?上口就是这样的
| | | | |
我的可以解决。 我的email地址如下:谢谢,,@_@
[email protected]
如果觉得分不够,我在分着给你,好不好?快发啊,,,
你的邮箱好像不行,发不出去。换个263的什么的?
邮箱:[email protected]
快给俺发吧,,俺急成白发了,,//cry@@@@@@@@@@@@@@@
多发几次好不好啊?俺真的要去染头了,//cry要不俺拜你为师吧?嘿嘿,快快快快@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@