Zooflow: Finish user relations

This commit is contained in:
Jonathan Jenne
2022-03-10 15:15:11 +01:00
parent 8ace2fe11f
commit 721732c0af
13 changed files with 171 additions and 70 deletions

View File

@@ -457,11 +457,12 @@ Partial Class frmAdmin_User
Me.Controls.Add(Me.LayoutControl1)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_user
Me.KeyPreview = True
Me.Name = "frmAdmin_User"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "Benutzer bearbeiten"
Me.Text = "Benutzer bearbeiten - Zooflow"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DSDD_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()

View File

@@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_ImportUser
Partial Class frmAdmin_UserImport
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
@@ -247,7 +247,7 @@ Partial Class frmAdmin_ImportUser
'
Me.SplashScreenManager1.ClosingDelay = 500
'
'frmAdmin_ImportUser
'frmAdmin_UserImport
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -256,10 +256,10 @@ Partial Class frmAdmin_ImportUser
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.text
Me.Name = "frmAdmin_ImportUser"
Me.Name = "frmAdmin_UserImport"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "Active Directory Import"
Me.Text = "Active Directory Import - Zooflow"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.Panel1.ResumeLayout(False)

View File

@@ -4,7 +4,7 @@ Imports DigitalData.Modules.Logging
Imports DigitalData.GUIs.Common
Imports DevExpress.XtraGrid.Views.Grid
Public Class frmAdmin_ImportUser
Public Class frmAdmin_UserImport
Private ReadOnly Logger As Logger = My.LogConfig.GetLogger
Private ActiveDirectory As ActiveDirectoryInterface
@@ -56,7 +56,7 @@ Public Class frmAdmin_ImportUser
End Sub
Private Sub btnImportUsers_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnImportUsers.ItemClick
Dim oForm As New frmAdmin_ImportUser()
Dim oForm As New frmAdmin_UserImport()
oForm.ShowDialog()
End Sub