VirtualTreeview 如何显示数据库数据

shengtian 2012-02-16 09:55:39

第一次用 VirtualTreeview ，不知道怎么显示数据，有高手帮下忙吗？最好是写个delphi6的demo我研究下，谢谢了啊。

数据，列1 是大类，列2是中类，列3 是最终子节点

列1 列2 列3
a1 b1 c1
a1 b1 c2
a1 b2 c3
a1 b2 c4
a2 b3 c5
a3 b4 c6
a3 b5 c7

想要显示的效果
VirtualTreeview 显示
a1
b1
c1
c2
b2
c3
c4
a2
b3
c5
a3
b4
c6
b5
c7

...全文

639 31 打赏收藏转发到动态举报

写回复

用AI写文章

31 条回复

切换为时间正序

请发表友善的回复…

发表回复

rznice 2012-07-20

打赏
举报

看看那个回复里面是什么内容。。

shengtian 2012-03-04

打赏
举报

感谢 JQ_ii_QC 的帮助，如果需要分急用，我可以转些给你。
感谢 case5166 的支持
也感谢两位星级高手对本贴的关注，祝大家愉快。

shengtian 2012-03-02

打赏
举报

to：mwy654321
心态正，说的就都是金玉良言，心态不正，别人自然难以接受。不多说了，你想想自己发帖时的心态吧。

haitao 2012-03-02

打赏
举报

这个嘛，不能苟求
能帮得更多，当然更好，但是不能都要求帮更多
能指个方向，也比不指要好一点吧

我看见佛 2012-03-01

打赏
举报

[Quote=引用 24 楼 shengtian 的回复:]
to: mwy654321

“如果用 OnIniNode 事件，不分组大约 5 秒左右加载完成，分组要 50 秒，我怀疑是我分组的问题。但我都是一次把所有数据都取出来，再分的组，不知道什么原因，因为时间原因，我没有仔细分析。用传统方法分组，大约 15 秒左右加载完成。我自己觉得可以忍受了，没有再改”
这说的还不够清楚？你没看到呢，还是故意忽略呢？

我就不明白你发帖是为了什……
[/Quote]支持shengtian

(圣天) ----------------------自己走过了，为别人铺路，如果大家在帮别人时，明知道核心的答案，却不愿意完整说出来，只搭个边，那还有什么意义呢？

让别人似懂非懂

mwy654321至少也三十岁了吧！！！

无条件为你 2012-03-01

打赏
举报

[Quote=引用 24 楼 shengtian 的回复:]
我觉得我找资料找的辛苦才发的代码。这年头好人怎么这么难做？
[/Quote]

我当年学习的时候连资料都找不到，那不是更辛苦？自愿的事情，兴趣所在。

VirtualTreeview为什么不好掌握？因为属性太多，不同的属性组合在一起产生不同的效果，而且某些属性还决定事件是否有效。这样一来，学习的周期加长！

无条件为你 2012-03-01

打赏
举报

你可以说你自己刚接触水平低，可是如果别人说你水平低你却不愿意听，这是什么意思？假谦虚？

[Quote=引用 23 楼 mwy654321 的回复:]
你什么都会，为什么不给别人提供点帮助呢？你看看你的回帖，有对别人有用的吗？……
[/Quote]

我的第一个加贴指出了一般的应用。23楼的回贴指出了你的一个小bug。就难道不是帮助？

shengtian 2012-03-01

打赏
举报

to: mwy654321

“如果用 OnIniNode 事件，不分组大约 5 秒左右加载完成，分组要 50 秒，我怀疑是我分组的问题。但我都是一次把所有数据都取出来，再分的组，不知道什么原因，因为时间原因，我没有仔细分析。用传统方法分组，大约 15 秒左右加载完成。我自己觉得可以忍受了，没有再改”
这说的还不够清楚？你没看到呢，还是故意忽略呢？

