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

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

DEACTIVATE WINDOW BROWSE

DEACTIVATE WINDOW BROWSE1

ENDCASE

ENDDO

ON KEY

RETURN

***Пункт меню ДОБАВИТЬ ЧИТАТЕЛЯ

PROCEDURE APPENDREADER

SELECT A

N=RECCOUNT()+1