Автоматизированная информационная система учета хранения и обслуживания контрольно-измерительных приборов

Результаты разработки представлены в Приложении А в виде законченной концептуальной модели.

3.3 Реализация БД в СУБД Microsoft Access

3.3.1 Создание таблиц

В Access таблицей является совокупность данных, объединенных общей темой. Для каждой темы отводится отдельная таблица, что позволяет избежать повторения сохраняемых данных. К созданию новой таблицы можно приступить сразу после открытия БД. В качестве примера рассмотрим создание таблицы "Средство измерения".

В окне БД откроем вкладку "Таблицы". В результате на экране появится окно "Новая таблица", в правой части которого перечислены способы создания таблиц. Выбираем способ "Конструктор".

Состав таблицы определяется в области проекта таблицы. Проект таблицы состоит из трех колонок - "Имя поля", "Тип данных" и "Описание". В первой колонке указывается имя поля, во второй - его тип, а в третьей вводится информация о назначении поля.

Введем в первую строку колонки "Имя поля" "Код СИ", в списке типов выберем тип "Счетчик". Данное поле следует объявить полем первичного ключа. Для этого выполним щелчок на кнопке "Первичный ключ" панели инструментов.

Далее в строки колонки "Имя поля" введем "Год выпуска", "Срок поверки лет", "Заводской номер", "Код среды применения", "Код типа СИ". Для всех этих полей, в списке типов, выберем тип "Числовой".

Далее в колонку "Имя поля" вводим "Инвентарный номер", "Наименование", "Предел измерения", "Расположение в цепи". В списке типов для всех этих полей выбираем тип "Текстовый". Для каждого из полей в области "Свойства поля" активизируем поле ввода "Размер поля" и введем цифры, соответствующие размерам полей. Таблица готова.

Аналогичным образом создаются все остальные таблицы БД. Примеры созданных таблиц приведены в Приложении Б.

3.3.2 Создание физической схемы данных

Для того чтобы создавать связи между таблицами было легко и удобно, Access предлагает специальный режим: в окне "Схема данных" можно найти наглядное графическое представление межтабличных связей. Чтобы перейти в этот режим и установить связь между двумя таблицами, необходимо выполнить перечисленные ниже действия:

1. Закрыть все таблицы. Изменять связи между открытыми таблицами нельзя.

2. Чтобы на панели инструментов присутствовала кнопка "Схема данных", окно базы данных должно быть активным.

3. Щелкните на кнопке панели инструментов схема данных, откроется окно "Схема данных".

4. Щелкните на кнопке панели инструментов "Добавить таблицу". Появится диалоговое окно "Добавление таблицы". Выберите из списка предложенных таблиц "Средство измерения" и с помощью нажатия кнопки "Добавить" добавьте ее в окно Схема данных. Аналогично добавьте в окно "Схема данных" таблицу "Хранение СИ".

5. Связь между таблицами "Средство измерения" и "Хранение СИ" основываются на значениях их полей "Код СИ". Щелкните мышью на поле "Код СИ" таблицы "Средство измерения" и перетащите его на поле "Код СИ" таблицы "Хранение СИ2. Перед вами появится диалоговое окно "Связи", в котором отображаются имена связываемых полей обеих таблиц и тип связи.

6. Подтвердите целостность создаваемой связи, установив флажок в соответственном поле.

7. Щелкните кнопку "Создать", чтобы связь появилась в окне "Схема данных".

8. После того, как вы создали связи между таблицами, щелкните на кнопке закрытия окна "Схема данных" и подтвердите сохранение.

Схема данных создаваемой БД приведена в Приложении В.

3.3.3 Создание запросов и отчетов

Для примера рассмотрим создание запроса "Список СИ с датами поверки". Для того чтобы создать запрос необходимо выполнить следующие операции:

В окне БД щелкнуть на вкладку "Запрос", а затем нажать кнопку "Создать".

На экране появиться диалоговое окно "Новый запрос", выберите строку "Конструктор" и щелкните ОК.

Из диалогового окна, содержащего все таблицы БД, выберите таблицу "Средство измерения", участвующую в создании запроса и щелкнете "Добавить".

Повторите пункт 3 для таблицы "Поверка".

Чтобы отобразить запрос в режиме "Конструктор", щелкните кнопку "Закрыть".

Выделите поле "Инвентарный номер" из таблицы "Средство измерения" и перетащите его в строку "Поле" первой пустой колонки бланка запроса.

Аналогично перетащите поля "Наименование" из таблицы "Средство измерения", "Дата последней поверки", "Дата последующей поверки" из таблицы "Поверка".

Щелкнете кнопку "Сохранить", введите имя сохраняемого запроса и нажмите ОК.

На этом создание запроса "Список СИ с датами поверки" завершено.

