Проектування бази даних Access "Бібліотека"

Визначення необхідних даних для створення бази даних "Бібліотека", групування їх по таблицях. Передбачення ключових полів, зв’язків між таблицями Access. Створення запитів для функціонування фільтрів у головній формі, а також інтерфейсу користувача.

Рубрика Программирование, компьютеры и кибернетика
Вид курсовая работа
Язык украинский
Дата добавления 22.01.2015
Размер файла 2,5 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Размещено на http://www.allbest.ru/

План

  • Вступ
  • 1. Постановка задачі
  • 2.Структура бази даних
  • 3. Зміст таблиць
  • 4. Опис та представлення створеного інтерфейсу користувача
    • 4.1 Головна форма
    • 4.2 Форма детальної інформації
    • 4.3 Формування звітів
  • Висновки
  • Список використаної літератури
  • Додатки

Вступ

база бібліотека access фільтр

База даних - це найважливіша складова частина інформаційних систем (ІС), призначених для зберігання, підтримання в актуальному стані даних великого обсягу, необхідні в різних додатках багатьох користувачів. Тому найважливішим напрямком розвитку баз даних є багатокористувацька технологія.

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

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

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

СКБД Access 2003 - це компонент Microsoft Office 2003, призначений для створення реляційних баз даних. Access 2003 порівняно з попередніми версіями має підвищену продуктивність; більш потужні засоби VBA; більшу кількість шаблонів баз даних; нові макрокоманди; можливість під'єднання до Internet і локальної мережі.

1. Постановка задачі

1. Розробити у середовищі СКБД MS ACCESS базу даних (БД) для вирішення заданої економічної задачі. При вирішенні задачі необхідно виконати наступні дії засобами MS ACCESS:

· проаналізувати предметну область згідно умови задачі, визначити цілі проектування БД, розробити інформаційно-логічну модель предметної області (розподілити дані по таблицях, визначити поля та типи даних)

· створити структури таблиць БД, визначити первинні та зовнішні ключі для кожної із таблиць з метою подальшого встановлення зв'язків між таблицями;

· виконати заповнення таблиць БД інформацією;

· зв'язати таблиці за допомогою зовнішніх ключів (один до одного, один до багатьох);

· запроектувати та створити необхідні запити для вирішення поставленої задачі

2. Розробити інтерфейс користувача (АРМ), використовуючи засоби вбудованої мови VBA:

· створити головну форму додатку для перегляду даних. Встановити властивості даної форми. Передбачити розташування елементів керування "випадаючий список" та "текстове поле" для вибірки даних по двом параметрам з використанням запиту та застосуванням методу 'Requery'. Передбачити відображення основної інформації БД. Створити процедури обробки подій використовуючи VBA. Передбачити розрахунок підсумків;

· Створити форму редагування/додавання даних до головної таблиці БД. Встановити властивості даної форми. Передбачити розташування елементів керування випадаючі списки(не менше двох), текстові поля, кнопки керування("РЕДАГУВАТИ", "ЗБЕРЕГТИ", "ВІДМІНИТИ"). Передбачити розташування об'єктів на формі поблоково, в залежності від

· інформації , яка буде виводитись. Створити головний модуль додатку, в якому описати змінні типу Recordset, та загальну процедуру відкриття

· об'єктів типу Recordset. Створити процедури: відкриття форми(Open), зміни значень випадаючих списків(AfterUpdate), кнопок (Click). Процедури заповнення тестових полів та списків на формі створити як окремі процедури. Передбачити відкриття даної форми у двох режимах: редагування та доповнення, для цього додатково на головній формі ("frm_main") в області "Примітки" розташувати кнопку "ДОПОВНИТИ" та створити для неї процедуру. При збережені даних, передбачити перевірку правильності заповнення основних полів на формі;

· створити необхідні звіти для виведення(не менше двох звітів).

Умова задачі:

В даній роботі необхідно спроектувати і реалізувати в MS Access базу даних "Бібліотека", яка повинна зберігати наступну інформацію:

1. Прізвище, ім'я, по батькові викладача.

2. Домашня адреса читача.

3. Телефон читача.

4. Дата народження читача.

5. Номер читацького квитка.

6. Автор книги, яку взяв читач.

7. Назва книги.

8. Дата видачі книги.

9. Дата повернення книги.

10. Ціна книги.

2. Структура бази даних

