Конструктивные противопожарные меры в вагоне

#include <Forms.hpp>

#include <DBGrids.hpp>

#include <Grids.hpp>

#include <ExtCtrls.hpp>

//---------------------------------------------------------------------------TKPTForm : public TForm

{

published: // IDE-managed Components*GroupBox2;*GroupBox1;*DBGrid1;*Button1;*NumKPT;*NameKPT;*Button2;*Button3;*Button4;*Panel1;*Panel2;*MinRY;*MaxRY;*MinY;*MaxY;*MinG;*MaxG;*MinIntY;*MaxIntY;*MinIntG;*MaxIntG; fastcall DBGrid1CellClick(TColumn *Column); fastcall DBGrid1Enter(TObject *Sender); fastcall Button1Click(TObject *Sender); fastcall Button2Click(TObject *Sender); fastcall Button3Click(TObject *Sender);: // User declarations: // User declarations

fastcall TKPTForm(TComponent* Owner);

};

//---------------------------------------------------------------------------PACKAGE TKPTForm *KPTForm;

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

#endif

Файл :KPT.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "KPT.h"

#include "DataModule.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"*KPTForm;

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

fastcall TKPTForm::TKPTForm(TComponent* Owner)

: TForm(Owner)

{

}

//--------------------------------------------------------------------------- fastcall TKPTForm::DBGrid1CellClick(TColumn *Column)

{>Text = DM->KPTTable->FieldByName("NumKPT")->AsString;>Text = DM->KPTTable->FieldByName("NameKPT")->Value;>Text = DM->KPTTable->FieldByName("MinRY")->Value;>Text = DM->KPTTable->FieldByName("MaxRY")->Value;>Text = DM->KPTTable->FieldByName("MinY")->Value;>Text = DM->KPTTable->FieldByName("MaxY")->Value;>Text = DM->KPTTable->FieldByName("MinG")->Value;>Text = DM->KPTTable->FieldByName("MaxG")->Value;>Text = DM->KPTTable->FieldByName("MinIntY")->Value;>Text = DM->KPTTable->FieldByName("MaxIntY")->Value;>Text = DM->KPTTable->FieldByName("MinIntG")->Value;>Text = DM->KPTTable->FieldByName("MaxIntG")->Value;

}

//--------------------------------------------------------------------------- fastcall TKPTForm::DBGrid1Enter(TObject *Sender)

{>Text = DM->KPTTable->FieldByName("NumKPT")->AsString;>Text = DM->KPTTable->FieldByName("NameKPT")->Value;>Text = DM->KPTTable->FieldByName("MinRY")->Value;>Text = DM->KPTTable->FieldByName("MaxRY")->Value;>Text = DM->KPTTable->FieldByName("MinY")->Value;>Text = DM->KPTTable->FieldByName("MaxY")->Value;>Text = DM->KPTTable->FieldByName("MinG")->Value;>Text = DM->KPTTable->FieldByName("MaxG")->Value;>Text = DM->KPTTable->FieldByName("MinIntY")->Value;>Text = DM->KPTTable->FieldByName("MaxIntY")->Value;>Text = DM->KPTTable->FieldByName("MinIntG")->Value;>Text = DM->KPTTable->FieldByName("MaxIntG")->Value;

}

//--------------------------------------------------------------------------- fastcall TKPTForm::Button1Click(TObject *Sender)

{>KPTTable->Edit();>KPTTable->Append();>KPTTable->FieldByName("NumKPT")->Value = NumKPT->Text;>KPTTable->FieldByName("NameKPT")->Value = NameKPT->Text;>KPTTable->FieldByName("MinRY")->Value = MinRY->Text;>KPTTable->FieldByName("MaxRY")->Value = MaxRY->Text;>KPTTable->FieldByName("MinY")->Value = MinY->Text;>KPTTable->FieldByName("MaxY")->Value = MaxY->Text;>KPTTable->FieldByName("MinG")->Value = MinG->Text;>KPTTable->FieldByName("MaxG")->Value = MaxG->Text;>KPTTable->FieldByName("MinIntY")->Value = MinIntY->Text;>KPTTable->FieldByName("MaxIntY")->Value = MaxIntY->Text;>KPTTable->FieldByName("MinIntG")->Value = MinIntG->Text;>KPTTable->FieldByName("MaxIntG")->Value = MaxIntG->Text;

Читайте также

Основы статистической теории радиолокации
Если о сигнале все известно , то нет необходимости в его приеме, если о нем ничего не известно, то его невозможно отличить от помех, и прием его невозможен. Поэтому, ...

Проектирование САУ приводом наведения реактивной бомбометной установки РБУ-6000
Реактивные бомбометные установки РБУ-1000 "Смерч-2" и РБУ-6000 "Смерч-3" предназначенные для залповой и одиночной стрельбы реактивными глубинными бомбами РГБ-60 ...

Проектирование сооружений городской районной телефонной сети
Основными задачами, стоящими перед отраслью связи на городской телефонной сети (ГТС), являются улучшение характеристик качества обслуживания и предоставление новых видов услуг св ...