. , , ,

,,,

" " — ,

- . ..

()


 

. .

..

. 2010 .


1.

1.1 ()

1.2

1.3

1.4 ()

1.5

1.6

1.7

1.7.1

1.7.2

1.7.3

1.7.4

1.7.5

1.7.6

1.7.7

1.7.8

1.7.9

2.

2.1

2.2

2.2.1

2.2.2

2.2.3

2.2.4

2.2.5

2.2.6 Visual Fox Pro 5.0

2.2.7 - InterBase

2.2.8

2.3 .

3.

3.1

3.2

3.3 ()

3.4

3.5 -

4.

4.1 ,

4.2 ,

4.3

4.4 -

4.5 .

4.5.1

4.5.2

4.5.3

4.6

4.7

4.8

4.9 -

4.9.1

4.9.2


 

113 ., 11 ., 15 .,

17 , 4 .

.

.

, . , .

Visual FoxPro 5.0 , , , . , : , , , .

, , (), , , .


, , .

, . () .

, - , .

, . :

1)         : , ;

2)         : ;

3)         : , ; , , - .

4)         , .

, . , .

, (, , , ), .

, :

1)         ;

2)         ;

3)         ;

4)         , ;

5)         ;

6)         ;

7)         .

, ( ) :

1)         ;

2)         ";

3)         "".

, . . CUA (Common User Access) IBM.

, , ?

, , , . , .

, , . (). , .

, , , . .

, . . , . , , .

, , , . . , - . , .

, 95% 53% . " ". , , , . .

. :

1)         ;

2)         ;

3)         ;

4)         (, , .).

, , .

, , , , . , , , , .


 1.        

1.1 ()

. : , , , ..

, . , .., .

- , , , , [4].

. - . , , . 3 :

1) (): , , , , ;

2) (): , , ;

3) (): .

, . . :

1)         ;

2)         ;

3)         , [5].

1.2

() - , , , . .

, , , . :

1)         , ;

2)         , ;

3)         , .. ;

4)         , ;

5)         , , ;

6)         , , .

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

() . , , . .

, , . [6].
 


. 1.1.

1.3

- .. . , :

1)         .

2)         .

3)         - .

4)         .

, , - һ. , . , . , , - . , . , , . , . , , .. , . , . .

10 . . :

1)         ;

2)         . ;

3)         ;

4)         ;

5)         ;

6)         ;

7)         ;

8)         ;

9)         ;

10)      .

, . . , , 20% ; (), . , , .. PC - , , : , . , :

1)         ( );

2)         ;

3)         , ;

4)         ;

5)         , ;

6)         ();

7)         ;

8)         ..


1.4 ()

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

1)         1;

2)         020, 4 - 071 5 070;

3)         ;

4)         ;

5)         - , ().

:

013 - ( , );

015-;

016 - ();

018 - ;

019 - (, );

073 -

1.5

:



. 1.2.


, , . , , -.

. .

:


. 1.3.

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

( , , ) : , - .

. . .

.

" " , , ( ), , .

, .

, .

.

:

1)        

2)         .

3)         .

4)         .

5)         .

6)         .

7)         .

8)         .

9)         .

10) . .

1.6

, , . . .

.. , , , , , ( ) .

1.

1.7

 

1.7.1

, .

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

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

(, ) .

, , , .

, (, ).

:

1)         ;

2)         ;

3)         ;

4)         .

, 01 , . . , , , .

, , , , .. , .

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

1.7.2

:

1)         ; , ;

2)         ;

3)         ;

4)         , , , ;

5)         , .

, , , .

, , . , .

, , .

30 1997 . N 71 " , , , , ". , , :

1)         () - ( N -1);

2)         - , ( N -3);

3)         ( N -4);

4)         ( N -4);

5)         ( N -6);

6)         ( N -14);

7)         - ( N -15);

8)         ( N -16).

, , :

1) ;

