96
};
//---------------------------------------------------------------------------
extern PACKAGE TfmSpr *fmSpr;
//---------------------------------------------------------------------------
#endif
// .cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "sprForm.h"
#include "formSpr.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmSPr *fmSpr;
//---------------------------------------------------------------------------
__fastcall TfmSpr::TfmSPr(TComponent* Owner, TADOConnection *db)
: TForm(Owner),dmSpr(Owner,db)
{
dmSpr->loadPages(this->pgSpr);
dmSpr->loadReference(getCurrentGrid());
}
//---------------------------------------------------------------------------
TDBGrid * __fastcall TfmSpr::getCurrentGrid()
{
if(pgSpr->ActivePageIndex == -1)return;
TDBSpr* db = NULL;
for(int i = 0; i < this->ComponentCount; ++i){
if(this->Components->ClassName()!= "TDBGrid")continue;
97
db = dynamic_cast<"TDBGrid">(this->Components);
if(db->Parent == pgMain->ActivePage) break;
}
return db;
}
void __fastcall TfmMain::pgMainChange(TObject *Sender)
{
fm = new TfmAddEdit(NULL);
//получение перевичного ключа
fm->id = dmMain->adoQuery->Fields->FieldByNumber(0)-
>AsInteger; ls = new TStringList;
dmMain->loadReferenceFields(ls);
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::FormDblClick(TObject *Sender)
{
TStringList *ls;
TfmAddEdit *fm;
try{
dmMain->loadReference(getCurrentGrid());
}
__finally{
if(fm)delete fm;
if(ls)delete ls;
}
}
//---------------------------------------------------------------------------
#ifndef maindmH
#define maindmH
//---------------------------------------------------------------------------
98
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class TdmMain : public TDataModule
{
__published: // IDE-managed Components
TADOConnection *adoConnect;
TADOQuery *adoQuery;
TDataSource *dsQuery;
TADOQuery *adoExecute;
private: // User declarations
public: // User declarations
__fastcall TdmMain(TComponent* Owner);
__fastcall TdmMain(TComponent *Owner, TADOConnection *db);
void __fastcall loadPages(TPageControl* pg,const int index = 0);
void __fastcall loadReference(TDBGrid *gb);
void __fastcall loadReferenceFields(TStrings *ls);
};
//---------------------------------------------------------------------------
extern PACKAGE TdmMain *dmMain;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#include <vcl.h>
99
#pragma hdrstop
#include "maindm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#include "mainfm.h"
TdmMain *dmMain;
//---------------------------------------------------------------------------
__fastcall TdmMain::TdmMain(TComponent* Owner)
: TDataModule(Owner)
{
}
void __fastcall TdmMain::loadPages(TPageControl *pg, const int index)
{
TTabSheet *tab;
adoExecute->SQL->LoadFromFile("loadreferense.sql");
adoExecute->Active = true;
while(!adoExecute->Eof){
tab = new TTabSheet(pg);
tab->Name = adoExecute->FieldByName("tablename")->AsString;
TDBGrid *grid = new TDBGrid(tab);
grid->Name = "gd"+tab->Name;
grid->Parent = tab;
grid->Tag = adoExecute->FieldByName("referenceid")->AsInteger;
grid->Align = alClient;
grid->OnDblClick = fmMain->OnDblClick; //
adoExecute->Next();
}
if(pg->PageCount > index) pg->ActivePageIndex = index;
else pg->ActivePageIndex = 0;
100
}
void __fastcall TdmMain::loadReference(TDBGrid *gb)
{
if(!gb)return;
adoQuery->Active = false;
adoQuery->LoadFromFile(gb->Name+".sql");
adoQuery->Active = true;
gb->DataSource = dsQuery;
}
//---------------------------------------------------------------------------
Модуль формирования отчетности
//---------------------------------------------------------------------------
#include <Report.h>
#pragma hdrstop
#include "Report.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TActRep *ActRep;
//---------------------------------------------------------------------------
__fastcall TActRep::TActRep(TComponent* Owner, AnsiString M, AnsiString Y,
AnsiString S)
: TForm(Owner)
{
try{
QuickRep1->DataSet = MainForm->Query2;
Reg_Nom_N->DataSet = MainForm->Query2;
Reg_Nom_N->DataField = "REG_NOM_N";
DReg_N->DataSet = MainForm->Query2;
DReg_N->DataField = "DRN";
Data_9->DataSet = MainForm->Query2;
Data_9->DataField = "D9";
101
Pksv3->DataSet = MainForm->Query2;
Pksv3->DataField = "PKSV3";
Um_Name->DataSet = MainForm->Query2;
Um_Name->DataField = "UM_NAME";
Um_Cnt->DataSet = MainForm->Query2;
Um_Cnt->DataField = "UM_CNT";
if(MainForm->isTech){
QRExpr1->Expression = "Sum(Pksv2)";
Ats_Fio->DataSet = MainForm->Query2;
Ats_Fio->DataField = "ATS_FIO";
Pksv2->DataSet = MainForm->Query2;
Pksv2->DataField = "PKSV2";
}
if(MainForm->isTrans){
QRExpr1->Expression = "Sum(Si_Pksv2)";
Ats_Fio->DataSet = MainForm->Query2;
Ats_Fio->DataField = "SI_FIO";
Pksv2->DataSet = MainForm->Query2;
Pksv2->DataField = "SI_PKSV2";
}
}catch(...){}
}
//---------------------------------------------------------------------------
