delphi中accesss实现树形结构查询系统

主要是要读取数据库的信息，而delphi界面是一个树形结构。

例如有一个Ascess数据库：示例.MDB，内有一张表：“国家”，表的内容如下：

编号        名称
  01                 中国  
  0101             吉林省  
  010101         长春市  
  010102         吉林市  
  0102             江苏省  
  010201         南京市  
  010202         常州市  
  02                 美国  
  0201             密歇根州  
  020101         底特律市  
  0202             华盛顿州  
  020201         温哥华市  
  020202         西雅图市  
  03                 澳大利亚

在 TreeView 中显示结构

1.  新建一个Delphi工程

2.  在主窗体上，放一个TTreeView控件、一个TADoDataSet控件和一个按钮，

    设置ADoDataSet1的ConnectionString属性为：Provider=Microsoft.Jet.OLEDB.4.0;Data Source=示例.mdb;Persist Security Info=False

3.  添加按钮响应代码：

procedure TForm1.Button1Click(Sender: TObject);
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;