我的报表工程叫CO,然后里面有一个名为EMP的报表,我在其中Page1的底部放置了一个Text组件(其name是Text3),用来动态显示一句话,这句话是随着我的程序的使用者不同而不同的,也就是说可能每次使用报表时它所显示的内容都不一样。
现在我想通过编程的方法来操作它,请问各位高手如何实现??
真的很急,谢谢帮忙!!!!!
现在我想通过编程的方法来操作它,请问各位高手如何实现??
真的很急,谢谢帮忙!!!!!
解决方案 »
- 宽带拨号设置代理的问题
- 急急急,如何发送数据包???
- 关于程序启动时,ADOConnection 连接数据库的问题,经常犯这样的错误,求怎样解决。
- 问个弱弱的问题
- 如何用类的成员函数做回调函数呀?
- 一个关于坐标显示问题
- 请教高手,dll 里能否写 overload(重载)函数? 怎么输出(exports)?
- 急!fastreport竖线长度控制
- 请教各位朋友有谁知道Delphi自带的数据库,通过SQL语句查询日期的写法?(无正文)
- 为什么不能改变TClientDataSet的CommandText属性?
- 请问分布式的c/s应用当中,delphi怎么样实现及时更新每个客户端的软件版本?谢谢大侠们,请多多指教。
- 一个矩形件的排样下料问题,一批板料(长L,宽W),n种零件,每种零件宽度和数量分别为:li,wi,mi,求优化排样结果,恳请各位大侠帮忙!!
RVClass, RVProj, RVCsStd;
var
MyPage: TRavePage;
MyText: TRaveText;
begin
RaveProject1.Open;
With RaveProject1.ProjMan do begin
MyPage := FindRaveComponent('Report1.Page1',nil) as TRavePage;
//查找PAGE
MyText := FindRaveComponent('Text1',MyPage) as TRaveText;
//查找TEXT
MyText.Text := 'Boland Delphi'; //设置报表中文本内容
MyText.Color := clGreen; //设置颜色
end; { with }
RaveProject1.ExecuteReport('Report1');
RaveProject1.Close;
end;
MyPage: TRavePage;
MyText: TRaveText;
begin
RaveProject1.Open;
With RaveProject1.ProjMan do begin
MyPage := FindRaveComponent('emp.Page1',nil) as TRavePage;
//查找PAGE
MyText := FindRaveComponent('Text3',MyPage) as TRaveText;
//查找TEXT
MyText.Text := 'Boland Delphi'; //设置报表中文本内容
MyText.Color := clGreen; //设置颜色
end; { with }
RaveProject1.ExecuteReport('emp');
RaveProject1.Close;