Löschen eines Datensatzes verhindern

[IBExpert]

wir machen das meistens mit einem trigger, der eine exception auslöst


CREATE OR ALTER trigger angebot_bd0 for angebot
active before delete position 0
AS
begin
if (upper(coalesce(old.txt,''))<>'LOESCHEN') then
exception error '#BRPMSG#Löschen nur dann möglich, wenn im Angebot in der Bezeichnung LOESCHEN steht#BRPEND#';
end

wenn jemand das in der Applikation probiert, geht das eben nicht versehentlich, aber wenn es aus welchen gründen
auch immer wirklich mööglich sein soll, dann muss er vorher das txt feld ändern jund dann geht das.

weil das ein trigger ist, funtkioniert das auch kascadierung, hat schon häufiger mal verhindert, das jemand
was versehentlich löscht

Technisch kannst du die Änderung ähnlich auch aus deiner Applikation via TDataset auslösen, aber das
könnte dann seltsam reagieren