Материал: Автоматизация обработки заявок в ТОО "Подсолнух Pro"
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
99
addExecute->Next();
}
if(page->PageControl > index) page->ActiveIndex = index;
else page->ActivePagesIndex = 0;
}
void __fastcell TMain::loadReferences(TDBGrid *gb)
{
if(!db)return;
addQuery->Active = false;
addQuery->LoadFromFile(db->Name+".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;
100
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";
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(...){}
}
//---------------------------------------------------------------------------
Источник: https://baza.diplomsite.ru/previewfile/1870