№№ п/п

Найменування робіт

Вартість (в у.о.)

Этап 1. Создание сайта под ключ 1200

Этап 2. Разработка дизайна сайта 400

Этап 3. Создание веб-приложений 500

Этап 4. Подготовка сайта к вводу в эксплуатацию 100

Этап 5. Регистрация в поисковых системах, рекламная компания в Интернете 200

Розробка сайтів під ключ

1.

Стартовий сайт

от 800

2.

Бізнес-сайт

от 1200

3.

Корпоративний сайт

от 2000 до 5000

4.

Сайт-візитка

От 500

Исполнитель заказа

Вид услуги

Срок выполнения

Кол-во

Стоимость

Порядок рассчета

ФИО

должность

контакты

дата принятия

дата сдачи

за ед.

всего

задаток

сумма

Поток даних нульового рівня

Поток даних першого рівня

Поток даних другого рівня

Атрибути

Інформація від замовника

Реєструвати замовника

П І Б

Адреса

Телефон

Назва фірми

Код замовника

Запит про надання послуг

Запит на пошук послуги за видом

Вид послуги

Рівні модулів

2.3 Розробка логічної моделі бази даних студії веб-дизайну

Логічна модель відображає логічні зв'язки між елементами даних. Вона формулюється в термінах бази даних, але не залежить від конкретної СУБД. На основі концептуальної моделі розробляється логічна модель бази даних (БД). Для кожного атрибута таблиці визначається тип даних, а саме: N - число, S - рядок, D - дата.

Для кожного із ключів також прийняті скорочення: PK - основний ключ, FK - зовнішній ключ.

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

На підставі розробленої раніше діаграми сутностей (ER) складемо логічну модель. Логічна модель отбражает логічні зв'язки між елементами даних. Ці зв'язки зобразимо за допомогою таблиць, для кожної з яких буде зазначений перелік атрибутів і ключів

Коли маємо дві сутності зі зв'язком один до багатьох, то при складанні таблиць їхнє число буде рівнятися двом, але із сутності зі зв'язком один перекочує ключ у сутність зі зв'язком багато.

Далі представлена (рисунок 6) логічна модель БД «Студія веб-дизайну», що розроблена засобами Erwin.

4. Розробка алгоритму і графічного інтерфейсу програми

Виходячи с того, що база даних, яка розробляється, спрямована на обслуговування обмеженого за розміром закладу, інформація, яка в ній буде зберігатися має сенс лише для декількох ключових осіб, то не має рації створювати її для широкого серверного використання. Значно краще буде розробити базу на основі стаціонарної платформи, що значно спростило би безпосередню роботу по створенню бази даних,а також принцип роботи кінцевого програмного продукту. Для виконання даної роботи будемо використовувати СУБД Microsoft Access 2000, адже ця платформа є найдоступнішою та найрозповсюдженішою. В Access існує чотири типа модулів: модулі форм, модулі звітів, стандартні модулі і модулі класів. Нам потрібні будуть модулі форм та звітів.

Форма «Меню» представлятиме собою кнопочну форму, яка складатиметься з набору кнопок, що забезпечують доступ до інших форм та функцій програми. Всі кнопки форми „Меню” перелічені нижче (таблиця 3).

Таблиця 3 – Кнопки форми «Меню»

Головна форма має кнопочну структуру, в яку входять таки кнопки:

-послуга;

-договір;

-звіти;

-додати замовника;

-додати виконавця;

Форма «Услуга» має кнопочну структуру, в яку входять такі кнопки:

- пошук послуги за назвою;

- пошук послуги за видом;

- додавання послуги в базу даних студії веб-дизайну;

Перші три кнопки в свою чергу відкривають інші форми.

Кнопка „Поиск услуги по названию” відкриє відповідну форму, в якій буде розміщене поле „Введите название услуги: ”. За даними, що будуть введені в дане поле, буде відбуватися запит, який буде здійснювати пошук послуги в базі за назвою. Після введення параметру та натиснення кнопки „ОК”,, повинна бути відкритися форма „Услуга”, в якій буде виводитися вся інформація про послугу, тобто її характеристика (назва, код послуги, вид, ціна, виконавець, додаткові матеріали), які зазначили, у лінійному вигляді.

В формі „Поиск услуги по виду”, яка з’явиться одразу після натиснення відповідної кнопки, буде розміщено поле „Введите вид услуги:”. За даними, що будуть введені в це поле, буде відбуватися запит, який здійснює пошук послуги в таблиці «Услуга». Після введення параметру для пошуку и натисканні «OK», повинна бути відкритися форма «Услуга», в якій буде виводитися вся інформація про послугу, тобто її характеристика (назва, код послуги, вид, ціна, виконавець, додаткові матеріали), які зазначили, у лінійному вигляді.

