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;
---------------------
作者：清风古韵
来源：CSDN
原文：https://blog.csdn.net/ttpage/article/details/9161689
版权声明：本文为博主原创文章，转载请附上博文链接！