Для построения данного дерева нужно использовать рекурсию. Вариантов может быть несколько. Если БД на SQL сервере то могу предложить следующее:
Создать на сервере 2 хранимые процедуры, которые используя рекурсию сформируют промежуточную таблицу, на основании которой delphi построит дерево.
Процедура 1
| Код |
CAREATE PROCEDURE TREEADD
AS
BEGIN
DECLARE @TREEID AS INT,
@TREEUPID AS INT,
@DESC AS VARCHAR(255),
@POZ AS INT
CREATE TABLE #RESULT(TYPE VARCHAR(10),
DESCR VARCHAR(255),
IDREC INT)
DECLARE #PRIMARY_TREE CURSOR LOCAL FAST_FORWARD FOR
SELECT
TREEID,
TREEUPID,
DESCRIPTION
FROM STRUCTURE
WHERE TREEUPID = 0
OPEN #PRIMARY_TREE
WHILE @@ERROR=0
BEGIN
FETCH NEXT FROM #PRIMARY_TREE INTO @TREEID, @TREEUPID, @DESC
IF @@FETCH_STATUS<>0 BREAK
INSERT INTO #RESULT
VALUES('Nil',@DESC,@TREEID)
SET @POZ = (SELECT COUNT(*) FROM #RESULT)-1
EXECUTE RECURSADD @TREEID,@POZ
END
CLOSE #PRIMARY_TREE
DEALLOCATE #PRIMARY_TREE
SELECT * FROM #RESULT
DROP TABLE #RESULT
END
|
Процедура 2
| Код |
PROCEDURE RECURSADD
@TREEID INT,
@POZITION INT
AS
DECLARE #REVERS CURSOR LOCAL FAST_FORWARD FOR
SELECT TREEID, TREEUPID, DESCRIPTION
FROM STRUCTURE
WHERE TREEUPID = @TREEID
OPEN #REVERS
DECLARE @TRID AS INT,
@TRUPID AS INT,
@DESCR AS VARCHAR(255),
@POZ AS INT
WHILE @@ERROR=0
BEGIN
FETCH NEXT FROM #REVERS INTO @TRID, @TRUPID, @DESCR
IF @@FETCH_STATUS <>0 BREAK
INSERT INTO #RESULT VALUES(CAST(@POZITION AS VARCHAR),@DESCR,@TRID)
SET @POZ = (SELECT COUNT(*) FROM #RESULT)-1
EXECUTE RECURSADD @TRID,@POZ
END
CLOSE #REVERS
DEALLOCATE #REVERS
|
В Delphi пишем процудеру формирования дерева:
| Код |
with ADOQuery2 do
begin
SQL.Clear;
SQL.Add('exec TREEADD');
Open;
end;
ADOQuery2.First;
TreeView1.Items.Clear;
TreeView1.Items.BeginUpdate;
while not ADOQuery2.Eof do
begin
IF ADOQuery2.FieldByName('TYPE').AsString = 'Nil' then
Begin
TreeView1.Items.AddChildObject(nil, ADOQuery2.FieldByName('DESCR').AsString, Pointer(ADOQuery2.FieldByName('IDREC').AsInteger));
End
Else
Begin
TreeView1.Items.AddChildObject(TreeView1.Items[ADOQuery2.FieldByName('TYPE').AsInteger],ADOQuery2.FieldByName('DESCR').AsString,Pointer(ADOQuery2.FieldByName('IDREC').AsInteger));
End;
ADOQuery2.Next;
End;
TreeView1.Items.EndUpdate;
|
При этом всю основную нагрузку по формированию данных выполняет SQL сервер а Delphi лишь остается нарисовать дерево пройдясь по всем строчкам в возвращенном наборе данных.
Либо можно организовать рекурсивное построение дерева средствами самого Delphi. каму как больше нравится. |
еще актуальною 