. , , ,

,,,

— ,



_________________________________________

 

 

 

ɠ

: .

______________________________________

. ________________ ( ⠠ )

________________ ( ⠠ )

. ________________ ( ⠠ )

. ________________ ( ࠠ )

_________________ ( ࠠ )

__________________ ( )

___________________ ( ⠠ )

____________________ ( )

____________________ (  )

.

2001

24

_________ __________________

( )

________________________________________________________

_________________________________________________________________

:

.

_____ _______________2000 .

()

_____________________________ ________________________

(, , )

1. ()________ ________

________________________________________________________________________________

________________________________________________________________________________

________________________________________________________________________________

_____ __________________ 2000 . ____________

2. () _______________________________

3. () ______________________________________________

________________________________________________________________________________

________________________________________________________________________________

________________________________________________________________________________

________________________________________________________________________________

________________________________________________________________________________

4. - ( )

________________________________________________________________________________

________________________________________________________________________________

________________________________________________________________________________

________________________________________________________________________________

________________________________________________________________________________

________________________________________________________________________________

5. ( ) ________

________________________________________________________________________________

________________________________________________________________________________

________________________________________________________________________________

________________________________________________________________________________

________________________________________________________________________________

________________________________________________________________________________

________________________________________________________________________________

________________________________________________________________________________

________________________________________________________________________________

________________________________________________________________________________

________________________________________________________________________________

________________________________________________________________________________

6. (, )

,

..

..

..

7. ___________________________________________________________

___________________________________________

()

___________________________________________________

()

/

()

()

- __________ .._____________________

__________ ..______________________

1.

1.1. -

1.2.

1.2.1.

1.2.2.

1.3.

1.3.1. , ,

1.3.2. ,

1.3.3.

1.3.4.

1.3.5.

1.3.6.

1.3.7.

1.3.8.

2.

3.

3.1.

3.2.

3.3.

4.

4.1. Windows NT

4.2.

4.3. -

4.4.

4.5.

5.

5.1.

5.1.1.

5.1.2.

5.1.3.

5.1.4.

5.2.

5.2.1.

5.2.2.

6.

6.1.

7.

7.1.

1.

1.1           . -

. . .. , . . , , . . (. 1.1). /1/

. . :

v   .

v   .

v   .

v   .

v   .

. . :

Ø   . -

Ø   . --

Ø   .

Ø   .

Ø   .

Ø   .

Ø   .

Ø   .

, . 1.2. , . , . -



, .

. 1.3. - . . : , , ( . 1.3.).

, . , , - , , . (); , . - , , . , , . . /2/

1.2 .

1.2.1

. : " ", "" "". .1.4. (Twisted Pair) , 100 /. Ethernet, . , .

CSMA/CD (Carrier Sense Multiple Access/Collision Detect). , ( ) , . ( ), , . ( ). , Ethernet . . /3/ . 1.5. .

. .

1.2.2

Windows NT Server . - , Windows NT Server, , . Windows NT , , . . - () , . , , . , , . , , ( ) . , Windows NT Server . : , , , . - , Windows NT Server,

. , , Windows NT Server , , , LAN Manager 2.x, Windows NT Workstation , , MS-DOS(.1.6.). , Windows NT Server. , . , Windows NT Server, . . . , . , Windows NT Server, . Windows NT , , . , , . : , , . . . - , . , . - . - ; , ( , ) . . /4/ . 1.7.

        

        

1-

2-

        

        

        

3-

        


. 1.7.

. 1.8.

. 1.8.

1.3

1.3.1 , ,

, . -, . 뻠 MS-DOS. - Windows95, , . , DOS, . , , , ( ), . -. , . , , , . , dBase, Paradox, Rbase, Xbase ( -), Clipper FoxPro. Access, FoxPro, Paradox, dBase. -, :

ü ; , 2 100000 , 100000 - ; ( ) ; , ;

ü , , , ;

ü , , , ; .

, , , . .

1.3.2 ,

, . :

o   .

o   .

o   ( , ..)

o   .

o   .

1.3.3

, :

       

       

       

        /

       

        .

1.3.4

, , :

. . . . , , . (). . . .

. , , . , . ( ).

, . .

1.3.5

        , ;

        :

1.     .

2.     .

, , . . . .

        :

1.     .

2.     .

, , , . . , . .

        :

Ø ;

Ø ;

, . , , . ( , , , ). . , - . ( ; , ), , . , .

1.3.6

, , , , . , . , , , .. , . , (, ), (, ) () . , ( ) , . , , , , , . . . , .

1.3.7 .

-   , ;

-   , ;

-   , .

, , :

-             ;

-             ;

. :

-        , ;

-        ;

-        ;

-        ;

-        , :

-        (. ) ;

-        , ;

-        ;

-        , ;

-        ;

-        ;

-        ;

-        - , ;

-        () ;

-        ;

-        , .., ;

:

-        ( );

-        ;

-        ;

-        , ;

-        , :

-        ;

-        ;

-        ;

-        ;

-        (. ), ;

( , ) . , , :

- ;

- ;

. :

-              , ;

-              ;

-              , ;

-              ;

-              ;

-              ;

-              ;

-              ;

-              ;

-              , ;

:

-              ;

-              ;

-              , :

-              ;

-              ;

-              ;

-              ;

-              (. ), ;

( , ) . , , :

       ;

       ;

       ;

       ;

       , .

. , , . :

;

        ;

        , ;

        ;

        ;

        , ;

        ,

. , , .

1.3.8

. , . , , , . . : , , , .

. : , , (, ) , , , .

:

1)   

2)   

: .

2.      

, . 2.1.

, :

ü .

ü .

ü , .

< >, : < >, < >, < >, < >.

< > < >, < > < >.

< > < >, < >, < >, . < > :

< >

< >

< >

< >

< > :

< >

< >

< >

< >

< > :

< >

< >

< >

< >

< >

< >

< > , . , . , . < > , . 2.2.

, :

ü :

o   , . , .

o   , .

ü .

ü .

ü .

ü .

ü .

ü .

ü .

ü .

< >, < >, < >, < >, < >.

< > < > < >. , , :

< >

< >

< >

< >

< >

< >

< >

< > < >. .

< > < > < >. < > < >, < >. < > :

< >

< >

< >

< >

< > :

< >

< >

< >

< >

< > :

< >

< >

< >

< >

, < > . 2.3.

- , :

ü :

o   , , . , .

o   , .

ü .

ü .

ü .

ü .

ü .

ü .

ü .

ü .

< >, < >, < >, < >, < >. , , < >, , . , < > < >. . < > < > . 2.3.

, :

ü

ü

ü

ü

< >, : < >, < >, < >, < >, < >. < > :

< >

< >

< >

< >

< > :

< >

< >

< >

< >

< > < > , , , , . < > . 2.4.

, :

ü

ü .

ü .

ü .

ü .

ü .

ü .

< >, < >, < >, < > < >. < > . . , , . :

< >

< >

< >

< >

< >

< > . ( , ..) , . :

< >

< >

< >

< >

< >

< > : < >, < >, < >, < >. < > : < > < > < > < >. < > . 2.5.

3.

( ) Windows , Delphi 5. , Delphi 5. Windows 95/98/NT. Ѡ ( Pentium 266 , 32 , HDD 2.4 , 4 ); 17´´; (Lexmark Optra S 1855); DATAMAX DMX 600. Delphi () BDE (Borland Database Engine Borland), . BDE DLL , , , Delphi. BDE , Windows 32. DLL C:Program FilesBDE. ISMODULS . START.EXE, IS. 3.1; 3.2; 3.3; 3.4.

. 3.1.

. 3.2.

.3.3.

3.4.

3.1

, , ( 1.3 2). , . 3.5, 3.6, 3.7, 3.8.

. 3.5.

3.2 .

. . , , , :

1. ;

2. , (. );

3. - , ;

. 3.6.

. 3.7.

. 3.8.

4. ;

5. ;

6. , ;

7. ;

8. ;

9. ;

10. ;

11. ;

12. ;

13. ;

14. ;

15. ;

16. ;

17. ;

(, ..). , , . , , , , . : , , , , .

:

1.   ;

2.   ;

3.   ;

4.   ;

5.   ;

6.   ;

7.   ;

8.   .

:

1.   ;

2.   ;

3.   ;

4.   ;

5.   ;

6.   ;

:

1.   ;

2.   ;

3.   ;

