jj: finish ad import

This commit is contained in:
Jonathan Jenne 2018-05-15 16:06:48 +02:00
parent c6be81dda4
commit 0d7ad76980
9 changed files with 146 additions and 130 deletions

View File

@ -1,13 +1,11 @@
<?xml version="1.0" encoding="utf-8" ?>
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
</configSections>
<connectionStrings>
<add name="DDUserManager.My.MySettings.DD_ECMConnectionString"
connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" />
<add name="DDUserManager.My.MySettings.DD_ECMConnectionString" connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient"/>
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2"/>
</startup>
</configuration>
</configuration>

View File

@ -8,15 +8,15 @@ Namespace My
' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn die Anwendung bereits aktiv ist.
' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst.
Partial Friend Class MyApplication
Protected Overrides Function OnStartup(eventArgs As StartupEventArgs) As Boolean
Dim requiredParam As String = "-internal"
'Protected Overrides Function OnStartup(eventArgs As StartupEventArgs) As Boolean
' Dim requiredParam As String = "-internal"
If eventArgs.CommandLine.Count = 1 AndAlso eventArgs.CommandLine.Item(0) = requiredParam Then
Return MyBase.OnStartup(eventArgs)
Else
MsgBox("Diese Anwendung kann nicht manuell gestartet werden und wird nun beendet.", MsgBoxStyle.Exclamation, "User Manager")
Return Nothing
End If
End Function
' If eventArgs.CommandLine.Count = 1 AndAlso eventArgs.CommandLine.Item(0) = requiredParam Then
' Return MyBase.OnStartup(eventArgs)
' Else
' MsgBox("Diese Anwendung kann nicht manuell gestartet werden und wird nun beendet.", MsgBoxStyle.Exclamation, "User Manager")
' Return Nothing
' End If
'End Function
End Class
End Namespace

View File

@ -11,8 +11,9 @@
<AssemblyName>DDUserManager</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<TargetFrameworkVersion>v4.5.2</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
@ -62,7 +63,6 @@
<Reference Include="System.Deployment" />
<Reference Include="System.DirectoryServices" />
<Reference Include="System.DirectoryServices.AccountManagement" />
<Reference Include="System.DirectoryServices.Protocols" />
<Reference Include="System.Drawing" />
<Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" />

View File

@ -1,10 +1,10 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
@ -13,15 +13,15 @@ Option Explicit On
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten
' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
@ -29,8 +29,8 @@ Namespace My
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.DDUserManager.frmMain
End Sub

View File

@ -1,11 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>Form1</MainForm>
<MainForm>frmMain</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>0</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>
</MyApplicationData>

View File

@ -5,5 +5,17 @@
the code is regenerated.
</autogenerated>-->
<DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TableUISettings />
<TableUISettings>
<TableUISetting Name="TBDD_USER">
<ColumnUISettings>
<ColumnUISetting Name="DATE_FORMAT">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>
</TableUISettings>
</DataSetUISetting>

View File

@ -1,5 +1,4 @@
Imports System.DirectoryServices
Imports System.DirectoryServices.ActiveDirectory
Imports System.DirectoryServices.AccountManagement
Imports DDUserManager.UserDataSet
Imports DevExpress.XtraGrid.Views.Grid
@ -47,9 +46,14 @@ Public Class frmADImport
Private Sub frmADImport_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim groups = GetActiveDirectoryGroups(Environment.UserName)
Try
Dim groups = GetActiveDirectoryGroups(Environment.UserName)
gridAD_Groups.DataSource = groups
Catch ex As Exception
MsgBox($"Error while loading initial groups")
End Try
gridAD_Groups.DataSource = groups
End Sub
Private Function FindUser(rootEntry As DirectoryEntry, samAccountName As String) As DirectoryEntry
@ -84,17 +88,17 @@ Public Class frmADImport
Dim users As New List(Of UserPrincipal)
Using context As New PrincipalContext(ContextType.Domain)
Using group As GroupPrincipal = GroupPrincipal.FindByIdentity(context, IdentityType.Name, groupName)
Using members = group.GetMembers(True)
Dim group As GroupPrincipal = GroupPrincipal.FindByIdentity(context, IdentityType.Name, groupName)
Dim members = group.GetMembers(True)
For Each member As UserPrincipal In members
If TypeOf member Is UserPrincipal Then
users.Add(member)
End If
Next
For Each member As Object In members
If TypeOf member Is UserPrincipal Then
users.Add(member)
End If
Next
End Using
End Using
End Using
Return users