2) ;

3) , ;

4) ;

5) ;

6) , ;

7) .

1.7.3

. , , , , .

. :

1. :

1.1. ;

1.2. ;

1.3. ;

1.4. ;

1.5. ;

1.6. ;

1.7. ;

1.8. :

1.8.1. ;

1.8.2. ,

1.8.3. , ;

1.8.4. .

2. :

2.1. ;

2.2. ;

2.3. .

3. :

3.1. ;

3.2. ;

4. :

4.1. ;

4.2. ;

4.3. ;

4.4. ;

4.5. - ;

5. :

5.1. ;

5.2. .

6. :

6.1. ;

6.2. ;

6.3. ;

6.4. .

7. :

7.1. ;

7.2. .

.

- .

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

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

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

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

. , , , ().

- . : , .

() . .

:

1)         - ;

2)         , - , , ;

3)         , () -.

, , . - . .

. , , . , , .

, .. , .

. , , , .

. , , . .

1.7.4

(, ), .

, , , - , , . - , , .

- .

, .

. , :

1)         , , , , , , ;

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

, () ( , , ..) , .

, ( , ) , , .

, , .

, , () , , , .

, :

1)         , ;

2)         - () .

- , ( N -3). .

" ". .

( ).

() , .

( ) .

, , . .

( ) , :

1)         - , , ;

2)         - (, ).

, .

, .

1.7.5

, , .

, . 1/12 :

1 1998 . , , :

1)         ;

2)         ;

3)         ;

4)         ().

. .

. . :

1)         ;

2)         , - ;

3)         -

4)         (, ).

( ) . , , , .

, . . , , .

() , , . :

()

. :

1 ;

2 , .

, ; , .

, (20 , 23 , 25 , 26 , 44 .) 02 ( ).

, , 88 ( ), 4 .

, , , . :

25, 26 76 ( -).

:

80 02, 1.

, , .

:

76, "

80.

76.

:

02 47.

02 .

1.7.6

- .

. , , - , , .

- - , , , , , .

, , .

. , , . .

() , , , , () .

, .

.

, .

, , , :

1) ;

2) ;

3) ;

4) , ;

5) ( ) .

:

1) ;

2) ();

3) , , ;

4) .

:

1)         , ( );

2)         , ;

3)         , .

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

() () . , - () .

( , ).

: , ( , ), .

, , .

(. . -1) -, . , .

. , - , . .

, , . , . , , .

(. -8).

, , - , .

. .

² () - ( ) , ².

(), " () - ( ) " ( -1); " " ( -3). , , , " - , " ( -2).

" " , , , - , , () .

, , .

(), , (, , ) , .

.

( -3).

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

, , , .. " ".

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

, , , " (, )".

- , ( -2)

- , .

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

, , . , , .

, , . , , , .

, . , , .

( ) (. . -9), , .

( , ) ( -9)

() . () , .

1.7.7

, :

01 08 .

, , :

01 75 ( -), () .

, , :

01 87 (), .

:

01 87 ( ) 88, 4 ( ).

1.7.8

() , , ( ).

: , ( , ), , , ().

, , - .

, ( ), , , , , , , .

, () , (), .

() (), , , , , . .

, .

, , () ( , ) , .

, , , , .

, , , , , " ".

( ) :

1)         , " " - ;

2)         , " , " - .

( ) . .

, , .

:

1)         - ;

2)         - .

1.7.9

:

1)         () ;

2)         () ;

3)         () ;

4)         , ;

5)         , ;

6)         , , ;

7)         .

, , ( ) , , () , . .

:

1)         , , , ;

2)         ( , , , , , , );

3)         , , , ;

4)         , , , , ;

5)         , , ;

6)         ( N -4), ( N -4) ( , , , ).

( N -4) ( N -4) , ( , , , , , , , , , , ). .

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

, .

, , , , .

, , , , () - ( N -1).

