_ 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.Label2 = New System.Windows.Forms.Label() Me.Button1 = New System.Windows.Forms.Button() Me.btnrunSQL = New System.Windows.Forms.Button() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() Me.txtSQL = New System.Windows.Forms.TextBox() Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(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.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components) 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.Location = New System.Drawing.Point(14, 12) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(128, 17) Me.Label1.TabIndex = 0 Me.Label1.Text = "Aktuelle Verbindung:" ' 'TextBox1 ' 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 ' 'Label2 ' Me.Label2.AutoSize = true Me.Label2.Location = New System.Drawing.Point(14, 73) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(129, 17) Me.Label2.TabIndex = 2 Me.Label2.Text = "Auszuführender SQL:" ' 'Button1 ' Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) Me.Button1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.book_open Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter Me.Button1.Location = New System.Drawing.Point(665, 116) 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 ' 'btnrunSQL ' Me.btnrunSQL.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles) Me.btnrunSQL.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go Me.btnrunSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnrunSQL.Location = New System.Drawing.Point(17, 533) 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" ' 'XtraTabControl1 ' Me.XtraTabControl1.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.XtraTabControl1.Location = New System.Drawing.Point(17, 93) Me.XtraTabControl1.Name = "XtraTabControl1" Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 Me.XtraTabControl1.Size = New System.Drawing.Size(642, 434) Me.XtraTabControl1.TabIndex = 7 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(636, 406) Me.XtraTabPage1.Text = "Auszuführender SQL-Befehl" ' '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!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.txtSQL.Location = New System.Drawing.Point(-1, 11) Me.txtSQL.Multiline = true Me.txtSQL.Name = "txtSQL" Me.txtSQL.ScrollBars = System.Windows.Forms.ScrollBars.Both Me.txtSQL.Size = New System.Drawing.Size(630, 400) Me.txtSQL.TabIndex = 3 ' 'XtraTabPage2 ' Me.XtraTabPage2.Controls.Add(Me.GridControl1) Me.XtraTabPage2.Controls.Add(Me.BindingNavigator1) Me.XtraTabPage2.Name = "XtraTabPage2" Me.XtraTabPage2.Size = New System.Drawing.Size(636, 406) 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(636, 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(636, 381) Me.GridControl1.TabIndex = 2 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!, 17!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(741, 578) Me.Controls.Add(Me.XtraTabControl1) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.btnrunSQL) Me.Controls.Add(Me.Label2) 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 Label2 As System.Windows.Forms.Label 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 XtraTabControl1 As DevExpress.XtraTab.XtraTabControl Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage Friend WithEvents txtSQL As System.Windows.Forms.TextBox Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator 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 BindingSource1 As System.Windows.Forms.BindingSource Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView End Class