Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c