Л а б о р а т о р н а я р а б о т а № 12

Створення процедур обробки об'єктів баз даних

1. Основні теоретичні і довідкові відомості

1.1. Загальні відомості про об'єкти доступу до даних

Програмна робота з об'єктами Access (таблицями, запитами, записами і ін.) здійснюється за допомогою DAO (Об'єкти доступу до даних), що являють собою взаємозв'язок між програмами мовою VBA і базами даних, з якими треба працювати.

Нижче наведений огляд деяких об'єктів.

DataBase - являє собою відкриту в робочій області базу даних. Для посилання на поточну базу даних використовується ключове слово CurrentDB. Набір DataBases містить у собі усі відкриті в робочій області об'єкти типу DataBase.

TableDef - являє собою опис таблиці, відкритої бази даних. Набір TableDefs є колекцією всіх таблиць, визначених в об'єкті типуDataBase.

Recordset - являє собою набір записів в основній таблиці об'єкта DataBase.У набір Recordsets входять усі відкриті об'єкти типу Recordset поточного об'єктуDataBase.

Field - являє собою стовпець даних. Об'єкт Field представляє значення конкретного поля. У набір Fields входять усі поля відкритої таблиці.

QueryDef - представляє собою опис запиту для об'єкта DataBase.Набір QueryDefs є сімейством усіх запитів в об'єкті типу DataBase.

Index-указує на порядок записів в об'єкті DataBase. У набір Indexs входять усі об'єкти типу Index, розміщені в QueryDef.

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

При посиланні на властивість використовується такий синтаксис:

Об'єкт.Властивість

Установка значення властивості здійснюється так:

Об'єкт.Властивість = Значення

Одержання значення властивостей здійснюється так:

Ім'я змінної = Об'єкт.Властивість

Синтаксис методу такий:

Об'єкт.Метод

Якщо метод використовує аргументи, то застосовується такий синтаксис

Об'єкт.Метод (аргумент1, аргумент2)

1.2. Підключення до бази даних

Підключення до бази даних із процедури VBA складається з трьох етапів:

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

- відкриття бази даних;

- відкриття об'єкта Recordset для таблиці, з якою треба працювати.

1.3. Властивості і методи набору записів

Після підключення до бази даних і відкриття таблиці створюється новий набір записів і тепер основна робота відбувається з об'єктом Recordset.

Існує три типи наборів записів:

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

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

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

1.4. Властивості об'єкта Recordset

Rs.BOF-повертає значення True,якщо позиція поточного запису знаходиться перед першим записом.

Rs.Bookmark - встановлює або повертає значення Variant, яке ідентифікує поточний запис.

Rs.EOF-повертає значення True,якщо позиція поточного запису знаходиться нижче останнього запису.

Rs.RecordCount – повертає кількість записів у наборі.

Rs.Sort - повертає або встановлює порядок сортування в наборі записів динамічного і простого типів.

Rs.Fields.Count – повертає кількість полів поточної таблиці.

Rs.Fields.Name – повертає ім’я поля.

1.5. Методи об'єкта Recordset

Rs.AddNew-додає новий запис у набір табличних або динамічних записів.

Rs.Close - закриває набір даних.

Rs.Delete - вилучає поточний запис з набору табличних або динамічних записів.

Rs.Update - обновлює набір записів.

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

Rs.Move - переміщує покажчик поточного запису на визначену кількість записів.

Rs.MoveFirst, Rs.MoveLast, Rs.MoveNext, Rs.MovePrevious-переміщує поточний запис у першу, останню, наступну або попередню позицію поточного набору записів.

2. Порядок виконання роботи

1) Створіть таблицю, яку потрібно обробляти відповідно завдання до лабораторної роботи ( дивись Додаток).

2) Напишіть процедуру, яка реалізовує виконання завдання.

Л а б о р а т о р н а я р а б о т а № 12 - student2.ru 3. Контрольні питання

1. Які типи наборів записів таблиці Ви знаєте?

2. Які властивості об'єкта Recordset?

3. Які методи об'єкта Recordset?

Таблиця 12.1-“Завдання до лабораторної роботи №12”

