Cd_snastr.Cpp

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

#include <vcl.h>

#pragma hdrstop

#include "CD_SNASTR.h"

#include "AcsessToEl.h"

#include "SelectCD_SNASTR.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

Tcd_snastr_SSN *cd_snastr_SSN;

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

__fastcall Tcd_snastr_SSN::Tcd_snastr_SSN(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall Tcd_snastr_SSN::Button6Click(TObject *Sender)

{

CompUnit->TCD->Edit();

CompUnit->TCD->Post();

cd_snastr_SSN->Close();

}

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

void __fastcall Tcd_snastr_SSN::Button5Click(TObject *Sender)

{

CompUnit->TCD->Append();

CompUnit->TCD->Post();

}

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

void __fastcall Tcd_snastr_SSN::Button4Click(TObject *Sender)

{

CompUnit->TCD->Delete();

}

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

void __fastcall Tcd_snastr_SSN::Button3Click(TObject *Sender)

{

CompUnit->TCD->Next();

}

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

void __fastcall Tcd_snastr_SSN::Button2Click(TObject *Sender)

{

CompUnit->TCD->Prior();

}

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

void __fastcall Tcd_snastr_SSN::Button1Click(TObject *Sender)

{

Select_cd_snastr_SSN->Show();

}

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

KD.cpp

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

//Кодирование документа

#include <vcl.h>

#pragma hdrstop

#include "KD.h"

#include "AcsessToEl.h"

#include "SelectKD.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

Tkd_SSN *kd_SSN;

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

__fastcall Tkd_SSN::Tkd_SSN(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall Tkd_SSN::DBLookupComboBox1CloseUp(TObject *Sender)

{

DBEdit4->Text=DBEdit7->Text;

}

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

void __fastcall Tkd_SSN::DBLookupComboBox2CloseUp(TObject *Sender)

{

DBEdit5->Text=DBEdit7->Text;

}

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

void __fastcall Tkd_SSN::DBLookupComboBox3CloseUp(TObject *Sender)

{

DBEdit6->Text=DBEdit7->Text;

}

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

void __fastcall Tkd_SSN::Button6Click(TObject *Sender)

{

CompUnit->TKD->Edit();

CompUnit->TKD->Post();

kd_SSN->Close();

}

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

void __fastcall Tkd_SSN::Button5Click(TObject *Sender)

{

CompUnit->TKD->Append();

CompUnit->TKD->Post();

}

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

void __fastcall Tkd_SSN::Button3Click(TObject *Sender)

{

CompUnit->TKD->Next();

}

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

void __fastcall Tkd_SSN::Button2Click(TObject *Sender)

{

CompUnit->TKD->Prior();

}

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

void __fastcall Tkd_SSN::Button4Click(TObject *Sender)

{

CompUnit->TKD->Delete();

}

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

void __fastcall Tkd_SSN::Button1Click(TObject *Sender)

{

SelectKD_SSN->Show();

}

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

KS.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "KS.h"

#include "AcsessToEl.h"

#include "SelectKS.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

Tks_SSN *ks_SSN;

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

__fastcall Tks_SSN::Tks_SSN(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall Tks_SSN::Button4Click(TObject *Sender)

{

CompUnit->TKS->Delete();

}

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

void __fastcall Tks_SSN::Button6Click(TObject *Sender)

{

CompUnit->TKS->Edit();

CompUnit->TKS->Post();

ks_SSN->Close();

}

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

void __fastcall Tks_SSN::Button3Click(TObject *Sender)

{

CompUnit->TKS->Next();

}

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

void __fastcall Tks_SSN::Button2Click(TObject *Sender)

{

CompUnit->TKS->Prior();

}

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

void __fastcall Tks_SSN::Button5Click(TObject *Sender)

{

CompUnit->TKS->Append();

CompUnit->TKS->Post();

}

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

void __fastcall Tks_SSN::Button1Click(TObject *Sender)

{

SelectKS_SSN->Show();

}

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