如何在delphi中实现树形结构查询系统？

Question

如何在delphi中实现树形结构查询系统？   主要是要读取数据库的信息 
   而delphi界面是一个树形结构   比如说我这里有一个数据库a  在a里面有一个关于学科的三个表，表中有一级目录，二级目录，三级目录，我怎样才能用delphi控件来实现读取一级目录，在一级目录里有二级目录，在二级目录里有三级目录，然后在同一界面上显示出来。

Answer 1

http://downloads.2ccc.com/simples/database/vvyang_tree.rar
下载这个Demo看看就明白了
例如表“国家”可以是这样：
编号      名称
----------
01        中国
0101      吉林省
010101    长春市
010102    吉林市
0102      江苏省
010201    南京市
010202    常州市
02        美国
0201      密歇根州
020101    底特律市
0202      华盛顿州
020201    温哥华市
020202    西雅图市
03        澳大利亚
3、在 TreeView 中显示结构
procedure CreateTree;
const
  ID_DEPT = 2;
var
  nLevel: Integer;
  pNodes: array[0..1023] of TTreeNode;
  lpID, lpName: string;
begin
  ADODataSet1.Close;
  ADODataSet1.CommandText := 'SELECT * FROM [国家] ORDER BY [编号]';
  ADODataSet1.Open;
  pNodes[0] := nil;
  TreeView1.Items.Clear;
  with ADODataSet1.Recordset do
    while not Eof do
    begin
      lpID := Fields['编号'].Value;
      lpName := Fields['名称'].Value;
      nLevel := Length(lpID) div ID_DEPT;
      pNodes[nLevel] := TreeView1.Items.AddChild(pNodes[nLevel - 1], lpName);
      MoveNext;
    end;
end;

Answer 2

cuteant(我这张旧船票还能否登上你的破船|涛声是否依旧) 
================================  O像人物。。希望能登上2月份的专家榜