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

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

*       *                                                        

*       * _0J8113ZDD  ON SELECTION BAR 9 OF POPUP запросы        

*       *                                                        

*       * Procedure Origin:                                      

*       *                                                        

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

*       * Called By:  ON SELECTION BAR 9 OF POPUP запросы         

*       * Prompt:     Поиск самого популярного вида электроприборов

*       * Snippet:    11                                         

*       *                                                        

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

*

PROCEDURE _0j8113zdd

SELECT TOP 1 Electrical_devices.type, Electrical_devices.naimenov,;

  Electrical_devices.weight, Electrical_devices.proizvodit,;

  Electrical_devices.price, Electrical_devices.kol_prodan;

 FROM "d:\ngtu\субд\rgr\electrical-devices" Electrical_devices;

 ORDER BY Electrical_devices.kol_prodan DESC;

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

*       *                                                        

*       * _0J8113ZDH  ON SELECTION BAR 1 OF POPUP сортировка     

*       *                                                        

*       * Procedure Origin:                                      

*       *                                                        

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

*       * Called By:  ON SELECTION BAR 1 OF POPUP сортировка     

*       * Prompt:     дате выпуска                               

*       * Snippet:    12                                         

*       *                                                         

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

*

PROCEDURE _0j8113zdh

close all

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

erase d:\ngtu\субд\rgr\electrical-devices.idx

index on data_vipus to d:\ngtu\субд\rgr\electrical-devices.idx

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

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

*       *                                                        

*       * _0J8113ZDJ  ON SELECTION BAR 2 OF POPUP сортировка     

*       *                                                        

*       * Procedure Origin:                                      

*       *                                                        

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

*       * Called By:  ON SELECTION BAR 2 OF POPUP сортировка     

*       * Prompt:     поставщику                                 

*       * Snippet:    13                                         

*       *                                                        

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

*

PROCEDURE _0j8113zdj

close all

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

erase d:\ngtu\субд\rgr\electrical-devices.idx

index on postavshik to d:\ngtu\субд\rgr\electrical-devices.idx

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

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

*       *                                                        

*       * _0J8113ZDL  ON SELECTION BAR 3 OF POPUP сортировка     

*       *                                                        

*       * Procedure Origin:                                      

*       *                                                        

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

*       * Called By:  ON SELECTION BAR 3 OF POPUP сортировка     

*       * Prompt:     весу                                       

*       * Snippet:    14                                          

*       *