Author:水如烟
通过以下代码来提取数据库信息:
Public Class Form1 Dim DbBuilder As DbBuilder = New Sql9Builder( " Data Source=./SQLExpress;Integrated Security=True " ) Private Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click GetDatabaseInfo( " AdventureWorks " ) End Sub Private Sub Button3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click GetDatabaseInfo( " Northwind " ) End Sub Private Sub GetDatabaseInfo( ByVal database As String ) DbBuilder.ReadInfoFrom(database) ' 枚举类 Dim file As New IO.StreamWriter(DbBuilder.Catalog.Name & " .vb " , False , System.Text.Encoding.Default) With file .WriteLine(DbBuilder.GetAttrCatalogString) For Each t As TableInfoBase In DbBuilder.Catalog.Tables.Values .WriteLine(DbBuilder.GetEnumTableString(t.FullName)) Next .Flush() .Close() .Dispose() End With ' 实体类 file = New IO.StreamWriter(DbBuilder.Catalog.Name & " Class.vb " , False , System.Text.Encoding.Default) With file For Each t As TableInfoBase In DbBuilder.Catalog.Tables.Values .WriteLine(DbBuilder.GetClassTableString(t.FullName)) Next .Flush() .Close() .Dispose() End With Console.WriteLine( " Finish " ) End Sub Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ass As Reflection.Assembly = Reflection.Assembly.LoadFrom( " DatabaseBuilderApplication.exe " ) DbBuilder.ReadInfoFrom(ass) ' 查询器使用的SQL脚本 Dim file As New IO.StreamWriter(DbBuilder.Catalog.Name & " .sql " , False , System.Text.Encoding.Default) With file .WriteLine(DbBuilder.GetAllScript) .Flush() .Close() .Dispose() End With End Sub End Class提取到的Northwind信息如下:枚举类,
< Assembly : AssemblySql9Catalog(Name: = " Northwind " ,Server: = " ./SQLExpress " ) > < Sql9Table(Name: = " Categories " ,Schema: = " dbo " ) > _ Public Enum Categories < Sql9int(Name: = " CategoryID " ,IsPrimary: = True ,IsNullable: = False ,IsIdentity: = True ) > _ [CategoryID] < Sql9nvarchar(Name: = " CategoryName " ,IsNullable: = False ,Length: = 15 ) > _ [CategoryName] < Sql9ntext(Name: = " Description " ) > _ [Description] < Sql9image(Name: = " Picture " ) > _ [Picture] End Enum < Sql9Table(Name: = " CustomerCustomerDemo " ,Schema: = " dbo " ) > _ Public Enum CustomerCustomerDemo < Sql9nchar(Name: = " CustomerID " ,IsPrimary: = True ,IsNullable: = False ,Length: = 5 ) > _ [CustomerID] < Sql9nchar(Name: = " CustomerTypeID " ,IsPrimary: = True ,IsNullable: = False ,Length: = 10 ) > _ [CustomerTypeID] End Enum < Sql9Table(Name: = " CustomerDemographics " ,Schema: = " dbo " ) > _ Public Enum CustomerDemographics < Sql9nchar(Name: = " CustomerTypeID " ,IsPrimary: = True ,IsNullable: = False ,Length: = 10 ) > _ [CustomerTypeID] < Sql9ntext(Name: = " CustomerDesc " ) > _ [CustomerDesc] End Enum < Sql9Table(Name: = " Customers " ,Schema: = " dbo " ) > _ Public Enum Customers < Sql9nchar(Name: = " CustomerID " ,IsPrimary: = True ,IsNullable: = False ,Length: = 5 ) > _ [CustomerID] < Sql9nvarchar(Name: = " CompanyName " ,IsNullable: = False ,Length: = 40 ) > _ [CompanyName] < Sql9nvarchar(Name: = " ContactName " ,Length: = 30 ) > _ [ContactName] < Sql9nvarchar(Name: = " ContactTitle " ,Length: = 30 ) > _ [ContactTitle] < Sql9nvarchar(Name: = " Address " ,Length: = 60 ) > _ [Address] < Sql9nvarchar(Name: = " City " ,Length: = 15 ) > _ [City] < Sql9nvarchar(Name: = " Region " ,Length: = 15 ) > _ [Region] < Sql9nvarchar(Name: = " PostalCode " ,Length: = 10 ) > _ [PostalCode] < Sql9nvarchar(Name: = " Country " ,Length: = 15 ) > _ [Country] < Sql9nvarchar(Name: = " Phone " ,Length: = 24 ) > _ [Phone] < Sql9nvarchar(Name: = " Fax " ,Length: = 24 ) > _ [Fax] End Enum < Sql9Table(Name: = " Employees " ,Schema: = " dbo " ) > _ Public Enum Employees < Sql9int(Name: = " EmployeeID " ,IsPrimary: = True ,IsNullable: = False ,IsIdentity: = True ) > _ [EmployeeID] < Sql9nvarchar(Name: = " LastName " ,IsNullable: = False ,Length: = 20 ) > _ [LastName] < Sql9nvarchar(Name: = " FirstName " ,IsNullable: = False ,Length: = 10 ) > _ [FirstName] < Sql9nvarchar(Name: = " Title " ,Length: = 30 ) > _ [Title] < Sql9nvarchar(Name: = " TitleOfCourtesy " ,Length: = 25 ) > _ [TitleOfCourtesy] < Sql9datetime(Name: = " BirthDate " ) > _ [BirthDate] < Sql9datetime(Name: = " HireDate " ) > _ [HireDate] < Sql9nvarchar(Name: = " Address " ,Length: = 60 ) > _ [Address] < Sql9nvarchar(Name: = " City " ,Length: = 15 ) > _ [City] < Sql9nvarchar(Name: = " Region " ,Length: = 15 ) > _ [Region] < Sql9nvarchar(Name: = " PostalCode " ,Length: = 10 ) > _ [PostalCode] < Sql9nvarchar(Name: = " Country " ,Length: = 15 ) > _ [Country] < Sql9nvarchar(Name: = " HomePhone " ,Length: = 24 ) > _ [HomePhone] < Sql9nvarchar(Name: = " Extension " ,Length: = 4 ) > _ [Extension] < Sql9image(Name: = " Photo " ) > _ [Photo] < Sql9ntext(Name: = " Notes " ) > _ [Notes] < Sql9int(Name: = " ReportsTo " ) > _ [ReportsTo] < Sql9nvarchar(Name: = " PhotoPath " ,Length: = 255 ) > _ [PhotoPath] End Enum < Sql9Table(Name: = " EmployeeTerritories " ,Schema: = " dbo " ) > _ Public Enum EmployeeTerritories < Sql9int(Name: = " EmployeeID " ,IsPrimary: = True ,IsNullable: = False ) > _ [EmployeeID] < Sql9nvarchar(Name: = " TerritoryID " ,IsPrimary: = True ,IsNullable: = False ,Length: = 20 ) > _ [TerritoryID] End Enum < Sql9Table(Name: = " Order Details " ,Schema: = " dbo " ) > _ Public Enum Order_Details < Sql9int(Name: = " OrderID " ,IsPrimary: = True ,IsNullable: = False ) > _ [OrderID] < Sql9int(Name: = " ProductID " ,IsPrimary: = True ,IsNullable: = False ) > _ [ProductID] < Sql9money(Name: = " UnitPrice " ,IsNullable: = False ,DefaultOrBinding: = " ((0)) " ) > _ [UnitPrice] < Sql9smallint(Name: = " Quantity " ,IsNullable: = False ,DefaultOrBinding: = " ((1)) " ) > _ [Quantity] < Sql9real(Name: = " Discount " ,IsNullable: = False ,DefaultOrBinding: = " ((0)) " ) > _ [Discount] End Enum < Sql9Table(Name: = " Orders " ,Schema: = " dbo " ) > _ Public Enum Orders < Sql9int(Name: = " OrderID " ,IsPrimary: = True ,IsNullable: = False ,IsIdentity: = True ) > _ [OrderID] < Sql9nchar(Name: = " CustomerID " ,Length: = 5 ) > _ [CustomerID] < Sql9int(Name: = " EmployeeID " ) > _ [EmployeeID] < Sql9datetime(Name: = " OrderDate " ) > _ [OrderDate] < Sql9datetime(Name: = " RequiredDate " ) > _ [RequiredDate] < Sql9datetime(Name: = " ShippedDate " ) > _ [ShippedDate] < Sql9int(Name: = " ShipVia " ) > _ [ShipVia] < Sql9money(Name: = " Freight " ,DefaultOrBinding: = " ((0)) " ) > _ [Freight] < Sql9nvarchar(Name: = " ShipName " ,Length: = 40 ) > _ [ShipName] < Sql9nvarchar(Name: = " ShipAddress " ,Length: = 60 ) > _ [ShipAddress] < Sql9nvarchar(Name: = " ShipCity " ,Length: = 15 ) > _ [ShipCity] < Sql9nvarchar(Name: = " ShipRegion " ,Length: = 15 ) > _ [ShipRegion] < Sql9nvarchar(Name: = " ShipPostalCode " ,Length: = 10 ) > _ [ShipPostalCode] < Sql9nvarchar(Name: = " ShipCountry " ,Length: = 15 ) > _ [ShipCountry] End Enum < Sql9Table(Name: = " Products " ,Schema: = " dbo " ) > _ Public Enum Products < Sql9int(Name: = " ProductID " ,IsPrimary: = True ,IsNullable: = False ,IsIdentity: = True ) > _ [ProductID] < Sql9nvarchar(Name: = " ProductName " ,IsNullable: = False ,Length: = 40 ) > _ [ProductName] < Sql9int(Name: = " SupplierID " ) > _ [SupplierID] < Sql9int(Name: = " CategoryID " ) > _ [CategoryID] < Sql9nvarchar(Name: = " QuantityPerUnit " ,Length: = 20 ) > _ [QuantityPerUnit] < Sql9money(Name: = " UnitPrice " ,DefaultOrBinding: = " ((0)) " ) > _ [UnitPrice] < Sql9smallint(Name: = " UnitsInStock " ,DefaultOrBinding: = " ((0)) " ) > _ [UnitsInStock] < Sql9smallint(Name: = " UnitsOnOrder " ,DefaultOrBinding: = " ((0)) " ) > _ [UnitsOnOrder] < Sql9smallint(Name: = " ReorderLevel " ,DefaultOrBinding: = " ((0)) " ) > _ [ReorderLevel] < Sql9bit(Name: = " Discontinued " ,IsNullable: = False ,DefaultOrBinding: = " ((0)) " ) > _ [Discontinued] End Enum < Sql9Table(Name: = " Region " ,Schema: = " dbo " ) > _ Public Enum Region < Sql9int(Name: = " RegionID " ,IsPrimary: = True ,IsNullable: = False ) > _ [RegionID] < Sql9nchar(Name: = " RegionDescription " ,IsNullable: = False ,Length: = 50 ) > _ [RegionDescription] End Enum < Sql9Table(Name: = " Shippers " ,Schema: = " dbo " ) > _ Public Enum Shippers < Sql9int(Name: = " ShipperID " ,IsPrimary: = True ,IsNullable: = False ,IsIdentity: = True ) > _ [ShipperID] < Sql9nvarchar(Name: = " CompanyName " ,IsNullable: = False ,Length: = 40 ) > _ [CompanyName] < Sql9nvarchar(Name: = " Phone " ,Length: = 24 ) > _ [Phone] End Enum < Sql9Table(Name: = " Suppliers " ,Schema: = " dbo " ) > _ Public Enum Suppliers < Sql9int(Name: = " SupplierID " ,IsPrimary: = True ,IsNullable: = False ,IsIdentity: = True ) > _ [SupplierID] < Sql9nvarchar(Name: = " CompanyName " ,IsNullable: = False ,Length: = 40 ) > _ [CompanyName] < Sql9nvarchar(Name: = " ContactName " ,Length: = 30 ) > _ [ContactName] < Sql9nvarchar(Name: = " ContactTitle " ,Length: = 30 ) > _ [ContactTitle] < Sql9nvarchar(Name: = " Address " ,Length: = 60 ) > _ [Address] < Sql9nvarchar(Name: = " City " ,Length: = 15 ) > _ [City] < Sql9nvarchar(Name: = " Region " ,Length: = 15 ) > _ [Region] < Sql9nvarchar(Name: = " PostalCode " ,Length: = 10 ) > _ [PostalCode] < Sql9nvarchar(Name: = " Country " ,Length: = 15 ) > _ [Country] < Sql9nvarchar(Name: = " Phone " ,Length: = 24 ) > _ [Phone] < Sql9nvarchar(Name: = " Fax " ,Length: = 24 ) > _ [Fax] < Sql9ntext(Name: = " HomePage " ) > _ [HomePage] End Enum < Sql9Table(Name: = " Territories " ,Schema: = " dbo " ) > _ Public Enum Territories < Sql9nvarchar(Name: = " TerritoryID " ,IsPrimary: = True ,IsNullable: = False ,Length: = 20 ) > _ [TerritoryID] < Sql9nchar(Name: = " TerritoryDescription " ,IsNullable: = False ,Length: = 50 ) > _ [TerritoryDescription] < Sql9int(Name: = " RegionID " ,IsNullable: = False ) > _ [RegionID] End Enum
实体类.
< Sql9Table(Name: = " Categories " ,Schema: = " dbo " ) > _ Public Class CategoriesClass Private gCategoryID As Int32 Private gCategoryName As String Private gDescription As String Private gPicture As Byte () < Sql9int(Name: = " CategoryID " ,IsPrimary: = True ,IsNullable: = False ,IsIdentity: = True ) > _ Public Property [CategoryID]() As Int32 Get Return gCategoryID End Get Set ( ByVal value As Int32) gCategoryID = value End Set End Property < Sql9nvarchar(Name: = " CategoryName " ,IsNullable: = False ,Length: = 15 ) > _ Public Property [CategoryName]() As String Get Return gCategoryName End Get Set ( ByVal value As String ) gCategoryName = value End Set End Property < Sql9ntext(Name: = " Description " ) > _ Public Property [Description]() As String Get Return gDescription End Get Set ( ByVal value As String ) gDescription = value End Set End Property < Sql9image(Name: = " Picture " ) > _ Public Property [Picture]() As Byte () Get Return gPicture End Get Set ( ByVal value As Byte ()) gPicture = value End Set End Property End Class < Sql9Table(Name: = " CustomerCustomerDemo " ,Schema: = " dbo " ) > _ Public Class CustomerCustomerDemoClass Private gCustomerID As String Private gCustomerTypeID As String < Sql9nchar(Name: = " CustomerID " ,IsPrimary: = True ,IsNullable: = False ,Length: = 5 ) > _ Public Property [CustomerID]() As String Get Return gCustomerID End Get Set ( ByVal value As String ) gCustomerID = value End Set End Property < Sql9nchar(Name: = " CustomerTypeID " ,IsPrimary: = True ,IsNullable: = False ,Length: = 10 ) > _ Public Property [CustomerTypeID]() As String Get Return gCustomerTypeID End Get Set ( ByVal value As String ) gCustomerTypeID = value End Set End Property End Class < Sql9Table(Name: = " CustomerDemographics " ,Schema: = " dbo " ) > _ Public Class CustomerDemographicsClass Private gCustomerTypeID As String Private gCustomerDesc As String < Sql9nchar(Name: = " CustomerTypeID " ,IsPrimary: = True ,IsNullable: = False ,Length: = 10 ) > _ Public Property [CustomerTypeID]() As String Get Return gCustomerTypeID End Get Set ( ByVal value As String ) gCustomerTypeID = value End Set End Property < Sql9ntext(Name: = " CustomerDesc " ) > _ Public Property [CustomerDesc]() As String Get Return gCustomerDesc End Get Set ( ByVal value As String ) gCustomerDesc = value End Set End Property End Class < Sql9Table(Name: = " Customers " ,Schema: = " dbo " ) > _ Public Class CustomersClass Private gCustomerID As String Private gCompanyName As String Private gContactName As String Private gContactTitle As String Private gAddress As String Private gCity As String Private gRegion As String Private gPostalCode As String Private gCountry As String Private gPhone As String Private gFax As String < Sql9nchar(Name: = " CustomerID " ,IsPrimary: = True ,IsNullable: = False ,Length: = 5 ) > _ Public Property [CustomerID]() As String Get Return gCustomerID End Get Set ( ByVal value As String ) gCustomerID = value End Set End Property < Sql9nvarchar(Name: = " CompanyName " ,IsNullable: = False ,Length: = 40 ) > _ Public Property [CompanyName]() As String Get Return gCompanyName End Get Set ( ByVal value As String ) gCompanyName = value End Set End Property < Sql9nvarchar(Name: = " ContactName " ,Length: = 30 ) > _ Public Property [ContactName]() As String Get Return gContactName End Get Set ( ByVal value As String ) gContactName = value End Set End Property < Sql9nvarchar(Name: = " ContactTitle " ,Length: = 30 ) > _ Public Property [ContactTitle]() As String Get Return gContactTitle End Get Set ( ByVal value As String ) gContactTitle = value End Set End Property < Sql9nvarchar(Name: = " Address " ,Length: = 60 ) > _ Public Property [Address]() As String Get Return gAddress End Get Set ( ByVal value As String ) gAddress = value End Set End Property < Sql9nvarchar(Name: = " City " ,Length: = 15 ) > _ Public Property [City]() As String Get Return gCity End Get Set ( ByVal value As String ) gCity = value End Set End Property < Sql9nvarchar(Name: = " Region " ,Length: = 15 ) > _ Public Property [Region]() As String Get Return gRegion End Get Set ( ByVal value As String ) gRegion = value End Set End Property < Sql9nvarchar(Name: = " PostalCode " ,Length: = 10 ) > _ Public Property [PostalCode]() As String Get Return gPostalCode End Get Set ( ByVal value As String ) gPostalCode = value End Set End Property < Sql9nvarchar(Name: = " Country " ,Length: = 15 ) > _ Public Property [Country]() As String Get Return gCountry End Get Set ( ByVal value As String ) gCountry = value End Set End Property < Sql9nvarchar(Name: = " Phone " ,Length: = 24 ) > _ Public Property [Phone]() As String Get Return gPhone End Get Set ( ByVal value As String ) gPhone = value End Set End Property < Sql9nvarchar(Name: = " Fax " ,Length: = 24 ) > _ Public Property [Fax]() As String Get Return gFax End Get Set ( ByVal value As String ) gFax = value End Set End Property End Class < Sql9Table(Name: = " Employees " ,Schema: = " dbo " ) > _ Public Class EmployeesClass Private gEmployeeID As Int32 Private gLastName As String Private gFirstName As String Private gTitle As String Private gTitleOfCourtesy As String Private gBirthDate As DateTime Private gHireDate As DateTime Private gAddress As String Private gCity As String Private gRegion As String Private gPostalCode As String Private gCountry As String Private gHomePhone As String Private gExtension As String Private gPhoto As Byte () Private gNotes As String Private gReportsTo As Int32 Private gPhotoPath As String < Sql9int(Name: = " EmployeeID " ,IsPrimary: = True ,IsNullable: = False ,IsIdentity: = True ) > _ Public Property [EmployeeID]() As Int32 Get Return gEmployeeID End Get Set ( ByVal value As Int32) gEmployeeID = value End Set End Property < Sql9nvarchar(Name: = " LastName " ,IsNullable: = False ,Length: = 20 ) > _ Public Property [LastName]() As String Get Return gLastName End Get Set ( ByVal value As String ) gLastName = value End Set End Property < Sql9nvarchar(Name: = " FirstName " ,IsNullable: = False ,Length: = 10 ) > _ Public Property [FirstName]() As String Get Return gFirstName End Get Set ( ByVal value As String ) gFirstName = value End Set End Property < Sql9nvarchar(Name: = " Title " ,Length: = 30 ) > _ Public Property [Title]() As String Get Return gTitle End Get Set ( ByVal value As String ) gTitle = value End Set End Property < Sql9nvarchar(Name: = " TitleOfCourtesy " ,Length: = 25 ) > _ Public Property [TitleOfCourtesy]() As String Get Return gTitleOfCourtesy End Get Set ( ByVal value As String ) gTitleOfCourtesy = value End Set End Property < Sql9datetime(Name: = " BirthDate " ) > _ Public Property [BirthDate]() As DateTime Get Return gBirthDate End Get Set ( ByVal value As DateTime) gBirthDate = value End Set End Property < Sql9datetime(Name: = " HireDate " ) > _ Public Property [HireDate]() As DateTime Get Return gHireDate End Get Set ( ByVal value As DateTime) gHireDate = value End Set End Property < Sql9nvarchar(Name: = " Address " ,Length: = 60 ) > _ Public Property [Address]() As String Get Return gAddress End Get Set ( ByVal value As String ) gAddress = value End Set End Property < Sql9nvarchar(Name: = " City " ,Length: = 15 ) > _ Public Property [City]() As String Get Return gCity End Get Set ( ByVal value As String ) gCity = value End Set End Property < Sql9nvarchar(Name: = " Region " ,Length: = 15 ) > _ Public Property [Region]() As String Get Return gRegion End Get Set ( ByVal value As String ) gRegion = value End Set End Property < Sql9nvarchar(Name: = " PostalCode " ,Length: = 10 ) > _ Public Property [PostalCode]() As String Get Return gPostalCode End Get Set ( ByVal value As String ) gPostalCode = value End Set End Property < Sql9nvarchar(Name: = " Country " ,Length: = 15 ) > _ Public Property [Country]() As String Get Return gCountry End Get Set ( ByVal value As String ) gCountry = value End Set End Property < Sql9nvarchar(Name: = " HomePhone " ,Length: = 24 ) > _ Public Property [HomePhone]() As String Get Return gHomePhone End Get Set ( ByVal value As String ) gHomePhone = value End Set End Property < Sql9nvarchar(Name: = " Extension " ,Length: = 4 ) > _ Public Property [Extension]() As String Get Return gExtension End Get Set ( ByVal value As String ) gExtension = value End Set End Property < Sql9image(Name: = " Photo " ) > _ Public Property [Photo]() As Byte () Get Return gPhoto End Get Set ( ByVal value As Byte ()) gPhoto = value End Set End Property < Sql9ntext(Name: = " Notes " ) > _ Public Property [Notes]() As String Get Return gNotes End Get Set ( ByVal value As String ) gNotes = value End Set End Property < Sql9int(Name: = " ReportsTo " ) > _ Public Property [ReportsTo]() As Int32 Get Return gReportsTo End Get Set ( ByVal value As Int32) gReportsTo = value End Set End Property < Sql9nvarchar(Name: = " PhotoPath " ,Length: = 255 ) > _ Public Property [PhotoPath]() As String Get Return gPhotoPath End Get Set ( ByVal value As String ) gPhotoPath = value End Set End Property End Class < Sql9Table(Name: = " EmployeeTerritories " ,Schema: = " dbo " ) > _ Public Class EmployeeTerritoriesClass Private gEmployeeID As Int32 Private gTerritoryID As String < Sql9int(Name: = " EmployeeID " ,IsPrimary: = True ,IsNullable: = False ) > _ Public Property [EmployeeID]() As Int32 Get Return gEmployeeID End Get Set ( ByVal value As Int32) gEmployeeID = value End Set End Property < Sql9nvarchar(Name: = " TerritoryID " ,IsPrimary: = True ,IsNullable: = False ,Length: = 20 ) > _ Public Property [TerritoryID]() As String Get Return gTerritoryID End Get Set ( ByVal value As String ) gTerritoryID = value End Set End Property End Class < Sql9Table(Name: = " Order Details " ,Schema: = " dbo " ) > _ Public Class Order_DetailsClass Private gOrderID As Int32 Private gProductID As Int32 Private gUnitPrice As Decimal Private gQuantity As Int16 Private gDiscount As Single < Sql9int(Name: = " OrderID " ,IsPrimary: = True ,IsNullable: = False ) > _ Public Property [OrderID]() As Int32 Get Return gOrderID End Get Set ( ByVal value As Int32) gOrderID = value End Set End Property < Sql9int(Name: = " ProductID " ,IsPrimary: = True ,IsNullable: = False ) > _ Public Property [ProductID]() As Int32 Get Return gProductID End Get Set ( ByVal value As Int32) gProductID = value End Set End Property < Sql9money(Name: = " UnitPrice " ,IsNullable: = False ,DefaultOrBinding: = " ((0)) " ) > _ Public Property [UnitPrice]() As Decimal Get Return gUnitPrice End Get Set ( ByVal value As Decimal ) gUnitPrice = value End Set End Property < Sql9smallint(Name: = " Quantity " ,IsNullable: = False ,DefaultOrBinding: = " ((1)) " ) > _ Public Property [Quantity]() As Int16 Get Return gQuantity End Get Set ( ByVal value As Int16) gQuantity = value End Set End Property < Sql9real(Name: = " Discount " ,IsNullable: = False ,DefaultOrBinding: = " ((0)) " ) > _ Public Property [Discount]() As Single Get Return gDiscount End Get Set ( ByVal value As Single ) gDiscount = value End Set End Property End Class < Sql9Table(Name: = " Orders " ,Schema: = " dbo " ) > _ Public Class OrdersClass Private gOrderID As Int32 Private gCustomerID As String Private gEmployeeID As Int32 Private gOrderDate As DateTime Private gRequiredDate As DateTime Private gShippedDate As DateTime Private gShipVia As Int32 Private gFreight As Decimal Private gShipName As String Private gShipAddress As String Private gShipCity As String Private gShipRegion As String Private gShipPostalCode As String Private gShipCountry As String < Sql9int(Name: = " OrderID " ,IsPrimary: = True ,IsNullable: = False ,IsIdentity: = True ) > _ Public Property [OrderID]() As Int32 Get Return gOrderID End Get Set ( ByVal value As Int32) gOrderID = value End Set End Property < Sql9nchar(Name: = " CustomerID " ,Length: = 5 ) > _ Public Property [CustomerID]() As String Get Return gCustomerID End Get Set ( ByVal value As String ) gCustomerID = value End Set End Property < Sql9int(Name: = " EmployeeID " ) > _ Public Property [EmployeeID]() As Int32 Get Return gEmployeeID End Get Set ( ByVal value As Int32) gEmployeeID = value End Set End Property < Sql9datetime(Name: = " OrderDate " ) > _ Public Property [OrderDate]() As DateTime Get Return gOrderDate End Get Set ( ByVal value As DateTime) gOrderDate = value End Set End Property < Sql9datetime(Name: = " RequiredDate " ) > _ Public Property [RequiredDate]() As DateTime Get Return gRequiredDate End Get Set ( ByVal value As DateTime) gRequiredDate = value End Set End Property < Sql9datetime(Name: = " ShippedDate " ) > _ Public Property [ShippedDate]() As DateTime Get Return gShippedDate End Get Set ( ByVal value As DateTime) gShippedDate = value End Set End Property < Sql9int(Name: = " ShipVia " ) > _ Public Property [ShipVia]() As Int32 Get Return gShipVia End Get Set ( ByVal value As Int32) gShipVia = value End Set End Property < Sql9money(Name: = " Freight " ,DefaultOrBinding: = " ((0)) " ) > _ Public Property [Freight]() As Decimal Get Return gFreight End Get Set ( ByVal value As Decimal ) gFreight = value End Set End Property < Sql9nvarchar(Name: = " ShipName " ,Length: = 40 ) > _ Public Property [ShipName]() As String Get Return gShipName End Get Set ( ByVal value As String ) gShipName = value End Set End Property < Sql9nvarchar(Name: = " ShipAddress " ,Length: = 60 ) > _ Public Property [ShipAddress]() As String Get Return gShipAddress End Get Set ( ByVal value As String ) gShipAddress = value End Set End Property < Sql9nvarchar(Name: = " ShipCity " ,Length: = 15 ) > _ Public Property [ShipCity]() As String Get Return gShipCity End Get Set ( ByVal value As String ) gShipCity = value End Set End Property < Sql9nvarchar(Name: = " ShipRegion " ,Length: = 15 ) > _ Public Property [ShipRegion]() As String Get Return gShipRegion End Get Set ( ByVal value As String ) gShipRegion = value End Set End Property < Sql9nvarchar(Name: = " ShipPostalCode " ,Length: = 10 ) > _ Public Property [ShipPostalCode]() As String Get Return gShipPostalCode End Get Set ( ByVal value As String ) gShipPostalCode = value End Set End Property < Sql9nvarchar(Name: = " ShipCountry " ,Length: = 15 ) > _ Public Property [ShipCountry]() As String Get Return gShipCountry End Get Set ( ByVal value As String ) gShipCountry = value End Set End Property End Class < Sql9Table(Name: = " Products " ,Schema: = " dbo " ) > _ Public Class ProductsClass Private gProductID As Int32 Private gProductName As String Private gSupplierID As Int32 Private gCategoryID As Int32 Private gQuantityPerUnit As String Private gUnitPrice As Decimal Private gUnitsInStock As Int16 Private gUnitsOnOrder As Int16 Private gReorderLevel As Int16 Private gDiscontinued As Boolean < Sql9int(Name: = " ProductID " ,IsPrimary: = True ,IsNullable: = False ,IsIdentity: = True ) > _ Public Property [ProductID]() As Int32 Get Return gProductID End Get Set ( ByVal value As Int32) gProductID = value End Set End Property < Sql9nvarchar(Name: = " ProductName " ,IsNullable: = False ,Length: = 40 ) > _ Public Property [ProductName]() As String Get Return gProductName End Get Set ( ByVal value As String ) gProductName = value End Set End Property < Sql9int(Name: = " SupplierID " ) > _ Public Property [SupplierID]() As Int32 Get Return gSupplierID End Get Set ( ByVal value As Int32) gSupplierID = value End Set End Property < Sql9int(Name: = " CategoryID " ) > _ Public Property [CategoryID]() As Int32 Get Return gCategoryID End Get Set ( ByVal value As Int32) gCategoryID = value End Set End Property < Sql9nvarchar(Name: = " QuantityPerUnit " ,Length: = 20 ) > _ Public Property [QuantityPerUnit]() As String Get Return gQuantityPerUnit End Get Set ( ByVal value As String ) gQuantityPerUnit = value End Set End Property < Sql9money(Name: = " UnitPrice " ,DefaultOrBinding: = " ((0)) " ) > _ Public Property [UnitPrice]() As Decimal Get Return gUnitPrice End Get Set ( ByVal value As Decimal ) gUnitPrice = value End Set End Property < Sql9smallint(Name: = " UnitsInStock " ,DefaultOrBinding: = " ((0)) " ) > _ Public Property [UnitsInStock]() As Int16 Get Return gUnitsInStock End Get Set ( ByVal value As Int16) gUnitsInStock = value End Set End Property < Sql9smallint(Name: = " UnitsOnOrder " ,DefaultOrBinding: = " ((0)) " ) > _ Public Property [UnitsOnOrder]() As Int16 Get Return gUnitsOnOrder End Get Set ( ByVal value As Int16) gUnitsOnOrder = value End Set End Property < Sql9smallint(Name: = " ReorderLevel " ,DefaultOrBinding: = " ((0)) " ) > _ Public Property [ReorderLevel]() As Int16 Get Return gReorderLevel End Get Set ( ByVal value As Int16) gReorderLevel = value End Set End Property < Sql9bit(Name: = " Discontinued " ,IsNullable: = False ,DefaultOrBinding: = " ((0)) " ) > _ Public Property [Discontinued]() As Boolean Get Return gDiscontinued End Get Set ( ByVal value As Boolean ) gDiscontinued = value End Set End Property End Class < Sql9Table(Name: = " Region " ,Schema: = " dbo " ) > _ Public Class RegionClass Private gRegionID As Int32 Private gRegionDescription As String < Sql9int(Name: = " RegionID " ,IsPrimary: = True ,IsNullable: = False ) > _ Public Property [RegionID]() As Int32 Get Return gRegionID End Get Set ( ByVal value As Int32) gRegionID = value End Set End Property < Sql9nchar(Name: = " RegionDescription " ,IsNullable: = False ,Length: = 50 ) > _ Public Property [RegionDescription]() As String Get Return gRegionDescription End Get Set ( ByVal value As String ) gRegionDescription = value End Set End Property End Class < Sql9Table(Name: = " Shippers " ,Schema: = " dbo " ) > _ Public Class ShippersClass Private gShipperID As Int32 Private gCompanyName As String Private gPhone As String < Sql9int(Name: = " ShipperID " ,IsPrimary: = True ,IsNullable: = False ,IsIdentity: = True ) > _ Public Property [ShipperID]() As Int32 Get Return gShipperID End Get Set ( ByVal value As Int32) gShipperID = value End Set End Property < Sql9nvarchar(Name: = " CompanyName " ,IsNullable: = False ,Length: = 40 ) > _ Public Property [CompanyName]() As String Get Return gCompanyName End Get Set ( ByVal value As String ) gCompanyName = value End Set End Property < Sql9nvarchar(Name: = " Phone " ,Length: = 24 ) > _ Public Property [Phone]() As String Get Return gPhone End Get Set ( ByVal value As String ) gPhone = value End Set End Property End Class < Sql9Table(Name: = " Suppliers " ,Schema: = " dbo " ) > _ Public Class SuppliersClass Private gSupplierID As Int32 Private gCompanyName As String Private gContactName As String Private gContactTitle As String Private gAddress As String Private gCity As String Private gRegion As String Private gPostalCode As String Private gCountry As String Private gPhone As String Private gFax As String Private gHomePage As String < Sql9int(Name: = " SupplierID " ,IsPrimary: = True ,IsNullable: = False ,IsIdentity: = True ) > _ Public Property [SupplierID]() As Int32 Get Return gSupplierID End Get Set ( ByVal value As Int32) gSupplierID = value End Set End Property < Sql9nvarchar(Name: = " CompanyName " ,IsNullable: = False ,Length: = 40 ) > _ Public Property [CompanyName]() As String Get Return gCompanyName End Get Set ( ByVal value As String ) gCompanyName = value End Set End Property < Sql9nvarchar(Name: = " ContactName " ,Length: = 30 ) > _ Public Property [ContactName]() As String Get Return gContactName End Get Set ( ByVal value As String ) gContactName = value End Set End Property < Sql9nvarchar(Name: = " ContactTitle " ,Length: = 30 ) > _ Public Property [ContactTitle]() As String Get Return gContactTitle End Get Set ( ByVal value As String ) gContactTitle = value End Set End Property < Sql9nvarchar(Name: = " Address " ,Length: = 60 ) > _ Public Property [Address]() As String Get Return gAddress End Get Set ( ByVal value As String ) gAddress = value End Set End Property < Sql9nvarchar(Name: = " City " ,Length: = 15 ) > _ Public Property [City]() As String Get Return gCity End Get Set ( ByVal value As String ) gCity = value End Set End Property < Sql9nvarchar(Name: = " Region " ,Length: = 15 ) > _ Public Property [Region]() As String Get Return gRegion End Get Set ( ByVal value As String ) gRegion = value End Set End Property < Sql9nvarchar(Name: = " PostalCode " ,Length: = 10 ) > _ Public Property [PostalCode]() As String Get Return gPostalCode End Get Set ( ByVal value As String ) gPostalCode = value End Set End Property < Sql9nvarchar(Name: = " Country " ,Length: = 15 ) > _ Public Property [Country]() As String Get Return gCountry End Get Set ( ByVal value As String ) gCountry = value End Set End Property < Sql9nvarchar(Name: = " Phone " ,Length: = 24 ) > _ Public Property [Phone]() As String Get Return gPhone End Get Set ( ByVal value As String ) gPhone = value End Set End Property < Sql9nvarchar(Name: = " Fax " ,Length: = 24 ) > _ Public Property [Fax]() As String Get Return gFax End Get Set ( ByVal value As String ) gFax = value End Set End Property < Sql9ntext(Name: = " HomePage " ) > _ Public Property [HomePage]() As String Get Return gHomePage End Get Set ( ByVal value As String ) gHomePage = value End Set End Property End Class < Sql9Table(Name: = " Territories " ,Schema: = " dbo " ) > _ Public Class TerritoriesClass Private gTerritoryID As String Private gTerritoryDescription As String Private gRegionID As Int32 < Sql9nvarchar(Name: = " TerritoryID " ,IsPrimary: = True ,IsNullable: = False ,Length: = 20 ) > _ Public Property [TerritoryID]() As String Get Return gTerritoryID End Get Set ( ByVal value As String ) gTerritoryID = value End Set End Property < Sql9nchar(Name: = " TerritoryDescription " ,IsNullable: = False ,Length: = 50 ) > _ Public Property [TerritoryDescription]() As String Get Return gTerritoryDescription End Get Set ( ByVal value As String ) gTerritoryDescription = value End Set End Property < Sql9int(Name: = " RegionID " ,IsNullable: = False ) > _ Public Property [RegionID]() As Int32 Get Return gRegionID End Get Set ( ByVal value As Int32) gRegionID = value End Set End Property End Class
这样的结果,我觉得表现简单,信息丰富,方便利用.
