AppStd/ToolCollection
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Speichern von SQL Skripten - frmNIVerknuepfungen, frmNIVerknuepfungen.Designer

Browse Source
This commit is contained in:
OlgunR 2025-10-02 16:43:25 +02:00
parent 6eef02e0ec
commit 6270be7cdf
2 changed files with 40 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
ToolCollection/frmNIVerknuepfungen.Designer.vb generated
View File

@ -168,9 +168,9 @@ Partial Class frmNIVerknuepfungen
Me.rbvkt_overwrite = New System.Windows.Forms.RadioButton() Me.rbvkt_overwrite = New System.Windows.Forms.RadioButton()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.pnlFooter = New System.Windows.Forms.Panel() Me.pnlFooter = New System.Windows.Forms.Panel()
Me.btnSaveAllAndClose = New System.Windows.Forms.Button()
Me.btnCancelAllAndClose = New System.Windows.Forms.Button() Me.btnCancelAllAndClose = New System.Windows.Forms.Button()
Me.btnSaveAll = New System.Windows.Forms.Button() Me.btnSaveAll = New System.Windows.Forms.Button()
Me.btnSaveAllAndClose = New System.Windows.Forms.Button()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
@ -208,7 +208,8 @@ Partial Class frmNIVerknuepfungen
Me.txtfinalSkriptUpdate.Multiline = True Me.txtfinalSkriptUpdate.Multiline = True
Me.txtfinalSkriptUpdate.Name = "txtfinalSkriptUpdate" Me.txtfinalSkriptUpdate.Name = "txtfinalSkriptUpdate"
Me.txtfinalSkriptUpdate.RightToLeft = System.Windows.Forms.RightToLeft.No Me.txtfinalSkriptUpdate.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.txtfinalSkriptUpdate.Size = New System.Drawing.Size(963, 166) Me.txtfinalSkriptUpdate.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtfinalSkriptUpdate.Size = New System.Drawing.Size(868, 166)
Me.txtfinalSkriptUpdate.TabIndex = 29 Me.txtfinalSkriptUpdate.TabIndex = 29
' '
'cmbDatenbankSpalten 'cmbDatenbankSpalten
@ -415,7 +416,7 @@ Partial Class frmNIVerknuepfungen
Me.GroupBox1.Controls.Add(Me.Button3) Me.GroupBox1.Controls.Add(Me.Button3)
Me.GroupBox1.Controls.Add(Me.Button1) Me.GroupBox1.Controls.Add(Me.Button1)
Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(975, 47) Me.GroupBox1.Location = New System.Drawing.Point(890, 47)
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(147, 83) Me.GroupBox1.Size = New System.Drawing.Size(147, 83)
Me.GroupBox1.TabIndex = 50 Me.GroupBox1.TabIndex = 50
@ -480,14 +481,12 @@ Partial Class frmNIVerknuepfungen
Me.btnWindreamIndexEinfügenSQL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnWindreamIndexEinfügenSQL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnWindreamIndexEinfügenSQL.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnWindreamIndexEinfügenSQL.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnWindreamIndexEinfügenSQL.Image = Global.ToolCollection.My.Resources.Resources.add Me.btnWindreamIndexEinfügenSQL.Image = Global.ToolCollection.My.Resources.Resources.add
Me.btnWindreamIndexEinfügenSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnWindreamIndexEinfügenSQL.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.btnWindreamIndexEinfügenSQL.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnWindreamIndexEinfügenSQL.Location = New System.Drawing.Point(1161, 149) Me.btnWindreamIndexEinfügenSQL.Location = New System.Drawing.Point(1194, 149)
Me.btnWindreamIndexEinfügenSQL.Name = "btnWindreamIndexEinfügenSQL" Me.btnWindreamIndexEinfügenSQL.Name = "btnWindreamIndexEinfügenSQL"
Me.btnWindreamIndexEinfügenSQL.RightToLeft = System.Windows.Forms.RightToLeft.No Me.btnWindreamIndexEinfügenSQL.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.btnWindreamIndexEinfügenSQL.Size = New System.Drawing.Size(69, 21) Me.btnWindreamIndexEinfügenSQL.Size = New System.Drawing.Size(33, 22)
Me.btnWindreamIndexEinfügenSQL.TabIndex = 47 Me.btnWindreamIndexEinfügenSQL.TabIndex = 47
Me.btnWindreamIndexEinfügenSQL.Text = "Add"
Me.btnWindreamIndexEinfügenSQL.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnWindreamIndexEinfügenSQL.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnWindreamIndexEinfügenSQL.UseVisualStyleBackColor = True Me.btnWindreamIndexEinfügenSQL.UseVisualStyleBackColor = True
' '
@ -565,12 +564,12 @@ Partial Class frmNIVerknuepfungen
Me.Label9.AutoSize = True Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label9.Location = New System.Drawing.Point(977, 133) Me.Label9.Location = New System.Drawing.Point(887, 154)
Me.Label9.Name = "Label9" Me.Label9.Name = "Label9"
Me.Label9.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Label9.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Label9.Size = New System.Drawing.Size(92, 13) Me.Label9.Size = New System.Drawing.Size(94, 13)
Me.Label9.TabIndex = 46 Me.Label9.TabIndex = 46
Me.Label9.Text = "windream Index:" Me.Label9.Text = "Windream Index:"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
' '
'gbUpdate 'gbUpdate
@ -617,7 +616,7 @@ Partial Class frmNIVerknuepfungen
Me.lblsaveSQLAnweisung.AutoSize = True Me.lblsaveSQLAnweisung.AutoSize = True
Me.lblsaveSQLAnweisung.BackColor = System.Drawing.Color.Yellow Me.lblsaveSQLAnweisung.BackColor = System.Drawing.Color.Yellow
Me.lblsaveSQLAnweisung.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblsaveSQLAnweisung.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblsaveSQLAnweisung.Location = New System.Drawing.Point(980, 173) Me.lblsaveSQLAnweisung.Location = New System.Drawing.Point(887, 185)
Me.lblsaveSQLAnweisung.Name = "lblsaveSQLAnweisung" Me.lblsaveSQLAnweisung.Name = "lblsaveSQLAnweisung"
Me.lblsaveSQLAnweisung.Size = New System.Drawing.Size(38, 13) Me.lblsaveSQLAnweisung.Size = New System.Drawing.Size(38, 13)
Me.lblsaveSQLAnweisung.TabIndex = 51 Me.lblsaveSQLAnweisung.TabIndex = 51
@ -630,10 +629,10 @@ Partial Class frmNIVerknuepfungen
Me.cmbWindreamIndexeSQL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbWindreamIndexeSQL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbWindreamIndexeSQL.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cmbWindreamIndexeSQL.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbWindreamIndexeSQL.FormattingEnabled = True Me.cmbWindreamIndexeSQL.FormattingEnabled = True
Me.cmbWindreamIndexeSQL.Location = New System.Drawing.Point(980, 149) Me.cmbWindreamIndexeSQL.Location = New System.Drawing.Point(997, 149)
Me.cmbWindreamIndexeSQL.Name = "cmbWindreamIndexeSQL" Me.cmbWindreamIndexeSQL.Name = "cmbWindreamIndexeSQL"
Me.cmbWindreamIndexeSQL.RightToLeft = System.Windows.Forms.RightToLeft.No Me.cmbWindreamIndexeSQL.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.cmbWindreamIndexeSQL.Size = New System.Drawing.Size(164, 21) Me.cmbWindreamIndexeSQL.Size = New System.Drawing.Size(191, 21)
Me.cmbWindreamIndexeSQL.TabIndex = 45 Me.cmbWindreamIndexeSQL.TabIndex = 45
' '
'lblDescr_Verknüpfungen 'lblDescr_Verknüpfungen
@ -1919,9 +1918,20 @@ Partial Class frmNIVerknuepfungen
Me.pnlFooter.Size = New System.Drawing.Size(1265, 44) Me.pnlFooter.Size = New System.Drawing.Size(1265, 44)
Me.pnlFooter.TabIndex = 53 Me.pnlFooter.TabIndex = 53
' '
'btnSaveAllAndClose
'
Me.btnSaveAllAndClose.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnSaveAllAndClose.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnSaveAllAndClose.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSaveAllAndClose.Location = New System.Drawing.Point(883, 6)
Me.btnSaveAllAndClose.Name = "btnSaveAllAndClose"
Me.btnSaveAllAndClose.Size = New System.Drawing.Size(120, 30)
Me.btnSaveAllAndClose.TabIndex = 2
Me.btnSaveAllAndClose.Text = "Ok"
Me.btnSaveAllAndClose.UseVisualStyleBackColor = False
'
'btnCancelAllAndClose 'btnCancelAllAndClose
' '
Me.btnCancelAllAndClose.Anchor = System.Windows.Forms.AnchorStyles.Top
Me.btnCancelAllAndClose.BackColor = System.Drawing.SystemColors.ControlLightLight Me.btnCancelAllAndClose.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnCancelAllAndClose.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.btnCancelAllAndClose.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnCancelAllAndClose.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnCancelAllAndClose.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@ -1934,7 +1944,6 @@ Partial Class frmNIVerknuepfungen
' '
'btnSaveAll 'btnSaveAll
' '
Me.btnSaveAll.Anchor = System.Windows.Forms.AnchorStyles.Top
Me.btnSaveAll.BackColor = System.Drawing.SystemColors.ControlLightLight Me.btnSaveAll.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnSaveAll.Enabled = False Me.btnSaveAll.Enabled = False
Me.btnSaveAll.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnSaveAll.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@ -1945,18 +1954,6 @@ Partial Class frmNIVerknuepfungen
Me.btnSaveAll.Text = "Übernehmen" Me.btnSaveAll.Text = "Übernehmen"
Me.btnSaveAll.UseVisualStyleBackColor = False Me.btnSaveAll.UseVisualStyleBackColor = False
' '
'btnSaveAllAndClose
'
Me.btnSaveAllAndClose.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnSaveAllAndClose.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnSaveAllAndClose.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSaveAllAndClose.Location = New System.Drawing.Point(883, 6)
Me.btnSaveAllAndClose.Name = "btnSaveAllAndClose"
Me.btnSaveAllAndClose.Size = New System.Drawing.Size(120, 30)
Me.btnSaveAllAndClose.TabIndex = 2
Me.btnSaveAllAndClose.Text = "Ok"
Me.btnSaveAllAndClose.UseVisualStyleBackColor = False
'
'frmNIVerknuepfungen 'frmNIVerknuepfungen
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

