База даних студії веб-дизайну

Таблиця 5- Послуги

Таблиця 6- Виконавець

Таблиця 7- Звіт

Таблиця 8- Договір

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

Проведемо аналіз нормалізації побудованої БД. Всі таблиці БД перебувають у третій нормальній формі (НФ). Цієї НФ досить, щоб забезпечити в даній базі високий ступінь цілісності.

При аналізі бази дані аномалії виявлені не були.

На підставі фізичної моделі складемо базу даних у середовищі Microsoft Office Access версії 2003 (рисунок 7).

Рисунок 7 - Фізична модель даних, реалізована в середовищі Microsoft Office Access версії 2003.

2.6 Кодування і тестування програмного забезпечення бази даних аптеки

База даних аптека була виконана в середовищі Microsoft Access 2003. Вона реалізована за допомогою таблиць, форм, запитів і звітів. Для нормального функціонування був написаний програмний код який представлений в додатку А.

Для проведення тестування роботи програмного продукту до бази даних були введені наступні дані:

· до таблиці «Услуга» була введена інформація про 3 послуги;

· до таблиці «Исполнитель» ввели інформацію про 5 виробникыв;

· до таблиці «Договор» була введена інформація про 3 договори;

· до таблиці «Заказчик» була введена інформація про 4 заказчика;

· до таблиці «Отчёты» - інформація про звітність.

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

Вводимо дані спочатку для одного товару, потім натискаємо додати запис - вводимо інформацію про другий товар і т.д. до 3: „Код послуги”-1,2,3; „Вид услуги”-стартовий сайт, бізнес-сайт, сайт-візитка; „Название услуги”-створення сайту, кеширування, реклама; „Код исполнителя”-3, 5, 2; „Цена”-1000р, 456р, 800р; „Дополнительные материалы”-фотографії, документи, фотографії.

Для збереження даних натискаємо на відповідну кнопку, але якщо хоча б одне поле не буде заповнене, то з'явиться повідомлення про те, що не заповненні обов'язкові поля. Якщо всі обов'язкові поля заповнені, то інформація зберігається без проблем. Закриваємо цю форму та обираємо запит, після цього бачимо, що тепер у списку дійсно існує уся інформація про послугу, що ми ввели.

Повертаємося у форму „Послуга” та натискаємо кнопку „Поиск услуги по названию”. Перед нами з'являється вікно з питанням про назву. В цьому вікні набираємо:кеширування. Після натиснення кнопки „ОК” бачимо форму, в якій вказіні лише дані про товар, що відповідає заданій назві, а саме: „Код послуги”- 2; „Вид услуги”- бізнес-сайт; „Название услуги”- кеширування; „Код исполнителя”- 5; „Цена”- 456р; „Дополнительные материалы”-, документи.

Цей тест було проведено також для пошуку послуги за видом, використовуючи всі можливості. Тому можна зробити висновок, що система працює нормально.

На основі розробки проектної документації та програмного забезпечення реалізуємо інструкцію для користувача базою даних. Детальну інформацію можна побачити в додатку Б.

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.

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

Дану базу даних можливо використовувати не лише в закладі «Студія веб-дизайну», але й інших закладах, які мають споріднену предметну область - тобто, які надають певні послуги інтернет ресурсів або будь-яких інших.

Список використаної літератури

1. Хабракен Д. “ Microsoft Access 2003”: М.: ООО «Издательство АСТ»,2004.-204 с.

2. Гончаров А.Ю. Access 2003. Самоучитель с примерами - М.: КУДИЦ-ОБРАЗ, 2004. - 272 с.

3. Базы данных: учебный курс.- М.: ООО «Издательство АСТ», 2001.-504 с.

4. Шпак Ю.А. 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:

Exit Sub

Err_Кнопка17_Click:

MsgBox Err.Description

Resume Exit_Кнопка17_Click

End Sub

FORM_Отчёт по дате

Option Compare Database

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

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

Dim stDocName As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1076) & ChrW(1072) & ChrW(1090) & ChrW(1077)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка7_Click:

Exit Sub

Err_Кнопка7_Click:

MsgBox Err.Description

Resume Exit_Кнопка7_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка9_Click:

Exit Sub

Err_Кнопка9_Click:

MsgBox Err.Description

Resume Exit_Кнопка9_Click

End Sub

FORM_Отчёт_услуги

Option Compare Database

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

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

Dim stDocName As String

stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1105) & ChrW(1090) & ChrW(32) & ChrW(1086) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1099) & ChrW(1093) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1072) & ChrW(1093)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка0_Click:

Exit Sub

Err_Кнопка0_Click:

MsgBox Err.Description

Resume Exit_Кнопка0_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1105) & ChrW(1090) & ChrW(32) & ChrW(1086) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1099) & ChrW(1093) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1072) & ChrW(1093)

DoCmd.OpenReport stDocName, acNormal

Exit_Кнопка2_Click:

Exit Sub

Err_Кнопка2_Click:

MsgBox Err.Description

Resume Exit_Кнопка2_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

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(1054) & ChrW(1090) & ChrW(1095) & ChrW(1105) & ChrW(1090) & ChrW(95) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1080)

DoCmd.OpenForm stDocName,,, stLinkCriteria

