87
FKLIE
NT->Show();
}
// -----------------------------------------------------------------------
void f
a
stc
a
ll TM
a
inForm::N9Click(TObje
ct *Se
nde
r)
{
FSOTRUDNIKI->Show();
}
// -----------------------------------------------------------------------
void f
a
stc
a
ll TM
a
inForm::N11Click(TObje
ct *Se
nde
r)
{
FKL
A
SS->Show();
}
// -----------------------------------------------------------------------
void f
a
stc
a
ll TM
a
inForm::N1Click(TObje
ct *Se
nde
r)
{
FSE
LL->Show();
}
// -----------------------------------------------------------------------
void f
a
stc
a
ll TM
a
inForm::N2Click(TObje
ct *Se
nde
r)
{
FBRONIROV
A
NIE
->Show();
}
// -----------------------------------------------------------------------
void f
a
stc
a
ll TM
a
inForm::N4Click(TObje
ct *Se
nde
r)
{
Close
();
}
88
«REIS.cpp»
#include
<vcl.h>
#pr
a
gm
a
hdrstop #include
"RE
IS.h"
#include
"D
a
t
a
Module
.h"
#include
"M
a
in.h"
#include
"GOROD
A
.h"
#include
"BRONIROV
A
NIE
.h"
#include
"Re
portRe
is.h"
// ------------------------------------------------------------------------
#pr
a
gm
a
p
a
ck
a
ge
(sm
a
rt init)
#pr
a
gm
a
re
source
"*.dfm"
TFRE
IS *FRE
IS;
// ------------------------------------------------------------------------
f
a
stc
a
ll TFRE
IS::TFRE
IS(TCompone
nt* Owne
r)
: TForm(Owne
r)
{
}
// ------------------------------------------------------------------------
void f
a
stc
a
ll TFRE
IS::FormCre
a
te
(TObje
ct *Se
nde
r)
{
DM->GOROD
A
->
A
ctive
= true
;
DM->GOROD
A
->First(); while
(!DM->GOROD
A
->E
of) {
CB3->Ite
ms->
A
dd(DM->GOROD
A
N
A
ME
-
>
A
sString); CB4->Ite
ms->
A
dd(DM-
>GOROD
A
N
A
ME
->
A
sString); DM->GOROD
A
-
>Ne
xt(); }
89
DM->
A
VI
A
->
A
ctive
= true
;
DM->
A
VI
A
->First(); while
(!DM->
A
VI
A
->E
of) {
CB1->Ite
ms->
A
dd(DM->
A
VI
A
N
A
ME
-
>
A
sString); DM->
A
VI
A
->Ne
xt(); }
DM->S
A
MOLE
T->
A
ctive
= true
;
DM->S
A
MOLE
T->First(); while
(!DM->S
A
MOLE
T->E
of) {
CB2->Ite
ms->
A
dd(DM->S
A
MOLE
TMODE
L-
>
A
sString); DM->S
A
MOLE
T->Ne
xt(); }
}
// ------------------------------------------------------------------------
void f
a
stc
a
ll TFRE
IS::Button1Click(TObje
ct *Se
nde
r) {
DM->RE
IS->Inse
rt();
DM->RE
IS->E
dit();
DM->RE
ISID->
A
sString = E
dit1->Te
xt; DM-
>RE
ISCOMP
A
NY->
A
sString = CB1->Te
xt; DM-
>RE
ISS
A
MOLE
T->
A
sString = CB2->Te
xt; DM-
>RE
ISGOROD_OTPR->
A
sString = CB3->Te
xt;
DM->RE
ISGOROD_PRIB->
A
sString = CB4->Te
xt;
DM->RE
ISD
A
T
A
OTPR->
A
sString = D
a
te
Time
Picke
r1-
>D
a
te
; DM->RE
ISD
A
T
A
_PRIB->
A
sString =
D
a
te
Time
Picke
r3->D
a
te
; DM->RE
ISTIME
OTPR->
A
sString
= D
a
te
Time
Picke
r2->Time
; DM->RE
ISTIME
PRIB-
>
A
sString = D
a
te
Time
Picke
r4->Time
; DM-
>RE
ISCOST~BILE
T->
A
sString = E
dit2->Te
xt; DBGrid1-
>Se
tFocus();
}
// ------------------------------------------------------------------------
void f
a
stc
a
ll TFRE
IS::Button3Click(TObje
ct *Se
nde
r)
90
{
if (DM->RE
IS->Modifie
d) DM->RE
IS->Post();
}void f
a
stc
a
ll TFRE
IS::Button4Click(TObje
ct *Se
nde
r)
{
_
CB1->Cle
a
r();
CB2->Cle
a
r();
CB3->Cle
a
r();
CB4->Cle
a
r();
E
dit1->Cle
a
r();
E
dit2->Cle
a
r();
}
// ------------------------------------------------------------------------------
void f
a
stc
a
ll TFRE
IS::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->RE
IS->De
le
te
();
}
// ------------------------------------------------------------------------------
void f
a
stc
a
ll TFRE
IS::Button5Click(TObje
ct *Se
nde
r)
{
Re
pRe
is->QuickRe
p1->Pre
vie
w();
}
// ------------------------------------------------------------------------------
void f
a
stc
a
ll TFRE
IS::E
dit3Ch
a
nge
(TObje
ct *Se
nde
r)
{
TLoc
a
te
Options Se
a
rchOptions;
V
a
ri
a
nt locv
a
lue
s[] = {E
dit3->Te
xt};
DM->RE
IS->Loc
a
te
("GOROD_OTPR", V
a
r
A
rr
a
yOf(locv
a
lue
s,1),
91
Se
a
rchOptions<<loP
a
rti
a
lKe
y<<loC
a
se
Inse
nsitive
);
}
// ------------------------------------------------------------------------------
void f
a
stc
a
ll TFRE
IS::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
dit3->Te
xt};
DM->RE
IS->Loc
a
te
("GOROD_PRIB", 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
);
}
«Se
ll.cpp»
#include
<vcl.h>
#pr
a
gm
a
hdrstop #in-
clude
"SE
LL.h"
#include
"D
a
t
a
Module
.h"
#include
"M
a
in.h"
#include
"RE
IS.h"
#include
"Re
portSe
ll.h"
// ---------------------------------------------------------------------
#pr
a
gm
a
p
a
ck
a
ge
(sm
a
rt init)
#pr
a
gm
a
re
source
"*.dfm"
TFSE
LL *FSE
LL;
// ---------------------------------------------------------------------
f
a
stc
a
ll TFSE
LL::TFSE
LL(TCompone
nt* Owne
r)
: TForm(Owne
r)
{
}
// ---------------------------------------------------------------------
void f
a
stc
a
ll TFSE
LL::FormCre
a
te
(TObje
ct *Se
nde
r) {
92
CB->Cle
a
r();
DM->RE
IS->
A
ctive
= true
;
DM->RE
IS->First(); while
(!DM->RE
IS->E
of) { CB-
>Ite
ms->
A
dd(DM->RE
ISID->
A
sString); DM->RE
IS-
>Ne
xt(); }
CB1->Cle
a
r();
DM->KLIE
NT->
A
ctive
= true
;
DM->KLIE
NT->First(); while
(!DM->KLIE
NT->E
of)
{ CB1->Ite
ms->
A
dd(DM->KLIE
NTFIO->
A
sString);
DM->KLIE
NT->Ne
xt(); }
CB2->Cle
a
r();
DM->BRONIROV
A
NIE
->
A
ctive
= true
;
DM->BRONIROV
A
NIE
->First();
while
(!DM->BRONIROV
A
NIE
->E
of) {
CB2->Ite
ms->
A
dd(DM->BRONIROV
A
NIE
ID->
A
sString);
DM->BRONIROV
A
NIE
->Ne
xt(); }
CB3->Cle
a
r();
DM->SOTRUDNIKI->
A
ctive
= true
;
DM->SOTRUDNIKI->First();
while
(!DM->SOTRUDNIKI->E
of) {
CB3->Ite
ms->
A
dd(DM->SOTRUDNIKIFIO->
A
sString);
DM->SOTRUDNIKI->Ne
xt(); }
CB4->Cle
a
r();
DM->KL
A
SS->
A
ctive
= true
;
DM->KL
A
SS->First(); while
(!DM->KL
A
SS->E
of) {
CB4->Ite
ms->
A
dd(DM->KL
A
SSN
A
ME
->
A
sString);
DM->KL
A
SS->Ne
xt(); }
}
// --------------------------------------------------------------------------
void __f
a
stc
a
ll TFSE
LL::Button1Click(TObje
ct *Se
nde
r)
93
{
DM->SE
LL->Inse
rt();
DM->SE
LL->E
dit();
DM->SE
LLNOME
R_R->
A
sString = CB-
>Te
xt; DM->SE
LLFIO_K->
A
sString = CB1-
>Te
xt; DM->SE
LLNOME
R_B->
A
sString =
CB2->Te
xt; DM->SE
LLSOTRUDNIK-
>
A
sString = CB3->Te
xt; DM->SE
LLD
A
T
A
-
>
A
sString = DTP->D
a
te
; DM-
>SE
LLN
A
ME
_C->
A
sString = CB4->Te
xt;
DM->SE
LLOPL
A
T
A
->
A
sString = E
dit2-
>Te
xt;
}
// --------------------------------------------------------------------------
void f
a
stc
a
ll TFSE
LL::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->SE
LL->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 TFSE
LL::E
dit3Ch
a
nge
(TObje
ct *Se
nde
r)
{
TLoc
a
te
Options Se
a
rchOptions;
V
a
ri
a
nt locv
a
lue
s[] = {E
dit3->Te
xt};
DM->SE
LL->Loc
a
te
(”SOTRUDNIK”, 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
);
}
//
94
void f
a
stc
a
ll TFSE
LL::CBCh
a
nge
(TObje
ct *Se
nde
r)
{
_
DM->ost->Close
();
DM->ost->SQL->Cle
a
r();
DM->ost->SQL->
A
dd("se
le
ct KOLVO P
A
SS from s
a
mole
t le
ft join re
is on
s
a
mole
t.mode
l = re
is.s
a
mole
t whe
re
re
is.id = + CB->Te
xt + "'");
DM->ost->Ope
n();
P
a
ne
l1->C
a
ption = "";
DM->kolvo->Close
();
DM->kolvo->SQL->Cle
a
r();
DM->kolvo->SQL->
A
dd("se
le
ct count ( Nome
r r)
a
s kolvo from se
ll whe
re
nome
r r
= ’" + CB->Te
xt + "’");
DM->kolvo->Ope
n();
P
a
ne
l1->C
a
ption = DM->ost->Fie
ldV
a
lue
s["kolvo p
a
ss"] - DM->kolvo-
>Fie
ldV
a
lue
s["kolvo"];
E
dit2->Cle
a
r();
DM->ce
n
a
->SQL->Cle
a
r();
DM->ce
n
a
->SQL->
A
dd("se
le
ct COST_BILE
T from RE
IS whe
re
ID = ’" + CB-
>Te
xt + "’");
DM->ce
n
a
->Ope
n();
if (!DM->ce
n
a
->Fie
ldByN
a
me
("COST_BILE
T")->IsNull)
E
dit2->Te
xt = DM->ce
n
a
->Fie
ldV
a
lue
s["COST_BILE
T"]; e
lse
E
dit2->Te
xt = "0";
}
// -----------------------------------------------------------------------------------------------
void f
a
stc
a
ll TFSE
LL::CB4Ch
a
nge
(TObje
ct *Se
nde
r)
{
E
dit2->Cle
a
r();
CBCh
a
nge
(CB);
flo
a
t
a
, b;
//
}
95
b = StrToFlo
a
t(E
dit2->Te
xt) *
a
;
E
dit2->Te
xt = Flo
a
tToStr(b);
}
// ------------------------------------------------------------------------
void f
a
stc
a
ll TFSE
LL::Button4Click(TObje
ct *Se
nde
r)
{
Re
pSe
ll->QuickRe
p1->Pre
vie
w();
}
// ------------------------------------------------------------------------ void f
a
stc
a
ll
TFSE
LL::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->SE
LL->De
le
te
();
}
// ------------------------------------------------------------------------------
void f
a
stc
a
ll TFSE
LL::Button3Click(TObje
ct *Se
nde
r)
{
if (DM->SE
LL->Modifie
d) DM->SE
LL->Post();
}
// ------------------------------------------------------------------------------
void f
a
stc
a
ll TFSE
LL::Button5Click(TObje
ct *Se
nde
r)
{
FRE
IS->Show();
if
(CB4->Ite
mInde
x ==
0)
a
=
1;
if
(CB4->Ite
mInde
x ==
1)
a
=
1.5;
if
(CB4->Ite
mInde
x ==
2)
a
=
2;
//
}
96
void f
a
stc
a
ll TFSE
LL::Button6Click(TObje
ct *Se
nde
r) {
_
CB->Cle
a
r();
CB1->Cle
a
r();
CB2->Cle
a
r();
CB3->Cle
a
r();
CB4->Cle
a
r();
E
dit1->Cle
a
r();
E
dit2->Cle
a
r();
E
dit3->Cle
a
r();
}
«Bronirov
a
nie
.cpp»
#include
<vcl.h>
#pr
a
gm
a
hdrstop #include
"BRONIROV
A
NIE
.h"
#include
"D
a
t
a
Module
.h"
#include
"M
a
in.h"
#include
"KLIE
NT.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"
TFBRONIROV
A
NIE
*FBRONIROV
A
NIE
;
// ----------------------------------------------------------------------------------
f
a
stc
a
ll TFBRONIROV
A
NIE
::TFBRONIROV
A
NIE
(TCompone
nt* Owne
r)
: TForm(Owne
r)
{
}
// ----------------------------------------------------------------------------------
void f
a
stc
a
ll TFBRONIROV
A
NIE
::E
dit3Ch
a
nge
(TObje
ct *Se
nde
r) {
TLoc
a
te
Options Se
a
rchOptions;
V
a
ri
a
nt locv
a
lue
s[] = {E
dit3->Te
xt};