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

12
GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb
View File

@@ -32,7 +32,7 @@ Public Class frmAdmin_ClipboardWatcher
Private Const PROFILE_TYPE_DOCS_ONLY As Integer = 1
Private Const PROFILE_TYPE_DATA_ONLY As Integer = 2
Private Pages As ClassDetailPages
Private Pages As ClassDetailPageManager
Friend Class ProfileType
Public Property Id As Integer
@@ -97,9 +97,9 @@ Public Class frmAdmin_ClipboardWatcher
DBCW_Stammdaten.TBLOCAL_PROFILE_TYPE.Rows.Add(PROFILE_TYPE_DOCS_ONLY, "Nur Dokumente")
DBCW_Stammdaten.TBLOCAL_PROFILE_TYPE.Rows.Add(PROFILE_TYPE_DATA_ONLY, "Nur Daten")
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 = "Profil",
.TabPage = PageProfile,
.BindingSource = TBCW_PROFILESBindingSource,
@@ -107,7 +107,7 @@ Public Class frmAdmin_ClipboardWatcher
.AddedWhoEdit = txtAddedWho,
.ChangedWhoEdit = txtChangedWho
},
New ClassDetailPages.DetailPage With {
New ClassDetailPageManager.DetailPage With {
.Name = "Dokument-Suche",
.TabPage = PageDocumentSearch,
.BindingSource = TBCW_PROF_DOC_SEARCHBindingSource,
@@ -115,7 +115,7 @@ Public Class frmAdmin_ClipboardWatcher
.AddedWhoEdit = txtAddedWho1,
.ChangedWhoEdit = txtChangedWho1
},
New ClassDetailPages.DetailPage With {
New ClassDetailPageManager.DetailPage With {
.Name = "Daten-Suche",
.TabPage = PageDataSearch,
.BindingSource = TBCW_PROF_DATA_SEARCHBindingSource,
@@ -133,7 +133,7 @@ Public Class frmAdmin_ClipboardWatcher
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