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