Форум: "Базы";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
ВнизПроблема проверки добавляемого значения. Найти похожие ветки
← →
S!D (2002-10-26 12:53) [0]Проблема проверки добавляемого значения.
Есть таблица Table1, связанный с ее индексированным полем DBEdit1.
Необходимо перед обновлением произвести проверку присутствия или отсутствия в этом поле введенного значения (DBEdit1.Text).
Приведенный ниже код не работоспособен.
Буду признателен, если подкините решение данной проблемы и/или объясните в чем ошибка.
procedure TForm1.DataSource1UpdateData(Sender: TObject);
begin
if Table1.FindKey([DBEdit1.Text]) then
begin
...
← →
Anatoly Podgoretsky (2002-10-26 13:01) [1]Как проявляется не работоспособность?
← →
S!D (2002-10-26 14:50) [2]Debugger Exception Notification
Project raised exception class EStackOverFlow W/message "Stack overflow"
причем при трассировке видно что прога зацикливается с if на begin приведенного кода
← →
S!D (2002-10-26 14:52) [3].. т.е begin процедуры.
← →
MsGuns (2002-10-26 17:05) [4]Естественно, она и ДОЛЖНА циклить. Что ж ты в событии, возникающем ПЕРЕД тем как постировать изменения, пытаешься покинуть ИЗМЕНЕННУЮ запись ?
Проверка на дублирование ключей должна ИМХО выполняться в событии OnKeyViolate (точнее, не проверка, а собственно реакция на повтор ключа) - никаких доп.поисков при этом не требуется.
Искать надо если поле не есть ключ или уникальный индекс и другим методом - LookUp, который ищет повторяемость, НЕ ПОКИДАЯ текущую запись.
К событиям TDataSource надо вообще относиться очень осторожно, хорошо понимая суть и последовательнось реакции отдельных составляющих программы (источника, отображателя, физ.НД и т.д.)
← →
S!D (2002-10-26 20:21) [5]И правда, чего это я?
спасибо за вправку извилин! :)
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c