动态的设置报表中的内容 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;
让最终用户动态的修改报表格式. with RvProject1 do begin DLLFile :='D:\Rave5\Redist\RaveSolo.dll'; //如果不指定此文件则运行时会报出错 ProjectFile :='E:\delphi\rave\files\test.rav'; //指定RAV文件 LoadDesigner :=true; If Design then begin If MessageDlg(Trans('Save changes to project ') + ProjectFile + '?', mtConfirmation, [mbYes,mbNo,mbCancel],0) = mrYes then begin Save;//保存 end; { if } end; { if } end;{with} 此程序在D6+Rave5.1下调试通过.在D7下就用Rave.dll
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;
with RvProject1 do
begin
DLLFile :='D:\Rave5\Redist\RaveSolo.dll'; //如果不指定此文件则运行时会报出错
ProjectFile :='E:\delphi\rave\files\test.rav'; //指定RAV文件
LoadDesigner :=true;
If Design then begin
If MessageDlg(Trans('Save changes to project ') +
ProjectFile + '?',
mtConfirmation,
[mbYes,mbNo,mbCancel],0) = mrYes then
begin
Save;//保存
end; { if }
end; { if }
end;{with}
此程序在D6+Rave5.1下调试通过.在D7下就用Rave.dll