Юрчишин В.М., Клим Б.В. і інші. Організація баз даних

Подождите немного. Документ загружается.

На рисунку 3.14 показано вікна Панель елементів, воно

викликається на екран з вікна MS Access командами Вигляд–Панель

елементів або з контекстного меню. Кнопка команди має вигляд

перехрещених молотка і гайкового ключа.

Звіт може містити будь-які елементи Панелі елементів, зокрема,

наш звіт Ob_sum повинен мати два поля: з системною датою та

назвою підприємства. Під час установлення поля звіт повинен бути

відкритий в режимі конструктора. На Панелі елементів натискаємо

на кнопку Поле і обводимо курсором те місце на звіті, де повинно

знаходитися поле, при цьому курсор набирає форми двох

перехрещених ліній.

Переглянемо звіт, виготовлений майстром, перейдемо в режим

конструктора. У вікні конструктора відредагуємо написи та з вікна

панелі елементів встановимо два вищезазначені поля. Для першого

поля відкриємо контекстне меню, викличемо вікно

Властивості

. У

ньому виберемо розділ

Дані

та в рядок

Дані

запишемо формулу

Date()

. Аналогічно, у друге поле – значення

[Forms]![Form]![Nazpr]

Готовий звіт

Ob_sum

показаний на рис. 3.13.

Для побудови графіка за умовою задачі 5 викличемо майстра

діаграм, виберемо джерело – запит

Grafik

. Відповідаючи на кроки

майстра, виберемо всі поля, тип –

Гістограма

, на напис

Осі

перенесемо поле

Rik

Дані

– поле

Kilk

. Назвемо діаграму

Grafik

Відредагуємо діаграму у вікні конструктора, для цього

поставимо курсор на область даних, викличемо контекстне меню і

виконаємо команду

Об’єкт діаграма–Змінити

, що дозволить

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

нього формулу

="Підприємство: " & [Forms]![Form]![Nazpp]

подібно до

того, як це робилося для запиту

Ob_sum

. Нагадаємо, що код саме

поле підпорядкована

група перемикачів форма

поле зі списком рисунок

список кнопка

Рисунок 3.14 – Вікно Панель елементів

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

запуску з форми. Готова діаграма

Grafik

показана на рис. 3.15.

Звіт

Rozpodil_zvit

про розподіл транспортованого зазу по

підприємствах за умовою задачі 6 виготовимо за допомогою

майстра. Під час роботи з ним використовуємо кнопку

Підсумки

та

операцію

Sum

для всіх полів. Кнопку

Підсумки

можна

використовувати на 3-му кроці роботи майстра звіту. Для того, щоб

вона була активізована, необхідно на 2-му кроці майстра вибрати

хоча б один рівень групування і додати відповідне поле, в нашому

випадку це поле з назвами газопроводів. Виготовлений майстром

звіт відкриваємо в режимі конструктора для редагування. Тоді

змінюємо написи, вибираємо потрібні кольори та типи ліній,

перетягуємо межі полів та знищуємо проміжні підсумки. Готовий

звіт показаний на рис. 3.16.

Рисунок 3.15 – Діаграма Grafik

Для виготовлення поштової наклейки

Naklejka

за умовою

задачі 8 скористаємося майстром поштової наклейки. В якості

джерела використаємо запит

Naklejka

. Під час роботи майстра в

прототип наклейки внесемо потрібні написи і поля запиту. Готова

наклейка редагування не потребує – всі поля і повідомлення

знаходяться в запиті. Наклейки в режимі перегляду показані на

рис. 3.17.

3.6 Конструювання форм

Форму

Oblik

для внесення нових даних у таблицю

Oblik

за

умовою задачі 7 виготовимо за допомогою майстра форми, якого

викличемо з вікна

Нова форма

. В якості джерела форми

використаємо таблицю

Oblik

Виконаємо такі кроки майстра:

1 –

виберемо поля

Kil

Data

;

2 –

зовнішній вигляд –

в один стовпчик

;

3 –

стиль –

стандартний

;

4 –

задамо ім’я форми –

Oblik

