Откройте запрос в режиме конструктора. Выделите запрос, щелкнув в режиме конструктора запроса любое место вне бланка запроса и списков полей.

Нажмите кнопку Свойства на панели инструментов, чтобы открыть окно свойств запроса.

Задайте в значении свойства Время ожидания ODBC (ODBCTimeout) число секунд, после которого возвращается сообщения об ошибке превышения времени ожидания. По умолчанию задается значение 60 секунд. Если задать для этого свойства нулевое значение, ошибка превышения времени ожидания не возникает.

Заключение

Главным результатом проведенной работы является создание функционирующей СУБД, которая выполняет требуемый круг задач, с которыми сталкиваются руководители подразделений ООО «СЕРВИС ПАРТНЕР».

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

Использование мощных средств MS Access по созданию баз данных, работающих в операционной системе Windows и в частности приложений баз данных, позволило создать программный продукт максимально ориентированный на конечного пользователя, который не искушен в вопросах теории баз данных.

Вся необходимая работа по осуществлению методов доступа к информации хранимой в базе данных, её модификации, поддержании базы данных в целостном виде скрыта внутри и пользователю нет необходимости знать о ней, чтобы успешно решать весь круг возникающих задач связанных с использованием информации хранимой базе данных. Более того, программный интерфейс максимально облегчает работу по обращению с базой данных.

Все функции выполняемые СУБД были тщательным образом проверены и протестированы в процессе разработки и их работа гарантируется.

Данный продукт без сомнения может конкурировать с существующей на данный момент базой данных и средствами её управления.



Список используемых источников

1. БаженоваИ. Ю. Delphi 7. Самоучитель программиста. М.: КУДИЦ-Образ, 2013. 448 с.

2. ВендровA.M. Проектирование программного обеспечения экономических информационных систем. Учебник. М.: Финансы и статистика, 2012. 348 с., ил.

3. Гончаров А.Ю. Access 2007 Самоучитель с примерами. М.: «КУДИЦ-ПРЕСС», 2014. 296 с.

4. Гохберг Г.С. Информационные технологии./ Гохберг Г.С., Зафиевский А.В., Короткин А.А. Издательство: Академия, 2010. 327 с.

5. Иллюстрированный самоучитель по Microsoft Access. Режим доступа:http://www.taurion.ru/access.

6. Маклаков С.В. Создание информационных систем с AllFusion Modeling Suite. М.: ДИАЛОГ-МИФИ, 2013. 432 с.

7. Методич. пособие по итоговой государственной аттестации выпускников. Специальность: 080801.65 - прикладная информатика (по отраслям)/Под ред. проф. С.А.Курносова. Краснодар: ФГОУ ВПО КубГАУ, 2014. 78 с.

8. Методич. пособие по итоговой государственной аттестации выпускников. Специальность: 080801.65 - прикладная информатика (по отраслям)/Под ред. проф. С.А. Курносова. Краснодар: ФГОУ ВПО КубГАУ, 2014.78 с.

9. Положение о Территориальном органе Федеральной службы государственной статистики по Краснодарскому краю 30.07.2013krsdstat.gks.ru.

10. Понамарев Вячеслав, Самоучитель Delphi 7 Studio. Москва, БХВ-Петербург, 2013 г.- 504 с.

11. Приказ Росстата от 31.12.2009 N 344 (ред. от 29.10.2012) «Об утверждении Положения о Территориальном органе Федеральной службы государственной статистики по Краснодарскому краю».

12. Свиридов С.Н, Курьян А.Г. IDEF0: Функциональное моделирование процессов, М.: Ориентсофт, 2014. 278 с., ил.

13. Смирнова Г.Н. Проектирование экономических информационных систем: Учебник/Г.Н. Смирнова, А.А. Сорокин, Ю.Ф. Тельнов; Под ред. Ю.Ф. Тельнова. М.: Финансы и статистика, 2012. 512 с.

14. Сухарев М.С. Золотая книга Delphi. М.: Наука и Техника, 2010. 654с.

15. Федеральный закон от 29.11.2007 г. № 282-ФЗ «Об официальном статистическом учете и системе государственной статистики в Российской Федерации».

16. Хомоненко А.Д. и др. Delphi 7 СПб.: БХВ-Петербург, 2008. 1216 с.

17. Чеснокова О. В., Delphi 2007. Алгоритмы и программы. Санкт-Петербург: НТ Пресс, 2008 г. 368 с.

18. Шпак Ю.А.Delphi7 на примерах. :. Издательство Юниор, 2013. 384 с.

19. Microsoft Access 2010. Шагзашагом. Microsoft Press.2010.



Приложение А. Схема базы данных

Рисунок 1 Схема связей таблиц базы данных арендного сегмента (формат MS Access)

Рисунок 2 Схема связей таблиц базы данных сервисного сегмента (формат MS Access)



Приложение Б. Описание таблиц

Таблица Б.1

Таблица «тбл_аренда»

Наименование поля	Тип данных	Ограничения	Описание
код_аренды	Текстовый ключевое	Маска ввода «00-00-0000-0»	Индекс договора аренды
арендатор	Текстовый	Ограниченный список	Индексированное поле, подстановка из таблицы «арендаторы», поле «наименование_аренда-тора»
объект_аренды	Текстовый	Ограниченный список	Индексированное поле, подстановка из таблицы «ос1», поле «модель»
количество	Числовой		Значение по умолчанию «1»
стоимость_аренды	Денежный		Цена договора аренды
дата_передачи_в_аренду	Дата/ время		Дата фактической передачи техники в аренду
дата_окончания_аренды	Дата/ время		Дата окончания договора аренды
в_аренде	Логичес-кий		«Да» - экземпляр передан арендатору; «Нет» - экземпляр не в аренде
возвращено	Логичес-кий		«Да» - экземпляр возвращен от арендатора; «Нет» - экземпляр не возвращен от арендатора

Таблица Б.2

Таблица «тбл_арендаторы»

Наименование поля	Тип данных	Ограничения	Описание
инн_арендатора	Текстовый (ключевое)	Маска ввода «0000000000»	ИНН арендатора, назначается ФСН
офп_арендатора	Текстовый	Маска ввода «LLL»	Аббревиатура организационно-правовой формы собственности арендатора из трех символов
наименование_арендатора	Текстовый		Юридическое наименование арендатора
адрес_арендатора	Текстовый		Юридический адрес арендатора
телефон_арендатора	Текстовый	Маска ввода «+7(000)0000000»	Телефон арендатора в международном формате
контактное_лицо_арендатора	Текстовый		Ф.И.О. представителя арендатора

Таблица Б.3

Таблица «тбл_заказы_запчастей»

