Курсовая работа: Автоматизована система "Облік паспортних даних"

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 в режимі конструювання