ZooFLow: Use SQLConfig form

2021-05-04 14:54:15 +02:00
parent baea2d07d3
commit ac4fabe8c2
7 changed files with 209 additions and 157 deletions
--- a/GUIs.ZooFlow/frmConfigDatabase.Designer.vb
+++ b/GUIs.ZooFlow/frmConfigDatabase.Designer.vb
@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
 Partial Class frmConfigDatabase
-    Inherits System.Windows.Forms.Form
+    Inherits DevExpress.XtraEditors.XtraForm

    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    <System.Diagnostics.DebuggerNonUserCode()> _
@@ -33,30 +33,30 @@ Partial Class frmConfigDatabase
        Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup()
        Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
-        Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
        Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
        Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
-        CType(Me.LayoutControl1,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.LayoutControl1.SuspendLayout
-        CType(Me.txtServerName.Properties,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.txtUserName.Properties,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.txtPassword.Properties,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.cmbDatabase.Properties,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.txtConnectionString.Properties,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.chkWinAuth.Properties,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.LayoutControlGroup1,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.LayoutControlItem1,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.LayoutControlItem2,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.EmptySpaceItem1,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.LayoutControlItem4,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.LayoutControlItem3,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.LayoutControlItem7,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.LayoutControlItem6,System.ComponentModel.ISupportInitialize).BeginInit
-        CType(Me.LayoutControlItem5,System.ComponentModel.ISupportInitialize).BeginInit
-        Me.SuspendLayout
+        Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem()
+        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.LayoutControl1.SuspendLayout()
+        CType(Me.txtServerName.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtUserName.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtPassword.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.cmbDatabase.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtConnectionString.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.chkWinAuth.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
        '
        'LayoutControl1
        '
@@ -71,178 +71,186 @@ Partial Class frmConfigDatabase
        Me.LayoutControl1.Location = New System.Drawing.Point(0, 0)
        Me.LayoutControl1.Name = "LayoutControl1"
        Me.LayoutControl1.Root = Me.LayoutControlGroup1
-        Me.LayoutControl1.Size = New System.Drawing.Size(560, 186)
+        Me.LayoutControl1.Size = New System.Drawing.Size(602, 221)
        Me.LayoutControl1.TabIndex = 0
        Me.LayoutControl1.Text = "LayoutControl1"
        '
        'txtServerName
        '
-        Me.txtServerName.Location = New System.Drawing.Point(157, 12)
+        Me.txtServerName.Location = New System.Drawing.Point(148, 15)
        Me.txtServerName.Name = "txtServerName"
-        Me.txtServerName.Size = New System.Drawing.Size(391, 20)
+        Me.txtServerName.Size = New System.Drawing.Size(439, 20)
        Me.txtServerName.StyleController = Me.LayoutControl1
        Me.txtServerName.TabIndex = 4
        '
        'txtUserName
        '
-        Me.txtUserName.Location = New System.Drawing.Point(157, 36)
+        Me.txtUserName.Location = New System.Drawing.Point(148, 45)
        Me.txtUserName.Name = "txtUserName"
-        Me.txtUserName.Size = New System.Drawing.Size(121, 20)
+        Me.txtUserName.Size = New System.Drawing.Size(148, 20)
        Me.txtUserName.StyleController = Me.LayoutControl1
        Me.txtUserName.TabIndex = 5
        '
        'txtPassword
        '
-        Me.txtPassword.Location = New System.Drawing.Point(427, 36)
+        Me.txtPassword.Location = New System.Drawing.Point(439, 45)
        Me.txtPassword.Name = "txtPassword"
-        Me.txtPassword.Size = New System.Drawing.Size(121, 20)
+        Me.txtPassword.Size = New System.Drawing.Size(148, 20)
        Me.txtPassword.StyleController = Me.LayoutControl1
        Me.txtPassword.TabIndex = 6
        '
        'cmbDatabase
        '
-        Me.cmbDatabase.Location = New System.Drawing.Point(157, 60)
+        Me.cmbDatabase.Location = New System.Drawing.Point(148, 75)
        Me.cmbDatabase.Name = "cmbDatabase"
        Me.cmbDatabase.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
-        Me.cmbDatabase.Size = New System.Drawing.Size(391, 20)
+        Me.cmbDatabase.Size = New System.Drawing.Size(439, 20)
        Me.cmbDatabase.StyleController = Me.LayoutControl1
        Me.cmbDatabase.TabIndex = 7
        '
        'btnTestConnection
        '
-        Me.btnTestConnection.Location = New System.Drawing.Point(12, 106)
+        Me.btnTestConnection.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check4
+        Me.btnTestConnection.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
+        Me.btnTestConnection.Location = New System.Drawing.Point(303, 166)
        Me.btnTestConnection.Name = "btnTestConnection"
-        Me.btnTestConnection.Size = New System.Drawing.Size(536, 22)
+        Me.btnTestConnection.Size = New System.Drawing.Size(287, 22)
        Me.btnTestConnection.StyleController = Me.LayoutControl1
        Me.btnTestConnection.TabIndex = 8
        Me.btnTestConnection.Text = "Verbindung zur Datenbank herstellen"
        '
        'txtConnectionString
        '
-        Me.txtConnectionString.Location = New System.Drawing.Point(157, 132)
+        Me.txtConnectionString.Location = New System.Drawing.Point(148, 139)
        Me.txtConnectionString.Name = "txtConnectionString"
-        Me.txtConnectionString.Properties.ReadOnly = true
-        Me.txtConnectionString.Size = New System.Drawing.Size(391, 20)
+        Me.txtConnectionString.Properties.ReadOnly = True
+        Me.txtConnectionString.Size = New System.Drawing.Size(439, 20)
        Me.txtConnectionString.StyleController = Me.LayoutControl1
        Me.txtConnectionString.TabIndex = 9
        '
        'chkWinAuth
        '
-        Me.chkWinAuth.Location = New System.Drawing.Point(12, 84)
+        Me.chkWinAuth.Location = New System.Drawing.Point(17, 107)
        Me.chkWinAuth.Name = "chkWinAuth"
        Me.chkWinAuth.Properties.Caption = "Windows Authentifizierung"
-        Me.chkWinAuth.Size = New System.Drawing.Size(536, 18)
+        Me.chkWinAuth.Size = New System.Drawing.Size(568, 20)
        Me.chkWinAuth.StyleController = Me.LayoutControl1
        Me.chkWinAuth.TabIndex = 10
        '
        'LayoutControlGroup1
        '
        Me.LayoutControlGroup1.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
-        Me.LayoutControlGroup1.GroupBordersVisible = false
-        Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.EmptySpaceItem1, Me.LayoutControlItem4, Me.LayoutControlItem3, Me.LayoutControlItem7, Me.LayoutControlItem6, Me.LayoutControlItem5})
+        Me.LayoutControlGroup1.GroupBordersVisible = False
+        Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.LayoutControlItem3, Me.LayoutControlItem7, Me.LayoutControlItem6, Me.LayoutControlItem5, Me.EmptySpaceItem2})
        Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
