Разработка информационной системы "Цветы" для компании "AMF тАУ международная сеть доставки цветов"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
д_Составляющей, [Зеленая cоставляющая букета].Количество_Единицы AS [Зеленая Составляющая букета_Количество_Единицы], [Упаковочная составляющая букета].Код_строки AS [Упаковочная составляющая букета_Код_строки], [Упаковочная составляющая букета].Код_Букета AS [Упаковочная составляющая букета_Код_Букета], [Упаковочная составляющая букета].Код_Упаковки, [Упаковочная составляющая букета].Количество_Единицы AS [Упаковочная составляющая букета_Количество_Единицы], Доставка.Код_Заказа AS Доставка_Код_Заказа, Доставка.Дата_Доставки, Доставка.Оплачено, Доставка.Код_Курьера AS Доставка_Код_Курьера, Доставка.Адрес, Доставка.Фамилия AS Доставка_Фамилия, Доставка.Имя AS Доставка_Имя, Доставка.Отчество AS Доставка_Отчество, Доставка.[Контактный телефон] AS [Доставка_Контактный телефон], Доставка.[Время доставки], Доставка.[Цена доставки], Курьер.Код_курьера AS Курьер_Код_курьера, Курьер.Фамилия AS Курьер_Фамилия, Курьер.Имя AS Курьер_Имя, Курьер.Отчество AS Курьер_Отчество, Курьер.Активен, Курьер.ТелефонКурьер INNER JOIN ((((Букет INNER JOIN Заказ ON Букет.Код_букета = Заказ.Код_букета) INNER JOIN [Зеленая cоставляющая букета] ON Букет.Код_букета = [Зеленая cоставляющая букета].Код_Букета) INNER JOIN [Упаковочная составляющая букета] ON Букет.Код_букета = [Упаковочная составляющая букета].Код_Букета) INNER JOIN Доставка ON Заказ.Код_Заказа = Доставка.Код_Заказа) ON Курьер.Код_курьера = Доставка.Код_Курьера;
Запрос График курьера (см.рис.2)
Рис. 2 Запрос График курьера
Программный код запроса График курьера в SQL
[Курьер.Фамилия]+" "+[Курьер.Имя]+" "+[Курьер.Отчество] AS ФИОкурьера, Курьер.Телефон, Заказ.Номер_Заказа, Доставка.Дата_Доставки, Доставка.Адрес, [Доставка.Фамилия]+" "+[Доставка.Имя]+" "+[Доставка.Отчество] AS ФИОКому, Доставка.[Контактный телефон], Доставка.[Время доставки], Доставка.Оплачено, Заказ.[Цена заказа], IIf([Оплачено],"оплачено","Итого к оплате:"+CStr([Цена заказа])) AS Выражение1, Доставка.ПрошлаКурьер INNER JOIN ((Букет INNER JOIN Заказ ON Букет.Код_букета = Заказ.Код_букета) INNER JOIN Доставка ON Заказ.Код_Заказа = Доставка.Код_Заказа) ON Курьер.Код_курьера = Доставка.Код_Курьера(((Доставка.Дата_Доставки)=[Сформировать график на дату:]) AND ((Доставка.Прошла)=False Or (Доставка.Прошла) Is Null));
Запрос Для поиска букета по теме (см. рис.3)
Рис. 3 Запрос Для поиска букета по теме
Программный код запроса Для поиска букета по теме в SQL
Букет.Код_букета, Букет.Наименование, Букет.Описание, Букет.Фото, Букет.Тема, Букет.Цена_букета, Букет.[Стандарт/Спец]Букет(((Букет.Тема)=[Введите название темы:]) AND ((Букет.[Стандарт/Спец])=True));
Запрос Для поиска букета по цене (см.рис.4)
Рис. 4 Запрос Для поиска букета по цене
Программный код запроса Для поиска букета по цене в SQL
Букет.Код_букета, Букет.Наименование, Букет.Описание, Букет.Фото, Букет.Тема, Букет.Цена_букета, Букет.[Стандарт/Спец]Букет(((Букет.Цена_букета) Between [Нижняя граница диапозона цены] And [Верхняя граница диапозона цены]) AND ((Букет.[Стандарт/Спец])=True));
Запрос Для чека (см. рис.5)
Рис. 5 Запрос Для чека
Программный код запроса Для чека в SQL
Заказ.Код_чека, Заказ.Номер_Заказа, Заказ.Фамилия, Заказ.Имя, Заказ.Отчество, Заказ.[Контактный телефон], Букет.Наименование, Букет.Цена_букета, Заказ.[Цена заказа], Доставка.Дата_Доставки, Доставка.Оплачено, Доставка.Код_Курьера, Доставка.Адрес, Доставка.Фамилия, Доставка.Имя, Доставка.Отчество, Доставка.[Контактный телефон], Доставка.[Время доставки], Доставка.[Цена доставки], Букет.Код_букета(Букет INNER JOIN Заказ ON Букет.Код_букета = Заказ.Код_букета) LEFT JOIN Доставка ON Заказ.Код_Заказа = Доставка.Код_Заказа(((Заказ.Номер_Заказа)=[Введите номер заказа:]));
Запрос Для чека 2 (см.рис.6)
Рис. 6 Запрос Для чека 2
Программный код запроса Для чека 2 в SQL
[Для чека].*, [Курьер.Фамилия]+" "+Left([Курьер.Имя],1)+"."+Left([Курьер.Отчество],1) AS ФИОкурьера, [Заказ.Фамилия]+" "+[Заказ.Имя]+" "+[Заказ.Отчество] AS ФИОпокупателя, [Доставка.Фамилия]+" "+[Доставка.Имя]+" "+[Доставка.Отчество] AS ФИОполучателя, CStr([Код_букета])+" - "+[Наименование] AS ОписБукетаКурьер RIGHT JOIN [Для чека] ON Курьер.Код_курьера = [Для чека].Код_Курьера;
Запрос Для отчета флористам 1 (см.рис.7)
Рис. 7 Запрос Для отчета флористам 1
Программный код запроса Для отчета флористам 1 в SQL
SELECT Букет.Описание, Букет.Цена_букета, Букет.[Стандарт/Спец], Заказ.Номер_Заказа, Заказ.Дата_Заказа, CStr([Букет.Код_букета])+" - "+[Букет.Наименование] AS Выражение1, [Название]+"("+CStr([Зеленая cоставляющая букета.Количество_Единицы])+")шт "+[Цвет]+" "+[Упаковка.Наименование]+"-"+[Артикул]+"("+CStr([Упаковочная составляющая букета.Количество_Единицы])+")шт" AS СоставУпаковка INNER JOIN ([Единица композиции] INNER JOIN (((Букет INNER JOIN Заказ ON Букет.Код_букета = Заказ.Код_букета) INNER JOIN [Зеленая cоставляющая букета] ON Букет.Код_букета = [Зеленая cоставляющая букета].Код_Букета) INNER JOIN [Упаковочная составляющая букета] ON Букет.Код_букета = [Упаковочная составляющая букета].Код_Букета) ON [Единица композиции].Код_единицы = [Зеленая cоставляющая букета].Код_Составляющей) ON Упаковка.Код_Упаковки = [Упаковочная составляющая букета].Код_Упаковки(((Заказ.Дата_Заказа)=[Введите дату, на которую следует составить отчет]));
Запрос Для флористов 2 (см.рис.8)
Рис. 8 Запрос &#