, команда

Готово

Рисунок. 3.16 – Звіт Rozpodil_zvit про розподіл транспортованого

газу по підприємствах

Рисунок 3.17 – Поштові наклейки

Відкриємо форму в режимі конструктора, відредагуємо написи,

вирівняємо поля форми. Перенесемо на форму з

Панелі елементів

Поле зі списком

для коду газопроводу, відповімо на кроки майстра:

1 – будуть використані значення з таблиці;

2 –

задамо імя таблиці

Gazpr

;

3 –

доступні поля –

всі

;

4 – відрегулюємо ширину полів так, щоб добре було видно всі

назви газопроводів;

5 –

ім’я поля, яке потрібно зберегти –

Kodpr

(з таблиці

Gazpr

);

6 –

зберегти в полі

Kodpr

(таблиці

Oblik

);

7 –

задамо ім’я поля зі списком

Kodpr

, команда

Готово

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

аналогічні команди.

Для відображення в полі

Data

форми поточної дати викличемо

вікно

Властивості

для цього поля. Перейдемо в розділ

Дані

встановимо значення за замовчуванням

=Date()

Рисунок 3.18 – Форма Oblik

Рисунок 3.19 – Форма Form в режимі перегляду

Встановимо кнопку, яка дозволить вводити дані в таблицю

безперервно, не закриваючи кожний раз форму. Виконаємо кроки

майстра кнопки:

1 – обробка записів – зберегти запис;

2 –

відредагуємо текст на кнопці, напишемо

Додати запис

;

3 –

погодимося з майстром про назву кнопки, команда

Готово

Викличемо вікно

Властивості

для форми. В розділі

Макет

змінимо настройки, залишимо лише кнопку закриття форми. В

розділі

Дані

заборонимо зміну і знищення даних.

Готова форма

Oblik

в режимі перегляду показана на рис. 3.18.

Для виготовлення форми

Form

теж використаємо майстра

форм. В якості джерела використаємо запит

D_form

. Відкриємо її,

виготовлену майстром, в режимі конструктора та відредагуємо

розміри і розташування полів, змінимо написи, відповідно до

постановки задачі. Для запуску звітів і форми

Oblik

з форми

Form

встановимо на ній 5 кнопок за допомогою майстра подібно до того,

як це було зроблено для форми

Oblik

. Відредагуємо властивості

форми за допомогою вікна

Властивості

. Відкриємо розділ

Дані

заборонимо зміну, знищення, додавання і ввід даних, так як ця

форма служить лише для їх перегляду. Властивості розділу

Макет

залишимо без змін. Готова форма

Form

в режимі перегляду

показана на рис. 3.19.

3.7 Виготовлення звітів засобами мови VBA

Для складання модулів у вікні База Даних слід вибрати об’єкт

Модулі. Після натискання на кнопку Створити, одержимо вікно –

інтерфейс редактора VBA, готовий для програмування

стандартного модуля. Для занесення процедури в модуль можна

скористатися розташованою на панелі інструментів кнопкою

Вставити процедуру, яка дозволяє виготовити новий модуль,

процедуру або модуль класу (створити власний клас). Вибравши

напис Процедура одержимо вікно Додати процедуру, в якому можна

вибрати параметри процедури.

Переглянути зміст модулів можна за допомогою кнопок-команд

панелі інструментів Project Explorer (Провідник проекту) або Object

Browser (Переглядач об’єктів). У відповідних цим кнопкам вікнах

можна змінювати вікна стандартного модуля і модуля класу.

Для програмування модуля відкриємо редактора VBA (об’єкт

Модулі

) з вікна

База даних

. Для виготовлення звіту за умовою задачі

4 може послужити процедура-підпрограма. Назвемо її

Zvit()

, текст

підпрограми має вигляд:

Option Compare Database

Option Explicit

Option Base 0

Sub Zvit()

Dim b As Boolean, s As Single, i As Integer, slo As String

Dim ppRS As New ADODB.Recordset, obRS As New ADODB.Recordset

’Відкриття таблиць Pidpr та Oblik:

