Fix SQL Command being overwritten for auto indexes, allow placeholders for manual indexes default value

This commit is contained in:
Jonathan Jenne
2020-07-09 12:01:10 +02:00
parent 1dc95d862f
commit b5708b851b
7 changed files with 2037 additions and 1725 deletions

View File

@@ -180,8 +180,12 @@ Partial Class frmAdministration
Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageManualIndex = New DevExpress.XtraTab.XtraTabPage()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox()
Me.Button3 = New System.Windows.Forms.Button()
Me.lbManIndexDefaultValueParameter = New System.Windows.Forms.ListBox()
Me.txtManIndexConnectionId = New System.Windows.Forms.TextBox()
Me.TBDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.txtManIndexSQL = New System.Windows.Forms.TextBox()
Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox()
Me.GUIDTextBox1 = New System.Windows.Forms.TextBox()
Me.VKT_PREVENT_MULTIPLE_VALUESCheckbox = New System.Windows.Forms.CheckBox()
Me.VKT_ADD_ITEMCheckbox = New System.Windows.Forms.CheckBox()
@@ -300,8 +304,8 @@ Partial Class frmAdministration
Me.TBGI_REGEX_DOCTYPETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_REGEX_DOCTYPETableAdapter()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPage8 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.txtManIndexSQL = New System.Windows.Forms.TextBox()
Me.txtManIndexConnectionId = New System.Windows.Forms.TextBox()
Me.txtAutomIndexSQLResult = New System.Windows.Forms.TextBox()
Me.txtAutomIndexConnectionId = New System.Windows.Forms.TextBox()
GUIDLabel = New System.Windows.Forms.Label()
GUIDLabel1 = New System.Windows.Forms.Label()
NAMELabel = New System.Windows.Forms.Label()
@@ -1294,6 +1298,8 @@ Partial Class frmAdministration
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Button3)
Me.Panel1.Controls.Add(Me.lbManIndexDefaultValueParameter)
Me.Panel1.Controls.Add(Me.txtManIndexConnectionId)
Me.Panel1.Controls.Add(Me.txtManIndexSQL)
Me.Panel1.Controls.Add(Me.ACTIVECheckBox)
@@ -1329,6 +1335,37 @@ Partial Class frmAdministration
resources.ApplyResources(Me.Panel1, "Panel1")
Me.Panel1.Name = "Panel1"
'
'Button3
'
Me.Button3.Image = Global.Global_Indexer.My.Resources.Resources.arrow_previous_16xLG
resources.ApplyResources(Me.Button3, "Button3")
Me.Button3.Name = "Button3"
Me.Button3.UseVisualStyleBackColor = True
'
'lbManIndexDefaultValueParameter
'
resources.ApplyResources(Me.lbManIndexDefaultValueParameter, "lbManIndexDefaultValueParameter")
Me.lbManIndexDefaultValueParameter.FormattingEnabled = True
Me.lbManIndexDefaultValueParameter.Items.AddRange(New Object() {resources.GetString("lbManIndexDefaultValueParameter.Items"), resources.GetString("lbManIndexDefaultValueParameter.Items1"), resources.GetString("lbManIndexDefaultValueParameter.Items2"), resources.GetString("lbManIndexDefaultValueParameter.Items3"), resources.GetString("lbManIndexDefaultValueParameter.Items4"), resources.GetString("lbManIndexDefaultValueParameter.Items5"), resources.GetString("lbManIndexDefaultValueParameter.Items6"), resources.GetString("lbManIndexDefaultValueParameter.Items7"), resources.GetString("lbManIndexDefaultValueParameter.Items8")})
Me.lbManIndexDefaultValueParameter.Name = "lbManIndexDefaultValueParameter"
'
'txtManIndexConnectionId
'
Me.txtManIndexConnectionId.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "CONNECTION_ID", True))
resources.ApplyResources(Me.txtManIndexConnectionId, "txtManIndexConnectionId")
Me.txtManIndexConnectionId.Name = "txtManIndexConnectionId"
'
'TBDD_INDEX_MANBindingSource
'
Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN"
Me.TBDD_INDEX_MANBindingSource.DataSource = Me.MyDataset
'
'txtManIndexSQL
'
Me.txtManIndexSQL.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "SQL_RESULT", True))
resources.ApplyResources(Me.txtManIndexSQL, "txtManIndexSQL")
Me.txtManIndexSQL.Name = "txtManIndexSQL"
'
'ACTIVECheckBox
'
Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "ACTIVE", True))
@@ -1336,11 +1373,6 @@ Partial Class frmAdministration
Me.ACTIVECheckBox.Name = "ACTIVECheckBox"
Me.ACTIVECheckBox.UseVisualStyleBackColor = True
'
'TBDD_INDEX_MANBindingSource
'
Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN"
Me.TBDD_INDEX_MANBindingSource.DataSource = Me.MyDataset
'
'GUIDTextBox1
'
Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "GUID", True))
@@ -1768,6 +1800,8 @@ Partial Class frmAdministration
Me.XtraTabPageAutoIndex.Appearance.Header.GradientMode = CType(resources.GetObject("XtraTabPageAutoIndex.Appearance.Header.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.XtraTabPageAutoIndex.Appearance.HeaderActive.GradientMode = CType(resources.GetObject("XtraTabPageAutoIndex.Appearance.HeaderActive.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
resources.ApplyResources(Me.XtraTabPageAutoIndex, "XtraTabPageAutoIndex")
Me.XtraTabPageAutoIndex.Controls.Add(Me.txtAutomIndexConnectionId)
Me.XtraTabPageAutoIndex.Controls.Add(Me.txtAutomIndexSQLResult)
Me.XtraTabPageAutoIndex.Controls.Add(Me.Label6)
Me.XtraTabPageAutoIndex.Controls.Add(Me.ListBoxControl4)
Me.XtraTabPageAutoIndex.Controls.Add(Me.btnAddWindowsVariable)
@@ -2385,17 +2419,17 @@ Partial Class frmAdministration
Me.RibbonPage8.Name = "RibbonPage8"
resources.ApplyResources(Me.RibbonPage8, "RibbonPage8")
'
'txtManIndexSQL
'txtAutomIndexSQLResult
'
Me.txtManIndexSQL.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "SQL_RESULT", True))
resources.ApplyResources(Me.txtManIndexSQL, "txtManIndexSQL")
Me.txtManIndexSQL.Name = "txtManIndexSQL"
Me.txtAutomIndexSQLResult.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "SQL_RESULT", True))
resources.ApplyResources(Me.txtAutomIndexSQLResult, "txtAutomIndexSQLResult")
Me.txtAutomIndexSQLResult.Name = "txtAutomIndexSQLResult"
'
'txtManIndexConnectionId
'txtAutomIndexConnectionId
'
Me.txtManIndexConnectionId.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "CONNECTION_ID", True))
resources.ApplyResources(Me.txtManIndexConnectionId, "txtManIndexConnectionId")
Me.txtManIndexConnectionId.Name = "txtManIndexConnectionId"
Me.txtAutomIndexConnectionId.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CONNECTION_ID", True))
resources.ApplyResources(Me.txtAutomIndexConnectionId, "txtAutomIndexConnectionId")
Me.txtAutomIndexConnectionId.Name = "txtAutomIndexConnectionId"
'
'frmAdministration
'
@@ -2706,4 +2740,8 @@ Partial Class frmAdministration
Friend WithEvents SplitContainerControl4 As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents txtManIndexSQL As TextBox
Friend WithEvents txtManIndexConnectionId As TextBox
Friend WithEvents Button3 As Button
Friend WithEvents lbManIndexDefaultValueParameter As ListBox
Friend WithEvents txtAutomIndexConnectionId As TextBox
Friend WithEvents txtAutomIndexSQLResult As TextBox
End Class