Реферат: Разработка СУБД FoxPro 2.0

RELEASE H

LOCATE FOR &P

DO WHILE FOUND()

DECLARE H(X)

H(X)=WRITER+NAME+' '+;

ALLTRIM(STR(YEAR))+' '+;

ALLTRIM(STR(INVNOM))

CONTINUE

X=X+1

ENDDO

J=1

IF X#1

ACTIVATE WINDOW SELECT

@ 9,1 SAY 'ESC - ОТМЕHА; ENTER - ВЫБОР КHИГИ'

@ 0,0 GET J FROM H SIZE 9,75 VALID(B());

COLOR GR/GR,,,,,W+/B,,,W+/B,W+/B

READ CYCLE

DEACTIVATE WINDOW SELECT

IF LASTKEY()#27

WRITER1=SUBSTR(H(J),1,20)

NAME1=SUBSTR(H(J),21,40)

YEAR1=VAL(SUBSTR(H(J),62,4))

INVNOM1=VAL(SUBSTR(H(J),68))

ENDIF

ELSE

WAIT 'Hет книг для выбора!' WINDOW

ENDIF

OTHERWISE

GO TOP