我的报表工程叫CO,然后里面有一个名为EMP的报表,我在其中Page1的底部放置了一个Text组件(其name是Text3),用来动态显示一句话,这句话是随着我的程序的使用者不同而不同的,也就是说可能每次使用报表时它所显示的内容都不一样。
现在我想通过编程的方法来操作它,请问各位高手如何实现??
真的很急,谢谢帮忙!!!!!

解决方案 »

  1.   

    http://expert.csdn.net/Expert/topic/1743/1743788.xml?temp=.5292475
      

  2.   

    uses
        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;
      

  3.   

    var
      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;