AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Anordnung von Subreports spinnt

Ein Thema von raiha · begonnen am 7. Jul 2005 · letzter Beitrag vom 8. Jul 2005
Antwort Antwort
raiha

Registriert seit: 7. Jul 2005
2 Beiträge
 
#1

Anordnung von Subreports spinnt

  Alt 7. Jul 2005, 07:00
Hi,

habe ein Problem mit dem ReportBuillder aus dem Hause Digital Metaphors und Delphi 6. Ich belege zur Laufzeit einen Report mit einem Template und mehreren Unterreports.

Das sieht also wie folgt aus:

Delphi-Quellcode:
procedure Tfrm_rptdesigner.Button5Click(Sender: TObject);
 var myReport : TppReport;

        mySubReport : TppSubReport;
        mySubReport2 : TppSubReport;
        mySubReport3 : TppSubReport;

        PrimChart : TppTeeChart;
        PrimChart2 : TppTeeChart;
        PrimChart3 : TppTeeChart;

        mySeries : TBarSeries;
        mySeries2 : TBarSeries;
        mySeries3 : TBarSeries;

 begin

  // rpts und subrpts anlegen
  myReport := TppReport.Create(nil);
  mySubReport := TppSubReport.Create(nil);
  mySubReport2 := TppSubReport.Create(nil);
  mySubReport3 := TppSubReport.Create(nil);

  // Series anlegen
  mySeries := TBarSeries.Create(nil);
  mySeries2 := TBarSeries.Create(nil);
  mySeries3 := TBarSeries.Create(nil);

  // Charts anlegen
  PrimChart := TppTeeChart.Create(Self);
  PrimChart2 := TppTeeChart.Create(Self);
  PrimChart3 := TppTeeChart.Create(Self);


  // Lade ersten rpt in den RPT (Mainrpt)
  myReport.Template.DatabaseSettings.NameField := 'Name';
  myReport.Template.DatabaseSettings.TemplateField := 'Template';
  myReport.Template.DatabaseSettings.DataPipeline := DBPipelineReport;
  myReport.Template.DatabaseSettings.Name :='ExhibitionMainReport';
  myReport.Template.LoadFromDatabase;

  /////////////////////////////////////
  // Lade ersten Subrpt in den Mainrpt

  mySubReport.Band := myReport.DetailBand;
  mySubReport.CreateReport(myReport);
  mySubReport.Report.Template.DatabaseSettings.NameField := 'Name';
  mySubReport.Report.Template.DatabaseSettings.TemplateField := 'Template';
  mySubReport.Report.Template.DatabaseSettings.DataPipeline := DBPipelineReport;

  mySubReport.Report.Template. DatabaseSettings.Name :='ExhibitionChartReport';
  mySubReport.Report.Template.LoadFromDatabase;

  // Lade TChart in den ersten Subrpt
  PrimChart.Band := mySubreport.Band;
  PrimChart.Visible := true;
  PrimChart.Height := 50;
  PrimChart.Width := 70;
  PrimChart.Chart.Align := alClient;
  PrimChart.Chart.Title.Text.Clear;
  PrimChart.Chart.Title.Text.Add ('Chart_1');
  PrimChart.Name := 'ChartName';

  mySeries.AddBar(98,'label', clblue);
  PrimChart.Chart.AddSeries(mySeries);

  mySubReport.ShiftWithParent := true;
  /////////////////////////////////////

  /////////////////////////////////////
  // Lade den zweiten Subrpt in den Mainrpt

  mySubReport2.Band := myReport.DetailBand;
  mySubreport2.ShiftRelativeTo := mySubreport;
  mySubReport2.CreateReport(myReport);
  mySubReport2.Report.Template.DatabaseSettings.NameField := 'Name';
  mySubReport2.Report.Template.DatabaseSettings.TemplateField := 'Template';
  mySubReport2.Report.Template.DatabaseSettings.DataPipeline := DBPipelineReport;

  mySubReport2.Report.Template.DatabaseSettings.Name :='ExhibitionChartReport';
  mySubReport2.Report.Template.LoadFromDatabase;

  // Lade TChart in den ersten Subrpt
  PrimChart2.Band := mySubreport2.Band;
  PrimChart2.Visible := true;
  PrimChart2.Height := 50;
  PrimChart2.Width := 70;
  PrimChart2.ShiftWithParent := true;
  PrimChart2.Chart.Align := alClient;
  PrimChart2.Chart.Title.Text.Clear;
  PrimChart2.Chart.Title.Text.Add ('Chart_2');
  PrimChart2.Name := 'ChartName2';

  mySeries2.AddBar(22,'label2', clred);
  PrimChart2.Chart.AddSeries(mySeries2);

  mySubReport2.ShiftWithParent := true;
  /////////////////////////////////////

  /////////////////////////////////////
  // Lade den dritten Subrpt in den Mainrpt
  mySubReport3.Band := myReport.DetailBand;
  mySubreport3.ShiftRelativeTo := mySubreport2;
  mySubReport3.CreateReport(myReport);
  mySubReport3.Report.Template.DatabaseSettings.NameField := 'Name';
  mySubReport3.Report.Template.DatabaseSettings.TemplateField := 'Template';
  mySubReport3.Report.Template.DatabaseSettings.DataPipeline := DBPipelineReport;

  mySubReport3.Report.Template.DatabaseSettings.Name :='ExhibitionChartReport';
  mySubReport3.Report.Template.LoadFromDatabase;

  // Lade TChart in den ersten Subrpt
  PrimChart3.Band := mySubreport3.Band;
  PrimChart3.Visible := true;
  PrimChart3.Height := 50;
  PrimChart3.Width := 70;
  PrimChart3.Left := 40;
  PrimChart3.ShiftWithParent := true;
  PrimChart3.Chart.Align := alClient;
  PrimChart3.Chart.Title.Text.Clear;
  PrimChart3.Chart.Title.Text.Add ('Chart_3');
  PrimChart3.Name := 'ChartName3';

  mySeries3.AddBar(52,'label3', clgreen);
  PrimChart3.Chart.AddSeries(mySeries3);

  mySubReport3.ShiftWithParent := true;
  /////////////////////////////////////


  myReport.Print;
 end;