4.   ;

5.   ;

:

1.   ;

2.   ;

3.   - ;

4.   ;

5.   ;

6.   , ;

7.   ;

8.   ;

9.   ;

10.                      ;

:

1.   ;

2.   ;

3.   ;

4.   ;

5.   ;

tovar.dbf ( 3.1.):

3.1.

Nim_tov

30

Naim_proizvod

15

Kod_prod

6

Ves_prod

4

Shir_prod

3

Visot_prod

3

Dlin_prod

3

Cena_prod

4

postav.dbf ( 3.2):

3.2.

Kod_post

5

Naim_post

15

Adres_post

30

Telef_post

6

Ras_shet

30

_dogov

10

operators.dbf ( 3.3.):

3.3.

FIO1_oper

10

FIO2_oper

8

FIO3_oper

10

Adres_oper

30

Telef_oper

6

prihod.dbf ( 3.4.):

3.4.

_akt

10

operator

10

-

_TTN

5

Time

time

8

Data

data

10

,

_cars

10

Kod_post

15

Voditel

10

Data1

data

10

Time1

time

8

adress.dbf ( 3.5.):

3.5.

_acts

10

Kod_prod

6

Kol_case

3

BBD

15

dress

15

. , , , :

1.  

2.  

3.  

4.  

5.  

6.  

7.  

8.  

9.  

10.                     

11.                     

12.                     

13.                     

14.                     

15.                     

, , . , , , , . : , , , , .

. :

1.   ;

2.   ;

3.   ;

4.   ;

:

1.   ;

2.   ;

3.   ;

4.   ;

5.   ;

6.   ;

7.   ;

8.   ;

:

1. ;

2. ;

3.  

4.  

klient.dbf ( 3.6.):

3.6.

Kod_klien

5

Naim_klien

15

Adres_klien

30

Telef_klien

6

otgryska.dbf ( 3.7.):

3.7.

_akt1

10

_zakaz

10

operator

10

o

Time2

time

8

Data2

data

10

Kod_klien

5

Data3

data

10

Time3

time

8

adress1.dbf ( 3.8.):

3.8.

o

_acts

10

Kod_prod

6

Kol_case

3

BBD

15

dress

15

"", "" "-" . 3.9. /5/

3.4

Unit1.pas. . . Delfi, - Object Pascal . Uses Unit2 Unit 3.


. 3.9. "", ""


. type , Form1, , . TForm1.Button1Click <>. , MaskEdit1. , password MaskEdit1. , password , MaskEdit1, . MaskEdit1 . , . status , , , . status , . Fam Status . Form1 Form2 . Form3 . TForm1.MaskEdit1KeyDown , TForm1.Button1Click <>, . TForm1.FormClose , Form1. Form1 , Form3 .

4.

4.1 Wndows NT.

Windows NT , . :

       

Windows NT . , , , . . , .

       

Windows NT , . , , , , , . , Windows NT , . , , , , , Windows NT, .

       

Windows NT Server . , ; ,

, ; ; ; , , .

       

, Windows NT, , . . . , .

, , . . , , , .

       

, , . , , , . , , ; , , .

       

Windows NT ,

, . , , , . , - .

       

. , , , , , . Windows NT Server ; , . Windows NT Windows NT Server, , .

       

: ( 6 ), ( 14 30 ) , , ( ). :

        .

        .

        , .

, , , . , , . , , . , . . , , , . , . , , , . /4/

4.2 .

, Windows NT . , , 1.3.3, Windows NT, :

     ;

     ;

     .

4.3 -

Windows NT , . , . , , .

q 

, , ( ), DS199x Touch Memory . , () .

. . /6/ , . , Diskreet Wipeinfo Norton Utilities.

q 

Dallas Lock 3.1 , . Touch Memory. 48 .

Dallas Lock :

ü ,

ü ,

ü ,

ü ,

ü ,

ü . /6/

q  Secret Net NT

Secret Net, . IBM PC/AT , Ethernet, Arcnet Token-Ring. :

ü ( Touch Memory Smart Card),

ü ,

ü ,

ü ,

ü ,

ü ,

ü .

Secret Net /7/.

, , Secret Net NT , 1.3.3.

4.4

Secret Net :

1.     . .

2.     . . .

3.     , .

