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

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

this.List(7)="ЧП Иванов"

this.List(8)="Карамель"

this.List(9)="Конфетная"

this.List(10)="ЧП Сидоров"

this.List(11)="Восточная"

this.List(12)="Морозко"

this.List(13)="Пекарня №90"

this.List(14)="Леденцово"

this.List(15)="Зеленоград"

Код метода Click кнопки «Найти долю…», «Назад»:

firma = thisform.combo1.value

SELECT (Postavka.кол_во*100)/Table5.sum_кол_во as процент_от_общего_количесва FROM postavka,table5 WHERE  Postavka.фирма = ( firma )

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

RELEASE WINDOWS

DO FORM ".\form8.scx"

Рис. 32. Результат

Поиск товара по дате изготовления

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

Код метода Click кнопки «Найти все изделия…», «Назад»:

datav = thisform.text1.value

SELECT Izdelie.название, Izdelie.вид, Izdelie.дата_изг,Izdelie.место_изг, Izdelie.цена_руб, Izdelie.вес_грамм FROM izdelie WHERE  Izdelie.дата_изг = datav 

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

RELEASE WINDOWS

DO FORM ".\form8.scx"

Рис. 34. Результат

Поиск товара по цене и весу

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

Код метода Click кнопок «Найти все изделия с весом», «Назад»:

ves = thisform.text1.value

cena1 = thisform.text2.value

cena2 = thisform.text3.value

SELECT Izdelie.название, Izdelie.вид, Izdelie.дата_изг,Izdelie.место_изг, Izdelie.цена_руб, Izdelie.вес_грамм FROM izdelie WHERE  Izdelie.цена_руб <= cena2 AND  Izdelie.цена_руб >= cena1 AND  Izdelie.вес_грамм = ves

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

RELEASE WINDOWS

DO FORM ".\form8.scx"

Рис. 36. Результат

Найти товары от заданного поставщика и заданной ценой

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

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

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

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

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

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

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

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

this.List(7)="ЧП Иванов"

this.List(8)="Карамель"

this.List(9)="Конфетная"

this.List(10)="ЧП Сидоров"

this.List(11)="Восточная"

this.List(12)="Морозко"

this.List(13)="Пекарня №90"

this.List(14)="Леденцово"

this.List(15)="Зеленоград"

Код метода Click кнопки «Найти все изделия…», «Назад»:

firma1 = thisform.combo1.value

cena1 = thisform.text1.value

SELECT Izdelie.название, Izdelie.цена_руб, Postavka.фирма;

 FROM ;

     izdelie ;

    FULL JOIN postavka ;

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

 WHERE  Izdelie.цена_руб > cena1;

   AND  Postavka.фирма = firma1

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

RELEASE WINDOWS

DO FORM ".\form8.scx"

Рис. 38. Результат

Найти все изделия от заданного производителя

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

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

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

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

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

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

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

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

this.List(7)="ЧП Иванов"

this.List(8)="Карамель"

this.List(9)="Конфетная"

this.List(10)="ЧП Сидоров"

this.List(11)="Восточная"

this.List(12)="Морозко"

this.List(13)="Пекарня №90"

this.List(14)="Леденцово"

this.List(15)="Зеленоград"

Код метода Click кнопки «Найти все изделия…», «Назад»:

firma1 = thisform.combo1.value

SELECT Postavka.название, Postavka.фирма, Postavka.кол_во, Postavka.брак,;

  Postavka.город;

 FROM postavka;

 WHERE  Postavka.фирма = firma1

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

RELEASE WINDOWS

DO FORM ".\form8.scx"

Рис. 40. Результат

Найти долю дешевого товара

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

Код метода Click кнопки «Найти долю товара…», «Назад»:

cena5 = thisform.text1.value

SELECT (Postavka.кол_во*100)/Table5.sum_кол_во as процент_от_общего_количесва,izdelie.название;

Скачать файл