Наименование поля	Тип данных	Ограничения	Описание
код_заказа	Текстовый ключевое	Маска ввода «00-0000-0»	Шифр накладной-требования
система	Текстовый	Ограниченный список	Индексированное поле, подстановка из таблицы «системы», поле «наименование_системы»
код_ос	Текстовый	Ограниченный список	Индексированное поле, подстановка из таблицы «ос1», поле «код_ос»
дата_заказа	Дата/ время		Дата передачи заказа на склад
заказано	Логичес-кий		«Да» - заказ передан; «Нет» - заказ не оформлен»
поставлено	Логичес-кий		«Да» - запчасти по заказу поступили на склад; «Нет» - запчасти по заказу не поступили на склад
передано	Логичес-кий		«Да» - запчасти по заказу переданы со склада в сервисный отдел; «Нет» - запчасти по заказу не переданы в сервисный отдел

Таблица Б.3

Таблица «тбл_запчасти»

Наименование поля	Тип данных	Ограничения	Описание
код_запчасти	Текстовый ключевое		Артикул запчасти по каталогу производителя
система	Текстовый	Ограниченный список	Индексированное поле, подстановка из таблицы «системы», поле «наименование_системы»
наименование_запчасти	Текстовый		Наименование запчасти по каталогу производителя
норма_на_то	Числовой		Количество запчастей, необходимых на одно ТО, по рекомендациям производителя техники

Таблиц Б.5

Таблица «тбл_модели»

Наименование поля	Тип данных	Ограничения	Описание
код_модели	Текстовый ключевое		Соответствует наименованию модели по каталогу производителя
тип_техники	Текстовый	Ограниченный список	Индексированное поле, подстановка из таблицы «системы», поле «наименование_системы»
наименование_модели	Текстовый		Наименование модели, в соответствии с каталогом производителя

Таблица Б.6

Таблица «тбл_ос1»

Наименование поля	Тип данных	Ограничения	Описание
код_ос	Текстовый ключевое	Маска ввода «000-0000-0000000000»	Соответствует VIN-коду в международном формате
модель	Текстовый	Ограниченный список	Индексированное поле, подстановка из таблицы «модели», поле «наименование_модели»
поставщик	Текстовый	Ограниченный список	Индексированное поле, подстановка из таблицы «поставщики», поле «наименование_поставщика»
дата_поставки	Дата/ время		Дата постановки экземпляра техники на учет
срок_полезного_использования	Числовой		Срок полезного использования по нормам бухучета
срок_фактической_эксплуатации	Числовой		Срок фактической эксплуатации
коэффициент_амортизации	Числовой		Норма амортизации в коэффициентном выражении
норматив_то	Числовой		Норма машиночасов, установленная производителем техники в межсервисной эксплуатации (между ТО)

Таблица Б.7

Таблица «тбл_передача_запчастей»

Наименование поля	Тип данных	Ограничения	Описание
код_передачи	Текстовый ключевое	Маска ввода «0000-00-00»	Соответствует шифру акта передачи запчастей в сервисный отдел
заказ_запчастей	Текстовый	Ограниченный список	Индексированное поле, подстановка из таблицы «заказ_запчастей», поле «код_заказа»
поставка_запчастей	Текстовый	Ограниченный список	Индексированное поле, подстановка из таблицы «поставки», поле «код_поставки»
дата_передачи	Дата/ время		Дата фактической передачи запчастей со склада в сервисный отдел

Таблица Б.8

Таблица «тбл_поставки»

Наименование поля	Тип данных	Ограничения	Описание
код_поставки	Текстовый ключевое	Маска ввода «00-00-0000-00»	Индекс договора поставки запчастей от поставщика на склад
заказ_запчастей	Текстовый	Ограниченный список	Индексированное поле, подстановка из таблицы «заказ_запчастей», поле «код_заказа»
объект_ос	Текстовый	Ограниченный список	Индексированное поле, подстановка из таблицы «ос1», поле «код_ос»
модель	Текстовый	Ограниченный список	Индексированное поле, подстановка из таблицы «модели», поле «наименование_модели»
система	Текстовый	Ограниченный список	Индексированное поле, подстановка из таблицы «системы», поле «наименование_системы»
запчасть	Текстовый	Ограниченный список	Индексированное поле, подстановка из таблицы «запчасти», поле «наименование_запчасти»
поставщик	Текстовый	Ограниченный список	Индексированное поле, подстановка из таблицы «поставщики», поле «наименование_поставщи-ка»
количество	Числовой		Количество поставленных запчастей по одному договору
Наименование поля	Тип данных	Ограничения	Описание
стоимость_поставки	Денежный		Цена договора поставки
дата_поставки	Дата/ время		Дата фактической поставки запчастей от поставщика на склад

Таблица Б.9

Таблица «тбл_поставщики»

Наименование поля	Тип данных	Ограничения	Описание
инн_поставщика	Текстовый ключевое	Маска ввода «0000000000»	ИНН поставщика, назначается ФНС
офп_поставщика	Текстовый	Маска ввода «LLL»	Аббревиатура организационно-правовой формы собственности поставщика из трех символов
наименование_поставщика	Текстовый		Юридическое наименование поставщика
адрес_поставщика	Текстовый		Юридический адрес поставщика
телефон_поставщика	Текстовый	Маска ввода «+7(000)0000000»	Телефон поставщика в международном формате
контактное_лицо_поставщика	Текстовый		Ф.И.О. представителя поставщика

Таблица Б.10

Таблица «тбл_ремонты»

Наименование поля	Тип данных	Ограничения	Описание
код_ремонта	Текстовый ключевое	Маска ввода «00-00-0000-0»	Шифр ремонтной карты
ос	Текстовый	Ограниченный список	Индексированное поле, подстановка из таблицы «ос1», поле «код_ос»
дата_постановки_в_ремонт	Дата/ время		Дата передачи экземпляра техники в ремонт
дата_окончания_ремонта	Дата/время		Дата фактической передачи экземпляра техники из сервисного отдела в производственный отдел
в_ремонте	Логичес-кий		«Да» - экземпляр техники передан в ремонт; «Нет» - экземпляр техники не передавался в ремонт
Наименование поля	Тип данных	Ограничения	Описание
исправлено	Логичес-кий		«Да» - экземпляр техники передан из сервисного отдела в производственный отдел; «Нет» - экземпляр техники не передан в сервисный отдел или не находится в ремонте

Таблица Б.11

Таблица «тбл_системы»

Наименование поля	Тип данных	Ограничения	Описание
код_системы	Текстовый ключевое	Маска ввода «LLLL»	Аббревиатура технической системы транспортного средства из четырех символов
наименование_системы	Текстовый		Полное наименование системы. в соответствии с классификацией производителя



Таблица Б.12

Таблица «тбл_типы»

