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)