Автоматизована система "Облік паспортних даних" (стр. 3 из 6)
Екранна форма модуля 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
| Компонент програми | Позначення | Зміст |
| Стандартні модулі | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, Db, StdCtrls, Mask,DateUtils; | Стандартні модулі, з якими встановлюється зв’язок |
| Компоненти | Label1: TLabel; | Написи на формі |
| Edit1: TEdit; | Поле для введення даних | |
| Button1: TButton;BitBtn1: TBitBtn; | Кнопка пошуку | |
| DBGrid1: TDBGrid; | Таблиці відображення вмісту бази даних | |
| Процедури | procedure Button1Click(Sender: TObject); | Друк списку пенсіонерів |
| procedure FormCreate(Sender: TObject); | Оновлення таблиці | |
| procedure BitBtn1Click(Sender: TObject); | Відображення списку пенсіонерів |
Програмний код модуля Unit6 наведено у Додатку 2.
Модуль Unit7 – модуль таблиці вибувших. За допомогою даного модуля можна перемістити людину в окрему таблицю вибувших, попередньо вказавши дату вибуття та причину вибуття.
Екранна форма модуля в режимі виконання програми зображена на мал.3.15.
Мал.3.15. Екранна форма Unit7 режимі виконання
Екранна форма модуля Unit7 в режимі конструювання зображена на рис. 3.16
Мал.3.16. Екранна форма Unit7режимі конструювання
Програмна специфікація модуля Unit7 наведена у таблиці 3.8
Таблиця 3.8
| Компонент програми | Позначення | Зміст |
| Стандартні модулі | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, Db, StdCtrls, Mask,DateUtils; | Стандартні модулі, з якими встановлюється зв’язок |
| Компоненти | Label1: TLabel;Label2: TLabel;Label3: TLabel;Label4: TLabel; | Написи на формі |
| DBEdit1: TDBEdit; DBEdit2: TDBEdit; | Поле для введення даних | |
| BitBtn1: TBitBtn; | Кнопка пошуку | |
| DBGrid1: TDBGrid; DBGrid2: TDBGrid; | Таблиці відображення вмісту бази даних | |
| DBNavigator1: TDBNavigator; | Навігатор по базі даних | |
| Процедури | procedure BitBtn1Click(Sender: TObject); | Переміщення |
| procedure FormCreate(Sender: TObject); | Оновлення таблиці |
Програмний код модуля Unit6 наведено у Додатку 2.
Модуль Unit11 – додатковий модуль таблиці вибувших. За допомогою даного модуля можна ввести додаткові дані для створення довідки про прописку.
Екранна форма модуля в режимі виконання програми зображена на мал.3.17.
Мал.3.17. Екранна форма Unit11 режимі виконання
Екранна форма модуля Unit7 в режимі конструювання зображена на рис. 3.18
Мал.3.19. Екранна форма Unit11 режимі конструювання
Програмна специфікація модуля Unit11 наведена у таблиці 3.9
Таблиця 3.9
| Компонент програми | Позначення | Зміст |
| Стандартні модулі | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, Db, StdCtrls, Mask,DateUtils; | Стандартні модулі, з якими встановлюється зв’язок |
| Компоненти | Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; | Написи на формі |
| Edit1: TEdit; Edit2: TEdit;Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; | Поле для введення даних | |
| Button1: TButton; | Кнопка пошуку | |
| Процедури | procedure Button1Click(Sender: TObject); | Кнопка присвоєння даних до звіту. |
Програмний код модуля Unit11 наведено у Додатку 2.
Модуль Unit12 – модуль який містить дані про вибувших. За допомогою даного модуля можна переглянути список вибувших, але не можливо внести зміни.
Екранна форма модуля в режимі виконання програми зображена на мал.3.20.
Мал.3.20. Екранна форма Unit12 режимі виконання
Екранна форма модуля Unit12 в режимі конструювання зображена на рис. 3.21
Мал.3.21. Екранна форма Unit12 режимі конструювання
Програмна специфікація модуля Unit12 наведена у таблиці 3.10
Таблиця 3.10
| Компонент програми | Позначення | Зміст |
| Стандартні модулі | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, Db, StdCtrls, Mask,DateUtils; | Стандартні модулі, з якими встановлюється зв’язок |
| Компоненти | Label1: TLabel; | Написи на формі |
| DBEdit1: TDBEdit; DBEdit2: TDBEdit; | Поле для введення даних | |
| DBImage1: TDBImage; | Відображення фото | |
| Процедури | procedure TForm12.FormCreate(Sender: TObject); | Заборона редагування |
Програмний код модуля Unit12 наведено у Додатку 2.
Модуль Unit8 – модуль формує звіт «Список пенсіонерів». За допомогою даного модуля и можемо роздрукувати список пенсіонерів.
Екранна форма модуля в режимі виконання програми зображена на мал.3.22.
Мал.3.22 Екранна форма Unit8 режимі виконання
Екранна форма модуля Unit8 в режимі конструювання зображена на рис. 3.23
Мал.3.23 Екранна форма Unit8 режимі конструювання
Програмна специфікація модуля Unit8 наведена у таблиці 3.11
Таблиця 3.11
| Компонент програми | Позначення | Зміст |
| Стандартні модулі | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, Db, StdCtrls, Mask,DateUtils; | Стандартні модулі, з якими встановлюється зв’язок |
| Компоненти | QRLabel1: TQRLabel; QRLabel2: TQRLabel; QRLabel3: TQRLabel; QRLabel4: TQRLabel; QRLabel5: TQRLabel; QRLabel6: TQRLabel; | Написи звіту |
| QRDBText1: TQRDBText; QRDBText2: TQRDBText; QRDBText3: TQRDBText; QRDBText4: TQRDBText; QRDBText5: TQRDBText; | Поле виведення даних |
Програмний код модуля Unit8 наведено у Додатку 2.
Модуль Unit9 – модуль формує звіт «Картка паспортних даних». За допомогою даного модуля и можемо вивести на екран картку паспортних даних по окремому прізвищу, по необхідності роздрукувати.
Екранна форма модуля в режимі виконання програми зображена на мал.3.24.
Мал.3.24. Екранна форма Unit9 режимі виконання
Екранна форма модуля Unit9 в режимі конструювання зображена на мал. 3.25
Мал.3.25. Екранна форма Unit9 режимі конструювання
Програмна специфікація модуля Unit9 наведена у таблиці 3.12
Таблиця 3.12
| Компонент програми | Позначення | Зміст |
| Стандартні модулі | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, Db, StdCtrls, Mask,DateUtils; | Стандартні модулі, з якими встановлюється зв’язок |
| Компоненти | QRLabel1: TQRLabel; QRLabel2: TQRLabel; QRLabel3: TQRLabel; QRLabel4: TQRLabel; QRLabel5: TQRLabel; QRLabel6: TQRLabel;QRLabel7: TQRLabel; QRLabel8: TQRLabel; QRLabel9: TQRLabel; QRLabel10: TQRLabel; QRLabel11: TQRLabel; QRLabel12: TQRLabel; QRLabel13: TQRLabel; QRLabel14: TQRLabel; QRLabel15: TQRLabel; QRLabel16: TQRLabel; QRLabel17: TQRLabel; QRLabel18: TQRLabel; QRLabel19: TQRLabel; | Написи звіту |
| QRDBText1: TQRDBText; QRDBText2: TQRDBText; QRDBText3: TQRDBText; QRDBText4: TQRDBText; QRDBText5: TQRDBText; QRDBText6: TQRDBText; QRDBText7: TQRDBText;QRDBText8: TQRDBText;QRDBText9: TQRDBText;QRDBText10: TQRDBText;QRDBText11: TQRDBText;QRDBText12: TQRDBText;QRDBText13: TQRDBText;QRDBText14: TQRDBText;QRDBText15: TQRDBText;QRDBText16: TQRDBText; | Поле виведення даних | |
| QRDBImage1: TQRDBImage; | Відображено картинку в звіті |
Програмний код модуля Unit9 наведено у Додатку 2.
Модуль Unit10 – модуль формує звіт «Довідка про прописку». За допомогою даного модуля и можемо вивести на екран довідку про прописку по окремому прізвищу, по необхідності роздрукувати.
Екранна форма модуля в режимі виконання програми зображена на мал.3.26.
Мал.3.26. Екранна форма Unit10 режимі виконання
Екранна форма модуля Unit10 в режимі конструювання зображена на рис. 3.27
Мал.3.27. Екранна форма Unit10 режимі конструювання
Програмна специфікація модуля Unit10 наведена у таблиці 3.13
Таблиця 3.13