-        Me.LayoutControlGroup1.Size = New System.Drawing.Size(560, 186)
-        Me.LayoutControlGroup1.TextVisible = false
+        Me.LayoutControlGroup1.Size = New System.Drawing.Size(602, 221)
+        Me.LayoutControlGroup1.TextVisible = False
        '
        'LayoutControlItem1
        '
        Me.LayoutControlItem1.Control = Me.txtServerName
        Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
        Me.LayoutControlItem1.Name = "LayoutControlItem1"
-        Me.LayoutControlItem1.Size = New System.Drawing.Size(540, 24)
+        Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
+        Me.LayoutControlItem1.Size = New System.Drawing.Size(582, 30)
        Me.LayoutControlItem1.Text = "Server Name:"
-        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(142, 13)
+        Me.LayoutControlItem1.TextSize = New System.Drawing.Size(130, 13)
        '
        'LayoutControlItem2
        '
        Me.LayoutControlItem2.Control = Me.txtUserName
-        Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 24)
+        Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 30)
        Me.LayoutControlItem2.Name = "LayoutControlItem2"
-        Me.LayoutControlItem2.Size = New System.Drawing.Size(270, 24)
+        Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
+        Me.LayoutControlItem2.Size = New System.Drawing.Size(291, 30)
        Me.LayoutControlItem2.Text = "Benutzername:"
-        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(142, 13)
-        '
-        'EmptySpaceItem1
-        '
-        Me.EmptySpaceItem1.AllowHotTrack = false
-        Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 144)
-        Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
-        Me.EmptySpaceItem1.Size = New System.Drawing.Size(540, 22)
-        Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
+        Me.LayoutControlItem2.TextSize = New System.Drawing.Size(130, 13)
        '
        'LayoutControlItem4
        '
        Me.LayoutControlItem4.Control = Me.cmbDatabase
-        Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 48)
+        Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 60)
        Me.LayoutControlItem4.Name = "LayoutControlItem4"
-        Me.LayoutControlItem4.Size = New System.Drawing.Size(540, 24)
+        Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
+        Me.LayoutControlItem4.Size = New System.Drawing.Size(582, 30)
        Me.LayoutControlItem4.Text = "Datenbank:"
