364 , , : , , , , , , . , , , .
:
364150
(304)
(123)
(23)
(113)
(4)
(4814)
(5227)
(2616)
(3423)
(4214)
(1518)
(68)
- (2836)
(8269)
(50)
(50)
(762)
(2)
(5275)
(30)
(1222)
(43)
(20403)
(465)
(19)
(108)
(173)
(96)
(899)
(54)
(34)
(476)
(106)
(62792)
(3562)
, (6444)
(2165)
(21320)
(766)
(64)
(3145)
(60)
(17)
(588)
(1000)
(106)
(48)
(3)
(1167)
(8485)
(537)
: (2044)
(11657)
(532)
(21)
(7985)
(3721)
, (10549)
(88)
(58)
(36)
(2257)
(12491)
(91)
(797)
(1338)
(24)
, (214)
(1141)
(3)
(8)
(21697)
(7850)
(3801)
(682)
, (2881)
(475)
(1)
, (7100)
(8694)
, (4121)
(443)
(952)
(2967)
(23)
(748)
(4876)
(95)
(107)
(7)
(2004)
(15)
(663)
(240)
(39)
(25)
(624)
(16)
(2652)
(136)
(90)
(406)
(95)
(24)
(3463)
(4482)
(7216)
(4592)
(5386)
(3)
(2244)
(23)
(29)
(35)
(4517)
(20645)
- (666)
(119)
(2573)
(889)
(288)
(148)
, (1140)

:

:
: ,
: 19:11:46 16 2010
: 23 : 2 : 0 : 0 :    

:


c

c

1. o

1.1 oco

1.2 Oc xo o

1. Oc eo o

1.4 oo oc

1.5 Oc cx eo e

2. oo exoo oooo oe

2.1 Oc o o c eo o xx xx x

2.2 oo oc o e o o

2. Cxe exoooo oec ee, e, ee e

3. Ce o

3.1 c c ooeoo oe

3.2 c ec oe

4. Eoo o

4.1 oxo ooc ooeoo ooo o

co

˳e


c

cc oo oeo ex e c c oco oo o cce.

o cce e oo- oec, cc cceoo oo ooo eee, o eeoo eeeoo o, e e oe o, o eeoo oo oc -x x x x.

o oo cce eec oooo ooo eee, o ecc x, ec EO.

c ce oo oo o o, o . ce e e cox oe o oo co ce o. o o x oe, x , x, o ococo 㳺, oo . oo o oc oe o. o ce e e o oo e o ; oe o xo o.

oo ox ecc, oo ox ox oo-oox cce c eoxc e oo e o x. o c o cce oco x. oooo e oc, occ oc o x, eox o oo. e o oeo oo oe x, x , o, x o ex ex, o o x o . oo ooe o oo cooo oe.


1. o

1.1 oco

cooo oe o co x, o oo oooo ec.

ֳ coe o x :

1. e cee oo;

2. e c o eoxx x, o x;

. co o ee ee e x,

4. o x o eoxx x o x o eec.

5. oe cc , eox oo.

oe ooc ceeo o Delh, e oc oo x.

1.2 Oc xo o

o oo cooo oe ooc xo o, oc ex oᒺx ooo . o oo ec, o o , o o c ooo o, oo o o, ec o o. x oo :

1. o o oo o: , ec, eee;

2. oe, o : o, coe o c;

4. o o oooo e: e, , o-o, o, oo.


1.3 Oc eo o

e o oo o coc oe o oo o, o x e , eox oo o c, o oo c eo oo.

eo oo e o, o cx oo o, x o . oco e oe oo ee o o oox e oc x . o oco o e oe o o o oooo e, oo o, o c ooex oe oo eo.

oo eo o o ox o c. oooo o oc, o , coe . o oooo o oc o o o o o oox ox.

1.4 oo oc

o oceo o o e e:

- ³ x o oc xo o x, o oc o eoxx oo , ;

- ee xx x e ee xo o. ³ ee ee x coe x, e x x. o oo: co coc xo o, occ o. ϳc oe o x o ee;

- o o x oc ee oec c oce, oooo , o o xo oc ooo o o eeoo-oco. o oco o oceo . ³ oc o oo o e e o ooo o. c oo e cooo o, c o oe o co.

