Конструктивные противопожарные меры в вагоне

{>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 <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <Db.hpp>

#include <DBGrids.hpp>

#include <DBTables.hpp>

#include <Grids.hpp>

#include <DBCtrls.hpp>

//---------------------------------------------------------------------------TFrictSitesForm : public TForm

{

published: // IDE-managed Components*GroupBox1;*Button1;*NumFrictSite;*NameFrictSite;*Button2;*Button3;*GroupBox2;*StaticText1;*DBGrid1;*DBLookupComboBox1;*Button4; fastcall DBGrid1CellClick(TColumn *Column); fastcall DBGrid1Enter(TObject *Sender); fastcall FormCreate(TObject *Sender); fastcall DBLookupComboBox1CloseUp(TObject *Sender); fastcall Button1Click(TObject *Sender); fastcall Button2Click(TObject *Sender); fastcall Button3Click(TObject *Sender);: // User declarations: // User declarations

fastcall TFrictSitesForm(TComponent* Owner);

};

//---------------------------------------------------------------------------PACKAGE TFrictSitesForm *FrictSitesForm;

//---------------------------------------------------------------------------

#endif

Файл :FrictSites.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "FrictSites.h"

#include "Sites.h"

#include "DataModule.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"*FrictSitesForm;

//---------------------------------------------------------------------------

fastcall TFrictSitesForm::TFrictSitesForm(TComponent* Owner)

: TForm(Owner)

{

}

//--------------------------------------------------------------------------- fastcall TFrictSitesForm::DBGrid1CellClick(TColumn *Column)

{

NumFrictSite->Text = DM->FrictSitesTable->FieldByName ("NumFrictSite")->AsString;>Text = DM->FrictSitesTable->FieldByName ("NameFrictSite")->Value;

}

//--------------------------------------------------------------------------- fastcall TFrictSitesForm::DBGrid1Enter(TObject *Sender)

{>Text = DM->FrictSitesTable->FieldByName ("NumFrictSite")->AsString;>Text = DM->FrictSitesTable->FieldByName ("NameFrictSite")->Value;

}

//--------------------------------------------------------------------------- fastcall TFrictSitesForm::FormCreate(TObject *Sender)

{>SitesTable->Active = true;>SitesTable->First();

// ListSites->Clear();(!DM->SitesTable->Eof)

{

// ListSites->Items->Add(DM->SitesTable->FieldByName("NameSite")->AsString);>SitesTable->Next();

}

// ListSites->ItemIndex = 0;>SitesTable->First();

}

//--------------------------------------------------------------------------- fastcall TFrictSitesForm::DBLookupComboBox1CloseUp(TObject *Sender)

{->Visible = true;->SetFocus();

}

//--------------------------------------------------------------------------- fastcall TFrictSitesForm::Button1Click(TObject *Sender)

{>SitesTable->Edit();>FrictSitesTable->Append();>FrictSitesTable->FieldByName("NumSite")->Value = DM-> SitesTable->FieldByName("NumSite")->Value;>FrictSitesTable->FieldByName("NumFrictSite")->AsString = NumFrictSite->Text;>FrictSitesTable->FieldByName("NameFrictSite")->AsString = NameFrictSite->Text;

Читайте также

Перспективы развития транкинговой радиосвязи
Системы транкинговой радиосвязи, представляющие собой радиальнозоновые системы подвижной УКВ радиосвязи, осуществляющие автоматической распределение каналов связи ретрансляторов между а ...

Проектирование двухвходовой КМОП-схемы дешифратора 2 в 4
КМОП (комплементарная логика на транзисторах металл-оксид-полупроводник; англ. CMOS, Complementary-symmetry/metal-oxide semiconductor) - технология построения электронных схем. В те ...

Проект цифровой радиорелейной линии г. Волгоград – г. Астрахань
Связь всегда имела большое значение в жизни людей. Особенную важность связь приобрела в последние годы, поскольку многие сферы деятельности человека, например бизнес, напрямую зависят от ...