-        Me.LayoutControlItem4.TextSize = New System.Drawing.Size(142, 13)
+        Me.LayoutControlItem4.TextSize = New System.Drawing.Size(130, 13)
        '
        'LayoutControlItem3
        '
        Me.LayoutControlItem3.Control = Me.txtPassword
-        Me.LayoutControlItem3.Location = New System.Drawing.Point(270, 24)
+        Me.LayoutControlItem3.Location = New System.Drawing.Point(291, 30)
        Me.LayoutControlItem3.Name = "LayoutControlItem3"
-        Me.LayoutControlItem3.Size = New System.Drawing.Size(270, 24)
+        Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
+        Me.LayoutControlItem3.Size = New System.Drawing.Size(291, 30)
        Me.LayoutControlItem3.Text = "Passwort:"
-        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(142, 13)
+        Me.LayoutControlItem3.TextSize = New System.Drawing.Size(130, 13)
        '
        'LayoutControlItem7
        '
        Me.LayoutControlItem7.Control = Me.chkWinAuth
-        Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 72)
+        Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 90)
        Me.LayoutControlItem7.Name = "LayoutControlItem7"
-        Me.LayoutControlItem7.Size = New System.Drawing.Size(540, 22)
+        Me.LayoutControlItem7.Size = New System.Drawing.Size(582, 34)
+        Me.LayoutControlItem7.Spacing = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
        Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0)
-        Me.LayoutControlItem7.TextVisible = false
+        Me.LayoutControlItem7.TextVisible = False
        '
        'LayoutControlItem6
        '
        Me.LayoutControlItem6.Control = Me.txtConnectionString
-        Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 120)
+        Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 124)
        Me.LayoutControlItem6.Name = "LayoutControlItem6"
-        Me.LayoutControlItem6.Size = New System.Drawing.Size(540, 24)
+        Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
+        Me.LayoutControlItem6.Size = New System.Drawing.Size(582, 30)
        Me.LayoutControlItem6.Text = "Aktueller Connectionstring:"
-        Me.LayoutControlItem6.TextSize = New System.Drawing.Size(142, 13)
+        Me.LayoutControlItem6.TextSize = New System.Drawing.Size(130, 13)
        '
        'LayoutControlItem5
        '
        Me.LayoutControlItem5.Control = Me.btnTestConnection
-        Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 94)
+        Me.LayoutControlItem5.Location = New System.Drawing.Point(291, 154)
        Me.LayoutControlItem5.Name = "LayoutControlItem5"
-        Me.LayoutControlItem5.Size = New System.Drawing.Size(540, 26)
+        Me.LayoutControlItem5.Size = New System.Drawing.Size(291, 47)
        Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0)
-        Me.LayoutControlItem5.TextVisible = false
+        Me.LayoutControlItem5.TextVisible = False
+        '
+        'EmptySpaceItem2
+        '
+        Me.EmptySpaceItem2.AllowHotTrack = False
+        Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 154)
+        Me.EmptySpaceItem2.Name = "EmptySpaceItem2"
+        Me.EmptySpaceItem2.Size = New System.Drawing.Size(291, 47)
+        Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0)
        '
        'frmConfigDatabase
        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(560, 186)
+        Me.ClientSize = New System.Drawing.Size(602, 221)
        Me.Controls.Add(Me.LayoutControl1)
        Me.Name = "frmConfigDatabase"
        Me.Text = "Datenbank Verbindung"
-        CType(Me.LayoutControl1,System.ComponentModel.ISupportInitialize).EndInit
-        Me.LayoutControl1.ResumeLayout(false)
-        CType(Me.txtServerName.Properties,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.txtUserName.Properties,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.txtPassword.Properties,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.cmbDatabase.Properties,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.txtConnectionString.Properties,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.chkWinAuth.Properties,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.LayoutControlGroup1,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.LayoutControlItem1,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.LayoutControlItem2,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.EmptySpaceItem1,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.LayoutControlItem4,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.LayoutControlItem3,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.LayoutControlItem7,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.LayoutControlItem6,System.ComponentModel.ISupportInitialize).EndInit
-        CType(Me.LayoutControlItem5,System.ComponentModel.ISupportInitialize).EndInit
-        Me.ResumeLayout(false)
+        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.LayoutControl1.ResumeLayout(False)
+        CType(Me.txtServerName.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtUserName.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtPassword.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.cmbDatabase.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtConnectionString.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.chkWinAuth.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)

-End Sub
+    End Sub

    Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
    Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup
@@ -255,10 +263,10 @@ End Sub
    Friend WithEvents chkWinAuth As DevExpress.XtraEditors.CheckEdit
    Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
    Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
-    Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
    Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
    Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
    Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
    Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem
    Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents EmptySpaceItem2 As DevExpress.XtraLayout.EmptySpaceItem
 End Class