Тема: фильтрация записей в базе данных

Цель: получить навык использования метода Filter для установки фильтра для записей.

ТО и ПО: ПК AMD E1-1500 APU with Radeon(tm) HD Graphics 1.48 GHz, 2.00 ГБ, ОС Windows 8.1, Delphi 2010, методические указания.

Задание 1: Требуется создать фильтр, позволяющий отображать информацию о музыкальном инструменте по введенному пользователем названию.

Задание 2: Создать фильтр, позволяющий отображать информацию об предмете, значение ключевого поля для которого будет вводится в поле Edit2.

Описание хода выполнения работы:

Запустила систему Delphi 2010.

Открыла проект Delphi – приложения.

Открыла форму проекта, отображающую список музыкальных инструментов.

Разместила элементыButton и Edit.

Для события OnClick компонента Button1 осуществила ввод процедуры, осуществляющей фильтр записей.

Код события OnClick компонента Button1:

procedure TForm12.Button1Click(Sender: TObject);

begin

DataModule13.Tb1.Filter:='(Name='''+edit1.Text+''')';

DataModule13.Tb1.Filtered:=true;

end;

Сохранила Delphi – проект при помощи команды File-Save as – Project1.

Протокол работы представлен на рисунке 11.1:

Рисунок 11.1

Открыла форму проекта, отображающую список предметов.

Разместила элементы Label и Edit.

Для события OnChange компонента Edit2 осуществила ввод процедуры, осуществляющей фильтр записей.

Код для события OnChange компонента Edit2:

procedure TForm12.Edit2Change(Sender: TObject);

begin

DataModule13.Tb2.Filter:='(Cod_predmets='''+edit2.Text+''')';

DataModule13.Tb2.Filtered:=true;

end;

Сохранила Delphi – проект при помощи команды File-Save as – Project1.

Протокол работы представлен на рисунке 11.2.

Рисунок 11.2

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

Дата добавления: 2015-08-09