ppRS.Open "Pidpr", CurrentProject.Connection, adOpenKeyset,

adLockOptimistic

obRS.Open "Oblik", CurrentProject.Connection, adOpenKeyset,

adLockOptimistic

’Формування заголовка звіту:

slo = " Звіт про кількість транспортованого газу" + Chr(13) + Chr(10)

slo = slo + " по газопроводу " + [Forms]![Form]![Nazpr]+Chr(13)+ Chr(10)

slo = slo + " станом на " + Str(Date) + Chr(13) + Chr(10)

slo = slo + Chr(13) + Chr(10)

slo = slo + "Підприємство "+Space(15)+"Кількість "+Chr(13)+Chr(10)

slo = slo + String(55, "-") + Chr(13) + Chr(10)

For i = 1 To ppRS.RecordCount

s = 0

obRS.MoveFirst ’Перехід на перший запис таблиці Oblik

While Not obRS.EOF ’Цикл перебору всіх записів таблиці. Oblik

b = obRS("Kodpp").Value = ppRS("Kodpp").Value

b = b And obRS("Kodpr").Value = [Forms]![Form]![Kodpr]

b = b And Year(obRS(3).Value) = Year(Date)

If b Then s = s + obRS.Fields(2).Value ’Підсумок для i-го підпр-ва

obRS.MoveNext ’Перехід на наступний запис таблиці Oblik

Wend

If Not(s=0)Then slo=slo+ppRS("Nazpp").Value+Chr(9)+Str(s)+Chr(13)+Chr(10)

ppRS.MoveNext ’Перехід на наступний запис таблиці Pidpr

Next i

prRS.Close: Set obRS = Nothing ’Закриття і знищення нд obRS

ppRS.Close:Set ppRS = Nothing ’Закриття і знищення нд ppRS

MsgBox slo ’Вивід готового звіту

End Sub

Програму можна умовно поділити на дві частини: лінійну і

циклічну. У першій (лінійній) частині відбувається відкриття

таблиць

Pidpr

та

Oblik

і формується заголовок звіту (змінна

slo

). Для

відкриття таблиць служить метод

Open

об’єкта

Recordset

. Друга –

циклічна, вона містить два вкладені цикли з розгалуженням у

внутрішньому циклі. Параметром зовнішнього циклу (типу

for

)

служить змінна

, в ньому відбувається перегляд усіх підприємств з

таблиці

Pidpr

. У внутрішньому циклі (типу

while

) перебираються всі

записи таблиці

Oblik

та накопичується сума

Розгалуження служить для відбору тільки тих записів таблиці

Oblik

, які задовільняють умову задачі, а саме: код підприємства

таблиці

Oblik

співпадає з кодом чергового підприємства таблиці

Pidpr

, код газопроводу таблиці

Oblik

співпадає з кодом газопроводу,

який під час роботи програми видніється на формі

Form

, і рік

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

Початок

Відкриття

наборів даних

Формування

змінної slo

i=1,кільк.

підпр.

s = 0

Кін. таб.

Oblik

Ні

Так

s=s + [Oblik].[Kil]

Обчисл. b

b = True

slo = slo + s

Вивід slo

Кінець

Так

Ні

Рисунок 3.20 – Звіт, виданий програмою Zvit()

Рік запису вибирається з дати (значення поля

obRS(3).Value

) за

допомогою функції

Year()

. Також, у внутрішньому циклі змінна

slo

нарощується рядками про чергові підприємства та кількість газу,

підсумовану для кожного газопроводу (тобто підсумовуються

числа

obRS.Fields(2).Value

). Перехід на початок таблиці

Oblik

, тобто

забезпечення її багаторазового (в циклі) читання з самого початку,

відбувається за допомогою методу

obRS.MoveFirst

. Перехід на

наступний запис забезпечує метод

obRS.MoveNext

. В даному

випадку звіт не займає великого об’єму пам’яті, тому для його

відображення на екрані використано вікно

MsgBox

. Готовий звіт

Рисунок 3.21 – Графічний алгоритм формування і видачі

звіту програмою Zvit()

