97
}
//
void fastcall TFSELL::Button6Click(TObject *Sender)
{
CB->Clear();
CB1->Clear();
CB2->Clear();
CB3->Clear();
CB4-
>Clear();
Edit1-
>Clear();
Edit2-
>Clear();
Edit3-
>Clear();
}
«Bronirovanie.cpp»
#includ
e <vcl.h>
#pragma
hdrstop
#include
"BRONIROVANIE.h"
#include
"DataModule.h"
#include "Main.h"
#include "KLIENT.h"
#include "REIS.h"
//
#pragma
package(smart_init)
#pragma resource "*.dfm"
TFBRONIROVANIE
*FBRONIROVANIE;
//
fastcall TFBRONIROVANIE::TFBRONIROVANIE(TComponent*
Owner)
: TForm(Owner)
{
}
//
void fastcall TFBRONIROVANIE::Edit3Change(TObject
*Sender)
{
TLocateOptions
SearchOptions; Variant
locvalues[] = {Edit3->Text};
DM->BRONIROVANIE->Locate("FIO_K",
VarArrayOf(locvalues,1),
98
SearchOptions<<loPartialKey<<loCaseInsensitiv
e);
}
//
void fastcall TFBRONIROVANIE::Edit4Change(TObject
*Sender)
{
TLocateOptions
SearchOptions; Variant
locvalues[] = {Edit4->Text};
DM->BRONIROVANIE->Locate("STATUS",
VarArrayOf(locvalues,1),
SearchOptions<<loPartialKey<<loCaseInsensitive
);
}
//
void fastcall TFBRONIROVANIE::FormCreate(TObject
*Sender)
{
CB->Clear();
DM->KLIENT-
>Active = true; DM-
>KLIENT->First();
while (!DM->KLIENT->Eof) {
CB->Items->Add(DM-
>KLIENTFIO->AsString); DM-
>KLIENT->Next(); }
CB1->Clear();
DM->REIS-
>Active = true; DM-
>REIS->First();
while (!DM->REIS->Eof) {
99
CB1->Items->Add(DM-
>REISID->AsString); DM->REIS-
>Next(); }
}
//
void fastcall TFBRONIROVANIE::Button1Click(TObject
*Sender)
{
DM-
>BRONIROVANIE-
>Insert(); DM-
>BRONIROVANIE-
>Edit();
DM->BRONIROVANIEFIO_K-
>AsString = CB->Text; DM-
>BRONIROVANIEDATA_F->AsString =
DTP->Date;
DM->BRONIROVANIENOMER_R-
>AsString = CB1->Text; DM-
>BRONIROVANIESTATUS->AsString =
Edit2->Text;
DBGrid1->SetFocus();
}
//
void fastcall TFBRONIROVANIE::Button3Click(TObject
*Sender)
{
if (Application-
>MessageBox("Действительно хотите удалить
запись?","Подтвердите удаление записи",
MB_YESNO +
MB_ICONEXCLAMATION) == IDYES)
DM->BRONIROVANIE->Delete();
}
//
void fastcall TFBRONIROVANIE::Button2Click(TObject
*Sender)
{
if (DM->BRONIROVANIE->Modified) DM->BRONIROVANIE-
>Post();
}
//
void fastcall TFBRONIROVANIE::Button4Click(TObject
*Sender)
{
CB->Clear();
CB1-
>Clear();
Edit2-
>Clear();
}
//
100
void fastcall TFBRONIROVANIE::Button6Click(TObject
*Sender)
{
FKLIENT->Show();
}
//
void fastcall TFBRONIROVANIE::Button5Click(TObject
*Sender)
{
FREIS->Show();
}
«Klient.cpp»
#include
<vcl.h> #pragma
hdrstop #include
"KLIENT.h"
#include
"DataModule.h"
#include "Main.h"
#include "BRONIROVANIE.h"
//
#pragma
package(smart_init)
#pragma resource
"*.dfm" TFKLIENT
*FKLIENT;
//
fastcall TFKLIENT::TFKLIENT(TComponent* Owner)
: TForm(Owner)
{
101
}
//
void fastcall TFKLIENT::Button1Click(TObject *Sender)
{
DM->KLIENT-
>Insert(); DM-
>KLIENT->Edit();
DM->KLIENTFIO->AsString = Edit4->Text;
DM->KLIENTSERIA_P->AsString
= Edit5->Text; DM->KLIENTNOMER_P-
>AsString = Edit8->Text; DM-
>KLIENTEMAIL->AsString = Edit6-
>Text; DM->KLIENTMOBTEL->AsString
= Edit7->Text; DBGrid1-
>SetFocus();
}
//
void fastcall TFKLIENT::Button2Click(TObject *Sender)
{
if (Application-
>MessageBox("Действительно хотите удалить
запись?","Подтвердите удаление записи",
MB_YESNO +
MB_ICONEXCLAMATION) == IDYES)
DM->KLIENT->Delete();
}
//
void fastcall TFKLIENT::Button3Click(TObject *Sender)
{
if (DM->KLIENT->Modified) DM->KLIENT->Post();
}
//
void fastcall TFKLIENT::Edit1Change(TObject *Sender)
{
TLocateOptions
SearchOptions; Variant
locvalues[] = {Edit1->Text};
DM->KLIENT->Locate("FIO",
VarArrayOf(locvalues,1),
SearchOptions<<loPartialKey<<loCaseInse
nsitive);
}
//
void fastcall TFKLIENT::Edit2Change(TObject *Sender)
{
TLocateOptions
SearchOptions; Variant
locvalues[] = {Edit1->Text};
DM->KLIENT->Locate("SERIA_P",
VarArrayOf(locvalues,1),
102
SearchOptions<<loPartialKey<<loCaseInsensi
tive);
}
«Klass.cpp»
#includ
e <vcl.h>
#pragma
hdrstop
#include
"KLASS.h" #include
"DataModule.h"
#include "Main.h"
//
#pragma
package(smart_init)
#pragma resource
"*.dfm" TFKLASS
*FKLASS;
//
fastcall TFKLASS::TFKLASS(TComponent* Owner)
: TForm(Owner)
{
}
//
103
void fastcall TFKLASS::Button1Click(TObject *Sender)
{
DM->KLASS->Insert();
DBGrid1->SetFocus();
}
//
void fastcall TFKLASS::Button2Click(TObject *Sender)
{
if (Application->MessageBox("Действительно
хотите удалить запись?","Подтвердите удаление
записи",
MB_YESNO +
MB_ICONEXCLAMATION) == IDYES)
DM->KLASS->Delete();
}
//
void fastcall TFKLASS::Button3Click(TObject *Sender)
{
if (DM->KLASS->Modified) DM->KLASS->Post();
}
«Goroda.cpp»
#include
<vcl.h> #pragma
hdrstop #include
"GORODA.h"
#include
"DataModule.h"
#include "Main.h"
#include "REIS.h"
//
#pragma
package(smart_init)
#pragma resource
"*.dfm" TFGORODA
*FGORODA;
//
fastcall TFGORODA::TFGORODA(TComponent* Owner)
: TForm(Owner)
{
}
//
void fastcall TFGORODA::Button1Click(TObject *Sender)
{
DM->GORODA->Insert();
DBGrid1->SetFocus();
}
//
void fastcall TFGORODA::Button2Click(TObject *Sender)
{
if (Application-
>MessageBox("Действительно хотите удалить
запись?","Подтвердите удаление записи",
104
MB_YESNO +
MB_ICONEXCLAMATION) == IDYES)
DM->GORODA->Delete();
}
//
void fastcall TFGORODA::Button3Click(TObject *Sender)
{
if (DM->GORODA->Modified) DM->GORODA->Post();
}
//
void fastcall TFGORODA::Edit1Change(TObject *Sender)
{
TLocateOptions
SearchOptions; Variant
locvalues[] = {Edit1->Text};
DM->GORODA->Locate("NAME", VarArrayOf(locvalues,1),
105
SearchOptions<<loPartialKey<<loCaseInsensitive);
}
«Doljnosti.cpp»
#include
<vcl.h> #pragma
hdrstop #include
"DOLJNOSTI.h"
#include
"DataModule.h"
#include "Main.h"
//
#pragma
package(smart_init)
#pragma resource
"*.dfm" TFDOLJNOSTI
*FDOLJNOSTI;
//
fastcall TFDOLJNOSTI::TFDOLJNOSTI(TComponent* Owner)
: TForm(Owner)
{
}
//
void fastcall TFDOLJNOSTI::Button1Click(TObject
*Sender)
{
DM->DOLJNOSTI->Insert();
DBGrid1->SetFocus();
}
//
void fastcall TFDOLJNOSTI::Button2Click(TObject
*Sender)
{
if (Application-
>MessageBox("Действительно хотите удалить
запись?","Подтвердите удаление записи",
MB_YESNO +
MB_ICONEXCLAMATION) == IDYES)
DM->DOLJNOSTI->Delete();
}
//
void fastcall TFDOLJNOSTI::Button3Click(TObject
*Sender)
{
if (DM->DOLJNOSTI->Modified) DM->DOLJNOSTI->Post();
}
«Aviacompany.cpp»
#includ
e <vcl.h>
#pragma
hdrstop
106
#include
"AVIACOMPANY.h"
#include
"DataModule.h"
#include "GORODA.h"
#include "Main.h"
#include
"SAMOLET.h"
//
#pragma
package(smart_init)
#pragma resource
"*.dfm" TFAVIACOMPANY
*FAVIACOMPANY;
//
fastcall TFAVIACOMPANY::TFAVIACOMPANY(TComponent*
Owner)
: TForm(Owner)
{
}
//
void fastcall TFAVIACOMPANY::Button1Click(TObject
*Sender)
{
DM->AVIA->Insert();
DBGrid1->SetFocus();