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

#include <Forms.hpp>

#include <Db.hpp>

#include <DBGrids.hpp>

#include <DBTables.hpp>

#include <Grids.hpp>

#include <Menus.hpp>

#include <ExtCtrls.hpp>

//---------------------------------------------------------------------------TMainForm : public TForm

{

published: // IDE-managed Components*MainMenu1;*N1;*N2;*N3;*N4;*N5;*Bevel1;*N6;*StaticText2;*TSite;*StaticText4;*TFrictSite;*GroupBox1;*StaticText1;*TRC;*GroupBox2;*StaticText3;*StaticText5;*StaticText6;*TImp1;*TImp2;*TImp3;*StaticText7;*StaticText8;*StaticText9;*StaticText10;*StaticText11;*StaticText12;*TInt1;*TInt2;*TInt3;*StaticText13;*StaticText14;*StaticText15;*StaticText16;*TCycle;*StaticText18;*StaticText17;*StaticText19;*TInterraptCode;*StaticText20;*TFrequency;*StaticText22;*StaticText21;*StaticText23;*TVelocity;*StaticText24;*StaticText25;*TCoordinate;*StaticText27;*TCodeType;*StaticText28;*TCurrent;*StaticText30;*StaticText29;*TIsolJunction;*MyTimer;*N7;*N8;*N9; fastcall N5Click(TObject *Sender); fastcall N2Click(TObject *Sender); fastcall N3Click(TObject *Sender); fastcall N4Click(TObject *Sender); fastcall N6Click(TObject *Sender); fastcall FormActivate(TObject *Sender); fastcall MyTimerTimer(TObject *Sender); fastcall N8Click(TObject *Sender); fastcall FormClose(TObject *Sender, TCloseAction &Action); fastcall N9Click(TObject *Sender);: // User declarations: // User declarations fastcall ShowSite(void);

fastcall TMainForm(TComponent* Owner);

};

//---------------------------------------------------------------------------PACKAGE TMainForm *MainForm;

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

#endif

Файл :RC.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "RC.h"

#include "Sites.h"

#include "FrictSites.h"

#include "RCs.h"

#include "KPT.h"

#include "GlobalVariables.h"

#include "DataModule.h"

#include "SerialLink.h"

#include "Report.h"*MyLink;

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

#pragma package(smart_init)

#pragma resource "*.dfm"*MainForm;

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

fastcall TMainForm::TMainForm(TComponent* Owner)

: TForm(Owner)

{= new SerialLink(false);

}

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

{>Close();

}

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

{>ShowModal();

}

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

{>ShowModal();

}

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

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

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

Проектирование устройства для измерения статических характеристик электромагнитного двигателя
Ветер - это горизонтальное перемещение, поток воздуха параллельно земной поверхности, возникающее в результате неравномерного распределения тепла и атмосферного давления и направленное и ...

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

Проектирование радиоприемного устройства с учетом научно-технического прогресса
Радиоприемное устройство является частью системы передачи сообщений, использующей для этого энергию радиоволн. Оно предназначено для улавливания, преобразования и использования электрома ...