Определяет параметры оборудования (Длина, диаметр обрабатываемых деталей, наибольшая частота вращения гл. шпинделя) по марке оборудования.
Запрос №Кластера по Марке
Определяет номера кластера по параметрам : Длина, диаметр обрабатываемых деталей и наибольшей частота вращения гл. шпинделя.
Запрос №Кластеров Проверка
Определяет число записей в запросе Запрос №Кластера по Марке .
ЗАПРОС Обрабатывающее оборудование
Объединяет две таблицы: Обрабатывающее оборудование и Марка обрабатывающего оборудования.
ЗАПРОС Транспортного оборудование
Объединяет две таблицы: Транспортное оборудование и Марка транспортного оборудования.
ЗапросМАХ№Кластера
Определяет максимальный табельный номер в таблице «Кластер»
ЗапросЧислоТНС
Определяет число записей в таблице «АТНСС». Необходимо для запроса ЗапросГауПолностьюСвязанные
ЗапросОбр
Определяет марку обрабатывающего оборудования вышедшего из строя для формы «Замена оборудования»
ЗапросТр
Определяет марку транспортного оборудования вышедшего из строя для формы «Замена оборудования»
ЗапросЗамены Обр
Используя запрос ЗапросОбр формирует список обрабатывающего оборудования, способное заменить вышедшее из строя.
ЗапросЗамены Тр
Используя запрос ЗапросТр формирует список обрабатывающего оборудования, способное заменить вышедшее из строя.
ЗапросГауСвязанные
Для кажого ГАУ определяет число связей с АТНСС. Необходимо для формы «Содержимое ГПС» , для добавления новой записи.
ЗапросГауПолностьюСвязанные
Определяет список ГАУ, связанных с каждым АТНСС. Необходимо для формы «Содержимое ГПС», для добавления новой записи.
Запрос ГАУ свободных
Определяет список ГАУ, которых могут образовывать связь хоть с одной АТНСС. Необходимо для формы «Содержимое ГПС», для добавления новой записи
Запрос для ГПС содержимого Подчиненный
Определяет список АТНСС связанных с выбранным ГАУ в форме «Содержимое ГПС» при добавлении новой записи.
Запрос для ГПС содержимого
Определяет список АТНСС не связанных с выбранным ГАУ в форме «Содержимое ГПС» при добавлении новой записи.
ЗАПРОС ГАУ и АТНСС
Формирует список связанных ГАУ и АТНСС. Необходимо для формы «Содержимое ГПС»
Описание приложения
Функциональные возможности приложения
При помощи разработанного приложения можно:
1. Добавлять/изменять записи, характеризующие обрабатывающее оборудование, марку обрабатывающего оборудования.
2. Добавлять/изменять записи, характеризующие транспортное оборудование, марку транспортного оборудования.
3. Добавлять/изменять записи, характеризующие ГАУ.
4. Добавлять/изменять записи, характеризующие АТНСС.
5. Добавлять/изменять записи, характеризующие ГПС.
6. Добавлять/изменять записи, характеризующие Инструменты, приспособления
7. Получать отчет об обрабатывающем оборудовании.
8. Получать отчет об транспортном оборудовании.
9. Получать информацию об оборудовании способном заменить вышедшее из строя.
Инструкция пользователя
После запуска БД (файл «БД.mdb») на экране появится Главная форма приложения, имеющая вид:
На ней расположены несколько групп кнопок.
Кнопка “Марки обрабатывающего оборудования” вызывает форму для изменения маркировок обрабатывающего оборудования. При нажатии левой кнопки мыши открывается следующая форма:
Для того, чтобы изменить параметры марки оборудования необходимо в верхней части окна найти запись интересующей марки, выделить изменяемый параметр и просто изменить значение.
Для того чтобы добавить новую марку необходимо в нижней части окна корректно ввести все атрибуты новой марки и нажать кнопку «Добавить новую марку оборудования». Добавление марки оборудования уже существующей в списке запрещено!
Для того чтобы удалить марку необходимо в правой-нижней части окна выбрать из списка удаляемую марку и нажать кнопку «Удалить марку из списка». Внимание удаление марки оборудования используемой каким-то оборудованием запрещено!
Эта форма аналогична предыдущей. Добавление, изменение и удалени выполняется аналогично.
Внимание! Изменение атрибута «Марка оборудования» запрещено!
Кнопка “Обрабатывающее оборудование” вызывает форму для изменения списка обрабатывающего оборудования. При нажатии левой кнопки мыши открывается форма:
Эта форма аналогична предыдущей. Добавление, изменение и удаление выполняется аналогично. Добавление оборудования с уже существующим в списке табельным номером запрещено! Удаление оборудования, к которому привязано какой-то инструмент или приспособление запрещено!
Внимание! Изменение атрибутов касающихся марки оборудования, атрибута «№ кластера» и «Табельный номер» запрещено! («Габариты», «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:
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
Дата: 2019-05-29, просмотров: 218.
