Fastreport mit Master und mehreren Detailbändern

[Lemmy]

Hi,

wenn Du die Daten in einer Abfrage raus bekommst, dann kannst Du diese auch über die Group-Bänder darstellen (s. die Demos dazu)

Wenn Du über Master-Detail gehen willst, dann musst du dafür sorgen, dass die Details auf den jeweiligen Master reagieren. WEnn die IBO keine Master-Detail Beziehungen über den Objektinspektor kennen, musst du das halt von Hand lösen:

Master: Select <> from <>;
Detail 1: Select <> Frm <> where ID = MasterID;
Detail 2: Select <> from <> where ID = Detail1ID;

und in den AfterScroll-Events von Master und Detail1 den jeweiligen nächsten Detail setzen (also in Master.AfterScroll wird Detail1 ID gesetzt und geöffnet, In Detail1.AfterScroll wird Detail2 gesetzt)

Klar so weit?

Grüße

[Sir Rufo]

Eigentlich fehlt nur eine DataSource Komponente, mit der die MasterDetail-Beziehung zwischen der ibqrAdressen und ibqrAemter und ibqrEhrungen festgelegt wird.

Der Rest ist dann Spaziergang

[HPB]

Zitat von Sir Rufo:

Eigentlich fehlt nur eine DataSource Komponente, mit der die MasterDetail-Beziehung zwischen der ibqrAdressen und ibqrAemter und ibqrEhrungen festgelegt wird.

Der Rest ist dann Spaziergang

Guten Tag Sir Rufo,
wie kann denn in der TDataSource eine Master-Detail-Beziehung hergestellt werden?
Hast Du mal ein Beispiele - Bild??
(Privat an Sir Rufo: Es kann Dir ja keine PN geschickt werden. Da Du aber aus Stadthagen kommst,
habe ich eine oder mehrere Fragen an Dich, die ich hier nicht öffentlich machen möchte.
Vielleicht schickst Du mir eine Nachricht??)

An Lemmy,
hast Du nicht ein konkretes Beispiel? Kann auch ein Bild sein.
So verstehe ich es noch nicht.

Mit Gruß
HPB

[mkinzler]

Master:

SQL-Code:

select
  a.Titel,
  a.name1,
  a.name2,
  a.Strasse,
  a.PLZ,
  a.Ort,
  a.Geborenam
from 
  adressen a
where 
  a.adressid in (15,920,1,20,2,22,1009);

Detail 1:

SQL-Code:

select
  l.FKAdressID,
  l.von,
  l.bis
from 
  logenaemter l
where 
  l.FKAdressID = :master;

Detail 2:

Code:

select 
  e.FKAdressID,
  e.Ehrung,
  e.EhrungAm
from
  Ehrungen e
where
  e.FKAdressID = :master;

Im AfterScroll des Masterdatasets dann:

Delphi-Quellcode:

frxdbdtstAemter.ParamByName('master').Value := frxdbdtstAdressen.FieldByName('AdressID').Value;
frxdbdtstAemter.Refresh; 
frxdbdtstEhrungen.ParamByName('master').Value := frxdbdtstAdressen.FieldByName('AdressID').Value;
frxdbdtstEhrungen.Refresh;

[Sir Rufo]

Master:

SQL-Code:

select
  a.AdressId, a.Titel, a.name1, a.name2, a.Strasse, a.PLZ, a.Ort, a.Geborenam
from
  adressen a
where
  a.adressid in (15,920,1,20,2,22,1009);

Detail:

SQL-Code:

select
  l.FKAdressID,
  l.von,
  l.bis
from
  logenaemter l
where
  l.FKAdressID = :AdressID;

und das Verknüpfen der Abfragen:

Delphi-Quellcode:

AdresseDataSource.DataSet := ibqrAdressen;
ibqrAemter.MasterSource := AdressenDataSource;

Wenn es keine MasterSource -Eigenschaft gibt, dann die Variante von mkinzler

Bei der Verwendung der MasterSource -Eigenschaft werden die Parameter automatisch mit den Werten vom Master bestückt

[HPB]

Zitat von mkinzler:

Master:

Im AfterScroll des Masterdatasets dann:

Delphi-Quellcode:

frxdbdtstAemter.ParamByName('master').Value := frxdbdtstAdressen.FieldByName('AdressID').Value;
frxdbdtstAemter.Refresh; 
frxdbdtstEhrungen.ParamByName('master').Value := frxdbdtstAdressen.FieldByName('AdressID').Value;
frxdbdtstEhrungen.Refresh;

Im Masterband und auch im DetailBand gibt es kein AfterScroll-Ereignis.
Kannst Du nicht mal eine Demo machen??

An Sir Rufo:
Es gibt keine MasterSource.Eigenschaft bei TIBQuery-Komponenten.

Mit Gruß HPB

[mkinzler]

Ich schrieb auch Master DataSet

[HPB]

Zitat von mkinzler:

Ich schrieb auch Master DataSet

Danke für den Rüffel.
Im frxdbdataset. Jawoll dort gibt es ein "AfterScroll.Ereignis"
Vielen Dank für Deine geduldige Hilfe.
Mit Gruß
HPB