Проектирование реляционной базы данных методом «Сущность – связь», страница 5

Формы 3 и 4 объединены в одну форму

Рис. 11.

После добавления правонарушения в таблицу (функционал формы 4), выдаётся вопрос о возможности восстановления машины, после нажатия кнопки «нет» происходит удаление машины из всех таблиц (функционал формы 3)

Рис.12.

Private Sub ПолеСоСписком0_AfterUpdate()

Me.Список13.Requery

End Sub

Private Sub dobnar_Click()

Dim base As Database

Dim rec As Recordset

Dim rec2 As Recordset

Dim vost As Integer

Me.ПолеСоСписком0.SetFocus

If Me.ПолеСоСписком0.Text = "" Then MsgBox "Выберите гос №": End

Me.ПолеСоСписком27.SetFocus

If Me.ПолеСоСписком27.Text = "" Then MsgBox "Выберите ФИО инспектора": End

Me.Поле21.SetFocus

If Me.Поле21.Text = "" Then MsgBox "Введите № протокола": End

Me.ПолеСоСписком38.SetFocus

If Me.ПолеСоСписком38.Text = "" Then MsgBox "Выберите статью": End

Me.Поле40.SetFocus

If Me.Поле40.Text = "" Then MsgBox "Введите сумму штрафа": End

If Me.Поле40 < 1 Then MsgBox "Cумма штрафа не может быть отрицательной или равной 0": _

Me.Поле40.Text = "": End

'Создание нового объекта:

Set base = CurrentDb ' откроем текущую БД

Set rec = base.OpenRecordset("SELECT * FROM [protokol]") 'открыть таблицу

rec.Edit

Me.Поле21.SetFocus

rec.FindFirst "CStr(nr)= '" & Me.Поле21.Text & "'"

'если запись уже есть

If Not rec.NoMatch() Then

MsgBox "Такой № протокола уже есть!": Me.Поле21.Text = "": End

End If

rec.AddNew        'добавить новую запись

Me.Поле21.SetFocus

rec!nr = Me.Поле21.Text

Me.ПолеСоСписком0.SetFocus

rec!gn = Me.ПолеСоСписком0.Text

Me.ПолеСоСписком27.SetFocus

rec!ki = Me.ПолеСоСписком27.Column(0)

Me.ПолеСоСписком38.SetFocus

rec!nsya = Me.ПолеСоСписком38.Column(0)

Me.Поле19.SetFocus

rec!dp = Me.Поле19.Text

Me.Поле40.SetFocus

rec!ssh = Me.Поле40.Text

rec.Update       'обновление БД

Me.Список13.Requery

vost = MsgBox("Машина подлежит востановлению?", vbYesNo + vbQuestion)

Select Case vost

Case 7

Set rec2 = base.OpenRecordset("SELECT * FROM [avto]") 'открыть таблицу

rec2.MoveFirst

Me.ПолеСоСписком0.SetFocus

While (rec2!gn <> Me.ПолеСоСписком0.Text)

rec2.MoveNext

Wend

rec2.Delete

Me.Список13.Requery

Me.ПолеСоСписком0.Requery

'Me.ПолеСоСписком0.SetFocus

Me.ПолеСоСписком0.Text = ""

MsgBox "Машина неподлежащая востановлению удалена"

Case 6

MsgBox "Правонарушение добавлено"

End Select

Me.Поле21.SetFocus

Me.Поле21.Text = ""

Me.ПолеСоСписком27.SetFocus

Me.ПолеСоСписком27.Text = ""

Me.ПолеСоСписком38.SetFocus

Me.ПолеСоСписком38.Text = ""

Me.Поле40.SetFocus

Me.Поле40.Text = ""

End Sub
Список литературы

1. Горев а., Ахаян Р., Макашарипов С. Эффективная работа с СУБД. – СПб.: Питер, 19997. – 704 с.

2. Дейт К. Дж. Введение в системы баз данных, 6-е издание: Пер. с англ. – К.; М.; СПб.: Издательский дом «Вильямс», 2000. – 848 с.

3. Джексон Г. Проектирование реляционных баз данных для использования с микроЭВМ: Пер. с англ. – М.: Мир, 1991. – 252 с.

4. Диго С.М. Проектирование и использование баз данных: Учебник. – М.: Финансы и статистика, 1995. – 208 с.

5. Коннолли Т., Бегг К., Страчан А. Базы данных: проектирование, реализация и сопровождение. Теория и практика, 2-е изд.: Пер. с англ.: Уч. пос. – М.: Издательский дом «Вильямс», 2000. – 1120 с.

6. Мейер Д.  Теория  реляционных  баз  данных: Пер. с англ. – М.: Мир, 1987. – 608 с.

7. Хансен Г., Хансен Д. Базы данных: разработка и управление: Пер. с англ. – М.:ЗАО «Издательство БИНОМ», 1999. – 704 с.

8. Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных: Учебник для высших учебных заведений / Под ред. Проф. А.Д. Хомоненко. – СПб.: КОРОНА принт, 2000. – 416 с.

9. Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных: Учебник для высших учебных заведений / Под ред. Проф. А.Д. Хомоненко. – Издание второе, дополненное и переработанное – СПб.: КОРОНА принт, 2002. – 672 с.