Eigentlich sollte er jetzt das Main Template laden und in dessen Detailbereich die 3 Subreports untereinander ablegen (die alle ein TChart enthalten).
Bis zum zweiten Subreport macht er das auch wie gewollt aber wenn er den dritten einfügt überschreibt er mit der Grafik im zweiten Subreport mit dem dritten.
Wo liegt da der Fehler? Kann mir BITTE jehmand helfen?

Danke Rainer
  Mit Zitat antworten Zitat
nieurig

Registriert seit: 26. Apr 2004
113 Beiträge
 
Delphi 6 Professional
 
#2

Re: Anordnung von Subreports spinnt

  Alt 7. Jul 2005, 07:50
Hallo Rainer,
ich kenne den besagten Report nicht. Was aber am Code auffällt ist die Zeile
Code:
 PrimChart3.Left := 40;
mit der ja wohl eine Position für den dritten Abschnitt gesetzt wird? Bei den anderen Abschnitten fehlt eine solche Anweisung.

Wie sieht es aus, wenn Du diese Zeile wegläßt?
Niels
Erspare Dir die Gedanken über ungelegte Eier !!!
  Mit Zitat antworten Zitat
raiha

Registriert seit: 7. Jul 2005
2 Beiträge
 
#3

Re: Anordnung von Subreports spinnt

  Alt 8. Jul 2005, 13:55
Left hatte ich nur eingestellt damit man sieht das sich die Grafiken überlagern. Sonst würde die 3te Grafik die zweite einfach überlagern.

Ich befürchte der rbuilder unterstützt das dyn. Anlegen von Komponenten einfach nicht. Habe es jetzt statisch gelöst.

Trotzdem Danke - Rainer
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz