Как запретить удаление записи?

← →
Roki (2003-03-11 13:08) [0]

Мастера, помогите. Такая вот проблема. Есть запись в НД, нужно чтобы когда курсор ставал на эту запись, то ее нельзя было ни редактировать, ни удалять. Пробую такой код в событии AfterEdit

procedure Tdm.ibNoteAfterEdit(DataSet: TDataSet); begin if DataSet.FieldByName("ID_NOTE").AsInteger = 2 then begin DataSet.Cancel; fNote.DBGrid1.Options := fNote.DBGrid1.Options - [dgConfirmDelete]; end else fNote.DBGrid1.Options := fNote.DBGrid1.Options + [dgConfirmDelete]; end;
Вроде нормально, но все равно выскакивает месага, насчет предупреждения об удалении. Может есть какой-то более нормальный способ ?

← →
stone © (2003-03-11 13:10) [1]

BeforeDelete(DataSet: TDataSet);
...
if ... then
Abort;

← →
Delirium^.Tremens © (2003-03-11 13:11) [2]

У грида из опций нужно убрать ConfirmDelete или что-то типа того :-)

← →
Johnmen © (2003-03-11 13:15) [3]

>Delirium^.Tremens © (11.03.03 13:11)

Правильно ! Чтобы удалялась без базара...:))))

← →
Delirium^.Tremens © (2003-03-11 13:22) [4]

> Правильно ! Чтобы удалялась без базара...:))))

Блин, ну не заметил я его маст%%%%ций с опциями грида. Я обычно этот фьючерс выключаю и вопросы задаю сам в BeforeDelete
:-)

← →
Roki (2003-03-11 13:24) [5]

> stone © (11.03.03 13:10)

Ну так вроде работатет, сенкс...

← →
Roki (2003-03-11 13:25) [6]

> маст%%%%ций

без них никак в AfteScroll :))

Как запретить удаление записи? Найти похожие ветки