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

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

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

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

Разработка конструкции линейного коммутатора
Радиоэлектронная аппаратура (РЭА), в основу функционирования которой положены принципы электроники, строится на базе электронных компонентов различного назначения (микросхем, резисторов, ...

Применение системы автоматического проектирования на ИП Суслова
Почти все крупные предприятия используют в своей работе возможности компьютерной техники, в частности CAD, CAM, САЕ технологии, т.к. они предоставляют ряд преимуществ, таких как ...

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