107
DM->SOTRUDNIKI->Inse
rt();
DBGrid1->Se
tFocus();
}
// ---------------------------------------------------------------------------------
void f
a
stc
a
ll TFSOTRUDNIKI::Button2Click(TObje
ct *Se
nde
r) {
if (
A
pplic
a
tion->Me
ss
a
ge
Box("Действительно хотите удалить за-
пись?","Подтвердите удаление записи",
MB_YE
SNO + MB_ICONE
XCL
A
M
A
TION) ==
IDYE
S) DM->SOTRUDNIKI->De
le
te
();
}
// ---------------------------------------------------------------------------------
void f
a
stc
a
ll TFSOTRUDNIKI::Button3Click(TObje
ct *Se
nde
r) {
if (DM->SOTRUDNIKI->Modifie
d) DM->SOTRUDNIKI->Post();
}
108
«Samolet.cpp»
#include
<vcl.h>
#pr
a
gm
a
hdrstop #include
"S
A
MOLE
T.h"
#include
"D
a
t
a
Module
.h"
#include
"M
a
in.h"
// --------------------------------------------------------------------------------
#pr
a
gm
a
p
a
ck
a
ge
(sm
a
rt init)
#pr
a
gm
a
re
source
"*.dfm"
TFS
A
MOLE
T *FS
A
MOLE
T;
// --------------------------------------------------------------------------------
f
a
stc
a
ll TFS
A
MOLE
T::TFS
A
MOLE
T(TCompone
nt* Owne
r)
: TForm(Owne
r)
{
}
// --------------------------------------------------------------------------------
void f
a
stc
a
ll TFS
A
MOLE
T::Button1Click(TObje
ct *Se
nde
r)
{
DM->S
A
MOLE
T->Inse
rt();
DBGrid1->Se
tFocus();
}
// --------------------------------------------------------------------------------
void f
a
stc
a
ll TFS
A
MOLE
T::Button2Click(TObje
ct *Se
nde
r)
{
if (
A
pplic
a
tion->Me
ss
a
ge
Box("Действительно хотите удалить за-
пись?","Подтвердите удаление записи",
MB_YE
SNO + MB_ICONE
XCL
A
M
A
TION) == IDYE
S) DM->S
A
MOLE
T-
>De
le
te
();
}
109
// --------------------------------------------------------------------------------
void f
a
stc
a
ll TFS
A
MOLE
T::Button3Click(TObje
ct *Se
nde
r)
{
if (DM->S
A
MOLE
T->Modifie
d) DM->S
A
MOLE
T->Post();
}
110
ПРИЛОЖЕНИЕ Б
ИСХОДНЫЕ ДАННЫЕ
Рисунок Б.1 - Данные из справочника «Авиакомпании»
Рисунок Б.2 - Данные из справочника «Города»
Рисунок Б.3 - Данные из справочника «Класс
цен»
111
112
Рисунок Б.4 - Данные из справочника «Самолет»
Рисунок Б. 5 - Данные из справочника «Сотрудники»
113
ПРИЛОЖЕНИЕ B
Исходные таблицы
Рисунок В.1 - Создание справочника «Авиакомпании»
Рисунок В.2 - Создание справочника «Должности»
Рисунок В.3 - Создание справочника «Сотрудники»
114
115
Рисунок В.4 - Создание справочника «Продажа»
Рисунок В.5 - Создание справочника «Самолет»
Рисунок В.6 - Создание справочника «Рейс»
116
Рисунок В.7 - Создание справочника «Клиент»
Рисунок В.8 - Создание справочника «Класс цен»
Рисунок В.9 - Создание справочника «Город»