() - . , ( ).

() - () .

() - ( N -1). () - ( N -1), .

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

, , .

, () .

47 . -, , 80. , , , 47 .

, , , :

06 47.

01 47, 02 () 47. , , 47 .

, , 80.

() 01 47. 02 47.

, , 47 . 87 ( ) 88, , .

, , 47. 47 01.

:

02 47.

47 , . :

80 47.


 2.

 

2.1

- , . - .

. :

1)         ;

2)         ;

3)         .

- , . . , . .

- , (). . , , .

- ( ).

:

1)         .

2)         - , .

3)         , .

, :

1)         - .

2)         - .

3)         - .

4)         . =10,070,071 .

5)         ().

6)         , .

7)         - .

8)         - .

, , . , :

1. :

1.1. ;

1.2. ;

1.3 .

2. :

2.1. ;

2.2. .

3. :

3.1. ;

3.2. ;

3.3. .

4. :

4.1 ;

4.2. .

5. ;

6. ;

7. .

, , .

 

2.2

 

2.2.1

- . - .

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

. . . .

, , . . . . Visual FoxPro :

. , . SET EXCLUSIVE, :

SET EXCLUSIVE ON | OFF

ON

OFF

. / . :

FLOCK ([])

FLOCK . , (..). , . .

LOCK RLOCK, :

LOCK ([__1 | "1"]

| ["_1, _2, ", __2 | "2"])

LOCK ( SET MULTILOCKS ON). , (..). , . .

UNLOCK. :

UNLOCK [RECORD < >] [IN <>] [ALL]

, , . , . , , . .

2.2.2

:

1)         , ;

2)         .

CON_NUM.DBF ( 2.1). , CON_NUM.

2.1 CON_NUM.DBF

CON_NUM N 2,0

CON_NUM.DBF , . , PACK Visual FoxPro , .. , , . , CON_NUM.DBF , , .

.

2.2.3

:

1)         Windows;

2)         ;

3)         ;

4)         a:\setup b:\setup ( , 3,5) Enter ;

5)         .

, , Visual FoxPro .

, . (, , , ). . .

250 . (.2.3).


.2.3. " "

2.2.4

.

:

1)         IBM - Pentium 166 ;

2)         ;

3)         32 ;

4)         2 ;

5)         SVGA;

6)         1 ;

7)         ;

8)         , Windows ( ).

: Windows 95/98 .

2.2.5

, . , : , , , . , , .

2.2.6 Visual Fox Pro 5.0

, , . (), . , .

, , . .

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

( ). , -, . , . , .

. Visual FoxPro ( Microsoft) . , FoxPro, . . FoxPro , , , , , , , .. , , SQL, . , - .

Visual FoxPro Windows 95-98, 100 MB 8 MB.

FoxPro

, :

1)         .

2)         Visual FoxPro . , . , ;

3)         -: ;

4)         , , ( Rushmore);

5)         - ;

6)         , , . ; ;

7)         Visual FoxPro, Visual FoxPro (, ) ;

8)         , , , , ;

9)         Visual FoxPro SQL, , ;

10)      ;

11)      ;

12)      FoxPro , Windows, .. , .

Windows- , . , FoxPro , , , ; ; . , FoxPro .

Visual FoxPro , [11].

- Visual Fox Pro Microsoft, .

-, Fox Pro, .

-, Visual Fox Pro , ( -) Windows 95-98 - .

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

-, Visual Fox Pro -. - , Inter Base .

2.2.7 - InterBase

InterBase ( InterBase ) , , on-line. InterBase (snapshot), .

InterBase - , ., / , InterBase .

, , , , "" . , , . , . InterBase , InterBase, . , , , , UDF ( ), InterBase ( , ISQL).

, InterBase.

/ Visual FoxPro . , . , , , .

, , , SQL- .

, . , , InterBase , (, ). , . - , . , (snapshot) , .

