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

DO WHILE D=0

CLEAR READ

I=0

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

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

@ 5,3 SAY 'ГОД ИЗДАHИЯ: ' GET YEAR1 FUNCTION'ZZZZ' PICTURE '9999' DEFAULT 0

@ 7,3 SAY 'ИHВ. HОМЕР: ' GET INVNOM1 FUNCTION 'ZZZZ' PICTURE '9999' DEFAULT 0

@ 7,26 GET I FUNCTION;

'*H ВЫБОР..;OK;ОТМЕHА' SIZE 1,1,4

READ CYCLE

***Формирование переменной для поиска

P='.T.'

P=P+IIF(EMPTY(WRITER1), '','.AND.WRITER=['+PROPER(ALLTRIM(WRITER1))+']')

P=P+IIF(EMPTY(NAME1), '','.AND.NAME=['+(UPPER(SUBSTR(ALLTRIM(NAME1),1,1));

+SUBSTR(ALLTRIM(NAME1),2,39))+']')

P=P+IIF(EMPTY(YEAR1), '','.AND.YEAR='+STR(YEAR1))

P=P+IIF(EMPTY(INVNOM1), '','.AND.INVNOM='+STR(INVNOM1))

P=P+'.AND.NOMBIL=0'

DO CASE

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

D=1

DEACTIVATE WINDOW F3

DO KEY

RETURN

CASE (I=1.OR.I=2).AND.P=='.T..AND.NOMBIL=0'

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

CASE I=1

***Выбор книги из списка книг по введенным данным

GO TOP