46883 (База даних студії веб-дизайну), страница 4
Описание файла
Документ из архива "База даних студії веб-дизайну", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "46883"
Текст 4 страницы из документа "46883"
На основі розробки проектної документації та програмного забезпечення реалізуємо інструкцію для користувача базою даних. Детальну інформацію можна побачити в додатку Б.
3. Результати реалізації проекту програмного забезпечення
В результаті реалізації проекту програмного забезпечення для аптеки було отримано базу даних з автоматизованим процесом обробки потоків даних, які з’являються в даній предметній області. Автоматизація процесу обробки даних досягнуто за допомогою реалізованих в базі даних програмних модулів (форм), які додають, виводять, шукають, зберігають дані, взаємодіють з запитами та звітами, видаючи інформацію про пошук тієї чи іншої характеристики. Програмний код запитів та форм представлено у додатку А, а можливості та інтерфейси форм представлено у додатку Б.
Розроблене програмне забезпечення відповідає наступним апаратним та програмним вимогам:
Вимоги до апаратного забезпечення:
-
процесор від 800 MHz вище;
-
64 Mb ОЗП та більше;
-
32 Mb відеоадаптер та більше;
-
20 Mb вільного простору на жорсткому диску та більше;
Вимоги до програмного забезпечення:
-
ОС Microsoft Windows 98/Me/2000/XP;
-
Microsoft Office 2000;
-
інструкція користувача;
Після реалізації та збереження бази даних «Студія веб-дизайну», утворилося безпосередньо два файли: Студия.accdb та Студия.accde. Перший з них є базою даних, збереженою у форматі додатку Microsoft Office Access 2000, інший – той же файл, але з паролем для доступу.
Висновки
Під час розробки проекту бази даних студії веб-дизайну були проведені дослідження і детальний аналіз предметної області, були створені функціональні, концептуальна, логічна і фізична моделі бази даних. Також були детально проаналізовані всі елементи, з яких складається даний програмний продукт і залежності між ними. Для розробки даного програмного продукту було використано середовище розробки бази даних Microsoft Access 2003.
Електронна база, розроблена в даній курсовій роботі, набагато підвищує ефективність роботи в процесі обліку надання послуг та роботи студії веб-дизайну, оскільки дозволяє швидко організувати пошуки необхідних послуг за їх назвами або коду, прискорився процес складання звітності. Набагато простіше й швидше стало редагувати всю інформацію завдяки зручному інтерфейсу та меню користувача. Враховані всі основні потреби користувача, який має справу з великою кількістю інформації, яку необхідно неодноразово фіксувати, навіть протягом однієї доби.
Дану базу даних можливо використовувати не лише в закладі «Студія веб-дизайну», але й інших закладах, які мають споріднену предметну область – тобто, які надають певні послуги інтернет ресурсів або будь-яких інших.
Список використаної літератури
-
Хабракен Д. “ Microsoft Access 2003”: М.: ООО «Издательство АСТ»,2004.–204 с.
-
Гончаров А.Ю. Access 2003. Самоучитель с примерами – М.: КУДИЦ-ОБРАЗ, 2004. – 272 с.
-
Базы данных: учебный курс.– М.: ООО «Издательство АСТ», 2001.–504 с.
-
Шпак Ю.А. SQL. Просто как дважды два. – М.: Эксмо, 2007. -304 с.
Додаток А. Вихідні коди програм
FORM_Договор
Option Compare Database
Private Sub Кнопка0_Click()
On Error GoTo Err_Кнопка0_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Кнопка0_Click:
Exit Sub
Err_Кнопка0_Click:
MsgBox Err.Description
Resume Exit_Кнопка0_Click
End Sub
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Кнопка1_Click:
Exit Sub
Err_Кнопка1_Click:
MsgBox Err.Description
Resume Exit_Кнопка1_Click
End Sub
Private Sub Кнопка4_Click()
On Error GoTo Err_Кнопка4_Click
DoCmd.Close
Exit_Кнопка4_Click:
Exit Sub
Err_Кнопка4_Click:
MsgBox Err.Description
Resume Exit_Кнопка4_Click
End Sub
Private Sub Кнопка5_Click()
On Error GoTo Err_Кнопка5_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1044) & ChrW(1086) & ChrW(1075) & ChrW(1086) & ChrW(1074) & ChrW(1086) & ChrW(1088) & ChrW(95) & ChrW(1076) & ChrW(1086) & ChrW(1073)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка5_Click:
Exit Sub
Err_Кнопка5_Click:
MsgBox Err.Description
Resume Exit_Кнопка5_Click
End Sub
Private Sub Кнопка6_Click()
On Error GoTo Err_Кнопка6_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1105) & ChrW(1090) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1076) & ChrW(1072) & ChrW(1090) & ChrW(1077)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка6_Click:
Exit Sub
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click
End Sub
FORM_Договор_доб
Option Compare Database
Private Sub Кнопка19_Click()
On Error GoTo Err_Кнопка19_Click
DoCmd.GoToRecord,, acNewRec
Exit_Кнопка19_Click:
Exit Sub
Err_Кнопка19_Click:
MsgBox Err.Description
Resume Exit_Кнопка19_Click
End Sub
Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка20_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70
Exit_Кнопка20_Click:
Exit Sub
Err_Кнопка20_Click:
MsgBox Err.Description
Resume Exit_Кнопка20_Click
End Sub
Private Sub Кнопка21_Click()
On Error GoTo Err_Кнопка21_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70
Exit_Кнопка21_Click:
Exit Sub
Err_Кнопка21_Click:
MsgBox Err.Description
Resume Exit_Кнопка21_Click
End Sub
Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click
DoCmd.Close
Exit_Кнопка22_Click:
Exit Sub
Err_Кнопка22_Click:
MsgBox Err.Description
Resume Exit_Кнопка22_Click
End Sub
FORM_Заказчик
Option Compare Database
Private Sub Кнопка19_Click()
On Error GoTo Err_Кнопка19_Click
DoCmd.GoToRecord,, acNewRec
Exit_Кнопка19_Click:
Exit Sub
Err_Кнопка19_Click:
MsgBox Err.Description
Resume Exit_Кнопка19_Click
End Sub
Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка20_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70
Exit_Кнопка20_Click:
Exit Sub
Err_Кнопка20_Click:
MsgBox Err.Description
Resume Exit_Кнопка20_Click
End Sub
Private Sub Кнопка21_Click()
On Error GoTo Err_Кнопка21_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70
Exit_Кнопка21_Click:
Exit Sub
Err_Кнопка21_Click:
MsgBox Err.Description
Resume Exit_Кнопка21_Click
End Sub
Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click
DoCmd.Close
Exit_Кнопка22_Click:
Exit Sub
Err_Кнопка22_Click:
MsgBox Err.Description
Resume Exit_Кнопка22_Click
End Sub
FORM_Исполнитель
Option Compare Database
Private Sub Кнопка23_Click()
On Error GoTo Err_Кнопка23_Click
DoCmd.GoToRecord,, acNewRec
Exit_Кнопка23_Click:
Exit Sub
Err_Кнопка23_Click:
MsgBox Err.Description
Resume Exit_Кнопка23_Click
End Sub
Private Sub Кнопка24_Click()
On Error GoTo Err_Кнопка24_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70
Exit_Кнопка24_Click:
Exit Sub
Err_Кнопка24_Click:
MsgBox Err.Description
Resume Exit_Кнопка24_Click
End Sub
Private Sub Кнопка25_Click()
On Error GoTo Err_Кнопка25_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70
Exit_Кнопка25_Click:
Exit Sub
Err_Кнопка25_Click:
MsgBox Err.Description
Resume Exit_Кнопка25_Click
End Sub
Private Sub Кнопка26_Click()
On Error GoTo Err_Кнопка26_Click
DoCmd.Close
Exit_Кнопка26_Click:
Exit Sub
Err_Кнопка26_Click:
MsgBox Err.Description
Resume Exit_Кнопка26_Click
End Sub
Private Sub Кнопка27_Click()
On Error GoTo Err_Кнопка27_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo,, acMenuVer70
Exit_Кнопка27_Click:
Exit Sub
Err_Кнопка27_Click:
MsgBox Err.Description
Resume Exit_Кнопка27_Click
End Sub
FORM_Меню
Option Compare Database
Private Sub Услуги_Click()
On Error GoTo Err_Услуги_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Услуги_Click:
Exit Sub
Err_Услуги_Click:
MsgBox Err.Description
Resume Exit_Услуги_Click
End Sub
Private Sub Добавить_заказчика_Click()
On Error GoTo Err_Добавить_заказчика_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Добавить_заказчика_Click:
Exit Sub
Err_Добавить_заказчика_Click:
MsgBox Err.Description
Resume Exit_Добавить_заказчика_Click
End Sub
Private Sub Добавить_изготовителя_Click()
On Error GoTo Err_Добавить_изготовителя_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Добавить_изготовителя_Click:
Exit Sub
Err_Добавить_изготовителя_Click:
MsgBox Err.Description
Resume Exit_Добавить_изготовителя_Click
End Sub
Private Sub Договор_Click()
On Error GoTo Err_Договор_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Договор_Click:
Exit Sub
Err_Договор_Click:
MsgBox Err.Description
Resume Exit_Договор_Click
End Sub
Private Sub Отчёты_Click()
On Error GoTo Err_Отчёты_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Отчёты_Click:
Exit Sub
Err_Отчёты_Click:
MsgBox Err.Description
Resume Exit_Отчёты_Click
End Sub
Private Sub Выход_Click()
On Error GoTo Err_Выход_Click
DoCmd.Close
Exit_Выход_Click:
Exit Sub
Err_Выход_Click:
MsgBox Err.Description
Resume Exit_Выход_Click
End Sub
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1059) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1072)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка12_Click:
Exit Sub
Err_Кнопка12_Click:
MsgBox Err.Description
Resume Exit_Кнопка12_Click
End Sub
Private Sub Кнопка13_Click()
On Error GoTo Err_Кнопка13_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1082) & ChrW(1072) & ChrW(1079) & ChrW(1095) & ChrW(1080) & ChrW(1082)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка13_Click:
Exit Sub
Err_Кнопка13_Click:
MsgBox Err.Description
Resume Exit_Кнопка13_Click
End Sub
Private Sub Кнопка14_Click()
On Error GoTo Err_Кнопка14_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1082) & ChrW(1072) & ChrW(1079) & ChrW(1095) & ChrW(1080) & ChrW(1082)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка14_Click:
Exit Sub
Err_Кнопка14_Click:
MsgBox Err.Description
Resume Exit_Кнопка14_Click
End Sub
Private Sub Кнопка15_Click()
On Error GoTo Err_Кнопка15_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1044) & ChrW(1086) & ChrW(1075) & ChrW(1086) & ChrW(1074) & ChrW(1086) & ChrW(1088)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка15_Click:
Exit Sub
Err_Кнопка15_Click:
MsgBox Err.Description
Resume Exit_Кнопка15_Click
End Sub
Private Sub Кнопка16_Click()
On Error GoTo Err_Кнопка16_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1105) & ChrW(1090) & ChrW(1099)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка16_Click:
Exit Sub
Err_Кнопка16_Click:
MsgBox Err.Description
Resume Exit_Кнопка16_Click
End Sub
Private Sub Кнопка17_Click()
On Error GoTo Err_Кнопка17_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1048) & ChrW(1089) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1085) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1083) & ChrW(1100)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка17_Click: