nForm (TComponent * Owner);
};
/ / --------------------------------------------------------------------------- PACKAGE TMainForm * MainForm;
/ / ---------------------------------------------------------------------------
# endif
Файл: RCs.cpp
/ / ---------------------------------------------------------------------------
# include
# pragma hdrstop
# include «RC.h»
# include «Sites.h»
# include «FrictSites.h»
# include «RCs.h»
# include «KPT.h»
# include «GlobalVariables.h»
# include «DataModule.h»
# include «SerialLink.h»
# include «Report.h» * MyLink;
/ / ---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource «*. dfm» * MainForm;
/ / ---------------------------------------------------------------------------
__fastcall TMainForm :: TMainForm (TComponent * Owner)
: TForm (Owner)
{= new SerialLink (false);
}
//---------------------------------------------------------------------------__fastcall TMainForm :: N5Click (TObject * Sender)
{> Close ();
}
//---------------------------------------------------------------------------__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(«...
