TreeView и БД

[Constellation]

Возможно ли организовать связь между деревом и БД таким образом, чтобы значения нулевого уровня записывались в одну базу, а значения первого - в другую, причем чтобы после нового открытия формы происходила правильная загрузка из баз и иерерхия сохранялась???

[mihali4]

Посмотрите
http://programmersclub.ru/files/dfaq.rar
У меня там именно так и организовано (только не в разные БД (???), а в разные таблицы одной БД).
Если устроит, объясню.

[Constellation]

Ой, Вы знаете, было бы вообще великолепно услышать пояснения. Думаю, это то, что мне нужно =)

[mihali4]

Тогда - структура таблиц:
TableTema
Id - autoincrement
Tema - string
TableRazdel
Id - autoincrement
IdTema - integer
Razdel - string
TableQuestion
Id - autoincrement
IdRazdel - integer
Question - string
Answer - memo
Процедура чтения базы:

procedure Tfmain.GetTree;
var nnod,nnor: TTreeNode;
    MyRecPtr: PMyRec;
    rnum,wnum: integer;
begin
TreeView.Items.BeginUpdate;
PLoad.Caption:='Подождите. Загрузка базы';
PLoad.Visible:=True;
Gauge.Visible:=PLoad.Visible;
Application.ProcessMessages;
rnum:=TQuest.RecordCount;
wnum:=0;
Gauge.Progress:=wnum;
Gauge.MaxValue:=rnum;
TreeView.SortType:=stNone;
TreeView.Items.Clear;
TTema.First;
if TTema.RecordCount>0 then
begin
while not TTema.Eof do
begin
New(MyRecPtr);
MyRecPtr^.FName:=TTemaId.Value;
MyRecPtr^.LName:='Tema';
MyRecPtr^.KName:=True;
nnod:=TreeView.Items.AddObject(nil, TTemaTema.Text, MyRecPtr);
TRazdel.Filter:='IdTema='+IntToStr(TTemaId.Value);
if TRazdel.RecordCount>0 then
begin
TRazdel.First;
while not TRazdel.Eof do
begin
New(MyRecPtr);
MyRecPtr^.FName:=TRazdelId.Value;
MyRecPtr^.MName:=TRazdelIdTema.Value;
MyRecPtr^.LName:='Razd';
MyRecPtr^.KName:=True;
nnor:=TreeView.Items.AddChildObject(nnod, TRazdelRazdel.Text, MyRecPtr);
TQuest.Filter:='IdRazdel='+IntToStr(TRazdelId.Value);
if TQuest.RecordCount>0 then
begin
TQuest.First;
while not TQuest.Eof do
begin
New(MyRecPtr);
MyRecPtr^.FName:=TQuestId.Value;
MyRecPtr^.MName:=TQuestIdRazdel.Value;
MyRecPtr^.LName:='Quest';
MyRecPtr^.KName:=TQuestFull.Value;
TreeView.Items.AddChildObject(nnor, TQuestQuestion.Text, MyRecPtr);
Inc(wnum);
Gauge.Progress:=wnum;
Application.ProcessMessages;
TQuest.Next;
end;
end;
TRazdel.Next;
end;
end;
TTema.Next;
end;
end;
TTema.Filter:='';
TRazdel.Filter:='';
TQuest.Filter:='';
Gauge.Visible:=False;
Application.ProcessMessages;
TreeView.SortType:=stText;
TreeView.Items.EndUpdate;
Application.ProcessMessages;
TreeView.Items.GetFirstNode;
GetLast(lastnod);
TreeView.Selected:=lastnode;
Application.ProcessMessages;
end;

В таком вот духе. Под себя, думаю, подгоните...
Объекты для нодов, если не нужны, исключите.

[Constellation]

Спасибо, попробую разобраться 8)

[Constellation]

Можно еще пару вопросов?
Объясните, пожалуйста, что понимается под MyRecPtr и Gauge?

[mihali4]

Gauge - это стандартный компонент ТGauge...
MyRecPtr - указатель на экземпляр записи MyRec.
Вот его объявление:

type
PMyRec = ^TMyRec;
TMyRec = record
  FName, MName: longint;
  LName: string;
  KName: boolean;
end;

Это - для хранения информации об объекте, связанном с конкретной TNode (мне она понадобилась для упрощения поиска в дереве).
Я вам указал - если объекты не нужны - выкиньте их.
Тогда и соответствующие методы у вас немного изменятся, например
не TreeView.Items.AddChildObject, а TreeView.Items.AddChild.
Про это есть в хэлпе...

[Constellation]

Теперь встала другая проблема, над которой бьюсь уже второй день. Все хорошо, когда на создание формы происходит загрузка дерева из БД. Но сейчас я не могу редактировать и добавлять записи. Если раньше, ограничивая количество дочерних уровней, я использовала параметр level или значение индекса, то теперь я не могу понять, как эти данные отображаются в дереве, то есть как их идентифицировать, поскольку уже ни тот, ни другой параметры просто не определяются. В результате получается добавлять в режиме редактирования только родительский уровень. Что тут можно сделать?

[mihali4]

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

В результате получается добавлять в режиме редактирования только родительский уровень. Что тут можно сделать?

Поработайте с моей программкой (включите режим администратора). Там добавление, редактирование и удаление производятся на любом уровне. Идентификация происходит как раз по объектным данным ноды. В частности, там содержится информация об уровне (типе) и конкретном идентификаторе записи. А имея его, можно добавить дочернюю запись.
Надеюсь, добавление дочерних нодов в дерево у вас затруднения не вызывает...

[Constellation]

Действительно, все оказалось не так страшно и сложно, стоило просто немного посидеть и разобраться 8) Спасибо Вам ОГРОМНОЕ!!!!!!!!!! Все сделала =)