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

@ 3,7 SAY 'База данных "ЧИТАТЕЛИ БИБЛИОТЕКИ"'

@ 4,17 SAY '(вариант № 21)'

@ 6,2 SAY 'Выполнил: студент группы УИ-198 Сидоров А.В.'

@ 7,2 SAY ' Принял: доцент Гришин В.С.'

@ 11,21 SAY 'ВВЕДИТЕ ПАРОЛЬ:' GET PAS DEFAULT SPACE(10)

READ

DO CASE

CASE PAS#'332087S'

WAIT 'НЕ ПРАВИЛЬНО ВВЕДЕН ПАРОЛЬ' WINDOW

OTHERWISE

PS=1

RELEASE WINDOW BEGIN

ENDCASE

ENDDO

*** Открытие баз данных и установка связей

USE READERS IN A ORDER 1

USE BOOKS IN B ORDER 1

SET RELATION TO NOMBIL INTO B

SET SKIP TO B

*** Описание окон

DEFINE WINDOW F1 FROM 12,27 TO 20,73;

TITLE ' ПОМОЩЬ ';

COLOR W+/G DOUBL SHADOW

DEFINE WINDOW F3 FROM 13,10 TO 22,69;

TITLE ' ВЫДАТЬ КHИГУ ';

COLOR SCHEME 5 DOUBL SHADOW

DEFINE WINDOW SELECT FROM 3,2 TO 14,78;

TITLE ' ВЫБОР КHИГИ ';

COLOR W+/GR,W+/GR,W+/GR,W+/GR,,W+/N