Обработка ошибок

[Liones]

Подскажите, пожалуйста! Есть таблица (Paradox), для работы в таблицей на форме используются DBGrid и DBNavigator. При добавлении не уникальной записи выходит сообщение "Key violation". Как перехватить этот момент, чтобы выдать пользователю сообщение, например, "Такая запись уже существует".

[Sm1Le]

Сделай проверку на ввод данных ... и если данные Вводились то выдай сообщение ... не пойму трудности объясни подробнее (тоесть объясни как именно происходить добавление данных)...

[Самоучка]

Подскажите, пожалуйста! Есть таблица (Paradox), для работы в таблицей на форме используются DBGrid и DBNavigator. При добавлении не уникальной записи выходит сообщение "Key violation". Как перехватить этот момент, чтобы выдать пользователю сообщение, например, "Такая запись уже существует".

можете использовать обработчик исключительных ситуаций

try
\\здесь какое-нибудь условие или выполнение операции
except
   on exception do
ShowMessage('В таблице уже есть запись с такими данными' +#13);
end;

пример обработчика исключительных ситуаций можно посмотреть здесь
http://programmersforum.ru/showthrea...t=29370&page=2

[Sm1Le]

не думаю что SQL запрос сможет перехватить Трай - Ексепт =)))

ввод наверняка будет через Форму а тоесть Едиты и Мемо - отсюда перед переносом данных легким запросом проверить ....

[Самоучка]

не думаю что SQL запрос сможет перехватить Трай - Ексепт =))) 

ввод наверняка будет через Форму а тоесть Едиты и Мемо - отсюда перед переносом данных легким запросом проверить ....

Я и не писал, что нужно использовать те коды которые были использованы у меня. Я дал ссылку как пример использования try
except

[Liones]

Проблема в том, что я не поняла в какой момент вставить обработку исключения. В коде есть обработка AfterPost.

[Mitriy08]

Приведите код как вы сохраняете записи...сдесь телепатов нету....

[Sm1Le]

К примеру у тебя есть поля ввода Edit1 i Edit2 Батон Как подтверждение того что ты ввела ,в 1 ты вводиш Свой ключ.

Ты ввела, и нажала на подтвердить, теперь е примеру использую Query.
Form1.Query.close;
Form1.query.SQL.text='select * from NAME_TABLE where ID='+Form1.Edit.text+';'
Form1.Query.OPen;
If Form1.Query.RecordSet<>0 then
alert('Ошибка!! Воода !!! Повторите !!!') - типа того =)))

[Liones]

В проекте используется компонент TTable. Вот код который обрабатывает события для этого компонента:
procedure TDM.TTarifAfterPost(DataSet: TDataSet);
begin
dat:=DM.TTarifDAT.Value;
end;
procedure TDM.TTarifBeforeInsert(DataSet: TDataSet);
begin
kod:=DM.TTarif.RecordCount+1;
while DM.TTarif.Locate('KOD_T',kod,[]) do
begin
kod:=kod+1;
end;
end;
procedure TDM.TTarifNewRecord(DataSet: TDataSet);
begin
DM.TTarifKOD_T.Value:=kod;
if DateToStr(dat)='' then
begin
DM.TTarifDAT.Value:=dat;
end else begin
DM.TTarifDAT.Value:=Date;
end;
end;
Так какое событие обработать? Куда включить обработку исключения? В OnPostError, BeforePost?

[Sm1Le]

Ну Наверно Before тебе ж надо проверить данные перед сохранением ....