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

find_dolya.scx (обработчик кнопки «Найти»)

close all

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

calculate sum(kol_prodan) to s1

calculate sum(kol_prodan) for between(data_prod,find_dolya.Text1.Value,find_dolya.Text2.Value) to s2

clear

find_dolya.Text3.Value=ROUND((s2/s1)*100,2)

find_proizvod.scx (обработчик кнопки «Найти»)

SELECT ELECTRICAL_DEVICES.Type,ELECTRICAL_DEVICES.Naimenov,;

    ELECTRICAL_DEVICES.Data_vipus,ELECTRICAL_DEVICES.Postavshik,;

    ELECTRICAL_DEVICES.Price,ELECTRICAL_DEVICES.Weight,;

    ELECTRICAL_DEVICES.Proizvodit,ELECTRICAL_DEVICES.Data_prod,;

    ELECTRICAL_DEVICES.Kol_prodan;

    FROM D:\NGTU\СУБД\RGR\ELECTRICAL-DEVICES.DBF ELECTRICAL_DEVICES;

    WHERE (ELECTRICAL_DEVICES.Proizvodit==find_proizvod.Text1.Value);

    ORDER BY ELECTRICAL_DEVICES.Proizvodit

find_proizvod_weight_beetwen.scx (обработчик кнопки «Найти»)

SELECT ELECTRICAL_DEVICES.Type,ELECTRICAL_DEVICES.Naimenov,;

    ELECTRICAL_DEVICES.Data_vipus,ELECTRICAL_DEVICES.Postavshik,;

    ELECTRICAL_DEVICES.Price,ELECTRICAL_DEVICES.Weight,;

    ELECTRICAL_DEVICES.Proizvodit,ELECTRICAL_DEVICES.Data_prod,;

    ELECTRICAL_DEVICES.Kol_prodan;

    FROM D:\NGTU\СУБД\RGR\ELECTRICAL-DEVICES.DBF ELECTRICAL_DEVICES;

    WHERE (ELECTRICAL_DEVICES.Proizvodit==find_proizvod_weight_beetwen.Text1.Value AND BETWEEN(ELECTRICAL_DEVICES.Weight,find_proizvod_weight_beetwen.Text2.Value,find_proizvod_weight_beetwen.Text3.Value));

    ORDER BY ELECTRICAL_DEVICES.Proizvodit

price_beetwen.scx (обработчик кнопки «Найти»)

SELECT ELECTRICAL_DEVICES.Type,ELECTRICAL_DEVICES.Naimenov,;

    ELECTRICAL_DEVICES.Data_vipus,ELECTRICAL_DEVICES.Postavshik,;

    ELECTRICAL_DEVICES.Price,ELECTRICAL_DEVICES.Weight,;

    ELECTRICAL_DEVICES.Proizvodit,ELECTRICAL_DEVICES.Data_prod,;

    ELECTRICAL_DEVICES.Kol_prodan;

    FROM D:\NGTU\СУБД\RGR\ELECTRICAL-DEVICES.DBF ELECTRICAL_DEVICES;

    WHERE (BETWEEN(ELECTRICAL_DEVICES.PRICE,price_beetwen.Text1.Value,price_beetwen.Text2.Value));

    ORDER BY ELECTRICAL_DEVICES.Price

weight_beetwen.scx (обработчик кнопки «Найти»)

SELECT ELECTRICAL_DEVICES.Type,ELECTRICAL_DEVICES.Naimenov,;

    ELECTRICAL_DEVICES.Data_vipus,ELECTRICAL_DEVICES.Postavshik,;

    ELECTRICAL_DEVICES.Price,ELECTRICAL_DEVICES.Weight,;

    ELECTRICAL_DEVICES.Proizvodit,ELECTRICAL_DEVICES.Data_prod,;

    ELECTRICAL_DEVICES.Kol_prodan;

    FROM D:\NGTU\СУБД\RGR\ELECTRICAL-DEVICES.DBF ELECTRICAL_DEVICES;

    WHERE (BETWEEN(ELECTRICAL_DEVICES.Weight,weight_beetwen.Text1.Value,weight_beetwen.Text2.Value));

    ORDER BY ELECTRICAL_DEVICES.Weight

8.Тексты программ

Ниже приводится текст программы меню, сгенерированный мастером.

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

*       *                                                         

*       * 11/21/01       ELECTRICAL-DEVICES.MPR         17:18:51 

*       *                                                        

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

*       *                                                         

*       * Author's Name                                          

*       *                                                        

*       * Copyright (C) 2001 Company Name                        

*       * Address                                                 

*       * City,     Zip                                          

*       *                                                        

*       * Description:                                           

*       * This PROGRAM was automatically generated BY GENMENU.   

*       *                                                        

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

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

*       *                                                        

*       *                      Menu Definition