Міністерство освіти і науки України Національний університет «Львівська політехніка» Кафедра САПР ЗВІТ про виконання лабораторної роботи №10 на тему: «Модулі в базах даних» з курсу: «Організація баз даних і знань» Тема роботи Модулі в базах даних. Мета роботи Навчитися розробляти та використовувати модулі в базах даних. Лабораторне завдання Створити 2 модулі для бази даних «Картина галерея», а саме: Модуль для вибірки за введеним прізвище художника. При виборі відкриється форма ,,Художник1,, , де можна переглянути отриманий результат. Модуль для виведення таблиць "Назва" та "Жанр" у режимі читання та двох форм "головна" і "Картини" Короткі теоретичні відомості Хід роботи 1) Модуль для вибірки за введеним прізвище художника ім’ям клієнта. При виборі відкриється форма ,, Художник1,, , де можна переглянути отриманий результат. Option Compare Database Public Function Poshuk() Dim strCriteria, strInput, strMsg As String strMsg = "Введіть прізвище художника: " strInput = InputBox(strMsg) strCriteria = BuildCriteria("Прізвище", dbText, strInput) DoCmd.OpenForm "Художник1", aсNormal, , strCriteria Exit_Poshuk: Exit Function End Function Результат виконання:

Модуль для виведення таблиць "Назва", "Жанр" та «Меню» у режимі читання та двох форм "Картини", і «Головна» Option Compare Database Public Function VidkrytiaTablyci() DoCmd.OpenTable "Назва", acViewNormal, acReadOnly DoCmd.OpenTable "Жанр", acViewNormal, acReadOnly DoCmd.OpenForm "головна", acViewNormal, acReadOnly DoCmd.OpenForm "Картини", acViewNormal, acReadOnly End FunctionРезультат виконання:
Висновки На цій лабораторній роботі я навчився створювати та використовувати модулі у базах даних.