[diagnoz]

Необходимо, чтобы пользователь мог добавить,удалить, редактировать добавленную запись, но не мог редактировать запись, после которой записи уже добавлялись. Сам ничего придумать пока не смог =(

[NumLock]

Код:

type
  TForm1 = class(TForm)
    CanEdit: Boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CanEdit:=True;
end;

procedure TForm1.Table1AfterDelete(DataSet: TDataSet);
begin
  CanEdit:=False;
end;

procedure TForm1.Table1BeforeEdit(DataSet: TDataSet);
begin
  if not CanEdit then raise Exception.Create('Oops');
end;

[diagnoz]

Спасибо. Не знал от трригерах