№ вар. Зміст завдання
Внесіть зміни в таблицю “Відділ” поточної бази даних: підвищити оклад інженерам на 50 грн., ст.інженерам на 60 грн.
З таблиці “Відомість” поточної бази даних вивести список студентів, які склали всі іспити на 4 і 5.
З таблиці “Відділ” поточної бази даних вивести список інженерів, які мають вищу освіту і стаж роботи менше 5 років.
З таблиці “Відомість” поточної бази даних вивести список студентів, які мають хоча б одну двійку.
З таблиці “Відомість” поточної бази даних вивести список студентів, які склали всі іспити без двійок.
Для таблиці “Відомість” поточної бази даних визначити середній бал із кожного предмета.
З таблиці “Відомість” поточної бази даних вивести список предметів, з яких є хоча б одна двійка.
З таблиці “Відділ” поточної бази даних вивести список співробітників, які мають стаж роботи більше 10 років і оклад менше 300 грн..
Для таблиці “Відомість” поточної бази даних визначити середній бал для кожного студента.
Внести зміни в таблицю “Відділ” поточної бази даних: усім співробітникам, які мають стаж роботи більше 10 років і не мають вищої освіти, підвищити оклад на 20 %..
Для таблиці “Заводи” бази даних “Промисловість” вивести список заводів, у яких більше 1000 працівників.
Для таблиці “Заводи” поточної бази даних знайти завод з найбільшим річним обсягом виробництва.
Для таблиці “Заводи” поточної бази даних знайти завод, у якого найбільший відсоток працівників з вищою освітою.
Для таблиці “Заводи” поточної бази даних знайти завод, у якого найбільше відношення річного обсягу до чисельності робітників.
З таблиці “Відомість” поточної бази даних вивести список студентів, які мають найбільший середній бал.

Додаток

Таблиці і варіанти завдань

Таблиця 1- “Товари”

Код товару Марка   Опис товару Код постачаль ника   Ціна На складі Поста чання припи нені
Кава "Добра кава" Мелений по 100 г 2,61грн Ні
Кава "Nescafe Classic" Розчинний по 100 г 6,26грн Ні
Кава "Арабіка" У зернах 100 г 2,40грн Ні
Кава "Галка" Розчинний по 50 г 2,44грн Ні
Кава "Галка" В пакетах по 10 г 3,78грн Ні
Кава Maxima Мелений по 250 г 4,80грн Так
Кава "Віденська кава" У зернах по 100 г 1,94грн Ні
Чай Травневий 200 г листовий 4,66грн Ні
Чай Dilmah 125 г лист. 2,95грн Так
Чай "Батік" Пакет 5 г по 10 шт 1,00грн Ні
Чай Dilmah Gold 100 г листовий 2,39грн Ні
Чай Lipton Пакет 2 г по 25 шт 3,57грн Так
Чай Lipton Асорті по 200 г 15,6грн Ні
Чай Ahmad Пакет 2 г по 25 шт 3,17грн Ні
Чай Ahmad Лист. з лимоном 3,23грн Ні
Цукерки "Вечірній Київ" 500 г 8,56грн Ні
Цукерки "Грильяж" 260 г 4,73грн Ні
Цукерки "Пташине молоко" 500 г 3,96грн Ні
Цукерки "Асорті" 500 г 8,80грн Ні
Цукерки "Стріла" 250 г 2,65грн Ні

Таблиця 2- “Постачальники”

Код постачальника Фірма постача льника Звертатися до Місто Країна Факс Телеф он Дата доставки
АТ "Світоч" Петрова В.М. Львів Україна 245-223 234-340 12.08.03
Pulkala Смірнова К.А. Хельсінкі Фінляндія 456-76-22 456-76-20 02.09.03
Фабрика ім. К.Маркса Сухова П.И. Київ Україна 295-46-78 205-45-30 05.09.03
Фабрика “Чай”   Валєєва Б.М. Москва Росія 295-45-67 295-45-50 04.09.03
АТ "Галка" Коваленко М.М. Львів Україна 245-700 245-756 10.08.03
Dilmah Лер П.А. Штутгарт Німеччина 567-80-30 567-80-21 30.08.03
Nestle Кромм А. Франкфурт на Майні Німеччина 4-757-320 4-757-320 11.09.03
Фабрика "Світоч" Кривенко А.А. Львів Україна 256-901 256-978 23.09.03

