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

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

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

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

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

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

Изменение записей выполняется аналогично предыдущих форм. Удаление производится так: вначале выделяется удалемая связь затем нажимается кнопка 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:

MsgBox Error$

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

End Sub

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

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

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:

MsgBox Error$

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

End Sub

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:

MsgBox Error$

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

Forms!ДобавлениеАТНСС!КодТНС = Forms!Атнсс!ТНС

Forms!ДобавлениеАТНСС!ПропТНС = Forms!Атнсс!Пропуск

Forms!ДобавлениеАТНСС!ПлощТНС = Forms!Атнсс!Площ

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

DoCmd.Requery ""

DoCmd.Requery "ТНСУдаления"

End With

Добавление_Ввод_ТНС_Exit:

Exit Sub

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

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

'MsgBox Error$

Resume Добавление_Ввод_ТНС_Exit

End Sub

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

On Error GoTo Удаление_Удаление_ТНС_Err

If (Eval("Forms!Атнсс!ТНСУдаления Is Null")) Then

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

Exit Sub

End If

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

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

'DoCmd.GoToControl "[КодТНС]"

DoCmd.FindRecord Forms!Атнсс!ТНСУдаления, acEntire, False, , True, acCurrent, False

DoCmd.RunCommand acCmdDeleteRecord

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

DoCmd.Requery ""

DoCmd.Requery "ТНСУдаления"

Forms!Атнсс!ТНСУдаления = ""

Удаление_Удаление_ТНС_Exit:

Exit Sub

Удаление_Удаление_ТНС_Err:

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

m = MsgBox("Удаление невозможно так как имеется транспортное оборудование, привязанные к данному ГАУ!", vbExclamation, "Удаление ГАУ")

'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!Гау![Гау]), acStart, False, , True, acCurrent, True

If (Val(Forms!Гау![Гау]) = (Forms!Гау![КодГАУ])) Then

Beep

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

Exit Sub

End If

DoCmd.OpenForm "ДобавлениеГАУ", acNormal, "", "", , acHidden

DoCmd.GoToRecord acForm, "ДобавлениеГАУ", acNewRec

Forms!ДобавлениеГАУ!КодГАУ = Forms!Гау!Гау

Forms!ДобавлениеГАУ!НазнГАУ = Forms!Гау!Назн

Forms!ДобавлениеГАУ!ПлощадьГАУ = Forms!Гау!Площ

DoCmd.Close acForm, "ДобавлениеГАУ"

DoCmd.Requery ""

DoCmd.Requery "ГАУУдаления"

End With

Добавление_Ввод_ГАУ_Exit:

Exit Sub

Добавление_Ввод_ГАУ_Err:

DoCmd.Close acForm, "ДобавлениеГАУ"

'MsgBox Error$

Resume Добавление_Ввод_ГАУ_Exit

End Sub

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

On Error GoTo Удаление_Удаление_ГАУ_Err

If (Eval("Forms!Гау!ГАУУдаления Is Null")) Then

MsgBox "Введены не все данные!", vbExclamation, "Удаление ГАУ."

Exit Sub

End If

DoCmd.OpenForm "ДобавлениеГАУ", acNormal, "", "", , acHidden

DoCmd.SelectObject acForm, "ДобавлениеГАУ", False

DoCmd.GoToControl "[КодГАУ]"

DoCmd.FindRecord Forms!Гау!ГАУУдаления, acEntire, False, , True, acCurrent, False

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.Close acForm, "ДобавлениеГАУ"

DoCmd.Requery ""

DoCmd.Requery "ГАУУдаления"

Forms!Гау!ГАУУдаления = ""

Удаление_Удаление_ГАУ_Exit:

Exit Sub

Удаление_Удаление_ГАУ_Err:

DoCmd.Close acForm, "ДобавлениеГАУ"

m = MsgBox("Удаление невозможно так как имеется обрабатывающее оборудование, привязанные к данному ГАУ!", vbExclamation, "Удаление ГАУ")

MsgBox Error$

Resume Удаление_Удаление_ГАУ_Exit

End Sub

Форма «Содержание ГПС»

