From 0b93b71f926cf925fd2b3c2ffb9ad7047cacd652 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Tue, 14 Dec 2021 17:27:10 +0100 Subject: [PATCH] MS Relations Doctype --- GUIs.ZooFlow/Administration/ClassConstants.vb | 1 + .../Administration/ClassDetailForm.vb | 15 +- .../Administration/frmAdmin_Globix.vb | 11 +- .../frmAdmin_GlobixRelations.Designer.vb | 405 ++++++++++++++++++ .../frmAdmin_GlobixRelations.resx | 227 ++++++++++ .../frmAdmin_GlobixRelations.vb | 103 +++++ .../frmAdmin_IDBBERelations.Designer.vb | 25 +- .../Administration/frmAdmin_Start.Designer.vb | 5 +- GUIs.ZooFlow/Administration/frmAdmin_Start.vb | 2 +- GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb | 172 +++++++- GUIs.ZooFlow/DSIDB_Stammdaten.xsd | 54 +-- GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb | 2 + GUIs.ZooFlow/Globix/GlobixDataset.xsd | 22 +- GUIs.ZooFlow/ZooFlow.vbproj | 9 + GUIs.ZooFlow/frmFlowForm.vb | 2 +- 15 files changed, 974 insertions(+), 81 deletions(-) create mode 100644 GUIs.ZooFlow/Administration/frmAdmin_GlobixRelations.Designer.vb create mode 100644 GUIs.ZooFlow/Administration/frmAdmin_GlobixRelations.resx create mode 100644 GUIs.ZooFlow/Administration/frmAdmin_GlobixRelations.vb diff --git a/GUIs.ZooFlow/Administration/ClassConstants.vb b/GUIs.ZooFlow/Administration/ClassConstants.vb index 4a5e250c..0c01221d 100644 --- a/GUIs.ZooFlow/Administration/ClassConstants.vb +++ b/GUIs.ZooFlow/Administration/ClassConstants.vb @@ -9,6 +9,7 @@ Public Const MODULE_GI = "GLOBIX" Public Const PAGE_GI_PROFILES = "GI_PROFILES" + Public Const PAGE_GI_RELATIONS = "GI_RELATIONS" Public Const MODULE_CW = "CW" Public Const PAGE_CW_PROFILES = "CW_PROFILES" diff --git a/GUIs.ZooFlow/Administration/ClassDetailForm.vb b/GUIs.ZooFlow/Administration/ClassDetailForm.vb index 95b85603..d5580f00 100644 --- a/GUIs.ZooFlow/Administration/ClassDetailForm.vb +++ b/GUIs.ZooFlow/Administration/ClassDetailForm.vb @@ -53,8 +53,15 @@ Public Class ClassDetailForm New DetailSettings With { .GridTitle = "Attribute-Relations", .NewRecordTitle = "", - .[Module] = MODULE_CW, - .Entity = PAGE_CW_PROFILES + .[Module] = MODULE_IDB, + .Entity = PAGE_IDB_ATTRIBUTES + }}, + {PAGE_GI_RELATIONS, + New DetailSettings With { + .GridTitle = "Profile-Relations", + .NewRecordTitle = "", + .[Module] = MODULE_GI, + .Entity = PAGE_GI_RELATIONS }} } @@ -92,6 +99,10 @@ Public Class ClassDetailForm Dim oForm As New frmAdmin_IDBBERelations oForm.ShowDialog() Return True + Case PAGE_GI_RELATIONS + Dim oForm As New frmAdmin_GlobixRelations + oForm.ShowDialog() + Return True Case Else Return False End Select diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Globix.vb b/GUIs.ZooFlow/Administration/frmAdmin_Globix.vb index ac62f297..413235f7 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Globix.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Globix.vb @@ -20,8 +20,6 @@ Public Class frmAdmin_Globix End Sub Private Sub frmAdmin_Globix_Load(sender As Object, e As EventArgs) Handles MyBase.Load - 'TODO: Diese Codezeile lädt Daten in die Tabelle "GlobixDataset.TBGI_REGEX_DOCTYPE". Sie können sie bei Bedarf verschieben oder entfernen. - InitializeBaseForm(My.LogConfig) Try TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString @@ -242,7 +240,7 @@ Public Class frmAdmin_Globix Dim oSQL = $"SELECT GUID FROM TBDD_DOKUMENTART WHERE BEZEICHNUNG = '{TextEditBezeichnung.Text}'" PrimaryKey = My.DatabaseECM.GetScalarValue(oSQL) oSQL = $"INSERT INTO TBDD_DOKUMENTART_MODULE (DOKART_ID,MODULE_ID) VALUES ({PrimaryKey},(SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'GLOBIX'))" - My.DatabaseECM.ExecuteNonQuery(oIns) + My.DatabaseECM.ExecuteNonQuery(oSQL) IsInsert = False TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey) Return True @@ -336,6 +334,9 @@ Public Class frmAdmin_Globix Private Sub Load_Attribute_Auto() Try + If Not IsNumeric(TextEditDoctypeID.Text) Then + Exit Sub + End If Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.GlobixDataset.TBDD_INDEX_AUTOM, TextEditDoctypeID.Text) Catch ex As System.Exception System.Windows.Forms.MessageBox.Show(ex.Message) @@ -365,10 +366,10 @@ Public Class frmAdmin_Globix Case XtraTabPageDynamicFolder.Name cmbAllAttributes.Items.Clear() For Each oRowMan As DataRow In Me.GlobixDataset.TBDD_INDEX_MAN.Rows - cmbAllAttributes.Items.Add(oRowMan.Item("WD_INDEX") & "#M") + cmbAllAttributes.Items.Add(oRowMan.Item("WD_INDEX")) Next For Each oRowMan As DataRow In Me.GlobixDataset.TBDD_INDEX_AUTOM.Rows - cmbAllAttributes.Items.Add(oRowMan.Item("INDEXNAME") & "#A") + cmbAllAttributes.Items.Add(oRowMan.Item("INDEXNAME")) Next End Select 'Else diff --git a/GUIs.ZooFlow/Administration/frmAdmin_GlobixRelations.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_GlobixRelations.Designer.vb new file mode 100644 index 00000000..42df17d4 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_GlobixRelations.Designer.vb @@ -0,0 +1,405 @@ + _ +Partial Class frmAdmin_GlobixRelations + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_GlobixRelations)) + 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.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControlUser = New DevExpress.XtraLayout.LayoutControl() + Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.GridControlUsersRelated = New DevExpress.XtraGrid.GridControl() + Me.GridViewUsersRelated = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridControlDoctypesUsers = New DevExpress.XtraGrid.GridControl() + Me.GridViewDoctypesUser = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridControlFreeUsers = New DevExpress.XtraGrid.GridControl() + Me.GridViewFreeUsers = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.SimpleLabelItem1 = New DevExpress.XtraLayout.SimpleLabelItem() + Me.SimpleLabelItem2 = New DevExpress.XtraLayout.SimpleLabelItem() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.SimpleLabelItem3 = New DevExpress.XtraLayout.SimpleLabelItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + CType(Me.LayoutControlUser, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControlUser.SuspendLayout() + CType(Me.GridControlUsersRelated, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewUsersRelated, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlDoctypesUsers, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewDoctypesUser, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlFreeUsers, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewFreeUsers, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SimpleLabelItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SimpleLabelItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SimpleLabelItem3, 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(1087, 159) + 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, 739) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1087, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 159) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.Size = New System.Drawing.Size(1087, 580) + Me.XtraTabControl1.TabIndex = 2 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.Controls.Add(Me.LayoutControlUser) + Me.XtraTabPage1.ImageOptions.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True] + Me.XtraTabPage1.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.XtraTabPage1.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(1085, 554) + Me.XtraTabPage1.Text = "User-Relations" + ' + 'LayoutControlUser + ' + Me.LayoutControlUser.Controls.Add(Me.SimpleButton2) + Me.LayoutControlUser.Controls.Add(Me.SimpleButton1) + Me.LayoutControlUser.Controls.Add(Me.GridControlUsersRelated) + Me.LayoutControlUser.Controls.Add(Me.GridControlDoctypesUsers) + Me.LayoutControlUser.Controls.Add(Me.GridControlFreeUsers) + Me.LayoutControlUser.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControlUser.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlUser.Name = "LayoutControlUser" + Me.LayoutControlUser.Root = Me.Root + Me.LayoutControlUser.Size = New System.Drawing.Size(1085, 554) + Me.LayoutControlUser.TabIndex = 0 + Me.LayoutControlUser.Text = "LayoutControl1" + ' + 'SimpleButton2 + ' + Me.SimpleButton2.Appearance.Options.UseTextOptions = True + Me.SimpleButton2.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.SimpleButton2.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleRight + Me.SimpleButton2.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton2.Location = New System.Drawing.Point(420, 506) + Me.SimpleButton2.Name = "SimpleButton2" + Me.SimpleButton2.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.SimpleButton2.Size = New System.Drawing.Size(275, 36) + Me.SimpleButton2.StyleController = Me.LayoutControlUser + Me.SimpleButton2.TabIndex = 10 + Me.SimpleButton2.Text = "User entfernen" + ' + 'SimpleButton1 + ' + Me.SimpleButton1.Appearance.Options.UseTextOptions = True + Me.SimpleButton1.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton1.Location = New System.Drawing.Point(420, 466) + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.Size = New System.Drawing.Size(275, 36) + Me.SimpleButton1.StyleController = Me.LayoutControlUser + Me.SimpleButton1.TabIndex = 9 + Me.SimpleButton1.Text = "User zuordnen" + ' + 'GridControlUsersRelated + ' + Me.GridControlUsersRelated.AllowDrop = True + Me.GridControlUsersRelated.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) + Me.GridControlUsersRelated.Location = New System.Drawing.Point(699, 35) + Me.GridControlUsersRelated.MainView = Me.GridViewUsersRelated + Me.GridControlUsersRelated.MenuManager = Me.RibbonControl1 + Me.GridControlUsersRelated.Name = "GridControlUsersRelated" + Me.GridControlUsersRelated.Size = New System.Drawing.Size(374, 507) + Me.GridControlUsersRelated.TabIndex = 8 + Me.GridControlUsersRelated.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUsersRelated}) + ' + 'GridViewUsersRelated + ' + Me.GridViewUsersRelated.GridControl = Me.GridControlUsersRelated + Me.GridViewUsersRelated.Name = "GridViewUsersRelated" + Me.GridViewUsersRelated.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewUsersRelated.OptionsSelection.MultiSelect = True + Me.GridViewUsersRelated.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect + ' + 'GridControlDoctypesUsers + ' + Me.GridControlDoctypesUsers.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) + Me.GridControlDoctypesUsers.Location = New System.Drawing.Point(420, 35) + Me.GridControlDoctypesUsers.MainView = Me.GridViewDoctypesUser + Me.GridControlDoctypesUsers.MenuManager = Me.RibbonControl1 + Me.GridControlDoctypesUsers.Name = "GridControlDoctypesUsers" + Me.GridControlDoctypesUsers.Size = New System.Drawing.Size(275, 427) + Me.GridControlDoctypesUsers.TabIndex = 7 + Me.GridControlDoctypesUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoctypesUser}) + ' + 'GridViewDoctypesUser + ' + Me.GridViewDoctypesUser.GridControl = Me.GridControlDoctypesUsers + Me.GridViewDoctypesUser.Name = "GridViewDoctypesUser" + Me.GridViewDoctypesUser.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewDoctypesUser.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewDoctypesUser.OptionsBehavior.Editable = False + Me.GridViewDoctypesUser.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewDoctypesUser.OptionsView.ShowFilterPanelMode = DevExpress.XtraGrid.Views.Base.ShowFilterPanelMode.ShowAlways + Me.GridViewDoctypesUser.OptionsView.ShowGroupPanel = False + ' + 'GridControlFreeUsers + ' + Me.GridControlFreeUsers.AllowDrop = True + Me.GridControlFreeUsers.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) + Me.GridControlFreeUsers.Location = New System.Drawing.Point(12, 35) + Me.GridControlFreeUsers.MainView = Me.GridViewFreeUsers + Me.GridControlFreeUsers.MenuManager = Me.RibbonControl1 + Me.GridControlFreeUsers.Name = "GridControlFreeUsers" + Me.GridControlFreeUsers.Size = New System.Drawing.Size(404, 507) + Me.GridControlFreeUsers.TabIndex = 6 + Me.GridControlFreeUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewFreeUsers}) + ' + 'GridViewFreeUsers + ' + Me.GridViewFreeUsers.GridControl = Me.GridControlFreeUsers + Me.GridViewFreeUsers.Name = "GridViewFreeUsers" + Me.GridViewFreeUsers.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewFreeUsers.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewFreeUsers.OptionsBehavior.Editable = False + Me.GridViewFreeUsers.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewFreeUsers.OptionsSelection.MultiSelect = True + Me.GridViewFreeUsers.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.SimpleLabelItem1, Me.SimpleLabelItem2, Me.LayoutControlItem1, Me.LayoutControlItem2, Me.SimpleLabelItem3, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(1085, 554) + Me.Root.TextVisible = False + ' + 'SimpleLabelItem1 + ' + Me.SimpleLabelItem1.AllowHotTrack = False + Me.SimpleLabelItem1.AppearanceItemCaption.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.SimpleLabelItem1.AppearanceItemCaption.Options.UseBackColor = True + Me.SimpleLabelItem1.Location = New System.Drawing.Point(0, 0) + Me.SimpleLabelItem1.Name = "SimpleLabelItem1" + Me.SimpleLabelItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.SimpleLabelItem1.Size = New System.Drawing.Size(408, 23) + Me.SimpleLabelItem1.Text = "Non related Users" + Me.SimpleLabelItem1.TextSize = New System.Drawing.Size(92, 13) + ' + 'SimpleLabelItem2 + ' + Me.SimpleLabelItem2.AllowHotTrack = False + Me.SimpleLabelItem2.AppearanceItemCaption.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.SimpleLabelItem2.AppearanceItemCaption.Options.UseBackColor = True + Me.SimpleLabelItem2.Location = New System.Drawing.Point(408, 0) + Me.SimpleLabelItem2.Name = "SimpleLabelItem2" + Me.SimpleLabelItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.SimpleLabelItem2.Size = New System.Drawing.Size(279, 23) + Me.SimpleLabelItem2.Text = "Profiles" + Me.SimpleLabelItem2.TextSize = New System.Drawing.Size(92, 13) + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.GridControlFreeUsers + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 23) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Size = New System.Drawing.Size(408, 511) + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem1.TextVisible = False + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.GridControlDoctypesUsers + Me.LayoutControlItem2.Location = New System.Drawing.Point(408, 23) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Size = New System.Drawing.Size(279, 431) + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem2.TextVisible = False + ' + 'SimpleLabelItem3 + ' + Me.SimpleLabelItem3.AllowHotTrack = False + Me.SimpleLabelItem3.AppearanceItemCaption.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.SimpleLabelItem3.AppearanceItemCaption.Options.UseBackColor = True + Me.SimpleLabelItem3.Location = New System.Drawing.Point(687, 0) + Me.SimpleLabelItem3.Name = "SimpleLabelItem3" + Me.SimpleLabelItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.SimpleLabelItem3.Size = New System.Drawing.Size(378, 23) + Me.SimpleLabelItem3.Text = "Related Users" + Me.SimpleLabelItem3.TextSize = New System.Drawing.Size(92, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.GridControlUsersRelated + Me.LayoutControlItem3.Location = New System.Drawing.Point(687, 23) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Size = New System.Drawing.Size(378, 511) + 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(408, 454) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Size = New System.Drawing.Size(279, 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(408, 494) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Size = New System.Drawing.Size(279, 40) + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem5.TextVisible = False + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.XtraTabPage2.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(1085, 554) + Me.XtraTabPage2.Text = "Group-Relations" + ' + 'frmAdmin_GlobixRelations + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1087, 761) + Me.Controls.Add(Me.XtraTabControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = CType(resources.GetObject("frmAdmin_GlobixRelations.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.Name = "frmAdmin_GlobixRelations" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Globix-Profiles - relations" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPage1.ResumeLayout(False) + CType(Me.LayoutControlUser, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControlUser.ResumeLayout(False) + CType(Me.GridControlUsersRelated, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewUsersRelated, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlDoctypesUsers, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewDoctypesUser, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlFreeUsers, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewFreeUsers, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SimpleLabelItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SimpleLabelItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SimpleLabelItem3, 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 XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents LayoutControlUser As DevExpress.XtraLayout.LayoutControl + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents SimpleLabelItem1 As DevExpress.XtraLayout.SimpleLabelItem + Friend WithEvents SimpleLabelItem2 As DevExpress.XtraLayout.SimpleLabelItem + Friend WithEvents GridControlFreeUsers As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewFreeUsers As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents GridControlDoctypesUsers As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewDoctypesUser As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SimpleLabelItem3 As DevExpress.XtraLayout.SimpleLabelItem + Friend WithEvents GridControlUsersRelated As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewUsersRelated As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem +End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_GlobixRelations.resx b/GUIs.ZooFlow/Administration/frmAdmin_GlobixRelations.resx new file mode 100644 index 00000000..1b038ac4 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_GlobixRelations.resx @@ -0,0 +1,227 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAF4CAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlByZXZpb3VzVmlldyI+DQogICAgPHBhdGggZD0i + TTE2LDJDOC4zLDIsMiw4LjMsMiwxNnM2LjMsMTQsMTQsMTRzMTQtNi4zLDE0LTE0UzIzLjcsMiwxNiwy + eiBNMjQsMThoLTh2NmwtOC04bDgtOHY2aDhWMTh6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9z + dmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFsCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9Ik5leHRWaWV3Ij4NCiAgICA8cGF0aCBkPSJNMTYs + MkM4LjMsMiwyLDguMywyLDE2czYuMywxNCwxNCwxNHMxNC02LjMsMTQtMTRTMjMuNywyLDE2LDJ6IE0x + NiwyNHYtNkg4di00aDhWOGw4LDhMMTYsMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+ + Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKEDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlVzZXIiPg0KICAgIDxwYXRoIGQ9Ik0xMCw5LjljLTAu + MSwwLjUsMC4yLDAuOSwwLjQsMS40YzAuMiwwLjUtMC4xLDEuNywwLjksMS42YzAsMCwwLDAuMSwwLDAu + MmMwLjYsMi4zLDIsNC45LDQuNyw0LjkgICBjMi43LDAsNC4yLTIuNiw0LjctNC45YzAsMCwwLTAuMSww + LTAuMWMxLDAuMSwwLjYtMS4xLDAuOS0xLjZjMC4yLTAuNSwwLjQtMC45LDAuMy0xLjRjLTAuMS0wLjQt + MC40LTAuNC0wLjUtMC4zICAgYzEuOC00LjktMS4xLTQuNy0xLjEtNC43UzIwLDIsMTQuOCwyQzEwLDIs + OS40LDYsMTAuNSw5LjZDMTAuNCw5LjYsMTAuMSw5LjcsMTAsOS45eiIgY2xhc3M9IkJsYWNrIiAvPg0K + ICAgIDxwYXRoIGQ9Ik0yMCwxOGMtMC44LDEuNS0yLjEsNC00LDRjLTEuOSwwLTMuMi0yLjUtNC00Yy0y + LjMsMy41LTgsMS04LDguNVYzMGgyNHYtMy41QzI4LDE5LjEsMjIuMywyMS40LDIwLDE4eiIgY2xhc3M9 + IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACEEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iQWxsb3dfVXNlcnNfdG9fRWRpdF9SYW5nZXMiIHN0eWxlPSJlbmFibGUt + YmFja2dyb3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5CbGFj + a3tmaWxsOiM3MjcyNzI7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5zdDB7b3BhY2l0eTowLjU7fQo8 + L3N0eWxlPg0KICA8cGF0aCBkPSJNMTgsNHY2aC04VjRIMTh6IE04LDEwVjRIMHY2SDh6IE04LDE4di02 + SDB2Nkg4eiBNMTgsMTh2LTZoLTh2NkgxOHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8ZyBjbGFzcz0ic3Qw + Ij4NCiAgICA8cGF0aCBkPSJNMjAsNGg4djZoLThWNHogTTgsMjZ2LTZIMHY2SDh6IE0xOCwyMi45VjIw + aC04djZoNC41QzE1LjMsMjQuMSwxNi44LDIzLjQsMTgsMjIuOXoiIGNsYXNzPSJCbGFjayIgLz4NCiAg + PC9nPg0KICA8cGF0aCBkPSJNMjAuMywxOC40Yy0wLjItMC4zLTAuMy0wLjYtMC4zLTFjMC0wLjIsMC4y + LTAuMiwwLjMtMC4yYy0wLjctMi41LDAtNSwyLjktNS4yYzMtMC4yLDMuNywyLDMuNywyICBzMS42LTAu + MSwwLjcsMy4yYzAuMSwwLDAuMy0wLjEsMC40LDAuMmMwLjEsMC40LDAsMC42LTAuMiwxYy0wLjIsMC4z + LDAuMSwxLjEtMC42LDEuMWMwLDAsMCwwLjEsMCwwLjFDMjYuOCwyMS4yLDI1LjgsMjMsMjQsMjMgIGMt + MS44LDAtMi44LTEuNy0zLjItMy40YzAsMCwwLTAuMSwwLTAuMUMyMC4yLDE5LjYsMjAuNCwxOC44LDIw + LjMsMTguNHogTTI2LjcsMjMuMmMtMC41LDEtMS40LDIuOC0yLjcsMi44Yy0xLjMsMC0yLjEtMS44LTIu + Ni0yLjkgIEMxOS45LDI1LjYsMTYsMjMuOCwxNiwyOXYxaDE2di0xQzMyLDIzLjksMjguMiwyNS41LDI2 + LjcsMjMuMnoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHcDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + Qmx1ZXtmaWxsOiMxMTc3RDc7fQoJLnN0MHtvcGFjaXR5OjAuNTt9Cjwvc3R5bGU+DQogIDxnIGlkPSJN + YW5hZ2VfUmVsYXRpb25zIj4NCiAgICA8ZyBjbGFzcz0ic3QwIj4NCiAgICAgIDxwYXRoIGQ9Ik0zMSwz + MmgtOGMtMC41LDAtMS0wLjUtMS0xdi04YzAtMC41LDAuNS0xLDEtMWg4YzAuNSwwLDEsMC41LDEsMXY4 + QzMyLDMxLjUsMzEuNSwzMiwzMSwzMnogTTMyLDlWMSAgICBjMC0wLjYtMC41LTEtMS0xaC04Yy0wLjUs + MC0xLDAuNC0xLDF2OGMwLDAuNiwwLjUsMSwxLDFoOEMzMS41LDEwLDMyLDkuNiwzMiw5eiIgY2xhc3M9 + IkJsYWNrIiAvPg0KICAgIDwvZz4NCiAgICA8cGF0aCBkPSJNMTEsMjJIMWMtMC42LDAtMS0wLjUtMS0x + VjExYzAtMC42LDAuNC0xLDEtMWgxMGMwLjYsMCwxLDAuNCwxLDF2MTBDMTIsMjEuNSwxMS42LDIyLDEx + LDIyeiIgY2xhc3M9IkJsdWUiIC8+DQogICAgPHBhdGggZD0iTTIwLDJ2NmwtMi4zLTIuM2wtNCw0bC0x + LjQtMS40bDQtNEwxNCwySDIweiBNMTcuNywyNi4zbC00LTRsLTEuNCwxLjRsNCw0TDE0LDMwaDZ2LTZM + MTcuNywyNi4zeiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_GlobixRelations.vb b/GUIs.ZooFlow/Administration/frmAdmin_GlobixRelations.vb new file mode 100644 index 00000000..00896321 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_GlobixRelations.vb @@ -0,0 +1,103 @@ +Public Class frmAdmin_GlobixRelations + Private SELECTED_DTID As Integer + Private Function GetAvailableUsers(doctypeid As Integer) As DataTable + Try + Dim dt As DataTable + Dim oSQL = $"SELECT GUID UserID,NAME as Name, PRENAME as Prename,USERNAME as Username, EMAIL as Email FROM TBDD_USER WHERE GUID NOT IN (SELECT USER_ID FROM TBDD_USER_DOKTYPE WHERE DOCTYPE_ID = {doctypeid})" + dt = My.DatabaseECM.GetDatatable(oSQL) + Return dt + Catch ex As Exception + ShowErrorMessage($"Error in GetAvailableUsers with ID {doctypeid}", ex) + + Return Nothing + End Try + End Function + Private Function GetRelatedUsers(doctypeid As Integer) As DataTable + Try + Dim dt As DataTable + Dim oSQL = $"SELECT A.GUID RelID,B.NAME as Name, B.PRENAME as Prename,B.USERNAME as Username, B.EMAIL as Email FROM TBDD_USER_DOKTYPE A +INNER JOIN TBDD_USER B ON A.USER_ID = B.GUID WHERE A.DOCTYPE_ID = {doctypeid}" + dt = My.DatabaseECM.GetDatatable(oSQL) + Return dt + Catch ex As Exception + ShowErrorMessage($"Error in GetRelatedUsers with ID {doctypeid}", ex) + + Return Nothing + End Try + End Function + Private Sub ShowErrorMessage(errorText As String, ex As Exception) + MsgBox(errorText & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Critical, "BE Relations") + End Sub + + Private Sub frmAdmin_GlobixRelations_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + Dim oSQL = "SELECT DOCTYPE_ID As ID, DOCTYPE as Doctype FROM VWGI_DOCTYPE_IDB ORDER BY DOCTYPE" + Dim oDT As DataTable = My.DatabaseECM.GetDatatable(oSQL) + GridControlDoctypesUsers.DataSource = oDT + Catch ex As Exception + ShowErrorMessage($"Error in FormLoad", ex) + End Try + End Sub + + Private Sub GridViewDoctypesUser_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewDoctypesUser.FocusedRowChanged + Dim oDTID = GridViewDoctypesUser.GetFocusedRowCellValue(GridViewDoctypesUser.Columns("ID")) + SELECTED_DTID = oDTID + LoadFreeUsers() + LoadRelatedAttributes() + End Sub + + Sub LoadRelatedAttributes() + Dim oDT = GetRelatedUsers(SELECTED_DTID) + If Not IsNothing(oDT) Then + GridControlUsersRelated.DataSource = oDT + End If + End Sub + Sub LoadFreeUsers() + Dim oDT = GetAvailableUsers(SELECTED_DTID) + If Not IsNothing(oDT) Then + GridControlFreeUsers.DataSource = oDT + End If + End Sub + + Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click + Dim selectedRows As Integer() = GridViewFreeUsers.GetSelectedRows() + Dim i As Integer = 0 + For Each rowhandle As Integer In selectedRows + Dim oSelectedUsrID = GridViewFreeUsers.GetRowCellValue(rowhandle, "UserID") + AddUser(oSelectedUsrID) + Next + LoadFreeUsers() + LoadRelatedAttributes() + End Sub + Private Function AddUser(UsrID As Integer) As Boolean + Try + Dim oSQL = $" + INSERT INTO TBDD_USER_DOKTYPE (DOCTYPE_ID,USER_ID,ADDED_WHO) + VALUES ({SELECTED_DTID},{UsrID},'{My.Application.User.UserName}')" + Return My.DatabaseECM.ExecuteNonQuery(oSQL) + Catch ex As Exception + LOGGER.Error(ex) + Return False + End Try + End Function + + Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click + Dim selectedRows As Integer() = GridViewUsersRelated.GetSelectedRows() + Dim i As Integer = 0 + For Each rowhandle As Integer In selectedRows + Dim oSelectedUsrID = GridViewUsersRelated.GetRowCellValue(rowhandle, "RelID") + DeleteUserRelation(oSelectedUsrID) + Next + LoadFreeUsers() + LoadRelatedAttributes() + End Sub + Public Shared Function DeleteUserRelation(ID As Integer) As Boolean + Try + Dim oSQL = $"DELETE FROM TBDD_USER_DOKTYPE WHERE GUID = {ID}" + Return My.DatabaseECM.ExecuteNonQuery(oSQL) + Catch ex As Exception + LOGGER.Error(ex) + Return False + End Try + End Function +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_IDBBERelations.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_IDBBERelations.Designer.vb index 0d2f13b3..808ddbf3 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_IDBBERelations.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBBERelations.Designer.vb @@ -44,8 +44,8 @@ Partial Class frmAdmin_IDBBERelations Me.SimpleLabelItem1 = New DevExpress.XtraLayout.SimpleLabelItem() Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() Me.SimpleLabelItem3 = New DevExpress.XtraLayout.SimpleLabelItem() - Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.LayoutControl1.SuspendLayout() @@ -62,8 +62,8 @@ Partial Class frmAdmin_IDBBERelations CType(Me.SimpleLabelItem1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SimpleLabelItem3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'RibbonControl1 @@ -181,6 +181,7 @@ Partial Class frmAdmin_IDBBERelations Me.GridViewBusinessEntities.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewBusinessEntities.OptionsBehavior.Editable = False Me.GridViewBusinessEntities.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewBusinessEntities.OptionsView.ShowGroupPanel = False ' 'GridControlFreeAttributes ' @@ -281,15 +282,6 @@ Partial Class frmAdmin_IDBBERelations Me.SimpleLabelItem3.Text = "Zugeordnete Attribute" Me.SimpleLabelItem3.TextSize = New System.Drawing.Size(162, 17) ' - 'LayoutControlItem4 - ' - Me.LayoutControlItem4.Control = Me.SimpleButton1 - Me.LayoutControlItem4.Location = New System.Drawing.Point(419, 565) - Me.LayoutControlItem4.Name = "LayoutControlItem4" - Me.LayoutControlItem4.Size = New System.Drawing.Size(390, 40) - Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem4.TextVisible = False - ' 'LayoutControlItem5 ' Me.LayoutControlItem5.Control = Me.SimpleButton2 @@ -299,6 +291,15 @@ Partial Class frmAdmin_IDBBERelations Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem5.TextVisible = False ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.SimpleButton1 + Me.LayoutControlItem4.Location = New System.Drawing.Point(419, 565) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Size = New System.Drawing.Size(390, 40) + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem4.TextVisible = False + ' 'frmAdmin_IDBBERelations ' Me.AllowDrop = True @@ -332,8 +333,8 @@ Partial Class frmAdmin_IDBBERelations CType(Me.SimpleLabelItem1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SimpleLabelItem3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb index aa6ebc4c..ee629207 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb @@ -425,10 +425,11 @@ Partial Class frmAdmin_Start Me.TreeListMenu.AppendNode(New Object() {"Object Stores"}, 0, "IDB_OBJECT_STORES") Me.TreeListMenu.AppendNode(New Object() {"Global Indexer"}, -1, 6, 6, -1, "") Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 5, 4, 4, -1, "GI_PROFILES") + Me.TreeListMenu.AppendNode(New Object() {"Profile Relations"}, 6, 9, 9, -1, "GI_RELATIONS") Me.TreeListMenu.AppendNode(New Object() {"Clipboard Watcher"}, -1, 7, 7, -1, "") - Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 7, 4, 4, -1, "CW_PROFILES") + Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 8, 4, 4, -1, "CW_PROFILES") Me.TreeListMenu.AppendNode(New Object() {"Administration"}, -1) - Me.TreeListMenu.AppendNode(New Object() {"Source SQL"}, 9, 3, 3, -1, "META_SOURCE_SQL") + Me.TreeListMenu.AppendNode(New Object() {"Source SQL"}, 10, 3, 3, -1, "META_SOURCE_SQL") Me.TreeListMenu.EndUnboundLoad() Me.TreeListMenu.OptionsBehavior.Editable = False Me.TreeListMenu.OptionsView.ShowColumns = False diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb index 93a4d239..58b64f8a 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb @@ -155,7 +155,7 @@ Public Class frmAdmin_Start End If ViewMain.ShowLoadingPanel() - + Source.SQLResult = My.DatabaseECM.GetDatatable(Source.SQLCommand) GridMain.DataSource = Source.SQLResult GridMain.ForceInitialize() ViewMain.PopulateColumns() diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb index 566c2142..f08c0059 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb @@ -2143,24 +2143,20 @@ Partial Public Class DSIDB_Stammdaten MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnSYS_ATTRIBUTE = New Global.System.Data.DataColumn("SYS_ATTRIBUTE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSYS_ATTRIBUTE) - Me.columnBE_ID.AllowDBNull = false - Me.columnBE.AllowDBNull = false Me.columnBE.MaxLength = 500 - Me.columnATTR_ID.AllowDBNull = false - Me.columnATTR_TITLE.AllowDBNull = false Me.columnATTR_TITLE.MaxLength = 900 - Me.columnTYP_ID.AllowDBNull = false - Me.columnTYPE_ID.AllowDBNull = false - Me.columnTYPE_NAME.AllowDBNull = false Me.columnTYPE_NAME.MaxLength = 100 Me.columnVIEW_VISIBLE.AllowDBNull = false Me.columnVIEW_VISIBLE.DefaultValue = CType(true,Boolean) Me.columnVIEW_SEQUENCE.AllowDBNull = false + Me.columnVIEW_SEQUENCE.DefaultValue = CType(1,Integer) Me.columnLANG_ID.AllowDBNull = false + Me.columnLANG_ID.DefaultValue = CType(1,Byte) Me.columnLANG_CODE.AllowDBNull = false + Me.columnLANG_CODE.DefaultValue = CType("de-DE",String) Me.columnLANG_CODE.MaxLength = 10 - Me.columnADDED_WHEN.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.DefaultValue = CType("",String) Me.columnADDED_WHO.MaxLength = 30 Me.columnCHANGED_WHO.MaxLength = 30 Me.columnSYS_ATTRIBUTE.AllowDBNull = false @@ -4793,7 +4789,11 @@ Partial Public Class DSIDB_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property BE_ID() As Integer Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn),Integer) + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BE_ID in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn) = value @@ -4804,7 +4804,11 @@ Partial Public Class DSIDB_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property BE() As String Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn),String) + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BE in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn) = value @@ -4815,7 +4819,11 @@ Partial Public Class DSIDB_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ATTR_ID() As Integer Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn),Integer) + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_ID in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn) = value @@ -4826,7 +4834,11 @@ Partial Public Class DSIDB_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ATTR_TITLE() As String Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn),String) + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_TITLE in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn) = value @@ -4837,7 +4849,11 @@ Partial Public Class DSIDB_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TYP_ID() As Byte Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn),Byte) + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn),Byte) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYP_ID in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn) = value @@ -4848,7 +4864,11 @@ Partial Public Class DSIDB_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TYPE_ID() As Byte Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn),Byte) + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn),Byte) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYPE_ID in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn) = value @@ -4859,7 +4879,11 @@ Partial Public Class DSIDB_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TYPE_NAME() As String Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn),String) + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYPE_NAME in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn) = value @@ -4914,7 +4938,11 @@ Partial Public Class DSIDB_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try End Get Set Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn) = value @@ -4973,6 +5001,102 @@ Partial Public Class DSIDB_Stammdaten End Set End Property + _ + Public Function IsBE_IDNull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn) + End Function + + _ + Public Sub SetBE_IDNull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBENull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn) + End Function + + _ + Public Sub SetBENull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_IDNull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn) + End Function + + _ + Public Sub SetATTR_IDNull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_TITLENull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn) + End Function + + _ + Public Sub SetATTR_TITLENull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTYP_IDNull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn) + End Function + + _ + Public Sub SetTYP_IDNull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTYPE_IDNull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn) + End Function + + _ + Public Sub SetTYPE_IDNull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTYPE_NAMENull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn) + End Function + + _ + Public Sub SetTYPE_NAMENull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + _ Public Function IsCHANGED_WHENNull() As Boolean @@ -7471,9 +7595,13 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _ - Public Overloads Overridable Function FillByAttributeId(ByVal dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable, ByVal ATTRIBUTE_ID As Integer, ByVal LANGUAGE_ID As Byte) As Integer + Public Overloads Overridable Function FillByAttributeId(ByVal dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable, ByVal ATTRIBUTE_ID As Global.System.Nullable(Of Integer), ByVal LANGUAGE_ID As Byte) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ATTRIBUTE_ID,Integer) + If (ATTRIBUTE_ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ATTRIBUTE_ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(LANGUAGE_ID,Byte) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -7486,9 +7614,13 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _ - Public Overloads Overridable Function GetDataByAttributeId(ByVal ATTRIBUTE_ID As Integer, ByVal LANGUAGE_ID As Byte) As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable + Public Overloads Overridable Function GetDataByAttributeId(ByVal ATTRIBUTE_ID As Global.System.Nullable(Of Integer), ByVal LANGUAGE_ID As Byte) As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ATTRIBUTE_ID,Integer) + If (ATTRIBUTE_ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ATTRIBUTE_ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(LANGUAGE_ID,Byte) Dim dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable = New DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable() Me.Adapter.Fill(dataTable) diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.xsd b/GUIs.ZooFlow/DSIDB_Stammdaten.xsd index 5fac4d0c..ae0af13d 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.xsd +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xsd @@ -5,7 +5,7 @@ - + @@ -249,7 +249,7 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, VALUES (@TITLE,@TYP_ID,@VIEW_SEQUENCE,@VIEW_VISIBLE,@ADDED_WHO) - + @@ -273,7 +273,7 @@ SET TITLE = @TITLE, TYP_ID = @TYP_ID, VIEW_SEQUENCE = @VIEW_SEQUE WHERE (GUID = @GUID) - + @@ -309,7 +309,7 @@ WHERE (GUID = @GUID) SELECT VWIDB_BE_ATTRIBUTE.* FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = @ATTRIBUTE_ID AND LANG_ID = @LANGUAGE_ID - + @@ -614,7 +614,7 @@ FROM TBIDB_ATTRIBUTE_TYPE - + @@ -653,28 +653,28 @@ FROM TBIDB_ATTRIBUTE_TYPE - + - - + + - - + + - - - + + + @@ -682,17 +682,17 @@ FROM TBIDB_ATTRIBUTE_TYPE - - - + + + - - + + @@ -711,7 +711,7 @@ FROM TBIDB_ATTRIBUTE_TYPE - + @@ -768,7 +768,7 @@ FROM TBIDB_ATTRIBUTE_TYPE - + @@ -809,7 +809,7 @@ FROM TBIDB_ATTRIBUTE_TYPE - + @@ -875,7 +875,7 @@ FROM TBIDB_ATTRIBUTE_TYPE - + @@ -928,7 +928,7 @@ FROM TBIDB_ATTRIBUTE_TYPE - + @@ -965,7 +965,7 @@ FROM TBIDB_ATTRIBUTE_TYPE - + @@ -979,7 +979,7 @@ FROM TBIDB_ATTRIBUTE_TYPE - + @@ -1054,8 +1054,8 @@ FROM TBIDB_ATTRIBUTE_TYPE - - + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb b/GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb index e13bd947..3e0c2781 100644 --- a/GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb +++ b/GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb @@ -835,6 +835,7 @@ Partial Public Class GlobixDataset Me.columnFOLDER_FOR_INDEX.AllowDBNull = false Me.columnFOLDER_FOR_INDEX.MaxLength = 500 Me.columnDUPLICATE_HANDLING.AllowDBNull = false + Me.columnDUPLICATE_HANDLING.DefaultValue = CType("Default",String) Me.columnDUPLICATE_HANDLING.MaxLength = 30 Me.columnAKTIV.AllowDBNull = false Me.columnAKTIV.DefaultValue = CType(false,Boolean) @@ -842,6 +843,7 @@ Partial Public Class GlobixDataset Me.columnLANGUAGE.DefaultValue = CType("de-DE",String) Me.columnLANGUAGE.MaxLength = 5 Me.columnSEQUENCE.AllowDBNull = false + Me.columnSEQUENCE.DefaultValue = CType(1,Integer) Me.columnNAMENKONVENTION.AllowDBNull = false Me.columnNAMENKONVENTION.MaxLength = 500 Me.columnERSTELLTWER.AllowDBNull = false diff --git a/GUIs.ZooFlow/Globix/GlobixDataset.xsd b/GUIs.ZooFlow/Globix/GlobixDataset.xsd index 688bbac2..ec24f5dc 100644 --- a/GUIs.ZooFlow/Globix/GlobixDataset.xsd +++ b/GUIs.ZooFlow/Globix/GlobixDataset.xsd @@ -4,7 +4,7 @@ - + @@ -394,7 +394,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -403,7 +403,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -451,7 +451,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -466,7 +466,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -494,7 +494,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -576,7 +576,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -633,7 +633,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -685,9 +685,9 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - - - + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/ZooFlow.vbproj b/GUIs.ZooFlow/ZooFlow.vbproj index df7db57c..c72e2e58 100644 --- a/GUIs.ZooFlow/ZooFlow.vbproj +++ b/GUIs.ZooFlow/ZooFlow.vbproj @@ -148,6 +148,12 @@ + + frmAdmin_GlobixRelations.vb + + + Form + frmAdmin_ClipboardWatcher.vb @@ -387,6 +393,9 @@ frmAdmin_ClipboardWatcher.vb + + frmAdmin_GlobixRelations.vb + frmAdmin_IDBAttribute.vb diff --git a/GUIs.ZooFlow/frmFlowForm.vb b/GUIs.ZooFlow/frmFlowForm.vb index 462c9482..7b83e99f 100644 --- a/GUIs.ZooFlow/frmFlowForm.vb +++ b/GUIs.ZooFlow/frmFlowForm.vb @@ -163,7 +163,7 @@ Public Class frmFlowForm FileDrop = New ClassFileDrop(My.LogConfig) FileHandle = New ClassFilehandle() FolderWatch = New ClassFolderwatcher() - NNRefresh_RegexTable() + 'Refresh_RegexTable() Dim oFileExclusions As New ClassExclusions() If oFileExclusions.Load(My.Application.Globix.PATH_FileExclusions) = False Then