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

}

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

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

}

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

{>FrictSitesTable->Edit();>FrictSitesTable->FieldByName("NumFrictSite")->AsString = NumFrictSite->Text;>FrictSitesTable->FieldByName("NameFrictSite")->AsString = NameFrictSite->Text;

}

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

Файл :RCs.h

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

#ifndef RCH

#define RCH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#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

Файл :RCs.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)

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

Разработка компьютерных аналогов схем исследования биполярных транзисторов
компьютерный программа полупроводниковый моделирование В данной работе исследуются возможности применения компьютерного моделирования для изучения характеристик традиционных полупроводник ...

Особенности работы современного средства автоматической радиолокационной прокладки (САРП)
Устройство компьютерной индикации, совмещенное со средствами автоматической радиолокационной прокладки (САРП) и с электронной картографической системой, размещаемых в ходовой рубке судн ...

Перспективы развития транкинговой радиосвязи
Системы транкинговой радиосвязи, представляющие собой радиальнозоновые системы подвижной УКВ радиосвязи, осуществляющие автоматической распределение каналов связи ретрансляторов между а ...