Тема дипломной работы: СИСТЕМА ДЛЯ ИНФОРМАЦИОННОЙ ПОДДЕРЖКИ ПАСПОРТНО- ВИЗОВОЙ СЛУЖБЫ

СОДЕРЖАНИЕ.

ВВЕДЕНИЕ. 2

ПОСТАНОВКА ЗАДАЧИ.. 3

Глава 1. ОСНОВНЫЕ СВЕДЕНИЯ ИЗ ТЕОРИИ РЕЛЯЦИОННЫХ БАЗ ДАННЫХ. 4

1.1 Определение основных понятий. 4

1.2. Методология проектирования инфологической модели. 7

1.3. Основные определения реляционной теории Э. Кодда. 8

1.4 Основы теории нормализации Э. Кодда. 9

1.5 Этапы проектирования базовых таблиц РБД. 11

1.6 Общие сведения о языке SQL. 14

Глава 2. ОПИСАНИЕ  ПРОЕКТА. 18

2.1. Анализ предметной области. 18

2.2. Проектирование инфологической модели. 22

2.3. Проектирование дат алогической модели. 22

2.4. Описание реализации. 26

2.4.1. Обоснование выбора СУБД. 26

2.4.2. Разработка интерфейса системы. 27

2.4.3. Проектирование запросов. 73

2.4.4. Описание интерфейса. 78

2.4.5. Проектирование отчетов. 82

ЗАКЛЮЧЕНИЕ. 88

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ. 89

ПРИЛОЖЕНИЯ. 90

ВВЕДЕНИЕ

Целью дипломной работы является разработка системы для информационной поддержки паспортно-визовой службы, которая занимается оформлением и выдачей паспортов. Информационная система (ИС) должна обеспечивать начальника и инспекторов информацией о гражданах Российской Федерации, проживающих в городе Екатеринбурге, и выданным им паспортах. Информационная система должна содержать базу данных, в которой хранятся все необходимые для сотрудников службы данные.

 Требования к разрабатываемой ИС:

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

– В ИС должна быть предусмотрена генерация  необходимых текущих, отчетных, аналитических
и др. документов.

–ИС должна обладать удобным и простым для неквалифицированных пользователей  интерфейсом и справочной системой.

ПОСТАНОВКА ЗАДАЧИ

1. Провести анализ предметной области, выделить категории пользователей и собрать их информационные требования.

2. Спроектировать логическую модель данных для РБД.

3. Реализовать проект средствами СУБД Microsoft Access 2007.

4. Спроектировать и реализовать необходимые запросы.

5. Сгенерировать необходимые отчеты и документы.

6. Реализовать простой и удобный пользовательский интерфейс.

Прописываем процедуру в TDmWord (TDataModule):
procedure TDmWord.ReportToWord;
var
WordApp, doc:Variant;
NewTemplate:boolean;
Doctemplate:string;
begin
try
WordApp := CreateOleObject(\'Word.Application\');
except
begin
ShowMessage(\'Не могу запустить Microsoft Word\');
Exit;
end;
end;
DocTemplate:=ExtractFilePath(Application.ExeName)+
\'report.dot\';
NewTemplate:=False;
WordApp.Documents.Add(DocTemplate, NewTemplate);
WordApp.Selection.GoTo(-1, unAssigned, unAssigned, \'fiogr\');
WordApp.Selection.TypeText(DM.tGragdansGFio.AsString);
WordApp.Selection.GoTo(-1, unAssigned, unAssigned, \'adresgr\');
WordApp.Selection.TypeText(DM.tGragdansGadres.AsString);
WordApp.Selection.GoTo(-1, unAssigned, unAssigned, \'phonegr\');
WordApp.Selection.TypeText(DM.tGragdansGphone.AsString);
WordApp.Selection.GoTo(-1, unAssigned, unAssigned, \'datagr\');
WordApp.Selection.TypeText(DM.tGragdansGdata.AsString);
WordApp.Selection.GoTo(-1, unAssigned, unAssigned, \'polgr\');
WordApp.Selection.TypeText(DM.tGragdansGpol.AsString);
WordApp.Selection.GoTo(-1, unAssigned, unAssigned, \'typepass\');
WordApp.Selection.TypeText(DM.qtypesTType.AsString);
WordApp.Selection.GoTo(-1, unAssigned, unAssigned, \'seria\');
WordApp.Selection.TypeText(DM.tPasportsPseria.AsString);
WordApp.Selection.GoTo(-1, unAssigned, unAssigned, \'number\');
WordApp.Selection.TypeText(DM.tPasportsPnumber.AsString);
WordApp.Selection.GoTo(-1, unAssigned, unAssigned, \'datavyd\');
WordApp.Selection.TypeText(DM.tPasportsPdata.Asstring);
/// Сведения о сотруднике
WordApp.Selection.GoTo(-1, unAssigned, unAssigned, \'fiosotr\');
WordApp.Selection.TypeText(DM.qSotrudnikiSFIO.AsString);
WordApp.Selection.GoTo(-1, unAssigned, unAssigned, \'dolg\');
WordApp.Selection.TypeText(DM.qSotrudnikiSdolg.AsString);
WordApp.Selection.GoTo(-1, unAssigned, unAssigned, \'phonesotr\');
WordApp.Selection.TypeText(DM.qSotrudnikiSphone.AsString);
WordApp.Selection.GoTo(-1, unAssigned, unAssigned, \'adressotr\');
WordApp.Selection.TypeText(DM.qSotrudnikiSAdres.AsString);
WordApp.Selection.GoTo(-1, unAssigned, unAssigned, \'tabnumber\');
WordApp.Selection.TypeText(DM.qSotrudnikiSid.AsString);
/// сведения о подразделении ПВС
WordApp.Selection.GoTo(-1, unAssigned, unAssigned, \'kodpvs\');
WordApp.Selection.TypeText(DM.qForceFid.AsString);
WordApp.Selection.GoTo(-1, unAssigned, unAssigned, \'namepvs\');
WordApp.Selection.TypeText(DM.qForceFname.AsString);
WordApp.Selection.GoTo(-1, unAssigned, unAssigned, \'Nash\');
WordApp.Selection.TypeText(DM.qForceFdirector.AsString);
WordApp.Selection.GoTo(-1, unAssigned, unAssigned, \'phonepvs\');
WordApp.Selection.TypeText(DM.qForceFphone.AsString);
WordApp.Visible:=true;
ShowMessage(\'Документ сформирован. Перейдите в окно программы MS Word.\');
WordApp := Unassigned;
Doc := Unassigned;
end;