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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Мартьянова А.Е. Базы данных и знаний 126
д еименовать в .
Свойства DataSours те й txtFields также необходимо заме-
н a2.
окно кода буд оцедур
д дных кнопок
Private Sub cmdAdd_Click()
Data2.Recordset.AddNew
End Sub
Private
но сразу дополнить диалогом с
помощ
ть те сь"
If d = 6 Then
Вручную добавим кнопку для поиска студента по номеру зачетной
книжки в базе данных (рис. II.39) и организуем диалог с помощью окна
ввода (рис. II.40):
Private Sub cmdFind_Click()
p$ = "Введите номер зачетной книжки студента"
s$ = InputBox(p$, "Поиск студента")
Data2.Recordset.Index = "NumberTestBook"
Data2.Recordset.Seek "=", s$
имо пер ручную в окне свойств Data, назвав его Data2
кстовых поле
ить на Dat
В ет введен следующий код событийных пр
2). ля коман (после замены Data1 на Data
Sub cmdDelete_Click()
Data2.Recordset.Delete
Data2.Recordset.MoveNext
End Sub
Private Sub cmdRefresh_Click()
Data2.Refresh
End Sub
Private Sub cmdUpdate_Click()
Data2.UpdateRecord
Data2.Recordset.Bookmark = Data2.Recordset.LastModified
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Процедуру удаления записи мож
ью диалогового окна сообщений:
Private Sub cmdDelete_Click()
t$ = "Вы действительно хотите удали кущую запи
d = MsgBox(t$, 36, "Удаление записи")
Data2.Recordset.Delete
Data2.Recordset.MoveNext
End If
End Sub
126
126                                      Мартьянова А.Е. Базы данных и знаний


димо переименовать вручную в окне свойств Data, назвав его Data2.
Свойства DataSours текстовых полей txtFields также необходимо заме-
нить на Data2.
      В окно кода будет введен следующий код событийных процедур
для командных кнопок (после замены Data1 на Data2).
Private Sub cmdAdd_Click()
Data2.Recordset.AddNew
End Sub

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

Private Sub cmdRefresh_Click()
Data2.Refresh
End Sub

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

Private Sub cmdClose_Click()
Unload Me
End Sub
    Процедуру удаления записи можно сразу дополнить диалогом с
помощью диалогового окна сообщений:
Private Sub cmdDelete_Click()
t$ = "Вы действительно хотите удалить текущую запись"
d = MsgBox(t$, 36, "Удаление записи")
If d = 6 Then
      Data2.Recordset.Delete
      Data2.Recordset.MoveNext
End If
End Sub
      Вручную добавим кнопку для поиска студента по номеру зачетной
книжки в базе данных (рис. II.39) и организуем диалог с помощью окна
ввода (рис. II.40):
Private Sub cmdFind_Click()
p$ = "Введите номер зачетной книжки студента"
s$ = InputBox(p$, "Поиск студента")
Data2.Recordset.Index = "NumberTestBook"
Data2.Recordset.Seek "=", s$


                                       126

Страницы