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

CASE M=4

DO DOLG

CASE M=5

DO EXIT

ENDCASE

RETURN

*** Пункт меню ПОИСК ЧИТАТЕЛЯ

PROCEDURE MAIN

D=0

DO WHILE D=0

SELECT A

ACTIVATE WINDOW NOMER

@ 0,1 SAY 'Введите номер'

@ 1,4 GET A FUNCTION 'ZZZZ' PICTURE '9999' DEFAULT 0

I=0

@ 0,21 GET I FUNCTION;

'* ПОИСК;ОТМЕHА' SIZE 1,1,0

READ CYCLE

***Поиск читателя по номеру билета

DO CASE

CASE I=1.AND.EMPTY(A)

WAIT 'Hомер не был введен' WINDOW

CASE I=1.AND.!EMPTY(A).AND.!SEEK(A)

WAIT 'Поиск по номеру '+ALLTRIM(STR(A))+;

' не удачный' WINDOW

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

DEACTIVATE WINDOW NOMER

D=1

RETURN