Dim fl As Boolean

End Sub

End If

FormRefresh

RstSpisok.MoveFirst

RstSpisok.Delete

End Sub

End Sub

FormRefresh

RstSpisok.Update

End If

RstSpisok.Edit

Else

RstSpisok.AddNew

End If

TxtGrup.SetFocus

End If

TxtOtch.SetFocus

End If

TxtName.SetFocus

End If

TxtFam.SetFocus

End Sub

FormRefresh

RstSpisok.MoveFirst

End Sub

End Sub

Private Sub cmbAdd_Click()

fl = True

cmbAdd.Enabled = False

cmbEdit.Enabled = False

cmbDel.Enabled = False

cmbSave.Enabled = True

cmbCancel.Enabled = True

txtFam.Text = ""

txtName.Text = ""

txtOtch.Text = ""

txtGrup.Text = ""

txtFam.Locked = False

txtName.Locked = False

txtOtch.Locked = False

txtGrup.Locked = False

Private Sub cmbCancel_Click()

cmbAdd.Enabled = True

cmbEdit.Enabled = True

cmbDel.Enabled = True

cmbSave.Enabled = False

cmbCancel.Enabled = False

txtFam.Locked = True

txtName.Locked = True

txtOtch.Locked = True

txtGrup.Locked = True

Private Sub cmbSave_Click()

If txtFam = "" Then

MsgBox ("Укажите фамилию студента!!!")

If txtName = "" Then

MsgBox ("Укажите имя студента!!!")

If txtOtch = "" Then

MsgBox ("Укажите отчество студента!!!")

If txtGrup = "" Then

MsgBox ("Укажите группу студента!!!")

If fl = True Then

rstSpisok.Fields("Familie").Value = txtFam.Text

rstSpisok.Fields("Imja").Value = txtName.Text

rstSpisok.Fields("Otch").Value = txtOtch.Text

rstSpisok.Fields("Group").Value = txtGrup.Text

If fl = True Then rstSpisok.MoveLast

cmbAdd.Enabled = True

cmbEdit.Enabled = True

cmbDel.Enabled = True

cmbSave.Enabled = False

cmbCancel.Enabled = False

txtFam.Locked = True

txtName.Locked = True

txtOtch.Locked = True

txtGrup.Locked = True

Private Sub cmbEdit_Click()

fl = False

cmbAdd.Enabled = False

cmbEdit.Enabled = False

cmbDel.Enabled = False

cmbSave.Enabled = True

cmbCancel.Enabled = True

txtFam.Locked = False

txtName.Locked = False

txtOtch.Locked = False

txtGrup.Locked = False

Private Sub cmbDel_Click()

If MsgBox("Действительно удалить текущую запись?", vbYesNo, "Внимание!") = vbYes Then

Переменную fl необходимо объявить, поместив следующую строку в самое начало программного кода (до всех процедур):

Сохраните проект. Проверьте работу приложения. Обратите внимание, что при нажатии кнопки Удалить в тексте программы мы производим удаление только записи о студенте из таблицы Spisok, однако, благодаря тому, что в самой БД между таблицами установлены связи и включены настройки каскадного обновления и каскадного удаления, будут удаляться также данные об оценках удаляемого студента, т.е. все связанные с ним по коду записи.

На следующем этапе отредактируем созданное приложение так, чтобы одновременно с данными о студентах отображались их оценки. Разместите на форме объект ListBox (lstOcenki). Измените процедуру FormRefresh.

Public Sub FormRefresh()

Дата добавления: 2014-12-27