INTERNET
 :
  |    

/

, . /

-

 

:

..

____________

612.004

1998.

-

: ___________________________________________________________________

________________________________________________________

________________________________________________________________________________

(, , )

:________________________________________________________________

:

______

__________________________________________________________________________________

__________________________________________________________________________________

__________________________________________________________________________________

__________________________________________________________________________________

__________________________________________________________________________________

:

1.   :

__________________________________________________________________________________

__________________________________________________________________________________

__________________________________________________________________________________

2.   :

__________________________________________________________________________________

__________________________________________________________________________________

_________________ ______________

____________________________________________

________________________________________


1. .

1.1. .

1.2. .

2. .

3. ER- .

4. .

5. .

6. .

7. .

1..

1.1. .

.

. , ,

, , .

, 18:00 8:00 , 젠 .

7 .

P :

P=K*t,

- K-

- P-

1. , P.

2. , P , .

3. , .

1.2. 4.

1. ,

100000 .

2. , . .

3. .


2. .

1.

av

N

7

dolg

N

7

data_v

Date

8

n_t

C

8

n_z

N

1

fio

C

20

...

tar

N

7

t

N

3

data_raz

Date

8

br

C

5


3. ER-.

1

1

1

1

1

1

1

N



4.

Abon 2

FIO

N_t

ZONA 3.

N_Z

Tar

Plata 4.

AV

DOLG

DATA_V

N_T

N_Z

Razg 5.

t

Br

Data-razg

N_z

N_t


3

2

1

5.

6.

Z 4.PRG

clear

set safe off

set talk off

close database

define menu ats bar at line 3

define pad x1 of ats prompt " 1-3"

define pad x2 of ats prompt ""

define pad x3 of ats prompt ""

on pad x1 of ats activ popup xx1

on pad x2 of ats activ popup xx2

on pad x3 of ats quit

define popup xx1 from 4,1 to 11,11

define bar 1 of xx1 prompt " 1"

define bar 2 of xx1 prompt " 2"

define bar 3 of xx1 prompt " 3"

on sele bar 1 of xx1 do zapros1

on sele bar 2 of xx1 do zapros2

on sele bar 3 of xx1 do zapros3

define popup xx2 from 4,12 to 12,20

define bar 1 of xx2 prompt ""

define bar 2 of xx2 prompt ""

define bar 3 of xx2 prompt ""

define bar 4 of xx2 prompt ""

on sele popup xx2 do basa with bar()

activ menu ats

deactiv menu ats

procedure basa

parameters k

close database

do case

case k=1

use abon

browse

use

case k=2

use mts

browse

use

case k=3

use plata

browse

use

case k=4

use razg

browse

use

case k=5

use zona

browse

use

endcase

7. .

zapros1.prg

close database

use abon

use plata in 2

index on n_t to abon

sele 2

index on n_t to plata

sele 1

set rela to n_t into 2

set filter to b.dolg>100000

brow fields a.fio,b.dolg

set rela to

set filter to


zapros2.prg

clear

set safe off

close database

set talk off

sele 1

use razg

index on n_z to k1

sele 2

use zona

index on n_z to k2

sele 1

set rela to n_z into 2

set skip to 2

c=date()

@ 2,10 say " " get c

read

v=0

@ 4,10 say " " get v

read

set filter to a.data_razg=c.and. b.n_z=v

browse fields a.data_razg,b.n_z,a.t,b.tar

X1=a.T

X2=b.Tar

h=a.T*b.tar

?h,a.n_t

set filter to

close database


zapros3.prg

clear

set safe off

close database

set talk off

sele 1

use razg

index on n_z to k1

sele 2

use zona

index on n_z to k2

sele 1

set rela to n_z into 2

set skip to 2

c=date()

@ 2,10 say " " get c

read

v=0

@ 4,10 say " " get v

read

set filter to a.data_razg=c.and. b.n_z=v

browse fields a.data_razg,b.n_z,a.t,b.tar

X1=a.T

X2=b.Tar

h=a.T*b.tar

?h,a.n_t

set filter to

close database


Copyright © 2005—2007 «RefStore.Ru»