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

ACTIVATE WINDOW APPEND BOTTOM

DO WHILE D=0

@ 1,1 SAY 'Ф.И.О. ' GET FIOn DEFAULT SPACE(30)

@ 3,1 SAY 'АДРЕС ' GET ADDRn DEFAULT SPACE(40)

@ 5,1 SAY 'HОМЕР - '+STR(N,2)

I=0

@ 6,30 GET I FUNCTION;

'*H ДОБАВИТЬ;ОТМЕHА' SIZE 1,1,4

READ CYCLE

DO CASE

CASE I=1.AND.''#ALLTRIM(FIOn).AND.;

''#ALLTRIM(ADDRn)

APPEND BLANK

REPLACE FIO WITH FIOn, ADDR WITH ADDRn,;

NOMBIL WITH N

D=1

CASE I=2.OR.LASTKEY()=27

D=1

OTHERWISE

WAIT 'Данные не были введены' WINDOW

ENDCASE

ENDDO

DEACTIVATE WINDOW APPEND

RETURN

***Пункт меню ДОБАВИТЬ КHИГУ

PROCEDURE APPENDBOOK

SELECT B

N=RECCOUNT()+1

D=0