Наименование поля	Тип данных	Ограничения	Описание
код_типа	Текстовый ключевое	Маска ввода «0000-00-000»	Код системы, соответствующий обозначению по каталогу ТН ВЭД РФ
наименование_типа	Текстовое		Полное наименование типа техники, в соответствии с классификацией ТН ВЭД РФ



Приложение В. Тексты SQL-запросов

Запрос «зпр_техника_в_наличии»:

SELECT тбл_ос1.модель, тбл_ос1.количество

FROM тбл_ос1 INNER JOIN тбл_аренда ON тбл_ос1.код_ос1 = тбл_аренда.объект_аренды

GROUP BY тбл_ос1.модель, тбл_ос1.количество, тбл_аренда.возвращено

HAVING (((тбл_аренда.возвращено)=Yes)); (((тбл_ремонты.исправлено)=Yes));

Запрос «зпр_техника_в_аренде»:

SELECT тбл_аренда.код_аренды, тбл_аренда.арендатор, тбл_аренда.объект_аренды, тбл_аренда.дата_передачи_в_аренду, тбл_аренда.дата_возврата_из_аренды

FROM тбл_аренда

WHERE (((тбл_аренда.в_аренде)=Yes) AND ((тбл_аренда.возвращено)=No));

Запрос «зпр_техника_в_ремонте»:

SELECT тбл_ремонты.код_ремонта, тбл_ремонты.ос, тбл_ремонты.дата_постановки_в_ремонт

FROM тбл_ремонты

WHERE (((тбл_ремонты.в_ремонте)=Yes) AND ((тбл_ремонты.исправлено)=No));

Запрос «зпр_длительность_аренды_по_контрактам»:

SELECT тбл_аренда.объект_аренды, Sum(тбл_аренда!дата_возврата_из_аренды-тбл_аренда!дата_передачи_в_аренду) AS длительность_аренды_в_днях, Sum((тбл_аренда!дата_возврата_из_аренды-тбл_аренда!дата_передачи_в_аренду)*16) AS длительность_аренды_в_часах

FROM тбл_аренда

GROUP BY тбл_аренда.объект_аренды;

Запрос «зпр_просроченная_аренда»:

SELECT тбл_аренда.арендатор, тбл_аренда.объект_аренды, тбл_аренда.дата_передачи_в_аренду, тбл_аренда.дата_возврата_из_аренды

FROM тбл_аренда

GROUP BY тбл_аренда.арендатор, тбл_аренда.объект_аренды, тбл_аренда.дата_передачи_в_аренду, тбл_аренда.дата_возврата_из_аренды, тбл_аренда.в_аренде, тбл_аренда.возвращено

HAVING (((тбл_аренда.дата_возврата_из_аренды)<[Введите_текущую_дату]) AND ((тбл_аренда.в_аренде)=Yes) AND ((тбл_аренда.возвращено)=No));

Запрос «зпр_амортизация_за_год»:

SELECT тбл_ос1.код_ос1, тбл_ос1.модель, тбл_ос1.стоимость, тбл_ос1!количество*тбл_ос1!стоимость*тбл_ос1!срок_фактической_эксплуатации*тбл_ос1!коэффициент_амортизации AS амортизация

FROM тбл_ос1

GROUP BY тбл_ос1.код_ос1, тбл_ос1.модель, тбл_ос1.стоимость, тбл_ос1!количество*тбл_ос1!стоимость*тбл_ос1!срок_фактической_эксплуатации*тбл_ос1!коэффициент_амортизации, тбл_ос1.количество, тбл_ос1.срок_фактической_эксплуатации, тбл_ос1.коэффициент_амортизации;

Запрос «зпр_остаточная_стоимость»:

SELECT тбл_ос1.код_ос1, тбл_ос1.модель, тбл_ос1!стоимость-зпр_амортизация_за_год!амортизация AS остаточная_стоимость, зпр_амортизация_за_год.амортизация, тбл_ос1.стоимость

FROM тбл_ос1 INNER JOIN зпр_амортизация_за_год ON тбл_ос1.код_ос1 = зпр_амортизация_за_год.код_ос1

GROUP BY тбл_ос1.код_ос1, тбл_ос1.модель, тбл_ос1!стоимость-зпр_амортизация_за_год!амортизация, зпр_амортизация_за_год.амортизация, тбл_ос1.стоимость, тбл_ос1.срок_фактической_эксплуатации;

Запрос «зпр_прибыль_от_аренды_по_арендаторам»:

SELECT тбл_аренда.арендатор, Sum(тбл_аренда.стоимость_аренды) AS [Sum-стоимость_аренды], Sum(тбл_аренда!стоимость_аренды-тбл_ос1!стоимость*тбл_ос1!коэффициент_амортизации*зпр_длительность_аренды_по_контрактам!длительность_аренды_в_днях/365) AS прибыль_от_аренды

FROM тбл_ос1 INNER JOIN (тбл_аренда INNER JOIN зпр_длительность_аренды_по_контрактам ON тбл_аренда.код_аренды = зпр_длительность_аренды_по_контрактам.код_аренды) ON тбл_ос1.код_ос1 = тбл_аренда.объект_аренды

GROUP BY тбл_аренда.арендатор;

Запрос «зпр_длительность_ремонта_по_ос»:

SELECT зпр_длительность_ремонтов_подробно.код_ос1, зпр_длительность_ремонтов_подробно.модель, Sum(зпр_длительность_ремонтов_подробно.длительность_ремонта) AS [Sum-длительность_ремонта]

FROM зпр_длительность_ремонтов_подробно

GROUP BY зпр_длительность_ремонтов_подробно.код_ос1, зпр_длительность_ремонтов_подробно.модель;

Запрос «зпр_затраты_на_ремонт_по_ос»:

SELECT тбл_ос1.модель, Sum(тбл_поставки.стоимость_поставки) AS [Sum-стоимость]

FROM тбл_ос1 INNER JOIN тбл_поставки ON тбл_ос1.код_ос1 = тбл_поставки.объект_ос

GROUP BY тбл_ос1.модель;

Запрос «зпр_количество_ремонтов»:

SELECT тбл_ос1.код_ос1, тбл_ос1.модель, тбл_ремонты.исправлено, Count(тбл_ремонты.исправлено) AS [Count-исправлено]

FROM тбл_ос1 INNER JOIN тбл_ремонты ON тбл_ос1.код_ос1 = тбл_ремонты.ос

GROUP BY тбл_ос1.код_ос1, тбл_ос1.модель, тбл_ремонты.исправлено

HAVING (((тбл_ремонты. исправлено)=Yes));



Запрос «зпр_просроченные_ремонты»:

SELECT тбл_ремонты.код_ремонта, тбл_ремонты.ос, тбл_ремонты.дата_постановки_в_ремонт, тбл_ремонты.дата_окончания_ремонта

FROM тбл_ремонты

