Учет основного оборудования на предприятии (стр. 7 из 10)

Для того чтобы удалить марку необходимо в правой-нижней части окна выбрать из списка удаляемую марку и нажать кнопку «Удалить марку из списка». Внимание удаление марки оборудования используемой каким-то оборудованием запрещено!

Эта форма аналогична предыдущей. Добавление, изменение и удалени выполняется аналогично.

Внимание! Изменение атрибута «Марка оборудования» запрещено!

Кнопка “Обрабатывающее оборудование” вызывает форму для изменения списка обрабатывающего оборудования. При нажатии левой кнопки мыши открывается форма:

Эта форма аналогична предыдущей. Добавление, изменение и удаление выполняется аналогично. Добавление оборудования с уже существующим в списке табельным номером запрещено! Удаление оборудования, к которому привязано какой-то инструмент или приспособление запрещено!

Внимание! Изменение атрибутов касающихся марки оборудования, атрибута «№ кластера» и «Табельный номер» запрещено! («Габариты», «L», «D», «Частота», «Мощность»)

Кнопка “ГАУ” предназначена для изменения списка ГАУ. При нажатии левой кнопки мыши открывается форма:

Эта форма аналогична предыдущей. Добавление, изменение и удаление выполняется аналогично. Добавление ГАУ с уже существующим в списке табельным номером запрещено! Удаление ГАУ, к которому привязано оборудование запрещено! Изменение атрибута «Табельный номер» запрещено!

Кнопку“ Кластеры” предназначена для просмотра и удаления. При нажатии левой кнопки мыши открывается форма:

Добавление и изменение записей в этой форме запрещены. Удаление выполняется также как и в предыдущих формах. Удаление кластера, к которому привязано какое-то оборудование запрещено!

Кнопка “Инструменты и приспособления” предназначена для изменения списка инструментов/приспособлений:

Добавление, изменение и удаление выполняется стандартно. Добавление Инструмента/приспособления с уже существующим в списке табельным номером запрещено! Изменение атрибута «Табельный номер» запрещено!

Кнопка “Марки транспортного оборудования” предназначена для изменения списка маркировок транспортного оборудования:

Добавление, изменение и удаление записей аналогично. Добавление марки оборудования уже существующей в списке запрещено! Удаление марки оборудования используемой каким-то оборудованием запрещено! Изменение атрибута «Марка оборудования» запрещено!

Кнопка “Транспортное оборудование” предназначена для изменения списка транспортного оборудования:

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

Внимание! Изменение атрибутов касающихся марки оборудования и «Табельный номер» запрещено! («Скорость», «Габариты», «Грузоподъемность», «Вес»)

Кнопка “АТНСС” предназначены для изменения списка АТНСС.

Добавление, изменение и удаление выполняется аналогично. Добавление АТНСС с уже существующим в списке табельным номером запрещено! Изменение атрибута «Табельный номер» запрещено!

Кнопка “ГПС” предназначены для изменения списка ГПС

Добавление новой связи выполняется в пустом окне. Внимание! Вначале необходимо выбрать связываемое ГАУ, а затем АТНСС.

Изменение записей выполняется аналогично предыдущих форм. Удаление производится так: вначале выделяется удалемая связь затем нажимается кнопка Del

Кнопка “Отчет по оборудования” предназначена для вывода отчета по транспортному или обрабатывающему оборудованию в зависимости от сделанного выбора в окне-запросе:

Отчет по обрабатывающему оборудованию:

Этот отчет можно распечатать нажав правой клавишей на отчете и выбрав дейстивие «Печать…»

Кнопка “Замена оборудования” предназначена для вывода списка оборудования, способного заменить вышедшее из строя:

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

По нажатии кнопки “Выход” происходит закрытие БД.

ЗАКЛЮЧЕНИЕ

В результате выполнения курсовой работы была изучена методика проектирования БД, изучены декомпозиционный и ER-методы проектирования БД, а также рассмотрены такие аспекты как системный анализ предметной области и критерии выбора СУБД.

В соответствии с методикой, применяя вышеназванные методы, была разработана БД учета основного оборудования на предприятии, а также приложение для работы с ней в среде MS Access 2003.

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1.А.Ю. Гончаров Самоучитель Access 2003, Москва 2004

2.И.А.Ахмадеев, А.Х.Хайруллин, С.Ю.Юрасов Базы данных, Наб.Челны 2004

3. Конспект лекций по БД, 2010 год

4. А.С. Марков, К.Ю. Лисовский Базы Данных. Введение в теорию и методологию. Москва, 2004

ПРИЛОЖЕНИЕ.

Листинг программного кода:

Форма «Главная»

Private Sub КнВыход_Click()

On Error GoTo Главная_Выход_Err

DoCmd.Quit acPrompt

Главная_Выход_Exit:

Exit Sub

Главная_Выход_Err:

MsgBox Error$

Resume Главная_Выход_Exit

End Sub

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

On Error GoTo Открыть_Открыть_ИП_Err

DoCmd.OpenForm "Инструменты,приспособления", acNormal, "", "", , acNormal

Открыть_Открыть_ИП_Exit:

Exit Sub

Открыть_Открыть_ИП_Err:

