Практическая работа. Организовать фильтрацию записей таблицы Tovar

Организовать фильтрацию записей таблицы Tovar. db по выражению, которое задает пользователь.

Вид формы работающего приложения показан на рисунке:

Разместите в окне формы компоненты в соответствии с рисунком готовой программы.

Напишите для окна формы обработчик события OnCreate:

рrocedure TForm1.FormCreate(Sender: TObject);

begin

table1.Filter:='';

table1.FilterOptions:=[focaseinsensitive];

table1.Filtered:=true;

end;

Для кнопки Включить фильтр напишите обработчик события OnClick:

procedure TForm1.Button1Click(Sender: TObject);

begin

table1.Filtered:=true;

table1.Filter:=edit1.Text;

end;

Для кнопки «Отменить фильтрацию» напишите обработчик события OnClick:

procedure TForm1.Button2Click(Sender: TObject);

begin

table1.Filtered:=false;

end;

Для кнопки «Закрыть» самостоятельно напишите обработчик события, при котором закрывается работающее приложение.

Запустите программу. Напишите в компонент Edit1 выражение фильтра в соответствии с указанным ранее рисунком. Отмените фильтр. Придумайте свое выражение фильтра.

Дата добавления: 2015-07-19