74
капитала, обеспечившего внедрение мероприятий и получение
экономического эффекта.
Экономический эффект представляет собой чистый доход (прибыль), т.
е. цена минус себестоимость.
Эффективность капитальных затрат определяется сроком окупаемости
(Т) дополнительных капитальных затрат на разработку и внедрение ИС, в
соответствии с (7):
Т = 138910,65 /114989,61= 1,2 года
После получения всех необходимых расчетных показателей для
обеспечения наглядности были составлены графические диаграммы,
представленные на рисунках 27 (сравнительная диаграмма трудовых затрат)
и 28 (сравнительная диаграмма стоимостных затрат).
Рисунок 27 – Сравнительная диаграмма трудовых затрат
0
20
40
60
80
100
120
Базовый вариант Автоматизированный вариант Изменение
Трудозатраты, час (в мес)
75
Рисунок 28 – Сравнительная диаграмма стоимостных затрат
0
50000
100000
150000
200000
250000
300000
Базовый вариант Автоматизированный вариант Изменение
Стоимость, руб. (в год)
76
ЗАКЛЮЧЕНИЕ
В ходе проделанной работы были решены следующие задачи:
1) Была изучена деятельность ООО «Дубрава-Р», в ходе изучения была
исследована организационная структура управления компанией, а также его
программная и техническая архитектура.
2) Была исследована и проанализирована деятельность отдела по
работе с клиентами, которая связана с учетом аренды площадей клиентами
компании. В ходе исследования была построена структурно-функциональная
модель в нотации IDEF0. Основной недостаток – низкая производительность
труда сотрудников, связанная с использованием для учета арендуемых
площадей бумажной книги, на основе анализа был составлен перечень
недостатков и выделен комплекс задач для автоматизации.
3) Был проведен анализ существующих разработок решения
выявленных проблем и выбрана стратегия автоматизации задачи учета
аренды площадей в компании.
4) Были обоснованы проектные решения по информационному,
техническому и программному обеспечению. В качестве способа хранения
информации была выбрана реляционная база данных (СУБД – Micrsoft SQL
Server), языком программирования был выбран Delphi 7.
5) Был разработан проект автоматизации выделенного процесса. В
процессе разработки были выделены основные этапы жизненного цикла
проекта автоматизации, для каждого из которых обозначены цель, ключевые
участники, требования к входной информации и получаемые результаты,
также были описаны возможные риски реализации проекта и действия для
снижения вероятности возникновения рисков, а также возможные пути
устранения последствий.
6) Была составлена информационная модель, с помощью которой были
формализованы пути трансформации входной и нормативно-справочной
документации в результатную информацию.
77
7) Была реализована информационная система, для которой были
составлены дерево функций и сценарий диалога, схема базы данных,
структурная схема пакета, приведено описание программных модулей.
8) Было проведено тестирование работоспособности разработанной
информационной системы с помощью тестовых данных.
9) Была выбрана методика расчет экономической эффективности и
производен расчет в соответствии с выбранной методикой, срок окупаемости
проекта автоматизации составил чуть больше одного года (1,2 лет)
Таким образом, все задачи, поставленные перед данной выпускной
квалификационной работой, выполнены, а значит и основная цель по
созданию информационной системы для автоматизации учета аренды
площадей клиентами компании ООО «Дубрава-Р» выполнена.
Дальнейшее развитие разработанной информационной системы
возможно в сторону расширения функционала и улучшения внешнего
программы.
78
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1. ГОСТ 2.105 – 95. Общие требования к текстовым документам.
2. ГОСТ 7.32 – 2001. Отчет по научно-исследовательской работе.
Структура и правила оформления.
3. ГОСТ 7.82-2001. Библиографическое описание электронных
ресурсов.
4. ГОСТ 24.702-85 Эффективность автоматизированных систем
управления.
5. ГОСТ Р 7.0.5-2008. Библиографическая запись.
Библиографическое описание.
6. Агальцов В.П. Базы данных. В 2-х т. Т. 2. Распределенные и
удаленные базы данных: Учебник. М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013.
272 с.
7. Гагарина Л.Г. Разработка и эксплуатация автоматизированных
информационных систем: учебное пособие. М.: ИД «ФОРУМ»: ИНФРА-М,
2013. 384 с.
8. Горбаченко В.И., Убиенных Г.Ф. Бобрышева Г.В. Проектирование
информационных систем с СА Erwin Modeling Suite 7.3. Пенза: Изд-во ПГУ,
2012, 154 c.
9. Зуев Е.А. Программирование на языке Delphi 6.0,7.0. – М.: Радио и
связь, Веста, 2016. - 186 с.
10. Калмыков Ю.В. Учебно-методичское пособие по обучению
программированию на языке Delphi для школ, 2014. – 100 с.
11. Карпова И.П. Базы данных: Учебное пособие. – Спб.: Питер,
2013. – 240 с.
12. Кузин А.В., Левонисова С.В. Базы данных: Учебное пособие для
студ. высш. учеб. заведений. – М.: ИЦ Академия, 2012. – 320с.
13. Культин Никита – Основы программирования в Delphi, 2015 –
232 с.
79
14. Маклаков С. В. Моделирование бизнес-процессов с AllFusion
Process Modeler (BPwin 4.1) / С.В. Маклаков. – М. : ДИАЛОГ-МИФИ, 2013. –
340 c.
15. Маклаков С.В. Создание информационных систем с AllFusion
Modeling Suite / С.В. Маклаков. – М. : ДИАЛОГ-МИФИ, 2015. – 512 c.
16. Тельнова, Ю.Ф. Проектирование экономических
информационных систем: учеб. / под ред. Ю. Ф. Тельнова. М. : Горячая
линия, 2015 — 345 c.
17. Фуфаев Д.Э. Фуфаев Э.В. Разработка и эксплуатация
автоматизированных информационных систем: учебник для студ. М.:
Издательский центр «Академия», 2013. 304 с.
18. Шаньгин В.Ф. Информационная безопасность компьютерных
системы и сетей: Учебное пособие. М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013.
416 с.
80
ПРИЛОЖЕНИЯ
Приложение 1 Скрипт создания базы данных
CREATE TABLE Customer
(
id INTEGER NULL,
caption VARCHAR(20) NULL,
address VARCHAR(20) NULL,
phone VARCHAR(20) NULL,
fio VARCHAR(20) NULL,
inn VARCHAR(20) NULL,
kpp VARCHAR(20) NULL,
bank VARCHAR(20) NULL,
comment VARCHAR(20) NULL
)
;
ALTER TABLE Customer
ADD PRIMARY KEY (id)
;
CREATE TABLE rental
(
customerid INTEGER NOT NULL,
squareid INTEGER NOT NULL,
cretatedat DATE NULL,
dogovor VARCHAR(20) NULL,
srok INTEGER NULL,
userid INTEGER NULL
)
;
ALTER TABLE rental
ADD PRIMARY KEY (customerid,squareid)
;
CREATE TABLE role
(
id INTEGER NULL,
caption VARCHAR(20) NULL);
ALTER TABLE role
81
ADD PRIMARY KEY (id);
CREATE TABLE square
(
id INTEGER NULL,
caption VARCHAR(20) NULL,
size INTEGER NULL,
typeid INTEGER NULL,
comment VARCHAR(20) NULL);
ALTER TABLE square
ADD PRIMARY KEY (id);
CREATE TABLE typesquare
(
id INTEGER NULL,
caption VARCHAR(20) NULL,
comment VARCHAR(20) NULL
);
ALTER TABLE typesquare
ADD PRIMARY KEY (id);
CREATE TABLE user
(
id INTEGER NULL,
fio VARCHAR(20) NULL,
password VARCHAR(20) NULL,
phone VARCHAR(20) NULL,
roleid INTEGER NULL
);
ALTER TABLE user
ADD PRIMARY KEY (id);
82
Приложение 2 Исходный код программных модулей
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Frms,
Dialogs, Menus, DB, ADODB, StdCtrls, Buttons, Grids, DBGrids,
comobj,
ExtCtrls;
type
TFrm1 = class(TFrm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
ADOConnection1: TADOConnection;
DBGrid1: TDBGrid;
Label1: TLabel;
Edt1: TEdt;
BitBtn1: TBitBtn;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
DBGrid2: TDBGrid;
Label2: TLabel;
Edt2: TEdt;
BitBtn2: TBitBtn;
Adotbl1: TAdotbl;
Adotbl1Id: TAutoIncField;
Adotbl1FIO: TWideStringField;
Adotbl1Phone: TWideStringField;
Adotbl1Address: TWideStringField;
Adotbl1Passport: TWideStringField;
DataSource1: TDataSource;
DataSource2: TDataSource;
Adotbl2: TAdotbl;
Adotbl2id: TAutoIncField;
Adotbl2caption: TWideStringField;
Adotbl2path: TWideStringField;
PopupMenu1: TPopupMenu;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
PopupMenu2: TPopupMenu;
N8: TMenuItem;
ADOQuery1: TADOQuery;
N9: TMenuItem;
83
N10: TMenuItem;
BitBtn3: TBitBtn;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Panel7: TPanel;
produre N3Click(Send: TObject);
produre BitBtn1Click(Send: TObject);
produre BitBtn2Click(Send: TObject);
produre FrmShow(Send: TObject);
produre Edt1Change(Send: TObject);
produre N7Click(Send: TObject);
produre N8Click(Send: TObject);
produre N5Click(Send: TObject);
produre N6Click(Send: TObject);
produre N4Click(Send: TObject);
produre N2Click(Send: TObject);
produre FrmResize(Send: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm1: TFrm1;
implementation
uses shabl;
{$R *.dfm}
produre TFrm1.N3Click(Send: TObject);
begin
frm1.Close;
end;
produre TFrm1.BitBtn1Click(Send: TObject);
begin
Edt1.Clear;
Edt1.SetFocus;
end;
produre TFrm1.BitBtn2Click(Send: TObject);
begin
Edt2.Clear;
Edt2.SetFocus;