Partial Class frmSQLEditor Inherits DevExpress.XtraBars.Ribbon.RibbonForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Wird vom Windows Form-Designer benötigt. Private components As System.ComponentModel.IContainer 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.GalleryPlaceholders = New DevExpress.XtraBars.RibbonGalleryBarItem() Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components) Me.btnEditConnections = New DevExpress.XtraBars.BarButtonItem() Me.btnSave = New DevExpress.XtraBars.BarButtonItem() Me.btnExecuteSQL = New DevExpress.XtraBars.BarButtonItem() Me.GalleryConnection = New DevExpress.XtraBars.RibbonGalleryBarItem() Me.chkClearPlaceholders = New DevExpress.XtraBars.BarCheckItem() Me.btnClearPlaceholders = New DevExpress.XtraBars.BarButtonItem() Me.chkShowPlaceholders = New DevExpress.XtraBars.BarCheckItem() Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() 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.txtSQLCommand = New DevExpress.XtraRichEdit.RichEditControl() Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() 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() CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerControl1.Panel1.SuspendLayout() CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerControl1.Panel2.SuspendLayout() Me.SplitContainerControl1.SuspendLayout() 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.GalleryPlaceholders, Me.btnEditConnections, Me.btnSave, Me.btnExecuteSQL, Me.GalleryConnection, Me.chkClearPlaceholders, Me.btnClearPlaceholders, Me.chkShowPlaceholders, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) Me.RibbonControl1.MaxItemId = 16 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.Size = New System.Drawing.Size(1056, 158) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' 'GalleryPlaceholders ' Me.GalleryPlaceholders.Caption = "RibbonGalleryBarItem1" ' ' ' Me.GalleryPlaceholders.Gallery.Images = Me.SvgImageCollection1 Me.GalleryPlaceholders.Gallery.ShowGroupCaption = True Me.GalleryPlaceholders.Gallery.ShowItemText = True Me.GalleryPlaceholders.Id = 1 Me.GalleryPlaceholders.Name = "GalleryPlaceholders" ' 'SvgImageCollection1 ' Me.SvgImageCollection1.Add("bo_list", "image://svgimages/business objects/bo_list.svg") ' 'btnEditConnections ' Me.btnEditConnections.Caption = "Verbindungen" Me.btnEditConnections.Id = 2 Me.btnEditConnections.ImageOptions.SvgImage = Global.DigitalData.Controls.SQLEditor.My.Resources.Resources.editdatasource1 Me.btnEditConnections.Name = "btnEditConnections" ' 'btnSave ' Me.btnSave.Caption = "Speichern und Schließen" Me.btnSave.Id = 3 Me.btnSave.ImageOptions.SvgImage = Global.DigitalData.Controls.SQLEditor.My.Resources.Resources.check Me.btnSave.Name = "btnSave" ' 'btnExecuteSQL ' Me.btnExecuteSQL.Caption = "SQL Ausführen (F5)" Me.btnExecuteSQL.Id = 4 Me.btnExecuteSQL.ImageOptions.SvgImage = Global.DigitalData.Controls.SQLEditor.My.Resources.Resources.updatedataextract3 Me.btnExecuteSQL.Name = "btnExecuteSQL" ' 'GalleryConnection ' Me.GalleryConnection.Caption = "RibbonGalleryBarItem2" ' ' ' Me.GalleryConnection.Gallery.CheckDrawMode = DevExpress.XtraBars.Ribbon.Gallery.CheckDrawMode.ImageAndText Me.GalleryConnection.Gallery.ItemCheckMode = DevExpress.XtraBars.Ribbon.Gallery.ItemCheckMode.SingleRadio Me.GalleryConnection.Gallery.RowCount = 1 Me.GalleryConnection.Gallery.ShowItemText = True Me.GalleryConnection.Id = 5 Me.GalleryConnection.Name = "GalleryConnection" ' '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" ' 'chkShowPlaceholders ' Me.chkShowPlaceholders.BindableChecked = True Me.chkShowPlaceholders.Caption = "Platzhalter anzeigen" Me.chkShowPlaceholders.Checked = True Me.chkShowPlaceholders.Id = 12 Me.chkShowPlaceholders.ImageOptions.SvgImage = Global.DigitalData.Controls.SQLEditor.My.Resources.Resources.togglefieldcodes Me.chkShowPlaceholders.Name = "chkShowPlaceholders" ' 'BarButtonItem1 ' Me.BarButtonItem1.Caption = "BarButtonItem1" Me.BarButtonItem1.Id = 13 Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.Controls.SQLEditor.My.Resources.Resources.handtool Me.BarButtonItem1.Name = "BarButtonItem1" ' 'BarButtonItem2 ' Me.BarButtonItem2.Caption = "BarButtonItem2" Me.BarButtonItem2.Id = 14 Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.Controls.SQLEditor.My.Resources.Resources.autoarrange Me.BarButtonItem2.Name = "BarButtonItem2" ' 'BarButtonItem3 ' Me.BarButtonItem3.Caption = "BarButtonItem3" Me.BarButtonItem3.Id = 15 Me.BarButtonItem3.ImageOptions.SvgImage = Global.DigitalData.Controls.SQLEditor.My.Resources.Resources.bo_contract Me.BarButtonItem3.Name = "BarButtonItem3" ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroup4, Me.RibbonPageGroup1}) Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Text = "RibbonPage1" ' 'RibbonPageGroup3 ' Me.RibbonPageGroup3.ItemLinks.Add(Me.btnSave) Me.RibbonPageGroup3.ItemLinks.Add(Me.btnExecuteSQL) 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.GalleryConnection) Me.RibbonPageGroup4.Name = "RibbonPageGroup4" Me.RibbonPageGroup4.Text = "Verbindungen" ' 'RibbonPageGroup1 ' Me.RibbonPageGroup1.ItemLinks.Add(Me.GalleryPlaceholders) Me.RibbonPageGroup1.ItemLinks.Add(Me.chkShowPlaceholders) 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) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 Me.RibbonStatusBar1.Size = New System.Drawing.Size(1056, 24) ' 'RibbonPage2 ' Me.RibbonPage2.Name = "RibbonPage2" Me.RibbonPage2.Text = "RibbonPage2" ' 'txtSQLCommand ' Me.txtSQLCommand.Dock = System.Windows.Forms.DockStyle.Fill Me.txtSQLCommand.Location = New System.Drawing.Point(0, 0) Me.txtSQLCommand.MenuManager = Me.RibbonControl1 Me.txtSQLCommand.Name = "txtSQLCommand" Me.txtSQLCommand.Size = New System.Drawing.Size(802, 508) Me.txtSQLCommand.TabIndex = 2 ' 'SplitContainerControl1 ' Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 158) Me.SplitContainerControl1.Name = "SplitContainerControl1" ' 'SplitContainerControl1.Panel1 ' Me.SplitContainerControl1.Panel1.Controls.Add(Me.txtSQLCommand) Me.SplitContainerControl1.Panel1.Text = "Panel1" ' 'SplitContainerControl1.Panel2 ' Me.SplitContainerControl1.Panel2.Controls.Add(Me.GridPlaceholders) Me.SplitContainerControl1.Panel2.Text = "Panel2" Me.SplitContainerControl1.Size = New System.Drawing.Size(1056, 508) Me.SplitContainerControl1.SplitterPosition = 802 Me.SplitContainerControl1.TabIndex = 4 ' 'GridPlaceholders ' 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(244, 508) Me.GridPlaceholders.TabIndex = 0 Me.GridPlaceholders.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewPlaceholders}) ' 'ViewPlaceholders ' Me.ViewPlaceholders.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPattern, Me.colValue}) Me.ViewPlaceholders.GridControl = Me.GridPlaceholders Me.ViewPlaceholders.Name = "ViewPlaceholders" ' 'colPattern ' Me.colPattern.Caption = "Platzhalter" Me.colPattern.FieldName = "Pattern" Me.colPattern.Name = "colPattern" Me.colPattern.OptionsColumn.AllowEdit = False Me.colPattern.OptionsColumn.ReadOnly = True Me.colPattern.Visible = True Me.colPattern.VisibleIndex = 0 ' 'colValue ' Me.colValue.Caption = "Wert" Me.colValue.FieldName = "Value" Me.colValue.Name = "colValue" Me.colValue.Visible = True Me.colValue.VisibleIndex = 1 ' 'frmSQLEditor ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1056, 690) Me.Controls.Add(Me.SplitContainerControl1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) Me.IconOptions.SvgImage = Global.DigitalData.Controls.SQLEditor.My.Resources.Resources.editdatasource2 Me.KeyPreview = True Me.Name = "frmSQLEditor" Me.Ribbon = Me.RibbonControl1 Me.StatusBar = Me.RibbonStatusBar1 Me.Text = "SQL Designer" CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainerControl1.Panel1.ResumeLayout(False) CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainerControl1.Panel2.ResumeLayout(False) CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainerControl1.ResumeLayout(False) CType(Me.GridPlaceholders, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ViewPlaceholders, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents GalleryPlaceholders As DevExpress.XtraBars.RibbonGalleryBarItem Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection Friend WithEvents txtSQLCommand As DevExpress.XtraRichEdit.RichEditControl Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl 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 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 GalleryConnection 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 Friend WithEvents chkShowPlaceholders As DevExpress.XtraBars.BarCheckItem Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem End Class