Міністерство освіти і науки України Національний університет «Львівська політехніка» Кафедра САПР ЗВІТ про виконання лабораторної роботи №10 на тему: «Модулі в базах даних» з курсу: «Організація баз даних і знань» Львів 2008 Тема роботи Модулі в базах даних. Мета роботи Навчитися розробляти та використовувати модулі в базах даних. Лабораторне завдання Створити 3 модулі для бази даних «Школа», а саме: Модуль для вибірки за введеним прізвищем учителя інформації про клас, класним керівником якого він є (у режимі форми). Модуль для виведення таблиці «Працівники» у режимі читання. Модуль, який організовує вивід інформації про працівників у формі жовтим шрифтом по пурпуровому фоні, якщо стаж його роботи більше 15 років і чорним шрифтом по жовтому фоні у іншому випадку. В заголовку форми має відображатися поточна дата і час. Короткі теоретичні відомості Хід роботи 1) лістінг модуля 1 (модуль для вибірки за введеним прізвищем учителя інформації про клас, класним керівником якого він є (у режимі форми)): Option Compare Database Public Function Poshuk() Dim strCriteria As String strCriteria = "Прізвище = Forms!ІнформаціяПроПрацівників.form!Прізвище" DoCmd.OpenForm "КласніКерівники", aсNormal, , strCriteria Exit_Poshuk: Exit Function End Function 2) лістінг модуля 2 (Модуль для виведення таблиці «Працівники»у режимі читання). Option Compare Database Public Function VidkrytiaTablyci() DoCmd.OpenTable "Працівники", acViewNormal, acReadOnly End Function 3) лістінг модуля 3 (Модуль, який організовує вивід інформації про працівників у формі жовтим шрифтом по пурпуровому фоні, якщо стаж його роботи більше 15 років і чорним шрифтом по жовтому фоні у іншому випадку. В заголовку форми має відображатися поточна дата і час). Option Compare Database Option Explicit Private Sub Form_Current() Me.Caption = Format(Now, "dd.mm.yy hh:nn") If Стаж > 15 Then Me!Прізвище.ForeColor = 65535 Me!Прізвище.BackColor = 900 Me!Імя.ForeColor = 65535 Me!Імя.BackColor = 900 Me!ПоБатькові.ForeColor = 65535 Me!ПоБатькові.BackColor = 900 Me!КодПрацівника.ForeColor = 65535 Me!КодПрацівника.BackColor = 900 Me!КодПосади.ForeColor = 65535 Me!КодПосади.BackColor = 900 Me!КодПредмета.ForeColor = 65535 Me!КодПредмета.BackColor = 900 Me!Стаж.ForeColor = 65535 Me!Стаж.BackColor = 900 Me!КількістьГодин.ForeColor = 65535 Me!КількістьГодин.BackColor = 900 Else Me!Прізвище.ForeColor = 0 Me!Прізвище.BackColor = 65535 Me!Імя.ForeColor = 0 Me!Імя.BackColor = 65535 Me!ПоБатькові.ForeColor = 0 Me!ПоБатькові.BackColor = 65535 Me!КодПрацівника.ForeColor = 0 Me!КодПрацівника.BackColor = 65535 Me!КодПосади.ForeColor = 0 Me!КодПосади.BackColor = 65535 Me!КодПредмета.ForeColor = 0 Me!КодПредмета.BackColor = 65535 Me!Стаж.ForeColor = 0 Me!Стаж.BackColor = 65535 Me!КількістьГодин.ForeColor = 0 Me!КількістьГодин.BackColor = 65535 End If End Sub Результати виконання модулів 1)

2)
3)

Висновки На цій лабораторній роботі я навчився створювати та використовувати модулі у базах даних.