Как сделать, чтобы TTable позволял редактировать запись, но не по

← →
ghrup (2004-08-29 19:05) [0]

Как сделать, чтобы TTable позволял редактировать запись, но не позволял вставлять новую запись?
ReadOnly не подходит, он запрещает и редактирование, и новую запись.

← →
AndB © (2004-08-29 19:22) [1]

procedure TForm1.Table1BeforeInsert(DataSet: TDataSet); begin EDatabaseError.Create("Злобный автор не позволил дабавлять"); end;

← →
Zacho © (2004-08-29 19:27) [2]

А если не нужно сообщение об ошибке, то просто:
procedure TForm1.Table1BeforeInsert(DataSet: TDataSet); begin Abort; end;

← →
Anatoly Podgoretsky © (2004-08-29 19:52) [3]

Zacho © (29.08.04 19:27) [2]
Сообщение надо :-)

← →
ghrup (2004-08-29 19:54) [4]

Большое спасибо!
Объясните суть приема, как это работает.
Это где нибудь описано в официальной документации?
Работает ли в разных версиях Delphi?

← →
Zacho © (2004-08-29 20:06) [5]

> Anatoly Podgoretsky © (29.08.04 19:52) [3]

Ну, автор исходного поста ничего по этому поводу не сказал :-)

> ghrup (29.08.04 19:54) [4]

Суть в том, что инициируется исключение. Работает во всех версиях Дельфи. Подробно описано в стандартном хелпе.

← →
ghrup (2004-08-29 21:36) [6]

>Zacho
>Суть в том, что инициируется исключение.
А что происходит после?
Каким образом прерывается Insert?
Ведь событие BeforeInsert нужно для того чтобы выполнить действие до вставки
в таблицу, а не прерывать вставку, так ведь?

А если вызвать исключения в Before... BeforeClose,BeforeEdit и т.п.,
можно ли тоже прервать эти действия Close,Edit...?

Если вызвать ислючения в After... AfterInsert,AfterPost что произойдет?

ghrup (29.08.04 21:36) [6]

http://delphimaster.net/view/3-1093463113/

← →
ghrup (2004-08-30 11:30) [8]

>procedure TForm1.Table1BeforeInsert(DataSet: TDataSet);
>begin
> EDatabaseError.Create("Злобный автор не позволил дабавлять");
>end;

Не работает. всё разрешает, сообщение не выводится.
С Abort работает.

raise EDatabaseError.Create("Злобный автор не позволил добавлять");

Как сделать, чтобы TTable позволял редактировать запись, но не по Найти похожие ветки