Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
lab_rab_pascal_delphi.doc
Скачиваний:
0
Добавлен:
01.05.2025
Размер:
6.06 Mб
Скачать

Створення звітів

  1. Створіть нову форму. Помістіть на неї компонент QuickRep, який розташований на вкладці QReport.

  2. Помістіть на форму компонент Query. Виберіть у властивості DatabaseName свій Alias. Клацніть по властивості SQL і напишемо в редакторі списку рядків наступне:select * from MainTable where goden = true

  3. Встановіть властивості DataSet компонента QuickRep1 значення Query1.

  4. Помістимо на створений звіт два компоненти QRBand (все знаходиться на вкладці QReport).Перший з них буде заголовком звіту. Помістіть на нього компонент QRLabel - статичний текст, який буде помешен на звіт. У його властивості Caption напишіть Список юнаків, придатних до служби. Відформатуйте заголовок, скориставшись властивістю компонента Font, на свій розсуд.

  5. Для другого компонента QRBand2 змініть його властивість BandType на rbDetal.Помістіть на смугу звіту QRBand2 чотири компоненти QRDBText. У властивості DataSet кожного з них виберіть Query1. У властивості DataField виберіть назву полів. Для вирівнювання компонентів QRDBText виберіть їх усі, утримуючи клавішу Shift, потім клацніть по ним правою клавішею та виберіть у меню пункт Позиція - Вирівняти.У вікні Вирівнювання задайте параметри:

Клацнувши правою клавішею за звітом, можна вибрати пункт Preview і подивитися, що вийшло.

  1. Для того щоб, в кінці звіту виводилося загальне число придатних або не придатних до служби юнаків необхідно помістити на звіт ще один компонент - QRBand3. Змініть його властивість BandType на rbSummary.

  2. Помістіть на підсумкову смугу звіту QRExpr.

  3. Клацнемо по властивості компонента Expression і виберемо у вікні функцію Count

  1. Додайте самостійно на підсумкову смугу напис Загальне число. Для цього на нижню смугу звіту необхідно помістити компонент QRLabel і змінити відповідним чином властивість Caption.

  2. Поверніться на Form1. Додайте в меню наступні пункти:

  1. Для обробника події OnClick пункту меню Придатні напишіть код:

form2.Query1.Close;

form2.Query1.SQL.Clear;

form2.Query1.SQL.add('select * from MainTable where goden=true');

form2.Query1.Active:=true;

form2.QuickRep1.Preview

  1. Для обробника події OnClick пункту меню Чи не придатні напишіть код:

form2.Query1.Close; form2.Query1.SQL.Clear;

form2.Query1.SQL.add('select * from MainTable where goden=false');

form2.Query1.Active:=true; form2.QuickRep1.Preview

  1. Додайте самостійно заголовки стовпців таблиці. Для цього на верхню смугу звіту необхідно помістити компоненти QRLabel і змінити відповідним чином властивість Caption.

  2. Запус програму і попрацюйте в ній.

  3. Збережіть проект у папці Військкомат, давши відповідну назву проекту та формами.

  4. Виконайте самостійно наступне завдання.

Варіант контрольного завдання:

вар.

Завдання

1

У каталозі студій звукозапису є такі дані: назва групи, назва альбому, рік випуску альбому, назва студії.

Програма повинна відповідати наступним вимогам:

  • Працювати в двох режимах: введення і пошуку інформації

  • В режимі пошуку сформувати такі запити:

  1. вивести таблицю груп, що випустили альбом в заданому році.

  2. вивести таблицю груп, що випустили альбом на заданій студії.

  3. вивести таблицю груп, назва яких починається на задану букву.

  4. в окремому вікні виводити таблицю назв груп і кількості, випущених ними альбомів.

  • Забезпечити сортування по групам і за альбомами в порядку зростання або в порядку убування.

  • Створити таблицю archive аналогічної структури. Скопіювати в неї всі дані з основної таблиці.

  • Вивести до звіту відсортований за групами, а потім за назвами альбомів список. У кінці звіту має бути зазначена загальна кількість альбомів.

  1. Оформіть звіт по лабораторній роботі: тема і мета роботи; послідовність виконання роботи, завдання до лабораторної роботи.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]