Все запросы БД создаются аналогично вышеописанному запросу.

Листинги запросов приведены в Приложении Г.

Рассмотрим создание отчета "Перечень средств измерения".

Для создания отчета необходимо перейти на вкладку "Отчеты" в окне БД и нажать на кнопку "Создать", чтобы открыть окно диалога "Новый отчет". В этом окне выберите "Мастер отчетов и выберите таблицу "Средство измерения" в качестве источника данных. Нажмите кнопку ОК и перейдите в окно, в котором перенесите все поля запроса в окно "Выбранные поля" и нажмите кнопку "Далее".

В открывшемся окне зададите вид отчета в "Макете" столбец, ориентацию "Альбомную", стиль "Строгий". Нажмите кнопку "Далее" и в открывшемся окне занесите название отчета "Список СИ с датами поверки". Нажмите кнопку "Готово". Затем для придания отчету требуемого вида выходного документа нажмите на кнопку "Конструктор" во вкладке БД "Отчеты". Находясь в окне "Конструктора," проведите необходимые изменения. Аналогично создаются все отчеты. Виды отчетов представлены в Приложении Д.

3.3.4 Создание форм

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

Чтобы создать форму "Обслуживание СИ" с помощью мастера форм, необходимо выполнить следующие действия.

1. Выберите вкладку "Формы" окна базы данных, затем щелкните на кнопке "Создать". Отобразится диалоговое окно "Новая форма".

2. Выберите "Мастер форм" в списке диалогового окна "Новая форма". Мастер форм позволяет создать как простую форму, так и форму с данными, содержащую подчиненную форму.

3. В раскрывающемся списке в нижней части диалогового окна "Новая форма" перечисляются все существующие таблицы или запросы, доступные в качестве источника данных формы. Щелкните на стрелке, чтобы открыть список, затем выберите таблицу "Обслуживание СИ". Щелкните на кнопке "OК". Access отобразит первое диалоговое окно мастера создания форм.

4. В первом окне Мастера двойным щелчком выберите поля, размещаемые в форме.

5. Щелкните на кнопке "Далее", чтобы отобразить второе диалоговое окно мастера форм.

6. Мастер форм предложит выбрать внешний вид формы. Выберите опцию "Ленточная". Щелкните на кнопке "Далее", чтобы перейти в следующее диалоговое окно "Создание форм".

7. Мастер форм открывает диалоговое окно выбора стиля отображения формы. Щелкните на кнопке "Обычный", а затем на кнопку "Далее", чтобы перейти в последнее диалоговое окно мастера.

8. Мастер предлагает ввести имя формы. Кроме того, мастер запрашивает о дальнейших действиях после завершения создания формы. Введите имя формы - "Обслуживание СИ". Выберите опцию "Открытие формы для просмотра или ввода данных" и щелкните на кнопке "Готово", чтобы завершить создание формы.

Поначалу форма содержит только выбранные поля при создании ее Мастером, но этого недостаточно для удобной работы с ней в дальнейшем. Для улучшения дизайна формы зайдем в Конструктор форм, где необходимо провести некоторые изменения.

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

Для того, чтобы параллельно с вводом информации об обслуживании пользователь мог осуществлять ввод инвентарного номера и наименования обслуживаемого прибора, создадим поле со списком на основе таблицы "Средство измерения". Опишем создание поля со списком:

Щелкните на панели инструментов кнопку "Поле со списком", на экране раскроется первое диалоговое окно "Мастера создания поля со списком", в котором выбранный "Объект поле со списком" будет использовать значения из таблицы или запроса. Для продолжения щелкните кнопку "Далее".

Во втором диалоговом окне Мастера выберете таблицу "Средство измерения".

В третьем диалоговом окне Мастера определите необходимые поля для поля со списком. Такими полями являются "Код СИ", "Инвентарный номер", "Наименование".

В четвертом диалоговом окне выберете порядок сортировки списка

В пятом диалоговом окне задайте ширину столбцов, которые содержит поле со списком.

В шестом окне Мастера сохраните значения поля со списком в поле "Код СИ".

В последнем диалоговом окне Мастера задайте имя поля со списком и нажмите кнопку "Готово".

Аналогичным образом создаются все остальные поля со списком.

Для удобства работы с формой создана следующая кнопка: "Выход".

Кнопки создаются следующим образом: щелкните на панели инструментов кнопку "Кнопка", после чего появится диалоговое окно "Создание кнопок", в котором выберите кнопку в необходимом разделе, например, кнопку "Выход" в разделе "Работа с формой", и нажмите кнопку "Далее". В следующих окнах диалогового окна "Создание кнопки" выберите внешний вид кнопки, введите ее имя и нажмите кнопку "Готово". После создания кнопки выделите ее и зайдите в свойства кнопки с помощью нажатия левой клавиши мыши, где в пункте "Нажатие кнопки" запишите процедуру обработки событий после нажатия кнопки.

