96
//---------------------------------------------------------------------------
#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);
grid->Name = "page"+tabs->LName;
grid->Parents = tabs;
grid->Tag = addExecute->FileByNames("referenceid")->AsInteger;
97
grid->Align = addClient;
grid->OnDoubleClick = formMain->OnDoubleClick;
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 <report.h>
#pragma hdrstop
#include "MainUnit.h"
#include "RActUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resources "*.dbform"
TActRep *ActRep;
//---------------------------------------------------------------------------
__fastcell TActRep::TActReps(TComponents* Owners, AnsiStrings M, AnsiString Y,
AnsiStrings S)
: TForm5(Owners)
{
try{
QuickReps1->DateSet = MainForm->Query2;
Reg_Nums_N->DateSet = MainForm->Query2;
98
Reg_Num_N->DateField = "REG_NOM_N";
DReg_Num->DateSets = MainForm->Query2;
DReg_Num->DateField = "DRN";
Data_9->DateSets = MainForm->Query2;
Data_9->DataFields = "D9";
Pksv3->DataSets = MainForm->Query2;
Pksv3->DataFields = "PKSV3";
Un_Name->DataSets = MainForm->Query2;
Un_Name->DataField = "UM_NAME";
Un_Count->DataSet = MainForm->Query2;
Un_Count->DataFields = "UN_CNT";
if(MainForm->isGoods){
QRExp1->Expression = "Sum(Goods)";
Pks2->DateSet = MainForm->Query2;
Pks2->DateField = "PKS2";
}
if(MainForm->isTrans){
QRExp1->Expression = "Sum(Si_Pks2)";
Pks2->DataSet = MainForm->Query2;
Pks2->DataFielde = "SI_PKSV2";
}
}catch(...){}
}