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

/* DM->RCTable->First();((DM->RCTable->FieldByName("NumSite")->Value!=CurNumSite)||(DM->RCTable->FieldByName("NumFrictSite")->Value!=CurNumFrictSite)||(DM->RCTable->FieldByName("NumJunction")->Value!=CurNumJunction))

{>RCTable->Next();

}*/>RCTable->IndexFieldNames = "NumSite;NumFrictSite; NumJunction";>RCTable->FindNearest(OPENARRAY(TVarRec,(CurNumSite, CurNumFrictSite, CurNumJunction)));>KPTTable->Active = true;>KPTTable->First();(DM->KPTTable->FieldByName("NumKPT")->Value!=DM->RCTable->FieldByName("NumKPT")->Value)

{>KPTTable->Next();

}>TRC->Caption = AnsiString(" Стык №")+IntToStr (CurNumJunction)+AnsiString(" Светофор ")+DM->RCTable->FieldByName ("NameSignal")->Value+AnsiString("/")+DM->RCTable->FieldByName("NumTranslation")->AsString + AnsiString(" Тип оборудования: ") + DM->KPTTable->FieldByName("NameKPT")->Value;>KPTTable->First();>RCTable->First();

} fastcall TMainForm::FormActivate(TObject *Sender)

{();

}

//--------------------------------------------------------------------------- fastcall TMainForm::MyTimerTimer(TObject *Sender)

{->Caption = FloatToStrF(Imp1,ffGeneral,2,0);->Caption = FloatToStrF(Imp2,ffGeneral,2,0);->Caption = FloatToStrF(Imp3,ffGeneral,2,0);->Caption = FloatToStrF(Int1,ffGeneral,2,0);->Caption = FloatToStrF(Int2,ffGeneral,2,0);->Caption = FloatToStrF(Int3,ffGeneral,2,0);>Caption = IntToStr(Frequency);>Caption = IntToStr(Velocity);>Caption = IntToStr(Coordinate);>Caption = CodeType;>Caption = FloatToStrF(Current,ffGeneral,1,0);>Caption = FloatToStrF(Cycle,ffGeneral,2,0);>Caption = FloatToStrF(InterraptCode,ffGeneral,2,0);>Caption = IsolJunction;

}

//--------------------------------------------------------------------------- fastcall TMainForm::N8Click(TObject *Sender)

{(N8->Checked)

{= false;->Checked = false;

}

{= true;->Checked = true;

}

}

//--------------------------------------------------------------------------- fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action)

{>Terminate();>WaitFor();

// delete MyLink;

}

//--------------------------------------------------------------------------- fastcall TMainForm::N9Click(TObject *Sender)

{>ShowModal();

}

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

Файл :Report.h

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

#ifndef ReportH

#define ReportH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DBGrids.hpp>

#include <ExtCtrls.hpp>

#include <Grids.hpp>

//---------------------------------------------------------------------------TReportForm : public TForm

{

published: // IDE-managed Components*GroupBox2;*GroupBox1;*DBGrid1;*EDate;*StaticText1;*MComments;*Button1;*Button2;*Button3;*Button4; fastcall DBGrid1CellClick(TColumn *Column); fastcall FormActivate(TObject *Sender); fastcall Button1Click(TObject *Sender); fastcall Button2Click(TObject *Sender);: // User declarations: // User declarations

fastcall TReportForm(TComponent* Owner);

};

//---------------------------------------------------------------------------PACKAGE TReportForm *ReportForm;

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

#endif

Файл :Report.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "Report.h"

#include "DataModule.h"

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

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

Проектирование САУ приводом наведения реактивной бомбометной установки РБУ-6000
Реактивные бомбометные установки РБУ-1000 "Смерч-2" и РБУ-6000 "Смерч-3" предназначенные для залповой и одиночной стрельбы реактивными глубинными бомбами РГБ-60 ...

Проектирование мультивибратора на трёх логических элементах серии КМОП
Генераторы - специальные элементы цифровых устройств, предназначенные для формирования последовательности электрических сигналов различной формы. Генераторы обеспечивают работу цифровог ...

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