Фильтрация данных. Компонент Table позволяет не только отображать и редактировать данные, но и отфильтровать записи по определенным критериям

Компонент Table позволяет не только отображать и редактировать данные, но и отфильтровать записи по определенным критериям. Пользователю в нашем примере могло бы захотеться иметь возможность просматривать не всю базу данных, а отдельно записи по тому или иному покупателю или продавцу.

Фильтрация может задаваться свойствами Filter, Filtered и FilterOptions компонента Table. Свойство Filtered включает или выключает использование фильтра. А сам фильтр записывается в свойство Filter в виде строки, содержащей определенные ограничения на значение поля. Например, Вы можете задать в свойстве Filter:

Pokupatel=’ООО «Свет»’

установить свойство Filtered в true и увидите, что уже в процессе проектирования в таблице отобразятся только те записи, в которых поле Porupatel имеет значение ООО «Свет».

При задании фильтров также можно пользоваться символом «*». Он обозначает: «Любое количество любых символов». Также при записи условий можно использовать операции отношения: =, >,>=,<,<=,<>, а также логические операции and, or или not.

Например, Вы можете написать фильтр:

(Pokupatel=’ООО «Свет»’)and(Itog>10000)

Конечно, свойства, определяющие фильтрацию, можно задавать не только в процессе проектирования, но и программно, во время выполнения. Введем такую возможность в наше приложение. Приведите форму к виду, показанному на рис. 2.3.

В обработчик кнопки «Обновить» запишем следующую процедуру:

procedure TForm1.Button5Click(Sender: TObject);

begin

if (RadioButton1.Checked=true) or (Edit1.Text='') then

begin

Table1.Filtered:=false;

end;

if (RadioButton2.Checked=true) and (Edit1.Text<>'') then

begin

With Table1 do

begin

Filtered:=false;

Filter:='Pokupatel='+char(39)+Edit1.text+char(39);

Filtered:=true;

end;

end;

if (RadioButton1.Checked=true) and (Edit1.Text<>'') then

begin

With Table1 do

begin

Filtered:=false;

Filter:='Prodavec='+char(39)+Edit1.text+char(39);

Filtered:=true;

end;

end;

end;

Рис. 2.3. Приложение с возможностью фильтрации

записей

Дата добавления: 2015-03-29