关闭

delphi中父母表示法递归构造treeview(在递归函数之外查询数据库)

标签: delphi数据库integermicrosoftquerybutton
1301人阅读 评论(0) 收藏 举报

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ComCtrls, StdCtrls;
type
  PTNodeInfo=^TNodeInfo;
  TNodeInfo=record
  id,preId:string;
  end;
type
  TArr=array of TNodeInfo;
type
  TForm1 = class(TForm)
    Button1: TButton;
    tree: TTreeView;
    Query1: TADOQuery;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure CreateTree(var arr:TArr);
    procedure InitArray(var arr:TArr);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

 

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.InitArray(var arr:TArr);
var

  Query:TADOQuery;
  i:integer;
  sql:string;
begin
  Query:=TADOQuery.Create(nil);
  Query.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:/实验/递归父母表示/新建 Microsoft Office Access 应用程序.mdb;Persist Security Info=False';
  sql:= 'select * from table1';
  Query.Close;
  Query.SQL.Clear;
  Query.SQL.Add(sql);
  Query.Open;
  Query.First;
  SetLength(arr,Query.RecordCount);
  i:=0;
  while not Query.Eof do
  begin
    arr[i].id:=Query.fields[0].AsString;
    arr[i].preId:=Query.Fields[1].AsString;
    Inc(i);
    Query.Next;
  end;

end;

procedure TForm1.CreateTree(var arr:TArr);
var
  p:pTNodeInfo;
  procedure CreateTree(Pre:PTNodeInfo;preNode:TTreeNode;var arr:TArr);
  var
    pInfo:pTNodeInfo;
    node:TTreeNode;
    i:integer;
  begin
    i:=length(arr)-1;
    while i>=0 do
    begin
      new(pInfo);
      pInfo:=@arr[i];
      if pInfo.preId=pre.id then
      begin
        node:=tree.Items.AddChild(preNode,pInfo.id);
        node.Data:=pInfo;
        CreateTree(pInfo,node,arr);
      end;
    i:=i-1;
    end;
  end;
begin
  new(p);
  p.id:='000';
  createTree(p,nil,arr);
  tree.FullExpand;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
arr:TArr;
i:Integer;
begin
  InitArray(arr);
  CreateTree(arr);
  memo1.Clear;
  for i:=0 to tree.Items.Count-1 do
  memo1.Lines.Add(ptnodeinfo(tree.Items[i].data).Id+'  '+ptnodeinfo(tree.Items[i].data).preId);

end;

end.                               

0
0

猜你在找
【直播】机器学习&数据挖掘7周实训--韦玮
【套餐】系统集成项目管理工程师顺利通关--徐朋
【直播】3小时掌握Docker最佳实战-徐西宁
【套餐】机器学习系列套餐(算法+实战)--唐宇迪
【直播】计算机视觉原理及实战--屈教授
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之矩阵--黄博士
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之凸优化--马博士
【套餐】Javascript 设计模式实战--曾亮
查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:9633次
    • 积分:140
    • 等级:
    • 排名:千里之外
    • 原创:5篇
    • 转载:0篇
    • 译文:0篇
    • 评论:2条
    文章存档
    最新评论