Einzelnen Beitrag anzeigen

jaevencooler

Registriert seit: 8. Sep 2005
Ort: Friedrichshafen
41 Beiträge
 
Delphi 10 Seattle Enterprise
 
#4

AW: QuickReport - UserDesigned-Reportvorlage verwenden!

  Alt 3. Dez 2014, 10:12
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
Michael
Wissen ist Macht, nichts wissen macht auch nichts.
  Mit Zitat antworten Zitat