Form1.vb

Imports DevExpress.DashboardCommon
Imports DevExpress.XtraEditors
Imports DevExpress.DataAccess.EntityFramework

Namespace Dashboard_EntityFramework
	Partial Public Class Form1
		Inherits XtraForm

		Public Sub New()
			InitializeComponent()
			InitializeDashboard()
		End Sub

		Public Sub InitializeDashboard()
			Dim dashboard As New Dashboard()
			Dim efDataSource As New DashboardEFDataSource()
			efDataSource.ConnectionParameters = New EFConnectionParameters(GetType(OrdersContext))
			dashboard.DataSources.Add(efDataSource)

			Dim pivot As New PivotDashboardItem()
			pivot.DataMember = "Orders"
			pivot.DataSource = dashboard.DataSources(0)
			pivot.Rows.AddRange(New Dimension("ShipCountry"), New Dimension("ShipCity"))
			pivot.Columns.Add(New Dimension("OrderDate"))
			pivot.Values.Add(New Measure("Freight"))

			Dim chart As New ChartDashboardItem()
			chart.DataSource = dashboard.DataSources(0)
			chart.DataMember = "Orders"
			chart.Arguments.Add(New Dimension("OrderDate", DateTimeGroupInterval.Year))
			chart.Panes.Add(New ChartPane())
			Dim freightSeries As New SimpleSeries(SimpleSeriesType.Bar)
			freightSeries.Value = New Measure("Freight")
			chart.Panes(0).Series.Add(freightSeries)

			dashboard.Items.AddRange(pivot, chart)
			dashboardViewer1.Dashboard = dashboard
		End Sub
	End Class
End Namespace