Курсовая работа: Автоматизация работы фирмы по продаже автомобилей

Организация формы фильтрации:

Form5.Visible:=false;

Form26.visible:=true;

form4.timer2.enabled:=false;

Внешний вид формы:

Процедура кнопки применить для столбца Цена (для других столбцов аналогично, только меняется название столбца):

if (radiogroup1.ItemIndex=0) and (radiogroup2.ItemIndex=0) then

with table1 do

begin

Filtered:=false;

Filter:='Predlag_Zena<'+(Edit1.Text);

Filtered:=true;

end;

begin

if (radiogroup1.ItemIndex=1) and (radiogroup2.ItemIndex=0) then

with table1 do

begin

Filtered:=false;

Filter:='Predlag_Zena>'+(Edit1.Text);

Filtered:=true;

end;

end;

begin

if (radiogroup1.ItemIndex=2) and (radiogroup2.ItemIndex=0) then

with table1 do

begin

Filtered:=false;

Filter:='Predlag_Zena<='+(Edit1.Text);

Filtered:=true;