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

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

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

Приемно-контрольная панель на базе микроконтроллера
Приемно-контрольные приборы (ПКП) осуществляют прием информации от извещателей, ее запоминание, обработку и передачу соответствующим службам, а также выполняют процедуры взятия под охра ...

Разработка лабораторного стенда Измерение опасных акустических сигналов
Для человека слух является вторым по информативности после зрения. Поэтому одним из довольно распространенных каналов утечки информации является акустический канал. В акустическом канал ...

Разработка приемника УКВ-радиостанции
Радиоприемное устройство - одно из важнейших и необходимых элементов радиотехнической системы передачи сообщений. Оно обеспечивает: улавливание энергии электромагнитного поля, нес ...