Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

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

Самостоятельная работа | Режимы наборов данных | Практическая работа | Доступ к полям | Практическая работа | Практическая работа | Редактор полей | Практическая работа №7 | Глава III. Индексирование баз данных | Практическая работа |


Читайте также:
  1. I I. Практическая часть - задача
  2. I. Работа над диссертацией
  3. I. Работа со справочной литературой.
  4. I. Учебная работа
  5. II ПРАКТИЧЕСКАЯ ЧАСТЬ
  6. II. Научно-исследовательская работа и практика
  7. III. Работа с претензиями клиентов

Организовать фильтрацию записей таблицы 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; просмотров: 41 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Фильтрация по выражению| Практическая работа

mybiblioteka.su - 2015-2024 год. (0.005 сек.)