Hi, das hab ich jetzt nicht ganz kapiert.
So sieht zur Zeit der Code im Hauptformular aus, wenn ich einen Hauptkunden löschen möchte.
Code:
procedure TKundendaten.DeleteClick(Sender: TObject);
begin
if MessageDlg('Wollen Sie den Datensatz wirklich löschen?',
mtWarning,[mbYes, mbNo], 0) = mrYes then
begin
try
DM.ADOSHaupt.Delete;
except
on
exception do
MessageDlg('Keinen Datensatz zum löschen gefunden!',
mtWarning,[mbOk], 0);
end;
end;
end;
Wie und wo kann ich deinen Code einsetzen?