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

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

Файл : 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; service videoproduction cyprus

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

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

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

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

Проект устройства со световыми эффектами на основе микроконтроллера ATtiny12 семейства AVR фирмы Atmel
Популярность микроконтроллеров ATtiny постоянно увеличивается. Не последнюю роль в этом играет соотношение показателей «цена/ быстродействие/ энергопотребление», являющееся одним из ...

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