.


:




:

































 

 

 

 


-




- .

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

: , , , -

.

. CASE [2], [3], - [4,5]. ,

. . , , , .

, ,

- .

- , , , .. , .

 

.

, . , , - . , , . - . , - , . Visual FoxPro [1,6] .

.

- (, , , ..). , . , , . Visual FoxPro F , ( ): < P_ORDER(N,5), P_COND(,60), P_OBJ(C,10), P_FORM(C,60), P_COMM(C,80) >, P_ORDER - , P_COND - , , P_OBJ - ( - ), P_FORM - , , P_COMM- . ( Visual FoxPro).

select T

go top

DO WHILE!eof()

select F

go top

DO WHILE!eof()

vcond=alltrim(P_COND)

vobj=alltrim(P_OBJ)

vform=alltrim(P_FORM)

select T

IF &vcond &&

IF UPPER(substr(vobj,1,1))='X'

&vobj=&vform && -

ELSE

replace &vobj with &vform && -

ENDIF

ENDIF

select F

skip

ENDDO

select T

skip

ENDDO

:

-

, ;

-

, ( ), , x (x1, x2, ..) , - ;

- F P_ORDER.

.

, , . SPEC = {ST1, ST2,, STn},

T1,T2,, Tn , , ST T. Visual FoxPro :

Field_name(C,10) - ;

Field_type (C,1) - ;

Field_len (N,3) - ;

Field_dec (N,3) -

( NUMERIC)

Field_recv (C,80) -

Field_dom (C,80) -

, .

- .

- . S={s1, s2, ,sn}. si = < t, l1, l2,, lk, m1, m2,, mk >,(i=1..n), t , li (i=1..k) , i- , mi (i=1..k) (), i- . Visual FoxPro - :

TMENU (MEMO) ;

Link1(N,5),Link2(N,5),Link3(N,5), Link4(N,5),Link5(N,5), Link6(N,5),

Link7(N,5),Link8(N,5),Link9(N,5),Link10(N,5) , ;

Meth1(MEMO),Meth2(MEMO),Meth3(MEMO),Meth4(MEMO),Meth5(MEMO), Meth6(MEMO),Meth7(MEMO),Meth8(MEMO), Meth9(MEMO), Meth10(MEMO) , .

10- . :

stop - -;

reset - , ;

back

-





:


: 2016-09-06; !; : 636 |


:

:

! . .
==> ...

1839 - | 1639 -


© 2015-2024 lektsii.org - -

: 0.013 .