База даних "Бібліотека" складається із трьох таблиць.

В даній задачі головною обліковою таблицею є "tabl_Oblik"("Таблиця обліку"), а довідниками -"tabl_Book"("Таблиця книг"), "tabl_Reader"("Таблиця читачів") . Зв'язок між таблицями встановлюється за допомогою ключів "id_issue", "id_Book", "id_reader", які в довідниках є первинними, а в головній таблиці - зовнішніми. Схема БД показана на рисунку 2.1.

Рис. 2.1. - Схема даних БД

3. Зміст таблиць

База даних "Бібліотека" складається з наступних таблиць:

1) "tabl_Oblik"("Таблиця обліку");

2) "tabl_Book"("Таблиця книг");

3) "tabl_Reader"("Таблиця читачів");

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

Таблиці зв'язані за допомогою майстра підстановки: в полі id_issue таблиці tabl_Oblik зберігається код видачі-повернення книги , в полі id_Book цієї ж таблиці зберігається унікальний код книги, в полі id_reader- номер читацького квитка. Схема даних подана в таблиці 1.

Таблиця 3.1.

Опис полів таблиць

Таблиця

Поля

Типи даних

Довжина

Первинний ключ

Допустимість Null

Псевдонім

1

tabl_Oblik

id_issue

лічильник

довге ціле

так

ні

Код видачі

id_Book

числовий

довге ціле

ні

Код книги

id_reader

числовий

довге ціле

Читацький квиток

date_issue

дата/час

короткий формат дати

Дата видачі

date_return

дата/час

короткий формат дати

Дата повернення

2

tabl_Book

id_Book

лічильник

довге ціле

так

ні

Код книги

Author

текстовий

50

ні

Автор

Title_B

текстовий

50

Назва

Genre_B

текстовий

50

Жанр

Place_P

текстовий

50

Місце видання

Publishing_house

текстовий

50

Видавництво

Year_edition

числовий

довге ціле

Рік видання

Language_P

текстовий

50

Мова видання

Num_pages

числовий

довге ціле

Кількість сторінок

Book_price

грошовий

основний

Ціна

Number_copies

числовий

довге ціле

Кількість копій

3

tabl_Reader

id_reader

числовий

довге ціле

так

ні

Читацький квиток

S_name

текстовий

30

ні

Прізвище

Name

текстовий

30

Ім'я

L_name

текстовий

30

По-батькові

address

поле МЕМО

Домашня адреса

telefon

числовий

довге ціле

Телефон

date_birth

дата/час

короткий формат дати

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

Таблиця "tabl_Book"

Рис. 3.1. - Таблиця "Книги" в режимі конструктора

Рис. 3.2 - Перегляд таблиці "Книги"

Таблиця "tabl_Reader"

Рис. 3.3. - Таблиця "Читачі" в режимі конструктора

Рис. 3.4. - Перегляд таблиці "Читачі"

Голвна таблиця "tabl_Oblik"

Рис. 3.5. - Таблиця "Облік" в режимі конструктора

Рис. 3.6. - Перегляд головної таблиці "Облік"

4. Опис та представлення створеного інтерфейсу користувача

Для зручності роботи користувача з базою даних розроблено інтерфейс користувача, який складається з головної форми ("frm_main1"), форми перегляду детальної інформації ("frm_redag"), форми формування звітів ("frm_data"), а також зі звіту по обліку книг.

4.1 Головна форма

Головна форма (рис. 4.1.1.) представлена у вигляді стрічкової форми. На головній формі передбачено перегляд видачі і повернення книг, а саме: код видачі, дата видачі, дата повернення, код книги, назва, автор, жанр, ціна, ПІБ читача. Заголовок форми містить випадаючий список та текстове поле для фільтру по книгам та читачам відповідно, за допомогою яких можна досить легко знайти потрібну інформацію. Також форма містить кнопки: пошук, показати всі записи, додати новий запис та сформувати звіт.

Рис. 4.1.1. - Головна форма

Головна форма формується на основі запиту поданого на рис. 4.1.2. В ньому реалізовано пошук за заданими в заголовку форми критеріями. Якщо змінити у випадаючому списку книгу (обравши потрібну зі списку) чи натиснути кнопку пошук (попередньо увівши прізвище шуканого читача) відбувається оновлення форми за допомогою її методу - Requery (див. додаток А).

