如何把SQL中的记录值与Treeview联系起来，在线等…

Question

SQL中有表MeterielType字段为：
No  Type  ParentNo我想让Treeview树的内容与上面表的内容相对应，我搜了很久，找不到我想要的，请问代码如何写，TKS！

Answer 1

就写一个，其他的你自己写吧。
var
  TreeNode:TTreeNode;
begin
  with Treeview1.Items do
  begin
    Clear;
    BeginUpdate;
    TreeNode :=Add(nil,'No');
    with Query1 do
    begin
      SQL.Clear;
      SQL.Add('select No from MeterielType');
      try
        if not prepared then prepare
        Open;
      except
        Application.MessageBox(PChar('无法正确连接数据库'),'错误',MB_OK+MB_ICONERROR);
       Exit;
      end;
      if not IsEmpty then
      begin
        First;
        while not Eof
        beign
          AddChild(TreeNode,FieldbyName('no').AsString);
          Next;
        end;
        close;
      end;
    EndUpdate;
  end;
end;        

Answer 2

刚才的没有实验，用这个。
procedure TForm1.Button1Click(Sender: TObject);
var
  TreeNode:TTreeNode;
begin
  with Treeview1.Items do
  begin
    Clear;
    BeginUpdate;
    TreeNode :=Add(nil,'No');
    with Query1 do
    begin
      SQL.Clear;
      SQL.Add('select No from MeterielType');      try
        if not prepared then prepare;
        Open;
      except
        Application.MessageBox(PChar('无法正确连接数据库'),'错误',MB_OK+MB_ICONERROR);
       Exit;
      end;      if not IsEmpty then
      begin
        First;
        while not Eof do
        begin
          AddChild(TreeNode,FieldbyName('no').AsString);
          Next;
        end; {end while}
        close;
      end; {end if}
    end; {end with Query1}
    EndUpdate;
  end;{end with Treeview1}
end;