View File

@ -62,11 +62,11 @@ Partial Class frmMain
Me.tabPageUsers = New DevExpress.XtraTab.XtraTabPage()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.DATE_FORMATComboBox = New System.Windows.Forms.ComboBox()
Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.UserDataSet = New DDUserManager.UserDataSet()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.DATE_FORMATTextBox = New System.Windows.Forms.TextBox()
Me.USERID_FK_INT_ECMTextBox = New System.Windows.Forms.TextBox()
Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
Me.PRENAMETextBox = New System.Windows.Forms.TextBox()
@ -180,6 +180,7 @@ Partial Class frmMain
Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.TBDD_USERBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.tabPageGroups = New DevExpress.XtraTab.XtraTabPage()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
@ -269,7 +270,6 @@ Partial Class frmMain
Me.TBDD_USER_MODULESTableAdapter = New DDUserManager.UserDataSetTableAdapters.TBDD_USER_MODULESTableAdapter()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tsLabelUser = New System.Windows.Forms.ToolStripStatusLabel()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
GUIDLabel = New System.Windows.Forms.Label()
PRENAMELabel = New System.Windows.Forms.Label()
NAMELabel = New System.Windows.Forms.Label()
@ -712,7 +712,7 @@ Partial Class frmMain
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.tabPageUsers
Me.XtraTabControl1.Size = New System.Drawing.Size(1199, 815)
Me.XtraTabControl1.Size = New System.Drawing.Size(1199, 837)
Me.XtraTabControl1.TabIndex = 0
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.tabPageUsers, Me.tabPageGroups, Me.tabPageClients, Me.tabPageModules})
'
@ -723,7 +723,7 @@ Partial Class frmMain
Me.tabPageUsers.Controls.Add(Me.TBDD_USERBindingNavigator)
Me.tabPageUsers.Image = Global.DDUserManager.My.Resources.Resources.user
Me.tabPageUsers.Name = "tabPageUsers"
Me.tabPageUsers.Size = New System.Drawing.Size(1193, 784)
Me.tabPageUsers.Size = New System.Drawing.Size(1193, 806)
Me.tabPageUsers.Text = "Benutzer"
'
'SplitContainer1
@ -741,8 +741,8 @@ Partial Class frmMain
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.XtraTabControl2)
Me.SplitContainer1.Size = New System.Drawing.Size(1193, 759)
Me.SplitContainer1.SplitterDistance = 377
Me.SplitContainer1.Size = New System.Drawing.Size(1193, 781)
Me.SplitContainer1.SplitterDistance = 387
Me.SplitContainer1.TabIndex = 63
'
'SplitContainer2
@ -754,12 +754,13 @@ Partial Class frmMain
'
'SplitContainer2.Panel1
'
Me.SplitContainer2.Panel1.AutoScroll = True
Me.SplitContainer2.Panel1.Controls.Add(Me.DATE_FORMATComboBox)
Me.SplitContainer2.Panel1.Controls.Add(Me.TextBox2)
Me.SplitContainer2.Panel1.Controls.Add(Me.TextBox1)
Me.SplitContainer2.Panel1.Controls.Add(ADDED_WHOLabel)
Me.SplitContainer2.Panel1.Controls.Add(GUIDLabel)
Me.SplitContainer2.Panel1.Controls.Add(CHANGED_WHENLabel)
Me.SplitContainer2.Panel1.Controls.Add(Me.DATE_FORMATTextBox)
Me.SplitContainer2.Panel1.Controls.Add(USERID_FK_INT_ECMLabel)
Me.SplitContainer2.Panel1.Controls.Add(Me.USERID_FK_INT_ECMTextBox)
Me.SplitContainer2.Panel1.Controls.Add(DATE_FORMATLabel)
@ -793,18 +794,19 @@ Partial Class frmMain
Me.SplitContainer2.Panel2.Controls.Add(Me.listGroups)
Me.SplitContainer2.Panel2.Controls.Add(Me.Label2)
Me.SplitContainer2.Panel2.Controls.Add(Me.listClients)
Me.SplitContainer2.Size = New System.Drawing.Size(765, 377)
Me.SplitContainer2.SplitterDistance = 197
Me.SplitContainer2.Size = New System.Drawing.Size(765, 387)
Me.SplitContainer2.SplitterDistance = 202
Me.SplitContainer2.TabIndex = 63
'
'TextBox2
'DATE_FORMATComboBox
'
Me.TextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "CHANGED_WHEN", True))
Me.TextBox2.Location = New System.Drawing.Point(576, 102)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.ReadOnly = True
Me.TextBox2.Size = New System.Drawing.Size(163, 21)
Me.TextBox2.TabIndex = 53
Me.DATE_FORMATComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "DATE_FORMAT", True))
Me.DATE_FORMATComboBox.FormattingEnabled = True
Me.DATE_FORMATComboBox.Items.AddRange(New Object() {"dd.MM.yyyy", "MM.dd.yyyy", "yyyy-MM-dd"})
Me.DATE_FORMATComboBox.Location = New System.Drawing.Point(106, 129)
Me.DATE_FORMATComboBox.Name = "DATE_FORMATComboBox"
Me.DATE_FORMATComboBox.Size = New System.Drawing.Size(109, 21)
Me.DATE_FORMATComboBox.TabIndex = 54
'
'TBDD_USERBindingSource
'
@ -816,6 +818,15 @@ Partial Class frmMain
Me.UserDataSet.DataSetName = "UserDataSet"
Me.UserDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'TextBox2
'
Me.TextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "CHANGED_WHEN", True))
Me.TextBox2.Location = New System.Drawing.Point(576, 102)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.ReadOnly = True
Me.TextBox2.Size = New System.Drawing.Size(163, 21)
Me.TextBox2.TabIndex = 53
'
'TextBox1
'
Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "ADDED_WHEN", True))
@ -825,14 +836,6 @@ Partial Class frmMain
Me.TextBox1.Size = New System.Drawing.Size(163, 21)
Me.TextBox1.TabIndex = 52
'
'DATE_FORMATTextBox
'
Me.DATE_FORMATTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "DATE_FORMAT", True))
Me.DATE_FORMATTextBox.Location = New System.Drawing.Point(106, 129)
Me.DATE_FORMATTextBox.Name = "DATE_FORMATTextBox"
Me.DATE_FORMATTextBox.Size = New System.Drawing.Size(109, 21)
Me.DATE_FORMATTextBox.TabIndex = 43
'
'USERID_FK_INT_ECMTextBox
'
Me.USERID_FK_INT_ECMTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "USERID_FK_INT_ECM", True))
@ -1019,7 +1022,7 @@ Partial Class frmMain
Me.GridUsers.Location = New System.Drawing.Point(765, 0)
Me.GridUsers.MainView = Me.gvUsers
Me.GridUsers.Name = "GridUsers"
Me.GridUsers.Size = New System.Drawing.Size(428, 377)
Me.GridUsers.Size = New System.Drawing.Size(428, 387)
Me.GridUsers.TabIndex = 58
Me.GridUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gvUsers})
'
@ -1072,7 +1075,7 @@ Partial Class frmMain
Me.XtraTabControl2.Location = New System.Drawing.Point(0, 0)
Me.XtraTabControl2.Name = "XtraTabControl2"
Me.XtraTabControl2.SelectedTabPage = Me.tabGroupAssign
Me.XtraTabControl2.Size = New System.Drawing.Size(1193, 378)
Me.XtraTabControl2.Size = New System.Drawing.Size(1193, 390)
Me.XtraTabControl2.TabIndex = 0
Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.tabGroupAssign, Me.tabClientAssign, Me.tabModuleAssign})
'
@ -1081,7 +1084,7 @@ Partial Class frmMain
Me.tabGroupAssign.Controls.Add(Me.SplitContainerUserGroups1)
Me.tabGroupAssign.Image = Global.DDUserManager.My.Resources.Resources.group
Me.tabGroupAssign.Name = "tabGroupAssign"
Me.tabGroupAssign.Size = New System.Drawing.Size(1187, 347)
Me.tabGroupAssign.Size = New System.Drawing.Size(1187, 359)
Me.tabGroupAssign.Text = "Gruppen Zuordnung"
'
'SplitContainerUserGroups1
@ -1098,7 +1101,7 @@ Partial Class frmMain
'
Me.SplitContainerUserGroups1.Panel2.Controls.Add(Me.Label5)
Me.SplitContainerUserGroups1.Panel2.Controls.Add(Me.gridGroups_AssignedUsers)
Me.SplitContainerUserGroups1.Size = New System.Drawing.Size(1187, 347)
Me.SplitContainerUserGroups1.Size = New System.Drawing.Size(1187, 359)
Me.SplitContainerUserGroups1.SplitterDistance = 738
Me.SplitContainerUserGroups1.TabIndex = 8
'
@ -1118,7 +1121,7 @@ Partial Class frmMain
Me.SplitContainerUserGroups2.Panel2.Controls.Add(Me.Label4)
Me.SplitContainerUserGroups2.Panel2.Controls.Add(Me.gridGroups_AvailableUsers)
Me.SplitContainerUserGroups2.Panel2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.SplitContainerUserGroups2.Size = New System.Drawing.Size(738, 347)
Me.SplitContainerUserGroups2.Size = New System.Drawing.Size(738, 359)
Me.SplitContainerUserGroups2.SplitterDistance = 368
Me.SplitContainerUserGroups2.TabIndex = 0
'
@ -1128,7 +1131,7 @@ Partial Class frmMain
Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(0, 0)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(368, 31)
Me.Label3.Size = New System.Drawing.Size(368, 43)
Me.Label3.TabIndex = 7
Me.Label3.Text = "Verfügbare Gruppen:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -1137,7 +1140,7 @@ Partial Class frmMain
'
Me.gridGroups_AllGroups.DataSource = Me.TBDD_USER_GROUPSBindingSource
Me.gridGroups_AllGroups.Dock = System.Windows.Forms.DockStyle.Bottom
Me.gridGroups_AllGroups.Location = New System.Drawing.Point(0, 31)
Me.gridGroups_AllGroups.Location = New System.Drawing.Point(0, 43)
Me.gridGroups_AllGroups.MainView = Me.gvGroups_AllGroups
Me.gridGroups_AllGroups.Name = "gridGroups_AllGroups"
Me.gridGroups_AllGroups.Size = New System.Drawing.Size(368, 316)
@ -1177,7 +1180,7 @@ Partial Class frmMain
Me.Label4.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(0, 0)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(366, 31)
Me.Label4.Size = New System.Drawing.Size(366, 43)
Me.Label4.TabIndex = 7
Me.Label4.Text = "Verfügbare Benutzer (nach Rechts ziehen, um zuzuordnen):"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -1186,7 +1189,7 @@ Partial Class frmMain
'
Me.gridGroups_AvailableUsers.AllowDrop = True
Me.gridGroups_AvailableUsers.Dock = System.Windows.Forms.DockStyle.Bottom
Me.gridGroups_AvailableUsers.Location = New System.Drawing.Point(0, 31)
Me.gridGroups_AvailableUsers.Location = New System.Drawing.Point(0, 43)
Me.gridGroups_AvailableUsers.MainView = Me.gvGroups_AvailableUsers
Me.gridGroups_AvailableUsers.Name = "gridGroups_AvailableUsers"
Me.gridGroups_AvailableUsers.Size = New System.Drawing.Size(366, 316)
@ -1249,7 +1252,7 @@ Partial Class frmMain
Me.Label5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(0, 0)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(445, 31)
Me.Label5.Size = New System.Drawing.Size(445, 43)
Me.Label5.TabIndex = 7
Me.Label5.Text = "Zugeordnete Benutzer (nach Links ziehen, um Zuordnung zu entfernen):"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -1258,7 +1261,7 @@ Partial Class frmMain
'
Me.gridGroups_AssignedUsers.AllowDrop = True
Me.gridGroups_AssignedUsers.Dock = System.Windows.Forms.DockStyle.Bottom
Me.gridGroups_AssignedUsers.Location = New System.Drawing.Point(0, 31)
Me.gridGroups_AssignedUsers.Location = New System.Drawing.Point(0, 43)
Me.gridGroups_AssignedUsers.MainView = Me.gvGroups_AssignedUsers
Me.gridGroups_AssignedUsers.Name = "gridGroups_AssignedUsers"
Me.gridGroups_AssignedUsers.Size = New System.Drawing.Size(445, 316)
@ -1320,7 +1323,7 @@ Partial Class frmMain
Me.tabClientAssign.Controls.Add(Me.SplitContainer4)
Me.tabClientAssign.Image = Global.DDUserManager.My.Resources.Resources.book
Me.tabClientAssign.Name = "tabClientAssign"
Me.tabClientAssign.Size = New System.Drawing.Size(1187, 347)
Me.tabClientAssign.Size = New System.Drawing.Size(1187, 359)
Me.tabClientAssign.Text = "Mandanten Zuordnung"
'
'SplitContainer4
@ -1337,7 +1340,7 @@ Partial Class frmMain
'SplitContainer4.Panel2
'
Me.SplitContainer4.Panel2.Controls.Add(Me.SplitContainer5)
Me.SplitContainer4.Size = New System.Drawing.Size(1187, 347)
Me.SplitContainer4.Size = New System.Drawing.Size(1187, 359)
Me.SplitContainer4.SplitterDistance = 369
Me.SplitContainer4.TabIndex = 0
'
@ -1347,7 +1350,7 @@ Partial Class frmMain
Me.Label6.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(0, 0)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(369, 33)
Me.Label6.Size = New System.Drawing.Size(369, 45)
Me.Label6.TabIndex = 1
Me.Label6.Text = "Verfügbare Mandanten:"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -1356,7 +1359,7 @@ Partial Class frmMain
'
Me.gridClients_AllClients.DataSource = Me.TBDD_CLIENTBindingSource
Me.gridClients_AllClients.Dock = System.Windows.Forms.DockStyle.Bottom
Me.gridClients_AllClients.Location = New System.Drawing.Point(0, 33)
Me.gridClients_AllClients.Location = New System.Drawing.Point(0, 45)
Me.gridClients_AllClients.MainView = Me.gvClients_AllClients
Me.gridClients_AllClients.Name = "gridClients_AllClients"
Me.gridClients_AllClients.Size = New System.Drawing.Size(369, 314)
@ -1413,7 +1416,7 @@ Partial Class frmMain
'
Me.SplitContainer5.Panel2.Controls.Add(Me.Label8)
Me.SplitContainer5.Panel2.Controls.Add(Me.gridClients_AssignedUsers)
Me.SplitContainer5.Size = New System.Drawing.Size(814, 347)
Me.SplitContainer5.Size = New System.Drawing.Size(814, 359)
Me.SplitContainer5.SplitterDistance = 382
Me.SplitContainer5.TabIndex = 0
'
@ -1423,7 +1426,7 @@ Partial Class frmMain
Me.Label7.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(0, 0)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(382, 33)
Me.Label7.Size = New System.Drawing.Size(382, 45)
Me.Label7.TabIndex = 2
Me.Label7.Text = "Verfügbare Benutzer (nach Rechts ziehen, um zuzuordnen):"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -1432,7 +1435,7 @@ Partial Class frmMain
'
Me.gridClients_AvailableUsers.AllowDrop = True
Me.gridClients_AvailableUsers.Dock = System.Windows.Forms.DockStyle.Bottom
Me.gridClients_AvailableUsers.Location = New System.Drawing.Point(0, 33)
Me.gridClients_AvailableUsers.Location = New System.Drawing.Point(0, 45)
Me.gridClients_AvailableUsers.MainView = Me.gvClients_AvailableUsers
Me.gridClients_AvailableUsers.Name = "gridClients_AvailableUsers"
Me.gridClients_AvailableUsers.Size = New System.Drawing.Size(382, 314)
@ -1490,7 +1493,7 @@ Partial Class frmMain
Me.Label8.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(0, 0)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(428, 33)
Me.Label8.Size = New System.Drawing.Size(428, 45)
Me.Label8.TabIndex = 2
Me.Label8.Text = "Zugeordnete Benutzer (nach Links ziehen, um Zuordnung zu entfernen):"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -1499,7 +1502,7 @@ Partial Class frmMain
'
Me.gridClients_AssignedUsers.AllowDrop = True
Me.gridClients_AssignedUsers.Dock = System.Windows.Forms.DockStyle.Bottom
Me.gridClients_AssignedUsers.Location = New System.Drawing.Point(0, 33)
Me.gridClients_AssignedUsers.Location = New System.Drawing.Point(0, 45)
Me.gridClients_AssignedUsers.MainView = Me.gvClients_AssignedUsers
Me.gridClients_AssignedUsers.Name = "gridClients_AssignedUsers"
Me.gridClients_AssignedUsers.Size = New System.Drawing.Size(428, 314)
@ -1556,7 +1559,7 @@ Partial Class frmMain
Me.tabModuleAssign.Controls.Add(Me.SplitContainer6)
Me.tabModuleAssign.Image = Global.DDUserManager.My.Resources.Resources.plugin
Me.tabModuleAssign.Name = "tabModuleAssign"
Me.tabModuleAssign.Size = New System.Drawing.Size(1187, 347)
Me.tabModuleAssign.Size = New System.Drawing.Size(1187, 359)
Me.tabModuleAssign.Text = "Modul Zuordnung"
'
'SplitContainer6
@ -1573,7 +1576,7 @@ Partial Class frmMain
'SplitContainer6.Panel2
'
Me.SplitContainer6.Panel2.Controls.Add(Me.SplitContainer7)
Me.SplitContainer6.Size = New System.Drawing.Size(1187, 347)
Me.SplitContainer6.Size = New System.Drawing.Size(1187, 359)
Me.SplitContainer6.SplitterDistance = 394
Me.SplitContainer6.TabIndex = 0
'
@ -1583,7 +1586,7 @@ Partial Class frmMain
Me.Label9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(0, 0)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(394, 31)
Me.Label9.Size = New System.Drawing.Size(394, 43)
Me.Label9.TabIndex = 8
Me.Label9.Text = "Verfügbare Module:"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -1592,7 +1595,7 @@ Partial Class frmMain
'
Me.gridModules_AllModules.DataSource = Me.TBDD_MODULESBindingSource
Me.gridModules_AllModules.Dock = System.Windows.Forms.DockStyle.Bottom
Me.gridModules_AllModules.Location = New System.Drawing.Point(0, 31)
Me.gridModules_AllModules.Location = New System.Drawing.Point(0, 43)
Me.gridModules_AllModules.MainView = Me.gvModules_AllModules
Me.gridModules_AllModules.Name = "gridModules_AllModules"
Me.gridModules_AllModules.Size = New System.Drawing.Size(394, 316)
@ -1641,7 +1644,7 @@ Partial Class frmMain
'
Me.SplitContainer7.Panel2.Controls.Add(Me.Label11)
Me.SplitContainer7.Panel2.Controls.Add(Me.gridModules_AssignedUsers)
Me.SplitContainer7.Size = New System.Drawing.Size(789, 347)
Me.SplitContainer7.Size = New System.Drawing.Size(789, 359)
Me.SplitContainer7.SplitterDistance = 365
Me.SplitContainer7.TabIndex = 0
'
@ -1652,7 +1655,7 @@ Partial Class frmMain
Me.Label10.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(0, 0)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(365, 31)
Me.Label10.Size = New System.Drawing.Size(365, 43)
Me.Label10.TabIndex = 8
Me.Label10.Text = "Verfügbare Benutzer (nach Rechts ziehen, um zuzuordnen):"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -1661,7 +1664,7 @@ Partial Class frmMain
'
Me.gridModules_AvailableUsers.AllowDrop = True
Me.gridModules_AvailableUsers.Dock = System.Windows.Forms.DockStyle.Bottom
Me.gridModules_AvailableUsers.Location = New System.Drawing.Point(0, 31)
Me.gridModules_AvailableUsers.Location = New System.Drawing.Point(0, 43)
Me.gridModules_AvailableUsers.MainView = Me.gvModules_AvailableUsers
Me.gridModules_AvailableUsers.Name = "gridModules_AvailableUsers"
Me.gridModules_AvailableUsers.Size = New System.Drawing.Size(365, 316)
@ -1724,7 +1727,7 @@ Partial Class frmMain
Me.Label11.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.Location = New System.Drawing.Point(0, 0)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(420, 31)
Me.Label11.Size = New System.Drawing.Size(420, 43)
Me.Label11.TabIndex = 8
Me.Label11.Text = "Zugeordnete Benutzer (nach Links ziehen, um Zuordnung zu entfernen):"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -1733,7 +1736,7 @@ Partial Class frmMain
'
Me.gridModules_AssignedUsers.AllowDrop = True
Me.gridModules_AssignedUsers.Dock = System.Windows.Forms.DockStyle.Bottom
Me.gridModules_AssignedUsers.Location = New System.Drawing.Point(0, 31)
Me.gridModules_AssignedUsers.Location = New System.Drawing.Point(0, 43)
Me.gridModules_AssignedUsers.MainView = Me.gvModules_AssignedUsers
Me.gridModules_AssignedUsers.Name = "gridModules_AssignedUsers"
Me.gridModules_AssignedUsers.Size = New System.Drawing.Size(420, 316)
@ -1911,6 +1914,15 @@ Partial Class frmMain
Me.ToolStripButton1.Size = New System.Drawing.Size(150, 22)
Me.ToolStripButton1.Text = "Active Directory Import"
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton2.Text = "Daten neu laden"
'
'tabPageGroups
'
Me.tabPageGroups.Controls.Add(Me.GridControl1)
@ -1919,7 +1931,7 @@ Partial Class frmMain
Me.tabPageGroups.Controls.Add(Me.TBDD_USER_GROUPSBindingNavigator)
Me.tabPageGroups.Image = Global.DDUserManager.My.Resources.Resources.group
Me.tabPageGroups.Name = "tabPageGroups"
Me.tabPageGroups.Size = New System.Drawing.Size(1193, 784)
Me.tabPageGroups.Size = New System.Drawing.Size(1193, 806)
Me.tabPageGroups.Text = "Gruppen"
'
'GridControl1
@ -1929,7 +1941,7 @@ Partial Class frmMain
Me.GridControl1.Location = New System.Drawing.Point(793, 25)
Me.GridControl1.MainView = Me.GridView2
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(400, 759)
Me.GridControl1.Size = New System.Drawing.Size(400, 781)
Me.GridControl1.TabIndex = 17
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
'
@ -2169,7 +2181,7 @@ Partial Class frmMain
Me.tabPageClients.Controls.Add(Me.GroupBox5)
Me.tabPageClients.Image = Global.DDUserManager.My.Resources.Resources.book
Me.tabPageClients.Name = "tabPageClients"
Me.tabPageClients.Size = New System.Drawing.Size(1193, 784)
Me.tabPageClients.Size = New System.Drawing.Size(1193, 806)
Me.tabPageClients.Text = "Mandanten"
'
'GridControl2
@ -2179,7 +2191,7 @@ Partial Class frmMain
Me.GridControl2.Location = New System.Drawing.Point(793, 25)
Me.GridControl2.MainView = Me.GridView4
Me.GridControl2.Name = "GridControl2"
Me.GridControl2.Size = New System.Drawing.Size(400, 759)
Me.GridControl2.Size = New System.Drawing.Size(400, 781)
Me.GridControl2.TabIndex = 19
Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView4})
'
@ -2447,7 +2459,7 @@ Partial Class frmMain
Me.tabPageModules.Controls.Add(Me.PRODUCT_VERSIONTextBox)
Me.tabPageModules.Image = Global.DDUserManager.My.Resources.Resources.plugin
Me.tabPageModules.Name = "tabPageModules"
Me.tabPageModules.Size = New System.Drawing.Size(1193, 784)
Me.tabPageModules.Size = New System.Drawing.Size(1193, 806)
Me.tabPageModules.Text = "Module"
'
'gridModules
@ -2457,7 +2469,7 @@ Partial Class frmMain
Me.gridModules.Location = New System.Drawing.Point(793, 25)
Me.gridModules.MainView = Me.GridView5
Me.gridModules.Name = "gridModules"
Me.gridModules.Size = New System.Drawing.Size(400, 759)
Me.gridModules.Size = New System.Drawing.Size(400, 781)
Me.gridModules.TabIndex = 39
Me.gridModules.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView5})
'
@ -2676,7 +2688,7 @@ Partial Class frmMain
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsLabelUser})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 793)
Me.StatusStrip1.Location = New System.Drawing.Point(0, 815)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(1199, 22)
Me.StatusStrip1.TabIndex = 1
@ -2689,20 +2701,11 @@ Partial Class frmMain
Me.tsLabelUser.Size = New System.Drawing.Size(83, 17)
Me.tsLabelUser.Text = "tsLabelUser"
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton2.Text = "Daten neu laden"
'
'frmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1199, 815)
Me.ClientSize = New System.Drawing.Size(1199, 837)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.XtraTabControl1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@ -2851,7 +2854,6 @@ Partial Class frmMain
Friend WithEvents COMMENTTextBox As TextBox
Friend WithEvents WAN_ENVIRONMENTCheckBox As CheckBox
Friend WithEvents USERID_FK_INT_ECMTextBox As TextBox
Friend WithEvents DATE_FORMATTextBox As TextBox
Friend WithEvents ADDED_WHOTextBox As TextBox
Friend WithEvents CHANGED_WHOTextBox As TextBox
Friend WithEvents tabPageClients As DevExpress.XtraTab.XtraTabPage
@ -3033,4 +3035,5 @@ Partial Class frmMain
Friend WithEvents TextBox6 As TextBox
Friend WithEvents TextBox5 As TextBox
Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents DATE_FORMATComboBox As ComboBox
End Class

