| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как запретить удаление записи? [D6, IB6.x, FireBird]
Roki © (2003-03-11 13:08:00)Мастера, помогите. Такая вот проблема. Есть запись в НД, нужно чтобы когда курсор ставал на эту запись, то ее нельзя было ни редактировать, ни удалять. Пробую такой код в событии 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;
Вроде нормально, но все равно выскакивает месага, насчет предупреждения об удалении. Может есть какой-то более нормальный способ ?
Val (2003-03-11 13:26:00) [1]>stone © (11.03.03 13:10)
SysUtils.Abort;
иначе вероятен матюг от БДЕ.
Roki (2003-03-11 13:25:00) [2]
> маст%%%%ций
без них никак в AfteScroll :))
Roki (2003-03-11 13:24:00) [3]
> stone © (11.03.03 13:10)
Ну так вроде работатет, сенкс...
Delirium^.Tremens (2003-03-11 13:22:00) [4]
> Правильно ! Чтобы удалялась без базара...:))))
Блин, ну не заметил я его маст%%%%ций с опциями грида. Я обычно этот фьючерс выключаю и вопросы задаю сам в BeforeDelete
:-)
Johnmen (2003-03-11 13:15:00) [5]>Delirium^.Tremens © (11.03.03 13:11)
Правильно ! Чтобы удалялась без базара...:))))
Delirium^.Tremens (2003-03-11 13:11:00) [6]У грида из опций нужно убрать ConfirmDelete или что-то типа того :-)
stone (2003-03-11 13:10:00) [7]BeforeDelete(DataSet: TDataSet);
...
if ... then
Abort;
| |
