replace old property grid for final indexes

This commit is contained in:
Jonathan Jenne 2022-08-18 11:53:12 +02:00
parent 8652ea4a57
commit 0e0dd77075
4 changed files with 2097 additions and 2763 deletions

View File

@ -168,7 +168,7 @@ Public Class ClassFinalIndex
Return LIST_VECTOR_INDICIES.Contains(type) Return LIST_VECTOR_INDICIES.Contains(type)
End Function End Function
Public Shared Function GetIndexType(indexName As String, indicies As List(Of String), types As List(Of Integer)) Public Function GetIndexType(indexName As String, indicies As List(Of String), types As List(Of Integer)) As Integer
Try Try
Dim position As Integer = indicies.IndexOf(indexName) Dim position As Integer = indicies.IndexOf(indexName)
Dim type As Integer = types.Item(position) Dim type As Integer = types.Item(position)
@ -176,6 +176,7 @@ Public Class ClassFinalIndex
Return type Return type
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message & vbNewLine & $"Please check whether attribute {indexName} exists in AtributesList!", MsgBoxStyle.Critical) MsgBox(ex.Message & vbNewLine & $"Please check whether attribute {indexName} exists in AtributesList!", MsgBoxStyle.Critical)
Return Nothing
End Try End Try
End Function End Function

View File

