Создание базы данных, в которой удобно и быстро вести учет финансовой деятельности фирмы, занимающийся покупкой/продажей антиквариатов, страница 5

cur1.фамилия_продавца;

FROM cur1 INNER JOIN myrgr!type_anticvariata;

ON  cur1.id_тип_антиквариата = type_anticvariata.id_тип_антиквариата;

ORDER BY cur1.дата_поступл_на_фирму, cur1.наименование

Рис.14 Запрос третий.

Рис.15 Результат запроса.

4) Найти объем продаж заданного типа антиквариата за последний квартал, год – за этот же период: среднюю цену, самую дорогую, самую дешёвую вещь.

Код поиска объема продаж:

DO CASE

              CASE this.parent.comboperiod.value = "квартал"

                            ?           

                            SELECT SUM(цена_руб);

                            FROM myrgr!anticvariat;

                            WHERE anticvariat.id_тип_антиквариата ==(SELECT id_тип_антиквариата FROM myrgr!type_anticvariata;

                                                         WHERE тип_антиквариата= this.parent.ComboTypeAntic2.value);

                            AND month(anticvariat.дата_продажи_фирмой) between (month(DATE()) - 4) and month(DATE());

                            AND year(anticvariat.дата_продажи_фирмой) == year(DATE())

*                          MessageBox ("Сумма проджанных антиквариатов:" %sum_цена_руб)

              CASE this.parent.comboperiod.value = "год"

                            ?           

                            SELECT SUM(цена_руб);

                            FROM myrgr!anticvariat;

                            WHERE anticvariat.id_тип_антиквариата ==(SELECT id_тип_антиквариата FROM myrgr!type_anticvariata;

                                                         WHERE тип_антиквариата= this.parent.ComboTypeAntic2.value);

                            AND year(anticvariat.дата_продажи_фирмой) == year(DATE())

ENDCASE

Рис.16 Запрос четвертый.

Рис.17 Результат запроса.

Код поиска средней цены:

avgcost = 0

DO CASE

              CASE this.parent.comboperiod.value = "квартал"

                            ?           

                            SELECT AVG(цена_руб);

                            FROM myrgr!anticvariat;

                            WHERE anticvariat.id_тип_антиквариата ==(SELECT id_тип_антиквариата FROM myrgr!type_anticvariata;

                                                         WHERE тип_антиквариата= this.parent.ComboTypeAntic2.value);

                            AND month(anticvariat.дата_продажи_фирмой) between (month(DATE()) - 4) and month(DATE());

                            AND year(anticvariat.дата_продажи_фирмой) == year(DATE());

                            INTO ARRAY avgcost

                            thisform.pageframe1.page3.text4.value = avgcost

              CASE this.parent.comboperiod.value = "год"

                            ?           

                            SELECT AVG(цена_руб);

                            FROM myrgr!anticvariat;

                            WHERE anticvariat.id_тип_антиквариата ==(SELECT id_тип_антиквариата FROM myrgr!type_anticvariata;

                                                         WHERE тип_антиквариата= this.parent.ComboTypeAntic2.value);

                            AND year(anticvariat.дата_продажи_фирмой) == year(DATE());

                            INTO ARRAY avgcost

                            thisform.pageframe1.page3.text4.value = avgcost

ENDCASE

Код поиска самого дорогого антиквариата:

SELECT MAX(цена_руб);

FROM myrgr!anticvariat;

WHERE month(anticvariat.дата_продажи_фирмой) between (month(DATE()) - 4) and month(DATE());

AND year(anticvariat.дата_продажи_фирмой) == year(DATE());

INTO CURSOR cur12

SELECT MAX(цена_руб);

FROM myrgr!anticvariat;

WHERE year(anticvariat.дата_продажи_фирмой) == year(DATE());

INTO CURSOR cur13

DO CASE

              CASE this.parent.comboperiod.value = "квартал"