TreeView与DBGird的完美结合。

最要是Treeview 与 listview 的完美结合。
取得记录集然后再listview内添加。
tcl:TListColumn;
tcl:=listview1.columns.add;
tcl.caption:='china';
...
tl:TlistItem;
tl:=listview1.items.add;
tl.caption：='333';