107
}
//
void fastcall TFAVIACOMPANY::Button2Click(TObject
*Sender)
{
if (Application->MessageBox("Действительно
хотите удалить запись?","Подтвердите удаление
записи",
MB_YESNO +
MB_ICONEXCLAMATION) == IDYES)
DM->AVIA->Delete();
}
//
void fastcall TFAVIACOMPANY::Button3Click(TObject
*Sender)
{
if (DM->AVIA->Modified) DM->AVIA->Post();
}
//
void fastcall TFAVIACOMPANY::Edit1Change(TObject
*Sender)
{
TLocateOptions
SearchOptions; Variant
locvalues[] = {Edit1->Text};
DM->AVIA->Locate("NAME",
VarArrayOf(locvalues,1),
SearchOptions<<loPartialKey<<loCaseIns
ensitive);
}
«Sotrudniki.cpp»
#include
<vcl.h> #pragma
hdrstop #include
"SOTRUDNIKI.h"
#include
"DataModule.h"
#include "Main.h"
//
#pragma
package(smart_init)
#pragma resource
"*.dfm" TFSOTRUDNIKI
*FSOTRUDNIKI;
//
fastcall TFSOTRUDNIKI::TFSOTRUDNIKI(TComponent*
Owner)
: TForm(Owner)
{
}
108
//
void fastcall TFSOTRUDNIKI::Button1Click(TObject
*Sender)
{
DM->SOTRUDNIKI->Insert();
DBGrid1->SetFocus();
}
//
void fastcall TFSOTRUDNIKI::Button2Click(TObject
*Sender)
{
if (Application->MessageBox("Действительно
хотите удалить запись?","Подтвердите удаление
записи",
MB_YESNO +
MB_ICONEXCLAMATION) == IDYES)
DM->SOTRUDNIKI->Delete();
}
//
void fastcall TFSOTRUDNIKI::Button3Click(TObject
*Sender)
{
if (DM->SOTRUDNIKI->Modified) DM->SOTRUDNIKI->Post();
}
109
«Samolet.cpp»
#incl
ude <vcl.h>
#pragma
hdrstop
#include
"SAMOLET.h
" #include
"DataModul
e.h"
#include
"Main.h"
//
#pragma
package(smart_
init) #pragma
resource
"*.dfm"
TFSAMOLET
*FSAMOLET;
//
fastcall TFSAMOLET::TFSAMOLET(TComponent*
Owner)
: TForm(Owner)
{
}
//
void fastcall TFSAMOLET::Button1Click(TObject
*Sender)
{
DM->SAMOLET->Insert();
DBGrid1->SetFocus();
}
//
void fastcall TFSAMOLET::Button2Click(TObject
*Sender)
{
if (Application-
>MessageBox("Действительно хотите
удалить запись?","Подтвердите удаление
записи",
MB_YESNO +
MB_ICONEXCLAMATION) ==
IDYES) DM->SAMOLET-
>Delete();
}
//
void fastcall TFSAMOLET::Button3Click(TObject
*Sender)
{
if (DM->SAMOLET->Modified) DM->SAMOLET->Post();
}
110
111
ИСХОДНЫЕ ДАННЫЕ
Рисунок 23 Данные из справочника «Авиакомпании»
Рисунок 24 Данные из справочника
«Города»
112
Рисунок 26 Данные из справочника «Самолет»
Рисунок 25 Данные из справочника
«Класс цен»
113
Рисунок 27 Данные из справочника «Сотрудники»