我就不明白你发帖是为了什么？显示自己水平高？你愿意帮助都高兴，不愿意帮助也没什么，你在这里说三道四的有意思？
你没看见我开篇就说第一次用这个控件么？你自己都说了，要想学个差不多要一个月时间研究，我研究这两天的水平，能入你法眼吗？看不上你可以不看，有人逼你？你会不代表别人都会，不会又想用的人，都很着急的，你理解别人的心情吗？虽然我的代码乱，写的不好，但给刚刚接触的人快速使用这个控件提供一个参考，不好吗？你什么都会，为什么不给别人提供点帮助呢？你看看你的回帖，有对别人有用的吗？

说明下：因为 JQ_ii_QC 对我的帮助，想尽快结贴给分，所以代码没有整理，也没有除错，仅仅能够运行，刚才看到还有和控件无关的线程中的代码也贴上了，如果代码没有参考价值，大家可以回帖说明，我删除，不占用论坛资源。

我觉得我找资料找的辛苦才发的代码。这年头好人怎么这么难做？

haitao 2012-02-29

打赏
举报

缺省的做法savetofile/stream，都是保存的是整棵树
但是，几万、几十万个节点，里面很多是长文本，全部保存是比较慢的，因为最终保存时是经过流压缩的

所以，希望修改过后，只保存涉及的那部分（一般都是增加当年当月的新文章），以第一级节点作为各部分的根，这样，每次的保存只是全部的几十分之一了

加载时，也能反过来，分别读取每个第一级节点下的子节点，组合到一棵大树里

shengtian 2012-02-29

打赏
举报

to：sz_haitao
我水平有限，不是很理解你说的保存一年是什么意思，我理解为你要保存的是整棵树吧，我都是在加载的时候分层，那样，就只保存单个节点中的数据就好了。

忘记了，还有个把树中内容保存到文件中，也比较有用，我只用到其中的一个，我把我找到的例子的全部源代码贴出来，有需要的可以看看。

procedure TGeneralForm.SaveButtonClick(Sender: TObject);

const
HTMLHead = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">'#13#10 +
'<html>'#13#10 +
' <head>'#13#10 +
' <meta http-equiv="Content-Type" content="text/html; charset=utf-8">'#13#10 +
' <title>Virtual Treeview export</title>'#13#10 +
' </head>'#13#10 +
'<body>'#13#10;

var
S: string;
WS: WideString;
Data: Pointer;
DataSize: Cardinal;
TargetName: string;