, InterBase, SQL-, . , , , SQL-.

, InterBase, . InterBase Microsoft Visual FoxPro 5.0.

- , .

InterBase ODBC . , /, SQL , . , SQL.

2.2.8

. , (. ). , . , , .

:

1)         , , , ;

2)         ;

3)         .

. :

1)         ;

2)         ;

3)         , .

. :

- , N - D - .

OSI .

(. 2.2 - 2.10) , -: , , ..

 

2.2 SCHET.dbf

1 2 3 4
NUM_CSHET C 3
NAME C 80
TYPE C 4
OSTATOK C 5
ANALITIC C 1

2.3 - SPRMOL.dbf

1 2 3 4
TAB_NUM C 5
SURNAME C 15
FIRST_NAME C 12
SCND_NAME C 15
KOD_PODR C 3
TELEFON 10
NAIM_PODR 25

2.4 SPR_PODR.dbf

1 2 3 4
KOD_PODR C 3
D_MAIN 3
NAME 20

2.5 SPR_GR_OS.dbf

1 2 3 4
KOD N 3.0
NAME 80

2.6 SPR_NORM_IZN.dbf

1 2 3 4
SHIFR_NACH_IZN N 5
NAME 80
N N 4.1

2.7 spr_v_op.dbf

1 2 3 4
ID N 1
NAME C 20

2.8 OSI .dbf

1 2 3 4
TAB_NUM C 5
SURNAME C 15
FIRST_NAME C 12
SCND_NAME C 15
KOD_PODR C 3
TELEFON 10
NAIM_PODR 25
IN N 6,0
IN 0 N 6,0
NAME 23,0
DATE IN D 8,0
DATE V D 8,0
JAR VIP 4,0
DATE PER D 8,0
DATE S D 8,0
IN 4,0
V 4,0
PER 4,0 Ns
S 4,0
KOL N 6,0
BALS N 10,2
OST STOIM N 10.2
IZNOS P N 10,2
SHIFR NACH IZN N 5,0
NACH IZNOS N 10,2
G NORMA IZ N 4,1
KODPODR1 3.0 ( )
KODPODR2 3,0 ( )
STATUS 15,0
GRUPPA N 3.0
VID OS N 1.0
TAB N MOL 5,0
DEB IZN 3,0
KRED IZN 3,0
DEB VVOD 3,0
KRED VVOD 3,0
DEB SPIS 3,0
KRED SPIS 3,0
AN VVOD 3,0
AN SPIS 3,0
AN IZN 3,0

2.9 Book .dbf

1 2 3 4
DATE D 8
KOD_DOC N 5
ID N 1
DB C 3
KR C 3
SUMMA N 10

2.10 Oborot .dbf

1 2 3 4
SCH C 3
D_S N 10
K_S N 10

2.3 .

Visual FoxPro. , , , .

Project.exe. : Visual FoxPro, ..., , .

, .

:

1)         ;

2)         ;

3)         ;

4)         ;

5)         ;

6)         ;

7)         .

:

1)         / .

2)         .

3)         .

4)         .

5)         .

6)         .

- , , , .

- () .

- .

- .

- .

- .

, .

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


. 2.4.

<>, :

- ( ).

- , . (). .

- . .

- - .

- .

- : , , . .

- .

- .

.

.

- (. . = . . - .)

, .

.

<> OSl.dbf, . <>.

/ , OSl.dbf. . / . . <>. . < > .

, , . :

1)         ;

2)         ;

3)         .

.

/

(. 2.5) :

1)         ;

2)         ;

3)         .

. 2.5.

(. 2.6) , . :

1)         ;

2)         , ;

3)         ;

4)         ;

5)         .

, , .


. 2.6.

. 2.

. . :

1)         ;

2)         ;

3)         ;

4)         .

3.

, . , .

(. 2.7) ( ). / ѻ . , , <>.


. 2.7.