WHERE (((тбл_ремонты.дата_постановки_в_ремонт)<[Введите_текущую_дату]) AND ((тбл_ремонты.в_ремонте)=Yes) AND ((тбл_ремонты.исправлено)=No));

Запрос «зпр_удельные_ремонты»:

SELECT тбл_ос1.код_ос1, тбл_ос1.модель, Sum(зпр_длительность_ремонта_по_ос![Sum-длительность_ремонта]/(365*тбл_ос1!срок_фактической_эксплуатации)) AS удельные_ремонты, тбл_ос1.срок_фактической_эксплуатации, зпр_длительность_ремонта_по_ос.[Sum-длительность_ремонта]

FROM зпр_длительность_ремонта_по_ос INNER JOIN тбл_ос1 ON зпр_длительность_ремонта_по_ос.код_ос1 = тбл_ос1.код_ос1

GROUP BY тбл_ос1.код_ос1, тбл_ос1.модель, тбл_ос1.срок_фактической_эксплуатации, зпр_длительность_ремонта_по_ос.[Sum-длительность_ремонта];

Запрос «зпр_наработка_до_то»:

SELECT зпр_плановая_норма_до_то.код_ос1, зпр_плановая_норма_до_то.модель, зпр_плановая_норма_до_то!плановая_норма_до_то-зпр_длительность_аренды_по_ос!длительность_аренды_в_часах AS осталось_до_то, зпр_длительность_аренды_по_ос.длительность_аренды_в_часах, зпр_плановая_норма_до_то.плановая_норма_до_то, зпр_длительность_аренды_по_ос!длительность_аренды_в_часах/зпр_плановая_норма_до_то!плановая_норма_до_то AS удельная_наработка_до_то

FROM зпр_плановая_норма_до_то INNER JOIN зпр_длительность_аренды_по_ос ON зпр_плановая_норма_до_то.код_ос1 = зпр_длительность_аренды_по_ос.объект_аренды

GROUP BY зпр_плановая_норма_до_то.код_ос1, зпр_плановая_норма_до_то.модель, зпр_плановая_норма_до_то!плановая_норма_до_то-зпр_длительность_аренды_по_ос!длительность_аренды_в_часах, зпр_длительность_аренды_по_ос.длительность_аренды_в_часах, зпр_плановая_норма_до_то.плановая_норма_до_то, зпр_длительность_аренды_по_ос!длительность_аренды_в_часах/зпр_плановая_норма_до_то!плановая_норма_до_то;

Запрос «зпр_количество_ремонтов»:

SELECT тбл_ос1.код_ос1, тбл_ос1.модель, тбл_ос1!норматив_то*зпр_количество_ремонтов![Count-исправлено] AS плановая_норма_до_то

FROM тбл_ос1 INNER JOIN зпр_количество_ремонтов ON тбл_ос1.код_ос1 = зпр_количество_ремонтов.код_ос1

GROUP BY тбл_ос1.код_ос1, тбл_ос1.модель, тбл_ос1!норматив_то*зпр_количество_ремонтов![Count-исправлено];

Запрос «зпр_заказано_но_не_поставлено»:

SELECT тбл_заказы_запчастей.код_заказа, тбл_заказы_запчастей.система, тбл_заказы_запчастей.запчасть, тбл_заказы_запчастей.код_ос, тбл_заказы_запчастей.дата_заказа

FROM тбл_заказы_запчастей

WHERE (((тбл_заказы_запчастей. заказано)=Yes) AND ((тбл_заказы_запчастей.поставлено)=No));

Запрос «зпр_запчасти_на_складе»:

SELECT тбл_запчасти.код_запчасти, тбл_запчасти.система, тбл_запчасти.наименование_запчасти, тбл_поставки.количество

FROM (тбл_запчасти INNER JOIN тбл_заказы_запчастей ON тбл_запчасти.код_запчасти = тбл_заказы_запчастей.запчасть) INNER JOIN тбл_поставки ON тбл_запчасти.код_запчасти = тбл_поставки.запчасть

GROUP BY тбл_запчасти.код_запчасти, тбл_запчасти.система, тбл_запчасти.наименование_запчасти, тбл_поставки.количество, тбл_заказы_запчастей.поставлено, тбл_заказы_запчастей.передано

HAVING (((тбл_заказы_запчастей. поставлено)=Yes) AND ((тбл_заказы_запчастей.передано)=No));

Запрос «зпр_поставлено_но_не_передано»:

SELECT тбл_заказы_запчастей.код_заказа, тбл_заказы_запчастей.система, тбл_заказы_запчастей.запчасть, тбл_заказы_запчастей.дата_заказа, тбл_поставки.количество

FROM тбл_заказы_запчастей INNER JOIN тбл_поставки ON тбл_заказы_запчастей.код_заказа = тбл_поставки.заказ_запчастей

WHERE (((тбл_заказы_запчастей.заказано)=Yes) AND ((тбл_заказы_запчастей.поставлено)=Yes) AND ((тбл_заказы_запчастей.передано)=No));

Запрос «зпр_рентабельность_контрактов»:

SELECT тбл_аренда.код_аренды, тбл_аренда.арендатор, тбл_аренда!стоимость_аренды-тбл_ос1!стоимость*тбл_ос1!коэффициент_амортизации*зпр_длительность_аренды_по_контрактам!длительность_аренды_в_днях/365 AS прибыль_от_аренды, [прибыль_от_аренды]/(тбл_ос1!стоимость*тбл_ос1!коэффициент_амортизации*зпр_длительность_аренды_по_контрактам!длительность_аренды_в_днях/365) AS рентабельность_контрактов

FROM тбл_ос1 INNER JOIN (тбл_аренда INNER JOIN зпр_длительность_аренды_по_контрактам ON тбл_аренда.код_аренды = зпр_длительность_аренды_по_контрактам.код_аренды) ON тбл_ос1.код_ос1 = тбл_аренда.объект_аренды;

Запрос «зпр_рентабельность_моделей_техники»:

SELECT тбл_ос1.код_ос1, тбл_ос1.модель, Sum(тбл_аренда!стоимость_аренды-тбл_ос1!стоимость*тбл_ос1!коэффициент_амортизации*зпр_длительность_аренды_по_контрактам!длительность_аренды_в_днях/365) AS прибыль_от_аренды, [прибыль_от_аренды]/([стоимость]*[срок_фактической_эксплуатации]*[коэффициент_амортизации]) AS рентабельность_моделей

FROM тбл_ос1 INNER JOIN (тбл_аренда INNER JOIN зпр_длительность_аренды_по_контрактам ON тбл_аренда.код_аренды = зпр_длительность_аренды_по_контрактам.код_аренды) ON тбл_ос1.код_ос1 = тбл_аренда.объект_аренды

GROUP BY тбл_ос1.код_ос1, тбл_ос1.модель, [прибыль_от_аренды]/([стоимость]*[срок_фактической_эксплуатации]*[коэффициент_амортизации]), тбл_ос1.стоимость, тбл_ос1.срок_фактической_эксплуатации, тбл_ос1.коэффициент_амортизации;

Запрос «зпр_затратоемкость-контрактов»:

SELECT тбл_аренда.код_аренды, тбл_аренда.арендатор, тбл_аренда!стоимость_аренды-тбл_ос1!стоимость*тбл_ос1!коэффициент_амортизации*зпр_длительность_аренды_по_контрактам!длительность_аренды_в_днях/365 AS прибыль_от_аренды, (тбл_ос1!стоимость*тбл_ос1!коэффициент_амортизации*зпр_длительность_аренды_по_контрактам!длительность_аренды_в_днях/365)/[прибыль_от_аренды] AS затратоемкость_контрактов

FROM тбл_ос1 INNER JOIN (тбл_аренда INNER JOIN зпр_длительность_аренды_по_контрактам ON тбл_аренда.код_аренды = зпр_длительность_аренды_по_контрактам.код_аренды) ON тбл_ос1.код_ос1 = тбл_аренда.объект_аренды;

Запрос «зпр_затратоемкость_моделей»:

SELECT тбл_ос1.код_ос1, тбл_ос1.модель, Sum(тбл_аренда!стоимость_аренды-тбл_ос1!стоимость*тбл_ос1!коэффициент_амортизации*зпр_длительность_аренды_по_контрактам!длительность_аренды_в_днях/365) AS прибыль_от_аренды, ([стоимость]*[срок_фактической_эксплуатации]*[коэффициент_амортизации])/[прибыль_от_аренды] AS затратоемкость_моделей

FROM тбл_ос1 INNER JOIN (тбл_аренда INNER JOIN зпр_длительность_аренды_по_контрактам ON тбл_аренда.код_аренды = зпр_длительность_аренды_по_контрактам.код_аренды) ON тбл_ос1.код_ос1 = тбл_аренда.объект_аренды

GROUP BY тбл_ос1.код_ос1, тбл_ос1.модель, ([стоимость]*[срок_фактической_эксплуатации]*[коэффициент_амортизации])/[прибыль_от_аренды], тбл_ос1.стоимость, тбл_ос1.срок_фактической_эксплуатации, тбл_ос1.коэффициент_амортизации;

Запроса «зпр_норма_запаса_запчастей»:

SELECT тбл_запчасти.код_запчасти, тбл_запчасти.система, тбл_запчасти.наименование_запчасти, тбл_запчасти!норма_на_то*зпр_наработка_до_то!удельная_наработка_до_то AS норма_запаса

FROM тбл_запчасти, зпр_наработка_до_то;

Формула запроса «зпр_норма_заказа_запчастей»:

SELECT зпр_потребность_в_запчастях.код_запчасти, зпр_потребность_в_запчастях.система, зпр_потребность_в_запчастях.наименование_запчасти, зпр_потребность_в_запчастях.норма_заказа

FROM зпр_потребность_в_запчастях

GROUP BY зпр_потребность_в_запчастях.код_запчасти, зпр_потребность_в_запчастях.система, зпр_потребность_в_запчастях.наименование_запчасти, зпр_потребность_в_запчастях.норма_заказа

HAVING (((зпр_потребность_в_запчастях.норма_заказа)>0));



Приложение Г. Тексты макросов

Макрос «mkr_open_frm_about_and_close_frm_main»:

Function mkr_open_frm_about_and_close_frm_main()

On Error GoTo mkr_open_frm_about_and_close_frm_main_Err

DoCmd.OpenForm "фрм_о_программе", acNormal, "", "",, acNormal

DoCmd.Close acForm, "фрм_главная"

mkr_open_frm_about_and_close_frm_main_Exit:

Exit Function

mkr_open_frm_about_and_close_frm_main_Err:

MsgBox Error$

Resume mkr_open_frm_about_and_close_frm_main_Exit

End Function

Макрос «mkr_open_frm_main_and_close_frm_about»:

Function mkr_open_frm_main_and_close_frm_about()

On Error GoTo mkr_open_frm_main_and_close_frm_about_Err

DoCmd.OpenForm "фрм_главная", acNormal, "", "",, acNormal

DoCmd.Close acForm, "фрм_о_программе"

mkr_open_frm_main_and_close_frm_about_Exit:

Exit Function

mkr_open_frm_main_and_close_frm_about_Err:

MsgBox Error$

Resume mkr_open_frm_main_and_close_frm_about_Exit

End Function

Макрос «exit»:

Function mkr_exit()

On Error GoTo mkr_exit_Err

DoCmd.Quit acSave

mkr_exit_Exit:

Exit Function

mkr_exit_Err:

MsgBox Error$

Resume mkr_exit_Exit

End Function

Макрос «mkr_open_frm_input_data»:

Function mkr_open_frm_input_data()

On Error GoTo mkr_open_frm_input_data_Err

DoCmd.OpenForm "фрм_ввод_данных", acNormal, "", "",, acNormal

DoCmd.Close acForm, "фрм_главная"

mkr_open_frm_input_data_Exit:

Exit Function

mkr_open_frm_input_data_Err:

MsgBox Error$

Resume mkr_open_frm_input_data_Exit

End Function

Макрос «mkr_open_frm_oc1»:

Function mkr_open_frm_oc1()

On Error GoTo mkr_open_frm_oc1_Err

DoCmd.OpenForm "фрм_ос1", acNormal, "", "",, acNormal

DoCmd.GoToRecord, "", acNewRec

mkr_open_frm_oc1_Exit:

Exit Function

mkr_open_frm_oc1_Err:

MsgBox Error$

Resume mkr_open_frm_oc1_Exit

End Function

Макрос «mkr_open_frm_arenda»:

Function mkr_open_frm_arenda()

On Error GoTo mkr_open_frm_arenda_Err

DoCmd.OpenForm "фрм_аренда", acNormal, "", "",, acNormal

DoCmd.GoToRecord, "", acNewRec

mkr_open_frm_arenda_Exit:

Exit Function

mkr_open_frm_arenda_Err:

MsgBox Error$

Resume mkr_open_frm_arenda_Exit

End Function

Макрос «mkr_open_frm_remont»:

Function mkr_open_frm_remont()

On Error GoTo mkr_open_frm_remont_Err

DoCmd.OpenForm "фрм_ремонты", acNormal, "", "",, acNormal

DoCmd.GoToRecord, "", acNewRec

mkr_open_frm_remont_Exit:

Exit Function

mkr_open_frm_remont_Err:

MsgBox Error$

Resume mkr_open_frm_remont_Exit

End Function

Макрос «mkr_open_frm_zakaz_zapch»:

