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

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

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

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

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

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

Проектирование аппаратного обеспечения одноплатных микроконтроллеров
Задание: В заданной РЭС осуществить управляющую функцию по одному из заданных параметров с помощью контроллера, построенного на МПК, разработать электрическую принципиальную схему проект ...