Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проверка на наличие [D7, Paradox]

Duffik © (2005-10-20 13:14:00)
Существует база с полями date, id_res, поскажите, как проверить, есть ли запись (одновременно в двух полях)совпадающая с новой, вводимой с Edit'ов

evvcom (2005-10-20 14:51:00) [1]
аФФтар сам не знает, чего хочет. То ему проверить запись, то курсор нельзя двигать, а смысла сего вопроса так и не пояснил. А для прогрева процессора лучше кулер отключить.

Anatoly Podgoretsky (2005-10-20 14:45:00) [2]
Я предположил, что хочет погреть процессор, поскольку в данном случае смысла нет.

Val (2005-10-20 14:40:00) [3]
>[13] Anatoly Podgoretsky © (20.10.05 14:35)
я не знаю, что автор хочет сделать после этой проверки, а вы?

Anatoly Podgoretsky (2005-10-20 14:35:00) [4]
Зачем Locate/Lookup, когда тут же сразу идет дополнение, что бы торможнуть? Надо поставить уникальный индекс и обрабатывать исключение, а проверка наличия просто ничего не дает.

Val (2005-10-20 14:28:00) [5]
поставьте обратно.

Duffik (2005-10-20 14:22:00) [6]
То что это недопустимо

Val (2005-10-20 14:21:00) [7]
и что?

Duffik (2005-10-20 14:20:00) [8]
Дык оно же курсор сдвинет

evvcom (2005-10-20 14:03:00) [9]
Вот кто его "мучонил" к тому и обращайся. А для Locate сделалось бы так:
Table.Locate('ID_DATE;ID_AVT', VarArrayOf([id_date, id_avt]), []);

Val (2005-10-20 13:55:00) [10]
лукап это замучоный локейт

Desdechado (2005-10-20 13:52:00) [11]
и где тут LOCATE
и зачем тут LOOKUP

Duffik (2005-10-20 13:44:00) [12]
procedure TSchetForm.SaveBitBClick(Sender: TObject);
begin
if AVTTable.Lookup('ID_DATE',strtodate(IdDateLab.Caption),'ID_DATE')<>null then
if AVTTable.Lookup('ID_AVT',AvtButton,'ID_AVT')<> null then
begin
//AVTTable.Edit;
ShowMessage('Данные существуют :(');
end else
begin
AVTTable.Append;
AVTTable.FieldByName('ID_DATE').AsDateTime:=StrToDate(IdDateLab.Caption);
AVTTable.FieldByName('ID_AVT').AsInteger:=AvtButton;

Val (2005-10-20 13:26:00) [13]
надо попробовать не мутить. код плиз.

Sergey13 (2005-10-20 13:26:00) [14]
2[2] Duffik © (20.10.05 13:24)
>мутил с locate что-то условия не соблюдает
Кто не соблюдает? Может ты намутил чего-то? 8-)

Duffik (2005-10-20 13:24:00) [15]
мутил с locate что-то условия не соблюдает :(

Sergey13 (2005-10-20 13:15:00) [16]
locate или select правильный

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »