86
стратегии «узкое место».
На основании документооборота процесса было описано информационное
обеспечение. Согласно этому описанию была разработана информационная
модель и база данных информационной системы. Затем был осуществлен выбор
программного обеспечения для поставленной задачи, к которому относятся:
серверная операционная система Linux, операционная система клиентских ПК
Windows 10, среда программирования MS Visual Studio и СУБД MySQL.
В ходе проектирования системы была дана характеристика входной,
выходной, оперативной и справочной информации и созданы макеты экранных
форм. Также были перечислены функции системы и описан сценарий диалога
пользователя с проектируемой системой. Поскольку система должна иметь
модульную структуру, были описаны ее модули и приведены алгоритмы их
работы.
В результате проделанной работы была разработана информационная
система, автоматизирующая учет заявок. Далее было проведено тестирование
системы, в ходе которого была введена входная, справочная и оперативная
информация и сформирована результатная информация. Введенные данные
отображались на формах приложения корректно, результатная информация также
была рассчитана корректно.
Важным этапом в оценке разработанной системы являлся расчет
показателей экономической эффективности проекта. Для оценки экономической
эффективности проекта был выбран метод оценки затрат на осуществление
бизнес-процесса по существующей схема и после внедрения программного
обеспечения с последующим сравнением результатов. Для этого были рассчитаны
трудовые и стоимостные затраты на осуществление процесса учета заявок.
Согласно проведенным расчетам, внедрение информационной системы ведет к
снижению трудовых затрат на 32% (270 человеко-часов в год) и стоимостных
затрат на 44% (152 500 рублей в год). Расчет срока окупаемости проекта показал,
что проект разработки информационной системы учета заявок окупается в
течении 1,2 года с момента внедрения системы. На основании проведенных
расчетов можно сделать вывод о том, что проект разработки информационной
системы учета заявок является эффективным для ПАО «МГТС».
87
88
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. ГОСТ 34.601-90 «Информационная технология. Комплекс
стандартов на автоматизированные системы. Автоматизированные системы.
Стадии создания».
2. ГОСТ Р ИСО/МЭК 12207-2010. Информационная технология.
Системная и программная инженерия. Процессы жизненного цикла программных
средств.
3. Абросимова М.А. Информационные технологии: Учебное пособие. -
М.: КноРус, 2015. - 368 стр.: ил.
4. Балдин К.В. Информационные технологии в менеджменте. - М.: ИЦ
Академия, 2016. - 328 с.
5. Васильков А.В. Информационные системы и их безопасность. – М.:
Форум, 2014. – 544 с.
6. Вдовин В.М. Предметно-ориентированные информационные
системы. - М.: Дашков и К, 2017. - 388 с.
7. Вендров А.М. Проектирование программного обеспечения
экономических информационных систем / А.М. Вендоров. М.: «Финансы и
статистика», 2014 г. - 347 с.
8. Гаврилов М.В. Информатика и информационные технологии. - М.:
Юрайт, 2016. - 378 с.
9. Гвоздева В.А. Информатика и автоматизированные
информационные системы. - М.: ИД Форум, 2014. - 544 c.
10. Голицына О.Л. Информационные технологии: Учебник. - М.: Инфра-
М, 2015. - 608 с.
11. Голицына О.Л., Попов И.И. Базы данных. Учебное пособие. 3-е изд.,
перераб. и доп. М. : ФОРУМ, 2016. 400 с.
12. Грекул В.И., Денищенко Г.Н. Проектирование информационных
систем - М.: ИУИТ, 2014 - 300 с.
13. Гришин В.Н. Информационные технологии в профессиональной
деятельности: Учебник / В.Н. Гришин. - М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2016.
- 416 c.
89
14. Емельянова Н.З., Партыка Т.Л. Устройство и функционирование
информационных систем. Н. З. Емельянова, Т. Л. Партыка. Учебное пособие. М.
: ФОРУМ : НИЦ ИНФРА-М, 2015. 448 с.
15. Исаев Г.Н. Информационные системы в экономике: Учебник / Г.Н.
Исаев. - М.: Омега-Л, 2012. - 462 c.
16. Кузнецов С. Д. Базы данных. Модели и языки – М.: Бином-Пресс,
2014 г. - 720 с.
17. Маклаков С.В. BPWin и ERWin. CASE-средства разработки
информационных систем / С.В. Маклаков. М.: Диалог-МИФИ, 2015. - 256 с.
18. Максимов, Н.В. Современные информационные технологии:
Учебное пособие / Н.В. Максимов, Т.Л. Партыка, И.И. Попов. - М.: Форум, 2013.
- 512 c.
19. Мельников В.П. Информационная безопасность и защита
информации, В.П. Мельников, М.: Академия, 2016, - 336 с.
20. Робсон М., Уллах Ф. Практическое руководство по реинжинирингу
бизнес-процессов / М. Робсон, Ф. Уллах. М.: Аудит, 2014 г. – 280с.
21. Ткалич Т.М. Экономическая эффективность информационных
систем: теория и практические приложения / Т.М. Ткалич. - Минск : Право и
экономика, 2016. - 314 с.
22. Черемных С.В., Семенов И.О., Ручкин В.С. Структурный анализ
систем: IDEF-технологии / С.В. Черемных, И.О. Семенов, В.С. Ручкин. М.:
Финансы и статистика, 2014 г. - 208 с.
23. Шивцова А.М. Введение в автоматизированное проектирование:
учебное пособие / А.М. Шивцова, П.Я. Пантюхин. - Москва : БИНОМ.
Лаборатория знаний, 2017. - 283 с.
24. Naumen Service Desk: управление ИТ и сервисным обслуживанием
[Электронный ресурс]: // Naumen Service Desk [Офиц. сайт].
https://www.naumen.ru/products/service_desk/ (Дата обращения: 30.03.2019).
25. Simple open ticket system [Электронный ресурс]: // Open supports
[Офиц. сайт]. https://www.opensupports.com/ (Дата обращения: 30.03.2019).
26. OkDesk: система учета и управления заявками [Электронный
ресурс]: // OkDesk [Офиц. сайт]. https://okdesk.ru/ (Дата обращения: 30.03.2019).
90
27. PostgreSQL: About [Электронный ресурс]: // PostgreSQL [Офиц.
сайт]. https://www.postgresql.org/ (Дата обращения: 30.03.2019).
91
ПРИЛОЖЕНИЕ 1
Листинг программного кода
Модуль авторизации
TFormAuthtorization *FormAuthtorization;
bool Fserch (AnsiString F){
FormAuthorization->LabelLogin->First();
for ( int i = 0; i< FormAuthorization->LabelLogin->RowCount; i++) {
if (F ==FormAuthorization->LabelLogin->Value)
{
return true;
for ( int i = 0; i< FormAuthorization->LabelPassword->RowCount; i++) {
if (F==FormAuthorization->LabelPassword->Value)
{
return true;
break;
}
FormAuthorization->LabelLogin->Next();}
return false;
}
//---------------------------------------------------------------------------
Глобальный модуль
__fastcall TFоrmMain::TFоrmMain(TObjects *User)
: TForm(Main)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::CreateClick(TObject *User)
{
FormMaim->FormRequest->Open();
//if (Fserch(f_Client->Text))CreateClient="true"); else (CreateClient "false");
if (( Fserch(f_Request->Text)== false) && (f_TypeRequest->Text==f_Address->Text)
&& (f_Request->Caption== f_TypeRequest->Text)){
92
add->SQL->Clear();
add->SQL->Add("INSERT INTO Request(Nom, Type_problem, Time) VALUES
('"+NumberRequest->Text+"', '"+TypeProblem->Text+"', '"+Time->Now()+"')");
add->ExecSQL();
FormMain->FormRequest->Close();
}else ShowMessage ("Error");
}
Модуль управления пользователями
//---------------------------------------------------------------------------
#include <Users.h>
#pragma hdrstop
#include "Users.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormUsers *FormUsers;
Variant vVarUserName, vVarLogin, vVarRules, sh;
//---------------------------------------------------------------------------
__fastcall TFormUsers::TFormUsers(TComponent* Owner)
: TFormUsers(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormUsers::ButtonCreateClick(TObject *Sender)
{
vVarUserName = CreateObject("User");
vVarLogin=vVarUser.OlePropertyGet("Login");
vVarRules.OleProcedure("Rules");
93
vVarRules.OleProcedure("Save");
vVarPassword=vVarDoc.OlePropertyGet("Generate");
InStock("@1", EditUserName->Text);
InStock("@2", EdшеДщпшт->Text);
vVarApp.OlePropertySet("Visible", true);
}
//---------------------------------------------------------------------------
Модуль редактирования справочников
#ifndef mainfmH
#define mainfmH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include "maindm.h"
#include <DBGrids.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class TfmMain : public TFormSpr
{
TdmMain *dmMain;
TDBGrid * __fastcall getCurrentGrid();
public: // User declarations
__fastcall TfmMain(TComponent* Owner);
__fastcall TfmMain(TComponent* Owner, TADOConnection *db);
__published: // IDE-managed Components
TPageControl *pgMain;
void __fastcall pgMainChange(TObject *Sender);
void __fastcall FormDblClick(TObject *Sender);
private: // User declarations
94
};
//---------------------------------------------------------------------------
extern PACKAGE TfmSpr *fmSpr;
//---------------------------------------------------------------------------
#endif
// .cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "sprForm.h"
#include "formSpr.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmSPr *fmSpr;
//---------------------------------------------------------------------------
__fastcall TfmSpr::TfmSPr(TComponent* Owner, TADOConnection *db)
: TForm(Owner),dmSpr(Owner,db)
{
dmSpr->loadPages(this->pgSpr);
dmSpr->loadReference(getCurrentGrid());
}
//---------------------------------------------------------------------------
TDBGrid * __fastcall TfmSpr::getCurrentGrid()
{
if(pgSpr->ActivePageIndex == -1)return;
TDBSpr* db = NULL;
for(int i = 0; i < this->ComponentCount; ++i){
if(this->Components->ClassName()!= "TDBGrid")continue;
95
db = dynamic_cast<"TDBGrid">(this->Components);
if(db->Parent == pgMain->ActivePage) break;
}
return db;
}
void __fastcall TfmMain::pgMainChange(TObject *Sender)
{
fm = new TfmAddEdit(NULL);
//получение перевичного ключа
fm->id = dmMain->adoQuery->Fields->FieldByNumber(0)-
>AsInteger; ls = new TStringList;
dmMain->loadReferenceFields(ls);
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::FormDblClick(TObject *Sender)
{
TStringList *ls;
TfmAddEdit *fm;
try{
dmMain->loadReference(getCurrentGrid());
}
__finally{
if(fm)delete fm;
if(ls)delete ls;
}
}
//---------------------------------------------------------------------------
#ifndef maindmH
#define maindmH
//---------------------------------------------------------------------------