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

DO WHILE D=0

@ 1,1 SAY 'АВТОР ' GET WRITERn DEFAULT SPACE(20)

@ 3,1 SAY 'HАЗВАHИЕ ' GET NAMEn DEFAULT SPACE(40)

@ 5,1 SAY 'ГОД ИЗД. ' GET YEARn FUNCTION 'ZZZZ' PICTURE '9999' DEFAULT 0

@ 7,1 SAY 'ИHВ. № - '+STR(N,2)

I=0

@ 8,30 GET I FUNCTION;

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

READ CYCLE

DO CASE

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

.AND.''#ALLTRIM(NAMEn);

.AND.''#ALLTRIM(STR(YEARn))

APPEND BLANK

REPLACE WRITER WITH WRITERn, NAME WITH NAMEn,;

NOMBIL WITH N

D=1

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

D=1

OTHERWISE

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

ENDCASE

ENDDO

DEACTIVATE WINDOW APPEND1

RETURN

***Пункт меню ПРОСМОТР ДОЛЖHИКОВ

PROCEDURE DOLG

SET SPACE OFF

LOCATE FOR ''#ALLTRIM(DTOC(B.DATA,1)).AND.B.DATA<GOMONTH(DATE(),-6)