Private Sub КодГАУ_Dirty(Cancel As Integer)

On Error GoTo Обновление_Err

КодТНС.Locked = False

DoCmd.Requery "КодТНС"

Обновление_Exit:

Exit Sub

Обновление_Err:

MsgBox Error$

Resume Обновление_Exit

End Sub

Private Sub КодТНС_Dirty(Cancel As Integer)

DoCmd.Requery "КодГау"

End Sub

Private Sub КодТНС_GotFocus()

If КодГАУ.Value > 0 Then Else m = MsgBox("Введите вначале табельный номер ГАУ!", vbInformation, "Внимание"): КодТНС.Locked = True

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

Forms!ДобавлениеГПС!КодГПС = Forms![ГПС-добавление]!ГПС

Forms!ДобавлениеГПС!НазнГПС = Forms![ГПС-добавление]!Назн

Forms!ДобавлениеГПС!НаимЦех = Forms![ГПС-добавление]!Цех

DoCmd.Close acForm, "ДобавлениеГПС"

DoCmd.Requery ""

DoCmd.Requery "ГПСУдаления"

End With

Добавление_Ввод_ГПС_Exit:

Exit Sub

Добавление_Ввод_ГПС_Err:

DoCmd.Close acForm, "ДобавлениеГПС"

MsgBox Error$

Resume Добавление_Ввод_ГПС_Exit

End Sub

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

On Error GoTo Удаление_Удаление_ГПС_Err

If (Eval("Forms![ГПС-добавление]!ГПСУдаления Is Null")) Then

MsgBox "Введены не все данные!", vbExclamation, "Удаление ГПС."

Exit Sub

End If

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

DoCmd.SelectObject acForm, "ДобавлениеГПС", False

DoCmd.FindRecord Forms![ГПС-добавление]!ГПСУдаления, acEntire, False, , True, acCurrent, False

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.Close acForm, "ДобавлениеГПС"

DoCmd.Requery ""

DoCmd.Requery "ГПСУдаления"

Forms![ГПС-добавление]!ГПСУдаления = ""

Удаление_Удаление_ГПС_Exit:

Exit Sub

Удаление_Удаление_ГПС_Err:

DoCmd.Close acForm, "ДобавлениеГПС"

m = MsgBox("Удаление невозможно так как имеются ГАУ или АТНСС, привязанные к данному ГПС!", vbExclamation, "Удаление ГПС")

MsgBox Error$

Resume Удаление_Удаление_ГПС_Exit

End Sub

Форма «Инструменты и приспособления»

Private Sub КнМарка_Click()

On Error GoTo Добавление_Ввод_инструмента_Err

With CodeContextObject

