diff --git a/RQL/RQL.vbproj b/RQL/RQL.vbproj index 1dbd8c4..7abd868 100644 --- a/RQL/RQL.vbproj +++ b/RQL/RQL.vbproj @@ -80,6 +80,8 @@ Settings.settings True + + diff --git a/RQL/Repository.vb b/RQL/Repository.vb index 65d8050..72ab37d 100644 --- a/RQL/Repository.vb +++ b/RQL/Repository.vb @@ -13,31 +13,7 @@ Public Class Repository End Class -''' -''' Entity storage technology.(实体对象所存储的方法) -''' -Public Enum StorageTek As Integer - ''' - ''' Individual files in a directory.(以单独的文件的形式保存在一个文件夹之中) - ''' - DIR = 2 - ''' - ''' Csv rows.(Csv文件的行映射为某一个实体对象) - ''' - Tabular = 4 - ''' - ''' Xml文件之中的List之中的某一个对象映射为某一个实体对象 - ''' - Xml = 8 - ''' - ''' Json文件之中的list之中的某一个对象映射为某一个实体对象 - ''' - Json = 16 - ''' - ''' 实体对象是存储在MySQL数据库的某一张表之中的 - ''' - SQL -End Enum + ''' ''' 实体对象 @@ -48,7 +24,7 @@ Public Class EntityProvider : Inherits TypeInfo ''' 存储的方法 ''' ''' - Public Property Tek As StorageTek + Public Property Tek As StorageTeks End Class \ No newline at end of file diff --git a/RQL/StorageTek/API.vb b/RQL/StorageTek/API.vb new file mode 100644 index 0000000..7b9d4f6 --- /dev/null +++ b/RQL/StorageTek/API.vb @@ -0,0 +1,15 @@ + + +Public Module API + + ''' + ''' + ''' + ''' + ''' 单个元素的类型 + ''' + Public Function XmlList(url As String, type As Type) As IEnumerable + Dim listType As Type = GetType(List(Of )).MakeGenericType(type) + Dim obj As Object = LoadXml(Of () + End Function +End Module diff --git a/RQL/StorageTek/StorageTeks.vb b/RQL/StorageTek/StorageTeks.vb new file mode 100644 index 0000000..6fdeeef --- /dev/null +++ b/RQL/StorageTek/StorageTeks.vb @@ -0,0 +1,26 @@ + +''' +''' Entity storage technology.(实体对象所存储的方法) +''' +Public Enum StorageTeks As Integer + ''' + ''' Individual files in a directory.(以单独的文件的形式保存在一个文件夹之中) + ''' + DIR = 2 + ''' + ''' Csv rows.(Csv文件的行映射为某一个实体对象) + ''' + Tabular = 4 + ''' + ''' Xml文件之中的List之中的某一个对象映射为某一个实体对象 + ''' + Xml = 8 + ''' + ''' Json文件之中的list之中的某一个对象映射为某一个实体对象 + ''' + Json = 16 + ''' + ''' 实体对象是存储在MySQL数据库的某一张表之中的 + ''' + SQL = 32 +End Enum \ No newline at end of file