Um Stevies Bemerkung aufzunehmen, besser wäre wohl so etwas:
Delphi-Quellcode:
------
Datamodule:
function Isrecordused(recnr:integer):boolean;
....
result:=dmAuftrag.qGETFertigteileeingang.FieldByName('Anzahl').AsInteger>0;
...
end;
function Delete(recnr);
....
end;
-----------------
Hauptprogramm:
if not(IsrecordUsed(recnr) then delete(recnr);
Wenn du dich an dieses Prinzip hälst kannst Du Problemlos die
DB-Schnittstelle austauschen, ohne am eigentlichen Programm eine Änderung durchzuführen.
(Namen sind Schall und Rauch! das Delete ist nicht der Weisheit letzter Schluß!)
Gruß
K-H