Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
ЛР4_меню_20_02_05.doc
Скачиваний:
3
Добавлен:
10.11.2019
Размер:
102.91 Кб
Скачать

4

Лабораторная работа № 4 Проектирование меню для информационной системы

Система

Оперативная база

Просмотр

Печать

Выход

Регистрация

Регистрация пассажиров

Посадочная ведомость

Посадочная ведомость

Выход

Выход

Выход

Выход

Шаг 1: Запуск конструктора меню

File, New(опция Menu), New file (Открывается окно Menu Designer)

Шаг 2: Формирование горизонтального меню

Menu Designer

Prompt Result Options Menu Level

Система Submenu ▼ Create

Опер. База Submenu Create

Просмотр Submenu Create

Печать Submenu Create

Выход Command

Item

Insert

Insert Bar

Delete

Do vihod_g in menu1.mpr

Одновременное нажатие Alt с клавишей

Shotcut

Key Label

Key Text

Do vihod_g in menu1.mpr

Prompt Options

Одновременное нажатие Alt с клавишей

Alt + C

Shotcut

Key Lable

Alt + C

Key Text

Skip For

'Система'

Message

Syst

OK

Pad Name

Шаг 3: Формирование второго уровня меню

Create для всех Submenu

Do verify with prompt( ) in menu1.mpr – команда для режима II ур. «Регистрация»

Для выхода в меню II уровня команда: Deactivate popup syst(Pad Name для режима меню I ур. «Система»)

Prompt, Result, Options (не надо заполнять Menu Level) (ввести наименование в режим Pad Name), View, Menu Options, Name (Syst)

Выход из подменю

(в Menu Level выбираем Menu Bar)

Шаг 4: Формирование процедур и начальной части программы меню (Setup и Cleanup)

View, General Options, Отметить опции Setup и Cleanup, OK

Окно Setup:

set date to british

set century on to 20

clear

set console off

define window okno1 from 0,0 ;

to 24,79 title 'Информационная система “Автоменеджер”' ;

double close float grow ;

minimize noshadow zoom color ,,w + /b, w + /b

activate window okno1

set sysmenu save

Окно Cleanup:

read events

procedure vihod_g

set sysmenu to default

deactivate window all

release windows

clear events

close database all

return

procedure verify

parameters message

clear

@ 12,10 say ' Вы выбрали режим ' + ;

message font 'Courier New', 14 ;

STYLE 'B'

wait window CHR (13) +;

`Нажмите любую клавишу …' + CHR (13)

clear

return

Шаг 5: Набор текста программ в окнах Setup и Cleanup

Шаг 6: Активизация окна Menu Designer

Шаг 7: Сохранение меню в файле на диске

File, Save As, <Выбор папки и наименование файла>,

Сохранить .mnx и .mnt

Шаг 8: Генерация программного кода меню на языке Visual FoxPro

Menu, Generate, <Наименование файла>

Generate

.mpr

Шаг 9: Формирование загрузочного модуля Menu

Program, Compile, <Выбор файла с расширением .mpr>, Compile

.mpx

Шаг 10: Запуск меню на выполнение

Program, Do, <Выбор .mpr или .mpx>, Do