您现在的位置:首页 >> 数据库 >> 数据库 >> 内容

根据数据库创建无限深度的Tree

时间:2011-9-3 14:57:33 点击:

  核心提示:procedure CreateSubTree(FNodeName: string; Node: TTreeNode = nil);varmLocalName: string;TreeNode: TT...

procedure CreateSubTree(FNodeName: string; Node: TTreeNode = nil);
var
 mLocalName: string;
 TreeNode: TTreeNode;
 Ads_Tmp: TADODataSet;
begin
 ADS_Tmp := TADODataSet.Create(Self);
 ADS_Tmp.Connection := ADOConn;
 with ADS_Tmp do
 begin
   Close;
   CommandText := 'Select * from Type Where ParentID =' + FNodeName;
   Open;
   First;
   while not Eof do
   begin
     mLocalName := FieldbyName('ID').Asstring;
     TreeNode := TreeView.Items.AddChild(Node, FieldByName('Name').AsString);
     CreateSubTree(mLocalName, TreeNode);
     Next;
   end;
 end;
end;

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2017 版权所有 All Rights Reserved.
  • 沪ICP备05001939号