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

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

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

                  DO _0j8113zdd ;

                  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 "дате продажи"

ON SELECTION BAR 1 OF сортировка ;

                  DO _0j8113zdh ;

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

ON SELECTION BAR 2 OF сортировка ;

                  DO _0j8113zdj ;

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

ON SELECTION BAR 3 OF сортировка ;

                  DO _0j8113zdl ;

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

ON SELECTION BAR 4 OF сортировка ;

                  DO _0j8113zdn ;

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

ON SELECTION BAR 5 OF сортировка ;

                  DO _0j8113zdp ;

                  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 "цены, заданной в пределах"

ON SELECTION BAR 1 OF поисквзави ;

                  DO _0j8113zds ;

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

ON SELECTION BAR 2 OF поисквзави ;

                  DO _0j8113zdv ;

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

ON SELECTION BAR 3 OF поисквзави ;

                  DO _0j8113zdx ;

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

ON SELECTION BAR 4 OF поисквзави ;

                  DO _0j8113zdz ;

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

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

*       *                                                        

*       * _0J8113ZCN  ON SELECTION BAR 1 OF POPUP работасбаз     

*       *                                                         

*       * Procedure Origin:                                      

*       *                                                        

*       * From Menu:  ELECTRICAL-DEVICES.MPR,            Record:    5

*       * Called By:  ON SELECTION BAR 1 OF POPUP работасбаз     

*       * Prompt:     Просмотр данных                            

*       * Snippet:    1                                          

*       *                                                        

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

*

PROCEDURE _0j8113zcn

close all

use d:\ngtu\субд\rgr\electrical-devices

browse

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