, . . . , , . , .

(. 2.8) , . , , .


. 2.8.

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

( ) . " " " " (. 2.9).


. 2.9.


, , , , . , .

. , .

. , , . / . , .

, . , Visual Fox Pro , . , . . . Visual Fox Pro . - , , . , , , , . , . .

.. . : /0 , , , , ; / . ; / ; / . . ; / , .


 3.

 

3.1

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

. 3.1.

3.1

, .× .
40
45

35

52

130

38
340

3.2

, :

1)         ;

2)         ;

3)         ;

4)         ;

5)         .

, , . .

, , . 3.2.

3.2

, ,

,

, .
0,7 0,8 340 0,6 114,24

() :

,(3.1)


i- i- , ;

i- i- ( i=0.7¸0.9);

i- i- , ;

- , /×;

i- ;

n - .

=0,7*0,8*340*0,6=114,24 .

, (, , ).

, .3.3.

3.3

, .×

 , / , .

-

.-

20

2

2

340

15,5

15,5

9

2,65

310

31

18

901
1260

() :

,(3.2)

i- i- , .;

i- , .×;

i- ;

n- , .

=15,5*20 +15,5*2 +9*2 +2,65*340=1260 .

:

,(3.3)

i- i- , .

i- i- , .

. 3.1.

, 35,6% 0,2% ( ) , . , :

(1260-901)*0,358=128,52 .

, . , .3.4.

3.4

, . , % , / , , .
20000 20 1500 300 800
800

:

,(3.4)

i- i- , .;

i- i- , %;

i- i- , ;

i- i- , /;

i- ;

n- .

:

,(3.5)

Ni- i- , ;

5 ( ).


- - , , , , . 70% ( ):

1260*0,7=882 .

, . 3.5.

3.5
, .

, :

.

.

.

.

114,24

1260

128,52

800

882
3184,76

 

3.3 ()

() , , () . () :


, (3.6.)

- ( . 3.5), .;

- . % ( 20-30% ).

= 3184,76 * ( 1 + 0,25) = 3980,95 .

3.4

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

. .

, .. .

, . .

Visual FoxPro 5.0. -, - , , , . Visual Fox Pro -.

350 - 400 .. (, - ). : Microsoft Office 97 MS Access 310 - 340 ..; Delphi Desktop 450 .. Visual FoxPro , .

, :

3.6.

, ..
CPU Celeron 733 65.74
MB GIGABYTE 6VEM-VG VIA 56
128 Mb PC133 21.17
HDD 10Gb U100 Maxtor 65.74
32 Mb nVidia TNT M64 28.56
CD-ROM 40x Teac 44.02
15 NEC V521 171.36
Miditower ATX 20
Mitsumi Classic 11
Genius NetScroll 7
BK300I(MI) APC 300VA 84.52
Acorp-100 TP 10/100 Mbps 8
() SAMSUNG ML-1210 220.53
PILOT GL 18
Windows98 50
Visual FoxPro 400
1271,64

: 1271,64 *31,25= 39738,75 .

20.05.2002 -̻.

- () . Windows 95-98, (, ) Netware Windows NT. . Acorp-100 TP 10/100 Mbps 8 ( 8 31.25= 250 .). , , , . . - . - , . . SAMSUNG ML-1210.

 

3.5 -

.

- .

, ( , , . - ; - ).

:

1)         ;

2)         ;

3)         ();

4)         ;

5)         ;

6)         .

- , - .

: , . , .

, , . , .

, .

, . , .

. , - .

, , , , .

- , : , . , , 2-3 , . , , , , . , :

1)         , , ;

2)         , , : .

, , - . -, , . , , , , , , [1|.

- , , .

.

, . , - - (). , - .

, , , . , ( ) .

, , . , , .

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

, , [3].


4.

 

4.1 ,

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

 

4.2 ,

.

-:

1)         ;

2)         ;

3)         ;