59
ToolCollection/frmNIVerknuepfungen.vb
View File

@ -2186,27 +2186,27 @@ Public Class frmNIVerknuepfungen
' End Try ' End Try
'End Sub 'End Sub
Private Sub txtUpdateAnweisung_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtfinalSkriptUpdate.LostFocus 'Private Sub txtUpdateAnweisung_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtfinalSkriptUpdate.LostFocus
'If Me.txtfinalSkriptUpdate.Text <> "" Then ' Me._selectedProfil.SQL_Anweisung = txtfinalSkriptUpdate.Text
' Try 'If Me.txtfinalSkriptUpdate.Text <> "" Then
' ' die Änderungen speichern ' Try
' If Me._selectedProfil.Save(True,"profile") = True Then ' wenn das Speichern erfolgreich war ' ' die Änderungen speichern
' Me._selectedProfil.setChanged() ' If Me._selectedProfil.Save(True,"profile") = True Then ' wenn das Speichern erfolgreich war
' Else ' Me._selectedProfil.setChanged()
' MsgBox("Das Profil konnte nicht erfolgreich gespeichert werden.", MsgBoxStyle.Exclamation, "Fehler beim Speichern eines Profils") ' Else
' End If ' MsgBox("Das Profil konnte nicht erfolgreich gespeichert werden.", MsgBoxStyle.Exclamation, "Fehler beim Speichern eines Profils")
' Catch ex As Exception ' End If
' MsgBox("Fehler beim Speichern des SQL-Befehles." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Speichern eines SQL-Befehls.") ' Catch ex As Exception
' End Try ' MsgBox("Fehler beim Speichern des SQL-Befehles." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Speichern eines SQL-Befehls.")
'End If ' End Try
End Sub 'End If
'End Sub
Private Sub txtUpdateAnweisung_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtfinalSkriptUpdate.TextChanged Private Sub txtUpdateAnweisung_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtfinalSkriptUpdate.TextChanged
If Not Me.txtfinalSkriptUpdate.Text = Me._selectedProfil.OriginalSQL_Anweisung Then If Not Me.txtfinalSkriptUpdate.Text = String.Empty And Not Me.txtfinalSkriptUpdate.Text = Me._selectedProfil.OriginalSQL_Anweisung Then
Me._selectedProfil.SQL_Anweisung = Me.txtfinalSkriptUpdate.Text Me._selectedProfil.SQL_Anweisung = Me.txtfinalSkriptUpdate.Text
Me._selectedProfil.setChanged() Me._selectedProfil.setChanged()
Me._selectedProfil._links.setLinksChanged()
btnSaveAll.Enabled = True btnSaveAll.Enabled = True
End If End If
@ -3635,32 +3635,6 @@ Public Class frmNIVerknuepfungen
End If End If
End Sub End Sub
Private Sub SaveScript()
If Me._selectedProfil IsNot Nothing Then
If Not Me.txtfinalSkriptUpdate.Text = Me._selectedProfil.OriginalSQL_Anweisung Then
Me._selectedProfil.SQL_Anweisung = Me.txtfinalSkriptUpdate.Text
Me._selectedProfil.setChanged()
Me._selectedProfil._links.setLinksChanged()
btnSaveAll.Enabled = True
Else
Exit Sub
End If
Else
Exit Sub
End If
If Me._selectedProfil.Save(True, "profile") = True Then
' wenn das Speichern erfolgreich war
Me.lblsaveSQLAnweisung.Text = "Data saved - " & Now.ToString
Me._selectedProfil.setSaved()
Me.btnSaveAll.Visible = False
Else
Me.lblsaveSQLAnweisung.Text = ""
End If
End Sub
Private Sub rbFunctionsSc_CheckedChanged(sender As Object, e As EventArgs) Handles rbFunctionsSc.CheckedChanged Private Sub rbFunctionsSc_CheckedChanged(sender As Object, e As EventArgs) Handles rbFunctionsSc.CheckedChanged
If Not _flagIgnoreCheckedChanged Then If Not _flagIgnoreCheckedChanged Then
If Me._selectedProfil Is Nothing = False Then If Me._selectedProfil Is Nothing = False Then
@ -3702,7 +3676,6 @@ Public Class frmNIVerknuepfungen
Private Sub btnSaveAll_Click(sender As Object, e As EventArgs) Handles btnSaveAll.Click Private Sub btnSaveAll_Click(sender As Object, e As EventArgs) Handles btnSaveAll.Click
SaveLinks() SaveLinks()
SaveProfile() SaveProfile()
SaveScript()
End Sub End Sub
Private Sub btnSaveAllAndClose_Click(sender As Object, e As EventArgs) Handles btnSaveAllAndClose.Click Private Sub btnSaveAllAndClose_Click(sender As Object, e As EventArgs) Handles btnSaveAllAndClose.Click