Навигация с псевдофильтрацией.

Метод Lookup.

функция Lookup (const KeyFields: string;

const KeyValues : Variant;

const ResultFields: string) : Variant;

Параметры KeyFieldsиKeyValuesаналогичны методу Locate. Третий параметр – строка, перечисляющая поля, значения которых возвращаются в виде массива Variant. Метод Lookup не изменяет положение курсора, но считывает информацию из полей записи. Поиск выполняется при точном соответствии значений поиска и значений в полях записи с учетом регистра букв.

Например,

TbTovar.IndexFieldNames:='T_Nazv;T_Cena';

LECena.Text:=TbTovar.Lookup('T_Nazv',LETovar.Text,'T_Cena');

Если поиск неудачный, то возвращается значение NULL. Для распознавания такого результата используется функция

VarIsNull (const V:Variant): Boolean;- возвращает True, если V=NULL, и False в противном случае.

Если результатом поиска является массив, то в случае успешного поиска некоторые поля найденной записи могут быть пустыми. Необходимо проверять значение каждого элемента результирующего массива на равенство NULL. Элементами поиска могут быть поля как входящие в индекс, так не входящие в него.

Пример. Поиск методом Lookup в таблице Tovar.

procedure TForm1.TbTovarCalcFields(DataSet: TDataSet);

begin

TbTovarSumma.AsCurrency:=

TbTovarT_Cena.AsCurrency*TbTovarT_Kol_vo.AsInteger;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

TbTovar.Active:=True;

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

TbTovar.Active:=False;

end;

procedure TForm1.BtnPoiskClick(Sender: TObject);

var Res:Variant;

begin

Res:=TbTovar.Lookup('T_Nazv;T_Cena',

VarArrayOf([LETovar.Text,LECena.Text]),

'T_Kol_vo;T_Prim');

// анализ результата поиска

if VarIsNull(Res) then ShowMessage('Такой записи нет!')

else begin

// проверка первой составляющей

if VarIsNull(Res[0]) then ShowMessage('Нет количества!')

else

Label1.Caption:=Label1.Caption+String(Res[0]);

// проверка второй составляющей

if VarIsNull(Res[1]) then ShowMessage('Нет примечания!')

else Label2.Caption:=Label2.Caption+String(Res[1]);

end;

end;

p

Перемещаться по набору данных можно как по отфильтрованному, при выключенной фильтрации. Условия фильтрации должны быть заданы через Filterи выключены через Filtered.

Методы

FunctionFindFirst:Boolean;
FunctionFindLast: Boolean;
FunctionFindNext: Boolean;
FunctionFindPrior: Boolean;