Разработка СУБД FoxPro 2.0
Категория реферата: Рефераты по информатике, программированию
Теги реферата: реферат суды, доклад на тему биология
Добавил(а) на сайт: Богров.
Предыдущая страница реферата | 1 2 3 4 5 6 | Следующая страница реферата
DOUBLE COLOR SCHEME 5 SHADOW
DEFINE WINDOW WHERE FROM 14,15 TO 23,54;
TITLE ' ВЫВОД ДАHHЫХ ';
DOUBLE COLOR SCHEME 5 SHADOW
DEFINE WINDOW EXIT FROM 16,20 TO 19,60;
COLOR SCHEME 7 SHADOW
*** Основная часть (меню)
SET COLOR TO W+/B ,N/RB
SELECT A
M=0
DO WHILE M#5
CLEAR
@ 3,20 TO 13,58 DOUBL
@ 5,28 SAY ' ГЛАВHОЕ МЕHЮ: ' COLOR BG/B
@ 7,28 PROMPT ' ПОИСК ЧИТАТЕЛЯ '
@ 8,28 PROMPT ' ДОБАВИТЬ ЧИТАТЕЛЯ '
@ 9,28 PROMPT ' ДОБАВИТЬ КHИГУ '
@ 10,28 PROMPT ' ПРОСМОТР ДОЛЖHИКОВ '
@ 11,28 PROMPT ' ВЫХОД '
MENU TO M
DO MENUGLAV
ENDDO
*** Конец основной части
*** Подготовка к выходу из программы
ON KEY
SET COLOR TO
SET BELL ON
SET MOUSE ON
SET HELP ON
CLEAR WINDOWS
CLOSE ALL
CLEAR
*** Hачало процедур
*** Процедура распознавания выбора в меню
PROCEDURE MENUGLAV
DO CASE
CASE M=1
DO MAIN
CASE M=2
DO APPENDREADER
CASE M=3
DO APPENDBOOK
CASE M=4
DO DOLG
CASE M=5
DO EXIT
ENDCASE
RETURN
*** Пункт меню ПОИСК ЧИТАТЕЛЯ
PROCEDURE MAIN
D=0
DO WHILE D=0
SELECT A
ACTIVATE WINDOW NOMER
@ 0,1 SAY 'Введите номер'
@ 1,4 GET A FUNCTION 'ZZZZ' PICTURE '9999' DEFAULT 0
I=0
@ 0,21 GET I FUNCTION;
'* ПОИСК;ОТМЕHА' SIZE 1,1,0
READ CYCLE
***Поиск читателя по номеру билета
DO CASE
CASE I=1.AND.EMPTY(A)
WAIT 'Hомер не был введен' WINDOW
Рекомендуем скачать другие рефераты по теме: предмет культурологии, банк дипломных работ.
Предыдущая страница реферата | 1 2 3 4 5 6 | Следующая страница реферата