Таблиця 3- “Покупці”

Код покупця Назва фірми Прізвище   Посада   Адреса Телефон
Оптовий магазин "Атланта" Басів К.И. менеджер Озерна, 8 413-18-10
Торговий дім Заєць В.Д. Представн. фірми Чкалова, 31 225-54-12
Агромаркет Дидик С.М. директор Рейтерська, 51 228-57-30
Бланко Лось М.Н. менеджер Артема, 6 224-15-12
Віденська кава Калінін М.Т. директор Артема, 34 228-28-50
Київський спортклуб Довгань П.М. менеджер Дружби народів, 7 295-74-13
НП Артекс продукт Смєхов В.И. Представн. фірми Польова, 24 441-64-56
НП "Ельдорадо" Журбін А.С. директор Маяковського, 30 553-56-30
Магазин "Явір" Шкіль Ю.А. директор Пр. Перемоги 137 226-13-64
«Валентино» Крайчик М.Ю. менеджер Пр. Перемоги 137 226-23-54

Таблиця 4- “Замовлення”

Код замовлення Код покупця Покупець Адреса Дата продажу Умова доставки
Оптовий магазин "Атланта" Озерна, 8 04.09.03 Транспортом фірми покупця
Торговий дім Чкалова, 31 06.09.03 Київтрансагентство
Агромаркет Рейтерська, 51 04.09.03 Транспортом фірми продавця
  Бланко Артема, 6 10.09.03 Транспортом фірми продавця
  Віденська кава Артема, 34 04.09.03 Транспортом фірми покупця
Київський спортклуб Дружби народів, 7 20.09.03 Транспортом фірми покупця
НП Артекс продукт Польова, 24 06.09.03 Київтрансагентство
НП "Ельдорадо" Маяковського, 30 16.10.03 Транспортом фірми продавця
Магазин "Явір" Пр. Перемоги 137 21.09.03 Транспортом фірми продавця
"Валентино" Пр. Перемоги 19 29.09.03 Транспортом фірми покупця

Таблиця 5- “Продажі”

Код оплати Код замовлення Код товару Марка Ціна Кіль кість Вар тість Дата оплати Знижка (%)
Кава «Добра кава» 2,61грн   10.09.03
Кава "Nescafe Classic" 6,26 грн   12.09.03
Кава "Арабіка" 2,40грн.   21.09.03
Кава "Галка" 2,44грн.   06.09.03
Кава "Галка" 3,78грн.   06.09.03
Кава Maxima 4,80грн.   08.09.03
  Кава "Віденська кава" 1,94грн.   21.09.03
Чай Травневий 4,66грн.   6.09.03
Чай Dilmah 2,95грн.   13.09.03
Чай "Батік" 1,00грн.   06.09.03
Чай Dilmah Gold 2,39грн.   06.09.03
Чай Lipton 3,57грн.   12.09.03
Чай Lipton 15,68грн   12.09.03
Чай Ahmad 3,17грн   08.09.03
Чай Ahmad 3,23грн   08.09.03
Цукерки "Вечірній Київ" 8,56грн   20.09.03
Кава "Nescafe Classic" 6,26 грн   12.09.03
Чай Lipton 15,68грн   12.09.03
Цукерки "Грильяж" 4,73грн   08.09.03
Цукерки "Пташине молоко" 3,96грн   08.09.03
Цукерки "Асорті" 8,80 грн   10.09.03
Цукерки "Стріла" 2,65 грн   10.09.03
Кава "Віденська кава" 1,94 грн   21.09.03
Цукерки “Стріла” 2,85 грн   10.09.03

Таблиця 6- “Платежі”

Дата Товари Рахунок на суму
10.05.03 Напої 3 220,00р.
10.05.03 Продукти 4 300,00р.
10.05.03 Приправи 1 100,00р.
15.06.03 Напої 7 400,00р.
15.06.03 Продукти 8 500,00р.
15.06.03 Приправи 6 600,00р.

Таблиця 7- “Студенти” містить наступні поля

