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

}

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

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

Передаточная функция разомкнутой системы
1. Определить передаточную функцию разомкнутой системы рис.1, представить её в канонической .форме. Построить её логарифмические частотные характеристики. 2. Оценить показатели к ...

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

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