Quickreport: Boolean mit Ja/Nein statt Wahr/Falsch anzeigen

[Chaoten-Joe]

Hallo zusammen,

hat jemand einen Tipp, wie ich in einem Quickreport in einer TQRDBText-Komponente boolesche Werte aus einer TQuery-Auswertung mit JA oder NEIN anzeigen kann (und nicht mit WAHR oder FALSCH)?
In meinem Programm kann der Benutzer beliebige SQL-Auswertungen vornehmen, die verschiedene Tabellen betreffen. Im DBGrid lasse ich die Suchergebnisse durch OnDrawColumnsCell entsprechend formatieren ... aber im Quickreport will es nicht gelingen.
Leider kann ich die Eigenschaft DisplayValues ja nicht ansprechen, oder? Ich bekomme es einfach nicht hin ...

Vielen Dank schonmal im voraus!

Christian

[mkinzler]

Notfalls in der Abfrage: select ... case when <Wert> = True then 'ja' else 'Nein' end ...

[Chaoten-Joe]

Gibt es auch ne andere Möglichkeit?
Ich möchte, dass es nicht der Benutzer eingeben muss ... Es soll halt so einfach wie möglich sein.

[Sir Rufo]

Ja, verwende ein Datenbanksystem und erstelle dort eine entsprechende StoredProcedure.

Code:

SELECT ..., JaNein( Wert ), ...

Eine andere Möglichkeit wäre, das Resultset auf Boolean-Werte zu prüfen und dann diese Spalten ausblenden und dafür "berechnete" Spalten einzufügen.

[sx2008]

Die einfachste Möglichkeit läuft über das OnGetText-Event.
Wenn man es richtig macht, kann man ALLE Boolean-Felder so umstellen.
(einmal programmieren, so oft wie gebraucht verwenden)
Jedes Feld hat ein OnGetText-Event über das man den Text, den ein Feld liefert
beliebig verändern kann:

Delphi-Quellcode:

procedure TForm1.BooleanJaNeinGetText(Sender: TField; var Text: string; DisplayText: Boolean);
const JaNein : array[Boolean] of string = ('Nein', 'Ja');
begin
  Text := JaNein[Sender.AsBoolean];
end;

Jetzt muss man noch dafür sorgen, dass dieser Eventhandler von den Felder auch benützt wird:

Delphi-Quellcode:

procedure TForm1.SetupJaNeinEventHandler(fields:TFields);
ver
  i : Integer;
  f : TField;
begin
  for i:= 0 to fields.Count-1 do
  begin
    f := fields[i];
    if f.FieldType=ftBoolean then
      f.OnGetEvent := self.BooleanJaNeinGetText;
  end;
end;

Wenn man diese Mehode im Event AfterOpen aufruft

Delphi-Quellcode:

procedure TForm1.Query1AfterOpen(dataset.TDataset);
begin
  SetupJaNeinEventHandler(dataset.Fields);
end;

dann ist man fertig.
(Code ohne Hilfe einer Delphi IDE erstellt; kleine Syntaxfehler sind moglich)

[Chaoten-Joe]

Perfekt! Eigentlich auch logisch! Dickes Dankeschön!

Nur der Vollständigkeit halber ... für alle, die das gleiche Problem hatten:
Eine kleine Korrektur beim Eventhandler:

Delphi-Quellcode:

procedure TForm1.SetupJaNeinEventHandler(fields:TFields);
var
  i : Integer;
  f : TField;
begin
  for i:= 0 to fields.Count-1 do
  begin
    f := fields[i];
    if f.DataType=ftBoolean then
      f.OnGetText := self.BooleanJaNeinGetText;
  end;
end;

Problem gelöst!

[user0815]

etwas OT...

Oder aber den QRDBText bei Font auf Wingdings einstellen & anschließend das OnPrint Event des Feldes auf

Delphi-Quellcode:

procedure TFormDruckenIBC.QRDBTextXXPrint(sender: TObject;
  var Value: String);
begin
  if Datenmodul.DBQuery.FieldByName('Feld').AsBoolean = True
   then Value := #254
    else Value := #168;
end;

ändern. Jetzt erhält man das Häkchen (http://de.wikipedia.org/wiki/Häkchen_(Schriftzeichen))

[sx2008]

Zitat von user0815:

Oder aber den QRDBText bei Font auf Wingdings einstellen & anschließend das OnPrint Event des Feldes auf

Das ist auch ein schöner Lösungsweg.
Wobei man versuchen sollte den Wert des Feldes über den Parameter Sender rauszuziehen:

Delphi-Quellcode:

procedure TFormDruckenIBC.QRDBTextXXPrint(sender: TObject; var Value: String);
var
  f : TField;
begin
  f := (Sender as TQRDBText).Dataset.FieldByName((Sender as TQRDBText).DataField);
  if (f.AsBoolean then
   then Value := #254
    else Value := #168;
end;