Access и Delphi

[Mitron]

Подскажите, пожалуйста, как заполнить TreeView из базы.
имеется несколько таблиц
1. Predmets: idPr, name
2. Languages: idLG, name
3. Files: id, idPr, IdLG, filename, file

[mihali4]

Если я правильно понял, то так:
1. Занесение в дерево всех записей из Predmets (простым перебором всех записей)
2. Занесение всех записей из Languages в качестве детей для каждой записи из Predmets (аналогично)
3. Занесение записей из Files в соответствии с idPr, IdLG. Для однозначной идентификации TreeNodes по idPr, IdLG при их создании нужно использовать метод TreeView.Items.AddObject, где указывать параметром объекта соответствующий идентификатор (idPr или IdLG).

[Paul Hindenburg]

mihali4 прав, но это ведь долго будет происходить, я предлагаю изменить структуру БД. объединить таблицы Predmets и Languages - структура у них одинакова. Только нужно будет добавить третье поле - тип (новая таблица в которой будет два значения Predmets и Languages). а потом рекурсивно перебирать каждый элемент таблицы (объединенной).

вот примерная под программа обхода строк таблицы

procedure fTreeFill(ParentNode : TTreeNode; ParentKey : Integer);
var
  ArrId : Array of Integer;
  ArrName : Array of String;
  ArrENIR : Array of String;
  i : Integer;
  PNode : TTreeNode;
  vetkadata:pnoder;
//  keyData:Array of Integer;
begin
  with Form1.QuFill do
    begin
      active := false;
      SQL.Clear;
      SQL.Add('select * from gruppa where ParentKey='+IntToStr(ParentKey));
      active := true;
      SetLength(ArrId, RecordCount);
      SetLength(ArrName, RecordCount);
      SetLength(ArrENIR, RecordCount);
//      SetLength(keyData, RecordCount);
      i := 0;
      while not EOF do
        begin
          ArrId[i] := FieldByName('KeyId').AsInteger;
          ArrName[i] := FieldByName('NameID').AsString;
          ArrENIR[i] := FieldByName('ENIR').AsString;
//          keyData[i] := FieldByName('KeyId').AsInteger;
          Inc(i);
          Next;
        end;
      Close;
    end;
  for i:=0 to Length(ArrId)-1 do
    begin
      form1.TreeView1.Items.BeginUpdate;
      PNode := Form1.TreeView1.Items.AddChild(ParentNode, Arrenir[i]+'   '+ArrName[i]);
      vetkadata:=new(pnoder);
      vetkadata.val:=0;
      vetkadata.tiprab := 0;
      PNode.Data:=vetkadata;
      pnoder(PNode.Data).tiprab :=  ArrId[i];
      pnoder(PNode.Data).val := ArrId[i];
      if pnode.Level <> 0 then
      begin
            pnode.ImageIndex := 2;
            pnode.SelectedIndex := 2;
//            pnode.StateIndex := 5;
      end;
      fTreeFill(PNode,ArrId[i]);
      form1.TreeView1.Items.EndUpdate;
    end;
    form1.StatusBar.Panels.Items[0].Text:='Элементов в дереве: '+inttostr(form1.TreeView1.Items.Count);
    //form1.TreeView1.FullExpand;
    //form1.TreeView1.AlphaSort(true);
ArrId := nil;
ArrName := nil;
ArrENIR := nil;
end;

так гораздо лучше т.к. в данном случае аналитика не очень различается

[Mitron]

Можно тогда показать структуру таблицы.А то я чегото непонял.

[Paul Hindenburg]

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

Можно тогда показать структуру таблицы.А то я чегото непонял.

поля таблицы:
PrimaryKey - int - это первичный кюч таблицы
KeyKind - int - а это ссылка на родителя , т.е. на PrimaryKey
NameText varchar - непосредственно

я тут чето архив добавить не могу))))
на мыло могу сбросить, либо объясни как добавить)))

[mihali4]

Да зачем тут архив?
Три поля:
- код ветки (автоинкремент, первичный ключ)
- код родителя (0, если в корне) (тоже включить в первичный ключ)
- текст ветки

[Paul Hindenburg]

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

Да зачем тут архив?
Три поля:
- код родителя (0, если в корне) (автоинкремент, первичный ключ)
- код ветки (тоже включить в первичный ключ)
- текст ветки

я хотел готовый проект по теме дать - я с этим TTreeView - оч хорошо поработал)))