1:
2:

DataModuleKfZ.TblKfz.Edit;
DataModuleKfZ.TblKfz.Post;					

1:
2:
3:

DataModuleKfZ.TblKfZ.Open;
DataModuleKfZ.TblKfZ.AddIndex('KennzeichenIx', 'Kennzeichen', [ixPrimary,ixNonMaintained]);
DataModuleKfZ.TblKfZ.Close;					

1:
2:
3:
4:
5:
6:
7:

if myTable.Active then begin
  if myTable.State in [dsInsert, dsEdit] then begin
    myTable.Post;
    myTable.ApplyUpdates;
    myTable.CancelUpdates
  end;
end;					

1:
2:
3:
4:
5:

screen.cursor := crHourglass;
application.createform (TfrmCustomer,frmCustomer);
frmCustomer.tblCustomer.Insert;
frmCustomer.Show;
screen.cursor := crDefault;					

1:
2:
3:
4:
5:
6:
7:
8:

  if tblCustomerCustomerID.AsVariant = null then mnuNewClick(sender)   
  else begin
    screen.cursor := crHourglass;
    application.createform (TfrmCustomer,frmCustomer);  // im onCreate des Editierfesters die Tabelle im onCreate-Event öffnen, passiert dann HIER*
    frmCustomer.tblCustomer.Locate('CustomerID', tblCustomerCustomerID.value, []);
    frmCustomer.Show;
    screen.cursor := crDefault;
  end;					

1:
2:

  // bei onCreate des Editierfensters...
  tblCustomer.Active := true;  // passiert durch "application.createform (TfrmCustomer,frmCustomer);" s. oben					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  // OK-Button Click
  if tblCustomer.State in [dsInsert, dsEdit] then
    try tblCustomer.post; tblCustomer.FlushBuffers;
    except
      on E: EDBISAMEngineError do
        if E.ErrorCode = 9729 then begin
          with editCustomerNo do begin Show; SetFocus; end;
          raise(exception.create('Kundennummer existiert bereits'));
        end else raise;
    end;
  Close;					

1:
2:
3:

  try   //Refresht sozusagen, usw.
    frmCustomers.tblCustomer.Locate('CustomerID', tblCustomerCustomerID.value, []);
  except; end;