Михаил ЛЬвович Покрасс

Begin

Begin

Var

Неточный поиск

If not Tablel.GotoKeythen

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

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

эквивалентен более громоздкому коду с применением GotoKey:

Tablel.SetKey;

TablelGrNum.Value:= GrTmp;

TablelNN.Value:= NNTmp;

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

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

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

В приводимых ниже примерах подразумевается KeyExclusive = False.

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

procedure TFormI1.FindButtonClick(Sender: TObject);

GrTmp, NNTmp: Integer;

GrTmp:= StrToInt(Editl.Text);

NNTmp:= StrToInt(Edit2.Text);

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

Tablel.FindNearest ([GrTmp,NNTmp]);

end;

Пусть в Edit1 введено 12 и в Edit2 введено 4. Тогда указатель переместится на за­пись Кашпо плетеное (рис. 7.6):

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

Рис. 7.6. Перемещение указателя текущей записи после поиска.

Пусть в Edit1 введено 12 и в Edit2 - 0. Тогда указатель переместится на запись с большим значением индекса. Наращивание индекса ведется по внутреннему полю (если оно есть) и только затем - по полю более высокого приоритета. В нашем случае внут­реннее поле в индексе - поле NN и будет выбрана запись Веник универсальный (рис. 7.7):

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

Рис. 7.7. Перемещение указателя после поиска.

Однако, если в Edit1 введено 50 и в Edit2 - 0 (или что-либо другое, для данного состояния НД это неважно), записи с той же группой (50) и большим значением но­менклатурного номера нет. Поэтому указатель записи перемещается на запись с большим номером группы (рис. 7.8):

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

Рис. 7.8. Перемещение указателя на запись с большим номером группы.

Заметим, что теоретически можно опускать в условиях поиска значение внешнего поля индекса (в нашем случае поля GrNum). Например, можно задать в Edit1 0 и в Edit2 - 1. Однако вопреки ожиданиям курсор НД не встанет на первую запись с номенклатурным номером 1 для первой попавшейся группы, а встанет на первуюзапись с группой, превышающей 0, т. е. на логически первую запись в НД при сортировке по полям GrNum, NN(риc. 7.9):

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

Рис. 7.9. Перемещение указателя на первую запись с большим номером группы.

Существует более громоздкая альтернатива методу FindNearest - выполнение группы методов SetKey, EditKey, GoToNearest и заполнение полей поисковыми значениями (подробнее см. в конце описания метода FindKey). Например, выполнение метода

Tablel.FindNearest([GrTmp,NNTmp]);

может быть заменено эквивалентным по последствиям кодом

Tablel.SetKey;

TablelGrNum.Value:= GrTmp;

TablelNN.Value:= NNTmp;

Tablel.GotoNearest;

Замечание. Если нужно осуществить поиск по индексу, отличному от текущего, необходимо:

1. сохранить список текущих индексных полей в строковой переменной;

2. заменить список текущих индексных полей НД на необходимый;

3. осуществить поиск;

4. восстановить список текущих индексных полей НД из строковой переменной.

Пример. Пусть текущая сортировка в НД осуществляется по имени товара (т.е. в текущий момент Tablel. IndexFieldNames = ' Tovar') и текущей является вторая -логическая запись (рис. 7.10):

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

Рис. 7.10. Набор данных отсортирован по названию товара.

Пусть имеется такой обработчик нажатия кнопки FindButton:

procedure TForm1.FindButtonClick(Sender: TObject);

var

GrTmp, NNTmp: LongInt;

OldIndexFieldNames: String;

OldIndexFieldNames:= Tablel.IndexFieldNames;

Tablel.IndexFieldNames:= 'GrNum;NN';

{...}

Tablel.FindNearest([GrTmp,NNTmp]);

Tablel.IndexFieldNames:= OldIndexFieldNames;

end;

Тогда, если в Edit1 введено 100 и в Edit2 - 0, после выполнения обработчика указатель встанет на запись книга «Пушкин в изгнании» (рис. 7.11):

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

Рис. 7.11. Перемещение указателятекущей записи.

Перед выполнением последней строки обработчика

Tablel.IndexFieldNames:= OldIndexFieldNames;

НД будет иметь вид, показанный на рис. 7.12.

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

Рис. 7.12. Набор данных перед восстановлением исходной сортировки.

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

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