View File

@ -312,18 +312,18 @@
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJqSURBVDhPlZPtT1JhGMbZ/DvIGUYtrS1lOQgzli+pgDqB
NpnIAWE4fGG5TCVROYLKCXlREJMkzWXT3Njcoqwslem0F5O19dlvzs2vzW9XeHimo1rL37dr93PtPnt+
z+H8D3efyTuV88oMEs+OPFSaKPdJwiT+nXurWq55ucHSuFQX0yyqDuqeV6N2qhKyYAlML7TQzagh6sn3
kuPpmN/qhKY3mii93gX/9jDC38YwtRvAxI4XY58ewbM1iMF4HxQBOXKb+QOklqLptZZrfKWOjmw5MPt9
EqGvHjze8SPw2Q3v9hCYDRqOuA29q12QusuQbchykWqKxiW1xfbhPqYTIYR3xuDedMIwp8EtpxAimwD5
HVdR5S1HBVOCbF3mKKmdUr9QGxte72M3uuI0bjOFe4X2624yZuEbeAme9lyExHQUT6X7VROlR3d8kp+S
wRuH4j4BTUYnZDVwrRwlJ0Mzr6BUM3KqZrKcko5KqGJGTHGkgWKq1F1EFTmFlNAmoK515FLHztvW9FbS
P0E5LaPlobLD1DLRkbhXsE9G6bR+1EealjUJEllqn1S4ZYGSvZENZ9LKEDqW2pL3cyVGxqe0rFCjjk0r
+tceQLOgQPIVIvnJML/Ug1mnWaXDG3aoxquR08K3kFoK8zuti453Ye7HFKs0khhPU2pf62aV6mfrcdl8
IcrT8rikmiL5Cgcevm9HZDfIKg1+8cC37QKz6UD/SjeaFw2o8Vfikik7ytNlCkktHdWMzNsaNcI0T6GY
KcRNugAF1jzktecc5DZfjPGN5y1/bP6d4x8nqTTtEs/EsUZhT34nif+Aw/kFSy8zXbcRzP8AAAAASUVO
RK5CYII=
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJsSURBVDhPldPdT1JhHAdwNv8OcoZZM9YWsgxfMjbUoeDL
ENo0kEfE0fCF5TKVRPQIKicUFVDTJM1l09xYbGFvlsp02gvJ2rr2zrl527z7hodnOqq1/Nz99jvfPWfP
9xze/7j1tKxdvahOoePZKfxFMfmIdJqOf3d3Tc83v6m11L+sDt9e1hxUP6uAaqYUSn8hTM/1qJurQU5X
loc+nsz8tk5ieq0LMhsdGN0ZxPQ3L2Z2fZiMeuD99BDD2/3oj9hR5SuDsDGjj8YS7qzo+cZXNcGhbQfm
v09h4uswHkVH4fvshmdnAOwmA0fEhu61DijcxRAY01w0mlAfqrHYPtzDbGwC01Ev3FtOGBd0uOmUIMcm
RlbbFZR75ChhC5FOUsdo7JR2SRUe3LBzJ7oiDKRs/l5+7zU3XXPSDYKYQH8uQMdkqicl++WTsqOiEenP
AmfuYZ5dzNDVibRavpWn5qXoFquIZq6MVE7JiWJMSmRsHuEpfDJS5C4gBU4JkdjE5GqbkBx33rJusNL8
CfWsklH6iw+5wxzXj/K6Rft0laz5oyFgWtHG6MhRPS5xK72Fe0ObzngrA2gLtcTvRxim61NNq2TMsWVF
z/p96JaqEP8KEX9lmF8YwG4wXKWDm73QjFfgclOGhcYSzO/0LibSgYUfM1ylgdh4UqW9651cpYZ5LTLN
F4ICvYBPown1oeq+B+9bEdj1c5X6vwxjZMcFdsuBntVONC4bUTlaikum9KCgLlVCY8k0swpPc7ABpkUC
GZuPG0w2sq0iiFozD4SNF8MZDectf5z8u+MfR+rITbrEMzmuUdKV1U7Hf+DxfgHgUTMrC91zfgAAAABJ
RU5ErkJggg==
</value>
</data>
<metadata name="TBDD_USER_GROUPSBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">