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

DOUBLE SHADOW COLOR GR+/GR

DEFINE WINDOW AddWindow FROM 3,13 TO 18,67;

TITLE ' Дополнение базы данных ';

FLOAT SHADOW SYSTEM COLOR SCHEME 8

DEFINE WINDOW FindWindow FROM 5,13 TO 19,70;

TITLE 'Информация о фильме' DOUBLE

SET MESSAGE WINDOW MainWindow

DEFINE MENU MainMenu BAR AT LINE 0 IN WINDOW MainWindow;

COLOR SCHEME 10

DEFINE PAD DataMenu OF MainMenu PROMPT 'ДАННЫЕ';

MESSAGE 'Работа с базами данных'

DEFINE PAD SearchMenu OF MainMenu PROMPT 'ПОИСК';

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

DEFINE PAD FiltrMenu OF MainMenu PROMPT 'ФИЛЬТРАЦИЯ';

MESSAGE 'Фильтр просмотра данных'

DEFINE PAD QuitMenu OF MainMenu PROMPT 'ВЫХОД';

MESSAGE 'Выход из программы'

ON SELECTION PAD DataMenu OF MainMenu ACTIVATE POPUP DataPopup

ON SELECTION PAD SearchMenu OF MainMenu ACTIVATE POPUP SearchPopup

ON SELECTION PAD FiltrMenu OF MainMenu ACTIVATE POPUP FiltrPopup

ON SELECTION PAD QuitMenu OF MainMenu ACTIVATE POPUP QuitPopup

DEFINE POPUP DataPopup FROM 1,0 IN WINDOW MainWindow COLOR SCHEME 10

DEFINE BAR 1 OF DataPopup PROMPT 'Просмотр данных';

MESSAGE 'Просмотр данных без внесения изменений'

DEFINE BAR 2 OF DataPopup PROMPT 'Редактирование данных';

MESSAGE 'Просмотр данных с возможностью изменения данных'

ON SELECTION POPUP DataPopup DO BrowseData WITH BAR()

DEFINE POPUP PrintPopup FROM 8,32;

TITLE 'Вывод данных' IN SCREEN COLOR SCHEME 10