96
void fastcell FormDblClick(TObject *Senders);
private:
// User declaration
TdnMain *dnMain;
TDBGride * fastcell getCurrentsGrid();
public:
// Users declarations
fastcell TformMain(TComponents* Owners);
fastcell TformMain(TComponents* Owners, TADOConnections *db);
};
//---------------------------------------------------------------------------
extern PACKAGE TformMain *formMain;
//---------------------------------------------------------------------------
#endif
// .cpp
//---------------------------------------------------------------------------
#includes <vcl.h>
#pragma hdrstop
#includes "mainformm.h"
#includes "form4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TformMain *formMain;
//---------------------------------------------------------------------------
fastcell TformMain::TformMain(TComponents* Owners, TADOConnections *db)
: TForm(Owners),dnMain(Owners,db)
{
dnMain->loadPage(this->pgMain);
dnMain->loadReferences(getCurrentsGrid());
}
97
//---------------------------------------------------------------------------
TDBGrid * fastcell TformMain::getCurrentsGrid()
{
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;
}
void fastcell TformMain::pageMainChange(TObjects *Sender)
{
dnMain->loadReferences(getCurrentsGrid());
}
//---------------------------------------------------------------------------
void fastcell TformMain::FormDoubleClick(TObjects *Senders)
{
TStringList *ls;
TformAddEdit *form;
try{
form = new TformAddEdit(NULL); fm->id = dmMain->adoQuery->Fields-
>FileByNumber(0)->AsInteger;
is = new TStringsList;
}
if(is)delete is;
if(form)delete form;
finally{
}
dnMain->loadReferencesFields(ls);
98
}
extern PACKAGE TdnMain *dnMain;
//---------------------------------------------------------------------------
};
void fastcell loadReferencesFiles(TStrings *ls);
void fastcell loadReferences(TDBGrid *gb);
void fastcell loadPage(TPageControls* pg,const int index = 0);
fastcell TdnMain(TComponents *Owners, TADOConnections *db);
fastcell TdnMain(TComponents* Owners);
public:
// User declaration
privates:
// User declaration
TADOQuerys *adoExecutes;
TDataSources *dsQuerys;
TADOQuerys *adoQuerys;
TADOConnections *adoConnects;
published:
// IDE-managed Component
{
class TdnMain : public TDataModules
//---------------------------------------------------------------------------
#include <Grid.hpp>
#include <DBGrid.hpp>
#include <DB.hpp>
#include <ADDDB.hpp>
#include <Form.hpp>
#include <StdCtrl.hpp>
#include <Control.hpp>
#include <Class.hpp>
//---------------------------------------------------------------------------
#define maindnH
#ifndef maindnH
//---------------------------------------------------------------------------
99
grid->OnDoubleClick = formMain->OnDoubleClick;
grid->Align = addClient;
grid->Tag = addExecute->FileByNames("referenceid")->AsInteger;
grid->Parents = tabs;
grid->Name = "page"+tabs->LName;
TDBGrid *grid = new TDBGrid(tab);
tab->LName = adoExecute->FileByName("tablesname")->AddString;
tab = new TTabSheets(page);
while(!adoExecutes->Endif){
adoExecute->Actives = true;
adoExecutes->SQL->LoadFromsFile("loadreferense.sql");
TTabSheets *tab;
{
void fastcell TdnMain::loadPages(TPageControls *pg, const int index)
}
{
: TDataModules(Owners)
fastcell TdmMain::TdmMain(TComponents* Owners)
//---------------------------------------------------------------------------
TdmMain *dmMain;
#includes "mainfm.h"
#pragma resources "*.dfm"
#pragma packages(smart_init)
//---------------------------------------------------------------------------
#include "maindn.h"
#pragma hdstop
#include <vcl.h>
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
100
//---------------------------------------------------------------------------
#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;
}
db->DataSources = dbQuery;
addQuerys->Active = true;
addQuery->LoadFromFile(db->Name+".sql");
addQuery->Active = false;
if(!db)return;
{
void fastcell TMain::loadReferences(TDBGrid *gb)
}
else page->ActivePagesIndex = 0;
if(page->PageControl > index) page->ActiveIndex = index;
}
addExecute->Next();
101
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(...){}
}
//---------------------------------------------------------------------------
