Поиск по индексам

Для организации индексного поиска к набору данных должен быть подключен индекс (свойства indexName ИЛИ indexFieldNames).

Метод FindKey проводит поиск записи по заданным в параметре значениям ключевых полей текущего индекса набора данных. В случае успеха курсор набора данных устанавливается на найденной записи, а метод возвращает значение True, в противном случае — False.

Если индекс состоит из нескольких полей, значения для поиска записываются в виде множества, причем отсутствующие значения приравниваются к Null.

Рассмотрим простейший пример, в котором реализован поиск по вторичному индексу в таблице CUSTOLY.DB демонстрационной базы данных DBDEMOS. Индекс основан на полях Last_Name И First_Name (рис. 14).

В компоненте таblе1, помимо стандартных настроек на таблицу, при помощи свойства indexName задан и вторичный индекс (его имя Names). Значения для поиска задаются в компонентах Edit1 и Edit2.

Рис. 14. Главная форма проекта DemoFind

Поиск в диапазоне

Индексный поиск можно организовать группой методов, подобно созданию диапазонов. Метод setKey переводит набор данных в состояние dsSetKey, затем должно следовать присваивание ключевым полям значений для поиска. Сам поиск осуществляется методом GotoKey

В случае успеха курсор набора данных устанавливается на найденной записи, а метод возвращает значение True. Вместо этого метода можно применять метод GotoNearest, который в случае неудачного поиска ищет запись, минимально отличающуюся от критерия поиска.

Изменение параметров поиска осуществляется методом EditKey.

Поиск по произвольным полям

Для поиска по произвольной выборке полей можно использовать методы Locate и Lookup.

virtual bool __fastcall Locate(const System::UnicodeString KeyFields, const System::Variant &KeyValues, Data::Db::TLocateOptions Options);

В метод Locate необходимо передать список полей, по которым будет идти поиск (параметр KeyFields, имена полей разделяются точкой с запятой), их требуемые значения (параметр KeyValues, значения разделяются запятой) и настройки поиска (параметр options). В настройках можно задать опцию loCaseinsensitive, которая отключает проверку на регистр символов, и опцию loPartiaiKey, которая включает поиск с минимальными отличиями. В случае успеха поиска курсор набора данных устанавливается на найденной записи, а метод возвращает значение True

Пример.

TLocateOptions Opts;

Opts.Clear();

Opts << loPartialKey;

Variant locvalues[2];

locvalues[0] = Variant("Sight Diver");

locvalues[1] = Variant("P");

CustTable->Locate("Company;Contact", VarArrayOf(locvalues, 1), Opts);

В метод Lookup передается список полей для поиска (параметр KeyFields, имена полей разделяются точкой с запятой) и их требуемые значения (параметр KeyValues, значения разделяются запятой). В случае успешного поиска функция возвращает массив значений типа вариант для полей, названия которых содержатся в параметре ResultFields.

virtual System::Variant __fastcall Lookup(const System::UnicodeString KeyFields, const System::Variant &KeyValues, const System::UnicodeString ResultFields);

Пример.

nt C;

AnsiString A;

Variant V;

V = Table1->Lookup("Company;State",

VarArrayOf(OPENARRAY(Variant, ("Blue Sports","OR"))),

"CustNo;Addr1");

if !(VarType(V) == varNull)

{

C = V[0];

A = V[1];

ShowMessage(IntToStr(C) + #10 + A);

}

else

ShowMessage("Search unsuccessful!");