Технологические аспекты разработки ПО АСОИУ. - 38 стр.

UptoLike

Рубрика:

rs.MoveFirst

strSeek = InputBox("Введите строку для поиска", "Поиск")

For i = 0 To Adodc1.Recordset.RecordCount - 1

If strSeek = "" Then Exit Sub

If InStr(1, rs(Combo1.Text), strSeek, 1) <> 0 Then

Adodc1.Recordset.AbsolutePosition = i

If MsgBox("Искать далее?", vbQuestion + vbYesNo) =

vbNo Then Exit Sub

End If

rs.MoveNext

Next i

MsgBox "Больше данных нет." + vbNewLine + "Конец списка.",

vbOKOnly + vbExclamation

rs.Bookmark = varBookmark

End Sub

Эта форма используется для быстрого поиска в полях БД предложений

чисел и т.д. Поля выбираются в элементе управления Combo1. С помощью

представленной ниже процедуры добавляется строка в БД:

Private Sub cmdAdd_Click()

Frame1.Visible = True

Adodc1.Recordset.AddNew

С помощью расположенного далее блока происходит удаление строки БД:

Private Sub cmdDelete_Click()

Adodc1.Recordset.Delete adAffectCurrent

End Sub

Это событие происходит при нажатии кнопки Refresh, после чего об-

новляется БД в результате редактирования.

Private Sub cmdRefresh_Click()

DataGrid1.Refresh