Delphi:TreeView结合Access生成动态目录

来源：互联网发布：深圳阿里云具体地址编辑：程序博客网时间：2024/06/06 19:06

方法很简单，先创建一张新表：TClass ，字段

ID : 自动编号

Caption : 文本 //目录标题

Parent : 数字 //父目录ID

Delphi 中添加record类型

TNodeData = record
    ID:integer;
    Caption:string[50];
    Note,Password:string;
end;
nodeData=^TNodeData;

添加代码

procedure TMainFrm.FillTreeView(parentID:Integer;ParentNode:TTreeNode);var query:TADOQuery; Node:TTreeNode; Pnode:NodeData;begin query:=TADOQuery.Create(self); with query do begin try Connection:=ADOConnection1; Close; SQL.Text:=('SELECT * FROM TClass WHERE Parent='+IntToStr(parentID)); Open; First; while not Eof do begin new(pnode); pnode.id:=fieldbyname('ID').AsInteger; Pnode.caption:=fieldbyname('Caption').AsString; node:=Treeview1.Items.AddChildObject(parentNode,pnode.caption,pnode); //目录页 FillTreeView(fieldbyname('ID').AsInteger,node);//递归调用 Next; end; Close; finally Free; end; end;end;

好了，现在找一个地址开始调用了，可以在窗体FormCreate事件中，写上代码

with TreeView1 do begin Items.BeginUpdate; Items.Clear; FillTreeView(0,nil); Items.EndUpdate; end;

这样就可以了