Delphi:TreeView结合Access生成动态目录

最新推荐文章于 2025-05-09 15:35:42 发布

Zimmerk

最新推荐文章于 2025-05-09 15:35:42 发布

阅读量2.6k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： delphi access query integer string

本文链接：https://blog.youkuaiyun.com/bllqbz/article/details/5293552

本文介绍如何在Delphi中利用TreeView组件结合Access数据库动态生成目录结构。通过创建TClass表，包含ID、Caption和Parent字段，然后定义记录类型TNodeData，用以存储节点信息。在FillTreeView过程中，使用ADOQuery查询数据库中Parent为指定ID的记录，递归地添加子节点。在窗体加载时，调用FillTreeView函数，初始化TreeView结构。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

方法很简单，先创建一张新表：TClass ，字段

ID : 自动编号

Caption : 文本 //目录标题

Parent : 数字 //父目录ID

Delphi 中添加record类型

TNodeData = record
    ID:integer;
    Caption:string[50];
    Note,Password:string;
end;
nodeData=^TNodeData;

添加代码

procedure TMainFrm.FillTreeView(parentID:Integer;ParentNode:TTreeNode); var query:TADOQuery; Node:TTreeNode; Pnode:NodeData; begin query:=TADOQuery.Create(self); with query do begin try Connection:=ADOConnection1; Close; SQL.Text:=('SELECT * FROM TClass WHERE Parent='+IntToStr(parentID)); Open; First; while not Eof do begin