76
Накладные расходы при разработке:
FC
нр
= 0,5* (FC
мр
+ FC
эр
+1,3* FC
зп
)
FC
нр
=0,5*(30660+60,7+1,3*36432)= 39041,55 рубля
Общие затраты на разработку ИС представлены в таблице 18.
Таблица 18
Затраты на разработку ИС
№
п/
п
Статьи затрат
Условные
обозначе
ния
Сумма
затрат,
руб
1
Затраты на заработную плату разработчиков
FCзп
36432
2
Отчисления в Государственные внебюджетные
фонды от затрат на заработную плату
разработчиков
Hстр.в
10929,6
3
Затраты на материалы
FCмр
30660
4
Затраты на электроэнергию
FCэр
60,7
5
Амортизационные отчисления
FАt
0
6
Накладные расходы
FCнр
39041,55
Итого затрат на разработку
КР
117123,4
5
Затраты на внедрение ИС включают:
- затраты на приобретение дополнительного оборудования для
внедрения ИС, стоимостью более 40 тысяч рублей;
- затраты на приобретение дополнительных производственных
площадей для внедрения ИС, руб.;
- затраты на подготовку персонала для работы с ИС, руб.
Дополнительное оборудование для внедрения ИС, стоимость более 40
тыс. рублей не приобретается.
Для работы в ИС необходимо подготовить 2 сотрудников, стоимость
подготовки одного специалиста составляет 250 рублей. Таким образом, затраты
на подготовку персонала равны: FC
пп
= 2*250=500 рублей
Итоговые затраты на внедрение ИС представлены в таблице 19.
Таблица 19
Затраты на внедрение системы
№
Статьи затрат
Сумма,
руб.
1
Затраты на амортизируемое оборудование
0
77
2
Затраты на помещения
0
3
Затраты на подготовку персонала
500
Итого
500
Таким образом, затраты на разработку и внедрение информационной
системы составят:
К
=117123,45+ 500=117623,45 рублей
Таким образом, ежегодные амортизационные отчисления составят:
117623,45*25%=29405,86
Всего затраты после внедрения ИС в год составят:
С
п
= 7260+9600+114,72+29405,86= 46380,58 руб.
Расчёт значений стоимостных показателей:
Абсолютное снижение стоимостных затрат(∆С) в соответствии с (3.4):
∆С = 100200 - 46380,58 = 53819,42 руб.
Коэффициента относительного снижения стоимостных затрат (Кс) в
соответствии с (3.5):
К
с
=53819,42/100200*100%=53,7 %
Индекс изменения стоимостных затрат (Yc) в соответствии с (6):
Y
c
=100200/46380,58 =2,16
Определим экономическую эффективность от системы. Это отношение
экономического эффекта, полученного за определённый период времени от
вложения капитала (или от внедрения мероприятий), к объёму вложенного
капитала, обеспечившего внедрение мероприятий и получение экономического
эффекта.
Экономический эффект представляет собой чистый доход (прибыль), т. е.
цена минус себестоимость.
Эффективность капитальных затрат определяется сроком окупаемости
(Т) дополнительных капитальных затрат на разработку и внедрение ИС, в
соответствии с (7):
Т = 117623,45 /53819,42= 2,2 года
78
После получения всех необходимых расчетных показателей для
обеспечения наглядности были составлены графические диаграммы,
представленные на рисунках 26 (сравнительная диаграмма трудовых затрат) и 27
(сравнительная диаграмма стоимостных затрат).
Рисунок 26 – Сравнительная диаграмма трудовых затрат
Рисунок 27 – Сравнительная диаграмма стоимостных затрат
0
2
4
6
8
10
12
14
16
Базовый вариант Автоматизированный вариант Изменение
Трудозатраты, час (в мес)
0
20000
40000
60000
80000
100000
120000
Базовый вариант Автоматизированный вариант Изменение
Стоимость, руб. (в год)
79
ЗАКЛЮЧЕНИЕ
В ходе проделанной работы были решены следующие задачи:
1) Была изучена деятельность компании ООО «СибТрейд», в ходе
изучения была исследована организационная структура управления компанией,
а также ее программная и техническая архитектура.
2) Была исследована и проанализирована деятельность бухгалтера, которая
связана с представлением данных о налогоплательщиках. В ходе исследования
была построена структурно-функциональная модель в нотации IDEF0. Основной
недостаток – низкая производительность труда бухгалтера, связанная с
использованием для создания отчетов электронных таблиц Microsoft Excel, на
основе анализа был составлен перечень недостатков и выделен комплекс задач
для автоматизации.
3) Был проведен анализ существующих разработок решения выявленных
проблем и выбрана стратегия автоматизации задачи формирования требуемых
отчетов.
4) Были обоснованы проектные решения по информационному,
техническому и программному обеспечению. В качестве способа хранения
информации была выбрана реляционная база данных (СУБД – Microsoft Access),
языком программирования был выбран Delphi 7.
5) Были разработан проект автоматизации выделенного процесса. В
процессе разработки были выделены основные этапы жизненного цикла проекта
автоматизации, для каждого из которых обозначены цель, ключевые участники,
требования к входной информации и получаемые результаты, также были
описаны возможные риски реализации проекта и действия для снижения
вероятности возникновения рисков, а также возможные пути устранения
последствий.
6) Была составлена информационная модель, с помощью которой были
формализованы пути трансформации входной и нормативно-справочной
документации в результатную информацию.
80
7) Была реализована информационная система, для которой были
составлены дерево функций и сценарий диалога, схема базы данных,
структурная схема пакета, приведено описание программных модулей.
8) Было проведено тестирование работоспособности разработанной
информационной системы с помощью тестовых данных.
9) Была выбрана методика расчет экономической эффективности и
производен расчет в соответствии с выбранной методикой, срок окупаемости
проекта автоматизации составил около 2,2 лет.
Таким образом, все задачи, поставленные перед данной выпускной
квалификационной работой, выполнены, а значит и основная цель по созданию
информационной системы для автоматизации процесса представления данных о
налогоплательщиках ООО «СибТрейд» выполнена.
Дальнейшее развитие разработанной информационной системы
возможно в сторону расширения функционала и улучшения внешнего вида
программы.
81
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
19. ГОСТ 2.105 – 95. Общие требования к текстовым документам.
20. ГОСТ 7.32 – 2001. Отчет по научно-исследовательской работе.
Структура и правила оформления.
21. ГОСТ 7.82-2001. Библиографическое описание электронных
ресурсов.
22. ГОСТ 24.702-85 Эффективность автоматизированных систем
управления.
23. ГОСТ Р 7.0.5-2008. Библиографическая запись. Библиографическое
описание.
24. Агальцов В.П. Базы данных. В 2-х т. Т. 2. Распределенные и
удаленные базы данных: Учебник. М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. 272
с.
25. Гагарина Л.Г. Разработка и эксплуатация автоматизированных
информационных систем: учебное пособие. М.: ИД «ФОРУМ»: ИНФРА-М,
2013. 384 с.
26. Горбаченко В.И., Убиенных Г.Ф. Бобрышева Г.В. Проектирование
информационных систем с СА Erwin Modeling Suite 7.3. Пенза: Изд-во ПГУ,
2012, 154 c.
27. Зуев Е.А. Программирование на языке Delphi 6.0,7.0. – М.: Радио и
связь, Веста, 2016. - 186 с.
28. Калмыков Ю.В. Учебно-методичское пособие по обучению
программированию на языке Delphi для школ, 2014. – 100 с.
29. Карпова И.П. Базы данных: Учебное пособие. – Спб.: Питер, 2013. –
240 с.
30. Кузин А.В., Левонисова С.В. Базы данных: Учебное пособие для
студ. высш. учеб. заведений. – М.: ИЦ Академия, 2012. – 320с.
31. Культин Никита – Основы программирования в Delphi, 2015 – 232 с.
82
32. Маклаков С. В. Моделирование бизнес-процессов с AllFusion Process
Modeler (BPwin 4.1) / С.В. Маклаков. – М. : ДИАЛОГ-МИФИ, 2013. – 340 c.
33. Маклаков С.В. Создание информационных систем с AllFusion
Modeling Suite / С.В. Маклаков. – М. : ДИАЛОГ-МИФИ, 2015. – 512 c.
34. Тельнов, Ю.Ф. Проектирование экономических информационных
систем: учеб. / под ред. Ю. Ф. Тельнова. М. : Горячая линия, 2015 — 345 c.
35. Фуфаев Д.Э. Фуфаев Э.В. Разработка и эксплуатация
автоматизированных информационных систем: учебник дя студ. М.:
Издательский центр «Академия», 2013. 304 с.
36. Шаньгин В.Ф. Информационная безопасность компьютерных
системы и сетей: Учебное пособие. М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. 416
с.
83
ПРИЛОЖЕНИЕ
Исходный код программных модулей
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;
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);
84
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;
end;
produre TFrm1.FrmShow(Send: TObject);
begin
Adotbl1.open;
Adotbl1.Sort:='FIO ASC';
DbGrid1.Collums[0].Width:=ROUND(DbGrid1.Width*0.65);
DbGrid1.Collums[1].Width:=ROUND(DbGrid1.Width*0.25);
Adotbl2.open;
Adotbl2.Sort:='caption ASC';
DbGrid2.Collums[0].Width:=ROUND(DbGrid2.Width*0.65);
DbGrid2.Collums[1].Width:=ROUND(DbGrid2.Width*0.28);
end;
produre TFrm1.Edt1Change(Send: TObject);
begin
if Edt1.text<>'' then
begin
DbGrid1.DataSource.DataSet.Filtered:=false;
DbGrid1.DataSource.DataSet.Filter:='FIO like %'+Edt1.Text+'%';
DbGrid1.DataSource.DataSet.Filtered:=true;
end
else
begin
DbGrid1.DataSource.DataSet.Filtered:=false;
DbGrid1.DataSource.DataSet.Filter:='';
end;
end;
85
produre TFrm1.N7Click(Send: TObject);
begin
Dbgrid2.DataSource.DataSet.Close;
DbGrid2.DataSource.DataSet.open;
Adotbl2.Sort:='caption ASC';
DbGrid2.Collums[0].Width:=ROUND(DbGrid2.Width*0.65);
DbGrid2.Collums[1].Width:=ROUND(DbGrid2.Width*0.28);
end;
produre TFrm1.N8Click(Send: TObject);
begin
Dbgrid1.DataSource.DataSet.Close;
DbGrid1.DataSource.DataSet.open;
Adotbl1.Sort:='FIO ASC';
DbGrid1.Collums[0].Width:=ROUND(DbGrid1.Width*0.65);
DbGrid1.Collums[1].Width:=ROUND(DbGrid1.Width*0.25);
end;
produre TFrm1.N5Click(Send: TObject);
begin
if not DbGrid1.DataSource.DataSet.FieldByName('id').IsNull then
begin
Frm2.Edt1.Text:=DbGrid2.DataSource.DataSet.FieldByName('caption').AsString;
Frm2.Edt2.Text:=DbGrid2.DataSource.DataSet.FieldByName('path').AsString;
Frm2.Caption:='Редактирование шаблона';
Frm2.Label3.Caption:= DbGrid2.DataSource.DataSet.FieldByName('id').AsString;
Frm2.show;
end;
end;
produre TFrm1.N6Click(Send: TObject);
var
s: string;
begin
s := InputBox('Ввод данных','Необходимо указать название нового шаблона','');
if s<>'' then
begin
With AdoQuery1 do
begin
close;
SQL.Clear;
SQl.add('INSERT INTO shablon (caption) VALUES ( :caption )');
Parameters.ParamByName('caption').Value:=s;
EXECSQL;
end;
n7.Click;
end;
end;
produre TFrm1.N4Click(Send: TObject);
var
Word:Variant;
begin
if not DBGrid1.DataSource.DataSet.FieldByName('id').IsNull then
begin
if
fileExists(ExtractFilePath(ParamStr(0))+'shablon\'+DbGrid2.DataSource.DataSet.Fi
eldByName('path').AsString) then
begin
Word := CreateOleObject('Word.Application');