Программирование в среде FoxPro. Создание базы данных “Бакалея”, страница 6

SET SYSMENU AUTOMATIC

DEFINE PAD _0uo16xecf OF _MSYSMENU PROMPT "База данных" COLOR SCHEME 3 ;

       KEY CTRL+I, "CTRL+I"

DEFINE PAD _0uo16xecg OF _MSYSMENU PROMPT "Сортировка" COLOR SCHEME 3 ;

       KEY CTRL+S, "CTRL+S"

DEFINE PAD _0uo16xech OF _MSYSMENU PROMPT "Поиск" COLOR SCHEME 3 ;

       KEY CTRL+F, "CTRL+F"

DEFINE PAD _0uo16xeci OF _MSYSMENU PROMPT "О работе" COLOR SCHEME 3 ;

       KEY CTRL+A, "CTRL+A"

ON PAD _0uo16xecf OF _MSYSMENU ACTIVATE POPUP базаданных

ON SELECTION PAD _0uo16xecg OF _MSYSMENU do form sort

ON PAD _0uo16xech OF _MSYSMENU ACTIVATE POPUP поиск

ON SELECTION PAD _0uo16xeci OF _MSYSMENU do form about

DEFINE POPUP базаданных MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF базаданных PROMPT "показать"

DEFINE BAR 2 OF базаданных PROMPT "редактировать"

DEFINE BAR 3 OF базаданных PROMPT "выход"

ON SELECTION BAR 1 OF базаданных ;

       DO _0uo16xecj ;

       IN LOCFILE("..\MYRGR14\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

ON SELECTION BAR 2 OF базаданных do form edit

ON SELECTION BAR 3 OF базаданных ;

       DO _0uo16xeck ;

       IN LOCFILE("..\MYRGR14\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

DEFINE POPUP поиск MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF поиск PROMPT "цены"

DEFINE BAR 2 OF поиск PROMPT "прибора с ценой в заданных пределах"

DEFINE BAR 3 OF поиск PROMPT "прибора по производителю"

DEFINE BAR 4 OF поиск PROMPT "прибора по дате выпуска"

DEFINE BAR 5 OF поиск PROMPT "прибора по весу"

DEFINE BAR 6 OF поиск PROMPT "доли приборов за период продажи"

DEFINE BAR 7 OF поиск PROMPT "прибора по популярности"

ON BAR 1 OF поиск ACTIVATE POPUP цены

ON SELECTION BAR 2 OF поиск do form price

ON SELECTION BAR 3 OF поиск do form proizvod

ON SELECTION BAR 4 OF поиск do form data

ON SELECTION BAR 5 OF поиск do form ves

ON SELECTION BAR 6 OF поиск do form data_prod

ON SELECTION BAR 7 OF поиск ;

       DO _0uo16xecl ;

       IN LOCFILE("..\MYRGR14\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

DEFINE POPUP цены MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF цены PROMPT "самый дорогой прибор"

DEFINE BAR 2 OF цены PROMPT "самый дешевый прибор"

DEFINE BAR 3 OF цены PROMPT "средняя стоимость в целом"

DEFINE BAR 4 OF цены PROMPT "средняя стоимость по виду"

ON SELECTION BAR 1 OF цены ;

       DO _0uo16xecp ;

       IN LOCFILE("..\MYRGR14\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

ON SELECTION BAR 2 OF цены ;

       DO _0uo16xecq ;

       IN LOCFILE("..\MYRGR14\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

ON SELECTION BAR 3 OF цены do "avg_price.qpr"

ON SELECTION BAR 4 OF цены do "avg_name_price.qpr"

*       *********************************************************

*       *                                                         

*       * _0UO16XECJ  ON SELECTION BAR 1 OF POPUP базаданных     

*       *                                                        

*       * Procedure Origin:                                      

*       *                                                         

*       * From Menu:  MENU.MPR,            Record:    5          

*       * Called By:  ON SELECTION BAR 1 OF POPUP базаданных     

*       * Prompt:     показать                                   

*       * Snippet:    1                                           

*       *                                                        

*       *********************************************************

*

PROCEDURE _0uo16xecj

Select 1

Browse

*       *********************************************************

*       *                                                        

*       * _0UO16XECK  ON SELECTION BAR 3 OF POPUP базаданных