50116 (Учет основного оборудования на предприятии), страница 8
Описание файла
Документ из архива "Учет основного оборудования на предприятии", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "50116"
Текст 8 страницы из документа "50116"
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
