Абсолютный показатель снижения трудовых затрат на обработку
информации:
Т=2882,13 -623,73=2258 часов в год
Коэффициент снижения трудовых затрат
K
т
=(2258 /2882)*100%=78,44 %
Индекс снижения трудовых затрат или повышение производительности
труда (YT):
Y
T
=2882/623=4,62
Показатель снижения стоимостных затрат
С=428888,06 - 92816,66=336071,41 рублей в год
Коэффициент эффективности по затратам:
K
c
=(336071/428888)*100%=78 %
Срок окупаемости затрат на внедрение проекта машинной обработки
информации:
Т
ок
= 336071/152792=2 года.
Окупаемость затрат на внедрение проекта составляет около 24 месяцев.
На рис. 36 приведена диаграмма сравнения базового и проектного
вариантов трудовых затрат, на рис. 37 – стоимостных затрат.
Рисунок 36 Диаграмма сравнения базового и проектного варианта
трудовых затрат обработки информации.
2882,13
623,73
2258,40
0,00
500,00
1000,00
1500,00
2000,00
2500,00
3000,00
3500,00
Базовый вариант
Проектный вариант
Снижение затрат
часов
108
Рисунок 37 Диаграмма сравнения базового и проектного варианта
стоимостных затрат обработки информации.
428888,06
92816,66
336071,41
0,00
50000,00
100000,00
150000,00
200000,00
250000,00
300000,00
350000,00
400000,00
450000,00
500000,00
Базовый вариант
Проектный вариант
Снижение затрат
рублей
109
Заключение
В результате проведенной работы ясно, что основные задачи
дипломного проекта — анализ деятельности материально-ответственных лиц,
выявление существующих недостатков в текущей технологии учета ОС,
разработка ИС учета движения товарно-материальных ценностей, в
дипломной работе выполнены.
В ходе анализа деятельности предприятия было выяснено, что узким
местом является процесс учета движения основных средств. Было выяснено,
что в результате использования некорректных бизнес-процессов на
предприятии крайне неэффективно используется рабочее время сотрудников
предприятия.
При рассмотрении требований к техническому обеспечению стало ясно,
что добавления какого-либо аппаратного обеспечения в целях выполнения
автоматизируемой задачи в существующую информационную систему не
требуется.
Далее приведен примерный состав справочников и классификаторов
системы, а также, в ходе сравнения и анализа, выбраны язык
программирования и система управления базами данных.
При описании программного обеспечения задачи приведено дерево
функций системы, сценарий диалога пользователя и системы, дана
характеристика базы данных, в том числе показана ее ER-диаграмма и
приведено описание реквизитного состава каждой таблицы (наименование
поля, его тип и назначение), дано описание структурной схемы пакета и
программных модулей.
Разработанная ИС доступна пользователям с любым уровнем
подготовки, не требует специальных знаний для ее использования.
При реализации пользовательского интерфейса были выполнены общие
требования к дизайну и юзабилити (usability).
110
Использование разработанной информационной системы возможно на
любом предприятии, имеющим сходные бизнес-процессы, даже без ее
доработки или с минимальным объемом таковой.
Цели и задачи работы считаю выполненными.
111
Список использованных источников
1. Березин С.А., Березин Б.А., Начальный курс С и С++, М., Диалог-
МИФИ, 2017 г., 288 с.
2. Брайан У. Керниган, Деннис М. Ритчи, Язык программирования C,
М., Вильямс, 2017 г, 288 с.
3. Брайан У. Керниган, Роб Пайк, Практика программирования, М.,
Вильямс, 2017 г., 288 с.
4. Бунаков П.А., Лопатин А. В, Практикум по решению задач на
ЭВМ в среде Delphi. Учебное пособие, М., Инфра-М, 2018 г, 304 с.
5. Бэнкс, Порселло: React и Redux. Функциональная веб-разработка,
М. Питер, 2018 г., 336 с.
6. Васильев Р.А, Калянов Г.А., Левочкина Г.А., Стратегическое
управление информационными системами, М, Интернет-университет
информационных технологий, Бином. Лаборатория знаний, 2017 г, 512 с.
7. Вон Вернон, Реализация методов предметно-ориентированного
проектирования, М, Вильямс, 2017 г, 688 с.
8. Габасов Р.А., Кириллова Ф.А., Методы линейного
программирования. Часть Общие задачи, М., Либроком, 2018 г, 176 с.
9. Габасов Р.А., Кириллова Ф.А., Методы линейного
программирования. Часть 3. Специальные задачи, М., Либроком, 2018 г, 368 с.
10. Гольштейн Е.А., Юдин Д.А., Специальные направления в
линейном программировании, М, Красанд, Editorial URSS, 2018 г, 526 с.
11. Грацианова Т.А., Программирование в примерах и задачах, М.,
Лаборатория знаний, 2018 г, 368 с.
12. Данилин А.А., Слюсаренко А. В., Архитектура и стратегия. "Инь"
и "янь" информационных технологий, М, Интернет-университет
информационных технологий, 2017 г, 506 с.
13. Джеффри Рихтер, CLR via C#. Программирование на платформе
Microsoft.NET Framework 4.5 на языке C#, М., Питер, 2017 г, 896 с.
112
14. Джон Дакетт: Javascript и jQuery. Интерактивная веб-разработка,
М. Эксмо, 2017 г., 640 с.
15. Джон Скит, C# для профессионалов. Тонкости программирования,
М., Вильямс, 2017 г, 608 с.
16. Джоэл Грас, Data Science. Наука о данных с нуля, М, БХВ-
Петербург, 2018, 336 с.
17. Иванова Г.А., Технология программирования, М, КноРус, 2018 г,
336 с.
18. Исаев Г.А, Теоретико-методологические основы качества
информационных систем, М. Инфра-М, 2018 г. 258 с.
19. Ли Атчисон, Масштабирование приложений. Выращивание
сложных систем, М, Питер, 2018 г, 256 с.
20. Мартин Фаулер, Предметно-ориентированные языки
программирования, М., Вильямс, 2017 г, 576 с.
21. Окулов С.А., Пестов О.Г, Динамическое программирование, М.,
Бином. Лаборатория знаний, 2017 г, 296 с.
22. Панюкова Т.А. Панюков А.С., Языки и методы программирования.
Путеводитель по языку С++, М., Ленанд, 2018 г, 216 с.
23. Подбельский В.А, Курс программирования на языке Си, М.,
ДМК Пресс, 2018 г, 384 с.
24. Поль М. Дюваль, Стивен Матиас, Эндрю Гловер, Непрерывная
интеграция. Улучшение качества программного обеспечения и снижение
риска, М., Вильямс, 2017 г, 240 с.
25. Стенли Б. Липпман, Жози Лажойе, Заря Э. Му, Язык
программирования C++. Базовый курс, М, Вильямс, 2017 г, 1120 с.
26. Фредерик Брукс, Проектирование процесса проектирования.
Записки компьютерного эксперта, М., Вильямс, 2017 г, 464 с.
113
Приложение. Листинг программных модулей
unitAssetPrec;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxSkinsCore, dxSkinsDefaultPainters, cxStyles, cxGraphics,
cxEdit, cxDBLookupComboBox, cxCheckBox, Menus,
cxLookAndFeelPainters,
StdCtrls, cxButtons, cxVGrid, cxDBVGrid, cxControls, cxInplaceContainer,
cxLookAndFeels, cxDropDownEdit, cxSpinEdit, cxCurrencyEdit;
type
TfrmAssetPrec = class(TForm)
vgAssetPrec: TcxDBVerticalGrid;
btnYes: TcxButton;
btnNo: TcxButton;
vgAssetPrecPrecId: TcxDBEditorRow;
vgAssetPrecPiece: TcxDBEditorRow;
procedureFormShow(Sender: TObject);
procedurebtnNoClick(Sender: TObject);
procedurebtnYesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
114
frmAssetPrec: TfrmAssetPrec;
implementation
usesDataBase;
{$R *.dfm}
procedureTfrmAssetPrec.FormShow(Sender: TObject);
begin
iffrmAssetPrec.Tag=1 then
begin
DataInfo.qAssetPrec.Insert;
end
else
begin
DataInfo.qAssetPrec.Edit;
end;
end;
procedureTfrmAssetPrec.btnNoClick(Sender: TObject);
begin
DataInfo.qAssetPrec.Cancel;
frmAssetPrec.Close;
end;
procedureTfrmAssetPrec.btnYesClick(Sender: TObject);
begin
ifDataInfo.qAssetPrec.FieldByName('PrecId').isNull then
begin
115
MessageDlg('Укажитедрагметалл!',mtError,[mbOk],0);
Exit
end;
ifDataInfo.qAssetPrec.FieldByName('Piece').isNull then
begin
MessageDlg('Укажитемассудрагметалла!',mtError,[mbOk],0);
Exit
end;
DataInfo.qAssetPrec.FieldByName('AssetId').asInteger:=DataInfo.qListAsset
s.FieldByName('Id').asInteger;
DataInfo.qAssetPrec.Post;
frmAssetPrec.Close;
end;
end.
unit Storage;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxSkinsCore, dxSkinsDefaultPainters, cxStyles, cxGraphics,
cxEdit, cxDBLookupComboBox, cxCheckBox, Menus,
cxLookAndFeelPainters,
StdCtrls, cxButtons, cxVGrid, cxDBVGrid, cxControls, cxInplaceContainer,
cxLookAndFeels, cxDropDownEdit, cxSpinEdit;
type
TfrmStorage = class(TForm)
vgStorage: TcxDBVerticalGrid;
btnYes: TcxButton;
116
btnNo: TcxButton;
vgStorageUserId: TcxDBEditorRow;
vgStorageStorageName: TcxDBEditorRow;
vgStorageComment: TcxDBEditorRow;
procedureFormShow(Sender: TObject);
procedurebtnNoClick(Sender: TObject);
procedurebtnYesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmStorage: TfrmStorage;
implementation
usesDataBase;
{$R *.dfm}
procedureTfrmStorage.FormShow(Sender: TObject);
begin
iffrmStorage.Tag=1 then
begin
DataInfo.qListStorage.Insert;
end
else
begin
DataInfo.qListStorage.Edit;