Projektdateien hinzufügen.
This commit is contained in:
Jonathan Jenne
539
GUIs.ZooFlow/Administration/Users/frmAdmin_User.Designer.vb
generated
Normal file
539
GUIs.ZooFlow/Administration/Users/frmAdmin_User.Designer.vb
generated
Normal file
@@ -0,0 +1,539 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class frmAdmin_User
|
||||
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
|
||||
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.txtStatus = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
|
||||
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.DSDD_Stammdaten = New DigitalData.GUIs.ZooFlow.DSDD_Stammdaten()
|
||||
Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.TBDD_USERTableAdapter = New DigitalData.GUIs.ZooFlow.DSDD_StammdatenTableAdapters.TBDD_USERTableAdapter()
|
||||
Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSDD_StammdatenTableAdapters.TableAdapterManager()
|
||||
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
|
||||
Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.TextEdit6 = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.TextEdit7 = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.TextEdit8 = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.TextEdit61 = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.TextEdit81 = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
|
||||
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DSDD_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.LayoutControl1.SuspendLayout()
|
||||
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextEdit61.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextEdit81.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'RibbonControl1
|
||||
'
|
||||
Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
|
||||
Me.RibbonControl1.ExpandCollapseItem.Id = 0
|
||||
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem2, Me.BarButtonItem3, Me.txtStatus})
|
||||
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.RibbonControl1.MaxItemId = 5
|
||||
Me.RibbonControl1.Name = "RibbonControl1"
|
||||
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
|
||||
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
|
||||
Me.RibbonControl1.ShowToolbarCustomizeItem = False
|
||||
Me.RibbonControl1.Size = New System.Drawing.Size(639, 63)
|
||||
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
|
||||
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
|
||||
'
|
||||
'BarButtonItem2
|
||||
'
|
||||
Me.BarButtonItem2.Caption = "Speichern"
|
||||
Me.BarButtonItem2.Id = 2
|
||||
Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save9
|
||||
Me.BarButtonItem2.Name = "BarButtonItem2"
|
||||
'
|
||||
'BarButtonItem3
|
||||
'
|
||||
Me.BarButtonItem3.Caption = "Löschen"
|
||||
Me.BarButtonItem3.Id = 3
|
||||
Me.BarButtonItem3.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.delete1
|
||||
Me.BarButtonItem3.Name = "BarButtonItem3"
|
||||
'
|
||||
'txtStatus
|
||||
'
|
||||
Me.txtStatus.Caption = "Status"
|
||||
Me.txtStatus.Id = 4
|
||||
Me.txtStatus.Name = "txtStatus"
|
||||
'
|
||||
'RibbonPage1
|
||||
'
|
||||
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
|
||||
Me.RibbonPage1.Name = "RibbonPage1"
|
||||
Me.RibbonPage1.Text = "RibbonPage1"
|
||||
'
|
||||
'RibbonPageGroup1
|
||||
'
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
|
||||
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
|
||||
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
|
||||
'
|
||||
'RibbonStatusBar1
|
||||
'
|
||||
Me.RibbonStatusBar1.ItemLinks.Add(Me.txtStatus)
|
||||
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 406)
|
||||
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
|
||||
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
|
||||
Me.RibbonStatusBar1.Size = New System.Drawing.Size(639, 24)
|
||||
'
|
||||
'RibbonPage2
|
||||
'
|
||||
Me.RibbonPage2.Name = "RibbonPage2"
|
||||
Me.RibbonPage2.Text = "RibbonPage2"
|
||||
'
|
||||
'DSDD_Stammdaten
|
||||
'
|
||||
Me.DSDD_Stammdaten.DataSetName = "DSDD_Stammdaten"
|
||||
Me.DSDD_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
|
||||
'
|
||||
'TBDD_USERBindingSource
|
||||
'
|
||||
Me.TBDD_USERBindingSource.DataMember = "TBDD_USER"
|
||||
Me.TBDD_USERBindingSource.DataSource = Me.DSDD_Stammdaten
|
||||
'
|
||||
'TBDD_USERTableAdapter
|
||||
'
|
||||
Me.TBDD_USERTableAdapter.ClearBeforeFill = True
|
||||
'
|
||||
'TableAdapterManager
|
||||
'
|
||||
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
|
||||
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
|
||||
Me.TableAdapterManager.TBDD_USERTableAdapter = Me.TBDD_USERTableAdapter
|
||||
Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSDD_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
|
||||
'
|
||||
'LayoutControl1
|
||||
'
|
||||
Me.LayoutControl1.Controls.Add(Me.TextEdit1)
|
||||
Me.LayoutControl1.Controls.Add(Me.TextEdit2)
|
||||
Me.LayoutControl1.Controls.Add(Me.TextEdit3)
|
||||
Me.LayoutControl1.Controls.Add(Me.TextEdit4)
|
||||
Me.LayoutControl1.Controls.Add(Me.TextEdit5)
|
||||
Me.LayoutControl1.Controls.Add(Me.TextEdit6)
|
||||
Me.LayoutControl1.Controls.Add(Me.TextEdit7)
|
||||
Me.LayoutControl1.Controls.Add(Me.TextEdit8)
|
||||
Me.LayoutControl1.Controls.Add(Me.txtAddedWho)
|
||||
Me.LayoutControl1.Controls.Add(Me.txtChangedWho)
|
||||
Me.LayoutControl1.Controls.Add(Me.TextEdit61)
|
||||
Me.LayoutControl1.Controls.Add(Me.TextEdit81)
|
||||
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.LayoutControl1.Location = New System.Drawing.Point(0, 63)
|
||||
Me.LayoutControl1.Name = "LayoutControl1"
|
||||
Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(688, 133, 1038, 537)
|
||||
Me.LayoutControl1.Root = Me.Root
|
||||
Me.LayoutControl1.Size = New System.Drawing.Size(639, 343)
|
||||
Me.LayoutControl1.TabIndex = 2
|
||||
Me.LayoutControl1.Text = "LayoutControl1"
|
||||
'
|
||||
'TextEdit1
|
||||
'
|
||||
Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "GUID", True))
|
||||
Me.TextEdit1.Location = New System.Drawing.Point(114, 20)
|
||||
Me.TextEdit1.MenuManager = Me.RibbonControl1
|
||||
Me.TextEdit1.Name = "TextEdit1"
|
||||
Me.TextEdit1.Size = New System.Drawing.Size(505, 20)
|
||||
Me.TextEdit1.StyleController = Me.LayoutControl1
|
||||
Me.TextEdit1.TabIndex = 4
|
||||
'
|
||||
'TextEdit2
|
||||
'
|
||||
Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "USERNAME", True))
|
||||
Me.TextEdit2.Location = New System.Drawing.Point(114, 60)
|
||||
Me.TextEdit2.MenuManager = Me.RibbonControl1
|
||||
Me.TextEdit2.Name = "TextEdit2"
|
||||
Me.TextEdit2.Size = New System.Drawing.Size(195, 20)
|
||||
Me.TextEdit2.StyleController = Me.LayoutControl1
|
||||
Me.TextEdit2.TabIndex = 5
|
||||
'
|
||||
'TextEdit3
|
||||
'
|
||||
Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "PRENAME", True))
|
||||
Me.TextEdit3.Location = New System.Drawing.Point(114, 100)
|
||||
Me.TextEdit3.MenuManager = Me.RibbonControl1
|
||||
Me.TextEdit3.Name = "TextEdit3"
|
||||
Me.TextEdit3.Size = New System.Drawing.Size(195, 20)
|
||||
Me.TextEdit3.StyleController = Me.LayoutControl1
|
||||
Me.TextEdit3.TabIndex = 6
|
||||
'
|
||||
'TextEdit4
|
||||
'
|
||||
Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "NAME", True))
|
||||
Me.TextEdit4.Location = New System.Drawing.Point(423, 100)
|
||||
Me.TextEdit4.MenuManager = Me.RibbonControl1
|
||||
Me.TextEdit4.Name = "TextEdit4"
|
||||
Me.TextEdit4.Size = New System.Drawing.Size(196, 20)
|
||||
Me.TextEdit4.StyleController = Me.LayoutControl1
|
||||
Me.TextEdit4.TabIndex = 7
|
||||
'
|
||||
'TextEdit5
|
||||
'
|
||||
Me.TextEdit5.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "SHORTNAME", True))
|
||||
Me.TextEdit5.Location = New System.Drawing.Point(423, 60)
|
||||
Me.TextEdit5.MenuManager = Me.RibbonControl1
|
||||
Me.TextEdit5.Name = "TextEdit5"
|
||||
Me.TextEdit5.Size = New System.Drawing.Size(196, 20)
|
||||
Me.TextEdit5.StyleController = Me.LayoutControl1
|
||||
Me.TextEdit5.TabIndex = 8
|
||||
'
|
||||
'TextEdit6
|
||||
'
|
||||
Me.TextEdit6.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "EMAIL", True))
|
||||
Me.TextEdit6.Location = New System.Drawing.Point(114, 140)
|
||||
Me.TextEdit6.MenuManager = Me.RibbonControl1
|
||||
Me.TextEdit6.Name = "TextEdit6"
|
||||
Me.TextEdit6.Size = New System.Drawing.Size(505, 20)
|
||||
Me.TextEdit6.StyleController = Me.LayoutControl1
|
||||
Me.TextEdit6.TabIndex = 9
|
||||
'
|
||||
'TextEdit7
|
||||
'
|
||||
Me.TextEdit7.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "LANGUAGE", True))
|
||||
Me.TextEdit7.Location = New System.Drawing.Point(114, 180)
|
||||
Me.TextEdit7.MenuManager = Me.RibbonControl1
|
||||
Me.TextEdit7.Name = "TextEdit7"
|
||||
Me.TextEdit7.Size = New System.Drawing.Size(195, 20)
|
||||
Me.TextEdit7.StyleController = Me.LayoutControl1
|
||||
Me.TextEdit7.TabIndex = 10
|
||||
'
|
||||
'TextEdit8
|
||||
'
|
||||
Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "DATE_FORMAT", True))
|
||||
Me.TextEdit8.Location = New System.Drawing.Point(423, 180)
|
||||
Me.TextEdit8.MenuManager = Me.RibbonControl1
|
||||
Me.TextEdit8.Name = "TextEdit8"
|
||||
Me.TextEdit8.Size = New System.Drawing.Size(196, 20)
|
||||
Me.TextEdit8.StyleController = Me.LayoutControl1
|
||||
Me.TextEdit8.TabIndex = 11
|
||||
'
|
||||
'txtAddedWho
|
||||
'
|
||||
Me.txtAddedWho.Location = New System.Drawing.Point(114, 220)
|
||||
Me.txtAddedWho.Name = "txtAddedWho"
|
||||
Me.txtAddedWho.Size = New System.Drawing.Size(195, 20)
|
||||
Me.txtAddedWho.StyleController = Me.LayoutControl1
|
||||
Me.txtAddedWho.TabIndex = 9
|
||||
'
|
||||
'txtChangedWho
|
||||
'
|
||||
Me.txtChangedWho.Location = New System.Drawing.Point(114, 260)
|
||||
Me.txtChangedWho.Name = "txtChangedWho"
|
||||
Me.txtChangedWho.Size = New System.Drawing.Size(195, 20)
|
||||
Me.txtChangedWho.StyleController = Me.LayoutControl1
|
||||
Me.txtChangedWho.TabIndex = 11
|
||||
'
|
||||
'TextEdit61
|
||||
'
|
||||
Me.TextEdit61.Location = New System.Drawing.Point(423, 220)
|
||||
Me.TextEdit61.Name = "TextEdit61"
|
||||
Me.TextEdit61.Size = New System.Drawing.Size(196, 20)
|
||||
Me.TextEdit61.StyleController = Me.LayoutControl1
|
||||
Me.TextEdit61.TabIndex = 10
|
||||
'
|
||||
'TextEdit81
|
||||
'
|
||||
Me.TextEdit81.Location = New System.Drawing.Point(423, 260)
|
||||
Me.TextEdit81.Name = "TextEdit81"
|
||||
Me.TextEdit81.Size = New System.Drawing.Size(196, 20)
|
||||
Me.TextEdit81.StyleController = Me.LayoutControl1
|
||||
Me.TextEdit81.TabIndex = 12
|
||||
'
|
||||
'Root
|
||||
'
|
||||
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.Root.GroupBordersVisible = False
|
||||
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem9, Me.LayoutControlItem10, Me.LayoutControlItem11, Me.LayoutControlItem12, Me.LayoutControlItem5, Me.LayoutControlItem4, Me.LayoutControlItem8})
|
||||
Me.Root.Name = "Root"
|
||||
Me.Root.Size = New System.Drawing.Size(639, 343)
|
||||
Me.Root.TextVisible = False
|
||||
'
|
||||
'LayoutControlItem1
|
||||
'
|
||||
Me.LayoutControlItem1.Control = Me.TextEdit1
|
||||
Me.LayoutControlItem1.Enabled = False
|
||||
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.LayoutControlItem1.Name = "LayoutControlItem1"
|
||||
Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
|
||||
Me.LayoutControlItem1.Size = New System.Drawing.Size(619, 40)
|
||||
Me.LayoutControlItem1.Text = "ID"
|
||||
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(82, 13)
|
||||
'
|
||||
'LayoutControlItem2
|
||||
'
|
||||
Me.LayoutControlItem2.Control = Me.TextEdit2
|
||||
Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 40)
|
||||
Me.LayoutControlItem2.Name = "LayoutControlItem2"
|
||||
Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
|
||||
Me.LayoutControlItem2.Size = New System.Drawing.Size(309, 40)
|
||||
Me.LayoutControlItem2.Text = "Benutzername"
|
||||
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(82, 13)
|
||||
'
|
||||
'LayoutControlItem3
|
||||
'
|
||||
Me.LayoutControlItem3.Control = Me.TextEdit3
|
||||
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 80)
|
||||
Me.LayoutControlItem3.Name = "LayoutControlItem3"
|
||||
Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
|
||||
Me.LayoutControlItem3.Size = New System.Drawing.Size(309, 40)
|
||||
Me.LayoutControlItem3.Text = "Vorname"
|
||||
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(82, 13)
|
||||
'
|
||||
'LayoutControlItem6
|
||||
'
|
||||
Me.LayoutControlItem6.Control = Me.TextEdit6
|
||||
Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 120)
|
||||
Me.LayoutControlItem6.Name = "LayoutControlItem6"
|
||||
Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
|
||||
Me.LayoutControlItem6.Size = New System.Drawing.Size(619, 40)
|
||||
Me.LayoutControlItem6.Text = "Email Adresse"
|
||||
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(82, 13)
|
||||
'
|
||||
'LayoutControlItem7
|
||||
'
|
||||
Me.LayoutControlItem7.Control = Me.TextEdit7
|
||||
Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 160)
|
||||
Me.LayoutControlItem7.Name = "LayoutControlItem7"
|
||||
Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
|
||||
Me.LayoutControlItem7.Size = New System.Drawing.Size(309, 40)
|
||||
Me.LayoutControlItem7.Text = "Sprache"
|
||||
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(82, 13)
|
||||
'
|
||||
'LayoutControlItem9
|
||||
'
|
||||
Me.LayoutControlItem9.Control = Me.txtAddedWho
|
||||
Me.LayoutControlItem9.ControlAlignment = System.Drawing.ContentAlignment.TopLeft
|
||||
Me.LayoutControlItem9.CustomizationFormText = "Erstellt Wer"
|
||||
Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 200)
|
||||
Me.LayoutControlItem9.Name = "LayoutControlItem9"
|
||||
Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
|
||||
Me.LayoutControlItem9.Size = New System.Drawing.Size(309, 40)
|
||||
Me.LayoutControlItem9.Text = "Erstellt Wer"
|
||||
Me.LayoutControlItem9.TextSize = New System.Drawing.Size(82, 13)
|
||||
'
|
||||
'LayoutControlItem10
|
||||
'
|
||||
Me.LayoutControlItem10.Control = Me.txtChangedWho
|
||||
Me.LayoutControlItem10.ControlAlignment = System.Drawing.ContentAlignment.TopLeft
|
||||
Me.LayoutControlItem10.CustomizationFormText = "Geändert Wer"
|
||||
Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 240)
|
||||
Me.LayoutControlItem10.Name = "LayoutControlItem10"
|
||||
Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
|
||||
Me.LayoutControlItem10.Size = New System.Drawing.Size(309, 83)
|
||||
Me.LayoutControlItem10.Text = "Geändert Wer"
|
||||
Me.LayoutControlItem10.TextSize = New System.Drawing.Size(82, 13)
|
||||
'
|
||||
'LayoutControlItem11
|
||||
'
|
||||
Me.LayoutControlItem11.Control = Me.TextEdit61
|
||||
Me.LayoutControlItem11.ControlAlignment = System.Drawing.ContentAlignment.TopLeft
|
||||
Me.LayoutControlItem11.CustomizationFormText = "Erstellt Wann"
|
||||
Me.LayoutControlItem11.Location = New System.Drawing.Point(309, 200)
|
||||
Me.LayoutControlItem11.Name = "LayoutControlItem11"
|
||||
Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
|
||||
Me.LayoutControlItem11.Size = New System.Drawing.Size(310, 40)
|
||||
Me.LayoutControlItem11.Text = "Erstellt Wann"
|
||||
Me.LayoutControlItem11.TextSize = New System.Drawing.Size(82, 13)
|
||||
'
|
||||
'LayoutControlItem12
|
||||
'
|
||||
Me.LayoutControlItem12.Control = Me.TextEdit81
|
||||
Me.LayoutControlItem12.ControlAlignment = System.Drawing.ContentAlignment.TopLeft
|
||||
Me.LayoutControlItem12.CustomizationFormText = "Geändert Wann"
|
||||
Me.LayoutControlItem12.Location = New System.Drawing.Point(309, 240)
|
||||
Me.LayoutControlItem12.Name = "LayoutControlItem12"
|
||||
Me.LayoutControlItem12.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
|
||||
Me.LayoutControlItem12.Size = New System.Drawing.Size(310, 83)
|
||||
Me.LayoutControlItem12.Text = "Geändert Wann"
|
||||
Me.LayoutControlItem12.TextSize = New System.Drawing.Size(82, 13)
|
||||
'
|
||||
'LayoutControlItem5
|
||||
'
|
||||
Me.LayoutControlItem5.Control = Me.TextEdit5
|
||||
Me.LayoutControlItem5.Location = New System.Drawing.Point(309, 40)
|
||||
Me.LayoutControlItem5.Name = "LayoutControlItem5"
|
||||
Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
|
||||
Me.LayoutControlItem5.Size = New System.Drawing.Size(310, 40)
|
||||
Me.LayoutControlItem5.Text = "Kurzname"
|
||||
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(82, 13)
|
||||
'
|
||||
'LayoutControlItem4
|
||||
'
|
||||
Me.LayoutControlItem4.Control = Me.TextEdit4
|
||||
Me.LayoutControlItem4.Location = New System.Drawing.Point(309, 80)
|
||||
Me.LayoutControlItem4.Name = "LayoutControlItem4"
|
||||
Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
|
||||
Me.LayoutControlItem4.Size = New System.Drawing.Size(310, 40)
|
||||
Me.LayoutControlItem4.Text = "Nachname"
|
||||
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(82, 13)
|
||||
'
|
||||
'LayoutControlItem8
|
||||
'
|
||||
Me.LayoutControlItem8.Control = Me.TextEdit8
|
||||
Me.LayoutControlItem8.Location = New System.Drawing.Point(309, 160)
|
||||
Me.LayoutControlItem8.Name = "LayoutControlItem8"
|
||||
Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
|
||||
Me.LayoutControlItem8.Size = New System.Drawing.Size(310, 40)
|
||||
Me.LayoutControlItem8.Text = "Datumsformat"
|
||||
Me.LayoutControlItem8.TextSize = New System.Drawing.Size(82, 13)
|
||||
'
|
||||
'frmAdmin_User
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(639, 430)
|
||||
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 - Zooflow"
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DSDD_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.LayoutControl1.ResumeLayout(False)
|
||||
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextEdit61.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextEdit81.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
|
||||
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
|
||||
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents DSDD_Stammdaten As DSDD_Stammdaten
|
||||
Friend WithEvents TBDD_USERBindingSource As BindingSource
|
||||
Friend WithEvents TBDD_USERTableAdapter As DSDD_StammdatenTableAdapters.TBDD_USERTableAdapter
|
||||
Friend WithEvents TableAdapterManager As DSDD_StammdatenTableAdapters.TableAdapterManager
|
||||
Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
|
||||
Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents TextEdit4 As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
|
||||
Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents TextEdit5 As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents TextEdit6 As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents TextEdit7 As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents TextEdit8 As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents txtAddedWho As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents TextEdit61 As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents TextEdit81 As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents txtStatus As DevExpress.XtraBars.BarButtonItem
|
||||
End Class
|
||||
132
GUIs.ZooFlow/Administration/Users/frmAdmin_User.resx
Normal file
132
GUIs.ZooFlow/Administration/Users/frmAdmin_User.resx
Normal file
@@ -0,0 +1,132 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="DSDD_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="TBDD_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>176, 17</value>
|
||||
</metadata>
|
||||
<metadata name="TBDD_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>371, 17</value>
|
||||
</metadata>
|
||||
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>560, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
105
GUIs.ZooFlow/Administration/Users/frmAdmin_User.vb
Normal file
105
GUIs.ZooFlow/Administration/Users/frmAdmin_User.vb
Normal file
@@ -0,0 +1,105 @@
|
||||
Imports DevExpress.XtraLayout
|
||||
Imports DigitalData.GUIs.Common
|
||||
Imports DigitalData.GUIs.Common.Base
|
||||
Imports DigitalData.Modules.Logging
|
||||
|
||||
Public Class frmAdmin_User
|
||||
Implements IAdminForm
|
||||
|
||||
Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
|
||||
|
||||
Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
|
||||
|
||||
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
|
||||
|
||||
|
||||
|
||||
Private Property Pages As ClassDetailPageManager
|
||||
Private Property Logger As Logger
|
||||
Private Property FormHelper As FormHelper
|
||||
|
||||
Public Sub New(pPrimaryKey As Integer, Optional pIsInsert As Boolean = False)
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
PrimaryKey = pPrimaryKey
|
||||
IsInsert = pIsInsert
|
||||
Logger = My.LogConfig.GetLogger()
|
||||
End Sub
|
||||
|
||||
Private Sub frmAdmin_User_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Try
|
||||
TBDD_USERTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
|
||||
|
||||
If IsInsert Then
|
||||
DSDD_Stammdaten.TBDD_USER.ADDED_WHOColumn.DefaultValue = My.Application.User.UserName
|
||||
TBDD_USERBindingSource.AddNew()
|
||||
Else
|
||||
TBDD_USERTableAdapter.Fill(DSDD_Stammdaten.TBDD_USER, PrimaryKey)
|
||||
End If
|
||||
|
||||
' Add Focus Handler to all controls in all LayoutControls
|
||||
Pages = New ClassDetailPageManager(My.LogConfig, Me, New List(Of LayoutControl) From {LayoutControl1})
|
||||
Pages.Add(New ClassDetailPageManager.PrimaryPage(IsInsert) With {
|
||||
.Name = "Benutzer",
|
||||
.BindingSource = TBDD_USERBindingSource,
|
||||
.DataTable = DSDD_Stammdaten.TBDD_USER,
|
||||
.AddedWhoEdit = txtAddedWho,
|
||||
.ChangedWhoEdit = txtChangedWho
|
||||
})
|
||||
|
||||
Pages.PrepareLoad()
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#Region "DELETE ----------------------------------------------"
|
||||
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
|
||||
If DeleteData() Then
|
||||
Close()
|
||||
Else
|
||||
txtStatus.Caption = $"Error while deleting!"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Function DeleteData() As Boolean Implements IAdminForm.DeleteData
|
||||
Try
|
||||
TBDD_USERTableAdapter.Delete(PrimaryKey)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
FormHelper.ShowErrorMessage(ex, "DeleteData")
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "SAVE ----------------------------------------------"
|
||||
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
|
||||
SaveData()
|
||||
End Sub
|
||||
|
||||
Private Sub frmAdmin_User_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
|
||||
If e.KeyCode = Keys.F5 Then
|
||||
SaveData()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub SaveData()
|
||||
If Pages.PrepareSave() = True Then
|
||||
Try
|
||||
Dim oPage = Pages.Current
|
||||
TBDD_USERTableAdapter.Update(oPage.DataTable)
|
||||
oPage.IsInsert = False
|
||||
txtStatus.Caption = $"{oPage.Name} gespeichert!"
|
||||
Catch ex As Exception
|
||||
FormHelper.ShowErrorMessage(ex, "ItemClick")
|
||||
End Try
|
||||
Else
|
||||
txtStatus.Caption = $"Keine Änderungen"
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
End Class
|
||||
408
GUIs.ZooFlow/Administration/Users/frmAdmin_UserGroupRelations.Designer.vb
generated
Normal file
408
GUIs.ZooFlow/Administration/Users/frmAdmin_UserGroupRelations.Designer.vb
generated
Normal file
@@ -0,0 +1,408 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmAdmin_UserGroupRelations
|
||||
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
|
||||
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
|
||||
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
|
||||
Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton()
|
||||
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
|
||||
Me.GridControl3 = New DevExpress.XtraGrid.GridControl()
|
||||
Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView()
|
||||
Me.colUsername2 = New DevExpress.XtraGrid.Columns.GridColumn()
|
||||
Me.colSurname2 = New DevExpress.XtraGrid.Columns.GridColumn()
|
||||
Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
|
||||
Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
|
||||
Me.colName = New DevExpress.XtraGrid.Columns.GridColumn()
|
||||
Me.colInternal = New DevExpress.XtraGrid.Columns.GridColumn()
|
||||
Me.colActive = New DevExpress.XtraGrid.Columns.GridColumn()
|
||||
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
|
||||
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
|
||||
Me.colSurname = New DevExpress.XtraGrid.Columns.GridColumn()
|
||||
Me.colUsername = New DevExpress.XtraGrid.Columns.GridColumn()
|
||||
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
|
||||
Me.SimpleLabelItem1 = New DevExpress.XtraLayout.SimpleLabelItem()
|
||||
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.SimpleLabelItem2 = New DevExpress.XtraLayout.SimpleLabelItem()
|
||||
Me.SimpleLabelItem3 = New DevExpress.XtraLayout.SimpleLabelItem()
|
||||
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.LayoutControl1.SuspendLayout()
|
||||
CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.SimpleLabelItem1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.SimpleLabelItem2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.SimpleLabelItem3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'RibbonControl1
|
||||
'
|
||||
Me.RibbonControl1.ExpandCollapseItem.Id = 0
|
||||
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem})
|
||||
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.RibbonControl1.MaxItemId = 1
|
||||
Me.RibbonControl1.Name = "RibbonControl1"
|
||||
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
|
||||
Me.RibbonControl1.Size = New System.Drawing.Size(1221, 158)
|
||||
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
|
||||
'
|
||||
'RibbonPage1
|
||||
'
|
||||
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
|
||||
Me.RibbonPage1.Name = "RibbonPage1"
|
||||
Me.RibbonPage1.Text = "RibbonPage1"
|
||||
'
|
||||
'RibbonPageGroup1
|
||||
'
|
||||
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
|
||||
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
|
||||
'
|
||||
'RibbonPageGroup2
|
||||
'
|
||||
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
|
||||
Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
|
||||
'
|
||||
'RibbonStatusBar1
|
||||
'
|
||||
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 651)
|
||||
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
|
||||
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
|
||||
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1221, 24)
|
||||
'
|
||||
'RibbonPage2
|
||||
'
|
||||
Me.RibbonPage2.Name = "RibbonPage2"
|
||||
Me.RibbonPage2.Text = "RibbonPage2"
|
||||
'
|
||||
'LayoutControl1
|
||||
'
|
||||
Me.LayoutControl1.Controls.Add(Me.SimpleButton2)
|
||||
Me.LayoutControl1.Controls.Add(Me.SimpleButton1)
|
||||
Me.LayoutControl1.Controls.Add(Me.GridControl3)
|
||||
Me.LayoutControl1.Controls.Add(Me.GridControl2)
|
||||
Me.LayoutControl1.Controls.Add(Me.GridControl1)
|
||||
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.LayoutControl1.Location = New System.Drawing.Point(0, 158)
|
||||
Me.LayoutControl1.Name = "LayoutControl1"
|
||||
Me.LayoutControl1.Root = Me.Root
|
||||
Me.LayoutControl1.Size = New System.Drawing.Size(1221, 493)
|
||||
Me.LayoutControl1.TabIndex = 2
|
||||
Me.LayoutControl1.Text = "LayoutControl1"
|
||||
'
|
||||
'SimpleButton2
|
||||
'
|
||||
Me.SimpleButton2.ImageOptions.ImageToTextAlignment = DevExpress.XtraEditors.ImageAlignToText.RightCenter
|
||||
Me.SimpleButton2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.nextview
|
||||
Me.SimpleButton2.Location = New System.Drawing.Point(414, 405)
|
||||
Me.SimpleButton2.Name = "SimpleButton2"
|
||||
Me.SimpleButton2.Size = New System.Drawing.Size(398, 36)
|
||||
Me.SimpleButton2.StyleController = Me.LayoutControl1
|
||||
Me.SimpleButton2.TabIndex = 8
|
||||
Me.SimpleButton2.Text = "Benutzer zuordnen"
|
||||
'
|
||||
'SimpleButton1
|
||||
'
|
||||
Me.SimpleButton1.ImageOptions.ImageToTextAlignment = DevExpress.XtraEditors.ImageAlignToText.LeftCenter
|
||||
Me.SimpleButton1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.previousview
|
||||
Me.SimpleButton1.Location = New System.Drawing.Point(414, 445)
|
||||
Me.SimpleButton1.Name = "SimpleButton1"
|
||||
Me.SimpleButton1.Size = New System.Drawing.Size(398, 36)
|
||||
Me.SimpleButton1.StyleController = Me.LayoutControl1
|
||||
Me.SimpleButton1.TabIndex = 7
|
||||
Me.SimpleButton1.Text = "Benutzer entfernen"
|
||||
'
|
||||
'GridControl3
|
||||
'
|
||||
Me.GridControl3.AllowDrop = True
|
||||
Me.GridControl3.Location = New System.Drawing.Point(816, 45)
|
||||
Me.GridControl3.MainView = Me.GridView3
|
||||
Me.GridControl3.MenuManager = Me.RibbonControl1
|
||||
Me.GridControl3.Name = "GridControl3"
|
||||
Me.GridControl3.Size = New System.Drawing.Size(393, 436)
|
||||
Me.GridControl3.TabIndex = 6
|
||||
Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3})
|
||||
'
|
||||
'GridView3
|
||||
'
|
||||
Me.GridView3.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colUsername2, Me.colSurname2})
|
||||
Me.GridView3.GridControl = Me.GridControl3
|
||||
Me.GridView3.Name = "GridView3"
|
||||
'
|
||||
'colUsername2
|
||||
'
|
||||
Me.colUsername2.Caption = "Benutzername"
|
||||
Me.colUsername2.FieldName = "USERNAME"
|
||||
Me.colUsername2.Name = "colUsername2"
|
||||
Me.colUsername2.Visible = True
|
||||
Me.colUsername2.VisibleIndex = 0
|
||||
'
|
||||
'colSurname2
|
||||
'
|
||||
Me.colSurname2.Caption = "Name"
|
||||
Me.colSurname2.FieldName = "NAME"
|
||||
Me.colSurname2.Name = "colSurname2"
|
||||
Me.colSurname2.Visible = True
|
||||
Me.colSurname2.VisibleIndex = 1
|
||||
'
|
||||
'GridControl2
|
||||
'
|
||||
Me.GridControl2.Location = New System.Drawing.Point(414, 45)
|
||||
Me.GridControl2.MainView = Me.GridView2
|
||||
Me.GridControl2.MenuManager = Me.RibbonControl1
|
||||
Me.GridControl2.Name = "GridControl2"
|
||||
Me.GridControl2.Size = New System.Drawing.Size(398, 356)
|
||||
Me.GridControl2.TabIndex = 5
|
||||
Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
|
||||
'
|
||||
'GridView2
|
||||
'
|
||||
Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName, Me.colInternal, Me.colActive})
|
||||
Me.GridView2.GridControl = Me.GridControl2
|
||||
Me.GridView2.Name = "GridView2"
|
||||
'
|
||||
'colName
|
||||
'
|
||||
Me.colName.Caption = "Name"
|
||||
Me.colName.FieldName = "NAME"
|
||||
Me.colName.Name = "colName"
|
||||
Me.colName.Visible = True
|
||||
Me.colName.VisibleIndex = 0
|
||||
'
|
||||
'colInternal
|
||||
'
|
||||
Me.colInternal.Caption = "Systemgruppe"
|
||||
Me.colInternal.FieldName = "INTERNAL"
|
||||
Me.colInternal.Name = "colInternal"
|
||||
Me.colInternal.Visible = True
|
||||
Me.colInternal.VisibleIndex = 1
|
||||
'
|
||||
'colActive
|
||||
'
|
||||
Me.colActive.Caption = "Aktiv"
|
||||
Me.colActive.FieldName = "ACTIVE"
|
||||
Me.colActive.Name = "colActive"
|
||||
Me.colActive.Visible = True
|
||||
Me.colActive.VisibleIndex = 2
|
||||
'
|
||||
'GridControl1
|
||||
'
|
||||
Me.GridControl1.AllowDrop = True
|
||||
Me.GridControl1.Location = New System.Drawing.Point(12, 45)
|
||||
Me.GridControl1.MainView = Me.GridView1
|
||||
Me.GridControl1.MenuManager = Me.RibbonControl1
|
||||
Me.GridControl1.Name = "GridControl1"
|
||||
Me.GridControl1.Size = New System.Drawing.Size(398, 436)
|
||||
Me.GridControl1.TabIndex = 4
|
||||
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
|
||||
'
|
||||
'GridView1
|
||||
'
|
||||
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSurname, Me.colUsername})
|
||||
Me.GridView1.GridControl = Me.GridControl1
|
||||
Me.GridView1.Name = "GridView1"
|
||||
'
|
||||
'colSurname
|
||||
'
|
||||
Me.colSurname.Caption = "Name"
|
||||
Me.colSurname.FieldName = "NAME"
|
||||
Me.colSurname.Name = "colSurname"
|
||||
Me.colSurname.Visible = True
|
||||
Me.colSurname.VisibleIndex = 0
|
||||
'
|
||||
'colUsername
|
||||
'
|
||||
Me.colUsername.Caption = "Benutzername"
|
||||
Me.colUsername.FieldName = "USERNAME"
|
||||
Me.colUsername.Name = "colUsername"
|
||||
Me.colUsername.Visible = True
|
||||
Me.colUsername.VisibleIndex = 1
|
||||
'
|
||||
'Root
|
||||
'
|
||||
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.Root.GroupBordersVisible = False
|
||||
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.SimpleLabelItem1, Me.LayoutControlItem1, Me.SimpleLabelItem2, Me.SimpleLabelItem3, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5})
|
||||
Me.Root.Name = "Root"
|
||||
Me.Root.Size = New System.Drawing.Size(1221, 493)
|
||||
Me.Root.TextVisible = False
|
||||
'
|
||||
'SimpleLabelItem1
|
||||
'
|
||||
Me.SimpleLabelItem1.AllowHotTrack = False
|
||||
Me.SimpleLabelItem1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SimpleLabelItem1.Name = "SimpleLabelItem1"
|
||||
Me.SimpleLabelItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
|
||||
Me.SimpleLabelItem1.Size = New System.Drawing.Size(402, 33)
|
||||
Me.SimpleLabelItem1.Text = "Nicht zugeordnete Benutzer"
|
||||
Me.SimpleLabelItem1.TextSize = New System.Drawing.Size(144, 13)
|
||||
'
|
||||
'LayoutControlItem1
|
||||
'
|
||||
Me.LayoutControlItem1.Control = Me.GridControl1
|
||||
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 33)
|
||||
Me.LayoutControlItem1.Name = "LayoutControlItem1"
|
||||
Me.LayoutControlItem1.Size = New System.Drawing.Size(402, 440)
|
||||
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0)
|
||||
Me.LayoutControlItem1.TextVisible = False
|
||||
'
|
||||
'SimpleLabelItem2
|
||||
'
|
||||
Me.SimpleLabelItem2.AllowHotTrack = False
|
||||
Me.SimpleLabelItem2.Location = New System.Drawing.Point(402, 0)
|
||||
Me.SimpleLabelItem2.Name = "SimpleLabelItem2"
|
||||
Me.SimpleLabelItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
|
||||
Me.SimpleLabelItem2.Size = New System.Drawing.Size(402, 33)
|
||||
Me.SimpleLabelItem2.Text = "Gruppen"
|
||||
Me.SimpleLabelItem2.TextSize = New System.Drawing.Size(144, 13)
|
||||
'
|
||||
'SimpleLabelItem3
|
||||
'
|
||||
Me.SimpleLabelItem3.AllowHotTrack = False
|
||||
Me.SimpleLabelItem3.Location = New System.Drawing.Point(804, 0)
|
||||
Me.SimpleLabelItem3.Name = "SimpleLabelItem3"
|
||||
Me.SimpleLabelItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
|
||||
Me.SimpleLabelItem3.Size = New System.Drawing.Size(397, 33)
|
||||
Me.SimpleLabelItem3.Text = "Zugeordnete Benutzer"
|
||||
Me.SimpleLabelItem3.TextSize = New System.Drawing.Size(144, 13)
|
||||
'
|
||||
'LayoutControlItem2
|
||||
'
|
||||
Me.LayoutControlItem2.Control = Me.GridControl2
|
||||
Me.LayoutControlItem2.Location = New System.Drawing.Point(402, 33)
|
||||
Me.LayoutControlItem2.Name = "LayoutControlItem2"
|
||||
Me.LayoutControlItem2.Size = New System.Drawing.Size(402, 360)
|
||||
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0)
|
||||
Me.LayoutControlItem2.TextVisible = False
|
||||
'
|
||||
'LayoutControlItem3
|
||||
'
|
||||
Me.LayoutControlItem3.Control = Me.GridControl3
|
||||
Me.LayoutControlItem3.Location = New System.Drawing.Point(804, 33)
|
||||
Me.LayoutControlItem3.Name = "LayoutControlItem3"
|
||||
Me.LayoutControlItem3.Size = New System.Drawing.Size(397, 440)
|
||||
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(0, 0)
|
||||
Me.LayoutControlItem3.TextVisible = False
|
||||
'
|
||||
'LayoutControlItem4
|
||||
'
|
||||
Me.LayoutControlItem4.Control = Me.SimpleButton1
|
||||
Me.LayoutControlItem4.Location = New System.Drawing.Point(402, 433)
|
||||
Me.LayoutControlItem4.Name = "LayoutControlItem4"
|
||||
Me.LayoutControlItem4.Size = New System.Drawing.Size(402, 40)
|
||||
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0)
|
||||
Me.LayoutControlItem4.TextVisible = False
|
||||
'
|
||||
'LayoutControlItem5
|
||||
'
|
||||
Me.LayoutControlItem5.Control = Me.SimpleButton2
|
||||
Me.LayoutControlItem5.Location = New System.Drawing.Point(402, 393)
|
||||
Me.LayoutControlItem5.Name = "LayoutControlItem5"
|
||||
Me.LayoutControlItem5.Size = New System.Drawing.Size(402, 40)
|
||||
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0)
|
||||
Me.LayoutControlItem5.TextVisible = False
|
||||
'
|
||||
'frmAdmin_UserGroupRelations
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1221, 675)
|
||||
Me.Controls.Add(Me.LayoutControl1)
|
||||
Me.Controls.Add(Me.RibbonStatusBar1)
|
||||
Me.Controls.Add(Me.RibbonControl1)
|
||||
Me.Name = "frmAdmin_UserGroupRelations"
|
||||
Me.Ribbon = Me.RibbonControl1
|
||||
Me.StatusBar = Me.RibbonStatusBar1
|
||||
Me.Text = "frmAdmin_UserGroupRelations"
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.LayoutControl1.ResumeLayout(False)
|
||||
CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.SimpleLabelItem1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.SimpleLabelItem2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.SimpleLabelItem3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
|
||||
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
|
||||
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
|
||||
Friend WithEvents GridControl3 As DevExpress.XtraGrid.GridControl
|
||||
Friend WithEvents GridView3 As DevExpress.XtraGrid.Views.Grid.GridView
|
||||
Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl
|
||||
Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView
|
||||
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
|
||||
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
|
||||
Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
|
||||
Friend WithEvents SimpleLabelItem1 As DevExpress.XtraLayout.SimpleLabelItem
|
||||
Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents SimpleLabelItem2 As DevExpress.XtraLayout.SimpleLabelItem
|
||||
Friend WithEvents SimpleLabelItem3 As DevExpress.XtraLayout.SimpleLabelItem
|
||||
Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn
|
||||
Friend WithEvents colInternal As DevExpress.XtraGrid.Columns.GridColumn
|
||||
Friend WithEvents colActive As DevExpress.XtraGrid.Columns.GridColumn
|
||||
Friend WithEvents colUsername2 As DevExpress.XtraGrid.Columns.GridColumn
|
||||
Friend WithEvents colUsername As DevExpress.XtraGrid.Columns.GridColumn
|
||||
Friend WithEvents colSurname2 As DevExpress.XtraGrid.Columns.GridColumn
|
||||
Friend WithEvents colSurname As DevExpress.XtraGrid.Columns.GridColumn
|
||||
Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton
|
||||
Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
|
||||
Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
|
||||
End Class
|
||||
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
189
GUIs.ZooFlow/Administration/Users/frmAdmin_UserGroupRelations.vb
Normal file
189
GUIs.ZooFlow/Administration/Users/frmAdmin_UserGroupRelations.vb
Normal file
@@ -0,0 +1,189 @@
|
||||
Imports DigitalData.GUIs.Common
|
||||
Imports DigitalData.GUIs.Common.Base
|
||||
|
||||
Public Class frmAdmin_UserGroupRelations
|
||||
Implements IBaseForm, IAdminForm
|
||||
|
||||
Public ReadOnly Property LogConfig As Modules.Logging.LogConfig Implements IBaseForm.LogConfig
|
||||
Public ReadOnly Property Logger As Modules.Logging.Logger Implements IBaseForm.Logger
|
||||
|
||||
|
||||
Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
|
||||
Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
|
||||
Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
|
||||
|
||||
Private Property SelectedGroupId As Integer = Nothing
|
||||
Private Property SelectedAvailableUser As Integer = Nothing
|
||||
Private Property SelectedRelatedUser As Integer = Nothing
|
||||
Private FormHelper As FormHelper = Nothing
|
||||
|
||||
Public Sub New(pPrimaryKey As Integer)
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
LogConfig = My.LogConfig
|
||||
FormHelper = New FormHelper(LogConfig, Me)
|
||||
End Sub
|
||||
|
||||
Private Async Sub frmAdmin_UserGroupRelations_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Try
|
||||
Dim DragDropManager = New ClassDragDrop(LogConfig)
|
||||
DragDropManager.AddGridView(GridView1)
|
||||
DragDropManager.AddGridView(GridView3)
|
||||
|
||||
Dim GridBuilder = New GridBuilder(GridView1, GridView2, GridView3)
|
||||
GridBuilder.
|
||||
WithDefaults().
|
||||
WithReadOnlyOptions()
|
||||
|
||||
Dim oSQL = "SELECT * FROM TBDD_GROUPS"
|
||||
Dim oTable As DataTable = Await My.DatabaseECM.GetDatatableAsync(oSQL)
|
||||
GridControl2.DataSource = oTable
|
||||
Catch ex As Exception
|
||||
FormHelper.ShowErrorMessage(ex, "Fehler beim Laden des Formulars")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Async Function GetAvailableUsersByGroupId(pGroupId As Integer) As Threading.Tasks.Task(Of DataTable)
|
||||
Try
|
||||
Dim oSql As String = $"
|
||||
SELECT GUID, PRENAME, NAME, USERNAME, SHORTNAME, EMAIL, LANGUAGE, COMMENT, DATE_FORMAT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
|
||||
FROM TBDD_USER
|
||||
WHERE (GUID NOT IN
|
||||
(SELECT DISTINCT T.GUID
|
||||
FROM TBDD_USER AS T INNER JOIN TBDD_GROUPS_USER AS T1 ON T.GUID = T1.USER_ID
|
||||
WHERE (T1.GROUP_ID = {pGroupId})))
|
||||
"
|
||||
Dim oTable = Await My.DatabaseECM.GetDatatableAsync(oSql)
|
||||
Return oTable
|
||||
Catch ex As Exception
|
||||
FormHelper.ShowErrorMessage(ex, "GetAvailableUsersByGroupId")
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Async Function GetRelatedUsersByGroupId(pGroupId As Integer) As Threading.Tasks.Task(Of DataTable)
|
||||
Try
|
||||
Dim oSql As String = $"
|
||||
SELECT T1.GUID, T1.PRENAME, T1.NAME, T1.USERNAME, T1.SHORTNAME, T1.EMAIL, T1.LANGUAGE, T1.COMMENT, T1.DATE_FORMAT, T1.ADDED_WHO, T1.ADDED_WHEN, T1.CHANGED_WHO, T1.CHANGED_WHEN
|
||||
FROM TBDD_USER AS T1 INNER JOIN
|
||||
TBDD_GROUPS_USER AS T2 ON T1.GUID = T2.USER_ID
|
||||
WHERE (T2.GROUP_ID = {pGroupId})
|
||||
"
|
||||
Dim oTable = Await My.DatabaseECM.GetDatatableAsync(oSql)
|
||||
Return oTable
|
||||
Catch ex As Exception
|
||||
FormHelper.ShowErrorMessage(ex, "GetRelatedUsersByGroupId")
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
Private Async Sub GridView2_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView2.FocusedRowChanged
|
||||
Dim oRowView As DataRowView = GridView2.GetRow(GridView2.FocusedRowHandle)
|
||||
Dim oRow As DataRow = oRowView.Row
|
||||
|
||||
If oRow IsNot Nothing Then
|
||||
SelectedGroupId = oRow.Item("GUID")
|
||||
Await UpdateUsers(SelectedGroupId)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GridView1_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView1.FocusedRowChanged
|
||||
Try
|
||||
SelectedAvailableUser = GridView1.GetFocusedRowCellValue("GUID")
|
||||
Catch ex As Exception
|
||||
SelectedAvailableUser = 0
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub GridView3_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView3.FocusedRowChanged
|
||||
Try
|
||||
SelectedRelatedUser = GridView3.GetFocusedRowCellValue("GUID")
|
||||
Catch ex As Exception
|
||||
SelectedRelatedUser = 0
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Async Function UpdateUsers(pGroupId As Integer) As Threading.Tasks.Task
|
||||
Dim oAvailableTable = Await GetAvailableUsersByGroupId(SelectedGroupId)
|
||||
GridControl1.DataSource = oAvailableTable
|
||||
|
||||
Dim oRelatedTable = Await GetRelatedUsersByGroupId(SelectedGroupId)
|
||||
GridControl3.DataSource = oRelatedTable
|
||||
End Function
|
||||
|
||||
Private Async Sub GridControl1_DragDrop(sender As Object, e As DragEventArgs) Handles GridControl1.DragDrop
|
||||
Dim oData As String = e.Data.GetData(DataFormats.Text)
|
||||
Dim oGuid As Integer = oData.Split("|").ToList.First()
|
||||
|
||||
If Await RemoveUserFromGroup(oGuid, SelectedGroupId) Then
|
||||
Await UpdateUsers(SelectedGroupId)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Async Sub GridControl3_DragDrop(sender As Object, e As DragEventArgs) Handles GridControl3.DragDrop
|
||||
Dim oData As String = e.Data.GetData(DataFormats.Text)
|
||||
Dim oGuid As Integer = oData.Split("|").ToList.First()
|
||||
|
||||
If Await AddUserToGroup(oGuid, SelectedGroupId) Then
|
||||
Await UpdateUsers(SelectedGroupId)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Async Function AddUserToGroup(pUserId As Integer, pGroupId As Integer) As Threading.Tasks.Task(Of Boolean)
|
||||
Try
|
||||
Dim oUser = My.Application.User.UserName
|
||||
Dim oSql = $"
|
||||
INSERT INTO TBDD_GROUPS_USER
|
||||
(USER_ID, GROUP_ID, COMMENT, ADDED_WHO)
|
||||
VALUES (
|
||||
{pUserId},
|
||||
{pGroupId},
|
||||
'Assign User {pUserId} to Group {pGroupId}',
|
||||
'{oUser}'
|
||||
)"
|
||||
Return Await My.DatabaseECM.ExecuteNonQueryAsync(oSql)
|
||||
|
||||
Catch ex As Exception
|
||||
Logger.error(ex)
|
||||
Return False
|
||||
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Async Function RemoveUserFromGroup(pUserId As Integer, pGroupId As Integer) As Threading.Tasks.Task(Of Boolean)
|
||||
Try
|
||||
Dim oUser = My.Application.User.UserName
|
||||
Dim oSql = $"
|
||||
DELETE FROM TBDD_GROUPS_USER
|
||||
WHERE USER_ID = {pUserId} AND GROUP_ID = {pGroupId}
|
||||
"
|
||||
Return Await My.DatabaseECM.ExecuteNonQueryAsync(oSql)
|
||||
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return False
|
||||
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Async Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click
|
||||
If SelectedAvailableUser > 0 Then
|
||||
Await AddUserToGroup(SelectedAvailableUser, SelectedGroupId)
|
||||
Await UpdateUsers(SelectedGroupId)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Async Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
|
||||
If SelectedRelatedUser > 0 Then
|
||||
Await RemoveUserFromGroup(SelectedRelatedUser, SelectedGroupId)
|
||||
Await UpdateUsers(SelectedGroupId)
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
302
GUIs.ZooFlow/Administration/Users/frmAdmin_UserImport.Designer.vb
generated
Normal file
302
GUIs.ZooFlow/Administration/Users/frmAdmin_UserImport.Designer.vb
generated
Normal file
@@ -0,0 +1,302 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class frmAdmin_UserImport
|
||||
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
|
||||
Me.btnImportUsers = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.btnImportGroups = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
|
||||
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
|
||||
Me.gridGroupList = New DevExpress.XtraGrid.GridControl()
|
||||
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
|
||||
Me.colName = New DevExpress.XtraGrid.Columns.GridColumn()
|
||||
Me.colCount = New DevExpress.XtraGrid.Columns.GridColumn()
|
||||
Me.gridUserList = New DevExpress.XtraGrid.GridControl()
|
||||
Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
|
||||
Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn()
|
||||
Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn()
|
||||
Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn()
|
||||
Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn()
|
||||
Me.SplashScreenManager1 = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, GetType(Global.DigitalData.GUIs.ZooFlow.frmWaitForm), True, True)
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainerControl1.Panel1.SuspendLayout()
|
||||
CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainerControl1.Panel2.SuspendLayout()
|
||||
Me.SplitContainerControl1.SuspendLayout()
|
||||
CType(Me.gridGroupList, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.gridUserList, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'RibbonControl1
|
||||
'
|
||||
Me.RibbonControl1.ExpandCollapseItem.Id = 0
|
||||
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.btnImportUsers, Me.btnImportGroups, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3})
|
||||
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.RibbonControl1.MaxItemId = 7
|
||||
Me.RibbonControl1.Name = "RibbonControl1"
|
||||
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
|
||||
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
|
||||
Me.RibbonControl1.ShowToolbarCustomizeItem = False
|
||||
Me.RibbonControl1.Size = New System.Drawing.Size(1012, 132)
|
||||
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
|
||||
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
|
||||
'
|
||||
'btnImportUsers
|
||||
'
|
||||
Me.btnImportUsers.Caption = "Benutzer Importieren"
|
||||
Me.btnImportUsers.Id = 1
|
||||
Me.btnImportUsers.Name = "btnImportUsers"
|
||||
'
|
||||
'btnImportGroups
|
||||
'
|
||||
Me.btnImportGroups.Caption = "Gruppen Importieren"
|
||||
Me.btnImportGroups.Id = 2
|
||||
Me.btnImportGroups.Name = "btnImportGroups"
|
||||
'
|
||||
'BarButtonItem1
|
||||
'
|
||||
Me.BarButtonItem1.Caption = "Import von ausgewählten Benutzern Starten"
|
||||
Me.BarButtonItem1.Id = 3
|
||||
Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_send1
|
||||
Me.BarButtonItem1.Name = "BarButtonItem1"
|
||||
'
|
||||
'BarButtonItem2
|
||||
'
|
||||
Me.BarButtonItem2.Caption = "Import von ausgewählten Gruppen starten"
|
||||
Me.BarButtonItem2.Id = 4
|
||||
Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_send2
|
||||
Me.BarButtonItem2.Name = "BarButtonItem2"
|
||||
'
|
||||
'BarButtonItem3
|
||||
'
|
||||
Me.BarButtonItem3.Caption = "Gruppen laden"
|
||||
Me.BarButtonItem3.Id = 5
|
||||
Me.BarButtonItem3.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check1
|
||||
Me.BarButtonItem3.Name = "BarButtonItem3"
|
||||
'
|
||||
'RibbonPage1
|
||||
'
|
||||
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
|
||||
Me.RibbonPage1.Name = "RibbonPage1"
|
||||
Me.RibbonPage1.Text = "RibbonPage1"
|
||||
'
|
||||
'RibbonPageGroup1
|
||||
'
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
|
||||
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
|
||||
Me.RibbonPageGroup1.Text = "Daten laden"
|
||||
'
|
||||
'RibbonPageGroup2
|
||||
'
|
||||
Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
|
||||
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1)
|
||||
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2)
|
||||
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
|
||||
Me.RibbonPageGroup2.Text = "Import"
|
||||
'
|
||||
'RibbonStatusBar1
|
||||
'
|
||||
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 525)
|
||||
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
|
||||
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
|
||||
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1012, 24)
|
||||
'
|
||||
'RibbonPage2
|
||||
'
|
||||
Me.RibbonPage2.Name = "RibbonPage2"
|
||||
Me.RibbonPage2.Text = "RibbonPage2"
|
||||
'
|
||||
'SplitContainerControl1
|
||||
'
|
||||
Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 132)
|
||||
Me.SplitContainerControl1.Name = "SplitContainerControl1"
|
||||
'
|
||||
'SplitContainerControl1.Panel1
|
||||
'
|
||||
Me.SplitContainerControl1.Panel1.Controls.Add(Me.gridGroupList)
|
||||
Me.SplitContainerControl1.Panel1.Text = "Panel1"
|
||||
'
|
||||
'SplitContainerControl1.Panel2
|
||||
'
|
||||
Me.SplitContainerControl1.Panel2.Controls.Add(Me.gridUserList)
|
||||
Me.SplitContainerControl1.Panel2.Text = "Panel2"
|
||||
Me.SplitContainerControl1.Size = New System.Drawing.Size(1012, 393)
|
||||
Me.SplitContainerControl1.SplitterPosition = 263
|
||||
Me.SplitContainerControl1.TabIndex = 2
|
||||
'
|
||||
'gridGroupList
|
||||
'
|
||||
Me.gridGroupList.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.gridGroupList.Location = New System.Drawing.Point(0, 0)
|
||||
Me.gridGroupList.MainView = Me.GridView1
|
||||
Me.gridGroupList.MenuManager = Me.RibbonControl1
|
||||
Me.gridGroupList.Name = "gridGroupList"
|
||||
Me.gridGroupList.Size = New System.Drawing.Size(263, 393)
|
||||
Me.gridGroupList.TabIndex = 0
|
||||
Me.gridGroupList.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
|
||||
'
|
||||
'GridView1
|
||||
'
|
||||
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName, Me.colCount})
|
||||
Me.GridView1.GridControl = Me.gridGroupList
|
||||
Me.GridView1.Name = "GridView1"
|
||||
Me.GridView1.OptionsView.ShowAutoFilterRow = True
|
||||
'
|
||||
'colName
|
||||
'
|
||||
Me.colName.Caption = "Name"
|
||||
Me.colName.FieldName = "Name"
|
||||
Me.colName.Name = "colName"
|
||||
Me.colName.Visible = True
|
||||
Me.colName.VisibleIndex = 0
|
||||
'
|
||||
'colCount
|
||||
'
|
||||
Me.colCount.Caption = "Benutzer"
|
||||
Me.colCount.FieldName = "Count"
|
||||
Me.colCount.Name = "colCount"
|
||||
Me.colCount.Visible = True
|
||||
Me.colCount.VisibleIndex = 1
|
||||
'
|
||||
'gridUserList
|
||||
'
|
||||
Me.gridUserList.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.gridUserList.Location = New System.Drawing.Point(0, 0)
|
||||
Me.gridUserList.MainView = Me.GridView2
|
||||
Me.gridUserList.MenuManager = Me.RibbonControl1
|
||||
Me.gridUserList.Name = "gridUserList"
|
||||
Me.gridUserList.Size = New System.Drawing.Size(739, 393)
|
||||
Me.gridUserList.TabIndex = 0
|
||||
Me.gridUserList.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
|
||||
'
|
||||
'GridView2
|
||||
'
|
||||
Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4})
|
||||
Me.GridView2.GridControl = Me.gridUserList
|
||||
Me.GridView2.Name = "GridView2"
|
||||
Me.GridView2.OptionsSelection.MultiSelect = True
|
||||
Me.GridView2.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect
|
||||
Me.GridView2.OptionsView.ShowAutoFilterRow = True
|
||||
'
|
||||
'GridColumn1
|
||||
'
|
||||
Me.GridColumn1.Caption = "Benutzername"
|
||||
Me.GridColumn1.FieldName = "samAccountName"
|
||||
Me.GridColumn1.Name = "GridColumn1"
|
||||
Me.GridColumn1.Visible = True
|
||||
Me.GridColumn1.VisibleIndex = 1
|
||||
'
|
||||
'GridColumn2
|
||||
'
|
||||
Me.GridColumn2.Caption = "Vorname"
|
||||
Me.GridColumn2.FieldName = "Surname"
|
||||
Me.GridColumn2.Name = "GridColumn2"
|
||||
Me.GridColumn2.Visible = True
|
||||
Me.GridColumn2.VisibleIndex = 2
|
||||
'
|
||||
'GridColumn3
|
||||
'
|
||||
Me.GridColumn3.Caption = "Nachname"
|
||||
Me.GridColumn3.FieldName = "GivenName"
|
||||
Me.GridColumn3.Name = "GridColumn3"
|
||||
Me.GridColumn3.Visible = True
|
||||
Me.GridColumn3.VisibleIndex = 3
|
||||
'
|
||||
'GridColumn4
|
||||
'
|
||||
Me.GridColumn4.Caption = "Email"
|
||||
Me.GridColumn4.FieldName = "Email"
|
||||
Me.GridColumn4.Name = "GridColumn4"
|
||||
Me.GridColumn4.Visible = True
|
||||
Me.GridColumn4.VisibleIndex = 4
|
||||
'
|
||||
'SplashScreenManager1
|
||||
'
|
||||
Me.SplashScreenManager1.ClosingDelay = 500
|
||||
'
|
||||
'frmAdmin_UserImport
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1012, 549)
|
||||
Me.Controls.Add(Me.SplitContainerControl1)
|
||||
Me.Controls.Add(Me.RibbonStatusBar1)
|
||||
Me.Controls.Add(Me.RibbonControl1)
|
||||
Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.text
|
||||
Me.Name = "frmAdmin_UserImport"
|
||||
Me.Ribbon = Me.RibbonControl1
|
||||
Me.StatusBar = Me.RibbonStatusBar1
|
||||
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)
|
||||
CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainerControl1.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainerControl1.ResumeLayout(False)
|
||||
CType(Me.gridGroupList, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.gridUserList, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
|
||||
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
|
||||
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl
|
||||
Friend WithEvents gridGroupList As DevExpress.XtraGrid.GridControl
|
||||
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
|
||||
Friend WithEvents gridUserList As DevExpress.XtraGrid.GridControl
|
||||
Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView
|
||||
Friend WithEvents btnImportUsers As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents btnImportGroups As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn
|
||||
Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn
|
||||
Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn
|
||||
Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn
|
||||
Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn
|
||||
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents colCount As DevExpress.XtraGrid.Columns.GridColumn
|
||||
Friend WithEvents SplashScreenManager1 As DevExpress.XtraSplashScreen.SplashScreenManager
|
||||
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
End Class
|
||||
120
GUIs.ZooFlow/Administration/Users/frmAdmin_UserImport.resx
Normal file
120
GUIs.ZooFlow/Administration/Users/frmAdmin_UserImport.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
248
GUIs.ZooFlow/Administration/Users/frmAdmin_UserImport.vb
Normal file
248
GUIs.ZooFlow/Administration/Users/frmAdmin_UserImport.vb
Normal file
@@ -0,0 +1,248 @@
|
||||
Imports DevExpress.XtraSplashScreen
|
||||
Imports DigitalData.Modules.Interfaces
|
||||
Imports DigitalData.Modules.Logging
|
||||
Imports DigitalData.GUIs.Common
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
|
||||
Public Class frmAdmin_UserImport
|
||||
Private ReadOnly Logger As Logger = My.LogConfig.GetLogger
|
||||
Private ActiveDirectory As ActiveDirectoryInterface
|
||||
|
||||
Private Sub frmAdmin_ImportUser_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
ActiveDirectory = New ActiveDirectoryInterface(My.LogConfig, Nothing)
|
||||
|
||||
Dim oGridManager = New GridBuilder(GridView1, GridView2)
|
||||
oGridManager.
|
||||
WithDefaults().
|
||||
WithReadOnlyOptions().
|
||||
WithClipboardHandler()
|
||||
End Sub
|
||||
|
||||
Private Async Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
|
||||
SplashScreenManager1.ShowWaitForm()
|
||||
SplashScreenManager1.SetWaitFormCaption("Loading Groups")
|
||||
|
||||
Try
|
||||
Dim oGroups As List(Of ADGroup) = Await ActiveDirectory.ListGroupsAsync()
|
||||
Dim oGroupList As New List(Of GroupListing)
|
||||
|
||||
For Each oGroup As ADGroup In oGroups
|
||||
Try
|
||||
SplashScreenManager1.SetWaitFormDescription(oGroup.SAMAccountName)
|
||||
|
||||
Dim oUsers As List(Of ADUser) = Await ActiveDirectory.ListUsersAsync(oGroup.Name)
|
||||
Dim oListing As New GroupListing(oGroup) With {
|
||||
.Count = oUsers.Count,
|
||||
.Users = oUsers
|
||||
}
|
||||
|
||||
If oUsers.Count > 0 Then
|
||||
oGroupList.Add(oListing)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
End Try
|
||||
Next
|
||||
|
||||
gridGroupList.ForceInitialize()
|
||||
gridGroupList.DataSource = oGroupList
|
||||
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Finally
|
||||
SplashScreenManager1.CloseWaitForm()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub btnImportUsers_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnImportUsers.ItemClick
|
||||
Dim oForm As New frmAdmin_UserImport()
|
||||
oForm.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub GridView1_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView1.FocusedRowChanged
|
||||
Dim oGroup As GroupListing = GridView1.GetRow(e.FocusedRowHandle)
|
||||
|
||||
If Not IsNothing(oGroup) Then
|
||||
Try
|
||||
gridUserList.DataSource = oGroup.Users
|
||||
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
|
||||
Dim oSelected = GridView2.GetSelectedRows()
|
||||
Dim oDialogResult = MsgBox($"Wollen Sie die ausgewählten [{oSelected.Count}] Benutzer importieren?",
|
||||
MsgBoxStyle.Question Or MsgBoxStyle.YesNo,
|
||||
"Import von Benutzern")
|
||||
|
||||
If DialogResult.No = oDialogResult Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim oImported = 0
|
||||
Dim oSkipped = 0
|
||||
|
||||
Try
|
||||
For Each oHandle In oSelected
|
||||
Dim oRow As ADUser = GridView2.GetRow(oHandle)
|
||||
|
||||
If Not UserExists(oRow.samAccountName) Then
|
||||
If InsertUser(oRow.samAccountName, oRow.Surname, oRow.GivenName, oRow.Email) Then
|
||||
oImported += 1
|
||||
Else
|
||||
Logger.Warn("User [{0}] could not be imported!", oRow.samAccountName)
|
||||
End If
|
||||
Else
|
||||
If UpdatetUser(oRow.samAccountName, oRow.Surname, oRow.GivenName, oRow.Email) Then
|
||||
oImported += 1
|
||||
Else
|
||||
Logger.Warn("User [{0}] could not be updated!", oRow.samAccountName)
|
||||
oSkipped += 1
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
If oImported = 0 Then
|
||||
Logger.Warn("No new users imported. All selected users are already in database.")
|
||||
MsgBox($"Es wurden keine neuen Benutzer importiert, da alle ausgewählten Benutzer bereits in der Benutzerverwaltung vorhanden sind.", MsgBoxStyle.Exclamation, "UserManager")
|
||||
Else
|
||||
Logger.Info($"Import successful!{vbNewLine}{vbNewLine}{oImported} users imported{vbNewLine}{oSkipped} users skipped")
|
||||
MsgBox($"{oImported} Benutzer wurden erfolgreich importiert!", MsgBoxStyle.Information, Text)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex, "Error while importing users")
|
||||
MsgBox($"Error while importing users: {ex.Message}", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
|
||||
Dim oSelected = GridView1.GetSelectedRows()
|
||||
Dim oMessage = $"Wollen Sie die ausgewählten [{oSelected.Count}] Gruppen importieren? Achtung: Es werden NUR die GRUPPEN importiert, nicht die enthaltenen Benutzer!"
|
||||
Dim oDialogResult = MsgBox(oMessage,
|
||||
MsgBoxStyle.Question Or MsgBoxStyle.YesNo,
|
||||
"Import von Gruppen")
|
||||
|
||||
If DialogResult.No = oDialogResult Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim oImported = 0
|
||||
Dim oSkipped = 0
|
||||
|
||||
Try
|
||||
For Each oHandle In oSelected
|
||||
Dim oRow As ADGroup = GridView2.GetRow(oHandle)
|
||||
|
||||
If Not GroupExists(oRow.SAMAccountName) Then
|
||||
If InsertGroup(oRow.SAMAccountName) Then
|
||||
oImported += 1
|
||||
Else
|
||||
Logger.Warn("Group [{0}] could not be imported!", oRow.SAMAccountName)
|
||||
End If
|
||||
Else
|
||||
oSkipped += 1
|
||||
End If
|
||||
Next
|
||||
|
||||
If oImported = 0 Then
|
||||
Logger.Warn("No new groups imported. All selected groups are already in database.")
|
||||
MsgBox($"Es wurden keine neuen Gruppen importiert, da alle ausgewählten Gruppen bereits in der Gruppenverwaltung vorhanden sind.", MsgBoxStyle.Exclamation, "UserManager")
|
||||
Else
|
||||
Logger.Info($"Import successful!{vbNewLine}{vbNewLine}{oImported} groups imported{vbNewLine}{oSkipped} groups skipped")
|
||||
MsgBox($"{oImported} Gruppen wurden erfolgreich importiert!", MsgBoxStyle.Information, Text)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex, "Error while importing users")
|
||||
MsgBox($"Error while importing users: {ex.Message}", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Function GroupExists(groupName As String) As Boolean
|
||||
Try
|
||||
Dim oSql As String = $"SELECT COUNT(GUID) FROM TBDD_GROUPS WHERE NAME = '{groupName}'"
|
||||
Dim oResult = My.DatabaseECM.GetScalarValue(oSql)
|
||||
|
||||
Return Convert.ToBoolean(oResult)
|
||||
Catch ex As Exception
|
||||
Logger.Error($"Error in GroupExists: {ex.Message}")
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function UserExists(userName As String) As Boolean
|
||||
Try
|
||||
Dim oSql As String = $"SELECT COUNT(GUID) FROM TBDD_USER WHERE USERNAME = '{userName}'"
|
||||
Dim oResult = My.DatabaseECM.GetScalarValue(oSql)
|
||||
|
||||
Return Convert.ToBoolean(oResult)
|
||||
Catch ex As Exception
|
||||
Logger.Error($"Error in UserExists: {ex.Message}")
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function InsertUser(username As String, prename As String, name As String, email As String)
|
||||
Try
|
||||
Dim oAddedWho As String = Environment.UserName
|
||||
Dim oSql As String = $"INSERT INTO TBDD_USER (PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO)
|
||||
VALUES ('{prename}','{name}','{username}','{email}','{oAddedWho}')"
|
||||
Dim oResult = My.DatabaseECM.ExecuteNonQuery(oSql)
|
||||
|
||||
Return oResult
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
Public Function UpdatetUser(username As String, prename As String, name As String, email As String)
|
||||
Try
|
||||
Dim oAddedWho As String = Environment.UserName
|
||||
Dim oSql As String = $"UPDATE TBDD_USER SET PRENAME = '{prename}', NAME = '{name}', EMAIL = , CHANGED_WHO = '{Environment.UserName}' WHERE USERNAME = '{username}')"
|
||||
Dim oResult = My.DatabaseECM.ExecuteNonQuery(oSql)
|
||||
|
||||
Return oResult
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
Public Function InsertGroup(name As String, Optional ECM_FK_ID As Integer = 1, Optional adSync As Boolean = True, Optional internal As Boolean = False, Optional active As Boolean = True)
|
||||
Try
|
||||
Dim addedWho As String = Environment.UserName
|
||||
Dim sql As String = $"INSERT INTO TBDD_GROUPS (NAME, ADDED_WHO, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE)
|
||||
VALUES ('{name}', '{addedWho}', {ECM_FK_ID},
|
||||
{Convert.ToInt32(adSync)},
|
||||
{Convert.ToInt32(internal)},
|
||||
{Convert.ToInt32(active)})"
|
||||
Dim oResult = My.DatabaseECM.ExecuteNonQuery(sql)
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Class GroupListing
|
||||
Public Group As ADGroup
|
||||
Public Users As List(Of ADUser)
|
||||
Public Property Count As Integer
|
||||
Public ReadOnly Property Name As String
|
||||
Get
|
||||
Return Group?.Name
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Sub New(pGroup As ADGroup)
|
||||
Group = pGroup
|
||||
Count = 0
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user