«
»
(
«
»)
09.03.03
,
07001251
, . .- .
.
2017
.
.......................................................................................................................... 4
1
-
............................. 6
1.1
.............................................................................. 6
1.1.1
............................................................................. 6
1.1.2
.......................................................... 7
1.2
.......................................................................... 9
1.3
....................................................................................... 10
1.4
.................................................................................................. 17
1.5
..................................................................... 19
2
-
.............................................................................. 24
2.1
24
2.2
... 26
2.3
28
2.4
.... 35
3
................... 37
3.1
(
,
)................. 37
3.1.1
.......................... 37
3.1.2
.......................................................................... 37
3.1.2.1
........................................... 37
3.1.2.2
............................................. 41
3.1.3
................................................. 43
3.1.3.1
........................... 43
3.1.3.2
............................................... 45
3.2
3.3
3.4
(
,
(
).........................47
,
)................. 49
...................................52
3.5
.....................55
3.6 SWOT-
....................................................................................... 56
3.7
-
.....................59
.................................................................................................................63
.........................................................65
.
............. 68
,
,
.
,
,
.
,
,
.
«
».
«
-
»
,
.
2012
.
«
-
»
,
,
.
«
»
,
,
,
.
4
,
«
-
»
«
-
».
,
,
,
.
,
,
,
:
-
;
;
-
;
-
;
.
,
,
,
.
5
1
1.1
1.1.1
«
».
«
-
»
,
.
,
,
-
,
,
,
,
,
,
«
,
,
,
,
,
,
.
-
»
,
,
,
,
«
. [3]
-
»
,
.
. [11]
«
-
»
(INTER, IVECO, VOLV , MAN, MERSEDES BENZ,
1)
(
,
10-22
,
30-96 3);
6
,
):
2)
(
10-25
,
30-120 3);
3)
(
4)
«
0,8
(
30
-
3,5
);
).
»
: [9]
1)
;
2)
,
;
3)
;
4)
,
;
5)
-
6)
;
.
«
-
«
-
»
. [24,36]
1.1.2
»
1.1.
,
,
,
-
,
[15].
7
,
1.1 -
«
-
»
:
-
.
,
,
-
,
;
-
;
;
,
,
;
-
,
,
-
-
,
,
;
8
;
;
,
,
-
;
,
-
;
-
,
,
,
[29].
.
«
-
»
308019,
,
.,
.
,
55
1.2
.
:
«
».
-
.
,
:
.
,
,
.
,
,
[12].
9
,
.
,
«
-
»
:
-
;
-
;
-
;
-
,
;
-
,
.
,
,
.
,
,
,
,
.
,
,
,
.
[31].
:
-
;
-
.
1.3
[13].
10
.
,
,
,
.
.
IDEF0.
IDEF0
—
Function
Modeling
—
,
-
IDEF0
.
,
.
IDEF0
,
(WorkFlow).
IDEF0
,
,
.
,
, —
—
, —
,—
—
—
[10].
«
»
.
.
-
.
,
.
-
,
.
11
,
,
,
.
1.2
,
.
SED
:
DATE: 25.04.2017
REV: 10.05.2017
AUTHOR:
PROJECT:
NOTES: , 9
5 6 7 8 9 10
WORKING
DRAFT
RECOMMENDED
PUBLICATION
READER
DATE CONTEXT:
TOP
-
z
*
0.
NODE:
0
TITLE:
1
1
NUMBER:
-0
1
1.2 -
12
.
AUTHOR: BKP
PROJECT:
DATE
DATE: 25.04.2017
REV: 10.05.2017
RECOMMENDED
PUBLICATION
NOTES: 1 2 3 4 5 6 7 8 9 10
A-0
-
1
0 .
0.
2
■‘ ■‘ - 1. ■
A0
1.3 -
1.4.
.
13
CONTEXT:
U SE D AT:
A U T H O R : BKP
D A T E:25.04.2017 |
PRO JECT:
REV: 10.05.2017
DATE CONTEXT:
D R A FT
R EC O M M E N D ED
N OTES: 1 2 3 4 5 6 7 8 9 10
“
P U B L IC A T IO N
_
Г
|_
- ►
O
J1
A1
’
~
T J2
■
■0 .
%
5
NODE:
£
NUMBER:
^
1.5 -
1.6
.
15
►
U SE D A T :A U T H O R : BKP
P R O JE C T : A C
D A T E :25.04.2017 ^ | W O R K IN G
R E V : 10.05.2017
D R A FT
DATE CONTEXT:
REA D ER
REC O M M E N D ED
N OTES: 1 2 3 4 5 6 7 8 9 10
PU B L IC A T IO N
A0
:i
NODE:
NUMBER:
TITLE:
A3
1.6 -
,
,
,
[31].
:
-
;
;
-
.
,
:
-
,
-
;
16
;
-
,
,
;
-
,
.
,
.
,
,
[10].
,
,
,
,
[8] .
,
-
:
,
-
,
-
.
,
-
.
Firebird 1.5.0.
IBExpert.
C++Builder [5].
1.4
«
17
»,
-
,
,
.
,
:
;
-
;
-
;
-
;
-
;
-
;
-
.
,
,
:
,
,
.
,
,
,
.
,
[10].
,
,
.
,
,
.
,
-
,
18
:
-
,
-
.
1.5
,
.
,
,
:
1)
«TransTrade».
.
,
.
.
:
,
,
,
,
(
),
.
:
,
,
,
,
;
;
;
.
,
.
19
,
.
:
,
-
,
[19].
,
,
:
,
,
,
-
,
.
. [11]
2)
«
».
,
,
.
-
,
.
«
»
,
,
,
.
,
.
:
;
-
,
Internet,
,
;
20
-
,
.
,
;
-
:
,
,
,
,
,
. .
;
-
,
,
,
;
-
,
,
.
;
,
,
,
. .
,
,
,
,
,
. .
-
;
-
«
-
»,
/
;
-
,
;
;
-
,
,
,
,
. .,
.
21
,
3)
«proLOG».
.
,
.
«proLOG»
,
,
[30].
,
.
,
,
.
,
.
[32].
)
CRM.
CRM
,
,
,
,
,
,
[33].
)
.
-
,
,
,
,
.
,
,
;
22
,
,
.
)
.
,
,
.
)
.
«
»
. [13]
,
«
»,
,
«
,
-
» [34].
:
1.
;
2.
;
3.
;
4.
;
5.
.
23
2
-
.
2.1
,
,
.
: [35]
-
,
,
,
;
-
;
-
;
-
;
-
,
.
:
-
;
-
,
;
-
,
.
,
.
:
-
,
,
,
. .;
-
;
24
,
;
;
-
,
.
:
-
;
-
;
-
,
;
-
,
;
-
;
-
,
.
,
,
2.1.
2.11
2
Pentium 4
1 Gb
200 Gb
19”
03
25
2.1.
1
2
4
2.2
(
)
,
,
,
,
.
,
[1].
(
,
) -
-
;
(
,
,
)-
/
[2].
.
-
.
,
-
.
,
,
.
26
.
,
.
,
,
,
.
,
.
[4]
-
,
,
.
,
,
,
.
.
,
.
:
,
,
[6].
:
-
,
,
.
-
,
,
.
,
,
.
,
27
[22].
,
-
.
,
.
2.3
(
) ,
.
-
:
(
,
,
,
,
,
,
. .);
-
(
,
,
).
,
.
,
,
,
.
,
.
Windows 7 [16].
Windows 7 —
Microsoft.
Windows NT
2017
Windows 7
.
22
28
2009
,
Windows Vista [26].
-
,
(
)
,
,
[7].
.
.
,
.
,
,
.
,
,
.
. [16,18]
.
60-
.
,
(
«
»
).
.
,
80(
).
,
(SQL). [5]
29
,
-
.
«
»
-
,
.
,
-
-
-
.
,
-
-
. [17]
«
-
»
.
,
.
(
).
,
. [4]
,
,
.
,
.
:
-
,
;
-
,
;
-
,
-
;
.
«
.
-
,
,
30
-
»
.
.
-
-
,
,
.
-
,
.
,
-
:
(File Server - FS);
-
(Remote Data Access - RDA);
-
(DataBase Server - DBS);
-
(Application Server - AS).
[5]
RDA.
-
,
.
,
(
.
SQL,
)
(
- API).
Клиент
Компонент
представления
Прикладной
компонент
2.1 -
(
)
,
,
.
,
,
31
,
.
,
-
,
-
.
RDA-
,
,
.
,
-
,
.
,
-
),
SQL,
.
RDA«
-
»
SQL.
(SQL,
Server, FireBird
(
). SQL-
: InterBase, Oracle, SyBase, Microsoft SQL
. [4]
SQL,
,
,
SQL,
. [27]
SQL-
FireBird
1.5.0.
Firebird
,
(
),
,
(
5Mb),
.
Firebird
2001 .
C
32
C++
,
,
,
2000
Borland 25
Interbase 6.0. [2]
Firebird
Open Source,
,
. Firebird
.
Firebird
,
-
,
. [8]
IBExpert.
IBExpert —
GUI-
(
),
InterBase
Firebird, . .
.
,
,
,
«
PHP
,
»
(C++, Delphi, Java,
. .).
IBExpert
. IBExpert Firebird
InterBase
GUI
.
. [10]
C++Builder 6.0.
,
C++Builder
.
,
.
33
C++Builder
Windows-
,
(Object Inspector),
,
,
.
Object Inspector
. .
,
,
,
,
,
.
C++ Builder
,
,
.
. [9]
,
,
, C++ Builder
.
,
,
,
,
,
,
.
. [28]
,
.
34
2.4
,
,
.
«
-
»,
.
, . .
,
.
.
,
,
,
.
,
,
.
.
:
-
.
-
:
,
.
.
,
,
,
-
.
.
.
35
3
3.1
(
,
)
3.1.1
,
-
,
,
(
)
.
,
.
:
-
;
;
;
-
;
-
,
;
.
.
.
.
,
,
.
.
37
:
,
,
-
,
.
,
3.1.
3.1.-
3
3
3
3
3
3.1.2
3.1.2.1
,
-
.
,
,
. [27]
.
,
-
.
.
,
,
,
,
38
.
,
.
(
) -
,
.
,
.
,
,
.
.
.
,
(
-
):
(
);
-
;
-
;
-
(
,
);
-
(
,
).
,
.
,
,
,
.
.
,
39
.
.
,
.
.
.
.
. [23]
3.1
3.2
,
,
.
,
,
.
,
.
3.1 -
40
3.2 -
3.1.2.2
,
,
.
,
.
,
,
.
,
,
,
,
,
,
. [21]
,
,
.
41
.
,
.
,
.
(
«
).
»,
.
.
,
.
,
;
,
.
,
.
,
.
,
.
42
3.2 -
VODITEL
CLIENT
ZAKAZ
MARSHRUT
VID PEREVO
ZKI
ID
FIRST NAME
MIDDLE NAME
LAST NAME
TELEPHONE
smallint
varchar(20)
varchar(20)
varchar(20)
varchar(20)
MARKA_AVTO
varchar(60)
ID
FIRST NAME
MIDDLE NAME
LAST NAME
ADRES
TELEPHONE
ID
COST
SROCHNOST
ID CLIENT
ID MARSHRUT
ID PEREVOZKI
ID VODITEL
DATE
ID
NAIMENOVANIE
DLINA
ID
NAIMENOVANIE
smallint
varchar(20)
varchar(20)
varchar(20)
varchar(60)
varchar(20)
smallint
numeric(15,2)
varchar(3)
smallint
smallint
smallint
smallint
numeric
smallint
varchar(60)
varchar(20)
smallint
varchar(60)
3.1.3
3.1.3.1
,
.
«ZAKAZ_INFO»
-
:
Zakaz
ID, SROCHNOST, COST
CLIENT
FIRST_NAME,
LAST_NAME;
43
DATE;
MIDDLE_NAME
-
VODITEL
FIRST_NAME,
MIDDLE_NAME
LAST_NAME;
-
Marshrut
NAIMENOVANIE;
-
VID_PEREVOZKI
NAIMENOVANIE.
,
,
,
3.3 -
(
«ZAKAZ_INFO»
/
).
.
CREATE VIEW ZAKAZ_INFO(
ID,
F_CLIENT,
I_CLIENT,
O_CLIENT,
F_VODITEL,
I_VODITEL,
O_VODITEL,
Z_MARSHRUT,
44
Z_PEREVOZKA,
Z_SROCHOST,
PRICE,
Z_DATE)
AS
select zakaz.id, client.first_name, client.middle_name, client.last_name,
voditelfirst_name,
voditel.middle_name,
voditel.last_name,
marshrut.naimenovanie, vid_perevozki.naimenovanie, zakaz.srochnost, zakaz.cost,
zakaz."DATE"
from zakaz, client, voditel, vid_perevozki, marshrut
where
client.id = zakaz.id_client and voditel.id=zakaz.id_voditel
vid_perevozki.id = zakaz.id_perevozki and marshrut.id=zakaz.id_marshrut
3.1.3.2
,
(
(
/
/
).
,
*.QRP,
3.4
)
3.5.
45
and
3.4 i
S i
<
►
Н ом ер
&
«
»
Close |
С то и м о с ть
С рочность
Клиент
М арщ зут
В одитель
Д а та
1
1620
Нет
Миронов
Белгород - Курск
Клинов
04.05.2017
2
1685
Да
Козлова
Белгород - Короча
Зыков
06.05.2017
3
3500
Да
Миронов
Белгород - Короча
Клинов
07.05.2017
4
5700
Нет
Козлова
Белгород - Короча
Кассов
07.05.2017
5
2400
Да
Миронов
Белгород - Короча
Клинов
16.05.2017
6
5500
Нет
Козлова
Белгород - Курск
Зыков
17.05.2017
7
3000
Да
М аксомов
Белгород - Москва
Кассов
17.05.2017
S
4000
Да
М аксомов
Белговол - Москва
Клинов
19.05.2017
3.5 -
«
»
«
,
3.6.
46
»,
3.6 -
«
3.2
»
(
,
,
:
-
;
-
;
(
);
;
;
47
)
;
;
-
;
,
,
,
.
.
.
,
,
,
.
,
,
,
,
,
.
FireBird 1.5.0.
IBExpert. [20]
:
(
,
,
,
,
.)
:
,
,
,
,
,
,
.
:
48
.
,
.
,
.
,
.
.
,
16,
3.7.
- JO
(16)
{SJQ AD D _M ARSH RUT
<£] ADD_VID_PEREVOZKI
{SJQ DELETE_M ARSHRUT
{^0 DELETE_VID_PEREVOZKI
{^0 DELETE_VODITEL
{SJQ GET_ZAKAZ_CLIENT
{^0 UPDATE_CLIENT
{^0 U PD ATE_M ARSH RUT
{^0 UPDATE_VID_PEREVOZKI
{^0 UPDATE_VODITEL
<£] U PD ATE_ZAKAZ
3.7 -
3.3
(
,
,
)
,
,
.
,
,
.
,
,
,
49
,
.
,
,
,
.
(
1)
,
,
-
,
,
(
(
):
),
,
)
,
,
.
«
»
«
».
,
,
.
-
,
.
2)
,
,
.
.
:
,
,
,
,
,
.
,
,
-
,
,
,
,
.
,
,
:
,
.
(
)
,
.
(
),
,
.
50
,
(
,
,
,
,
),
.
(
),
,
,
,
3)
.
,
,
-
(
,
,
)
,
.
(
4)
).
,
,
-
,
,
(
(
5).
,
,
)
).
,
(
,
-
)
(
(
,
)
(
)
).
,
.
-
.
,
,
,
,
,
.
,
.
.
,
,
,
51
,
.
3.4
.
,
3.8.
3.8 -
3.9
.
.
,
,
.
52
,
3.9 -
.
.
,
3.10.
3.10.
53
«
»
,
,
,
..............................
" ;
Номер
3.11,
3.12.
U -
.» |
Стоимость
Срочность
Клиент
Марщэут
Водитель
Дата
1
1620
Нет
Миронов
Белгород - Курск
Клинов
04.05.2017
2
1685
Да
Козлова
Белгород - Короча
Зыков
06.05.2017
3
3500
Да
Миронов
Белгород - Короча
Клинов
07.05.2017
4
5700
Нет
Козлова
Белгород - Короча
Кассов
07.05.2017
5
2400
Да
Миронов
Белгород - Короча
Клинов
16.05.2017
6
5500
Нет
Козлова
Белгород - Курск
Зыков
17.05.2017
7
3000
Да
Максомов
Белгород - Москва
Кассов
17.05.2017
8
4000
Да
Максомов
Белгоооя- Москва
Клинов
19.05.2017
3.11 -
3.12 54
,
,
.
.
«
».
.
.
.
3.5
:
,
,
.
-
,
-
,
,
.
,
,
:
;
-
,
,
;
;
55
,
;
-
,
;
.
3.6 SWOT-
SWOT-
-
,
:
-
,
-
,
-
,
-
.
SWOT -
,
-
,
-
,
.
. .
,
.
SWOT-
.
SWOT1)
.
.
.
.
:
56
)
.
,
,
.
)
.
,
.
)
.
,
.
)
.
.
-
2)
,
.
.
.
.
SWOT-
,
,
.
.
3)
.
.
(
(
),
),
(
(
),
)
.
SWOT.
,
«
»,
,
.
(
)
.
,
57
SWOT-
.
3.3.«
SWOT-
,
-
».
.
3.3.-. SWOT -
1.
2.
3.
1.
1.
2.
1.
2.
++
0
++
0
+4
++
+
+
++
+6
+
+
+
+
+4
+5
+2
+4
+3
+14
—
—
-
-
-6
—
—
0
—
-6
-4
-4
-1
-3
-12
+1
-2
+3
0
+2
2.
SWOT-
,
:
1)
,
,
,
-
,
.
;
58
2)
;
3)
,
.
;
4)
.
.
5)
.
.
.
,
,
.
3.7
-
:
1)
.
3.4.
3.4..
,
.
CD-R
ZOOM,
500
.
10
15
150
.
1
350
350
.
1
2750
2750
3250
:
59
2)
(
)
,
,
.
:
,
,
,
,
.
3.5.
3.5.(
.)
1.
«Pentium»
17790,00
2.
19,5" Asus VS207T
6200,00
3.
790,00
Genius KB-110X
4.
Genius DX-120
5.
390,00
PILOT PRO
6.
1100,00
7600,00
HP LaserJet Pro P1102
33870, 00
3)
45
.
15000
166,25
.
3.6
.
3.6,
30
35
20
15
50
120
40
40
10
360
1
2
3
4
5
6
7
8
9
:
60
,
ft» =
1 ^ * 8 * 45 = 32481,20
.
16 6 ,2 5
20%
=0,2*
= 0,2*32481,20 = 6496,24
.
(25%)
=1,25*(
+
)=1,25*(32481,20+6496,24)= 48721,80
.
.
.
)
(28%
0,28*48721,80 =13642,10
)
.;
)
(4%
)
0,04*48721,80 =1948,82
.;
)
(0,2%
0,002*48721,80 =97,44
)
.;
)
(3,4%
)
0,034*48721,80 =1656,54
.
17344,90
.
(0,2%
)
0,002*48721,80 =97,44
.
17442,34
4)
0,50*48721,80 = 24360,90
50%
.
61
.
:
3.71
2
3
(
3250
33870, 00
48721,80
)
,
4
5
6
7
17442,34
0,00
24360,90
127645,04
:
,
360
.
62
45
.
«
-
».
IDEF0.
,
.
-
,
(
)
-
.
Firebird.
C++
Builder,
InterBase Express.
,
:
-
;
;
-
;
-
;
-
;
-
;
-
.
63
1.
,
. .
Windows,
++ Builder.
[
] /
. .
. -
:
2004. - 656 .
2.
,
. InterBase
Firebird.
. [
.:
-
] /
.
. -
, 2007 . - 383 .
3.
,
. .,
[
, .,
, .-
4.
.:
]/ , .
,
, 1997.
.
. - 9-
5.
,
Builder[
.[
.—
.: -
] /
, 2005. - 859 .
. .
]/ .
. .,
Borland
C++
. -
, 1997, N 6, 7.
6.
,
. .
[
7.
/
,
,
.: «
8.
. .
.:
, 1993.
-
,
. .
C++Builder [
] /
. .
. -
», 2006 .
:
:
10.
]
», 2007 .
. .
,«
.-
[
-
,
9.
.
. Firebird:
.-
-
]/ . .
[
] /
, 2013.-304 .
,
. .
[
] /
. -
.
,
2014.-267 .
11.
,
.
,
.
[
] /
.
:
.
. -
.:
,
, 2011. - 317
.12.
, . .
,
. .
./
[
: -
]/
. .
- , 2010. - 304 .
65
,
. .
13.
,
. .
:
,
[
[
,
,
]/ . .
,
.-
:
]:
, 2012. - 268 .
. .
:
:
15.
,
.-
14.
,
[]/
. .
, 2012. - 978 .
,
. .
,
-
[
] /
:
. .
. -
,
:
, 2011. -
317 .
16.
. .
,
. .
.-
17.
-
[
:
. .
,
. .
, 2004. - 352 .
. .
.:
] /
:
[
]/
. .
.
, 2013. - 240 .
18.
,
[
:
. .
] /
:
. .
,
:
. .
,
. .
.-
, 2013 - 463 .
19.
,
.-
:
20.
,
-
++ [
-
,
.-
[
24.
:
. .
] /
. .
, 1996. - 137 .
[
. .
[
:
,
] /
]/
, 2014. - 245 .
. .
.
. .
,
.
. -
,
,
:
, 2004. -
456 .
23.
,
- , 2012 - 365 .
22.
[
] / . .
. .
:
21.
. .
. .
,
. .
:
]/ . .
,
.-
:
.
[
- , 2013. -238 .
,
] /
. .
. -
- , 2013. - 544 .
66
:
25.
,
. .
:
[
]/
. .
. -
:
, 2016. -
271 .
26.
,
[
]/ . .
27.
,
,
. .
.-
,
[
.-
. .
.
.
,
31.
.-
:
.
. .
:
, 2010. - 292. .
-
[
] /
. .
, 2011. - 365
,
:
]/ . .
.-
:
, 2008. - 224 .
. .
:
/
-
,
. .
, 2015. - 328 .
.-
. .
,
:
] /
:
.
[
32.
.-
:
-
. .
, 2015. -237 .
. Visual C++
[
] /
.
. -
, 2001. - 576 .
33.
[
,
,
30.
[
]/
29.
, 2011. 84 .
. .
. .
28.
:
,
. .
]/ . .
-
34.
++ [
Visual C++
:
,
] /
- , 2013. - 448 .
. .
-
. .
,
. .
,
. .
. -
:
, 2012. - 124 .
35.
,
.-
. .
:
36.
[
] /
. .
, 2006.- 523
,
,
++
.
.
[
]/
.
.
.-
67
:
. -
.:
,
, 2011. - 317
U n itl
//--#include <vcl.h>
# p r a g ma h d r s t o p
#include "Unit1.h"
#include "Unit2.h"
/ / ----------------------------# p r a g ma p a c k a g e ( s m a r t _ i n i t )
# p r a g ma r e s o u r c e " * . d f m "
TForm1 *Form1;
/ / ---------------------------------------------f a s t c a l l T F o r m1 : : T F o r m 1 ( T C o m p o n e n t * Owner)
: TForm(Owner)
{
}
/ / ------------------------------------------------------------------------------void
f a s t c a l l T F o r m 1 : : B u t t o n 1 C l i c k ( T O b j e c t *Sender)
{
DataModule2->IBStoredProc1->ParamByName("F_NAME")->AsString=Edit1>Text;
DataModule2->IBStoredProc1->ParamByName("I_NAME")->AsString=Edit2>Text;
DataModule2->IBStoredProc1->ParamByName("O_NAME")->AsString=Edit3>Text;
Da t a Mo d u l e 2 - > I B S t o r e d P r o c 1 - > P a r a m B y N a m e ( " C L _ T E L E P H O N E " ) >AsString=Edit4->Text;
DataModule2->IBStoredProc1->ParamByName("CL_ADRES")>AsString=Edit5->Text;
DataModule2->IBStoredProc1->Prepare();
DataModule2->IBStoredProc1->ExecProc();
Edit1->Text="";
Edit2->Text="";
Edit3->Text="";
Edit4->Text="";
Edit5->Text="";
DataModule2->IBQuery1->Close();
DataModule2->IBQuery1->Open();
}
/ / -----------------------------------------------------------------------------------------------------------------------void
fastcall
T F o r m 1 : : B u t t o n 2 C l i c k ( T O b j e c t *Sender)
68
{
DataModule2->IBStoredProc2->ParamByName("ID")>AsInteger=StrToInt(Edit6->Text);
DataModule2->IBStoredProc2->ParamByName("F_NAME")->AsString=Edit7>Text;
DataModule2->IBStoredProc2->ParamByName("I_NAME")->AsString=Edit8>Text;
DataModule2->IBStoredProc2->ParamByName("O_NAME")->AsString=Edit9>Text;
Da t a Mo d u l e 2 - > I B S t o r e d P r o c 2 - > P a r a m B y N a m e ( " C L _ T E L E P H O N E " ) >AsString=Edit10->Text;
DataModule2->IBStoredProc2->ParamByName("CL_ADRES")>AsString=Edit11->Text;
DataModule2->IBStoredProc2->Prepare();
DataModule2->IBStoredProc2->ExecProc();
Edit6->Text="";
Edit7->Text="";
Edit8->Text="";
Edit9->Text="";
Edit10->Text="";
Edit11->Text="";
DataModule2->IBQuery1->Close();
DataModule2->IBQuery1->Open();
}
/ / -----------------------------------------------------------------------------------------------------------------------void
f a s t c a l l T F o r m 1 : : B u t t o n 3 C l i c k ( T O b j e c t *Sender)
{
DataModule2->IBStoredProc3->ParamByName("NOMER")->AsString=Edit12>Text;
DataModule2->IBStoredProc3->Prepare();
DataModule2->IBStoredProc3->ExecProc();
Edit12->Text="";
DataModule2->IBQuery1->Close();
DataModule2->IBQuery1->Open();
}
/ / -----------------------------------------------------------------------------------------------------------------------void
f a s t c a l l T F o r m 1 : : B u t t o n 4 C l i c k ( T O b j e c t *Sender)
{
i f (RadioButton1->Checked==true){
//
DataModule2->IBQuery1->SQL->Clear();
DataModule2->IBQuery1->SQL->Add("select
* f r o m CLIENT o r d e r b y
FIRST_NAME");}
i f (RadioButton2->Checked==true){//no
DataModule2->IBQuery1->SQL->Clear();
DataModule2->IBQuery1->SQL->Add("select
* f r o m CLIENT o r d e r b y
ID");}
DataModule2->IBQuery1->Open();
}
/ / -----------------------------------------------------------------------------------------------------------------------69
void
f a s t c a l l T F o r m 1 : : B u t t o n 5 C l i c k ( T O b j e c t *Sender)
{
i f (RadioButton3->Checked==true){//
DataModule2->IBQuery1->SQL->Clear();
DataModule2->IBQuery1->SQL->Add("select
*
from
CLIENT
WHERE
FIRST_NAME l i k e ’ " + E d i t 1 3 - > T e x t +"%’ " ) ; }
i f (RadioButton4->Checked==true){//
(
)
DataModule2->IBQuery1->SQL->Clear();
DataModule2->IBQuery1->SQL->Add("select
*
from
CLIENT
WHERE
I D < = " + E d i t 1 4 - > T e x t +" AND I D > = " + E d i t 1 5 - > T e x t + " " ) ; }
DataModule2->IBQuery1->Open();
}
/ / -----------------------------------------------------------------------------------------------------------------------void
f a s t c a l l T F o r m 1 : : B u t t o n 6 C l i c k ( T O b j e c t *Sender)
{
Dat a Mo du l e 2- >I BSt or e d Pr oc 4- >Pa r a mByNa me ( " MARSHRUT_NAI M" ) >AsString=Edit16->Text;
Da t a Mo du l e 2 - > I BS t or e d P r oc 4- >P a r a mBy Na me ( " MARS HRUT_DLI NA" ) >AsString=Edit17->Text;
DataModule2->IBStoredProc4->Prepare();
DataModule2->IBStoredProc4->ExecProc();
Edit16->Text="";
Edit17->Text="";
DataModule2->IBQuery3->Close();
DataModule2->IBQuery3->Open();
}
/ / --------------------------------------------------------------------------------------------------------void
f a s t c a l l T F o r m 1 : : B u t t o n 7 C l i c k ( T O b j e c t *Sender)
{
DataModule2->IBStoredProc6->ParamByName("ID")>AsInteger=StrToInt(Edit18->Text);
Dat a Mo du l e 2- >I BSt or e d Pr oc 6- >Pa r a mByNa me ( " MARSHRUT_NAI M" ) >AsString=Edit19->Text;
Da t a Mo du l e 2 - > I BS t or e d P r oc 6- >P a r a mBy Na me ( " MARS HRUT_DLI NA" ) >AsString=Edit2 0->Text;
DataModule2->IBStoredProc6->Prepare();
DataModule2->IBStoredProc6->ExecProc();
Edit18->Text="";
Edit19->Text="";
Edit2 0->Text="";
DataModule2->IBQuery3->Close();
DataModule2->IBQuery3->Open();
}
/ / --------------------------------------------------------------------------------------------------------void
f a s t c a l l T F o r m 1 : : B u t t o n 8 C l i c k ( T O b j e c t *Sender)
{
DataModule2->IBStoredProc5->ParamByName("NOMER")->AsString=Edit21>Text;
DataModule2->IBStoredProc5->Prepare();
70
DataModule2->IBStoredProc5->ExecProc();
Edit12->Text="";
DataModule2->IBQuery3->Close();
DataModule2->IBQuery3->Open();
}
/ / --------------------------------------------------------------------void
f a s t c a l l T F o r m 1 : : B u t t o n 9 C l i c k ( T O b j e c t *Sender)
{
D a t a Mo d u l e 2 - > I B S t o r e d P r o c 7 - > P a r a mB y Na me ( " NA I M_ P E R E V OZ KI " ) >AsString=Edit2 3->Text;
DataModule2->IBStoredProc7->Prepare();
DataModule2->IBStoredProc7->ExecProc();
Edit23->Text="";
DataModule2->IBQuery4->Close();
DataModule2->IBQuery4->Open();
}
/ / --------------------------------------------------------------------------------------------------------void
f a s t c a l l T F o r m 1 : : B u t t o n 1 0 C l i c k ( T O b j e c t *Sender)
{
DataModule2->IBStoredProc8->ParamByName("ID")>AsInteger=StrToInt(Edit24->Text);
D a t a Mo d u l e 2 - > I B S t o r e d P r o c 8 - > P a r a mB y Na me ( " NA I M_ P E R E V OZ KI " ) >AsString=Edit2 5->Text;
DataModule2->IBStoredProc8->Prepare();
DataModule2->IBStoredProc8->ExecProc();
Edit2 4->Text="";
Edit25->Text="";
DataModule2->IBQuery4->Close();
DataModule2->IBQuery4->Open();
}
/ / --------------------------------------------------------------------------------------------------------void
f a s t c a l l T F o r m 1 : : B u t t o n 1 1 C l i c k ( T O b j e c t *Sender)
{
D a t a M o d u l e 2 - > I B S t o r e d P r o c 9 - > P a r a m B y N a m e ( " N O M E R " ) - > A s S t r i n g = E d i t 2 6>Text;
DataModule2->IBStoredProc9->Prepare();
DataModule2->IBStoredProc9->ExecProc();
Edit26->Text="";
DataModule2->IBQuery4->Close();
DataModule2->IBQuery4->Open();
}
/ / -----------------------------------------------------------------------------------------------------------------------void
f a s t c a l l T F o r m 1 : : B u t t o n 1 2 C l i c k ( T O b j e c t *Sender)
{
DataModule2->IBStoredProc10->ParamByName("F_NAME")>AsString=Edit2 7->Text;
DataModule2->IBStoredProc10->ParamByName("I_NAME")>AsString=Edit2 8->Text;
71
DataModule2->IBStoredProc10->ParamByName("O_NAME")>AsString=Edit2 9->Text;
DataModule2->IBStoredProc10->ParamByName("VODITEL_TEL")>AsString=Edit3 0->Text;
Da t a Mo d u l e 2 - > I BS t o r e d P r o c 1 0 - >P a r a mBy Na me ( " VOD_ MARKA" ) >AsString=Edit31->Text;
DataModule2->IBStoredProc10->Prepare();
DataModule2->IBStoredProc10->ExecProc();
Edit27->Text="";
Edit2 8->Text="";
Edit29->Text="";
Edit30->Text="";
Edit31->Text="";
DataModule2->IBQuery5->Close();
DataModule2->IBQuery5->Open();
}
/ / ----------------------------------------------------------------------------------------------------void
f a s t c a l l T F o r m 1 : : B u t t o n 1 3 C l i c k ( T O b j e c t *Sender)
{
DataModule2->IBStoredProc11->ParamByName("ID")>AsInteger=StrToInt(Edit37->Text);
DataModule2->IBStoredProc11->ParamByName("F_NAME")>AsString=Edit32->Text;
DataModule2->IBStoredProc11->ParamByName("I_NAME") >AsString=Edit33->Text;
DataModule2->IBStoredProc11->ParamByName("O_NAME")>AsString=Edit34->Text;
Da t a Mo d u l e 2 - > I B S t o r e d P r o c 1 1 - > P a r a m B y N a m e ( " C L _ T E L E P H O N E " ) >AsString=Edit35->Text;
DataModule2->IBStoredProc11->ParamByName("CL_AVTO")>AsString=Edit3 6->Text ;
DataModule2->IBStoredProc11->Prepare();
DataModule2->IBStoredProc11->ExecProc();
Edit37->Text="";
Edit32->Text="";
Edit33->Text="";
Edit34->Text="";
Edit35->Text="";
Edit36->Text="";
DataModule2->IBQuery5->Close();
DataModule2->IBQuery5->Open();
}
/ / ------------------------------------------------------------------------------------------------------void
f a s t c a l l T F o r m 1 : : B u t t o n 1 4 C l i c k ( T O b j e c t *Sender)
{
DataModule2->IBStoredProc12->ParamByName("NOMER")>AsString=Edit3 8->Text;
DataModule2->IBStoredProc12->Prepare();
DataModule2->IBStoredProc12->ExecProc();
Edit3 8->Text="";
72
DataModule2->IBQuery5->Close();
DataModule2->IBQuery5->Open();
}
/ / -----------------------------------------------------void
f a s t c a l l T F o r m 1 : : B u t t o n 1 5 C l i c k ( T O b j e c t *Sender)
{
i f (RadioButton6->Checked==true){
DataModule2->IBQuery3->SQL->Clear();
DataModule2->IBQuery3->SQL->Add("select
* f r o m MARSHRUT o r d e r b y
NAIMENOVANIE");}
i f (RadioButton5->Checked==true){//no
DataModule2->IBQuery3->SQL->Clear();
DataModule2->IBQuery3->SQL->Add("select
* f r o m MARSHRUT o r d e r b y
ID");}
DataModule2->IBQuery3->Open();
i f (RadioButton7->Checked==true){// o
DataModule2->IBQuery3->SQL->Clear();
DataModule2->IBQuery3->SQL->Add("select
* f r o m MARSHRUT o r d e r b y
DLINA"); }
DataModule2->IBQuery3->Open();
}
/ / -----------------------------------------------------------------------------------------------------------------------void
f a s t c a l l T F o r m 1 : : B u t t o n 1 6 C l i c k ( T O b j e c t *Sender)
{
i f (RadioButton8->Checked==true){// o
DataModule2->IBQuery4->SQL->Clear();
D a t a M o d u l e 2 - > I B Q u e r y 4 - > S Q L - > A d d ( " s e l e c t * f r o m VID_PEREVOZKI o r d e r
by I D " );}
DataModule2->IBQuery4->Open();
i f (RadioButton9->Checked==true){// o
DataModule2->IBQuery4->SQL->Clear();
D a t a M o d u l e 2 - > I B Q u e r y 4 - > S Q L - > A d d ( " s e l e c t * f r o m VID_PEREVOZKI o r d e r
b y NAIMENOVANIE");}
_
DataModule2->IBQuery4->Open();
}
/ / -----------------------------------------------------------------------------------------------------------------------void
f a s t c a l l T F o r m 1 : : B u t t o n 1 7 C l i c k ( T O b j e c t *Sender)
{
i f (RadioButton10->Checked==true){//no
DataModule2->IBQuery5->SQL->Clear();
DataModule2->IBQuery5->SQL->Add("select
* f r o m VODITEL
ID");}
DataModule2->IBQuery5->Open();
i f (RadioButton11->Checked==true){//no
DataModule2->IBQuery5->SQL->Clear();
DataModule2->IBQuery5->SQL->Add("select
* f r o m VODITEL
FIRST_NAME");}
DataModule2->IBQuery5->Open();
}
73
order
by
order
by
//
void
f a s t c a l l T F o r m 1 : : B u t t o n 1 8 C l i c k ( T O b j e c t *Sender)
{
_
D a t a M o d u l e 2 - > I B S t o r e d P r o c 1 3 - > P a r a m B y N a me ( " Z A K A Z _ C O S T " ) >AsString=Edit3 9->Text;
Da t a Mo du l e 2- >I BSt or e d Pr oc 13 - >Pa r a mBy Na me ( " ZAKAZ_SROCHNOST" ) >AsString=Edit4 0->Text;
DataModule2->IBStoredProc13->ParamByName("ZAKAZ_CLIENT")>AsString=Edit41->Text;
Da t a Modul e2- >I BSt or edPr oc 13- >Pa r amByNa me ( " ZAKAZ_MARSHRUT" ) >AsString=Edit42->Text;
Da t a Mo d u l e 2 - > I BS t o r e d P r o c 1 3 - > P a r a mBy Na me ( " ZAKAZ_ P E RE VOZKI " ) >AsString=Edit4 3->Text;
D a t a M o d u l e 2 - > I B S t o r e d P r o c 1 3 - > P a r a m B y N a me ( " Z A KA Z _ V OD I T E L " ) >AsString=Edit4 4->Text;
DataModule2->IBStoredProc13->ParamByName("DATE_ZAK")>AsString=DateToStr(DateTimePicker1->Date);
DataModule2->IBStoredProc13->Prepare();
DataModule2->IBStoredProc13->ExecProc();
Edit39->Text="";
Edit4 0->Text="";
Edit41->Text="";
Edit42->Text="";
Edit4 3->Text="";
Edit4 4->Text="";
DataModule2->IBQuery6->Close();
DataModule2->IBQuery6->Open();
DataModule2->IBQuery8->Close();
DataModule2->IBQuery8->Open();
DataModule2->IBQuery9->Close();
DataModule2->IBQuery9->Open();
DataModule2->IBQuery10->Close();
DataModule2->IBQuery10->Open();
}
/ / ------------------------------------------------------------------------------------------------------------void
f a s t c a l l T F o r m 1 : : B u t t o n 1 9 C l i c k ( T O b j e c t *Sender)
{
DataModule2->IBStoredProc14->ParamByName("ID")>AsInteger=StrToInt(Edit45->Text);
D a t a M o d u l e 2 - > I B S t o r e d P r o c 1 4 - > P a r a m B y N a me ( " Z A K A Z _ C O S T " ) >AsString=Edit4 6->Text;
Da t a Mo du l e 2- >I BSt or e d Pr oc 14 - >Pa r a mBy Na me ( " ZAKAZ_SROCHNOST" ) >AsString=Edit4 7->Text;
DataModule2->IBStoredProc14->ParamByName("ZAKAZ_CLIENT")>AsString=Edit4 8->Text;
Da t a Modul e2- >I BSt or edPr oc 14- >Pa r amByNa me ( " ZAKAZ_MARSHRUT" ) >AsString=Edit4 9->Text;
Da t a Mo d u l e 2 - > I BS t o r e d P r o c 1 4 - > P a r a mBy Na me ( " ZAKAZ_ P E RE VOZKI " ) >AsString=Edit50->Text;
D a t a M o d u l e 2 - > I B S t o r e d P r o c 1 4 - > P a r a m B y N a me ( " Z A KA Z _ V OD I T E L " ) 74
>AsString=Edit51->Text;
DataModule2->IBStoredProc14->ParamByName("DATE_ZAK")>AsString=DateToStr(DateTimePicker2->Date);
DataModule2->IBStoredProc14->Prepare();
DataModule2->IBStoredProc14->ExecProc();
Edit45->Text="";
Edit46->Text="";
Edit47->Text="";
Edit4 8->Text="";
Edit49->Text="";
Edit50->Text="";
Edit51->Text="";
DataModule2->IBQuery6->Close();
DataModule2->IBQuery6->Open();
DataModule2->IBQuery8->Close();
DataModule2->IBQuery8->Open();
DataModule2->IBQuery9->Close();
DataModule2->IBQuery9->Open();
DataModule2->IBQuery10->Close();
DataModule2->IBQuery10->Open();
}
/ / -----------------------------------------------------------------------------------------------void
f a s t c a l l T Form 1::B utton2 0 C l i c k ( T O b j e c t *Sender)
{
DataModule2->IBStoredProc15->ParamByName("NOMER")>AsString=Edit52->Text;
DataModule2->IBStoredProc15->Prepare();
DataModule2->IBStoredProc15->ExecProc();
Edit52->Text="";
DataModule2->IBQuery6->Close();
DataModule2->IBQuery6->Open();
DataModule2->IBQuery8->Close();
DataModule2->IBQuery8->Open();
DataModule2->IBQuery9->Close();
DataModule2->IBQuery9->Open();
DataModule2->IBQuery10->Close();
DataModule2->IBQuery10->Open();
}
/ / ------------------------------------------------------------------------------------------------void
f a s t c a l l T F o r m 1 : : B u t t o n 2 1 C l i c k ( T O b j e c t *Sender)
{
QuickRep1->Preview();
}
/ / ------------------------------------------------------------------------------------------------void
f a s t c a l l T F o r m 1 : : B u t t o n 2 2 C l i c k ( T O b j e c t *Sender)
{
QuickRep2->Preview();
}
/ / ------------------------------------------------------------------------------------------------75
void
f a s t c a l l T F o r m 1 : : B u t t o n 2 3 C l i c k ( T O b j e c t *Sender)
{
i f (RadioButton12->Che cked==true) / /
DataM odule2->IBQuery6- >SQL->Clear );
D a t a M o d u l e 2 - > I B Q u e r y 6 - >SQL->Add(" e l e c t
*
from
ZAKAZ
ID");}
DataModule2->IBQuery6- >Open();
i f (RadioButton13->Che cked==true)
DataM odule2->IBQuery6- >SQL->Clear
D a t a M o d u l e 2 - > I B Q u e r y 6 - >SQL->Add(" e l e c t
*
from
ZAKAZ
COST"); }
DataModule2->IBQuery6- >Open();
i f (RadioButton14->Che cked==true)
DataM odule2->IBQuery6- >SQL->Clear
D a t a M o d u l e 2 - > I B Q u e r y 6 - >SQL->Add(" e l e c t
*
from
ZAKAZ
SROCHNOST");}
DataModule2->IBQuery6- >Open();
i f (RadioButton15->Che cked==true)
DataM odule2->IBQuery6- >SQL->Clear
D a t a M o d u l e 2 - > I B Q u e r y 6 - >SQL->Add(" e l e c t
*
from
ZAKAZ
ID_CLI ENT" ) ; }
DataModule2->IBQuery6- >Open();
i f (RadioButton16->Che cked==true)
DataM odule2->IBQuery6- >SQL->Clear
D a t a M o d u l e 2 - > I B Q u e r y 6 - >SQL->Add(" e l e c t
*
from
ZAKAZ
ID_MARSHRUT");}
DataModule2->IBQuery6- >Open();
i f (RadioButton17->Che cked==true)
DataM odule2->IBQuery6- >SQL->Clear
D a t a M o d u l e 2 - > I B Q u e r y 6 - >SQL->Add(" e l e c t
*
from
ZAKAZ
ID_PEREVOZKI");}
DataModule2->IBQuery6- >Open();
i f (RadioButton18->Che cked==true)
DataM odule2->IBQuery6- >SQL->Clear
D a t a M o d u l e 2 - > I B Q u e r y 6 - >SQL->Add(" e l e c t
*
from
ZAKAZ
ID_VODITEL");}
DataModule2->IBQuery6- >Open();
i f (RadioButton19->Che cked==truej
DataM odule2->IBQuery6- >SQL->Clear
DataModule2->IBQuery6- >SQL->Add("select
*
from
ZAKAZ
DATE");}
DataModule2->IBQuery6- >Open();
}
/ / ------------------------------------Unit 2
//
76
order
by
order
by
order
by
order
by
order
by
order
by
order
by
order
by
#include <vcl.h>
# p r a g ma h d r s t o p
#include "Unit2.h"
/ / ----------------------------# p r a g ma p a c k a g e ( s m a r t _ i n i t )
# p r a g ma r e s o u r c e " * . d f m "
T Da t a Mod ul e 2 * D a t a M o d u l e 2 ;
/ / ---------------------------------------------f a s t c a l l T D a t a M o d u l e 2 : : T D a t a M o d u l e 2 ( T C o m p o n e n t * Owner)
: TD a t a Mo d u l e ( Own e r )
{
}
/ / ----------------------------------------------------------------------------------------------------void
fastcall
TDataModule2::IBQuery1AfterScroll(TDataSet
*DataSet)
{
DataModule2->IBQuery2->Close();
Da t a Modul e2- >I BQuer y2- >Par amByName( " NOMER_CLI ENT" ) >AsInteger=DataModule2->IBQuery1->FieldByName("ID")->AsInteger;
DataModule2->IBQuery2->Open();
}
/ / -----------------------------------------------------------------------------------------------------------------------void
fastcall
TDataModule2::IBQuery6AfterScroll(TDataSet
*DataSet)
{
DataModule2->IBQuery2->Close();
Da t a Modul e2- >I BQuer y2- >Par amByName( " NOMER_CLI ENT" ) >AsInteger=DataModule2->IBQuery1->FieldByName("ID")->AsInteger;
DataModule2->IBQuery2->Open();
}
/ / ------------------------------------------------------------------------------------------------------------------------
77
Отзывы:
Авторизуйтесь, чтобы оставить отзыв