diff --git a/DDUserManager/DDUserManager/DDUserManager.vbproj b/DDUserManager/DDUserManager/DDUserManager.vbproj
index ae0d26a..84fc584 100644
--- a/DDUserManager/DDUserManager/DDUserManager.vbproj
+++ b/DDUserManager/DDUserManager/DDUserManager.vbproj
@@ -247,6 +247,7 @@
+
diff --git a/DDUserManager/DDUserManager/My Project/Resources.Designer.vb b/DDUserManager/DDUserManager/My Project/Resources.Designer.vb
index 6a57924..79033de 100644
--- a/DDUserManager/DDUserManager/My Project/Resources.Designer.vb
+++ b/DDUserManager/DDUserManager/My Project/Resources.Designer.vb
@@ -110,6 +110,16 @@ Namespace My.Resources
End Get
End Property
+ '''
+ ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+ '''
+ Friend ReadOnly Property database_connect() As System.Drawing.Bitmap
+ Get
+ Dim obj As Object = ResourceManager.GetObject("database_connect", resourceCulture)
+ Return CType(obj,System.Drawing.Bitmap)
+ End Get
+ End Property
+
'''
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''
diff --git a/DDUserManager/DDUserManager/My Project/Resources.resx b/DDUserManager/DDUserManager/My Project/Resources.resx
index 1b1e87d..cbdd2b7 100644
--- a/DDUserManager/DDUserManager/My Project/Resources.resx
+++ b/DDUserManager/DDUserManager/My Project/Resources.resx
@@ -121,20 +121,8 @@
..\Resources\arrow_right.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
-
- ..\Resources\plugin.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
-
-
- ..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
-
-
- ..\Resources\user_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
-
-
- ..\Resources\arrow_left_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
-
-
- ..\Resources\disk.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+ ..\Resources\book.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
..\Resources\group_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
@@ -142,19 +130,34 @@
..\Resources\user_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
-
- ..\Resources\cog.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+ ..\Resources\user.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+
+ ..\Resources\user_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+
+ ..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
..\Resources\group.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
-
- ..\Resources\book.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+ ..\Resources\disk.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
-
- ..\Resources\user.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+ ..\Resources\arrow_left_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+
+ ..\Resources\plugin.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+
+ ..\Resources\cog.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+ ..\Resources\database_connect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
\ No newline at end of file
diff --git a/DDUserManager/DDUserManager/Resources/database_connect.png b/DDUserManager/DDUserManager/Resources/database_connect.png
new file mode 100644
index 0000000..3a11197
Binary files /dev/null and b/DDUserManager/DDUserManager/Resources/database_connect.png differ
diff --git a/DDUserManager/DDUserManager/frmConfigDatabase.Designer.vb b/DDUserManager/DDUserManager/frmConfigDatabase.Designer.vb
index 45b462c..d6b89a8 100644
--- a/DDUserManager/DDUserManager/frmConfigDatabase.Designer.vb
+++ b/DDUserManager/DDUserManager/frmConfigDatabase.Designer.vb
@@ -22,11 +22,6 @@ Partial Class frmConfigDatabase
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
_
Private Sub InitializeComponent()
- Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfigDatabase))
- Me.lblLinkedServer = New System.Windows.Forms.Label()
- Me.txtLinkedServer = New System.Windows.Forms.TextBox()
- Me.rbConn_Proxy = New System.Windows.Forms.RadioButton()
- Me.rbConnDefault = New System.Windows.Forms.RadioButton()
Me.chkbxUserAut = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.cmbDatenbank = New System.Windows.Forms.ComboBox()
@@ -39,57 +34,13 @@ Partial Class frmConfigDatabase
Me.txtUser = New System.Windows.Forms.TextBox()
Me.txtPasswort = New System.Windows.Forms.TextBox()
Me.BtnConnect = New System.Windows.Forms.Button()
- Me.btndeleteProxy = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
- 'lblLinkedServer
- '
- Me.lblLinkedServer.AutoSize = True
- Me.lblLinkedServer.ImeMode = System.Windows.Forms.ImeMode.NoControl
- Me.lblLinkedServer.Location = New System.Drawing.Point(9, 180)
- Me.lblLinkedServer.Name = "lblLinkedServer"
- Me.lblLinkedServer.Size = New System.Drawing.Size(116, 13)
- Me.lblLinkedServer.TabIndex = 69
- Me.lblLinkedServer.Text = "Name/IP Proxy-Server:"
- Me.lblLinkedServer.Visible = False
- '
- 'txtLinkedServer
- '
- Me.txtLinkedServer.Location = New System.Drawing.Point(12, 196)
- Me.txtLinkedServer.Name = "txtLinkedServer"
- Me.txtLinkedServer.Size = New System.Drawing.Size(288, 20)
- Me.txtLinkedServer.TabIndex = 68
- Me.txtLinkedServer.Visible = False
- '
- 'rbConn_Proxy
- '
- Me.rbConn_Proxy.AutoSize = True
- Me.rbConn_Proxy.ImeMode = System.Windows.Forms.ImeMode.NoControl
- Me.rbConn_Proxy.Location = New System.Drawing.Point(144, 18)
- Me.rbConn_Proxy.Name = "rbConn_Proxy"
- Me.rbConn_Proxy.Size = New System.Drawing.Size(108, 17)
- Me.rbConn_Proxy.TabIndex = 66
- Me.rbConn_Proxy.Text = "Proxy Connection"
- Me.rbConn_Proxy.UseVisualStyleBackColor = True
- '
- 'rbConnDefault
- '
- Me.rbConnDefault.AutoSize = True
- Me.rbConnDefault.Checked = True
- Me.rbConnDefault.ImeMode = System.Windows.Forms.ImeMode.NoControl
- Me.rbConnDefault.Location = New System.Drawing.Point(12, 18)
- Me.rbConnDefault.Name = "rbConnDefault"
- Me.rbConnDefault.Size = New System.Drawing.Size(116, 17)
- Me.rbConnDefault.TabIndex = 65
- Me.rbConnDefault.TabStop = True
- Me.rbConnDefault.Text = "Default Connection"
- Me.rbConnDefault.UseVisualStyleBackColor = True
- '
'chkbxUserAut
'
Me.chkbxUserAut.AutoSize = True
Me.chkbxUserAut.ImeMode = System.Windows.Forms.ImeMode.NoControl
- Me.chkbxUserAut.Location = New System.Drawing.Point(514, 60)
+ Me.chkbxUserAut.Location = New System.Drawing.Point(514, 33)
Me.chkbxUserAut.Name = "chkbxUserAut"
Me.chkbxUserAut.Size = New System.Drawing.Size(151, 17)
Me.chkbxUserAut.TabIndex = 64
@@ -100,7 +51,7 @@ Partial Class frmConfigDatabase
'
Me.Label5.AutoSize = True
Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
- Me.Label5.Location = New System.Drawing.Point(9, 139)
+ Me.Label5.Location = New System.Drawing.Point(9, 112)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(135, 13)
Me.Label5.TabIndex = 63
@@ -109,7 +60,7 @@ Partial Class frmConfigDatabase
'cmbDatenbank
'
Me.cmbDatenbank.FormattingEnabled = True
- Me.cmbDatenbank.Location = New System.Drawing.Point(12, 106)
+ Me.cmbDatenbank.Location = New System.Drawing.Point(12, 79)
Me.cmbDatenbank.Name = "cmbDatenbank"
Me.cmbDatenbank.Size = New System.Drawing.Size(288, 21)
Me.cmbDatenbank.TabIndex = 56
@@ -118,7 +69,7 @@ Partial Class frmConfigDatabase
'
Me.Label4.AutoSize = True
Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
- Me.Label4.Location = New System.Drawing.Point(9, 86)
+ Me.Label4.Location = New System.Drawing.Point(9, 59)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(63, 13)
Me.Label4.TabIndex = 61
@@ -128,7 +79,7 @@ Partial Class frmConfigDatabase
'
Me.Label1.AutoSize = True
Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
- Me.Label1.Location = New System.Drawing.Point(9, 38)
+ Me.Label1.Location = New System.Drawing.Point(9, 11)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(72, 13)
Me.Label1.TabIndex = 58
@@ -138,7 +89,7 @@ Partial Class frmConfigDatabase
'
Me.Label2.AutoSize = True
Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
- Me.Label2.Location = New System.Drawing.Point(303, 38)
+ Me.Label2.Location = New System.Drawing.Point(303, 11)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(78, 13)
Me.Label2.TabIndex = 59
@@ -148,7 +99,7 @@ Partial Class frmConfigDatabase
'
Me.Label3.AutoSize = True
Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
- Me.Label3.Location = New System.Drawing.Point(427, 38)
+ Me.Label3.Location = New System.Drawing.Point(427, 11)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(53, 13)
Me.Label3.TabIndex = 60
@@ -159,7 +110,7 @@ Partial Class frmConfigDatabase
Me.txtActualConnection.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtActualConnection.BackColor = System.Drawing.Color.WhiteSmoke
- Me.txtActualConnection.Location = New System.Drawing.Point(12, 155)
+ Me.txtActualConnection.Location = New System.Drawing.Point(12, 128)
Me.txtActualConnection.Name = "txtActualConnection"
Me.txtActualConnection.ReadOnly = True
Me.txtActualConnection.Size = New System.Drawing.Size(457, 20)
@@ -168,7 +119,7 @@ Partial Class frmConfigDatabase
'txtServer
'
Me.txtServer.ForeColor = System.Drawing.SystemColors.WindowText
- Me.txtServer.Location = New System.Drawing.Point(12, 58)
+ Me.txtServer.Location = New System.Drawing.Point(12, 31)
Me.txtServer.Name = "txtServer"
Me.txtServer.Size = New System.Drawing.Size(288, 20)
Me.txtServer.TabIndex = 53
@@ -176,7 +127,7 @@ Partial Class frmConfigDatabase
'txtUser
'
Me.txtUser.ForeColor = System.Drawing.SystemColors.WindowText
- Me.txtUser.Location = New System.Drawing.Point(306, 58)
+ Me.txtUser.Location = New System.Drawing.Point(306, 31)
Me.txtUser.Name = "txtUser"
Me.txtUser.Size = New System.Drawing.Size(118, 20)
Me.txtUser.TabIndex = 54
@@ -184,7 +135,7 @@ Partial Class frmConfigDatabase
'txtPasswort
'
Me.txtPasswort.ForeColor = System.Drawing.SystemColors.WindowText
- Me.txtPasswort.Location = New System.Drawing.Point(430, 58)
+ Me.txtPasswort.Location = New System.Drawing.Point(430, 31)
Me.txtPasswort.Name = "txtPasswort"
Me.txtPasswort.Size = New System.Drawing.Size(64, 20)
Me.txtPasswort.TabIndex = 55
@@ -194,7 +145,7 @@ Partial Class frmConfigDatabase
'
Me.BtnConnect.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.BtnConnect.ImeMode = System.Windows.Forms.ImeMode.NoControl
- Me.BtnConnect.Location = New System.Drawing.Point(306, 102)
+ Me.BtnConnect.Location = New System.Drawing.Point(306, 75)
Me.BtnConnect.Name = "BtnConnect"
Me.BtnConnect.Size = New System.Drawing.Size(253, 25)
Me.BtnConnect.TabIndex = 57
@@ -202,30 +153,11 @@ Partial Class frmConfigDatabase
Me.BtnConnect.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnConnect.UseVisualStyleBackColor = True
'
- 'btndeleteProxy
- '
- Me.btndeleteProxy.Image = CType(resources.GetObject("btndeleteProxy.Image"), System.Drawing.Image)
- Me.btndeleteProxy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
- Me.btndeleteProxy.ImeMode = System.Windows.Forms.ImeMode.NoControl
- Me.btndeleteProxy.Location = New System.Drawing.Point(562, 153)
- Me.btndeleteProxy.Name = "btndeleteProxy"
- Me.btndeleteProxy.Size = New System.Drawing.Size(97, 23)
- Me.btndeleteProxy.TabIndex = 67
- Me.btndeleteProxy.Text = "Lösche Proxy"
- Me.btndeleteProxy.TextAlign = System.Drawing.ContentAlignment.MiddleRight
- Me.btndeleteProxy.UseVisualStyleBackColor = True
- Me.btndeleteProxy.Visible = False
- '
'frmConfigDatabase
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
- Me.ClientSize = New System.Drawing.Size(710, 235)
- Me.Controls.Add(Me.lblLinkedServer)
- Me.Controls.Add(Me.txtLinkedServer)
- Me.Controls.Add(Me.btndeleteProxy)
- Me.Controls.Add(Me.rbConn_Proxy)
- Me.Controls.Add(Me.rbConnDefault)
+ Me.ClientSize = New System.Drawing.Size(710, 205)
Me.Controls.Add(Me.chkbxUserAut)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.cmbDatenbank)
@@ -239,17 +171,11 @@ Partial Class frmConfigDatabase
Me.Controls.Add(Me.txtPasswort)
Me.Controls.Add(Me.BtnConnect)
Me.Name = "frmConfigDatabase"
- Me.Text = "ConfigDatabase"
+ Me.Text = "Datenbank Verbindung"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
-
- Friend WithEvents lblLinkedServer As Label
- Friend WithEvents txtLinkedServer As TextBox
- Friend WithEvents btndeleteProxy As Button
- Friend WithEvents rbConn_Proxy As RadioButton
- Friend WithEvents rbConnDefault As RadioButton
Friend WithEvents chkbxUserAut As CheckBox
Friend WithEvents Label5 As Label
Friend WithEvents cmbDatenbank As ComboBox
diff --git a/DDUserManager/DDUserManager/frmConfigDatabase.resx b/DDUserManager/DDUserManager/frmConfigDatabase.resx
index 4cc4549..1af7de1 100644
--- a/DDUserManager/DDUserManager/frmConfigDatabase.resx
+++ b/DDUserManager/DDUserManager/frmConfigDatabase.resx
@@ -117,21 +117,4 @@
System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
-
-
-
- iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6
- JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAACXBIWXMAAAsTAAALEwEAmpwYAAACLUlE
- QVQ4T52TvY/ScBjHuVIRKHA9JAgnL+VoC7TX0kLLS6EvFBTa0uj5J7gYF+PsfpOTMrg4ORgHY+LCYJwc
- TYyJiYuDLu7GxHgxd/Hnr5fA8TZcrsmnzfN9nufTNPnVBwDw2ZYljGzr3ciyTNu2EC87L75eb+DvD67f
- hU9g9vt/HNs5cMaOf9Owohro7YNbe8PhjfuzzBOgkDuabk6bbRXoxuBkNLIeus6yhKyIwY5umo5tHxmG
- +Wwu8G5QkIa0jN5gqnR1oOkGuOk6b1x3jHl9uaWGhpb1UtXNY1luPmJ4KbIkmAElAcgD3egfa5oJxq77
- oq3ovKJoE7XbBbwoTWhG2F7cWRJ4dFR1S9fNCvykT41mB9TqjSOxXvtJM9zrYokLrc4vFYtUBcngq9Lf
- tqICvlr7RhQr8U1za4FHXZIIurT/mePFf1AEJLkFGJb7uml2LRBrcp4us1+g4KRcYV8lkmkplyenglgH
- VIm9tzq/VJRZLpUlih9yBQrAt79Pp3bjkVgM244nsPwe/VQQ6r8pRsgu7pwtC61grkA/T10r/NrnxB8s
- V2VmvQiOB0MhLMZVxY/pDPEkU6DnZ2Qu2M0STjJFAIpmAUmXD0NY9PQMzEBRPwJzkiSp71F8J1/ipNMj
- f9rE8XggkUgexq9cBXmi+DYYjtCRGL72T+D4jr/RaE+waFgu8c0zgUcmT9UuBS4/9m0hmh9Fo7N8FXih
- CIKE5/Vi8yJsDM8P8P0HLGwR4Wl3ICYAAAAASUVORK5CYII=
-
-
\ No newline at end of file
diff --git a/DDUserManager/DDUserManager/frmConfigDatabase.vb b/DDUserManager/DDUserManager/frmConfigDatabase.vb
index 308f6ed..68caf65 100644
--- a/DDUserManager/DDUserManager/frmConfigDatabase.vb
+++ b/DDUserManager/DDUserManager/frmConfigDatabase.vb
@@ -82,7 +82,6 @@ Public Class frmConfigDatabase
con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";Application Name=DD ADDI-Client"
End If
-
Dim connection As New SqlClient.SqlConnection(con) 'csb.ConnectionString)
'während Verbindungsaufbau Sanduhr-Mauszeiger
Cursor = Cursors.WaitCursor
@@ -91,15 +90,12 @@ Public Class frmConfigDatabase
'DialogResult = Windows.Forms.DialogResult.OK
Dim result As MsgBoxResult
Dim msg = "Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?"
- result = MessageBox.Show(msg, "Database-Connection", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+ result = MessageBox.Show(msg, "Datenbank-Verbindung", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
ConnectionChanged = True
'Set the construction string
- If rbConnDefault.Checked Then
- MyConnectionString = con
- 'csb.ConnectionString
- clsDatabase.Init(MyConnectionString)
- End If
+ MyConnectionString = con
+ clsDatabase.Init(MyConnectionString)
My.Settings.Save()
If chkbxUserAut.Checked = False Then
@@ -108,11 +104,9 @@ Public Class frmConfigDatabase
Dim pw As String = cipherText
con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";"
End If
- If rbConnDefault.Checked Then
- SaveMySettingsValue("MyConnectionString", con, "ConfigMain")
- Else
- SaveMySettingsValue("MyProxyConnectionString", con, "ConfigMain")
- End If
+
+ SaveMySettingsValue("MyConnectionString", con, "ConfigMain")
+
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
Dim constr = connection.ConnectionString
@@ -128,6 +122,10 @@ Public Class frmConfigDatabase
End Sub
Private Sub cmbDatenbank_MouseClick(sender As Object, e As MouseEventArgs) Handles cmbDatenbank.MouseClick
- Load_Databases()
+ If txtServer.Text = String.Empty Or txtUser.Text = String.Empty Or txtPasswort.Text = String.Empty Then
+ MsgBox("Bitte füllen Sie die Felder 'Server-Name', 'Benutzername' und 'Passwort' zuerst aus!", MsgBoxStyle.Exclamation, "Datenbank-Verbindung")
+ Else
+ Load_Databases()
+ End If
End Sub
End Class
\ No newline at end of file
diff --git a/DDUserManager/DDUserManager/frmMain.Designer.vb b/DDUserManager/DDUserManager/frmMain.Designer.vb
index 6925b39..57b1a17 100644
--- a/DDUserManager/DDUserManager/frmMain.Designer.vb
+++ b/DDUserManager/DDUserManager/frmMain.Designer.vb
@@ -319,6 +319,7 @@ Partial Class frmMain
Me.PRODUCT_VERSIONTextBox = New System.Windows.Forms.TextBox()
Me.tabPageRights = New DevExpress.XtraTab.XtraTabPage()
Me.tabPageSettings = New DevExpress.XtraTab.XtraTabPage()
+ Me.btnConfigConnections = New System.Windows.Forms.Button()
Me.TBDD_GROUPS_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBDD_USERTableAdapter = New DDUserManager.UserDataSetTableAdapters.TBDD_USERTableAdapter()
Me.TableAdapterManager = New DDUserManager.UserDataSetTableAdapters.TableAdapterManager()
@@ -492,6 +493,7 @@ Partial Class frmMain
CType(Me.GridView5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_MODULESBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TBDD_MODULESBindingNavigator.SuspendLayout()
+ Me.tabPageSettings.SuspendLayout()
CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_CLIENT_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_USER_MODULESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -3414,12 +3416,23 @@ Partial Class frmMain
'
'tabPageSettings
'
+ Me.tabPageSettings.Controls.Add(Me.btnConfigConnections)
Me.tabPageSettings.Image = Global.DDUserManager.My.Resources.Resources.cog
Me.tabPageSettings.Name = "tabPageSettings"
- Me.tabPageSettings.PageEnabled = False
Me.tabPageSettings.Size = New System.Drawing.Size(1193, 784)
Me.tabPageSettings.Text = "Einstellungen"
'
+ 'btnConfigConnections
+ '
+ Me.btnConfigConnections.Image = Global.DDUserManager.My.Resources.Resources.database_connect
+ Me.btnConfigConnections.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.btnConfigConnections.Location = New System.Drawing.Point(11, 17)
+ Me.btnConfigConnections.Name = "btnConfigConnections"
+ Me.btnConfigConnections.Size = New System.Drawing.Size(167, 47)
+ Me.btnConfigConnections.TabIndex = 0
+ Me.btnConfigConnections.Text = "Datenbankverbindung konfigurieren"
+ Me.btnConfigConnections.UseVisualStyleBackColor = True
+ '
'TBDD_GROUPS_USERBindingSource
'
Me.TBDD_GROUPS_USERBindingSource.DataMember = "FK_TBDD_GROUPS_USER_USER_ID"
@@ -3670,6 +3683,7 @@ Partial Class frmMain
CType(Me.TBDD_MODULESBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
Me.TBDD_MODULESBindingNavigator.ResumeLayout(False)
Me.TBDD_MODULESBindingNavigator.PerformLayout()
+ Me.tabPageSettings.ResumeLayout(False)
CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_CLIENT_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_USER_MODULESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@@ -3961,4 +3975,5 @@ Partial Class frmMain
Friend WithEvents TableAdapterManager1 As DS_ChangeSTableAdapters.TableAdapterManager
Friend WithEvents TBDD_GROUPS_USERTableAdapter As UserDataSetTableAdapters.TBDD_GROUPS_USERTableAdapter
Friend WithEvents LANGUAGEComboBox As ComboBox
+ Friend WithEvents btnConfigConnections As Button
End Class
diff --git a/DDUserManager/DDUserManager/frmMain.vb b/DDUserManager/DDUserManager/frmMain.vb
index 0d8accb..6770c8b 100644
--- a/DDUserManager/DDUserManager/frmMain.vb
+++ b/DDUserManager/DDUserManager/frmMain.vb
@@ -1004,4 +1004,8 @@ Public Class frmMain
'UserDataSet.TBDD_GROUPS.ADDED_WHOColumn.DefaultValue = Environment.UserName
DS_ChangeS.TBDD_GROUPS.ADDED_WHOColumn.DefaultValue = Environment.UserName
End Sub
+
+ Private Sub btnConfigConnections_Click(sender As Object, e As EventArgs) Handles btnConfigConnections.Click
+ frmConfigDatabase.ShowDialog()
+ End Sub
End Class