//
}
97
DM->BRONIROV
A
NIE
->Loc
a
te
("FIO_K", V
a
r
A
rr
a
yOf(locv
a
lue
s,1),
Se
a
rchOptions<<loP
a
rti
a
lKe
y<<loC
a
se
Inse
nsitive
);
}
// ----------------------------------------------------------------------------------
void f
a
stc
a
ll TFBRONIROV
A
NIE
::E
dit4Ch
a
nge
(TObje
ct *Se
nde
r) {
TLoc
a
te
Options Se
a
rchOptions;
V
a
ri
a
nt locv
a
lue
s[] = {E
dit4->Te
xt};
DM->BRONIROV
A
NIE
->Loc
a
te
("ST
A
TUS", V
a
r
A
rr
a
yOf(locv
a
lue
s,1),
Se
a
rchOptions<<loP
a
rti
a
lKe
y<<loC
a
se
Inse
nsitive
);
}
// ----------------------------------------------------------------------------------
void f
a
stc
a
ll TFBRONIROV
A
NIE
::FormCre
a
te
(TObje
ct *Se
nde
r)
{
CB->Cle
a
r();
DM->KLIE
NT->
A
ctive
= true
;
DM->KLIE
NT->First();
while
(!DM->KLIE
NT->E
of) {
CB->Ite
ms->
A
dd(DM->KLIE
NTFIO->
A
sString);
DM->KLIE
NT->Ne
xt(); }
CB1->Cle
a
r();
DM->RE
IS->
A
ctive
= true
;
DM->RE
IS->First(); while
(!DM->RE
IS->E
of) {
//
}
98
CB1->Ite
ms->
A
dd(DM->RE
ISID->
A
sString);
DM->RE
IS->Ne
xt(); }
// -----------------------------------------------------------------------------------
void f
a
stc
a
ll TFBRONIROV
A
NIE
::Button1Click(TObje
ct *Se
nde
r)
{
_
DM->BRONIROV
A
NIE
->Inse
rt();
DM->BRONIROV
A
NIE
->E
dit();
DM->BRONIROV
A
NIE
FIO_K->
A
sString = CB->Te
xt;
DM->BRONIROV
A
NIE
D
A
T
A
_F->
A
sString = DTP-
>D
a
te
; DM->BRONIROV
A
NIE
NOME
R_R->
A
sString =
CB1->Te
xt; DM->BRONIROV
A
NIE
ST
A
TUS->
A
sString
= E
dit2->Te
xt; DBGrid1->Se
tFocus();
}
// -----------------------------------------------------------------------------------
void f
a
stc
a
ll TFBRONIROV
A
NIE
::Button3Click(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->BRONIROV
A
NIE
->De
le
te
();
}
// -----------------------------------------------------------------------------------
void f
a
stc
a
ll TFBRONIROV
A
NIE
::Button2Click(TObje
ct *Se
nde
r)
{
if (DM->BRONIROV
A
NIE
->Modifie
d) DM->BRONIROV
A
NIE
->Post();
}
// -----------------------------------------------------------------------------------
void f
a
stc
a
ll TFBRONIROV
A
NIE
::Button4Click(TObje
ct *Se
nde
r)
{
CB->Cle
a
r();
//
}
99
CB1->Cle
a
r();
E
dit2->Cle
a
r();
}
// -----------------------------------------------------------------------------------
void f
a
stc
a
ll TFBRONIROV
A
NIE
::Button6Click(TObje
ct *Se
nde
r)
{
FKLIE
NT->Show();
}
// -----------------------------------------------------------------------------------
void f
a
stc
a
ll TFBRONIROV
A
NIE
::Button5Click(TObje
ct *Se
nde
r)
{
FRE
IS->Show();
}
«Klie
nt.cpp»
#include
<vcl.h>
#pr
a
gm
a
hdrstop #include
"KLIE
NT.h"
#include
"D
a
t
a
Module
.h"
#include
"M
a
in.h"
#include
"BRONIROV
A
NIE
.h"
// --------------------------------------------------------------
#pr
a
gm
a
p
a
ck
a
ge
(sm
a
rt init)
#pr
a
gm
a
re
source
"*.dfm"
TFKLIE
NT *FKLIE
NT;
// --------------------------------------------------------------
f
a
stc
a
ll TFKLIE
NT::TFKLIE
NT(TCompone
nt* Owne
r)
: TForm(Owne
r)
{
//
}
100
void f
a
stc
a
ll TFKLIE
NT::Button1Click(TObje
ct *Se
nde
r)
{
_
DM->KLIE
NT->Inse
rt();
DM->KLIE
NT->E
dit();
DM->KLIE
NTFIO->
A
sString = E
dit4->Te
xt; DM-
>KLIE
NTSE
RI
A
_P->
A
sString = E
dit5->Te
xt; DM-
>KLIE
NTNOME
R_P->
A
sString = E
dit8->Te
xt; DM-
>KLIE
NTE
M
A
IL->
A
sString = E
dit6->Te
xt; DM-
>KLIE
NTMOBTE
L->
A
sString = E
dit7->Te
xt; DBGrid1->Se
tFocus();
}
// ------------------------------------------------------------------------------
void f
a
stc
a
ll TFKLIE
NT::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-
>KLIE
NT->De
le
te
();
}
// ------------------------------------------------------------------------------
void f
a
stc
a
ll TFKLIE
NT::Button3Click(TObje
ct *Se
nde
r)
{
if (DM->KLIE
NT->Modifie
d) DM->KLIE
NT->Post();
}
// ------------------------------------------------------------------------------
void f
a
stc
a
ll TFKLIE
NT::E
dit1Ch
a
nge
(TObje
ct *Se
nde
r)
{
TLoc
a
te
Options Se
a
rchOptions;
V
a
ri
a
nt locv
a
lue
s[] = {E
dit1->Te
xt}; DM->KLIE
NT->Loc
a
te
(”FIO”,
V
a
r
A
rr
a
yOf(locv
a
lue
s,1),
Se
a
rchOptions<<loP
a
rti
a
lKe
y<<loC
a
se
Inse
nsitive
);
//
}
101
}
// ------------------------------------------------------------------------------
void f
a
stc
a
ll TFKLIE
NT::E
dit2Ch
a
nge
(TObje
ct *Se
nde
r)
{
TLoc
a
te
Options Se
a
rchOptions;
V
a
ri
a
nt locv
a
lue
s[] = {E
dit1->Te
xt};
DM->KLIE
NT->Loc
a
te
("SE
RI
A
_P", V
a
r
A
rr
a
yOf(locv
a
lue
s,1),
Se
a
rchOptions<<loP
a
rti
a
lKe
y<<loC
a
se
Inse
nsitive
);
}
«Kl
a
ss.cpp»
#include
<vcl.h>
#pr
a
gm
a
hdrstop
#include
"KL
A
SS.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"
TFKL
A
SS *FKL
A
SS;
// --------------------------------------------------------------
f
a
stc
a
ll TFKL
A
SS::TFKL
A
SS(TCompone
nt* Owne
r)
: TForm(Owne
r)
{
}
// --------------------------------------------------------------
102
void f
a
stc
a
ll TFKL
A
SS::Button1Click(TObje
ct *Se
nde
r)
{
_
DM->KL
A
SS->Inse
rt();
DBGrid1->Se
tFocus();
}
// ------------------------------------------------------------------------------
void f
a
stc
a
ll TFKL
A
SS::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->KL
A
SS->De
le
te
();
}
// ------------------------------------------------------------------------------
void f
a
stc
a
ll TFKL
A
SS::Button3Click(TObje
ct *Se
nde
r)
{
if (DM->KL
A
SS->Modifie
d) DM->KL
A
SS->Post();
}
«Gorod
a
.cpp»
#include
<vcl.h>
#pr
a
gm
a
hdrstop #include
"GOROD
A
.h"
#include
"D
a
t
a
Module
.h"
#include
"M
a
in.h"
#include
"RE
IS.h"
// ------------------------------------------------------------------------------
#pr
a
gm
a
p
a
ck
a
ge
(sm
a
rt init)
#pr
a
gm
a
re
source
"*.dfm"
TFGOROD
A
*FGOROD
A
;
// ------------------------------------------------------------------------------
103
f
a
stc
a
ll TFGOROD
A
::TFGOROD
A
(TCompone
nt* Owne
r)
: TForm(Owne
r)
{
}
// ------------------------------------------------------------------------------
void f
a
stc
a
ll TFGOROD
A
::Button1Click(TObje
ct *Se
nde
r)
{
DM->GOROD
A
->Inse
rt();
DBGrid1->Se
tFocus();
}
// ------------------------------------------------------------------------------
void f
a
stc
a
ll TFGOROD
A
::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->GOROD
A
->De
le
te
();
}
// ------------------------------------------------------------------------------
void f
a
stc
a
ll TFGOROD
A
::Button3Click(TObje
ct *Se
nde
r)
{
if (DM->GOROD
A
->Modifie
d) DM->GOROD
A
->Post();
}
// ------------------------------------------------------------------------------
void f
a
stc
a
ll TFGOROD
A
::E
dit1Ch
a
nge
(TObje
ct *Se
nde
r)
{
TLoc
a
te
Options Se
a
rchOptions;
V
a
ri
a
nt locv
a
lue
s[] = {E
dit1->Te
xt};
DM->GOROD
A
->Loc
a
te
("N
A
ME
", V
a
r
A
rr
a
yOf(locv
a
lue
s,1),
Se
a
rchOptions<<loP
a
rti
a
lKe
y<<loC
a
se
Inse
nsitive
);
104
}
«Doljnosti.cpp»
#include
<vcl.h>
#pr
a
gm
a
hdrstop #include
"DOLJNOSTI.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"
TFDOLJNOSTI *FDOLJNOSTI;
// -------------------------------------------------------------------------------
f
a
stc
a
ll TFDOLJNOSTI::TFDOLJNOSTI(TCompone
nt* Owne
r)
: TForm(Owne
r)
{
}
// -------------------------------------------------------------------------------
void f
a
stc
a
ll TFDOLJNOSTI::Button1Click(TObje
ct *Se
nde
r) {
DM->DOLJNOSTI->Inse
rt();
DBGrid1->Se
tFocus();
}
// -------------------------------------------------------------------------------
void f
a
stc
a
ll TFDOLJNOSTI::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->DOLJNOSTI->De
le
te
();
}
// -------------------------------------------------------------------------------
void f
a
stc
a
ll TFDOLJNOSTI::Button3Click(TObje
ct *Se
nde
r) {
if (DM->DOLJNOSTI->Modifie
d) DM->DOLJNOSTI->Post();
105
}
«
A
vi
a
comp
a
ny.cpp»
#include
<vcl.h>
#pr
a
gm
a
hdrstop #include
"
A
VI
A
COMP
A
NY.h"
#include
"D
a
t
a
Module
.h"
#include
"GOROD
A
.h"
#include
"M
a
in.h"
#include
"S
A
MOLE
T.h"
// ----------------------------------------------------------------------------------
#pr
a
gm
a
p
a
ck
a
ge
(sm
a
rt init)
#pr
a
gm
a
re
source
"*.dfm"
TF
A
VI
A
COMP
A
NY *F
A
VI
A
COMP
A
NY;
// ----------------------------------------------------------------------------------
f
a
stc
a
ll TF
A
VI
A
COMP
A
NY::TF
A
VI
A
COMP
A
NY(TCompone
nt* Owne
r)
: TForm(Owne
r)
{
}
// ----------------------------------------------------------------------------------
void f
a
stc
a
ll TF
A
VI
A
COMP
A
NY::Button1Click(TObje
ct *Se
nde
r) {
DM->
A
VI
A
->Inse
rt();
DBGrid1->Se
tFocus();
}
//
void f
a
stc
a
ll TF
A
VI
A
COMP
A
NY::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->
A
VI
A
->De
le
te
();
106
}
// ---------------------------------------------------------------------------------
void f
a
stc
a
ll TF
A
VI
A
COMP
A
NY::Button3Click(TObje
ct *Se
nde
r) {
if (DM->
A
VI
A
->Modifie
d) DM->
A
VI
A
->Post();
}
// ---------------------------------------------------------------------------------
void f
a
stc
a
ll TF
A
VI
A
COMP
A
NY::E
dit1Ch
a
nge
(TObje
ct *Se
nde
r)
{
TLoc
a
te
Options Se
a
rchOptions;
V
a
ri
a
nt locv
a
lue
s[] = {E
dit1->Te
xt};
DM->
A
VI
A
->Loc
a
te
("N
A
ME
", V
a
r
A
rr
a
yOf(locv
a
lue
s,1),
Se
a
rchOptions<<loP
a
rti
a
lKe
y<<loC
a
se
Inse
nsitive
);
}
«Sotrudniki.cpp»
#include
<vcl.h>
#pr
a
gm
a
hdrstop #include
"SOTRUDNIKI.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"
TFSOTRUDNIKI *FSOTRUDNIKI;
// ---------------------------------------------------------------------------------
f
a
stc
a
ll TFSOTRUDNIKI::TFSOTRUDNIKI(TCompone
nt* Owne
r)
: TForm(Owne
r)
{
}
// ---------------------------------------------------------------------------------
void f
a
stc
a
ll TFSOTRUDNIKI::Button1Click(TObje
ct *Se
nde
r) {