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

db.Execute "insert into ПокупательDAO values(2,222222,'Егоров','ул. Блюхера 45','egor@mail.ru','Обь')"

db.Execute "insert into ПокупательDAO values(3,333333,'Сидоров','ул. Маркса 5','sidorov@mail.ru','Новосибирск')"

db.Execute "insert into ПокупательDAO values(4,444444,'Петров','ул. Геодезическая 41','petr@mail.ru','Обь')"

db.Execute "insert into ПокупательDAO values(5,555555,'Федоров','ул. Ленина 7','fed@mail.ru','Новосибирск')"

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()

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 Кнопка144_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, 27

db.QueryDefs.Delete 27

Lab_Err:

Resume dal

MsgBox Err.Description

dal:

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

End Sub

Private Sub Закрыть_БД_Click()

DoCmd.Quit

End Sub

Private Sub Закрыть_форму_Click()

DoCmd.Close acForm, "Form2"

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 Кнопка154_Click()

Dim ws As Workspace

Dim db As Database

Dim fld As Field

Dim query As QueryDef

Dim rec1, rec2 As Recordset

Set db = CurrentDb

On Error GoTo Lab_Err

SQL = ((Список151.Value) / 5000) * 100

Надпись153.Caption = "Склад заполнен на:" & SQL & "%"

GoTo t

Lab_Err:

MsgBox Err.Description

t:

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

'Создаем db таблицу Видеопрокат

Set t1 = db.CreateTableDef("ВидеопрокатDAO")

'Добавляем столбец-Название фильма в семейство Fields объекта TableDef

Set fld = t1.CreateField("Название фильма", dbText, 20)

t1.Fields.Append fld     'Обновляем семейство Fields

'Добавляем столбец-Год в семейство Fields объекта TableDef

Set fld = t1.CreateField("Год", dbInteger, 10)

t1.Fields.Append fld

'Добавляем столбец-СТРАНА в семейство Fields объекта TableDef

Set fld = t1.CreateField("СТРАНА", dbText, 20)

t1.Fields.Append fld

'Добавляем столбец-Цена в семейство Fields объекта TableDef

Set fld = t1.CreateField("Цена", dbInteger, 10)

t1.Fields.Append fld

'Добавляем столбец-Наличие в семейство Fields объекта TableDef

Set fld = t1.CreateField("Наличие", dbInteger, 10)

t1.Fields.Append fld

'Добавляем таблицу в семейство TableDefs

db.TableDefs.Append t1

'Добавляем столбец-ID, являющийся уникальным ключом

db.Execute "alter table ВидеопрокатDAO add id INTEGER PRIMARY KEY"

'Вставляем данные в таблицу ВидеопрокатDAO

db.Execute "insert into ВидеопрокатDAO values('Точка обстрела',2008,'США',110,55,1)"

db.Execute "insert into ВидеопрокатDAO values('Ограбление на Бэйкер стрит',2008,'Великобретания',110,50,2)"