Висновок

В процесі виконання даної курсової роботи була спроектована автоматизована система, яка дозволяє автоматизувати процес управління деревообробною фабрикою. Управління ведеться з головної форми шляхом натискання кнопок, для виклику допоміжних форм.

Програма рекомендується для використання у деревообробній прмисловості. При виконані роботи дотримані норми до розробки програмного забезпечення та оформлення звітів. Програмний продукт пройшов перевірку. Під час тестування помилок не виявлено, і ще раз доведено зручність розрахунків з допомогою використання обчислювальної техніки.

Переваги даного продукту: видача графічної інформації (при аналізі); зручність заповнення й корегування бази даних; наявність процедур заповнення й корегування бази даних в одному режимі; надійність у роботі; наявність запитальної системи - звітні документи з різною комбінацією показників, що включають у них; зручний формат вихідних документів.

Автоматизація процесів розрахунків значно полегшує роботу користувача при роботі з задачами різного обєму .

СПИСОК ВИКОРИСТАНОЇ ЛІТЕРАТУРИ

1. Денисенко А.Ф. Основы охраны труда: Конспект лекций в 2-х ч.

2. Дещинський, О.С. Мурін та ін. Основи охорони праці Навчальний посібник/ За ред. Я.І. Бедрія. - 3-тє вид., переробл. і доп. - Львів: “Магнолія плюс”, видавець СПД ФО В.М. Піча, 2004.- 240с.

3. Законодавство України про охорону праці. Збірник нормативних документів в 5-ти томах К ; 1995г.

4. Лапин В.М. Безпека життєдіяльності людини. -К.: 1999.

5. Основи економічної праці, 2000

6. Гончаров А.Ю. ACCESS 2003, 2004

7. Ткаченко Д.С. СУБД MS Access 2007 - это просто!, 2009

Додаток А. Екранні форми

Головна форма

Інформаці про виконавця роботи

Звіт по складам

Форма відброси

Додаток Б. Текст програми

Option Compare Database

Private Sub Отходи_Click() //нажатие на кнопку відходи

On Error GoTo Err_ Отходи _Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1088) & ChrW(1072) & ChrW(1073) & ChrW(1086) & ChrW(1090) & ChrW(1085) & ChrW(1080) & ChrW(1082)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Отчет_Click: //вихід з форми Отчет

Exit Sub

Err_ Отчет _Click:

MsgBox Err.Description

Resume Exit_ Отчет _Click

End Sub

Private Sub Отчет _Click() //Відкриття форми Отчет

On Error GoTo Err_ Отчет _Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1074) & ChrW(1099) & ChrW(1087) & ChrW(1091) & ChrW(1089) & ChrW(1082) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1076) & ChrW(1091) & ChrW(1082) & ChrW(1094) & ChrW(1080) & ChrW(1080)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_ Отчет _Click: //Закриття цієї форми

Exit Sub

Err_ Отчет _Click:

MsgBox Err.Description

Resume Exit_ Отчет _Click

End Sub

Private Sub Склад_Click() //Відкриття форми Склад

On Error GoTo Err_ Склад _Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1088) & ChrW(1087) & ChrW(1083) & ChrW(1072) & ChrW(1090) & ChrW(1099)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_ Склад _Click:

Exit Sub

Err_ Склад _Click:

MsgBox Err.Description

Resume Exit_Практика_Click

End Sub

Private Sub Склади _Click() //Відкриття форми Склади

On Error GoTo Err_ Склади _Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1088) & ChrW(1072) & ChrW(1073) & ChrW(1086) & ChrW(1090) & ChrW(1085) & ChrW(1080) & ChrW(1082)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_ Склади _Click:

Exit Sub

Err_ Склади _Click:

MsgBox Err.Description

Resume Exit_ Склади _Click

Private Sub Кнопка5_Click()//Запуск запиту «дерева»

On Error GoTo Err_Кнопка5_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Кнопка5_Click:

Exit Sub

Err_Кнопка5_Click:

MsgBox Err.Description

Resume Exit_Кнопка5_Click

End Sub

Private Sub Кнопка25_Click()//Друк звіту «Про дерева»

On Error GoTo Err_Кнопка25_Click

Screen.PreviousControl.SetFocus

DoCmd.FindNext

Exit_Кнопка25_Click:

Exit Sub

Err_Кнопка25_Click:

MsgBox Err.Description

Resume Exit_Кнопка25_Click

End Sub

Private Sub Про_Автора_Click()//Відкриття форми Інформація про розробника

On Error GoTo Err_Про_Автора_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1056) & ChrW(1086) & ChrW(1079) & ChrW(1088) & ChrW(1086) & ChrW(1073) & ChrW(1086) & ChrW(1090) & ChrW(1095) & ChrW(1080) & ChrW(1082)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Про_Автора_Click:

Exit Sub

Err_Про_Автора_Click:

MsgBox Err.Description

Resume Exit_Про_Автора_Click

End Sub

Private Sub Автор_Click()

On Error GoTo Err_Автор_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1056) & ChrW(1086) & ChrW(1079) & ChrW(1088) & ChrW(1086) & ChrW(1073) & ChrW(1086) & ChrW(1090) & ChrW(1095) & ChrW(1080) & ChrW(1082)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Автор_Click://закриття форми Інформація про розробника

Exit Sub

Err_Автор_Click:

MsgBox Err.Description

Resume Exit_Автор_Click

End Sub

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

On Error GoTo Err_Кнопка28_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1056) & ChrW(1086) & ChrW(1079) & ChrW(1088) & ChrW(1086) & ChrW(1073) & ChrW(1086) & ChrW(1090) & ChrW(1095) & ChrW(1080) & ChrW(1082)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка28_Click:

Exit Sub

Err_Кнопка28_Click:

MsgBox Err.Description

Resume Exit_Кнопка28_Click

End Sub

End Sub

Додаток В. Схема даних