Name – Town, Type – String,

FieldType – Lookup(поисковое поле),

KeyField – Город,

DataSet – TownTable(таблица, где нужно искать)

Lookup Keys - Key1(по этому полю надо искать),

Result Field – Название города,нажатьОк

· Появилось новое поле, перетащить его ближе к полю Город

· Сделать таблицу BookTableвновь активной загрузить программу, просмотреть результат.

37. Сделать поле Город невидимым, чтобы не видеть числа, а над полем Town написать надпись Город (самостоятельно)

Сортировка и фильтрация данных

Часть

Поиск данных и сортировка выполняются по индексным полям. В телефонном справочнике чаще ищут информацию по номеру телефона или фамилии. В таблице Справочник для полей Фамилия и Телефон свойство Индексированное поле имеет значение Да(допускаются совпадения).

38.Добавить в меню пункт Сортировка и подпункты По телефону, по Фамилии

39. для подпунктов ввести соответствующий код:

DataModule1.BookTable.IndexFieldMNames:=’Фамилия’;

DataModule1.BookTable.IndexFieldMNames:=’Телефон’;

40. Реализовать функцию поиска данных, для этого:

· добавить на форму панель, на нее метку Найти и TEdit с именем FindEdit

· ввести следующий код:

procedure TForm1.FindEditChange(Sender:TObject);

begin

if Length(FindEdit.Text)>0 then

DataModule1.BookTable.Filtered:=true

Else DataModule1.BookTable.Filtered:=false;

DataModule1.BookTable.Filter:=’Фамилия>’’’+FindEdit.Text+’’’’;

end;

41. Проверить работу программы.

Фильтры в ADO работают плохо, но в Delphi можно расширить возможности фильтрации.

42. Перейти в модуль DataModule1, для компонента BookTable выбрать событие OnFilterRecord и ввести код:

Accept:=false;

if copy(BookTableDSDesigner.AsString,1,Length(Form1.FindEdit.Text))=Form1.FINDedit.Text then

Accept:=true; {строка соответствует фильтру, ее можно отображать}

end;

43. Проверить работу программы.