Einzelnen Beitrag anzeigen

m-werk

Registriert seit: 14. Jun 2002
215 Beiträge
 
Delphi 2009 Architect
 
#5
  Alt 6. Aug 2002, 21:16
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?
Grüße, m-werk
  Mit Zitat antworten Zitat