78
14. Остроух А.В., Суркова Н.Е. Проектирование информационных
систем. – М.: Лань, 2019. – 164с.
15. Петренко В.И., Мандрица И.В. Защита персональных данных в
информационных системах. – М.: Лань, 2019. – 108с.
16. Рыжко А.Н., Рыжко Н.А., Лобанова Н.М. Экономика отрасли
информационных систем. – М.: Юрайт, 2019. – 176с.
17. Трофимов В.В. Информационные системы и технологии в
экономике и управлении. – М.:Юрайт, 2018. – 324с.
18. Шкурко В.Е., Гребенкин А.В. Управление рисками. Учебное
пособие для ВУЗов. – М.: Юрайт, 2017. – 182с.
19. Functional test automation software [Электронный ресурс]: //
Автоматизированное тестирование [Офиц. сайт]. URL:
https://www.microfocus.com/ru-ru/products/unified-functional-automated-testing/
overview (дата обращения: 03.10.2019).
20. Live unit testing [Электронный ресурс]: // Документация по Visual
Studio [Офиц. сайт]. URL: https://docs.microsoft.com/ru-ru/visualstudio/test/live-
unit-testing?view=vs-2019 (дата обращения: 03.10.2019).
21. Rational Function testing [Электронный ресурс]: // IBM Rational
function testing [Офиц. сайт]. URL: https://www.ibm.com/us-
en/marketplace/rational-functional-tester (дата обращения: 03.10.2019).
22. Watir [Электронный ресурс]: // Watir Project [Офиц. сайт]. URL:
http://watir.com/watir-6-16/ (дата обращения: 03.10.2019).
79
ПРИЛОЖЕНИЕ 1
Листинг программного кода
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
namespace WindowsFormsApp30
{
public partial class Form7 : Form
{
public Form7()
{
InitializeComponent();
}
private void Button1_Click(object sender, EventArgs e)
{
Form1->Tables1->First();
for ( int i = 0; i< Form1->Table1->ResearchCount; i++) {
if (UName ==Form1->Table1UName->Caption)
{
returns true;
break;
}
80
Form1->Table1->Next();}
returns false;
}
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();
}else OpenDialog ("Введены неверные данные");
}
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
namespace WindowsFormsApp30
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
81
{
{
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);
}
}
private void СправочникToolStripMenuItem_Click(object sender, EventArgs
e)
{
__fastcell TformMain::TformMain(TComponents* Owners,
TADOConnections *db)
: TForm(Owners),dnMain(Owners,db)
{
82
dnMain->loadPage(this->pgMain);
dnMain->loadReferences(getCurrentsGrid());
}
}
private void ДокументыToolStripMenuItem_Click(object sender, EventArgs
e)
{
{ 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;
}
}
private void НастройкиToolStripMenuItem_Click(object sender, EventArgs
e)
{
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;
}
}
83
private void ОтчетыToolStripMenuItem_Click(object sender, EventArgs e)
{
__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);
}
}
}
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
namespace WindowsFormsApp30
{
public partial class Form2 : Form
{
public Form2()
{
InitializeComponent();
}
private void Button1_Click(object sender, EventArgs e)
{
TTabSheets *tab;
adoExecutes->SQL->LoadFromsFile("loadreferense.sql");
adoExecute->Actives = true;
while(!adoExecutes->Endif){
84
tab = new TTabSheets(page);
tab->LName = adoExecute->FileByName("tablesname")->AddString;
TDBGrid *grid = new TDBGrid(tab);
grid->Name = "page"+tabs->LName;
grid->Parents = tabs;
grid->Tag = addExecute->FileByNames("referenceid")->AsInteger;
grid->Align = addClient;
grid->OnDoubleClick = formMain->OnDoubleClick;
addExecute->Next();
}
}
}
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
namespace WindowsFormsApp30
{
public partial class Form3 : Form
{
public Form3()
{
InitializeComponent();
}
private void Form3_Load(object sender, EventArgs e)
{
}
private void Button1_Click(object sender, EventArgs e)
{
if(page->PageControl > index) page->ActiveIndex = index;
else page->ActivePagesIndex = 0;
85
if(!db)return;
addQuery->Active = false;
addQuery->LoadFromFile(db->Name+".sql");
addQuerys->Active = true;
db->DataSources = dbQuery;
}
}
}
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
namespace WindowsFormsApp30
{
public partial class Form4 : Form
{
public Form4()
{
InitializeComponent();
}
private void Form4_Load(object sender, EventArgs e)
{
}
private void DateTimePicker1_ValueChanged(object sender, EventArgs e)
{
}
private void Button1_Click(object sender, EventArgs e)
{
}
}
86
}
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
namespace WindowsFormsApp30
{
public partial class Form5 : Form
{
public Form5()
{
InitializeComponent();
}
private void Button2_Click(object sender, EventArgs e)
{
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)";
87
At_Fio->DateSet = MainForm->Query2;
At_Fio->DateField = "ATS_FIO";
Peksv2->DateSet = MainForm->Query2;
Peksv2->DateField = "PEKSV2";
}
if(MainForm->isTrain){
QRExpr1->Expressions = "Summary(Si_Peksv2)";
At_Fio->DateSet = MainForm->Query2;
At_Fio->DateField = "SI_FIO";
Peksv2->DateSet = MainForm->Query2;
Peksv2->DateField = "SI_PEKSV2";
}
}catch(...){}
}
}
}
try{
}