98
{
TStringList *ls;
TfmAddEdit *fm;
try{
fm = new TfmAddEdit(NULL);
//получение перевичного ключа
fm->id = dmMain->adoQuery->Fields->FieldByNumber(0)->AsInteger;
ls = new TStringList;
dmMain->loadReferenceFields(ls);
}
__finally{
if(fm)delete fm;
if(ls)delete ls;
}
}
//---------------------------------------------------------------------------
#ifndef maindmH
#define maindmH
//---------------------------------------------------------------------------
#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
{
99
__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>
#pragma hdrstop
#include "maindm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#include "mainfm.h"
TdmMain *dmMain;
//---------------------------------------------------------------------------
__fastcall TdmMain::TdmMain(TComponent* Owner)
: TDataModule(Owner)
{
100
}
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;
}
void __fastcall TdmMain::loadReference(TDBGrid *gb)
{
if(!gb)return;
adoQuery->Active = false;
adoQuery->LoadFromFile(gb->Name+".sql");
adoQuery->Active = true;
gb->DataSource = dsQuery;
}
//---------------------------------------------------------------------------
Модуль выбора тары
//---------------------------------------------------------------------------
101
#include <Check.h>
#pragma hdrstop
#include "Unit11.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm11*Form11;
Variant vVarList, vVarTara, vVarType, sh;
//---------------------------------------------------------------------------
__fastcall TForm10::TForm10(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm10::Button19Click(TObject *Sender)
{
vVarList= CreateOleObject("ListTara");
vVarTara=vVarApp.OlePropertyGet("Tara");
vVarTara.OleProcedure("Add","c:
\\
temp.doc",false,0);
vVarType=vVarDocs.OleFunction("Item",1);
vVarList.OleProcedure("Send");
vVarList=vVarDoc.OlePropertyGet("Check");
vVarTara.OleProcedure("Send");
vVarType.OleProcedure("Add");
vVarApp.OlePropertySet("Visible", true);
}
102
//---------------------------------------------------------------------------
Модуль формирования отчета
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MainUnit.h"
#include "RActUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TActRep *ActRep;
//---------------------------------------------------------------------------
__fastcall TActRep::TActRep(TComponent* Owner, AnsiString M, AnsiString Y,
AnsiString S)
: TForm(Owner)
{
Title->Caption = "Отчет о наличии товаров на складе на " + S + " за " + M + " " +
Y + " р.";
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";
Pksv3->DataSet = MainForm->Query2;
Pksv3->DataField = "PKSV3";
Um_Name->DataSet = MainForm->Query2;
Um_Name->DataField = "UM_NAME";
103
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(...){}
}
//---------------------------------------------------------------------------
