mp;gt;FrictSitesTable->Append();>FrictSitesTable->FieldByName(«NumSite»)->Value =DM-> SitesTable->FieldByName(«NumSite»)->Value;>FrictSitesTable->FieldByName(«NumFrictSite»)->AsString =NumFrictSite-> Text;> FrictSitesTable-> FieldByName («NameFrictSite») -> AsString=NameFrictSite-> Text;
}
//---------------------------------------------------------------------------__fastcall TFrictSitesForm :: Button2Click (TObject * Sender)
{> FrictSitesTable-> Delete (); Enter (this);
}
//---------------------------------------------------------------------------__fastcall TFrictSitesForm :: Button3Click (TObject * Sender)
{>FrictSitesTable->Edit();>FrictSitesTable->FieldByName(«NumFrictSite»)->AsString =NumFrictSite-> Text;> FrictSitesTable-> FieldByName («NameFrictSite») -> AsString=NameFrictSite-> Text;
}
/ / ---------------------------------------------------------------------------
Файл: RCs.h
/ / ---------------------------------------------------------------------------
# ifndef RCH
# define RCH
/ / ---------------------------------------------------------------------------
# include
# include
# include
# include
# include
# include
# include
# include
# include
# include
//---------------------------------------------------------------------------TMainForm : Public TForm
{
__published: / / IDE-managed Components*MainMenu1;*N1;*N2;*N3;*N4;*N5;*Bevel1;*N6;*StaticText2;*TSite;*StaticText4;*TFrictSite;*GroupBox1;*StaticText1;*TRC;*GroupBox2;*StaticText3;*StaticText5;*StaticText6;*TImp1;*TImp2;*TImp3;*StaticText7;*StaticText8;*StaticText9;*StaticText10;*StaticText11;*StaticText12;*TInt1;*TInt2;*TInt3;*StaticText13;*StaticText14;*StaticText15;*StaticText16;*TCycle;*StaticText18;*StaticText17;*StaticText19;*TInterraptCode;*StaticText20;*TFrequency;*StaticText22;*StaticText21;*StaticText23;*TVelocity;*StaticText24;*StaticText25;*TCoordinate;*StaticText27;*TCodeType;*StaticText28;*TCurrent;*StaticText30;*StaticText29;*TIsolJunction;*MyTimer;*N7;*N8;*N9;__fastcall N5Click (TObject * Sender); __fastcall N2Click (TObject * Sender); __fastcall N3Click (TObject * Sender); __fastcall N4Click (TObject * Sender); __fastcall N6Click (TObject * Sender); __fastcall FormActivate (TObject * Sender); __fastcall MyTimerTimer ( TObject * Sender); __fastcall N8Click (TObject * Sender); __fastcall FormClose (TObject * Sender, TCloseAction & Action); __fastcall N9Click (TObject * Sender);: / / User declarations: / / User declarations__fastcall ShowSite (void);
__fastcall TMai...