Программа состоит из следующих основных модулей.

Основная процедура - конфигурация среды окружения, формирование основного экрана программы, создание системы главного меню и соответствующих подменю, активизация меню.

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

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

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

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

Определение макета форм ввода-вывода

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

При выборе меню «Главное меню» пользователь попадает в подменю, в котором определены:

• Архив и ввод данных;
• Отчеты;
• Выход.

В нижней части окна расположено поле с текущей датой.

Пункт меню «Архив и ввод данных» делится в свою очередь на:

Рис.8. Главное меню

• Сотрудники - здесь хранятся данные о сотрудниках, в этом же окне можно просчитать загруженность поверителя за месяц. Загруженность вычисляется на основе месячной норм – 168 часов ;
• Поверка и приборы - предназначена для занесения просмотра данных о поверках. Удобный интерфейс позволяет выбрать нужный тип прибора из предложенного списка, выбрать нужную позицию методики поверки из списка, а также значение прохождения поверки (годен/негоден). В строке даты последующей поверки автоматически считается дата ;
• Ремонтные работы - для учета приборов находящихся в ремонте;
• Выйти из каждого меню можно, нажав кнопку «Закрыть».

Выбрав пункт меню «Отчеты» пользователь попадает в форму, где он может найти нужный документ:

1. Отчет по поверке – позволят автоматически создать отчет о поверке и вывести его на печать;
2. Список приборов находящихся на обслуживании;
3. Приборы находящиеся на поверке;
4. Данные о приборах поверенных в интересующем диапазоне;
5. План поверки на 2010 год;
6. Данные о проведенных ремонтных работах(см. рис).

Рис.9. Форма «Архив и ввод данных»

Рис.10. Форма «План поверки на будущий год»

Рис.11. Форма «Отчет о проведенной поверке»

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

Задача обновления данных в поле «Дата следующей поверки»

Цель: При вводе новых данных в форме «Поверка» назначить процедуру, которая позволяет:

Создавать и обновлять дату следующей поверки на основе даты последней поверки, увеличивая дату на год, в том случае если прибор прошел проверку. После обновления поля даты, выводится сообщение «Дата назначена».

Если прибор не прошел проверку(значение в поле годен/негоден = ложь), выводится сообщение: «Прибор находится на ремонте».

Рис. 5 обновления данных в поле «Дата следующей поверки».

Для осуществления этой задачи была создана кнопка, при нажатии на которую выполнялся программный код:

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

Dim dbs As Database

Dim tbl As Recordset

Dim tbu As Recordset

Set dbs = CurrentDb

Set tbl = dbs.OpenRecordset("Поверка", dbOpenDynaset)

Set tbu = dbs.OpenRecordset("Ремонтные работы", dbOpenDynaset)

If tbl.EOF Then Exit Sub

tbl.MoveFirst

tbl.MoveLast

d = tbl.RecordCount

If Form_asd.Годен_Негоден.Value Then

tbl.Edit

Dim a, olddate

olddate = Form_asd.Дата_последней_поверки.Value

a = DateAdd("yyyy", 1, olddate)

For i = 1 To d

tbl.Edit

tbl.MoveFirst

If tbl![Годен_Негоден] = True Then

Form_asd.Дата_последующей_поверки = a

End If

tbl.MoveNext

Next i

MsgBox "Дата назначена"

Else

MsgBox "прибор на ремонте"

End If

tbl.Close

Set dbs = Nothing

End Sub