End Sub. DataStud.Recordset.Update

DataStud.Recordset.Update

End If

DataStud.Recordset.Edit

If Not fl Then

DataStud.Recordset.MoveLast

Dim kl As Long

End Sub

DataStud.Recordset.MoveLast

DataStud.Recordset.Delete

End Sub

DataStud.UpdateControls

End Sub

DataStud.Recordset.AddNew

DataStud.Recordset.MoveLast

Dim m As Long

End Sub

FrmFind.Show

End Sub

FrmQuery.Show

End Sub

FrmRefresh.Show

End Sub

Unload Me

Private Sub mnuObnovl_Click()

Private Sub mnuFilt_Click()

Private Sub mnuPoisk_Click()

Private Sub CmbAdd_Click()

m = DataStud.Recordset![Cod]

fl = True

DataStud.Recordset![Cod] = m + 1

cmbSave.Enabled = True

Private Sub cmbCancel_Click()

fl = False

cmbSave.Enabled = False

Private Sub cmbDelete_Click()

fl = False

DataStud.Caption = "Записей:" & DataStud.Recordset.RecordCount

Private Sub cmbSave_Click()

kl = DataStud.Recordset.RecordCount

DataStud.Caption = "Записей:" & kl

' cmbSave.Enabled = False

9. Формируем диалог по запросам. Необходимо организовать поиск записей по заданному критерию 2 способами. Первый – с использованием последовательного доступа (FindFirst, Findnext …), второй – с использованием SQL-запроса на выборку (параллельный поиск, фильрация).

10. В первом случае, процедуре mnuFind (вызываемой по подпункту Запросы®Поиск) назначаем отображение формы, в которой будет задаваться критерий поиска записей (например, по фамилии студента). В форме можно сформировать одно текстовое поле txtFind и кнопку Поиск cmdPoisk.

11. Для кнопки задать следующую процедуру:

Private Sub cmdPoisk_Click()

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