Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабораторный практикум по информатике для студентов инженерных специальностей приборостроительного факультета. В 3 ч. Ч. 3.pdf
82
procedure TForm1.Button3Click(Sender: TObject); begin
Table1.Filtered:=false;
end;
procedure TForm1.Button4Click(Sender: TObject); begin
Table1.Filtered:=true;
Table1.Filter:=Edit1.Text;
end;
3.Запустить проект на компиляцию и выполнение.
4.Ввести выражение, описывающее условие фильтрации:
Birthday>'01.01.1975',
и нажать кнопку Применить фильтр. Результатпоказан нарис. 28.12.
Рис. 28.12. Результат выполнения фильтрации
После нажатия кнопки Сбросить фильтр в таблице отображаются все записи, имеющиеся в таблице.
28.3. Содержание отчета
Отчет должен содержать ответы на контрольные вопросы, тексты программ и решение соответствующего варианта.
82