Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Quickreport: Daten (nicht aus DB) in einem Band ausgeben? (https://www.delphipraxis.net/21602-quickreport-daten-nicht-aus-db-einem-band-ausgeben.html)

daywalker-dj-k 5. Mai 2004 14:14


Quickreport: Daten (nicht aus DB) in einem Band ausgeben?
 
hallo,
ich lese einige Daten aus einer db aus und gebe diese auf einem band nacheinander aus. nun möchte ich mit diese daten auch verarbeiten und das ergebnis dieser Verarbeitung ebenfalls in diesem band ausgeben. wie kann ich das realisieren? oder kann man nur die daten aus der db ausgeben?

danke
gruß
tkliewe

BluesKid 5. Mai 2004 14:35

Re: Quickreport: Daten (nicht aus DB) in einem Band ausgeben
 
Moin moin

Vieleicht kannst du dein Problem etwas genauer beschreiben.

Generell kann man die QuickReport Komponenten auch direkt ansprechen.

Delphi-Quellcode:
 QRLabel1.caption := 'Hallo Welt'
schönen Gruß

Sam

daywalker-dj-k 5. Mai 2004 14:53

Re: Quickreport: Daten (nicht aus DB) in einem Band ausgeben
 
hallo,
das ganze ist nicht so einfach in worte zu fassen:

mal ein beispiel:

ich lese aus einer db einen wert aus, der entweder "a" oder "b" lauten kann. nun soll ein label in dem bank bei "a" den text "hallo" ausgeben, bei "b" soll "hallihallo" ausgegeben werden. ich möchte also mit den daten aus der db arbeiten.

gruß
tkliewe

BluesKid 5. Mai 2004 15:03

Re: Quickreport: Daten (nicht aus DB) in einem Band ausgeben
 
Moin moin

geht ist relativ simpel.

Was du brauchst ist das Ereignis BeforePrint eines QRBands oder eines QRLabels. Da kannst du ja dann mittels ner if Anweisung den Inhalt des DB-Feldes Festellen und dann entsprechend den Text in einem Label änder oder was auch immer passieren soll.

Beispiel (hier mit nem QRBand auf dem ein QRLabel ist):

Delphi-Quellcode:
procedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  if ADOTable1.fieldbyname('AB').text = 'a' then QRLabel1.caption := 'Hallo'
  else QRLabel1.caption := 'HalliHallo';
end;
schönen Gruß

Sam

daywalker-dj-k 5. Mai 2004 15:05

Re: Quickreport: Daten (nicht aus DB) in einem Band ausgeben
 
hallo,
vielen dank. werd es direkt mal testen.
gruß
tkliewe


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:48 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