ose ();
}
//---------------------------------------------------------------------------__fastcall TMainForm :: N2Click (TObject * Sender)
{> ShowModal ();
}
//---------------------------------------------------------------------------__fastcall TMainForm :: N3Click (TObject * Sender)
{> ShowModal ();
}
//---------------------------------------------------------------------------__fastcall TMainForm :: N4Click (TObject * Sender)
{> 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();...
