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

                            FROM cur2 INNER JOIN myrgr!type_anticvariata;

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

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

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

                            ORDER BY фамилия_покупателя

              CASE thisform.pageframe1.page3.combokrit.value = "по стоимости"

              ?           

                            SELECT anticvariat.id_тип_антиквариата, anticvariat.Дата_продажи_фирмой,;

                            anticvariat.цена_руб, buyer.фамилия_покупателя, buyer.клиент;

                            FROM myrgr!anticvariat INNER JOIN myrgr!buyer;

                            ON  Anticvariat.id_покупателя = buyer.id_покупателя;

                            WHERE buyer.клиент = "Постоянный";

                            INTO CURSOR cur2

                            SELECT type_anticvariata.тип_антиквариата, cur2.Дата_продажи_фирмой, cur2.цена_руб,;

                            cur2.фамилия_покупателя, cur2.клиент;

                            FROM cur2 INNER JOIN myrgr!type_anticvariata;

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

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

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

                            ORDER BY цена_руб

ENDCASE

Рис.9 Запрос первый

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

2) Найти самый дорогой антиквариат, антиквариат самый старый по году выпуска и антиквариаты с ценой, выше заданной.

Для поиска самого дорогого код запроса:

SELECT type_anticvariata.Тип_антиквариата, anticvariat.Наименование, anticvariat.Цена_руб;

FROM myrgr!type_anticvariata INNER JOIN myrgr!anticvariat;

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

WHERE цена_руб ==(SELECT MAX(цена_руб) FROM myrgr!anticvariat);

Рис.11 Самый дорогой антиквариат

Самого старого по году выпуска:

SELECT type_anticvariata.Тип_антиквариата AS Тип_антиквариата, наименование AS Наименование, Год_выпуска AS Год_выпуска;

FROM myrgr!type_anticvariata INNER JOIN myrgr!anticvariat;

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

WHERE год_выпуска == (SELECT MIN(год_выпуска) FROM myrgr!anticvariat)

Рис.12 Самый старый антиквариат

И для поиска антиквариатов с ценой, выше заданной:

SELECT type_anticvariata.Тип_антиквариата AS Тип_антиквариата, Наименование AS Наименование_антиквариата, цена_руб AS Цена_руб;

FROM myrgr!type_anticvariata INNER JOIN myrgr!anticvariat;

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

WHERE  Цена_руб > thisform.pageframe1.page3.text1.value;

ORDER BY type_anticvariata.Тип_антиквариата, anticvariat.Наименование

Рис.13 Антиквариаты, дороже 500000руб.

3)Поиск антиквариатов, поставляемых заданным продавцом, чья дата продажи находится в заданных пределах:

SELECT  anticvariat.id_тип_антиквариата AS id_тип_антиквариата, anticvariat.наименование AS наименование, anticvariat.дата_поступл_на_фирму AS дата_поступл_на_фирму,;

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

FROM myrgr!anticvariat INNER JOIN myrgr!seller;

ON  Anticvariat.id_продавца = Seller.id_продавца;

WHERE Seller.фамилия_продавца = thisform.pageframe1.page3.combo1.value;

AND anticvariat.дата_поступл_на_фирму BETWEEN thisform.pageframe1.page3.text2.value AND thisform.pageframe1.page3.text3.value;

INTO CURSOR cur1

SELECT type_anticvariata.тип_антиквариата, cur1.наименование, cur1.дата_поступл_на_фирму,;