4.     , , . .

(. 4.1.):

1.     .

2.     . Ticket-Granting Server (TGS). , .

3.     TGS .

4.     , Ticket (), . Ticket -

. Ticket . ticket , TGS ( 3). sealed ticket ( ), ( ).

5.     , , . . . sealed ticket.

, , , (end server). , , ticket .

6.     , sealed-ticket, sealed-authenticator , TGS. Authenticator login-name, WS-net-address . (sealed-authenticator) .

7.     TGS, , , sealed-ticket sealed-authenticator, TGS. , TGS :

        Login-name,

        TGS-name,

        .

, authenticator, , . , . TGS .

8.     TGS ticket, . ticket .

9.     , sealed-ticket, .

10.           , sealed-ticket, sealed-authenticator ( ).

11.           sealed-ticket, , Secret Net .

authenticator 7.

Ticket . , , (ticket). , , TGS. : TGS . , , . , . . , , . , () , .

, , , . (), . ,

. .

, (.. ). , , . , , , , . , , , , , , . , . , , . , . (.. ). , , . . , . , , . /7/

4.5.

() , , . , . . , . , . . 4.2.

. . 4.3.

, , , .

:

        ,

        , ,

        ,

        ,

        ,

        ,

        ,

         , . /6/

: . , , . , . ; , , , . , , , . /8/

, f(x), y=f(x), . , . /6/ , , , .

Secret Net . , DES, 28147-89.

: S = L * t, L . , . (). , L , , . L R . , L R , R L R XOR. , . (. 4.4.). /9/

5.

5.1. .

- , -, , , - , , . - . , , , . , , .

, , . , , , , .

:

     ;

     .

5.1.1.

- , , . , , , , , .

8 20 .

12.2.032-78 , . . , :

        , ;

        , ;

        ;

        .

. . 12.2.032-78.

. , . , , .

- , .

- , , .

- , , .

.

- ;

- ;

- ;

- ;

- .

:

( );

- /;

();

();

1)    - () - , ;

2)    - , .

:

       , , ;

       , , ;

       , ;

       ( 3 , , , ).

. (+2).

:

     700 ;

     400 ;

     700-750 .

:

     710 ;

     1300 ;

     650 .

40 600 .

:

     600 ;

     500 ;

     400 .

. 21.889-76. , , .. . , , :

       , .. ;

       ( 400 550 );

       ,

       .

, :

     710 ;

     1300 ;

     650 ;

     400 .

:

     40 ;

     600 .

, , , .

, , . , . , , , -

, .

5.1.2.

, , , :

2

, %

I

II

6.25

III

6.25

IV

12.5

V

25

VI

,

50

.

3

I

1

A1

2

B1

3

C1j1 ↑2

4

,

H1j2

5

A2

6

C2J3

7

B2 ↑ 6

8

C3j4

9

,

H2

10

C4j5

11

H3C5q1

12

-

C6q2

13

C7w1

14

F1H4w2

15

F2 ↓ 18

16

D1w3

17

F2H5B3w4

18

F3

19

H6w5 ↑ 15

20

N

C8w6 ↑ 15

21

F4

() , . i- :

pi = k/n,

k .

n , .

4:

4.

pi

1

(n),

():

6

1,00

A

2

0,33

F

4

0, 67

2

,

:

18

1,00

B

3

0,17

C

8

0,44

D

1

0,06

H

6

0,33

K

0

0

3

13

1,00

j

5

0,39

q

2

0,15

w

6

0,46

:

37

(.4) . , /:

m .

H1 = 2 * 2 + 2 * 4 = 10

H2 = 3 * 1,585 + 8 * 3 + 0 + 6 * 2,585 = 44, 265

H3 = 5 * 2,323 + 2 * 1 + 6 + 2,585 = 29,125

, /:

HΣ = H1 + H2 + H3,

H1, H2, H3 , .

HΣ = 10 + 44,265 + 29,125 = 83,39

/,

,

N ;

t , .

( ) 3 , - 225 ,

= = 2,6 /

. .

:

.. .. (0,8 3,2 / );

.

0,8 < 2,6 <3,2

5.1.3.

, , . . , 5 . - . , , , .. .

V - , ;

V - .

:

     = 7.35 ;

     = 4.9 ;

     = 4.2 .

