2
:
:
II:
PLZES
05
: IV
- 406 . 6601/2
㳿
:
. . .
- 2013
1.
2. -
3. PLAN, :
KIMOD N 9 0
VARTIMOD N 9 0 KIMPLAN N 9 0 VARTIPLAN N 9 0
4. ( ) ROZRAX.PRG, Visual Fox Pro 9.0 .
5. () PLZES.DBF.
ֳ : ' .
: PLAN, PRIM, NORM, ZENA.
: - ROZRAX.PRG PLZES.DBF, ROZRAX.PRG.
ճ :
1) - :
KIMOD = NVD * ZASTD
2) - :
VARTIMOD = KIMOD * CINA
3) ʳ - :
KIMPLAN = KIMOD * PL
4) - :
VARTIPLAN = VARTIMOD * PL
-
.1
PLAN,
PLAN05 VISUAL FOXPRO 9.0. D:\Karanfil\GR2\VFP9 :
USE PLAN05
MODIFY STRUCTURE
ϳ Table Designer - plan05 ( . 1).
( ..1)
| Name () | Type () | Width () | Decimal (ʳ ) |
| KIMOD | Numeric | ||
| VARTIMOD | Numeric | ||
| KIMPLAN | Numeric | ||
| VARTIPLAN | Numeric |
|
|
|
³ Table Designer :
OK
: Make structure changes permanent? Yes, .
4. ROZRAX.PRG, Visual FoxPro 9.0 .
, ROZRAX05.PRG :
MODI COMM ROZRAX05
ϳ :
:
* 㳿
* , 4 6601/2, 6
Close all
set talk off
set safe off
sele 1
use plan05
sele 2
use prim05
join with A to plpr05 for kp=A.kp
use
sele 1
use plpr05
sele 2
use norm05
join with to plno05 for kd=A.kd
use
sele 1
use plno05
sele 2
use zena05
join with to plze05 for km=A.km
use plze05
repl all kimod with nvd*zastd
repl all vartimod with kimod*cina
repl all kimplan with kimod*plan
repl all vartiplan with vartimod*plan
use
use plze05
sort on kp, km to plzes05
use plzes05
list
ϳ , . . YES().
ϳ DO ROZRAX05 :
