Osv.Cpp

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

#include <vcl.h>

#pragma hdrstop

#include "OSV.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

PD.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "PD.h"

#include "AcsessToEl.h"

#include "SelectKD.h"

#include "SelectPD.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

Tpd_SSN *pd_SSN;

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

__fastcall Tpd_SSN::Tpd_SSN(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall Tpd_SSN::Button6Click(TObject *Sender)

{

CompUnit->TPD->Edit();

CompUnit->TPD->Post();

pd_SSN->Close();

}

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

void __fastcall Tpd_SSN::Button5Click(TObject *Sender)

{

CompUnit->TPD->Append();

CompUnit->TPD->Post();

}

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

void __fastcall Tpd_SSN::Button3Click(TObject *Sender)

{

CompUnit->TPD->Edit();

CompUnit->TPD->Post();

CompUnit->TPD->Next();

}

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

void __fastcall Tpd_SSN::Button2Click(TObject *Sender)

{

CompUnit->TPD->Edit();

CompUnit->TPD->Post();

CompUnit->TPD->Prior();

}

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

void __fastcall Tpd_SSN::DBLookupComboBox1CloseUp(TObject *Sender)

{

DBEdit18->Text=DBEdit1->Text;

DBEdit19->Text=DBEdit2->Text;

DBEdit20->Text=DBEdit5->Text;

DBEdit21->Text=DBEdit8->Text;

DBEdit22->Text=DBEdit11->Text;

DBEdit23->Text=DBEdit6->Text;

DBEdit24->Text=DBEdit9->Text;

DBEdit25->Text=DBEdit12->Text;

DBEdit26->Text=DBEdit7->Text;

DBEdit27->Text=DBEdit10->Text;

DBEdit28->Text=DBEdit13->Text;

}

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

void __fastcall Tpd_SSN::DBLookupComboBox2CloseUp(TObject *Sender)

{

DBEdit33->Text=DBEdit29->Text;

DBEdit34->Text=DBEdit30->Text;

DBEdit35->Text=DBEdit31->Text;

DBEdit36->Text=DBEdit32->Text;

}

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

void __fastcall Tpd_SSN::Button4Click(TObject *Sender)

{

CompUnit->TPD->Delete();

}

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

void __fastcall Tpd_SSN::Button1Click(TObject *Sender)

{

SelectPD_SSN->Show();

}

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

void __fastcall Tpd_SSN::Button8Click(TObject *Sender)

{

CompUnit->TPD->Edit();

CompUnit->TPD->Post();

CompUnit->TRJ->Append();

CompUnit->TRJRJ_DOKT1->AsString=CompUnit->TPDPD_DOKT1->AsString;

CompUnit->TRJRJ_DOKN1->AsString=CompUnit->TPDPD_DOKN1->AsString;

CompUnit->TRJRJ_DOKD->AsString=CompUnit->TPDPD_DOKD1->AsString;

CompUnit->TRJRJ_DOKT2->AsString=CompUnit->TPDPD_DOKT2->AsString;

CompUnit->TRJRJ_DOKN2->AsString=CompUnit->TPDPD_DOKN2->AsString;

CompUnit->TRJRJ_DOKD->AsDateTime=CompUnit->TPDPD_DOKD2->AsDateTime;

CompUnit->TRJRJ_DBS->AsString=CompUnit->TPDPD_DBS->AsString;

CompUnit->TRJRJ_DBSS->AsString=CompUnit->TPDPD_DBSS->AsString;

CompUnit->TRJRJ_KRS->AsString=CompUnit->TPDPD_KRS->AsString;

CompUnit->TRJRJ_KRSS->AsString=CompUnit->TPDPD_KRSS->AsString;

CompUnit->TRJRJ_RUB->AsString=CompUnit->TPDPD_RUB->AsString;

CompUnit->TRJRJ_NS->AsString=CompUnit->TPDPD_TXO->AsString;

CompUnit->TRJ->Post();

}

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

PS.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "PS.h"

#include "AcsessToEl.h"

#include "SelectPS.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

Tps_SSN *ps_SSN;

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

__fastcall Tps_SSN::Tps_SSN(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall Tps_SSN::Button6Click(TObject *Sender)

{

CompUnit->TPS->Edit();

CompUnit->TPS->Post();

ps_SSN->Close();

}

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

void __fastcall Tps_SSN::Button5Click(TObject *Sender)

{

CompUnit->TPS->Append();

CompUnit->TPS->Post();

}

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

void __fastcall Tps_SSN::Button3Click(TObject *Sender)

{

CompUnit->TPS->Next();

}

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

void __fastcall Tps_SSN::Button2Click(TObject *Sender)

{

CompUnit->TPS->Prior();

}

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

void __fastcall Tps_SSN::Button4Click(TObject *Sender)

{

CompUnit->TPS->Delete();

}

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

void __fastcall Tps_SSN::Button1Click(TObject *Sender)

{

SelectPS_SSN->Show();

}

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

RJ.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "RJ.h"

#include "AcsessToEl.h"

#include "SelectRJ.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

Trj_SSN *rj_SSN;

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

__fastcall Trj_SSN::Trj_SSN(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall Trj_SSN::Button6Click(TObject *Sender)

{

CompUnit->TRJ->Edit();

CompUnit->TRJ->Post();

rj_SSN->Close();

}

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

void __fastcall Trj_SSN::Button5Click(TObject *Sender)

{

CompUnit->TRJ->Append();

CompUnit->TRJ->Post();

}

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

void __fastcall Trj_SSN::Button3Click(TObject *Sender)

{

CompUnit->TRJ->Next();

}

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

void __fastcall Trj_SSN::Button2Click(TObject *Sender)

{

CompUnit->TRJ->Prior();

}

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

void __fastcall Trj_SSN::Button4Click(TObject *Sender)

{

CompUnit->TRJ->Delete();

}

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

void __fastcall Trj_SSN::Button1Click(TObject *Sender)

{

SelectRJ_SSN->Show();

}

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