treeview(读取SQL表中某个字段)

var
index:integer;
strfzyw:string;
treeNode:TTreeNode;
begin
{-----------按业务员分}
strfzyw:=main_fm.RzStatusPane2.Caption;
if rzpagecontrol1.ActivePage=TabSheet2 then
begin
  with dm_fm.Query_xl do
  begin
  Close;
  SQL.Clear;
  SQL.Text:='select * from zlkjd where enname='''+strfzyw+'''';
  Open;
  end;
  if dm_fm.Query_xl.RecordCount>0 then                //读取UserName建立相应的TreeNode of tvUser
  begin
        rztreeview3.Items.Clear;
        rztreeview3.Items.AddFirst(nil, '全部');
        for index:=0 to dm_fm.Query_xl.RecordCount-1 do
        begin
        RzTreeView3.Items.AddChild(rztreeview3.TopItem, dm_fm.Query_xl.FieldByName('zlkjd').AsString );
        dm_fm.Query_xl.Next;
        end;
            //////////展开第一个结点/////
    RzTreeView3.HideSelection:=false;
      treeNode:=RzTreeView3.Items.Item[0];
     while   treeNode.getFirstChild   <>   nil   do
          treeNode:=treeNode.getFirstChild;
      treeNode.Selected:=true;
  end;
  dm_fm.Query_xl.Active:=false;
end;
end;