{>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;
Читайте также
Проектирование сетевого оборудования NGN
В настоящее время всё чаще встречаются публикации, посвящённые коренному
преобразованию ТфОП и переходу к сети следующего поколения (NGN). Она позиционируется как
универсальная сеть, спо ...
Принцип работы оптоволоконных сканеров отпечатков пальцев
Идентификация по отпечаткам пальцев - на сегодня самая
распространенная биометрическая технология. По данным International Biometric Group, доля систем
распознавания по отпечаткам пальце ...
Проектирование радиоприемного устройства с учетом научно-технического прогресса
Радиоприемное устройство является частью системы передачи сообщений,
использующей для этого энергию радиоволн. Оно предназначено для улавливания,
преобразования и использования электрома ...