SelectRj.Cpp

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

#include <vcl.h>

#pragma hdrstop

#include "SelectRJ.h"

#include "AcsessToEl.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TSelectRJ_SSN *SelectRJ_SSN;

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

__fastcall TSelectRJ_SSN::TSelectRJ_SSN(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TSelectRJ_SSN::Button1Click(TObject *Sender)

{

SelectRJ_SSN->Close();

}

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

SelectTxo.Cpp

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

#include <vcl.h>

#pragma hdrstop

#include "SelectTXO.h"

#include "AcsessToEl.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TSelectTXO_SSN *SelectTXO_SSN;

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

__fastcall TSelectTXO_SSN::TSelectTXO_SSN(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TSelectTXO_SSN::Button1Click(TObject *Sender)

{

SelectTXO_SSN->Close();

}

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

SelectVa.Cpp

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

#include <vcl.h>

#pragma hdrstop

#include "SelectVA.h"

#include "AcsessToEl.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TSelectVA_SSN *SelectVA_SSN;

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

__fastcall TSelectVA_SSN::TSelectVA_SSN(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TSelectVA_SSN::Button1Click(TObject *Sender)

{

SelectVA_SSN->Close();

}

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

Txo.Cpp

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

#include <vcl.h>

#pragma hdrstop

#include "TXO.h"

#include "AcsessToEl.h"

#include "SelectTXO.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

Ttxo_SSN *txo_SSN;

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

__fastcall Ttxo_SSN::Ttxo_SSN(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall Ttxo_SSN::DBLookupComboBox1CloseUp(TObject *Sender)

{

DBEdit3->Text=DBEdit4->Text;

}

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

void __fastcall Ttxo_SSN::Button6Click(TObject *Sender)

{

CompUnit->TTXO->Edit();

CompUnit->TTXO->Post();

txo_SSN->Close();

}

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

void __fastcall Ttxo_SSN::Button3Click(TObject *Sender)

{

CompUnit->TTXO->Next();

}

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

void __fastcall Ttxo_SSN::Button2Click(TObject *Sender)

{

CompUnit->TTXO->Prior();

}

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

void __fastcall Ttxo_SSN::Button5Click(TObject *Sender)

{

CompUnit->TTXO->Append();

CompUnit->TTXO->Post();

}

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

void __fastcall Ttxo_SSN::DBLookupComboBox2CloseUp(TObject *Sender)

{

DBEdit21->Text=DBEdit5->Text;

DBEdit22->Text=DBEdit6->Text;

DBEdit23->Text=DBEdit7->Text;

DBEdit24->Text=DBEdit11->Text;

DBEdit25->Text=DBEdit12->Text;

}

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

void __fastcall Ttxo_SSN::DBLookupComboBox3CloseUp(TObject *Sender)

{

DBEdit26->Text=DBEdit8->Text;

DBEdit27->Text=DBEdit9->Text;

DBEdit28->Text=DBEdit10->Text;

DBEdit29->Text=DBEdit15->Text;

DBEdit30->Text=DBEdit16->Text;

}

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

void __fastcall Ttxo_SSN::Button1Click(TObject *Sender)

{

SelectTXO_SSN->Show();

}

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

VA.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "VA.h"

#include "AcsessToEl.h"

#include "SelectVA.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

Tva_SSN *va_SSN;

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

__fastcall Tva_SSN::Tva_SSN(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall Tva_SSN::Button6Click(TObject *Sender)

{

CompUnit->TVA->Edit();

CompUnit->TVA->Post();

va_SSN->Close();

}

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

void __fastcall Tva_SSN::Button5Click(TObject *Sender)

{

CompUnit->TVA->Append();

CompUnit->TVA->Post();

}

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

void __fastcall Tva_SSN::Button3Click(TObject *Sender)

{

CompUnit->TVA->Next();

}

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

void __fastcall Tva_SSN::Button2Click(TObject *Sender)

{

CompUnit->TVA->Prior();;

}

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

void __fastcall Tva_SSN::Button1Click(TObject *Sender)

{

SelectVA_SSN->Show();

}

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

void __fastcall Tva_SSN::Button4Click(TObject *Sender)

{

CompUnit->TVA->Delete();

}

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