Разработка информационной системы, содержащей сведения о фирме видеопроката, включая сведения о жанрах, фильмах, клиентах, страница 9

db.Execute "insert into ВидеопрокатDAO values('Хортон',2008,'США',90,70,3)"

db.Execute "insert into ВидеопрокатDAO values('Стритрейсеры',2008,'Россия',95,40,4)"

db.Execute "insert into ВидеопрокатDAO values('Железный человек',2008,'США',110,10,5)"

db.Execute "insert into ВидеопрокатDAO values('Темный рыцарь',2008,'США',100,5,6)"

db.Execute "insert into ВидеопрокатDAO values('Индиго',2008,'Россия',90,20,7)"

db.Execute "insert into ВидеопрокатDAO values('10 000 лет до нашей эры',2008,'США',110,20,8)"

db.Execute "insert into ВидеопрокатDAO values('Я — легенда',2008,'США',105,45,9)"

db.Execute "insert into ВидеопрокатDAO values('Ирония судьбы. Продолжение',2008,'Россия',110,55,10)"

Lab_Err:

Resume dal

MsgBox Err.Description

db.Close

dal:

DoCmd.OpenTable ("ВидеопрокатDAO")

End Sub

Private Sub закрыть_видеопрокат_Click()

DoCmd.Close acTable, ("ВидеопрокатDAO")

End Sub

Private Sub удалить_видеопрокат_Click()

Dim ws As Workspace

Dim db As Database

Dim fld As Field

Dim query As QueryDef

Dim rec1, rec2 As Recordset

Dim ВидеопрокатDAO, ЗаказDAO, ПокупательDAO, ЗаказAlter As TableDef

Set db = CurrentDb

On Error GoTo Lab_Err

DoCmd.Close acTable, ("ВидеопрокатDAO")

db.TableDefs.Delete ("ВидеопрокатDAO")

Lab_Err:

Resume dal

MsgBox Err.Description

dal:

MsgBox ("таблица удалена")

End Sub

Private Sub Кнопка29_Click()

Dim ws As Workspace

Dim db As Database

Dim fld As Field

Dim query As QueryDef

Dim rec1, rec2 As Recordset

Dim Видеопрокат, Заказ, Покупатель As TableDef

Set db = CurrentDb

On Error GoTo Lab_Err

Set query = db.CreateQueryDef("20", "SELECT Заказ.[Дата заказа], Покупатель.Покупатель FROM Покупатель INNER JOIN Заказ ON Покупатель.Покупатель=Заказ.Покупатель WHERE (покупатель.покупатель=Forms!Form2!ПолеСоСписком27) and (заказ.[Дата заказа]=Forms!Form2!calendar6.value)")

Lab_Err:

Resume dal

MsgBox Err.Description

db.Close

dal:

DoCmd.OpenQuery 20

End Sub

Private Sub Кнопка30_Click()

Dim ws As Workspace

Dim db As Database

Dim fld As Field

Dim query As QueryDef

Dim rec1, rec2 As Recordset

Dim Видеопрокат, Заказ, Покупатель As TableDef

Set db = CurrentDb

On Error GoTo Lab_Err

DoCmd.Close acQuery, 20

db.QueryDefs.Delete 20

Lab_Err:

Resume dal

MsgBox Err.Description

dal:

MsgBox ("запрос удален")

End Sub

Private Sub Кнопка31_Click()

DoCmd.Close acQuery, 20

End Sub

Private Sub Информация_БД_Click()

Надпись33.Caption = "База данных "

Надпись35.Caption = "Видеопрокат"

Надпись40.Caption = "Разработал:"

Надпись41.Caption = "Ядрышников О.Д."

End Sub

Private Sub очистить_Click()

Надпись33.Caption = ""

Надпись35.Caption = ""

Надпись40.Caption = ""

Надпись41.Caption = ""

End Sub

Private Sub Кнопка52_Click()

Dim ws As Workspace

Dim db As Database

Dim fld As Field

Dim query As QueryDef

Dim rec1, rec2 As Recordset

Dim Видеопрокат, Заказ, Покупатель As TableDef

Set db = CurrentDb

On Error GoTo Lab_Err

If Группа43 = 1 Then

Set query = db.CreateQueryDef("21", "SELECT видеопрокат.[название фильма], видеопрокат.цена FROM Видеопрокат WHERE (видеопрокат.цена)<90")

DoCmd.OpenQuery 21

Else

If Группа43 = 2 Then

Set query = db.CreateQueryDef("22", "SELECT видеопрокат.[название фильма], видеопрокат.цена FROM Видеопрокат WHERE ((видеопрокат.цена)Between 90 And 100)")

DoCmd.OpenQuery 22

Else

If Группа43 = 3 Then

Set query = db.CreateQueryDef("23", "SELECT видеопрокат.[название фильма], видеопрокат.цена FROM Видеопрокат WHERE (видеопрокат.цена)>100")

DoCmd.OpenQuery 23

End If

End If

End If

GoTo q

Lab_Err:

MsgBox Err.Description

q:

db.Close

End Sub

Private Sub Кнопка53_Click()

If Группа43 = 1 Then

DoCmd.Close acQuery, 21

Else

If Группа43 = 2 Then

DoCmd.Close acQuery, 22

Else

If Группа43 = 3 Then

DoCmd.Close acQuery, 23

End If

End If

End If

End Sub