AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Zooflow: Add Active Directory User Import

Browse Source
This commit is contained in:
Jonathan Jenne
2022-03-07 15:51:27 +01:00
parent 4dec4be471
commit 6ffc699fb1
30 changed files with 1514 additions and 348 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb
View File

@@ -9,7 +9,7 @@ Public Class frmAdmin_Globix
Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Public Property GlobixHelper As ClassGIDatatables
Private Pages As ClassDetailPages
Private Pages As ClassDetailPageManager
Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -44,9 +44,9 @@ Public Class frmAdmin_Globix
' Add Focus Handler to all controls in all LayoutControls
Dim oLayoutControls = New List(Of LayoutControl) From {LayoutControlProfile, LayoutControlManIndexe, LayoutControlAutoIndexe, LayoutControlRework}
Pages = New ClassDetailPages(My.LogConfig, Me, oLayoutControls)
Pages = New ClassDetailPageManager(My.LogConfig, Me, oLayoutControls)
Pages.AddRange({
New ClassDetailPages.PrimaryPage(IsInsert) With {
New ClassDetailPageManager.PrimaryPage(IsInsert) With {
.Name = "Profile Globix",
.TabPage = XtraTabPageProfile,
.BindingSource = TBDD_DOKUMENTARTBindingSource,
@@ -54,7 +54,7 @@ Public Class frmAdmin_Globix
.AddedWhoEdit = TextEditErstelltWer,
.ChangedWhoEdit = TextEditGeandertWer
},
New ClassDetailPages.DetailPage With {
New ClassDetailPageManager.DetailPage With {
.Name = "Manual Attributes",
.TabPage = XtraTabPageManIndexe,
.BindingSource = TBDD_INDEX_MANBindingSource,
@@ -62,7 +62,7 @@ Public Class frmAdmin_Globix
.AddedWhoEdit = TextEditAddedWho_ManIndex,
.ChangedWhoEdit = TextEditChangedWho_ManIndex
},
New ClassDetailPages.DetailPage With {
New ClassDetailPageManager.DetailPage With {
.Name = "Auto Attributes",
.TabPage = XtraTabPageAutoIndexe,
.BindingSource = TBDD_INDEX_AUTOMBindingSource,
@@ -70,7 +70,7 @@ Public Class frmAdmin_Globix
.AddedWhoEdit = ADDED_WHOTextBoxAutoAttribut,
.ChangedWhoEdit = CHANGED_WHOTextEditAutoAttribut
},
New ClassDetailPages.DetailPage With {
New ClassDetailPageManager.DetailPage With {
.Name = "Auto Attributes",
.TabPage = XtraTabPageAutoSelect,
.BindingSource = TBGI_REGEX_DOCTYPEBindingSource,
@@ -78,7 +78,7 @@ Public Class frmAdmin_Globix
.AddedWhoEdit = AddedWhoAutoSelect,
.ChangedWhoEdit = ChangedWhoAutoSelect
},
New ClassDetailPages.DetailPage With {
New ClassDetailPageManager.DetailPage With {
.Name = "Dynamic Folder",
.TabPage = XtraTabPageDynamicFolder,
.BindingSource = TBDD_DOKUMENTARTBindingSource,
@@ -116,7 +116,7 @@ Public Class frmAdmin_Globix
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load IndexeManuell: ")
End Try
End Sub
Private Sub CurrentPage_Changed(sender As Object, e As ClassDetailPages.DetailPageEventArgs)
Private Sub CurrentPage_Changed(sender As Object, e As ClassDetailPageManager.DetailPageEventArgs)
If Not IsNothing(e.Page) Then
If e.Page.IsPrimary = True Then
BarButtonNew.Enabled = False
@@ -187,7 +187,7 @@ Public Class frmAdmin_Globix
' ShowStatus("Keine Änderungen!")
'End If
End Sub
Private Function Save_manIndexe(oPage As ClassDetailPages.DetailPage) As Boolean
Private Function Save_manIndexe(oPage As ClassDetailPageManager.DetailPage) As Boolean
Try
TBDD_INDEX_MANBindingSource.EndEdit()
If GlobixDataset.TBDD_INDEX_MAN.GetChanges() IsNot Nothing Then
@@ -204,7 +204,7 @@ Public Class frmAdmin_Globix
Return False
End Try
End Function
Private Function Save_AutoIndexe(oPage As ClassDetailPages.DetailPage) As Boolean
Private Function Save_AutoIndexe(oPage As ClassDetailPageManager.DetailPage) As Boolean
Try
TBDD_INDEX_AUTOMBindingSource.EndEdit()
If GlobixDataset.TBDD_INDEX_AUTOM.GetChanges() IsNot Nothing Then
@@ -221,7 +221,7 @@ Public Class frmAdmin_Globix
Return False
End Try
End Function
Private Function Save_AutoSelect(oPage As ClassDetailPages.DetailPage) As Boolean
Private Function Save_AutoSelect(oPage As ClassDetailPageManager.DetailPage) As Boolean
Try
TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
If GlobixDataset.TBGI_REGEX_DOCTYPE.GetChanges() IsNot Nothing Then