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

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

*

PROCEDURE _0j8113zdl

close all

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

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

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

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

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

*       *                                                        

*       * _0J8113ZDN  ON SELECTION BAR 4 OF POPUP сортировка     

*       *                                                        

*       * Procedure Origin:                                      

*       *                                                        

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

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

*       * Prompt:     стоимости                                  

*       * Snippet:    15                                          

*       *                                                        

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

*

PROCEDURE _0j8113zdn

close all

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

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

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

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

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

*       *                                                        

*       * _0J8113ZDP  ON SELECTION BAR 5 OF POPUP сортировка     

*       *                                                        

*       * Procedure Origin:                                      

*       *                                                         

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

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

*       * Prompt:     дате продажи                               

*       * Snippet:    16                                          

*       *                                                        

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

*

PROCEDURE _0j8113zdp

close all

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

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

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

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

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

*       *                                                         

*       * _0J8113ZDS  ON SELECTION BAR 1 OF POPUP поисквзави     

*       *                                                        

*       * Procedure Origin:                                      

*       *                                                         

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

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

*       * Prompt:     самого дорогого прибора                    

*       * Snippet:    17                                          

*       *                                                        

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

*

PROCEDURE _0j8113zds

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

  Electrical_devices.weight, Electrical_devices.proizvodit,;

  Electrical_devices.price;

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

 ORDER BY Electrical_devices.price DESC;

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

*       *                                                        

*       * _0J8113ZDV  ON SELECTION BAR 2 OF POPUP поисквзави     

*       *                                                        

*       * Procedure Origin:                                      

*       *                                                        

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