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