Автоматизована система "Облік паспортних даних" (стр. 2 из 6)
3.2.1 Модуль “P_st_”
Модуль P_st є головним модулем програми через який здійснюється зв’язок з іншими програмними модулями. Перехід на інші програмні модулі виконується з використанням системи меню. Екранна форма модуля в режимі виконання програми, з розкритим елементом меню зображена на рис.3.3.
Мал.3.3 Екранна форма модуля P_st в режимі виконання програми
Екранна форма модуля в режимі конструювання зображена на мал. 3.4
Мал. 3.4 Екранна форма модуля P_st в режимі конструювання
Програмна специфікація модуля P_st наведена у таблиці 3.2
Таблиця 3.2 Програмна специфікація модуля P_st
| Компонент програми | Позначення | Зміст | |
| Стандартні модулі | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls, Menus; | Стандартні модулі, з якими встановлюється зв’язок | |
| Візуальні компоненти | MainMenu1: TMainMenu; | Програмне меню, яке забезпечує перехід на інші програмні форми | |
| N1: TMenuItem; | Пункт меню «Довідники» | ||
| N2: TMenuItem; | Підпункт «Вулиці» пункту меню Довідники | ||
| N3: TMenuItem; | Пункт меню «Операції» | ||
| N4: TMenuItem; | Підпункт «Введення даних» пункту меню Операції | ||
| N5: TMenuItem; | Пункт меню «Вибірка» | ||
| N6: TMenuItem; | Підпункт «Вибувші» пункту меню Вибірка | ||
| N7: TMenuItem; | Підпункт «Дані про вибувших» пункту меню Операції | ||
| N8: TMenuItem; | Підпункт «Пошук» пункту меню Вибірка | ||
| N9: TMenuItem; | Підпункт «Прізвище» підпункту Пошук меню Вибірка | ||
| N10: TMenuItem; | Підпункт «Адреса» підпункту Пошук меню Вибірка | ||
| N11: TMenuItem; | Підпункт «Пенсіонери» пункту меню Вибірка | ||
| N12: TMenuItem; | Пункт меню «Довідка» | ||
| N13: TMenuItem; | Підпункт «Про програму» пункту меню Довідка | ||
| N14: TMenuItem; | Підпункт «Про автора» пункту меню Довідка | ||
| Процедури | procedure N1Click(Sender: TObject); | Відкриваємо пункт меню «Довідники» | |
| procedure N2Click(Sender: TObject); | Переходимо на форму довідника вулиць | ||
| procedure N3Click(Sender: TObject); | Відкриваємо пункт меню «Операції» | ||
| procedure N4Click(Sender: TObject); | Переходимо на форму введення даних | ||
| procedure N5Click(Sender: TObject); | Відкриваємо пункт меню «Вибірка» | ||
| procedure N6Click(Sender: TObject); | Переходимо на форму вилучення вибувших | ||
| procedure N7Click(Sender: TObject | Переходимо на форму перегляду даних про вибувших | ||
| procedure N8Click(Sender: TObject); | Відкриваємо підпункт меню «Пошук» | ||
| procedure N9Click(Sender: TObject); | Переходимо на форму для пошуку по прізвищу | ||
| procedure N10Click(Sender: TObject); | Переходимо на форму для пошуку за адресою | ||
| procedure N11Click(Sender: TObject); | Переходимо на форму для відображення пенсіонерів | ||
| procedure N12Click(Sender: TObject); | Відкриваємо пункт меню «Довідка» | ||
| procedure N13Click(Sender: TObject); | Переходимо на форму для перегляду довідки про програму | ||
| procedure N14Click(Sender: TObject); | Переходимо на форму для перегляду довідки про розробника | ||
Програмний код модуля P_st наведено у Додатку 2.
Модуль pasp_stє одним з головних модулів тому що саме він підтримує введення нових даних в базу даних та видалення даних з бази даних. Введення виконується вручну з деяким використанням автоматизації процесу. Контроль за введенням даних частково лягає на користувача, а частково на комп’ютер. Також можна за допомогою цього модуля виконувати редагування даних.За допомогою даного модулю можна відобразитизвіти «Картка паспортних даних» та «Довідка про прописку».
Екранна форма модуля в режимі виконання програми зображена на мал.3.5.
Мал.3.5. Екранна форма модуля pasp_stв режимі виконання програми
Екранна форма модуля pasp_st в режимі конструювання зображена на мал. 3.6.
Мал. 3.6 Екранна форма модуля pasp_st в режимі конструювання
Програмна специфікація модуля pasp_st наведена у таблиці 3.3
Таблиця 3.3 Програмна специфікація модуля pasp_st
| Компонент програми | Позначення | Зміст |
| Стандартні модулі | 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;Label7: TLabel;Label8: TLabel;Label9: TLabel;Label10: TLabel;Label11: TLabel;Label12: TLabel;Label13: TLabel;Label14: TLabel;Label15: TLabel;Label16: TLabel; | Написи на формі |
| DBEdit1: TDBEdit;DBEdit2: TDBEdit;DBEdit3: TDBEdit;DBEdit4: TDBEdit;DBEdit5: TDBEdit;DBEdit10: TDBEdit;DBEdit11: TDBEdit;DBEdit9: TDBEdit;DBEdit6: TDBEdit; | Поля введення даних | |
| DBLookupComboBox1: TDBLookupComboBox; | Випливаючі списки даних з яких потрібно вибрати потрібне поле | |
| DBNavigator1: TDBNavigator; | Навігатор по базі даних | |
| DBImage1: TDBImage; | Об’єкт завантаження малюнка | |
| DBGrid1: TDBGrid; | Таблиці відображення вмісту бази данних | |
| BitBtn1: TBitBtn; BitBtn3: TBitBtn; BitBtn2: TBitBtn; | Кнопки виконання команд | |
| DBComboBox1: TDBComboBox; DBComboBox2: TDBComboBox; DBComboBox3: TDBComboBox; | Поле даних зі списком | |
| Процедури | procedure DBEdit4Change(Sender: TObject); | Процедура автоматичного розрахунку поля Вік |
| procedure BitBtn1Click(Sender: TObject); | Відкриває папку для загрузки фото | |
| procedure BitBtn2Click(Sender: TObject); | Відкриває звіт паспортних даних | |
| procedure FormCreate(Sender: TObject); | Активація форматів загрузки фото | |
| procedure Edit1Change(Sender: TObject); | Пошук по першим літерам прізвища | |
| procedure BitBtn3Click(Sender: TObject); | Відкриває звіт «Довідка про прописку» | |
| procedure FormActivate(Sender: TObject); | Курсор на перше поле введення | |
| procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); | Активація компонентів введення |
Програмний код модуля Pasp_st наведено у Додатку 2.
Модуль Vyl– модуль довідника вулиць. За допомогою даного модуля можливо ввести в базу вулиць нову, раніше не записану вулицю, або при введенні використовувати вже занесені адреси.
Екранна форма модуля в режимі виконання програми зображена на мал.3.7.
Мал.3.7 Екранна форма модуля Vyl в режимі виконання програми
Екранна форма модуля в режимі конструювання зображена на мал. 3.8
Мал. 3.8 Екранна форма модуля Vyl в режимі конструювання
Програмна специфікація модуля Vyl наведена у таблиці 3.4
Таблиця 3.4
| Компонент програми | Позначення | Зміст |
| Стандартні модулі | 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; Label7: TLabel; Label8: TLabel; | Написи на формі |
| DBEdit1: TDBEdit; | Поле для введення даних | |
| DBNavigator1: TDBNavigator; | Навігатор по базі даних | |
| DBImage1: TDBImage; | Об’єкт завантаження малюнка | |
| DBGrid1: TDBGrid; | Таблиці відображення вмісту бази данних | |
| DBComboBox1: TDBComboBox; | Поле даних зі списком |
Програмний код модуля Vyl наведено у Додатку 2.
Модуль Unit4 – модуль пошуку даних за прізвищем. За допомогою даного модуля можливо вручну ввести потрібне прізвище і натиснути кнопку Пошук.
Екранна форма модуля в режимі виконання програми зображена на мал.3.9.
Мал.3.9. Екранна форма Unit4 режимі виконання
Екранна форма модуля Unit4 в режимі конструювання зображена на рис. 3.10
Мал.3.10. Екранна форма Unit4 режимі конструювання
Програмна специфікація модуля Unit4 наведена у таблиці 3.5
Таблиця 3.5
| Компонент програми | Позначення | Зміст |
| Стандартні модулі | 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; | Об’єкт завантаження малюнка | |
| DBGrid2: TDBGrid; | Таблиці відображення вмісту бази даних | |
| Процедури | procedure Button1Click(Sender: TObject); | Процедура пошуку |
| procedure FormCreate(Sender: TObject); | Оновлення таблиці |
Програмний код модуля Unit4 наведено у Додатку 2.
Модуль Unit5 – модуль пошуку даних за адресою. За допомогою даного модуля можливо вручну ввести потрібне прізвище і натиснути кнопку Пошук.
Екранна форма модуля в режимі виконання програми зображена на мал.3.11.
Мал.3.11. Екранна форма Unit5 режимі виконання