Рисунок 4.1.2. - Конструктор для запиту "qvr_main"

Для зручності перегляду прізвищ, імен та по-батькові читачів у запиті прописали ПІБ для читачів:

ПІБ читача=( [S_name] & " " & Left([Name];1) & ". " & Left([L_name];1) & ".")

Також для функціонування фільтрів в головній формі була прописана дія для пошуку книг та ПІБ читача:

Книга=(Like [Forms]![frm_main1]![cmb_knh] & "*")

ПІБ читача=(Like [Forms]![frm_main1]![txt_prisv] & "*")

Підсумки в формі підбиваються за допомогою вбудованих функцій Count та Sum:

Кількість записів= Count([id_issue]) та Ціна всіх книг= =Sum([Book_price]).

Копка видалення після підтвердження виконує запит на видалення (рис. 4.1.1.3.) за допомогою методу openQuery об'єкту DoCMD.

Рис. 4.1.3. - Запит на видалення

При натисненні кнопок детальна інформація та доповнити відкривається форма frm_redag, а в якості вхідного параметру (openArgs) в першому випадку передається код читача , в другому текстова мітка "new".

4.2 Форма детальної інформації

Форма детальної інформації (рис. 4.2.1) може відкриватися в 3-х режимах:

1. Якщо openArgs не задано (Null) - форма відкривається на першому записі, а також користувач має можливість переходу по записам за допомогою навігаційних кнопок;

2. Якщо openArgs має числове значення - форма відкривається на заданому у вхідному параметрі записі, а користувач не має можливості переходу по записам;

3. Якщо openArgs має значення "new" - форма відкривається в режимі доповнення, тобто користувачу дається доступ до полів(властивість Locked приймає значення false).

Рис. 4.2.1. - форма "Детальна інформація" в режимі автономної роботи

Форма "Детальна інформація" складається з двох вкладок - Книги, до якої входять поля Код видачі, Код книги (поле зі списком), Назва, Автор, Жанр, Видавництво, Мова видання, Ціна, Дата видачі, Дата повернення,

та Читачі з полями Читацький квиток (поле зі списком), Прізвище, Ім'я, По-батькові, Домашня адреса, Номер телефону, Дата народження.

Для заповнення форми використовується динамічний об'єкт - recordset, в який за допомогою попередньо розробленої процедури open_recordset (див. додаток Г) поміщуються дані з необхідних таблиць.

Кнопки навігації реалізовані за допомогою методів об'єкту recordset: moveNext та MovePrevious, з попередньою перевіркою значень властивостей EOF та BOF відповідно.

Після натиснення кнопки Редагувати користувач отримує можливість вносити зміни до полів форми: Код книги, Дата видачі і Дата повернення (властивість Locked приймає значення false), кнопки Зберегти та Відмінити активізуються (Enabled = true), а кнопки навігації (якщо вони активні) та сама кнопка Редагувати будуть неактивними (Enabled = false).

Кнопка Зберегти, по-перше, перевіряє відповідність введених користувачем даних заданим обмеженням, по-друге, перевіряє в якому режимі завантажена форма, по-третє, в залежності від режиму зберігає дані, по-четверте, змінює властивость Enabled кнопок, відповідно до логіки додатку, по-четверте, блокує доступ користувача до полів(Locked = true).

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

Кнопка Вихід забезпечує закриття форми, якщо вона відкрита автономно, у випадку ж відкриття форми у режимі детального перегляду або доповнення, процедуру закриття забезпечують кнопки Відмінити/Зберегти.

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

· loadData() - для заповнення форми з об'єкту recordset;

· SaveData() - для запису в recordset даних з полів форми;

· SetLocked(value As Boolean) - для надання властивості Locked (необхідних полів) значення value

Повний лістинг програмного коду подано у додатку Б.

4.3 Формування звітів

Для зручності формування звітів було розроблено спеціальну форму зображену на рис. 4.3.1. Вона має два текстові поля для введення дат початку та кінця звітного періоду, набір кнопок переглянути та відмінити.

Кнопка переглянути використовує метод OpenReport об'єкту DoCmd з параметром View - acNormal та acViewPreview відповідно, попередньо перевіривши доречність значення полів. Кнопка відмінити закриває форму. Повний лістинг програмного коду подано у додатку В.

Рис. 4.3.1. - Форма формування звіту

Звіти формуються на основі запиту.

