Справка – f1;

Выход – Alt + X.

• Определите команду, которая будет выполняться при выборе пункта меню «Выход». Для этого выделите данный пункт и в поле, расположенном справа от списка Result, введите команду QUIT.

• Определите последовательность команд, которая должна выполняться при выборе пункта меню «Справка». Для этого выделите пункт «Справка». Нажмите кнопку Create и в открывшемся диалоговом окне редактирования процедуры определите фрагмент кода, связанный с элементом строки меню. В нашем примере необходимо ввести следующий код (данные должны быть свои):

messagebox ("Проект разработал"+;

chr(13)+;

"Бородавкин Александр Александрович"+;

chr(13)+;

"Группа 23П"+;

chr(13)+;

chr(13)+;

"(с) НЭПК 2013 год", 0+64+0, "Справка")

Примечание:

Функция MESSAGEBOX выводит на экран диалоговое окно. Она имеет следующий формат:

Messagebox(текст_сообщения, тип_диалогового_окна, заголовок)

Аргумент тип_диалогового_окна представляет собой сумму трех параметров: типа кнопок, типа значков и номера кнопки, выбранной по умолчанию

Функция chr(13) осуществляет переход на новую строку.

• Определите подменю. Для этого выполните следующие действия:

1). Нажмите кнопку Create пункта меню «Кинотеатр». На экране появляется пустое окно конструктора меню. Список Menu Level нового окна содержит метку текущего пункта меню.

2). Введите в поле Prompt первой строки заголовок Названия. Используя список Result, задайте тип пункта Submenu. Нажмите кнопку Create. Введите в поле Prompt первой строки заголовок Кинотеатр. Используя список Result, задайте тип пункта Procedure и в окне редактирования процедуры введите

set default to c:\User\Александр\Desktop\Kursavik po BD\Forms

do form кинотеатр.scx

Закройте окно процедуры.

Примечание: В командах VFP в именах папок и файлов не должно быть пробелов.

3). Во второй строке в поле Prompt введите Кинотеатр2. Используя список Result, задайте тип пункта Procedure и в окне редактирования процедуры введите команды:

set default to c:\User\Александр\Desktop\Kursavik po BD\Forms

do form кинотеатр2.scx

Закройте окно процедуры.

4). При помощи окна Menu Level перейдите на уровень выше.

5). Во второй строке введите заголовок Адрес. Используя список Result, задайте тип пункта Submenu. Нажмите кнопку Create. Введите в поле Prompt первой строки заголовок Кинотеатр. Используя список Result, задайте тип пункта Command и в соседнем поле напечатайте команду:

report form c:\User\Александр\Desktop\Kursavik po BD\data\кинотеатр

Примечание:

При выполнении этой команды отчет будет печататься только на экране в окне VFP. Для того чтобы очистить экран после просмотра отчета нужно в командном окне ввести команду clear. Чтобы отчет выводился на печать, а не на экран нужно команду использовать в следующем формате:

report form c:\User\Александр\Desktop\Kursavik po BD\data\кинотеатр to printer

6). Во второй строке в поле Prompt введите заголовок телефоны. Используя список Result, задайте тип пункта Command и в соседнем поле напечатайте команду:

report form c:\User\Александр\Desktop\Kursavik po BD\data\телефоны

7). При помощи окна Menu Level перейдите на уровень выше.

8). Введите в поле Prompt третьей строки заголовок Районы. Используя список Result, задайте тип пункта Submenu. Нажмите кнопку Create. Введите в поле Prompt первой строки заголовок Канавинский. Используя список Result, задайте тип пункта Procedure и в окне редактирования процедуры введите

set default to c:\User\Александр\Desktop\Kursavik po BD

do канавинский.qpr

Закройте окно процедуры.

9). Во второй строке в поле Prompt введите Автозаводский. Используя список Result, задайте тип пункта Procedure и в окне редактирования процедуры введите

set default to c:\User\Александр\Desktop\Kursavik po BD

do автозаводский.qpr

Закройте окно процедуры.

10). Перейдите на первый уровень меню, выбрав в списке Menu Level пункт Menu Bar.

• Для улучшения внешнего вида меню создайте разделительные линии. Для этого выполните следующие действия:

1). Выделите пункт меню «Кинотеатр» и нажмите кнопку Edit.

2). В открывшемся подменю установите курсор на пункте «Адрес» и нажмите кнопку Insert.

3). В поле Prompt образованного пункта меню удалите строку New Item и введите \ -

4). Установите курсор на пункте «Районы» и нажмите кнопку Insert, удалите строку New Item и введите \ -

• Определите параметры меню. Для этого из меню View выберите команду General Options. В открывшемся диалоговом окне General Options в группе Location выберите вариант размещения строки созданного меню Replace. Это значит, что при выполнении созданное Вами меню будет замещать стандартное меню VFP. Затем нажмите кнопку Ok.

Примечание:

Для того, чтобы восстановить на экране стандартное горизонтальное меню VFP в командном окне введите команду:

set sysmenu to default

2. Сохраните созданное меню. Для этого в меню File выберите команду Save as, в открывшемся окне в поле Папка выберите нужную папку, в поле Save Menu введите имя сохраняемого меню Меню1. В завершении нажмите кнопку Сохранить.

3. Просмотрите созданное меню с помощью кнопки Preview окна конструктора меню.

4. Сгенерируйте созданное меню, чтобы его можно было использовать в приложении. Для этого выполните следующие действия:

• В меню Menu выберите команду Generate. При этом откроется диалоговое окно Generate Menu.

• В поле Output File введите имя файла, который будет создан в результате генерации.

• Для запуска генерации описания меню нажмите кнопку Generate.

5. Запустите программу меню на выполнение. Для этого в окне проекта установите курсор на имени созданного меню и нажмите кнопку Run. На экране появится созданное вами меню, которое будет замещать горизонтальное меню Visual FoxPro. Проверьте работоспособность каждого пункта меню.

Примечание:

Если созданное меню работает некорректно и нуждается в отладке, в окне проекта выделите его имя Меню1 и нажмите кнопку Modify. После внесения изменений меню следует заново сгенерировать, как описано в пункте 4.

6. Создайте всплывающее меню. Для этого выполните следующие действия:

• В окне проекта на вкладке All выберите группу Menus и нажмите кнопку New окна проекта.

• В появившемся диалоговом окне New Menu нажмите кнопку Shortcut. Откроется окно конструктора меню.

• В поле Prompt последовательно введите тексты пунктов меню и определите для них выполняемые действия (аналогично горизонтальному меню).

• Сохраните созданное меню с именем Меню2.

• Для генерации выберите команду Generate в меню Menu.

• Запустите созданное меню на выполнение.

7. Закройте проект.

8. Закройте приложение.