:

V = * * H =151,263 3

V :

V * ( t - t ) * Y = 3600 * Q

Q - ();

= 1000 - (/);

Y = 1.2 - (/).

:

t = t.. + ( - 2 )t ,

: t = 1-5 - t 1 ;

t.. = 25 - ;

= 4.2 - ;

t = 18 .

t = 25 + ( 4.2 - 2 ) 2 = 29.4

Q = Q.1 + Q.2 + Q.3 ,

: Q. - .

Q.1 = * ,

: - ( =0.55 );

- , = 40 * 15 = 600 .

Q.1 = 0.55 * 600=330

Q.2 - ,

Q.2 =m * S * k * Qc ,

: m - , m = 4;

S - , S = 2.3 * 2 = 4.6 2;

k - , .

k = 0.6;

Qc = 127 / - .

Q.2 = 4.6 * 4 * 0.6 * 127 = 1402

Q.3 -

Q.3 = n * q ,

: q = 80 /. , n - , , n = 15

Q.3 = 15 * 80 = 1200

Q = 330 +1402 + 1200 = 2932

:

V3

, .. ( , , ) .

 

:

1. , , ;

2. 1.5 ;

3. .

:

,

: - , ;

R - , /;

l - , ;

V - , ( V = 3 / );

- , ( = 1.2 / ).

:

-0.45 , - R=0.24 /. (x=1.2), (x=1.4) (x=2.2). , :

x = 1.2 +1.4 + 2.2 = 4.8

10 %- :

= 110% * 26.28 = 28.01

V = 110% *1442 = 1586.2 /

4: - 1600, - 40 , - 65% , - 960 /, - 400 , - 0.032 .

(). . , , , , . , , , , , , .

5.1.4. p .

, , - . , , . , .

. , . , . . .

5.2.

. (). , , (, , , , ), - .

. : , , , .

, 80% () , 64% 16% - . : 1986 . . (), 3150 . 200 . ; 1989 . . () 8 ., 60 ., 400 2, 40 . . 1989 . 300 . 780 . ( 120 . ) 91 , 76 . . (. ) 1990 . 4000 , 162 . .

. 1979 . -- () 1000 2, 1.5 . . 1 . .

(1986 .) 100 , 380 , , 17 . , 50 . , 15 . . 1971 1991 . 150 . 20 3 . , 800 . .

60 . , - 120 . . , () , -, - , , , :

ü , ( 1.5 . , 15 );

ü - ( , , , ), , , ..;

ü , ( 5% , , );

ü ( 19 . ; 700 . , 14 . , 30 . . 1990 . 1 . .).

, , , , , , .

5.2.1.

, , . :

R , ;

L , ;

j , %;

       (, , ).

V , /.

q  , (t)

I . (t 2 )

II . (t 2 )

III . (t ≤ 1,5 )

IV . (t ≤ 1 )

V . (t ≤ 1 )

, , I II . ∆P = 30÷50 , IV V ∆P ≈ 20 .

q  () . :

, , , , .

, , , .

, , , , .

, , , .

, , , .

∆P = 10÷30 .

q  , :

堠 - , 2

- , 2

q  (, 5.2.)

P = f (R, )

R (. 5.4.).

5.4.

R,

10

20

30

50

P, %

65

27

23

3

q  .

(. 5.2.) υ = 3 - 4 /,

V = 150 - 300 /, 0.5 . ( ) V = 60 - 120 /

, 5.3.

q  () . 5.5.

= f (C.0, t)

5.5.

, .0

,

,

I, II

2 3

1 2

0.1-0.5

50-20

III

5 6

7 8

0.2-1.2

50-20

IV, V

2 3

8 10

0.3-1.5

50-20

q  , . () (, ), , (,,). . 5.6.

5.6.

,

0.25

0.5

1.0

3.0

6.0

,

,

,

,

,

,

q  :

N =

N ,

L .

- . 5.4.

5.2.2.

, . : , (-). 10 15 , S. = 30 2, S = 100 2. V = 7-8 /, φ = 60 %. , . .

1.    

, , () V .0, »

III .0, û

∆P = 30

2.    

3.    

= f() 65 % (. 5.2.)

4.    

(~ 120 /)

5.     ( 5.5.).

