Автоматизация работы паспортного стола (стр. 2 из 2)
Edit1: TEdit;
Button1: TButton;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
Uses MUnit2, MUnit3;
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form2.Show
end;
end.
unit MUnit2; // Модульрабочейформы
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XPMan, DB, ADODB, Grids, DBGrids, StdCtrls, ComCtrls, ExtCtrls,
DBCtrls;
type
TForm2 = class(TForm)
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
DataSource1: TDataSource;
DataSource2: TDataSource;
ADOTable1: TADOTable;
ADOQuery1: TADOQuery;
AllQuery: TADOQuery;
Button1: TButton;
XPManifest1: TXPManifest;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Label2: TLabel;
Label3: TLabel;
Button2: TButton;
Label4: TLabel;
DBNavigator1: TDBNavigator;
Button3: TButton;
Label1: TLabel;
Label5: TLabel;
DBNavigator2: TDBNavigator;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure ADOTable1AfterInsert(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
Uses MUnit1, MUnit3, MUnit4;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
AllQuery.Close;
AllQuery.Active:=True;
Form3.QuickRep1.Preview;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Label4.Visible:=True;
Label2.Visible:=True;
Label3.Visible:=True;
ComboBox1.Visible:=True;
ComboBox2.Visible:=True;
Button1.Visible:=True;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
Form4.Show
end;
procedure TForm2.ADOTable1AfterInsert(DataSet: TDataSet);
begin
Form2.ADOTable1.FieldByName('ФИО').AsString := Form4.LabeledEdit1.Text;
Form2.ADOTable1.FieldByName('Дата_Рождения').AsString Form4.LabeledEdit2.Text;
Form2.ADOTable1.FieldByName('Пол').AsString := Form4.LabeledEdit3.Text;
Form2.ADOTable1.FieldByName('Прописка').AsString Form4.LabeledEdit4.Text;
Form2.ADOTable1.FieldByName('Телефон').AsString
Form4.LabeledEdit5.Text;
end;
end.
unitMUnit3; // Модуль формы отчета
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QuickRpt, ExtCtrls, QRCtrls, StdCtrls;
type
TForm3 = class(TForm)
QuickRep1: TQuickRep;
ColumnHeaderBand1: TQRBand;
DetailBand1: TQRBand;
SummaryBand1: TQRBand;
TitleBand1: TQRBand;
QRLabel1: TQRLabel;
QRSysData1: TQRSysData;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
Uses MUnit1, MUnit2;
{$R *.dfm}
end.
unitMUnit4; // Модуль формы добавления данных
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm4 = class(TForm)
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
LabeledEdit3: TLabeledEdit;
LabeledEdit4: TLabeledEdit;
LabeledEdit5: TLabeledEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
Uses MUnit1, MUnit2;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
Form2.ADOTable1.FieldByName('ФИО').AsString := Form4.LabeledEdit1.Text;
Form2.ADOTable1.FieldByName('Дата_Рождения').AsString Form4.LabeledEdit2.Text;
Form2.ADOTable1.FieldByName('Пол').AsString := Form4.LabeledEdit3.Text;
Form2.ADOTable1.FieldByName('Прописка').AsString Form4.LabeledEdit4.Text;
Form2.ADOTable1.FieldByName('Телефон').AsString
Form4.LabeledEdit5.Text;
end;
end.
5. Инструкция по работе с программой
5.1 Общие сведения
Для функционирования программы «Паспортный стол +» необходимо, чтобы на рабочем компьютере был установлен пакет прикладных программ MicrosoftOffice, в частности СУБД MSAccess. В этой программе хранятся таблицы с информацией базы данных паспортного стола. Для нормальной работы программы (быстрого поиска в базе) желательно наличие процессора Pentium 3 и выше. Необходимые системные требования к ОЗУ и HDD: наличие не менее 512 Мб свободной основной памяти и не менее 300 Мб свободного дискового пространства.
5.2 Функциональное назначение
Настоящая информационно-поисковая система предназначена для ведения учета в паспортно-визовой службе, а также для автоматизированного поиска информации о гражданах.
5.3 Вызов и загрузка
Системные файлы программы могут быть установлены в любом каталоге жесткого диска, так же как и файл базы данных. При запуске из окна программы можно указать месторасположение файла базы данных Access, воспользовавшись программой Проводник операционной системы Windows.
5.4 Описание входной информации
При подготовке исходных данных удобно свести всю входную информацию в таблицу, напоминающую структуру базы данных. Входная информация: ФИО гражданина, дата рождения, пол, район проживания (прописка), телефон, серия и номер паспорта и дата выдачи паспорта. Также входной информацией могут быть различные заявления, поступающие от граждан, например «Заявление о признании утраченного документа недействительным», образец которого представлен в Приложении 1.
5.5 Описание выходной информации
Выходной информацией для данной программы являются отчеты, содержащие различные сведения о выданных паспортах и их получателях. Образец отчета находится в Приложении 2. Также выходными документами являются экранные формы доступа к данным, то есть сами окна программы «Паспортный стол +».
5.6 Описание пользовательского интерфейса
Данная программа имеет многооконный интерфейс, т. е. несколько экранных форм доступа к данным. После запуска программы на экране появляется главная форма (рис. 5.1). Для загрузки базы данных необходимо указать месторасположение файла MSAccess – кнопка «Загрузить» позволяет сделать это при помощи программы Проводник ОС Windows. После того, как в поле «Файл базы данных» указан правильный путь, активируется кнопка «Войти в программу».
Рис. 5.6.1. Главная форма программы
После нажатия этой кнопки на экране появляется рабочее окно программы (рис 5.2), где пользователь может просматривать, редактировать, изменять и сохранять данные, а также выводить интересующую его информацию на печать. В этом окне становятся доступны пункты меню Файл, Редактирование и Справка. Для перехода по записям таблицы на форме под каждой таблицей расположены специальные кнопки: переход к первой записи, к предыдущей записи, к следующей записи, к последней записи, изменить запись, сохранить изменения, отменить изменения, обновить.
Рис. 5.6.2. Рабочее окно программы
Для того чтобы пополнить базу и добавить новые записи, необходимо кликнуть по кнопке «Добавление данных», расположенной внизу рабочего окна или выбрать пункт меню Редактирование – Добавить данные. Появится окно «Добавление данных» (рис 5.3), в котором в поля ввода забивается соответствующая информация. Для сохранения введенных данных в базе необходимо щелкнуть по кнопке «Добавить». При этом окно «Добавление данных» закрывается, а в таблице на форме «Данные о гражданах» появляется новая строка.
Рис. 5.6.3. Форма добавления данных в таблицу
Также из рабочего окна программы существует доступ к формированию отчетов, выводимых на печать (рис. 5.4).
Рис. 5.6.4. Окно предварительного просмотра отчета и вывода его на печать
Для формирования отчета следует нажать кнопку «Отчет о выданных паспортах», на форме появятся поля для заполнения и кнопка для просмотра отчета, далее необходимо выбрать нужную дату и щелкнуть по кнопке «Показать». Образец выходного документа – отчета представлен в Приложении 2.
Заключение
В процессе изучения предметной области паспортно-визовой службы, был сделан вывод, что структурированность информации и удобное её представление является важной частью правильной работы паспортного стола. Таким образом, информация, собранная в правильно организованной базе данных облегчает решение очень многих задач, тем самым, делая паспортно-визовую службу более работоспособной.
В данном курсовом проекте представлена база данных, в которой собрана необходимая информация в масштабах паспортно-визовой службы.
С помощью этой базы данных значительно облегчится работа сотрудников данной паспортно-визовой службы и уменьшатся временные затраты на выполнение какой либо операции.
Библиографический список
1. Архангельский, А.Я. Программирование в Delphi 5 – 2-е изд., переработ и дополн. [Текст] / А.Я. Архангельский – М.: ЗАО "Издательство БИНОМ", 2000 г. – 1072 с.: ил.
2. Дейт, К. Введение в системы баз данных // 6-издание. [Текст] / К. Дейт - Киев: Диалектика, 1998. - 784с.
3. Боуман, Д. Практическое руководство по SQL. [Текст] / Д. Боуман, С. Эмерсон, М. Дарновски - Киев: Диалектика, 1997, 200 c.
4. Кальянов, Г.Н. CASE- технологии. Консалтинг при автоматизации бизнес-процессов. 2-е изд. перераб. и доп. [Текст] / Г.Н. Кальянов – М.:Горячая линия - Телеком, 2000.-320с.: ил.
5. Тихомиров, Ю.В. Microsoft SQL server 7.0. [Текст] / Ю.В. Тихомиров – СПб.: БХВ – Санкт-Петербург, 2000. – 720 с.
6. Маклаков, С.В. BPwin и ERwin. CASE-средства разработки информационных систем [Текст] / С.В. Маклаков - М.: ДИАЛОГ-МИФИ, 2000 – 256 с.
7. Мейер, М. Теория реляционных баз данных. [Текст] / М. Мейер- М.: Мир, 1987. - 608с.
8. Фаронов, В.В. Delphi 5. Руководство разработчика баз данных. [Текст] / В.В. Фаронов, П.В. Шумаков – М.: “Нолидж”, 2000. – 640с.
9. Чен, П. Модель "сущность-связь" - шаг к единому представлению о данных //СУБД. [Текст] / П.Чен – М. 1995. - №3. - С.137-158.
Приложение 1
ВОССТАНОВЛЕНИЕ ПРАВ ПО УТРАЧЕННЫМ
ДОКУМЕНТАМ НА ПРЕДЪЯВИТЕЛЯ
(ВЫЗЫВНОЕ ПРОИЗВОДСТВО)
_____________________________________________________________
В __________ районный (городской) суд
___________области (края, республики)
ЗАЯВИТЕЛЬ:______________________
(ф. и. о., адрес)
ЗАИНТЕРЕСОВАННОЕ ЛИЦО
__________________________________
(наименование учреждения, выдавшего документ, адрес)
ЗАЯВЛЕНИЕ
о признании утраченного документа недействительным
_____________________________________________________________
(указать: когда, на какие ценности, какое учреждение выдало
_____________________________________________________________
заявителю документ на предъявителя)
Утраченный документ имеет следующие отличительные признаки:
_____________________________________________________________
(подробно их описать)
Утрата данного документа произошла при следующих обстоятельствах____________________________________________________
В соответствии со ст. 148 ГК РФ, ст. ст. 274-275 ГПК РСФСР
ПРОШУ:
Признать_____________________________________________________
(указать наименование утраченного документа,
_____________________________________________________________
учреждения, его выдавшего)
недействительным.