Nehmen wir an, dass du eine Lookup-Table CATEGORIES (ID, NAME) und eine Datentabelle DEVICES (ID, NAME, CAT_ID) hast - mit folgenden Daten:
Code:
CATEGORIES
ID | NAME
----------------
1 | Printer
2 | Server
3 | Workstation
Beim Ereignis OnNewRecord() deiner Komponente adsDevices (TADODataSet) kannst du dann so reagieren:
Delphi-Quellcode:
procedure TDemoForm.adsDevicesNewRecord(DataSet: TDataSet);
begin
DataSet['CAT_ID'] := 3;
end;
So wird ein Vorgabewert festgelegt, ohne dass beim Abbrechen der Neuaufnahme eine Benutzer-Aktion verlangt wird.