- o ooo o ee ee oe c oc oec oo o. oco oo o o o coo o oo o o oc o xx ooe oe, .

- x ee oo oc o x, e.

1.5 Oc cx eo e

e oceoo oe eee o ex oc o. o o e ecox x, ox x. e e oo xo x. o e o ooce, eoxx oo . c o oee x.

x - e oeo, co cc oo oo'x x, xe oe ee oc ee C. ϳ eeo oc (O) o o o' (o e x c), o x oec oooo ococ o' x ox .

x ec cc o c ooo c. o c o e o c, e oe oe c, co - o oo c. oo ecc oo c o o c oeo c.

oe cc ox c eo. e oe o o oc oo e, oo o co cce.

o e e oee . e x o ee, e:

- x oe - oo ee

- eee oe - oe o o䳺 c cce

- oᒺ oe - ec e e , eo x oo ooo o.

c c xe C:

1 o - o x oe oo oe. o xeo c cx x o.

2 cee - oe oo eo oe (cee), eco oe e o oo ee o ee. x oex coe 볺c o, ec o ee ee.

3 볺 cee - xe cee e e ec , e o C, o oo oc oe c. o o oc e e oo x , ec o C, o oe. C oo c cc , o oo oc o o oooo c o.

4 ooe - ee e cee, ooe coo oce o eeoc. oo cee o co o C. o co ococ o, cee x o. o oo o oo eo oc oc oo oo e ee.

5 ee - oc o C oe oo oe ee cc e ee c ooo. o o 볺, o o c oecoo.

coo oe o o xe. o o, o o eo xo e oo x e oc oo oe oo.

Xo c o ceeo o oc coe x oo oo oe oco ceeoe oo o Delh o x o.

Delh ceeoe oo o ocoe o o Object scl; o x x ceeo; oce, o , ceeoe coe x, ox, ex. exoo oo ceeo Delh c ex oᒺo-ooo oo o. e oᒺo-oooo o o c (oᒺ) x co x o (eo) , oᒺ. Ceeoe oo o Delh e oo ooo oᒺo-ooo ec c (Object scl). o o c c o o, o o co oe oᒺ, c ooeo. o o occ ooc eeoc ooe o ooe oo coc, e oc o ooo o.

e ceeoe o oc oco ooe. oc x ooe oc eoceeo ec o oᒺ coce e x oe. coce oᒺ ococ . e coc, oo oc oᒺ ococ e oᒺ.

Delh ee o SQL (Structured Query Lnguge). o oo o x o o c .

oc x ooe oeo eoceeo ec o oᒺ coce e. coce oᒺ ococ . e coc, oo oc oᒺ ococ e oᒺ.

oo x Delh co ooe BDE (Borlnd Dtbse Engne). ³ oc oc o ocox o x (Orcle, nformx, Dbse, rdox, nterBse).

Delh ee o SQL (Structured Query Lnguge). o oo o x o o c .

̳ o oe , o oc oo ceeo o eec c o o ooo oo cce:

- oco c oc o ooo oo cceo;

- c oco;

- eco , oo ceeo.

- o cooo ,

- Delh oco co x, o, e;

- o o Object scl.

- ceeoe oo c ooe oo eeco o.

o, o oo x oco ex oc o x. Delh BDE, DO ODBC. c o co ee, eo. oeo x ee.

- ODBC o Oen Dtbse Connectvty (o x x) ee oc ex oc o x x ee. ³ e ce X/Oen SG CL (SQL ccess Grou Cll Level nterfce) eec oc SQL, o Mcrosoft. ODBC oo o䳿 x oooo o o, , o, o e x, o coo o o x, ec.

xe ODBC cc ocox : e, eec ODBC, cee e, e eeo x.

e e GU (Grhcl User nterfce eec oc) ec-o. ³ c o o, Jv, Vsul Bsc o C++. o oco eec ODBC o䳿 x.

cee e co ODBC Mcrosoft. ³ e e, o xoc cce, o e, c o e o o o e, o e eoxo. Oc o o oe eo x, o cee e , o o cce e o x o c , o xo o e, o c ee x ee o.

