Stored Procedure mit Delphi und FirebirdSQL

[erich.wanker]

Hallo Heiko, hallo mkinzler ...

Sorry für meine etwas verwirrende Fragestellung

Die Antwort von mkinzler (ein dickes Dankeschööööön) ist - denke ich - die perfekte Lösung.

ZUSATZFRAGE: Wie kann ich diesen Trigger wieder löschen? (und durch einen neuen Ersetzen?)








Im Moment verwende ich folgende Zeilen:



Wenn ein User einen PERSONEN-Datensatz neu erstellt oder ändert (Query[1]-OnDataChange) werden folgende Zeilen ausgeführt:

Delphi-Quellcode:

Query -> tabelle = PERSONEN
query[1] -> tabelle = PERSONEN


query.SQL.Clear;
query.SQL.Append('SELECT * FROM PERSONEN WHERE INR = ' +query[1].FieldByName('INR').AsString );
query.open;

query.Edit;
query.FieldByName('HTML_TEXT').asString := '<p style="margin: 0px;font-size: 12px">' + query[1].FieldByName('EINTRAG').asString + '<br></p><p style="margin: 0px;font-size: 10px">' + query[1].FieldByName('STRASSE').asString + '<br>' + query[1].FieldByName('PLZ').asString + '-' + query[1].FieldByName('ORT').asString + '</p>';
query.Post;

Genau diese Zeilen habe ich in 8 verschiedenen Fenstern..
Diese Art der "HTML-Text Erstellung" habe ich für verschiedene Tabellen..
... also ein Vielfaches dieser Zeilen verteilt in div. Units