. , , ,

,,,

— ,


_________________________________________

 

 

 

ɠ

 

: .

______________________________________

 

. ________________ ( ⠠ )

 

________________ ( ⠠ )

 

. ________________ ( ⠠ )

 

. ________________ ( ࠠ )

 

_________________ ( ࠠ )

 

__________________ ( )

___________________ ( ⠠ )

 

____________________ ( )

 

____________________ (  )


.

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.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 Files\BDE\. IS\MODULS . 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.

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.



. type , Form1, , . TForm1.Button1Click <>. , MaskEdit1. , password MaskEdit1. , password , MaskEdit1, . MaskEdit1 . , . status , , , . status , . Fam Status . Form1 Form2 . Form3 . TForm1.MaskEdit1KeyDown , TForm1.Button1Click <>, <Enter>. 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 ,

, . , , , . , - .

    

. , , , , , . 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

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.   (.0) ().

, , () V .0, »

III .0, û

∆P = 30

2.  

3.  

= f() 65 % (. 5.2.)

4.   (. 5.3.).

(~ 120 /)

5.   ( 5.5.).

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

6.   ( 5.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.   (): 08-27

4.   :

: ______________

: ______________

: ______________

5.   - : 2748

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.

_________________________________________

 

 

 

! , , , .
. , :