68
где Т
0
– трудовые затраты на обработку информации по базовому
варианту; Т
1
– трудовые затраты на обработку информации по предлагаемому
варианту;
коэффициент относительного снижения трудовых затрат:
%100
0
T
T
K
T
,
(2)
индекс снижения трудовых затрат или повышение производительности
труда:
1
0
T
T
Y
T
,
(3)
Для стоимостных затрат:
абсолютное снижение стоимостных затрат:
10
CCC
,
(4)
где С
0
– стоимостные затраты на обработку информации по базовому
варианту; С
1
– стоимостные затраты на обработку информации по
предлагаемому варианту.
коэффициент относительного снижения трудовых затрат:
%100
0
C
C
K
C
,
(5)
индекс снижения трудовых затрат или повышение производительности
труда:
1
0
C
C
Y
C
,
(6)
В заключении необходимо рассчитать срок окупаемости проекта по
следующей формуле:
C
K
T
П
OK
.
,
(7)
3.2 Расчёт показателей экономической эффективности проекта
69
На основании представленных в предыдущем пункте формул можно
произвести следующие расчеты.
Для начала приведем сводную таблицу показателей (табл. 3.1).
Таблица 3.1
Сводная таблица показателей эффективности
Показатели
Существует
Планируется
достигнуть
Количество заявок обработанных
ошибочно за месяц
15
0
Время на регистрацию одной заявки
(без обработки) ручным способом
5 минут
1 минута
Количество оформляемых и
обрабатываемых заявок в день
20
50
Рассчитаем плановый и текущий показатели:
Т
0
= 22 дня * 11 мес * ((20 шт * 5мин)/ 3 чел) = 8066,67
Т
1
= 22 дня * 11 мес * ((50зявок*1мин)/ 3 чел)= 4033,33
Теперь рассчитаем абсолютное снижение затрат:
Т = 8066,67 – 4033,33 = 4033,34
Далее рассчитаем общий индекс снижения трудовых затрат:
Y
Т
= =8066,67 / 4033,33 = 2
Данный индекс показывает, что показатели трудовых затрат, были в 2 раза
улучшены при автоматизации задачи учета продаж.
В диспетчерской и ремонтной службе в обработке заявок на ремонт
техники задействованы три сотрудника. При таком коэффициенте снижения
затрат за счет проекта автоматизации задачи, возможно сократить штат
сотрудников до двух человек. Заработная плата сотрудника службы составляет
20000 рублей в месяц. Таким образом, можно получить стоимостные показатели
затрат на обработку информации по данной операции:
70
C
0
= 12 * 3 * 20000 рублей = 720000 рублей в год;
C
1
= 12 * 2 * 20000 рублей = 480000 рублей в год.
Теперь рассчитаем абсолютное снижение стоимостных затрат:
С = 720000 рублей – 480000 рублей = 240000 рублей в год.
Далее рассчитаем общий индекс снижения стоимостных затрат.
Y
С
= 720000 / 480000 = 1,5
Общие затраты на проект составляют: стоимость работы программиста в
течении 2-х месяцев составляет около 50000 тысяч рублей с учетом отработки 40
часов в неделю. Затрат на дополнительное техническое оснащение не
предусмотрено. Следовательно, К
п
= 50000 руб.
Т
ок
= 50000 рублей / 480000 рублей = 0,21 года
Данный показатель говорит о том, что минимум через 0,21 года проект
автоматизации задачи окупится полностью.
71
ЗАКЛЮЧЕНИЕ
В результате проделанной работы была спроектирована информационная
система, которая позволяет автоматизировать процесс обработки заявок на
ремонт техники на ООО «ВЕКТОР Транс» .
Внедрение ИС обеспечивает повышение эффективности работы и
взаимодействия диспетчерской и ремонтной служб. Решен вопрос единого
источника хранения данных. Также упрощается процесс дальнейшего
составления заявки, т.к. практически все графы заполняются автоматически. Это
значительно экономит время, поскольку специалисту диспетчерской службы не
нужно делать лишнюю работу – вводить данные вручную.
Благодаря разработанной ИС можно автоматически сформировать реестр
заявок по дням, и, следовательно, отследить данные по всем прошедшим
ремонтам.
Кроме того, на основании реестра заявок можно сформировать различные
отчеты и проследить статистку ремонтов по клиентам, по дням и др.
В целом, разработанная ИС значительно упростит работу сотрудников
Компании, сэкономит их время, уменьшит вероятность ошибок, а, следовательно,
повысит эффективность рабочего процесса.
Таким образом, цель выпускной квалификационной работы можно считать
достигнутой, а поставленные задачи – решенными.
72
СПИСОК ЛИТЕРАТУРЫ
11. Баркер Ск. Использование Microsoft Access. – М.: Диалектика, 2012.
12. Вендров А.М. CASE-технологии. Современные методы и средства
проектирования информационных систем. М.: Финансы и статистика,
2012.
13. Вендров А.М. CASE-технологии. Проектирование программного
обеспечения информационных систем. М.: Финансы и статистика, 2012.
14. Глушаков, С.В. Базы данных: учебный курс /С.В. Глушаков, Д.В.
Ломотько.- Харьков: Фолио, 2012.
15. Гончаров А.Ю. Access 2013: самоучитель с примерами. – М.: КУДИЦ-
ОБРАЗ, 2014.
16. Заботина Н.Н. Проектирование информационных систем: Учебное
пособие / Заботина Н.Н. – Братск: Филиал ГОУВПО «БГУЭП», 2017. –
Ч.1.
17. Заботина Н.Н. Проектирование информационных систем: Учебное
пособие / Заботина Н.Н. – Братск: Филиал ГОУВПО «БГУЭП», 2017. –
Ч.2.
18. Золотова С.И. Практикум по Access. – М.: Финансы и статистика, 2013.
19. Карпова Т.С. Базы данных: модели, разработка, реализация: учеб. пособие
/ Т.С. Карпова. – СПб.: Питер, 2012.
20. Советов, Б.Я. Информационные технологии: Учеб. для вузов /
Б.Я.Советов, В.В.Цехановский. – М.: Высшая школа, 2015.
21. Бабич А.В. Введение в UML. Учебный курс. Internet-университет
Информационных технологий (ИНТУИТ) // Режим доступа:
http://www.intuit.ru/department/se/intuml/ (Дата входа 20.02.2018г.)
22. Грекул. В.И. Проектирование информационных систем. Учебный курс.
Internet-университет Информационных технологий (ИНТУИТ) // Режим
доступа: www.intuit.ru. // Режим доступа:
http://www.intuit.ru/department/se/devis/ (Дата входа 18.02.2018г.)
73
23. Информация и информационные процессы в экономике. [Электронный
ресурс]. // Режим доступа: http://www.center-
yf.ru/data/economy/Informaciya-i-informacionnye-processy-v-
ekonomike.php#8 (Дата входа 10.02.2018г.)
24. Лекция 8: Обзор CASE-средств для построения диаграмм UML.
[Электронный ресурс]. // Режим доступа:
http://www.intuit.ru/studies/courses/1007/229/lecture/5963?page=3 (Дата
входа 15.02.2018г.)
Приложение 1Приложение 2
unit Unit1;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
DataModule5.Q_IN.Close;
DataModule5.Q_IN.Active := False;
DataModule5.Q_IN.Parameters.ParamByName('ID').Value := Edit1.Text;
DataModule5.Q_IN.Open;
DataModule5.Q_IN.Active := True;
if DataModule5.Q_IN.FieldByName('Пароль').AsString = Edit2.Text then
begin
Form2.ShowModal;
Form1.Hide;
end
else
ShowMessage('Неправильный пользователь и/или пароль. Повторите
попытку');
end;
unit Unit2;
74
procedure TForm2.N10Click(Sender: TObject);
begin
DataModule5.T_ZAYAVKA.Active := True;
Form10.ShowModal;
end;
procedure TForm2.N12Click(Sender: TObject);
var
xlsApp, xlsBook, xlsSheet: Variant;
RowCount, NumRow, NumCol: Integer;
begin
try
//создаем объект Excel
xlsApp := CreateOleObject('Excel.Application');
except
ShowMessage('Возможно не установлен MS Excel.');
Exit;
end;
xlsApp.Visible := True;
xlsApp.DisplayAlerts := False;
try
xlsBook := xlsApp.Workbooks.Open('C:\Temp\ИС ОБРАБОТКА
ЗАЯВОК\docs\Список заявок на ремонт техники');
xlsSheet := xlsBook.Worksheets.Item[1];
DataModule5.T_SP_Z.First;
while not DataModule5.T_SP_Z.Eof do
begin
xlsSheet.Cells[DataModule5.T_SP_Z.RecNo+1,1] :=
IntToStr(DataModule5.T_SP_Z.FieldByName('Номер заявки').AsInteger);
xlsSheet.Cells[DataModule5.T_SP_Z.RecNo+1,2] :=
DateTimeToStr(DataModule5.T_SP_Z.FieldByName('Дата заявки').AsDateTime);
75
xlsSheet.Cells[DataModule5.T_SP_Z.RecNo+1,3] :=
DataModule5.T_SP_Z.FieldByName('ФИО клиента').AsString;
xlsSheet.Cells[DataModule5.T_SP_Z.RecNo+1,4] :=
DataModule5.T_SP_Z.FieldByName('Телефон').AsString;
xlsSheet.Cells[DataModule5.T_SP_Z.RecNo+1,5] :=
DataModule5.T_SP_Z.FieldByName('Название оборудования').AsString;
xlsSheet.Cells[DataModule5.T_SP_Z.RecNo+1,6] :=
DataModule5.T_SP_Z.FieldByName('Название неисправности').AsString;
xlsSheet.Cells[DataModule5.T_SP_Z.RecNo+1,7] :=
DateTimeToStr(DataModule5.T_SP_Z.FieldByName('Плановая дата
ремонта').AsDateTime);
DataModule5.T_SP_Z.Next;
end;
except
ShowMessage('Невозможно открыть файл.');
end;
xlsSheet := xlsBook.Worksheets.Item[1];
end;
procedure TForm2.N13Click(Sender: TObject);
var
xlsApp, xlsBook, xlsSheet: Variant;
RowCount, NumRow, NumCol: Integer;
begin
try
//создаем объект Excel
xlsApp := CreateOleObject('Excel.Application');
except
ShowMessage('Возможно не установлен MS Excel.');
Exit;
end;
xlsApp.Visible := True;
76
xlsApp.DisplayAlerts := False;
try
xlsBook := xlsApp.Workbooks.Open('C:\Temp\ИС ОБРАБОТКА
ЗАЯВОК\docs\Плановый график ремонтов');
xlsSheet := xlsBook.Worksheets.Item[1];
DataModule5.T_PLAN_R.First;
while not DataModule5.T_PLAN_R.Eof do
begin
xlsSheet.Cells[DataModule5.T_PLAN_R.RecNo+1,1] :=
IntToStr(DataModule5.T_PLAN_R.FieldByName('Номер заявки').AsInteger);
xlsSheet.Cells[DataModule5.T_PLAN_R.RecNo+1,2] :=
DateTimeToStr(DataModule5.T_PLAN_R.FieldByName('Дата
заявки').AsDateTime);
xlsSheet.Cells[DataModule5.T_PLAN_R.RecNo+1,3] :=
DataModule5.T_PLAN_R.FieldByName('ФИО клиента').AsString;
xlsSheet.Cells[DataModule5.T_PLAN_R.RecNo+1,4] :=
DataModule5.T_PLAN_R.FieldByName('Телефон').AsString;
xlsSheet.Cells[DataModule5.T_PLAN_R.RecNo+1,5] :=
DataModule5.T_PLAN_R.FieldByName('Название оборудования').AsString;
xlsSheet.Cells[DataModule5.T_PLAN_R.RecNo+1,6] :=
DataModule5.T_PLAN_R.FieldByName('Название неисправности').AsString;
xlsSheet.Cells[DataModule5.T_PLAN_R.RecNo+1,7] :=
DateTimeToStr(DataModule5.T_PLAN_R.FieldByName('Плановая дата
ремонта').AsDateTime);
DataModule5.T_PLAN_R.Next;
end;
except
ShowMessage('Невозможно открыть файл.');
end;
xlsSheet := xlsBook.Worksheets.Item[1];
end;
77
procedure TForm2.N3Click(Sender: TObject);
begin
DataModule5.T_CLIENT.Active := True;
Form8.ShowModal;
end;
procedure TForm2.N4Click(Sender: TObject);
begin
Close;
Form1.Close;
end;
procedure TForm2.N5Click(Sender: TObject);
begin
DataModule5.T_SPR_VIDW.Active := True;
DataModule5.T_SPR_VIDW.Active := True;
Form3.ShowModal;
end;
procedure TForm2.N6Click(Sender: TObject);
begin
DataModule5.T_SPR_TIPO.Active := True;
Form6.ShowModal;
end;
procedure TForm2.N7Click(Sender: TObject);
begin
DataModule5.T_SPR_NEISPR.Active := True;
Form4.ShowModal;
end;
procedure TForm2.N8Click(Sender: TObject);
begin
DataModule5.T_SPR_OBOR.Active := True;
Form7.ShowModal;
end;