328 lines
18 KiB
VB.net
328 lines
18 KiB
VB.net
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
|
Partial Class frmSQL_Admin
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
|
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.
|
|
<System.Diagnostics.DebuggerStepThrough()> _
|
|
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
|