关于树形结构的建立及分类统计问题？

Question

我有2个问题：
我的库结构如下：
id  fartherid  idname  no  levelid 自动产生
fartherid 父节点号
idname 节点名称
no  节点自动编号，编码要求规则：
一级分类     代号  二级分类   代号 三级分类    代号
行业管理类        fff文件          101       a规范类     10101
     1                             b规范类     10102
      c管理类     10103
         vvv文件           102  a1规范类    10201
b1业指导类   10202
                    b3规范类    10203                 uuu文件            201        hhhh规范类   20101
                                              bbbbb规范类  20102
bbc           2
                  ggb文件           202        kkk指导类    20201
 ................................................................level 记录层次树（第一层的level为1）a-b-c层次数为3
以下是在前台建立树形机构的代码 只是不知道怎么才能，加入层次数和自动编码？
procedure Twjlx.Button1Click(Sender: TObject);//假如父节点
var
    strName:string;
    myNode:TTreeNode;
begin
     strName:=trim(edit1.text);
   myNode:=treeview1.Items.Add(treeview1.Selected,strName);
    if assigned(treeview1.Selected) then
        AddDataToDB(myNode,treeview1.Selected.Parent)
    else
        AddDataToDB(myNode,nil);
    myNode.selected:=true;
    edit5.Clear;
     edit1.Clear; 
    end;procedure Twjlx.Button2Click(Sender: TObject);//假如子节点
var
    strName:string;
    myNode:TTreeNode;
begin
       strName:=trim(edit2.text);
    if strName='' then
        exit;
   
    myNode:=treeview1.Items.AddChild(treeview1.Selected,strName);
    AddDataToDB(myNode,treeview1.Selected);
    myNode.selected:=true;
     edit5.Clear;
     edit2.Clear;    end;
各位大虾，能否加入层次数，和编号？？？
第2个问题：
采用两个表，表一为文件类型表，字段包括：id ， fartherid，  idname， no  
另一个表为文件记录表，主要字段：jwid ,no,wjdh
现在要统计每个类型的记录数，要求上下级关系限制为5级，可以实现某个类型（包括他的下级类型）数据的统计，能做到只统计5级关系的数据。各位大虾指点一下，多谢！并且按统计数据的金额倒序排列？分不够还可以给。

Answer 1

可以的，但是我有点不明白你的思路
可以从不同的表中读出数据，来建立节点select * from tablename order by money desc
先读这个然后把相关信息读出来在建立接点node在node上你可以自由操作节点

Answer 2

第2个问题补充如下:采用两个表，表一为文件类型表，字段包括：id ， fartherid，  idname， no  
另一个表为文件记录表，主要字段：jwid ,no,wjdh
现在要统计每个类型的记录数，要求上下级关系限制为5级，可以实现某个类型（包括他的下级类型）数据的统计，能做到只统计5级关系的数据。各位大虾指点一下，多谢！并且按统计数据的记录数倒序排列？分不够还可以给。