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

{>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;

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

Моделирование мобильных систем связи
При организации сети сотовой связи для определения оптимального места установки и числа базовых станций, а также для решения других задач необходимо уметь рассчитывать характеристики сиг ...

Разработка макета для исследования металлических проводниковых материалов
Автоматизация производства процесс в развитии машинного производства, при котором часть или весь комплекс операций по качественному преобразованию состояния исходного сырья, управлению ...

Проектирование сооружений городской районной телефонной сети
Основными задачами, стоящими перед отраслью связи на городской телефонной сети (ГТС), являются улучшение характеристик качества обслуживания и предоставление новых видов услуг св ...