前面我们知道,创建一个虚拟树,应该首先告知VST节点数据的大小(即nodedatasize),其实在创建树结构时,这一点并不是必须的,而是如果你需要让VST的每一个节点能指向一定的数据,从而在执行树的操作时,能用到这些数据,那么你最适合的方法是定义一个结构类型(record),然后让node.data指向这个record。

实际上,我们也可以不使用node的data属性,而使用node.index或level属性来指向数据(例如指向数组的数据),VST提供的原始例子程序minima就是这样的。但是,如果不适用指针指向数据的话,完全体现不出VST的优势,而且排序、图标、定制绘制单元格等等都将难以实现。

严格来说,创建VST只需要做三步:

(1)告知VST根节点的数量(rootnodecount)。

(2)告知VST子孙节点的数量(chilenodecount)。

(3)告知VST的单元格显示文本(CELLTEXT)。

如果需要让VST的node指针指向某些数据的话,可以在第三条前告诉NODE的数据指针。

一、创建

1、设置根节点数

我们的程序目标是创建一个二级树,所以创建VST就是告知根节点的数量以及每一个节点的子节点的数量,因此我们创建VST节点的第一步就是在适当的位置告诉程序rootnodecount的数量。

创建树的根节点的过程,我们通过写一个过程(procedure)来实现:

procedure TForm2.createvst;
begin
QRY1.Open('select * from codes where site_code in '+
'(select distinct fir_code from codes where single_runway_ad>-1 )'+
' and single_runway_ad=-1');
//firedac默认初始只读取50行数据,此函数强制让QRY1完全读取table数据
//如果不执行此行,则recordcount将最大只有50;
QRY1.FetchAll;
//设置根节点数为有机场的情报区数,因为根节点指向的是情报区。
vst.RootNodeCount:=qry1.RecordCount;
QRY1.Close;
end;

2、初始化节点

在设置根节点数后,程序接下来的操作是触发事件oninitnode,因此我们为oninitnode写代码如下:

procedure TForm2.vstInitNode(Sender: TBaseVirtualTree; ParentNode,
Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
begin
//GetNodeLevel函数用于返回当前节点所在的层级,从0开始,根节点的level是0
case Sender.GetNodeLevel(node) of
0:
begin
//设置根节点的节点高度为36;
Sender.NodeHeight[node]:=36;
//根节点的节点选框类型为ctTriStateCheckBox
sender.CheckType[node]:=ctTriStateCheckBox;
Sender.CheckState[node]:=TCheckState(1);
if QRY1.Active then//当QRY1处于关闭状态时,下面的读取数据过程可能会产生错误
// GetNodeData将取出节点指向的数据
//下面的代码将填充数据
with pcodes(Sender.GetNodeData(node))^ do
begin
icao:=QRY1.FieldByName('site_code').AsString;
names:=QRY1.FieldByName('name_loc').AsString;
CODETYPE:='FIR';
//在这里告诉VST,这个节点需要有子节点
//这行语句将触发事件oninitchildren
Sender.HasChildren[node]:=True;
//每增加一个节点会触发一次oninitnode,
//因此如果不降qry1指向的数据往下移的话,所有根节点的数据将是完全一样的。
QRY1.Next;
end;
end;
1:
begin
//设置子节点的nodeheight=32,比根节点略低。
sender.NodeHeight[Node]:=32;
//子节点的节点选框类型为ctCheckBox
sender.CheckType[node]:=ctCheckBox;
//在添加每一个子节点的时候也会触发一次oninitnode事件,下面的代码是为子节点填充数据
if not QRY2.Active then Exit; //这行语句也是为防错处理
with pcodes(Sender.GetNodeData(node))^ do
begin
icao:=QRY2.FieldByName('site_code').AsString;
names:=QRY2.FieldByName('name_loc').AsString;
IATA:=QRY2.FieldByName('py_code').AsString;
if QRY2.FieldByName('single_runway_ad').AsString.Trim='0' then
rwy_style:='多跑道'
else
rwy_style:='单跑道'; if QRY2.FieldByName('main_alt_ad').AsString.Trim='0' then
apt_type:='备用'
else
apt_type:='主用';
CODETYPE:='AIRPORT';
QRY2.Next;
end;
end;
end;
end;

3、设置子节点数

在设置rootnodecount时,会调用根节点数量次数的oninitnode事件,而在设置根节点数据时,我们有一行语句:Sender.HasChildren[node]:=True,每次遇到这个语句,程序会触发oninitchildren事件,我们在oninitchildren事件中打开QRY2,并设置子节点数。代码如下:

procedure TForm2.vstInitChildren(Sender: TBaseVirtualTree; Node: PVirtualNode;
var ChildCount: Cardinal);
begin
with pcodes(Sender.GetNodeData(node))^ do
begin
QRY2.open('select * from codes where fir_code=:FIR and single_runway_ad<>-1',[icao]);
QRY2.FetchAll;
end;
ChildCount:=QRY2.RecordCount;
end;

事实上,我们在oninitchildren事件中给VST赋予子节点的数量时,每个子节点的创建时也会调用一次oninitnode事件。

在执行oninitnode事件时,我们除了赋值外,通常设置节点状态、选择框类型等等也在这里实现。

综合上面的语句,我们可以得出VST的基础创建逻辑是:

告诉VST节点数(无论是根节点还是子节点)→每一个节点调用一次oninitnode事件。

4、另一种创建树结构的方法

实际上,我们可以重写上面的代码如下:

VAR  ND:PVIRTUALNODE;
……
QRY1.First;
while not QRY1.Eof do
begin
nd:=vst.AddChild(nil);
with pcodes(vst.GetNodeData(nd))^ do
begin
//根节点的获取数据语句
qry2.Open('相关的SQL语句');
while not QRY2.Eof do
begin
with pcodes(vst.GetNodeData(vst.AddChild(nd)))^ do
begin
//获取机场数据的语句
end;
QRY2.Next;
end;
end;
QRY1.Next;
end;

上面的语句中我们使用了添加节点的函数:

function AddChild(Parent: PVirtualNode; UserData: Pointer = nil): PVirtualNode;

功能是为父节点创建最后一个子节点,如果parent为nil,则创建根节点。Userdata通常可以省略。

需要注意的是,如果使用上面的语句,则需要取消oninitchildren事件的代码,并且如果在上面的语句中进行了赋值,还应该取消oninitnode事件中的相应设置。

那么,是不是觉得上面的语句更简单,逻辑更清晰呢?从逻辑上来讲确实如此,但是,从效率上来讲,使用addchild语句来创建和添加节点,则程序的执行效率会低很多,因为addchild语句的实际执行效果是:如果parent=nil,则执行的是rootnodecount:=rootnodecount+1;如果parent非空,则执行的是childcount:= ChildCount+1.

当然如果只是如此,效率并不会低多少,实际上,按照我们的原始的设定,则是一次性的获得数据后,在一次性的绘制VST,并显示VST,而addchild语句则是每次执行addchild后,直接执行全过程,最终的执行效率会低许多,机器较慢的情况下,甚至可能在数据量大的情况下出现抖动。

5、设置celltext

好了,言归正传,让我们继续创建VST。

我们创建VST实际上只剩下最后一项工作了——告诉每行每列应该显示什么数据,则需要在ongettext事件中写代码,此程序的代码如下:

procedure TForm2.vstGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
begin
with pcodes(Sender.GetNodeData(node))^ do
begin
case Column of
0:CellText:=icao;
1:CellText:=iata;
2:CellText:=CODETYPE;
3:CellText:=names;
4:CellText:=rwy_style;
5:CellText:=apt_type;
end;
end;
end;

至此,创建VST完成,先欣赏下我们的执行结果吧。

vst实例(2) 创建VST的更多相关文章

  1. JBPM4入门——6.流程实例的创建和执行

    本博文只是简要对JBPM4进行介绍,如需更详细内容请自行google 链接: JBPM入门系列文章: JBPM4入门——1.jbpm简要介绍 JBPM4入门——2.在eclipse中安装绘制jbpm流 ...

  2. SpringMVC系列(十五)Spring MVC与Spring整合时实例被创建两次的解决方案以及Spring 的 IOC 容器和 SpringMVC 的 IOC 容器的关系

    一.Spring MVC与Spring整合时实例被创建两次的解决方案 1.问题产生的原因 Spring MVC的配置文件和Spring的配置文件里面都使用了扫描注解<context:compon ...

  3. 品Spring:真没想到,三十步才能完成一个bean实例的创建

    在容器启动快完成时,会把所有的单例bean进行实例化,也可以叫做预先实例化. 这样做的好处之一是,可以及早地发现问题,及早的抛出异常,及早地解决掉. 本文就来看下整个的实例化过程.其实还是比较繁琐的. ...

  4. Spring源码浅析之bean实例的创建过程(一)

    在之前的文章内容中,简单介绍了bean定义的加载过程,下面这篇的主要内容就是bean实例的创建过程. bean实例的创建方式 ApplicationContext context = new Clas ...

  5. Spring源码浅析之bean实例的创建过程(二)

    在上一篇内容中,介绍了doGetBean方法的源码内容,知道了bean在创建的过程中,有三个范围,单例.多例.Scope,里面都使用到了createBean.下面本篇文章的主要内容,就是围绕creat ...

  6. Spring(3.2.3) - Beans(3): Bean 实例的创建方式

    创建一个 Bean 实例对象的方法通常有如下方式: 调用构造器创建 Bean 实例 调用静态工厂方法创建 Bean 实例 调用实例工厂方法创建 Bean 实例 使用构造器创建 Bean 实例 XML ...

  7. Github实例教程-创建库、创建主页

    以README文件为实例,具体介绍github的使用过程 请先下载git,然后配置下面内容: ( 我的系统是debian,其它版本号的UNIX/Linux有区别),windows的临时不清楚. (一) ...

  8. 在OpenStack虚拟机实例中创建swap分区的一种方法

    测试组里一个同学负责MapR的搭建,MapR文档中建议每个节点上至少有24GB的swap分区,不知道MapR为啥会有这种反人类的建议……swap无非就是一块顺序读写的磁盘空间,莫非省着内存不用,用sw ...

  9. Vue01 Vue介绍、Vue使用、Vue实例的创建、数据绑定、Vue实例的生命周期、差值与表达式、指令与事件、语法糖

    1 Vue介绍 1.1 官方介绍 vue是一个简单小巧的渐进式的技术栈,它提供了Web开发中常用的高级功能:视图和数据的解耦.组件的服用.路由.状态管理.虚拟DOM 说明:简单小巧 -> 压缩后 ...

  10. Java类的加载及实例的创建

    java中class.forName()和classLoader都可用来对类进行加载.class.forName()前者除了将类的.class文件加载到jvm中之外,还会对类进行解释,执行类中的sta ...

随机推荐

  1. Centos Linux 设置 jar 包 开机自启动

    1.设置jar包可执行权限 点击查看代码 mkdir /usr/java cd /usr/java chmod 777 xxx.jar 2.编写脚本文件 touch xxx.sh 将文件放置到 /us ...

  2. Tomcat启动报错,Server Tomcat v8.0 Server at localhost failed to start

    Eclipse 中Tomcat 启动报错Eclipse的提示窗口  Server Tomcat v8.0 Server at localhost failed to start .日志输出中报   F ...

  3. Vue 相关整理

    一 谈谈对 keep-alive 的了解? keep-alive 是Vue内置的一个组件,可以使被包含的组件保留状态,避免重新渲染,其有以下特性: * 一般结合路由和动态组件一起使用,用于缓存组件: ...

  4. 从APNIC获取中国IP地址列表

    关于APNIC 全球IP地址块被IANA(Internet Assigned Numbers Authority)分配给全球三大地区性IP地址分配机构,它们分别是: ARIN (American Re ...

  5. day120:MoFang:修复宠物喂食饱食度不增加的BUG&修复宠物死亡导致数据错乱的BUG

    目录 BUG1:修复宠物喂食饱食度未增加的BUG BUG2:修复当用户拥有2个宠物时,如果第1个宠物挂了,会出现第二个宠物变成第1个宠物的情况,会导致数据发生混乱出现bug BUG1:修复宠物喂食饱食 ...

  6. 【Vue项目 + 自写java后端】尚品汇(七)后台项目 ElementUI 表单验证 + 三级联动

    ElementUI 表单验证 1 标准验证规则 Form 组件提供了表单验证的功能,只需要通过 rules 属性传入约定的验证规则,并将 Form-Item 的 prop 属性设置为需校验的字段名即可 ...

  7. MySQL-InnoDB磁盘结构

    主要阐述InnoDB存储引擎(MySQL5以后的默认引擎). 数据库中最基本的组成结构是数据表,视觉上的表和其对应的磁盘结构如下: 此图参考了厦门大学课堂:MySQL原理 .但是视频中一些更多细节没有 ...

  8. Redis报错MISCONF Redis is configured to save RDB snapshots, but is currently not able to persist on

    1.错误信息 org.redisson.client.RedisException: MISCONF Redis is configured to save RDB snapshots, but is ...

  9. 安装kafka和zookeeper以及使用

    1.安装zookeeper zookeeper下载:http://zookeeper.apache.org/releases.html 从3.5.5开始,带有bin名称的包才是要下载的包可以直接使用 ...

  10. RTSP Server(LIVE555)源码分析(二)-服务器创建

    一. 设置RTSP服务器配置 步骤1.5:rtspServer_Init--->BasicTaskScheduler::createNew()时序图如下: 1)步骤1.54,BasicTaskS ...