diff --git a/app/DD-Record-Organiser/frmConfig_Basic.Designer.vb b/app/DD-Record-Organiser/frmConfig_Basic.Designer.vb
index 408a70a..036211e 100644
--- a/app/DD-Record-Organiser/frmConfig_Basic.Designer.vb
+++ b/app/DD-Record-Organiser/frmConfig_Basic.Designer.vb
@@ -39,6 +39,9 @@ Partial Class frmConfig_Basic
Me.txtPasswort = New System.Windows.Forms.TextBox()
Me.BtnConnect = New System.Windows.Forms.Button()
Me.TabPage2 = New System.Windows.Forms.TabPage()
+ Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+ Me.Button3 = New System.Windows.Forms.Button()
+ Me.cmbLanguage = New System.Windows.Forms.ComboBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.cmbConstructor = New System.Windows.Forms.ComboBox()
@@ -62,18 +65,15 @@ Partial Class frmConfig_Basic
Me.txtScanFolderWatch = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.btnstartstop2 = New System.Windows.Forms.Button()
- Me.cmbLanguage = New System.Windows.Forms.ComboBox()
- Me.Button3 = New System.Windows.Forms.Button()
- Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
+ Me.GroupBox4.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.TabPage3.SuspendLayout()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
- Me.GroupBox4.SuspendLayout()
Me.SuspendLayout()
'
'TabControl1
@@ -187,6 +187,27 @@ Partial Class frmConfig_Basic
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.UseVisualStyleBackColor = True
'
+ 'GroupBox4
+ '
+ Me.GroupBox4.Controls.Add(Me.Button3)
+ Me.GroupBox4.Controls.Add(Me.cmbLanguage)
+ resources.ApplyResources(Me.GroupBox4, "GroupBox4")
+ Me.GroupBox4.Name = "GroupBox4"
+ Me.GroupBox4.TabStop = False
+ '
+ 'Button3
+ '
+ resources.ApplyResources(Me.Button3, "Button3")
+ Me.Button3.Name = "Button3"
+ Me.Button3.UseVisualStyleBackColor = True
+ '
+ 'cmbLanguage
+ '
+ Me.cmbLanguage.FormattingEnabled = True
+ Me.cmbLanguage.Items.AddRange(New Object() {resources.GetString("cmbLanguage.Items"), resources.GetString("cmbLanguage.Items1")})
+ resources.ApplyResources(Me.cmbLanguage, "cmbLanguage")
+ Me.cmbLanguage.Name = "cmbLanguage"
+ '
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.Label7)
@@ -343,27 +364,6 @@ Partial Class frmConfig_Basic
Me.btnstartstop2.Name = "btnstartstop2"
Me.btnstartstop2.UseVisualStyleBackColor = True
'
- 'cmbLanguage
- '
- Me.cmbLanguage.FormattingEnabled = True
- Me.cmbLanguage.Items.AddRange(New Object() {resources.GetString("cmbLanguage.Items"), resources.GetString("cmbLanguage.Items1")})
- resources.ApplyResources(Me.cmbLanguage, "cmbLanguage")
- Me.cmbLanguage.Name = "cmbLanguage"
- '
- 'Button3
- '
- resources.ApplyResources(Me.Button3, "Button3")
- Me.Button3.Name = "Button3"
- Me.Button3.UseVisualStyleBackColor = True
- '
- 'GroupBox4
- '
- Me.GroupBox4.Controls.Add(Me.Button3)
- Me.GroupBox4.Controls.Add(Me.cmbLanguage)
- resources.ApplyResources(Me.GroupBox4, "GroupBox4")
- Me.GroupBox4.Name = "GroupBox4"
- Me.GroupBox4.TabStop = False
- '
'frmConfig_Basic
'
resources.ApplyResources(Me, "$this")
@@ -377,6 +377,7 @@ Partial Class frmConfig_Basic
Me.TabPage1.PerformLayout()
Me.TabPage2.ResumeLayout(False)
Me.TabPage2.PerformLayout()
+ Me.GroupBox4.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
@@ -386,7 +387,6 @@ Partial Class frmConfig_Basic
Me.TabPage3.ResumeLayout(False)
Me.TabPage3.PerformLayout()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
- Me.GroupBox4.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
diff --git a/app/DD-Record-Organiser/frmConfig_Basic.resx b/app/DD-Record-Organiser/frmConfig_Basic.resx
index 0fa0fd1..ebad0e1 100644
--- a/app/DD-Record-Organiser/frmConfig_Basic.resx
+++ b/app/DD-Record-Organiser/frmConfig_Basic.resx
@@ -983,7 +983,7 @@
11, 102
- 192, 113
+ 192, 153
15
diff --git a/app/DD-Record-Organiser/frmConfig_Basic.vb b/app/DD-Record-Organiser/frmConfig_Basic.vb
index 636afe3..6a39295 100644
--- a/app/DD-Record-Organiser/frmConfig_Basic.vb
+++ b/app/DD-Record-Organiser/frmConfig_Basic.vb
@@ -48,6 +48,9 @@ Public Class frmConfig_Basic
End Sub
Private Sub cmbDatenbank_MouseClick(sender As Object, e As MouseEventArgs) Handles cmbDatenbank.MouseClick
+ Load_Databases()
+ End Sub
+ Sub Load_Databases()
Try
Me.Cursor = Cursors.WaitCursor
Dim csb As New SqlClient.SqlConnectionStringBuilder
@@ -80,7 +83,10 @@ Public Class frmConfig_Basic
End If
connection.Close()
Catch ex As Exception
- MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Datenbank-Connect:")
+ If ex.Message.ToLower.Contains("he standard-databases") Or ex.Message.ToLower.Contains("ie standard-datenbanken") Then
+ cmbDatenbank.Text = "DD_ECM"
+ End If
+ MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Load Databases:")
End Try
Cursor = Cursors.Default
End Sub
@@ -379,4 +385,8 @@ Public Class frmConfig_Basic
Private Sub cmbDatenbank_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbDatenbank.SelectedIndexChanged
End Sub
+
+ Private Sub txtPasswort_Leave(sender As Object, e As EventArgs) Handles txtPasswort.Leave
+
+ End Sub
End Class
\ No newline at end of file
diff --git a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.Designer.vb b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.Designer.vb
index 6dfc26e..1c34187 100644
--- a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.Designer.vb
+++ b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.Designer.vb
@@ -28,8 +28,9 @@ Partial Class frmUserKonfig_AddUsers
Me.lbGroups = New System.Windows.Forms.ListBox()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
- Me.RBCheck2 = New System.Windows.Forms.RadioButton()
+ Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.RBCheck1 = New System.Windows.Forms.RadioButton()
+ Me.RBCheck2 = New System.Windows.Forms.RadioButton()
Me.clbUsers = New System.Windows.Forms.CheckedListBox()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
@@ -38,14 +39,13 @@ Partial Class frmUserKonfig_AddUsers
Me.btnCancel = New System.Windows.Forms.Button()
Me.btnAddUsers = New System.Windows.Forms.Button()
Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components)
- Me.GroupBox1 = New System.Windows.Forms.GroupBox()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
- Me.ToolStrip2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
+ Me.ToolStrip2.SuspendLayout()
Me.SuspendLayout()
'
'SplitContainer1
@@ -85,20 +85,28 @@ Partial Class frmUserKonfig_AddUsers
resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1")
Me.ToolStripLabel1.Name = "ToolStripLabel1"
'
- 'RBCheck2
+ 'GroupBox1
'
- resources.ApplyResources(Me.RBCheck2, "RBCheck2")
- Me.RBCheck2.Name = "RBCheck2"
- Me.RBCheck2.UseVisualStyleBackColor = True
+ Me.GroupBox1.Controls.Add(Me.RBCheck1)
+ Me.GroupBox1.Controls.Add(Me.RBCheck2)
+ resources.ApplyResources(Me.GroupBox1, "GroupBox1")
+ Me.GroupBox1.Name = "GroupBox1"
+ Me.GroupBox1.TabStop = False
'
'RBCheck1
'
resources.ApplyResources(Me.RBCheck1, "RBCheck1")
- Me.RBCheck1.Checked = True
Me.RBCheck1.Name = "RBCheck1"
- Me.RBCheck1.TabStop = True
Me.RBCheck1.UseVisualStyleBackColor = True
'
+ 'RBCheck2
+ '
+ resources.ApplyResources(Me.RBCheck2, "RBCheck2")
+ Me.RBCheck2.Checked = True
+ Me.RBCheck2.Name = "RBCheck2"
+ Me.RBCheck2.TabStop = True
+ Me.RBCheck2.UseVisualStyleBackColor = True
+ '
'clbUsers
'
Me.clbUsers.BackColor = System.Drawing.SystemColors.GradientActiveCaption
@@ -145,14 +153,6 @@ Partial Class frmUserKonfig_AddUsers
Me.btnAddUsers.Name = "btnAddUsers"
Me.btnAddUsers.UseVisualStyleBackColor = True
'
- 'GroupBox1
- '
- Me.GroupBox1.Controls.Add(Me.RBCheck1)
- Me.GroupBox1.Controls.Add(Me.RBCheck2)
- resources.ApplyResources(Me.GroupBox1, "GroupBox1")
- Me.GroupBox1.Name = "GroupBox1"
- Me.GroupBox1.TabStop = False
- '
'frmUserKonfig_AddUsers
'
resources.ApplyResources(Me, "$this")
@@ -169,10 +169,10 @@ Partial Class frmUserKonfig_AddUsers
Me.SplitContainer1.ResumeLayout(False)
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
- Me.ToolStrip2.ResumeLayout(False)
- Me.ToolStrip2.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
+ Me.ToolStrip2.ResumeLayout(False)
+ Me.ToolStrip2.PerformLayout()
Me.ResumeLayout(False)
End Sub
diff --git a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.resx b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.resx
index 4e1e088..4842f22 100644
--- a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.resx
+++ b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.resx
@@ -205,13 +205,13 @@
18, 21
- 72, 17
+ 95, 17
7
- Standard
+ Basic Method
RBCheck1
diff --git a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb
index 5e706be..904e340 100644
--- a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb
+++ b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb
@@ -7,12 +7,7 @@ Public Class frmUserKonfig_AddUsers
Private Sub formUserConfig_AddUsers_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Cursor = Cursors.WaitCursor
- Dim groups = GetActiveDirectoryGroups()
- If Not IsNothing(groups) Then
- For Each group In groups
- lbGroups.Items.Add(group)
- Next
- End If
+ GetGroups(Environment.UserName)
Catch ex As Exception
MsgBox("Error in Load Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)