Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Забезпечення цілісності в СУБД Access
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра прикладної математики
Інформація про роботу
Рік:
2008
Тип роботи:
Звіт
Предмет:
Бази даних та інформаційні системи
Група:
ПМ-31
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний університет “Львівська політехніка”
Кафедра прикладної математики
Звіт
до лабораторної роботи №5
з дисципліни “Бази даних та інформаційні системи”
на тему :
“ Забезпечення цілісності в СУБД Access ”
Тема: Обмеження цілісності
Мета: Забезпечити обмеження цілісності, що задані в предметній області
Обмеження цілісності:
Кімната не може одночасно бути здана двом орендарям.
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim sql As String
sql = "SELECT [ID-орендаря] as idOr, [ID-приміщення] as idPr, [Дата початку] as beginDate, [Дата кінця] as endDate FROM Оренда"
Set rs = CurrentDb.OpenRecordset(sql)
Do While (rs.EOF = False)
If Me!numberRoom = rs!idPr And Not Me!numberRoom = Me!idPr Then
If Me!BeginDate >= rs!BeginDate And Me!BeginDate < rs!EndDate Then
MsgBox ("Приміщення зайняте з " & rs!BeginDate & " до " & rs!EndDate)
Cancel = 1
rs.Close
Exit Sub
End If
If Me!BeginDate < rs!BeginDate And Me!EndDate > rs!BeginDate Then
MsgBox ("Приміщення зайняте з " & rs!BeginDate & " до " & rs!EndDate)
Cancel = 1
rs.Close
Exit Sub
End If
End If
rs.MoveNext
Loop
rs.Close
If Me!EndDate < Me!BeginDate Then
MsgBox ("Дата кінця введена некоректно")
Cancel = True
End If
End Sub
Система повинна враховувати надходження оплати від орендарів по рахунках.
Private Sub sumaOriginal_Enter()
Dim sql As String
Dim sq As Double
sql = "SELECT [Приміщення].[Площа] as [Square] FROM Приміщення WHERE Приміщення.[ID-приміщення]=" & Me!numberRoom.Value
Set rs = CurrentDb.OpenRecordset(sql)
If rs.RecordCount > 0 Then
sq = rs!Square
Else
sq = 0
End If
rs.Close
sql = "SELECT [Ціна за квадр метр] as price FROM [Тип приміщення] WHERE [ID-типу]=" & Me!Приміщення!roomType.Value
Set rs = CurrentDb.OpenRecordset(sql)
If rs.RecordCount > 0 Then
sq = sq * rs!price
End If
Me!sumaOriginal = sq
Me!sumaPDV = sq * 1.2
Call payedF
End Sub
Public Sub payedF()
Dim sql As String
sql = "SELECT SUM([Сума оплати]) as payed FROM Оплата WHERE [ID-орендаря]=" & Me!OrendarName & " GROUP BY [ID-орендаря]"
Set rs = CurrentDb.OpenRecordset(sql)
If rs.RecordCount > 0 Then
Me!payed = rs!payed
Else
Me!payed = "0"
End If
End Sub
Висновок: на цій лабораторній роботі я забезпечувала цілісність даних для даної предметної області «Оренда приміщень» в СУБД Access.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора