/* 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"
//---------------------------------------------------------------------------
Читайте также
Разработка конструкции и технологического процесса изготовления диффузионного резистора
Разработать
конструкцию и выбрать технологический процесс изготовления диффузионного резистора
в составе ИМС. Программа выпуска - 50000 шт. в год. Выпуск ежемесячный.
Параметры
...
Проектирование дискретного устройства
На современном этапе развития транспорта наблюдается бурный рост темпов и
объемов перевозок, особенно на железнодорожном транспорте в силу высокой
скорости и невысокой стоимости грузопер ...
Надежность работы ВОЛП
В данной работе рассматривается проблема обеспечения
надежности эксплуатируемых линейно-кабельных сооружений при воздействии внешних
факторов - влияние молнии, воздействие коррозии, меха ...