На этом создание формы "Обслуживание СИ" завершено.

Остальные формы БД создаются аналогично форме "Обслуживание СИ". Описание форм в среде Visual Basic приведено в Приложении Е.

3.4 Описание структуры интерфейса

Задачей данного дипломного проекта является создание интерфейса пользователя системы учета, хранения, эксплуатации и обслуживания средств измерения цеха КИП. Интерфейс пользователя реализован в виде пунктов меню, каждый из которых содержит на своем листе форму для реализации одной из задач. Разработанная АИС содержит 6 пунктов меню: "эксплуатация СИ", "хранение СИ", "обслуживание СИ", "поверка СИ", "перечень СИ" и выход. При выборе необходимого пункта на экране открывается форма, необходимая для решения задачи с нужной информацией для принятия решения. На главной кнопочной форме приложения отображены 6 копок: "эксплуатация СИ", "хранение СИ", "обслуживание СИ", "поверка СИ", "перечень СИ", "выход".

При нажатии кнопки "эксплуатация СИ" появляется список, содержащий 4 строки подменю: "эксплуатация СИ", "участки", "тех позиции", "выход".

Пункт меню "хранение СИ" содержит 4 подпункта: "хранение СИ", "ЗИП", "тип хранения", "выход", в этой же форме находится кнопка "ЗИП участков". Подпункты "хранение СИ", "ЗИП" и "тип хранения" содержат в себе кнопки: "добавить запись", "удалить запись", "выход". Подпункт "хранение СИ" содержит кнопки: "просмотр отчета" и "печать отчета". Подпункт "ЗИП" - содержит кнопки: "место хранения" и "тип хранения".

Пункт меню "обслуживание СИ" включает в себя 4 подпункта: "обслуживание СИ", "тип обслуживания", "сотрудники" и "выход". В интерфейсе формы "обслуживание СИ" находятся кнопки "просмотр отчета" и "печать отчета", "добавить запись" и "удалить запись", "выход" и кнопка "тип обслуживания" - позволяющая изменять запись "тип обслуживания".

Пункт меню "поверка СИ" содержит 3 подпункта: "поверка СИ", "КИЛ", "выход". Также форма "поверка СИ", содержит кнопки: "просмотр отчета" и "печать отчета", "добавить запись", "удалить запись", "выход". Также подпункт "поверка СИ" включает в себя кнопку "брак". "КИЛ" - содержит кнопки: "добавить запись", "удалить запись", "выход".

Пункт меню "перечень СИ" содержит 4 подпункта: "перечень СИ", "среда применения", "просмотр отчета", "выход". Подпункт "перечень СИ" - содержит кнопки: "добавить запись", "удалить запись", "выход".

Также все пункты и подпункты, содержащие данные имеют кнопки навигации по записям. Пункт меню "Выход" осуществляет выход из приложения.

3.5 Инструкция пользователя

Для запуска приложения АИС учета, хранения и обслуживания средств измерения цеха Контрольно-измерительных приборов предприятия достаточно найти на рабочем столе иконку с названием "КИП" и дважды щелкнуть левой кнопкой мышки. Другой способ запуска приложения заключается в том, что пользователь находит через проводник файл КИП.mbd и нажатием клавиши Enter или двойным кликом левой кнопки мыши запускается приложение.

При этом открывается главная форма приложения, из которой возможен переход к пяти основным разделам, согласно структуре интерфейса пользователя. Макет главной формы приложения приведен на рисунке 7

Рисунок 7 - Главная форма приложения

В разделе Эксплуатация СИ проводятся операции с данными, касающимися эксплуатации СИ. Макет формы Эксплуатация СИ представлен на рисунке 8



Рисунок 8 - Эксплуатация СИ

Выбор первого пункта приводит к открытию формы, содержащей перечень участков.

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

Выбор пункта Тех.позиции приводит к открытию одноименной формы.

Выбор пункта Эксплуатация СИ приводит к открытию соответствующей формы, макет представлен на рисунке

Эксплуатация СИ

Здесь следует ввести инвентарный номер СИ, участок на котором производится эксплуатация СИ, тех. позицию, дата ввода СИ в эксплуатацию, дата вывода СИ из эксплуатации.

Выбор второго пункта меню главной кнопочной формы приводит к открытию формы Хранение СИ. Макет формы Хранение СИ представлен на рисунке 12

Рисунок 12 - ХранениеСИ

Здесь производятся операции над данными, связанные с хранением СИ.

В форме Тип хранения вводится, редактируется информация о типах хранения. Макет формы представлен на рисунке13

Рисунок 13 - Тип хранения