e c xe, ce o - x. Cce e ODBC e e o WNDOWS, e x, oe UNX, o eeo в ODBC o ce coe oo-eex coc. oo ODBC o oco coc ccc SQL o oo c, o oo oo coc ee x. o e o oeo o x, , e ccess, Orcle e SQL Server. eec ODBC , x oeo SQL, 璺, o o x oo. oo e xo x e. e o, o ex x x e oe e eec ODBC, e c cceo e o x. ³ o oo o oc x, o oe e x o. x, o ox eex o nternet, e ee o.

eeo x oec ODBC oe cceo e o x o oco oo oco c. ³ oe oco o x Mcrosoft ccess eeo , ocee ee o o 볺 eeoo o x oox.

- DO (ctve Dt Objects) - e cooe ooe exoo㳿 oc o x o Mcrosoft ( - MDC - Mcrosoft Dt ccess Comonents).

DO o ccess cee MS SQL Orcle, eo - Mcrosoft ctve Drectory Servce, XML- .. DO- o exoo, ODBC, ee eec OLE DB.

- BDE - ece o oc o ox o x. Oco e coe oo - ee oo oo o o o, SQL-cee, ce c oo SQL-cee oc ocoe. e oeo xe BDE.

Oco oo BDE oc oooo ooo eec Dв (Dв2.DLL). o x c ceo (ls) ', oo o e c. o c eo, oo BDE - ee ooe VCL DB, oc BDE, o o (ooo ooe oc BDE).

Dв c ooo e. o e e ooo o (dBse, rdox, Foxro), o e o c o ( ec). o e SQL Lnk, o cc в 볺co c oeoo SQL-cee. ooo cee SQL Lnk c.

