Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.19;
Скачать: CL | DM;

Вниз

Как вместо окна системного сообщ. вывести своё   Найти похожие ветки 

 
lovres ©   (2002-08-08 13:51) [0]

Суть в том, что при попытке обновления БД в процессе выполнения запроса происходит ошибка, свызанная с тем, что некоторые поля не могут быть пустыми. Я обрабатываю эту ошибку и делаю CancelUpdates, но выводится системное диалоговое окно. Как можно заменить текст в нём, а лучше запретить его вывод или вывести вместо него своё сообщение


 
Skier ©   (2002-08-08 13:54) [1]

>lovres

Используй try-блок...

try
//your code goes here...
except
on E : Exception do ShowMessage("Your message !")
end; //try

или так

try
//your code goes here...
except
ShowMessage("Your message !");
end; //try




 
lovres ©   (2002-08-08 14:44) [2]

to Skier
Я, вообще, не очень опытен, но мне как бы некуда try блок вписать, я произвожу изменения в самом DBGrid"е(редактирую строку) и обновление вызывается автоматически(эти действия в моём коде никак не отражены)


 
Skier ©   (2002-08-08 14:48) [3]

>lovres


> Я обрабатываю эту ошибку


Тогда расскажи как ты её обрабатываешь...


 
lovres ©   (2002-08-08 14:57) [4]

procedure TData.Quest_by_ThemePostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin

Quest_by_Theme.CancelUpdates;

end;
выполнение программы в этом случае продолжается, но до этого выводится сообщение типа "Cannot insert the value NULL into...и т.д."
как заменить или отменить вывод сообщения


 
Skier ©   (2002-08-08 15:05) [5]

>lovres
Action := daAbort ?


 
lovres ©   (2002-08-08 15:29) [6]

Спасибо! Сообщение больше не выводится!



Страницы: 1 вся ветка

Текущий архив: 2002.08.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
6-60784
ATLANTIDO
2002-05-19 13:35
2002.08.19
Сетевые папки


1-60656
Начинаю
2002-08-08 16:29
2002.08.19
Как перед закрытием приложения...


6-60771
ogu
2002-06-05 20:25
2002.08.19
Серверное приложение на Delphi


1-60589
Александр456
2002-08-08 07:38
2002.08.19
Вопрос по QuickReport


1-60560
GreatQuaker
2002-08-07 10:23
2002.08.19
Сетевой принтер