}
//--------------------------------------------------------------------------- fastcall TKPTForm::Button2Click(TObject *Sender)
{>KPTTable->Delete();Enter(this);
}
//--------------------------------------------------------------------------- fastcall TKPTForm::Button3Click(TObject *Sender) Арендовать лофт в москве для дня рождения аренда лофта на день рождения rochdale.ru.
{>KPTTable->Edit();>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;
}
//---------------------------------------------------------------------------
Файл :DataModule.h
//---------------------------------------------------------------------------
#ifndef DataModuleH
#define DataModuleH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Db.hpp>
#include <DBTables.hpp>
//---------------------------------------------------------------------------TDM : public TDataModule
{
published: // IDE-managed Components*FrictSitesTable;*FrictSitesTableNumFrictSite;*FrictSitesTableNameFrictSite;*DSFrictSites;*SitesTable;*SitesTableNumSite;*SitesTableNameSite;*DSSites;*RCTable;*DSRC;*RCTableNumSite;*RCTableNumFrictSite;*RCTableNumJunction;*RCTableNameSignal;*RCTableNumTranslation;*FrictSitesTableNumSite;*KPTTable;*DSKPT;*KPTTableNumKPT;*KPTTableNameKPT;*KPTTableMinRY;*KPTTableMaxRY;*KPTTableMinY;*KPTTableMaxY;*KPTTableMinG;*KPTTableMaxG;*KPTTableMinIntY;*KPTTableMaxIntY;*KPTTableMinIntG;*KPTTableMaxIntG;*RCTableNumKPT;*RCTableKPT;*DSReport;*ReportTable;*ReportTableDate;*ReportTableTime;*ReportTableNameSite;*ReportTableNameFrictSite;*ReportTableNumJunction;*ReportTableNameSignal;*ReportTableNumTranslation;*ReportTableRCLength;*ReportTableIBeg;*ReportTableIEnd;*ReportTableCode;*ReportTableImp1;*ReportTableInt1;*ReportTableImp2;*ReportTableInt2;*ReportTableImp3;*ReportTableInt3;*ReportTableCycle;*ReportTableVelocity;*ReportTableNamKPT;*ReportTableComments;: // User declarations: // User declarations
fastcall TDM(TComponent* Owner);
};
//---------------------------------------------------------------------------PACKAGE TDM *DM;
//---------------------------------------------------------------------------
#endif
Файл :DataModule.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "DataModule.h"
#include "RCs.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*DM;
//---------------------------------------------------------------------------
fastcall TDM::TDM(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
Файл :RC.h
//---------------------------------------------------------------------------
#ifndef RCH
#define RCH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
Читайте также
Проектирование устройства для измерения статических характеристик электромагнитного двигателя
Ветер - это горизонтальное перемещение, поток воздуха параллельно земной
поверхности, возникающее в результате неравномерного распределения тепла и
атмосферного давления и направленное и ...
Проект оконечной ОС на базе системы DX200
Современное состояние и перспективные планы развития Единой Сети
Электросвязи (ЕСЭ) Российской Федерации характеризуются широким внедрением
цифровых технологий и оборудования цифровых си ...
Проект организации широкополосного доступа в коттеджном микрорайоне Чистопрудный г. Ижевска
Возможность в любое время в любом месте при любых условиях
иметь доступ к неограниченным информационным ресурсам становится для
современного человека одним из самых важных аспектов жизни ...