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

UptoLike

ВУЗ: 

ТТИ ЮФУ | Таганрог

Рубрика: 

44
End If
Dim tmpNode As node
Dim tmpText As String
Dim tmpKey
Dim tmpTag
Dim tmpParentText As String
Dim tmplistitem As ListItem
Set tmpNode = tvwDB.SelectedItem
tmpText = tmpNode.Text
tmpKey = tmpNode.Key
tmpTag = tmpNode.Tag
If tmpTag = "RootDB" Or tmpTag = "Fields" Then
MsgBox "Please select a table first"
Exit Sub
End If
If tmpTag = "Tables" Then
If ExistFormCap(tmpText) = False Then
Dim tmpObject
tmpObject = tmpText
Set tmpObject = New frmDBGrid
gTableName = tmpText
tmpObject.Show
tmpObject.Caption = tmpText
Else
MsgBox "Table is already opened"
End If
Exit Sub
End If
End Sub

Страницы