4)         ;

5)         .

, , 220 .

1)         (, );

2)         : - ;

, , , , .

3)         .

4.3

105-95 -2 (), .

21-01-97 - .

, , [13].

 

4.4 -

- 2.2.4.548-96.

1 - 120 / ( 139 ), , .

1996 2.2.2.542 - 96 , . :

1) - 680-800 ;

2) , , , ;

3) - 50-70 ;

4) 2 ;

5) - 6 2, - 20 3;

6) , 300-500 ;

7) .

, 2.2.4.548-96 1 (.4.1. ):

4.1. ,

20-21,9 24,1-25 19,0-26,0 15-75 0,1 0,1
21,0-22,9 25,1-28,0 20.0-29,0 15-75 0,1 0,2

, .

.

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

: , 15 .

, 300 500 . .

.

, , . , . , .

4.5 .

 

4.5.1

, . - , , , , , . :

1)         , ;

2)         ;

3)         , , , , .

4.5.2

2 , 15 .

:

1)         ;

2)         ;

3)         .

60000 40000. .

15 , . . 10-12 . , 1700 .

. , -.

, [16].

4.5.3

:

1)         , ;

2)         ( ), 220, 50;

3)         ;

4)         ( ..), - , ;

5)         (, ..);

6)         ;

7)         ;

8)         , ;

9)         .


4.6

:

1)         : , , -5 - , , ;

2)         ;

3)         ;

4)         [14].

4.7

. . ( ) , . , , :

1)         ;

2)         , (.. , );

3)         , , .;

4)         ;

5)         .

4.8

. , . , . . , , .

, , , . (), , . , , - . , , . . . , +12. - 148 = 5250 2, 3348 , 2600 , , 750 . 919 2, 1670 2. , , 59 , 21 , 27 . +2.

5000 . +9.30 :

-5 (-7) 3606 .;
-8 5000 .;
500 .;
-5 () 5 .;
-22 1 .;
-24 1 .

, . .

. :

1)         , ;

2)         __ . __ . , , , ;

3)         , ;

4)         ;

5)         ;

6)         Ϲ4 ( 4, . ) +5.;

7)         Ϲ6 ( ) +4.5., +9.3.;

8)         +6.;

9)         , , , .

- , , Ϲ8 , . Ļ, .

 

4.9 -

, , , , , .

.

, , 80% . . , , .

, -

4.9.1

. , - . 1÷4.

( ) .

4.2. ,

ρ , ∙-2
1 2200
2 1401÷2200 2
3 181÷1400 2
4 1÷180

102. 1

1. 4 , 1÷180, .

2. 2 3 Q Q≥0,64∙g∙H2, 1 2 .

, () , , , Q () :

Q = ∑GiQPHi,

, Gi- i- , .

QPHi- i- , ∙-1.

ρ (∙-2) ρ = Q/S,

S - , 2 ( 10 2).

:

1)         (6 . 35 ):

6*35=210 ;

2)         (8 . 5 ):

8*5=40 ;

3)         (1 .-5 ):

1*5=5 ;

4)         (1 .-35):

1*35=35 ;

5)         (2 . 40 ):

2*40= 80;

6)         :

1*80=80;

7)         : 182*3=54;

8)         : 1*15=15;

9)         : 1*6=6.

:

( ) - 13,8 /;

() - 13,8 /;

(, ) - 13,4 /;

(, ) - 13,4 /;

- 20,292 /;

- 39 /;

:

Q = (210+40+5+80)*13,8 + 35*13,8+ (15+6)*39 + 54*20,3 + 80*13,4 = 8093,2

:

r =Q/S= 8093,2/18 = 449,62 ,

2 (Q>0,64∙r∙H2):

0,64*449,62*32 = 2589,81

8093,2 > 2589,81

, 2, 2.

, , , Ӗ5.

 

4.9.2

, . , :

Q = Q + Q + Q + Q + Q,

