Показать сообщение отдельно
  #8  
Старый 02.03.2011, 19:21
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

есть метод Lookup
пример:
Код:
..........................................
var
Lookres:variant;
begin
    lookres:=Table1.Lookup('LICHNIY_NOMER',edit1.Text,'LICHNIY_NOMER');
    if  vartype(lookres)<>varnull then  errStr:='Запись с таким личным номером есть в базе данных';
    end;
................................................

первый параметр это поле по которому надо искать, второй -это значение которое надо найти, а в третий параметр падают значения тех полей, которые ты задашь, при положительном поиске!
То есть у тебя есть таблица в которой есть поля f1,f2,f3,f4

например ты ищешь по полю f2
lookres:=Table1.Lookup('f2',edit1.Text,'f3;f4');

это значит, если такое значение есть то в переменную lookres передатутся значения полей f3 и f4

при отрицательном поиске vartype(lookres)=varnull это и провиряешь

но.. в чем заключается секс... в отличае от locate Lookup не переводит курсор на найденую запись. Так что тут в принципе вариантов масса как сделать. можешь например сделать так: сначала Проверяешь есть ли такая запись, если есть то с помощью locate потом переходишь на эту запись. а там уже складывай вычитай, умножай.. и.т.д))))
Ответить с цитированием