rave报表:怎么在delphi里用代码生成rave报表?

flysky 2003-10-17 04:50:45
不用rave designer,用code直接写,怎么做啊?
我要做动态报表,在rave designer里静态做不可以,
rave的资料太少了,也许我孤陋寡闻,哪位高人给
指点指点,一定送分!!!
...全文
52 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
flysky 2003-10-21
  • 打赏
  • 举报
回复
谢谢大家!问题已经解决了。
rave的资料太少,希望大家有什么发现多在此交流!谢谢qxj(Borland中国&游民) 的文章!

结贴!!
icet 2003-10-18
  • 打赏
  • 举报
回复
qxj(Borland中国&游民) 大侠出场了。 嗯。系统地看一下他写的那篇文章,会很有收获。
aiirii 2003-10-17
  • 打赏
  • 举报
回复
現在,關于動態生成rave報表的資料特別少,關注!!!
qxj 2003-10-17
  • 打赏
  • 举报
回复
问题15:动态创建DATAVIEW
问题5: 设计时通过程序动态向报表增加一个TEXT
uses
RVClass, RVProj, RVCsStd,RvCsRpt;

var
MyBand: TRaveBand;
MyRegion: TRaveRegion;
MyPage: TRavePage;
MyText,mytext1: TRaveText;
begin
RvProject1.Open;
With RvProject1.ProjMan do begin
MyPage := FindRaveComponent('Report1.Page1',nil) as TRavePage;
MyRegion:= FindRaveComponent('Region1',MyPage) as TRaveRegion;
MyBand := FindRaveComponent('Band1',MyRegion) as TRaveBand;
MyText:=TRaveText.Create(Myband);
MyText.Parent:=Mypage;
MyText.Name:=GetUniqueName('Text125',MyPage,false);
MyText.Top:=0.2;
MyText.Left:=0.7;
MyText.Width:=200;
MyText.Height:=200;
MyText.Text:='Delphi';
MyText.Font.Size :=20;//设置字体的属性
MyText.Font.Color :=ClRed;
MyText.Font.Name :='隶书';
AddComponent(MyText);

end; { with }
RvProject1.ExecuteReport('Report1');
RvProject1.Close;


可参考我的贴子
http://expert.csdn.net/Expert/topic/1743/1743788.xml?temp=.4269373

----------------------------------------------------------------------

在错的时间遇见错的人 是一种伤痛 
在错的时间遇见对的人 是一种遗憾 
在对的时间遇见错的人 是一种心伤 
只有在对的时间遇见对的人才是一种幸福

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