Q , ;

Q ;

Q ;

Q ;

Q , ;

Q .

1). Q = P h0 b

:P , ,

-70 ;

-200 ;

-15 .

P = 70+200+15=285

h0 . 0,1 (h0 =0,1);

b- ;

b=0,5

Q =285*0,1*0,5=14,25

2). Q = P a b cos j

: P , , -8 . 40 ;

P =8*40 =320 ;

a- ( a=0,1);

b- (b=0,5);

cos j - , 0,7.

Q =320*0,1*0,5*0,7 = 11,2

3). Q = n q

: n ;

n = 3;

q ;

q= 100

Q = 3*100 = 300

(Q) , :Q - Q =0

Q = 14,25 + 11,2 + 300 =325,45

, :

L = ,


L (3/);

Q , , ;

, 1,2 /3;

t , (t =28 );

t , C (t =22,2 );

L = 3,6*325,45 / 1,2*(28-22,2) = 168,34 3/

:

K= ,

, -1;

L , 3/;

V , 3.

V = 18 2 *3 = 54 3,

K= = 168,34 / 54 = 3,12 -1

, RAS-07-


.

, . , .

Visual FoxPro 5.0 , , , .

, ; , , , .

.

, "" . . . , : , .. . , .

1.         . , - , 1989.

2.         ... , 1990.

3.         ... , 1990.

4.         ., .. : , : , 1988, 255.

5.         . . .., .: , 1996, 270.

6.         .., ., B.C. . .: , 1988, 284.

7.         -4. . - .: --, 1997.

8.         .., ., .., .. - .: , 1996, 276.

9.         .. . :- , - : ; - : , 1998. 528 .

10.      19.002-80.

11.      19.003-80 , , , - .: , 1988.

12.      .. FoxPro 2.0. . - .: , 1996--352.: .

13.      .., 0.3. - , . - , 1996.

14.      .., .., .., .., ., .. . .:, , 1989. 496.; .

15.      2.2.4.548 - 96 . .

16.      2.2.2.542 - 96. , - , .: , 1996.

17.      27818-88. .


 

1


1. .

2. 1 ( ).

3. 2. ( ).

4. 3- .

5. - 1. "10" " "220" ⻻.

- 4. "071".

- 5. "070".

6. - .

7. .

8. - .

9. .

2

3


4

clear all

close all

set date german

set safety off

set deleted on

set century on

set exact off

set confirm off

set reprocess to 1

set talk off

set exclusive off

set multilocks on

set bell on

public lOpen && (.T.)

public path1

lOpen=.F.

if SetPath()

hide window all

_screen.closable=.f.

_screen.windowstate=2

if wvisible("Color Palette")

hide window "Color Palette"

endif

if wvisible("layout")

hide window Layout

endif

if wvisible("Report Designer")

hide window"Report Designer"

endif

if wvisible("Database Designer")

hide window "Database Designer"

endif

if wvisible("Print Preview")

hide window"Print Preview"

endif

if wvisible("Standard")

hide window"Standard"

endif

if wvisible("Form Controls")

hide window "Form Controls"

endif

if wvisible("Query Designer")

hide window"Query Designer"

endif

if wvisible("View Designer")

hide window "View Designer"

endif

if wvisible ("Form Designer")

hide window "Form Designer"

endif

if wvisible ("Report Controls")

hide window"Report Controls"

endif

window nowait

on error do ErrorStartOpenDatabase with error()

use con_num in 0 shared

select con_num

do while !flock()

enddo

use avexit in 0 exclusive

if avexit.avexit=1 then

begin transaction

replace avexit.avexit with 0

replace con_num.con_num with iif(con_num-1<0,0,con_num-1)

end transaction

endif

open database data1 validate shared

on error

set database to data1

select con_num

begin transaction

replace con_num.con_num with con_num.con_num+1

replace avexit.avexit with 1