Function mkr_open_frm_zakaz_zapch()

On Error GoTo mkr_open_frm_zakaz_zapch_Err

DoCmd.OpenForm "фрм_заказы_запчастей", acNormal, "", "",, acNormal

DoCmd.GoToRecord, "", acNewRec

mkr_open_frm_zakaz_zapch_Exit:

Exit Function

mkr_open_frm_zakaz_zapch_Err:

MsgBox Error$

Resume mkr_open_frm_zakaz_zapch_Exit

End Function

Макрос «mkr_open_frm_postavki»:

Function mkr_open_frm_postavki()

On Error GoTo mkr_open_frm_postavki_Err

DoCmd.OpenForm "фрм_поставки", acNormal, "", "",, acNormal

DoCmd.GoToRecord, "", acNewRec

mkr_open_frm_postavki_Exit:

Exit Function

mkr_open_frm_postavki_Err:

MsgBox Error$

Resume mkr_open_frm_postavki_Exit

End Function

Макрос «mkr_open_frm_peredacha_zapchast»:

Function mkr_open_frm_peredacha_zapchast()

On Error GoTo mkr_open_frm_peredacha_zapchast_Err

DoCmd.OpenForm "фрм_передача_запчастей", acNormal, "", "",, acNormal

DoCmd.GoToRecord, "", acNewRec

mkr_open_frm_peredacha_zapchast_Exit:

Exit Function

mkr_open_frm_peredacha_zapchast_Err:

MsgBox Error$

Resume mkr_open_frm_peredacha_zapchast_Exit

End Function

Макрос «mkr_open_frm_types»:

Function mkr_open_frm_types()

On Error GoTo mkr_open_frm_types_Err

DoCmd.OpenForm "фрм_типы", acNormal, "", "",, acNormal

DoCmd.GoToRecord, "", acNewRec

mkr_open_frm_types_Exit:

Exit Function

mkr_open_frm_types_Err:

MsgBox Error$

Resume mkr_open_frm_types_Exit

End Function

Макрос «mkr_open_frm_models»:

Function mkr_open_frm_models()

On Error GoTo mkr_open_frm_models_Err

DoCmd.OpenForm "фрм_модели", acNormal, "", "",, acNormal

DoCmd.GoToRecord, "", acNewRec

mkr_open_frm_models_Exit:

Exit Function

mkr_open_frm_models_Err:

MsgBox Error$

Resume mkr_open_frm_models_Exit

End Function

Макрос «mkr_open_frm_arendators»:

Function mkr_open_frm_arendators()

On Error GoTo mkr_open_frm_arendators_Err

DoCmd.OpenForm "фрм_арендаторы", acNormal, "", "",, acNormal

DoCmd.GoToRecord, "", acNewRec

mkr_open_frm_arendators_Exit:

Exit Function

mkr_open_frm_arendators_Err:

MsgBox Error$

Resume mkr_open_frm_arendators_Exit

End Function

Макрос «mkr_open_frm_systems»:

Function mkr_open_frm_systems()

On Error GoTo mkr_open_frm_systems_Err

DoCmd.OpenForm "фрм_системы", acNormal, "", "",, acNormal

DoCmd.GoToRecord, "", acNewRec

mkr_open_frm_systems_Exit:

Exit Function

mkr_open_frm_systems_Err:

MsgBox Error$

Resume mkr_open_frm_systems_Exit

End Function

Макрос «mkr_open_frm_zapchast»:

Function mkr_open_frm_zakaz_zapchast()

On Error GoTo mkr_open_frm_zakaz_zapchast_Err

DoCmd.OpenForm "фрм_заказы_запчастей", acNormal, "", "",, acNormal

DoCmd.GoToRecord, "", acNewRec

mkr_open_frm_zakaz_zapchast_Exit:

Exit Function

mkr_open_frm_zakaz_zapchast_Err:

MsgBox Error$

Resume mkr_open_frm_zakaz_zapchast_Exit

End Function

Макрос «mkr_open_frm_postavshiki»:

Function mkr_open_frm_postavshiki()

On Error GoTo mkr_open_frm_postavshiki_Err

DoCmd.OpenForm "фрм_поставщики", acNormal, "", "",, acNormal

DoCmd.GoToRecord, "", acNewRec

mkr_open_frm_postavshiki_Exit:

Exit Function

mkr_open_frm_postavshiki_Err:

MsgBox Error$

Resume mkr_open_frm_postavshiki_Exit

End Function

Макрос «mkr_open_frm_prosmotr_otchetov»:

Function mkr_open_frm_prosmotr_otchetov()

On Error GoTo mkr_open_frm_prosmotr_otchetov_Err

DoCmd.OpenForm "фрм_просмотр_отчетов", acNormal, "", "",, acNormal

DoCmd.Close acForm, "фрм_главная"

mkr_open_frm_prosmotr_otchetov_Exit:

Exit Function

mkr_open_frm_prosmotr_otchetov_Err:

MsgBox Error$

Resume mkr_open_frm_prosmotr_otchetov_Exit

End Function

Макрос «mkr_open_zpr_tech_v_nal»:

Function mkr_open_zpr_tech_v_nal()

On Error GoTo mkr_open_zpr_tech_v_nal_Err

DoCmd.OpenQuery "зпр_техника_в_наличии", acViewPreview, acReadOnly

mkr_open_zpr_tech_v_nal_Exit:

Exit Function

mkr_open_zpr_tech_v_nal_Err:

MsgBox Error$

Resume mkr_open_zpr_tech_v_nal_Exit

End Function

Макрос «mkr_open_zpr_v_arend»:

Function mkr_open_zpr_v_arend()

On Error GoTo mkr_open_zpr_v_arend_Err

DoCmd.OpenQuery "зпр_техника_в_аренде", acViewPreview, acReadOnly

mkr_open_zpr_v_arend_Exit:

Exit Function

mkr_open_zpr_v_arend_Err:

MsgBox Error$

Resume mkr_open_zpr_v_arend_Exit

End Function

Макрос «mkr_open_zpr_technika_v_remonte»:

Function mkr_open_zpr_technika_v_remonte()

On Error GoTo mkr_open_zpr_technika_v_remonte_Err

DoCmd.OpenQuery "зпр_техника_в_ремонте", acViewPreview, acReadOnly

mkr_open_zpr_technika_v_remonte_Exit:

Exit Function

mkr_open_zpr_technika_v_remonte_Err:

MsgBox Error$

Resume mkr_open_zpr_technika_v_remonte_Exit

End Function

Макрос «mkr_open_zpr_dlit_arend»:

Function mkr_open_zpr_dlit_arend()

On Error GoTo mkr_open_zpr_dlit_arend_Err

DoCmd.OpenQuery "зпр_длительность_аренды_по_ос", acViewPreview, acReadOnly

