Контрольні питання
Яке призначення функції FormatDateTime та її параметри?
Де застосовуються SQL-запити? Який формат запису SQL-запиту?
Як можна змінити у коді програми SQL-запит, який був заданий через інспектор об’єктів?
Яка функція повертає поточну дату?
Яким чином реалізований у програмі вивід днів тижня українськими назвами?
Лабораторна робота №13
Тема: Створення звітів
Мета: Навчитись створювати звіти для баз даних з використанням компонентів палітри QReport С++ Builder
ХІД РОБОТИ
1. Розмістимо на формі наступні компоненти:
QuickReport, TQRBand - компонент, що є частиною звіту, - контейнер для розміщення даних - заголовок звіту та властивості BandType присвоїмо значення rbTitle, TQRLabel, помістимо на QRBand1 і його властивості Caption присвоїмо значення Наші Клієнти.
2. Натиснути праву клавішу миші над компонентом QuickRep1 і вибрати з контекстного меню опцію Preview, з'явиться вікно перегляду, в якому буде відображена сторінка звіту із створеним заголовком.
3. Додати ще компоненту TQRBand та властивості BandType присвоїмо значення rbColumnHeading, за допомогою TQRLabel задати заголовки полів: Компанія, телефон
4. Додати ще компоненту TQRBand та властивості BandType присвоїмо значення rbDetail.
Додати на форму компонент TTable. Встановити властивість DataBaseName рівним імені псевдоніма, BCDEMOS, властивість TableName рівним імені таблиці, CUSTOMER.DB, а потім властивість Active рівним true. Додати на форму компонент TDataSource і пов’язати з Table1, а потім встановити властивість Table компоненту QuickReport рівним імені створеного компоненту Table1. Додати дві компоненти TQRDBText, встановити властивість DataSource рівним імені створеного раніше компоненту Table1 і вибрати потрібні поля як значення властивості DataField (Company і Phone). Переглянути звіт.
Додати ще компоненту TQRBand та властивості BandType присвоїмо значення rbPageFooter. Помістити на ньому компоненту TQRSysData і встановити його властивість Data рівним qrcPageNumber, а властивість Text рівним “Стор. “
Перетворимо створений звіт в звіт "master-detail". Для цього слід додати компонент TTable, встановити його властивість DatabaseName рівним BCDEMOS, властивість TableName рівним ORDERS.DB, а потім встановити властивість Active рівним true. Після цього встановимо властивість MasterSource рівним DataSource1. Потім виберемо властивість MasterFields, викликавши діалогову панель для установки зв'язку master/detail і із списку доступних індексів виберемо CustNo. Потім виділимо ім'я поля CustNo в обох списках полів і натиснемо кнопку Add, та кнопку OK.
Додамо на форму компонент TDataSource, встановивши його властивість DataSet рівним Table2 . Потім додамо до форми новий компонент TQRBand. Після цього додамо компонент QRSubDetail, призначений для установки зв'язків між джерелами даних в звітах, і встановимо його властивість DataSource рівним DataSource2. Потім встановимо його властивість Master рівним QuickRep, а властивість LinkBand рівним останньому QRBand. Властивість BandType компоненту QRBand автоматично прийме значення rbSubDetail.
Помістимо дві компоненти TQRDBText на QRBand, встановимо їх властивості DataSource рівними DataSource2, а властивості DataField рівними OrderNo і AmountPaid. Зліва від них помістимо два компоненти TQRLabel з назвами цих полів (рис.).
Створити ще одну форму, розмістити на ній QuickRep. Розмістити TTable та DataSource та налаштувати на на зв’язок з таблицею biolife.db.
Розмістити QRBand, дві QRDBText та QRDBImage. Налаштувати їх на відображення полів Common_Name, Notes та Graphic.
QRDBText з полем Notes налаштувати таким чином, щоб текст відображався у багато рядків, використавши властивості Autosіze та Size. QRBand збільшити по висоті. Переглянути звіт.
