{>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>
Читайте также
Организация связи по оптическому кабелю магистрали Коченево-Мамонтово
Телекоммуникации
являются основой развития общества. Постоянно растущий спрос, как на обычные
телефонные, так и на новые виды услуг связи, включая услуги Интернет,
предъявляет новые тре ...
Проектирование передатчика телевизионной системы на печатной плате
Телевизионный передатчик: совокупность специализированных технических
средств, применяемых в процессе телевещания (кроме источника сигнала и его
тракта, источника электропитания и энерго ...
Основы телефонной коммутации
История освоения направления телекоммуникационного оборудования началась
в далеком 1992г., когда на развалинах Советского Союза небольшая группа
инженеров-энтузиастов во главе с будущим ...