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

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

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

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

Проектирование радиорелейной линии связи
Радиорелейная связь - один из видов радиосвязи, образованной цепочкой приёмо-передающих (ретрансляционных) радиостанций. Наземная радиорелейная связь осуществляетс ...

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

Проектирование двухвходовой КМОП-схемы дешифратора 2 в 4
КМОП (комплементарная логика на транзисторах металл-оксид-полупроводник; англ. CMOS, Complementary-symmetry/metal-oxide semiconductor) - технология построения электронных схем. В те ...