Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2008
Тип роботи:
Лабораторна робота
Предмет:
Бази даних та інформаційні системи
Група:
ПМ-31
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний університет “Львівська політехніка”
Звіти з курсу “Бази даних та інформаційні системи”
До лабораторних робіт №3,4,5
Лабораторна робота №3
Тема:Форми
Мета: створити на основі існуючої бази даних форму для введення, оновлення і витирання даних
Вигляд головної форми
Вигляд підформи, що викликається
Лабораторна робота №4
Тема: Звіти
Мета: Система повинна надавати наступні звіти :
Список екскурсій за певний проміжок часу з вказанням вартості.
Графік використання автобусів за певний проміжок часу.
Фінансовий звіт за місяць, який вказує для кожного дня загальну суму виконаних екскурсій та надходження оплати
Довідку замовника з вказанням замовлених екскурсій та проведених оплат
1. Список екскурсій за певний проміжок часу з вказанням вартості.
2. Графік використання автобусів за певний проміжок часу.
3. Фінансовий звіт за місяць, який вказує для кожного дня загальну суму виконаних екскурсій та надходження оплати
4. Довідку замовника з вказанням замовлених екскурсій та проведених оплат
Лабораторна робота №5
Тема: Обмеження цілісності
Мета: Забезпечити обмеження цілісності, що задані в предметній області
Обмеження цілісності:
Автобус та шофер не можуть одночасно обслуговувати дві екскурсії.
Потрібно контролювати місткість автобусів та інформувати чи є вона достатньою для екскурсії.
Екскурсія не може надаватись замовнику, який має борг на протязі 30 днів.
Автобуси можуть обслуговувати певні типи екскурсій.
Автобус та шофер не можуть одночасно обслуговувати дві екскурсії
SELECT Автобуси.Номерний_Знак, Тип_Екскурсії
FROM Автобуси
WHERE Автобуси.Номерний_Знак NOT IN (SELECT Забезпечення_Екскурсій.Номерний_Знак FROM Забезпечення_Екскурсій WHERE Забезпечення_Екскурсій.Дата_Екскурсії = [Дата]);
2. Потрібно контролювати місткість автобусів та інформувати чи є вона достатньою для екскурсії.
Public Sub Check_Count()
Dim a, b, c As Integer
Cписок72.Requery
a = Список72.ItemData(0)
If IsNull(a) Then a = 0
b = Кількість_Екскурсантів.Value
If IsNull(b) Then b = 0
c = b - a
If a = 0 Then c = 0
If c > 0 Then
Err_Msg.Visible = True
Кількість_Екскурсантів.SetFocus
Else
Err_Msg.Visible = False
End If
End Sub
Екскурсія не може надаватись замовнику, який має борг на протязі 30 днів
//Таблиця боржників
SELECT [Екскурсії].[ПІП_Замовника]
FROM Екскурсії INNER JOIN Фінанси ON ([Екскурсії].[Дата_Екскурсії]=[Фінанси].[Дата_Екскурсії]) AND ([Екскурсії].[Місце_Призначення]=[Фінанси].[Місце_Призначення])
WHERE (Now()-[Екскурсії].[Дата_Екскурсії])>30 And [Фінанси].[Оплачено_Замовником]<[Фінанси].[Ціна_Екскурсії];
4. Автобуси можуть обслуговувати певні типи екскурсій.
//Запит з видами автобусів
SELECT DISTINCT Автобуси.Номерний_Знак, Автобуси.Тип_Екскурсії
FROM Автобуси;
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора