DBGrid nach/bei Abfrage Strings ersetzen?

[mrschmidt]

Hallo liebe Community,

ich bin zugegeber Massen ein Delphi-Anfänger. Benutze Delphi 6 uns stehe vor folgendem Problem (Vielleicht kann mir ja mal einer mit dem Zaunpfahl winken):

Ich habe eine Kunden-Datenbank (Firebird) die mittels DataSource<-IBDataSet<-IBDataBase ein DBGrid "befüllt".

Nun möchte ich beim oder nach dem Befüllen einige Strings im DBGrid ersetzen ("1" wird zu "1 - bereits Kunde", "0" wird zu "0 - kein Kunde" usw. ... hier sind einige Spalten des DBGrids in dieser Art zu Bearbeiten)

Ein OnDraw-Ereignis kommt eher nicht in Frage, da ich auch schon eine Druck-Routine geschrieben habe die die Werte des DBGrids ausliest und zu papier bringt, diese soll nach Möglichkeit weiterhin genau das drucken was in den Zellen steht und nicht auch (nochmal) die Strings ersetzen.

Gibt es dafür eine Lösung, wo muss ich ansetzen?

Vielen Dank für Eure Tips.

Liebe Grüsse,
Mr.Schmidt

[uwewo]

Habe mit FB noch nie gearbeitet, aber sicher gibt es auch einen IF Befehl den Du in einer Query einsetzen kannst
z.Bsp.

SQL-Code:

select if(DeineSpalte = 1,'1 - bereits Kunde','0 - kein Kunde')
from DeinerTabelle

[shmia]

Du solltest eine neue Tabelle "KundenStatus" einführen:

Code:

IdKStatus KStatusText
=====================
        0 kein Kunde
        1 bereits Kunde
        2 Verbotskunde      (Kunde hat wiederholt Rechn. nicht bezahlt)

In deiner Kundentabelle wird nur der Status als Zahl gespeichert (kein Text).
In der Tabelle wird ein Lookup-Field eingefügt.
So hast du im Grid und im Report die Freiheit zu entscheiden, ob das KStatusfeld als Zahl oder als Text
benutzt werden soll.

[mrschmidt]

Erstmal Danke für die schnelle Antwort.
Ich kann leider keine Tabelle einfügen. Habe nur Lesezugriff auf die DB.

Mr.Schmidt

[mrschmidt]

"if" geht leider nicht aber das geht:

"(CASE WHEN Kunde = 0 THEN 'Neu' ELSE 'Alt' END)"

Danke uwewo!

[mkinzler]

Zitat:

"if" geht leider nicht

Es heißt auch IIF.