树的动态查询生成

最新推荐文章于 2020-08-04 15:38:21 发布

aluyue

最新推荐文章于 2020-08-04 15:38:21 发布

阅读量519

点赞数

分类专栏：控件使用文章标签： integer string

控件使用专栏收录该内容

2 篇文章 0 订阅

订阅专栏

procedure ReadTree(tnode: TTreeNode; Fvalue: Integer);

procedure TForm1.Button5Click(Sender: TObject); begin ReadTree(nil,0); end;

procedure TForm1.ReadTree(tnode:TTreeNode;Fvalue: Integer); Var i: integer; Flist:TStringList; Flist1:TStringList; s,str:string; snode:TTreeNode; begin with ADOQuery1 do begin close; sql.clear; sql.add('select dep_parent,dep_serial,dep_name from dt_dep where dep_parent=:v1 '); Parameters.ParamByName('V1').Value:=Fvalue; Open; First; end; Flist:=TStringList.Create; Flist1:=TStringList.Create; while not ADOQuery1.eof do begin Flist.Add(trim(ADOQuery1.fieldbyname('dep_name').asstring)); Flist1.Add(ADOQuery1.fieldbyname('dep_serial').AsString); ADOQuery1.next; end; for i:= 0 to flist.Count-1 do begin s:=flist1.Strings[i]; str:=flist.Strings[i]; snode:=Treeview1.items.addchild(tnode,str); ReadTree(snode,strtoint(s)); end; flist.free; flist1.free; end;

如果嫌这样麻烦或数据量大对速度要求严格，可以摒弃类似这种递归的方法可先查询生成文件 Tree.txt 然后 LoadFromFile() 来实现