процедурное программирование в Fox Pro

Assembler, Basic, Pascal/Delphi, Perl, PHP, JavaScript, HTML и т.д. Вопросы и помощь.

процедурное программирование в Fox Pro

Непрочитанное сообщение Гость » 22 апр 2007, 12:02:32

Кто может!? Помогите! Я новичок!
Вот мое задание:
Написать текст программы, отображающей на экране главное меню, состоящее из 4-х пунктов: Склад, Товар, Отчеты, Выход.
Каждый пункт должен иметь падающее меню из нескольких команд.
Склад________Товар______Отчеты_____Выход
Склад1_______Трубы______Отчет1_____Выход из программ
Склад2______Сантехника___Отчет2
Организовать выход из меню.
Вот "организовать выход из меню" у меня и не получается!
Вот полный текст проги.
DEFINE MENU baza
DEFINE PAD sklad OF baza PROMPT 'склад'
DEFINE PAD tovar OF baza PROMPT 'товар'
DEFINE PAD otcheti OF baza PROMPT 'отчеты'
DEFINE PAD vixod OF baza PROMPT 'выход'
DEFINE POPUP skl
DEFINE BAR 1 OF skl PROMPT 'склад1'
DEFINE BAR 2 OF skl PROMPT 'склад2'
DEFINE BAR 3 OF skl PROMPT 'выход из меню'
DEFINE POPUP tov
DEFINE BAR 1 OF tov PROMPT 'трубы'
DEFINE BAR 2 OF tov PROMPT 'сантехника'
DEFINE BAR 3 OF tov PROMPT 'выход из меню'
DEFINE POPUP otch
DEFINE BAR 1 OF otch PROMPT 'отчет1'
DEFINE BAR 2 OF otch PROMPT 'отчет2'
DEFINE BAR 3 OF otch PROMPT 'выход из меню'
ON SELECTION BAR 3 OF skl DO proc1 WITH BAR()
ON SELECTION BAR 3 OF tov DO proc1 WITH BAR()
ON SELECTION BAR 3 OF otch DO proc1 WITH BAR()
ON PAD sklad OF baza ACTIVATE POPUP skl
ON PAD tovar OF baza ACTIVATE POPUP tov
ON PAD otcheti OF baza ACTIVATE POPUP otch
ON SELECTION PAD vixod OF baza QUIT
ACTIVATE MENU baza
PROCEDURE proc1
PARAMETERS pbar
IF BAR()=3
DEACTIVATE POPUP
ENDIF
RETURN
Как мне заставить деактивироваться любое POPUP-меню по желанию?
Гость
 

Вернуться в Программирование

Кто сейчас на форуме

Зарегистрированные пользователи: AhrefsBot [Bot], Bing [Bot], GoGo [Бот], Google [Bot], SEMrush [Бот], Trendiction [Бот], Яндекс [Бот]