88
ЗАКЛЮЧЕНИЕ
В рамках выпускной квалификационной работы были исследованы
бизнес процессы компании, особенно в части, касающейся работы с
клиентами, предложены пути повышения эффективности деятельности
компании, конкурентоспособности и обеспечения устойчивого положения на
рынке услуг за счет использования информационных технологий.
На основании проведенного анализа компании ООО «Чудо Доктор», в
работе рассмотрены вопросы создания базы данных компании, развития
программного обеспечения информационных систем (ИС), базирующихся на
современных программных платформах, современных концепциях в области
систем управления базами данных (СУБД) и создания приложений.
В качестве одной из возможных концепций создания информационной
системы компании предложена информационная система, состоящая из базы
данных и приложения с удобным интерфейсом компании ООО«Чудо
Доктор».
Информационная система представляет собой базу данных MS Access.
Работа с информационной системой происходит в диалоговом режиме,
который предоставляет пользователю возможность взаимодействовать с
хранящейся в системе информацией в режиме реального времени, получая
при этом всю необходимую информацию для решения функциональных
задач.
Основные сведения по деятельности компании содержатся в таблицах.
Для получения информации, интересующей пользователей, были созданы
запросы к базе данных.
Таким образом, реализация проекта, предусматривающего внедрение
современных технологий, позволит оптимизировать сбор отчетности,
упростит работу компании ООО «Чудо Доктор».
При выполнении ВКР были выполнены следующие задачи:
Дана обобщенная характеристика предметной области.
Описана экономическая область функционирования информационной
системы.
Проанализированы существующие разработки в данной области.
Описаны обеспечивающие подсистемы ИС учета в компании по
предоставлению медицинских услуг.
Описана техническая разработка и реализация ИС учета в компании по
предоставлению медицинских услуг.
89
Выполнен расчет экономической эффективности проекта.
Информационная система для автоматизации учета обращений
клиентов в компании по предоставлению медицинских услуг ООО «Чудо
Доктор», разработанная на основании анализа основных этапов и технологий
проектирования ИС, повысит эффективность работы предприятия и
обеспечит получение экономического эффекта.
Себестоимость разработки приложения – это сумма затрат на
разработку и расходы на содержание и эксплуатацию оборудования,
используемого при внедрении программного продукта.
Согласно проведенным расчетам себестоимость приложения составит
251600 руб.
Капитальные вложения в приложение составят 261032 рубля.
Коэффициент экономической эффективности 2,4.
Исходя из приведенных расчетов, был сделан вывод, что мероприятия
по созданию и внедрению автоматизированная система является
эффективной и окупится в течение 5 месяцев.
Подводя итоги проведенного исследования, можно сказать, что все
поставленные задачи решены, следовательно, главная цель, поставленная в
выпускной квалификационной работе, достигнута.
90
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1.Delphi. Программирование для Windows, OS X, iOS и Android Автор:
Д. Л. Осипов – СПБ.: БХВ-Петербург, 2015. – 464с.
2.Аблязов В.И. Проектирование баз данных в среде Microsoft Office
Access 2015, 2015 и 2016 – СПб.: Изд-во Политехн. ун-та, 2015. – 108 с.
3.Абрамов Г.В. Проектирование информационных систем /
Г.В.Абрамов, И.Е.Медведкова, Л.А. Коробова– Воронеж: ВГУИТ, 2015 г. -
172 с.
4.Базы данных / И.Е. Медведкова, Ю.В.Бугаев, С.В.Чикунов –
Воронеж: ВГУИТ, 2016. – 105 с.
5.Бекаревич Ю. Самоучитель Microsoft Access 2015 / Ю. Бекаревич,
Н. Пушкина – С-Пб.: БХВ-Петербург, 2015. – 465 с.
6.Венделева, М.А. Информационные технологии в управлении:
Учебное пособие для бакалавров / М.А. Венделева, Ю.В. Вертакова. - М.:
Юрайт, 2017. - 462 c.
7.Информатика для экономистов: Учебник для бакалавров / Под ред.
В.П. Полякова. – М.: Юрайт, 2015. – 322 с.
8.Информационные ресурсы и технологии в экономике : Учебное
пособие / Г. Н. Безрядина [и др.] ; Под ред. Б.Е.Одинцова, А.Н.Романова. - М.
: Вузовский учебник: ИНФРА-М, 2017. – 526 с.
9.Исаев, Г.Н. Информационные системы в экономике: Учебник для
студентов вузов / Г.Н. Исаев. - М.: Омега-Л, 2016. - 462 c.
10.Какие бывают CRM-системы: классификация CRM и тенденции
рынка // SalesapCRM – Блог о разумных продажах [Электронный ресурс] –
Режим доступа: https://salesap.ru/blog/vidy-crm-sistem/ (дата обращения:
29.05.2018)
11.Киселев, Г.М. Информационные технологии в экономике и
управлении (эффективная работа в MS Office 2007): Учебное пособие /
Г.М. Киселев, Р.В. Бочкова, В.И. Сафонов. - М.: Дашков и К, 2015. - 272 c.
12.Кузнецов С.Д. Базы данных – М.: Академия, 2017. – 496 с.
13.Леонтьев В.П. Новейший самоучитель. Компьютер + Интернет 2013.
– М.: Олма Медиа Групп, 2015. – 641 с.
14.Линн Бейли Изучаем SQL – Спб.: Питер, 2017. – 573с.
15.Маклаков С. В. CASE-средства Computer Associates.
ERwin, BPwin и Model Mart - новые возможности Service Pack 2. URL:
91
http://www.interface.ru/logworks/sp2.htm (дата обращения: 11.04.2018)
16.Нестеров С.А. Базы данных. – СПб.: Изд-во Полит. Ун-та, 2016. –
150 с.
17.Пташинский В. Самоучитель Office 2013. – М.: Эксмо, 2015. – 290с.
18.Федотова, Е.Л. Информационные технологии и системы: Учебное
пособие / Е.Л. Федотова. - М.: ИД ФОРУМ, 2017. - 352 c.
19.Цветкова М.С. Информатика и ИКТ. / М.С.Цветкова, Л.С.Великович
3-е изд., стер. - М.: ИНФРА, 2015. – 352 с.
20.Экономика и финансы предприятия / под ред. Т.С. Новашиной. - М.:
Синергия, 2016. - 344 с.
.
92
ПРИЛОЖЕНИЯ
Приложение 1
Таблица П1
Выбор модели ЖЦ на основе характеристик требований
Требования
Каскадная
Итерационная
Могут ли требования заранее определятся в
цикле
Да
Нет
Являются ли требования легко определимыми
и/или хорошо известными
Да
Нет
Часто ли изменяются требования в цикле
Нет
Да
Нужно ли демонстрировать требования с целью
определения
Нет
Да
Требуется ли демонстрация возможностей
проверка концепции
Нет
Да
Будут ли требования отражать сложность
системы
Нет
Да
Обладает ли требование функциональными
свойствами на раннем этапе
Нет
Да
Таблица П2
Выбор модели ЖЦ на основе характеристик проектов и рисков
Тип проекта и риски
Каскадная
Итерационная
Будет ли проект идентифицировать новое
направление продукта для организации
Нет
Да
Будет ли проект являться расширением
существующей системы
Нет
Нет
Будет ли финансирование проекта стабильным на
всем протяжении ЖЦ
Да
Нет
Ожидается ли длительная эксплуатация продукта
в организации
Да
Да
Должна ли быть высокая степень надежности
Нет
Да
Будет ли система изменяться, возможно, с
применением непредвиденных методов, на этапе
сопровождения
Нет
Да
Доступны ли повторно используемые компоненты
Нет
Да
Являются ли достаточными ресурсы (время,
деньги, инструменты, персонал)
Нет
Да
Таблица П3
Выбор модели ЖЦ на основе характеристик пользователей
Коллектив пользователей
Каскадная
Итерационная
Будет присутствие пользователей ограниченно
в ЖЦ
Да
Да
Будут ли пользователи знакомы с
определением системы
Нет
Да
Будет ли заказчик отслеживать ход
выполнения проекта
Нет
Да
93
Приложение 1
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtCtrls, StdCtrls, jpeg, Buttons;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
A1: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
Image1: TImage;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
Label1: TLabel;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
SaveDialog1: TSaveDialog;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
94
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N25Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10;
{$R *.dfm}
procedure TForm1.N3Click(Sender: TObject);
begin
Form2.Show;
form2.TabSheet1.Show;
Form1.Hide;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Form2.Show;
form2.TabSheet2.Show;
Form1.Hide;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Form2.Show;
form2.TabSheet3.Show;
95
Form1.Hide;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
Form2.Show;
form2.TabSheet4.Show;
Form1.Hide;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Form2.Show;
form2.TabSheet5.Show;
Form1.Hide;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form5.show;
Form1.Hide;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
Form5.Show;
form5.TabSheet1.Show;
Form1.Hide;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
Form5.Show;
form5.TabSheet2.Show;
Form1.Hide;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
Form5.Show;
form5.TabSheet3.Show;
Form1.Hide;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
form6.QuickRep1.Preview;
96
end;
procedure TForm1.N14Click(Sender: TObject);
begin
//form6.QuickRep2.Preview;
end;
procedure TForm1.N15Click(Sender: TObject);
begin
form6.QuickRep3.Preview;
end;
procedure TForm1.N16Click(Sender: TObject);
begin
form6.QuickRep4.Preview;
end;
procedure TForm1.N17Click(Sender: TObject);
begin
//form6.QuickRep5.Preview;
end;
procedure TForm1.N18Click(Sender: TObject);
begin
Form5.Show;
form5.TabSheet4.Show;
Form1.Hide;
end;
procedure TForm1.N19Click(Sender: TObject);
begin
Form5.Show;
form5.TabSheet5.Show;
Form1.Hide;
end;
procedure TForm1.N20Click(Sender: TObject);
begin
Form5.Show;
form5.TabSheet6.Show;
Form1.Hide;
end;
procedure TForm1.N21Click(Sender: TObject);
begin
Form5.Show;
form5.TabSheet7.Show;
Form1.Hide;
end;
procedure TForm1.N26Click(Sender: TObject);
begin
97
if SaveDialog1.Execute then
copyfile(PAnsiChar(ExtractFilePath(application.exename )+'Меркурий.mdb'),
PAnsiChar(SaveDialog1.FileName), false);
end;
procedure TForm1.N23Click(Sender: TObject);
begin
Form7.show;
Form1.Hide;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.N2.Enabled:=false;
Form1.A1.Enabled:=false;
Form1.N22.Enabled:=false;
Form1.N8.Enabled:=false;
Form1.N9.Enabled:=false;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Form8.Show;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.N24Click(Sender: TObject);
begin
Form9.Show;
end;
procedure TForm1.N25Click(Sender: TObject);
begin
Form10.Show;
end;
end.