Базы данных и знаний. Мартьянова А.Е. - 123 стр.

UptoLike

ВУЗ: 

АГТУ | Астрахань

Составители: 

Рубрика: 

Мартьянова А.Е. Базы данных и знаний 123
Private Sub cmdDelete_Click()
D rdset.Dele
Data1.Recordset.Mov
E
P fre
Data1.Refresh
E
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private
е записей можно выполнить диалоговое окно
с (рис. II.35). Для этого след а
т ы для кно
Private Sub cmdDelete_Click()
t тельно хотите удалить теку
d = MsgBox(t$, 36, "Удаление записи")
If d = 6 Then ' Нажата кнопка "Да"
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End If
End Sub
ata1.Reco te
eNext
nd Sub
rivate Sub cmdRe sh_Click()
nd Sub
Sub cmdClose_Click()
Unload Me
End Sub
Удалени
ообщений
, используя
ует в окно код ввести следующий
пки Delete: екст событийной процедур
$ = "Вы действи щую запись"
Рис. II.35. Окно сообщения
Теперь добавим поиск группы по ее обозначению (рис. II.34) через
созданную кнопку Find и организуем диалог с помощью окна ввода (рис.
II.36). 
   Мартьянова А.Е. Базы данных и знаний                              123


Private Sub cmdDelete_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub

Private Sub cmdRefresh_Click()
Data1.Refresh
End Sub

Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

      Удаление записей можно выполнить, используя диалоговое окно
сообщений (рис. II.35). Для этого следует в окно кода ввести следующий
текст событийной процедуры для кнопки Delete:
Private Sub cmdDelete_Click()
t$ = "Вы действительно хотите удалить текущую запись"
d = MsgBox(t$, 36, "Удаление записи")
If d = 6 Then ' Нажата кнопка "Да"
      Data1.Recordset.Delete
      Data1.Recordset.MoveNext
End If
End Sub




                               Рис. II.35. Окно сообщения

        Теперь добавим поиск группы по ее обозначению (рис. II.34) через
созданную кнопку Find и организуем диалог с помощью окна ввода (рис.
II.36).

Страницы