Реферат База даних для обліку оплати за міжміські розмови

g

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