У запиті qvr_data відбувається відбір даних за заданим проміжком часу: в рядку умови відбору поля Дата видачі записується:

Between [Forms]![frm_data]![txt_begin] And [Forms]![frm_data]![txt_end].

Рис. 4.3.2. - Звіт по видачі книг за період з 03.08.2014 по 05.08.2014

Висновки

В даній курсовій роботі була розглянута система керування базою даних Access на прикладі створення бази даних "Бібліотека".

Під час її виконання я навчилася визначати необхідні для створення бази даних дані, виконувати групування даних по таблицям, передбачати ключові поля, зв'язки між таблицями, створювати запити для функціонування фільтрів у головній формі, а також створювати інтерфейс користувача засобами вбудованої в СУБД мови програмування VBA.

Створена база даних є дуже корисною та зручною в користуванні.

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

1. Андерсен В. - Базы данных Microsoft Access: проблемы и решения, Практ. Пособ./ пер. с англ. М.: ЭКОМ, 2001, 384 с.;

2. Глушаков С.В., Сурядный А. С. Microsoft Office 2000. Учебный курс - Харьков: "Фолио", 2002.;

3. Гринченко Н.Н., Гусев Е.В., Макаров Н.П. Проектирование баз данных. СУБД Microsoft Access. Учебное пособие. Телеком, 2004, - 240 с.;

4. Гончарова А.Ю., Access 2003. Самоучитель с примерами. Access 2003, Питер, КУДИЦ-Образ, 2004, - 272 с.;

5. Майкл Гандерлой, Сьюзан Сейлз Харкинз. Автоматизация Microsoft Access с помощью VBA, Вийлямс, 2006, - 416 с.;

6. Харитонова И. - Office Access 2003. Самоучитель. СПб.: Питер, 2004, 464 с.;

7. Носач О.Б., Терещенко О.Ю. Конспект лекцій "Практичне застосування MS Access та мови VBA" для студентів спеціальності "Економічна кібернетика" денної форми навчання. - Полтава: ПолтНТУ, 2011. - 89 с.;

8. Терещенко О.Ю. Методичні вказівки до виконання курсової роботи з дисципліни: Інформаційні системи та технології в економіці" для студентів спеціальності "Економічна кібернетика" денної форми навчання. - Полтава: ПолтНТУ, 2012 - 63 с.

Додатки

Додаток А - Процедури форми frm_main1

Private Sub btn_prisv_Click()

Me!cmb_knh = Null

Me.Requery

End Sub

Private Sub btn_redag_Click()

DoCmd.OpenForm "frm_redag"

End Sub

Private Sub cmb_knh_AfterUpdate()

Me!txt_prisv = Null

Me.Requery

End Sub

Private Sub txt_prisv_AfterUpdate()

Me!cmb_knh = Null

Me.Requery

End Sub

Private Sub btn_det_Click()

DoCmd.OpenForm "frm_redag", acNormal, , , , , id_issue

End Sub

Private Sub btn_del_Click()

If MsgBox("Ви дійсно хочете видалити запис?", vbQuestion + vbYesNo, "Видалення") = vbYes Then

DoCmd.OpenQuery "qvr_del"

Me.Requery

Else

Exit Sub

End If

End Sub

Private Sub btn_now_Click()

DoCmd.OpenForm "frm_redag", acNormal, , , , , "new"

End Sub

Private Sub btn_zvit_Click()

DoCmd.OpenForm "frm_data"

End Sub

Private Sub Ctl_btn_vse_Click()

cmb_knh = Null

txt_prisv = Null

Form_frm_main1.Requery

End Sub

Private Sub btn_vidm_Click()

rsMain1.CancelUpdate

DoCmd.Close acForm, "frm_main1", acDelNo

End Sub

Додаток Б - Процедури форми frm_redag

Option Compare Database

'Кнопка ЗБЕРЕГТИ

Private Sub btn_zberehtu_Click()

SetLocked (True)

If IsNull(Me!cmb_kodknh) Or Me!cmb_kodknh = "" Then

MsgBox "Неверно заполнено поле 'Код книги '", vbCritical, "Ошибка записи"

Exit Sub

End If

If IsNull(Me!cmb_reader) Or Me!cmb_reader = "" Then

MsgBox "Неверно заполнено поле 'Читацький квиток", vbCritical, "Ошибка записи"

Exit Sub

End If

