Разработка СУБД FoxPro 2.0
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: реферат суды, доклад на тему биология
| Добавил(а) на сайт: Богров.
Предыдущая страница реферата | 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 | Следующая страница реферата
Главная