storage API

master
謝桂綱 10 years ago
parent 7a88c1d95a
commit 8056f46ea0

@ -80,6 +80,8 @@
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="StorageTek\API.vb" />
<Compile Include="StorageTek\StorageTeks.vb" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="My Project\Resources.resx">

@ -13,31 +13,7 @@ Public Class Repository
End Class
''' <summary>
''' Entity storage technology.()
''' </summary>
Public Enum StorageTek As Integer
''' <summary>
''' Individual files in a directory.()
''' </summary>
DIR = 2
''' <summary>
''' Csv rows.(Csv)
''' </summary>
Tabular = 4
''' <summary>
''' XmlList
''' </summary>
Xml = 8
''' <summary>
''' Jsonlist
''' </summary>
Json = 16
''' <summary>
''' MySQL
''' </summary>
SQL
End Enum
''' <summary>
'''
@ -48,7 +24,7 @@ Public Class EntityProvider : Inherits TypeInfo
'''
''' </summary>
''' <returns></returns>
Public Property Tek As StorageTek
Public Property Tek As StorageTeks
End Class

@ -0,0 +1,15 @@

Public Module API
''' <summary>
'''
''' </summary>
''' <param name="url"></param>
''' <param name="type"></param>
''' <returns></returns>
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

@ -0,0 +1,26 @@

''' <summary>
''' Entity storage technology.()
''' </summary>
Public Enum StorageTeks As Integer
''' <summary>
''' Individual files in a directory.()
''' </summary>
DIR = 2
''' <summary>
''' Csv rows.(Csv)
''' </summary>
Tabular = 4
''' <summary>
''' XmlList
''' </summary>
Xml = 8
''' <summary>
''' Jsonlist
''' </summary>
Json = 16
''' <summary>
''' MySQL
''' </summary>
SQL = 32
End Enum
Loading…
Cancel
Save