Забезпечення цілісності в СУБД Access. Звіт з Бази даних та інформаційні системи. Робота № 120369

Забезпечення цілісності в СУБД Access

Інформація про навчальний заклад

ВУЗ:

Національний університет Львівська політехніка

Інститут:

Не вказано

Факультет:

Не вказано

Кафедра:

Кафедра прикладної математики

Інформація про роботу

Рік:

2015

Тип роботи:

Звіт

Предмет:

Бази даних та інформаційні системи

Група:

ПМ-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.

Звіт Бази даних та інформаційні системи

2015

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, або зареєструйтесь.

Ділись своїми роботами та отримуй миттєві бонуси!

поділитись