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

/* 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"

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

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

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

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

Принцип работы оптоволоконных сканеров отпечатков пальцев
Идентификация по отпечаткам пальцев - на сегодня самая распространенная биометрическая технология. По данным International Biometric Group, доля систем распознавания по отпечаткам пальце ...