MS:02.11.2015

2015-11-03 09:54:39 +01:00
parent f26ba63935
commit 304df6b023
19 changed files with 182 additions and 198 deletions
--- a/app/DD-Record-Organiser/frmDokumentart_Konfig.Designer.vb
+++ b/app/DD-Record-Organiser/frmDokumentart_Konfig.Designer.vb
@@ -41,9 +41,10 @@ Partial Class frmDokumentart_Konfig
        Dim CHANGED_WHOLabel As System.Windows.Forms.Label
        Dim CHANGED_WHENLabel As System.Windows.Forms.Label
        Dim OBJEKTTYPLabel As System.Windows.Forms.Label
+        Dim SQL_RESULTLabel As System.Windows.Forms.Label
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDokumentart_Konfig))
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.TBDD_DOKUMENTARTBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
        Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
        Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@@ -92,6 +93,7 @@ Partial Class frmDokumentart_Konfig
        Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
        Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
        Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
+        Me.SQL_RESULTTextBox = New System.Windows.Forms.TextBox()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.lblSaveIndex = New System.Windows.Forms.Label()
        Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
@@ -167,6 +169,7 @@ Partial Class frmDokumentart_Konfig
        CHANGED_WHOLabel = New System.Windows.Forms.Label()
        CHANGED_WHENLabel = New System.Windows.Forms.Label()
        OBJEKTTYPLabel = New System.Windows.Forms.Label()
+        SQL_RESULTLabel = New System.Windows.Forms.Label()
        CType(Me.TBDD_DOKUMENTARTBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TBDD_DOKUMENTARTBindingNavigator.SuspendLayout()
        CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -302,9 +305,9 @@ Partial Class frmDokumentart_Konfig
        VALUELabel.AutoSize = True
        VALUELabel.Location = New System.Drawing.Point(662, 63)
        VALUELabel.Name = "VALUELabel"
-        VALUELabel.Size = New System.Drawing.Size(181, 15)
+        VALUELabel.Size = New System.Drawing.Size(150, 15)
        VALUELabel.TabIndex = 6
-        VALUELabel.Text = "Automatischer Indexierungswert:"
+        VALUELabel.Text = "Platzhalter Laufzeitvariable:"
        '
        'COMMENTLabel
        '
@@ -361,6 +364,15 @@ Partial Class frmDokumentart_Konfig
        OBJEKTTYPLabel.TabIndex = 26
        OBJEKTTYPLabel.Text = "Objekttyp:"
        '
+        'SQL_RESULTLabel
+        '
+        SQL_RESULTLabel.AutoSize = True
+        SQL_RESULTLabel.Location = New System.Drawing.Point(929, 63)
+        SQL_RESULTLabel.Name = "SQL_RESULTLabel"
+        SQL_RESULTLabel.Size = New System.Drawing.Size(68, 15)
+        SQL_RESULTLabel.TabIndex = 79
+        SQL_RESULTLabel.Text = "SQL-Result:"
+        '
        'TBDD_DOKUMENTARTBindingNavigator
        '
        Me.TBDD_DOKUMENTARTBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem
@@ -833,6 +845,8 @@ Partial Class frmDokumentart_Konfig
        'XtraTabPage1
        '
        Me.XtraTabPage1.AutoScroll = True
+        Me.XtraTabPage1.Controls.Add(SQL_RESULTLabel)
+        Me.XtraTabPage1.Controls.Add(Me.SQL_RESULTTextBox)
        Me.XtraTabPage1.Controls.Add(Me.Label2)
        Me.XtraTabPage1.Controls.Add(Me.lblSaveIndex)
        Me.XtraTabPage1.Controls.Add(CHANGED_WHENLabel)
@@ -858,6 +872,16 @@ Partial Class frmDokumentart_Konfig
        Me.XtraTabPage1.Size = New System.Drawing.Size(1265, 252)
        Me.XtraTabPage1.Text = "Automatische Indexe"
        '
+        'SQL_RESULTTextBox
+        '
+        Me.SQL_RESULTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "SQL_RESULT", True))
+        Me.SQL_RESULTTextBox.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.SQL_RESULTTextBox.Location = New System.Drawing.Point(932, 81)
+        Me.SQL_RESULTTextBox.Multiline = True
+        Me.SQL_RESULTTextBox.Name = "SQL_RESULTTextBox"
+        Me.SQL_RESULTTextBox.Size = New System.Drawing.Size(317, 115)
+        Me.SQL_RESULTTextBox.TabIndex = 80
+        '
        'Label2
        '
        Me.Label2.AutoSize = True
@@ -954,7 +978,7 @@ Partial Class frmDokumentart_Konfig
        '
        Me.INDEXNAMEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "INDEXNAME", True))
        Me.INDEXNAMEComboBox.FormattingEnabled = True
-        Me.INDEXNAMEComboBox.Location = New System.Drawing.Point(391, 81)
+        Me.INDEXNAMEComboBox.Location = New System.Drawing.Point(391, 80)
        Me.INDEXNAMEComboBox.Name = "INDEXNAMEComboBox"
        Me.INDEXNAMEComboBox.Size = New System.Drawing.Size(268, 23)
        Me.INDEXNAMEComboBox.TabIndex = 0
@@ -1125,8 +1149,8 @@ Partial Class frmDokumentart_Konfig
        '
        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AllowUserToAddRows = False
        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AllowUserToDeleteRows = False
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua
-        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua
+        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
            Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1134,14 +1158,14 @@ Partial Class frmDokumentart_Konfig
        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9})
        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.DataSource = Me.TBPMO_WD_FORMVIEW_DOKTYPESBindingSource
-        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(32, Byte), Integer), CType(CType(31, Byte), Integer), CType(CType(53, Byte), Integer))
-        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.DefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(59, Byte), Integer), CType(CType(59, Byte), Integer), CType(CType(59, Byte), Integer))
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.DefaultCellStyle = DataGridViewCellStyle2
        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.Location = New System.Drawing.Point(11, 106)
        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.Name = "TBPMO_WD_FORMVIEW_DOKTYPESDataGridView"
        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.ReadOnly = True
@@ -1520,4 +1544,5 @@ Partial Class frmDokumentart_Konfig
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents ListBox3 As System.Windows.Forms.ListBox
    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents SQL_RESULTTextBox As System.Windows.Forms.TextBox
 End Class