demo.pas

delphi数据库的程序代码

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;