Exit_Кнопка5_Click:

Exit Sub

Err_Кнопка5_Click:

MsgBox Err.Description

Resume Exit_Кнопка5_Click

End Sub

FORM_Прайс-лист

Option Compare Database

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

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

DoCmd.PrintOut

Exit_Кнопка10_Click:

Exit Sub

Err_Кнопка10_Click:

MsgBox Err.Description

Resume Exit_Кнопка10_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка11_Click:

Exit Sub

Err_Кнопка11_Click:

MsgBox Err.Description

Resume Exit_Кнопка11_Click

End Sub

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 Кнопка2_Click()

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

Screen.PreviousControl.SetFocus

DoCmd.FindNext

Exit_Кнопка2_Click:

Exit Sub

Err_Кнопка2_Click:

MsgBox Err.Description

Resume Exit_Кнопка2_Click

End Sub

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

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

Screen.PreviousControl.SetFocus

DoCmd.FindNext

Exit_Кнопка3_Click:

Exit Sub

Err_Кнопка3_Click:

MsgBox Err.Description

Resume Exit_Кнопка3_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка8_Click:

Exit Sub

Err_Кнопка8_Click:

MsgBox Err.Description

Resume Exit_Кнопка8_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1088) & ChrW(1087) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1074) & ChrW(1080) & ChrW(1076) & ChrW(1091) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1080)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка9_Click:

Exit Sub

Err_Кнопка9_Click:

MsgBox Err.Description

Resume Exit_Кнопка9_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1088) & ChrW(1087) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1080) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1085) & ChrW(1072) & ChrW(1079) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1102)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка10_Click:

Exit Sub

Err_Кнопка10_Click:

MsgBox Err.Description

Resume Exit_Кнопка10_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1055) & ChrW(1088) & ChrW(1072) & ChrW(1081) & ChrW(1089) & ChrW(45) & ChrW(1083) & ChrW(1080) & ChrW(1089) & ChrW(1090)

DoCmd.OpenForm stDocName,,, stLinkCriteria

Exit_Кнопка11_Click:

Exit Sub

Err_Кнопка11_Click:

MsgBox Err.Description

Resume Exit_Кнопка11_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) & ChrW(95) & ChrW(1076) & ChrW(1086) & ChrW(1073)

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

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1088) & ChrW(1087) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1074) & ChrW(1080) & ChrW(1076) & ChrW(1091) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1080)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка13_Click:

Exit Sub

Err_Кнопка13_Click:

MsgBox Err.Description

Resume Exit_Кнопка13_Click

End Sub

FORM_Услуга_доб

Option Compare Database

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

End Sub

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

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

DoCmd.GoToRecord,, acNewRec

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, acEditMenu, 8,, acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, 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.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70

Exit_Кнопка22_Click:

Exit Sub

Err_Кнопка22_Click:

MsgBox Err.Description

Resume Exit_Кнопка22_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка23_Click:

Exit Sub

Err_Кнопка23_Click:

MsgBox Err.Description

Resume Exit_Кнопка23_Click

End Sub

Додаток Б. Інструкція користувача

1. Для того, щоб почати роботу із базою даних «студія веб-дизайну » необхідно зі списку форм обрати форму, що має назву „Меню”

2. Для того, щоб мати змогу добавити послуги до бази даних, необхідно натиснути кнопку «Услуги», а потім, у формі „Услуга” натиснути „Добавить услугу”.

3. Для внесення нового постачальника до бази даних, необхідно натиснути кнопку «Добавить заказчика».

4. Для внесення нового виробника до бази даних, необхідно натиснути кнопку «Добавить исполнителя».

5. Для заповнення чека та внесення його до бази даних, необхідно натиснути кнопку «Услуга»”Прайс-лист”.

6. При натискані кнопки „Отчёты”, в головній формі, відкриється форма „Форма_отчёты”

Якщо натиснути кнопку „Формировать отчёт о наличии товара в аптеке” в цій формі, то з'явиться ще одна форма, де буде запропановано продивитися звіт про товари, які є в базі, або роздрукувати цей звіт

7. При натискані кнопки „Договор”, в головній формі, відкриється форма „Договор”

Якщо натиснути кнопку „Поиск договора за определённій период” в цій формі, то з'явиться ще форма „Договр”, де необхідно ввести дати: з якої та по яку ви хочите одержати інформацію про продані заключені договори

Якщо ж натиснути „Добавить договор”, то на єкрані повинна з'явитися наступна форма „Договор_доб”, в якому ми можемо додавати договір, за допомогою його характеристик

8. Для того, щоб знайти послугу за назвою необхідно в головній формі натиснути „Услуги”, потім, у формі, що з'явиться, натиснути „Поиск услуги по названию”, з'явиться вікно, в якому необхідно набрати назву послуги, яка нас цікавить

9. Для того, щоб знайти послугу за видом, необхідно в головній формі натиснути „Услуги”, потім, у формі „Услуга”, що з'явиться, натиснути „Поиск услуги по виду”, з'явиться вікно, в якому необхідно вид послуги, яка нас цікавить

9. Для того, щоб закрит будь-яку форму треба натиснути копку „Закрити форму”, яка має вигляд -.

Страницы: 1, 2