mkr_open_zpr_dlit_arend_Exit:

Exit Function

mkr_open_zpr_dlit_arend_Err:

MsgBox Error$

Resume mkr_open_zpr_dlit_arend_Exit

End Function

Макрос «mkr_open_zpr_prosr_arenda»:

Function mkr_open_zpr_prosr_arenda()

On Error GoTo mkr_open_zpr_prosr_arenda_Err

DoCmd.OpenQuery "зпр_простроченная_аренда", acViewPreview, acReadOnly

mkr_open_zpr_prosr_arenda_Exit:

Exit Function

mkr_open_zpr_prosr_arenda_Err:

MsgBox Error$

Resume mkr_open_zpr_prosr_arenda_Exit

End Function

Макрос: «mkr_open_zpr_amortiz»:

Function mkr_open_zpr_amortiz()

On Error GoTo mkr_open_zpr_amortiz_Err

DoCmd.OpenQuery "зпр_амортизация_за_год", acViewPreview, acReadOnly

mkr_open_zpr_amortiz_Exit:

Exit Function

mkr_open_zpr_amortiz_Err:

MsgBox Error$

Resume mkr_open_zpr_amortiz_Exit

End Function

Макрос «mkr_open_zpr_ostat_stoim»:

Function mkr_open_zpr_ostat_stoim()

On Error GoTo mkr_open_zpr_ostat_stoim_Err

DoCmd.OpenQuery "зпр_остаточная_стоимость", acViewPreview, acReadOnly

mkr_open_zpr_ostat_stoim_Exit:

Exit Function

mkr_open_zpr_ostat_stoim_Err:

MsgBox Error$

Resume mkr_open_zpr_ostat_stoim_Exit

End Function

Макрос «mkr_open_zpr_prib_arendator»:

Function mkr_open_zpr_prib_arendator()

On Error GoTo mkr_open_zpr_prib_arendator_Err

DoCmd.OpenQuery "зпр_прибыль_от_аренды_по_арендаторам", acViewPreview, acReadOnly

mkr_open_zpr_prib_arendator_Exit:

Exit Function

mkr_open_zpr_prib_arendator_Err:

MsgBox Error$

Resume mkr_open_zpr_prib_arendator_Exit

End Function

Макрос «mkr_open_zpr_prib_arendator»:

Function mkr_open_zpr_prib_arendator()

On Error GoTo mkr_open_zpr_prib_arendator_Err

DoCmd.OpenQuery "зпр_прибыль_от_аренды_по_арендаторам", acViewPreview, acReadOnly

mkr_open_zpr_prib_arendator_Exit:

Exit Function

mkr_open_zpr_prib_arendator_Err:

MsgBox Error$

Resume mkr_open_zpr_prib_arendator_Exit

End Function

Макрос «mkr_open_zpr_dlit_rem_po_oc»:

Function mkr_open_zpr_dlit_rem_po_oc()

On Error GoTo mkr_open_zpr_dlit_rem_po_oc_Err

DoCmd.OpenQuery "зпр_длительность_ремонта_по_ос", acViewPreview, acReadOnly

mkr_open_zpr_dlit_rem_po_oc_Exit:

Exit Function

mkr_open_zpr_dlit_rem_po_oc_Err:

MsgBox Error$

Resume mkr_open_zpr_dlit_rem_po_oc_Exit

End Function

Макрос «mkr_open_zpr_dlit_rem_podrobno»:

Function mkr_open_zpr_dlit_rem_podrobno()

On Error GoTo mkr_open_zpr_dlit_rem_podrobno_Err

DoCmd.OpenQuery "зпр_длительность_ремонтов_подробно", acViewPreview, acReadOnly

mkr_open_zpr_dlit_rem_podrobno_Exit:

Exit Function

mkr_open_zpr_dlit_rem_podrobno_Err:

MsgBox Error$

Resume mkr_open_zpr_dlit_rem_podrobno_Exit

End Function

Макрос «mkr_open_zpr_zatrat_na_rem_po_oc»:

Function mkr_open_zpr_zatrat_na_rem_po_oc()

On Error GoTo mkr_open_zpr_zatrat_na_rem_po_oc_Err

DoCmd.OpenQuery "зпр_затраты_на_ремонт_по_ос", acViewPreview, acReadOnly

mkr_open_zpr_zatrat_na_rem_po_oc_Exit:

Exit Function

mkr_open_zpr_zatrat_na_rem_po_oc_Err:

MsgBox Error$

Resume mkr_open_zpr_zatrat_na_rem_po_oc_Exit

End Function

Макрос «mkr_open_zpr_zatrat_po_types»:

Function mkr_open_zpr_zatrat_po_types()

On Error GoTo mkr_open_zpr_zatrat_po_types_Err

DoCmd.OpenQuery "зпр_затраты_на_ремонт_по_типам", acViewPreview, acReadOnly

mkr_open_zpr_zatrat_po_types_Exit:

Exit Function

mkr_open_zpr_zatrat_po_types_Err:

MsgBox Error$

Resume mkr_open_zpr_zatrat_po_types_Exit

End Function

Макрос «mkr_open_zpr_kolichestvo_remontov»:

Function mkr_open_zpr_kolichestvo_remontov()

On Error GoTo mkr_open_zpr_kolichestvo_remontov_Err

DoCmd.OpenQuery "зпр_количество_ремонтов", acViewPreview, acReadOnly

mkr_open_zpr_kolichestvo_remontov_Exit:

Exit Function

mkr_open_zpr_kolichestvo_remontov_Err:

MsgBox Error$

Resume mkr_open_zpr_kolichestvo_remontov_Exit

End Function

Макрос «mkr_open_zpr_ydeln_remont»:

Function mkr_open_zpr_ydeln_remont()

On Error GoTo mkr_open_zpr_ydeln_remont_Err

DoCmd.OpenQuery "зпр_удельные_ремонты", acViewPreview, acReadOnly

mkr_open_zpr_ydeln_remont_Exit:

Exit Function

mkr_open_zpr_ydeln_remont_Err:

MsgBox Error$

Resume mkr_open_zpr_ydeln_remont_Exit

End Function

Макрос «mkr_open_zpr_narabotka_do_to»:

Function mkr_open_zpr_narabotka_do_to()

On Error GoTo mkr_open_zpr_narabotka_do_to_Err

DoCmd.OpenQuery "зпр_наработка_до_то", acViewPreview, acReadOnly

mkr_open_zpr_narabotka_do_to_Exit:

Exit Function

mkr_open_zpr_narabotka_do_to_Err:

MsgBox Error$

Resume mkr_open_zpr_narabotka_do_to_Exit

End Function

Макрос «mkr_open_zpr_zaka_ne_postavlen»:

Function mkr_open_zpr_zaka_ne_postavlen()

