люнок № 33. Властивість ProjectFile
Результат звіту виводиться в окремому діалоговому вікні (малюнок № 34).
Малюнок № 34. Діалогове вікно із звітом
Для всіх інших таблиць створені звіти і виконані всі ті ж самі дії аналогічно.
-ий крок. Сортування
Для вкладки «Сортування» (це завдання обмежень для записів, що відбираються в набір даних) розташованої на PageControl головної форми таблиці «БІБЛІОТЕКА», розташуємо два компоненти RadioButton і компонент ComboBox. У властивостях виберемо поле Items і пропишемо у вікні, поля, які будуть відображатися як кнопки (малюнок № 35).
Малюнок № 35. Найменування полів
Зовнішній вигляд компонентів сортування повинен виглядати наступним чином:
Малюнок № 36. Зовнішній вигляд компонентів сортування
Додамо на форму кнопку Button і пропишемо для неї наступне:
«Сортування» TForm1.Button8Click (Sender: TObject); s, p: string; ComBobox1.text=«» then showmessage («Не вибрано поле сортування»); ComBobox1.text=«Код_операціі» then p:=«Код_операціі»; ComBobox1.text=«Код_чітателя» then p:=«Код_чітателя»; ComBobox1.text=«Код_кнігі» then p:=«Код_кнігі»; ComBobox1.text=«Дата_видачі» then p:=«Дата_видачі»; ComBobox1.text=«Дата_возврата» then p:=«Дата_возврата»;
if ComBobox1.text=«Заборгованість» then p:=«Заборгованість»;
if ComBobox1.text=«Дні_задолженності» then p:=«Дні_задолженности »;
adoquery1.Close;. SQL.Clear;:=«select * from БІБЛІОТЕКА order by» + p; radiobutton2.checked=true then s:=s + « desc »;. SQL.Add (s);. Open; 1.DataSet:=adoquery1; end;
Наприклад, відсортуємо поле «Код читача» по зростанню:
Малюнок № 37. Сортування поля «Код читача» по зростанню
А тепер спробуємо за спаданням:
Малюнок № 38. Сортування поля «Код читача» за спаданням
-ий крок. Фільтрація
Для вкладки «Фільтрація» (це завдання обмежень для записів, що відбираються в набір даних) розташованої на PageControl головної форми таблиці «БІБЛІОТЕКА», розташуємо компонент RadioGroup. У властивостях виберемо поле Items і пропишемо у вікні, поля, які будуть відображатися як кнопки (малюнок № 39).
Малюнок № 39. Найменування полів
Додамо на форму компоненти Edit і пропишемо для кнопки «Фільтрація» наступне:
procedure TForm1.Button11Click (Sender: TObject);. Filtered:=True; radiogroup1.ItemIndex=0 then
ADOQuery1.Filter:=«Код_операции=»«»+edit4.Text+«»«»;radiogroup1.ItemIndex=1 then
ADOQuery1.Filter:=«Код_читателя=»«»+edit5.Text+«»«»;radiogroup1.ItemIndex=2 then
ADOQuery1.Filter:=«Код_книги=»«»+edit6.Text+«»«»;radiogroup1.ItemIndex=3 then
...
