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

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

}

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

Перейти на страницу: 3 4 5 6 7 8 9 10 11 12 13

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

Проектирование междугородной магистрали между г. Кемерово – г. Лениск-Кузнецкий с использованием симметричного кабеля
Наше время, в особенности последние десять лет, характеризуется бурным развитием телекоммуникационных технологий. Наряду с появлением новых форм передачи информации, совершенствуются тра ...

Одномодовые оптические волокна
В одномодовых оптических волокнах (SM ОВ) диаметр сердцевины соизмерим с длиной волны, и за счет этого в нем существует только одна основная направляемая мода LP01. Рис. 1. Р ...

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

Основные разделы