If not Tablel.FindKey( [GrTmp,NNTmp] )then

Begin

Var

Точный поиск

Установка значений для поиска

Обзор методов

ПОИСК ЗАПИСЕЙ В НД

Для поиска записей в НД в компоненте TTable применяются следующие методы:

FindKey - ищет запись, точно удовлетворяющую условиям в списке значений; су­ществует также дублирующий его метод GoToKey,

FindNearest - ищет запись, наиболее полно удовлетворяющую условиям в списке значений; существует также дублирующий его метод GoToNearest.

В отличие от методов Locate и Lookup, которые TTable унаследовал от TDBDataSet и которые описаны в п. 6.4, эти методы ищут запись по ключевым полям. Если в таблице не построен хотя бы один индекс, использовать методы FindKey и FindNearest нельзя.

Состав полей, используемых для идентификации нужной записи при поиске в НД, определяется текущим индексом. Поэтому в качестве текущего нужно установить индекс, построенный по полям, значения которых и будут отыскиваться. Напомним, что для установки текущего индекса используют свойства IndexFieldNames или IndexName.

Для индексов, в состав которых входит более одного поля, должны указываться значения всех полей, входящих в индекс, или значения полей старших уровней вло­женности. Более подробно см. п. 7.4.6.

Для точного поиска (поиска на точное соответствие) применяется метод FindKey. Он пыта­ется отыскать в НД запись, у которой индексные поля соответствуют значениям, указанным в параметре обращения. Если такая запись найдена, метод FindKey возвращает True и указатель текущей записи в НД (курсор НД) устанавливается на эту запись, т. е. она делается текущей. Если найдена группа записей, отвечающая условию, текущей становится логически первая из них. Если запись не найдена, курсор НД не перемещается и метод возвращает False.

Пример. Пусть имеется НД с полями GrNum (номер группы), NN (номенклатурный номер товара), Tovar (наименование товара):

GrNum	NN	Tovar
		Махорка
		Веник универсальный
		Кашпо плетеное
		Дискеты BASF
		Книга «Пушкин в изгнании»
		Комплект отверток

Рис. 7.4. Записи набора данных.

Предположим, что поисковое значение GrNum вводится в Edit1, a NN- в Edit2. То­гда обработчик нажатия клавиши поиска FindButton может выглядеть так (для просто­ты в обработчике не контролируется правильность ввода в компонентах Edit1, Edit2):

procedure TForm1.FindButtonClick(Sender: TObject);

GrTmp, NNTmp: Integer

GrTmp:= StrToInt (Edit1.Text);

NNTmp:= StrToInt(Edit2.Text);

// Поиск записи:

ShowMessage('Нет товара с такой группой и номером!');

end;

Пусть в Edit1 введено 12 и в Edit2 - 4. Тогда указатель переместится на запись, у которой значение GrNum равно 12 и значение поля NN равно 4 (рис. 7.5):

GrNum	NN	Tovar Махорка Веник универсальный
12		Кашпо плетеное
		Дискеты BASF Книга «Пушкин в изгнании» Комплект отверток

Для точного поиска в Delphi имеется группа методов SetKey, EditKey, GotoKey, ко­торые должны выполняться вместе и которые по функциональности аналогичны методу FindKey. Использование их менее удобно: сначала НД переводится в состояние dsSetKey (методом SetKey или, если он уже применялся для данного индекса, EditKey), затем присваиваются поисковые значения полям и выполняется метод GotoKey. После этого НД переходит в состояние dsBrowse. Результат выполнения аналогичен резуль­тату, возвращаемому методом FindKey. Например, код

Дата добавления: 2015-06-29