Курсовая работа: Учет основного оборудования на предприятии
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, "ДобавлениеТр"
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20 |
