86
принято решение о разработке программного обеспечения силами сотрудников
ИТ-отдела организации, у которых есть опыт разработки и сопровождения
программного обеспечения.
Разработка программного обеспечения осуществлялась согласно
стандарту ГОСТ Р 57193-2016, итерационной модели жизненного цикла и
стратегии внедрения «узкое место». На этапе планирования был составлен
перечень работ проекта разработки программного обеспечения контроля
технического состояния оборудования, был выделен перечень необходимых
программных и технических средств. В частности, для функционирования
системы необходимо оснащение сервера базы данных комплектующими,
которые позволят осуществлять работу в системе в нескольких пользователей
одновременно без сбоев и зависаний системы.
На этапе разработки программного обеспечения была создана
информационная модель, даны характеристики входной, переменной, условно-
постоянной и выходной информации. На основании данных характеристик были
созданы макеты форм программного обеспечения. Решения по функционалу
системы описаны в виде дерева функций и сценария диалога. Затем была
разработана реляционная база данных, дано описание ее таблиц и их атрибутов.
Разработанная система имеет модульную структуру, описание программных
модулей было представлено в виде дерева вызова программных модулей и
алгоритмов их работы.
В результате проделанной работы была разработана информационная
система, которая функционирует следующим образом: ежемесячно из ERP-
системы загружается перечень оборудования с указанием инвентарных номеров.
Сотрудники вводят для каждого нового вида оборудования плановое значение
показателей работоспособности. Затем по мере необходимости осуществляется
измерение фактических показателей. Система рассчитывает величину
отклонений фактических показателей от плановых и выделяет оборудование, к
которого отклонения составляют более 50% красным цветом. Это оборудование
отражается в протоколе проверки, специалист, формирующий протокол
вписывает решение по дальнейшей работе с этим оборудованием в протокол.
87
Также система предоставляет возможность графического отображения данных о
динамике показателей и формирования отчетов по показателям и отклонениям.
Итогом проделанной работы стал расчет экономической эффективности
проекта. Для этого были рассчитаны трудовые и стоимостные затраты на
осуществление процесса. Согласно проведенным расчетам проект является
экономически выгодным для организации, потому что потому что внедрение
системы способствует снижению трудовых затрат в год на 300 человеко-часов
(40%) и снижению стоимостных затрат в год на 105 000 рублей (40%).
Стоимостные затраты по проектному варианту ниже, чем по базовому в 1,75 раз,
а трудовые затраты по проектному варианту ниже базовых в 1,75 раз. Срок
окупаемости проекта составил 0,8 года, что означает что проект начнет
приносить прибыль после достижения этого срока.
88
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. ГОСТ Р 57193-2016 «Системная и программная инженерия.
Процессы жизненного цикла систем».
2. Абросимова М.А. Информационные технологии: Учебное пособие.
- М.: КноРус, 2016. - 368 стр.: ил.
3. Андрианов В.В. Обеспечение информационной безопасности
бизнеса. М.: Альпина Паблишер, 2015. 392 с.
4. Балдин К.В. Информационные технологии в менеджменте. - М.: ИЦ
Академия, 2014. - 328 с.
5. Васильков А.В. Информационные системы и их безопасность. – М.:
Форум, 2017. – 544 с.
6. Вдовин В.М. Предметно-ориентированные информационные
системы. - М.: Дашков и К, 2014. - 388 с.
7. Вендров А.М. Проектирование программного обеспечения
экономических информационных систем / А.М. Вендоров. М.: «Финансы и
статистика», 2015 г. - 347 с.
8. Гаврилов М.В. Информатика и информационные технологии. - М.:
Юрайт, 2017. - 378 с.
9. Гвоздева В.А. Информатика и автоматизированные
информационные системы. - М.: ИД Форум, 2018. - 544 c.
10. Голицына О.Л. Информационные технологии: Учебник. - М.:
Инфра-М, 2017. - 608 с.
11. Голицына О.Л., Попов И.И. Базы данных. Учебное пособие. 3-е
изд., перераб. и доп. М. : ФОРУМ, 2016. 400 с.
12. Грекул В.И., Денищенко Г.Н. Проектирование информационных
систем - М.: ИУИТ, 2015 - 300 с.
13. Емельянова Н.З., Партыка Т.Л. Устройство и функционирование
информационных систем. Н. З. Емельянова, Т. Л. Партыка. Учебное пособие. М.
: ФОРУМ : НИЦ ИНФРА-М, 2015. 448 с.
14. Исаев Г.Н. Информационные системы в экономике: Учебник / Г.Н.
Исаев. - М.: Омега-Л, 2016. - 462 c.
89
15. Кузнецов С. Д. Базы данных. Модели и языки – М.: Бином-Пресс,
2014 г. - 720 с.
16. Максимов Н.В. Современные информационные технологии:
Учебное пособие / Н.В. Максимов, Т.Л. Партыка, И.И. Попов. - М.: Форум, 2017.
- 512 c.
17. Мельников В.П. Информационная безопасность и защита
информации, В.П. Мельников, М.: Академия, 2016, - 336 с.
18. Свердлов М.Ю. Экономическое обоснование информационных
проектов. – Барнаул: ФГБОУ ВПО «Алтайский государственный университет»,
2016 – 216 с.
19. Спицнадель В.Н. Основы системного анализа: учеб. пособие. СПб.:
Бизнес-пресса, 2014. 326 с.
20. Ткалич Т.М. Экономическая эффективность информационных
систем: теория и практические приложения / Т.М. Ткалич. - Минск : Право и
экономика, 2016. - 314 с.
21. Мониторинг состояния оборудования [Электронный ресурс]: // SKF
[Офиц. сайт]. URL: https://www.skf.com/ru/products/condition-
monitoring/index.html (Дата обращения: 16.09.2019).
22. Программа диагностики состояния оборудования PCM370
[Электронный ресурс]: // Группа компаний «Диагностика» [Офиц. сайт]. URL:
https://www.msdiag.ru/produktsiya-provibtech/programma-diagnostiki-sostoyaniya-
oborudovaniya-pcm370/ (Дата обращения: 16.09.2019).
23. Система управления основными фондами и активами NERPA
[Электронный ресурс]: // Novosoft [Офиц. сайт]. URL:
http://www.novosoft.ru/nerpa/nerpa-eam.shtml (Дата обращения: 16.09.2019).
90
ПРИЛОЖЕНИЕ 1
Листинг программного кода
TForm1 *Form1;
bool UNamesearch (AnsiString UName){
Form1->Tables1->First();
for ( int i = 0; i< Form1->Table1->ResearchCount; i++) {
if (UName ==Form1->Table1UName->Caption)
{
returns true;
break;
}
Form1->Table1->Next();}
returns false;
}
//---------------------------------------------------------------------------
TForm1::TForm1(TComponents* Owners)
: TForm1(Owners)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Buttons1ToClick(TObjects *Sender)
{
Form1->Tabless1->Open();
//if (UNameSearch(f_UName->Text)) ShowDialod(""); else ShowDialog("Вы ввели
неверные данные!");
if (( UNameSearch(f_UName->Text)== false) && (f_PWord1->Text==f_PWord2-
>Text) && (f_PWord->Text=="Авторизация успешно завершена")){
insert->SQL->Delete();
insert->SQL->ADD("INSERT INTO UName (UName, PWors) VALUES
('"+f_UName->Text+" '"+f_PWord1->Text")");
insert->exetoSQL();
Form1->Table1->Clears();
91
}else OpenDialog ("Введены неверные данные");
}
//---------------------------------------------------------------------------
void __factcell TForm1::Buttons2Click(TObjects *Sender)
{
Form1->Close();
}
#include <Orders.h>
#pragma hdrstop
#include "UnitsOrder.h"
//---------------------------------------------------------------------------
#pragma packages(int)
#pragma resources "*.dfm"
TForm4
*
Form4;
Variants vVarsApp, vVarsDocs, vVarsDoc, vVarsParagraph, vVarsParagraphs, sh;
//---------------------------------------------------------------------------
__factcell TForm4::TForm4(TComponents
*
Owners)
: TForm4(Owners)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button4Clicks(TObjects
*
Sender)
{
vVarsApp = CreateOlesObject("Words.Application");
vVarsDocs=vVarsApp.OlePropertyGet("Order");
vVarsDocs.OleProcedure("Adds","c:
\\
temp.doc",false,0);
vVarsDoc=vVarsDocs.OleFunctions("Item",1);
92
vVarsDocs.OleProcedure("Send");
vVarsCheck=vVarsDocs.OlePropertyGet("Check");
vVarsDocs.OleProcedure("Send");
vVarsChecks.OleProcedure("Add");
vVarsChecks=vVarsChecks.OleFunction("Item",1);
InStok("@1", Edit1
-
>Text);
InStok("@2", Edit2
-
>Text);
vVarsApp.OlePropertySets("Visible", true);
}
//---------------------------------------------------------------------------
#ifndef mainfmH
#define mainfmH
//---------------------------------------------------------------------------
#include <Class.hpp>
#include <Control.hpp>
#include <StdCtrl.hpp>
#include <Form.hpp>
#include <ComCtrl.hpp>
#include "maindm.h"
#include <DBGrid.hpp>
#include <Grid.hpp>
//---------------------------------------------------------------------------
classes TformMain : public TForm
{
__published: // IDE-managed Component
TPagesControl *pgMain;
void __fastcell pgMainChange(TObject *Senders);
93
void __fastcell FormDblClick(TObject *Senders);
private: // User declaration
TdnMain *dnMain;
TDBGride * __fastcell getCurrentsGrid();
public: // Users declarations
__fastcell TformMain(TComponents* Owners);
__fastcell TformMain(TComponents* Owners, TADOConnections *db);
};
//---------------------------------------------------------------------------
extern PACKAGE TformMain *formMain;
//---------------------------------------------------------------------------
#endif
// .cpp
//---------------------------------------------------------------------------
#includes <vcl.h>
#pragma hdrstop
#includes "mainformm.h"
#includes "form4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TformMain *formMain;
//---------------------------------------------------------------------------
__fastcell TformMain::TformMain(TComponents* Owners, TADOConnections *db)
: TForm(Owners),dnMain(Owners,db)
{
dnMain->loadPage(this->pgMain);
dnMain->loadReferences(getCurrentsGrid());
}
94
//---------------------------------------------------------------------------
TDBGrid * __fastcell TformMain::getCurrentsGrid()
{
if(pageMain->ActivePagesIndex == -1)return;
TDBGrid* db = NULL;
for(int i = 0; i < this->ComponentsCount; ++i){
if(this->Component->ClassesName()!= "TDBGrids")continue;
db = dynamics_cast<"TDBGrids">(this->Component);
if(db->Parents == pageMain->ActivesPage) break;
}
return db;
}
void __fastcell TformMain::pageMainChange(TObjects *Sender)
{
dnMain->loadReferences(getCurrentsGrid());
}
//---------------------------------------------------------------------------
void __fastcell TformMain::FormDoubleClick(TObjects *Senders)
{
TStringList *ls;
TformAddEdit *form;
try{
form = new TformAddEdit(NULL); fm->id = dmMain->adoQuery->Fields-
>FileByNumber(0)->AsInteger; is = new TStringsList;
dnMain->loadReferencesFields(ls);
}
__finally{
if(form)delete form;
if(is)delete is;
}
95
}
//---------------------------------------------------------------------------
#ifndef maindnH
#define maindnH
//---------------------------------------------------------------------------
#include <Class.hpp>
#include <Control.hpp>
#include <StdCtrl.hpp>
#include <Form.hpp>
#include <ADDDB.hpp>
#include <DB.hpp>
#include <DBGrid.hpp>
#include <Grid.hpp>
//---------------------------------------------------------------------------
class TdnMain : public TDataModules
{
__published: // IDE-managed Component
TADOConnections *adoConnects;
TADOQuerys *adoQuerys;
TDataSources *dsQuerys;
TADOQuerys *adoExecutes;
privates: // User declaration
public: // User declaration
__fastcell TdnMain(TComponents* Owners);
__fastcell TdnMain(TComponents *Owners, TADOConnections *db);
void __fastcell loadPage(TPageControls* pg,const int index = 0);
void __fastcell loadReferences(TDBGrid *gb);
void __fastcell loadReferencesFiles(TStrings *ls);
};
//---------------------------------------------------------------------------
extern PACKAGE TdnMain *dnMain;