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

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

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

Проектирование радиорелейной линии связи
Радиорелейная связь - один из видов радиосвязи, образованной цепочкой приёмо-передающих (ретрансляционных) радиостанций. Наземная радиорелейная связь осуществляетс ...

Проектирование устройств фильтрации
Неотъемлемая часть телекоммуникационных задач связана с преобразованием сигналов. Одной из основных является фильтрация, т.е. выделение или подавление определенных частот сигнала. Устрой ...

Проектирование модуля управления трехфазным асинхронным двигателем
В настоящее время создано множество схем управления двигателями переменного напряжения. При этом делается большой акцент на применение в этих схемах специальных унифицированных микросхем ...