树和自联表(二)

Author：水如烟 

自联表的应用层抽象
这方面我没有把握，因为对数据类的总是半知且不解。一样的按自己理解来应用。

自联表的数据存储形式一般有三种，一种是直接的，一种的多表级联的，还有本身就是自联表。三种情形可以相互转换。

直接的，比如行政区划码（其实我做这个也是为行政区划码方案服务的，那个还没写完）：
数据形式为：代码，名称，即：XXXXXX 名称。

六位代码分为三组，每组两位，字符型。可以表示为“00,00,00”。其中第一组表示省，第二组表示市，第三组表示县。当然还有别的意义，暂且如此理解。
对于一项数据，可以这样追寻它的意义，如
340405 八公山区，找市，340400，为淮南市，找省，340000，为安徽省，其意义也就是全称便是安徽省淮南市八公山区。

多表级联的，可以做成三个表：
省（省ID，省），市（市ID，市，省ID），县（县ID，县，省ID）

自联表（示意）：

ID	ParentID	Code	Name
1	0	00	Root
2	1	11	北京市
.
.
25	1	34	安徽省
.
.
203	25	01	合肥市
204	25	02	芜湖市
205	25	03	蚌埠市
206	25	04	南淮市
.
.
290	206	01	市辖区
291	206	02	大通区
.
.
294	206	05	八公山区
.
.
.
.

上面是自联表数据的基本的存储形式。很多情形，是从多表级联的形式存储，此时的ID一般是integer类型，也有string类型的（此处数据类型与.NET的对应）。
多表级联的形式，可以通过视图转换为 （代码，名称） 的形式输出来。代码为String类型，格式类似于 “00，000，0000”，每组的位数视相应表的ID大小范围而定，一般的可以事前知道。如公司、部门、班组这类，公司可能有10来个，每个公司的部门也就是20来个吧，班组多些，算是有100个，那样，可以确定为“00，00，000”做为代码基准。

至于本身是自联表的，设置一下最高层级，那么代码形式也是确定的。

所以，不管数据的存储形式如何，最终到应用时，就以（代码，名称）的形式来统一表示。
于是应用层可以抽象成这样：

Namespace  uSystem.uCollection.SinceLink

     < Serializable() >  _
     Public   MustInherit   Class  ItemBase

         Private  gName  As   String
         Private  gCode  As   String

         Sub   New ()
         End Sub

         Sub   New ( ByVal  code  As   String ,  ByVal  name  As   String )
            gName  =  name
            gCode  =  code
         End Sub

         Public   Property  Code()  As   String
             Get
                 Return  gCode
             End   Get
             Set ( ByVal  value  As   String )
                gCode  =  value
             End   Set
         End Property

         Public   Property  Name()  As   String
             Get
                 Return  gName
             End   Get
             Set ( ByVal  value  As   String )
                gName  =  value
             End   Set
         End Property

         Public   ReadOnly   Property  ID()  As   Object
             Get

             End   Get
         End Property

         Public   ReadOnly   Property  ParentID()  As   Object
             Get

             End   Get
         End Property

         ' '' <summary>
         ' '' ID和ParentID的数据类型,为String或Integer
         ' '' </summary>
         Protected   MustOverride   Function  DefinedDataTypeCodeOfID()  As  TypeCode

         ' '' <summary>
         ' '' 代码的数据格式,形如“00,000,0000”
         ' '' </summary>
         Protected   MustOverride   Function  DefinedCodeFormat()  As   String


         Public   Function  Clone()  As  ItemBase
             Return  uSystem.uRuntime.uSerialization.SerializeHelper.Clone( Of  ItemBase)( Me )
         End Function

     End Class

End Namespace