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

ENDIF

DEACTIVATE WINDOW EXIT

ELSE

WAIT 'В списке нет книг!' WINDOW

ENDIF

DO KEY

RETURN

***Процедура назначения клавиш

PROCEDURE KEY

ON KEY LABEL F1 DO HELP

ON KEY LABEL F2 DO DELETE

ON KEY LABEL F3 DO POISKBOOK

ON KEY LABEL F4 DO EDIT

RETURN

***Процедура вывода информации на печать и в файл

PROCEDURE DOLGMEN

GO TOP

I=1

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

IF FOUND()

? ALLTRIM(STR(I)),'. ',FIO,' Hомер билета: ',NOMBIL

A=NOMBIL

ENDIF

DO WHILE FOUND()

IF A#NOMBIL

A=NOMBIL

I=I+1

? ALLTRIM(STR(I)),'. ',FIO,' Hомер билета: ',NOMBIL

ENDIF