On Error GoTo mkr_open_zpr_zaka_ne_postavlen_Err

DoCmd.OpenQuery "зпр_заказано_но_не_поставлено", acViewPreview, acReadOnly

mkr_open_zpr_zaka_ne_postavlen_Exit:

Exit Function

mkr_open_zpr_zaka_ne_postavlen_Err:

MsgBox Error$

Resume mkr_open_zpr_zaka_ne_postavlen_Exit

End Function

Макрос «mkr_open_zpr_zapchesti_na_sklade»:

Function mkr_open_zpr_zapchesti_na_sklade()

On Error GoTo mkr_open_zpr_zapchesti_na_sklade_Err

DoCmd.OpenQuery "зпр_запчасти_на_складе", acViewPreview, acReadOnly

mkr_open_zpr_zapchesti_na_sklade_Exit:

Exit Function

mkr_open_zpr_zapchesti_na_sklade_Err:

MsgBox Error$

Resume mkr_open_zpr_zapchesti_na_sklade_Exit

End Function

Макрос «mkr_open_zpr_zapchesti_na_sklade»:

Function mkr_open_zpr_zaka_ne_peredan()

On Error GoTo mkr_open_zpr_zaka_ne_peredan_Err

DoCmd.OpenQuery "зпр_заказано_поставлено_но_не_передано", acViewPreview, acReadOnly

mkr_open_zpr_zaka_ne_peredan_Exit:

Exit Function

mkr_open_zpr_zaka_ne_peredan_Err:

MsgBox Error$

Resume mkr_open_zpr_zaka_ne_peredan_Exit

End Function

Макрос «mkr_open_zpr_rent_po_contracts»:

Function mkr_open_zpr_rent_po_contracts()

On Error GoTo mkr_open_zpr_rent_po_contracts_Err

DoCmd.OpenQuery "зпр_рентабельность_контрактов", acViewPreview, acReadOnly

mkr_open_zpr_rent_po_contracts_Exit:

Exit Function

mkr_open_zpr_rent_po_contracts_Err:

MsgBox Error$

Resume mkr_open_zpr_rent_po_contracts_Exit

End Function

Макрос «mkr_open_zpr_rentab_model_techniki»:

Function mkr_open_zpr_rentab_model_techniki()

On Error GoTo mkr_open_zpr_rentab_model_techniki_Err

DoCmd.OpenQuery "зпр_рентабельность_моделей_техники", acViewPreview, acReadOnly

mkr_open_zpr_rentab_model_techniki_Exit:

Exit Function

mkr_open_zpr_rentab_model_techniki_Err:

MsgBox Error$

Resume mkr_open_zpr_rentab_model_techniki_Exit

End Function

Макрос «mkr_open_zpr_zatratoemkost_kontrakt»:

Function mkr_open_zpr_zatratoemkost_kontrakt()

On Error GoTo mkr_open_zpr_zatratoemkost_kontrakt_Err

DoCmd.OpenQuery "зпр_затратоемкость_контрактов", acViewPreview, acReadOnly

mkr_open_zpr_zatratoemkost_kontrakt_Exit:

Exit Function

mkr_open_zpr_zatratoemkost_kontrakt_Err:

MsgBox Error$

Resume mkr_open_zpr_zatratoemkost_kontrakt_Exit

End Function

Макрос «mkr_open_zpr_zatratoemkost_po_techn»:

Function mkr_open_zpr_zatratoemkost_po_techn()

On Error GoTo mkr_open_zpr_zatratoemkost_po_techn_Err

DoCmd.OpenQuery "зпр_затратоемкость_моделей", acViewPreview, acReadOnly

mkr_open_zpr_zatratoemkost_po_techn_Exit:

Exit Function

mkr_open_zpr_zatratoemkost_po_techn_Err:

MsgBox Error$

Resume mkr_open_zpr_zatratoemkost_po_techn_Exit

End Function

Макрос «mkr_open_zpr_norma_zapasa_zapchast»:

Function mkr_open_zpr_norma_zapasa_zapchast()

On Error GoTo mkr_open_zpr_norma_zapasa_zapchast_Err

DoCmd.OpenQuery "зпр_норма_запаса_запчастей", acViewPreview, acReadOnly

mkr_open_zpr_norma_zapasa_zapchast_Exit:

Exit Function

mkr_open_zpr_norma_zapasa_zapchast_Err:

MsgBox Error$

Resume mkr_open_zpr_norma_zapasa_zapchast_Exit

End Function

Макрос «mkr_open_zpr_norma_zakaza_zapchast»:

Function mkr_open_zpr_norma_zakaza_zapchast()

On Error GoTo mkr_open_zpr_norma_zakaza_zapchast_Err

DoCmd.OpenQuery "зпр_норма_заказа_запчастей", acViewPreview, acReadOnly

mkr_open_zpr_norma_zakaza_zapchast_Exit:

Exit Function

mkr_open_zpr_norma_zakaza_zapchast_Err:

MsgBox Error$

Resume mkr_open_zpr_norma_zakaza_zapchast_Exit

End Function



Приложение Д. Экранные формы

Рисунок Д.1 Форма «фрм_главная»

Рисунок Д.3 Форма «фрм_ввод_данных»

Рисунок Д.4 Форма «фрм_ос1», обеспечивающая доступ к данным таблицы «тбл_ос1»

Рисунок Д.5 Форма «фрм_просмотр_отчетов»



Приложение Е. Макеты представления исходящей информации

Рисунок Е.1 Результат активации элемента управления «кнп_отк_тбл_аренда»

Рисунок Е.2 результат активации элемента управления «кнп_отк_зпр_длительность_аренды»

Рисунок Е.3 Результат активации элемента управления «кнп_отк_запр_амортизация_за_год»

Рисунок Е.4 Результат активации элемента управления «кнп_отк_зпр_прибыль_по_арендаторам»

Рисунок Е.5 Результат активации элемента управления «кнп_отк_зпр_длительность_ремонтов_подробно»

Рисунок Е.6 Результат активации элемента управления «кнп_отк_зпр_затраты_по_ос»

Рисунок Е.7 Результат активации элемента управления «кнп_отк_зпр_затраты_по_типам»

Рисунок Е.8 Результат активации элемента управления «кнп_отк_зпр_количество_ремонтов»

Рисунок Е.9 Результат активации элемента управления «кнп_отк_зпр_удельные_ремонты»

Рисунок Е.10 Результат активации элемента управления «кнп_отк_зпр_затратоемкость_по_контрактам»

Рисунок Е.11 Результат активации элемента управления «кнп_отк_зпр_затратоемкость_по_технике»

Рисунок Е.12 Результат активации элемента управления «кнп_отк_зпр_норма_заказа_запчастей»

Рисунок Е.13 Пример визуализации данных аналитических запросов

Размещено на Allbest.ru