Главная » Информатика » Лабораторная работа Средства создания меню

Лабораторная работа Средства создания меню

Кафедра ЭВМ
Базы данных
Лабораторная работа №5
Средства создания меню

Кафедра ЭВМ
Базы данных
Лабораторная работа №5
Средства создания меню

Цель работы: изучить средства создания меню, предоставляемые разработчику программного обеспечения в СУБД FoxPro.

Задание: разработать программу, в которой определяется и используется горизонтальное меню (с помощью команд DEFINE MENU, DEFINE PAD, …).

Файл menushka.prg:
clear
deactivate menu menu
define menu menu bar at line 1 key alt+2 mark chr(254)
define pad open of menu prompt \'\\<Open\'
define pad browse of menu prompt \'\\<Browse\'
define pad append of menu prompt \'\\<Append\'
define pad delete of menu prompt \'\\<Delete\'
define pad sort_by_fa of menu prompt \'\\<by Family\'
define pad sort_by_da of menu prompt \'\\<by Date\'
define pad hide of menu prompt \'\\<Hide\'
define pad activ of menu prompt \'\\<Activate\'
define pad quit of menu prompt \'\\<Exit\'

on selection menu menu;
do tmenu in menushka with menu(),pad()
activate menu menu nowait

procedure tmenu
parameter mmenu,mpad
wait window \'Выбрана опция \'+mpad nowait
set mark of pad(pad()) of menu to;
!mrkpad(\'menu\',pad())&&

if mpad=\'OPEN\'
select a
use c:\\first in a
endif

if mpad=\'BROWSE\'
browse
endif

if mpad=\'APPEND\'
go bottom
append blank
browse
endif

if mpad=\'DELETE\'
go bottom
delete
pack
endif

if mpad=\'SORT_BY_FA\'
index on family to c:\\first_f.idx
use c:\\first index c:\\first_f.idx
browse
endif

if mpad=\'SORT_BY_DA\'
use c:\\first
index on date to c:\\first_d.idx
use c:\\first index c:\\first_d.idx
browse
endif

if mpad=\'HIDE\'
hide menu all
endif

if mpad=\'ACTIV\'
activate menu menu
endif

if mpad=\'QUIT\'
deactivate menu menu
release menu menu
endif
return

Скачать полную версию можно по ссылке…

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Pin It on Pinterest