Add Sequence Field, dont delete source files on error

This commit is contained in:
Jonathan Jenne
2021-06-09 16:13:14 +02:00
parent d96469941b
commit 86bdb0c545
6 changed files with 458 additions and 210 deletions

View File

@@ -45,6 +45,7 @@ Partial Class frmAdministration
Dim COMMENTLabel2 As System.Windows.Forms.Label
Dim IDXMAN_IDLabel As System.Windows.Forms.Label
Dim GUIDLabel5 As System.Windows.Forms.Label
Dim Label12 As System.Windows.Forms.Label
Dim GUIDLabel4 As System.Windows.Forms.Label
Dim INDEXNAMELabel As System.Windows.Forms.Label
Dim COMMENTLabel1 As System.Windows.Forms.Label
@@ -243,6 +244,7 @@ Partial Class frmAdministration
Me.INDEXNAME_AutoIndexCMB = New System.Windows.Forms.ComboBox()
Me.btnSQLViewAuto = New System.Windows.Forms.Button()
Me.SQL_ACTIVECheckBox = New System.Windows.Forms.CheckBox()
Me.TextBox8 = New System.Windows.Forms.TextBox()
Me.GUIDAUTO_INDEXTextbox = New System.Windows.Forms.TextBox()
Me.VALUETextBox = New System.Windows.Forms.TextBox()
Me.COMMENTTextBox1 = New System.Windows.Forms.TextBox()
@@ -327,6 +329,7 @@ Partial Class frmAdministration
COMMENTLabel2 = New System.Windows.Forms.Label()
IDXMAN_IDLabel = New System.Windows.Forms.Label()
GUIDLabel5 = New System.Windows.Forms.Label()
Label12 = New System.Windows.Forms.Label()
GUIDLabel4 = New System.Windows.Forms.Label()
INDEXNAMELabel = New System.Windows.Forms.Label()
COMMENTLabel1 = New System.Windows.Forms.Label()
@@ -1819,7 +1822,9 @@ Partial Class frmAdministration
Me.XtraTabPageAutoIndex.Controls.Add(Me.INDEXNAME_AutoIndexCMB)
Me.XtraTabPageAutoIndex.Controls.Add(Me.btnSQLViewAuto)
Me.XtraTabPageAutoIndex.Controls.Add(Me.SQL_ACTIVECheckBox)
Me.XtraTabPageAutoIndex.Controls.Add(Label12)
Me.XtraTabPageAutoIndex.Controls.Add(GUIDLabel4)
Me.XtraTabPageAutoIndex.Controls.Add(Me.TextBox8)
Me.XtraTabPageAutoIndex.Controls.Add(Me.GUIDAUTO_INDEXTextbox)
Me.XtraTabPageAutoIndex.Controls.Add(INDEXNAMELabel)
Me.XtraTabPageAutoIndex.Controls.Add(Me.VALUETextBox)
@@ -1923,11 +1928,22 @@ Partial Class frmAdministration
Me.SQL_ACTIVECheckBox.Name = "SQL_ACTIVECheckBox"
Me.SQL_ACTIVECheckBox.UseVisualStyleBackColor = True
'
'Label12
'
resources.ApplyResources(Label12, "Label12")
Label12.Name = "Label12"
'
'GUIDLabel4
'
resources.ApplyResources(GUIDLabel4, "GUIDLabel4")
GUIDLabel4.Name = "GUIDLabel4"
'
'TextBox8
'
Me.TextBox8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "SEQUENCE1", True))
resources.ApplyResources(Me.TextBox8, "TextBox8")
Me.TextBox8.Name = "TextBox8"
'
'GUIDAUTO_INDEXTextbox
'
Me.GUIDAUTO_INDEXTextbox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "GUID", True))
@@ -2755,4 +2771,5 @@ Partial Class frmAdministration
Friend WithEvents txtManIndexSQL As TextBox
Friend WithEvents txtAutomIndexConnectionId As TextBox
Friend WithEvents txtAutomIndexSQLResult As TextBox
Friend WithEvents TextBox8 As TextBox
End Class