delphi 根据数据库结构生成TreeView

procedure TUIOperate.FillTree(treeview: TTreeView);

var

findq: TADOQuery;

node: TTreeNode;

//这个方法是根据记录的id字段值,查找TreeView上的父节点

function FindParentNode(id:Integer):TTreeNode;

var

i:Integer;

begin

Result := nil;

for i := 0 to treeview.Items.Count - 1 do

begin

//比较Node的Data值和记录的id值

if Integer(treeview.Items[i].Data) = id then

begin

Result := treeview.Items[i];

Break;

end;

end;

end;

begin

findq := TADOQuery.Create(nil);

findq.Connection := controler.DataConnect.Connection; //这里的Connection指向你的数据连接

try

treeview.Items.BeginUpdate;

treeview.Items.Clear;

//选出所有记录,并按parentid排序,这样可以保证先添加顶级节点,在下级记录添加时,总能找到父节点

findq.SQL.Text := ‘SELECT * FROM [Catalog] order by parentid,id‘;

findq.Open;

while not findq.Eof do

begin

//如果是最顶级,直接添加到Treeview

if findq.FieldByName(‘parentid‘).AsInteger = -1 then

//将id值,保存在Node的Data中,以便查找用

treeview.Items.AddObject(nil,findq.FieldByName(‘CatalogName‘).AsString,Pointer(findq.FieldByName(‘id‘).AsInteger))

else

begin

//查找上级节点

node := FindParentNode(findq.FieldByName(‘parentid‘).AsInteger);

if node <> nil then

treeview.Items.AddChildObject(node,findq.FieldByName(‘CatalogName‘).AsString,Pointer(findq.FieldByName(‘id‘).AsInteger));

end;

findq.Next;

end;

finally

findq.Free;

treeview.Items.EndUpdate;

end;

end;

原文地址:https://www.cnblogs.com/jijm123/p/11372966.html

时间: 2024-10-04 08:25:48

delphi 根据数据库结构生成TreeView的相关文章

根据数据库结构生成RzCheckTree

现在大多数的方法是采用递归,但这种操作会频繁的去select数据库,降低了执行效率,稍微改动一些,效果会好不少,这里介绍一种方法,即一次性select出所有数据,然后按照ParentID排序,逐条添加到TreeView,添加前,先遍历TreeView,查找他的上一级节点,遍历Treeview可比select数据快啊,下面看代码: 数据表结构,最顶级parentid值我用的是-1,大家也可以用其他值,但要保证最顶级parentid值最小,层次越深, procedure TUIOperate.Fil

Navicat生成数据库结构同步SQL

作为一个苦逼的技术男,在做开发的时候经常会遇见程序版本升级,数据库结构变化.我们需要一个快捷的方式让客户尽快从旧版本数据库结构更新至新版本数据库结构.如果每做一次改动我们就记录一下当然是好事,但是万一疏忽遗漏,后果不堪设想..寻觅好久 ,网上也有很大数据库对比软件,大部分都是老外写的,还的花美刀.无意间发现Navicat for MySQL就有此功能,不是骑驴找驴么?直接上图. 方法/步骤 1.打开Navicat for MySQL ,找到工具,结构同步   2.选择目标数据库和源数据库,此时下

用C#从数据库动态生成AdminLTE菜单的一种方法

用C#从数据库动态生成AdminLTE菜单的一种方法 当前的应用设计风格趋于Flat扁平化,很多基于BootStrap实现了很多UI非常漂亮的管理界面(Bootstrap admin template). 此核心文件开源在Github:https://github.com/JackWangCUMT/AdminLTE-Menu-Generate.首先看一下主界面: 查看左边导航的菜单html结构(下面代码有错误,HTML自定义属性直接用空格进行分割,而不是,号进行分割,不然jquery获取定义属性

用 Flask 来写个轻博客 (8) — (M)VC_Alembic 管理数据库结构的升级和降级

目录 目录 前文列表 扩展阅读 Alembic 查看指令 manager db 的可用选项 初始化 DB Migrate 开始第一次跟踪 将记录文件应用到数据库中实时升级数据库结构 回滚到某一个记录环境中 前文列表 用 Flask 来写个轻博客 (1) - 创建项目 用 Flask 来写个轻博客 (2) - Hello World! 用 Flask 来写个轻博客 (3) - (M)VC_连接 MySQL 和 SQLAlchemy 用 Flask 来写个轻博客 (4) - (M)VC_创建数据模型

利用HibernateTools从数据库表生成带注解的POJO

引用:http://www.cnblogs.com/mingziday/p/4475124.html 在SSH框架中,如果先设计好了数据库,那么下一步就需要从数据库Table生成实体java类和hbm.xml配置文件.在最新的开发框架中,已经支持使用注解,从而避免了繁琐的hbm.xml配置,而且我们可以借助HibernateTools工具完成从Table到实体Java类的转换. 1.首先把HibernateTools插件安装到Eclipse上 打开Eclispe,按照如下操作完成插件安装 Hel

symfony 数据库表生成实体、迁移

从数据库表生成实体 1. 由数据库生成模型: php bin/console doctrine:mapping:convert --from-database yml D:\db\ (模型要改第一行路径) 2.实例所有表结构 php bin/console doctrine:generate:entities AppBundle/Entity/ --path src/ 实例单个表结构(SiteChannel) php bin/console doctrine:generate:entities

Code First 更新数据库结构

参考:http://blog.csdn.net/sxycxwb/article/details/12186159 0.删除之前的数据库 1.Run the Enable-Migrations command in Package Manager Console 进入(PM)软件包管理控制台 (视图——>其他窗口——>程序包管理控制台)输入以下指令:Enable-Migrations 会提示:"No context type was found in the assembly"

oracle学习入门系列之五 内存结构、数据库结构、进程

oracle学习入门系列之五 内存结构.数据库结构.进程 上篇蛤蟆简单描述了oracle公司的数据库产品.其他产品及oracle软件的一些特点.干货虽有但是真心是比较少的,这篇开始就是以干货为主,其中夹杂一些扯淡的事情了.蛤蟆一直也在想如何能生动的通过这干巴巴的文字来描述着世界级的软件,太理论大家都看不下去,太实践又缺乏深度.想想自己上大学那会,老师的讲课,无不枯燥乏味啊,满满的兴趣尽是消耗殆尽.所以不能仿效之,我们得走自己特色的路.以最易懂的形式.比喻等手段描述深奥的计算机知识.走起~ 开篇问

[转]oracle学习入门系列之五内存结构、数据库结构、进程

原文地址:http://www.2cto.com/database/201505/399285.html 1 Oracle数据库结构 关于这个话题,网上一搜绝对一大把,更别提书籍上出现的了,还有很多大师们的讲稿.但是我们不去管那些,按照我们自己节奏记出特性.记出精彩来. 首先插入本系列第一张图片,图一(绝对来自官网),看蛤蟆对于图片使用是多么小心的,如果大伙对这个图已有自己独到的理解,那么可直接跳过本篇笔记吧,当然温故而知新也未尝不可,知耻而后勇….额,而来知耻? 1.1 总体结构 这个图1从总