№№ п/п Ім'я поля Тип даних
Прізвище Текстовий
Математика Числовий
Економіка Числовий
Фізика Числовий
Компьютерна техніка Числовий
Адреса Текстовий
Телефон Текстовий

Таблиця 8-“Відділ” містить наступні поля

№№ п/п Ім'я поля Тип даних
Прізвище Текстовий
Стать Текстовий
Посада Текстовий
Освіта Текстовий
Стаж роботи Числовий

Таблиця 9-“Відомість” містить наступні поля

№№ п/п Ім'я поля Тип даних
Прізвище Текстовий
Математика Числовий
Економіка Числовий
Фізика Числовий

Таблиця 10- “Заводи” містить наступні поля

№№ п/п Ім'я поля Тип даних
Назва заводу Текстовий
Річний обсяг Грошовий
Кільк_працівників Числовий
Кільк_работн_з_вищ_освітою Числовий

Таблиця 11- “Варіанти індивідуальних завдань”

Номери варіантів Коди товарів у таблиці “Товари”
1 – 11
1 – 5, 11 – 15
2 – 7, 17 – 20
5 – 10, 17 – 20
11 – 20
4 – 9, 13 – 16
3 – 6, 10 – 15
6 – 12, 15 – 16
7 – 10, 12 – 17
8 – 17
9 – 18
3 – 9, 18 – 20
4 – 8, 12 – 16
5 – 14
7 – 16

Схема складання таблиць індивідуального завдання

1. Одержіть у викладача варіант завдання.

2. Виберіть із загальної таблиці “Товари” рядки з номерами кодів товару для Вашого варіанта. Це буде таблиця “Товари” даного варіанта.

3. Таблиця “Постачальники” виходить, якщо із загальної таблиці “Постачальники” вибрати рядки з тими кодами постачальників, які є у Вашій таблиці “Товари”.

4. Таблиця “Продажі” формується шляхом вибору із загальної таблиці “Продажі” рядків з кодами товарів Вашого варіанта.

5. Таблицю “Замовлення” одержите, якщо з загальної таблиці “Замовлення” виберіть рядки з кодом замовлення Вашої таблиці “Продажі”.

6. Таблицю “Покупці” одержите із загальної таблиці “Покупці” шляхом вибору рядків з тим кодом покупця, який є у Вашій таблиці “Замовлення”.

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

1. Джон Вейскас. Эффективная работа с Microsoft Access 7.0 для Windows .- С-Пб.:Питер, 1997.

2. М.Хэлворсян, М.Янг. Эффективная работа с Microsoft Office 97.- С-Пб.:Питер, 1997.

3. Visual Basic для приложений (версия 5) в подлиннике: пер. с англ.- СПб:BHV - Санкт-Петербург, 1998.

4. МакФедризг Пол и др. Microsoft Office 97. Энциклопедия пользователя: пер. с англ.-К.: Издательство "ДиаСофт", 1998.

5. К. Гетц, М. Джилберт. Программирование в Microsoft Office. Полное руководство по VBA: пер. с англ.-К.: Издательская группа BHV, 1999.

6. Киммел, Пол. Освой самостоятельно программирование для Microsoft Access 2000 за 24 часа.: пер. с англ.-М.:"Вильямс". 2000.

7.Король В.И. Visual Basic 6.0, Visual Basic for Application 6.0. Язык программирования. Справочник с примерами.-М.: КУДРИЦ-ОБРАЗ, 2000.

З М І С Т

1. Вступ………………………………………………………………….3

2. Лабораторна робота 1………………………………………………..3

3. Лабораторна робота 2………………………………………………..7

4. Лабораторна робота 3……………………………………………….12

5. Лабораторна робота 4……………………………………………….14

6. Лабораторна робота 5……………………………………………….17

7. Лабораторна робота 6……………………………………………….18

8. Лабораторна робота 7……………………………………………….20

9. Лабораторна робота 8……………………………………………….22

10. Лабораторна робота 9. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 24

11. Лабораторна робота 10. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..25

12. Лабораторна робота 11. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 27

13. Лабораторна робота 12. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29

14. Додаток……………………………………………………………....32

15. Список літератури…………………………………………………..39

Наши рекомендации