Текущий архив: 2003.03.27;
Скачать: CL | DM;
Вниз
Как запретить удаление записи? Найти похожие ветки
← →
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 :))
← →
Val © (2003-03-11 13:26) [7]>stone © (11.03.03 13:10)
SysUtils.Abort;
иначе вероятен матюг от БДЕ.
Страницы: 1 вся ветка
Текущий архив: 2003.03.27;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.02 c
