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)
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
Dim position As Integer = indicies.IndexOf(indexName)
Dim type As Integer = types.Item(position)
@ -176,6 +176,7 @@ Public Class ClassFinalIndex
Return type
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & $"Please check whether attribute {indexName} exists in AtributesList!", MsgBoxStyle.Critical)
Return Nothing
End Try
End Function

View File

@ -88,7 +88,45 @@ Partial Class frmAdministration
Me.colALLOW_NEW_VALUES = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colDESCRIPTION1 = 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.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
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.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_ProcessManager.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter()
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()
GUIDLabel = 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.FinalIndexDataSet, 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.TBPM_PROFILEBindingSource, 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()
Me.pnlMain.SuspendLayout()
CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'GUIDLabel
@ -641,7 +642,7 @@ Partial Class frmAdministration
'
'SplitContainerControl1.Panel2
'
Me.SplitContainerControl1.Panel2.Controls.Add(Me.PropertyGrid1)
Me.SplitContainerControl1.Panel2.Controls.Add(Me.pgFinalIndexes)
resources.ApplyResources(Me.SplitContainerControl1.Panel2, "SplitContainerControl1.Panel2")
Me.SplitContainerControl1.SplitterPosition = 506
'
@ -733,11 +734,318 @@ Partial Class frmAdministration
Me.colACTIVE.FieldName = "ACTIVE"
Me.colACTIVE.Name = "colACTIVE"
'
'PropertyGrid1
'pgFinalIndexes
'
resources.ApplyResources(Me.PropertyGrid1, "PropertyGrid1")
Me.PropertyGrid1.Name = "PropertyGrid1"
Me.PropertyGrid1.TabStop = False
Me.pgFinalIndexes.Cursor = System.Windows.Forms.Cursors.Default
resources.ApplyResources(Me.pgFinalIndexes, "pgFinalIndexes")
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
'
@ -1604,311 +1912,6 @@ Partial Class frmAdministration
'
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
'
Me.RibbonPage2.Name = "RibbonPage2"
@ -1962,6 +1965,8 @@ Partial Class frmAdministration
CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.FinalIndexDataSet, 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.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@ -1976,7 +1981,6 @@ Partial Class frmAdministration
Me.TabPageAfterIndex.ResumeLayout(False)
Me.TabControl2.ResumeLayout(False)
Me.TabPage11.ResumeLayout(False)
Me.TabPage11.PerformLayout()
Me.Panel5.ResumeLayout(False)
Me.TabPage12.ResumeLayout(False)
Me.TabPage12.PerformLayout()
@ -2002,7 +2006,6 @@ Partial Class frmAdministration
CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlMain.ResumeLayout(False)
CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -2107,7 +2110,6 @@ Partial Class frmAdministration
Friend WithEvents OpenFileDialog1 As OpenFileDialog
Friend WithEvents gridFinalIndex As DevExpress.XtraGrid.GridControl
Friend WithEvents viewFinalIndex As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents PropertyGrid1 As PropertyGrid
Friend WithEvents Panel5 As Panel
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
@ -2222,4 +2224,5 @@ Partial Class frmAdministration
Friend WithEvents BarToggleSwitchItemEdit As DevExpress.XtraBars.BarToggleSwitchItem
Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents pgFinalIndexes As DevExpress.XtraVerticalGrid.PropertyGridControl
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 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 DT_CHART_CONFIG As DataTable
@ -31,6 +32,7 @@ Public Class frmAdministration
UNSAVED_CHANGES_PROFILE = False
Try
FormDesigner = New frmFormDesigner()
FormHelper = New FormHelper(LOGCONFIG, Me)
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
@ -55,9 +57,6 @@ Public Class frmAdministration
dragDropManager.AddGridView(viewAvailableGroups)
dragDropManager.AddGridView(viewAssignedGroups)
tabctrl_Profilkonfig.SelectedIndex = 0
Catch ex As Exception
@ -408,7 +407,7 @@ Public Class frmAdministration
End If
If FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING.Count = 0 Then
PropertyGrid1.SelectedObject = Nothing
pgFinalIndexes.SelectedObject = Nothing
End If
Catch ex As Exception
@ -609,9 +608,12 @@ Public Class frmAdministration
Else
oQuestion = "Achtung es gibt noch ungespeicherte Änderungen! Wollen Sie diese nun speichern?"
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
If result = MsgBoxResult.Yes Then
If oResult = DialogResult.Yes Then
If UNSAVED_CHANGES_PROFILE Then
Save_Profile()
End If
@ -702,8 +704,11 @@ Public Class frmAdministration
obj.VectorIndex = FINALINDICES.IsVectorIndex(indexType)
End If
PropertyGrid1.SelectedObject = obj
PropertyGrid1.Refresh()
'PropertyGrid1.SelectedObject = obj
'PropertyGrid1.Refresh()
pgFinalIndexes.SelectedObject = obj
pgFinalIndexes.Refresh()
If oShouldRefreshGrid Then
Refresh_Final_indexe()
@ -715,8 +720,58 @@ Public Class frmAdministration
End Try
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
Exit Sub
End If
@ -753,7 +808,7 @@ Public Class frmAdministration
propertyGrid.Refresh()
End If
Catch ex As Exception
_LOGGER.Error(ex)
_Logger.Error(ex)
Finally
UNSAVED_CHANGES_FI = True
End Try
@ -968,7 +1023,8 @@ Public Class frmAdministration
End Sub
Private Sub Save_FI()
Try
Dim obj As FinalIndexProperties = PropertyGrid1.SelectedObject
'Dim obj As FinalIndexProperties = PropertyGrid1.SelectedObject
Dim obj As FinalIndexProperties = pgFinalIndexes.SelectedObject
If Not IsNothing(obj) Then
@ -1158,6 +1214,8 @@ Public Class frmAdministration
Else
oQuestion = "Achtung es gibt noch ungespeicherte Änderungen! Wollen Sie diese nun speichern?"
End If
Dim result As MsgBoxResult = MsgBox(oQuestion, MsgBoxStyle.YesNo, ADDITIONAL_TITLE)
'wenn Speichern ja
If result = MsgBoxResult.Yes Then
@ -1452,4 +1510,5 @@ Public Class frmAdministration
EditMode_Profile("Unlock")
End Sub
End Class