Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Drawing
Imports System.Data
Imports System.Text
Imports System.Windows.Forms
Imports DevExpress.Data.Filtering
Imports System.Globalization

Namespace DevExpress.XtraPivotGrid.Demos.Modules
	Partial Public Class Prefilter
		Inherits TutorialControl
		Private initialized As Boolean

		Public Sub New()
			CreateWaitDialog()
			InitializeComponent()

            TutorialInfo.WhatsThisCodeFile = "VB\PivotGridMainDemo\Modules\Prefilter.vb"
            TutorialInfo.WhatsThisXMLFile = "Prefilter.xml"

			pivotGridControl1.DataSource = GetNWindData("SalesPerson")
			initialized = True
			ApplyPrefilter()
		End Sub
		Public Overrides ReadOnly Property ViewOptionsControl() As PivotGridControl
			Get
				Return pivotGridControl1
			End Get
		End Property
		Public Overrides ReadOnly Property ExportControl() As PivotGridControl
			Get
				Return pivotGridControl1
			End Get
		End Property

		'<dateEdit1>
		'<dateEdit2>
		Private Sub dateEdit_EditValueChanged(ByVal sender As Object, ByVal e As EventArgs) Handles dateEdit1.EditValueChanged, dateEdit2.EditValueChanged
			If initialized Then
				ApplyPrefilter()
			End If
		End Sub

		Private Sub ApplyPrefilter()
			Dim str1 As String = GetCriteria(dateEdit1.DateTime, True), str2 As String = GetCriteria(dateEdit2.DateTime, False)

			If (Not String.IsNullOrEmpty(str1)) AndAlso (Not String.IsNullOrEmpty(str2)) Then
				pivotGridControl1.Prefilter.Criteria = CriteriaOperator.Parse(str1 & " And " & str2)
			Else
				pivotGridControl1.Prefilter.Criteria = CriteriaOperator.Parse(str1 & str2)
			End If
		End Sub
		Private Function GetCriteria(ByVal [date] As DateTime, ByVal isGreater As Boolean) As String
			If [date].Ticks = 0 Then
				Return ""
			End If
			Return String.Format("{0} {1} #{2}#", fieldOrderDate.Name,If(isGreater, ">=", "<="), Convert.ToString([date], CultureInfo.InvariantCulture))
		End Function
		'</dateEdit2>
		'</dateEdit1>
	End Class
End Namespace