QuickReport - UserDesigned-Reportvorlage verwenden!

[jaevencooler]

Moin,

also wenn du möchtest das deine Nutzer den Report erzeugen / bearbeiten können, dann must Du den Designer nutzen :

Delphi-Quellcode:

procedure EditNewReport(RepName : string;var aReport : TMemoryStream; MyRowID : string);
begin
  ReportDrucken_w := TReportDrucken_w.Create(Screen.ActiveForm);

  if (aReport <> nil) then begin
    ReportDrucken_w.ReportDesignerDialog1.BeforeOpenDataset := nil;
    if aReport.Size = 0 then
      ReportDrucken_w.ReportDesignerDialog1.NewReport_InStream(aReport,RepName,False)
    else
      ReportDrucken_w.ReportDesignerDialog1.EditReport_FromStream(aReport,RepName);

    ReportDrucken_w.ReportDesignerDialog1.BeforeOpenDataset := ReportDrucken_w.ReportDesignerDialog1BeforeOpenDataset;
  end;

  ReportDrucken_w.Free;
end;

so lade ich den Report aus einem Stream, damit die Nutzer diesen dann bearbeiten können
wenn es keinen Stream gibt, dann erzeuge ich einfach einen neuen Report.

Klappt ganz prima !

wenn Du nur drucken willst, dann reicht der Loader.

Cu Michael