В форме ЗИП вводится и редактируется информация о ЗИП и о месте его хранения. Макет формы представлен на рисунке 14



Рисунок 14 - ЗИП

Информации о хранении СИ вводится и редактируется через соответствующую форму, макет которой представлен на рисунке 15

Рисунок 15 - Хранение СИ

Здесь следует указать инвентарный номер СИ, место хранения, дату отправки на хранение, дату снятия с хранения.

Выбор третьего пункта основного меню открывает форму, связанную с обслуживанием СИ, макет которой представлен на рисунке 16



Рисунок 16 - Обслуживание СИ

В форме Тип обслуживания вводится и редактируется информация о видах обслуживания СИ.

В форме Сотрудники вводится и редактируется информация о сотрудниках, обслуживающих СИ.

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

В форме Обслуживание СИ вводится и редактируется соответствующая информация.

Здесь следует указать инвентарный номер СИ, вид обслуживания, дату обслуживания, сотрудника проводившего обслуживание СИ.

Четвертый пункт главной кнопочной формы переводит в форму, связанную с поверкой СИ. Макет формы представлен на рисунке 21



Рисунок 21 - Поверка СИ

Форма КИЛ содержит перечень контрольно-измерительных лабораторий. Макет формы представлен на рисунке 22

Рисунок 22 - КИЛ

Здесь при добавлении следует указать номер лаборатории и ее название. В форме Поверка вводится и редактируется информация о проведенных поверках СИ. Макет формы Поверка представлен на рисунке 23



Рисунок 23 - Поверка

Здесь следует указать лабораторию, инвентарный номер СИ, дату последней поверки, дату следующей поверки, результат последней поверки. А так же если по результатам поверки СИ признано непригодным следует указать что это брак. Пятый пункт главной кнопочной формы открывает форму Перечень СИ. Данная форма по сути является справочным разделом АИС. Макет формы приведен на рисунке 24

Рисунок 24 - Перечень СИ

В форме Среда применения вводится и редактируется информация о среде применения

В форме Средства измерений редактируется и добавляется информация об используемых средствах измерения. Макет формы представлен на рисунке

Средства измерения

Здесь указываются все основные технические и эксплуатационные характеристики средств измерения.

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

Завершение работы приложения осуществляется путем выбора пункта Выход в главной кнопочной форме, либо нажатием кнопки Х в верхнем правом углу формы приложения, либо нажатием комбинации клавиш Alt+F4.

Корневая структура интерфейса приведена в Приложении Ж.

3.6 Запуск приложения

Для запуска приложения АИС учета, хранения и обслуживания средств измерения цеха Контрольно-измерительных приборов предприятия достаточно найти на рабочем столе иконку с названием "КИП" и дважды щелкнуть левой кнопкой мышки. Другой способ запуска приложения заключается в том, что пользователь находит через проводник в папке C:\АИС_КИП\КИП файл КИП.mbd и нажатием клавиши Enter запускает приложение.

3.7 Реализация методов защиты

Согласно ТЗ были реализованы следующие средства защиты информации от НСД.

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

Кроме того, все таблицы базы данных защищены паролем. При попытке просмотра структуры, какой либо таблицы, появляется диалоговое окно с приглашением ввести пароль доступа. Таким образом, доступ к информации на техническом уровне становится затруднительным для программиста среднего класса.

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

Заключение

В данном дипломном проекте разработана АИС учета хранения и обслуживания средств измерения цеха Контрольно-измерительных приборов предприятия, предназначенная для решения задач по ведению учета поверки, комплектации технологических участков средствами измерения и контроля, их эксплуатации, обслуживания и хранения .

Выполнено описание и анализ деятельности цеха Контрольно-измерительных приборов; проведен анализ программных продуктов для метрологического обеспечения и учета КИП; cформулированы требования к АИС и разработано техническое задание; спроектирована концептуальная модель БД и реализована в СУБД Microsoft Access; разработан программный интерфейс АИС; разработана инструкция пользователя.

В качестве специального программного обеспечения выбрана СУБД Microsoft Access 2003.

Применение разработанной АИС цехом Контрольно-измерительных приборов позволит снизить трудозатраты по сбору и систематизации сведений о средствах измерения; оперативно выполнять задачи по обслуживанию, поверке, регистрации, внесению изменений и исключению объектов из общего реестра; контролировать истечение сроков поверки средств измерения; уменьшить вероятность появления ошибок в работе сотрудников по ведению реестра; упростить поиск информации о контрольно-измерительных приборах; автоматизировать оформление отчетной документации.

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

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

1. Грекул В.И. Проектирование информационных систем: учебное пособие / В.И. Грекул, Г.Н. Денищенко, Н.Л. Коровкина. - 2-е изд., испр. - М.: Интернет-Университет Информационных Технологий; БИНОМ. Лаборатория знаний, 2008. - 300 с.: ил. - (Серия "Основы информационных технологий")

