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

#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;

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

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

Модернизация охранной сигнализации университета
Безопасность собственного имущества издревле была одной из главных забот человека. Для защиты от несанкционированного вторжения в жилище, хищения вещей и пожара человечество придумало не ...

Построение внутренней памяти процессорной системы, состоящей из ПЗУ и статического ОЗУ
Построить внутреннюю память процессорной системы, состоящую из ПЗУ и статического ОЗУ. Процессорная система работает в реальном режиме. Разрядность ША - 20, ШД - 8. ИСХОДНЫЕ ДАННЫЕ: ...