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

}

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

{>KPTTable->Delete();Enter(this);

}

//--------------------------------------------------------------------------- fastcall TKPTForm::Button3Click(TObject *Sender) Hiking near San Jose de los Llanos with Chinyero Volcano

{>KPTTable->Edit();>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;

}

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

Файл :DataModule.h

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

#ifndef DataModuleH

#define DataModuleH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <Db.hpp>

#include <DBTables.hpp>

//---------------------------------------------------------------------------TDM : public TDataModule

{

published: // IDE-managed Components*FrictSitesTable;*FrictSitesTableNumFrictSite;*FrictSitesTableNameFrictSite;*DSFrictSites;*SitesTable;*SitesTableNumSite;*SitesTableNameSite;*DSSites;*RCTable;*DSRC;*RCTableNumSite;*RCTableNumFrictSite;*RCTableNumJunction;*RCTableNameSignal;*RCTableNumTranslation;*FrictSitesTableNumSite;*KPTTable;*DSKPT;*KPTTableNumKPT;*KPTTableNameKPT;*KPTTableMinRY;*KPTTableMaxRY;*KPTTableMinY;*KPTTableMaxY;*KPTTableMinG;*KPTTableMaxG;*KPTTableMinIntY;*KPTTableMaxIntY;*KPTTableMinIntG;*KPTTableMaxIntG;*RCTableNumKPT;*RCTableKPT;*DSReport;*ReportTable;*ReportTableDate;*ReportTableTime;*ReportTableNameSite;*ReportTableNameFrictSite;*ReportTableNumJunction;*ReportTableNameSignal;*ReportTableNumTranslation;*ReportTableRCLength;*ReportTableIBeg;*ReportTableIEnd;*ReportTableCode;*ReportTableImp1;*ReportTableInt1;*ReportTableImp2;*ReportTableInt2;*ReportTableImp3;*ReportTableInt3;*ReportTableCycle;*ReportTableVelocity;*ReportTableNamKPT;*ReportTableComments;: // User declarations: // User declarations

fastcall TDM(TComponent* Owner);

};

//---------------------------------------------------------------------------PACKAGE TDM *DM;

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

#endif

Файл :DataModule.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "DataModule.h"

#include "RCs.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"*DM;

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

fastcall TDM::TDM(TComponent* Owner)

: TDataModule(Owner)

{

}

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

Файл :RC.h

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

#ifndef RCH

#define RCH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

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

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

Организация сети широкополосного доступа Комсомольского микрорайона г. Краснодара
Сегодня потребность пользователей Интернет в передаче большого объема данных на высокой скорости стремительно растет. Это связано с увеличением качества используемых данных, и как резул ...

Проектирование корпоративной сети
Информационная сеть - сеть, предназначенная для обработки, хранения и передачи данных. Информационная сеть состоит из: · абонентских и административных систем; · связы ...