[segas]

Доброго времени суток уважаемые форумчани
Подскажите пожалуйста как вывести парадоксавскую таблицу при помощи treeView уже очень долго парюсь над этой задачей и разными способами проповал, но все что то никак не выходит
Вот сама таблица пользователь.rar
Состоит из полей(ИД, ФАМИЛИЯ, ПРЕДПРИЯТИЕ, ЦЕХ, ОТДЕЛ, Должность)
1 уровень ПРЕДПРИЯТИЕ
2 уровень ЦЕХ
3 уровень ОТДЕЛ
4 уровень ФАМИЛИЯ (Должность)
Подскажите пожалуйста как быть

[segas]

Если можно то желательно с коментариями
Заранее благодарен.

[lmikle]

Ну, для начала, неплохо было бы почитать о том, как проектировать БД. Т.е. твою одну таблицу надо привести к 3й НФ. Т.е. это должно быть 5 таблиц.

А выводить просто - тебе надо написать процку, которая будет находить нужный родительский узел, а потом просто добалять в него потомков. Для внутренней идентификации можно попробовать использовать свойство Data для указания типа узла (предприятие, отдел и т.д.).

Если по простому, то где-то так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

function TForm1.FindTypedNode(AType : Integer; ACaption : String) : TTreeNode; var   I : Integer; begin   Result := Nil;   For I := 0 To TreeView1.Items.Count-1 Do     If (Integer(TreeView1.Items[i].Data) =  AType) And        (ACaption = TreeView1.Items[i].Caption) Then       Begin         Result := TreeView1.Items[i];         Break;       End; end;   function TForm1.CreateTypedNode(AParent : TTreeNode; AType : Integer; ACaption  :String) : TTreeNode; begin   Result := TreeView1.Items.AddChild(AParent,ACaption);   Result.Data := Pointer(AType); end;   procedure TForm1.AddNode(APredpr, ACeh, AOtdel, AFIO); var   APNode : TTreeNode;   ACNode : TTreeNode;   AONode : TTreeNode;   AFNode : TTreeNode; begin   APNode := FindTypedNode(1,APredpr);   If APNode = Nil Then APNode := CreateTypedNode(Nil,1,APredpr);     ACNode := FindTypedNode(2,ACeh);   If ACNode = Nil Then ACNode := CreateTypedNode(APNode,2,ACeh);     AONode := FindTypedNode(3,AOtdel);   If AONode = Nil Then AONode := CreateTypedNode(ACNode,3,AOtdel);     AFNode := FindTypedNode(4,AFIO);   If AFNode = Nil Then AFNode := CreateTypedNode(AONode,4,AFIO); end;

Код довольно "грязный" и не оптимальный, но идея должна быть понятна.

[segas]

А можно как нибудь на весь модуль глянуть?
и желательно с комментариями , если конечно же не трудно...
Просто я новичек в этом деле и не все еще понимаю

И еще вопросик, а без нормализации никак?
прост в дальнейшем у каждого сотрудника необходимо будет вывести оборудование закрепленное за ним, а там уйма таблиц

[lmikle]

Да я только этот код то и написал. Даже не в дельфе, так что проверь именя свойств.

Без нормализации можно, но посуди сам. У тебя, например, 100 сотрудников. Так вот, у тебя будет повторено 100 раз название предприятия... А то, что будет еще 4 таблички - так это фигня, на самом деле. Вообще, уходи ты с этого парадокса... на FireBird, например.

Но пример написан под существующую таблицу. Это просто отдельная фкнуция, так что ее просто надо вызвать в нужном месте. Из обязательности, только то, что дерево называется TreeView1, и то, можно переделать на параметр...

[Aristarh Dark]

Я люблю TreeView, очень хороший контрол.
А топикстартеру советую почитать вот эту 03088 статью в DRKB

[segas]

Вообщем я реализовал следующим образом

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70

