SQLEditor: lots of stuff

2022-05-05 16:34:56 +02:00
parent 6a2bd3eabe
commit 02f61b1e3f
14 changed files with 506 additions and 118 deletions
--- a/Controls.SQLEditor/frmSQLEditor.Designer.vb
+++ b/Controls.SQLEditor/frmSQLEditor.Designer.vb
@@ -29,16 +29,19 @@ Partial Class frmSQLEditor
        Me.btnEditConnections = New DevExpress.XtraBars.BarButtonItem()
        Me.btnSave = New DevExpress.XtraBars.BarButtonItem()
        Me.btnExecuteSQL = New DevExpress.XtraBars.BarButtonItem()
+        Me.RibbonGalleryBarItem2 = New DevExpress.XtraBars.RibbonGalleryBarItem()
+        Me.chkClearPlaceholders = New DevExpress.XtraBars.BarCheckItem()
+        Me.btnClearPlaceholders = New DevExpress.XtraBars.BarButtonItem()
        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RichEditControl1 = New DevExpress.XtraRichEdit.RichEditControl()
        Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
-        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
-        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.GridPlaceholders = New DevExpress.XtraGrid.GridControl()
+        Me.ViewPlaceholders = New DevExpress.XtraGrid.Views.Grid.GridView()
        Me.colPattern = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.colValue = New DevExpress.XtraGrid.Columns.GridColumn()
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -49,16 +52,16 @@ Partial Class frmSQLEditor
        CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SplitContainerControl1.Panel2.SuspendLayout()
        Me.SplitContainerControl1.SuspendLayout()
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridPlaceholders, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ViewPlaceholders, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'RibbonControl1
        '
        Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.RibbonGalleryBarItem1, Me.btnEditConnections, Me.btnSave, Me.btnExecuteSQL})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.RibbonGalleryBarItem1, Me.btnEditConnections, Me.btnSave, Me.btnExecuteSQL, Me.RibbonGalleryBarItem2, Me.chkClearPlaceholders, Me.btnClearPlaceholders})
        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 5
+        Me.RibbonControl1.MaxItemId = 11
        Me.RibbonControl1.Name = "RibbonControl1"
        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
        Me.RibbonControl1.Size = New System.Drawing.Size(1056, 158)
@@ -72,7 +75,6 @@ Partial Class frmSQLEditor
        '
        Me.RibbonGalleryBarItem1.Gallery.Images = Me.SvgImageCollection1
        Me.RibbonGalleryBarItem1.Gallery.ShowGroupCaption = True
-        Me.RibbonGalleryBarItem1.Gallery.ShowItemImage = False
        Me.RibbonGalleryBarItem1.Gallery.ShowItemText = True
        Me.RibbonGalleryBarItem1.Id = 1
        Me.RibbonGalleryBarItem1.Name = "RibbonGalleryBarItem1"
@@ -102,26 +104,38 @@ Partial Class frmSQLEditor
        Me.btnExecuteSQL.ImageOptions.SvgImage = Global.DigitalData.Controls.SQLEditor.My.Resources.Resources.updatedataextract3
        Me.btnExecuteSQL.Name = "btnExecuteSQL"
        '
+        'RibbonGalleryBarItem2
+        '
+        Me.RibbonGalleryBarItem2.Caption = "RibbonGalleryBarItem2"
+        '
+        '
+        '
+        Me.RibbonGalleryBarItem2.Gallery.CheckDrawMode = DevExpress.XtraBars.Ribbon.Gallery.CheckDrawMode.ImageAndText
+        Me.RibbonGalleryBarItem2.Gallery.ItemCheckMode = DevExpress.XtraBars.Ribbon.Gallery.ItemCheckMode.SingleRadio
+        Me.RibbonGalleryBarItem2.Gallery.ShowItemText = True
+        Me.RibbonGalleryBarItem2.Id = 5
+        Me.RibbonGalleryBarItem2.Name = "RibbonGalleryBarItem2"
+        '
+        'chkClearPlaceholders
+        '
+        Me.chkClearPlaceholders.Caption = "Platzhalter nach Ausführung leeren"
+        Me.chkClearPlaceholders.Id = 9
+        Me.chkClearPlaceholders.ImageOptions.SvgImage = Global.DigitalData.Controls.SQLEditor.My.Resources.Resources.cleartablestyle
+        Me.chkClearPlaceholders.Name = "chkClearPlaceholders"
+        '
+        'btnClearPlaceholders
+        '
+        Me.btnClearPlaceholders.Caption = "Platzhalter jetzt leeren"
+        Me.btnClearPlaceholders.Id = 10
+        Me.btnClearPlaceholders.ImageOptions.SvgImage = Global.DigitalData.Controls.SQLEditor.My.Resources.Resources.clearall
+        Me.btnClearPlaceholders.Name = "btnClearPlaceholders"
+        '
        'RibbonPage1
        '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroup4, Me.RibbonPageGroup1})
        Me.RibbonPage1.Name = "RibbonPage1"
        Me.RibbonPage1.Text = "RibbonPage1"
        '