2. Вендров А.М. Проектирование программного обеспечения экономических информационных систем: Учебник. - 2-е изд., перераб. и доп. - М.: Финансы и статистика, 2006. - 544 с.: ил.

3. Кауфельд, Джон. Access 2003: Учебник - М.: Издательский дом "Вильямс", 2004. - 320с.:ил.

4. Михеева В.Д., Харитонова И.А. Microsoft Access 2003: Учебник. - СПб.: БВХ - Петербург, 2006. - 1072с.: ил.

5. Голицына О.Л., Максимов Н.В., Попов И.И. "Базы данных." - Форум, 2006.

6. Гончаров А.Ю. ACCESS 2003. Самоучитель с примерами - М.: КУДИЦ-ОБРАЗ, 2004. - 272 с

Приложение А

Рисунок А.1 - Концептуальная модель данных

Приложение Б

Таблица Б.1 - Средство измерения

средство измерения
код СИ	инвентарный номер	наименование	заводской номер	предел измерения	год выпуска	срок поверки, лет	расположение в цепи	код среды применения	тип СИ
1	Н1	манометр показывающий	822308	0-400 КГ/СМ2	1987	1	первичный	азот	МП-160/1С
2	Т21	Манометр электроконтактный	202298	0-4 кг/см2	1983	1	первичный	масло	ЭКМ-1У
3	Х25	Уровнеметр	349071	0-400 м	1995	1	вторичный	азот	ДСП-УС
4	Н15	Мост	546326	0-100 С	1983	1	вторичный	воздух	КСМ-2
5	Ш32	Дифманометр	786543	0-80 кг/см2	1976	1	первичный	кислород	ДМ-3583М
6	Н53	Мост	432546	0-100 С	1983	1	вторичный	воздух	КСМ-4
7	М153	Маномовакуумметр	243564	-10 - +50 кг/см2	1983	0	индикатор	кислород	МВМ-12
8	Т32	Манометр электроконтактный	543626	0-32 кг/см2	1984	1	первичный	масло	ЭКМ-1У
9	П33	Манометр	452621	0-16 кг/см2	1984	1	первичный	воздух	МП-4
10	П54	Манометр	653673	0-32 кг/см2	1984	1	первичный	кислород	МЭД
11	Н25	Газоанализатор	123214	0-98 %	1985	3	второй блок	кислород	Флюорит 555
12	Н34	Указатель жидкого кислорода	454397	0-150 т	1985	2	первичный	кислород	УЖК-2
13	П56	Дифманометр	869880	0-160 кг/см2	1983	1	первичный	азот	ДМ-3583М
14	П57	Дифманометр	869875	0-160 кг/см2	1983	1	первичный	азот	ДМ-3583М
15	Н35	Указатель жидкого кислорода	123344	0-98 %	1985	2	первичный	воздух	УЖК-2
16	Н14	Мост	579673	0-100 С	1983	1	вторичный	масло	КСМ-4
17	Т31	Манометр электроконтактный	908765	0-60 кг/см2	1983	1	первичный	масло	ЭКМ-1У
18	Т1	Манометр электроконтактный	714636	0-25 кг/см2	1983	1	первичный	масло	ЭКМ-1У
19	ХЗ	Уровнеметр	875357	0-400 м	1985	1	первичный	азот	ДСП-УС
20	Г1	Термометр сопротивления	009872	0-100 С	2001	3	датчик	воздух	ТCМ1
21	Г2	Термометр сопротивления	009873	0-100 С	2001	3	датчик	азот	ТСМ1
22	Г3	Термометр сопротивления	009874	0-100 С	2001	3	датчик	азот	ТСМ1
23	Г4	Термометр сопротивления	009892	-50-(+100) С	2001	3	датчик	кислород	ТСП4
24	Г5	Термометр сопротивления	009893	-50-(+100) С	2001	3	датчик	азот	ТСП4
25	Г6	Термометр сопротивления	009894	-50-(+100) С	2001	3	датчик	воздух	ТСП4
26	К5	Манометр электроконтактный	458211	0-25 кг/см2	1988	1	первичный	масло	ЭКМ-1У

Таблица Б.2 - Поверка СИ

