------------------
# pragma package (smart_init)
# pragma resource «*. dfm» * SitesForm;
/ / ---------------------------------------------------------------------------
__fastcall TSitesForm :: TSitesForm (TComponent * Owner)
: TForm (Owner)
{
}
//---------------------------------------------------------------------------__fastcall TSitesForm :: DBGrid1CellClick (TColumn * Column)
{> Text=DM-> SitesTable-> FieldByName («NumSite») -> AsString;> Text=DM-> SitesTable-> FieldByName («NameSite» ;) -> Value;
}
//---------------------------------------------------------------------------__fastcall TSitesForm :: DBGrid1Enter (TObject * Sender)
{> Text=DM-> SitesTable-> FieldByName («NumSite») -> AsString;> Text=DM-> SitesTable-> FieldByName («NameSite» ;) -> Value;
}
//---------------------------------------------------------------------------__fastcall TSitesForm :: Button1Click (TObject * Sender)
{>SitesTable->Append();>SitesTable->FieldByName(«NumSite»)->AsString =NumSite-> Text;> SitesTable-> FieldByName («NameSite») -> AsString=NameSite-> Text;
}
//---------------------------------------------------------------------------__fastcall TSitesForm :: Button2Click (TObject * Sender)
{> SitesTable-> Delete (); Enter (this);
}
//---------------------------------------------------------------------------__fastcall TSitesForm :: Button3Click (TObject * Sender)
{>SitesTable->Edit();>SitesTable->FieldByName(«NumSite»)->AsString =NumSite-> Text;> SitesTable-> FieldByName («NameSite») -> AsString=NameSite-> Text;
}
/ / ---------------------------------------------------------------------------
Файл: FrictSites.h
/ / ---------------------------------------------------------------------------
# ifndef FrictSitesH
# define FrictSitesH
/ / ---------------------------------------------------------------------------
# include
# include
# include
# include
# include
# include
# include
# include
# include
//---------------------------------------------------------------------------TFrictSitesForm : Public TForm
{
__published: / / IDE-managed Components*GroupBox1;*Button1;*NumFrictSite;*NameFrictSite;*Button2;*Button3;*GroupBox2;*StaticText1;*DBGrid1;*DBLookupComboBox1;*Button4;__fastcall DBGrid1CellClick (TColumn * Column...