Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Объекты формируемые системой.doc
Скачиваний:
15
Добавлен:
01.05.2014
Размер:
482.3 Кб
Скачать

Cd_sdatat.Cpp

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

#include <vcl.h>

#pragma hdrstop

#include "CD_SDATAT.h"

#include "AcsessToEl.h"

#include "SelectCD_SNASTR.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

Tcd_sdatat_SSN *cd_sdatat_SSN;

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

__fastcall Tcd_sdatat_SSN::Tcd_sdatat_SSN(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall Tcd_sdatat_SSN::Button6Click(TObject *Sender)

{

CompUnit->TCD->Edit();

CompUnit->TCD->Post();

cd_sdatat_SSN->Close();

}

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

void __fastcall Tcd_sdatat_SSN::Button3Click(TObject *Sender)

{

CompUnit->TCD->Next();

}

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

void __fastcall Tcd_sdatat_SSN::Button2Click(TObject *Sender)

{

CompUnit->TCD->Prior();

}

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

void __fastcall Tcd_sdatat_SSN::Button5Click(TObject *Sender)

{

CompUnit->TCD->Append();

CompUnit->TCD->Post();

}

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

void __fastcall Tcd_sdatat_SSN::Button1Click(TObject *Sender)

{

Select_cd_snastr_SSN->Show();

}

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

void __fastcall Tcd_sdatat_SSN::FormCreate(TObject *Sender)

{

TDateTime d;

Edit1->Text=DateToStr(Date());

}

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

Cd_sint.Cpp

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

#include <vcl.h>

#pragma hdrstop

#include "CD_SINT.h"

#include "AcsessToEl.h"

#include "SelectCD_SNASTR.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

Tcd_sint_SSN *cd_sint_SSN;

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

__fastcall Tcd_sint_SSN::Tcd_sint_SSN(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall Tcd_sint_SSN::Button1Click(TObject *Sender)

{

Select_cd_snastr_SSN->Show();

}

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

void __fastcall Tcd_sint_SSN::Button4Click(TObject *Sender)

{

CompUnit->TCD->Delete();

}

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

void __fastcall Tcd_sint_SSN::Button3Click(TObject *Sender)

{

CompUnit->TCD->Next();

}

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

void __fastcall Tcd_sint_SSN::Button2Click(TObject *Sender)

{

CompUnit->TCD->Prior();

}

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

void __fastcall Tcd_sint_SSN::Button5Click(TObject *Sender)

{

CompUnit->TCD->Append();

CompUnit->TCD->Post();

}

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

void __fastcall Tcd_sint_SSN::Button6Click(TObject *Sender)

{

CompUnit->TCD->Edit();

CompUnit->TCD->Post();

cd_sint_SSN->Close();

}

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

Соседние файлы в предмете Базы данных