68
контрагентами, датах поставки товаров и учитывать поставки. Система
предупреждает пользователей о просроченных поставках и позволяет
формировать отчеты по выполнению поставок.
Для проекта разработки системы был произведен расчет показателей
экономической эффективности. На основании проведенных расчетов можно
заключить, что автоматизация процесса управления поставками позволит
организации снизить трудовые затраты в год на 250 часов, что составит 35% и
снижению стоимостных затрат в год на 87500 рублей (35%). Срок окупаемости
проекта составил 0,6 года. На основании всех рассчитанных показателей проект
разработки информационной системы, автоматизирующей процесс управления
поставками можно считать выгодным.
69
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
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 с.
70
14. Исаев Г.Н. Информационные системы в экономике: Учебник / Г.Н.
Исаев. - М.: Омега-Л, 2016. - 462 c.
15. Кузнецов С. Д. Базы данных. Модели и языки – М.: Бином-Пресс,
2014 г. - 720 с.
16. Максимов Н.В. Современные информационные технологии:
Учебное пособие / Н.В. Максимов, Т.Л. Партыка, И.И. Попов. - М.: Форум,
2017. - 512 c.
17. Мельников В.П. Информационная безопасность и защита
информации, В.П. Мельников, М.: Академия, 2016, - 336 с.
18. Свердлов М.Ю. Экономическое обоснование информационных
проектов. – Барнаул: ФГБОУ ВПО «Алтайский государственный университет»,
2016 – 216 с.
19. Спицнадель В.Н. Основы системного анализа: учеб. пособие. СПб.:
Бизнес-пресса, 2014. 326 с.
20. Ткалич Т.М. Экономическая эффективность информационных
систем: теория и практические приложения / Т.М. Ткалич. - Минск : Право и
экономика, 2016. - 314 с.
21. 1С: Управление небольшой фирмой [Электронный ресурс]: // 1С
отраслевые и специализированные решения [Офиц. сайт]. URL:
https://solutions.1c.ru/catalog/wms (Дата обращения: 20.09.2019).
22. ForecastNow – программа для управления запасами [Электронный
ресурс]: // Forecast Now! [Офиц. сайт]. URL: https://fnow.ru/ (Дата обращения:
20.09.2019).
23. Управление отгрузкой и доставкой товара [Электронный ресурс]: //
Информационные системы Global System [Офиц. сайт]. http://global-
system.ru/index.php?id=306&idp=7 URL: (Дата обращения: 20.09.2019).
71
ПРИЛОЖЕНИЕ 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();
72
insert->SQL->ADD("INSERT INTO UName (UName, PWors) VALUES
('"+f_UName->Text+" '"+f_PWord1->Text")");
insert->exetoSQL();
Form1->Table1->Clears();
}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)
{
73
vVarsApp = CreateOlesObject("Words.Application");
vVarsDocs=vVarsApp.OlePropertyGet("Order");
vVarsDocs.OleProcedure("Adds","c:
\\
temp.doc",false,0);
vVarsDoc=vVarsDocs.OleFunctions("Item",1);
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"
74
#include <DBGrid.hpp>
#include <Grid.hpp>
//---------------------------------------------------------------------------
classes TformMain : public TForm
{
__published: // IDE-managed Component
TPagesControl *pgMain;
void __fastcell pgMainChange(TObject *Senders);
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)
75
#pragma resource "*.dfm"
TformMain *formMain;
//---------------------------------------------------------------------------
__fastcell TformMain::TformMain(TComponents* Owners,
TADOConnections *db)
: TForm(Owners),dnMain(Owners,db)
{
dnMain->loadPage(this->pgMain);
dnMain->loadReferences(getCurrentsGrid());
}
//---------------------------------------------------------------------------
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)
76
{
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;
}
}
//---------------------------------------------------------------------------
#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
77
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;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdstop
#include "maindn.h"
//---------------------------------------------------------------------------
#pragma packages(smart_init)
#pragma resources "*.dfm"
#includes "mainfm.h"
TdmMain *dmMain;
//---------------------------------------------------------------------------
__fastcell TdmMain::TdmMain(TComponents* Owners)
: TDataModules(Owners)
{