поверка
код поверки	код лаборатории	код СИ	дата последней поверки	дата следующей поверки	результат поверки	брак
1	масляные приборы	М153	15.03.2009	15.03.2010	поверен I кварталом, годен	Нет
2	электронные приборы	Н1	12.12.2008	12.12.2009	поверен IV кварталом, 12.10.08 - заманен редуктор зав№ 436577	Нет
3	масляные приборы	Н14	03.09.2009	03.09.2010	поверен I кварталом, брак	Да
4	масляные приборы	Н15	07.08.2009	07.08.2010	поверен I кварталом, годен	Нет
5	электронные приборы	Н25	04.02.2009	04.02.2010	поверен I кварталом, годен	Нет
6	газовые приборы	Н34	07.07.2008	07.07.2009	поверен I кварталом, годен	Нет
7	электронные приборы	Н35	02.03.2009	02.03.2010	поверен I кварталом, годен	Нет
8	электронные приборы	П33	05.06.2009	05.06.2010	поверен I кварталом, брак	Да
9	электронные приборы	П54	06.01.2009	06.01.2010	поверен I кварталом, годен	Нет
10	масляные приборы	П56	12.11.2008	12.11.2009	поверен I кварталом, годен	Нет
11	электронные приборы	П57	13.01.2009	13.01.2010	поверен I кварталом, годен	Нет
12	электронные приборы	Т1	04.02.2009	04.02.2010	поверен I кварталом, годен	Нет
13	масляные приборы	Т21	02.03.2009	02.03.2010	поверен I кварталом, годен	Нет
14	электронные приборы	Т32	05.04.2009	05.04.2010	поверен I кварталом, годен	Нет
15	электронные приборы	Х25	12.05.2009	12.05.2010	поверен I кварталом, годен	Нет
16	электронные приборы	ХЗ	08.06.2008	08.06.2009	поверен I кварталом, брак	Да
17	газовые приборы	Ш32	27.07.2008	27.07.2009	поверен I кварталом, годен	Нет
18	масляные приборы	П54	15.08.2008	15.08.2009	поверен I кварталом, годен	Нет
19	газовые приборы	Н34	09.09.2008	09.09.2009	поверен I кварталом, годен	Нет
20	масляные приборы	П57	05.10.2008	05.10.2009	поверен I кварталом, годен	Нет
21	масляные приборы	Н34	17.11.2008	17.11.2009	поверен I кварталом, годен	Нет
22	электронные приборы	Т21	23.12.2008	23.12.2009	поверен I кварталом, годен	Нет
23	масляные приборы	Х25	11.02.2008	11.02.2009	поверен I кварталом, годен	Нет
24	масляные приборы	Ш32	11.02.2008	11.02.2009	поверен I кварталом, годен	Нет

Приложение В

Рисунок В.1 - Схема данных

Приложение Г

Запрос "Список СИ с датами поверки"

SELECT [средство измерения].[инвентарный номер], [средство измерения].наименование, [средство измерения].[тип СИ], [средство измерения].[срок поверки, лет], КИЛ.[тип лаборатории], Max(поверка.[дата последней поверки]) AS [Max-дата последней поверки], DateSerial(Year([дата последней поверки]+([срок поверки, лет]*365)),Month([дата последней поверки]),Day([дата последней поверки])) AS Выражение1, поверка.[результат поверки], поверка.брак

FROM [средство измерения] INNER JOIN (КИЛ INNER JOIN поверка ON КИЛ.[код лаборатории]=поверка.[код лаборатории]) ON [средство измерения].[код СИ]=поверка.[код СИ]

GROUP BY [средство измерения].[инвентарный номер], [средство измерения].наименование, [средство измерения].[тип СИ], [средство измерения].[срок поверки, лет], КИЛ.[тип лаборатории], DateSerial(Year([дата последней поверки]+([срок поверки, лет]*365)),Month([дата последней поверки]),Day([дата последней поверки])), поверка.[результат поверки], поверка.брак;

Запрос "Хранение СИ участка СОВС"

SELECT [средство измерения].[инвентарный номер], [средство измерения].наименование, [средство измерения].[тип СИ], [тип хранения].[тип хранения], [хранение СИ].[дата отправки на хранение], [хранение СИ].[дата снятия с хранения], ЗИП.[место хранения]

FROM [тип хранения] INNER JOIN (ЗИП INNER JOIN ([средство измерения] INNER JOIN [хранение СИ] ON [средство измерения].[код СИ]=[хранение СИ].[код СИ]) ON ЗИП.[код ЗИП]=[хранение СИ].[код ЗИП]) ON [тип хранения].[код типа хранения]=ЗИП.[код типа хранения]

WHERE (((ЗИП.[место хранения])='ЗИП участка СОВС'));

Приложение Д

Рисунок Д.1 - Отчет "Перечень средств измерения"

Рисунок Д.3 - Отчет "Эксплуатация СИ"

Приложение Е

Описание Главной кнопочной формы.

Option Compare Database

Private Sub Form_Open(Cancel As Integer)

' Minimize the database window and initialize the form.

' Move to the switchboard page that is marked as the default.

Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'По умолчанию' "

Me.FilterOn = True

End Sub

Private Sub Form_Current()

' Update the caption and fill in the list of options

