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

{>ShowModal();

}

//--------------------------------------------------------------------------- fastcall TMainForm::N6Click(TObject *Sender)

{>ShowModal();

}

//--------------------------------------------------------------------------- fastcall TMainForm::ShowSite(void)

{>SitesTable->Active = true;>SitesTable->First();(DM->SitesTable->FieldByName("NumSite")->Value!=CurNumSite)

{>SitesTable->Next();

}>TSite->Caption = AnsiString("(")+IntToStr(CurNumSite)+ AnsiString(") ")+DM->SitesTable->FieldByName("NameSite")->AsString;>FrictSitesTable->Active = true;>FrictSitesTable->First();((DM->FrictSitesTable->FieldByName("NumSite")->Value!=CurNumSite)||(DM->FrictSitesTable->FieldByName("NumFrictSite")->Value!=CurNumFrictSite))

{>FrictSitesTable->Next();

}>TFrictSite->Caption = AnsiString("(")+IntToStr (CurNumFrictSite)+AnsiString(") ")+DM->FrictSitesTable->FieldByName ("NameFrictSite")->AsString;>RCTable->Active = true;

/* DM->RCTable->First();((DM->RCTable->FieldByName("NumSite")->Value!=CurNumSite)||(DM->RCTable->FieldByName("NumFrictSite")->Value!=CurNumFrictSite)||(DM->RCTable->FieldByName("NumJunction")->Value!=CurNumJunction))

{>RCTable->Next();

}*/>RCTable->IndexFieldNames = "NumSite;NumFrictSite; NumJunction";>RCTable->FindNearest(OPENARRAY(TVarRec,(CurNumSite, CurNumFrictSite, CurNumJunction)));>KPTTable->Active = true;>KPTTable->First();(DM->KPTTable->FieldByName("NumKPT")->Value!=DM->RCTable->FieldByName("NumKPT")->Value)

{>KPTTable->Next();

}>TRC->Caption = AnsiString(" Стык №")+IntToStr (CurNumJunction)+AnsiString(" Светофор ")+DM->RCTable->FieldByName ("NameSignal")->Value+AnsiString("/")+DM->RCTable->FieldByName("NumTranslation")->AsString + AnsiString(" Тип оборудования: ") + DM->KPTTable->FieldByName("NameKPT")->Value;>KPTTable->First();>RCTable->First();

} fastcall TMainForm::FormActivate(TObject *Sender)

{();

}

//--------------------------------------------------------------------------- fastcall TMainForm::MyTimerTimer(TObject *Sender)

{->Caption = FloatToStrF(Imp1,ffGeneral,2,0);->Caption = FloatToStrF(Imp2,ffGeneral,2,0);->Caption = FloatToStrF(Imp3,ffGeneral,2,0);->Caption = FloatToStrF(Int1,ffGeneral,2,0);->Caption = FloatToStrF(Int2,ffGeneral,2,0);->Caption = FloatToStrF(Int3,ffGeneral,2,0);>Caption = IntToStr(Frequency);>Caption = IntToStr(Velocity);>Caption = IntToStr(Coordinate);>Caption = CodeType;>Caption = FloatToStrF(Current,ffGeneral,1,0);>Caption = FloatToStrF(Cycle,ffGeneral,2,0);>Caption = FloatToStrF(InterraptCode,ffGeneral,2,0);>Caption = IsolJunction;

}

//--------------------------------------------------------------------------- fastcall TMainForm::N8Click(TObject *Sender)

{(N8->Checked)

{= false;->Checked = false;

}

{= true;->Checked = true;

}

}

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

fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action)

{>Terminate();>WaitFor();

// delete MyLink;

}

//--------------------------------------------------------------------------- fastcall TMainForm::N9Click(TObject *Sender)

{>ShowModal();

}

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

Файл :KPT.h

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

#ifndef KPTH

#define KPTH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

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

Разработка конструкции линейного коммутатора
Радиоэлектронная аппаратура (РЭА), в основу функционирования которой положены принципы электроники, строится на базе электронных компонентов различного назначения (микросхем, резисторов, ...

Разработка комплекта электрических схем маршрутной релейной централизации блочного типа
Целью дипломного проектирование являлась разработка комплекта электрических схем маршрутной релейной централизации блочного типа (БМРЦ) для использования их студентами техникума в качест ...

Проектирование дискретного устройства
На современном этапе развития транспорта наблюдается бурный рост темпов и объемов перевозок, особенно на железнодорожном транспорте в силу высокой скорости и невысокой стоимости грузопер ...