Дипломная работа: Автоматизация учета заявок ПАО "МГТС"
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
96
#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;
97
}
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";
98
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(...){}
}
//---------------------------------------------------------------------------
Источник: https://baza.diplomsite.ru/previewfile/2364