Hallo zusammen,
da ich vor dem Problem stand, wie ich einen TreeView dynamisch aus zwei Tabellen fülle, möchte ich euch die Lösung nicht vorenthalten. Den Denkanstoss hat mir
Phoenix in diesem
Beitrag gegeben.
Als Grundlage dienen diese Zwei Tabellen : (Das Feld ID in beiden Tabellen ist AutoInc.)
Tabelle 1:
SQL-Code:
CREATE TABLE CATEGORY (
ID INTEGER NOT NULL,
PARENTID INTEGER,
DESCRIPTION VARCHAR(50) NOT NULL,
"SEQUENCE" INTEGER NOT NULL
);
Tabelle 2:
SQL-Code:
CREATE TABLE FAQ (
ID INTEGER NOT NULL,
CATID INTEGER NOT NULL,
HEADER VARCHAR(255) NOT NULL,
CODE BLOB SUB_TYPE 0 SEGMENT SIZE 120 NOT NULL,
DESCRIPTION BLOB SUB_TYPE 0 SEGMENT SIZE 120 NOT NULL,
NOTES BLOB SUB_TYPE 0 SEGMENT SIZE 120 NOT NULL
);
Mit dieser
SQL-Abfrage erstelle ich mir nun den TreeView :
SQL-Code:
SELECT c.*, f.*
FROM Category c
LEFT JOIN FAQ f
ON f.CatdId = c.ID
ORDER BY c.PARENTID DESC, c.DESCRIPTION, f.HEADER
Die dazugehörige Procedure in Delphi :
Delphi-Quellcode:
procedure TForm3.FillTreeView;
function GetDescription(id: integer):
string;
begin
with IBQuery1
do
begin
SQL.Clear;
SQL.Text := '
SELECT description FROM category where id=' + IntToStr(id);
Open;
result := Fields[0].AsString;
Close;
end;
end;
function GetParentID(id: integer):integer;
begin
with IBQuery1
do
begin
SQL.Clear;
SQL.Text := '
SELECT parentid from category where id=' + IntToStr(id);
Open;
result := Fields[0].AsInteger;
Close;
end;
end;
function TreeItemSearch(TV: TTreeView; SearchItem:
string; ParentItem: integer): TTreeNode;
var
i : Integer;
begin
result :=
nil;
if (TV =
nil)
or (SearchItem = '
')
then Exit;
for i := 0
to TV.Items.Count - 1
do
begin
if SearchItem = TV.Items.Item[i].Text
then
begin
if TV.Items.Item[i].Parent.
Index = -1
then
begin
result := TV.Items.Item[i];
Exit;
end
else
if TV.Items.Item[i].Parent.Text = GetDescription(ParentItem)
then
begin
result := TV.Items.Item[i];
Exit;
end;
end;
end;
end;
function TreeNodeSearch(aNode: TTreeNode; SearchItem:
string): TTreeNode;
var
I: Integer;
begin
result :=
nil;
if (aNode =
nil)
or (SearchItem = '
')
then Exit;
for I := 0
to aNode.Count - 1
do
begin
if SearchItem = aNode.Item[i].Text
then
begin
Result := aNode.Item[i];
exit;
end;
end;
end;
var
tmpNode: TTreeNode;
pid: Integer;
begin
with IBQuery2
do
begin
SQL.Clear;
SQL.Text := '
SELECT c.*, f.* FROM Category c LEFT JOIN FAQ f ON f.CatId = c.ID ORDER BY c.PARENTID ASC, c.DESCRIPTION, f.HEADER;';
Open;
while not eof
do
begin
pid := GetParentID(FieldByName('
ParentId').AsInteger);
if TreeNodeSearch(TreeItemSearch(TreeView1, GetDescription(FieldByName('
ParentID').AsInteger), pid), FieldByName('
Description').AsString) =
nil then
begin
tmpNode := TreeView1.Items.AddChild(TreeItemSearch(TreeView1, GetDescription(FieldByName('
ParentID').AsInteger), pid), FieldByName('
Description').AsString);
end;
if (TreeItemSearch(TV_Category, GetDescription(FieldByName('
ParentID').AsInteger), pid) <>
nil)
and (FieldByName('
Header').AsString <> '
')
then
TreeView1.Items.AddChild(tmpNode, FieldByName('
Header').AsString);
next;
end;
end;
end;
Eine kurze Erklärung :
Die SELECT-Abfrage wird ausgeführt, danach geht die While-Schleife jeden Datensatz durch. Dabei wird überprüft, ob die aktuelle Category schon erstellt ist. Ist dieses nicht der Fall, wird nach der FirstNode gesucht und die TreeNode oder nil zurückgegeben. Wird nil zurückgegeben, dann wird die neue Node erstellt und zwischengespeichert. In der zweiten IF-Abfrage wird dann zur Node noch die Überschrift als NodeChild eingefügt.
Damit erhalte ich den kompletten Kategorienbaum mit mehreren Nodes und in der letzten Node noch die Überschrift des Eintrags für die Kategorie.
Bis zu welcher tiefe diese Procedure geeignet ist, habe ich bis jetzt noch nicht testen können. Vielleicht hat jemand ja entsprechende Daten, womit er es testen kann.
Verbesserungsvorschläge und andere Ideen erwünscht
Edit: Titel geändert.
Edit2: Die Zeile 61 geändert.
Edit3: Weitere Tests haben ergeben, dass dieser Sourcecode nur dann sauber funktioniert, wenn es keine doppelten Einträge ab der 3. Ebene gibt.
Edit4: Die Probleme aus Edit3 sollten sich durch die geännderte Function TreeItemSearch und der zusätzlichen Function GetParentID erledigt haben.