If IsNull(Me!txt_vudacha) Or Not IsDate(txt_vudacha) Or Me!txt_vudacha = "" Then

MsgBox "Неверно заполнено поле 'Дата видачі'", vbCritical, "Ошибка записи"

Exit Sub

End If

If IsNull(Me!txt_povern) Or Not IsDate(txt_povern) Or Me!txt_povern = "" Then

MsgBox "Неверно заполнено поле 'Дата повернення'", vbCritical, "Ошибка записи"

Exit Sub

End If

'Кнопки

btn_redag.Enabled = True

btn_zberehtu.Enabled = True

btn_exit_from_redag.Enabled = True

'-----------редагування окремо-------

If IsNull(Me.OpenArgs) Then

SaveData

rsOblik.Update

btn_nast.Enabled = True

btn_pop.Enabled = True

btn_vidm.Enabled = False

'----------Редагування з головної форми-----

ElseIf (IsNumeric(Me.OpenArgs)) Then

open_recordset rsOblik, "tabl_Oblik"

rsOblik.Find "id_issue= " & Me.OpenArgs, , adSearchForward, 1

SaveData

rsOblik.Update

rsOblik.Close

Set rsOblik = Nothing

DoCmd.Close acForm, "frm_redag", acSaveYes

'---------Додавання запису-------------

ElseIf Me.OpenArgs = "new" Then

open_recordset rsOblik, "tabl_Oblik"

rsOblik.AddNew

SaveData

rsOblik.Update

rsOblik.Close

Set rsOblik = Nothing

DoCmd.Close acForm, "frm_redag", acSaveYes

Form_frm_main1.Requery

End If

End Sub

Private Sub Form_Open(Cancel As Integer)

'Відкриття набору записів Recordset для головної таблиці

open_recordset rsOblik, "tabl_Oblik"

If rsOblik.State <> adStateOpen Then 'якщо рекордсет не відкрився

MsgBox "Can`t open recordset", vbCritical, Error

Exit Sub

End If

'Перевірка режиму відкриття форми

'-----------Окремо-----------------------------------

If IsNull(Me.OpenArgs) Then 'якщо openArgs не визначений завантужємо перший кортеж

loadData

btn_nast.Enabled = True

btn_pop.Enabled = True

btn_vidm.Enabled = False

btn_exit_from_redag.Enabled = True

'-----------З головної форми------------------------

ElseIf (IsNumeric(Me.OpenArgs)) Then

btn_nast.Enabled = False

btn_pop.Enabled = False

btn_exit_from_redag.Enabled = False

btn_vidm.Enabled = True

rsOblik.Find "id_issue= " & Me.OpenArgs, , adSearchForward, 1

loadData

rsOblik.Close

Set rsOblik = Nothing

' ----------В режимі доповнення-----------------

ElseIf Me.OpenArgs = "new" Then

btn_nast.Enabled = False

btn_pop.Enabled = False

btn_zberehtu.Enabled = True

btn_redag.Enabled = False

btn_vidm.Enabled = True

btn_exit_from_redag.Enabled = False

SetLocked (False)

txt_vudacha = Date

txt_povern = Date

Me.Caption = "Новий запис"

rsOblik.Close

Set rsOblik = Nothing

End If

End Sub

'Кнопка РЕДАГУВАТИ

Private Sub btn_redag_Click()

cmb_kodknh.SetFocus

'Кнопки

btn_redag.Enabled = False

btn_nast.Enabled = False

btn_pop.Enabled = False

btn_vidm.Enabled = True

btn_zberehtu.Enabled = True

btn_exit_from_redag.Enabled = False

SetLocked (False)

End Sub

'Кнопка ВІДМІНИТИ

Private Sub btn_vidm_Click()

SetLocked (True)

btn_redag.Enabled = True

btn_zberehtu.Enabled = False

btn_redag.SetFocus

btn_vidm.Enabled = False

'-------Якщо форма була відкрита автономно активізуємо кнопки переходу по записам та вихід---

If (IsNull(Me.OpenArgs)) Then

btn_nast.Enabled = True

btn_pop.Enabled = True

btn_exit_from_redag.Enabled = True

End If

'-------Якщо форма була відкрита у режимі доповнення або з головної таблиці

If Not IsNull(Me.OpenArgs) Then

DoCmd.Close acForm, "frm_redag", acSaveNo

Else

loadData

End If

End Sub

