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

方法很简单，先创建一张新表：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'