85
В ER модели показана непосредственная связь между таблицами,
установлены необходимые связи между элементами, показаны внешние и
первичные ключи каждой таблицы.
Во второй главе описаны также основные модули системы и определены
основные связи между ними, модульная реализация программы помогает
показывает взаимодействие с помощью ADO связей между базой данных и
программными модулями системы, основываясь на общем интерфейсе
программы для доступа к ним.
В третьей главе автор оценил экономический эффект от использования
системы. Срок окупаемости системы составил 8 месяцев, диаграмма же
демонстрирует влияние каждой из составляющих затрат на общие затраты по
реализации продукта.
В процессе работы над ИС автором была разработана БД, а также
выявлены ее достоинства и недостатки с помощью дополнительных разработок
ER моделей и описаны связи между ними.
Для разработки программного продукта был выбран язык
программирования Delphi, обладающей необходимой простотой реализации и
совместимостью с СУБД MS Access 2019.
Разработанная ИС соответствует всем необходимым требованиям
компании.
86
Список использованной литературы
1. Белл Ч., Киндал М., Талманн Л. Обеспечение высокой доступности
систем на основе MySQL/ Белл Ч.-СпБ. Русская редакция, БХВ-Петербург, 2012
-624 с.
2. Поль М. Дюваль, Стивен Матиас, Эндрю Гловер. Непрерывная
интеграция. Улучшение качества программного обеспечения и снижение риска/
Поль М. Дюваль, Стивен Матиас – М.Вильямс, 2020 – 240 с.
3. Прамодкумар Дж. Садаладж, Мартин Фаулер. NoSQL. Новая методология
разработки нереляционных баз данных/ Дмитрий Клюшин – М.Вильямс, 2020 -
192 с.
4. Бен Форта. Освой самостоятельно SQL за 10 минут/ В. Гинзбург –
М.Вильямс, 2020 -288 с.
5. К. Дж. Дэйт. Введение в системы баз данных/ К. Дж. Дэйт –
М.Вильямс.,2020 -1328 с.
6. Джефф Карпентер, Эбен Хьюитт/ А. Слинкин – М.ДМК Пресс, 2020 -400
с.
7. Дэви Силен, Арно Мейсман, Мохамед Али. Основы Data Science и Big
Data. Python и наука о данных/ Дэви Силен, Арно Мейсман – СПб. Питер, 2020
– 336 с.
8. Максим Бабенко, Михаил Левин. Введение в теорию алгоритмов и
структур данных/ Максим Бабенко, Михаил Левин – М. МЦНМО., 2020 – 144 с.
9. Томас Коннолли, Каролин Бегг. Базы данных. Проектирование,
реализация и сопровождение. Теория и практика./ Томас Коннолли, Каролин
Бегг – М. Вильямс, 2020 – 1440 с.
10. Джоэл Грас. Data Science. Наука о данных с нуля./ Андрей Логунов.-СПб.,
БХВ-Петербург,2020 – 336 с.
11. Скотт Амблер, Прамодкумар Дж. Садаладж. Рефакторинг баз данных.
Эволюционное проектирование/ Константин Птицын –М. Вильямс, 2019 -368 с.
87
12. Мартин Фаулер, Дейвид Райс, Мэттью Фоммел, Эдвард Хайет, Роберт
Ми, Рэнди Стаффорд. Шаблоны корпоративных приложений / Мэттью Фоммел,
Эдвард Хайет – М.Вильямс,2019 – 544 с.
13. Бабаш А., Баранова Е. Криптографические методы защиты информации /
А.Бабаш, Е.Баранова - М.: КноРус, 2020. - 192 c.
14. Валях Е. Последовательно-параллельные вычисления, - М.: Мир, 2018.
15. Васильев В. Интеллектуальные системы защиты информации. Учебное
пособие / В. Васильев. - М.: Инновационное машиностроение, 2020. - 202 c.
16. Васильков А., Васильков И. Безопасность и управление доступом в
информационных системах. Учебное пособие / А.Васильков. - М.: Форум
Инфра-М, 2020. - 368 c.
17. Внуков А. Защита информации. Учебное пособие/ А.Внуков. - М.: Юрайт,
2020. - 242 c.
18. Зверева В. Участие в планировании и организации работ по обеспечению
защиты объекта. Учебник/ В.Зверева. - М: Курс, 2020. - 320 c.
19. Кондратьев, А.В. Организация и содержание работ по выявлению и
оценке основных видов ТКУИ, защита информации от утечки: Справочное
пособие / А.В. Кондратьев. - М.: МАСКОМ, 2017. - 256 c.
20. Максименко, В.Н. Защита информации в сетях сотовой подвижной связи /
В.Н. Максименко. - М.: ГЛТ, 2020. - 360 c.
21. Максименко, В.Н. Защита информации в сетях сотовой подвижной связи /
В.Н. Максименко. - М.: Горячая линия -Телеком, 2020. - 34 c.
22. Максименко, В.Н. Защита информации в сетях сотовой подвижной связи.
/ В.Н. Максименко, В.В. Афанасьев, Н.В. Волков. - М.: Горячая линия -Телеком
, 2020. - 34 c.
23. Малюк, А.А. Защита информации в информационном обществе: Учебное
пособие для вузов / А.А. Малюк. - М.: ГЛТ, 2018. - 230 c.
24. Микаэлян А.Л. Оптические методы в информатике. - М.: Наука, 2017.
25. Некраха, А.В. Организация конфиденциального делопроизводства и
защита информации / А.В. Некраха. - М.: Академический проект, 2020. - 224 c.
88
26. Нестеров С. Информационная безопасность. Учебник и практикум /
С.Нестеров. - М.: Юрайт, 2020. - 322 c.
89
Приложение
unit Client;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TForm4 = class(TForm)
MainMenu1: TMainMenu;
Yfpfl1: TMenuItem;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
GroupBox1: TGroupBox;
Edit1: TEdit;
procedure Yfpfl1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
90
uses Main, Data;
{$R *.dfm}
procedure TForm4.Yfpfl1Click(Sender: TObject);
begin
Form4.Close;
end;
unit Data;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDataModule1 = class(TDataModule)
ADOConnection1: TADOConnection;
Tip: TADOTable;
Ed: TADOTable;
DTip: TDataSource;
DEd: TDataSource;
Dop_us: TADOTable;
Client: TADOTable;
DDop_us: TDataSource;
DClient: TDataSource;
Zakaz: TADOTable;
Zakaz_sostav: TADOTable;
DZakaz: TDataSource;
DZakaz_sostav: TDataSource;
91
Zakaz_uslug: TADOTable;
Reklama: TADOTable;
DZakaz_uslug: TDataSource;
DReklama: TDataSource;
Dop_usDSDesigner: TAutoIncField;
Dop_usDSDesigner2: TIntegerField;
Dop_usDSDesigner3: TWideStringField;
Dop_usDSDesigner4: TBCDField;
Dop_usRek: TStringField;
Reklama_: TAutoIncField;
Reklama_2: TIntegerField;
ReklamaDSDesigner: TWideStringField;
Reklama_3: TIntegerField;
Reklama__1: TBCDField;
ReklamaTip: TStringField;
ReklamaEd: TStringField;
Zakaz_: TAutoIncField;
ZakazDSDesigner: TIntegerField;
ZakazDSDesigner2: TDateTimeField;
ZakazZak: TStringField;
Zakaz_sostav__: TAutoIncField;
Zakaz_sostavDSDesigner: TIntegerField;
Zakaz_sostavDSDesigner2: TIntegerField;
Zakaz_sostavDSDesigner3: TIntegerField;
Zakaz_sostavRek: TStringField;
92
Zakaz_uslug__: TAutoIncField;
Zakaz_uslugDSDesigner: TIntegerField;
Zakaz_uslugDSDesigner2: TIntegerField;
Zakaz_uslugDSDesigner3: TIntegerField;
Zakaz_uslugUsluga: TStringField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule1: TDataModule1;
implementation
{$R *.dfm}
end.
unit Dop_us;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, Mask,
Buttons;
93
type
TForm5 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
DBGrid1: TDBGrid;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBNavigator1: TDBNavigator;
DBText1: TDBText;
DBText2: TDBText;
DBText3: TDBText;
DBText4: TDBText;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
GroupBox2: TGroupBox;
Label5: TLabel;
Label6: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Button1: TButton;
Button2: TButton;
94
procedure N1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Main, Data;
{$R *.dfm}
procedure TForm5.N1Click(Sender: TObject);
begin
Form5.Close;
end;
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
DataModule1.DDop_us.DataSet.Insert;