Private Sub Form_Load()
\nFillStructureTree
\nEnd Sub<\/p>\n
Sub FillStructureTree()
\nDim xTree As MSComctlLib.TreeView
\nDim sql As String
\nDim rsBoss As DAO.Recordset
\nDim rsBiuro As DAO.Recordset
\nDim rsTeam As DAO.Recordset
\nDim strSKU As String
\nDim strPartDescription As String
\nDim strPartNumber As Integer
\nDim strSKUkey As String
\nDim strPartKey As String
\nDim strSql As String
\nDim wydzialID As Integer<\/p>\n
Set xTree = Me.tvStructure.Object<\/p>\n
'wczytanie danych od dyrektorach<\/p>\n
sql = „SELECT Wydzia\u0142y.ID_Wydzia\u0142, [IMIE] & ’ ’ & [Nazwisko] AS boss ” & _
\n„FROM Wydzia\u0142y INNER JOIN Pracownicy ON Wydzia\u0142y.ID_Prac = Pracownicy.ID_Prac ” & _
\n„WHERE (((Wydzia\u0142y.poziom) = 0 Or (Wydzia\u0142y.poziom) = 1)) ” & _
\n„ORDER BY Wydzia\u0142y.poziom, Wydzia\u0142y.[Nazwa wydzia\u0142u];”<\/p>\n
Set rsBoss = CurrentDb.OpenRecordset(sql)<\/p>\n
Do While Not rsBoss.EOF
\nstrSKU = rsBoss.Fields(„boss”) 'pobranie informacji jak nazywa si\u0119 dyrektor
\nstrSKUkey = „SKU” & rsBoss.Fields(„ID_Wydzia\u0142”) 'pobranie informacji o numerze identyfikacyjnym jednostki
\nwydzialID = rsBoss.Fields(„ID_Wydzia\u0142”)
\nxTree.Nodes.Add , , strSKUkey, strSKU 'utworzenie ga\u0142\u0119zi I-go poziomu<\/p>\n
'podbranie informacji o kom\u00f3rkach podleg\u0142ych poszczeg\u00f3lnym dyrektorom<\/p>\n
sql = „SELECT Wydzia\u0142y.ID_Wydzia\u0142, Wydzia\u0142y.[Nazwa wydzia\u0142u]” & _
\n„FROM Wydzia\u0142y INNER JOIN Pracownicy ON Wydzia\u0142y.ID_Prac = Pracownicy.ID_Prac ” & _
\n„WHERE Wydzia\u0142y.poziom = 2 And Wydzia\u0142y.Jed_nad =” & wydzialID & _
\n” ORDER BY Wydzia\u0142y.[Nazwa wydzia\u0142u];”<\/p>\n
Set rsBiuro = CurrentDb.OpenRecordset(sql)<\/p>\n
Do While Not rsBiuro.EOF
\nstrPartKey = „Part” & rsBiuro.Fields(„ID_Wydzia\u0142”)
\nstrPartDescription = rsBiuro.Fields(„Nazwa wydzia\u0142u”)
\nwydzialID = rsBiuro.Fields(„ID_Wydzia\u0142”)<\/p>\n
xTree.Nodes.Add strSKUkey, tvwChild, strPartKey, strPartDescription<\/p>\n
'pobranie informacji o kom\u00f3rkach w ramach danej kom\u00f3rki organziacyjnej<\/p>\n
sql = „SELECT Wydzia\u0142y.ID_Wydzia\u0142, Wydzia\u0142y.[Nazwa wydzia\u0142u] ” & _
\n„FROM Wydzia\u0142y INNER JOIN Pracownicy ON Wydzia\u0142y.ID_Prac = Pracownicy.ID_Prac ” & _
\n„WHERE Wydzia\u0142y.poziom = 3 And Wydzia\u0142y.Jed_nad = ” & wydzialID & _
\n” ORDER BY Wydzia\u0142y.[Nazwa wydzia\u0142u];”<\/p>\n
Set rsTeam = CurrentDb.OpenRecordset(sql)<\/p>\n
Do While Not rsTeam.EOF<\/p>\n
strTeamKey = „Team” & rsTeam.Fields(„ID_Wydzia\u0142”)
\nstrPartDescription = rsTeam.Fields(„Nazwa wydzia\u0142u”)<\/p>\n
xTree.Nodes.Add strPartKey, tvwChild, strTeamKey, strPartDescription<\/p>\n
rsTeam.MoveNext<\/p>\n
Loop<\/p>\n
rsBiuro.MoveNext<\/p>\n
Loop<\/p>\n
rsBoss.MoveNext<\/p>\n
Loop<\/p>\n
End Sub<\/p>\n
'obs\u0142uga klikni\u0119cia na dowolnym w\u0119\u017ale. Wystarczy utworzy\u0107 procedur\u0119 bez \u017cadngo 'wi\u0105zania z obiektem. Wa\u017cne aby\u00a0 w nazwie procedury by\u0142a nazwa obiektu, kt\u00f3rego ona 'dotyczy – w tym wypadku tvStructure<\/p>\n
Private Sub tvStructure_NodeClick(ByVal selectedNode As Object)<\/p>\n
Debug.Print Val(selectedNode.Key) & ” ” & selectedNode.Text<\/p>\n
End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"
Private Sub Form_Load() FillStructureTree End Sub<\/p>\n