Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Модулі в базах даних
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра САПР
Інформація про роботу
Рік:
2008
Тип роботи:
Звіт про виконання лабораторної роботи
Предмет:
Організація баз даних і знань
Група:
КН-316
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний університет «Львівська політехніка»
Кафедра САПР
ЗВІТ
про виконання лабораторної роботи №10
на тему: «Модулі в базах даних»
з курсу: «Організація баз даних і знань»
Тема роботи
Модулі в базах даних.
Мета роботи
Навчитися розробляти та використовувати модулі в базах даних.
Лабораторне завдання
Створити 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)
Висновки
На цій лабораторній роботі я навчився створювати та використовувати модулі у базах даних.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора