demo.pas

来自「delphi数据库的程序代码」· PAS 代码 · 共 21 行

procedure ActReportDemo;
var
  actrptCool: TActReport;
  tbl: TTable;
begin
  // some preparation codes here, begin
  …
  // some preparation codes here, end
  actrptCool := TActReport.Create;
  actrptCool.Initialize(tbl, '报表标题');
  actrptCool.SetFileName('report0.ypj');
  actrptCool.LoadRep;
  actrptCool.ShowModal;		// give the user a modification chance
  actrptCool.PreviewRep;
  actrptCool.Print;
  // some other codes here, begin
  …
  // some other codes here, end
  actrptCool.Free;
end;