Информатика и выч. техника \ Базы данных

Создание и заполнение базы данных «Кондитерские изделия», страница 4

  (Klient.колво_мес*Izdelie.вес_грамм) AS общий_вес;

 FROM ;

     table3,;

    izdelie ;

    FULL JOIN klient ;

   ON  Izdelie.название = Klient.название;

 WHERE  ( Klient.колво_мес*Izdelie.цена_руб ) = Table3.min_exp_3

ENDIF

IF y == '3'

      SELECT Izdelie.название, Table3.min_exp_6 AS общая_стоимость,;

  (Klient.колво_3мес*Izdelie.вес_грамм) AS общий_вес;

 FROM ;

     table3,;

    izdelie ;

    FULL JOIN klient ;

   ON  Izdelie.название = Klient.название;

 WHERE  ( Klient.колво_3мес*Izdelie.цена_руб ) = Table3.min_exp_6

ENDIF

IF y == '6'

      SELECT Izdelie.название, Table3.min_exp_9 AS общая_стоимость,;

  (Klient.колво_6мес*Izdelie.вес_грамм) AS общий_вес;

 FROM ;

     table3,;

    izdelie ;

    FULL JOIN klient ;

   ON  Izdelie.название = Klient.название;

 WHERE  ( Klient.колво_6мес*Izdelie.цена_руб ) = Table3.min_exp_9

ENDIF

------------------------------------

y = thisform.combo1.value

IF y == '1'

      SELECT Izdelie.название, Table3.avg_exp_2 AS общая_стоимость,;

  (Klient.колво_мес*Izdelie.вес_грамм) AS общий_вес;

 FROM ;

     table3,;

    izdelie ;

    FULL JOIN klient ;

   ON  Izdelie.название = Klient.название;

 WHERE  ( Klient.колво_мес*Izdelie.цена_руб ) = Table3.avg_exp_2

ENDIF

IF y == '3'

      SELECT Izdelie.название, Table3.avg_exp_5 AS общая_стоимость,;

  (Klient.колво_3мес*Izdelie.вес_грамм) AS общий_вес;

 FROM ;

     table3,;

    izdelie ;

    FULL JOIN klient ;

   ON  Izdelie.название = Klient.название;

 WHERE  ( Klient.колво_3мес*Izdelie.цена_руб ) = Table3.avg_exp_5

ENDIF

IF y == '6'

      SELECT Izdelie.название, Table3.avg_exp_8 AS общая_стоимость,;

  (Klient.колво_6мес*Izdelie.вес_грамм) AS общий_вес;

 FROM ;

     table3,;

    izdelie ;

    FULL JOIN klient ;

   ON  Izdelie.название = Klient.название;

 WHERE  ( Klient.колво_6мес*Izdelie.цена_руб ) = Table3.avg_exp_8

ENDIF

------------------------------------

y = thisform.combo1.value

IF y == '1'

      SELECT Izdelie.название, Table3.max_exp_1 AS общая_стоимость,;

  (Klient.колво_мес*Izdelie.вес_грамм) AS общий_вес;

 FROM ;

     table3,;

    izdelie ;

    FULL JOIN klient ;

   ON  Izdelie.название = Klient.название;

 WHERE  ( Klient.колво_мес*Izdelie.цена_руб ) = Table3.max_exp_1

ENDIF

IF y == '3'

      SELECT Izdelie.название, Table3.max_exp_4 AS общая_стоимость,;

  (Klient.колво_3мес*Izdelie.вес_грамм) AS общий_вес;

 FROM ;

     table3,;

    izdelie ;

    FULL JOIN klient ;

   ON  Izdelie.название = Klient.название;

 WHERE  ( Klient.колво_3мес*Izdelie.цена_руб ) = Table3.max_exp_4

ENDIF

IF y == '6'

      SELECT Izdelie.название, Table3.max_exp_7 AS общая_стоимость,;

  (Klient.колво_6мес*Izdelie.вес_грамм) AS общий_вес;

 FROM ;

     table3,;

    izdelie ;

    FULL JOIN klient ;

   ON  Izdelie.название = Klient.название;

 WHERE  ( Klient.колво_6мес*Izdelie.цена_руб ) = Table3.max_exp_7

ENDIF

------------------------------------

DO query9.qpr

BROWSE

------------------------------------

RELEASE WINDOWS

DO FORM ".\form8.scx"

Содержимое запроса  query9.qpr:

SELECT MAX(Klient.колво_мес*Izdelie.цена_руб),;

  AVG(Klient.колво_мес*Izdelie.цена_руб),;

  MIN(Klient.колво_мес*Izdelie.цена_руб),;

  MAX(Klient.колво_3мес*Izdelie.цена_руб),;

  AVG(Klient.колво_3мес*Izdelie.цена_руб),;

  MIN(Klient.колво_3мес*Izdelie.цена_руб),;

  MAX(Klient.колво_6мес*Izdelie.цена_руб),;

  AVG(Klient.колво_6мес*Izdelie.цена_руб),;

  MIN(Klient.колво_6мес*Izdelie.цена_руб);

 FROM ;

     izdelie ;

    FULL JOIN klient ;

   ON  Izdelie.название = Klient.название;

 INTO TABLE table3 

Рис. 30. Результат (на примере поиска количества товара, проданного за 3 месяца)

Доля товара от заданного поставщика, от общего количества

Рис.31 Меню запроса

Код метода Initэлемента ComboBox:

this.List(1)="Сладость"

this.List(2)="ЧП Петров"

this.List(3)="Ирис-Ко"

this.List(4)="Красный восток"

this.List(5)="Сахарный медвед"

this.List(6)="Сладкая фабрика"

Скачать файл