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

}

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

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

Проект соединительной цифровой радиорелейной линии для сети сотовой связи Томск - Володино
Темпы увеличения потребности в электросвязи и соответственно темпы реализации этой потребности в технических системах непрерывно увеличивались на всем протяжении закончившегося ХХ века ...

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

Пример записи фильма в формате DVCAM
звуковой формат Цель данной работы показать работу в условиях записи фильма в формате Dvcam, записи зистового звука на HD-рекордер. Были выбраны 2 рассказа А.П. Чехова: "Кот" и ...