72
3
Оформлени
е
документов
Докум
ент
1600
8
200
154
30800
4
Поиск
документов
Докум
ент
1500
30
50
154
7700
5
Формирован
ие списка
документов
Докум
ент
700
20
35
154
5390
82
355,8
54793,2
Рассчитаем основные показатели, необходимые для определения
экономической эффективности. Результаты расчетов представлены в таблице 3.3.
Таблица 3.3
Показатели экономической эффективности
Трудовые
Стоимостные
Затраты базового
варианта
5350
823900
Затраты проектного
варианта
355,8
54793,2
Абсолютное изменение
затрат
4994,2
769106,8
Коэффициент
относительного
изменения затрат
93%
93%
Для наглядности рассчитанные показатели представлены в виде графиков.
Рисунок 3.1. Показатели трудовых затрат
0
1000
2000
3000
4000
5000
6000
Затраты базового
варианта
Затраты проектного
варианта
Абсолютное
изменение затрат
Трудовые затраты
73
Рисунок 3.2. Показатели стоимостных затрат
Срок окупаемости затрат на внедрение системы учета посещения клиентов
в ООО Гроссман Рус (Т
ок
), рассчитываемый в годах, долях года или в месяцах
года:
Т
ок
= 300000/769106,8=0,39 (≈5 месяцев)
Проведенные расчеты показывают снижение трудовых и стоимостных
затрат примерно на 93%, что свидетельствует о высокой эффективности
внедрения разработанного решения. Рассчитанный срок окупаемости составляет
5 месяцев, что является очень хорошим показателем, относительно среднего срока
окупаемости информационных проектов (3 года). В совокупности полученные
показатели позволяют судить о достаточно высокой экономической
эффективности разработанного проекта.
0
100000
200000
300000
400000
500000
600000
700000
800000
900000
Затраты базового
варианта
Затраты проектного
варианта
Абсолютное
изменение затрат
Стоимостные затраты
74
Заключение
Основными задачами работы являлись: анализировать деятельность
предприятия, выявить существующие недостатки в текущей технологии учета
клиентов, разработать информационную систему учета посещений клиентов. В
дипломной работе данные задачи выполнены, так как выполнены следующие
работы.
В первой главе проведен анализ предметной области. Предметной
областью в данной работе является учет клиентов в ООО «Гроссман Рус». Дано
описание деятельности компании, ее организационной структуры. Рассмотрены
используемые информационные технологии. Выявлено, что в компании имеется
локальная сеть, используется различное программное обеспечение. Далее
проведен анализ учета клиентов. Для этого построены модели бизнес-процессов.
В результате анализа этих моделей выявлено, что в работе отдела по работе с
клиентами используется очень много бумажных документов, что сильно
затрудняет работу, снижает производительность труда, усложняет поиск
необходимых документов и т.д. Поэтому было решено разработать
автоматизированную систему.
С этой целью был проведен анализ существующих систем учета клиентов
и заказов. В результате обзора готовых программных продуктов можно сделать
вывод, что несмотря на все их достоинства и функциональность, они не подходят
для рассматриваемой компании. Поэтому было решено разработать собственную
систему. Для этого выбрана стратегия по направлениям, так как автоматизиурется
целое направление – работа с клиентами.
После выбора стратегии и способа автоматизации был осуществлен выбор
информационного, технического и программного обеспечения. Информационное
обеспечение – это входные и выходные документы, база данных. Входной
информацией является заявка клиента. Выходная информация – отчеты по
продажам, клиентам.
Для разработки информационной системы выбрано следующее
программное обеспечение:
Серверная ОС Windows Server 2016:
75
Клиентская ОС – Windows 10;
Среда разработки – Delphi;
СУБД – Microsoft Access.
Выбор каждого средства осуществлен на основании сравнения с аналогами.
Во второй главе разработан проект автоматизации. Для этого выбраны
следующие стратегии:
стандарт проектирования - ISO/IEC 12207-2010;
модель жизненного цикла – каскадная.
Для разработки была выбрана Параллельная стратегия, когда
одновременно со старой вводится новая.
Были рассмотрены риски внедрения ИС и предложены методы их
снижения.
Важное значение при проектировании ИС имеет обеспечение
информационной безопасности. Для этого были предложены организационные,
программные и технические меры защиты. Указаны группы пользователей и их
полномочия.
Для разрабатываемой системы была построена информационная модель.
Разработаны дерево функций и сценарий диалога работы системы по
автоматизации учета клиентов. Также разработана структурная схема пакета:
дерево вызова процедур и схема алгоритмов.
Третья глава посвящена экономическому обоснованию проекта. Так как
система разработана не для продажи и не в коммерческих целях, эффективность
будет рассматриваться с точки зрения экономии времени и соответственно
стоимостных затрат. Были рассчитаны затраты до и после внедрения
автоматизированной системы.
Расчет показателей экономической эффективности разработки и внедрения
автоматизированной информационной системы доказывает не только
эффективность внедрения данной системы, но даже необходимость этого.
76
Список использованной литературы
1. ГОСТ Р ИСО/МЭК 12207-99, Руководящий документ, Госстандарт России,
Москва, 2004
2. Методология функционального моделирования IDEF0, Руководящий
документ, Госстандарт России
3. Аппаратное обеспечение вычислительных систем / Д.В. Денисов, В.А.
Артюхин, М. Ф. Седненков; под ред. Д.В. Денисова. – М.: Маркет ДС, 2010
– 184 с. (Университетская серия.)
4. Беленькая М.Н., Малиновский С.Т., Яковенко Н.В. Администрирование в
информационных системах. Научно-популярное издание. - М.: Горячая
линия - Телеком, 2011. - 300 с.
5. Будников C.A., Паршин H.B. Информационная безопасность
автоматизированных систем: Учебное пособие, издание второе,
дополненное -Издательство им."Е.А.Болховитинова, Воронеж, 2011.
6. Грекул В.И., Денищенко Г.Н., Коровкина Н.Л. Проектирование
информационных систем - М.: ИУИТ, 2012 - 300 с.
7. Девянин П.H. Садердинов A.A., Трайнев B.A. и др. Учебное пособие.
Информационная безопасность предприятия. - M., 2006.- 335.
8. Дейт К. Дж. Введение в системы баз данных (седьмое издание). Вильямс,
2011 - 1072 с.
9. Дейт К.Дж., Дарвен Хью. Основы будущих систем баз данных: Третий
манифест. - Издательство Янус-К, 2012. – 656 с.
10. И. Ф. Астахов. СУБД: Язык SQL в примерах и задачах. 2015 г.
11. Илюшечкин В. М. Основы проектирования и использования баз данных:
учеб. пособие. - М.: Высшее образование, 2012. - 213 с.
12. Информационная безопасность и защита информации, Мельников В. П.,
М.: Академия, 2012, - 336 стр.
13. Исаев, Г.Н. Информационные системы в экономике: Учебник для
студентов вузов / Г.Н. Исаев. - М.: Омега-Л, 2013. - 462 c.
14. Каленик А. И. Использование новых возможностей Microsoft SQL Server
2012. - М.: «Русская редакция», 2012. - 334 с.
77
15. Косиненко, Н.С. Информационные системы и технологии в экономике:
Учебное пособие / Н.С. Косиненко, И.Г. Фризен. - М.: Дашков и К, 2015. -
304 c..
16. Крамарская Т. А., Microsoft SQL Server 2008 для поддержки системы 1С:
Предприятие 8: администрирование, оптимизация, обеспечение
безопасности. Microsoft CPLS ALEST A, 2009, 158 с.
17. Крёнке Д. Теория и практика построения баз данных. - М.: Питер, 2009. -
800 с.
18. Кузин А.В. Базы данных: учебное пособие для вузов. - М.: Академия, 2012.
- 54 с.
19. Кузнецов С. Д. Базы данных. Модели и языки – М.: Бином-Пресс, 2013 г. -
720 с.
20. Култыгин О.П. Администрирование баз данных. СУБД MS SQL Server. -
М: Московская финансово-промышленная академия, 2012 -232 с.
(Университетская серия).
21. Плошкин, В.В. Оценка и управление рисками на предприятиях: Учебное
пособие / В.В. Плошкин. - Ст. Оскол: ТНТ, 2013. - 448 c.
22. Полякова Л. Н. Основы SQL: Курс лекций. Учебное пособие. - М.:
Интернет - университет информационных технологий, 2011. - 368 с.
23. Репин, В.В. Бизнес-процессы. Моделирование, внедрение, управление /
В.В. Репин. - М.: Манн, Иванов и Фербер, 2013. - 512 c.
24. Роберт Дж. Мюллер. Базы данных и UML. - М.: Лори, 2008. - 420 с.
25. Скрипкин К.Г. Экономическая эффективность информационных систем.
– М.: ДМК Пресс, 2010. – 256 с.
26. Устройство и функционирование информационных систем. Н. З.
Емельянова, Т. Л. Партыка, И. И. Попов, Учебное пособие. М.: ФОРУМ:
НИЦ ИНФРА-М, 2012. 448 с.
27. Федотова, Е.Л. Информационные технологии и системы: Учебное пособие
/ Е.Л. Федотова. - М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. - 352 c.
78
Приложение Листинг программных модулей
Программный модуль Shop.dpr
program Shop;
uses
Forms,
uMain in 'uMain.pas' {fmMain},
uDM in 'uDM.pas' {DM: TDataModule},
uRep in 'uRep.pas',
uLogin in 'uLogin.pas' {fmLogin},
uRequisite in 'uRequisite.pas' {fmRequisite},
uPrice in 'uPrice.pas' {fmPrice},
uShop in 'uShop.pas' {fmShop},
uStore in 'uStore.pas' {fmStore},
uGroup in 'uGroup.pas' {fmGroup},
uStaff in 'uStaff.pas' {fmStaff},
uSumToStr in 'uSumToStr.pas',
uContrag in 'uContrag.pas' {fmContrag},
uMove in 'uMove.pas' {fmMove},
uBook in 'uBook.pas' {fmBook},
uOper in 'uOper.pas' {fmOper},
uPhoto in 'uPhoto.pas' {fmPhoto},
uStat in 'uStat.pas' {fmStat},
uSellRep in 'uSellRep.pas' {fmSellRep};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TDM, DM);
Application.CreateForm(TfmLogin, fmLogin);
Application.CreateForm(TfmMain, fmMain);
Application.CreateForm(TfmRequisite, fmRequisite);
Application.CreateForm(TfmPrice, fmPrice);
Application.CreateForm(TfmShop, fmShop);
Application.CreateForm(TfmStore, fmStore);
Application.CreateForm(TfmGroup, fmGroup);
Application.CreateForm(TfmStaff, fmStaff);
Application.CreateForm(TfmContrag, fmContrag);
Application.CreateForm(TfmMove, fmMove);
Application.CreateForm(TfmBook, fmBook);
Application.CreateForm(TfmOper, fmOper);
Application.CreateForm(TfmPhoto, fmPhoto);
Application.CreateForm(TfmStat, fmStat);
Application.CreateForm(TfmSellRep, fmSellRep);
Application.Run;
end.
Программный модуль uBook.pas
unit uBook;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Grids, DBGrids, StdCtrls, Buttons, DBCtrls, ComCtrls;
type
TfmBook = class(TForm)
DBGrid1: TDBGrid;
Panel1: TPanel;
GroupBox1: TGroupBox;
chbDate1: TCheckBox;
dtpDate1: TDateTimePicker;
chbDate2: TCheckBox;
dtpDate2: TDateTimePicker;
chbShop: TCheckBox;
dblcbShop: TDBLookupComboBox;
chbContrag: TCheckBox;
dblcbContrag: TDBLookupComboBox;
DBNavigator1: TDBNavigator;
bbtPrint: TBitBtn;
79
bbtClose: TBitBtn;
rbSell: TRadioButton;
rbPurchase: TRadioButton;
chbManager: TCheckBox;
dblcbManager: TDBLookupComboBox;
dblcbCashier: TDBLookupComboBox;
chbCashier: TCheckBox;
bbtViewOper: TBitBtn;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure rbSellClick(Sender: TObject);
procedure bbtViewOperClick(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure bbtPrintClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmBook: TfmBook;
implementation
uses uDM, uOper, ADODB, uRep, uSellRep;
{$R *.dfm}
procedure TfmBook.FormShow(Sender: TObject);
begin
DM.dstOper.Open;
DM.dstOper.Filtered := True;
DM.dstManager.Open;
DM.dstCashier.Open;
dtpDate1.Date := Date;
dtpDate2.Date := Date;
rbSellClick(Self);
end;
procedure TfmBook.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.dstOper.Close;
DM.dstCashier.Close;
if not fmSellRep.Showing then
DM.dstManager.Close;
end;
//Фильтрация операций закупки / продажи по заданным критериям::
procedure TfmBook.rbSellClick(Sender: TObject);
var
Filter: string;
begin
if rbSell.Checked then
begin
bbtViewOper.Caption := 'Открыть расход';
Filter := 'Закупка = False';
end
else
begin
bbtViewOper.Caption := 'Открыть приход';
Filter := 'Закупка = True';
end;
if chbDate1.Checked then
Filter := Filter + ' and Дата >= ' + QuotedStr(DateToStr(dtpDate1.Date));
if chbDate2.Checked then
Filter := Filter + ' and Дата <= ' + QuotedStr(DateToStr(dtpDate2.Date));
if chbShop.Checked and (dblcbShop.KeyValue <> Null) then
Filter := Filter + ' and ТочкаID = ' + IntToStr(dblcbShop.KeyValue);
if chbContrag.Checked and (dblcbContrag.KeyValue <> Null) then
Filter := Filter + ' and КонтрагентID = ' + IntToStr(dblcbContrag.KeyValue);
if chbManager.Checked and (dblcbManager.KeyValue <> Null) then
Filter := Filter + ' and МенеджерID = ' + IntToStr(dblcbManager.KeyValue);
if chbCashier.Checked and (dblcbCashier.KeyValue <> Null) then
Filter := Filter + ' and КассирID = ' + IntToStr(dblcbCashier.KeyValue);
DM.dstOper.Filter := Filter;
end;
80
procedure TfmBook.bbtViewOperClick(Sender: TObject);
begin
if rbSell.Checked then
OperView('Продажа')
else
OperView('Закупка');
end;
//Сортировка данных в таблице по выбранному столбцу:
procedure TfmBook.DBGrid1TitleClick(Column: TColumn);
begin
try
(DBGrid1.DataSource.DataSet as TADODataSet).Sort := Column.FieldName;
except
Application.MessageBox('Сортировка по данному полю невозможна', 'Информация',
MB_OK+MB_ICONINFORMATION)
end;
end;
//Печать книги продаж или книги покупок по отобранным данным:
procedure TfmBook.bbtPrintClick(Sender: TObject);
begin
if rbSell.Checked then
Rep_SellBook
else
Rep_PurchBook;
end;
end.
Программный модуль uContrag.pas
unit uContrag;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Grids, DBGrids, DBCtrls, StdCtrls, Buttons, Mask;
type
TfmContrag = class(TForm)
Panel1: TPanel;
DBNavigator1: TDBNavigator;
BitBtn1: TBitBtn;
Panel2: TPanel;
Panel3: TPanel;
DBGrid1: TDBGrid;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
Label8: TLabel;
DBEdit8: TDBEdit;
Label9: TLabel;
DBEdit9: TDBEdit;
Splitter1: TSplitter;
DBMemo1: TDBMemo;
bbtPrint: TBitBtn;
DBCheckBox1: TDBCheckBox;
CheckBox1: TCheckBox;
cbFilter: TComboBox;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bbtPrintClick(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure CheckBox1Click(Sender: TObject);
private
{ Private declarations }
public
81
{ Public declarations }
end;
var
fmContrag: TfmContrag;
implementation
uses uDM, uRep, ADODB, uBook, uOper;
{$R *.dfm}
procedure TfmContrag.FormShow(Sender: TObject);
begin
DM.dstContrag.Open;
DM.dstContrag.Filtered := True;
end;
procedure TfmContrag.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Набор данных закрывается, если он не используется в других формах:
if (not fmOper.Showing) and (not fmBook.Showing) then
DM.dstContrag.Close;
DM.dstContrag.Filtered := False;
end;
procedure TfmContrag.bbtPrintClick(Sender: TObject);
var
Caption: string;
begin
//Формирование заголовка для отчета:
if CheckBox1.Checked then
if cbFilter.ItemIndex = 0 then
Caption := 'Поставщики'
else
Caption := 'Покупатели'
else
Caption := 'Контрагенты';
Rep_ForAll(DBGrid1, 9, Caption, []);
end;
//Сортировка данных в таблице по выбранному столбцу:
procedure TfmContrag.DBGrid1TitleClick(Column: TColumn);
begin
try
(DBGrid1.DataSource.DataSet as TADOTable).Sort := Column.FieldName;
except
Application.MessageBox('Сортировка по данному полю невозможна', 'Информация',
MB_OK+MB_ICONINFORMATION)
end;
end;
//Отбор из контрагентов поставщиков или покупателей:
procedure TfmContrag.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
if cbFilter.ItemIndex = 0 then
DM.dstContrag.Filter := 'Поставщик = True'
else
DM.dstContrag.Filter := 'Поставщик = False'
else
DM.dstContrag.Filter := '';
end;
end.
Программный модуль uDM.pas
unit uDM;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDM = class(TDataModule)