.0 III-V t. . = 1,2 , R = 20-50 .

6.    

( 3 );

- ( 3 ) .

:

1.     .

2.     .

3.     1 .

6.

6.1.

. , . , , , :

ã;

() ;

.

, . , , , , , . , .

ࠠ , ( - ). ( - ) .

:

  , , , ();

  , , ;

  , , .

. , . , .

, . , , , .

1. , 堠 () .

2. 堠 蠠 - - .

3 P .

4. .

5. , :

1- 蠠 1) ,

;

2) .

2- 1) ,

;

2) 򠠠 젠 Ǡ ࠠ , Ġ 蠠 " ".

3) .

3- 蠠 1) ,

;

2) .

3) .

4) ⠠ () , .

4- 蠠 1) ,

;

2) ;

3) .

6. .

7. , .

8. , .

()

1. , ( ) .

2. ( ).

3. :

-         ;

-         , ;

-         , .

4. , .

5. , . , :

) , - 50,09

) - 25,04 ;

) - 16,7 , ;

) 16,7 ;

) 16,7 ;

) - 33,4 .

158,63 .

, Delphi 5 ..., .

: , , . . .. , .

7.

7.1.

- , . : , , , , , , . : , , , .

, :

1.     (150 ) ;

2.     (100 ) - ;

3.     (850 )- ;

4.     (300 ) - ;

5.     (160 )- .

:

        - 8 , 10 , 8 - (.);

        (.);

        . . (.);

        / (.);

     A (.).

, :

= + +. . + / +

1. .

:

- .

8 :

10 :

8 :

:

:

:

:

7.1.

7.1.

, .

, /.

, .

1.

150

21,51985

3227,9775

2.

100

21,51985

2151,985

3.

850

16,8

14280

4.

300

16,8

5040

5.

160

11,3

1808

:

26507,96

(10%)

2650,796

29158,76

2. 38,5% :

3. , , , . :

P=0,4- , ();

T ,

T = 850+160+300 = 1310 ();

0,43 (.).

4. ( ) :

S , S=7 x 7 = 49 2

d , , d = (150+100+850+300)/24 = 59;

, = 1.63 .

:

C= 26507,96+2650,796 + 11226,1226+225,32 + 1770 = 42380,1986 (.)

. .

, ER . . , , , , .

1. .. : - M: , 1993. 110 .

2. .. : . .: -, 2000. 352 c.

3. . IBM PC: . : , 1999. 816 .

4. .. Microsoft Windows NT Server.

5. .. itForum

6. .. . . . . 1997.

7. Secret Net NT. .

8. .. . LAN . 1998. 2.

9. .. . ABF. . 1997.

10. .., .. Delfi 4. - .: , 1999.-560.

11. .. Windows Delfi 5 - .: ̻, 1999. 256 .

12. 11. .. 100 Delfi 5 - .: ̻, 1999. 272 .

13. .. ̻: . 1. .: , 1993. 52 .

17

00589/12.10.99

: 12.10.1999

1.   

2.   

: ..

: ..

3.   

4.   

: ______________

: ______________

: ______________

5.   

6.   

050660

18´170

11.11.1999

205

: 205

: 0

: 0

050663

12´230

11.02.2000

812

: 812

: 0

: 0

1 2

7.   

8.   

______________________________________________________________

9.   

_____________________________________________________________

:

: :

.. ..

_________________ _________________

2 2

00596/12.10.1999

:

:

001

050660

49

12.11.99

0007230103

002

050660

49

12.11.99

0011250101

003

050662

49

12.04.00

0011260103

004

050662

49

12.04.00

0011350103

005

050662

49

12.04.00

0011420103

006

050662

49

12.04.00

0011430101

007

050662

49

12.04.00

0012100102

008

050641

49

08.02.00

0012480103

009

050641

29

08.02.00

0005290103

010

050648

49

06.02.00

0003310103

011

050648

49

06.02.00

0007460101

012

050648

9

06.02.00

0010490103

013

050639

49

09.02.00

0003130103

014

050639

49

09.02.00

0006130103

015

050639

49

09.02.00

0012060101

016

050727

36

12.01.00

0012580101

017

050727

49

12.01.00

0013430101

018

050635

49

12.02.00

0014180103

019

050635

49

12.02.00