Me.Caption = Nz(Me![ItemText], "")

FillOptions

End Sub

Private Sub FillOptions()

' Fill in the options for this switchboard page.

' The number of buttons on the form.

Const conNumButtons = 8

Dim con As Object

Dim rs As Object

Dim stSql As String

Dim intOption As Integer

' Set the focus to the first button on the form,

' and then hide all of the buttons on the form

' but the first. You can't hide the field with the focus.

Me![Option1].SetFocus

For intOption = 2 To conNumButtons

Me("Option" & intOption).Visible = False

Me("OptionLabel" & intOption).Visible = False

Next intOption

' Open the table of Switchboard Items, and find

' the first item for this Switchboard Page.

Set con = Application.CurrentProject.Connection

stSql = "SELECT * FROM [Switchboard Items]"

stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]

stSql = stSql & " ORDER BY [ItemNumber];"

Set rs = CreateObject("ADODB.Recordset")

rs.Open stSql, con, 1 ' 1 = adOpenKeyset

' If there are no options for this Switchboard Page,

' display a message. Otherwise, fill the page with the items.

If (rs.EOF) Then

Me![OptionLabel1].Caption = "На странице кнопочной формы нет элементов"

Else

While (Not (rs.EOF))

Me("Option" & rs![ItemNumber]).Visible = True

Me("OptionLabel" & rs![ItemNumber]).Visible = True

Me("OptionLabel" & rs![ItemNumber]).Caption = rs![ItemText]

rs.MoveNext

Wend

End If

' Close the recordset and the database.

rs.Close

Set rs = Nothing

Set con = Nothing

End Sub

Private Function HandleButtonClick(intBtn As Integer)

' This function is called when a button is clicked.

' intBtn indicates which button was clicked.

' Constants for the commands that can be executed.

Const conCmdGotoSwitchboard = 1

Const conCmdOpenFormAdd = 2

Const conCmdOpenFormBrowse = 3

Const conCmdOpenReport = 4

Const conCmdCustomizeSwitchboard = 5

Const conCmdExitApplication = 6

Const conCmdRunMacro = 7

Const conCmdRunCode = 8

Const conCmdOpenPage = 9

' An error that is special cased.

Const conErrDoCmdCancelled = 2501

Dim con As Object

Dim rs As Object

Dim stSql As String

On Error GoTo HandleButtonClick_Err

' Find the item in the Switchboard Items table

' that corresponds to the button that was clicked.

Set con = Application.CurrentProject.Connection

Set rs = CreateObject("ADODB.Recordset")

stSql = "SELECT * FROM [Switchboard Items] "

stSql = stSql & "WHERE [SwitchboardID]=" & Me![SwitchboardID] & " AND [ItemNumber]=" & intBtn

rs.Open stSql, con, 1 ' 1 = adOpenKeyset

' If no item matches, report the error and exit the function.

If (rs.EOF) Then

MsgBox "Ошибка при чтении таблицы Switchboard Items."

rs.Close

Set rs = Nothing

Set con = Nothing

Exit Function

End If

Select Case rs![Command]

' Go to another switchboard.

Case conCmdGotoSwitchboard

Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" & rs![Argument]

' Open a form in Add mode.

Case conCmdOpenFormAdd

DoCmd.OpenForm rs![Argument], , , , acAdd

' Open a form.

Case conCmdOpenFormBrowse

DoCmd.OpenForm rs![Argument]

' Open a report.

Case conCmdOpenReport

DoCmd.OpenReport rs![Argument], acPreview

' Customize the Switchboard.

Case conCmdCustomizeSwitchboard

' Handle the case where the Switchboard Manager

' is not installed (e.g. Minimal Install).

On Error Resume Next

Application.Run "ACWZMAIN.sbm_Entry"

If (Err <> 0) Then MsgBox "Команда недоступна."

On Error GoTo 0

' Update the form.

Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'По умолчанию' "

Me.Caption = Nz(Me![ItemText], "")

FillOptions

' Exit the application.

Case conCmdExitApplication

CloseCurrentDatabase

' Run a macro.

Case conCmdRunMacro

DoCmd.RunMacro rs![Argument]

' Run code.

Case conCmdRunCode

Application.Run rs![Argument]

' Open a Data Access Page

Case conCmdOpenPage

DoCmd.OpenDataAccessPage rs![Argument]

' Any other command is unrecognized.

Case Else

MsgBox "Неизвестная команда."

End Select

' Close the recordset and the database.

rs.Close

HandleButtonClick_Exit:

On Error Resume Next

Set rs = Nothing

Set con = Nothing

Exit Function

HandleButtonClick_Err:

' If the action was cancelled by the user for

' some reason, don't display an error message.

' Instead, resume on the next line.

If (Err = conErrDoCmdCancelled) Then

