- .
- , , , , , .. , , - .
: , , , -
.
. 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
-