MsgBoxError$

Resume Открыть_Открыть_ИП_Exit

End Sub

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

IfMsgBox("Открыть отчет по обрабатывающему оборудованию?", vbYesNo, "Отчет") = vbYesThen

DoCmd.OpenReport"Обрабатывающее оборудование", acViewPreview, "", "", acNormal

Else

DoCmd.OpenReport"Транспортное оборудование", acViewPreview, "", "", acNormal

End If

End Sub

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

On Error GoTo Открыть_Открыть_МаркаОбр_Err

DoCmd.OpenForm "Марка обрабатывающего оборудования", acNormal, "", "", , acNormal

Открыть_Открыть_МаркаОбр_Exit:

Exit Sub

Открыть_Открыть_МаркаОбр_Err:

MsgBox Error$

Resume Открыть_Открыть_МаркаОбр_Exit

End Sub

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

On Error GoTo Открыть_Открыть_МаркаТр_Err

DoCmd.OpenForm "Маркатранспортногооборудования", acNormal, "", "", , acNormal

Открыть_Открыть_МаркаТр_Exit:

Exit Sub

Открыть_Открыть_МаркаТр_Err:

MsgBoxError$

ResumeОткрыть_Открыть_МаркаТр_Exit

EndSub

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

On Error GoTo Открыть_Открыть_ГПСдоб_Err

DoCmd.OpenForm "ГПС", acNormal, "", "", , acNormal

Открыть_Открыть_ГПСдоб_Exit:

Exit Sub

Открыть_Открыть_ГПСдоб_Err:

MsgBox Error$

ResumeОткрыть_Открыть_ГПСдоб_Exit

End Sub

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

On Error GoTo Открыть_Открыть_Кластер_Err

DoCmd.OpenForm "Кластер", acNormal, "", "", , acNormal

Открыть_Открыть_Кластер_Exit:

Exit Sub

Открыть_Открыть_Кластер_Err:

MsgBox Error$

Resume Открыть_Открыть_Кластер_Exit

End Sub

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

On Error GoTo Открыть_Открыть_замену_Err

DoCmd.OpenForm "Замена оборудования", acNormal, "", "", , acNormal

Открыть_Открыть_замену_Exit:

Exit Sub

Открыть_Открыть_замену_Err:

MsgBox Error$

Resume Открыть_Открыть_замену_Exit

End Sub

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

On Error GoTo Открыть_Открыть_Обр_Err

DoCmd.OpenForm "Обрабатывающееоборудование", acNormal, "", "", , acNormal

Открыть_Открыть_Обр_Exit:

Exit Sub

Открыть_Открыть_Обр_Err:

MsgBoxError$

Resume Открыть_Открыть_Обр_Exit

End Sub

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

On Error GoTo Открыть_Открыть_ГАУ_Err

DoCmd.OpenForm "ГАУ", acNormal, "", "", , acNormal

Открыть_Открыть_ГАУ_Exit:

Exit Sub

Открыть_Открыть_ГАУ_Err:

MsgBox Error$

Resume Открыть_Открыть_ГАУ_Exit

End Sub

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

On Error GoTo Открыть_Открыть_ТНС_Err

DoCmd.OpenForm "АТНСС", acNormal, "", "", , acNormal

Открыть_Открыть_ТНС_Exit:

Exit Sub

Открыть_Открыть_ТНС_Err:

MsgBox Error$

Resume Открыть_Открыть_ТНС_Exit

End Sub

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

On Error GoTo Открыть_Открыть_Тр_Err

DoCmd.OpenForm "Транспортноеоборудование", acNormal, "", "", , acNormal

Открыть_Открыть_Тр_Exit:

Exit Sub

Открыть_Открыть_Тр_Err:

MsgBox Error$

Resume Открыть_Открыть_Тр_Exit

End Sub

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

On Error GoTo Открыть_Открыть_ГПС_Err

DoCmd.OpenForm "ГПС-добавление", acNormal, "", "", , acNormal

Открыть_Открыть_ГПС_Exit:

Exit Sub

Открыть_Открыть_ГПС_Err:

MsgBox Error$

Resume Открыть_Открыть_ГПС_Exit

End Sub

Форма «АТНСС»

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

On Error GoTo Добавление_Ввод_ТНС_Err

With CodeContextObject

If (Eval("(Forms!Атнсс![ТНС] Is Null) Or (Forms!Атнсс![Пропуск] Is Null) Or (Forms!Атнсс![Площ] Is Null)")) Then

MsgBox "Введены не все данные!", vbExclamation, "Добавление нового АТНСС."

Exit Sub

End If

DoCmd.GoToControl "КодТНС"

DoCmd.FindRecord Val(Forms!Атнсс!ТНС), acEntire, False, , True, acCurrent, True

If (Val(Forms!Атнсс!ТНС) = Forms!Атнсс!КодТНС) Then

Beep

MsgBox "Такой номер уже существует!", vbExclamation, "Ошибка"

Exit Sub

End If

DoCmd.OpenForm "ДобавлениеАТНСС", acNormal, "", "", , acHidden

DoCmd.GoToRecord acForm, "ДобавлениеАТНСС", acNewRec