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

UptoLike

Рубрика:

If InStr(gconexcludeFieldTypes, s) <> 0 Then

DataGrid1.Columns(i).Visible = False

k = True

Else

gstrFieldsOrig(msubscript, 2) =

gstrFieldsOrig(msubscript, 2) & rs.Fields(i).Name & ","

End If

Next i

If k = True Then

Me.Caption = "Records: [Binary field(s) excluded]"

End If

mNoRowSetYet = False

DataGrid1.SelBookmarks.Add rs.Bookmark

Adodc1.Caption = CStr(rs.AbsolutePosition)

Exit Sub

errhandler:

mreccount = 0

ErrMsgProc "frmDBGrid Form_load. Failed to establish a connection"

При загрузке этой формы происходит инициализация базы данных. БД

отображается в элемент управления DataGrid (таблица данных) – это связан-

ный табличный элемент управления, который отображает набор строк и

столбцов, представляющих записи и поля из объекта Recordset.

Private Sub Command1_Click()

Frame1.Visible = False

End Sub

При нажатии кнопки OK окно «Добавление в БД» исчезает из формы.

Private Sub cmdSearch_Click()

Dim strSeek As String, varBookmark, i As Long

varBookmark = rs.Bookmark