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

Листинг программы

Файл : GlobalVariables.h

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

#ifndef GlobalVariablesH

#define GlobalVariablesHint CurNumSite, CurNumFrictSite, CurNumJunction;int Buffer[16];float Imp1, Imp2, Imp3;float Int1, Int2, Int3;float Cycle;float InterraptCode;int Coordinate;int Frequency;int Velocity;float Current;AnsiString IsolJunction;AnsiString CodeType;bool ExtendedProtocol;

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

#endif

Файл : GlobalVariables.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "GlobalVariables.h"CurNumSite = 2, CurNumFrictSite = 1, CurNumJunction = 1;Buffer[16];Imp1 = 0.14, Imp2 = 0.13, Imp3 = 0.16;Int1 = 0.18, Int2 = 0.15, Int3 = 0.78;Cycle = 1.59;InterraptCode = 1.46;Coordinate = 123;Frequency = 25;Velocity = 45;Current = 4.6;IsolJunction = "нет";CodeType = "З";ExtendedProtocol = true;

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

#pragma package(smart_init)

Файл :Sites.h

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

#ifndef SitesH

#define SitesH

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

#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 <DBCtrls.hpp>

#include <ExtCtrls.hpp>

#include <Mask.hpp>

//---------------------------------------------------------------------------TSitesForm : public TForm

{

published: // IDE-managed Components*DBGrid1;*Button1;*NumSite;*NameSite;*GroupBox1;*Button2;*Button3;*GroupBox2;*Button4; fastcall DBGrid1CellClick(TColumn *Column); fastcall DBGrid1Enter(TObject *Sender); fastcall Button1Click(TObject *Sender); fastcall Button2Click(TObject *Sender); fastcall Button3Click(TObject *Sender);: // User declarations: // User declarations

fastcall TSitesForm(TComponent* Owner);

};

//---------------------------------------------------------------------------PACKAGE TSitesForm *SitesForm;

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

#endif

Файл :Sites.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "Sites.h"

#include "DataModule.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"*SitesForm;

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

fastcall TSitesForm::TSitesForm(TComponent* Owner)

: TForm(Owner)

{

}

//--------------------------------------------------------------------------- fastcall TSitesForm::DBGrid1CellClick(TColumn *Column)

{>Text = DM->SitesTable->FieldByName("NumSite")->AsString;>Text = DM->SitesTable->FieldByName("NameSite")->Value;

}

//--------------------------------------------------------------------------- fastcall TSitesForm::DBGrid1Enter(TObject *Sender)

{>Text = DM->SitesTable->FieldByName("NumSite")->AsString;>Text = DM->SitesTable->FieldByName("NameSite")->Value;

}

//--------------------------------------------------------------------------- fastcall TSitesForm::Button1Click(TObject *Sender)

{>SitesTable->Append();>SitesTable->FieldByName("NumSite")->AsString = NumSite->Text;>SitesTable->FieldByName("NameSite")->AsString = NameSite->Text;

}

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

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

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

Монтаж и регулировка шестиканальной цветомузыкальной приставки
Основным направлением развития радиоэлектронной промышленности является создание высокотехнологической радиоэлектронной аппаратуры на основе четкой организации производства, использован ...

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