If (Eval("(Forms![Инструменты,приспособления]![Код] Is Null) Or (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

Forms!ДобавлениеИП!КодИП = Forms![Инструменты,приспособления]!Код

Forms!ДобавлениеИП!КодОбр = Forms![Инструменты,приспособления]!Обр

Forms!ДобавлениеИП!МаркИП = Forms![Инструменты,приспособления]!Марка

Forms!ДобавлениеИП!НазнИП = Forms![Инструменты,приспособления]!Назн

Forms!ДобавлениеИП!ИнсПрисп = Forms![Инструменты,приспособления]!ИП

DoCmd.Close acForm, "ДобавлениеИП"

DoCmd.Requery ""

DoCmd.Requery "КодУдаления"

End With

Добавление_Ввод_инструмента_Exit:

Exit Sub

Добавление_Ввод_инструмента_Err:

DoCmd.Close acForm, "ДобавлениеИП"

'MsgBox Error$

Resume Добавление_Ввод_инструмента_Exit

End Sub

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

On Error GoTo Удаление_Удаление_инструмента_Err

If (Eval("Forms![Инструменты,приспособления]!КодУдаления Is Null")) Then

MsgBox "Введены не все данные!", vbExclamation, "Удаление инструмента/приспособления."

Exit Sub

End If

DoCmd.OpenForm "ДобавлениеИП", acNormal, "", "", , acHidden

DoCmd.SelectObject acForm, "ДобавлениеИП", False

DoCmd.FindRecord Forms![Инструменты,приспособления]!КодУдаления, acEntire, False, , True, acCurrent, False

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.Close acForm, "ДобавлениеИП"

DoCmd.Requery ""

DoCmd.Requery "КодУдаления"

Forms![Инструменты,приспособления]!КодУдаления = ""

Удаление_Удаление_инструмента_Exit:

Exit Sub

Удаление_Удаление_инструмента_Err:

DoCmd.Close acForm, "ДобавлениеИП"

m = MsgBox("Неизвестная ошибка. Удаление невозможно", vbExclamation, "Удаление инструмента или приспособления")

MsgBox Error$

Resume Удаление_Удаление_инструмента_Exit

End Sub

Форма «Кластер»

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

On Error GoTo Удаление_Удаление_кластера_Err

If (Eval("Forms!Кластер!Код Is Null")) Then

MsgBox "Введены не все данные!", vbExclamation, "Удаление кластера"

Exit Sub

End If

DoCmd.OpenForm "ДобавлениеКластер", acNormal, "", "", , acHidden

DoCmd.SelectObject acForm, "ДобавлениеКластер", False

DoCmd.GoToControl "[КодКласт]"

DoCmd.FindRecord Forms!Кластер!Код, acEntire, False, , True, acCurrent, False

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.Close acForm, "ДобавлениеКластер"

DoCmd.Requery ""

DoCmd.Requery "Код"

Forms!Кластер!Код = ""

Удаление_Удаление_кластера_Exit:

Exit Sub

Удаление_Удаление_кластера_Err:

DoCmd.Close acForm, "ДобавлениеКластер"

m = MsgBox("Удаление кластера невозможно так как имеется оборудование, привязанное к данному кластеру!", vbExclamation, "Удаление кластера")

'MsgBox Error$

Resume Удаление_Удаление_кластера_Exit

End Sub

Форма «Марка обрабатывающего оборудования»

Private Sub КнМарка_Click()

On Error GoTo Добавление_Ввод_марки_оборудования_Err

With CodeContextObject

If (Eval("(Forms![Марка обрабатывающего оборудования]![Марка] Is Null) Or (Forms![Марка обрабатывающего оборудования]![Габарит] Is Null) Or (Forms![Марка обрабатывающего оборудования]![Длина] Is Null) Or (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 (Forms![Марка обрабатывающего оборудования]!Марка = Forms![Марка обрабатывающего оборудования]!МаркаОбр) Then

Beep

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

Exit Sub

End If

DoCmd.OpenForm "ДобавлениеМаркиОбр", acNormal, "", "", , acIcon

DoCmd.GoToRecord acForm, "ДобавлениеМаркиОбр", acNewRec

Forms!ДобавлениеМаркиОбр!МаркаОбр = Forms![Марка обрабатывающего оборудования]!Марка

Forms!ДобавлениеМаркиОбр!ГабарОбр = Forms![Марка обрабатывающего оборудования]!Габарит

Forms!ДобавлениеМаркиОбр!ДлДетОбр = Forms![Марка обрабатывающего оборудования]!Длина

Forms!ДобавлениеМаркиОбр!ДиамДетОбр = Forms![Марка обрабатывающего оборудования]!Диаметр

Forms!ДобавлениеМаркиОбр!ЧастотОбр = Forms![Марка обрабатывающего оборудования]!Частота

Forms!ДобавлениеМаркиОбр!МощОбр = Forms![Марка обрабатывающего оборудования]!Мощность

DoCmd.Close acForm, "ДобавлениеМаркиОбр"

DoCmd.Requery ""

DoCmd.Requery "МаркаУдаление"

End With

Добавление_Ввод_марки_оборудования_Exit:

Exit Sub

Добавление_Ввод_марки_оборудования_Err:

DoCmd.Close acForm, "ДобавлениеМаркиОбр"

MsgBox Error$

Resume Добавление_Ввод_марки_оборудования_Exit

End Sub

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

On Error GoTo Удаление_Удаление_марки_оборудования_Err

If (Eval("Forms![Марка обрабатывающего оборудования]!МаркаУдаление Is Null")) Then

MsgBox "Введены не все данные!", vbExclamation, "Удаление марки оборудования"

Exit Sub

End If

DoCmd.OpenForm "ДобавлениеМаркиОбр", acNormal, "", "", , acHidden

DoCmd.SelectObject acForm, "ДобавлениеМаркиОбр", False

DoCmd.GoToControl "[МаркаОбр]"

DoCmd.FindRecord Forms![Марка обрабатывающего оборудования]!МаркаУдаление, acEntire, False, , True, acCurrent, False

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.Close acForm, "ДобавлениеМаркиОбр"

DoCmd.Requery ""

DoCmd.Requery "МаркаУдаление"

Forms![Марка обрабатывающего оборудования]!МаркаУдаление = ""

End

Удаление_Удаление_марки_оборудования_Exit:

Exit Sub

Удаление_Удаление_марки_оборудования_Err:

DoCmd.Close acForm, "ДобавлениеМаркиОбр"

m = MsgBox("Удаление невозможно так как имеется оборудование использующее эту марку!", vbExclamation, "Удаление марки оборудования")

'MsgBox Error$

Resume Удаление_Удаление_марки_оборудования_Exit

End Sub

Форма «Марка транспортного оборудования»

Private Sub КнДобавить_Click()

On Error GoTo Добавление_Ввод_марки_транспорта_Err

With CodeContextObject

If (Eval("(Forms![Марка транспортного оборудования]![Марка] Is Null) Or (Forms![Марка транспортного оборудования]![Скорость] Is Null) Or (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 (Forms![Марка транспортного оборудования]!Марка = Forms![Марка транспортного оборудования]!МаркаТр) Then

Beep

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

Exit Sub

End If

DoCmd.OpenForm "ДобавлениеМаркиТр", acNormal, "", "", , acHidden

DoCmd.GoToRecord acForm, "ДобавлениеМаркиТр", acNewRec

Forms!ДобавлениеМаркиТр!МаркаТр = Forms![Марка транспортного оборудования]!Марка

Forms!ДобавлениеМаркиТр!СкорТр = Forms![Марка транспортного оборудования]!Скорость

Forms!ДобавлениеМаркиТр!ГабарТр = Forms![Марка транспортного оборудования]!Габарит

Forms!ДобавлениеМаркиТр!ГрузТр = Forms![Марка транспортного оборудования]!Груз

Forms!ДобавлениеМаркиТр!МассаТр = Forms![Марка транспортного оборудования]!Вес

DoCmd.Close acForm, "ДобавлениеМаркиТр"

DoCmd.Requery ""

DoCmd.Requery "МаркаУдаление"

End With

Добавление_Ввод_марки_транспорта_Exit:

Exit Sub

Добавление_Ввод_марки_транспорта_Err:

DoCmd.Close acForm, "ДобавлениеМаркиТр"

MsgBox Error$

Resume Добавление_Ввод_марки_транспорта_Exit

End Sub

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

On Error GoTo Удаление_Удаление_марки_транспорта_Err

If (Eval("Forms![Марка транспортного оборудования]!МаркаУдаление Is Null")) Then

MsgBox "Введены не все данные!", vbExclamation, "Удаление марки оборудования"

Exit Sub

End If

DoCmd.OpenForm "ДобавлениеМаркиТр", acNormal, "", "", , acHidden

DoCmd.SelectObject acForm, "ДобавлениеМаркиТр", False

'DoCmd.GoToControl "[МаркаТр]"

DoCmd.FindRecord Forms![Марка транспортного оборудования]!МаркаУдаление, acEntire, False, , True, acCurrent, False

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.Close acForm, "ДобавлениеМаркиТр"

DoCmd.Requery ""

DoCmd.Requery "МаркаУдаление"

Forms![Марка транспортного оборудования]!МаркаУдаление = ""

Удаление_Удаление_марки_транспорта_Exit:

Exit Sub

Удаление_Удаление_марки_транспорта_Err:

DoCmd.Close acForm, "ДобавлениеМаркиТр"

m = MsgBox("Удаление невозможно так как имеется оборудование использующее эту марку!", vbExclamation, "Удаление марки оборудования")

MsgBox Error$

Resume Удаление_Удаление_марки_транспорта_Exit

End Sub

Форма «Обрабатывающее оборудование»

Private Sub КнДобавить_Click()

On Error GoTo Добавление_Ввод_оборудования_Err

With CodeContextObject

If (Eval("(Forms![Обрабатывающее оборудование]![Марка] Is Null) Or (Forms![Обрабатывающее оборудование]![Гау] Is Null) Or (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.OpenForm "Запрос №Кластеров Проверка", acNormal, "", "", , acHidden

DoCmd.OpenForm "Запрос №Кластера по Марке", acNormal, "", "", , acHidden

DoCmd.GoToRecord acForm, "ДобавлениеОбр", acNewRec

If (Forms![Запрос №Кластеров Проверка]!CountКодКласт = 0) Then

DoCmd.OpenForm "ДобавлениеКластер", acNormal, "", "", , acHidden

DoCmd.GoToRecord acForm, "ДобавлениеКластер", acNewRec

DoCmd.OpenForm "ФормаЗапросМАХ№Кластера", acNormal, "", "", , acHidden

Forms!ДобавлениеКластер!КодКласт = Forms!ФормаЗапросМАХ№Кластера!MaxКодКласт + 1

Forms!ДобавлениеОбр!КодКласт = Forms!ФормаЗапросМАХ№Кластера!MaxКодКласт + 1

DoCmd.Close acForm, "ФормаЗапросМАХ№Кластера"

DoCmd.OpenForm "ФормаЗапросДЛ,Диам,ЧастМарке", acNormal, "", "",, acHidden

Forms!ДобавлениеКластер!ЧастКласт = Forms![ФормаЗапросДЛ,Диам,ЧастМарке]!ЧастотОбр

Forms!ДобавлениеКластер!ДлинКласт = Forms![ФормаЗапросДЛ,Диам,ЧастМарке]!ДлДетОбр

Forms!ДобавлениеКластер!ДиамКласт = Forms![ФормаЗапросДЛ,Диам,ЧастМарке]!ДиамДетОбр

Forms!ДобавлениеКластер!ОтклКласт = 17

DoCmd.Close acForm, "ФормаЗапросДЛ,Диам,ЧастМарке"

DoCmd.Close acForm, "ДобавлениеКластер"

End If

If (Forms![Запрос №Кластеров Проверка]!CountКодКласт = 1) Then

Forms!ДобавлениеОбр!КодКласт = Forms![Запрос №Кластера по Марке]!КодКласт

End If

DoCmd.Close acForm, "Запрос №Кластеров Проверка"

DoCmd.Close acForm, "Запрос №Кластера по Марке"

Forms!ДобавлениеОбр!КодОбр = Forms![Обрабатывающее оборудование]!Код

Forms!ДобавлениеОбр!МаркаОбр = Forms![Обрабатывающее оборудование]!Марка

Forms!ДобавлениеОбр!ДатаОбр = Forms![Обрабатывающее оборудование]!Дата

Forms!ДобавлениеОбр!СтоимОбр = Forms![Обрабатывающее оборудование]!Стоим

Forms!ДобавлениеОбр!КодГАУ = Forms![Обрабатывающее оборудование]!Гау

DoCmd.Close acForm, "ДобавлениеОбр"

DoCmd.Requery ""

DoCmd.Requery "КодУдаления"

End With

Добавление_Ввод_оборудования_Exit:

Exit Sub

Добавление_Ввод_оборудования_Err:

DoCmd.Close acForm, "ФормаЗапросМАХ№Кластера"

DoCmd.Close acForm, "ФормаЗапросДЛ,Диам,ЧастМарке"

DoCmd.Close acForm, "ДобавлениеКластер"

DoCmd.Close acForm, "Запрос №Кластеров Проверка"

DoCmd.Close acForm, "Запрос №Кластера по Марке"

DoCmd.Close acForm, "ДобавлениеОбр"

MsgBox Error$

Resume Добавление_Ввод_оборудования_Exit

End Sub

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

On Error GoTo Удаление_Удаление_оборудования_Err

If (Eval("Forms![Обрабатывающее оборудование]!КодУдаления Is Null")) Then

MsgBox "Введены не все данные!", vbExclamation, "Удаление оборудования"

Exit Sub

End If

DoCmd.OpenForm "ДобавлениеОбр", acNormal, "", "", , acHidden

DoCmd.SelectObject acForm, "ДобавлениеОбр", False

DoCmd.GoToControl "[КодОбр]"

DoCmd.FindRecord Forms![Обрабатывающее оборудование]!КодУдаления, acEntire, False, , True, acCurrent, False

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.Close acForm, "ДобавлениеОбр"

DoCmd.Requery ""

DoCmd.Requery "КодУдаления"

Forms![Обрабатывающее оборудование]!КодУдаления = ""

Удаление_Удаление_оборудования_Exit:

Exit Sub

Удаление_Удаление_оборудования_Err:

DoCmd.Close acForm, "ДобавлениеОбр"

m = MsgBox("Удаление невозможно так как имеются инструменты или приспособления, привязанные к данному оборудованию!", vbExclamation, "Удаление оборудования")

Resume Удаление_Удаление_оборудования_Exit

End Sub

Форма «Транспортного оборудования»

Private Sub КнДобавить_Click()

On Error GoTo Добавление_Ввод_транспорта_Err

With CodeContextObject

If (Eval("(Forms![Транспортное оборудование]![Марка] Is Null) Or (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

Forms!ДобавлениеТр!КодТр = Forms![Транспортное оборудование]!Код

Forms!ДобавлениеТр!МаркаТр = Forms![Транспортное оборудование]!Марка

Forms!ДобавлениеТр!КодТНС = Forms![Транспортное оборудование]!Атнсс

Forms!ДобавлениеТр!СтоимТр = Forms![Транспортное оборудование]!Стоим

DoCmd.Close acForm, "ДобавлениеТр"

DoCmd.Requery ""

DoCmd.Requery "КодУдаления"

End With

Добавление_Ввод_транспорта_Exit:

Exit Sub

Добавление_Ввод_транспорта_Err:

DoCmd.Close acForm, "ДобавлениеТр"

'MsgBox Error$

Resume Добавление_Ввод_транспорта_Exit

End Sub

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

On Error GoTo Удаление_Удаление_транспорта_Err

If (Eval("Forms![Транспортное оборудование]!КодУдаления Is Null")) Then

MsgBox "Введены не все данные!", vbExclamation, "Удаление оборудования"

Exit Sub

End If

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

DoCmd.SelectObject acForm, "ДобавлениеТр", False

DoCmd.GoToControl "[КодТр]"

DoCmd.FindRecord Forms![Транспортное оборудование]!КодУдаления, acEntire, False, True, acCurrent, False

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.Close acForm, "ДобавлениеТр"

DoCmd.Requery ""

DoCmd.Requery "КодУдаления"

Forms![Транспортное оборудование]!КодУдаления = ""

Удаление_Удаление_транспорта_Exit:

Exit Sub

Удаление_Удаление_транспорта_Err:

DoCmd.Close acForm, "ДобавлениеТр"

m = MsgBox("Неизвестная ошибка. Удаление невозможно!", vbExclamation, "Удаление оборудования")

''MsgBox Error$

Resume Удаление_Удаление_транспорта_Exit

End Sub

Форма «Замена оборудования»

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

If [Forms]![Отчет]![Flag].Value = Null Then m = MsgBox("Введите табельный номер", vbExclamation, "Ошибка"): Exit Sub

If [Forms]![Отчет]![Flag].Value = 1 Then

ЗапросОбр

Else

ЗапросТр

End If

End Sub

Private Sub Список0_Click()

DoCmd.Requery "Table"

End Sub

Private Sub Флажок4_Click()

If Флажок4.Value Then

[Список0].RowSource = "Обрабатывающее оборудование"

Table.SourceObject = "Запрос.ЗапросЗамены Обр"

Else

[Список0].RowSource = "Транспортное оборудование"

Table.SourceObject = "Запрос.ЗапросЗамены Тр"

End If

[Список0].Value = Null

End Sub