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

IF !FOUND()

P=.T.

WAIT 'Книга не найдена!' WINDOW

ELSE

IF DATA#{}.AND.NOMBIL#0

WAIT 'Книга уже выдана!' WINDOW

ELSE

REPLACE DATA WITH DATE(), NOMBIL WITH n

D=1

ENDIF

ENDIF

ENDCASE

ENDDO

DEACTIVATE WINDOW F3

DO KEY

RETURN

***Процедура нажатия клавиши F2

PROCEDURE DELETE

ON KEY

CLEAR READ

SELECT B

IF NOMBIL=n

ACTIVATE WINDOW EXIT TOP

@ 0,8 SAY 'Вы хотите принять книгу?'

YN=2

@ 1,12 GET YN FUNCTION;

'*H Да;Hет' SIZE 1,1,6

READ CYCLE

IF YN=1