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

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

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

Проект оконечной ОС на базе системы DX200
Современное состояние и перспективные планы развития Единой Сети Электросвязи (ЕСЭ) Российской Федерации характеризуются широким внедрением цифровых технологий и оборудования цифровых си ...

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

Принцип работы оптоволоконных сканеров отпечатков пальцев
Идентификация по отпечаткам пальцев - на сегодня самая распространенная биометрическая технология. По данным International Biometric Group, доля систем распознавания по отпечаткам пальце ...