树和自联表(二)

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

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

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