Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2003.03.27;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.007 c
14-88173
Lexel
2003-03-09 10:41
2003.03.27
ShellExecute (спасите пожалуйста добрые люди)


1-88022
malkolinge
2003-03-14 13:06
2003.03.27
Эмуляция мыши


7-88278
George
2003-02-04 07:31
2003.03.27
Запуск файлов зарегистрированных типов


1-88054
Makhanev A.S.
2003-03-10 01:59
2003.03.27
Контекстное меню...


1-87887
AFrolov
2003-03-13 17:45
2003.03.27
получить список форм кот. созданы в Application через CreateForm





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский