求一个高效的树型结构的实现方式。(包括数据结构和算法)如果解决有1000分想送！！！！

Question

interface Tree{
    void setParent(Tree pt);
    void getParent();
    void addSon(Tree st);
    TreeList getAllSonTree();
    String getDisplay();
}
class MyTree implements Tree{
    void setParent(Tree pt);................
    void getParent();................
    void addSon(Tree st);..............
    void Tree[] getAllSonTree();.............
    String getSelfDisplay(){............}
    String getDisplay(){
         return getSelfDisplay() + getAllSonTree().getDisplay();
    }
}
class TreeList{
...............................
...............................................
    String getDisplay(){
        String d = "";
        for(int i=0;i<getSize();i++){
           d += get(i).getDisplay();
        }
    }
}

Answer 1

用树型结构表示科目代码的高效算法     在很多常见的财务软件中,科目代码一般都用树型结构来显示。要实现这一点,通常的做法是用多个(嵌套)循环,甚至递归等算法,将科目表中的代码"织"成树,但这样不但算法复杂,而且执行效率低。本人在实际的开发应用中,摸索出了一种简单高效的算法。下面介绍其在Delphi中的实现。    一、表结构    首先建立如下结构的数据表Code.DB,并输入一些测试数据:表1
字段名    类型    长度       说明
aCode     字符     20        科目代码
aName     字符     30        科目代码名称
.          .       .          .
.          .       .         .
    其中,科目代码aCode的数据类型一定要字符型(一定),长度按具体要求而定,假如要支持六级编码,且代码结构是"3-2-2-2-2-2",则该字段的长度不小于18,而其他字段则不作要求 。另外,要为字段aCode建一索引(切记),因为要用它来排序。    二、编写程序    1. 新建一Project:CodeTree.drp,主窗体命名为frmMain,单元存为Main.Pas。在frmMain上添加一个TtreeView控件,命名为tveCode,一个TImageList,命名为imgIcon,并装入三个Icon和Bmp,最后添加一个Ttable控件,命名tblCode。    2. 单元main.pas的完整源代码如下:    unit Main;    interface    uses    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs    Db, DBTables, ComCtrls, ImgList, StdCtrls;    type    TForm1 = class(TForm)    tvwCode: TTreeView;    tblCode: TTable;    ImageList1: TImageList;    btnClose: TButton;    procedure FormCreate(Sender: TObject);    procedure btnCloseClick(Sender: TObject);    private    { Private declarations }    function LoadCode(crTbl:TDBDataSet):Integer;    function GetLevel(sFormat,sCode:String):Integer;    public    { Public declarations }    end;    var    Form1: TForm1;    const    SCodeFormat =‘322222'; //科目代码结构    SFirstNodeTxt =科目代码'; //首节点显示的文字    implementation    {$R *.DFM}    //以下函数是本文的重点部分,其主要功能是用一循环将Code.db表中的科目代码和科目代码名称显示出来    function TForm1.LoadCode(crTbl:TDBDataSet):Integer;    var NowID,sName,ShowTxt:String;    i,Level:Integer;    MyNode:array[0..6]of TTreeNode;//保存各级节点,最长支持6级(重点)    begin    Screen.Cursor:=crHourGlass;    Level:=0;    With crTbl do    begin     try     if not Active then Open;    First;     tvwCode.Items.Clear;     //以下是增加第一项    MyNode[Level]:=tvwCode.Items.Add(tvwCode.TopItem,SFirstNodeTxt);    MyNode[Level].ImageIndex:=0;    MyNode[Level].SelectedIndex:=0;     //以上是增加第一项    While Not Eof do     begin    NowID:=Trim(FieldByName(‘aCode').AsString);    ShowTxt:=NowID+‘ '+FieldByName(‘aName').AsString;    Level:=GetLevel(SCodeFormat,NowID); //返回代码的级数     //以下是增加子项     //以下用上一级节点为父节点添加子节点     if Level>0 then//确保代码符合标准     begin    MyNode[Level]:=tvwCode.Items.AddChild(MyNode[Level-1],ShowTxt);    MyNode[Level].ImageIndex:=1;    MyNode[Level].SelectedIndex:=2;    end;     //以上是增加子项    Next;    end;    finally    Close;    end;    end;    MyNode[0].Expand(False);//将首节点展开    Screen.Cursor:=crDefault;    end;    //以上函数将Code.db表中的科目代码和科目代码名称显示出来    //下面函数的功能是返回一代码的级数,参数sFormat传递科目代码结构;    //参数sCode传递某一科目代码    function TForm1.GetLevel(sFormat,sCode:String):Integer;    var i,Level,iLen:Integer;    begin    Level:=-1;//如果代码不符合标准,则返回-1    iLen:=0;    if (sFormat<>‘')and(sCode<>‘')then     for i:=1 to Length(sFormat) do     begin     iLen:=iLen+StrToInt(sFormat[i]);     if Length(sCode)=iLen then     begin    Level:=i;    Break;     end;     end;    Result:=Level;    end;    //上面函数的功能是返回一代码的级数    procedure TForm1.FormCreate(Sender: TObject);    begin     with tblCode do     begin    DatabaseName:=ParamStr(1); //使tblCode的DatabaseName指向应用程序所在的路径    TableName:=‘Code.DB';    　//指向数据表Code.DB    Open;    IndexFieldNames:=‘aCode'; //按字段aCode排序(不要漏掉)     end;    LoadCode(tblCode);    end;    procedure TForm1.btnCloseClick(Sender: TObject);    begin    Close;    end;    end.    其中,常量ScodeFormat是科目代码的代码结构,其定义的规则一定要和数据表Code..DB中的字段aCode的值相符。所以在实际应用中,让用户新增科目代码时,必须严格检查其规范性,只有完全符合事先定义的代码结构,才能添加入库。函数GetLevel是求某一科目代码的级数,例如,有一科目代码"10102",在代码结构是"322222"的情况下,调用函数GetLevel(‘322222',‘10102')将返回整数2 。    当然,本文的核心是LoadCode函数,该函数用了一个循环来遍历数据表Code.DB的所有记录,将字段aCode和aName的内容按层次显示出来。而在该函数中定义的二维数组MyNode[0..6],则显得尤为重要,在这里,它的作用类似于递归中的栈。因为在TTreeView添加子节点的方法AddChild(Node: TTreeNode; const S: string)中,要为其指定一父节点作为参数,而父节点的代码级数一定是要添加节点的代码级数减1,所以只要用一数组来动态保存和指定父节点就成功了。    三、运行结果    好了,现在把Code.DB复制到和可执行文件相同的目录下,按下F9键编译运行。只要在它的基础上加以完善,如增加维护功能,就可搬到实际应用中了。当然,本算法不单能用在科目代码上,其他类似的树型结构都能奏效。

Answer 2

Delphi中树型控件的使用技巧我们都知道，开发者主要用Delphi来开发数据库管理软件，正因如此，树型控件的使用最好与数据库联系起来。Delphi提供了一个树型控件TTreeView，可以用来描述复杂的层次关系。
　　树节点信息的存储和加载
　　常用的方法是用树控件的 LoadFromFile和SavetoFile方法，来实现树控件和文件之间的交互；或用Assign方法实现树控件和DBMemo，也就是和数据库间的交互。该方法的优点是编程相对简单，缺点是树控件的实际节点数可能会很大，对于“大树”，每次加载和存储的数据量会加大，将降低速度，增大系统开销，造成数据冗余。另一种方法，就是只在树上产生“看得见”的节点，没有专门记录全部树节点结构的文件或数据库字段，而将树节点结构分散在数据库的每一个记录中。　　具体方法是：创建一个数据库，字段根据实际业务而定，其中必然有一个字段的信息将在树型控件的节点上显示，另外还要一个字段来保存节点的惟一标识号，该标识号由长度相等的两部分组成，前段表示当前节点的父节点号，后段表示当前节点的节点号，此标识号相当于一个“链表”，记录了树上节点的结构。该方法的优点：用户操作“大树”时，一般不会展开所有的节点，而只用到有限的一部分，同时只能从树根一层一层地展开，该法只在树上产生“看得见”的节点，所以，存储和加载“大树”的速度快，数据量小，系统开销和数据冗余较小。缺点：编程较复杂，但可以结合该方法编成一个新的树控件，将大大提高编程效率。值得注意的是，ID号必须惟一，所以在编程中如何合理产生ID尤为重要。
　　数据库结构示例
　　创建一个数据库，为简化程序，我只创建两个数据库字段，定义如下：字段名 类型 长度 
text c 10 
longid c 6  　　LongID字段实际上由两段组成，每一段3位，LongID只能表示1000条记录。将LongID定义为索引字段，存为c:\testtree\tree.dbf。编辑该DBF文件，新建一条记录，Text字段设为TOP，LongID字段设为“000”(3个“0”前为三个空格)。
　　创建演示程序
　　在Form1上放置TreeView1、Table1、PopupMenu1、Edit1、Edit2。TreeView1的PopupMenu属性设为PopupMenu1；Table1的DataBaseName属性设为c:\testtree，TableName属性设为tree.dbf，IndexFieldNames属性设为LongID；为PopupMenu1加选单项Add1和Del1，Caption分别为Add和Del；Edit1用来输入新节点的Text属性值，Edit2用来输入新节点的3位ID号。存为c:\testtree\treeunit.pas和c:\testtree\testtree.dpr。　　在treeunit.pas的Type关键字后加入一行：Pstr:^string;{Pstr为字符串指针}　　为Form1的OnCreate事件添加代码：　　procedure TForm1.FormCreate(Sender: TObject);　　var p:Pstr;Node:TTreeNode;　　begin　　 with Table1,Treeview1 do　　 begin　　 open;　　 first;　　 new(p);{为指针p分配内存}　　 p^:=FieldByName(′LongID′).AsString;　　 Node:=Items.AddChildObject(nil,FieldByName(′Text′).AsString,p);　　 if HasSubInDbf(Node) then Items.AddChildObject(Node,′ ′,nil);{有子节点则加一个空子节点}　　 end;　　end;　　HasSubInDbf为自定义函数，自变量为Node，检查节点Node有无子节点，有则返回True，反之返回False，并在TForm1的类定义里加入原型声明(其它自定义函数的原型也在TForm1的类定义里声明，不另作解释)，函数代码如下：　　function TForm1.HasSubInDbf(Node:TTreeNode):Boolean;　　begin　　 with Table1 do　　 begin　　 Table1.FindNearest([copy(Pstr(Node.Data)^,4,3)＋′000′]);　　 result:=copy(FieldByName(′LongID′).AsString,1,3)=copy(Pstr(Node.Data)^,4,3);{如数据库里当前记录的LongID字段内容的前3位和节点Node的Data的后3位相同，则Node应该有子节点}　　 end;　　end;　　为TreeView1控件的OnDeletion事件添加代码，需要指出的是，不仅调用Delete方法可以触发OnDeletion事件，而且当树控件本身被释放前，也触发OnDeletion事件，所以，在此处加入dispose(node.data)会很“安全”：　　procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);　　begin　　 Dispose(Node.Data);{释放节点数据内存}　　end;　　为Add1选单项的OnClick事件添加代码如下：　　procedure TForm1.Add1Click(Sender: TObject);　　var p:pstr;Tmpstr:string;i:integer;　　begin　　 try　　 StrToInt(Edit2.Text);　　Tmpstr:=Edit2.Text;{注：在实用中，必须用更好的方法来产生ID}　　 except;　　ShowMessage(′重新输入Edit2的内容′);　　abort;　　 end;　　 with TreeView1 do　　 begin　　 new(p);　　 p^:=copy(Pstr(Selected.Data)^,4,3)＋TmpStr;　　 Items.AddChildObject(Selected,Edit1.Text,p);　　 end;　　 with Table1 do{ 在数据库里添加记录 }　　 begin　　 Append;　　 FieldByName(′Text′).AsString:=Edit1.text;　　 FieldByName(′LongID′).AsString:=p^;　　 Post;　　 end;　　 TmpStr:=inttostr(strtoint(TmpStr)＋1);　　 for i:=length(TmpStr) to 2 do TmpStr:=′0′＋TmpStr;　　 Edit2.Text:=TmpStr;　　end;　　为Del1菜单项的OnClick事件添加代码如下：　　procedure TForm1.Del1Click(Sender: TObject);　　var DelList:TStringList;LongID,NSubLongID:string;　　begin　　 DelList:=TStringList.create;　　 DelList.Sorted:=True;　　 DelList.Add(Pstr(TreeView1.Selected.Data)^);　　 while DelList.Count>0 do　　 begin　　 LongID:=DelList.Strings[0];　　 DelList.Delete(0);　　 Table1.SetKey;　　 Table1.FieldByName(′LongID′).AsString:=LongID;　　 if Table1.GotoKey then Table1.Delete;　　 if HasSubInDbf(TreeView1.Selected) then　　 begin　　 NSubLongID:=Table1.FieldByName(′LongID′).AsString;　　 while (copy(NSubLongID,1,3)=copy(LongID,4,3))and(not Table1.Eof) do　　 begin　　 dellist.Add(NSubLongId);　　 Table1.Next;　　 NSubLongId:=Table1.FieldByName(′LongID′).AsString;　　 end;　　end;　　 end;　　 DelList.Free;　　 TreeView1.Items.Delete(TreeView1.Selected);　　end;　　 为TreeView1的OnExpanding事件添加代码：　　procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;　　 var AllowExpansion: Boolean);　　var TmpNode:TTreeNode;NSubLongID:String;p:Pstr;bm:TBookMark;　　begin　　 with Table1,TreeView1 do　　 begin　　Items.BeginUpdate;　　SetKey;　　FieldByName(′LongID′).AsString:=Pstr(Node.Data)^;　　if not GotoKey then Items.Delete(Node)　　else　　begin　　 TmpNode:=Node.GetFirstChild;　　 if (TmpNode.Text=′ ′)and(TmpNode.Data=nil) then　　 begin　　 TmpNode.Delete;　　 if HasSubInDbf(Node) then　　 begin　　 NSubLongID:=FieldByName(′LongID′).AsString;　　 while (copy(NSubLongID,1,3)=copy(Pstr(Node.Data)^,4,3))and(not Eof) do　　 begin　　 new(p);　　 p^:=FieldByName(′LongID′).AsString;　　 bm:=GetBookMark;　　 TmpNode:=Items.AddChildObject(Node,FieldByName(′Text′).AsString,p);　　 if HasSubInDbf(TmpNode) then Items.AddChildObject(TmpNode,′ ′,nil);　　 GotoBookMark(bm);　　 FreeBookMark(bm);　　 Next;　　 NSubLongId:=FieldByName(′LongID′).AsString;　　 end; end; end;　　 end;　　Items.EndUpdate;　　 end;　　end;　　以上简要谈了谈数据库的树状显示的基本方法，另外，编辑树上节点的Text属性的同时对数据库进行修改、同一数据库在多用户同时操作时数据库以及树的一致性、树上节点的拷贝与复制等就不再赘述，可自行完善。

Answer 3

忘了，数据结构：
parentcode
selfcode
selfdesc
(others)
(no son,every one only know it`s parent.but in the instance of tree class,every one know it`s parent--one,all it`s sons--many.)

Answer 4

不好意思各位，我忘记说了，我需要用PHP+MySQL实现。而且需要无限分级的树型。麻烦各位再想想办法或者有好的文章也行。如果解决我一定送分！！！1000分！！！

Answer 5

我在上面写的就是可以无限分级的呀，至于PHP，呵呵，你再看看喽。我是用JAVA+MYSQL实现的树形结构（目录），可以无限分级，可以即时刷新，效率还可以。呵呵。