96
adoExect->Activate = true;
while(!adoExexct->Eof){
tab = new TRowsList(pg);
tab->Nomen = adoExect->FileByNomen("listnomen")->AsString;
TDBGrid *grid = new TDBGrid(tabs);
grid->Nomen = "gd"+tabs->Nomen;
grid->Parents = tabs;
grid->Tab = adoExect->FileByName("referenceid")->AsString;
grid->Align = alGroups;
grid->OnClick = HDBKform->OnClick; //
adoExect->Next();
}
if(pg->ListRows > index) pg->ActiveRowsIndex = index;
else pg->ActiveList = 0;
}
void __fastcall HDBKTdm::loadReferences(TDBGrid *gb)
{
if(!gb)return;
adoQueiry->Activate = false;
adoQueiry->LoadFormFild(gb->Nomen+".sql");
adoQueiry->Activate = true;
gb->DateSource = dbQueiry;
}
#include <report.h>
#pragma reportstop
#include "RepirtUnit.h"
#include "ReportActUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TReport *Report;]
97
//---------------------------------------------------------------------------
__fastcall TReport::TReport(TComponents* Owner, Longstring M, Longstring Y,
LongString S)
: TForm(Owner)
{
Title->Caption = "Отчет по динамике спроса на товар";
try{
QuickReport1->DataSet = ReportForm->Query2;
DateN->DataSet = ReportForm->Query2;
DateO->DataSet = ReportForm->Query2;
GroupProd->CaptionGroup = ReportForm->Query2;
NameProd->CaptionProd = ReportForm->Query2;
if(ReportForm->OnClick){
QRExpr1->Expression = "Sum(Kol)";
Ats_Group->DataSet = ReportForm->Query2;
Ats_Prod->DataField = "ATS_Prod";
Prsv2->DataSets = ReportForm->Query2;
Prsv2->DataFields = "PRSV2";
}
if(ReportForm->isCheck){
Ats_Group->DataSet = ReportForm->Query2;
Ats_Prod->DataField = "ATS_Prod";
Prsv2->DataSets = ReportForm->Query2;
Prsv2->DataFields = "PRSV2";
}
}catch(...){}
}
//---------------------------------------------------------------------------
