_ Partial Class frmSQL_Admin Inherits System.Windows.Forms.Form '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() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSQL_Admin)) Me.Label1 = New System.Windows.Forms.Label() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.btnrunSQL = New System.Windows.Forms.Button() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() Me.Button1 = New System.Windows.Forms.Button() Me.txtSQL = New System.Windows.Forms.TextBox() Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components) Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl1.SuspendLayout() Me.XtraTabPage1.SuspendLayout() Me.XtraTabPage2.SuspendLayout() CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() Me.BindingNavigator1.SuspendLayout() CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Location = New System.Drawing.Point(14, 12) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(122, 17) Me.Label1.TabIndex = 0 Me.Label1.Text = "Aktuelle Verbindung:" ' 'TextBox1 ' Me.TextBox1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.TextBox1.Location = New System.Drawing.Point(17, 32) Me.TextBox1.Name = "TextBox1" Me.TextBox1.ReadOnly = True Me.TextBox1.Size = New System.Drawing.Size(727, 25) Me.TextBox1.TabIndex = 1 ' 'btnrunSQL ' Me.btnrunSQL.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.btnrunSQL.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnrunSQL.Image = Global.Global_Indexer.My.Resources.Resources.database_go Me.btnrunSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnrunSQL.Location = New System.Drawing.Point(17, 474) Me.btnrunSQL.Name = "btnrunSQL" Me.btnrunSQL.Size = New System.Drawing.Size(125, 33) Me.btnrunSQL.TabIndex = 4 Me.btnrunSQL.Text = "SQL ausführen" Me.btnrunSQL.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnrunSQL.UseVisualStyleBackColor = True ' 'OpenFileDialog1 ' Me.OpenFileDialog1.FileName = "OpenFileDialog1" ' 'Button1 ' Me.Button1.Image = Global.Global_Indexer.My.Resources.Resources.folder_Open_32xSM Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter Me.Button1.Location = New System.Drawing.Point(750, 86) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(75, 43) Me.Button1.TabIndex = 5 Me.Button1.Text = "Open SQL" Me.Button1.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.Button1.UseVisualStyleBackColor = True ' 'txtSQL ' Me.txtSQL.AcceptsReturn = True Me.txtSQL.AcceptsTab = True Me.txtSQL.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) Me.txtSQL.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtSQL.Location = New System.Drawing.Point(3, 3) Me.txtSQL.Multiline = True Me.txtSQL.Name = "txtSQL" Me.txtSQL.ScrollBars = System.Windows.Forms.ScrollBars.Both Me.txtSQL.Size = New System.Drawing.Size(715, 371) Me.txtSQL.TabIndex = 3 ' 'XtraTabControl1 ' Me.XtraTabControl1.Location = New System.Drawing.Point(17, 63) Me.XtraTabControl1.Name = "XtraTabControl1" Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 Me.XtraTabControl1.Size = New System.Drawing.Size(727, 405) Me.XtraTabControl1.TabIndex = 6 Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) ' 'XtraTabPage1 ' Me.XtraTabPage1.Controls.Add(Me.txtSQL) Me.XtraTabPage1.Name = "XtraTabPage1" Me.XtraTabPage1.Size = New System.Drawing.Size(721, 377) Me.XtraTabPage1.Text = "Auszuführender SQL-Befehl" ' 'XtraTabPage2 ' Me.XtraTabPage2.Controls.Add(Me.GridControl1) Me.XtraTabPage2.Controls.Add(Me.BindingNavigator1) Me.XtraTabPage2.Name = "XtraTabPage2" Me.XtraTabPage2.Size = New System.Drawing.Size(721, 377) Me.XtraTabPage2.Text = "Ergebnis:" ' 'BindingNavigator1 ' Me.BindingNavigator1.AddNewItem = Nothing Me.BindingNavigator1.BindingSource = Me.BindingSource1 Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem Me.BindingNavigator1.CountItemFormat = "von {0} Datensätzen" Me.BindingNavigator1.DeleteItem = Nothing Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2}) Me.BindingNavigator1.Location = New System.Drawing.Point(0, 0) Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem Me.BindingNavigator1.Name = "BindingNavigator1" Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem Me.BindingNavigator1.Size = New System.Drawing.Size(721, 25) Me.BindingNavigator1.TabIndex = 0 Me.BindingNavigator1.Text = "BindingNavigator1" ' 'BindingNavigatorCountItem ' Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(111, 22) Me.BindingNavigatorCountItem.Text = "von {0} Datensätzen" Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." ' 'BindingNavigatorMoveFirstItem ' Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" ' 'BindingNavigatorMovePreviousItem ' Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" ' 'BindingNavigatorSeparator ' Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) ' 'BindingNavigatorPositionItem ' Me.BindingNavigatorPositionItem.AccessibleName = "Position" Me.BindingNavigatorPositionItem.AutoSize = False Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) Me.BindingNavigatorPositionItem.Text = "0" Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" ' 'BindingNavigatorSeparator1 ' Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) ' 'BindingNavigatorMoveNextItem ' Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" ' 'BindingNavigatorMoveLastItem ' Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" ' 'BindingNavigatorSeparator2 ' Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) ' 'GridControl1 ' Me.GridControl1.DataSource = Me.BindingSource1 Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.GridControl1.Location = New System.Drawing.Point(0, 25) Me.GridControl1.MainView = Me.GridView1 Me.GridControl1.Name = "GridControl1" Me.GridControl1.Size = New System.Drawing.Size(721, 352) Me.GridControl1.TabIndex = 1 Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) ' 'GridView1 ' Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True Me.GridView1.Appearance.OddRow.BackColor = System.Drawing.Color.White Me.GridView1.Appearance.OddRow.Options.UseBackColor = True Me.GridView1.GridControl = Me.GridControl1 Me.GridView1.Name = "GridView1" Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridView1.OptionsBehavior.Editable = False Me.GridView1.OptionsBehavior.ReadOnly = True Me.GridView1.OptionsView.EnableAppearanceEvenRow = True Me.GridView1.OptionsView.EnableAppearanceOddRow = True Me.GridView1.OptionsView.ShowAutoFilterRow = True ' 'frmSQL_Admin ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(826, 519) Me.Controls.Add(Me.XtraTabControl1) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.btnrunSQL) Me.Controls.Add(Me.TextBox1) Me.Controls.Add(Me.Label1) Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.Name = "frmSQL_Admin" Me.Text = "SQL-Admin" CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabControl1.ResumeLayout(False) Me.XtraTabPage1.ResumeLayout(False) Me.XtraTabPage1.PerformLayout() Me.XtraTabPage2.ResumeLayout(False) Me.XtraTabPage2.PerformLayout() CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() Me.BindingNavigator1.ResumeLayout(False) Me.BindingNavigator1.PerformLayout() CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents btnrunSQL As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog Friend WithEvents txtSQL As System.Windows.Forms.TextBox Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator Friend WithEvents BindingSource1 As System.Windows.Forms.BindingSource Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView End Class