Теоретические основы темы

1. Теоретические основы темы

Формулирование требований к программе, разрабатываемой для решения задачи, можно свести к следующим критериям:

- разрабатываемая программа должна обеспечивать быстрое и удобное получение информации, иметь простой и интуитивно понятный интерфейс.

- пользователь должен иметь возможность ввода новой информации и просмотра уже имеющейся.

- структура используемой базы данных должна быть подобрана оптимально.

Входной информацией для данной задачи является паспорт, заявление клиента, дополнительные документы. Выходной информацией служат чек, российский паспорт, загранпаспорт, прописка, подтверждение о сдаче и принятии документов.

2. Постановка задачи

 

Цель курсового проекта - закрепление знаний и навыков использования наиболее распространенных программных средств в управлении объектами экономики.

Задачи курсового проекта – освоение методики и алгоритмов решения задач отраслевых информационных систем, исследования автоматизированных процессов решения экономических задач в различных отраслях, разработка информационных технологий отраслевых информационных систем:

- анализ и разработка моделей данных бизнес-процессов исследуемого объекта;

- логическое (концептуальное) проектирование по выбранной теме курсового проекта;

- проектирование на физическом уровне с учетом конкретной технологии и среды.

Объект исследования – Автоматизация работы паспортного стола.

3. Пояснительная записка

Программа «Паспортный стол +» служит для автоматизации работы паспортно-визовой службы. Она упрощает работу на автоматизированном рабочем месте пользователя.

Данная программа разработана с помощью объектно-ориентированного языка Delphi в системе программирования Delphi 7. Файлы и таблицы базы данных, которые использует программа «Паспортный стол +» созданы в программе Microsoft Access.

Дополнительно были использованы такие инструментальные средства, как BPwin для построения функциональной модели (рис. 3.1.1 – 3.1.5) и ERwin для создания логической и физической моделей (рис. 3.2.1 – 3.3.1), т. е. формализованного описания выбранной предметной области. Затем, при помощи средств быстрой разработки, MS Access и Delphi была создана непосредственно база данных и ее прототип – интерфейс для конечного пользователя.

 

3.1 Функциональная модель системы паспортного стола

 

Рис. 3.1.1. Контекстная диаграмма системы паспортного стола

Далее система паспортного стола делится на подсистемы: принятие заявления, оформление паспорта, оформление прописки. В свою очередь подсистемы принятие заявления, оформление паспорта, оформление прописки делятся на элементы: уплата госпошлины, проверка документов; проверка подлинности документов, проверка личности гражданина; оформление постоянной прописки, оформление временной прописки.

Рис. 3.1.2. Декомпозиция контекстной диаграммы

Рис. 3.1.3. Подсистема принятия заявления

Рис. 3.1.4. Подсистема оформления паспорта

Рис. 3.1.5. Подсистема оформления прописки

3.2 Логическая модель данных

В реляционных базах данных логическое проектирование приводит к разработке схемы базы данных, то есть совокупности схем отношений, которые однозначно моделируют объекты предметной области и семантические связи между ними.

Рис. 3.2.1. Логическая модель данных

3.3 Физическая модель данных

 

На физическом уровне модель данных выглядит следующим образом.

Рис. 3.3.1. Физическая модель данных

4. Тексты модулей приложения

Создание прототипа базы данных или приложения с пользовательским интерфейсом отражено в листинге программы. Это программный код поэтапной разработки приложения на языке Delphi.

unit MUnit1; // Модуль главной формы

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, Buttons, DB, ADODB, XPMan;

type

 TForm1 = class(TForm)

 BitBtn1: TBitBtn;

 XPManifest1: TXPManifest;

 ADOConnection1: TADOConnection;

 Label1: TLabel;

 Label2: TLabel;

 Label3: TLabel;

 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.

unit MUnit3; // Модуль формы отчета

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.

unit MUnit4; // Модуль формы добавления данных

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, в частности СУБД MS Access. В этой программе хранятся таблицы с информацией базы данных паспортного стола. Для нормальной работы программы (быстрого поиска в базе) желательно наличие процессора Pentium 3 и выше. Необходимые системные требования к ОЗУ и HDD: наличие не менее 512 Мб свободной основной памяти и не менее 300 Мб свободного дискового пространства.

 

5.2 Функциональное назначение

Настоящая информационно-поисковая система предназначена для ведения учета в паспортно-визовой службе, а также для автоматизированного поиска информации о гражданах.

 

5.3 Вызов и загрузка

Системные файлы программы могут быть установлены в любом каталоге жесткого диска, так же как и файл базы данных. При запуске из окна программы можно указать месторасположение файла базы данных Access, воспользовавшись программой Проводник операционной системы Windows.

 

5.4 Описание входной информации

При подготовке исходных данных удобно свести всю входную информацию в таблицу, напоминающую структуру базы данных. Входная информация: ФИО гражданина, дата рождения, пол, район проживания (прописка), телефон, серия и номер паспорта и дата выдачи паспорта. Также входной информацией могут быть различные заявления, поступающие от граждан, например «Заявление о признании утраченного документа недействительным», образец которого представлен в Приложении 1.