@ -88,7 +88,45 @@ Partial Class frmAdministration
Me.colALLOW_NEW_VALUES = New DevExpress.XtraGrid.Columns.GridColumn() Me.colALLOW_NEW_VALUES = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colDESCRIPTION1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colDESCRIPTION1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colACTIVE = New DevExpress.XtraGrid.Columns.GridColumn() Me.colACTIVE = New DevExpress.XtraGrid.Columns.GridColumn()
Me.PropertyGrid1 = New System.Windows.Forms.PropertyGrid() Me.pgFinalIndexes = New DevExpress.XtraVerticalGrid.PropertyGridControl()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItemRefreshProfileData = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem10 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem12 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem13 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem14 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem15 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem16 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem17 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem18 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem19 = New DevExpress.XtraBars.BarButtonItem()
Me.tsbStaticInfo = New DevExpress.XtraBars.BarStaticItem()
Me.BarButtonItem20 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem21 = New DevExpress.XtraBars.BarButtonItem()
Me.bbtnItemFinishSQL = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem22 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem23 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem24 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem25 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem26 = New DevExpress.XtraBars.BarButtonItem()
Me.BarToggleSwitchItemEdit = New DevExpress.XtraBars.BarToggleSwitchItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupProfile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@ -209,44 +247,6 @@ Partial Class frmAdministration
Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter() Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter()
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_ProcessManager.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_ProcessManager.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItemRefreshProfileData = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem10 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem12 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem13 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem14 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem15 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem16 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem17 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem18 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem19 = New DevExpress.XtraBars.BarButtonItem()
Me.tsbStaticInfo = New DevExpress.XtraBars.BarStaticItem()
Me.BarButtonItem20 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem21 = New DevExpress.XtraBars.BarButtonItem()
Me.bbtnItemFinishSQL = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem22 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem23 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem24 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem25 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem26 = New DevExpress.XtraBars.BarButtonItem()
Me.BarToggleSwitchItemEdit = New DevExpress.XtraBars.BarToggleSwitchItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupProfile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
GUIDLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label()
NAMELabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label()
@ -293,6 +293,8 @@ Partial Class frmAdministration
CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.FinalIndexDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.FinalIndexDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.viewFinalIndex, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.viewFinalIndex, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pgFinalIndexes, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -326,7 +328,6 @@ Partial Class frmAdministration
CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlMain.SuspendLayout() Me.pnlMain.SuspendLayout()
CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'GUIDLabel 'GUIDLabel
@ -641,7 +642,7 @@ Partial Class frmAdministration
' '
'SplitContainerControl1.Panel2 'SplitContainerControl1.Panel2
' '
Me.SplitContainerControl1.Panel2.Controls.Add(Me.PropertyGrid1) Me.SplitContainerControl1.Panel2.Controls.Add(Me.pgFinalIndexes)
resources.ApplyResources(Me.SplitContainerControl1.Panel2, "SplitContainerControl1.Panel2") resources.ApplyResources(Me.SplitContainerControl1.Panel2, "SplitContainerControl1.Panel2")
Me.SplitContainerControl1.SplitterPosition = 506 Me.SplitContainerControl1.SplitterPosition = 506
' '
@ -733,11 +734,318 @@ Partial Class frmAdministration
Me.colACTIVE.FieldName = "ACTIVE" Me.colACTIVE.FieldName = "ACTIVE"
Me.colACTIVE.Name = "colACTIVE" Me.colACTIVE.Name = "colACTIVE"
' '
'PropertyGrid1 'pgFinalIndexes
' '
resources.ApplyResources(Me.PropertyGrid1, "PropertyGrid1") Me.pgFinalIndexes.Cursor = System.Windows.Forms.Cursors.Default
Me.PropertyGrid1.Name = "PropertyGrid1" resources.ApplyResources(Me.pgFinalIndexes, "pgFinalIndexes")
Me.PropertyGrid1.TabStop = False Me.pgFinalIndexes.MenuManager = Me.RibbonControl1
Me.pgFinalIndexes.Name = "pgFinalIndexes"
Me.pgFinalIndexes.OptionsView.AllowReadOnlyRowAppearance = DevExpress.Utils.DefaultBoolean.[True]
'
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItemRefreshProfileData, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.tsbStaticInfo, Me.BarButtonItem20, Me.BarButtonItem21, Me.bbtnItemFinishSQL, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.BarButtonItem26, Me.BarToggleSwitchItemEdit})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 30
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
'
'BarButtonItemRefreshProfileData
'
resources.ApplyResources(Me.BarButtonItemRefreshProfileData, "BarButtonItemRefreshProfileData")
Me.BarButtonItemRefreshProfileData.Id = 1
Me.BarButtonItemRefreshProfileData.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemRefreshProfileData.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItemRefreshProfileData.Name = "BarButtonItemRefreshProfileData"
'
'BarButtonItem2
'
resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
Me.BarButtonItem2.Id = 2
Me.BarButtonItem2.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.chartdesigner2
Me.BarButtonItem2.Name = "BarButtonItem2"
'
'BarButtonItem3
'
resources.ApplyResources(Me.BarButtonItem3, "BarButtonItem3")
Me.BarButtonItem3.Id = 3
Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem3.Name = "BarButtonItem3"
Me.BarButtonItem3.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'BarButtonItem4
'
resources.ApplyResources(Me.BarButtonItem4, "BarButtonItem4")
Me.BarButtonItem4.Id = 4
Me.BarButtonItem4.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem4.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem4.Name = "BarButtonItem4"
Me.BarButtonItem4.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'BarButtonItem5
'
resources.ApplyResources(Me.BarButtonItem5, "BarButtonItem5")
Me.BarButtonItem5.Id = 5
Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem5.Name = "BarButtonItem5"
Me.BarButtonItem5.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'BarButtonItem6
'
resources.ApplyResources(Me.BarButtonItem6, "BarButtonItem6")
Me.BarButtonItem6.Id = 6
Me.BarButtonItem6.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem6.Name = "BarButtonItem6"
Me.BarButtonItem6.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'BarButtonItem7
'
resources.ApplyResources(Me.BarButtonItem7, "BarButtonItem7")
Me.BarButtonItem7.Id = 7
Me.BarButtonItem7.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem7.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem7.Name = "BarButtonItem7"
'
'BarButtonItem8
'
resources.ApplyResources(Me.BarButtonItem8, "BarButtonItem8")
Me.BarButtonItem8.Id = 8
Me.BarButtonItem8.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem8.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem8.Name = "BarButtonItem8"
'
'BarButtonItem9
'
resources.ApplyResources(Me.BarButtonItem9, "BarButtonItem9")
Me.BarButtonItem9.Id = 9
Me.BarButtonItem9.ImageOptions.Image = CType(resources.GetObject("BarButtonItem9.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem9.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem9.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem9.Name = "BarButtonItem9"
'
'BarButtonItem10
'
resources.ApplyResources(Me.BarButtonItem10, "BarButtonItem10")
Me.BarButtonItem10.Id = 10
Me.BarButtonItem10.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem10.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem10.Name = "BarButtonItem10"
'
'BarButtonItem11
'
resources.ApplyResources(Me.BarButtonItem11, "BarButtonItem11")
Me.BarButtonItem11.Id = 11
Me.BarButtonItem11.ImageOptions.Image = CType(resources.GetObject("BarButtonItem11.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem11.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem11.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem11.Name = "BarButtonItem11"
'
'BarButtonItem12
'
resources.ApplyResources(Me.BarButtonItem12, "BarButtonItem12")
Me.BarButtonItem12.Id = 12
Me.BarButtonItem12.ImageOptions.Image = CType(resources.GetObject("BarButtonItem12.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem12.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem12.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem12.Name = "BarButtonItem12"
'
'BarButtonItem13
'
resources.ApplyResources(Me.BarButtonItem13, "BarButtonItem13")
Me.BarButtonItem13.Id = 13
Me.BarButtonItem13.ImageOptions.Image = CType(resources.GetObject("BarButtonItem13.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem13.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem13.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem13.Name = "BarButtonItem13"
'
'BarButtonItem14
'
resources.ApplyResources(Me.BarButtonItem14, "BarButtonItem14")
Me.BarButtonItem14.Id = 14
Me.BarButtonItem14.ImageOptions.Image = CType(resources.GetObject("BarButtonItem14.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem14.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem14.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem14.Name = "BarButtonItem14"
'
'BarButtonItem15
'
resources.ApplyResources(Me.BarButtonItem15, "BarButtonItem15")
Me.BarButtonItem15.Id = 15
Me.BarButtonItem15.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem15.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem15.MergeOrder = 1
Me.BarButtonItem15.Name = "BarButtonItem15"
'
'BarButtonItem16
'
resources.ApplyResources(Me.BarButtonItem16, "BarButtonItem16")
Me.BarButtonItem16.Id = 16
Me.BarButtonItem16.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem16.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem16.MergeOrder = 3
Me.BarButtonItem16.Name = "BarButtonItem16"
'
'BarButtonItem17
'
resources.ApplyResources(Me.BarButtonItem17, "BarButtonItem17")
Me.BarButtonItem17.Id = 17
Me.BarButtonItem17.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem17.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem17.Name = "BarButtonItem17"
'
'BarButtonItem18
'
resources.ApplyResources(Me.BarButtonItem18, "BarButtonItem18")
Me.BarButtonItem18.Id = 18
Me.BarButtonItem18.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem18.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem18.MergeOrder = 2
Me.BarButtonItem18.Name = "BarButtonItem18"
'
'BarButtonItem19
'
resources.ApplyResources(Me.BarButtonItem19, "BarButtonItem19")
Me.BarButtonItem19.Id = 19
Me.BarButtonItem19.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.cancel1
Me.BarButtonItem19.Name = "BarButtonItem19"
'
'tsbStaticInfo
'
Me.tsbStaticInfo.Id = 20
Me.tsbStaticInfo.ItemAppearance.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
Me.tsbStaticInfo.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Black
Me.tsbStaticInfo.ItemAppearance.Normal.Options.UseBackColor = True
Me.tsbStaticInfo.ItemAppearance.Normal.Options.UseForeColor = True
Me.tsbStaticInfo.Name = "tsbStaticInfo"
Me.tsbStaticInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
'
'BarButtonItem20
'
resources.ApplyResources(Me.BarButtonItem20, "BarButtonItem20")
Me.BarButtonItem20.Id = 21
Me.BarButtonItem20.ImageOptions.Image = CType(resources.GetObject("BarButtonItem20.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem20.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem20.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem20.Name = "BarButtonItem20"
'
'BarButtonItem21
'
resources.ApplyResources(Me.BarButtonItem21, "BarButtonItem21")
Me.BarButtonItem21.Id = 22
Me.BarButtonItem21.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem21.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem21.Name = "BarButtonItem21"
Me.BarButtonItem21.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
'
'bbtnItemFinishSQL
'
resources.ApplyResources(Me.bbtnItemFinishSQL, "bbtnItemFinishSQL")
Me.bbtnItemFinishSQL.Id = 23
Me.bbtnItemFinishSQL.ImageOptions.SvgImage = CType(resources.GetObject("bbtnItemFinishSQL.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtnItemFinishSQL.Name = "bbtnItemFinishSQL"
'
'BarButtonItem22
'
resources.ApplyResources(Me.BarButtonItem22, "BarButtonItem22")
Me.BarButtonItem22.Id = 24
Me.BarButtonItem22.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem22.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem22.Name = "BarButtonItem22"
Me.BarButtonItem22.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
'
'BarButtonItem23
'
resources.ApplyResources(Me.BarButtonItem23, "BarButtonItem23")
Me.BarButtonItem23.Id = 25
Me.BarButtonItem23.Name = "BarButtonItem23"
'
'BarButtonItem24
'
resources.ApplyResources(Me.BarButtonItem24, "BarButtonItem24")
Me.BarButtonItem24.Id = 26
Me.BarButtonItem24.Name = "BarButtonItem24"
'
'BarButtonItem25
'
resources.ApplyResources(Me.BarButtonItem25, "BarButtonItem25")
Me.BarButtonItem25.Id = 27
Me.BarButtonItem25.Name = "BarButtonItem25"
'
'BarButtonItem26
'
resources.ApplyResources(Me.BarButtonItem26, "BarButtonItem26")
Me.BarButtonItem26.Id = 28
Me.BarButtonItem26.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.Security_Lock
Me.BarButtonItem26.Name = "BarButtonItem26"
Me.BarButtonItem26.Tag = "Unlock"
Me.BarButtonItem26.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
'
'BarToggleSwitchItemEdit
'
resources.ApplyResources(Me.BarToggleSwitchItemEdit, "BarToggleSwitchItemEdit")
Me.BarToggleSwitchItemEdit.Id = 29
Me.BarToggleSwitchItemEdit.Name = "BarToggleSwitchItemEdit"
Me.BarToggleSwitchItemEdit.Tag = "Unlock"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroupProfile, Me.RibbonPageGroup2, Me.RibbonPageGroup4})
Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
'
'RibbonPageGroup3
'
Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem26)
Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
Me.RibbonPageGroup3.Visible = False
'
'RibbonPageGroupProfile
'
Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItem8)
Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItem7)
Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItemRefreshProfileData)
Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItem5)
Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItem6)
Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItem21)
Me.RibbonPageGroupProfile.ItemLinks.Add(Me.bbtnItemFinishSQL)
Me.RibbonPageGroupProfile.MergeOrder = 1
Me.RibbonPageGroupProfile.Name = "RibbonPageGroupProfile"
resources.ApplyResources(Me.RibbonPageGroupProfile, "RibbonPageGroupProfile")
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem16)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem18)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem15)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem17)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem19)
Me.RibbonPageGroup2.MergeOrder = 0
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
'
'RibbonPageGroup4
'
Me.RibbonPageGroup4.AllowTextClipping = False
Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem22)
Me.RibbonPageGroup4.MergeOrder = 2
Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4")
'
'RibbonPage3
'
Me.RibbonPage3.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup5})
Me.RibbonPage3.Name = "RibbonPage3"
resources.ApplyResources(Me.RibbonPage3, "RibbonPage3")
'
'RibbonPageGroup5
'
Me.RibbonPageGroup5.ItemLinks.Add(Me.BarButtonItem20)
Me.RibbonPageGroup5.ItemLinks.Add(Me.BarButtonItem14)
Me.RibbonPageGroup5.ItemLinks.Add(Me.BarButtonItem11)
Me.RibbonPageGroup5.ItemLinks.Add(Me.BarButtonItem9)
Me.RibbonPageGroup5.ItemLinks.Add(Me.BarButtonItem10)
Me.RibbonPageGroup5.Name = "RibbonPageGroup5"
resources.ApplyResources(Me.RibbonPageGroup5, "RibbonPageGroup5")
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.tsbStaticInfo)
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
' '
'NAMELabel 'NAMELabel
' '
@ -1604,311 +1912,6 @@ Partial Class frmAdministration
' '
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True
' '
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItemRefreshProfileData, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.tsbStaticInfo, Me.BarButtonItem20, Me.BarButtonItem21, Me.bbtnItemFinishSQL, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.BarButtonItem26, Me.BarToggleSwitchItemEdit})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 30
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
'
'BarButtonItemRefreshProfileData
'
resources.ApplyResources(Me.BarButtonItemRefreshProfileData, "BarButtonItemRefreshProfileData")
Me.BarButtonItemRefreshProfileData.Id = 1
Me.BarButtonItemRefreshProfileData.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemRefreshProfileData.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItemRefreshProfileData.Name = "BarButtonItemRefreshProfileData"
'
'BarButtonItem2
'
resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
Me.BarButtonItem2.Id = 2
Me.BarButtonItem2.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.chartdesigner2
Me.BarButtonItem2.Name = "BarButtonItem2"
'
'BarButtonItem3
'
resources.ApplyResources(Me.BarButtonItem3, "BarButtonItem3")
Me.BarButtonItem3.Id = 3
Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem3.Name = "BarButtonItem3"
Me.BarButtonItem3.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'BarButtonItem4
'
resources.ApplyResources(Me.BarButtonItem4, "BarButtonItem4")
Me.BarButtonItem4.Id = 4
Me.BarButtonItem4.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem4.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem4.Name = "BarButtonItem4"
Me.BarButtonItem4.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'BarButtonItem5
'
resources.ApplyResources(Me.BarButtonItem5, "BarButtonItem5")
Me.BarButtonItem5.Id = 5
Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem5.Name = "BarButtonItem5"
Me.BarButtonItem5.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'BarButtonItem6
'
resources.ApplyResources(Me.BarButtonItem6, "BarButtonItem6")
Me.BarButtonItem6.Id = 6
Me.BarButtonItem6.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem6.Name = "BarButtonItem6"
Me.BarButtonItem6.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'BarButtonItem7
'
resources.ApplyResources(Me.BarButtonItem7, "BarButtonItem7")
Me.BarButtonItem7.Id = 7
Me.BarButtonItem7.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem7.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem7.Name = "BarButtonItem7"
'
'BarButtonItem8
'
resources.ApplyResources(Me.BarButtonItem8, "BarButtonItem8")
Me.BarButtonItem8.Id = 8
Me.BarButtonItem8.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem8.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem8.Name = "BarButtonItem8"
'
'BarButtonItem9
'
resources.ApplyResources(Me.BarButtonItem9, "BarButtonItem9")
Me.BarButtonItem9.Id = 9
Me.BarButtonItem9.ImageOptions.Image = CType(resources.GetObject("BarButtonItem9.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem9.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem9.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem9.Name = "BarButtonItem9"
'
'BarButtonItem10
'
resources.ApplyResources(Me.BarButtonItem10, "BarButtonItem10")
Me.BarButtonItem10.Id = 10
Me.BarButtonItem10.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem10.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem10.Name = "BarButtonItem10"
'
'BarButtonItem11
'
resources.ApplyResources(Me.BarButtonItem11, "BarButtonItem11")
Me.BarButtonItem11.Id = 11
Me.BarButtonItem11.ImageOptions.Image = CType(resources.GetObject("BarButtonItem11.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem11.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem11.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem11.Name = "BarButtonItem11"
'
'BarButtonItem12
'
resources.ApplyResources(Me.BarButtonItem12, "BarButtonItem12")
Me.BarButtonItem12.Id = 12
Me.BarButtonItem12.ImageOptions.Image = CType(resources.GetObject("BarButtonItem12.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem12.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem12.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem12.Name = "BarButtonItem12"
'
'BarButtonItem13
'
resources.ApplyResources(Me.BarButtonItem13, "BarButtonItem13")
Me.BarButtonItem13.Id = 13
Me.BarButtonItem13.ImageOptions.Image = CType(resources.GetObject("BarButtonItem13.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem13.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem13.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem13.Name = "BarButtonItem13"
'
'BarButtonItem14
'
resources.ApplyResources(Me.BarButtonItem14, "BarButtonItem14")
Me.BarButtonItem14.Id = 14
Me.BarButtonItem14.ImageOptions.Image = CType(resources.GetObject("BarButtonItem14.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem14.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem14.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem14.Name = "BarButtonItem14"
'
'BarButtonItem15
'
resources.ApplyResources(Me.BarButtonItem15, "BarButtonItem15")
Me.BarButtonItem15.Id = 15
Me.BarButtonItem15.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem15.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem15.MergeOrder = 1
Me.BarButtonItem15.Name = "BarButtonItem15"
'
'BarButtonItem16
'
resources.ApplyResources(Me.BarButtonItem16, "BarButtonItem16")
Me.BarButtonItem16.Id = 16
Me.BarButtonItem16.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem16.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem16.MergeOrder = 3
Me.BarButtonItem16.Name = "BarButtonItem16"
'
'BarButtonItem17
'
resources.ApplyResources(Me.BarButtonItem17, "BarButtonItem17")
Me.BarButtonItem17.Id = 17
Me.BarButtonItem17.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem17.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem17.Name = "BarButtonItem17"
'
'BarButtonItem18
'
resources.ApplyResources(Me.BarButtonItem18, "BarButtonItem18")
Me.BarButtonItem18.Id = 18
Me.BarButtonItem18.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem18.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem18.MergeOrder = 2
Me.BarButtonItem18.Name = "BarButtonItem18"
'
'BarButtonItem19
'
resources.ApplyResources(Me.BarButtonItem19, "BarButtonItem19")
Me.BarButtonItem19.Id = 19
Me.BarButtonItem19.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.cancel1
Me.BarButtonItem19.Name = "BarButtonItem19"
'
'tsbStaticInfo
'
Me.tsbStaticInfo.Id = 20
Me.tsbStaticInfo.ItemAppearance.Normal.BackColor = System.Drawing.Color.Yellow
Me.tsbStaticInfo.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Black
Me.tsbStaticInfo.ItemAppearance.Normal.Options.UseBackColor = True
Me.tsbStaticInfo.ItemAppearance.Normal.Options.UseForeColor = True
Me.tsbStaticInfo.Name = "tsbStaticInfo"
Me.tsbStaticInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
'
'BarButtonItem20
'
resources.ApplyResources(Me.BarButtonItem20, "BarButtonItem20")
Me.BarButtonItem20.Id = 21
Me.BarButtonItem20.ImageOptions.Image = CType(resources.GetObject("BarButtonItem20.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem20.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem20.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem20.Name = "BarButtonItem20"
'
'BarButtonItem21
'
resources.ApplyResources(Me.BarButtonItem21, "BarButtonItem21")
Me.BarButtonItem21.Id = 22
Me.BarButtonItem21.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem21.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem21.Name = "BarButtonItem21"
Me.BarButtonItem21.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
'
'bbtnItemFinishSQL
'
resources.ApplyResources(Me.bbtnItemFinishSQL, "bbtnItemFinishSQL")
Me.bbtnItemFinishSQL.Id = 23
Me.bbtnItemFinishSQL.ImageOptions.SvgImage = CType(resources.GetObject("bbtnItemFinishSQL.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtnItemFinishSQL.Name = "bbtnItemFinishSQL"
'
'BarButtonItem22
'
resources.ApplyResources(Me.BarButtonItem22, "BarButtonItem22")
Me.BarButtonItem22.Id = 24
Me.BarButtonItem22.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem22.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem22.Name = "BarButtonItem22"
Me.BarButtonItem22.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
'
'BarButtonItem23
'
resources.ApplyResources(Me.BarButtonItem23, "BarButtonItem23")
Me.BarButtonItem23.Id = 25
Me.BarButtonItem23.Name = "BarButtonItem23"
'
'BarButtonItem24
'
resources.ApplyResources(Me.BarButtonItem24, "BarButtonItem24")
Me.BarButtonItem24.Id = 26
Me.BarButtonItem24.Name = "BarButtonItem24"
'
'BarButtonItem25
'
resources.ApplyResources(Me.BarButtonItem25, "BarButtonItem25")
Me.BarButtonItem25.Id = 27
Me.BarButtonItem25.Name = "BarButtonItem25"
'
'BarButtonItem26
'
resources.ApplyResources(Me.BarButtonItem26, "BarButtonItem26")
Me.BarButtonItem26.Id = 28
Me.BarButtonItem26.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.Security_Lock
Me.BarButtonItem26.Name = "BarButtonItem26"
Me.BarButtonItem26.Tag = "Unlock"
Me.BarButtonItem26.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
'
'BarToggleSwitchItemEdit
'
resources.ApplyResources(Me.BarToggleSwitchItemEdit, "BarToggleSwitchItemEdit")
Me.BarToggleSwitchItemEdit.Id = 29
Me.BarToggleSwitchItemEdit.Name = "BarToggleSwitchItemEdit"
Me.BarToggleSwitchItemEdit.Tag = "Unlock"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroupProfile, Me.RibbonPageGroup2, Me.RibbonPageGroup4})
Me.RibbonPage1.Name = "RibbonPage1"
resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
'
'RibbonPageGroup3
'
Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem26)
Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
Me.RibbonPageGroup3.Visible = False
'
'RibbonPageGroupProfile
'
Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItem8)
Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItem7)
Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItemRefreshProfileData)
Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItem5)
Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItem6)
Me.RibbonPageGroupProfile.ItemLinks.Add(Me.BarButtonItem21)
Me.RibbonPageGroupProfile.ItemLinks.Add(Me.bbtnItemFinishSQL)
Me.RibbonPageGroupProfile.MergeOrder = 1
Me.RibbonPageGroupProfile.Name = "RibbonPageGroupProfile"
resources.ApplyResources(Me.RibbonPageGroupProfile, "RibbonPageGroupProfile")
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem16)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem18)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem15)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem17)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem19)
Me.RibbonPageGroup2.MergeOrder = 0
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
'
'RibbonPageGroup4
'
Me.RibbonPageGroup4.AllowTextClipping = False
Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem22)
Me.RibbonPageGroup4.MergeOrder = 2
Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4")
'
'RibbonPage3
'
Me.RibbonPage3.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup5})
Me.RibbonPage3.Name = "RibbonPage3"
resources.ApplyResources(Me.RibbonPage3, "RibbonPage3")
'
'RibbonPageGroup5
'
Me.RibbonPageGroup5.ItemLinks.Add(Me.BarButtonItem20)
Me.RibbonPageGroup5.ItemLinks.Add(Me.BarButtonItem14)
Me.RibbonPageGroup5.ItemLinks.Add(Me.BarButtonItem11)
Me.RibbonPageGroup5.ItemLinks.Add(Me.BarButtonItem9)
Me.RibbonPageGroup5.ItemLinks.Add(Me.BarButtonItem10)
Me.RibbonPageGroup5.Name = "RibbonPageGroup5"
resources.ApplyResources(Me.RibbonPageGroup5, "RibbonPageGroup5")
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.tsbStaticInfo)
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
'
'RibbonPage2 'RibbonPage2
' '
Me.RibbonPage2.Name = "RibbonPage2" Me.RibbonPage2.Name = "RibbonPage2"
@ -1962,6 +1965,8 @@ Partial Class frmAdministration
CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.FinalIndexDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.FinalIndexDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.viewFinalIndex, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.viewFinalIndex, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pgFinalIndexes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@ -1976,7 +1981,6 @@ Partial Class frmAdministration
Me.TabPageAfterIndex.ResumeLayout(False) Me.TabPageAfterIndex.ResumeLayout(False)
Me.TabControl2.ResumeLayout(False) Me.TabControl2.ResumeLayout(False)
Me.TabPage11.ResumeLayout(False) Me.TabPage11.ResumeLayout(False)
Me.TabPage11.PerformLayout()
Me.Panel5.ResumeLayout(False) Me.Panel5.ResumeLayout(False)
Me.TabPage12.ResumeLayout(False) Me.TabPage12.ResumeLayout(False)
Me.TabPage12.PerformLayout() Me.TabPage12.PerformLayout()
@ -2002,7 +2006,6 @@ Partial Class frmAdministration
CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlMain.ResumeLayout(False) Me.pnlMain.ResumeLayout(False)
CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -2107,7 +2110,6 @@ Partial Class frmAdministration
Friend WithEvents OpenFileDialog1 As OpenFileDialog Friend WithEvents OpenFileDialog1 As OpenFileDialog
Friend WithEvents gridFinalIndex As DevExpress.XtraGrid.GridControl Friend WithEvents gridFinalIndex As DevExpress.XtraGrid.GridControl
Friend WithEvents viewFinalIndex As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents viewFinalIndex As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents PropertyGrid1 As PropertyGrid
Friend WithEvents Panel5 As Panel Friend WithEvents Panel5 As Panel
Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILEBindingSource As BindingSource Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILEBindingSource As BindingSource
Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILETableAdapter As DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILETableAdapter As DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter
@ -2222,4 +2224,5 @@ Partial Class frmAdministration
Friend WithEvents BarToggleSwitchItemEdit As DevExpress.XtraBars.BarToggleSwitchItem Friend WithEvents BarToggleSwitchItemEdit As DevExpress.XtraBars.BarToggleSwitchItem
Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents pgFinalIndexes As DevExpress.XtraVerticalGrid.PropertyGridControl
End Class End Class