Натиснувши кнопку „Добавить услугу”, з’явиться форма „Услуга_доб”, яка має як і лінійчату, так і кнопочну структуру. В цій формі необхідно заповнити поля: код послуги, назва послуги, ціна послуги, вид, виконавець. Заповнення усіх полів обов’язкове. Якщо якесь поле залишеться не заповненим, з’явиться відповідне повідомлення. Після того, як всі поля будуть заповненні, можна буде, за допомогою відповідних кнопок, додавати ще один запис, удалити запис, зберегти та знайти запис.

Форма „Добавить заказчика” має лінійну структуру, в яку входять поля зі списком необхідних даних для введення. В цю інформацію занасяться наступні дані про замовника: ПІБ, код замовника, адреса, телефон, назва фірми.

Форма „Добавить исполнителя” має лінійну структуру, в яку входять поля зі списком необхідних даних для введення. В цю інформацію занасяться наступні дані про виробника: код виконавця, ПІБ, дата народження, адреса, телефон, посада, вид послуги, зарплата.

Форми „Добавить заказчика” та „Добавить исполнителя ” мають кнопки, які дозволяють додати запис, зберегти запис або видалити його.

Форма „Договор” має кнопочну структуру, в яку входять:

-додавання договору;

-пошук договору за період часу;

Форма „Добавить договор”, в яку входять поля зі списком необхідних даних для введення. В цю інформацію заносяться наступні дані про договір: основні положення, даатз аключення, дата виконання, код договору, виконан/не виконан, причина невиконання.

Форм „Отчёт по дате ” має лінійну структуру, в яку входять поля зі списком необхідних даних для введення.Необхідно ввести початкову та кінцеву дати певного періоду та натиснути кнопку „Выполнить запрос”, повинен бути відкритися запит «Запрос по дате», в якому буде виводитися вся інформація про договори у цей період.

- виконання запиту;

Форма „Звіт” містить в собі дві кнопки: „Отчёт о предоставленніх услугах” та „Отчётность студии”.

Натиснувши першу кнопку, відкриється звіт „Отчёт о предоставляеміх услугах”, яка містить в собі код послуги, код виконавця, назва послуги, ціна, кількість, сума.

- друк звіту.

Натиснувши кнопку „Отчётность студії”, на екрані з’явиться звіт прозвітність студії, який містить у собі таку їнформацію:доходи, розрахунок заробітної плати, кількість виконаних договорів.

Окрім всіх вищезазначених кнопок, кожна з форм має також має копку „Закрити форму”, яка має вигляд -.

2.5 Розробка фізичної моделі даних

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

Фізична модель бази даних будується на основі логічної моделі даних.

Після побудови фізичної моделі необхідно провести аналіз нормалізації:

1. Таблиці перебувають в 1-й нормальній формі (НФ) тоді й тільки тоді, коли відсутні однакові картежи й у кожному з осередків будь-якої таблиці втримуються атомарні значення.

2. Таблиці перебувають в 2-й НФ, тоді й тільки тоді, коли таблиця перебуває в першій нормальній формі, і кожен не ключовий атрибут перебуває в повній функціональній залежності від всіх можливих ключів.

3. Таблиці перебувають в 3-й НФ, тоді й тільки тоді, коли таблиця перебуває в другій нормальній формі, і всі не ключові атрибути перебувають у повній нетранзитивній залежності від всіх можливих ключів.

На підставі логічної моделі даних складемо фізичну модель, згідно з особливостями обраної СУБД. Для реалізації завдання по функціонуванню аптеки була обранна СУБД “Access 2003”. База даних зберігається в даної СУБД у вигляді одного файлу з розширенням *.mdb.

Для створення фізичної моделі бази даних приведемо її проектну частину (таблиця 4).

Таблиця 4- Замовник

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

FK2

Код исполнителя

Длинное целое

4

Да

FK1

Цена

Денежный

8

Да

…

Дополнительные материалы

Текстовый

50

Да

…

Атрибут

Тип данных

Размер поля в байтах

Обязательность поля

Ключ

Код исполнителя

Счетчик

4

Да

PK

Ф.И.О.

Текстовый

40

Да

…

Дата рождения

Дата/время

8

Нет

…

Адрес

Текстовый

50

Да

…

Телефон

Текстовый

20

Да

…

Должность

Текстовый

30

Да

FK

Вид услуги

Текстовый

30

Да

…

Зарплата

Длинное целое

...

Атрибут

Тип данных

Размер поля в байтах

Обязательность поля

Ключ

Код услуги

Длинное целое

4

Да

PK FK2

Код исполнителя

Длинное целое

4

Да

PK FK3

Код заказчика

Счетчик

4

Да

PK FK1

Вид услуги

Текстовый

20

Да

…

Название услуги

Текстовый

30

Да

…

Цена

Денежный

8

Да

…

Кол-во

Длинное целое

4

Да

…

Сумма

Денежный

8

Да

…

Код договора

Длинное целое

4

Да

PK FK4

Атрибут

Тип данных

Размер поля в байтах

Обязательность поля

Ключ

Код договора

Счетчик

4

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

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

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

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

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

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. Для того, щоб закрит будь-яку форму треба натиснути копку „Закрити форму”, яка має вигляд -.