{>ShowModal();
}
//--------------------------------------------------------------------------- fastcall TMainForm::N6Click(TObject *Sender)
{>ShowModal();
}
//--------------------------------------------------------------------------- fastcall TMainForm::ShowSite(void)
{>SitesTable->Active = true;>SitesTable->First();(DM->SitesTable->FieldByName("NumSite")->Value!=CurNumSite)
{>SitesTable->Next();
}>TSite->Caption = AnsiString("(")+IntToStr(CurNumSite)+ AnsiString(") ")+DM->SitesTable->FieldByName("NameSite")->AsString;>FrictSitesTable->Active = true;>FrictSitesTable->First();((DM->FrictSitesTable->FieldByName("NumSite")->Value!=CurNumSite)||(DM->FrictSitesTable->FieldByName("NumFrictSite")->Value!=CurNumFrictSite))
{>FrictSitesTable->Next();
}>TFrictSite->Caption = AnsiString("(")+IntToStr (CurNumFrictSite)+AnsiString(") ")+DM->FrictSitesTable->FieldByName ("NameFrictSite")->AsString;>RCTable->Active = true;
/* 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();
}
//---------------------------------------------------------------------------
Файл :KPT.h
//---------------------------------------------------------------------------
#ifndef KPTH
#define KPTH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
Читайте также
Разработка компьютерного измерительного комплекса вагона-лаборатории железнодорожной автоматики, телемеханики и связи
Измерительная техника - один из важнейших факторов ускорения
научно-технического прогресса практически во всех отраслях народного хозяйства.
Получение и обработка измерительной информа ...
Проект цифровой радиорелейной линии г. Волгоград – г. Астрахань
Связь всегда имела большое значение в жизни людей. Особенную
важность связь приобрела в последние годы, поскольку многие сферы деятельности
человека, например бизнес, напрямую зависят от ...
Применение пространственной фильтрации для улучшения радиоголографических изображений объектов, находящихся за препятствиями
В настоящее время активно развивается раздел науки, посвященный
радиовидению. Это связано с тем, что радиовидение может найти свое применение в
широкой сфере деятельности человека для об ...