MS17.11

2016-11-17 16:32:58 +01:00
parent d8ab5633e8
commit 8dd7f6448e
24 changed files with 4223 additions and 2709 deletions
--- a/app/DD-Record-Organiser/frmViewsUser.Designer.vb
+++ b/app/DD-Record-Organiser/frmViewsUser.Designer.vb
@@ -32,26 +32,28 @@ Partial Class frmViewsUser
        Me.GridColumn8 = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.GridColumn9 = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.GridControlUsers2Menue = New DevExpress.XtraGrid.GridControl()
+        Me.TBAD_UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
        Me.GridViewlUsers2Menue = New DevExpress.XtraGrid.Views.Grid.GridView()
        Me.colSelect = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.colSurname = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.colID = New DevExpress.XtraGrid.Columns.GridColumn()
-        Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
-        Me.TBAD_UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.TBWH_Users1BindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
        Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
-        Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
-        Me.Label1 = New System.Windows.Forms.Label()
+        Me.btndeleteUserConstructorRel = New System.Windows.Forms.Button()
+        Me.btnAddUser2ConstructorREL = New System.Windows.Forms.Button()
        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TBWH_Users1BindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.XtraTabControl1.SuspendLayout()
@@ -63,11 +65,12 @@ Partial Class frmViewsUser
        Me.GridControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
            Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.GridControl1.Location = New System.Drawing.Point(476, 63)
+        Me.GridControl1.DataSource = Me.TBWH_Users1BindingSource
+        Me.GridControl1.Location = New System.Drawing.Point(501, 63)
        Me.GridControl1.MainView = Me.GridView1
        Me.GridControl1.Name = "GridControl1"
        Me.GridControl1.ShowOnlyPredefinedDetails = True
-        Me.GridControl1.Size = New System.Drawing.Size(598, 221)
+        Me.GridControl1.Size = New System.Drawing.Size(354, 283)
        Me.GridControl1.TabIndex = 91
        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
        '
@@ -138,10 +141,20 @@ Partial Class frmViewsUser
        Me.GridControlUsers2Menue.MainView = Me.GridViewlUsers2Menue
        Me.GridControlUsers2Menue.Name = "GridControlUsers2Menue"
        Me.GridControlUsers2Menue.ShowOnlyPredefinedDetails = True
-        Me.GridControlUsers2Menue.Size = New System.Drawing.Size(378, 221)
+        Me.GridControlUsers2Menue.Size = New System.Drawing.Size(378, 283)
        Me.GridControlUsers2Menue.TabIndex = 90
        Me.GridControlUsers2Menue.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewlUsers2Menue})
        '
+        'TBAD_UsersBindingSource
+        '
+        Me.TBAD_UsersBindingSource.DataMember = "TBAD_Users"
+        Me.TBAD_UsersBindingSource.DataSource = Me.DD_ECMAdmin
+        '
+        'DD_ECMAdmin
+        '
+        Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin"
+        Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
        'GridViewlUsers2Menue
        '
        Me.GridViewlUsers2Menue.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan
@@ -201,16 +214,6 @@ Partial Class frmViewsUser
        Me.colID.FieldName = "ID"
        Me.colID.Name = "colID"
        '
-        'DD_ECMAdmin
-        '
-        Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin"
-        Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
-        '
-        'TBAD_UsersBindingSource
-        '
-        Me.TBAD_UsersBindingSource.DataMember = "TBAD_Users"
-        Me.TBAD_UsersBindingSource.DataSource = Me.DD_ECMAdmin
-        '
        'TBWH_Users1BindingSource
        '
        Me.TBWH_Users1BindingSource.DataMember = "TBWH_Users1"
@@ -222,25 +225,56 @@ Partial Class frmViewsUser
        Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
        Me.XtraTabControl1.Name = "XtraTabControl1"
        Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
-        Me.XtraTabControl1.Size = New System.Drawing.Size(1087, 391)
+        Me.XtraTabControl1.Size = New System.Drawing.Size(868, 382)
        Me.XtraTabControl1.TabIndex = 92
        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
        '
        'XtraTabPage1
        '