'Кнопка "ПОПЕРЕДНІЙ ЗАПИС"

Private Sub btn_pop_Click()

rsOblik.MovePrevious

If rsOblik.BOF <> True Then

loadData

Else

rsOblik.MoveFirst

MsgBox "Перший запис", vbExclamation

End If

End Sub

'Кнопка "НАСТУПНИЙ ЗАПИС"

Private Sub btn_nast_Click()

rsOblik.MoveNext

If Not rsOblik.EOF Then

loadData

Else

rsOblik.MovePrevious

MsgBox "Останній запис", vbExclamation

End If

End Sub

'Процедура для випадаючого списку "BOOK"

Private Sub cmb_kodknh_AfterUpdate()

On Error GoTo ErrStr

open_recordset rsBook, "tabl_Book"

rsBook.Find "id_Book = " & Me!cmb_kodknh, , adSearchForward, 1

Me!txt_nasva = rsBook("Title_B")

Me!txt_avtor = rsBook("Author")

Me!txt_genre = rsBook("Genre_B")

Me!txt_zina = rsBook("Book_price")

Me!txt_vud = rsBook("Publishing_house")

Me!txt_mova = rsBook("Language_P")

rsBook.Close

Set rsBook = Nothing

Exit Sub

ErrStr:

MsgBox "Неправильно заповнене поле 'BOOK'", vbCritical, "Ошибка"

End Sub

'Процедура для випадаючого списку "READER"

Private Sub cmb_reader_AfterUpdate()

On Error GoTo ErrStr

open_recordset rsReader, "tabl_Reader"

rsReader.Find "id_reader = " & Me!cmb_reader, , adSearchForward, 1

Me!txt_pr = rsReader("S_name")

Me!txt_im = rsReader("Name")

Me!txt_pb = rsReader("L_name")

Me!txt_domad = rsReader("address")

Me!txt_nomtel = rsReader("telefon")

Me!txt_dnar = rsReader("date_birth")

rsReader.Close

Set rsReader = Nothing

Exit Sub

ErrStr:

MsgBox "Неправильно заповнене поле 'READER'",

vbCritical, "Ошибка"

End Sub

Public Sub loadData()

'OBLIK

Me!cmb_kodknh = rsOblik("id_Book")

Me!cmb_reader = rsOblik("id_reader")

Me!txt_vudknh = rsOblik("id_issue")

Me!txt_vudacha = rsOblik("date_issue")

Me!txt_povern = rsOblik("date_return")

'BOOK

open_recordset rsBook, "tabl_Book"

rsBook.Find "id_Book = " & Me!cmb_kodknh, ,

adSearchForward, 1

Me!txt_nasva = rsBook("Title_B")

Me!txt_avtor = rsBook("Author")

Me!txt_genre = rsBook("Genre_B")

Me!txt_zina = rsBook("Book_price")

Me!txt_vud = rsBook("Publishing_house")

Me!txt_mova = rsBook("Language_P")

rsBook.Close

Set rsBook = Nothing

'READER

open_recordset rsReader, "tabl_Reader"

rsReader.Find "id_reader = " & Me!cmb_reader, ,

adSearchForward, 1

Me!txt_pr = rsReader("S_name")

Me!txt_im = rsReader("Name")

Me!txt_pb = rsReader("L_name")

Me!txt_domad = rsReader("address")

Me!txt_nomtel = rsReader("telefon")

Me!txt_dnar = rsReader("date_birth")

rsReader.Close

Set rsReader = Nothing

End Sub

Private Sub btn_exit_from_redag_Click()

DoCmd.Close acForm, "frm_redag", acSaveNo

End Sub

'Процедура для запису в recordset даних з полів форми

Public Sub SaveData()

rsOblik("id_Book") = Me!cmb_kodknh

rsOblik("date_issue") = Me!txt_vudacha

rsOblik("date_return") = Me!txt_povern

rsOblik("id_reader") = Me!cmb_reader

End Sub

'Процедура для надання властивості Locked

Public Sub SetLocked(value As Boolean)

'Вкладка Книги

Me!cmb_kodknh.Locked = value

Me!txt_vudacha.Locked = value

Me!txt_povern.Locked = value

'Вкладка Читачі

Me!cmb_reader.Locked = value

End Sub

Додаток В - Процедури форми frm_data

Option Compare Database

Private Sub btn_ok_Click()

