Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports DevExpress.Xpf.Grid
Imports DevExpress.Xpf.Core
Imports DevExpress.DemoData.Helpers

Imports System.Data.EntityClient

Namespace GridDemo
	Public Class DemoValuesProvider
		Public ReadOnly Property CardLayouts() As IEnumerable(Of CardLayout)
			Get
				Return DevExpress.Data.Mask.EnumHelper.GetValues(GetType(CardLayout)).Cast(Of CardLayout)()
			End Get
		End Property
		Public ReadOnly Property Alignments() As IEnumerable(Of Alignment)
			Get
				Return DevExpress.Data.Mask.EnumHelper.GetValues(GetType(Alignment)).Cast(Of Alignment)()
			End Get
		End Property
		Public ReadOnly Property NavigationStyles() As IEnumerable(Of GridViewNavigationStyle)
			Get
				Return DevExpress.Data.Mask.EnumHelper.GetValues(GetType(GridViewNavigationStyle)).Cast(Of GridViewNavigationStyle)()
			End Get
		End Property
	End Class
	Public NotInheritable Class EFConnectionStringProvider
		Private Sub New()
		End Sub
		Public Shared ReadOnly Property ConnectionString() As String
			Get
				Dim sb As New EntityConnectionStringBuilder()
				sb.Metadata = "res://*/Controls.NWindModel.csdl|res://*/Controls.NWindModel.ssdl|res://*/Controls.NWindModel.msl"
				sb.Provider = "System.Data.SqlClient"
				sb.ProviderConnectionString = String.Format("data source=.\SQLEXPRESS;AttachDbFilename={0};integrated security=True;User Instance=True;multipleactiveresultsets=True;App=EntityFramework", System.IO.Path.GetFullPath(DataFilesHelper.FindFile("NWind.mdf", DataFilesHelper.DataPath)))
				Return sb.ToString()
			End Get
		End Property
	End Class
End Namespace