begin
with SaveDialog do
begin
if Execute then
begin
TargetName := FileName;
case FilterIndex of
1: // HTML
begin
if Pos('.', TargetName) = 0 then
TargetName := TargetName + '.html';
S := HTMLHead + VST2.ContentToHTML(tstVisible) + '</body></html>';
Data := PChar(S);
DataSize := Length(S);
end;
2: // Unicode UTF-16 text file
begin
TargetName := ChangeFileExt(TargetName, '.uni');
WS := VST2.ContentToUnicode(tstVisible, #9);
Data := PWideChar(WS);
DataSize := 2 * Length(WS);
end;
3: // Rich text UTF-16 file
begin
TargetName := ChangeFileExt(TargetName, '.rtf');
S := VST2.ContentToRTF(tstVisible);
Data := PChar(S);
DataSize := Length(S);
end;
4: // Comma separated values ANSI text file
begin
TargetName := ChangeFileExt(TargetName, '.csv');
S := VST2.ContentToText(tstVisible, ListSeparator);
Data := PChar(S);
DataSize := Length(S);
end;
else
// Plain text file
TargetName := ChangeFileExt(TargetName, '.txt');
S := VST2.ContentToText(tstVisible, #9);
Data := PChar(S);
DataSize := Length(S);
end;

with TFileStream.Create(TargetName, fmCreate) do
try
WriteBuffer(Data^, DataSize);
finally
Free;
end;
end;
end;
end;

shengtian 2012-02-29

打赏
举报

to: mwy654321
VirtualTreeview的强大，毋庸置疑，不过，你能给演示演示，也不错，就是刚下来，只有一个可执行程序，感觉像病毒。

最近比较忙，没有上网，现在把我研究的结果和大家通报下，方便新手学习，避免走弯路和浪费时间。

我用到的功能粗略的研究了下，以下是我测试的结果，可能和高手的结果不同，请不要鄙视。

首先说一下速度问题，只有一列数字分组或者不分组，都很快，但是，我用的是十几个字段，并且好几个字段是很多汉字的，一共有 5 万多条记录。如果用 OnIniNode 事件，不分组大约 5 秒左右加载完成，分组要 50 秒，我怀疑是我分组的问题。但我都是一次把所有数据都取出来，再分的组，不知道什么原因，因为时间原因，我没有仔细分析。用传统方法分组，大约 15 秒左右加载完成。我自己觉得可以忍受了，没有再改，下面是我用到的功能的代码，点击列头排序我没有用到，但是感觉有用，也贴上了，代码比较乱，有问题可以问我，等几天再结贴。有不正确的或者补充的功能，请帖出来。

1、数据加载，没有分组的，需要分组，可以自己加条件，这个主要是为了说明怎么用传统方法加载数据，为了明晰清楚，所以，只有一个字段。
（1）、设集合指针
PFAName_Rec = ^TFAName_re;

TFAName_re = record
FAName: string; //方案名称
（2）、开始加载
p_tree.Clear;
p_tree.NodeDataSize := SizeOf(TFAName_re);

p_tree.BeginUpdate;
RootNode := p_tree.AddChild(nil);
Data := p_tree.GetNodeData(RootNode);

while not Form_main.ADOQTest.Eof do
begin
if stop_thread then
exit;

Data.FAName := Form_main.ADOQTest.FieldByName('FAName').AsString;
Form_main.ADOQTest.Next;
end;
p_tree.EndUpdate;

2、显示事件，加载数据后，要显示必须在这个事件中加入显示的代码
procedure TForm_485.FA_TreeGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: WideString);
var
Data : PFAName_Rec;
begin
Data := Sender.GetNodeData(Node);

case Column of
0:
begin
if Data^.FAName <> '' then
CellText := Data^.FAName;
end;
end;
end;

3、显示图标，虽然没什么大用，但是很美观
procedure TForm_485.Wait_Send_TreeGetImageIndex(Sender: TBaseVirtualTree;
Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
var Ghosted: Boolean; var ImageIndex: Integer);
var
wait_send_rec : P_wait_send_Rec;
begin
if Column <> 2 then
exit;
wait_send_rec := Sender.GetNodeData(Node);

ImageIndex := wait_send_rec.is_send - 1;
end;

4、相邻行不同颜色
procedure TForm_485.Wait_Send_TreeBeforeItemErase(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; Node: PVirtualNode; ItemRect: TRect;
var ItemColor: TColor; var EraseAction: TItemEraseAction);
begin
if Odd(Node.Index) then
begin
// ItemColor := $FFEEEE;

ItemColor := $00F7F7F7;
EraseAction := eaColor;
end;
end;

5、拖放，没什么大用的功能，某些地方很有用，用按钮或菜单实现一样。
拖放需要加载 ActiveX 单元才行,否则会报错
（1）、源控件事件
procedure TForm_485.All_item_TreeMouseDown(Sender: TObject; Button:
TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
if All_item_Tree.FocusedNode = nil then
exit;
if All_item_Tree.FocusedNode.ChildCount > 0 then
exit;
All_item_Tree.BeginDrag(False);
end;
end;
（2）、目标事件1
procedure TForm_485.Wait_Send_TreeDragOver(Sender: TBaseVirtualTree;
Source: TObject; Shift: TShiftState; State: TDragState; Pt: TPoint;
Mode: TDropMode; var Effect: Integer; var Accept: Boolean);
begin
if (Source = All_item_Tree) or (Source = Wait_Send_Tree) or (Source =
Often_item_Tree) or (Source = FA_Tree) then
begin
Accept := true;
end;
end;
（3）、目标事件2
procedure TForm_485.Wait_Send_TreeDragDrop(Sender: TBaseVirtualTree;
Source: TObject; DataObject: IDataObject; Formats: TFormatArray;
Shift: TShiftState; Pt: TPoint; var Effect: Integer; Mode: TDropMode);
var
Data : PFAName_Rec;
begin
cur_send_Meter_addr := trim(Edit8.Text);
cur_send_Meter_count := 1;

if (Source = All_item_Tree) then
begin
r(All_item_Tree);
end;

if (Source = Often_item_Tree) then
begin
r(Often_item_Tree);
end;

if (Source = Wait_Send_Tree) then
begin
move_item(Shift, Effect, Mode);
end;

if (Source = FA_Tree) then
begin
if FA_Tree.FocusedNode = nil then
exit;

Data := FA_Tree.GetNodeData(FA_Tree.FocusedNode);

get_FA_item(Data.FAName, Wait_Send_Tree);
end;
end;

6、编辑数据，这个我感觉很实用
（1）、事件1
procedure TForm_485.Wait_Send_TreeEditing(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; var Allowed: Boolean);
begin
if Column in [4..8] then
Allowed := true;
end;
（2）、事件2
procedure TForm_485.Wait_Send_TreeDragAllowed(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; var Allowed: Boolean);
begin
Allowed := Odd(Node.Index);
end;
（3）、事件3
procedure TForm_485.Wait_Send_TreeNewText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; NewText: WideString);
var
wait_send_rec : P_wait_send_Rec;
str_meter_addr : string;
begin
wait_send_rec := Sender.GetNodeData(Node);

case Column of
4:
begin
if trim(wait_send_rec.str_czy) = trim(NewText) then
exit;
if length(trim(NewText)) <> 12 then
exit;

wait_send_rec.metter_addr := NewText;

if CheckBox3.Checked then
begin
//保存到数据库
post_item_mrz('BiaoDZ', wait_send_rec.GuiYBS, NewText);
end;

end;
end;
end;

7、显示提示，作用不大，有胜于无的功能
procedure TForm_485.Wait_Send_TreeGetHint(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex;
var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: WideString);
begin
case Column of
0: HintText := '第一列提示';
2: HintText := '第三列提示';
3: HintText := '第四列提示';
end;
end;

8、点击列头排序，个人感觉非常有用的功能，但是我的程序中没有用到，所以，把我找到的代码贴上了，供大家参考。
procedure TfrmMain.vCustomerTreeHeaderClick(Sender: TVTHeader;
Column: TColumnIndex; Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
begin
if Button = mbLeft then
with Sender do
begin
if SortColumn <> Column then
SortColumn := Column;
if SortDirection = sdAscending then
SortDirection := sdDescending
else SortDirection := sdAscending;
vCustomerTree.SortTree(Column,SortDirection,true);
// BIG NOTE ! ... the "DoInit" variable MUST be set to true,
// otherwise you are ONLY sorting on nodes that have already
// been initialised - this can cause some interesting sorts !
end;
end;

9、查找数据，我的代码比较多，看着可能不清晰，这是别人写的例子，应该容易理解点，我在前面调用了2个方法，第一个是取消原来的选择，第二个是收起节点，主要为了找到节点后展开找到的节点。这个例子中没有对找到的节点进行处理的代码，例如，选择找到的节点，展开找到的节点等。自己加吧，不难的。
（1）、之前的方法
All_item_Tree.ClearSelection;
All_item_Tree.FullCollapse();

（2）、调用方式
PNode := FindChild(Controltree,Controltree.RootNode,EMPID);
（3）、递归的查找方法
function FindChild(Sender: TBaseVirtualTree; hParent: PVirtualNode; EMPID: integer): PVirtualNode;
var
llhChild: PVirtualNode;
Data: PEntry;
begin
Result := nil;

llhChild := hParent.FirstChild; //获取hParent的第一个子节点
while Assigned(llhChild) do begin
Data := Sender.GetNodeData(llhChild);
if (Data.Kind = nkEmployee) and (Data.ID = EMPID) then begin
Result := llhChild;
Exit;
end;

{对llhChild节点进行处理}
Result := FindChild(Sender, llhChild, EMPID);
if Result <> nil then Exit;
llhChild := llhChild.NextSibling;
end;

end;

10、MoveTo 使用方法，可以在不同的两个树中拖动，好像必须两棵树的结构一致，我只使用了在同一颗树中移动的功能。这个方法在拖动(DragDrop)事件中调用，按 Ctrl 是复制，其他是移动

procedure TForm.move_item(Shift: TShiftState; var Effect: Integer; var Mode:
TDropMode);
procedure DetermineEffect;
begin
if Shift <> [] then
begin

if (Shift = [ssAlt]) or (Shift = [ssCtrl, ssAlt]) then
Effect := DROPEFFECT_LINK
else if Shift = [ssCtrl] then
Effect := DROPEFFECT_COPY
else
Effect := DROPEFFECT_MOVE;
end;
end;

var
Attachmode : TVTNodeAttachMode;
Nodes : TNodeArray;
i : integer;
begin

case Mode of
dmAbove:
AttachMode := amInsertBefore;
// dmOnNode:
// AttachMode := amAddChildLast;
dmOnNode:
AttachMode := amInsertAfter;
dmBelow:
AttachMode := amInsertAfter;
else
AttachMode := amNowhere;
end;

DetermineEffect;
Nodes := Wait_Send_Tree.GetSortedSelection(True);
if Effect = DROPEFFECT_COPY then
begin
for I := 0 to High(Nodes) do
Wait_Send_Tree.CopyTo(Nodes[I], Wait_Send_Tree.DropTargetNode,
AttachMode, False);
end
else
for I := 0 to High(Nodes) do
Wait_Send_Tree.MoveTo(Nodes[I], Wait_Send_Tree.DropTargetNode,
AttachMode, False);

// Wait_Send_Tree.mo
end;

无条件为你 2012-02-29

打赏
举报

[Quote=引用 22 楼 sz_haitao 的回复:]
缺省的做法savetofile/stream，都是保存的是整棵树
但是，几万、几十万个节点，里面很多是长文本，全部保存是比较慢的，因为最终保存时是经过流压缩的

所以，希望修改过后，只保存涉及的那部分（一般都是增加当年当月的新文章），以第一级节点作为各部分的根，这样，每次的保存只是全部的几十分之一了

加载时，也能反过来，分别读取每个第一级节点下的子节点，组合到一棵大树里
[/Quote]

你说的方法确实可以极大提速，但以楼主的道行，目前还达不到这种水平。还需要修炼。
楼主的代码我看了下，乱！像p_tree.AddChild(nil)这样添加结点的方法我一般不用！再比如下面的代码
if Data^.FAName <> '' then CellText := Data^.FAName;
其中 if Data^.FAName <> '' then 应该去掉，要不然如果为空，则显示node，这是bug

无条件为你 2012-02-24

打赏
举报

[Quote=引用 16 楼 shengtian 的回复:]
to : mwy654321
1、您都两颗星了，怎么弄这么无聊的东西啊？没有源码，你让人家看什么？
2、我就是能显示就好，关键是速度，简单应用应该不难，按照原始方式添加节点，我已经弄明白了，现在正在研究用 iniNode 和 iniChildNode 这两个事件显示。
[/Quote]

我在网址下面已经说了，目的是让你知道该控件的强大功能而已。你不识字？

haitao 2012-02-20

打赏
举报

[Quote=引用 13 楼 mwy654321 的回复:]
楼主，我对VirtualTreeview非常熟悉。你要想显示数据库中记录的话，要先定义一个结构。处理OnInitNode事件。

总之你要全部搞熟悉，至少一个月。相当复杂的。简单的应用你一天可以搞定，但产生一些异常你又解决不了了。
[/Quote]

我以前写过一个工具，以它存储几十年的报纸内容，按年、月、期、文章分4层
但是，每次新加文章了，保存时需要保存整个树（几十年）的内容
如果能按年分多个文件保存，加载时再加载到一起就好了：这样，每次最多是保存一年的内容
可惜当时没找到这样做的方法

我看见佛 2012-02-20