Для поновлення даних слід натиснути на кнопку оновлення. Приклад додавання даних представлений на малюнку 6.
Рис. 6. Форма додавання даних
Після заповнення всіх полів верхній панелі, крім поля «Оплачено» і «Загальна вартість», необхідно клікнути на кнопку «Зберегти». Потім на нижній лівій панелі натиснути на кнопку навігатора із позначкою «+» і заповнити поля. Після цього натиснути на кнопку навігатора з зображенням галочки для збереження змін. Те ж саме зробити і для заповнення другої таблиці. Натиснути на кнопку «Вихід» для закриття форми додавання.
Для відкриття довідників, на основній формі необхідно вибрати потрібний довідник і натиснути на відповідну кнопку. Зовнішній вигляд форми довідника «Факультети» представлений на малюнку 7.
Рис. 7. Форма форми «Факультети»
На формі представлені дані таблиці, які можна редагувати, додавати нові, видаляти. Також є кнопка оновлення даних.
Для формування звіту (оборотної відомості) про заборгованості по оплаті, необхідно на основній формі клікнути на кнопку «Звіт». На екрані з'явиться форма для введення параметрів звіту. Форма наведена на малюнку 8.
Малюнок 8 - Форма «Параметри звіту»
У формі вказується Дата і курс, за яким буде сформований отчет.Для зазначення дати використовується календар, а курс можна вибрати з випадаючого списку. При натисканні кнопки «Вивести» буде сформовано звіт, при натисканні кнопки «Скасування» або закритті форми звіт виводитися не буде. Приклад формування звіту наведений у розділі 6.
6. Опис контрольного прикладу
Для демонстрації роботи програми таблиці були заповнені даними контрольного прикладу. Зміст таблиць бази даних наведені на малюнках 9-12.
Рис. 9. Приклад заповнення даними форми
Рис.10. Зміст таблиці Group
Рис.11. Зміст таблиці Student
Рис.12. Зміст таблиці Fackultet
При формуванні звіту в якості параметрів програма запитує дату і курс обучающегося.Прімер заповнення представлений на малюнку 13.
Рис. 13. Форма завдання параметрів звіту
Результат виведення звіту представлений на малюнку 14.
Рис.14 Висновок звіту по контрольному наприклад
7. Текст програми
UMain ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, DB, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, jpeg;=class (TForm): TPanel ;: TGroupBox ;: TBitBtn ;: TLabel ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TImage ;: TBitBtn; FormShow (Sender: TObject); BitBtnDogovClick (Sender: TObject); BitBtnFackultClick (Sender: TObject); BitBtnGruppaClick (Sender: TObject); BitBtnStudentClick (Sender: TObject); BBReportClick (Sender: TObject);
{Private declarations}
{Public declarations} ;: TFrmMain; uDM, UDogovor, UFackult, UGroup, UStudent, Ulib, UParamRpt, Urpt;
{$ R * .dfm} TFrmMain.FormShow (Sender: TObject) ;: integer;
//DM.DB.Connected:=true;:=1;
while (not DM.DB.Connected) and
(i lt;=3) and f_con do begin.DB.Connected:=true; E: EDataBaseError dof_con then ( З'єднання з БД не вдалося , mtError, [mbOk], 0);
end; (i) ;; not DM.DB.Connected then.Terminate ;;; TFrmMain.BitBtnDogovClick (Sender: TObject) ;. Show ;; TFrmMain.BitBtnFackultClick (Sender: TObject) ;. Show ;; TFrmMain.BitBtnGruppaClick (Sender: TObject) ;. Show ;; TFrmMain.BitBtnStudentClick (Sender: TObject) ;. Show ;; TFrmMain.BBReportClick (Sender: TObject);
if not (frmParamRpt.ShowModal=mrOk) then;
try
//Для формування звіту використовуємо набір даних DM.qSql
with DM.qSql do begin.clear;
//Запит виконання процедури БД формування звіту
sql.add ( call Procedura1 (: fdat,: tip) );
//Параметри процедури, беруться з форми параметрів звіту
ParamByName ( fdat ). AsDate:=frmParamRpt.edDatFirst.Date; ( tip ). AsString:=frmParamRpt.CB_Kurs.Text;
//Відкриваємо набір даних
Open;
except
//Перевірка наявності даннихDM.qSql.isEmpty then begin ( Немає даних для звіту );
Exit;
end;
//Заповнення заголовка звіту заданими пар...
