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

}

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

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

}

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

{>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>

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

Проектирование и расчет электрической сети 110-220 кВ
Проектирование электроэнергетических систем требует комплексного подхода к выбору и оптимизации схем электрических сетей и технико-экономическому обоснованию решений, определяющих состав ...

Обучающая подсистема для лабораторного исследования характеристик замкнутых САУ в среде интернет
В последние десятилетия в зарубежных системах образования произошли существенные изменения, обусловленные бурным развитием научно-технического прогресса и его воздейст ...

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