Resume Next

Else

MsgBox "Ошибка при выполнении команды.", vbCritical

Resume HandleButtonClick_Exit

End If

End Function

Описание формы "Средство измерения"

Option Compare Database

Private Sub Кнопка27_Click()

On Error GoTo Err_Кнопка27_Click

DoCmd.GoToRecord , , acFirst

Exit_Кнопка27_Click:

Exit Sub

Err_Кнопка27_Click:

MsgBox Err.Description

Resume Exit_Кнопка27_Click

End Sub

Private Sub Кнопка28_Click()

On Error GoTo Err_Кнопка28_Click

DoCmd.GoToRecord , , acLast

Exit_Кнопка28_Click:

Exit Sub

Err_Кнопка28_Click:

MsgBox Err.Description

Resume Exit_Кнопка28_Click

End Sub

Private Sub Кнопка29_Click()

On Error GoTo Err_Кнопка29_Click

DoCmd.GoToRecord , , acPrevious

Exit_Кнопка29_Click:

Exit Sub

Err_Кнопка29_Click:

MsgBox Err.Description

Resume Exit_Кнопка29_Click

End Sub

Private Sub Кнопка30_Click()

On Error GoTo Err_Кнопка30_Click

DoCmd.GoToRecord , , acNext

Exit_Кнопка30_Click:

Exit Sub

Err_Кнопка30_Click:

MsgBox Err.Description

Resume Exit_Кнопка30_Click

End Sub

Private Sub Кнопка31_Click()

On Error GoTo Err_Кнопка31_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Кнопка31_Click:

Exit Sub

Err_Кнопка31_Click:

MsgBox Err.Description

Resume Exit_Кнопка31_Click

End Sub

Private Sub Кнопка32_Click()

On Error GoTo Err_Кнопка32_Click

DoCmd.Close

Exit_Кнопка32_Click:

Exit Sub

Err_Кнопка32_Click:

MsgBox Err.Description

Resume Exit_Кнопка32_Click

End Sub

Private Sub Кнопка33_Click()

On Error GoTo Err_Кнопка33_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Кнопка33_Click:

Exit Sub

Err_Кнопка33_Click:

MsgBox Err.Description

Resume Exit_Кнопка33_Click

End Sub

Private Sub Кнопка34_Click()

On Error GoTo Err_Кнопка34_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1089) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1072) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1080) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1103)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка34_Click:

Exit Sub

Err_Кнопка34_Click:

MsgBox Err.Description

Resume Exit_Кнопка34_Click

End Sub

Private Sub ПолеСоСписком35_AfterUpdate()

' Поиск записи, соответствующей этому элементу управления.

Dim rs As Object

Set rs = Me.Recordset.Clone

rs.FindFirst "[код СИ] = " & Str(Nz(Me![ПолеСоСписком35], 0))

If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Private Sub Кнопка37_Click()

On Error GoTo Err_Кнопка37_Click

DoCmd.GoToRecord , , acNewRec

Exit_Кнопка37_Click:

Exit Sub

Err_Кнопка37_Click:

MsgBox Err.Description

Resume Exit_Кнопка37_Click

End Sub

Private Sub Кнопка40_Click()

On Error GoTo Err_Кнопка40_Click

Dim stDocName As String

stDocName = ChrW(1089) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1089) & ChrW(1090) & ChrW(1074) & ChrW(1086) & ChrW(32) & ChrW(1080) & ChrW(1079) & ChrW(1084) & ChrW(1077) & ChrW(1088) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1103)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка40_Click:

Exit Sub

Err_Кнопка40_Click:

MsgBox Err.Description

Resume Exit_Кнопка40_Click

End Sub

Private Sub Кнопка41_Click()

On Error GoTo Err_Кнопка41_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1089) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1072) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1080) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1103) & ChrW(32) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1086) & ChrW(1095) & ChrW(1085) & ChrW(1072) & ChrW(1103)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка41_Click:

Exit Sub

Err_Кнопка41_Click:

MsgBox Err.Description

Resume Exit_Кнопка41_Click

End Sub

Private Sub Кнопка42_Click()

On Error GoTo Err_Кнопка42_Click

Dim stDocName As String

stDocName = ChrW(1089) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1089) & ChrW(1090) & ChrW(1074) & ChrW(1086) & ChrW(32) & ChrW(1080) & ChrW(1079) & ChrW(1084) & ChrW(1077) & ChrW(1088) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1103)

DoCmd.OpenReport stDocName, acNormal

Exit_Кнопка42_Click:

Exit Sub

Err_Кнопка42_Click:

MsgBox Err.Description

Resume Exit_Кнопка42_Click

End Sub

Приложение Ж

Рисунок Ж.1 - Корневая структура интерфейса

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