Einzelnen Beitrag anzeigen

Benutzerbild von BluesKid
BluesKid

Registriert seit: 2. Sep 2003
Ort: NRW
133 Beiträge
 
Delphi 2005 Professional
 
#4

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

  Alt 5. Mai 2004, 15:03
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 = 'athen QRLabel1.caption := 'Hallo'
  else QRLabel1.caption := 'HalliHallo';
end;
schönen Gruß

Sam
  Mit Zitat antworten Zitat