uses RvClass,RvText;var Page1:TRavePage; Text1:TRaveText; begin rvproject1.open; with rvproject1.projman do begin Page1:=FindRaveComponent('report1.page1',nil) as TRavePage; Text1:=FindRaveComponent('Txt_Title',page1) as TRaveText; Text1.text:='2001-1-1' end; try rvproject1.executereport('report1'); finally rvproject1.close; end; end;
RaveProject.SetParam('MyParam', 'My Param Value');ravaproject.execute ; //或ravaproject.executereport('报表名');这和普通调用一样其实就多了上面一句.
可以了
RvClass,RvText;var
Page1:TRavePage;
Text1:TRaveText;
begin
rvproject1.open;
with rvproject1.projman do
begin
Page1:=FindRaveComponent('report1.page1',nil) as TRavePage;
Text1:=FindRaveComponent('Txt_Title',page1) as TRaveText;
Text1.text:='2001-1-1'
end;
try
rvproject1.executereport('report1');
finally
rvproject1.close;
end;
end;