MS12.02.2016

This commit is contained in:
SchreiberM
2016-02-12 09:45:43 +01:00
parent 2a36cc2a79
commit e1f073d69f
64 changed files with 25315 additions and 5580 deletions

View File

@@ -24,6 +24,7 @@ Partial Class frmSQLSuggestion
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim SQL_ERGEBNISLabel As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSQLSuggestion))
Dim SQL_UEBERPRUEFUNGLabel As System.Windows.Forms.Label
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.btnTestNachbearbeitung = New System.Windows.Forms.Button()
@@ -49,105 +50,64 @@ Partial Class frmSQLSuggestion
'
'SQL_ERGEBNISLabel
'
SQL_ERGEBNISLabel.AutoSize = True
SQL_ERGEBNISLabel.Location = New System.Drawing.Point(12, 66)
resources.ApplyResources(SQL_ERGEBNISLabel, "SQL_ERGEBNISLabel")
SQL_ERGEBNISLabel.Name = "SQL_ERGEBNISLabel"
SQL_ERGEBNISLabel.Size = New System.Drawing.Size(127, 13)
SQL_ERGEBNISLabel.TabIndex = 50
SQL_ERGEBNISLabel.Text = "SQL für Vorschlagsliste:"
'
'SQL_UEBERPRUEFUNGLabel
'
SQL_UEBERPRUEFUNGLabel.AutoSize = True
SQL_UEBERPRUEFUNGLabel.Location = New System.Drawing.Point(533, 66)
resources.ApplyResources(SQL_UEBERPRUEFUNGLabel, "SQL_UEBERPRUEFUNGLabel")
SQL_UEBERPRUEFUNGLabel.Name = "SQL_UEBERPRUEFUNGLabel"
SQL_UEBERPRUEFUNGLabel.Size = New System.Drawing.Size(437, 39)
SQL_UEBERPRUEFUNGLabel.TabIndex = 51
SQL_UEBERPRUEFUNGLabel.Text = "SQL-Überprüfung für manuellen Index:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Definieren Sie hier einen SQL-Befehl der di" & _
"e Auswahl auf VORHANDEN überprüft." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(SELECT COUNT(*) FROM IHRE_KEY_TABLE WHERE I" & _
"HRE_WERT_SPALTE = INPUTVALUE)"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.btnTestNachbearbeitung)
Me.GroupBox1.Controls.Add(Me.txtTest_idxMan)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Location = New System.Drawing.Point(15, 229)
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(351, 93)
Me.GroupBox1.TabIndex = 52
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Nachbearbeitung testen:"
'
'btnTestNachbearbeitung
'
Me.btnTestNachbearbeitung.Image = Global.Global_Indexer.My.Resources.Resources.database_go
Me.btnTestNachbearbeitung.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnTestNachbearbeitung.Location = New System.Drawing.Point(227, 59)
resources.ApplyResources(Me.btnTestNachbearbeitung, "btnTestNachbearbeitung")
Me.btnTestNachbearbeitung.Name = "btnTestNachbearbeitung"
Me.btnTestNachbearbeitung.Size = New System.Drawing.Size(103, 27)
Me.btnTestNachbearbeitung.TabIndex = 1
Me.btnTestNachbearbeitung.Text = "Test"
Me.btnTestNachbearbeitung.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnTestNachbearbeitung.UseVisualStyleBackColor = True
'
'txtTest_idxMan
'
Me.txtTest_idxMan.Location = New System.Drawing.Point(9, 63)
resources.ApplyResources(Me.txtTest_idxMan, "txtTest_idxMan")
Me.txtTest_idxMan.Name = "txtTest_idxMan"
Me.txtTest_idxMan.Size = New System.Drawing.Size(212, 22)
Me.txtTest_idxMan.TabIndex = 0
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(6, 21)
resources.ApplyResources(Me.Label2, "Label2")
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(324, 39)
Me.Label2.TabIndex = 0
Me.Label2.Text = "Geben Sie hier den Ausgangswert des manuellen Indexes ein." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Die Nachbearbeitung w" & _
"ird durchlaufen und Ihnen wird der " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ergebniswert angezeigt."
'
'btnVorschlag
'
Me.btnVorschlag.Image = Global.Global_Indexer.My.Resources.Resources.database_go
Me.btnVorschlag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVorschlag.Location = New System.Drawing.Point(372, 82)
resources.ApplyResources(Me.btnVorschlag, "btnVorschlag")
Me.btnVorschlag.Name = "btnVorschlag"
Me.btnVorschlag.Size = New System.Drawing.Size(151, 25)
Me.btnVorschlag.TabIndex = 48
Me.btnVorschlag.Text = "Teste SQL"
Me.btnVorschlag.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnVorschlag.UseVisualStyleBackColor = True
'
'SQL_ERGEBNISTextBox
'
Me.SQL_ERGEBNISTextBox.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SQL_ERGEBNISTextBox.Location = New System.Drawing.Point(15, 82)
Me.SQL_ERGEBNISTextBox.Multiline = True
resources.ApplyResources(Me.SQL_ERGEBNISTextBox, "SQL_ERGEBNISTextBox")
Me.SQL_ERGEBNISTextBox.Name = "SQL_ERGEBNISTextBox"
Me.SQL_ERGEBNISTextBox.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.SQL_ERGEBNISTextBox.Size = New System.Drawing.Size(351, 136)
Me.SQL_ERGEBNISTextBox.TabIndex = 47
'
'SQL_UEBERPRUEFUNGTextBox
'
Me.SQL_UEBERPRUEFUNGTextBox.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SQL_UEBERPRUEFUNGTextBox.Location = New System.Drawing.Point(536, 112)
Me.SQL_UEBERPRUEFUNGTextBox.Multiline = True
resources.ApplyResources(Me.SQL_UEBERPRUEFUNGTextBox, "SQL_UEBERPRUEFUNGTextBox")
Me.SQL_UEBERPRUEFUNGTextBox.Name = "SQL_UEBERPRUEFUNGTextBox"
Me.SQL_UEBERPRUEFUNGTextBox.Size = New System.Drawing.Size(434, 106)
Me.SQL_UEBERPRUEFUNGTextBox.TabIndex = 49
'
'cmbConnection
'
Me.cmbConnection.DataSource = Me.TBDD_CONNECTIONBindingSource
Me.cmbConnection.DisplayMember = "BEZEICHNUNG"
Me.cmbConnection.FormattingEnabled = True
Me.cmbConnection.Location = New System.Drawing.Point(15, 24)
resources.ApplyResources(Me.cmbConnection, "cmbConnection")
Me.cmbConnection.Name = "cmbConnection"
Me.cmbConnection.Size = New System.Drawing.Size(268, 21)
Me.cmbConnection.TabIndex = 53
Me.cmbConnection.ValueMember = "GUID"
'
'TBDD_CONNECTIONBindingSource
@@ -187,42 +147,27 @@ Partial Class frmSQLSuggestion
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(289, 22)
resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(112, 23)
Me.Button1.TabIndex = 54
Me.Button1.Text = "SQL-Connections"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(880, 229)
resources.ApplyResources(Me.Button2, "Button2")
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(90, 31)
Me.Button2.TabIndex = 55
Me.Button2.Text = "Speichern"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.UseVisualStyleBackColor = True
'
'lblSave
'
Me.lblSave.AutoSize = True
resources.ApplyResources(Me.lblSave, "lblSave")
Me.lblSave.BackColor = System.Drawing.Color.Yellow
Me.lblSave.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSave.Location = New System.Drawing.Point(679, 237)
Me.lblSave.Name = "lblSave"
Me.lblSave.Size = New System.Drawing.Size(195, 15)
Me.lblSave.TabIndex = 79
Me.lblSave.Text = "SQL-Daten erfolgreich gespeichert!"
Me.lblSave.Visible = False
'
'frmSQLSuggestion
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(973, 326)
Me.Controls.Add(Me.lblSave)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
@@ -233,12 +178,10 @@ Partial Class frmSQLSuggestion
Me.Controls.Add(Me.SQL_ERGEBNISTextBox)
Me.Controls.Add(SQL_UEBERPRUEFUNGLabel)
Me.Controls.Add(Me.SQL_UEBERPRUEFUNGTextBox)
Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmSQLSuggestion"
Me.Text = "Konfiguration SQL"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()