Курсовая работа: Учет товаров в фирме по продаже аудиотехники

MESSAGE 'Вывод данных на экран'

DEFINE BAR 2 OF PrintPopup PROMPT 'В файл';

MESSAGE 'Вывод данных в файл'

DEFINE BAR 3 OF PrintPopup PROMPT 'На принтер';

MESSAGE 'Вывод данных на принтер'

ON SELECTION POPUP PrintPopup DO Print

DEFINE POPUP SearchPopup FROM 1,8 IN WINDOW MainWindow COLOR SCHEME 10

DEFINE BAR 1 OF SearchPopup PROMPT 'по названию фильма';

MESSAGE 'Поиск данных по названию фильма'

DEFINE BAR 2 OF SearchPopup PROMPT 'по типу';

MESSAGE 'Поиск данных по типу'

DEFINE BAR 3 OF SearchPopup PROMPT 'по коду';

MESSAGE 'Поиск данных по коду'

ON SELECTION POPUP SearchPopup DO SearchProc

DEFINE POPUP FiltrPopup FROM 1,15 IN WINDOW MainWindow COLOR SCHEME 10

DEFINE BAR 1 OF FiltrPopup PROMPT 'по названию фильма';

MESSAGE 'Фильтрация данных по названию фильма'

DEFINE BAR 2 OF FiltrPopup PROMPT 'по типу';

MESSAGE 'Фильтрация данных по типу'

DEFINE BAR 3 OF FiltrPopup PROMPT 'по коду';

MESSAGE 'Фильтрация данных по коду'

DEFINEBAR 4 OFFiltrPopupPROMPT 'по качеству';

MESSAGE 'Фильтрация данных по качеству'

ON SELECTION POPUP FiltrPopup DO FiltrProc

DEFINE POPUP QuitPopup FROM 1,27 IN WINDOW MainWindow COLOR SCHEME 10

DEFINE BAR 1 OF QuitPopup PROMPT '\<Выход в FoxPro'

DEFINE BAR 2 OF QuitPopup PROMPT 'Выход в Ms-Dos'

ON SELECTION POPUP QuitPopup DO EndProc WITH 2

ACTIVATE WINDOW MainWindow