СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. ГОСТ Р 57193-2016 «Системная и программная инженерия. Процессы
жизненного цикла систем»
2. Абросимова М.А. Информационные технологии: Учебное пособие. -
М.: КноРус, 2016. - 368 стр.: ил
3. Андрианов В.В. Обеспечение информационной безопасности бизнеса.
М.: Альпина Паблишер, 2017. 392 с.
4. Балдин К.В. Информационные технологии в менеджменте. - М.: ИЦ
Академия, 2018. - 328 с.
5. Агальцов, В.П. Базы данных. В 2-х т. Т. 2. Распределенные и
удаленные базы данных: Учебник / В.П. Агальцов. - М.: ИД ФОРУМ, НИЦ
ИНФРА-М, 2016. - 272 c.
6. Аткинсон Л. MySQL. Библиотека профессионала - СПб: Вильямс,
2017. - 624 c.
7. Бен-Ган И., Microsoft SQL Server 2008. Основы T-SQL. - СПб:БХВ-
Петербург, 2017. - 432с.
8. Бритов Г., Осипова Т. Моделирование бизнес-процессов. - М.:LAP,
2016. – 124 с.
9. Виейра Р.Программирование баз данных Microsoft SQL Server 2008.
Базовый курс / Р. Виейра - Диалектика М., 2016. - 812 с.
10. Васильков А.В. Информационные системы и их безопасность. - М.:
Форум, 2017. - 544 с.
11. Вдовин В.М. Предметно-ориентированные информационные системы.
- М.: Дашков и К, 2018. - 388 с.
12. Вендров А.М. Проектирование программного обеспечения
экономических информационных систем / А.М. Вендоров. М.: «Финансы и
статистика», 2016 г. - 347 с.
96
13. Гамма Э., Хелм Р., Джонсон Р., Влиссидес Дж. Приемы объектно-
ориентированного проектирования. Паттерны проектирования. - СПб.:Питер,
2017. – 368 с.
14. Голицына, О.Л. Базы данных: Учебное пособие / О.Л. Голицына, Н.В.
Максимов, И.И. Попов. - М.: Форум, 2016. - 400 c.
15. Грофф Д., Вайнберг П., Оппель Э. SQL. Полное руководство. - СПб.:
Вильямс, 2016. - 960с.
16. Гудсон Д., Стюард Р. Практическое руководство по доступу к
данным. - СПб.:БХВ-Петербург, 2017. – 304 с.
17. Гаврилов М.В. Информатика и информационные технологии. - М.:
Юрайт, 2017. - 378 с.
18. Гвоздева В.А. Информатика и автоматизированные информационные
системы. - М.: ИД Форум, 2018. - 544 c.
19. Голицына О.Л. Информационные технологии: Учебник. - М.: Инфра-
М, 2017. - 608 с.
20. Грекул В.И., Денищенко Г.Н. Проектирование информационных
систем - М.: ИУИТ, 2015 - 300 с.
21. Емельянова Н.З., Партыка Т.Л. Устройство и функционирование
информационных систем. Н. З. Емельянова, Т. Л. Партыка. Учебное пособие. М. :
ФОРУМ : НИЦ ИНФРА-М, 2017. 448 с.
22. Смирнова Е.П. Делопроизводство для секретаря. Учеб. пособие. М. –
2018 – 524 с.
23. Стенюков М.В. Делопроизводство: Конспект лекций.-М.: Приор,
2016.
24. Столяренко Л.Д. Психология и этика деловых отношений: Учеб.
пособие для студентов сред. проф. образования.-2-е изд., доп. и перераб. – Ростов
н/Д: Феникс, 2017.
25. Теплицкая Т.Ю. Настольная книга секретаря-референта. – Ростов-на-
Дону: Феникс, 2017.- С.237–241.
97
26. Исаев Г.Н. Информационные системы в экономике: Учебник / Г.Н.
Исаев. - М.: Омега-Л, 2016. - 462 c.
27. Практическое руководство по программированию / Пер. с англ. Б.
Мик, П. Хит, Н. Рашби и др.; под ред. Б. Мика, П. Хит, Н. Рашби. — М.: Радио и
связь, 2016. — 168 с., ил.
28. Лифшиц Н.И., Левин Е.Т Механизация и автоматизация процессов
отборки и комплектования заказов на складах М., 2016.
29.
г. - 720 с.
30.
Кузнецов С. Д. Базы данных. Модели и языки - М.: Бином-Пресс, 2018
Кристиан Дари, Богдан Бринзаре, Филип Черчез-Тоза, Михай Бусика.
AJAX и PHP. Разработка динамических веб-приложений: Учебник – М.: Символ
Плюс, 2017.
31. Максимов Н.В. Современные информационные технологии: Учебное
пособие / Н.В. Максимов, Т.Л. Партыка, И.И. Попов. - М.: Форум, 2017. - 512 c.
32. Мельников В.П. Информационная безопасность и защита
информации, В.П. Мельников, М.: Академия, 2016, - 336 с.
33. Свердлов М.Ю. Экономическое обоснование информационных
проектов. - Барнаул: ФГБОУ ВПО «Алтайский государственный университет»,
2016 - 216 с.
34. Спицнадель В.Н. Основы системного анализа: учеб. пособие. СПб.:
Бизнес-пресса, 2018. 326 с.
35. Ткалич Т.М. Экономическая эффективность информационных систем:
теория и практические приложения / Т.М. Ткалич. - Минск : Право и экономика,
2016. - 314 с.
36. Язык компьютера. Пер. с англ, под ред. и с предисл. В. М. Курочки-
на. — М.: Мир, 2017. - 240 с., ил. Глушаков С.В., Ломотько Д.В. Базы данных,
2017.
37. Внедрение системы электронного офисного документооборота» //
режим доступа http://digdes.ru/project/1714
98
38. Готовые методики постановки документооборота. [Электронный
ресурс], – http://v8.1c.ru/doc8/method/ – Официальный сайт производителя
программного обеспечения 1С.
39. Мониторинг состояния оборудования [Электронный ресурс]: // SKF
[Офиц. сайт]. https://www.skf.com/ru/products/condition-
monitoring/index.html (Дата обращения: 25.10.2019).
40. СКАГС, кафедра «Информационных технологий» //Internet – http://
www.skags.ru;
41. ТИУЭ кафедра «Информационные технологии» //Internet – http://
www.tmei.ttn.ru;
42. Программа диагностики состояния оборудования PCM370
[Электронный ресурс]: // Группа компаний «Диагностика» [Офиц. сайт]. URL:
https://www.msdiag.ru/produktsiya-provibtech/programma-diagnostiki-sostoyaniya-
oborudovaniya-pcm370/ (Дата обращения: 25.10.2019).
43. Система управления основными фондами и активами NERPA
[Электронный ресурс]: // Novosoft [Офиц. сайт]. URL:
http://www.novosoft.ru/nerpa/nerpa-eam.shtml (Дата обращения: 25.10.2019).
99
ПРИЛОЖЕНИЯ
100
ПРИЛОЖЕНИЕ 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("Bbi ввели
неверные данные!");
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();
}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)
{
}
101
//--------------------------------------------------------------------------
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);
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 pp>
#include <Control.hpp>
#include .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);
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
102
#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());
//--------------------------------------------------------------------------
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;
}
}
//...................................................................................................
#ifndef maindnH
#define maindnH
//...................................................................................................
#include <Class.hpp>
#include <Control.hpp>
#include .hpp>
#include <Form.hpp>
#include <ADDDB.hpp>
103
#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;
private s: // U ser 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)
{
}
void _ fastcell TdnMain::loadPages(TPageControls *pg, const int index)
{
TTabSheets *tab;
adoExecutes->SQL->LoadFromsFile("loadreferense.sql");
adoExecute->Actives = true;
while(!adoExecutes->Endif){
tab = new TTabSheets(page);
tab->LName = adoExecute->FileByName("tablesname")->AddString;
TDBGrid *grid = new TDBGrid(tab);
104
grid->Name = "page"+tabs->LName;
grid->Parents = tabs;
grid->Tag = addExecute->FileByNames("referenceid")->AsInteger; grid->Align = addClient;
grid->OnDoubleClick = formMain->OnDoubleClick;
addExe cute ->N ext();
}
if(page->PageControl > index) page->ActiveIndex = index;
else page->ActivePagesIndex = 0;
}
void _ fastcell TMain::loadReferences(TDBGrid *gb)
{
if(!db)return;
addQuery->Active = false;
addQuery->LoadFromF ile(db->N ame+" .sql");
addQuerys->Active = true;
db->DataSources = dbQuery;
}
//--------------------------------------------------------------------------
#include <vmcl.h>
#pragma hdrstop
#include "MainUnit.h"
#include "ActUnit.h"
//--------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TableActRep *TableActRep;
//--------------------------------------------------------------------------
__fastcall TActRep::TActRep(TComponents* Owners, AnsiString F, AnsiString Y,
AnsiString S)
: TForm(Owners)
{
try{
QuickRep1->DateSet = MainForm->Query2;
Regs_Num_N->DateSet = MainForm->Query2;
Regs_Num_N->DateCell = "REG_NOM_N";
DRegs_M->DateSet = MainForm->Query2;
DRegs_N->DateField = "DRN";
Date_9->DateSet = MainForm->Query(); Date_9->DateField = "D9";
Peksv3->DateSet = MainForm->Query();
Peksv3->DateField = "PKSV3";
Um_Name->DateSet = MainForm->Query(); Um_Name->DateField = "UM_NAME";
Um_Count->DateSet = MainForm->Query(); Um_Count->DateField = "UM_CNT";
if(MainForm->Tech){
QRExpr1->Expression = "Sum(Peksv2)";
At_Fio->DateSet = MainForm->Query2;
At_Fio->DateField = "ATS_FIO";
105