Проектирование базы данных

if(DMMain->Foundation->State == dsEdit ||

  DMMain->Foundation->State == dsInsert)

DMMain->Foundation->Post();

} 

#include <vcl.h>

#pragma hdrstop 

#include "TDMMain.h"

#include "TDMBase.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma link "RxQuery"

#pragma resource "*.dfm"

TDMMain *DMMain;

//---------------------------------------------------------------------------

__fastcall TDMMain::TDMMain(TComponent* Owner)

        : TDataModule(Owner)

{

OperDataSet(true);

}

//---------------------------------------------------------------------------

bool __fastcall TDMMain::OperDataSet(bool value)

{

   if(value)

      OpenDateSet();

   else

      CloseDateSet();

}

//---------------------------------------------------------------------------

bool __fastcall TDMMain::OpenDateSet()

{

    SGOODS->Open();

    SVIDDEYATEL->Open();

    Foundation->Open();

    DeyatFnd->Open();

    CostGoods->Open();

    Information->Open(); 

    qryFoundation->Open();

    qryInformation->Open();

    qryDeyatFnd->Open();

    qryCostGoods->Open();

}

//---------------------------------------------------------------------------

bool __fastcall TDMMain::CloseDateSet()

{

    qryInformation->Close();

    qryDeyatFnd->Close();

    qryCostGoods->Close();

   qryFoundation->Close(); 

    Foundation->Close();

    DeyatFnd->Close();

    CostGoods->Close();

    Information->Close(); 

    SGOODS->Close();

    SVIDDEYATEL->Close();

}

//--------------------------------------------------------------------------- 

void __fastcall TDMMain::FoundationAfterPost(TDataSet *DataSet)

{

qryFoundation->Close();

qryFoundation->Open();

qryInformation->Close();

qryInformation->Open();

qryCostGoods->Close();

qryCostGoods->Open();

qryDeyatFnd->Close();

qryDeyatFnd->Open();

}

//---------------------------------------------------------------------------

void __fastcall TDMMain::PostFoundation()

{

//Foundation->Post();

}

void __fastcall TDMMain::CostGoodsBeforeInsert(TDataSet *DataSet)

{

//PostFoundation();

}

//---------------------------------------------------------------------------

void __fastcall TDMMain::SGOODSBeforePost(TDataSet *DataSet)

{

/*int ii = DataSet->FieldByName("id")->AsInteger;

Query1->Close();

Query1->ParamByName("id")->AsInteger = DataSet->FieldByName("id")->AsInteger;

Query1->Open();

AnsiString pp = Query1->FieldByName("col")->AsString;

bool b = Query1->Eof&&Query1->Bof;

if(Query1->FieldByName("col")->AsString!=0)

{

ShowMessage("Товар  с таким идентификатором существует.");

Abort();  

}         */

}

//--------------------------------------------------------------------------- 
 

void __fastcall TDMMain::DataModuleDestroy(TObject *Sender)

{

OperDataSet(false);

}