9 Оформлення додатків

В звіті по РГР повинні знаходитись два додатки. У додатку А вміщуються всі діалогові вікна розробленого додатку в Access, у додатку В подаються всі запити у режимі SQL.

9.1 Приклад. Оформлення додатків Додаток а.

Рисунок 9.1 – Головна кнопкова форма бази даних

Рисунок 9.2 – Екрана форма Друк документації

Додаток б.

Запит Багато_постач_Друк вибирає необхідні дані для вихідних документів про проведення тендеру, в якому брало участь декілька постачальників:

SELECT Замовлення.№Протоколу, Замовлення.ДатаПровТендеру, Замовлення.ДатаВідпрЗам, Замовлення.ДатаПротФорми, Замовлення.ДатаЗвіту, Замовлення.ОчікСумаЗакуп, Замовлення.КільістьТовару, Замовлення.[Сума проп], Постачальник.ТипПідпр AS Постачальник_ТипПідпр, Постачальник.НаймПост AS Постачальник_НаймПост, Постачальник.[Вул,Будинок] AS [Постачальник_Вул,Будинок], Постачальник.Місто AS Постачальник_Місто, Постачальник.ОКПО AS Постачальник_ОКПО, Товар.НаймТовару, Товар.РодВідм, Пропозиція.ДатаРеєстрПроп, Пропозиція.СумаТендПроп AS Пропозиція_СумаТендПроп, Пропозиція.СумаТендПропТекст AS Пропозиція_СумаТендПропТекст, Примітка.примітки, Запрос_Переможець.СумаТендПроп AS Запрос_Переможець_СумаТендПроп, Постачальник.ТелефонПост AS Постачальник_ТелефонПост, Запрос_Переможець.СумаТендПропТекст AS Запрос_Переможець_СумаТендПропТекст, Запрос_Переможець.ТипПідпр AS Запрос_Переможець_ТипПідпр, Запрос_Переможець.НаймПост AS Запрос_Переможець_НаймПост, Запрос_Переможець.Місто AS Запрос_Переможець_Місто, Запрос_Переможець.[Вул,Будинок] AS [Запрос_Переможець_Вул,Будинок], Запрос_Переможець.ОКПО AS Запрос_Переможець_ОКПО, Запрос_Переможець.ТелефонПост AS Запрос_Переможець_ТелефонПост

FROM Товар INNER JOIN (Примітка INNER JOIN (Постачальник INNER JOIN ((Запрос_Переможець INNER JOIN Замовлення ON Запрос_Переможець.№Протоколу = Замовлення.№Протоколу) INNER JOIN Пропозиція ON Замовлення.№Протоколу = Пропозиція.№Протоколу) ON Постачальник.КодПостач = Пропозиція.КодПостач) ON Примітка.кодПримітки = Пропозиція.кодПримітки) ON Товар.КодТовару = Замовлення.КодТовару;

Запит Запрос_Переможець, вибирає дані про переможців тердеру і використовується в запитах Багато_постач_Друк, Результат_тендеру і Запрос_Эдиний постач:

SELECT Запрос_Переможець.№Протоколу, Запрос_Переможець.ТипПідпр, Запрос_Переможець.НаймПост, Запрос_Переможець.СумаТендПроп, Запрос_Переможець.СумаТендПропТекст, Запрос_Переможець.Місто, Запрос_Переможець.[Вул,Будинок], Запрос_Переможець.ОКПО, Запрос_Переможець.ТелефонПост, Товар.*, Замовлення.ДатаЗвіту, Замовлення.ДатаПровТендеру, Замовлення.ДатаВідпрЗам, Замовлення.КільістьТовару, Замовлення.ОчікСумаЗакуп, Замовлення.[Сума проп]

FROM Товар INNER JOIN (Запрос_Переможець INNER JOIN Замовлення ON Запрос_Переможець.№Протоколу = Замовлення.№Протоколу) ON Товар.КодТовару = Замовлення.КодТовару;

Запит Запрос_Эдиний постач, вибирає дані для вихідних документів про проведення тендеру, в якому брав участь один постачальник:

SELECT Запрос_Переможець.№Протоколу, Запрос_Переможець.ТипПідпр, Запрос_Переможець.НаймПост, Запрос_Переможець.СумаТендПроп, Запрос_Переможець.СумаТендПропТекст, Запрос_Переможець.Місто, Запрос_Переможець.[Вул,Будинок], Запрос_Переможець.ОКПО, Запрос_Переможець.ТелефонПост, Товар.*, Замовлення.ДатаЗвіту, Замовлення.ДатаПровТендеру, Замовлення.ДатаВідпрЗам, Замовлення.КільістьТовару, Замовлення.ОчікСумаЗакуп, Замовлення.[Сума проп]

FROM Товар INNER JOIN (Запрос_Переможець INNER JOIN Замовлення ON Запрос_Переможець.№Протоколу = Замовлення.№Протоколу) ON Товар.КодТовару = Замовлення.КодТовару;

Запит Результат_тендеру вибирає дані необхідні для заповнення документу “Про результати тендеру”:

SELECT Товар.РодВідм, Пропозиція.Переможець, Замовлення.№Протоколу, Постачальник.ТипПідпр, Постачальник.НаймПост, Запрос_Переможець.ТипПідпр, Запрос_Переможець.НаймПост, Запрос_Переможець.Місто, Запрос_Переможець.[Вул,Будинок]

FROM Товар INNER JOIN (Постачальник INNER JOIN ((Замовлення INNER JOIN Запрос_Переможець ON Замовлення.№Протоколу = Запрос_Переможець.№Протоколу) INNER JOIN Пропозиція ON Замовлення.№Протоколу = Пропозиція.№Протоколу) ON Постачальник.КодПостач = Пропозиція.КодПостач) ON Товар.КодТовару = Замовлення.КодТовару

WHERE (((Пропозиція.Переможець)=False));