呵呵 散分 兄弟们来接 ！！

Question

顺便有个问题想请教一下哪位大哥 是关于树型数据库浏览 如果哪位大哥会 请留下QQ 帮帮我 完后给500分 谢谢了。  我在线等待 我的QQ；21834846

Answer 1

接分~~~~~~~~~~~~~------------------------------------------------------------------------------
网址收藏家是一个专门收集网址的软件，软件自身收集了很多经典的网址，而且您还可以任意的添加网址，可以将收藏夹中的网址导入到程序中。程序主窗体自动隐藏，不影响您上网冲浪和干别的工作 
下载http://www.skycn.com/soft/11944.html

Answer 2

我也只会简单的，给你个连接吧，我以前问过的。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1785213
--------------------------------------------------------------
accesss数据库中有两个字段gloType,Title,
glotype字段存储类别，Title存储标题，
那个过程是把数据库中的信息分类添加到Treeview中

Answer 3

procedure Fresh;
var
  s:string;
  TopNode:TTreeNode;
begin
  with frmMain do
  begin
    Tree.Items.Clear;
    typeQuery.Close;
    typeQuery.SQL.Clear;
    typeQuery.SQL.Text:='select distinct gloType from collects';
    typeQuery.Open;
    typeQuery.Filtered:=False;
    if typeQuery.RecordCount > 0 then
    begin
       while not typeQuery.Eof do
       begin
         s:=  typeQuery.FieldByName['gloType'].asstring;
         Tree.Items.Add(nil,s);
         TopNode:=Tree.Items.Add(nil,s);
         //上面这两句我觉得应该只要一句！！！
         ADOQuery1.Close;
         ADOQuery1.SQL.Clear;
         ADOQuery1.SQL.Text:='select Title from collects where gloType= '+ s ;
         ADOQuery1.Open;
         if ADOQuery1.RecordCount>0 then
         begin
           while not ADOQuery1.Eof do
           begin
             Tree.Items.AddChild(TopNode,ADOQuery1.FieldByName['Title'].asstring);
             ADOQuery1.Next;
           end;
         end;
         typeQuery.Next;
       end;
    end;
  typeQuery.Close;
  end ;  
end;
这样就没有问题了