-        'RibbonPageGroup1
-        '
-        Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
-        Me.RibbonPageGroup1.ItemLinks.Add(Me.RibbonGalleryBarItem1)
-        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
-        Me.RibbonPageGroup1.Text = "Platzhalter"
-        '
-        'RibbonPageGroup2
-        '
-        Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.btnEditConnections)
-        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
-        Me.RibbonPageGroup2.Text = "Datenbank"
-        '
        'RibbonPageGroup3
        '
        Me.RibbonPageGroup3.ItemLinks.Add(Me.btnSave)
@@ -129,6 +143,22 @@ Partial Class frmSQLEditor
        Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
        Me.RibbonPageGroup3.Text = "Start"
        '
+        'RibbonPageGroup4
+        '
+        Me.RibbonPageGroup4.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroup4.ImageOptions.SvgImage = Global.DigitalData.Controls.SQLEditor.My.Resources.Resources.actions_database2
+        Me.RibbonPageGroup4.ItemLinks.Add(Me.RibbonGalleryBarItem2)
+        Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
+        Me.RibbonPageGroup4.Text = "Verbindungen"
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.RibbonGalleryBarItem1)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.chkClearPlaceholders)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.btnClearPlaceholders)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        Me.RibbonPageGroup1.Text = "Platzhalter"
+        '
        'RibbonStatusBar1
        '
        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 666)
@@ -163,28 +193,28 @@ Partial Class frmSQLEditor
        '
        'SplitContainerControl1.Panel2
        '
-        Me.SplitContainerControl1.Panel2.Controls.Add(Me.GridControl1)
+        Me.SplitContainerControl1.Panel2.Controls.Add(Me.GridPlaceholders)
        Me.SplitContainerControl1.Panel2.Text = "Panel2"
        Me.SplitContainerControl1.Size = New System.Drawing.Size(1056, 508)
        Me.SplitContainerControl1.SplitterPosition = 737
        Me.SplitContainerControl1.TabIndex = 4
        '
-        'GridControl1
+        'GridPlaceholders
        '
-        Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControl1.Location = New System.Drawing.Point(0, 0)
-        Me.GridControl1.MainView = Me.GridView1
-        Me.GridControl1.MenuManager = Me.RibbonControl1
-        Me.GridControl1.Name = "GridControl1"
-        Me.GridControl1.Size = New System.Drawing.Size(309, 508)
-        Me.GridControl1.TabIndex = 0
-        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
+        Me.GridPlaceholders.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridPlaceholders.Location = New System.Drawing.Point(0, 0)
+        Me.GridPlaceholders.MainView = Me.ViewPlaceholders
+        Me.GridPlaceholders.MenuManager = Me.RibbonControl1
+        Me.GridPlaceholders.Name = "GridPlaceholders"
+        Me.GridPlaceholders.Size = New System.Drawing.Size(309, 508)
+        Me.GridPlaceholders.TabIndex = 0
+        Me.GridPlaceholders.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewPlaceholders})
        '
-        'GridView1
+        'ViewPlaceholders
        '
-        Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPattern, Me.colValue})
-        Me.GridView1.GridControl = Me.GridControl1
-        Me.GridView1.Name = "GridView1"
+        Me.ViewPlaceholders.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPattern, Me.colValue})
+        Me.ViewPlaceholders.GridControl = Me.GridPlaceholders
+        Me.ViewPlaceholders.Name = "ViewPlaceholders"
        '
        'colPattern
        '
@@ -224,8 +254,8 @@ Partial Class frmSQLEditor
        Me.SplitContainerControl1.Panel2.ResumeLayout(False)
        CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.SplitContainerControl1.ResumeLayout(False)
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridPlaceholders, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ViewPlaceholders, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -240,13 +270,16 @@ Partial Class frmSQLEditor
    Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection
    Friend WithEvents RichEditControl1 As DevExpress.XtraRichEdit.RichEditControl
    Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl
-    Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents GridPlaceholders As DevExpress.XtraGrid.GridControl
+    Friend WithEvents ViewPlaceholders As DevExpress.XtraGrid.Views.Grid.GridView
    Friend WithEvents btnEditConnections As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
    Friend WithEvents btnSave As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents btnExecuteSQL As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
    Friend WithEvents colPattern As DevExpress.XtraGrid.Columns.GridColumn
    Friend WithEvents colValue As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents RibbonGalleryBarItem2 As DevExpress.XtraBars.RibbonGalleryBarItem
+    Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents chkClearPlaceholders As DevExpress.XtraBars.BarCheckItem
+    Friend WithEvents btnClearPlaceholders As DevExpress.XtraBars.BarButtonItem
 End Class