Екранна форма модуля Unit5 в режимі конструювання зображена на рис. 3.12
Мал.3.12. Екранна форма Unit5 режимі конструювання
Програмна специфікація модуля Unit5 наведена у таблиці 3.6
Таблиця 3.6
Компонент програми
Позначення
Зміст
Стандартні модулі
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, Db, StdCtrls, Mask,DateUtils;
Стандартні модулі, з якими встановлюється зв'язок
Компоненти
Label1: TLabel;
Написи на формі
Edit1: TEdit;
Поле для введення даних
Button1: TButton;
Кнопка пошуку
DBImage1: TDBImage;
Об'єкт завантаження малюнка
DBGrid1: TDBGrid;
Таблиці відображення вмісту бази даних
Процедури
procedure Button1Click(Sender: TObject);
Процедура пошуку
procedure FormCreate(Sender: TObject);
Оновлення таблиці
Програмний код модуля Unit5 наведено у Додатку 2.
Модуль Unit6 - модуль пошуку і відображення списку пенсіонерів. За допомогою даного модуля можна визначити список пенсіонерів і вивести на принтер їх список.
Екранна форма модуля в режимі виконання програми зображена на мал.3.13.
Мал.3.13. Екранна форма Unit6 режимі виконання
Екранна форма модуля Unit6 в режимі конструювання зображена на рис. 3.14
Мал.3.14. Екранна форма Unit6 режимі конструювання
Програмна специфікація модуля Unit6 наведена у таблиці 3.7
Таблиця 3.7
BitBtn1: TBitBtn;
Друк списку пенсіонерів
procedure BitBtn1Click(Sender: TObject);
Відображення списку пенсіонерів
Програмний код модуля Unit6 наведено у Додатку 2.
Модуль Unit7 - модуль таблиці вибувших. За допомогою даного модуля можна перемістити людину в окрему таблицю вибувших, попередньо вказавши дату вибуття та причину вибуття.
Екранна форма модуля в режимі виконання програми зображена на мал.3.15.
Мал.3.15. Екранна форма Unit7 режимі виконання
Екранна форма модуля Unit7 в режимі конструювання зображена на рис. 3.16
Мал.3.16. Екранна форма Unit7режимі конструювання
Програмна специфікація модуля Unit7 наведена у таблиці 3.8
Таблиця 3.8
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBGrid2: TDBGrid;
DBNavigator1: TDBNavigator;
Навігатор по базі даних
Переміщення
Модуль Unit11 - додатковий модуль таблиці вибувших. За допомогою даного модуля можна ввести додаткові дані для створення довідки про прописку.
Екранна форма модуля в режимі виконання програми зображена на мал.3.17.
Мал.3.17. Екранна форма Unit11 режимі виконання
Екранна форма модуля Unit7 в режимі конструювання зображена на рис. 3.18
Мал.3.19. Екранна форма Unit11 режимі конструювання
Програмна специфікація модуля Unit11 наведена у таблиці 3.9
Таблиця 3.9
Label5: TLabel;
Label6: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Кнопка присвоєння даних до звіту.
Програмний код модуля Unit11 наведено у Додатку 2.
Модуль Unit12 - модуль який містить дані про вибувших. За допомогою даного модуля можна переглянути список вибувших, але не можливо внести зміни.
Екранна форма модуля в режимі виконання програми зображена на мал.3.20.
Мал.3.20. Екранна форма Unit12 режимі виконання
Екранна форма модуля Unit12 в режимі конструювання зображена на рис. 3.21
Мал.3.21. Екранна форма Unit12 режимі конструювання
Програмна специфікація модуля Unit12 наведена у таблиці 3.10
Таблиця 3.10
Відображення фото
procedure TForm12.FormCreate(Sender: TObject);
Заборона редагування
Страницы: 1, 2, 3, 4, 5, 6