показано на рис. 3.20. Графічний алгоритм програми

Zvit()

зображено на рис. 3.21.

3.8 Макроси

Макрос – це макрокоманда або велика команда, призначена

для виконання однієї або декількох нескладних послідовних

операцій (одиничних макрокоманд) таких, наприклад, як Відкрити

таблицю, Відкрити форму, Знайти запис, Застосувати фільтр тощо.

Макрос являє собою деяку стандартну програму, складену мовою

Visual Basic, яка виконується при його запуску. Як правило,

кожний макрос має параметри, які задають область його дії, ім’я

об’єкта, над яким виконуються операції та ін. Цінною особливістю

макросів є можливість їх запуску за допомогою, практично всіх,

елементів управління форми або звіту. Це дозволяє так збудувати

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

міг виконувати будь-які потрібні роботи.

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

встановити перемикач на Макроси і натиснути кнопку Створити. Тоді

появляється вікно Макрос, воно складається з трьох частин:

верхньої та двох нижніх – лівої і правої. Верхня частина має 3 поля

(зліва направо): поле виокремлення рядка, ім’я макрокоманди

(яких може входити декілька в склад даного макроса) та примітку.

Внизу зліва вікно надає можливість задати параметри макроса,

зправа міститься коротка ситуативна довідка-підказка.

Дію (макрокоманду), яку повинен виконувати макрос, можна

вибрати зі списку в полі Макрокоманда. В нижній частині вікна

можна вибрати параметри макроса. Працездатність макроса можна

перевірити шляхом його запуску з вікна База даних.

У нашому випадку скористаємося готовим макросом, який

виготовив майстер під час встановлення на форму Form кнопки Звіт,

і відредагуємо його, додамо запуск звіту, виконаного програмою.

Для редагування (програмування) макроса (події Click) кнопки

необхідно відкрити модуль класу форми. Це можна виконати

декількома способами:

1– у вікні редактора VBA за допомогою провідника проекту

вибрати Microsoft Class Objects;

2– у вікні редактора VBA за допомогою переглядача об’єктів

вибрати об’єкт Form;

3– у вікні Властивості кнопки (форми або будь-якого об’єкта форми)

вибрати потрібну подію;

4– у контекстному меню вибрати напис Процедура обробки подій.

Відкриємо форму Form у режимі конструктора і за допомогою

правої клавіші миші викличемо контекстне меню для кнопки Звіт.

У контекстному меню виберемо напис Процедура обробки подій, тоді

відкриється вікно редактора VBA з текстом макроса. Додамо у

текст програми змінну dd цілого типу, функцію відкриття вікна

MsgBox та оператор If для аналізу вибраної користувачем кнопки

вікна MsgBox і запуску звіту Zvit, якщо було натиснуто Ok. Нижче

подано текст відредагованого готового макроса.

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

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

Dim stDocName As String, dd as Integer

'Відкриття вікна MsgBox (змінна dd = vbOK, при натисканні кнопки OK цього

вікна)

dd = MsgBox("Показати звіт, виданий програмою?", vbOKCancel, "Вибір типу

звіту")

If dd = vbOK Then Call Zvit 'запуск програми Zvit()

stDocName = "Ob_sum"

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка24_Click: Exit Sub

Err_Кнопка24_Click: MsgBox Err.Description

Resume Exit_Кнопка24_Click

End Sub

3.9 Аналіз результатів виконання програми

Під час випробування програми Zvit() (у вікні MsgBox була

вибрана кнопка Ok) на формі Form виднілася назва газопроводу

“Україна”, код якого дорівнює 2. Таблиця Oblik містила 3 записи про

нього. Дані про підприємство з кодом 1, не повинні ввійти до звіту,

оскільки його дата не належить до поточного року (під час

виконання програми поточним був 2006 рік). В тих рядках, де код

підприємства дорівнює 4 (Львiвтрансгаз) і 5 (Експорттрансгаз)

сумарна кількість газу (поле kil) складає відповідно 2 і 1, що і

відображено в звіті.

3.10

Таблиця ідентифікаторів програм