Создание базы данных “Электроприборы”, страница 4

*       *                                                        

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

*

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD _0j8113zc0 OF _MSYSMENU PROMPT "Работа с базой данных" COLOR SCHEME 3 ;

                  KEY CTRL+H, "CTRL+H"

DEFINE PAD _0j8113zc1 OF _MSYSMENU PROMPT "Запросы" COLOR SCHEME 3 ;

                  KEY CTRL+P, "CTRL+P"

DEFINE PAD _0j8113zc2 OF _MSYSMENU PROMPT "Выход" COLOR SCHEME 3 ;

                  KEY CTRL+D, "CTRL+D"

ON PAD _0j8113zc0 OF _MSYSMENU ACTIVATE POPUP работасбаз

ON PAD _0j8113zc1 OF _MSYSMENU ACTIVATE POPUP запросы

ON SELECTION PAD _0j8113zc2 OF _MSYSMENU set sysmenu to default

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 _0j8113zcn ;

                  IN LOCFILE("D:\NGTU\СУБД\RGR\ELECTRICAL-DEVICES" ,"MPX;MPR|FXP;PRG" ,"WHERE is ELECTRICAL-DEVICES?")

ON SELECTION BAR 2 OF работасбаз ;

                  DO _0j8113zcq ;

                  IN LOCFILE("D:\NGTU\СУБД\RGR\ELECTRICAL-DEVICES" ,"MPX;MPR|FXP;PRG" ,"WHERE is ELECTRICAL-DEVICES?")

ON SELECTION BAR 3 OF работасбаз ;

                  DO _0j8113zcs ;

                  IN LOCFILE("D:\NGTU\СУБД\RGR\ELECTRICAL-DEVICES" ,"MPX;MPR|FXP;PRG" ,"WHERE is ELECTRICAL-DEVICES?")

ON SELECTION BAR 4 OF работасбаз ;

                  DO _0j8113zcu ;

                  IN LOCFILE("D:\NGTU\СУБД\RGR\ELECTRICAL-DEVICES" ,"MPX;MPR|FXP;PRG" ,"WHERE is ELECTRICAL-DEVICES?")

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 "Поиск приборов заданного производителя с весом в заданных  пределах"

DEFINE BAR 8 OF запросы PROMPT "Поиск доли приборов за определённый период"

DEFINE BAR 9 OF запросы PROMPT "Поиск самого популярного вида электроприборов"

ON SELECTION BAR 1 OF запросы ;

                  DO _0j8113zd0 ;

                  IN LOCFILE("D:\NGTU\СУБД\RGR\ELECTRICAL-DEVICES" ,"MPX;MPR|FXP;PRG" ,"WHERE is ELECTRICAL-DEVICES?")

ON BAR 2 OF запросы ACTIVATE POPUP сортировка

ON BAR 3 OF запросы ACTIVATE POPUP поисквзави

ON SELECTION BAR 4 OF запросы ;

                  DO _0j8113zd3 ;

                  IN LOCFILE("D:\NGTU\СУБД\RGR\ELECTRICAL-DEVICES" ,"MPX;MPR|FXP;PRG" ,"WHERE is ELECTRICAL-DEVICES?")

ON SELECTION BAR 5 OF запросы ;

                  DO _0j8113zd5 ;

                  IN LOCFILE("D:\NGTU\СУБД\RGR\ELECTRICAL-DEVICES" ,"MPX;MPR|FXP;PRG" ,"WHERE is ELECTRICAL-DEVICES?")

ON SELECTION BAR 6 OF запросы ;

                  DO _0j8113zd7 ;

                  IN LOCFILE("D:\NGTU\СУБД\RGR\ELECTRICAL-DEVICES" ,"MPX;MPR|FXP;PRG" ,"WHERE is ELECTRICAL-DEVICES?")

ON SELECTION BAR 7 OF запросы ;

                  DO _0j8113zda ;

                  IN LOCFILE("D:\NGTU\СУБД\RGR\ELECTRICAL-DEVICES" ,"MPX;MPR|FXP;PRG" ,"WHERE is ELECTRICAL-DEVICES?")

ON SELECTION BAR 8 OF запросы ;

                  DO _0j8113zdb ;