Етап фільтрації та сортування даних

1. На формі Замовлення додано фільтрацію по клієнтам і послугам. Для цього додано компонент CroupBox (Standart), створила два компоненти RadioButton, 2 компонента DBLookUpComboBox, допоміжний компонент Edit1, кнопку Фільтр.

Запрограмовано кнопку Фільтр: (Delphi)

procedure Tform4.Button1Click (Sender: Tobject);

begin

if RadioButton1.Checked = True then

begin

Edit1.Text: = DBLookUpComboBox2.Text;

DataModule5.Zakazi.Filter: = ‘ Name_uslugi =’ + Edit1.Text;

end;

if RadioButton2.Checked = True then

begin

Edit1.Text: = DBLookUpComboBox3.Text;

DataModule5.Zakazi.Filter: = ‘ FIO =’ + Edit1.Text;

end;

end;

Рис.8. Фільтрація

2. На форму Послуги додано об’єкт CroupBox з Радіокнопка «По найменуванню» і «За вартістю»:

Запрограмуванорадіокнопку «По найменуванню»:

procedure Tform2.RadioButton1Click (Sender: Tobject);

begin

DataModule5.Uslugi.IndexFieldNames: = ‘ Name_uslugi ‘;

end;

Запрограмувала адіо кнопку «За вартістю»:

procedure Tform2.RadioButton1Click (Sender: Tobject);

begin

DataModule5.Uslugi.IndexFieldNames: = ‘ Stoimost ‘;

end;

Перевірено працездатність (Рис.9, Рис.10).

Рис.9. Сортування по найменуванню

Рис.10. Сортування по вартості