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

UptoLike

Рубрика:

n = tvwDB.Nodes("RootDB").Child.FirstSibling.Index

For i = n To mctn + n

mtblName = tvwDB.Nodes(i).Text

Set rs = gAcnn.Execute("SELECT * FROM [" & mtblName & "]", 1, 1)

For j = 0 To rs.Fields.Count - 1

mFldName = rs.Fields(j).Name

Set mnodeFields = tvwDB.Nodes.Add("X" & mtblName,

tvwChild,

"X" & mFldName, mFldName, "imgField")

mnodeFields.Tag = "Fields"

rs.Close

gstrFields(i - n, 1) = mtblName

gstrFieldsOrig(i - n, 1) = mtblName

Next i

tvwDB.Nodes(1).Sorted = True

tvwDB.Nodes(1).Expanded = True

Me.MousePointer = vbDefault

Exit Sub

End Sub

Это событие происходит при загрузке формы. При этом идёт инициали-

зация БД и отображение её таблиц в TreeView. Элемент TreeView обеспечи-

вает средства хранения иерархически структурированных данных. Для хра-

нения рисунков, таких как папка, логотип Windows для неопределённого ти-

па файлов и т.п., используется элемент ImageList.

Private Sub cmdTable_Click()

If tvwDB.SelectedItem Is Nothing Then

MsgBox "Please select a table first"

Exit Sub