{>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>
Читайте также
Пример записи фильма в формате DVCAM
звуковой формат
Цель данной работы показать работу в условиях записи фильма в формате
Dvcam, записи зистового звука на HD-рекордер. Были выбраны 2 рассказа А.П.
Чехова: "Кот" и ...
Проектирование цифрового устройства для реализации типовых микроопераций
Разработать функциональную и принципиальную схему операционного
устройства исходя из основных параметров по вариантам.
Также требуется предоставить блок схемы алгоритмов выполнения опе ...
Нанотехнологии в науке и технике
В течение тысячелетий человек использовал в быту и технике
макроскопические тела, состоящие из большого числа атомов, будь это каменный
топор или авиалайнер. Первая научно- ...