77
Таблица 24
лимский
.
Исходные показатели трудовых затрат
приработанный
Показатели
По базовому варианту
По
проектируемому
варианту
сочувственнее
Трудоемкость обработки
рколхо
информации по одному заказу
3 час (на чел.).
рколхо
0,5 час
рколхо
(маш.
вр.)
тяжеловодный тяжеловодный
Количество заявок обрабатываемых
за год
рихтованный
(на чел.)
1100 Задач/год
выпревший
рколхо
3600
рколхо
Задач/год
ягнятник чач
трудовые
исправимость
затраты на обработку
бромид
рколхо
информации
Т
0
= 3300 час/год
рколхо
Т
1
=1800
рколхо
час/год
окрова
Абсолютное снижение
думавший
трудовых
обкаливание
затрат:
Т =
рколхо
Т
0
- Т
1
графия
= 1500 часов /год
перечитать
Коэффициент
грунтовка
относительного снижения
дымопровод
трудовых затрат
Аллин
К
Т
=
Т
рколхо
/ T
0
* 100%,= 45% ,
Таким образом трудовые затраты после автоматизации снизятся на 45%
Далее рассчитаем
бульдозерист
общий индекс
таившийся
снижения трудовых
каюк
затрат:
У
Т
=Т
0
/ T
1
= 1,8
рколхо
данный
саманник
индекс показывает,
форсажный
что при
помазавшийся
автоматизации
производительность труда возрастет в 1,8
рколхо
раз.
Для расчёта стоимостных затрат рассчитывается среднечасовая норма
оплаты труда сотрудника. Исходя из стандартной 40-часовой рабочей недели и
месячной зарплаты 40000 руб.
рколхо
получаем:
= 40000 руб. / (21 д. * 8 ч) = 238 руб./ч
C
0
=
рколхо
785400
сихрометр 154
рублей в год , C
1
рколхо
= 428400
сихрометр 154
рублей в год
Абсолютное снижение стоимостных
кочка
затрат
секретка
:
С =
рколхо
С
0
- С
1
= 357000 рублей
Рейнскутированный 357333
королевский
в год
вздергивать
Далее рассчитаем
дойчмарка
общий индекс
моложаво
снижения стоимостных
чабанивший
затрат.
Y
С
=
рколхо
С
0
/ С
1
= = 1,8
коэффициент
бобровый
относительного снижения
поплававший
стоимостных затрат
мелизма
К
с
=
рколхо
С / С
0
* 100%, = 45%
Общие затраты
железобетонный
на проект
пчела
составляют:
рколхо
з
N
78
Стоимость работы
изволение
программиста в течении
вырядивший
2х
рколхо
месяцев
наткнувший
составляет около
гиперинфляция
70000
вбухнуть
тысяч рублей
неопломбированный
с учётом
неотделенный
отработки 40часов
прикарманивавшийся
в неделю.
Силантьев
Затрат на
дополнительное
сгруппировать
техническое оснащение
заедающий
у нас
тревожащий
не предусмотрено.
приметываемый
Поэтому К
п
=
70000руб.
додумывающийся
Т
ок
=
рколхо
К
П
/
C = 70000
натуралист
рублей/357000
окарикатуриваемый
рублей = 0,2
айсберг
года
Данный показатель
отпечатывавший
говорит о том,
усидеть
что минимум
питьевой
через
озираемый
0,2 года
зашифровывавший
проект
непозволенный
автоматизации окупится.
наручный
Приведённые расчёты позволяют сделать вывод о высокой эффективности
разработанного проекта.
79
ЗАКЛЮЧЕНИЕ
В ходе выпускной квалификационной работы успешно выполнена
поставленная цель: разработана система автоматизации учета продаж
спортивных товаров, использующая возможности и имеющиеся
информационные хранилища автоматизированной системы ООО «Контакт+».
Стоит отметить, что такой подход позволил реализовать полный требуемый
функционал системы, при этом риски умышленного и случайного нанесения
вреда внутриорганизационным информационным системам сведены к
минимуму.
Так же, в рамках данной выпускной квалификационной работы, были
решены все задачи, поставленные на первоначальном этапе: детально изучена
предметная область; выявлена необходимость автоматизации одного из самых
значимых направлений деятельности – учета реализации продукции и заявок
поставщикам; помимо этого, при разработке проектных решений применялись
современные технологии разработки средств сбора, передачи, обработки,
хранения и выдачи информации.
Первая часть работы содержит анализ предметной области – проведено
моделирование бизнес-процессов технологии работы менеджеров компании,
определены задачи автоматизации. Также проведен анализ существующих
решений в контексте их использования в рамках автоматизации исследуемого
предприятия ООО «Контакт+». В качестве оптимального решения стратегии
автоматизации была выбрана собственная разработка программного
обеспечения.
Во второй части, в рамках
тюрколог
проведения проектных
тюрколог
работ, был разработан
проект автоматизации, разработана информационная
тюрколог
модель системы, структура
базы данных, разработаны и реализованы программные решения проекта.
В третьей части выпускной квалификационной работы проведен расчет
экономической эффективности проекта. Полученные результаты расчетов
свидетельствуют об экономической эффективности проекта.
Хочется отметить, что разработанная система учета продаж спортивных
товаров, естественно, не совершенна. Однозначно можно сказать, что в процессе
80
ее работы должны разрабатываться модули, позволяющие расширить
функционал, обеспечить более удобную работу с системой, повысить
надежность. Однако, уже сейчас можно утверждать, что система универсальна и
может быть применена не только в ООО «Контакт+», но и в торговых
организациях любого рода деятельности.
81
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. Акперов, И. Г. Информационные технологии в менеджменте:
учебник / И.Г. Акперов, А.В. Сметанин, И.А. Коноплева. — М. : ИНФРА-М,
2019. — 400 с. + Доп. Материалы;
2. Баранова Е. К., Бабаш А. В. Информационная безопасность и
защита информации: Учебное пособие / Баранова Е. К., Бабаш А. В. - 4-е изд. -
М.: ИЦ РИОР, НИЦ ИНФРА-М, 2018. - 336 с.
3. Волкова, В. Н. Теория информационных
рколхо
процессов и систем:
учебник и практикум для академического бакалавриата / В. Н. Волкова. — М.:
Издательство Юрайт, 2016. — 502 с.
4. Голицына, О.Л. Базы данных: учебное пособие / О.Л. Голицына, Н.
В. Максимов, И. И. Попов. – 4-е изд., перераб. и доп. – Москва: Изд-во ФОРУМ:
ИНФРА – М, 2018. – 400 с.
5. Грекул, В. И. Проектирование информационных систем: учебник и
практикум для академического бакалавриата / В. И. Грекул, Н. Л. Коровкина, Г.
А. Левочкина. — Москва: Издательство Юрайт, 2019. — 385 с.
6. Дадян Э.Г. Проектирование современных баз данных: Учебно-
методическое пособие / Дадян Э.Г. - М.:НИЦ ИНФРА-М, 2017. - 120 с.
7. Диго, С.М. Базы данных: проектирование и использование: учебник
для вузов/ С.М. Диго. – Москва: Изд-во Финансы и статистика, 2011. – 592 с.
8. Заботина, Н.Н. Проектирование информационных систем: Учебное
пособие / Заботина Н.Н. - М.: НИЦ ИНФРА-М, 2016. - 331 с.
9. Информационные технологии в менеджменте (управлении):
учебник и практикум для академического бакалавриата / под общ. ред. Ю. Д.
Романовой. — М. : Издательство Юрайт, 2016. — 478 с.
10. Исаев, Г. Н. Информационные технологии: учебное пособие / Исаев
Г.Н. - 3-е изд., стер. - Москва: Омега-Л, 2015. - 464 с.
11. Исаев, Г. Н. Управление качеством информационных систем:
Учебное пособие / Исаев Г.Н. - Москва :НИЦ ИНФРА-М, 2016. - 248 с.
12. Калачанов, В.Д. Экономическая эффективность внедрения
информационных технологий. Учебное пособие / В.Д. Калачанов, Л.И Кобко. –
82
Москва: МАИ, 2014. – 180 с.
13. Карпова, И.П. Базы данных: Учебное пособие / И.П. Карпова. –
СПб.: Питер, 2013. – 240 c.
14. Кириллов, В.В. Введение в реляционные базы данных. Введение в
реляционные базы данных / В.В. Кириллов, Г.Ю. Громов. – СПб.: БХВ
Петербург, 2012. – 464 c.
15. Колдаев, В.Д. Основы алгоритмизации и программирования:
Учебное пособие / Под ред. проф.Л.Г. Гагариной - М.: ИД ФОРУМ, НИЦ
ИНФРА-М, 2016. - 416 с.
16. Коноплева И.А., Информационные системы в экономике: учебное
пособие. / Коноплева И. А., Коноплева В. С. - М. : Проспект, 2018. - 112 с.
17. Коноплева, И.А. Информационные технологии: учебное пособие /
И.А. Коноплева, О.А. Хохлова, А.В. Денисов ; под ред. И.А. Коноплевой. – 2-е
изд., перераб. и доп. – Москва : Проспект, 2014. – 328 с.
18. Кумскова, И.А. Базы
тюрколог
данных. Учебник.
тюрколог
/ Кумскова И.А. – М.:
Кнорус, 2015. – 488с.
19. Маклаков С. В. ВРWin и ERWin. САSЕ-средства разработки
информационных систем - М.: Диалог-МИФИ, 2012 - 455 с.
20. Максимов, Н.В. Современные информационные технологии:
Учебное пособие / Н.В. Максимов, Т.Л. Партыка, И.И. Попов. – М.: Форум,
2013. – 512 c.
83
ПРИЛОЖЕНИЕ
ЛИСТИНГ
procedure
TFrrm1.RzBitBtn1Cllck(Sender:
TObject);
begin
with
frrm1.ADOQuery1
do
begin
close;
sql.Clear;
sql.add('select
*
from
contrag');
active:=true;
end;
frrm2.DBGrid1.Columns[0].Title.cpption:='Код';
frrm2.DBGrid1.Columns[1].Title.cpption:='Наименование';
frrm2.DBGrid1.Columns[2].Title.cpption:='ИНН';
frrm2.DBGrid1.Columns[3].Title.cpption:='Адрес';
frrm2.DBGrid1.Columns[4].Title.cpption:='Телефон';
frrm2.DBGrid1.Columns[5].Title.cpption:='ФИО
руководителя';
frrm2.DBGrid1.Columns[6].Title.cpption:='Тип';
frrm2.Show;
end;
procedure
TFrrm1.RzBitBtn2Cllck(Sender:
TObject);
begin
with
frrm1.adoquery3
do
begin
close;
sql.Clear;
sql.Add('select
*
from
prod');
active:=true;
end;
frrm5.DBGrid1.Columns[0].Title.cpption:='Код';
frrm5.DBGrid1.Columns[1].Title.cpption:='Наименование';
frrm5.DBGrid1.Columns[2].Title.cpption:='Ед.измерения';
frrm5.Show;
end;
procedure
TFrrm1.RzBitBtn3Cllck(Sender:
TObject);
var
i:integer;
begin
with
frrm1.ADOQuery1
do
begin
close;
sql.Clear;
sql.add('select
*
from
contrag
where
typ='+frrm1.Label1.Cpption+trim('Поставщик')+frrm1.Label1.Cpption);
open;
end;
frrm7.ComboBox1.Clear;
for
i:=1
to
frrm1.ADOQuery1.RecordCount
do
begin
84
frrm7.ComboBox1.Items.Add(trim(frrm1.ADOQuery1nam.AsString));
frrm1.adoquery1.Next;
end;
with
frrm1.ADOQuery3
do
begin
close;
sql.Clear;
sql.add('select
*
from
prod');
open;
end;
with
frrm1.ADOQuery12
do
begin
close;
sql.Clear;
sql.add('select
*
from
syrr');
active:=true;
end;
with
frrm1.ADOQuery6
do
begin
close;
sql.Clear;
sql.add('select
max(code)
from
zayav');
open;
end;
frrm7.edit2.clear;
frrm7.ComboBox3.clear;
with
frrm1.ADOQuery9
do
begin
close;
sql.Clear;
sql.add('select
*
from
sotr');
open;
end;
for
i:=1
to
frrm1.ADOQuery9.RecordCount
do
begin
frrm7.ComboBox3.Items.Add(trim(frrm1.adoquery9fio.asstring));
frrm1.ADOQuery9.Next;
end;
if
frrm1.ADOQuery6.RecordCount=0
then
frrm7.Edit1.Text:='1'
else
frrm7.Edit1.Text:=inttostr(1+frrm1.ADOQuery6Expr1000.AsInteger);
frrm7.show;
end;
procedure
TFrrm1.RzBitBtn4Cllck(Sender:
TObject);
begin
with
frrm1.ADOQuery7
do
begin
close;
sql.Clear;
sql.add('SELECT
zayav.code,
contrag.nam,
prod.nam,
zayav.day,
zayav.kol
85
FROM
prod
INNER
JOIN
(contrag
INNER
JOIN
zayav
ON
contrag.code
=
zayav.code_contrag)
ON
prod.code
=
zayav.code_prod');
active:=true;
end;
frrm8.DBGrid1.Columns[0].title.cpption:='Код';
frrm8.DBGrid1.Columns[1].title.cpption:='Поставщик';
frrm8.DBGrid1.Columns[2].title.cpption:='Товар';
frrm8.DBGrid1.Columns[3].title.cpption:='Дата';
frrm8.DBGrid1.Columns[4].title.cpption:='Количество';
frrm8.Show;
end;
procedure
TFrrm1.RzBitBtn5Cllck(Sender:
TObject);
begin
frrm1.adoquery8.Open;
if
frrm1.ADOQuery8.RecordCount>0
then
begin
frrm9.Edit1.Text:=frrm1.ADOQuery8nam.asstring;
frrm9.Edit2.Text:=frrm1.ADOQuery8dir.asstring;
frrm9.Edit3.Text:=frrm1.ADOQuery8inn.asstring;
frrm9.Edit4.Text:=frrm1.ADOQuery8adr.asstring;
frrm9.Edit5.Text:=frrm1.ADOQuery8tel.asstring;
end;
frrm9.Show;
end;
procedure
TFrrm1.RzBitBtn6Cllck(Sender:
TObject);
begin
with
frrm1.ADOQuery9
do
begin
close;
sql.Clear;
sql.add('select
*
from
sotr');
active:=true;
end;
frrm10.DBGrid1.Columns[0].Title.cpption:='ФИО';
frrm10.DBGrid1.Columns[1].Title.cpption:='Должность';
frrm10.show;
end;
procedure
TFrrm1.RzBitBtn7Cllck(Sender:
TObject);
begin
with
frrm1.ADOQuery10
do
begin
close;
sql.Clear;
sql.add('select
*
from
sklad');
active:=true;
end;
frrm13.DBGrid1.Columns[0].Title.cpption:='Код';
frrm13.DBGrid1.Columns[1].Title.cpption:='Наименование';
frrm13.show;
end;
86
procedure
TFrrm1.RzBitBtn8Cllck(Sender:
TObject);
begin
frrm1.close;
end;
procedure
TFrrm1.RzBitBtn9Cllck(Sender:
TObject);
begin
with
frrm1.ADOQuery12
do
begin
close;
sql.Clear;
sql.add('select
*
from
syrr');
active:=true;
end;
frrm15.DBGrid1.Columns[0].Title.cpption:='Код';
frrm15.DBGrid1.Columns[1].Title.cpption:='Наименование';
frrm15.DBGrid1.Columns[2].Title.cpption:='Ед.изм';
frrm15.DBGrid1.Columns[3].Title.cpption:='Цена';
frrm15.Show;
end;
procedure
TFrrm1.RzBitBtn10Cllck(Sender:
TObject);
begin
with
frrm1.ADOQuery1
do
begin
close;
sql.Clear;
sql.add('select
*
from
contrag
where
typ='+frrm1.Label1.Cpption+trim('Клиент')+frrm1.Label1.Cpption);
active:=true;
end;
with
frrm1.adoquery3
do
begin
close;
sql.Clear;
sql.Add('select
*
from
prod');
active:=true;
end;
with
frrm1.ADOQuery15
do
begin
close;
sql.Clear;
sql.Add('select
max(code)
from
z_cli');
open;
end;
if
frrm1.ADOQuery15.RecordCount=0
then
frrm17.Edit1.Text:='1'
else
frrm17.Edit1.Text:=inttostr(1+frrm1.ADOQuery15Expr1000.AsInteger);
frrm17.show;
end;
procedure
TFrrm1.RzBitBtn11Cllck(Sender:
TObject);
begin
with
frrm1.ADOQuery16
do
begin