procedure TForm1.FormCreate(Sender: TObject); var i1,i2,i3,i4,i5:integer;     j1,j2,j3,j4:integer;     k2,k3,k4,k5:integer;     rc1,rc2,rc3,rc4:integer;     s:string;   begin //построение дерева TreeView1.Items.BeginUpdate;//запрет обновления TreeView1.Items.Clear;   //очистка списка k2:=0;k3:=0;k4:=0;k5:=0; Query1.Active:=true; //подключение баз Query1.First;   //--------------Первый уровень------------- Query1.Filtered:=true; rc1:=Query1.RecordCount; for i1:=1 to rc1 do    begin // ++i1    s:=Query1PREDPRIATIE.AsString;    TreeView1.Items.Add(nil,s);    j1:=i1+k2+k3+k4+k5; //--------------Второй уровень-------------      rc2:=Query2.RecordCount;    if rc2>0 then       begin  // ++rc2       Query2.First;       for i2:=1 to rc2 do        begin    //  ++i2          s:=Query2CEX.AsString;          TreeView1.Items.AddChild(TreeView1.Items.Item[j1-1],s);          k2:=k2+1;          j2:=i1+k2+k3+k4+k5;Query2.Next;        end;    //--------------Третий уровень-------------      rc3:=Query3.RecordCount;    if rc3>0 then      begin  // ++rc3       Query3.First;       for i3:=1 to rc3 do          begin    //  ++i3          s:=Query3OTDEL.AsString;       // if QuStrName.AsString<>'' then s:=s+' ('+QuStrName.AsString+')';          TreeView1.Items.AddChild(TreeView1.Items.Item[j2-1],s);          k3:=k3+1;          j3:=i1+k2+k3+k4+k5;Query3.Next;          End; //--------------Четвертый уровень-------------        rc4:=Query4.RecordCount;      if rc4>0 then       begin  // ++rc4       Query4.First;       for i4:=1 to rc4 do        begin    //  ++i4        s:=Query4FAMILIA.AsString;        TreeView1.Items.AddChild(TreeView1.Items.Item[j3-1],s);        k4:=k4+1;        j4:=i1+k2+k3+k4+k5;Query4.Next; //     Query1.Next;  Query2.Next;Query3.Next;        end;       end;      end;  End;   end;   TreeView1.Items.EndUpdate;//разрешение обновления

Только выводит он не все( цех раскрывается только 1 (последний) ) отдел от последнего цеза нормально выводит сотрудников

подскажите где ошибся

[segas]

Никто не знает?

[lmikle]

Честно говоря, за такой код руки надо отрывать. И никто не хочет в нем разбираться. Я же тебе дал процедуры создания узлов дерева. Там просто проходишь по всем записям и вызываешь эту процку с соотв. параметрами. Она тебе дерево и построит.

[segas]

Сообщение от lmikle

Честно говоря, за такой код руки надо отрывать. И никто не хочет в нем разбираться. Я же тебе дал процедуры создания узлов дерева. Там просто проходишь по всем записям и вызываешь эту процку с соотв. параметрами. Она тебе дерево и построит.

Вообщем реализовал следующим образом:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

TreeView1.Items.Clear;  Query1.First;  ndApt:=TreeView1.Items.Add(nil,Query1PREDPRIATIE.Value);    Query2.First;     for i:=1 to Query2.RecordCount do begin     nd1:=TreeView1.Items.AddChild(ndApt, Trim(Query2CEX.Value));      Query3.First;        for j:=1 to Query3.RecordCount do begin        nd2:=TreeView1.Items.AddChild(nd1, Trim(Query3OTDEL.Value));          Query4.First;          for k:=1 to Query3.RecordCount do begin          nd3:=TreeView1.Items.AddChild(nd2, Trim(Query4FAMILIA.Value));          Query4.Next;        end;        Query3.Next;      end;  Query2.Next;  end; Query1.Next;

А Этот код тоже считается "ГРЯЗНЫМ"?