如下图:
我想实现在如上图的功能.
1.当点到如(数据字典)上时.右边dbgird1出现它包含的数据
这个我写了代码.但是不点到数据字典和点到区域资料时.右边都出来数据字典包含的东西.我的公式是这样.
procedure Tzidian.TreeView1Click(Sender: TObject);
begin
if TreeView1.Selected <> nil then
begin
adoquery1.SQL.Clear;
case TreeView1.Selected.Index of
0:adoquery1.SQL.Add('select id as 编号,name as 名称 from zidian where quyu=11');
1:adoquery1.SQL.Add('select id as 编号,name as 名称 from zidian where quyu=12');
2:adoquery1.SQL.Add('select id as 编号,name as 名称 from zidian where quyu=13');
3:adoquery1.SQL.Add('select id as 编号,name as 名称 from zidian where quyu=14');
4:adoquery1.SQL.Add('select id as 编号,name as 名称 from zidian where quyu=15');
5:adoquery1.SQL.Add('select id as 编号,name as 名称 from zidian where quyu=16');
6:adoquery1.SQL.Add('select id as 编号,name as 名称 from zidian where quyu=17');
7:adoquery1.SQL.Add('select id as 编号,name as 名称 from zidian where quyu=18');
8:adoquery1.SQL.Add('select id as 编号,name as 名称 from zidian where quyu=19');
9:adoquery1.SQL.Add('select id as 编号,name as 名称 from zidian where quyu=20');
end;
adoquery1.Close;
adoquery1.Open;
end;
end;
2.treeviewer连接上数据库.
treeviewer里面的数据都是和数据库关链的.如图上所示.当我在"区域资料"内加入数据后.treeviewer里面也能反映出来.
希望有大哥帮帮忙.告诉我怎么弄.搞了两天了.还是不明白.论坛上查了不少.但是都不是我想要的.