Дипломная работа: Автоматизация контроля качества в ООО "Джон Вайли и Сыновья Рус"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
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{
}
Источник: https://baza.diplomsite.ru/previewfile/1829

Смотрите также:

17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы
'Заповит' Рейнгольда Глиэра: стилистические особенности
'Создание и продвижение интернет - платформы реферальной системы' на примере компании Бартер–кард
[БИЛЕТЫ] IMK №3
[ТЕСТЫ] ИМК №1 по физиологии (база 1 семестр и на экз)
[ТЕСТЫ] Спланхнология
[ТЕСТЫ] ЦНС - ЛУЧШИЕ 2020