用Rave制作报表时，如何用代码实现对报表的控制？

Question

用Rave制作报表时，如何用代码实现对报表的控制？

Answer 1

procedure TMSForm.BitBtn3Click(Sender: TObject);
var
  MyPage: TRavePage;
  MyText: TRaveText;
begin
  RvProject1.Close;
  RvProject1.ProjectFile:='ck.rav';
  RvProject1.Open;
  With RvProject1.ProjMan do
  begin
    MyPage := FindRaveComponent('Report1.Page1',nil) as TRavePage;
    MyText := FindRaveComponent('Text5',MyPage) as TRaveText;
    MyText.Text := FormatDateTime('yyyy-MM-dd',DateTimePIcker1.DateTime); //设置报表中文本内容
    MyText := FindRaveComponent('Text3',MyPage) as TRaveText;
    MyText.Text := Combobox4.Text;
    MyText := FindRaveComponent('Text21',MyPage) as TRaveText;
    MyText.Text :=FormatFloat('0.00',cb)+'元' ;
    // MyText.Color := clGreen;　//设置颜色
  end; { with }
  RvProject1.ExecuteReport('Report1');
  RvProject1.Close;
end;