0014330103

020

050635

49

12.02.00

0015290103

1 1

04765

:

001

050417

49

12.11.99

0007230103

002

050417

49

12.11.99

0011250101

003

050417

49

12.04.00

0011260103

004

050033

49

12.04.00

0011350103

005

050033

49

12.04.00

0011420103

006

050033

49

12.04.00

0011430101

007

050049

49

12.04.00

0012100102

008

050049

49

08.02.00

0012480103

009

050502

29

08.02.00

0005290103

010

050503

49

06.02.00

0003310103

011

050666

49

06.02.00

0007460101

012

050648

9

06.02.00

0010490103

013

050639

49

09.02.00

0003130103

014

050639

49

09.02.00

0006130103

015

050639

49

09.02.00

0012060101

016

050727

36

12.01.00

0012580101

017

050727

49

12.01.00

0013430101

018

050635

49

12.02.00

0014180103

019

050635

49

12.02.00

0014330103

020

050635

49

12.02.00

0015290103

1 1

:

00006092

: S010

:

: 12.02.2000 13:45

050029

24´370

22.05.2000

30

050265

24´225

01.06.2000

30

050265

24´225

01.06.2000

30

050265

24´225

01.06.2000

30

050265

24´225

01.06.2000

30

050428

6´20´100

09.08.2000

60

050471

27.06.2000

23

050049

6´20´100

23.01.2001

30

050427

6´20´100

18.01.2001

15

050033

() 33´240

02.06.2000

30

050033

() 33´240

02.06.2000

30

050033

() 33´240

02.06.2000

30

050033

() 33´240

02.06.2000

30

050371

33´240

04.06.2000

20

050371

33´240

04.06.2000

30

050371

33´240

04.06.2000

30

050371

33´240

04.06.2000

30

050431

6´20´100

05.07.2000

6

050431

6´20´100

05.07.2000

3

050470

25.06.2000

18

050061

225

24.08.2000

2

050476

27.02.2001

5

050406

6´16´100

01.07.2001

7

050433

6´18´100

03.08.2000

20

1 2

050324

8´430

01.06.2000

30

050420

6´20´100

29.06.2000

20

050421

.

12.07.2000

15

050410

6´20´100

19.08.2000

25

050003

. . 8´36´50

02.08.2000

15

050001

8´36´50

29.07.2000

12

050015

20´30´25

04.02.2001

9

: 1341

: ..

___________________

:

,

,

___________________

2 2

Unit1.pas

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Grids, DBGrids, Db, DBTables, Mask;

type

TForm1 = class(TForm)

Label1: TLabel;

Button1: TButton;

MaskEdit1: TMaskEdit;

Table1: TTable;

Table1Pasword: TFloatField;

Table1Fam: TStringField;

Table1Im: TStringField;

Table1Ot: TStringField;

Table1Adres: TStringField;

Table1Telefon: TStringField;

Table1Status: TStringField;

DataSource1: TDataSource;

procedure Button1Click(Sender: TObject);

procedure MaskEdit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

s,p,s1 : string;

implementation

uses Unit2, Unit3;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Table1.Locate('Pasword',MaskEdit1.Text,[loPartialKey]);

if Form1.Table1.Locate('Pasword',MaskEdit1.Text,[loPartialKey])=false then Application.Terminate;

if Form1.Table1.Locate('Pasword',MaskEdit1.Text,[loPartialKey])=true then

begin

Form1.Table1.Edit;

s:=Form1.Table1Status.Text;

p:=Form1.Table1Fam.Text;

Form1.Table1.Post;

Form3.Label1.Caption:=p;

Form3.Label2.Caption:=s;

if Form1.Table1Status.Text='' then Form3.Button2.Visible:=true else Form3.Button2.Visible:=false;

if Form1.Table1Status.Text='' then Form3.Button3.Visible:=true else Form3.Button3.Visible:=false;

Form2.Visible:=false;

Form1.Visible:=false;

Form3.Show;

Form1.MaskEdit1.Text:='';

end;

end;

procedure TForm1.MaskEdit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if (key = VK_RETURN) then Form1.Button1.Click;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form1.Visible:=false;

Form3.ShowModal;

end;

end.

_________________________________________ ɠ :

 

 

 

! , , , .
. , :