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 базаданных
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.