Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.Xpo
Namespace Northwind
	<OptimisticLocking(False)> _
	Public Class Shippers
		Inherits XPBaseObject
		Public CompanyName As String
		Public Phone As String
		<Key> _
		Public ShipperID As Integer
		Public Sub New(ByVal session As Session)
			MyBase.New(session)
		End Sub
	End Class

	<OptimisticLocking(False)> _
	Public Class Suppliers
		Inherits XPBaseObject
		Public Address As String
		Public City As String
		Public CompanyName As String
		Public ContactName As String
		Public ContactTitle As String
		Public Country As String
		Public Fax As String
		Public HomePage As String
		Public Phone As String
		Public PostalCode As String
		Public Region As String
		<Association("Product_Supplier", GetType(Products))> _
		Public ReadOnly Property Products() As XPCollection(Of Products)
			Get
				Return GetCollection(Of Products)("Products")
			End Get
		End Property
		<Key> _
		Public SupplierID As Integer
		Public Sub New(ByVal session As Session)
			MyBase.New(session)
		End Sub
	End Class

	<OptimisticLocking(False)> _
	Public Class Employees
		Inherits XPBaseObject
		Public Address As String
		Public BirthDate As DateTime
		Public City As String
		Public Country As String
		<Key> _
		Public EmployeeID As Integer
		Public Extension As String
		Public FirstName As String
		Public HireDate As DateTime
		Public HomePhone As String
		Public LastName As String
		Public Notes As String
		Public Photo() As Byte
		Public PostalCode As String
		Public Region As String
		Public ReportsTo As Integer
		Public Title As String
		Public TitleOfCourtesy As String
		Public Sub New(ByVal session As Session)
			MyBase.New(session)
		End Sub
	End Class

	<OptimisticLocking(False)> _
	Public Class Orders
		Inherits XPBaseObject
		Public CustomerID As Customers
		Public EmployeeID As Employees
		Public Freight As Decimal
		Public OrderDate As DateTime
		<Key> _
		Public OrderID As Integer
		Public RequiredDate As DateTime
		Public ShipAddress As String
		Public ShipCity As String
		Public ShipCountry As String
		Public ShipName As String
		Public ShippedDate As DateTime
		Public ShipPostalCode As String
		Public ShipRegion As String
		Public ShipVia As Shippers
		Public Sub New(ByVal session As Session)
			MyBase.New(session)
		End Sub
	End Class

	<OptimisticLocking(False)> _
	Public Class Categories
		Inherits XPBaseObject
		<Key> _
		Public CategoryID As Integer
		Public CategoryName As String
		Public Description As String
		Public Picture() As Byte
		Public Sub New(ByVal session As Session)
			MyBase.New(session)
		End Sub
	End Class

	<OptimisticLocking(False)> _
	Public Class Products
		Inherits XPBaseObject
		Public CategoryID As Categories
		Public Discontinued As Boolean
		Public EAN13 As String
		<Key> _
		Public ProductID As Integer
		Public ProductName As String
		Public QuantityPerUnit As String
		Public ReorderLevel As Short
		<Association("Product_Supplier")> _
		Public SupplierID As Suppliers
		Public UnitPrice As Decimal
		Public UnitsInStock As Short
		Public UnitsOnOrder As Short
		Public Sub New(ByVal session As Session)
			MyBase.New(session)
		End Sub
	End Class

	<OptimisticLocking(False)> _
	Public Class Customers
		Inherits XPBaseObject
		Public Address As String
		Public City As String
		Public CompanyName As String
		Public ContactName As String
		Public ContactTitle As String
		Public Country As String
		<Key> _
		Public CustomerID As String
		Public Fax As String
		Public Phone As String
		Public PostalCode As String
		Public Region As String
		Public Sub New(ByVal session As Session)
			MyBase.New(session)
		End Sub
	End Class
End Namespace