DTOR (' ODBC) eec o DO oo o SQL Lnk, oo oco c BDE ODBC o DO, eoceeo o o e oo oe.

ce oco oe BDE (Borlnd Dtbse Engne), co exoo㳿 Dв (ntegrted Dtbse lcton rogrm nterfce). oe coc oo coe DE Borlnd, x C++ Bulder Delh. o o coc C:\rogrm Fles\Borlnd\Common Fles\BDE.

BDE ee coex o c :

- eocee oc o ox x (dBse, rdox, eco )

- oc o SQL-cee (Orcle, Sybse, MS SQL Server, nterBse, nformx, DB2) oooo e Borlnd SQL Lnks

- oc o -x ee x, o e ODBC (Oen DtBse Connectvty), , o eeox (Excel, Lotus 1-2-), cee x, o e e SQL Lnks (, Gut/Centur)

- coe o 볺-cee, o oco o

- co oc oo oc SQL (Structured Query Lnguge o ) o o co o.

oe oo oo oe o nterBse o, o ooc oo oe x. xo nterBse - e 볺 cee exoo, eo oco oo coe oo .


2. oo exoo oooo oe

2.1 Oc o o c eo o xx xx x

- oec coe x oc oce eeo oc. o e e oe o eo oe x. oc o Oc cx eo e oe -o x c o e oᒺ eeo ce, x coce o. oo eoxo c o, co oᒺ o eeo oc.

oco e oc e e , o c c eeo ce.

- oo

- O

- ec oe ooo o

- ooo o

- ec ooo o

- eee

- o o

- o

- o

- ֳ

- oe oe

- oe

- ʳc o o

- ԲO .

o xoc e o o. oe oo o x eoxo oec o .

o e oec eoo oooo oe e ocx oe eo ooc. Oco e o oc o oe oo oe x, o oe 'c e oo c, oo e c o. e oc e c eo eoo쳿 ', c e oo ceeoc eeex x.

e o o (1) ee, o oe oe o eo e co oox . o ec oe o 1 eoxo oo o e ocx oe, oo oo o , o o oe e . ϳc ee o 1 o : , oe, .

o:

- e o

- e

-

- o o

- oo

- O

o:

- o ec

-

- ec

- eee

oe o:

- o oe

- o

- ʳc

- oe

-

o o:

- o o

- o

- o

- ֳ

o o (2) ee, o oe oooo xoc 1 o o oe ooo c e e. Oe, o ec o o o 2 e x. e oe e e o, - ec o, oe o oe, o o o.

e o o () ee, o oe xoc 1 2, o, o e oo o, o e xo o eoo e eo x o. oo oo oc x eoce x. , o o x ec oe oe, o ce oe e oe . o oo e o oe oe c oe. c oe e c o:

- o c

- o oe

- o o

- ʳc

oe o c e e e o .

ee o o eo oo o o o, o oo eoo eo e.

oo e eoo c o oe, o - x e e ox , o e c coo c e o oee, e o , e, occ oee oe.

e o e , e xo o c oo oeoo . c oee, o oe x oo e e o ooo.

eo oee o x c x, o ee o o 4.9 -1 15 1. o x ee o eo, o, eo oo o.

2.2oo oc o e o o

oc o x Delh cc ee BDE (Borlnd Dtbse Engne). oc BDE oo o c oc o x e ox (rdox dBse), e ex x, oox SQL-ceex (nterbse, Sybse, MS SQL Server, Orcle, nformx).

Ceo coe o x e oc Delh e BConsole. oco o x. oeo oeo, coe x:

- o co eo, ec , oo , e e xoc x. o e x. ce e o oooo Borlnd Dtbse Engne;

- o x (Mgzn.GDB) oooo WSQL;

- co 䒺c o cee x oooo BConsole o xo x;

- co ' BConsole ( co oooo o SQL).

Coo o oo eo ec c oo. O ocooce nterBse e, o x cc oo , o co oo e. nterBse x coc WSQL. c eo x, oc o 䒺 o x. BConsole oc o o x, oc o oc. ϳc oo oooo o SQL e ce o eo nterctve SQL. o eo coo x oooo SQL.

ooe ceeo o oe c coe oe ooe Delh. oo, o oco c ooe co o, eoxo c o eox ooe oc oo o o. o ooe co coc, o ceo oᒺ e o䳿. o o o ceo oᒺ o䳿. ϳc oo c o o, e oo ec o o. eox x o o oc oo.

ceeo o Delh o x eoxo oc ooe, : DtSourse, Query, Tble c 'o o , coe e. ֳ ooe oe x nterBse, Dt ccess. o o oo oc c ooe: DBGRd oe x , DBNvgtor ce eee o .

o oo oc ooe MnMenu1 oooo e oe. o c o coc Cton .

Coo 4 o x oco ooe: DBGrd1, coc DtSource DtModule2.DtSource1, c 4 DBGrd, coc lgn oc lClent; oo oc DBNvgtor1 oo DBGrd coc DtSource c DtModule2.DtSource1, o DBGrd, coc lgn oo oc lBottom. e co 4 o ee x 4 . oo o o o: oo oo ooo o coc Cton o.

Coo o ee x. oo eoxo 5 o. o x oco ooe DBGrd coc DtSource eo DtModule2.DtSource5, e DtSource5 BQuery1. o oco e nel1 nel2. e coc lgn lTo, lBottom, DBGrd oc lClent. e e oo oc гcker1 гcker1 e o c, DBLookuComboBox1 o ooo ; e oo oc Edt1, Edt2, Edt o e oce. o oo oc ooe Lbel Button x .

oo oc ooe QuckRe, oc o o. ooe QRBnd, QRSubDetl oc QuckRe. x oc ooe QRLbel, QRDBText. ooe QuckRe oo eeo x. o ooe ooeo BQuery. e o o c c oo o,

ec ox o ee o .


2.3Cxe exoooo oec ee, e, ee e

o o cooo oe oeo oe exoooo oec o .

oo o cxe exoooo oec ee, e, ee e oo o e oec e e, oo x oc e oe.

oec o oo o oco e:

- ee/e x x;

- ee o;

- ee e ;

- ee/ .

ee/e x x o oeo, oc o ee e o. Co oeo -o: e o - oo e. o o c oeo o c o o o o o e. o e c oeo oe c o e, ox. oo oeo o/e : o, e o o, oo o, e o oo o. o , e ee x - , e oc o o oe o ooo oo. ϳc ee x oeo ee c eeo o.

ee o cc - oce x. Oeo, o oe ee o, ee, e ee x.

oc oe ee e c ee e o. , x o oe o, o x e eo oo o o, e o o, o eo ox ox. ee c oc c eoxx x. oe oc oe ee/o o o c x ce o .


3. Ce o

3.1 c c ooeoo oe

oe ooe oe cce Wndows X, e oco oco, o e oo oe Wndows 95, Wndows 98, Wndows 2000, Wndows NT, oo cx oex ccex Wndows. e o oec e oe x oex ccex Lnux Unx, oe exe (oo, o oe cce e e oe).

oo, o oo oo oo eoxo co oe oc. oo oo c o co oe oc c. oo oe oc oo o x coe nterBse.

3.2 c ec oe

ec o oec: x o xoc co oe: x e eoceeo ooo x cooo oe, o , e cc o cooo oe.

eee ooo o ooo oo cce eoxo, o o coe ecoo oe. ̳ o ecooo oe c:

- o co eoo oeco e e 500 ;

- oᒺ oeo e ee 64 ;

- eoxo ee c CD-ROM oUSB-o;

- oᒺ oo c oco c 6 e;

ec co oe oo o x ,4 cooo oco.

ϳc c o SyerMrket.exe oo x: ³ x. ϳc x o o, e, ee , o ox x eoxoc . ϳc e oo o eoxo c e x o.


4. Eoo o

4.1 oxo ooc ooeoo ooo o

oo ooo eee e e , ce o, c cce c o eo oo o.

ooc coe ooo cce cee:

e ;

o o;

co ;

;

xo ce e ce, ooc eo o oo 1

(1)

- e ;

- co ;

- o ;

- oo o ;

- o o;

- x co oe.

oeo ee xo , oe oo o 1.

ooeo ox oc ex , o co e oxoc oo 2 cee c cx ox e, ocx oo oo cce o oc x c o o coo eeoee㳿.

(2)

- c c ox e;

- o oc x c o;

- o coo eeoee㳿.

c o e cc c o -o () e oo c (), o oeo o 1

()

³oe ox oc cx ox e o o 1.

1 - oxo oc ox e

e

ֳ o,

ʳc, .

c, .

CD-R c

1,2

1

1,2

2

1

2

4

0,1

50

5

1

1

1

coo

9,2

o ocx ox oc (), c o eeo co ee:

- ceoc o oo e ( c o 0,50 .) 1,5 ;

- e 4 (50 c o 0,25 .) 12,5 .

coo oco o o oc =14 (.)

O oco c o cooo oe eeo ee㳿 e cc oo (4).

(4)

- 1 /o, ;

- oc, o co , ;

- c oe, o.

oe oc o o thlon 2500+, 17 o TFT-oo LG, o co co o 50 o 0,5 eeoee㳿.

oe, , o o c x ococ, e oc eo 140 o. o o eeoee ce:

(.)

o c ex , c o o 2:

(.)

co , cee o co co o oo , oe x oo, oo cooo oe o eoxx oox oc oo co o oe (2 c).

e e o oco:

- 2 cx ox oec o 1,5 , oo 27 ;

Oe, c co oo =27 .

c eo e xo o . oo oo ce cococ oc oo o o , oo c oo o oe oo o c c ox o. o co oo occ () ox o (c ox o) o oo oe C, o cc c o, ex o eoo o () occ oo 5.

(5)

eeo occ cx o 2.

2

oo

occ, o

oo oo

1

O oe ooo

6

oo oo, oe e

5

c eoxoo ooo eee

2

xo o

8

O e

8

O cx eo e

2

oo o oo o

8

c o xx xx x

6

oo ooo o

100

ec oe o

2

ϳoo

40

oxo ooc oe

2

coo

190

o 2 coo ox o 190. o xo oo ooo o c () occ ox o(), o oeo o 6.


(6)

xo oo, o c oo oc co 800 ., oo c coe 5 /o. o xoo oo 6 oo:

(.)

oo o () 20% o ocoo, o oo :

(.)

c o x co oe, o x e ooco:

ec o 1,8%;

o cooo cx o coo eoc 2,9%; o cooo cx o eo 1,% o cooo cx ecx oecx xo 1%.

c, o ooc c (.), o c cx cox x c 7% oeeo, oo

(.)

oo c () oco oeo ex o o () o o x () oo 7.

(7)

Oo x x . % x c (.), e xo, o e eoo oc c 2 c, o o oeo ex () c (.)

o oo o ooo eee. ee oe eee:

- OC Wndows X rofessonl Rus - 680.85 .

- MS Offce 200 - 1122 .

- Delh 7 rofessonl - 5600, 77 .

C oc ooo eee 740,62 . c () ooo eee o o () o o x () oo 8.

(8)

Oo x x . % x c (.), e xo, o e eoo oc c 2 c, o o ooo eee () c (.)

c ox x co

(.)

C c x eeo oo 1, oo ooc oe o oo cce:

(.)


co

ϳco, ce oee, o c, o co oe oo e e o o exoo㳿 oe x. e ooo e o e e o , oooo e oe oe x o oo o c x .

³oxc oe coe oo eec oc, e o e ooc oc co, o eoe ceeoe oo Borlnd Delh 7, oo x.

xo oo cooo oe coe C oco oo oooo e. oo cce oc oo exoo. o o o cc o o coo ooo o, xo e eo.


˳e

1. c .., ox .., c .. c. Turbo skl Deh, - ., : eo, 2002.

2. oo ., .e, .C x: oeoe, e coooee. eo , BHV, 200

3. oo . ooe x Delh 7: e c.- C.: e, 200.

4. htt://omeg.km.u/ktlog.h?lev=&de=7&tye=0&code=144

5. htt://www.bse.ru/rces/borlnd.htm#d10


oo o o

rogrm SyerMrket;

uses

Forms,

USyerMrket n 'USyerMrket.s' {Form1},

Unt1 n 'Unt1.s' {DtModule1: TDtModule},

Ugentu n 'Ugentu.s' {gentu},

UMgzn n 'UMgzn.s' {Mgzn},

UTovr n 'UTovr.s' {Tovr},

UZjvk n 'UZjvk.s' {Zjvk},

Ueregljd n 'Ueregljd.s' {eregljd},

UZut1 n 'UZut1.s' {Form2},

UZut2 n 'UZut2.s' {Form},

UZut n 'UZut.s' {Form4},

Urnt2 n 'Urnt2.s' {Form5},

UZut4 n 'UZut4.s' {Form6},

Urnt1 n 'Urnt1.s' {Form7};

{$R *.res}

begn

lcton.ntlze;

lcton.CreteForm(TForm1, Form1);

lcton.CreteForm(TDtModule1, DtModule1);

lcton.CreteForm(Tgentu, gentu);

lcton.CreteForm(TMgzn, Mgzn);

lcton.CreteForm(TTovr, Tovr);

lcton.CreteForm(TZjvk, Zjvk);

lcton.CreteForm(Teregljd, eregljd);

lcton.CreteForm(TForm2, Form2);

lcton.CreteForm(TForm, Form);

lcton.CreteForm(TForm4, Form4);

lcton.CreteForm(TForm5, Form5);

lcton.CreteForm(TForm6, Form6);

lcton.CreteForm(TForm7, Form7);

lcton.Run;

end.

end;

vr

gentu: Tgentu;

mlementton

uses Unt1;

{$R *.dfm}

end.

unt UMgzn;

nterfce

uses

Wndows, Messges, SysUtls, Vrnts, Clsses, Grhcs, Controls, Forms,

Dlogs, ExtCtrls, DBCtrls, Grds, DBGrds, StdCtrls, Msk;

tye

TMgzn = clss(TForm)

DBGrd1: TDBGrd;

DBNvgtor1: TDBNvgtor;

GrouBox1: TGrouBox;

Lbel1: TLbel;

Lbel2: TLbel;

Lbel: TLbel;

Lbel4: TLbel;

DBEdt1: TDBEdt;

DBEdt2: TDBEdt;

DBEdt: TDBEdt;

DBEdt4: TDBEdt;

rvte

{ rvte declrtons }

ublc

{ ublc declrtons }

end;

vr

Mgzn: TMgzn;

mlementton

uses Unt1;

{$R *.dfm}

end.

unt Unt1;

vr

eregljd: Teregljd;

mlementton

uses Unt1;

{$R *.dfm}

rocedure Teregljd.geControl1Chnge(Sender: TObject);

begn

f geControl1.ctvege=TbSheet1 then

begn

DBNvgtor1.Vsble:=true;

DBNvgtor1.DtSource:=DtModule1.gent;

end

else

f geControl1.ctvege=TbSheet2 then

begn

DBNvgtor1.Vsble:=true;

DBNvgtor1.DtSource:=DtModule1.mgzn;

end

else

f geControl1.ctvege=TbSheet then

begn

DBNvgtor1.Vsble:=true;

DBNvgtor1.DtSource:=DtModule1.tovr;

end

else

f geControl1.ctvege=TbSheet4 then

DBNvgtor1.Vsble:=flse;

end;

end.

unt Urnt2;

nterfce

uses

Wndows, Messges, SysUtls, Vrnts, Clsses, Grhcs, Controls, Forms,

Dlogs, QRCtrls, QuckRt, ExtCtrls;

tye

TForm5 = clss(TForm)

QuckRe1: TQuckRe;

QRBnd1: TQRBnd;

QRLbel1: TQRLbel;

QRBnd2: TQRBnd;

QRLbel2: TQRLbel;

QRLbel: TQRLbel;

QRLbel4: TQRLbel;

QRLbel5: TQRLbel;

QRSubDetl1: TQRSubDetl;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText: TQRDBText;

QRDBText4: TQRDBText;

rvte

{ rvte declrtons }

ublc

{ ublc declrtons }

end;

vr

Form5: TForm5;

mlementton

uses Unt1;

{$R *.dfm}

end.

unt USyerMrket;

N5.Enbled:=flse;

end;

rocedure TForm1.FormShow(Sender: TObject);

begn

N6.Enbled:=flse;

N10.Enbled:=flse;

N1.Enbled:=flse;

N14.Enbled:=flse;

N12.Enbled:=flse;

N.Enbled:=flse;

end;

rocedure TForm1.N5Clck(Sender: TObject);

begn

Form1.Close;

end;

rocedure TForm1.N15Clck(Sender: TObject);

begn

Form6.ShowModl;

end;

end.

unt UTovr;

nterfce

uses

Wndows, Messges, SysUtls, Vrnts, Clsses, Grhcs, Controls, Forms,

Dlogs, ExtCtrls, DBCtrls, Grds, DBGrds, StdCtrls, Msk;

tye

TTovr = clss(TForm)

DBGrd1: TDBGrd;

DBNvgtor1: TDBNvgtor;

GrouBox1: TGrouBox;

unt UZut1;

nterfce

uses

Wndows, Messges, SysUtls, Vrnts, Clsses, Grhcs, Controls, Forms,

Dlogs, StdCtrls, ExtCtrls, Grds, DBGrds;

tye

TForm2 = clss(TForm)

DBGrd1: TDBGrd;

nel2: Tnel;

Lbel2: TLbel;

Edt2: TEdt;

Button1: TButton;

Lbel1: TLbel;

rocedure Button1Clck(Sender: TObject);

rvte

{ rvte declrtons }

ublc

{ ublc declrtons }

end;

vr

Form2: TForm2;

mlementton

uses Unt1;

{$R *.dfm}

rocedure TForm2.Button1Clck(Sender: TObject);

vr :nteger;

sum:rel;

begn

DtModule1.BQuery1.Close;

DtModule1.BQuery1.SQL.Cler;

DtModule1.BQuery1.SQL.dd('select D_gent, Surnme, Nme, o_btkov, Okld');

DtModule1.BQuery1.SQL.dd('from torgovuj');

DtModule1.BQuery1.Oen;

sum:=0;

for :=1 to DtModule1.BQuery1.RecordCount do

begn

sum:=sum+DtModule1.BQuery1.feldbynme('Okld').sFlot;

DtModule1.BQuery1.Next;

end;

Edt2.Text:=FlotToStr(sum);

end;

end.

unt UZut2;

nterfce

uses

Wndows, Messges, SysUtls, Vrnts, Clsses, Grhcs, Controls, Forms,

Dlogs, DBCtrls, Grds, DBGrds, StdCtrls;

tye

TForm = clss(TForm)

DBLookuComboBox1: TDBLookuComboBox;

GrouBox1: TGrouBox;

Lbel1: TLbel;

Button1: TButton;

DBGrd1: TDBGrd;

rocedure Button1Clck(Sender: TObject);

rvte

{ rvte declrtons }

ublc

{ ublc declrtons }

end;

vr

Form: TForm;

mlementton

uses Unt1;

{$R *.dfm}

rocedure TForm.Button1Clck(Sender: TObject);

begn

DtModule1.BQuery2.Close;

DtModule1.BQuery2.SQL.Cler;

DtModule1.BQuery2.SQL.dd('select d_mgzn, nme_mgzn, res');

DtModule1.BQuery2.SQL.dd('from torgovuj, zjvk, mgzn');

DtModule1.BQuery2.SQL.dd('where torgovuj.d_gent=zjvk.d_gent nd mgzn.d_mgzn=zjvk.d_ mgzn nd surnme="'+DBLookuComboBox1.Text+'"');

DtModule1.BQuery2.Oen;

end;

end.

unt UZut;

nterfce

uses

Wndows, Messges, SysUtls, Vrnts, Clsses, Grhcs, Controls, Forms,

Dlogs, StdCtrls, Grds, DBGrds, DBCtrls, ExtCtrls;

tye

TForm4 = clss(TForm)

GrouBox1: TGrouBox;

Lbel1: TLbel;

DBLookuComboBox1: TDBLookuComboBox;

Button1: TButton;

DBGrd1: TDBGrd;

nel2: Tnel;

Lbel5: TLbel;

Lbel6: TLbel;

Lbel7: TLbel;

Edt: TEdt;

Edt1: TEdt;

Edt2: TEdt;

rocedure Button1Clck(Sender: TObject);

rvte

{ rvte declrtons }

ublc

{ ublc declrtons }

end;

vr

Form4: TForm4;

mlementton

uses Unt1;

{$R *.dfm}

rocedure TForm4.Button1Clck(Sender: TObject);

vr sum:rel;

:nteger;

begn

DtModule1.BQuery.Close;

DtModule1.BQuery.SQL.Cler;

DtModule1.BQuery.SQL.dd('select D_zjvk, Vurobnuk, Nme_Tovr, CountTovr, rce, (CountTovr*rce) s Sym from Zjvk, Mgzn, Tovr, Vmst_zkzy');

DtModule1.BQuery.SQL.dd('where Nme_Mgzn="'+DBLookuComboBox1. Text+'" nd Tovr.D_Tovr=Vmst_zkzy.d_ Tovr nd Mgzn.D_Mgzn=Zjvk.d_ Mgzn nd Zjvk.D_Zjvk=Vmst_zkzy.D_zjvk');

DtModule1.BQuery.Oen;

sum:=0;

for :=1 to DtModule1.BQuery.RecordCount do

begn

sum:=sum+DtModule1.BQuery.feldbynme('Sym').sFlot;

DtModule1.BQuery.Next;

end;

Edt.Text:=FlotToStr(sum);

Edt1.Text:=FlotToStr(StrToFlot(Edt.Text)*StrToFlot('0,'+Edt2.Text)+StrToFlot(Edt.Text));

end;

end.

unt UZut4;

nterfce

.BQuery4.feldbynme('Sym').sFlot;

DtModule1.BQuery4.Next;

end;

Edt.Text:=FlotToStr(sum);

end;

end.

end.

unt Urnt1;

nterfce

uses

Wndows, Messges, SysUtls, Vrnts, Clsses, Grhcs, Controls, Forms,

Dlogs, QRCtrls, QuckRt, ExtCtrls;

tye

TForm7 = clss(TForm)

QuckRe1: TQuckRe;

QRBnd1: TQRBnd;

QRLbel1: TQRLbel;

QRLbel: TQRLbel;

QRLbel9: TQRLbel;

QRLbel10: TQRLbel;

vr

Form7: TForm7;

mlementton

uses Unt1;

{$R *.dfm}

end.

/
:
? : letsdoit777.blogspot.com
06:41:23 19 2016
9000 " "? : business1777.blogspot.com ! C !
19:48:35 28 2015

, :



, ?

, .
, .
, .
, .
, .



(151321)
(1844)
Copyright 2005-2016 BestReferat.ru bestreferat@mail.ru

@Mail.ru