- •1.3. Описание Работ
- •2. Объекты формируемые системой
- •2.1. Экранные формы
- •2.2. Печатные формы
- •Ssn_Print.Cpp
- •Bu_mod.Cpp
- •Cd_sdatat.Cpp
- •Cd_sint.Cpp
- •Cd_snastr.Cpp
- •Menu.Cpp
- •Osv.Cpp
- •SelectCd_snastr.Cpp
- •SelectKd.Cpp
- •SelectKs.Cpp
- •SelectPd.Cpp
- •SelectPs.Cpp
- •SelectRj.Cpp
- •SelectTxo.Cpp
- •SelectVa.Cpp
- •Txo.Cpp
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();
}
//---------------------------------------------------------------------------