#include <Forms.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------TKPTForm : public TForm
{
published: // IDE-managed Components*GroupBox2;*GroupBox1;*DBGrid1;*Button1;*NumKPT;*NameKPT;*Button2;*Button3;*Button4;*Panel1;*Panel2;*MinRY;*MaxRY;*MinY;*MaxY;*MinG;*MaxG;*MinIntY;*MaxIntY;*MinIntG;*MaxIntG; fastcall DBGrid1CellClick(TColumn *Column); fastcall DBGrid1Enter(TObject *Sender); fastcall Button1Click(TObject *Sender); fastcall Button2Click(TObject *Sender); fastcall Button3Click(TObject *Sender);: // User declarations: // User declarations Cirugia de nariz
fastcall TKPTForm(TComponent* Owner);
};
//---------------------------------------------------------------------------PACKAGE TKPTForm *KPTForm;
//---------------------------------------------------------------------------
#endif
Файл :KPT.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "KPT.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*KPTForm;
//---------------------------------------------------------------------------
fastcall TKPTForm::TKPTForm(TComponent* Owner)
: TForm(Owner)
{
}
//--------------------------------------------------------------------------- fastcall TKPTForm::DBGrid1CellClick(TColumn *Column)
{>Text = DM->KPTTable->FieldByName("NumKPT")->AsString;>Text = DM->KPTTable->FieldByName("NameKPT")->Value;>Text = DM->KPTTable->FieldByName("MinRY")->Value;>Text = DM->KPTTable->FieldByName("MaxRY")->Value;>Text = DM->KPTTable->FieldByName("MinY")->Value;>Text = DM->KPTTable->FieldByName("MaxY")->Value;>Text = DM->KPTTable->FieldByName("MinG")->Value;>Text = DM->KPTTable->FieldByName("MaxG")->Value;>Text = DM->KPTTable->FieldByName("MinIntY")->Value;>Text = DM->KPTTable->FieldByName("MaxIntY")->Value;>Text = DM->KPTTable->FieldByName("MinIntG")->Value;>Text = DM->KPTTable->FieldByName("MaxIntG")->Value;
}
//--------------------------------------------------------------------------- fastcall TKPTForm::DBGrid1Enter(TObject *Sender)
{>Text = DM->KPTTable->FieldByName("NumKPT")->AsString;>Text = DM->KPTTable->FieldByName("NameKPT")->Value;>Text = DM->KPTTable->FieldByName("MinRY")->Value;>Text = DM->KPTTable->FieldByName("MaxRY")->Value;>Text = DM->KPTTable->FieldByName("MinY")->Value;>Text = DM->KPTTable->FieldByName("MaxY")->Value;>Text = DM->KPTTable->FieldByName("MinG")->Value;>Text = DM->KPTTable->FieldByName("MaxG")->Value;>Text = DM->KPTTable->FieldByName("MinIntY")->Value;>Text = DM->KPTTable->FieldByName("MaxIntY")->Value;>Text = DM->KPTTable->FieldByName("MinIntG")->Value;>Text = DM->KPTTable->FieldByName("MaxIntG")->Value;
}
//--------------------------------------------------------------------------- fastcall TKPTForm::Button1Click(TObject *Sender)
{>KPTTable->Edit();>KPTTable->Append();>KPTTable->FieldByName("NumKPT")->Value = NumKPT->Text;>KPTTable->FieldByName("NameKPT")->Value = NameKPT->Text;>KPTTable->FieldByName("MinRY")->Value = MinRY->Text;>KPTTable->FieldByName("MaxRY")->Value = MaxRY->Text;>KPTTable->FieldByName("MinY")->Value = MinY->Text;>KPTTable->FieldByName("MaxY")->Value = MaxY->Text;>KPTTable->FieldByName("MinG")->Value = MinG->Text;>KPTTable->FieldByName("MaxG")->Value = MaxG->Text;>KPTTable->FieldByName("MinIntY")->Value = MinIntY->Text;>KPTTable->FieldByName("MaxIntY")->Value = MaxIntY->Text;>KPTTable->FieldByName("MinIntG")->Value = MinIntG->Text;>KPTTable->FieldByName("MaxIntG")->Value = MaxIntG->Text;
Читайте также
Основные принципы и задачи по организации технической эксплуатации ВОЛП
Техническую
эксплуатацию линейно-кабельных сооружений магистральной и внутризоновых
первичных сетей Российской Федерации организуют Минсвязи РФ и центры
технической эксплуатации в соотв ...
Проектирование спутниковой линии связи между городом Якутск и поселком Черский
Стремительное развитие космонавтики, успехи в изучении и
исследовании околоземного и межпланетного космического пространства выявили
весьма высокую эффективность использования околоз ...
Подвеска оптического кабеля на опорах
В
настоящее время на ВОЛП-ВЛ применяются следующие типы ОК:
ОКГТ
- оптический кабель, встроенный в грозозащитный трос;
ОКСН
- оптический кабель самонесущий;
ОКНН
- оптический ...