Mehrstufiger Report

[Achim Kamp]

Hallo,
ich bin neu in diesem Kreise, daher kurz meine Daten: Ich arbeite mit D4 CS mit QR pro.
Mein Problem: Ich möchte für eine Datenbankauswertung einen mehrstufigen Report ausdrucken.

Mein Vater ermittelt im Wald von Baumstämmen folgende Daten

Losnummer Stammnummer Holzart Sorte Güte Menge Länge Durchmesser
Diese gebe ich in eine Paradox-Datenbank ein und errechne die Stärkeklasse und Masse.
Die Ausgabe erfolgt Losweise und Stammweise, das klappt auch noch mit QR.

Bsp. <br>
Stammnummer Holzart Sorte Güte Menge Länge Durchmesser Stärkeklasse Masse <br>
1 Fi L BS 1 6 58 5 1,59 <br>
2 Bu L B 1 6 46 4 1,00 <br>

Für diese Lose muß dann die weitere Auswertung erfolgen,
und zwar erstens nach der Holzart(wieder aufgeteilt nach Sorte, Güte, Stärkeklasse),
das klappt auch noch mit einem weiteren Report)
<br>
Bsp. Holzart Sorte Güte Menge Stärkeklasse Masse <br>
(je Los) Fi L BS 5 4 7,40 <br>
Fi L BS 3 5 12,50 <br>
Bu L B 2 5 5,40 <br>
Bu L B 1 6 3,50 <br>
Bu L C 3 4 6,50 <br>

zu dieser Auswertung benötige ich aber noch weitere Auswertungen auf diesem Report:
(je Los) <br>
nach Güte BS 8 19,90 <br>
B 3 8,90 <br>
C 3 6,50 <br>
und
(je Los)
nach Holzart und Sorte <br>
Fi L 8 19,90 <br>
Bu L 6 15,40 <br>

Ich hoffe, das war einigermaßen verständlich. Weiß jemand Rat, wie ich diese Auswertungen zu Papier bekomme.

mfg Achim

[Achim Kamp]

Hallo,

war meine Frage unverständlich oder geht sie an diesem Forum vorbei.
Ich bitte um kurze Nachricht, da ich hier noch neu bin.

Danke
Achi

[Andreas Kosch]

Hallo,

nun - diese Frage erfordert eine "visuelle Antwort", da alle Schritte im Objektinspektor abgearbeitet werden - und so etwas lässt sich nur schwer in Worte fassen ;-)

In der Delphi-Objektgalerie ist der Wizard <b>QuickReport Haupt/Detail</b>, der das Grundgerüst für einen Master-Detail-Bericht anlegt. Über den Objektinspektor werden die einzelnen Bändern nun so verteilt, bis sich die gewünschte Darstellung ergibt.

Die Frage, auf welchem Weg die benötigten Daten für QR bereitgestellt werden, lässt sich nur dann beantworten, wenn das <b>Datenmodell</b> der Anwendung bekannt ist. Nur dann man sehen, ob ein JOIN über die vorhandenen Tabellen alle Daten liefern kann. Wenn ja, reicht TQuery als Datenmenge für QR aus. Wenn nicht, würde ich auf eine In-Memory-Tabelle (TClientDataSet etc.) zurückgreifen, um alle Daten für den Report aufzubereiten.

Über <b>TQRExpr</b> können Daten für jeden einzelnen Ausdruck berechnet werden:
<pre>
procedure TFormQR.QRExpr3Print(sender: TObject; var Value: String);
var
cPreis : Currency;
iMenge : Integer;
begin
cPreis := Query1PREIS_W.AsCurrency;
iMenge := Query1MENGE_N.AsInteger;
Value := Format('%m DM', [cPreis * iMenge]);
end;
</pre>
Es stehen also viele Möglichkeiten offen