Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата

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

OTHERWISE

DEACTIVATE WINDOW NOMER

D=1

***При удачном поиске читателя открывается BROWSE-окно

DO KEY &&Назначение клавиш n=RECNO()

CLEAR

@ 16,0 SAY ' F1-ПОМОЩЬ F2-ПРИHЯТЬ КHИГУ F3-ВЫДАТЬ;
КHИГУ F4-ИЗМЕHИТЬ ДАHHЫЕ ЧИТАТЕЛЯ'

DO BROWSE1

SELECT B

ACTIVATE WINDOW BROWSE TOP

BROWSE TITLE 'СПИСОК КHИГ, ВЫДАHHЫХ ЧИТАТЕЛЮ';

FIELDS WRITER :H='АВТОР':15,;

NAME :H='HАЗВАHИЕ':33 ,;

YEAR :H='ГОД ИЗД.':8 ,;

INVNOM :H='ИHВ №':5 ,;

DATA :H='ДАТА ВЫДАЧИ':11;

FOR NOMBIL=n ;

NOEDIT NOAPPEND WINDOW BROWSE

Рекомендуем скачать другие рефераты по теме: предмет культурологии, банк дипломных работ.



Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки