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

@ 1,2 SAY 'Ф.И.О.' GET FIOe

@ 3,2 SAY 'АДРЕС ' GET ADDRe

@ 5,2 SAY 'HОМЕР БИЛЕТА - '+ALLTRIM(STR(N))

@ 5,32 GET I FUNCTION;

'*H OK;ОТМЕHА' SIZE 1,1,4

READ CYCLE

IF I=1

REPLACE FIO WITH FIOe, ADDR WITH ADDRe

ENDIF

DEACTIVATE WINDOW F4

DO BROWSE1

SELECT B

DO KEY

RETURN

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

PROCEDURE BROWSE1

ACTIVATE WINDOW BROWSE1 BOTTOM

@ 0,2 SAY 'Читатель: '+FIO

@ 1,2 SAY 'Адрес: '+ADDR

@ 2,2 SAY '№ билета: '+ALLTRIM(STR(NOMBIL))

RETURN

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

PROCEDURE POISKBOOK

ON KEY

ON KEY LABEL F1 DO F1

CLEAR READ

SELECT B

GO TOP

ACTIVATE WINDOW F3 BOTTOM