+        Me.XtraTabPage1.Controls.Add(Me.btndeleteUserConstructorRel)
+        Me.XtraTabPage1.Controls.Add(Me.btnAddUser2ConstructorREL)
        Me.XtraTabPage1.Controls.Add(Me.Label2)
        Me.XtraTabPage1.Controls.Add(Me.GridControl1)
        Me.XtraTabPage1.Controls.Add(Me.Label1)
        Me.XtraTabPage1.Controls.Add(Me.GridControlUsers2Menue)
        Me.XtraTabPage1.Name = "XtraTabPage1"
-        Me.XtraTabPage1.Size = New System.Drawing.Size(1085, 363)
+        Me.XtraTabPage1.Size = New System.Drawing.Size(866, 357)
        Me.XtraTabPage1.Text = "Globale Suche"
        '
-        'XtraTabPage2
+        'btndeleteUserConstructorRel
        '
-        Me.XtraTabPage2.Name = "XtraTabPage2"
-        Me.XtraTabPage2.Size = New System.Drawing.Size(298, 275)
-        Me.XtraTabPage2.Text = "XtraTabPage2"
+        Me.btndeleteUserConstructorRel.Image = CType(resources.GetObject("btndeleteUserConstructorRel.Image"), System.Drawing.Image)
+        Me.btndeleteUserConstructorRel.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btndeleteUserConstructorRel.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.btndeleteUserConstructorRel.Location = New System.Drawing.Point(397, 92)
+        Me.btndeleteUserConstructorRel.Name = "btndeleteUserConstructorRel"
+        Me.btndeleteUserConstructorRel.Size = New System.Drawing.Size(97, 23)
+        Me.btndeleteUserConstructorRel.TabIndex = 94
+        Me.btndeleteUserConstructorRel.Text = "Delete user"
+        Me.btndeleteUserConstructorRel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btndeleteUserConstructorRel.UseVisualStyleBackColor = True
+        '
+        'btnAddUser2ConstructorREL
+        '
+        Me.btnAddUser2ConstructorREL.Image = CType(resources.GetObject("btnAddUser2ConstructorREL.Image"), System.Drawing.Image)
+        Me.btnAddUser2ConstructorREL.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnAddUser2ConstructorREL.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.btnAddUser2ConstructorREL.Location = New System.Drawing.Point(398, 63)
+        Me.btnAddUser2ConstructorREL.Name = "btnAddUser2ConstructorREL"
+        Me.btnAddUser2ConstructorREL.Size = New System.Drawing.Size(97, 23)
+        Me.btnAddUser2ConstructorREL.TabIndex = 93
+        Me.btnAddUser2ConstructorREL.Text = "Add user"
+        Me.btnAddUser2ConstructorREL.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnAddUser2ConstructorREL.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(11, 47)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(196, 13)
+        Me.Label2.TabIndex = 92
+        Me.Label2.Text = "Auswahl noch nicht zugeordneter User:"
        '
        'Label1
        '
@@ -252,20 +286,17 @@ Partial Class frmViewsUser
        Me.Label1.Text = "Konfigurieren Sie hier welche User Zugriff auf die globale Suche haben!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Achtung:" & _
    " in dieser Suche werden alle Datensätze angezeigt!!"
        '
-        'Label2
+        'XtraTabPage2
        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(11, 47)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(196, 13)
-        Me.Label2.TabIndex = 92
-        Me.Label2.Text = "Auswahl noch nicht zugeordneter User:"
+        Me.XtraTabPage2.Name = "XtraTabPage2"
+        Me.XtraTabPage2.Size = New System.Drawing.Size(1085, 366)
+        Me.XtraTabPage2.Text = "XtraTabPage2"
        '
        'frmViewsUser
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1087, 391)
+        Me.ClientSize = New System.Drawing.Size(868, 382)
        Me.Controls.Add(Me.XtraTabControl1)
        Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -274,9 +305,9 @@ Partial Class frmViewsUser
        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TBWH_Users1BindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.XtraTabControl1.ResumeLayout(False)
@@ -307,4 +338,6 @@ Partial Class frmViewsUser
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents btndeleteUserConstructorRel As System.Windows.Forms.Button
+    Friend WithEvents btnAddUser2ConstructorREL As System.Windows.Forms.Button
 End Class