end transaction

select con_num

use

lOpen=.T.

select avexit

use

wait clear

do menu.prg

read events

endif

if lOpen then

if used("con_num") then

select con_num

else

use con_num in 0

select con_num

endif

do while !flock()

enddo

if con_num.con_num=1 then

on error do ClearAll

close databases all

set exclusive on

open database data1

use os1 in 0

select os1

pack

use schet in 0

select schet

pack

use spr_gr_os in 0

select spr_gr_os

pack

use spr_mol in 0

select spr_mol

pack

use uspr_norm_izn in 0

select uspr_norm_izn

pack

use spr_podr in 0

select spr_podr

pack

use book in 0

select book

pack

wait clear

on error

endif

endif

do ClearAll

PROCEDURE ClearAll

if !used("avexit") then

use avexit in 0

endif

begin transaction

if lOpen then

select con_num

do while !flock()

enddo

replace con_num with iif(con_num-1<0,0,con_num-1)

endif

select avexit

replace avexit with 0

end transaction

unlock all

set sysmenu to default

close all

clear dlls

clear all

release all extended

cancel

ENDPROC

PROCEDURE ErrorStartOpenDataBase

PARAMETERS nError

do case

case nError=1

do form Pathzp

do ClearAll

case nError=1705

wait clear

do ClearAll

otherwise

do ClearAll

endcase

ENDPROC

FUNCTION SetPath()

local lcSys16,lcProgram,cDataPath,cDataBasePath,cRegTablePath

lcSys16 = sys(16)

lcProgram = substr(lcSys16, at(":", lcSys16) - 1)

cd left(lcProgram, rat("\", lcProgram))

use loc_data\path.dbf exclusive in 0

cDataPath=path.pathzp

path1=alltrim(path.pathzp)+'\'

cDataBasePath=alltrim(cDataPath)+'\data'

cRegTablePath=alltrim(cDataPath)+'\regtable'

use in path

set path to FORMS, LIBS, LOC_DATA, TEMP, INCLUDE, GRAPHICS, HELP, MENUS, PROGS,;

QUERYS, REPORTS, &cRegTablePath, &cDataBasePath

set classlib to wizstyle

set classlib to project additive

set classlib to appwiz additive

ENDFUNC

close databases all

use os1.dbf exclusive in 1

use book exclusive in 2

go bottom

end_rec=recno()

go top

for n = 1 to end_rec

mfield = bals * g_norma_iz

repl nach_iznos with mfield

Select book

Append blank

Replace book.date with date()

Replace book.kod_doc with month(date)

Replace book.id with 3

Replace book.db with os1.deb_izn

Replace book.kr with os1.kred_izn

Replace book.summa with mfield

Append blank

mField=os1.ost_stoim-mfield

Replace book.date with date ()

Replace book.kod_doc with month (date)

Replace book.id with 4

Replace book.db with os1.deb_izn

Replace book.kr with os1.kred_izn

Replace book.summa with mfield

select os1

skip 1

next n

*endfor

close databases all

messagebox( ',0 + 64,'')

local obk, obd, f_month

ThisForm.Combo1.BoundColumn=2

f_month=ThisForm.Combo1.Value

ThisForm.Combo1.BoundColumn=1

select oborot

zap

obk=0

obd=0

select schet

go top

do while not eof ()

select book

scan for (db=schet.num_cshet) and (month(book.date)=val(ThisForm.Combo1.Value))

obd=obd+summa

endscan

scan for (kr=schet.num_cshet) and (month(book.date)=val (ThisForm.Combo1.Value))

obk=obk+summa

endscan

select oborot

appe blank

replace sch with schet.num_cshet

Replace d_s with obd

Replace k_s with obk

select schet

obd=0

obk=0

skip

enddo

ThisForm.Combo1.BoundColumn=2

Report form Oborot preview

- . .. ()

 

 

 

! , , , .
. , :