File diff suppressed because it is too large Load Diff

View File

@ -18,7 +18,8 @@ Public Class frmAdministration
Private ReadOnly email As New ClassEmail Private ReadOnly email As New ClassEmail
Private FormDesigner As frmFormDesigner Private FormDesigner As frmFormDesigner
Private _Logger As Logger = LOGCONFIG.GetLogger() Private FormHelper As FormHelper
Private ReadOnly _Logger As Logger = LOGCONFIG.GetLogger()
Private Property profile_guid As Integer = 0 Private Property profile_guid As Integer = 0
Private Property DT_CHART_CONFIG As DataTable Private Property DT_CHART_CONFIG As DataTable
@ -31,6 +32,7 @@ Public Class frmAdministration
UNSAVED_CHANGES_PROFILE = False UNSAVED_CHANGES_PROFILE = False
Try Try
FormDesigner = New frmFormDesigner() FormDesigner = New frmFormDesigner()
FormHelper = New FormHelper(LOGCONFIG, Me)
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
@ -55,9 +57,6 @@ Public Class frmAdministration
dragDropManager.AddGridView(viewAvailableGroups) dragDropManager.AddGridView(viewAvailableGroups)
dragDropManager.AddGridView(viewAssignedGroups) dragDropManager.AddGridView(viewAssignedGroups)
tabctrl_Profilkonfig.SelectedIndex = 0 tabctrl_Profilkonfig.SelectedIndex = 0
Catch ex As Exception Catch ex As Exception
@ -408,7 +407,7 @@ Public Class frmAdministration
End If End If
If FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING.Count = 0 Then If FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING.Count = 0 Then
PropertyGrid1.SelectedObject = Nothing pgFinalIndexes.SelectedObject = Nothing
End If End If
Catch ex As Exception Catch ex As Exception
@ -609,9 +608,12 @@ Public Class frmAdministration
Else Else
oQuestion = "Achtung es gibt noch ungespeicherte Änderungen! Wollen Sie diese nun speichern?" oQuestion = "Achtung es gibt noch ungespeicherte Änderungen! Wollen Sie diese nun speichern?"
End If End If
Dim result As MsgBoxResult = MsgBox(oQuestion, MsgBoxStyle.YesNo, ADDITIONAL_TITLE)
Dim oResult = FormHelper.ShowQuestionMessage(oQuestion, ADDITIONAL_TITLE)
'Dim result As MsgBoxResult = MsgBox(oQuestion, MsgBoxStyle.YesNo, ADDITIONAL_TITLE)
'wenn Speichern ja 'wenn Speichern ja
If result = MsgBoxResult.Yes Then If oResult = DialogResult.Yes Then
If UNSAVED_CHANGES_PROFILE Then If UNSAVED_CHANGES_PROFILE Then
Save_Profile() Save_Profile()
End If End If
@ -702,8 +704,11 @@ Public Class frmAdministration
obj.VectorIndex = FINALINDICES.IsVectorIndex(indexType) obj.VectorIndex = FINALINDICES.IsVectorIndex(indexType)
End If End If
PropertyGrid1.SelectedObject = obj 'PropertyGrid1.SelectedObject = obj
PropertyGrid1.Refresh() 'PropertyGrid1.Refresh()
pgFinalIndexes.SelectedObject = obj
pgFinalIndexes.Refresh()
If oShouldRefreshGrid Then If oShouldRefreshGrid Then
Refresh_Final_indexe() Refresh_Final_indexe()
@ -715,8 +720,58 @@ Public Class frmAdministration
End Try End Try
End Sub End Sub
Private Sub pgFinalIndexes_RowChanged(sender As Object, e As DevExpress.XtraVerticalGrid.Events.RowChangedEventArgs) Handles pgFinalIndexes.RowChanged
If FORM_LOADED = False Then
Exit Sub
End If
Private Sub PropertyGrid1_PropertyValueChanged(s As Object, e As PropertyValueChangedEventArgs) Handles PropertyGrid1.PropertyValueChanged ' Only changes of values are interesting here
If e.ChangeType <> DevExpress.XtraVerticalGrid.RowChangeTypeEnum.Value Then
Exit Sub
End If
Try
Dim propertyGrid As DevExpress.XtraVerticalGrid.PropertyGridControl = sender
Dim obj As FinalIndexProperties = propertyGrid.SelectedObject
Dim oValue = e.Properties.Value
Dim oName = e.Properties.FieldName
If TypeOf (oValue) Is SQLValue Then
Dim value As SQLValue = oValue
If value.Value <> String.Empty Then
'obj.ConnectionId = CURRENT_CONN_ID_FINAL_INDEX
obj.StringValue = "SQL-Command"
obj.ConnectionId = value.ConnectionId
'obj.FloatValue = 0
' obj.IntegerValue = 0
End If
pgFinalIndexes.Refresh()
Else
Dim lbl = oName
If oName = "Description" Then
obj.Description = oValue
ElseIf oName = "IndexName" Then
Dim type As Integer = FINALINDICES.GetIndexType(oValue, MyIndicies, MyIndicies_Types)
obj.VectorIndex = FINALINDICES.IsVectorIndex(type)
ElseIf oName = "Sequence" Then
obj.Sequence = oValue
ElseIf oName = "ContinueOnIndifferentState" Then
obj.ContinueOnIndifferentState = oValue
End If
pgFinalIndexes.Refresh()
End If
Catch ex As Exception
_Logger.Error(ex)
Finally
UNSAVED_CHANGES_FI = True
End Try
End Sub
Private Sub PropertyGrid1_PropertyValueChanged(s As Object, e As PropertyValueChangedEventArgs)
If FORM_LOADED = False Then If FORM_LOADED = False Then
Exit Sub Exit Sub
End If End If
@ -753,7 +808,7 @@ Public Class frmAdministration
propertyGrid.Refresh() propertyGrid.Refresh()
End If End If
Catch ex As Exception Catch ex As Exception
_LOGGER.Error(ex) _Logger.Error(ex)
Finally Finally
UNSAVED_CHANGES_FI = True UNSAVED_CHANGES_FI = True
End Try End Try
@ -968,7 +1023,8 @@ Public Class frmAdministration
End Sub End Sub
Private Sub Save_FI() Private Sub Save_FI()
Try Try
Dim obj As FinalIndexProperties = PropertyGrid1.SelectedObject 'Dim obj As FinalIndexProperties = PropertyGrid1.SelectedObject
Dim obj As FinalIndexProperties = pgFinalIndexes.SelectedObject
If Not IsNothing(obj) Then If Not IsNothing(obj) Then
@ -1158,6 +1214,8 @@ Public Class frmAdministration
Else Else
oQuestion = "Achtung es gibt noch ungespeicherte Änderungen! Wollen Sie diese nun speichern?" oQuestion = "Achtung es gibt noch ungespeicherte Änderungen! Wollen Sie diese nun speichern?"
End If End If
Dim result As MsgBoxResult = MsgBox(oQuestion, MsgBoxStyle.YesNo, ADDITIONAL_TITLE) Dim result As MsgBoxResult = MsgBox(oQuestion, MsgBoxStyle.YesNo, ADDITIONAL_TITLE)
'wenn Speichern ja 'wenn Speichern ja
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
@ -1452,4 +1510,5 @@ Public Class frmAdministration
EditMode_Profile("Unlock") EditMode_Profile("Unlock")
End Sub End Sub
End Class End Class