If IsNull(Me!txt_begin) Or Me!txt_begin = "" Then

MsgBox "Невірно введені дані : Початок періоду", vbCritical, Error

Exit Sub

End If

If IsNull(Me!txt_end) Or Me!txt_end = "" Then

MsgBox "Невірно введені дані : Кінець періоду", vbCritical, Error

Exit Sub

End If

DoCmd.OpenReport "rpt_data", acViewPreview

DoCmd.Close acForm, "frm_data"

End Sub

Private Sub btn_otmena_Click()

DoCmd.Close acForm, "frm_data"

End Sub

Додаток Г- Додатковий модуль

Option Compare Database

Public rsBook As ADODB.Recordset 'Для таблиці Book

Public rsReader As ADODB.Recordset 'Для таблиці Reader

Public rsOblik As ADODB.Recordset 'Для таблиці Oblik

Public Sub open_recordset(rst As ADODB.Recordset, Name As String)

Set rst = New ADODB.Recordset

With rst

.CursorType = adOpenKeyset

.LockType = adLockOptimistic

.Open Name, CurrentProject.Connection, , adCmdTable

End With

End Sub

Размещено на Allbest.ru


Подобные документы

  • Створення баз даних з використанням платформи Microsoft Access 2010 та структурованих запитів SQL. ER-діаграма бази даних з описом кожної сутності та її атрибутів. Розробка інтерфейсу, елементів навігації та макросів для автоматичного виконання запитів.

    курсовая работа [3,1 M], добавлен 21.08.2014

  • Система управління базами даних, ієрархічна модель даних, її проектування та створення. Інтерфейс Microsoft Access, створення структури таблиці, запитів, форм, звітів, макросів. Аналіз зв'язків між таблицями, що описують поняття проблемного середовища.

    курсовая работа [2,7 M], добавлен 10.11.2010

  • Створення інформаційних таблиць бази даних. Створення екранних форм як засобу організації інтерфейсу користувача. Створення запитів для вибору, сортування і обчислення з використанням даних однієї таблиці. Оформлення звітів за допомогою команд MS Access.

    лабораторная работа [397,7 K], добавлен 09.09.2010

  • Опис процесу створення технічного завдання на розробку бази даних для сільської бібліотеки. Виявлення масиву даних та їх структури. Внесення інформації в базу. Визначення типів і зв’язків між таблицями. Створення інтерфейсу системи керування базою даних.

    контрольная работа [174,9 K], добавлен 07.01.2015

  • Створення бази даних та робота з нею у програмному забезпеченні Microsoft Access. Проектування форм для зручного заповнення таблиць, звітів для відображення даних та їх друку, кнопкової форми, яка потрібна для зручної навігації між функціями бази даних.

    курсовая работа [1,3 M], добавлен 04.10.2014

  • Визначення мети створення бази даних магазину та таблиць, які вона повинна містити. Розгляд видів полів та ключів таблиць. Створення запитів, форм, звітів, макросів та модулів. Вибір системи управління базами даних. Реалізація моделі у Microsoft Access.

    курсовая работа [3,8 M], добавлен 20.07.2014

  • Опис основних кроків створення бази даних по автомобілям у програмі Microsoft Access, та запитів. Порядок формування таблиць, їх зміст і структура, встановлення зв'язків між таблицями. Операції, що проводяться над таблицями. Правила оформлення звіту.

    практическая работа [1,1 M], добавлен 27.05.2010

  • Основні поняття та особливості розробки баз даних в Microsoft Access. Побудова бази даних магазину побутової техніки: створення таблиць та встановлення зв’язків між ними, створення запитів, форм та звітів. Охорона праці і гігієна користувача комп'ютера.

    курсовая работа [2,5 M], добавлен 19.01.2010

  • Проектування бази даних "Аптека" у Microsoft Access, розробка структури таблиць, ключових полів і схеми даних. Створення запитів різних типів, екранних форм різного виду для введення і перегляду даних. Створення кнопкових форм, що полегшують навігацію.

    дипломная работа [3,1 M], добавлен 16.11.2014

  • Проектування бази даних: визначення об’єктів, структура таблиць, побудова схеми даних, забезпечення цілісності даних, створення певних відношень між таблицями, створення запитів, побудова форм, оформлення об’єктів. Розробка інструкції користувача.

    курсовая работа [1,9 M], добавлен 19.09.2014

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.