88
организации, потому что внедрение системы способствует снижению трудовых
затрат в год на 680 человеко-часов (43%) и снижению стоимостных затрат в год
на 184 000 рублей (43%). Срок окупаемости проекта составил 1,6 года.
Разработанная система была представлена руководству организации, которое
приняло решение о внедрении системы в деятельность склада.
89
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. ГОСТ Р ИСО/МЭК ТО 16326-2002 «Программная инженерия.
Руководство по применению ГОСТ Р ИСО/МЭК 12207 при управлении
проектом».
2. Приказ Минфина РФ от 9 июня 2001 г. N 44н «Об утверждении
Положения по бухгалтерскому учету «Учет материально-производственных
запасов» ПБУ 5/01 (принят ГД ФС РФ 19.07.2001) (ред. от 16.05.2015) // СПС
Консультант Плюс.
3. Абросимова М.А. Информационные технологии: Учебное пособие.
- М.: КноРус, 2016. - 368 стр.: ил.
4. Андрианов В.В. Обеспечение информационной безопасности
бизнеса. М.: Альпина Паблишер, 2015. 392 с.
5. Балдин К.В. Информационные технологии в менеджменте. - М.: ИЦ
Академия, 2012. - 328 с.
6. Васильков А.В. Информационные системы и их безопасность. – М.:
Форум, 2017. – 544 с.
7. Вдовин В.М. Предметно-ориентированные информационные
системы. - М.: Дашков и К, 2014. - 388 с.
8. Вендров А.М. Проектирование программного обеспечения
экономических информационных систем / А.М. Вендоров. М.: «Финансы и
статистика», 2015 г. - 347 с.
9. Гаврилов М.В. Информатика и информационные технологии. - М.:
Юрайт, 2017. - 378 с.
10. Гвоздева В.А. Информатика и автоматизированные
информационные системы. - М.: ИД Форум, 2018. - 544 c.
11. Голицына О.Л. Информационные технологии: Учебник. - М.:
Инфра-М, 2017. - 608 с.
12. Голицына О.Л., Попов И.И. Базы данных. Учебное пособие. 3-е
изд., перераб. и доп. М. : ФОРУМ, 2016. 400 с.
13. Грекул В.И., Денищенко Г.Н. Проектирование информационных
систем - М.: ИУИТ, 2015 - 300 с.
90
14. Давыдов, В. Visual C++. Разработка Windows-приложений с
помощью MFC и API-функций. - М.: БХВ-Петербург, 2014. - 576 c
15. Емельянова Н.З., Партыка Т.Л. Устройство и функционирование
информационных систем. Н. З. Емельянова, Т. Л. Партыка. Учебное пособие. М.
: ФОРУМ : НИЦ ИНФРА-М, 2015. 448 с.
16. Исаев Г.Н. Информационные системы в экономике: Учебник / Г.Н.
Исаев. - М.: Омега-Л, 2016. - 462 c.
17. Кузнецов С. Д. Базы данных. Модели и языки – М.: Бином-Пресс,
2014 г. - 720 с.
18. Максимов Н.В. Современные информационные технологии:
Учебное пособие / Н.В. Максимов, Т.Л. Партыка, И.И. Попов. - М.: Форум, 2013.
- 512 c.
19. Мельников В.П.Информационная безопасность и защита
информации, В.П. Мельников, М.: Академия, 2016, - 336 с.
20. Панюкова Т. А. Языки и методы программирования. Создание
простых GUI-приложений с помощью Visual С++. Учебное пособие / Т.А.
Панюкова, А.В. Панюков. - Москва: Мир, 2015. - 144 c.
21. Понамарев В. Программирование на C++/C# в Visual Studio. - М.:
БХВ-Петербург,2015. – 917 c.
22. Свердлов М.Ю. Экономическое обоснование информационных
проектов. – Барнаул: ФГБОУ ВПО «Алтайский государственный университет»,
2016 – 216 с.
23. Спицнадель В.Н. Основы системного анализа: учеб. пособие. СПб.:
Бизнес-пресса, 2014. 326 с.
24. Ткалич Т.М. Экономическая эффективность информационных
систем: теория и практические приложения / Т.М. Ткалич. - Минск : Право и
экономика, 2016. - 314 с.
25. Внешняя обработка «Отгрузка товаров»[Электронный ресурс]: //
INFOSTART.RU [Офиц. сайт]. URL: https://infostart.ru/public/579462/ (Дата
обращения: 18.03.2019).
26. Класс365 [Электронный ресурс]: // Бизнес.Ру [Офиц. сайт].URL:
https://class365.ru/optovaya-torgovlya (Дата обращения: 18.03.2019).
91
27. Конструирование процессов [Электронный ресурс]: // Интернет
университет информационных технологий «ИНТУИТ» [Офиц. сайт]. URL:
https://www.intuit.ru/studies/professional_skill_improvements/4424/courses/598/lectu
re/12854 (Дата обращения: 18.03.2019).
28. МойСклад [Электронный ресурс]: // Программа складского учета
[Офиц. сайт]. https://www.moysklad.ru/programmy-dlja-biznesa/skladskaja-
programma/ URL: (Дата обращения: 18.03.2019).
29. Принтер этикеток АТОЛ ВР41 [Электронный ресурс]: // АТОЛ
[Офиц. сайт]. URL:https://www.atol.ru/catalog/printer-etiketok-atol-bp41/(Дата
обращения: 18.03.2019).
30. Сканер штрих-кодов Honeywell 1450GHR [Электронный ресурс]: //
АТОЛ [Офиц. сайт].https://www.atol.ru/catalog/skaner-shtrikhkoda-honeywell-
1450ghr/(Дата обращения: 18.03.2019).
31. Управление отгрузкой и доставкой товара [Электронный ресурс]: //
Информационные системы Global System [Офиц. сайт]. http://global-
system.ru/index.php?id=306&idp=7URL: (Дата обращения: 18.03.2019).
92
ПРИЛОЖЕНИЕ1
Листинг программного кода
Модуль авторизации
TForm2 *Form2;
bool Lserch (AnsiString L){
Form2->Table1->First();
for ( int i = 0; i< Form2->Table1->RecordCount; i++) {
if (L ==Form2->Table1Login->Value)
{
return true;
break;
}
Form2->Table1->Next();}
return false;
}
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Form2->Table1->Open();
//if (Lserch(f_login->Text)) ShowMessage("true"); else ShowMessage("false");
if (( Lserch(f_login->Text)== false) && (f_pass1->Text==f_pass2->Text) &&
(f_a_pass->Text=="1234")){
add->SQL->Clear();
add->SQL->Add("INSERT INTO login (Login, Pass , Perm) VALUES ('"+f_login-
>Text+"', '"+f_pass1->Text+"', '"+f_perm->ItemIndex+"')");
add->ExecSQL();
Form2->Table1->Close();
93
}else ShowMessage ("Error");
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
Form2->Close();
}
Модуль загрузки данных о заказах
//---------------------------------------------------------------------------
#include <Order.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Variant vVarApp, vVarDocs, vVarDoc, vVarParagraph, vVarParagraphs, sh;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
vVarApp = CreateOleObject("Word.Application");
vVarDocs=vVarApp.OlePropertyGet("Order");
94
vVarDocs.OleProcedure("Add","c:
\\
temp.doc",false,0);
vVarDoc=vVarDocs.OleFunction("Item",1);
vVarDoc.OleProcedure("Send");
vVarCheck=vVarDoc.OlePropertyGet("Check");
vVarDoc.OleProcedure("Send");
vVarCheck.OleProcedure("Add");
vVarCheck=vVarCheck.OleFunction("Item",1);
InStock("@1", Edit1->Text);
InStock("@2", Edit2->Text);
vVarApp.OlePropertySet("Visible", true);
}
//---------------------------------------------------------------------------
Модуль выгрузки заявок на производство
//---------------------------------------------------------------------------
#include <Request.h>
#pragma hdrstop
#include "Unit10.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm10*Form10;
Variant vVarApp, vVarDocs, vVarDoc, vVarParagraph, vVarParagraphs, sh;
//---------------------------------------------------------------------------
__fastcall TForm10::TForm10(TComponent* Owner)
95
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
vVarApp = CreateOleObject("Word.Application");
vVarDocs=vVarApp.OlePropertyGet("Request");
vVarDocs.OleProcedure("Add","c:
\\
temp.doc",false,0);
vVarDoc=vVarDocs.OleFunction("Item",1);
vVarDoc.OleProcedure("Send");
vVarCheck=vVarDoc.OlePropertyGet("Check");
vVarDoc.OleProcedure("Send");
vVarCheck.OleProcedure("Add");
vVarCheck=vVarCheck.OleFunction("Item",1);
InStock("@1", Edit1->Text);
InStock("@2", Edit2->Text);
vVarApp.OlePropertySet("Visible", true);
}
//---------------------------------------------------------------------------
Модуль справочников
#ifndef mainfmH
#define mainfmH
//---------------------------------------------------------------------------
#include <Classes.hpp>
96
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include "maindm.h"
#include <DBGrids.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class TfmMain : public TForm
{
__published: // IDE-managed Components
TPageControl *pgMain;
void __fastcall pgMainChange(TObject *Sender);
void __fastcall FormDblClick(TObject *Sender);
private: // User declarations
TdmMain *dmMain;
TDBGrid * __fastcall getCurrentGrid();
public: // User declarations
__fastcall TfmMain(TComponent* Owner);
__fastcall TfmMain(TComponent* Owner, TADOConnection *db);
};
//---------------------------------------------------------------------------
extern PACKAGE TfmMain *fmMain;
//---------------------------------------------------------------------------
#endif
// .cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "mainformm.h"
97
#include "form4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmMain *fmMain;
//---------------------------------------------------------------------------
__fastcall TfmMain::TfmMain(TComponent* Owner, TADOConnection *db)
: TForm(Owner),dmMain(Owner,db)
{
dmMain->loadPages(this->pgMain);
dmMain->loadReference(getCurrentGrid());
}
//---------------------------------------------------------------------------
TDBGrid * __fastcall TfmMain::getCurrentGrid()
{
if(pgMain->ActivePageIndex == -1)return;
TDBGrid* db = NULL;
for(int i = 0; i < this->ComponentCount; ++i){
if(this->Components->ClassName()!= "TDBGrid")continue;
db = dynamic_cast<"TDBGrid">(this->Components);
if(db->Parent == pgMain->ActivePage) break;
}
return db;
}
void __fastcall TfmMain::pgMainChange(TObject *Sender)
{
dmMain->loadReference(getCurrentGrid());
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::FormDblClick(TObject *Sender)