From 8ef994f4686c0bdc5d5b62e3f226da7459e20f3c Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Tue, 7 Dec 2021 12:03:50 +0100 Subject: [PATCH] MS ZF Adminconsole --- GUIs.ZooFlow/Administration/ClassConstants.vb | 4 +- .../Administration/ClassDetailForm.vb | 14 +- .../frmAdmin_Globix.Designer.vb | 1529 ++-- .../Administration/frmAdmin_Globix.resx | 88 +- .../Administration/frmAdmin_Globix.vb | 238 +- .../frmAdmin_IDBAttribute.Designer.vb | 95 +- .../Administration/frmAdmin_IDBAttribute.resx | 16 +- .../Administration/frmAdmin_IDBAttribute.vb | 48 +- .../frmAdmin_IDBEntity.Designer.vb | 20 +- .../Administration/frmAdmin_Start.Designer.vb | 32 +- .../Administration/frmAdmin_Start.resx | 22 + GUIs.ZooFlow/Administration/frmAdmin_Start.vb | 5 +- .../frmAdmin_relations.Designer.vb | 139 + .../Administration/frmAdmin_relations.resx | 120 + .../Administration/frmAdmin_relations.vb | 3 + .../Administration/frmSQLDesigner.Designer.vb | 377 + .../Administration/frmSQLDesigner.resx | 189 + GUIs.ZooFlow/Administration/frmSQLDesigner.vb | 171 + GUIs.ZooFlow/ClassInit.vb | 11 +- GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb | 6385 ++++++++++------- GUIs.ZooFlow/DSIDB_Stammdaten.xsd | 174 +- GUIs.ZooFlow/DSIDB_Stammdaten.xss | 19 +- GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb | 249 +- GUIs.ZooFlow/Globix/GlobixDataset.xsc | 64 +- GUIs.ZooFlow/Globix/GlobixDataset.xsd | 130 +- .../frmGlobixNameconvention.Designer.vb | 276 + .../Globix/frmGlobixNameconvention.resx | 219 + .../Globix/frmGlobixNameconvention.vb | 85 + GUIs.ZooFlow/MyApplication.vb | 2 - GUIs.ZooFlow/ZooFlow.vbproj | 28 + GUIs.ZooFlow/clsPatterns.vb | 483 ++ GUIs.ZooFlow/modCurrent.vb | 5 + Modules.Database/Adapters/MSSQLServer.vb | 4 +- 33 files changed, 7931 insertions(+), 3313 deletions(-) create mode 100644 GUIs.ZooFlow/Administration/frmAdmin_relations.Designer.vb create mode 100644 GUIs.ZooFlow/Administration/frmAdmin_relations.resx create mode 100644 GUIs.ZooFlow/Administration/frmAdmin_relations.vb create mode 100644 GUIs.ZooFlow/Administration/frmSQLDesigner.Designer.vb create mode 100644 GUIs.ZooFlow/Administration/frmSQLDesigner.resx create mode 100644 GUIs.ZooFlow/Administration/frmSQLDesigner.vb create mode 100644 GUIs.ZooFlow/Globix/frmGlobixNameconvention.Designer.vb create mode 100644 GUIs.ZooFlow/Globix/frmGlobixNameconvention.resx create mode 100644 GUIs.ZooFlow/Globix/frmGlobixNameconvention.vb create mode 100644 GUIs.ZooFlow/clsPatterns.vb diff --git a/GUIs.ZooFlow/Administration/ClassConstants.vb b/GUIs.ZooFlow/Administration/ClassConstants.vb index 3545ae8a..8e87bf57 100644 --- a/GUIs.ZooFlow/Administration/ClassConstants.vb +++ b/GUIs.ZooFlow/Administration/ClassConstants.vb @@ -6,8 +6,8 @@ Public Const PAGE_IDB_SOURCE_SQL = "IDB_SOURCE_SQL" Public Const PAGE_IDB_OBJECT_STORES = "IDB_OBJECT_STORES" - Public Const MODULE_GLOBIX = "GLOBIX" - Public Const PAGE_GLOBIX_PROFILES = "GLOBIX_PROFILES" + Public Const MODULE_GI = "GLOBIX" + Public Const PAGE_GI_PROFILES = "GI_PROFILES" 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 42df7a58..b6428625 100644 --- a/GUIs.ZooFlow/Administration/ClassDetailForm.vb +++ b/GUIs.ZooFlow/Administration/ClassDetailForm.vb @@ -9,21 +9,21 @@ Public Class ClassDetailForm Public ReadOnly Property DetailSettingsList As New Dictionary(Of String, DetailSettings) From { {PAGE_IDB_ATTRIBUTES, ' This Key will be matched with the Entity Id from the Database New DetailSettings With { - .GridTitle = "IDB Attribute", ' This will be shown above the Data Grid + .GridTitle = "Attribute", ' This will be shown above the Data Grid .NewRecordTitle = "Neues Attribut", ' This will be shown on the "New" Button .[Module] = MODULE_IDB, .Entity = PAGE_IDB_ATTRIBUTES }}, {PAGE_IDB_BUSINESS_ENTITIES, New DetailSettings With { - .GridTitle = "IDB Entitäten", + .GridTitle = "Geschäftseinheit", .NewRecordTitle = "Neue Entität", .[Module] = MODULE_IDB, .Entity = PAGE_IDB_BUSINESS_ENTITIES }}, {PAGE_IDB_OBJECT_STORES, ' This Key will be matched with the Entity Id from the Database New DetailSettings With { - .GridTitle = "IDB Object Stores", ' This will be shown above the Data Grid + .GridTitle = "Object-Stores", ' This will be shown above the Data Grid .NewRecordTitle = "New Object Store", ' This will be shown on the "New" Button .[Module] = MODULE_IDB, .Entity = PAGE_IDB_OBJECT_STORES @@ -35,12 +35,12 @@ Public Class ClassDetailForm .[Module] = MODULE_META, .Entity = PAGE_META_SOURCE_SQL }}, - {PAGE_GLOBIX_PROFILES, + {PAGE_GI_PROFILES, New DetailSettings With { .GridTitle = "Global Indexer Profile", .NewRecordTitle = "Neues GLOBIX Profil", - .[Module] = MODULE_GLOBIX, - .Entity = PAGE_GLOBIX_PROFILES + .[Module] = MODULE_GI, + .Entity = PAGE_GI_PROFILES }}, {PAGE_CW_PROFILES, New DetailSettings With { @@ -71,7 +71,7 @@ Public Class ClassDetailForm Load_CWProfile(PrimaryKey, IsInsert) Return True - Case PAGE_GLOBIX_PROFILES + Case PAGE_GI_PROFILES GLOBIX_JUMP_DOCTYPE_ID = PrimaryKey Load_GLOBIXProfile(PrimaryKey, IsInsert) Return True diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Globix.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_Globix.Designer.vb index b3482748..82d910bb 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Globix.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Globix.Designer.vb @@ -25,6 +25,7 @@ Partial Class frmAdmin_Globix Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() + Dim SEQUENCELabel As System.Windows.Forms.Label Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_Globix)) Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.BarButtonSaveExit = New DevExpress.XtraBars.BarButtonItem() @@ -45,42 +46,46 @@ Partial Class frmAdmin_Globix Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPageProfile = New DevExpress.XtraTab.XtraTabPage() Me.LayoutControlProfile = New DevExpress.XtraLayout.LayoutControl() + Me.IDB_OBJECT_STORE_IDComboBox = New System.Windows.Forms.ComboBox() + Me.VWIDB_OBJECT_STOREBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.SEQUENCENumericUpDown = New System.Windows.Forms.NumericUpDown() + Me.TBDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.AKTIVCheckBox = New System.Windows.Forms.CheckBox() Me.ERSTELLTWANNTextBox = New System.Windows.Forms.TextBox() Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox() - Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() Me.TextEditErstelltWer = New DevExpress.XtraEditors.TextEdit() Me.TextEditGeandertWer = New DevExpress.XtraEditors.TextEdit() - Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() - Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() - Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit() - Me.TextEdit6 = New DevExpress.XtraEditors.TextEdit() - Me.TextEdit7 = New DevExpress.XtraEditors.TextEdit() - Me.TextEdit8 = New DevExpress.XtraEditors.TextEdit() - Me.TextEdit13 = New DevExpress.XtraEditors.TextEdit() - Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit() - Me.ComboBoxEdit2 = New DevExpress.XtraEditors.ComboBoxEdit() + Me.TextEditNamenkonvention = New DevExpress.XtraEditors.TextEdit() + Me.TextEditBeschreibung = New DevExpress.XtraEditors.TextEdit() + Me.TextEditKurzname = New DevExpress.XtraEditors.TextEdit() + Me.TextEditBezeichnung = New DevExpress.XtraEditors.TextEdit() + Me.TextEditDoctypeID = New DevExpress.XtraEditors.TextEdit() + Me.ComboBoxEditDupl_handling = New DevExpress.XtraEditors.ComboBoxEdit() + Me.SimpleButtonNameconvention = New DevExpress.XtraEditors.SimpleButton() Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() - Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem22 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem18 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem28 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem32 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem36 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem30 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem20 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem26 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem22 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem25 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem30 = New DevExpress.XtraLayout.LayoutControlItem() - Me.Filestore = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem3 = New DevExpress.XtraLayout.EmptySpaceItem() Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPageManIndexe = New DevExpress.XtraTab.XtraTabPage() Me.LayoutControlManIndexe = New DevExpress.XtraLayout.LayoutControl() - Me.SUGGESTIONCheckBox = New System.Windows.Forms.CheckBox() - Me.TBDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.CONNECTION_IDTextBox = New System.Windows.Forms.TextBox() + Me.SQL_RESULTTextBox = New System.Windows.Forms.TextBox() + Me.WD_INDEXComboBox = New System.Windows.Forms.ComboBox() + Me.VWIDB_BE_ATTRIBUTEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.VKT_ADD_ITEMCheckBox = New System.Windows.Forms.CheckBox() Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox = New System.Windows.Forms.CheckBox() Me.MULTISELECTCheckBox = New System.Windows.Forms.CheckBox() @@ -92,37 +97,76 @@ Partial Class frmAdmin_Globix Me.TextEdit9 = New DevExpress.XtraEditors.TextEdit() Me.TextEdit10 = New DevExpress.XtraEditors.TextEdit() Me.TextEdit11 = New DevExpress.XtraEditors.TextEdit() - Me.TextEdit12 = New DevExpress.XtraEditors.TextEdit() Me.SpinEdit1 = New DevExpress.XtraEditors.SpinEdit() - Me.ComboBoxEdit3 = New DevExpress.XtraEditors.ComboBoxEdit() Me.ComboBoxEdit4 = New DevExpress.XtraEditors.ComboBoxEdit() Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() - Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem17 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem19 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem21 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem23 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem24 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem27 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem29 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem15 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem13 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem27 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem29 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem16 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem31 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem18 = New DevExpress.XtraLayout.LayoutControlItem() Me.ListBoxAutoIndexe = New System.Windows.Forms.ListBox() Me.XtraTabPageRework = New DevExpress.XtraTab.XtraTabPage() Me.LayoutControlRework = New DevExpress.XtraLayout.LayoutControl() Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup() Me.XtraTabPageAutoIndexe = New DevExpress.XtraTab.XtraTabPage() Me.LayoutControlAutoIndexe = New DevExpress.XtraLayout.LayoutControl() + Me.SQL_RESULTTextBox1 = New System.Windows.Forms.TextBox() + Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.SQL_ACTIVECheckBox = New System.Windows.Forms.CheckBox() + Me.VALUETextBox = New System.Windows.Forms.TextBox() + Me.INDEXNAMEComboBox = New System.Windows.Forms.ComboBox() + Me.ACTIVECheckBox1 = New System.Windows.Forms.CheckBox() + Me.SEQUENCENumericUpDown1 = New System.Windows.Forms.NumericUpDown() + Me.GUID_AUTOATTRIBUTETextBox = New System.Windows.Forms.TextBox() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit() + Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton() + Me.ADDED_WHOTextBoxAutoAttribut = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() + Me.CHANGED_WHOTextEditAutoAttribut = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit() Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem15 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem23 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem33 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem34 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem35 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem40 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem37 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem39 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem42 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem4 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.ADDED_WHOAutoAttribut = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem41 = New DevExpress.XtraLayout.LayoutControlItem() + Me.CHANGED_WHOItemAutoAttribut = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem43 = New DevExpress.XtraLayout.LayoutControlItem() Me.XtraTabPageDynamicFolder = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPageAutoSelect = New DevExpress.XtraTab.XtraTabPage() Me.TBDD_INDEX_MANTableAdapter = New DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TBDD_INDEX_MANTableAdapter() + Me.VWIDB_OBJECT_STORETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_OBJECT_STORETableAdapter() + Me.VWIDB_BE_ATTRIBUTETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_BE_ATTRIBUTETableAdapter() + Me.TBDD_INDEX_AUTOMTableAdapter = New DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TBDD_INDEX_AUTOMTableAdapter() + Me.RadioGroup1 = New DevExpress.XtraEditors.RadioGroup() + Me.LayoutControlItem38 = New DevExpress.XtraLayout.LayoutControlItem() + Me.CONNECTION_IDTextBox1 = New System.Windows.Forms.TextBox() + Me.LayoutControlItem45 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.LayoutControlItem44 = New DevExpress.XtraLayout.LayoutControlItem() + SEQUENCELabel = New System.Windows.Forms.Label() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GlobixDataset, System.ComponentModel.ISupportInitialize).BeginInit() @@ -132,74 +176,108 @@ Partial Class frmAdmin_Globix Me.XtraTabPageProfile.SuspendLayout() CType(Me.LayoutControlProfile, System.ComponentModel.ISupportInitialize).BeginInit() Me.LayoutControlProfile.SuspendLayout() + CType(Me.VWIDB_OBJECT_STOREBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEditErstelltWer.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEditGeandertWer.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TextEdit4.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.TextEdit13.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ComboBoxEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditNamenkonvention.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditBeschreibung.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditKurzname.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditBezeichnung.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditDoctypeID.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ComboBoxEditDupl_handling.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem28, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem32, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem36, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem20, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem26, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem25, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Filestore, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl2.SuspendLayout() Me.XtraTabPageManIndexe.SuspendLayout() CType(Me.LayoutControlManIndexe, System.ComponentModel.ISupportInitialize).BeginInit() Me.LayoutControlManIndexe.SuspendLayout() - CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWIDB_BE_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEditAddedWho_ManIndex.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEditChangedWho_ManIndex.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit9.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit10.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit11.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TextEdit12.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ComboBoxEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ComboBoxEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem21, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem24, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem27, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem29, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem27, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem29, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem31, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabPageRework.SuspendLayout() CType(Me.LayoutControlRework, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabPageAutoIndexe.SuspendLayout() CType(Me.LayoutControlAutoIndexe, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControlAutoIndexe.SuspendLayout() + CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SEQUENCENumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ADDED_WHOTextBoxAutoAttribut.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CHANGED_WHOTextEditAutoAttribut.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem33, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem34, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem35, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem40, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem37, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem39, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem42, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ADDED_WHOAutoAttribut, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem41, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CHANGED_WHOItemAutoAttribut, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem43, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RadioGroup1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem38, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem45, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem44, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' + 'SEQUENCELabel + ' + SEQUENCELabel.Location = New System.Drawing.Point(12, 206) + SEQUENCELabel.Name = "SEQUENCELabel" + SEQUENCELabel.Size = New System.Drawing.Size(1186, 95) + SEQUENCELabel.TabIndex = 55 + ' 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 @@ -267,7 +345,7 @@ Partial Class frmAdmin_Globix 'RibbonStatusBar1 ' Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 695) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 765) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 Me.RibbonStatusBar1.Size = New System.Drawing.Size(1212, 22) @@ -299,8 +377,11 @@ Partial Class frmAdmin_Globix Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.VWIDB_BE_ATTRIBUTETableAdapter = Nothing ' 'TBDD_DOKUMENTARTTableAdapter ' @@ -320,7 +401,7 @@ Partial Class frmAdmin_Globix Me.XtraTabControl1.Location = New System.Drawing.Point(0, 131) Me.XtraTabControl1.Name = "XtraTabControl1" Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageProfile - Me.XtraTabControl1.Size = New System.Drawing.Size(1212, 564) + Me.XtraTabControl1.Size = New System.Drawing.Size(1212, 634) Me.XtraTabControl1.TabIndex = 5 Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageProfile}) ' @@ -330,42 +411,73 @@ Partial Class frmAdmin_Globix Me.XtraTabPageProfile.Controls.Add(Me.LayoutControlProfile) Me.XtraTabPageProfile.Controls.Add(Me.XtraTabControl2) Me.XtraTabPageProfile.Name = "XtraTabPageProfile" - Me.XtraTabPageProfile.Size = New System.Drawing.Size(1210, 541) + Me.XtraTabPageProfile.Size = New System.Drawing.Size(1210, 611) Me.XtraTabPageProfile.Text = "Profil" ' 'LayoutControlProfile ' Me.LayoutControlProfile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.LayoutControlProfile.Controls.Add(Me.IDB_OBJECT_STORE_IDComboBox) + Me.LayoutControlProfile.Controls.Add(Me.SEQUENCENumericUpDown) Me.LayoutControlProfile.Controls.Add(Me.AKTIVCheckBox) Me.LayoutControlProfile.Controls.Add(Me.ERSTELLTWANNTextBox) Me.LayoutControlProfile.Controls.Add(Me.GEAENDERTWANNTextBox) - Me.LayoutControlProfile.Controls.Add(Me.SimpleButton1) Me.LayoutControlProfile.Controls.Add(Me.TextEditErstelltWer) Me.LayoutControlProfile.Controls.Add(Me.TextEditGeandertWer) - Me.LayoutControlProfile.Controls.Add(Me.TextEdit1) - Me.LayoutControlProfile.Controls.Add(Me.TextEdit3) - Me.LayoutControlProfile.Controls.Add(Me.TextEdit4) - Me.LayoutControlProfile.Controls.Add(Me.TextEdit6) - Me.LayoutControlProfile.Controls.Add(Me.TextEdit7) - Me.LayoutControlProfile.Controls.Add(Me.TextEdit8) - Me.LayoutControlProfile.Controls.Add(Me.TextEdit13) - Me.LayoutControlProfile.Controls.Add(Me.ComboBoxEdit1) - Me.LayoutControlProfile.Controls.Add(Me.ComboBoxEdit2) + Me.LayoutControlProfile.Controls.Add(Me.TextEditNamenkonvention) + Me.LayoutControlProfile.Controls.Add(Me.TextEditBeschreibung) + Me.LayoutControlProfile.Controls.Add(Me.TextEditKurzname) + Me.LayoutControlProfile.Controls.Add(Me.TextEditBezeichnung) + Me.LayoutControlProfile.Controls.Add(Me.TextEditDoctypeID) + Me.LayoutControlProfile.Controls.Add(Me.ComboBoxEditDupl_handling) + Me.LayoutControlProfile.Controls.Add(Me.SimpleButtonNameconvention) Me.LayoutControlProfile.Location = New System.Drawing.Point(0, 3) Me.LayoutControlProfile.Name = "LayoutControlProfile" Me.LayoutControlProfile.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(948, 640, 650, 400) Me.LayoutControlProfile.Root = Me.Root - Me.LayoutControlProfile.Size = New System.Drawing.Size(1204, 300) + Me.LayoutControlProfile.Size = New System.Drawing.Size(1204, 249) Me.LayoutControlProfile.TabIndex = 0 Me.LayoutControlProfile.Text = "LayoutControl1" ' + 'IDB_OBJECT_STORE_IDComboBox + ' + Me.IDB_OBJECT_STORE_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "IDB_OBJECT_STORE_ID", True)) + Me.IDB_OBJECT_STORE_IDComboBox.DataSource = Me.VWIDB_OBJECT_STOREBindingSource + Me.IDB_OBJECT_STORE_IDComboBox.DisplayMember = "Objectstore" + Me.IDB_OBJECT_STORE_IDComboBox.FormattingEnabled = True + Me.IDB_OBJECT_STORE_IDComboBox.Location = New System.Drawing.Point(157, 145) + Me.IDB_OBJECT_STORE_IDComboBox.Name = "IDB_OBJECT_STORE_IDComboBox" + Me.IDB_OBJECT_STORE_IDComboBox.Size = New System.Drawing.Size(439, 21) + Me.IDB_OBJECT_STORE_IDComboBox.TabIndex = 57 + Me.IDB_OBJECT_STORE_IDComboBox.ValueMember = "GUID" + ' + 'VWIDB_OBJECT_STOREBindingSource + ' + Me.VWIDB_OBJECT_STOREBindingSource.DataMember = "VWIDB_OBJECT_STORE" + Me.VWIDB_OBJECT_STOREBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'SEQUENCENumericUpDown + ' + Me.SEQUENCENumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_INDEX_MANBindingSource, "SEQUENCE", True)) + Me.SEQUENCENumericUpDown.Location = New System.Drawing.Point(373, 15) + Me.SEQUENCENumericUpDown.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.SEQUENCENumericUpDown.Name = "SEQUENCENumericUpDown" + Me.SEQUENCENumericUpDown.Size = New System.Drawing.Size(47, 22) + Me.SEQUENCENumericUpDown.TabIndex = 56 + Me.SEQUENCENumericUpDown.Value = New Decimal(New Integer() {1, 0, 0, 0}) + ' + 'TBDD_INDEX_MANBindingSource + ' + Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN" + Me.TBDD_INDEX_MANBindingSource.DataSource = Me.GlobixDataset + ' 'AKTIVCheckBox ' Me.AKTIVCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_DOKUMENTARTBindingSource, "AKTIV", True)) - Me.AKTIVCheckBox.Location = New System.Drawing.Point(12, 12) + Me.AKTIVCheckBox.Location = New System.Drawing.Point(427, 12) Me.AKTIVCheckBox.Name = "AKTIVCheckBox" - Me.AKTIVCheckBox.Size = New System.Drawing.Size(1180, 20) + Me.AKTIVCheckBox.Size = New System.Drawing.Size(322, 20) Me.AKTIVCheckBox.TabIndex = 25 Me.AKTIVCheckBox.Text = "Aktiv" Me.AKTIVCheckBox.UseVisualStyleBackColor = True @@ -373,297 +485,300 @@ Partial Class frmAdmin_Globix 'ERSTELLTWANNTextBox ' Me.ERSTELLTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ERSTELLTWANN", True)) - Me.ERSTELLTWANNTextBox.Location = New System.Drawing.Point(154, 158) + Me.ERSTELLTWANNTextBox.Location = New System.Drawing.Point(157, 206) Me.ERSTELLTWANNTextBox.Name = "ERSTELLTWANNTextBox" - Me.ERSTELLTWANNTextBox.Size = New System.Drawing.Size(446, 20) + Me.ERSTELLTWANNTextBox.ReadOnly = True + Me.ERSTELLTWANNTextBox.Size = New System.Drawing.Size(537, 20) Me.ERSTELLTWANNTextBox.TabIndex = 35 ' 'GEAENDERTWANNTextBox ' Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GEAENDERTWANN", True)) - Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(746, 158) + Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(846, 206) Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox" - Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(446, 20) + Me.GEAENDERTWANNTextBox.ReadOnly = True + Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(343, 20) Me.GEAENDERTWANNTextBox.TabIndex = 39 ' - 'SimpleButton1 - ' - Me.SimpleButton1.Location = New System.Drawing.Point(603, 108) - Me.SimpleButton1.Name = "SimpleButton1" - Me.SimpleButton1.Size = New System.Drawing.Size(589, 22) - Me.SimpleButton1.StyleController = Me.LayoutControlProfile - Me.SimpleButton1.TabIndex = 43 - Me.SimpleButton1.Text = "SimpleButton1" - ' 'TextEditErstelltWer ' Me.TextEditErstelltWer.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ERSTELLTWER", True)) - Me.TextEditErstelltWer.Location = New System.Drawing.Point(154, 134) + Me.TextEditErstelltWer.Location = New System.Drawing.Point(157, 176) Me.TextEditErstelltWer.MenuManager = Me.RibbonControl1 Me.TextEditErstelltWer.Name = "TextEditErstelltWer" - Me.TextEditErstelltWer.Size = New System.Drawing.Size(445, 20) + Me.TextEditErstelltWer.Size = New System.Drawing.Size(537, 20) Me.TextEditErstelltWer.StyleController = Me.LayoutControlProfile Me.TextEditErstelltWer.TabIndex = 44 ' 'TextEditGeandertWer ' Me.TextEditGeandertWer.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GEANDERTWER", True)) - Me.TextEditGeandertWer.Location = New System.Drawing.Point(745, 134) + Me.TextEditGeandertWer.Location = New System.Drawing.Point(846, 176) Me.TextEditGeandertWer.MenuManager = Me.RibbonControl1 Me.TextEditGeandertWer.Name = "TextEditGeandertWer" - Me.TextEditGeandertWer.Size = New System.Drawing.Size(447, 20) + Me.TextEditGeandertWer.Size = New System.Drawing.Size(343, 20) Me.TextEditGeandertWer.StyleController = Me.LayoutControlProfile Me.TextEditGeandertWer.TabIndex = 45 ' - 'TextEdit1 - ' - Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "NAMENKONVENTION", True)) - Me.TextEdit1.Location = New System.Drawing.Point(154, 182) - Me.TextEdit1.MenuManager = Me.RibbonControl1 - Me.TextEdit1.Name = "TextEdit1" - Me.TextEdit1.Size = New System.Drawing.Size(446, 20) - Me.TextEdit1.StyleController = Me.LayoutControlProfile - Me.TextEdit1.TabIndex = 46 - ' - 'TextEdit3 - ' - Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "FOLDER_FOR_INDEX", True)) - Me.TextEdit3.Location = New System.Drawing.Point(154, 108) - Me.TextEdit3.MenuManager = Me.RibbonControl1 - Me.TextEdit3.Name = "TextEdit3" - Me.TextEdit3.Size = New System.Drawing.Size(445, 20) - Me.TextEdit3.StyleController = Me.LayoutControlProfile - Me.TextEdit3.TabIndex = 47 - ' - 'TextEdit4 - ' - Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BESCHREIBUNG", True)) - Me.TextEdit4.Location = New System.Drawing.Point(154, 84) - Me.TextEdit4.MenuManager = Me.RibbonControl1 - Me.TextEdit4.Name = "TextEdit4" - Me.TextEdit4.Size = New System.Drawing.Size(1038, 20) - Me.TextEdit4.StyleController = Me.LayoutControlProfile - Me.TextEdit4.TabIndex = 48 - ' - 'TextEdit6 - ' - Me.TextEdit6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "KURZNAME", True)) - Me.TextEdit6.Location = New System.Drawing.Point(962, 36) - Me.TextEdit6.MenuManager = Me.RibbonControl1 - Me.TextEdit6.Name = "TextEdit6" - Me.TextEdit6.Size = New System.Drawing.Size(230, 20) - Me.TextEdit6.StyleController = Me.LayoutControlProfile - Me.TextEdit6.TabIndex = 50 - ' - 'TextEdit7 - ' - Me.TextEdit7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BEZEICHNUNG", True)) - Me.TextEdit7.Location = New System.Drawing.Point(356, 36) - Me.TextEdit7.MenuManager = Me.RibbonControl1 - Me.TextEdit7.Name = "TextEdit7" - Me.TextEdit7.Size = New System.Drawing.Size(460, 20) - Me.TextEdit7.StyleController = Me.LayoutControlProfile - Me.TextEdit7.TabIndex = 51 - ' - 'TextEdit8 - ' - Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GUID", True)) - Me.TextEdit8.Location = New System.Drawing.Point(154, 36) - Me.TextEdit8.MenuManager = Me.RibbonControl1 - Me.TextEdit8.Name = "TextEdit8" - Me.TextEdit8.Size = New System.Drawing.Size(56, 20) - Me.TextEdit8.StyleController = Me.LayoutControlProfile - Me.TextEdit8.TabIndex = 52 - ' - 'TextEdit13 - ' - Me.TextEdit13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "SEQUENCE", True)) - Me.TextEdit13.Location = New System.Drawing.Point(154, 60) - Me.TextEdit13.MenuManager = Me.RibbonControl1 - Me.TextEdit13.Name = "TextEdit13" - Me.TextEdit13.Size = New System.Drawing.Size(56, 20) - Me.TextEdit13.StyleController = Me.LayoutControlProfile - Me.TextEdit13.TabIndex = 53 - ' - 'ComboBoxEdit1 - ' - Me.ComboBoxEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "DUPLICATE_HANDLING", True)) - Me.ComboBoxEdit1.Location = New System.Drawing.Point(356, 60) - Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1 - Me.ComboBoxEdit1.Name = "ComboBoxEdit1" - Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.ComboBoxEdit1.Properties.Items.AddRange(New Object() {"New version", "Default", "Question"}) - Me.ComboBoxEdit1.Size = New System.Drawing.Size(836, 20) - Me.ComboBoxEdit1.StyleController = Me.LayoutControlProfile - Me.ComboBoxEdit1.TabIndex = 54 - ' - 'ComboBoxEdit2 - ' - Me.ComboBoxEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "IDB_FILESTORE_ID", True)) - Me.ComboBoxEdit2.Location = New System.Drawing.Point(746, 182) - Me.ComboBoxEdit2.MenuManager = Me.RibbonControl1 - Me.ComboBoxEdit2.Name = "ComboBoxEdit2" - Me.ComboBoxEdit2.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.ComboBoxEdit2.Size = New System.Drawing.Size(446, 20) - Me.ComboBoxEdit2.StyleController = Me.LayoutControlProfile - Me.ComboBoxEdit2.TabIndex = 55 + 'TextEditNamenkonvention + ' + Me.TextEditNamenkonvention.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "NAMENKONVENTION", True)) + Me.TextEditNamenkonvention.Location = New System.Drawing.Point(157, 105) + Me.TextEditNamenkonvention.MenuManager = Me.RibbonControl1 + Me.TextEditNamenkonvention.Name = "TextEditNamenkonvention" + Me.TextEditNamenkonvention.Size = New System.Drawing.Size(537, 20) + Me.TextEditNamenkonvention.StyleController = Me.LayoutControlProfile + Me.TextEditNamenkonvention.TabIndex = 46 + ' + 'TextEditBeschreibung + ' + Me.TextEditBeschreibung.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BESCHREIBUNG", True)) + Me.TextEditBeschreibung.Location = New System.Drawing.Point(157, 75) + Me.TextEditBeschreibung.MenuManager = Me.RibbonControl1 + Me.TextEditBeschreibung.Name = "TextEditBeschreibung" + Me.TextEditBeschreibung.Size = New System.Drawing.Size(1032, 20) + Me.TextEditBeschreibung.StyleController = Me.LayoutControlProfile + Me.TextEditBeschreibung.TabIndex = 48 + ' + 'TextEditKurzname + ' + Me.TextEditKurzname.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "KURZNAME", True)) + Me.TextEditKurzname.Location = New System.Drawing.Point(898, 45) + Me.TextEditKurzname.MenuManager = Me.RibbonControl1 + Me.TextEditKurzname.Name = "TextEditKurzname" + Me.TextEditKurzname.Size = New System.Drawing.Size(291, 20) + Me.TextEditKurzname.StyleController = Me.LayoutControlProfile + Me.TextEditKurzname.TabIndex = 50 + ' + 'TextEditBezeichnung + ' + Me.TextEditBezeichnung.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BEZEICHNUNG", True)) + Me.TextEditBezeichnung.Location = New System.Drawing.Point(157, 45) + Me.TextEditBezeichnung.MenuManager = Me.RibbonControl1 + Me.TextEditBezeichnung.Name = "TextEditBezeichnung" + Me.TextEditBezeichnung.Size = New System.Drawing.Size(589, 20) + Me.TextEditBezeichnung.StyleController = Me.LayoutControlProfile + Me.TextEditBezeichnung.TabIndex = 51 + ' + 'TextEditDoctypeID + ' + Me.TextEditDoctypeID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GUID", True)) + Me.TextEditDoctypeID.Location = New System.Drawing.Point(157, 15) + Me.TextEditDoctypeID.MenuManager = Me.RibbonControl1 + Me.TextEditDoctypeID.Name = "TextEditDoctypeID" + Me.TextEditDoctypeID.Size = New System.Drawing.Size(64, 20) + Me.TextEditDoctypeID.StyleController = Me.LayoutControlProfile + Me.TextEditDoctypeID.TabIndex = 52 + ' + 'ComboBoxEditDupl_handling + ' + Me.ComboBoxEditDupl_handling.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "DUPLICATE_HANDLING", True)) + Me.ComboBoxEditDupl_handling.Location = New System.Drawing.Point(934, 105) + Me.ComboBoxEditDupl_handling.MenuManager = Me.RibbonControl1 + Me.ComboBoxEditDupl_handling.Name = "ComboBoxEditDupl_handling" + Me.ComboBoxEditDupl_handling.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.ComboBoxEditDupl_handling.Properties.Items.AddRange(New Object() {"New version", "Default", "Question"}) + Me.ComboBoxEditDupl_handling.Size = New System.Drawing.Size(255, 20) + Me.ComboBoxEditDupl_handling.StyleController = Me.LayoutControlProfile + Me.ComboBoxEditDupl_handling.TabIndex = 54 + ' + 'SimpleButtonNameconvention + ' + Me.SimpleButtonNameconvention.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButtonNameconvention.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButtonNameconvention.Location = New System.Drawing.Point(701, 102) + Me.SimpleButtonNameconvention.Name = "SimpleButtonNameconvention" + Me.SimpleButtonNameconvention.Size = New System.Drawing.Size(84, 36) + Me.SimpleButtonNameconvention.StyleController = Me.LayoutControlProfile + Me.SimpleButtonNameconvention.TabIndex = 58 + Me.SimpleButtonNameconvention.Text = "Editor" ' 'Root ' Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.Root.GroupBordersVisible = False - Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem22, Me.LayoutControlItem18, Me.LayoutControlItem28, Me.LayoutControlItem12, Me.LayoutControlItem10, Me.LayoutControlItem4, Me.LayoutControlItem3, Me.LayoutControlItem32, Me.LayoutControlItem5, Me.LayoutControlItem36, Me.LayoutControlItem26, Me.LayoutControlItem25, Me.LayoutControlItem30, Me.Filestore}) + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem28, Me.LayoutControlItem12, Me.LayoutControlItem10, Me.LayoutControlItem3, Me.LayoutControlItem32, Me.LayoutControlItem5, Me.LayoutControlItem36, Me.LayoutControlItem30, Me.LayoutControlItem20, Me.LayoutControlItem26, Me.LayoutControlItem4, Me.EmptySpaceItem1, Me.LayoutControlItem22, Me.LayoutControlItem1, Me.LayoutControlItem25, Me.EmptySpaceItem3}) Me.Root.Name = "Root" - Me.Root.Size = New System.Drawing.Size(1204, 300) + Me.Root.Size = New System.Drawing.Size(1204, 249) Me.Root.TextVisible = False ' - 'LayoutControlItem1 - ' - Me.LayoutControlItem1.Control = Me.SimpleButton1 - Me.LayoutControlItem1.Location = New System.Drawing.Point(591, 96) - Me.LayoutControlItem1.Name = "LayoutControlItem1" - Me.LayoutControlItem1.Size = New System.Drawing.Size(593, 26) - Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem1.TextVisible = False - ' - 'LayoutControlItem22 - ' - Me.LayoutControlItem22.Control = Me.AKTIVCheckBox - Me.LayoutControlItem22.Location = New System.Drawing.Point(0, 0) - Me.LayoutControlItem22.Name = "LayoutControlItem22" - Me.LayoutControlItem22.Size = New System.Drawing.Size(1184, 24) - Me.LayoutControlItem22.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem22.TextVisible = False - ' - 'LayoutControlItem18 - ' - Me.LayoutControlItem18.Control = Me.TextEdit3 - Me.LayoutControlItem18.Location = New System.Drawing.Point(0, 96) - Me.LayoutControlItem18.Name = "LayoutControlItem18" - Me.LayoutControlItem18.Size = New System.Drawing.Size(591, 26) - Me.LayoutControlItem18.Text = "Dynamischer Pfad" - Me.LayoutControlItem18.TextSize = New System.Drawing.Size(139, 13) - ' 'LayoutControlItem28 ' - Me.LayoutControlItem28.Control = Me.TextEdit4 - Me.LayoutControlItem28.Location = New System.Drawing.Point(0, 72) + Me.LayoutControlItem28.Control = Me.TextEditBeschreibung + Me.LayoutControlItem28.Location = New System.Drawing.Point(0, 60) Me.LayoutControlItem28.Name = "LayoutControlItem28" - Me.LayoutControlItem28.Size = New System.Drawing.Size(1184, 24) + Me.LayoutControlItem28.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem28.Size = New System.Drawing.Size(1184, 30) Me.LayoutControlItem28.Text = "Beschreibung" Me.LayoutControlItem28.TextSize = New System.Drawing.Size(139, 13) ' 'LayoutControlItem12 ' - Me.LayoutControlItem12.Control = Me.TextEdit6 - Me.LayoutControlItem12.Location = New System.Drawing.Point(808, 24) + Me.LayoutControlItem12.Control = Me.TextEditKurzname + Me.LayoutControlItem12.Location = New System.Drawing.Point(741, 30) Me.LayoutControlItem12.Name = "LayoutControlItem12" - Me.LayoutControlItem12.Size = New System.Drawing.Size(376, 24) + Me.LayoutControlItem12.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem12.Size = New System.Drawing.Size(443, 30) Me.LayoutControlItem12.Text = "Kurzname" Me.LayoutControlItem12.TextSize = New System.Drawing.Size(139, 13) ' 'LayoutControlItem10 ' - Me.LayoutControlItem10.Control = Me.TextEdit7 - Me.LayoutControlItem10.Location = New System.Drawing.Point(202, 24) + Me.LayoutControlItem10.Control = Me.TextEditBezeichnung + Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 30) Me.LayoutControlItem10.Name = "LayoutControlItem10" - Me.LayoutControlItem10.Size = New System.Drawing.Size(606, 24) + Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem10.Size = New System.Drawing.Size(741, 30) Me.LayoutControlItem10.Text = "Bezeichnung" Me.LayoutControlItem10.TextSize = New System.Drawing.Size(139, 13) ' - 'LayoutControlItem4 - ' - Me.LayoutControlItem4.Control = Me.TextEdit8 - Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 24) - Me.LayoutControlItem4.Name = "LayoutControlItem4" - Me.LayoutControlItem4.Size = New System.Drawing.Size(202, 24) - Me.LayoutControlItem4.Text = "ID" - Me.LayoutControlItem4.TextSize = New System.Drawing.Size(139, 13) - ' 'LayoutControlItem3 ' + Me.LayoutControlItem3.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem3.AppearanceItemCaption.Options.UseFont = True Me.LayoutControlItem3.Control = Me.TextEditErstelltWer Me.LayoutControlItem3.Enabled = False - Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 122) + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 161) Me.LayoutControlItem3.Name = "LayoutControlItem3" - Me.LayoutControlItem3.Size = New System.Drawing.Size(591, 24) + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(689, 30) Me.LayoutControlItem3.Text = "Erstellt wer" Me.LayoutControlItem3.TextSize = New System.Drawing.Size(139, 13) ' 'LayoutControlItem32 ' + Me.LayoutControlItem32.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem32.AppearanceItemCaption.Options.UseFont = True Me.LayoutControlItem32.Control = Me.ERSTELLTWANNTextBox Me.LayoutControlItem32.Enabled = False - Me.LayoutControlItem32.Location = New System.Drawing.Point(0, 146) + Me.LayoutControlItem32.Location = New System.Drawing.Point(0, 191) Me.LayoutControlItem32.Name = "LayoutControlItem32" - Me.LayoutControlItem32.Size = New System.Drawing.Size(592, 24) + Me.LayoutControlItem32.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem32.Size = New System.Drawing.Size(689, 38) Me.LayoutControlItem32.Text = "Erstellt wann:" Me.LayoutControlItem32.TextSize = New System.Drawing.Size(139, 13) ' 'LayoutControlItem5 ' + Me.LayoutControlItem5.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem5.AppearanceItemCaption.Options.UseFont = True Me.LayoutControlItem5.Control = Me.TextEditGeandertWer Me.LayoutControlItem5.Enabled = False - Me.LayoutControlItem5.Location = New System.Drawing.Point(591, 122) + Me.LayoutControlItem5.Location = New System.Drawing.Point(689, 161) Me.LayoutControlItem5.Name = "LayoutControlItem5" - Me.LayoutControlItem5.Size = New System.Drawing.Size(593, 24) + Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem5.Size = New System.Drawing.Size(495, 30) Me.LayoutControlItem5.Text = "Geändert wer" Me.LayoutControlItem5.TextSize = New System.Drawing.Size(139, 13) ' 'LayoutControlItem36 ' + Me.LayoutControlItem36.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem36.AppearanceItemCaption.Options.UseFont = True Me.LayoutControlItem36.Control = Me.GEAENDERTWANNTextBox Me.LayoutControlItem36.Enabled = False - Me.LayoutControlItem36.Location = New System.Drawing.Point(592, 146) + Me.LayoutControlItem36.Location = New System.Drawing.Point(689, 191) Me.LayoutControlItem36.Name = "LayoutControlItem36" - Me.LayoutControlItem36.Size = New System.Drawing.Size(592, 24) + Me.LayoutControlItem36.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem36.Size = New System.Drawing.Size(495, 38) Me.LayoutControlItem36.Text = "Geändert wann:" Me.LayoutControlItem36.TextSize = New System.Drawing.Size(139, 13) ' + 'LayoutControlItem30 + ' + Me.LayoutControlItem30.Control = Me.TextEditNamenkonvention + Me.LayoutControlItem30.Location = New System.Drawing.Point(0, 90) + Me.LayoutControlItem30.Name = "LayoutControlItem30" + Me.LayoutControlItem30.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem30.Size = New System.Drawing.Size(689, 40) + Me.LayoutControlItem30.Text = "Namenkonvention" + Me.LayoutControlItem30.TextSize = New System.Drawing.Size(139, 13) + ' + 'LayoutControlItem20 + ' + Me.LayoutControlItem20.Control = Me.SEQUENCENumericUpDown + Me.LayoutControlItem20.CustomizationFormText = "SEQUENCE" + Me.LayoutControlItem20.Location = New System.Drawing.Point(216, 0) + Me.LayoutControlItem20.Name = "LayoutControlItem20" + Me.LayoutControlItem20.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem20.Size = New System.Drawing.Size(199, 30) + Me.LayoutControlItem20.Text = "Reihenfolge" + Me.LayoutControlItem20.TextSize = New System.Drawing.Size(139, 13) + ' 'LayoutControlItem26 ' - Me.LayoutControlItem26.Control = Me.ComboBoxEdit1 - Me.LayoutControlItem26.Location = New System.Drawing.Point(202, 48) + Me.LayoutControlItem26.Control = Me.ComboBoxEditDupl_handling + Me.LayoutControlItem26.Location = New System.Drawing.Point(777, 90) Me.LayoutControlItem26.Name = "LayoutControlItem26" - Me.LayoutControlItem26.Size = New System.Drawing.Size(982, 24) + Me.LayoutControlItem26.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem26.Size = New System.Drawing.Size(407, 40) Me.LayoutControlItem26.Text = "Verhalten Datei vorhanden" Me.LayoutControlItem26.TextSize = New System.Drawing.Size(139, 13) ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem4.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem4.Control = Me.TextEditDoctypeID + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem4.Size = New System.Drawing.Size(216, 30) + Me.LayoutControlItem4.Text = "ID" + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(139, 13) + ' + 'EmptySpaceItem1 + ' + Me.EmptySpaceItem1.AllowHotTrack = False + Me.EmptySpaceItem1.Location = New System.Drawing.Point(741, 0) + Me.EmptySpaceItem1.Name = "EmptySpaceItem1" + Me.EmptySpaceItem1.Size = New System.Drawing.Size(443, 30) + Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlItem22 + ' + Me.LayoutControlItem22.Control = Me.AKTIVCheckBox + Me.LayoutControlItem22.Location = New System.Drawing.Point(415, 0) + Me.LayoutControlItem22.Name = "LayoutControlItem22" + Me.LayoutControlItem22.Size = New System.Drawing.Size(326, 30) + Me.LayoutControlItem22.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem22.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.SimpleButtonNameconvention + Me.LayoutControlItem1.Location = New System.Drawing.Point(689, 90) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Size = New System.Drawing.Size(88, 40) + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem1.TextVisible = False + ' 'LayoutControlItem25 ' - Me.LayoutControlItem25.Control = Me.TextEdit13 - Me.LayoutControlItem25.Location = New System.Drawing.Point(0, 48) + Me.LayoutControlItem25.Control = Me.IDB_OBJECT_STORE_IDComboBox + Me.LayoutControlItem25.Location = New System.Drawing.Point(0, 130) Me.LayoutControlItem25.Name = "LayoutControlItem25" - Me.LayoutControlItem25.Size = New System.Drawing.Size(202, 24) - Me.LayoutControlItem25.Text = "Reihenfolge" + Me.LayoutControlItem25.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem25.Size = New System.Drawing.Size(591, 31) + Me.LayoutControlItem25.Text = "File-Store:" Me.LayoutControlItem25.TextSize = New System.Drawing.Size(139, 13) ' - 'LayoutControlItem30 - ' - Me.LayoutControlItem30.Control = Me.TextEdit1 - Me.LayoutControlItem30.Location = New System.Drawing.Point(0, 170) - Me.LayoutControlItem30.Name = "LayoutControlItem30" - Me.LayoutControlItem30.Size = New System.Drawing.Size(592, 110) - Me.LayoutControlItem30.Text = "Namenkonvention" - Me.LayoutControlItem30.TextSize = New System.Drawing.Size(139, 13) + 'EmptySpaceItem3 ' - 'Filestore - ' - Me.Filestore.Control = Me.ComboBoxEdit2 - Me.Filestore.Location = New System.Drawing.Point(592, 170) - Me.Filestore.Name = "Filestore" - Me.Filestore.Size = New System.Drawing.Size(592, 110) - Me.Filestore.TextSize = New System.Drawing.Size(139, 13) + Me.EmptySpaceItem3.AllowHotTrack = False + Me.EmptySpaceItem3.Location = New System.Drawing.Point(591, 130) + Me.EmptySpaceItem3.Name = "EmptySpaceItem3" + Me.EmptySpaceItem3.Size = New System.Drawing.Size(593, 31) + Me.EmptySpaceItem3.TextSize = New System.Drawing.Size(0, 0) ' 'XtraTabControl2 ' Me.XtraTabControl2.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.XtraTabControl2.Location = New System.Drawing.Point(12, 309) + Me.XtraTabControl2.Location = New System.Drawing.Point(12, 258) Me.XtraTabControl2.Name = "XtraTabControl2" Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPageManIndexe - Me.XtraTabControl2.Size = New System.Drawing.Size(1180, 232) + Me.XtraTabControl2.Size = New System.Drawing.Size(1180, 353) Me.XtraTabControl2.TabIndex = 1 Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageManIndexe, Me.XtraTabPageRework, Me.XtraTabPageAutoIndexe, Me.XtraTabPageDynamicFolder, Me.XtraTabPageAutoSelect}) ' @@ -675,12 +790,14 @@ Partial Class frmAdmin_Globix Me.XtraTabPageManIndexe.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPageManIndexe.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.XtraTabPageManIndexe.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) Me.XtraTabPageManIndexe.Name = "XtraTabPageManIndexe" - Me.XtraTabPageManIndexe.Size = New System.Drawing.Size(1178, 206) - Me.XtraTabPageManIndexe.Text = "manuelle Indexe" + Me.XtraTabPageManIndexe.Size = New System.Drawing.Size(1178, 327) + Me.XtraTabPageManIndexe.Text = "manuelle Attribute" ' 'LayoutControlManIndexe ' - Me.LayoutControlManIndexe.Controls.Add(Me.SUGGESTIONCheckBox) + Me.LayoutControlManIndexe.Controls.Add(Me.CONNECTION_IDTextBox) + Me.LayoutControlManIndexe.Controls.Add(Me.SQL_RESULTTextBox) + Me.LayoutControlManIndexe.Controls.Add(Me.WD_INDEXComboBox) Me.LayoutControlManIndexe.Controls.Add(Me.VKT_ADD_ITEMCheckBox) Me.LayoutControlManIndexe.Controls.Add(Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox) Me.LayoutControlManIndexe.Controls.Add(Me.MULTISELECTCheckBox) @@ -692,39 +809,55 @@ Partial Class frmAdmin_Globix Me.LayoutControlManIndexe.Controls.Add(Me.TextEdit9) Me.LayoutControlManIndexe.Controls.Add(Me.TextEdit10) Me.LayoutControlManIndexe.Controls.Add(Me.TextEdit11) - Me.LayoutControlManIndexe.Controls.Add(Me.TextEdit12) Me.LayoutControlManIndexe.Controls.Add(Me.SpinEdit1) - Me.LayoutControlManIndexe.Controls.Add(Me.ComboBoxEdit3) Me.LayoutControlManIndexe.Controls.Add(Me.ComboBoxEdit4) Me.LayoutControlManIndexe.Dock = System.Windows.Forms.DockStyle.Fill Me.LayoutControlManIndexe.Location = New System.Drawing.Point(191, 0) Me.LayoutControlManIndexe.Name = "LayoutControlManIndexe" Me.LayoutControlManIndexe.Root = Me.LayoutControlGroup1 - Me.LayoutControlManIndexe.Size = New System.Drawing.Size(987, 206) + Me.LayoutControlManIndexe.Size = New System.Drawing.Size(987, 327) Me.LayoutControlManIndexe.TabIndex = 1 Me.LayoutControlManIndexe.Text = "LayoutControl1" ' - 'SUGGESTIONCheckBox + 'CONNECTION_IDTextBox ' - Me.SUGGESTIONCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "SUGGESTION", True)) - Me.SUGGESTIONCheckBox.Location = New System.Drawing.Point(12, 132) - Me.SUGGESTIONCheckBox.Name = "SUGGESTIONCheckBox" - Me.SUGGESTIONCheckBox.Size = New System.Drawing.Size(123, 20) - Me.SUGGESTIONCheckBox.TabIndex = 15 - Me.SUGGESTIONCheckBox.Text = "SQL Abfrage" - Me.SUGGESTIONCheckBox.UseVisualStyleBackColor = True + Me.CONNECTION_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "CONNECTION_ID", True)) + Me.CONNECTION_IDTextBox.Location = New System.Drawing.Point(81, 168) + Me.CONNECTION_IDTextBox.Name = "CONNECTION_IDTextBox" + Me.CONNECTION_IDTextBox.Size = New System.Drawing.Size(35, 20) + Me.CONNECTION_IDTextBox.TabIndex = 30 ' - 'TBDD_INDEX_MANBindingSource + 'SQL_RESULTTextBox ' - Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN" - Me.TBDD_INDEX_MANBindingSource.DataSource = Me.GlobixDataset + Me.SQL_RESULTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "SQL_RESULT", True)) + Me.SQL_RESULTTextBox.Location = New System.Drawing.Point(189, 168) + Me.SQL_RESULTTextBox.Name = "SQL_RESULTTextBox" + Me.SQL_RESULTTextBox.Size = New System.Drawing.Size(786, 20) + Me.SQL_RESULTTextBox.TabIndex = 29 + ' + 'WD_INDEXComboBox + ' + Me.WD_INDEXComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "WD_INDEX", True)) + Me.WD_INDEXComboBox.DataSource = Me.VWIDB_BE_ATTRIBUTEBindingSource + Me.WD_INDEXComboBox.DisplayMember = "ATTR_TITLE" + Me.WD_INDEXComboBox.FormattingEnabled = True + Me.WD_INDEXComboBox.Location = New System.Drawing.Point(553, 42) + Me.WD_INDEXComboBox.Name = "WD_INDEXComboBox" + Me.WD_INDEXComboBox.Size = New System.Drawing.Size(422, 21) + Me.WD_INDEXComboBox.TabIndex = 28 + Me.WD_INDEXComboBox.ValueMember = "ATTR_TITLE" + ' + 'VWIDB_BE_ATTRIBUTEBindingSource + ' + Me.VWIDB_BE_ATTRIBUTEBindingSource.DataMember = "VWIDB_BE_ATTRIBUTE" + Me.VWIDB_BE_ATTRIBUTEBindingSource.DataSource = Me.DSIDB_Stammdaten ' 'VKT_ADD_ITEMCheckBox ' Me.VKT_ADD_ITEMCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "VKT_ADD_ITEM", True)) - Me.VKT_ADD_ITEMCheckBox.Location = New System.Drawing.Point(753, 108) + Me.VKT_ADD_ITEMCheckBox.Location = New System.Drawing.Point(691, 102) Me.VKT_ADD_ITEMCheckBox.Name = "VKT_ADD_ITEMCheckBox" - Me.VKT_ADD_ITEMCheckBox.Size = New System.Drawing.Size(205, 20) + Me.VKT_ADD_ITEMCheckBox.Size = New System.Drawing.Size(284, 20) Me.VKT_ADD_ITEMCheckBox.TabIndex = 14 Me.VKT_ADD_ITEMCheckBox.Text = "Neueingabe erlauben" Me.VKT_ADD_ITEMCheckBox.UseVisualStyleBackColor = True @@ -732,9 +865,9 @@ Partial Class frmAdmin_Globix 'VKT_PREVENT_MULTIPLE_VALUESCheckBox ' Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "VKT_PREVENT_MULTIPLE_VALUES", True)) - Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Location = New System.Drawing.Point(528, 108) + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Location = New System.Drawing.Point(485, 102) Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Name = "VKT_PREVENT_MULTIPLE_VALUESCheckBox" - Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Size = New System.Drawing.Size(221, 20) + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Size = New System.Drawing.Size(202, 20) Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.TabIndex = 13 Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Text = "Doppelte Einträge verhindern" Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.UseVisualStyleBackColor = True @@ -742,9 +875,9 @@ Partial Class frmAdmin_Globix 'MULTISELECTCheckBox ' Me.MULTISELECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "MULTISELECT", True)) - Me.MULTISELECTCheckBox.Location = New System.Drawing.Point(274, 108) + Me.MULTISELECTCheckBox.Location = New System.Drawing.Point(252, 102) Me.MULTISELECTCheckBox.Name = "MULTISELECTCheckBox" - Me.MULTISELECTCheckBox.Size = New System.Drawing.Size(250, 20) + Me.MULTISELECTCheckBox.Size = New System.Drawing.Size(229, 20) Me.MULTISELECTCheckBox.TabIndex = 12 Me.MULTISELECTCheckBox.Text = "Mehrfachauswahl" Me.MULTISELECTCheckBox.UseVisualStyleBackColor = True @@ -752,126 +885,107 @@ Partial Class frmAdmin_Globix 'ACTIVECheckBox ' Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "ACTIVE", True)) - Me.ACTIVECheckBox.Location = New System.Drawing.Point(12, 12) + Me.ACTIVECheckBox.Location = New System.Drawing.Point(290, 12) Me.ACTIVECheckBox.Name = "ACTIVECheckBox" - Me.ACTIVECheckBox.Size = New System.Drawing.Size(76, 20) + Me.ACTIVECheckBox.Size = New System.Drawing.Size(99, 20) Me.ACTIVECheckBox.TabIndex = 5 Me.ACTIVECheckBox.Text = "Aktiv" Me.ACTIVECheckBox.UseVisualStyleBackColor = True ' 'btneditSQLmanIndex ' - Me.btneditSQLmanIndex.ImageOptions.SvgImage = CType(resources.GetObject("btneditSQLmanIndex.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.btneditSQLmanIndex.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.editdatasource Me.btneditSQLmanIndex.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) - Me.btneditSQLmanIndex.Location = New System.Drawing.Point(139, 132) + Me.btneditSQLmanIndex.Location = New System.Drawing.Point(12, 132) Me.btneditSQLmanIndex.Name = "btneditSQLmanIndex" - Me.btneditSQLmanIndex.Size = New System.Drawing.Size(819, 22) + Me.btneditSQLmanIndex.Padding = New System.Windows.Forms.Padding(5) + Me.btneditSQLmanIndex.Size = New System.Drawing.Size(963, 32) Me.btneditSQLmanIndex.StyleController = Me.LayoutControlManIndexe Me.btneditSQLmanIndex.TabIndex = 16 - Me.btneditSQLmanIndex.Text = "SQL Abfrage bearbeiten" + Me.btneditSQLmanIndex.Text = "SQL Auswahlliste bearbeiten" ' 'TextEditAddedWho_ManIndex ' Me.TextEditAddedWho_ManIndex.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "ADDED_WHO", True)) Me.TextEditAddedWho_ManIndex.Enabled = False - Me.TextEditAddedWho_ManIndex.Location = New System.Drawing.Point(85, 182) + Me.TextEditAddedWho_ManIndex.Location = New System.Drawing.Point(84, 195) Me.TextEditAddedWho_ManIndex.MenuManager = Me.RibbonControl1 Me.TextEditAddedWho_ManIndex.Name = "TextEditAddedWho_ManIndex" - Me.TextEditAddedWho_ManIndex.Size = New System.Drawing.Size(397, 20) + Me.TextEditAddedWho_ManIndex.Size = New System.Drawing.Size(355, 20) Me.TextEditAddedWho_ManIndex.StyleController = Me.LayoutControlManIndexe Me.TextEditAddedWho_ManIndex.TabIndex = 18 ' 'TextEdit2 ' Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "ADDED_WHEN", True)) - Me.TextEdit2.Location = New System.Drawing.Point(559, 182) + Me.TextEdit2.Location = New System.Drawing.Point(84, 225) Me.TextEdit2.MenuManager = Me.RibbonControl1 Me.TextEdit2.Name = "TextEdit2" - Me.TextEdit2.Size = New System.Drawing.Size(399, 20) + Me.TextEdit2.Size = New System.Drawing.Size(888, 20) Me.TextEdit2.StyleController = Me.LayoutControlManIndexe Me.TextEdit2.TabIndex = 19 ' 'TextEditChangedWho_ManIndex ' Me.TextEditChangedWho_ManIndex.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "CHANGED_WHO", True)) - Me.TextEditChangedWho_ManIndex.Location = New System.Drawing.Point(85, 206) + Me.TextEditChangedWho_ManIndex.Location = New System.Drawing.Point(518, 195) Me.TextEditChangedWho_ManIndex.MenuManager = Me.RibbonControl1 Me.TextEditChangedWho_ManIndex.Name = "TextEditChangedWho_ManIndex" - Me.TextEditChangedWho_ManIndex.Size = New System.Drawing.Size(397, 20) + Me.TextEditChangedWho_ManIndex.Size = New System.Drawing.Size(454, 20) Me.TextEditChangedWho_ManIndex.StyleController = Me.LayoutControlManIndexe Me.TextEditChangedWho_ManIndex.TabIndex = 20 ' 'TextEdit9 ' Me.TextEdit9.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "GUID", True)) - Me.TextEdit9.Location = New System.Drawing.Point(165, 12) + Me.TextEdit9.Location = New System.Drawing.Point(84, 15) Me.TextEdit9.MenuManager = Me.RibbonControl1 Me.TextEdit9.Name = "TextEdit9" - Me.TextEdit9.Size = New System.Drawing.Size(793, 20) + Me.TextEdit9.Size = New System.Drawing.Size(60, 20) Me.TextEdit9.StyleController = Me.LayoutControlManIndexe Me.TextEdit9.TabIndex = 21 ' 'TextEdit10 ' Me.TextEdit10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "NAME", True)) - Me.TextEdit10.Location = New System.Drawing.Point(85, 60) + Me.TextEdit10.Location = New System.Drawing.Point(84, 45) Me.TextEdit10.MenuManager = Me.RibbonControl1 Me.TextEdit10.Name = "TextEdit10" - Me.TextEdit10.Size = New System.Drawing.Size(380, 20) + Me.TextEdit10.Size = New System.Drawing.Size(393, 20) Me.TextEdit10.StyleController = Me.LayoutControlManIndexe Me.TextEdit10.TabIndex = 22 ' 'TextEdit11 ' Me.TextEdit11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "COMMENT", True)) - Me.TextEdit11.Location = New System.Drawing.Point(85, 84) + Me.TextEdit11.Location = New System.Drawing.Point(84, 75) Me.TextEdit11.MenuManager = Me.RibbonControl1 Me.TextEdit11.Name = "TextEdit11" - Me.TextEdit11.Size = New System.Drawing.Size(873, 20) + Me.TextEdit11.Size = New System.Drawing.Size(888, 20) Me.TextEdit11.StyleController = Me.LayoutControlManIndexe Me.TextEdit11.TabIndex = 23 ' - 'TextEdit12 - ' - Me.TextEdit12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "DEFAULT_VALUE", True)) - Me.TextEdit12.Location = New System.Drawing.Point(85, 158) - Me.TextEdit12.MenuManager = Me.RibbonControl1 - Me.TextEdit12.Name = "TextEdit12" - Me.TextEdit12.Size = New System.Drawing.Size(873, 20) - Me.TextEdit12.StyleController = Me.LayoutControlManIndexe - Me.TextEdit12.TabIndex = 24 - ' 'SpinEdit1 ' Me.SpinEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_INDEX_MANBindingSource, "SEQUENCE", True)) Me.SpinEdit1.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) - Me.SpinEdit1.Location = New System.Drawing.Point(165, 36) + Me.SpinEdit1.Location = New System.Drawing.Point(223, 15) Me.SpinEdit1.MenuManager = Me.RibbonControl1 Me.SpinEdit1.Name = "SpinEdit1" Me.SpinEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.SpinEdit1.Size = New System.Drawing.Size(793, 20) + Me.SpinEdit1.Size = New System.Drawing.Size(60, 20) Me.SpinEdit1.StyleController = Me.LayoutControlManIndexe Me.SpinEdit1.TabIndex = 25 ' - 'ComboBoxEdit3 - ' - Me.ComboBoxEdit3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "WD_INDEX", True)) - Me.ComboBoxEdit3.Location = New System.Drawing.Point(542, 60) - Me.ComboBoxEdit3.MenuManager = Me.RibbonControl1 - Me.ComboBoxEdit3.Name = "ComboBoxEdit3" - Me.ComboBoxEdit3.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.ComboBoxEdit3.Size = New System.Drawing.Size(416, 20) - Me.ComboBoxEdit3.StyleController = Me.LayoutControlManIndexe - Me.ComboBoxEdit3.TabIndex = 26 - ' 'ComboBoxEdit4 ' Me.ComboBoxEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_INDEX_MANBindingSource, "DATATYPE", True)) - Me.ComboBoxEdit4.Location = New System.Drawing.Point(85, 108) + Me.ComboBoxEdit4.Location = New System.Drawing.Point(84, 105) Me.ComboBoxEdit4.MenuManager = Me.RibbonControl1 Me.ComboBoxEdit4.Name = "ComboBoxEdit4" Me.ComboBoxEdit4.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.ComboBoxEdit4.Size = New System.Drawing.Size(185, 20) + Me.ComboBoxEdit4.Properties.Items.AddRange(New Object() {"VARCHAR", "INTEGER", "DATE", "BOOLEAN"}) + Me.ComboBoxEdit4.Size = New System.Drawing.Size(161, 20) Me.ComboBoxEdit4.StyleController = Me.LayoutControlManIndexe Me.ComboBoxEdit4.TabIndex = 27 ' @@ -879,27 +993,17 @@ Partial Class frmAdmin_Globix ' Me.LayoutControlGroup1.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.LayoutControlGroup1.GroupBordersVisible = False - Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem7, Me.LayoutControlItem17, Me.LayoutControlItem19, Me.LayoutControlItem21, Me.LayoutControlItem6, Me.LayoutControlItem23, Me.LayoutControlItem24, Me.LayoutControlItem27, Me.LayoutControlItem29, Me.LayoutControlItem2, Me.LayoutControlItem8, Me.LayoutControlItem11, Me.LayoutControlItem15, Me.LayoutControlItem9, Me.LayoutControlItem14, Me.LayoutControlItem13}) + Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem17, Me.LayoutControlItem19, Me.LayoutControlItem21, Me.LayoutControlItem6, Me.LayoutControlItem24, Me.LayoutControlItem2, Me.LayoutControlItem8, Me.LayoutControlItem11, Me.LayoutControlItem13, Me.LayoutControlItem9, Me.LayoutControlItem27, Me.LayoutControlItem29, Me.EmptySpaceItem2, Me.LayoutControlItem16, Me.LayoutControlItem7, Me.LayoutControlItem31, Me.LayoutControlItem18}) Me.LayoutControlGroup1.Name = "LayoutControlGroup1" - Me.LayoutControlGroup1.Size = New System.Drawing.Size(970, 238) + Me.LayoutControlGroup1.Size = New System.Drawing.Size(987, 327) Me.LayoutControlGroup1.TextVisible = False ' - 'LayoutControlItem7 - ' - Me.LayoutControlItem7.Control = Me.ACTIVECheckBox - Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 0) - Me.LayoutControlItem7.Name = "LayoutControlItem7" - Me.LayoutControlItem7.Size = New System.Drawing.Size(80, 48) - Me.LayoutControlItem7.Text = "ACTIVE:" - Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem7.TextVisible = False - ' 'LayoutControlItem17 ' Me.LayoutControlItem17.Control = Me.MULTISELECTCheckBox - Me.LayoutControlItem17.Location = New System.Drawing.Point(262, 96) + Me.LayoutControlItem17.Location = New System.Drawing.Point(240, 90) Me.LayoutControlItem17.Name = "LayoutControlItem17" - Me.LayoutControlItem17.Size = New System.Drawing.Size(254, 24) + Me.LayoutControlItem17.Size = New System.Drawing.Size(233, 30) Me.LayoutControlItem17.Text = "MULTISELECT:" Me.LayoutControlItem17.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem17.TextVisible = False @@ -907,9 +1011,9 @@ Partial Class frmAdmin_Globix 'LayoutControlItem19 ' Me.LayoutControlItem19.Control = Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox - Me.LayoutControlItem19.Location = New System.Drawing.Point(516, 96) + Me.LayoutControlItem19.Location = New System.Drawing.Point(473, 90) Me.LayoutControlItem19.Name = "LayoutControlItem19" - Me.LayoutControlItem19.Size = New System.Drawing.Size(225, 24) + Me.LayoutControlItem19.Size = New System.Drawing.Size(206, 30) Me.LayoutControlItem19.Text = "VKT PREVENT MULTIPLE VALUES:" Me.LayoutControlItem19.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem19.TextVisible = False @@ -917,9 +1021,9 @@ Partial Class frmAdmin_Globix 'LayoutControlItem21 ' Me.LayoutControlItem21.Control = Me.VKT_ADD_ITEMCheckBox - Me.LayoutControlItem21.Location = New System.Drawing.Point(741, 96) + Me.LayoutControlItem21.Location = New System.Drawing.Point(679, 90) Me.LayoutControlItem21.Name = "LayoutControlItem21" - Me.LayoutControlItem21.Size = New System.Drawing.Size(209, 24) + Me.LayoutControlItem21.Size = New System.Drawing.Size(288, 30) Me.LayoutControlItem21.Text = "VKT ADD ITEM:" Me.LayoutControlItem21.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem21.TextVisible = False @@ -927,114 +1031,151 @@ Partial Class frmAdmin_Globix 'LayoutControlItem6 ' Me.LayoutControlItem6.Control = Me.btneditSQLmanIndex - Me.LayoutControlItem6.Location = New System.Drawing.Point(127, 120) + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 120) Me.LayoutControlItem6.Name = "LayoutControlItem6" - Me.LayoutControlItem6.Size = New System.Drawing.Size(823, 26) + Me.LayoutControlItem6.Size = New System.Drawing.Size(967, 36) Me.LayoutControlItem6.Text = "SQL Abfrage bearbeiten" Me.LayoutControlItem6.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem6.TextVisible = False ' - 'LayoutControlItem23 - ' - Me.LayoutControlItem23.Control = Me.SUGGESTIONCheckBox - Me.LayoutControlItem23.Location = New System.Drawing.Point(0, 120) - Me.LayoutControlItem23.Name = "LayoutControlItem23" - Me.LayoutControlItem23.Size = New System.Drawing.Size(127, 26) - Me.LayoutControlItem23.Text = "SUGGESTION:" - Me.LayoutControlItem23.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem23.TextVisible = False - ' 'LayoutControlItem24 ' + Me.LayoutControlItem24.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem24.AppearanceItemCaption.Options.UseFont = True Me.LayoutControlItem24.Control = Me.TextEditAddedWho_ManIndex - Me.LayoutControlItem24.Location = New System.Drawing.Point(0, 170) + Me.LayoutControlItem24.Location = New System.Drawing.Point(0, 180) Me.LayoutControlItem24.Name = "LayoutControlItem24" - Me.LayoutControlItem24.Size = New System.Drawing.Size(474, 24) + Me.LayoutControlItem24.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem24.Size = New System.Drawing.Size(434, 30) Me.LayoutControlItem24.Text = "ErstelltWer" - Me.LayoutControlItem24.TextSize = New System.Drawing.Size(70, 13) - ' - 'LayoutControlItem27 - ' - Me.LayoutControlItem27.Control = Me.TextEdit2 - Me.LayoutControlItem27.Enabled = False - Me.LayoutControlItem27.Location = New System.Drawing.Point(474, 170) - Me.LayoutControlItem27.Name = "LayoutControlItem27" - Me.LayoutControlItem27.Size = New System.Drawing.Size(476, 48) - Me.LayoutControlItem27.Text = "Erstellt wann" - Me.LayoutControlItem27.TextSize = New System.Drawing.Size(70, 13) - ' - 'LayoutControlItem29 - ' - Me.LayoutControlItem29.Control = Me.TextEditChangedWho_ManIndex - Me.LayoutControlItem29.Enabled = False - Me.LayoutControlItem29.Location = New System.Drawing.Point(0, 194) - Me.LayoutControlItem29.Name = "LayoutControlItem29" - Me.LayoutControlItem29.Size = New System.Drawing.Size(474, 24) - Me.LayoutControlItem29.Text = "Geändert wer" - Me.LayoutControlItem29.TextSize = New System.Drawing.Size(70, 13) + Me.LayoutControlItem24.TextSize = New System.Drawing.Size(66, 13) ' 'LayoutControlItem2 ' + Me.LayoutControlItem2.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem2.AppearanceItemCaption.Options.UseFont = True Me.LayoutControlItem2.Control = Me.TextEdit9 - Me.LayoutControlItem2.Location = New System.Drawing.Point(80, 0) + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0) Me.LayoutControlItem2.Name = "LayoutControlItem2" - Me.LayoutControlItem2.Size = New System.Drawing.Size(870, 24) + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem2.Size = New System.Drawing.Size(139, 30) Me.LayoutControlItem2.Text = "ID" - Me.LayoutControlItem2.TextSize = New System.Drawing.Size(70, 13) + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(66, 13) ' 'LayoutControlItem8 ' Me.LayoutControlItem8.Control = Me.TextEdit10 - Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 48) + Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 30) Me.LayoutControlItem8.Name = "LayoutControlItem8" - Me.LayoutControlItem8.Size = New System.Drawing.Size(457, 24) + Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem8.Size = New System.Drawing.Size(472, 30) Me.LayoutControlItem8.Text = "Bezeichnung" - Me.LayoutControlItem8.TextSize = New System.Drawing.Size(70, 13) + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(66, 13) ' 'LayoutControlItem11 ' Me.LayoutControlItem11.Control = Me.TextEdit11 - Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 72) + Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 60) Me.LayoutControlItem11.Name = "LayoutControlItem11" - Me.LayoutControlItem11.Size = New System.Drawing.Size(950, 24) + Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem11.Size = New System.Drawing.Size(967, 30) Me.LayoutControlItem11.Text = "Hinweis" - Me.LayoutControlItem11.TextSize = New System.Drawing.Size(70, 13) + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(66, 13) ' - 'LayoutControlItem15 + 'LayoutControlItem13 ' - Me.LayoutControlItem15.Control = Me.TextEdit12 - Me.LayoutControlItem15.Location = New System.Drawing.Point(0, 146) - Me.LayoutControlItem15.Name = "LayoutControlItem15" - Me.LayoutControlItem15.Size = New System.Drawing.Size(950, 24) - Me.LayoutControlItem15.Text = "Default-Wert" - Me.LayoutControlItem15.TextSize = New System.Drawing.Size(70, 13) + Me.LayoutControlItem13.Control = Me.ComboBoxEdit4 + Me.LayoutControlItem13.Location = New System.Drawing.Point(0, 90) + Me.LayoutControlItem13.Name = "LayoutControlItem13" + Me.LayoutControlItem13.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem13.Size = New System.Drawing.Size(240, 30) + Me.LayoutControlItem13.Text = "Datentyp" + Me.LayoutControlItem13.TextSize = New System.Drawing.Size(66, 13) ' 'LayoutControlItem9 ' Me.LayoutControlItem9.Control = Me.SpinEdit1 - Me.LayoutControlItem9.Location = New System.Drawing.Point(80, 24) + Me.LayoutControlItem9.Location = New System.Drawing.Point(139, 0) Me.LayoutControlItem9.Name = "LayoutControlItem9" - Me.LayoutControlItem9.Size = New System.Drawing.Size(870, 24) + Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem9.Size = New System.Drawing.Size(139, 30) Me.LayoutControlItem9.Text = "Reihenfolge" - Me.LayoutControlItem9.TextSize = New System.Drawing.Size(70, 13) + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(66, 13) ' - 'LayoutControlItem14 + 'LayoutControlItem27 ' - Me.LayoutControlItem14.Control = Me.ComboBoxEdit3 - Me.LayoutControlItem14.Location = New System.Drawing.Point(457, 48) - Me.LayoutControlItem14.Name = "LayoutControlItem14" - Me.LayoutControlItem14.Size = New System.Drawing.Size(493, 24) - Me.LayoutControlItem14.Text = "Attribut" - Me.LayoutControlItem14.TextSize = New System.Drawing.Size(70, 13) + Me.LayoutControlItem27.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem27.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem27.Control = Me.TextEdit2 + Me.LayoutControlItem27.Enabled = False + Me.LayoutControlItem27.Location = New System.Drawing.Point(0, 210) + Me.LayoutControlItem27.Name = "LayoutControlItem27" + Me.LayoutControlItem27.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem27.Size = New System.Drawing.Size(967, 97) + Me.LayoutControlItem27.Text = "Erstellt wann" + Me.LayoutControlItem27.TextSize = New System.Drawing.Size(66, 13) ' - 'LayoutControlItem13 + 'LayoutControlItem29 ' - Me.LayoutControlItem13.Control = Me.ComboBoxEdit4 - Me.LayoutControlItem13.Location = New System.Drawing.Point(0, 96) - Me.LayoutControlItem13.Name = "LayoutControlItem13" - Me.LayoutControlItem13.Size = New System.Drawing.Size(262, 24) - Me.LayoutControlItem13.Text = "Datentyp" - Me.LayoutControlItem13.TextSize = New System.Drawing.Size(70, 13) + Me.LayoutControlItem29.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem29.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem29.Control = Me.TextEditChangedWho_ManIndex + Me.LayoutControlItem29.Enabled = False + Me.LayoutControlItem29.Location = New System.Drawing.Point(434, 180) + Me.LayoutControlItem29.Name = "LayoutControlItem29" + Me.LayoutControlItem29.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem29.Size = New System.Drawing.Size(533, 30) + Me.LayoutControlItem29.Text = "Geändert wer" + Me.LayoutControlItem29.TextSize = New System.Drawing.Size(66, 13) + ' + 'EmptySpaceItem2 + ' + Me.EmptySpaceItem2.AllowHotTrack = False + Me.EmptySpaceItem2.Location = New System.Drawing.Point(381, 0) + Me.EmptySpaceItem2.Name = "EmptySpaceItem2" + Me.EmptySpaceItem2.Size = New System.Drawing.Size(586, 30) + Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlItem16 + ' + Me.LayoutControlItem16.Control = Me.WD_INDEXComboBox + Me.LayoutControlItem16.Location = New System.Drawing.Point(472, 30) + Me.LayoutControlItem16.Name = "LayoutControlItem16" + Me.LayoutControlItem16.Size = New System.Drawing.Size(495, 30) + Me.LayoutControlItem16.Text = "Attribut" + Me.LayoutControlItem16.TextSize = New System.Drawing.Size(66, 13) + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.ACTIVECheckBox + Me.LayoutControlItem7.Location = New System.Drawing.Point(278, 0) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Size = New System.Drawing.Size(103, 30) + Me.LayoutControlItem7.Text = "ACTIVE:" + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem7.TextVisible = False + ' + 'LayoutControlItem31 + ' + Me.LayoutControlItem31.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem31.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem31.Control = Me.CONNECTION_IDTextBox + Me.LayoutControlItem31.Location = New System.Drawing.Point(0, 156) + Me.LayoutControlItem31.Name = "LayoutControlItem31" + Me.LayoutControlItem31.Size = New System.Drawing.Size(108, 24) + Me.LayoutControlItem31.Text = "ConnId:" + Me.LayoutControlItem31.TextSize = New System.Drawing.Size(66, 13) + ' + 'LayoutControlItem18 + ' + Me.LayoutControlItem18.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem18.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem18.Control = Me.SQL_RESULTTextBox + Me.LayoutControlItem18.Location = New System.Drawing.Point(108, 156) + Me.LayoutControlItem18.Name = "LayoutControlItem18" + Me.LayoutControlItem18.Size = New System.Drawing.Size(859, 24) + Me.LayoutControlItem18.Text = "SQL:" + Me.LayoutControlItem18.TextSize = New System.Drawing.Size(66, 13) ' 'ListBoxAutoIndexe ' @@ -1044,7 +1185,7 @@ Partial Class frmAdmin_Globix Me.ListBoxAutoIndexe.FormattingEnabled = True Me.ListBoxAutoIndexe.Location = New System.Drawing.Point(0, 0) Me.ListBoxAutoIndexe.Name = "ListBoxAutoIndexe" - Me.ListBoxAutoIndexe.Size = New System.Drawing.Size(191, 206) + Me.ListBoxAutoIndexe.Size = New System.Drawing.Size(191, 327) Me.ListBoxAutoIndexe.TabIndex = 0 Me.ListBoxAutoIndexe.ValueMember = "GUID" ' @@ -1054,7 +1195,7 @@ Partial Class frmAdmin_Globix Me.XtraTabPageRework.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPageRework.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.XtraTabPageRework.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) Me.XtraTabPageRework.Name = "XtraTabPageRework" - Me.XtraTabPageRework.Size = New System.Drawing.Size(1178, 206) + Me.XtraTabPageRework.Size = New System.Drawing.Size(1178, 327) Me.XtraTabPageRework.Text = "Nachbearbeitungsfunktionen manueller Index" ' 'LayoutControlRework @@ -1080,33 +1221,357 @@ Partial Class frmAdmin_Globix Me.XtraTabPageAutoIndexe.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPageAutoIndexe.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.XtraTabPageAutoIndexe.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) Me.XtraTabPageAutoIndexe.Name = "XtraTabPageAutoIndexe" - Me.XtraTabPageAutoIndexe.Size = New System.Drawing.Size(1178, 206) - Me.XtraTabPageAutoIndexe.Text = "automatische/Feste Indexe" + Me.XtraTabPageAutoIndexe.Size = New System.Drawing.Size(1178, 327) + Me.XtraTabPageAutoIndexe.Text = "automatische/Feste Attribute" ' 'LayoutControlAutoIndexe ' + Me.LayoutControlAutoIndexe.Controls.Add(Me.ListBox1) + Me.LayoutControlAutoIndexe.Controls.Add(Me.CONNECTION_IDTextBox1) + Me.LayoutControlAutoIndexe.Controls.Add(Me.SQL_RESULTTextBox1) + Me.LayoutControlAutoIndexe.Controls.Add(Me.SQL_ACTIVECheckBox) + Me.LayoutControlAutoIndexe.Controls.Add(Me.VALUETextBox) + Me.LayoutControlAutoIndexe.Controls.Add(Me.INDEXNAMEComboBox) + Me.LayoutControlAutoIndexe.Controls.Add(Me.ACTIVECheckBox1) + Me.LayoutControlAutoIndexe.Controls.Add(Me.SEQUENCENumericUpDown1) + Me.LayoutControlAutoIndexe.Controls.Add(Me.GUID_AUTOATTRIBUTETextBox) + Me.LayoutControlAutoIndexe.Controls.Add(Me.SimpleButton1) + Me.LayoutControlAutoIndexe.Controls.Add(Me.ComboBoxEdit1) + Me.LayoutControlAutoIndexe.Controls.Add(Me.SimpleButton2) + Me.LayoutControlAutoIndexe.Controls.Add(Me.ADDED_WHOTextBoxAutoAttribut) + Me.LayoutControlAutoIndexe.Controls.Add(Me.TextEdit3) + Me.LayoutControlAutoIndexe.Controls.Add(Me.CHANGED_WHOTextEditAutoAttribut) + Me.LayoutControlAutoIndexe.Controls.Add(Me.TextEdit5) Me.LayoutControlAutoIndexe.Dock = System.Windows.Forms.DockStyle.Fill Me.LayoutControlAutoIndexe.Location = New System.Drawing.Point(0, 0) Me.LayoutControlAutoIndexe.Name = "LayoutControlAutoIndexe" Me.LayoutControlAutoIndexe.Root = Me.LayoutControlGroup2 - Me.LayoutControlAutoIndexe.Size = New System.Drawing.Size(1178, 206) + Me.LayoutControlAutoIndexe.Size = New System.Drawing.Size(1178, 327) Me.LayoutControlAutoIndexe.TabIndex = 0 Me.LayoutControlAutoIndexe.Text = "LayoutControl1" ' + 'SQL_RESULTTextBox1 + ' + Me.SQL_RESULTTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "SQL_RESULT", True)) + Me.SQL_RESULTTextBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SQL_RESULTTextBox1.Location = New System.Drawing.Point(433, 142) + Me.SQL_RESULTTextBox1.Name = "SQL_RESULTTextBox1" + Me.SQL_RESULTTextBox1.ReadOnly = True + Me.SQL_RESULTTextBox1.Size = New System.Drawing.Size(730, 20) + Me.SQL_RESULTTextBox1.TabIndex = 14 + ' + 'TBDD_INDEX_AUTOMBindingSource + ' + Me.TBDD_INDEX_AUTOMBindingSource.DataMember = "TBDD_INDEX_AUTOM" + Me.TBDD_INDEX_AUTOMBindingSource.DataSource = Me.GlobixDataset + ' + 'SQL_ACTIVECheckBox + ' + Me.SQL_ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_AUTOMBindingSource, "SQL_ACTIVE", True)) + Me.SQL_ACTIVECheckBox.Location = New System.Drawing.Point(202, 113) + Me.SQL_ACTIVECheckBox.Name = "SQL_ACTIVECheckBox" + Me.SQL_ACTIVECheckBox.Size = New System.Drawing.Size(111, 20) + Me.SQL_ACTIVECheckBox.TabIndex = 12 + Me.SQL_ACTIVECheckBox.Text = "Attribut per SQL?" + Me.SQL_ACTIVECheckBox.UseVisualStyleBackColor = True + ' + 'VALUETextBox + ' + Me.VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "VALUE", True)) + Me.VALUETextBox.Location = New System.Drawing.Point(371, 76) + Me.VALUETextBox.Name = "VALUETextBox" + Me.VALUETextBox.Size = New System.Drawing.Size(208, 20) + Me.VALUETextBox.TabIndex = 9 + ' + 'INDEXNAMEComboBox + ' + Me.INDEXNAMEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "INDEXNAME", True)) + Me.INDEXNAMEComboBox.DataSource = Me.VWIDB_BE_ATTRIBUTEBindingSource + Me.INDEXNAMEComboBox.DisplayMember = "ATTR_TITLE" + Me.INDEXNAMEComboBox.FormattingEnabled = True + Me.INDEXNAMEComboBox.Location = New System.Drawing.Point(371, 45) + Me.INDEXNAMEComboBox.Name = "INDEXNAMEComboBox" + Me.INDEXNAMEComboBox.Size = New System.Drawing.Size(308, 21) + Me.INDEXNAMEComboBox.TabIndex = 8 + ' + 'ACTIVECheckBox1 + ' + Me.ACTIVECheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_AUTOMBindingSource, "ACTIVE", True)) + Me.ACTIVECheckBox1.Location = New System.Drawing.Point(517, 12) + Me.ACTIVECheckBox1.Name = "ACTIVECheckBox1" + Me.ACTIVECheckBox1.Size = New System.Drawing.Size(649, 20) + Me.ACTIVECheckBox1.TabIndex = 7 + Me.ACTIVECheckBox1.Text = "Aktiv" + Me.ACTIVECheckBox1.UseVisualStyleBackColor = True + ' + 'SEQUENCENumericUpDown1 + ' + Me.SEQUENCENumericUpDown1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_INDEX_AUTOMBindingSource, "SEQUENCE", True)) + Me.SEQUENCENumericUpDown1.Location = New System.Drawing.Point(469, 15) + Me.SEQUENCENumericUpDown1.Name = "SEQUENCENumericUpDown1" + Me.SEQUENCENumericUpDown1.Size = New System.Drawing.Size(41, 22) + Me.SEQUENCENumericUpDown1.TabIndex = 6 + ' + 'GUID_AUTOATTRIBUTETextBox + ' + Me.GUID_AUTOATTRIBUTETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "GUID", True)) + Me.GUID_AUTOATTRIBUTETextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GUID_AUTOATTRIBUTETextBox.Location = New System.Drawing.Point(371, 15) + Me.GUID_AUTOATTRIBUTETextBox.Name = "GUID_AUTOATTRIBUTETextBox" + Me.GUID_AUTOATTRIBUTETextBox.ReadOnly = True + Me.GUID_AUTOATTRIBUTETextBox.Size = New System.Drawing.Size(20, 20) + Me.GUID_AUTOATTRIBUTETextBox.TabIndex = 5 + ' + 'SimpleButton1 + ' + Me.SimpleButton1.Appearance.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.SimpleButton1.Appearance.Options.UseForeColor = True + Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton1.Location = New System.Drawing.Point(586, 73) + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.Size = New System.Drawing.Size(109, 36) + Me.SimpleButton1.StyleController = Me.LayoutControlAutoIndexe + Me.SimpleButton1.TabIndex = 10 + Me.SimpleButton1.Text = "Übernehmen" + ' + 'ComboBoxEdit1 + ' + Me.ComboBoxEdit1.Location = New System.Drawing.Point(868, 76) + Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1 + Me.ComboBoxEdit1.Name = "ComboBoxEdit1" + Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.ComboBoxEdit1.Properties.Items.AddRange(New Object() {"Dateiname (mit Endung)", "Dateiname (ohne Endung)", "Dateiendung", "Datei Erstelldatum", "Datei Erstellt wer", "Aktuelles Datum (DD.MM.YYYY)", "Username", "Usercode"}) + Me.ComboBoxEdit1.Size = New System.Drawing.Size(295, 20) + Me.ComboBoxEdit1.StyleController = Me.LayoutControlAutoIndexe + Me.ComboBoxEdit1.TabIndex = 11 + ' + 'SimpleButton2 + ' + Me.SimpleButton2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.editdatasource + Me.SimpleButton2.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.SimpleButton2.Location = New System.Drawing.Point(317, 113) + Me.SimpleButton2.Name = "SimpleButton2" + Me.SimpleButton2.Size = New System.Drawing.Size(849, 22) + Me.SimpleButton2.StyleController = Me.LayoutControlAutoIndexe + Me.SimpleButton2.TabIndex = 13 + Me.SimpleButton2.Text = "SQL Konfiguration" + ' + 'ADDED_WHOTextBoxAutoAttribut + ' + Me.ADDED_WHOTextBoxAutoAttribut.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBoxAutoAttribut.Enabled = False + Me.ADDED_WHOTextBoxAutoAttribut.Location = New System.Drawing.Point(368, 169) + Me.ADDED_WHOTextBoxAutoAttribut.MenuManager = Me.RibbonControl1 + Me.ADDED_WHOTextBoxAutoAttribut.Name = "ADDED_WHOTextBoxAutoAttribut" + Me.ADDED_WHOTextBoxAutoAttribut.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOTextBoxAutoAttribut.Properties.Appearance.Options.UseFont = True + Me.ADDED_WHOTextBoxAutoAttribut.Size = New System.Drawing.Size(314, 20) + Me.ADDED_WHOTextBoxAutoAttribut.StyleController = Me.LayoutControlAutoIndexe + Me.ADDED_WHOTextBoxAutoAttribut.TabIndex = 19 + ' + 'TextEdit3 + ' + Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "ADDED_WHEN", True)) + Me.TextEdit3.Enabled = False + Me.TextEdit3.Location = New System.Drawing.Point(368, 193) + Me.TextEdit3.MenuManager = Me.RibbonControl1 + Me.TextEdit3.Name = "TextEdit3" + Me.TextEdit3.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextEdit3.Properties.Appearance.Options.UseFont = True + Me.TextEdit3.Size = New System.Drawing.Size(314, 20) + Me.TextEdit3.StyleController = Me.LayoutControlAutoIndexe + Me.TextEdit3.TabIndex = 20 + ' + 'CHANGED_WHOTextEditAutoAttribut + ' + Me.CHANGED_WHOTextEditAutoAttribut.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextEditAutoAttribut.EditValue = "" + Me.CHANGED_WHOTextEditAutoAttribut.Location = New System.Drawing.Point(852, 169) + Me.CHANGED_WHOTextEditAutoAttribut.MenuManager = Me.RibbonControl1 + Me.CHANGED_WHOTextEditAutoAttribut.Name = "CHANGED_WHOTextEditAutoAttribut" + Me.CHANGED_WHOTextEditAutoAttribut.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOTextEditAutoAttribut.Properties.Appearance.Options.UseFont = True + Me.CHANGED_WHOTextEditAutoAttribut.Size = New System.Drawing.Size(314, 20) + Me.CHANGED_WHOTextEditAutoAttribut.StyleController = Me.LayoutControlAutoIndexe + Me.CHANGED_WHOTextEditAutoAttribut.TabIndex = 21 + ' + 'TextEdit5 + ' + Me.TextEdit5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CHANGED_WHEN", True)) + Me.TextEdit5.Location = New System.Drawing.Point(852, 193) + Me.TextEdit5.MenuManager = Me.RibbonControl1 + Me.TextEdit5.Name = "TextEdit5" + Me.TextEdit5.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextEdit5.Properties.Appearance.Options.UseFont = True + Me.TextEdit5.Size = New System.Drawing.Size(314, 20) + Me.TextEdit5.StyleController = Me.LayoutControlAutoIndexe + Me.TextEdit5.TabIndex = 22 + ' 'LayoutControlGroup2 ' Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.LayoutControlGroup2.GroupBordersVisible = False + Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem15, Me.LayoutControlItem23, Me.LayoutControlItem33, Me.LayoutControlItem34, Me.LayoutControlItem35, Me.LayoutControlItem14, Me.LayoutControlItem40, Me.LayoutControlItem37, Me.LayoutControlItem39, Me.LayoutControlItem42, Me.EmptySpaceItem4, Me.ADDED_WHOAutoAttribut, Me.LayoutControlItem41, Me.CHANGED_WHOItemAutoAttribut, Me.LayoutControlItem43, Me.LayoutControlItem45, Me.LayoutControlItem44}) Me.LayoutControlGroup2.Name = "LayoutControlGroup2" - Me.LayoutControlGroup2.Size = New System.Drawing.Size(1178, 206) + Me.LayoutControlGroup2.Size = New System.Drawing.Size(1178, 327) Me.LayoutControlGroup2.TextVisible = False ' + 'LayoutControlItem15 + ' + Me.LayoutControlItem15.Control = Me.GUID_AUTOATTRIBUTETextBox + Me.LayoutControlItem15.Location = New System.Drawing.Point(190, 0) + Me.LayoutControlItem15.Name = "LayoutControlItem15" + Me.LayoutControlItem15.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem15.Size = New System.Drawing.Size(196, 30) + Me.LayoutControlItem15.Text = "ID" + Me.LayoutControlItem15.TextSize = New System.Drawing.Size(163, 13) + ' + 'LayoutControlItem23 + ' + Me.LayoutControlItem23.Control = Me.SEQUENCENumericUpDown1 + Me.LayoutControlItem23.Location = New System.Drawing.Point(386, 0) + Me.LayoutControlItem23.Name = "LayoutControlItem23" + Me.LayoutControlItem23.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem23.Size = New System.Drawing.Size(119, 30) + Me.LayoutControlItem23.Text = "Reihenfolge" + Me.LayoutControlItem23.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.AutoSize + Me.LayoutControlItem23.TextSize = New System.Drawing.Size(63, 13) + Me.LayoutControlItem23.TextToControlDistance = 5 + ' + 'LayoutControlItem33 + ' + Me.LayoutControlItem33.Control = Me.ACTIVECheckBox1 + Me.LayoutControlItem33.Location = New System.Drawing.Point(505, 0) + Me.LayoutControlItem33.Name = "LayoutControlItem33" + Me.LayoutControlItem33.Size = New System.Drawing.Size(653, 30) + Me.LayoutControlItem33.Text = "Aktiv" + Me.LayoutControlItem33.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem33.TextVisible = False + ' + 'LayoutControlItem34 + ' + Me.LayoutControlItem34.Control = Me.INDEXNAMEComboBox + Me.LayoutControlItem34.Location = New System.Drawing.Point(190, 30) + Me.LayoutControlItem34.Name = "LayoutControlItem34" + Me.LayoutControlItem34.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem34.Size = New System.Drawing.Size(484, 31) + Me.LayoutControlItem34.Text = "Attribut" + Me.LayoutControlItem34.TextSize = New System.Drawing.Size(163, 13) + ' + 'LayoutControlItem35 + ' + Me.LayoutControlItem35.AppearanceItemCaption.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.LayoutControlItem35.AppearanceItemCaption.Options.UseForeColor = True + Me.LayoutControlItem35.Control = Me.VALUETextBox + Me.LayoutControlItem35.Location = New System.Drawing.Point(190, 61) + Me.LayoutControlItem35.Name = "LayoutControlItem35" + Me.LayoutControlItem35.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem35.Size = New System.Drawing.Size(384, 40) + Me.LayoutControlItem35.Text = "Fester oder Automatischer Wert" + Me.LayoutControlItem35.TextSize = New System.Drawing.Size(163, 13) + ' + 'LayoutControlItem14 + ' + Me.LayoutControlItem14.Control = Me.SimpleButton1 + Me.LayoutControlItem14.Location = New System.Drawing.Point(574, 61) + Me.LayoutControlItem14.Name = "LayoutControlItem14" + Me.LayoutControlItem14.Size = New System.Drawing.Size(113, 40) + Me.LayoutControlItem14.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem14.TextVisible = False + ' + 'LayoutControlItem40 + ' + Me.LayoutControlItem40.Control = Me.SQL_ACTIVECheckBox + Me.LayoutControlItem40.Location = New System.Drawing.Point(190, 101) + Me.LayoutControlItem40.Name = "LayoutControlItem40" + Me.LayoutControlItem40.Size = New System.Drawing.Size(115, 56) + Me.LayoutControlItem40.Text = "SQL ACTIVE:" + Me.LayoutControlItem40.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem40.TextVisible = False + ' + 'LayoutControlItem37 + ' + Me.LayoutControlItem37.AppearanceItemCaption.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.LayoutControlItem37.AppearanceItemCaption.Options.UseForeColor = True + Me.LayoutControlItem37.Control = Me.ComboBoxEdit1 + Me.LayoutControlItem37.Location = New System.Drawing.Point(687, 61) + Me.LayoutControlItem37.Name = "LayoutControlItem37" + Me.LayoutControlItem37.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem37.Size = New System.Drawing.Size(471, 40) + Me.LayoutControlItem37.Text = "Variablen" + Me.LayoutControlItem37.TextSize = New System.Drawing.Size(163, 13) + ' + 'LayoutControlItem39 + ' + Me.LayoutControlItem39.Control = Me.SimpleButton2 + Me.LayoutControlItem39.Location = New System.Drawing.Point(305, 101) + Me.LayoutControlItem39.Name = "LayoutControlItem39" + Me.LayoutControlItem39.Size = New System.Drawing.Size(853, 26) + Me.LayoutControlItem39.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem39.TextVisible = False + ' + 'LayoutControlItem42 + ' + Me.LayoutControlItem42.Control = Me.SQL_RESULTTextBox1 + Me.LayoutControlItem42.Location = New System.Drawing.Point(394, 127) + Me.LayoutControlItem42.Name = "LayoutControlItem42" + Me.LayoutControlItem42.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem42.Size = New System.Drawing.Size(764, 30) + Me.LayoutControlItem42.Text = "SQL" + Me.LayoutControlItem42.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.AutoSize + Me.LayoutControlItem42.TextSize = New System.Drawing.Size(19, 13) + Me.LayoutControlItem42.TextToControlDistance = 5 + ' + 'EmptySpaceItem4 + ' + Me.EmptySpaceItem4.AllowHotTrack = False + Me.EmptySpaceItem4.Location = New System.Drawing.Point(674, 30) + Me.EmptySpaceItem4.Name = "EmptySpaceItem4" + Me.EmptySpaceItem4.Size = New System.Drawing.Size(484, 31) + Me.EmptySpaceItem4.TextSize = New System.Drawing.Size(0, 0) + ' + 'ADDED_WHOAutoAttribut + ' + Me.ADDED_WHOAutoAttribut.Control = Me.ADDED_WHOTextBoxAutoAttribut + Me.ADDED_WHOAutoAttribut.Location = New System.Drawing.Point(190, 157) + Me.ADDED_WHOAutoAttribut.Name = "ADDED_WHOAutoAttribut" + Me.ADDED_WHOAutoAttribut.Size = New System.Drawing.Size(484, 24) + Me.ADDED_WHOAutoAttribut.Text = "Erstellt wer" + Me.ADDED_WHOAutoAttribut.TextSize = New System.Drawing.Size(163, 13) + ' + 'LayoutControlItem41 + ' + Me.LayoutControlItem41.Control = Me.TextEdit3 + Me.LayoutControlItem41.Location = New System.Drawing.Point(190, 181) + Me.LayoutControlItem41.Name = "LayoutControlItem41" + Me.LayoutControlItem41.Size = New System.Drawing.Size(484, 126) + Me.LayoutControlItem41.Text = "Erstellt wann" + Me.LayoutControlItem41.TextSize = New System.Drawing.Size(163, 13) + ' + 'CHANGED_WHOItemAutoAttribut + ' + Me.CHANGED_WHOItemAutoAttribut.Control = Me.CHANGED_WHOTextEditAutoAttribut + Me.CHANGED_WHOItemAutoAttribut.Location = New System.Drawing.Point(674, 157) + Me.CHANGED_WHOItemAutoAttribut.Name = "CHANGED_WHOItemAutoAttribut" + Me.CHANGED_WHOItemAutoAttribut.Size = New System.Drawing.Size(484, 24) + Me.CHANGED_WHOItemAutoAttribut.Text = "Geändert wer" + Me.CHANGED_WHOItemAutoAttribut.TextSize = New System.Drawing.Size(163, 13) + ' + 'LayoutControlItem43 + ' + Me.LayoutControlItem43.Control = Me.TextEdit5 + Me.LayoutControlItem43.Location = New System.Drawing.Point(674, 181) + Me.LayoutControlItem43.Name = "LayoutControlItem43" + Me.LayoutControlItem43.Size = New System.Drawing.Size(484, 126) + Me.LayoutControlItem43.Text = "Geändert wann" + Me.LayoutControlItem43.TextSize = New System.Drawing.Size(163, 13) + ' 'XtraTabPageDynamicFolder ' Me.XtraTabPageDynamicFolder.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPageDynamicFolder.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.XtraTabPageDynamicFolder.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) Me.XtraTabPageDynamicFolder.Name = "XtraTabPageDynamicFolder" - Me.XtraTabPageDynamicFolder.Size = New System.Drawing.Size(1178, 206) + Me.XtraTabPageDynamicFolder.Size = New System.Drawing.Size(1178, 327) Me.XtraTabPageDynamicFolder.Text = "Dynamischer Ordnerpfad" ' 'XtraTabPageAutoSelect @@ -1114,18 +1579,89 @@ Partial Class frmAdmin_Globix Me.XtraTabPageAutoSelect.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPageAutoSelect.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.XtraTabPageAutoSelect.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) Me.XtraTabPageAutoSelect.Name = "XtraTabPageAutoSelect" - Me.XtraTabPageAutoSelect.Size = New System.Drawing.Size(1178, 206) + Me.XtraTabPageAutoSelect.Size = New System.Drawing.Size(1178, 327) Me.XtraTabPageAutoSelect.Text = "Automatische Profilauswahl" ' 'TBDD_INDEX_MANTableAdapter ' Me.TBDD_INDEX_MANTableAdapter.ClearBeforeFill = True ' + 'VWIDB_OBJECT_STORETableAdapter + ' + Me.VWIDB_OBJECT_STORETableAdapter.ClearBeforeFill = True + ' + 'VWIDB_BE_ATTRIBUTETableAdapter + ' + Me.VWIDB_BE_ATTRIBUTETableAdapter.ClearBeforeFill = True + ' + 'TBDD_INDEX_AUTOMTableAdapter + ' + Me.TBDD_INDEX_AUTOMTableAdapter.ClearBeforeFill = True + ' + 'RadioGroup1 + ' + Me.RadioGroup1.Location = New System.Drawing.Point(178, 85) + Me.RadioGroup1.MenuManager = Me.RibbonControl1 + Me.RadioGroup1.Name = "RadioGroup1" + Me.RadioGroup1.Size = New System.Drawing.Size(183, 230) + Me.RadioGroup1.TabIndex = 12 + ' + 'LayoutControlItem38 + ' + Me.LayoutControlItem38.Control = Me.RadioGroup1 + Me.LayoutControlItem38.Location = New System.Drawing.Point(0, 73) + Me.LayoutControlItem38.Name = "LayoutControlItem38" + Me.LayoutControlItem38.Size = New System.Drawing.Size(353, 234) + Me.LayoutControlItem38.TextSize = New System.Drawing.Size(163, 13) + ' + 'CONNECTION_IDTextBox1 + ' + Me.CONNECTION_IDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CONNECTION_ID", True)) + Me.CONNECTION_IDTextBox1.Enabled = False + Me.CONNECTION_IDTextBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CONNECTION_IDTextBox1.Location = New System.Drawing.Point(370, 142) + Me.CONNECTION_IDTextBox1.Name = "CONNECTION_IDTextBox1" + Me.CONNECTION_IDTextBox1.Size = New System.Drawing.Size(29, 20) + Me.CONNECTION_IDTextBox1.TabIndex = 23 + ' + 'LayoutControlItem45 + ' + Me.LayoutControlItem45.Control = Me.CONNECTION_IDTextBox1 + Me.LayoutControlItem45.Location = New System.Drawing.Point(305, 127) + Me.LayoutControlItem45.Name = "LayoutControlItem45" + Me.LayoutControlItem45.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem45.Size = New System.Drawing.Size(89, 30) + Me.LayoutControlItem45.Text = "Conn ID:" + Me.LayoutControlItem45.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.AutoSize + Me.LayoutControlItem45.TextSize = New System.Drawing.Size(45, 13) + Me.LayoutControlItem45.TextToControlDistance = 5 + ' + 'ListBox1 + ' + Me.ListBox1.DataSource = Me.TBDD_INDEX_AUTOMBindingSource + Me.ListBox1.DisplayMember = "INDEXNAME" + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.Location = New System.Drawing.Point(12, 12) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(186, 303) + Me.ListBox1.TabIndex = 24 + ' + 'LayoutControlItem44 + ' + Me.LayoutControlItem44.Control = Me.ListBox1 + Me.LayoutControlItem44.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem44.Name = "LayoutControlItem44" + Me.LayoutControlItem44.Size = New System.Drawing.Size(190, 307) + Me.LayoutControlItem44.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.AutoSize + Me.LayoutControlItem44.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem44.TextToControlDistance = 0 + Me.LayoutControlItem44.TextVisible = False + ' 'frmAdmin_Globix ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1212, 717) + Me.ClientSize = New System.Drawing.Size(1212, 787) Me.Controls.Add(Me.XtraTabControl1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) @@ -1143,72 +1679,99 @@ Partial Class frmAdmin_Globix Me.XtraTabPageProfile.ResumeLayout(False) CType(Me.LayoutControlProfile, System.ComponentModel.ISupportInitialize).EndInit() Me.LayoutControlProfile.ResumeLayout(False) + CType(Me.VWIDB_OBJECT_STOREBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEditErstelltWer.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEditGeandertWer.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TextEdit4.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.TextEdit13.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ComboBoxEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditNamenkonvention.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditBeschreibung.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditKurzname.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditBezeichnung.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditDoctypeID.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ComboBoxEditDupl_handling.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem28, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem32, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem36, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem20, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem26, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem25, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Filestore, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabControl2.ResumeLayout(False) Me.XtraTabPageManIndexe.ResumeLayout(False) CType(Me.LayoutControlManIndexe, System.ComponentModel.ISupportInitialize).EndInit() Me.LayoutControlManIndexe.ResumeLayout(False) - CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWIDB_BE_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEditAddedWho_ManIndex.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEditChangedWho_ManIndex.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit9.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit10.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit11.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TextEdit12.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ComboBoxEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ComboBoxEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem21, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem24, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem27, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem29, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem27, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem29, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem31, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabPageRework.ResumeLayout(False) CType(Me.LayoutControlRework, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabPageAutoIndexe.ResumeLayout(False) CType(Me.LayoutControlAutoIndexe, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControlAutoIndexe.ResumeLayout(False) + CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SEQUENCENumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ADDED_WHOTextBoxAutoAttribut.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CHANGED_WHOTextEditAutoAttribut.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem33, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem34, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem35, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem40, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem37, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem39, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem42, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ADDED_WHOAutoAttribut, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem41, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CHANGED_WHOItemAutoAttribut, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem43, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RadioGroup1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem38, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem45, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem44, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -1240,8 +1803,6 @@ Partial Class frmAdmin_Globix Friend WithEvents LayoutControlItem22 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem32 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem36 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton - Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl Friend WithEvents XtraTabPageManIndexe As DevExpress.XtraTab.XtraTabPage Friend WithEvents XtraTabPageRework As DevExpress.XtraTab.XtraTabPage @@ -1261,7 +1822,6 @@ Partial Class frmAdmin_Globix Friend WithEvents ListBoxAutoIndexe As ListBox Friend WithEvents TBDD_INDEX_MANBindingSource As BindingSource Friend WithEvents TBDD_INDEX_MANTableAdapter As GlobixDatasetTableAdapters.TBDD_INDEX_MANTableAdapter - Friend WithEvents SUGGESTIONCheckBox As CheckBox Friend WithEvents VKT_ADD_ITEMCheckBox As CheckBox Friend WithEvents VKT_PREVENT_MULTIPLE_VALUESCheckBox As CheckBox Friend WithEvents MULTISELECTCheckBox As CheckBox @@ -1272,21 +1832,18 @@ Partial Class frmAdmin_Globix Friend WithEvents LayoutControlItem19 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem21 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem23 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents TextEditAddedWho_ManIndex As DevExpress.XtraEditors.TextEdit Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit Friend WithEvents LayoutControlItem24 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem27 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents TextEditChangedWho_ManIndex As DevExpress.XtraEditors.TextEdit Friend WithEvents LayoutControlItem29 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit - Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit - Friend WithEvents TextEdit4 As DevExpress.XtraEditors.TextEdit - Friend WithEvents TextEdit6 As DevExpress.XtraEditors.TextEdit - Friend WithEvents TextEdit7 As DevExpress.XtraEditors.TextEdit - Friend WithEvents TextEdit8 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEditNamenkonvention As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEditBeschreibung As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEditKurzname As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEditBezeichnung As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEditDoctypeID As DevExpress.XtraEditors.TextEdit Friend WithEvents LayoutControlItem30 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem18 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem28 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem @@ -1294,21 +1851,69 @@ Partial Class frmAdmin_Globix Friend WithEvents TextEdit9 As DevExpress.XtraEditors.TextEdit Friend WithEvents TextEdit10 As DevExpress.XtraEditors.TextEdit Friend WithEvents TextEdit11 As DevExpress.XtraEditors.TextEdit - Friend WithEvents TextEdit12 As DevExpress.XtraEditors.TextEdit Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem15 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents TextEdit13 As DevExpress.XtraEditors.TextEdit - Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.ComboBoxEdit - Friend WithEvents LayoutControlItem25 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ComboBoxEditDupl_handling As DevExpress.XtraEditors.ComboBoxEdit Friend WithEvents LayoutControlItem26 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents SpinEdit1 As DevExpress.XtraEditors.SpinEdit Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents ComboBoxEdit2 As DevExpress.XtraEditors.ComboBoxEdit - Friend WithEvents Filestore As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents ComboBoxEdit3 As DevExpress.XtraEditors.ComboBoxEdit Friend WithEvents ComboBoxEdit4 As DevExpress.XtraEditors.ComboBoxEdit - Friend WithEvents LayoutControlItem14 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem13 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SEQUENCENumericUpDown As NumericUpDown + Friend WithEvents LayoutControlItem20 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents VWIDB_OBJECT_STOREBindingSource As BindingSource + Friend WithEvents VWIDB_OBJECT_STORETableAdapter As DSIDB_StammdatenTableAdapters.VWIDB_OBJECT_STORETableAdapter + Friend WithEvents IDB_OBJECT_STORE_IDComboBox As ComboBox + Friend WithEvents LayoutControlItem25 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents EmptySpaceItem2 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents WD_INDEXComboBox As ComboBox + Friend WithEvents LayoutControlItem16 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents VWIDB_BE_ATTRIBUTEBindingSource As BindingSource + Friend WithEvents VWIDB_BE_ATTRIBUTETableAdapter As DSIDB_StammdatenTableAdapters.VWIDB_BE_ATTRIBUTETableAdapter + Friend WithEvents SimpleButtonNameconvention As DevExpress.XtraEditors.SimpleButton + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem3 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents TBDD_INDEX_AUTOMBindingSource As BindingSource + Friend WithEvents TBDD_INDEX_AUTOMTableAdapter As GlobixDatasetTableAdapters.TBDD_INDEX_AUTOMTableAdapter + Friend WithEvents CONNECTION_IDTextBox As TextBox + Friend WithEvents SQL_RESULTTextBox As TextBox + Friend WithEvents LayoutControlItem31 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem18 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents VALUETextBox As TextBox + Friend WithEvents INDEXNAMEComboBox As ComboBox + Friend WithEvents ACTIVECheckBox1 As CheckBox + Friend WithEvents SEQUENCENumericUpDown1 As NumericUpDown + Friend WithEvents GUID_AUTOATTRIBUTETextBox As TextBox + Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents LayoutControlItem15 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem23 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem33 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem34 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem35 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem14 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem37 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents RadioGroup1 As DevExpress.XtraEditors.RadioGroup + Friend WithEvents LayoutControlItem38 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SQL_RESULTTextBox1 As TextBox + Friend WithEvents SQL_ACTIVECheckBox As CheckBox + Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents LayoutControlItem40 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem39 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem42 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem4 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents ADDED_WHOTextBoxAutoAttribut As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit + Friend WithEvents CHANGED_WHOTextEditAutoAttribut As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit5 As DevExpress.XtraEditors.TextEdit + Friend WithEvents ADDED_WHOAutoAttribut As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem41 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents CHANGED_WHOItemAutoAttribut As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem43 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents CONNECTION_IDTextBox1 As TextBox + Friend WithEvents LayoutControlItem45 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ListBox1 As ListBox + Friend WithEvents LayoutControlItem44 As DevExpress.XtraLayout.LayoutControlItem End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Globix.resx b/GUIs.ZooFlow/Administration/frmAdmin_Globix.resx index 3077aa35..081213f0 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Globix.resx +++ b/GUIs.ZooFlow/Administration/frmAdmin_Globix.resx @@ -117,6 +117,9 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + False + @@ -156,6 +159,9 @@ 350, 17 + + 350, 17 + 17, 17 @@ -168,33 +174,47 @@ 981, 17 + + 246, 56 + 1161, 17 - + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOwDAAAC77u/ + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABwFAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku - QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC - MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh - Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRWRpdERhdGFT - b3VyY2UiPg0KICAgIDxwYXRoIGQ9Ik00LDEwVjZjMC0yLjIsNC41LTQsMTAtNHMxMCwxLjgsMTAsNHY0 - YzAsMi4yLTQuNSw0LTEwLDRTNCwxMi4yLDQsMTB6IE0yNCwxOEwyNCwxOEMyNCwxOCwyNCwxOCwyNCwx - OCAgIEMyNCwxOCwyNCwxOCwyNCwxOHogTTE0LDIwYzUuNSwwLDEwLTEuOCwxMC00di00YzAsMi4yLTQu - NSw0LTEwLDRTNCwxNC4yLDQsMTJ2NEM0LDE4LjIsOC41LDIwLDE0LDIweiBNMTUuMiwyNmw0LjgtNC44 - ICAgYy0xLjcsMC41LTMuNywwLjgtNiwwLjhjLTUuNSwwLTEwLTEuOC0xMC00djRjMCwyLjIsNC41LDQs - MTAsNEMxNC40LDI2LDE0LjgsMjYsMTUuMiwyNnoiIGNsYXNzPSJZZWxsb3ciIC8+DQogICAgPHBhdGgg - ZD0iTTI5LDIzbC04LDhsLTQtNGw4LThMMjksMjN6IE0zMCwyMmwxLjctMS43YzAuNC0wLjQsMC40LTEs - MC0xLjNMMjksMTYuM2MtMC40LTAuNC0xLTAuNC0xLjMsMEwyNiwxOEwzMCwyMnogICAgTTE2LDI4djRo - NEwxNiwyOHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2Zz4L + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3 + RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm + aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iUmVuYW1lXzFfIj4NCiAgICA8 + cGF0aCBkPSJNMi4xLDE2aDIuMmwwLjYtMi4zaDMuMkw4LjgsMTZIMTFMNy44LDZINS40TDIuMSwxNnog + TTYuNCw4LjdjMC4xLTAuMywwLjEtMC42LDAuMS0wLjloMC4xICAgYzAsMC4zLDAuMSwwLjYsMC4xLDAu + OWwxLDMuM0g1LjRMNi40LDguN3ogTTE3LjUsMTAuNmMwLjYtMC4yLDEuMS0wLjUsMS41LTAuOWMwLjQt + MC40LDAuNi0wLjksMC42LTEuNGMwLTAuNy0wLjMtMS4zLTAuOS0xLjcgICBDMTguMSw2LjIsMTcuMSw2 + LDE1LjksNkgxMnY5LjlWMTZoNGMxLjIsMCwyLjItMC4yLDIuOS0wLjhDMTkuNywxNC42LDIwLDE0LDIw + LDEzYzAtMC42LTAuMi0xLjItMC43LTEuNiAgIEMxOC45LDExLDE4LjMsMTAuNywxNy41LDEwLjZ6IE0x + NC40LDcuN2gwLjljMS4xLDAsMS43LDAuNCwxLjcsMS4xYzAsMC40LTAuMSwwLjctMC40LDAuOUMxNi40 + LDkuOSwxNiwxMCwxNS41LDEwaC0xLjFWNy43eiAgICBNMTcsMTMuOGMtMC4zLDAuMi0wLjgsMC40LTEu + MywwLjRoLTEuM3YtMi42aDEuM2MwLjUsMCwwLjksMC4xLDEuMywwLjNjMC4zLDAuMiwwLjUsMC42LDAu + NSwwLjlDMTcuNSwxMy4zLDE3LjQsMTMuNiwxNywxMy44eiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxw + YXRoIGQ9Ik0yNywxOWwtOCw4bC00LTRsOC04TDI3LDE5eiBNMjgsMThsMS43LTEuN2MwLjQtMC40LDAu + NC0xLDAtMS4zTDI3LDEyLjNjLTAuNC0wLjQtMS0wLjQtMS4zLDBMMjQsMTRMMjgsMTh6ICAgIE0xNCwy + NHY0aDRMMTQsMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + 1161, 17 + + + 752, 56 + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z @@ -259,6 +279,32 @@ MC41LTAuMSwwLjctMC4yYzAuMi0wLjEsMC40LTAuMiwwLjYtMC41YzAuMi0wLjIsMC41LTAuNywxLTEu NEwyMSwyNC4zaC0xLjFsMC4zLTEuNCAgYzAuNi0wLjEsMS4yLTAuMywxLjctMC42SDIyLjV6IiBjbGFz cz0iQmx1ZSIgLz4NCjwvc3ZnPgs= + + + + 17, 95 + + + 17, 95 + + + 17, 95 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEACAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFycm93MUxlZnQiPg0KICAgIDxwb2x5Z29uIHBvaW50 + cz0iMjgsMTQgMTQsMTQgMTQsMTMuMyAxNCw2IDQsMTYgMTQsMjYgMTQsMTguNyAxNCwxOCAyOCwxOCAg + IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== @@ -328,7 +374,19 @@ QmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + 246, 56 + 17, 56 + + 502, 56 + + + 1004, 56 + + + 267, 95 + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Globix.vb b/GUIs.ZooFlow/Administration/frmAdmin_Globix.vb index b5e13d10..5f126db7 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Globix.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Globix.vb @@ -7,6 +7,7 @@ Public Class frmAdmin_Globix Public Property IsInsert As Boolean = False Implements IAdminForm.IsInsert Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey + Private Pages As ClassDetailPages Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False) ' Dieser Aufruf ist für den Designer erforderlich. @@ -18,11 +19,17 @@ 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 "DSIDB_Stammdaten.VWIDB_OBJECT_STORE". Sie können sie bei Bedarf verschieben oder entfernen. + InitializeBaseForm(My.LogConfig) Try TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey) TBDD_INDEX_MANTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString + Me.VWIDB_OBJECT_STORETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + Me.VWIDB_OBJECT_STORETableAdapter.Fill(Me.DSIDB_Stammdaten.VWIDB_OBJECT_STORE) + Me.VWIDB_BE_ATTRIBUTETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + Me.VWIDB_BE_ATTRIBUTETableAdapter.Fill(Me.DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, My.Application.User.Language) Load_TabData() ' Add Focus Handler to all controls in all LayoutControls @@ -30,7 +37,7 @@ Public Class frmAdmin_Globix Pages = New ClassDetailPages(My.LogConfig, Me, oLayoutControls) Pages.AddRange({ New ClassDetailPages.PrimaryPage(IsInsert) With { - .Name = "Profil", + .Name = "Profile Globix", .TabPage = XtraTabPageProfile, .BindingSource = TBDD_DOKUMENTARTBindingSource, .DataTable = GlobixDataset.TBDD_DOKUMENTART, @@ -38,17 +45,30 @@ Public Class frmAdmin_Globix .ChangedWhoEdit = TextEditGeandertWer }, New ClassDetailPages.DetailPage With { - .Name = "ManIndexe", + .Name = "Manual Attributes", .TabPage = XtraTabPageManIndexe, .BindingSource = TBDD_INDEX_MANBindingSource, .DataTable = GlobixDataset.TBDD_INDEX_MAN, .AddedWhoEdit = TextEditAddedWho_ManIndex, .ChangedWhoEdit = TextEditChangedWho_ManIndex + }, + New ClassDetailPages.DetailPage With { + .Name = "Auto Attributes", + .TabPage = XtraTabPageAutoIndexe, + .BindingSource = TBDD_INDEX_AUTOMBindingSource, + .DataTable = GlobixDataset.TBDD_INDEX_AUTOM, + .AddedWhoEdit = ADDED_WHOTextBoxAutoAttribut, + .ChangedWhoEdit = CHANGED_WHOTextEditAutoAttribut } }) Pages.PrepareLoad() AddHandler Pages.CurrentPage_Changed, AddressOf CurrentPage_Changed + If IsInsert Then + TextEditErstelltWer.EditValue = My.Application.User.UserName + Else + TextEditChangedWho_ManIndex.EditValue = My.Application.User.UserName + End If Catch ex As Exception ShowErrorMessage(ex) End Try @@ -100,45 +120,119 @@ Public Class frmAdmin_Globix Private Sub XtraTabControl1_Click(sender As Object, e As EventArgs) Handles XtraTabControl1.Click End Sub + Private Sub BarButtonSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonSave.ItemClick + ResetMessages() + ' If Pages.PrepareSave() = True Then + Try + Dim oPage = Pages.Current + Select Case oPage.TabPage.Name + Case XtraTabPageProfile.Name + If IsInsert Then + Insert_Doctype() + Else + Update_Doctype() + End If - Private Sub SUGGESTIONCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SUGGESTIONCheckBox.CheckedChanged - If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then - btneditSQLmanIndex.Enabled = True - Else - btneditSQLmanIndex.Enabled = False - End If - End Sub - Private Sub BarButtonSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonSave.ItemClick - ResetMessages() + Case XtraTabPageManIndexe.Name + Try + Save_manIndexe(oPage) + Load_INDEXMAN() + Catch ex As Exception - If Pages.PrepareSave() = True Then - Try - Dim oPage = Pages.Current + End Try + Case XtraTabPageAutoIndexe.Name + Save_AutoIndexe(oPage) + Load_Attribute_Auto() - Select Case oPage.TabPage.Name - Case XtraTabPageProfile.Name - TBDD_INDEX_MANTableAdapter.Update(oPage.DataTable) + End Select - Case XtraTabPageManIndexe.Name - TBDD_INDEX_MANTableAdapter.Update(oPage.DataTable) + oPage.IsInsert = False + ShowStatus($"{oPage.Name} saved!") + Catch ex As Exception + ShowErrorMessage(ex) + End Try + 'Else + ' ShowStatus("Keine Änderungen!") + 'End If + End Sub + Private Function Save_manIndexe(oPage As ClassDetailPages.DetailPage) As Boolean + Try + TBDD_INDEX_MANBindingSource.EndEdit() + If GlobixDataset.TBDD_INDEX_MAN.GetChanges() IsNot Nothing Then + If Pages.Current.IsInsert Then + TextEditAddedWho_ManIndex.Text = My.Application.User.UserName + Else + TextEditChangedWho_ManIndex.Text = My.Application.User.UserName + End If + TBDD_INDEX_MANBindingSource.EndEdit() + TBDD_INDEX_MANTableAdapter.Update(Pages.Current.DataTable) + End If + Return True + Catch ex As Exception + Return False + End Try + End Function + Private Function Save_AutoIndexe(oPage As ClassDetailPages.DetailPage) As Boolean + Try + TBDD_INDEX_AUTOMBindingSource.EndEdit() + If GlobixDataset.TBDD_INDEX_AUTOM.GetChanges() IsNot Nothing Then + If Pages.Current.IsInsert Then + TextEditAddedWho_ManIndex.Text = My.Application.User.UserName + Else + TextEditChangedWho_ManIndex.Text = My.Application.User.UserName + End If + TBDD_INDEX_AUTOMBindingSource.EndEdit() + TBDD_INDEX_AUTOMTableAdapter.Update(Pages.Current.DataTable) + End If + Return True + Catch ex As Exception + Return False + End Try + End Function - End Select + Private Function Insert_Doctype() As Boolean + Try + Dim oIns = $"INSERT INTO [TBDD_DOKUMENTART] ([BEZEICHNUNG] ,[OBJEKTTYP] ,[EINGANGSART_ID] ,[KURZNAME] ,[ZIEL_PFAD] ,[BESCHREIBUNG] + ,[WINDREAM_DIRECT] ,[FOLDER_FOR_INDEX] ,[DUPLICATE_HANDLING],[AKTIV],[LANGUAGE], + [SEQUENCE],[NAMENKONVENTION],[ERSTELLTWER],IDB_OBJECT_STORE_ID) VALUES + ('{TextEditBezeichnung.Text}','IDB_DRIVEN',1,'{TextEditKurzname.Text}','IDB_STORE','{TextEditBeschreibung.Text}' + ,'False','','{ComboBoxEditDupl_handling.EditValue}' ,'{AKTIVCheckBox.Checked}','{My.Application.User.Language}' + , {SEQUENCENumericUpDown.Value},'{TextEditNamenkonvention.Text}','{My.Application.User.UserName}',{IDB_OBJECT_STORE_IDComboBox.SelectedValue})" + If My.DatabaseECM.ExecuteNonQuery(oIns) = True Then + 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) + IsInsert = False + TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey) + Return True + Else + Return False + End If + Catch ex As Exception + ShowErrorMessage(ex) + Return False + End Try - oPage.IsInsert = False + End Function + Private Function Update_Doctype() As Boolean + Try + Dim oUpd = $"UPDATE TBDD_DOKUMENTART SET [BEZEICHNUNG] = '{TextEditBezeichnung.Text}' ,[KURZNAME] = '{TextEditKurzname.Text}' ,[BESCHREIBUNG] = '{TextEditBeschreibung.Text}' + ,[DUPLICATE_HANDLING] = '{ComboBoxEditDupl_handling.EditValue}',[AKTIV] = '{AKTIVCheckBox.Checked}',[SEQUENCE] = {SEQUENCENumericUpDown.Value} + ,[NAMENKONVENTION] = '{TextEditNamenkonvention.Text}',[GEANDERTWER] = '{My.Application.User.UserName}',IDB_OBJECT_STORE_ID = {IDB_OBJECT_STORE_IDComboBox.SelectedValue} WHERE GUID = {TextEditDoctypeID.Text}" - ShowStatus($"{oPage.Name} gespeichert!") - Catch ex As Exception - ShowErrorMessage(ex) - End Try - Else - ShowStatus("Keine Änderungen!") - End If - End Sub + Return My.DatabaseECM.ExecuteNonQuery(oUpd) + Catch ex As Exception + ShowErrorMessage(ex) + Return False + End Try + + End Function Private Sub BarButtonNew_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonNew.ItemClick Pages.Current.IsInsert = True @@ -152,11 +246,95 @@ Public Class frmAdmin_Globix End If If oPage.IsPrimary = False Then - oPage.DataTable.Columns.Item("DOK_ID").DefaultValue = PrimaryKey + Select Case oPage.TabPage.Name + Case XtraTabPageAutoIndexe.Name + oPage.DataTable.Columns.Item("DOCTYPE_ID").DefaultValue = PrimaryKey + Case Else + oPage.DataTable.Columns.Item("DOK_ID").DefaultValue = PrimaryKey + End Select + + oPage.DataTable.Columns.Item("ADDED_WHO").DefaultValue = My.Application.User.UserName End If + Select Case oPage.TabPage.Name + Case XtraTabPageProfile.Name + Case XtraTabPageManIndexe.Name + TextEditAddedWho_ManIndex.Text = My.Application.User.UserName + Case XtraTabPageAutoIndexe.Name + ADDED_WHOTextBoxAutoAttribut.Text = My.Application.User.UserName + End Select + Dim oNewRecord As DataRowView = oPage.BindingSource.AddNew() Return True End Function + + + + Private Sub btneditSQLmanIndex_Click(sender As Object, e As EventArgs) Handles btneditSQLmanIndex.Click + If Save_manIndexe(Pages.Current) = True Then + Dim oSQLbefore = SQL_RESULTTextBox.Text + Dim oForm As New frmSQLDesigner() With {.SQLCommand = SQL_RESULTTextBox.Text, .DesignType = "GI_ATTRIBUTE_MAN", .ConnectionID = CONNECTION_IDTextBox.Text} + Dim oResult = oForm.ShowDialog() + If oSQLbefore <> oForm.SQLCommand Then + CONNECTION_IDTextBox.Text = oForm.ConnectionID + SQL_RESULTTextBox.Text = oForm.SQLCommand + 'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@SQL_RESULT").Value = oForm.SQLCommand + 'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@CONNECTION_ID").Value = oForm.ConnectionID + TextEditChangedWho_ManIndex.Text = My.Application.User.UserName + End If + + End If + End Sub + + Private Sub SimpleButtonNameconvention_Click(sender As Object, e As EventArgs) Handles SimpleButtonNameconvention.Click + + Dim oForm As New frmGlobixNameconvention() With {.Nameconvention = TextEditNamenkonvention.Text, .DoctypeID = TextEditDoctypeID.Text} + Dim oResult = oForm.ShowDialog() + TextEditNamenkonvention.Text = oForm.Nameconvention + End Sub + + Private Sub Load_Attribute_Auto() + Try + Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.GlobixDataset.TBDD_INDEX_AUTOM, TextEditDoctypeID.Text) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + End Sub + + Private Sub XtraTabControl2_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl2.SelectedPageChanged + Dim oPage = Pages.GetDetailPage(e.Page) + + If oPage IsNot Nothing Then + Pages.Current = oPage + End If + Select Case oPage.TabPage.Name + Case XtraTabPageAutoIndexe.Name + Load_Attribute_Auto() + Case XtraTabPageManIndexe.Name + Load_INDEXMAN() + End Select + + End Sub + + Private Sub SimpleButton2_Click_1(sender As Object, e As EventArgs) Handles SimpleButton2.Click + If Save_AutoIndexe(Pages.Current) = True Then + Dim oSQLbefore = SQL_RESULTTextBox1.Text + Dim oForm As New frmSQLDesigner() With { + .SQLCommand = oSQLbefore, .DesignType = "GI_ATTRIBUTE_AUTO", + .ConnectionID = CONNECTION_IDTextBox1.Text, + .AutoAttributID = GUID_AUTOATTRIBUTETextBox.Text + } + Dim oResult = oForm.ShowDialog() + If oSQLbefore <> oForm.SQLCommand Then + CONNECTION_IDTextBox1.Text = oForm.ConnectionID + SQL_RESULTTextBox1.Text = oForm.SQLCommand + 'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@SQL_RESULT").Value = oForm.SQLCommand + 'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@CONNECTION_ID").Value = oForm.ConnectionID + CHANGED_WHOTextEditAutoAttribut.Text = My.Application.User.UserName + End If + + End If + End Sub End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb index c2973dce..9ac5dba8 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb @@ -48,7 +48,7 @@ Partial Class frmAdmin_IDBAttribute Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit() Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit() Me.ComboBoxEdit1 = New DevExpress.XtraEditors.LookUpEdit() - Me.TBIDB_ATTRIBUTE_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBWH_ATTRIBUTE_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() @@ -63,7 +63,7 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() Me.VWIDB_BE_ATTRIBUTETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_BE_ATTRIBUTETableAdapter() - Me.TBIDB_ATTRIBUTE_TYPETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTE_TYPETableAdapter() + Me.TBWH_ATTRIBUTE_TYPETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBWH_ATTRIBUTE_TYPETableAdapter() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.LayoutControl1.SuspendLayout() @@ -80,7 +80,7 @@ Partial Class frmAdmin_IDBAttribute CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBIDB_ATTRIBUTE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBWH_ATTRIBUTE_TYPEBindingSource, 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() @@ -107,7 +107,7 @@ Partial Class frmAdmin_IDBAttribute 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(857, 66) + Me.RibbonControl1.Size = New System.Drawing.Size(894, 66) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.Toolbar.ShowCustomizeItem = False ' @@ -130,6 +130,7 @@ Partial Class frmAdmin_IDBAttribute Me.labelStatus.Id = 5 Me.labelStatus.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.about Me.labelStatus.Name = "labelStatus" + Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing ' 'BarButtonItem3 @@ -149,17 +150,16 @@ Partial Class frmAdmin_IDBAttribute ' Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "Daten" ' 'RibbonStatusBar1 ' Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 502) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 539) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(857, 22) + Me.RibbonStatusBar1.Size = New System.Drawing.Size(894, 22) ' 'RibbonPage2 ' @@ -183,7 +183,7 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControl1.Location = New System.Drawing.Point(0, 66) Me.LayoutControl1.Name = "LayoutControl1" Me.LayoutControl1.Root = Me.Root - Me.LayoutControl1.Size = New System.Drawing.Size(857, 436) + Me.LayoutControl1.Size = New System.Drawing.Size(894, 473) Me.LayoutControl1.TabIndex = 2 Me.LayoutControl1.Text = "LayoutControl1" ' @@ -194,7 +194,7 @@ Partial Class frmAdmin_IDBAttribute Me.TextEdit1.MenuManager = Me.RibbonControl1 Me.TextEdit1.Name = "TextEdit1" Me.TextEdit1.Properties.ReadOnly = True - Me.TextEdit1.Size = New System.Drawing.Size(669, 20) + Me.TextEdit1.Size = New System.Drawing.Size(706, 20) Me.TextEdit1.StyleController = Me.LayoutControl1 Me.TextEdit1.TabIndex = 4 ' @@ -214,7 +214,7 @@ Partial Class frmAdmin_IDBAttribute Me.TextEdit2.Location = New System.Drawing.Point(168, 60) Me.TextEdit2.MenuManager = Me.RibbonControl1 Me.TextEdit2.Name = "TextEdit2" - Me.TextEdit2.Size = New System.Drawing.Size(669, 20) + Me.TextEdit2.Size = New System.Drawing.Size(706, 20) Me.TextEdit2.StyleController = Me.LayoutControl1 Me.TextEdit2.TabIndex = 5 ' @@ -222,11 +222,11 @@ Partial Class frmAdmin_IDBAttribute ' Me.SpinEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "VIEW_SEQUENCE", True)) Me.SpinEdit1.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) - Me.SpinEdit1.Location = New System.Drawing.Point(586, 180) + Me.SpinEdit1.Location = New System.Drawing.Point(604, 180) Me.SpinEdit1.MenuManager = Me.RibbonControl1 Me.SpinEdit1.Name = "SpinEdit1" Me.SpinEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.SpinEdit1.Size = New System.Drawing.Size(251, 20) + Me.SpinEdit1.Size = New System.Drawing.Size(270, 20) Me.SpinEdit1.StyleController = Me.LayoutControl1 Me.SpinEdit1.TabIndex = 6 ' @@ -236,7 +236,7 @@ Partial Class frmAdmin_IDBAttribute Me.CheckEdit1.MenuManager = Me.RibbonControl1 Me.CheckEdit1.Name = "CheckEdit1" Me.CheckEdit1.Properties.Caption = "Attribut mehrzeilig" - Me.CheckEdit1.Size = New System.Drawing.Size(817, 18) + Me.CheckEdit1.Size = New System.Drawing.Size(854, 18) Me.CheckEdit1.StyleController = Me.LayoutControl1 Me.CheckEdit1.TabIndex = 7 ' @@ -247,7 +247,7 @@ Partial Class frmAdmin_IDBAttribute Me.CheckEdit2.MenuManager = Me.RibbonControl1 Me.CheckEdit2.Name = "CheckEdit2" Me.CheckEdit2.Properties.Caption = "Standard in Ergebnisliste" - Me.CheckEdit2.Size = New System.Drawing.Size(398, 18) + Me.CheckEdit2.Size = New System.Drawing.Size(416, 18) Me.CheckEdit2.StyleController = Me.LayoutControl1 Me.CheckEdit2.TabIndex = 8 ' @@ -256,7 +256,7 @@ Partial Class frmAdmin_IDBAttribute Me.TextEdit3.Location = New System.Drawing.Point(168, 140) Me.TextEdit3.MenuManager = Me.RibbonControl1 Me.TextEdit3.Name = "TextEdit3" - Me.TextEdit3.Size = New System.Drawing.Size(669, 20) + Me.TextEdit3.Size = New System.Drawing.Size(706, 20) Me.TextEdit3.StyleController = Me.LayoutControl1 Me.TextEdit3.TabIndex = 9 ' @@ -267,18 +267,18 @@ Partial Class frmAdmin_IDBAttribute Me.txtAddedWho.MenuManager = Me.RibbonControl1 Me.txtAddedWho.Name = "txtAddedWho" Me.txtAddedWho.Properties.ReadOnly = True - Me.txtAddedWho.Size = New System.Drawing.Size(250, 20) + Me.txtAddedWho.Size = New System.Drawing.Size(268, 20) Me.txtAddedWho.StyleController = Me.LayoutControl1 Me.txtAddedWho.TabIndex = 10 ' 'txtAddedWhen ' Me.txtAddedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ADDED_WHEN", True)) - Me.txtAddedWhen.Location = New System.Drawing.Point(586, 258) + Me.txtAddedWhen.Location = New System.Drawing.Point(604, 258) Me.txtAddedWhen.MenuManager = Me.RibbonControl1 Me.txtAddedWhen.Name = "txtAddedWhen" Me.txtAddedWhen.Properties.ReadOnly = True - Me.txtAddedWhen.Size = New System.Drawing.Size(251, 20) + Me.txtAddedWhen.Size = New System.Drawing.Size(270, 20) Me.txtAddedWhen.StyleController = Me.LayoutControl1 Me.txtAddedWhen.TabIndex = 11 ' @@ -289,18 +289,18 @@ Partial Class frmAdmin_IDBAttribute Me.txtChangedWho.MenuManager = Me.RibbonControl1 Me.txtChangedWho.Name = "txtChangedWho" Me.txtChangedWho.Properties.ReadOnly = True - Me.txtChangedWho.Size = New System.Drawing.Size(250, 20) + Me.txtChangedWho.Size = New System.Drawing.Size(268, 20) Me.txtChangedWho.StyleController = Me.LayoutControl1 Me.txtChangedWho.TabIndex = 12 ' 'txtChangedWhen ' Me.txtChangedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "CHANGED_WHEN", True)) - Me.txtChangedWhen.Location = New System.Drawing.Point(586, 298) + Me.txtChangedWhen.Location = New System.Drawing.Point(604, 298) Me.txtChangedWhen.MenuManager = Me.RibbonControl1 Me.txtChangedWhen.Name = "txtChangedWhen" Me.txtChangedWhen.Properties.ReadOnly = True - Me.txtChangedWhen.Size = New System.Drawing.Size(251, 20) + Me.txtChangedWhen.Size = New System.Drawing.Size(270, 20) Me.txtChangedWhen.StyleController = Me.LayoutControl1 Me.txtChangedWhen.TabIndex = 13 ' @@ -312,19 +312,19 @@ Partial Class frmAdmin_IDBAttribute Me.ComboBoxEdit1.Name = "ComboBoxEdit1" Me.ComboBoxEdit1.Properties.BestFitMode = DevExpress.XtraEditors.Controls.BestFitMode.BestFit Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.ComboBoxEdit1.Properties.DataSource = Me.TBIDB_ATTRIBUTE_TYPEBindingSource + Me.ComboBoxEdit1.Properties.DataSource = Me.TBWH_ATTRIBUTE_TYPEBindingSource Me.ComboBoxEdit1.Properties.DisplayMember = "NAME_TYPE" Me.ComboBoxEdit1.Properties.NullText = "" Me.ComboBoxEdit1.Properties.PopupSizeable = False Me.ComboBoxEdit1.Properties.ValueMember = "GUID" - Me.ComboBoxEdit1.Size = New System.Drawing.Size(669, 20) + Me.ComboBoxEdit1.Size = New System.Drawing.Size(706, 20) Me.ComboBoxEdit1.StyleController = Me.LayoutControl1 Me.ComboBoxEdit1.TabIndex = 14 ' - 'TBIDB_ATTRIBUTE_TYPEBindingSource + 'TBWH_ATTRIBUTE_TYPEBindingSource ' - Me.TBIDB_ATTRIBUTE_TYPEBindingSource.DataMember = "TBIDB_ATTRIBUTE_TYPE" - Me.TBIDB_ATTRIBUTE_TYPEBindingSource.DataSource = Me.DSIDB_Stammdaten + Me.TBWH_ATTRIBUTE_TYPEBindingSource.DataMember = "TBWH_ATTRIBUTE_TYPE" + Me.TBWH_ATTRIBUTE_TYPEBindingSource.DataSource = Me.DSIDB_Stammdaten ' 'Root ' @@ -332,7 +332,7 @@ Partial Class frmAdmin_IDBAttribute Me.Root.GroupBordersVisible = False Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem3, Me.LayoutControlItem11, Me.LayoutControlItem9, Me.LayoutControlItem5, Me.LayoutControlItem8, Me.LayoutControlItem10}) Me.Root.Name = "Root" - Me.Root.Size = New System.Drawing.Size(857, 436) + Me.Root.Size = New System.Drawing.Size(894, 473) Me.Root.TextVisible = False ' 'LayoutControlItem1 @@ -342,7 +342,7 @@ Partial Class frmAdmin_IDBAttribute 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(837, 40) + Me.LayoutControlItem1.Size = New System.Drawing.Size(874, 40) Me.LayoutControlItem1.Text = "GUID" Me.LayoutControlItem1.TextSize = New System.Drawing.Size(145, 13) ' @@ -352,7 +352,7 @@ Partial Class frmAdmin_IDBAttribute 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(837, 40) + Me.LayoutControlItem2.Size = New System.Drawing.Size(874, 40) Me.LayoutControlItem2.Text = "Bezeichnung" Me.LayoutControlItem2.TextSize = New System.Drawing.Size(145, 13) ' @@ -362,7 +362,7 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 200) Me.LayoutControlItem4.Name = "LayoutControlItem4" Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem4.Size = New System.Drawing.Size(837, 38) + Me.LayoutControlItem4.Size = New System.Drawing.Size(874, 38) Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem4.TextVisible = False ' @@ -372,7 +372,7 @@ Partial Class frmAdmin_IDBAttribute 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(837, 40) + Me.LayoutControlItem6.Size = New System.Drawing.Size(874, 40) Me.LayoutControlItem6.Text = "Kommentar" Me.LayoutControlItem6.TextSize = New System.Drawing.Size(145, 13) ' @@ -382,7 +382,7 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 238) Me.LayoutControlItem7.Name = "LayoutControlItem7" Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem7.Size = New System.Drawing.Size(418, 40) + Me.LayoutControlItem7.Size = New System.Drawing.Size(436, 40) Me.LayoutControlItem7.Text = "Erstellt Wer" Me.LayoutControlItem7.TextSize = New System.Drawing.Size(145, 13) ' @@ -390,10 +390,10 @@ Partial Class frmAdmin_IDBAttribute ' Me.LayoutControlItem3.Control = Me.SpinEdit1 Me.LayoutControlItem3.CustomizationFormText = "Anzeige Reihenfolge" - Me.LayoutControlItem3.Location = New System.Drawing.Point(418, 160) + Me.LayoutControlItem3.Location = New System.Drawing.Point(436, 160) Me.LayoutControlItem3.Name = "LayoutControlItem3" Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem3.Size = New System.Drawing.Size(419, 40) + Me.LayoutControlItem3.Size = New System.Drawing.Size(438, 40) Me.LayoutControlItem3.Text = "Reihenfolge in Ergebnisliste" Me.LayoutControlItem3.TextSize = New System.Drawing.Size(145, 13) ' @@ -403,7 +403,7 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 80) Me.LayoutControlItem11.Name = "LayoutControlItem11" Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem11.Size = New System.Drawing.Size(837, 40) + Me.LayoutControlItem11.Size = New System.Drawing.Size(874, 40) Me.LayoutControlItem11.Text = "Attribut-Typ" Me.LayoutControlItem11.TextSize = New System.Drawing.Size(145, 13) ' @@ -413,7 +413,7 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 278) Me.LayoutControlItem9.Name = "LayoutControlItem9" Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem9.Size = New System.Drawing.Size(418, 138) + Me.LayoutControlItem9.Size = New System.Drawing.Size(436, 175) Me.LayoutControlItem9.Text = "Geändert Wer" Me.LayoutControlItem9.TextSize = New System.Drawing.Size(145, 13) ' @@ -423,27 +423,27 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 160) Me.LayoutControlItem5.Name = "LayoutControlItem5" Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem5.Size = New System.Drawing.Size(418, 40) + Me.LayoutControlItem5.Size = New System.Drawing.Size(436, 40) Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem5.TextVisible = False ' 'LayoutControlItem8 ' Me.LayoutControlItem8.Control = Me.txtAddedWhen - Me.LayoutControlItem8.Location = New System.Drawing.Point(418, 238) + Me.LayoutControlItem8.Location = New System.Drawing.Point(436, 238) Me.LayoutControlItem8.Name = "LayoutControlItem8" Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem8.Size = New System.Drawing.Size(419, 40) + Me.LayoutControlItem8.Size = New System.Drawing.Size(438, 40) Me.LayoutControlItem8.Text = "Erstellt Wann" Me.LayoutControlItem8.TextSize = New System.Drawing.Size(145, 13) ' 'LayoutControlItem10 ' Me.LayoutControlItem10.Control = Me.txtChangedWhen - Me.LayoutControlItem10.Location = New System.Drawing.Point(418, 278) + Me.LayoutControlItem10.Location = New System.Drawing.Point(436, 278) Me.LayoutControlItem10.Name = "LayoutControlItem10" Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem10.Size = New System.Drawing.Size(419, 138) + Me.LayoutControlItem10.Size = New System.Drawing.Size(438, 175) Me.LayoutControlItem10.Text = "Geändert Wann" Me.LayoutControlItem10.TextSize = New System.Drawing.Size(145, 13) ' @@ -458,20 +458,21 @@ Partial Class frmAdmin_IDBAttribute Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.VWIDB_BE_ATTRIBUTETableAdapter = Nothing ' 'VWIDB_BE_ATTRIBUTETableAdapter ' Me.VWIDB_BE_ATTRIBUTETableAdapter.ClearBeforeFill = True ' - 'TBIDB_ATTRIBUTE_TYPETableAdapter + 'TBWH_ATTRIBUTE_TYPETableAdapter ' - Me.TBIDB_ATTRIBUTE_TYPETableAdapter.ClearBeforeFill = True + Me.TBWH_ATTRIBUTE_TYPETableAdapter.ClearBeforeFill = True ' 'frmAdmin_IDBAttribute ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(857, 524) + Me.ClientSize = New System.Drawing.Size(894, 561) Me.Controls.Add(Me.LayoutControl1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) @@ -496,7 +497,7 @@ Partial Class frmAdmin_IDBAttribute CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBIDB_ATTRIBUTE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBWH_ATTRIBUTE_TYPEBindingSource, 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() @@ -549,8 +550,8 @@ Partial Class frmAdmin_IDBAttribute Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem Friend WithEvents VWIDB_BE_ATTRIBUTEBindingSource As BindingSource Friend WithEvents VWIDB_BE_ATTRIBUTETableAdapter As DSIDB_StammdatenTableAdapters.VWIDB_BE_ATTRIBUTETableAdapter - Friend WithEvents TBIDB_ATTRIBUTE_TYPEBindingSource As BindingSource - Friend WithEvents TBIDB_ATTRIBUTE_TYPETableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTE_TYPETableAdapter Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.LookUpEdit Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents TBWH_ATTRIBUTE_TYPEBindingSource As BindingSource + Friend WithEvents TBWH_ATTRIBUTE_TYPETableAdapter As DSIDB_StammdatenTableAdapters.TBWH_ATTRIBUTE_TYPETableAdapter End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.resx b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.resx index 27552a8d..9842e9db 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.resx +++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.resx @@ -118,21 +118,21 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - 438, 21 + 350, 17 - 74, 22 + 17, 17 - - 263, 56 + + 17, 56 - 244, 15 + 177, 17 - 17, 56 + 602, 17 - - 708, 13 + + 278, 56 \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb index 14c33fcf..0b08c637 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb @@ -17,8 +17,8 @@ Private Sub frmAdmin_Attribute_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try - TBIDB_ATTRIBUTE_TYPETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString - TBIDB_ATTRIBUTE_TYPETableAdapter.Fill(DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPE) + TBWH_ATTRIBUTE_TYPETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + TBWH_ATTRIBUTE_TYPETableAdapter.Fill(DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPE) VWIDB_BE_ATTRIBUTETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString VWIDB_BE_ATTRIBUTETableAdapter.FillByAttributeId(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, PrimaryKey, 1) @@ -31,7 +31,7 @@ ResetMessages() If SaveData() And HasChanges Then - ShowStatus("Attribute gespeichert!") + ShowStatus("Attribute saved!") End If End Sub @@ -56,8 +56,8 @@ Try VWIDB_BE_ATTRIBUTEBindingSource.EndEdit() - If DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.GetChanges() IsNot Nothing Then - HasChanges = True + 'If DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.GetChanges() IsNot Nothing Or IsInsert Then + HasChanges = True If IsInsert Then txtAddedWho.EditValue = My.Application.User.UserName @@ -67,9 +67,30 @@ VWIDB_BE_ATTRIBUTEBindingSource.EndEdit() - ' TODO: Update Database - 'VWIDB_BE_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE) + ' TODO: Update Database + If Not IsInsert Then + Dim oUpdate As String = $"UPDATE TBIDB_ATTRIBUTE " & + $"SET TITLE = '{TextEdit2.Text}', TYP_ID = {ComboBoxEdit1.EditValue}, VIEW_SEQUENCE = {SpinEdit1.Value}, VIEW_VISIBLE = '{CheckEdit2.Checked}'" & + $", COMMENT = '{TextEdit3.Text}', CHANGED_WHO = '{My.Application.User.UserName}' " & + $"WHERE (GUID = {TextEdit1.Text})" + + If My.DatabaseIDB.ExecuteNonQuery(oUpdate) = False Then + Return False + End If + Else + Dim oInsert As String = $"INSERT INTO TBIDB_ATTRIBUTE " & + "(TITLE, TYP_ID, VIEW_SEQUENCE, VIEW_VISIBLE, ADDED_WHO,COMMENT) " & + $"VALUES ('{TextEdit2.Text}',{ComboBoxEdit1.EditValue},{SpinEdit1.Value},'{CheckEdit2.Checked}','{My.Application.User.UserName}', '{TextEdit3.Text}')" + + + If My.DatabaseIDB.ExecuteNonQuery(oInsert) = True Then + IsInsert = False + Else + Return False + End If End If + VWIDB_BE_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE) + 'End If Return True Catch ex As Exception @@ -77,20 +98,11 @@ Return False End Try End Function - Private Sub Update_Datasource() - Dim oupdate = $"UPDATE TBIDB_ATTRIBUTE - SET TITLE = '@TITLE', - TYP_ID = @TYP_ID, - MULTI_CONTEXT = @MULTI_CONTEXT, - VIEW_SEQUENCE = @VIEW_SEQUENCE, - VIEW_VISIBLE = @VIEW_VISIBLE, - COMMENT = @COMMENT - WHERE (GUID = @GUID)" - End Sub + Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData Try - TBIDB_ATTRIBUTE_TYPETableAdapter.Delete(PrimaryKey) + 'VWIDB_BE_ATTRIBUTETableAdapter.Delete(PrimaryKey) Return True Catch ex As Exception ShowErrorMessage(ex) diff --git a/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.Designer.vb index 5f706cb9..d8a307a9 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.Designer.vb @@ -86,7 +86,6 @@ Partial Class frmAdmin_IDBEntity ' '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.BarButtonItem1, Me.BarButtonItem2, Me.labelStatus, Me.BarButtonItem3}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) @@ -96,7 +95,7 @@ Partial Class frmAdmin_IDBEntity 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(837, 66) + Me.RibbonControl1.Size = New System.Drawing.Size(837, 131) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.Toolbar.ShowCustomizeItem = False ' @@ -141,7 +140,7 @@ Partial Class frmAdmin_IDBEntity Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" - Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Aktionen" ' 'RibbonStatusBar1 ' @@ -168,10 +167,10 @@ Partial Class frmAdmin_IDBEntity Me.LayoutControl1.Controls.Add(Me.txtChangedWho) Me.LayoutControl1.Controls.Add(Me.TextEdit8) Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.LayoutControl1.Location = New System.Drawing.Point(0, 66) + Me.LayoutControl1.Location = New System.Drawing.Point(0, 131) Me.LayoutControl1.Name = "LayoutControl1" Me.LayoutControl1.Root = Me.Root - Me.LayoutControl1.Size = New System.Drawing.Size(837, 399) + Me.LayoutControl1.Size = New System.Drawing.Size(837, 334) Me.LayoutControl1.TabIndex = 2 Me.LayoutControl1.Text = "LayoutControl1" ' @@ -283,7 +282,7 @@ Partial Class frmAdmin_IDBEntity Me.Root.GroupBordersVisible = False Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem2, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem8, Me.LayoutControlItem7, Me.LayoutControlItem9}) Me.Root.Name = "Root" - Me.Root.Size = New System.Drawing.Size(837, 399) + Me.Root.Size = New System.Drawing.Size(837, 334) Me.Root.TextVisible = False ' 'LayoutControlItem1 @@ -293,7 +292,7 @@ Partial Class frmAdmin_IDBEntity Me.LayoutControlItem1.Name = "LayoutControlItem1" Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem1.Size = New System.Drawing.Size(408, 40) - Me.LayoutControlItem1.Text = "GUID" + Me.LayoutControlItem1.Text = "ID" Me.LayoutControlItem1.TextSize = New System.Drawing.Size(82, 13) ' 'LayoutControlItem3 @@ -352,7 +351,7 @@ Partial Class frmAdmin_IDBEntity Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 198) Me.LayoutControlItem8.Name = "LayoutControlItem8" Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem8.Size = New System.Drawing.Size(408, 181) + Me.LayoutControlItem8.Size = New System.Drawing.Size(408, 116) Me.LayoutControlItem8.Text = "Geändert Wer" Me.LayoutControlItem8.TextSize = New System.Drawing.Size(82, 13) ' @@ -372,7 +371,7 @@ Partial Class frmAdmin_IDBEntity Me.LayoutControlItem9.Location = New System.Drawing.Point(408, 198) Me.LayoutControlItem9.Name = "LayoutControlItem9" Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem9.Size = New System.Drawing.Size(409, 181) + Me.LayoutControlItem9.Size = New System.Drawing.Size(409, 116) Me.LayoutControlItem9.Text = "Geändert Wann" Me.LayoutControlItem9.TextSize = New System.Drawing.Size(82, 13) ' @@ -386,8 +385,11 @@ Partial Class frmAdmin_IDBEntity Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Me.TBIDB_BUSINESS_ENTITYTableAdapter + Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.VWIDB_BE_ATTRIBUTETableAdapter = Nothing ' 'frmAdmin_IDBEntity ' diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb index d27927c4..2a9540fb 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb @@ -110,6 +110,8 @@ Partial Class frmAdmin_Start Me.RibbonGroup_ClipboardWatcher_DocSearch = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonGroup_ClipboardWatcher_Profile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPage_ClipboardWatcher = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup20 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.BarButtonItem26 = New DevExpress.XtraBars.BarButtonItem() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TreeListMenu, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MainTreeImages, System.ComponentModel.ISupportInitialize).BeginInit() @@ -132,9 +134,9 @@ Partial Class frmAdmin_Start 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.labelStatus, Me.labelError, Me.BarButtonItemAddAttribute, Me.BarButtonItemRefreshAttribute, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.BarButtonItem20, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.btnAddRecord, Me.btnEditRecord}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.labelStatus, Me.labelError, Me.BarButtonItemAddAttribute, Me.BarButtonItemRefreshAttribute, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.BarButtonItem20, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.btnAddRecord, Me.btnEditRecord, Me.BarButtonItem26}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 34 + Me.RibbonControl1.MaxItemId = 35 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] @@ -358,7 +360,7 @@ Partial Class frmAdmin_Start ' 'RibbonPage1 ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1}) + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1, Me.RibbonPageGroup20}) Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Text = "Start" ' @@ -403,16 +405,17 @@ Partial Class frmAdmin_Start Me.TreeListMenu.MenuManager = Me.RibbonControl1 Me.TreeListMenu.Name = "TreeListMenu" Me.TreeListMenu.BeginUnboundLoad() - Me.TreeListMenu.AppendNode(New Object() {"IDB"}, -1, "") + Me.TreeListMenu.AppendNode(New Object() {"Entitäten"}, -1, "") Me.TreeListMenu.AppendNode(New Object() {"Attribute"}, 0, 2, 2, -1, "IDB_ATTRIBUTES") Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_BUSINESS_ENTITIES") 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"}, 4, 4, 4, -1, "GLOBIX_PROFILES") + Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 4, 4, 4, -1, "GI_PROFILES") Me.TreeListMenu.AppendNode(New Object() {"Clipboard Watcher"}, -1, 7, 7, -1, "") Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 6, 4, 4, -1, "CW_PROFILES") Me.TreeListMenu.AppendNode(New Object() {"Administration"}, -1) Me.TreeListMenu.AppendNode(New Object() {"Source SQL"}, 8, 3, 3, -1, "META_SOURCE_SQL") + Me.TreeListMenu.AppendNode(New Object() {"Zuordnungen"}, -1, 9, 9, -1, "Relations") Me.TreeListMenu.EndUnboundLoad() Me.TreeListMenu.OptionsBehavior.Editable = False Me.TreeListMenu.OptionsView.ShowColumns = False @@ -442,6 +445,7 @@ Partial Class frmAdmin_Start Me.MainTreeImages.Add("ZooFlow_G_DevExpress", "ZooFlow_G_DevExpress", GetType(DigitalData.GUIs.ZooFlow.My.Resources.Resources)) Me.MainTreeImages.Add("ZooFlow_CW_DevExpress", "ZooFlow_CW_DevExpress", GetType(DigitalData.GUIs.ZooFlow.My.Resources.Resources)) Me.MainTreeImages.Add("open", "image://svgimages/actions/open.svg") + Me.MainTreeImages.Add("managerelations", "image://svgimages/spreadsheet/managerelations.svg") ' 'DockManager1 ' @@ -485,8 +489,11 @@ Partial Class frmAdmin_Start Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.VWIDB_BE_ATTRIBUTETableAdapter = Nothing ' 'TBIDB_ATTRIBUTE_TYPEBindingSource ' @@ -779,6 +786,19 @@ Partial Class frmAdmin_Start Me.RibbonPage_ClipboardWatcher.Name = "RibbonPage_ClipboardWatcher" Me.RibbonPage_ClipboardWatcher.Text = "Clipboard Watcher" ' + 'RibbonPageGroup20 + ' + Me.RibbonPageGroup20.ItemLinks.Add(Me.BarButtonItem26) + Me.RibbonPageGroup20.Name = "RibbonPageGroup20" + Me.RibbonPageGroup20.Text = "RibbonPageGroup20" + ' + 'BarButtonItem26 + ' + Me.BarButtonItem26.Caption = "Zuordnungen" + Me.BarButtonItem26.Id = 34 + Me.BarButtonItem26.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem26.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem26.Name = "BarButtonItem26" + ' 'frmAdmin_Start ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -901,4 +921,6 @@ Partial Class frmAdmin_Start Friend WithEvents RibbonGroup_ClipboardWatcher_DocSearch As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonGroup_ClipboardWatcher_Profile As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPage_ClipboardWatcher As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonItem26 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup20 As DevExpress.XtraBars.Ribbon.RibbonPageGroup End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.resx b/GUIs.ZooFlow/Administration/frmAdmin_Start.resx index 93afe9cd..2e063e9b 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Start.resx +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.resx @@ -249,6 +249,28 @@ NS42LTIuNGwzLjYtMy42SDguNEg0LjRINC4ydjEwbDMuNS0zLjVjMi4yLDIuMiw1LjIsMy41LDguNSwz LjUgICBDMjIuMSwyOCwyNywyMy43LDI4LDE4aC00LjFDMjMsMjEuNCwxOS45LDI0LDE2LjIsMjR6IiBj bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHcDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + Qmx1ZXtmaWxsOiMxMTc3RDc7fQoJLnN0MHtvcGFjaXR5OjAuNTt9Cjwvc3R5bGU+DQogIDxnIGlkPSJN + YW5hZ2VfUmVsYXRpb25zIj4NCiAgICA8ZyBjbGFzcz0ic3QwIj4NCiAgICAgIDxwYXRoIGQ9Ik0zMSwz + MmgtOGMtMC41LDAtMS0wLjUtMS0xdi04YzAtMC41LDAuNS0xLDEtMWg4YzAuNSwwLDEsMC41LDEsMXY4 + QzMyLDMxLjUsMzEuNSwzMiwzMSwzMnogTTMyLDlWMSAgICBjMC0wLjYtMC41LTEtMS0xaC04Yy0wLjUs + MC0xLDAuNC0xLDF2OGMwLDAuNiwwLjUsMSwxLDFoOEMzMS41LDEwLDMyLDkuNiwzMiw5eiIgY2xhc3M9 + IkJsYWNrIiAvPg0KICAgIDwvZz4NCiAgICA8cGF0aCBkPSJNMTEsMjJIMWMtMC42LDAtMS0wLjUtMS0x + VjExYzAtMC42LDAuNC0xLDEtMWgxMGMwLjYsMCwxLDAuNCwxLDF2MTBDMTIsMjEuNSwxMS42LDIyLDEx + LDIyeiIgY2xhc3M9IkJsdWUiIC8+DQogICAgPHBhdGggZD0iTTIwLDJ2NmwtMi4zLTIuM2wtNCw0bC0x + LjQtMS40bDQtNEwxNCwySDIweiBNMTcuNywyNi4zbC00LTRsLTEuNCwxLjRsNCw0TDE0LDMwaDZ2LTZM + MTcuNywyNi4zeiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb index 9cf0a424..f97a6b0f 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb @@ -109,10 +109,13 @@ Public Class frmAdmin_Start Exit Sub End If - If Handle_LoadPage(e.Node.Tag.ToString) Then + If Handle_LoadPage(e.Node.Tag.ToString) And e.Node.Tag <> "Relations" Then RibbonPageGroup1.Enabled = True CurrentPage = e.Node.Tag.ToString End If + If e.Node.Tag = "Relations" Then + frmAdmin_relations.ShowDialog() + End If Catch ex As Exception ShowErrorMessage(ex) End Try diff --git a/GUIs.ZooFlow/Administration/frmAdmin_relations.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_relations.Designer.vb new file mode 100644 index 00000000..ad972f6a --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_relations.Designer.vb @@ -0,0 +1,139 @@ + _ +Partial Class frmAdmin_relations + 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() + 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.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + 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.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.RibbonControl1.MaxItemId = 1 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.Size = New System.Drawing.Size(933, 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 = "Start" + ' + '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, 566) + Me.RibbonStatusBar1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(933, 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.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.Size = New System.Drawing.Size(933, 407) + Me.XtraTabControl1.TabIndex = 2 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(931, 384) + Me.XtraTabPage1.Text = "XtraTabPage1" + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(246, 88) + Me.XtraTabPage2.Text = "XtraTabPage2" + ' + 'frmAdmin_relations + ' + Me.Appearance.Options.UseFont = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(933, 588) + Me.Controls.Add(Me.XtraTabControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.Name = "frmAdmin_relations" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "frmAdmin_relations" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + 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 +End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_relations.resx b/GUIs.ZooFlow/Administration/frmAdmin_relations.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_relations.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_relations.vb b/GUIs.ZooFlow/Administration/frmAdmin_relations.vb new file mode 100644 index 00000000..b4ec196b --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_relations.vb @@ -0,0 +1,3 @@ +Public Class frmAdmin_relations + +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmSQLDesigner.Designer.vb b/GUIs.ZooFlow/Administration/frmSQLDesigner.Designer.vb new file mode 100644 index 00000000..d6a22cf3 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmSQLDesigner.Designer.vb @@ -0,0 +1,377 @@ + _ +Partial Class frmSQLDesigner + Inherits System.Windows.Forms.Form + + '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(frmSQLDesigner)) + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.Label14 = New System.Windows.Forms.Label() + Me.cmbConnection = New System.Windows.Forms.ComboBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.cmbStatic = New System.Windows.Forms.ComboBox() + Me.btnAddStatic = New System.Windows.Forms.Button() + Me.btnAddUser = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() + Me.cmbUser = New System.Windows.Forms.ComboBox() + Me.btnAddAttributeMan = New System.Windows.Forms.Button() + Me.lblAttributeMan = New System.Windows.Forms.Label() + Me.cmbAttributeMan = New System.Windows.Forms.ComboBox() + Me.SQL_COMMANDTextBox = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.btnTestSQL = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.dgvPlaceholders = New System.Windows.Forms.DataGridView() + Me.colPlaceholder = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.colReplace = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Label5 = New System.Windows.Forms.Label() + Me.dgvResult = New System.Windows.Forms.DataGridView() + Me.lblSaveFinalIndex = New System.Windows.Forms.Label() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.btnAddAttributeAuto = New System.Windows.Forms.Button() + Me.cmbAttributeAuto = New System.Windows.Forms.ComboBox() + Me.lblAttributeAuto = New System.Windows.Forms.Label() + CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label14.Location = New System.Drawing.Point(12, 7) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(76, 16) + Me.Label14.TabIndex = 83 + Me.Label14.Text = "Connection:" + ' + 'cmbConnection + ' + Me.cmbConnection.DisplayMember = "BEZEICHNUNG" + Me.cmbConnection.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmbConnection.FormattingEnabled = True + Me.cmbConnection.Location = New System.Drawing.Point(15, 29) + Me.cmbConnection.Name = "cmbConnection" + Me.cmbConnection.Size = New System.Drawing.Size(171, 24) + Me.cmbConnection.TabIndex = 82 + Me.cmbConnection.ValueMember = "GUID" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(500, 9) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(112, 16) + Me.Label2.TabIndex = 101 + Me.Label2.Text = "Umgebungsdaten:" + ' + 'cmbStatic + ' + Me.cmbStatic.FormattingEnabled = True + Me.cmbStatic.Items.AddRange(New Object() {"USERNAME", "MACHINE", "DOMAIN", "DATE"}) + Me.cmbStatic.Location = New System.Drawing.Point(503, 28) + Me.cmbStatic.Name = "cmbStatic" + Me.cmbStatic.Size = New System.Drawing.Size(194, 25) + Me.cmbStatic.TabIndex = 100 + ' + 'btnAddStatic + ' + Me.btnAddStatic.Image = CType(resources.GetObject("btnAddStatic.Image"), System.Drawing.Image) + Me.btnAddStatic.Location = New System.Drawing.Point(703, 28) + Me.btnAddStatic.Name = "btnAddStatic" + Me.btnAddStatic.Size = New System.Drawing.Size(32, 23) + Me.btnAddStatic.TabIndex = 102 + Me.btnAddStatic.UseVisualStyleBackColor = True + ' + 'btnAddUser + ' + Me.btnAddUser.Image = CType(resources.GetObject("btnAddUser.Image"), System.Drawing.Image) + Me.btnAddUser.Location = New System.Drawing.Point(942, 29) + Me.btnAddUser.Name = "btnAddUser" + Me.btnAddUser.Size = New System.Drawing.Size(32, 23) + Me.btnAddUser.TabIndex = 105 + Me.btnAddUser.UseVisualStyleBackColor = True + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(739, 10) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(118, 16) + Me.Label3.TabIndex = 104 + Me.Label3.Text = "Anwendungsdaten:" + ' + 'cmbUser + ' + Me.cmbUser.FormattingEnabled = True + Me.cmbUser.Items.AddRange(New Object() {"PRENAME", "SURNAME", "SHORTNAME", "LANGUAGE", "EMAIL", "USER_ID", "PROFILE_ID", "PROFILE_TITLE"}) + Me.cmbUser.Location = New System.Drawing.Point(742, 29) + Me.cmbUser.Name = "cmbUser" + Me.cmbUser.Size = New System.Drawing.Size(194, 25) + Me.cmbUser.TabIndex = 103 + ' + 'btnAddAttributeMan + ' + Me.btnAddAttributeMan.Image = CType(resources.GetObject("btnAddAttributeMan.Image"), System.Drawing.Image) + Me.btnAddAttributeMan.Location = New System.Drawing.Point(448, 29) + Me.btnAddAttributeMan.Name = "btnAddAttributeMan" + Me.btnAddAttributeMan.Size = New System.Drawing.Size(32, 23) + Me.btnAddAttributeMan.TabIndex = 108 + Me.btnAddAttributeMan.UseVisualStyleBackColor = True + ' + 'lblAttributeMan + ' + Me.lblAttributeMan.AutoSize = True + Me.lblAttributeMan.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAttributeMan.Location = New System.Drawing.Point(247, 10) + Me.lblAttributeMan.Name = "lblAttributeMan" + Me.lblAttributeMan.Size = New System.Drawing.Size(105, 16) + Me.lblAttributeMan.TabIndex = 107 + Me.lblAttributeMan.Text = "Attribute Manuell" + ' + 'cmbAttributeMan + ' + Me.cmbAttributeMan.FormattingEnabled = True + Me.cmbAttributeMan.Location = New System.Drawing.Point(250, 28) + Me.cmbAttributeMan.Name = "cmbAttributeMan" + Me.cmbAttributeMan.Size = New System.Drawing.Size(194, 25) + Me.cmbAttributeMan.TabIndex = 106 + ' + 'SQL_COMMANDTextBox + ' + Me.SQL_COMMANDTextBox.AcceptsReturn = True + Me.SQL_COMMANDTextBox.AcceptsTab = True + Me.SQL_COMMANDTextBox.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.SQL_COMMANDTextBox.Font = New System.Drawing.Font("Courier New", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SQL_COMMANDTextBox.Location = New System.Drawing.Point(15, 109) + Me.SQL_COMMANDTextBox.Multiline = True + Me.SQL_COMMANDTextBox.Name = "SQL_COMMANDTextBox" + Me.SQL_COMMANDTextBox.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.SQL_COMMANDTextBox.Size = New System.Drawing.Size(959, 254) + Me.SQL_COMMANDTextBox.TabIndex = 110 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(12, 86) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(99, 17) + Me.Label4.TabIndex = 109 + Me.Label4.Text = "SQL-Command:" + ' + 'btnTestSQL + ' + Me.btnTestSQL.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnTestSQL.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle)) + Me.btnTestSQL.Image = CType(resources.GetObject("btnTestSQL.Image"), System.Drawing.Image) + Me.btnTestSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnTestSQL.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.btnTestSQL.Location = New System.Drawing.Point(806, 369) + Me.btnTestSQL.Name = "btnTestSQL" + Me.btnTestSQL.Size = New System.Drawing.Size(168, 29) + Me.btnTestSQL.TabIndex = 111 + Me.btnTestSQL.Text = "Teste SQL-Command" + Me.btnTestSQL.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnTestSQL.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.Label1.Location = New System.Drawing.Point(12, 386) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(65, 15) + Me.Label1.TabIndex = 113 + Me.Label1.Text = "Platzhalter:" + ' + 'dgvPlaceholders + ' + Me.dgvPlaceholders.AllowUserToAddRows = False + Me.dgvPlaceholders.AllowUserToDeleteRows = False + DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan + Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvPlaceholders.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace}) + Me.dgvPlaceholders.Enabled = False + Me.dgvPlaceholders.Location = New System.Drawing.Point(15, 404) + Me.dgvPlaceholders.Name = "dgvPlaceholders" + Me.dgvPlaceholders.Size = New System.Drawing.Size(338, 133) + Me.dgvPlaceholders.TabIndex = 112 + ' + 'colPlaceholder + ' + Me.colPlaceholder.HeaderText = "Platzhalter" + Me.colPlaceholder.Name = "colPlaceholder" + Me.colPlaceholder.ReadOnly = True + ' + 'colReplace + ' + Me.colReplace.HeaderText = "Ersetzung" + Me.colReplace.Name = "colReplace" + ' + 'Label5 + ' + Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.Label5.Location = New System.Drawing.Point(419, 386) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(55, 15) + Me.Label5.TabIndex = 115 + Me.Label5.Text = "Ergebnis:" + ' + 'dgvResult + ' + Me.dgvResult.AllowUserToAddRows = False + Me.dgvResult.AllowUserToDeleteRows = False + DataGridViewCellStyle2.BackColor = System.Drawing.Color.Cyan + Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + Me.dgvResult.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvResult.Location = New System.Drawing.Point(422, 404) + Me.dgvResult.Name = "dgvResult" + Me.dgvResult.ReadOnly = True + Me.dgvResult.Size = New System.Drawing.Size(552, 134) + Me.dgvResult.TabIndex = 114 + ' + 'lblSaveFinalIndex + ' + Me.lblSaveFinalIndex.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.lblSaveFinalIndex.AutoSize = True + Me.lblSaveFinalIndex.BackColor = System.Drawing.Color.Yellow + Me.lblSaveFinalIndex.Location = New System.Drawing.Point(419, 541) + Me.lblSaveFinalIndex.Name = "lblSaveFinalIndex" + Me.lblSaveFinalIndex.Size = New System.Drawing.Size(46, 17) + Me.lblSaveFinalIndex.TabIndex = 116 + Me.lblSaveFinalIndex.Text = "Label4" + Me.lblSaveFinalIndex.Visible = False + ' + 'SimpleButton1 + ' + Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton1.Location = New System.Drawing.Point(820, 544) + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.Size = New System.Drawing.Size(154, 35) + Me.SimpleButton1.TabIndex = 117 + Me.SimpleButton1.Text = "Übernehmen" + ' + 'btnAddAttributeAuto + ' + Me.btnAddAttributeAuto.Image = CType(resources.GetObject("btnAddAttributeAuto.Image"), System.Drawing.Image) + Me.btnAddAttributeAuto.Location = New System.Drawing.Point(448, 79) + Me.btnAddAttributeAuto.Name = "btnAddAttributeAuto" + Me.btnAddAttributeAuto.Size = New System.Drawing.Size(32, 23) + Me.btnAddAttributeAuto.TabIndex = 120 + Me.btnAddAttributeAuto.UseVisualStyleBackColor = True + ' + 'cmbAttributeAuto + ' + Me.cmbAttributeAuto.FormattingEnabled = True + Me.cmbAttributeAuto.Location = New System.Drawing.Point(250, 78) + Me.cmbAttributeAuto.Name = "cmbAttributeAuto" + Me.cmbAttributeAuto.Size = New System.Drawing.Size(194, 25) + Me.cmbAttributeAuto.TabIndex = 118 + ' + 'lblAttributeAuto + ' + Me.lblAttributeAuto.AutoSize = True + Me.lblAttributeAuto.Location = New System.Drawing.Point(247, 58) + Me.lblAttributeAuto.Name = "lblAttributeAuto" + Me.lblAttributeAuto.Size = New System.Drawing.Size(89, 17) + Me.lblAttributeAuto.TabIndex = 121 + Me.lblAttributeAuto.Text = "Attribute Auto" + ' + 'frmSQLDesigner + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(995, 588) + Me.Controls.Add(Me.lblAttributeAuto) + Me.Controls.Add(Me.btnAddAttributeAuto) + Me.Controls.Add(Me.cmbAttributeAuto) + Me.Controls.Add(Me.SimpleButton1) + Me.Controls.Add(Me.lblSaveFinalIndex) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.dgvResult) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.dgvPlaceholders) + Me.Controls.Add(Me.btnTestSQL) + Me.Controls.Add(Me.SQL_COMMANDTextBox) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.btnAddAttributeMan) + Me.Controls.Add(Me.lblAttributeMan) + Me.Controls.Add(Me.cmbAttributeMan) + Me.Controls.Add(Me.btnAddUser) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.cmbUser) + Me.Controls.Add(Me.btnAddStatic) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.cmbStatic) + Me.Controls.Add(Me.Label14) + Me.Controls.Add(Me.cmbConnection) + Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.MinimizeBox = False + Me.Name = "frmSQLDesigner" + Me.Text = "SQL Designer" + CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents Label14 As Label + Friend WithEvents cmbConnection As ComboBox + Friend WithEvents btnAddStatic As Button + Friend WithEvents Label2 As Label + Friend WithEvents cmbStatic As ComboBox + Friend WithEvents btnAddUser As Button + Friend WithEvents Label3 As Label + Friend WithEvents cmbUser As ComboBox + Friend WithEvents btnAddAttributeMan As Button + Friend WithEvents lblAttributeMan As Label + Friend WithEvents cmbAttributeMan As ComboBox + Friend WithEvents SQL_COMMANDTextBox As TextBox + Friend WithEvents Label4 As Label + Friend WithEvents btnTestSQL As Button + Friend WithEvents Label1 As Label + Friend WithEvents dgvPlaceholders As DataGridView + Friend WithEvents colPlaceholder As DataGridViewTextBoxColumn + Friend WithEvents colReplace As DataGridViewTextBoxColumn + Friend WithEvents Label5 As Label + Friend WithEvents dgvResult As DataGridView + Friend WithEvents lblSaveFinalIndex As Label + Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents btnAddAttributeAuto As Button + Friend WithEvents cmbAttributeAuto As ComboBox + Friend WithEvents lblAttributeAuto As Label +End Class diff --git a/GUIs.ZooFlow/Administration/frmSQLDesigner.resx b/GUIs.ZooFlow/Administration/frmSQLDesigner.resx new file mode 100644 index 00000000..12627ea5 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmSQLDesigner.resx @@ -0,0 +1,189 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKhJREFUOE+dkb0RAiEQhSnFIgyMyckNLMI6zB0zS0FruBKugdMACFdWecoBw49v + 5ku43W8eh7DWkmcxxhzFP2HB4bqnaZ7IS27OuU341BcW7E7bN5f7ebxNLGCG26QCENo0qQq01qSUIill + kaIAV+Dz0lJMJkhr89BjeRZZCeIfh8UamcDzfbphQRoIMITKYFhQoykogUUQ1n7pFYTxPBDUaAp6+EwL + 8QKzYQ6as7QBdAAAAABJRU5ErkJggg== + + + + True + + + True + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOsCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iRXhwb3J0Ij4NCiAgICA8cGF0aCBkPSJNMTAsMTJINlY2aDRWMTJ6IE0yMiwxMnY2 + djljMCwwLjYtMC40LDEtMSwxSDFjLTAuNiwwLTEtMC40LTEtMVY3YzAtMC42LDAuNC0xLDEtMWgzdjho + MTR2LTJIMjJ6IE0xOCwxOEg0ICAgdjZoMTRWMTh6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBvbHln + b24gcG9pbnRzPSIxNiwxMCAyNCwxMCAyNCwxNCAzMiw4IDI0LDIgMjQsNiAxNiw2ICAiIGNsYXNzPSJH + cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmSQLDesigner.vb b/GUIs.ZooFlow/Administration/frmSQLDesigner.vb new file mode 100644 index 00000000..0b84d0eb --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmSQLDesigner.vb @@ -0,0 +1,171 @@ +Public Class frmSQLDesigner + Dim CurrentPosition As Integer = 0 + Dim CurrentPlaceholders As New Placeholders() + Dim CurrentTableType As String + Dim AtPlaceholderPattern As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" '"\[%[0-9A-Za-z_-]{1,}\]" + Public Class Placeholders + Public Property RecordId As Integer + Public Property ParentRecordId As Integer + Public Property FormId As Integer + End Class + + Public Property SQLCommand() As String + Get + Return SQL_COMMANDTextBox.Text + End Get + Set(value As String) + SQL_COMMANDTextBox.Text = value + End Set + End Property + + Public Property ConnectionID + Public AutoAttributID + Public Property DesignType As String + + Private Sub frmSQLDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load + Dim oSQL + lblSaveFinalIndex.Visible = False + + If DesignType = "GI_ATTRIBUTE_MAN" Then + EnDisable_Man_Attribute(False) + Else + EnDisable_Man_Attribute(True) + oSQL = "Select * From TBDD_INDEX_MAN WHERE ACTIVE = 1" + Dim oDT = My.DatabaseECM.GetDatatable(oSQL) + cmbAttributeMan.DataSource = oDT + cmbAttributeMan.DisplayMember = oDT.Columns("WD_INDEX").ColumnName + + oSQL = $"Select * From TBDD_INDEX_AUTOM WHERE ACTIVE = 1 AND GUID <> {AutoAttributID}" + Dim oDTAA = My.DatabaseECM.GetDatatable(oSQL) + cmbAttributeAuto.DataSource = oDTAA + cmbAttributeAuto.DisplayMember = oDTAA.Columns("INDEXNAME").ColumnName + EnDisable_Auto_Attribute(True) + + End If + If DesignType = "SQL_OVERVIEW" Then + cmbConnection.Enabled = False + 'btnShowConnections.Enabled = False + Else + cmbConnection.Enabled = True + oSQL = "SELECT * FROM TBDD_CONNECTION WHERE AKTIV = 1" + Dim oDT As DataTable = My.DatabaseECM.GetDatatable(oSQL) + cmbConnection.DataSource = oDT + cmbConnection.DisplayMember = oDT.Columns("Bezeichnung").ColumnName + cmbConnection.ValueMember = oDT.Columns("GUID").ColumnName + If Not IsNothing(ConnectionID) Then + If IsNumeric(ConnectionID) Then + cmbConnection.SelectedValue = ConnectionID + End If + + End If + + 'btnShowConnections.Enabled = True + End If + + End Sub + Private Sub SQL_COMMANDTextBox_TextChanged(sender As Object, e As EventArgs) Handles SQL_COMMANDTextBox.TextChanged, SQL_COMMANDTextBox.Click + CurrentPosition = SQL_COMMANDTextBox.SelectionStart + + If SQL_COMMANDTextBox.Text.Trim().Count = 0 Then + dgvPlaceholders.Enabled = False + Else + dgvPlaceholders.Enabled = True + End If + + CheckForPlaceholders() + End Sub + Sub EnDisable_Man_Attribute(bool As Boolean) + lblAttributeMan.Visible = bool + cmbAttributeMan.Visible = bool + btnAddAttributeMan.Visible = bool + End Sub + Sub EnDisable_Auto_Attribute(bool As Boolean) + lblAttributeAuto.Visible = bool + cmbAttributeAuto.Visible = bool + btnAddAttributeAuto.Visible = bool + End Sub + Private Sub CheckForPlaceholders() + Dim text As String = SQL_COMMANDTextBox.Text + dgvPlaceholders.Rows.Clear() + + Dim patterns As List(Of clsPatterns.Pattern) = clsPatterns.GetAllPatterns(text) + + For Each pattern In patterns + dgvPlaceholders.Rows.Add({pattern.ToString, ""}) + Next + + 'Dim count As Integer = 0 + 'Dim text As String = Me.Value + 'Dim atPlaceholderRegex = New Regex(AtPlaceholderPattern, RegexOptions.IgnoreCase) + 'Dim matches As MatchCollection = atPlaceholderRegex.Matches(text) + 'dgvPlaceholders.Rows.Clear() + 'For Each match As Match In matches + ' dgvPlaceholders.Rows.Add({match.Value, ""}) + 'Next + End Sub + Private Sub InsertAtSelection(str As String) + Dim altePosition As Integer = SQL_COMMANDTextBox.SelectionStart() + SQL_COMMANDTextBox.Text = SQL_COMMANDTextBox.Text.Insert(altePosition, str) + SQL_COMMANDTextBox.SelectionStart = altePosition + str.Length + End Sub + + Private Sub btnTestSQL_Click(sender As Object, e As EventArgs) Handles btnTestSQL.Click + Try + Dim query As String = SQL_COMMANDTextBox.Text + + For Each row As DataGridViewRow In dgvPlaceholders.Rows + Dim placeholder As String = row.Cells(0).Value + Dim replacement As String = row.Cells(1).Value + + ' Wenn Ersetzung ausgefüllt wurde, Platzhalter damit ersetzen + If Not String.IsNullOrEmpty(replacement) Then + Dim pattern As New clsPatterns.Pattern(placeholder) + + query = clsPatterns.ReplacePattern(query, pattern.Type, replacement) + Else + MsgBox("Bitte geben Sie für den Platzhalter " & placeholder & " einen Wert an!", MsgBoxStyle.Exclamation, "Fehlende Platzhalter Ersetzung") + Exit Sub + End If + Next + + Dim oconString = My.DatabaseECM.Get_ConnectionStringforID(cmbConnection.SelectedValue) + Dim decryptedConString = My.DatabaseECM.DecryptConnectionString(oconString) + Dim oDT = My.DatabaseECM.GetDatatableWithConnection(query, decryptedConString) + + + If oDT IsNot Nothing Then + dgvResult.DataSource = oDT + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click + SQLCommand = SQL_COMMANDTextBox.Text + ConnectionID = cmbConnection.SelectedValue + Me.Close() + End Sub + + Private Sub btnAddAttributeMan_Click(sender As Object, e As EventArgs) Handles btnAddAttributeMan.Click + If cmbAttributeMan.SelectedIndex <> -1 Then + Dim value As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_MAN, cmbAttributeMan.Text) + InsertAtSelection(value) + End If + End Sub + + Private Sub btnAddStatic_Click(sender As Object, e As EventArgs) Handles btnAddStatic.Click + If cmbStatic.SelectedIndex <> -1 Then + Dim value As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_INT, cmbStatic.Text) + InsertAtSelection(value) + End If + End Sub + + Private Sub btnAddUser_Click(sender As Object, e As EventArgs) Handles btnAddUser.Click + If cmbUser.SelectedIndex <> -1 Then + Dim value As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_USER, cmbUser.Text) + InsertAtSelection(value) + End If + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/ClassInit.vb b/GUIs.ZooFlow/ClassInit.vb index c388b6a1..71532729 100644 --- a/GUIs.ZooFlow/ClassInit.vb +++ b/GUIs.ZooFlow/ClassInit.vb @@ -216,18 +216,9 @@ Public Class ClassInit Private Sub InitBasicConfig(MyApplication As My.MyApplication) Try My.Tables.DTIDB_COMMON_SQL = My.DatabaseIDB.GetDatatable("SELECT * FROM TBIDB_COMMON_SQL WHERE ACTIVE = 1") - My.Tables.DTIDB_FILESTORE = My.DatabaseIDB.GetDatatable("SELECT * FROM TBIDB_FILESTORE_CONFIG WHERE ACTIVE = 1") - 'Get FilesStores - For Each oRow As DataRow In My.Tables.DTIDB_FILESTORE.Rows - Select Case oRow.Item("TITLE").ToString - Case "ARCHIVE" - My.Filestore_Archive = oRow.Item("STORAGE_PATH") - Case "WORK" - My.Filestore_Work = oRow.Item("STORAGE_PATH") - End Select - Next + Catch ex As Exception Logger.Error(ex) Throw New InitException("Error in InitBasicData", ex) diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb index 2650ee63..0879ceb3 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb @@ -39,6 +39,10 @@ Partial Public Class DSIDB_Stammdaten Private tableTBIDB_CATALOG As TBIDB_CATALOGDataTable + Private tableTBWH_ATTRIBUTE_TYPE As TBWH_ATTRIBUTE_TYPEDataTable + + Private tableVWIDB_OBJECT_STORE As VWIDB_OBJECT_STOREDataTable + Private relationFK_TYP_ID As Global.System.Data.DataRelation Private relationFK_OS_CAT_ID As Global.System.Data.DataRelation @@ -93,6 +97,12 @@ Partial Public Class DSIDB_Stammdaten If (Not (ds.Tables("TBIDB_CATALOG")) Is Nothing) Then MyBase.Tables.Add(New TBIDB_CATALOGDataTable(ds.Tables("TBIDB_CATALOG"))) End If + If (Not (ds.Tables("TBWH_ATTRIBUTE_TYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_ATTRIBUTE_TYPEDataTable(ds.Tables("TBWH_ATTRIBUTE_TYPE"))) + End If + If (Not (ds.Tables("VWIDB_OBJECT_STORE")) Is Nothing) Then + MyBase.Tables.Add(New VWIDB_OBJECT_STOREDataTable(ds.Tables("VWIDB_OBJECT_STORE"))) + End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace @@ -180,6 +190,26 @@ Partial Public Class DSIDB_Stammdaten End Get End Property + _ + Public ReadOnly Property TBWH_ATTRIBUTE_TYPE() As TBWH_ATTRIBUTE_TYPEDataTable + Get + Return Me.tableTBWH_ATTRIBUTE_TYPE + End Get + End Property + + _ + Public ReadOnly Property VWIDB_OBJECT_STORE() As VWIDB_OBJECT_STOREDataTable + Get + Return Me.tableVWIDB_OBJECT_STORE + End Get + End Property + _ + Private Function ShouldSerializeTBWH_ATTRIBUTE_TYPE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWIDB_OBJECT_STORE() As Boolean + Return false + End Function + _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) @@ -495,6 +559,12 @@ Partial Public Class DSIDB_Stammdaten _ Public Delegate Sub TBIDB_CATALOGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_CATALOGRowChangeEvent) + _ + Public Delegate Sub TBWH_ATTRIBUTE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_ATTRIBUTE_TYPERowChangeEvent) + + _ + Public Delegate Sub VWIDB_OBJECT_STORERowChangeEventHandler(ByVal sender As Object, ByVal e As VWIDB_OBJECT_STORERowChangeEvent) + ''' '''Represents the strongly named DataTable class. ''' @@ -1776,6 +1846,8 @@ Partial Public Class DSIDB_Stammdaten Private columnCHANGED_WHO As Global.System.Data.DataColumn + Private columnSYS_ATTRIBUTE As Global.System.Data.DataColumn + _ Public Sub New() @@ -1931,6 +2003,14 @@ Partial Public Class DSIDB_Stammdaten End Get End Property + _ + Public ReadOnly Property SYS_ATTRIBUTEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSYS_ATTRIBUTE + End Get + End Property + _ @@ -1968,20 +2048,30 @@ Partial Public Class DSIDB_Stammdaten _ - Public Overloads Function AddVWIDB_BE_ATTRIBUTERow(ByVal BE_ID As Integer, ByVal BE As String, ByVal ATTR_ID As Integer, ByVal ATTR_TITLE As String, ByVal TYP_ID As Byte, ByVal TYPE_ID As Byte, ByVal TYPE_NAME As String, ByVal VIEW_VISIBLE As Boolean, ByVal VIEW_SEQUENCE As Integer, ByVal LANG_ID As Byte, ByVal LANG_CODE As String, ByVal ADDED_WHEN As Date, ByVal ADDED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal CHANGED_WHO As String) As VWIDB_BE_ATTRIBUTERow + Public Overloads Function AddVWIDB_BE_ATTRIBUTERow( _ + ByVal BE_ID As Integer, _ + ByVal BE As String, _ + ByVal ATTR_ID As Integer, _ + ByVal ATTR_TITLE As String, _ + ByVal TYP_ID As Byte, _ + ByVal TYPE_ID As Byte, _ + ByVal TYPE_NAME As String, _ + ByVal VIEW_VISIBLE As Boolean, _ + ByVal VIEW_SEQUENCE As Integer, _ + ByVal LANG_ID As Byte, _ + ByVal LANG_CODE As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal ADDED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal SYS_ATTRIBUTE As Boolean) As VWIDB_BE_ATTRIBUTERow Dim rowVWIDB_BE_ATTRIBUTERow As VWIDB_BE_ATTRIBUTERow = CType(Me.NewRow,VWIDB_BE_ATTRIBUTERow) - Dim columnValuesArray() As Object = New Object() {BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VISIBLE, VIEW_SEQUENCE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO} + Dim columnValuesArray() As Object = New Object() {BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VISIBLE, VIEW_SEQUENCE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, SYS_ATTRIBUTE} rowVWIDB_BE_ATTRIBUTERow.ItemArray = columnValuesArray Me.Rows.Add(rowVWIDB_BE_ATTRIBUTERow) Return rowVWIDB_BE_ATTRIBUTERow End Function - _ - Public Function FindByLANG_ID(ByVal LANG_ID As Byte) As VWIDB_BE_ATTRIBUTERow - Return CType(Me.Rows.Find(New Object() {LANG_ID}),VWIDB_BE_ATTRIBUTERow) - End Function - _ Public Overrides Function Clone() As Global.System.Data.DataTable @@ -2014,6 +2104,7 @@ Partial Public Class DSIDB_Stammdaten Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnSYS_ATTRIBUTE = MyBase.Columns("SYS_ATTRIBUTE") End Sub - '''Represents strongly named DataRow class. + '''Represents the strongly named DataTable class. ''' - Partial Public Class TBIDB_BUSINESS_ENTITYRow - Inherits Global.System.Data.DataRow + _ + Partial Public Class TBWH_ATTRIBUTE_TYPEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_ATTRIBUTE_TYPERow) - Private tableTBIDB_BUSINESS_ENTITY As TBIDB_BUSINESS_ENTITYDataTable + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME_TYPE As Global.System.Data.DataColumn _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBIDB_BUSINESS_ENTITY = CType(Me.Table,TBIDB_BUSINESS_ENTITYDataTable) + Public Sub New() + MyBase.New + Me.TableName = "TBWH_ATTRIBUTE_TYPE" + Me.BeginInit + Me.InitClass + Me.EndInit End Sub _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.GUIDColumn) = value - End Set - End Property + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub _ - Public Property PARENT_ENT_ID() As Integer - Get - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.PARENT_ENT_IDColumn),Integer) - End Get - Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.PARENT_ENT_IDColumn) = value - End Set - End Property + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub _ - Public Property TITLE() As String + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.TITLEColumn),String) + Return Me.columnGUID End Get - Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.TITLEColumn) = value - End Set End Property _ - Public Property INHERITS_ATTRIBUTES() As Boolean + Public ReadOnly Property NAME_TYPEColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.INHERITS_ATTRIBUTESColumn),Boolean) + Return Me.columnNAME_TYPE End Get - Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.INHERITS_ATTRIBUTESColumn) = value - End Set End Property _ - Public Property COMMENT() As String + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer Get - Try - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) - End Try + Return Me.Rows.Count End Get - Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = value - End Set End Property _ - Public Property ADDED_WHO() As String + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_ATTRIBUTE_TYPERow Get - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn),String) + Return CType(Me.Rows(index),TBWH_ATTRIBUTE_TYPERow) End Get - Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn) = value - End Set End Property + _ + Public Event TBWH_ATTRIBUTE_TYPERowChanging As TBWH_ATTRIBUTE_TYPERowChangeEventHandler + + _ + Public Event TBWH_ATTRIBUTE_TYPERowChanged As TBWH_ATTRIBUTE_TYPERowChangeEventHandler + + _ + Public Event TBWH_ATTRIBUTE_TYPERowDeleting As TBWH_ATTRIBUTE_TYPERowChangeEventHandler + + _ + Public Event TBWH_ATTRIBUTE_TYPERowDeleted As TBWH_ATTRIBUTE_TYPERowChangeEventHandler + _ - Public Property ADDED_WHEN() As Date - Get - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn),Date) - End Get - Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) = value - End Set - End Property + Public Overloads Sub AddTBWH_ATTRIBUTE_TYPERow(ByVal row As TBWH_ATTRIBUTE_TYPERow) + Me.Rows.Add(row) + End Sub _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) = value - End Set - End Property + Public Overloads Function AddTBWH_ATTRIBUTE_TYPERow(ByVal GUID As Byte, ByVal NAME_TYPE As String) As TBWH_ATTRIBUTE_TYPERow + Dim rowTBWH_ATTRIBUTE_TYPERow As TBWH_ATTRIBUTE_TYPERow = CType(Me.NewRow,TBWH_ATTRIBUTE_TYPERow) + Dim columnValuesArray() As Object = New Object() {GUID, NAME_TYPE} + rowTBWH_ATTRIBUTE_TYPERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_ATTRIBUTE_TYPERow) + Return rowTBWH_ATTRIBUTE_TYPERow + End Function _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) = value - End Set - End Property + Public Function FindByGUID(ByVal GUID As Byte) As TBWH_ATTRIBUTE_TYPERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_ATTRIBUTE_TYPERow) + End Function _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_ATTRIBUTE_TYPEDataTable = CType(MyBase.Clone,TBWH_ATTRIBUTE_TYPEDataTable) + cln.InitVars + Return cln End Function _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = Global.System.Convert.DBNull - End Sub + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_ATTRIBUTE_TYPEDataTable() + End Function _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) - End Function + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME_TYPE = MyBase.Columns("NAME_TYPE") + End Sub _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME_TYPE = New Global.System.Data.DataColumn("NAME_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME_TYPE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnNAME_TYPE.AllowDBNull = false + Me.columnNAME_TYPE.MaxLength = 100 End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) + Public Function NewTBWH_ATTRIBUTE_TYPERow() As TBWH_ATTRIBUTE_TYPERow + Return CType(Me.NewRow,TBWH_ATTRIBUTE_TYPERow) End Function _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBIDB_ATTRIBUTERow - Inherits Global.System.Data.DataRow + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_ATTRIBUTE_TYPERow(builder) + End Function - Private tableTBIDB_ATTRIBUTE As TBIDB_ATTRIBUTEDataTable + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_ATTRIBUTE_TYPERow) + End Function _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBIDB_ATTRIBUTE = CType(Me.Table,TBIDB_ATTRIBUTEDataTable) + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_ATTRIBUTE_TYPERowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_ATTRIBUTE_TYPERowChanged(Me, New TBWH_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBWH_ATTRIBUTE_TYPERow), e.Action)) + End If End Sub _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.GUIDColumn) = value - End Set - End Property + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_ATTRIBUTE_TYPERowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_ATTRIBUTE_TYPERowChanging(Me, New TBWH_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBWH_ATTRIBUTE_TYPERow), e.Action)) + End If + End Sub _ - Public Property TITLE() As String - Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.TITLEColumn),String) - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.TITLEColumn) = value - End Set - End Property + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_ATTRIBUTE_TYPERowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_ATTRIBUTE_TYPERowDeleted(Me, New TBWH_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBWH_ATTRIBUTE_TYPERow), e.Action)) + End If + End Sub _ - Public Property TYP_ID() As Byte - Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn),Byte) - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn) = value - End Set - End Property + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_ATTRIBUTE_TYPERowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_ATTRIBUTE_TYPERowDeleting(Me, New TBWH_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBWH_ATTRIBUTE_TYPERow), e.Action)) + End If + End Sub _ - Public Property MULTI_CONTEXT() As Boolean - Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.MULTI_CONTEXTColumn),Boolean) - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.MULTI_CONTEXTColumn) = value - End Set - End Property + Public Sub RemoveTBWH_ATTRIBUTE_TYPERow(ByVal row As TBWH_ATTRIBUTE_TYPERow) + Me.Rows.Remove(row) + End Sub _ - Public Property VIEW_SEQUENCE() As Integer - Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.VIEW_SEQUENCEColumn),Integer) - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.VIEW_SEQUENCEColumn) = value - End Set - End Property + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_ATTRIBUTE_TYPEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWIDB_OBJECT_STOREDataTable + Inherits Global.System.Data.TypedTableBase(Of VWIDB_OBJECT_STORERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnObjectstore As Global.System.Data.DataColumn + + Private columnArchive As Global.System.Data.DataColumn + + Private columnREL_PATH As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ - Public Property VIEW_VISIBLE() As Boolean - Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.VIEW_VISIBLEColumn),Boolean) - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.VIEW_VISIBLEColumn) = value - End Set - End Property + Public Sub New() + MyBase.New + Me.TableName = "VWIDB_OBJECT_STORE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub _ - Public Property COMMENT() As String + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) - End Try + Return Me.columnGUID End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) = value - End Set End Property _ - Public Property ADDED_WHO() As String + Public ReadOnly Property ObjectstoreColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHOColumn),String) + Return Me.columnObjectstore End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHOColumn) = value - End Set End Property _ - Public Property ADDED_WHEN() As Date + Public ReadOnly Property ArchiveColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHENColumn),Date) + Return Me.columnArchive End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHENColumn) = value - End Set End Property _ - Public Property CHANGED_WHO() As String + Public ReadOnly Property REL_PATHColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) - End Try + Return Me.columnREL_PATH End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) = value - End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) - End Try + Return Me.columnADDED_WHEN End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) = value - End Set End Property _ - Public Property DELETED() As Boolean + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETEDColumn),Boolean) + Return Me.columnADDED_WHO End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.DELETEDColumn) = value - End Set End Property _ - Public Property DELETED_WHO() As String + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DELETED_WHO in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) - End Try + Return Me.columnCHANGED_WHO End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) = value - End Set End Property _ - Public Property DELETED_WHEN() As Date + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DELETED_WHEN in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) - End Try + Return Me.columnCHANGED_WHEN End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) = value - End Set End Property _ - Public Property ATTR_TYPE() As String + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn),String) + Return Me.Rows.Count End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn) = value - End Set End Property _ - Public Property TBIDB_ATTRIBUTE_TYPERow() As TBIDB_ATTRIBUTE_TYPERow + Public Default ReadOnly Property Item(ByVal index As Integer) As VWIDB_OBJECT_STORERow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TYP_ID")),TBIDB_ATTRIBUTE_TYPERow) + Return CType(Me.Rows(index),VWIDB_OBJECT_STORERow) End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TYP_ID")) - End Set End Property - _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) - End Function + _ + Public Event VWIDB_OBJECT_STORERowChanging As VWIDB_OBJECT_STORERowChangeEventHandler + + _ + Public Event VWIDB_OBJECT_STORERowChanged As VWIDB_OBJECT_STORERowChangeEventHandler + + _ + Public Event VWIDB_OBJECT_STORERowDeleting As VWIDB_OBJECT_STORERowChangeEventHandler + + _ + Public Event VWIDB_OBJECT_STORERowDeleted As VWIDB_OBJECT_STORERowChangeEventHandler _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) = Global.System.Convert.DBNull + Public Overloads Sub AddVWIDB_OBJECT_STORERow(ByVal row As VWIDB_OBJECT_STORERow) + Me.Rows.Add(row) End Sub _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) + Public Overloads Function AddVWIDB_OBJECT_STORERow(ByVal GUID As Integer, ByVal Objectstore As String, ByVal Archive As Boolean, ByVal REL_PATH As String, ByVal ADDED_WHEN As Date, ByVal ADDED_WHO As String, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As VWIDB_OBJECT_STORERow + Dim rowVWIDB_OBJECT_STORERow As VWIDB_OBJECT_STORERow = CType(Me.NewRow,VWIDB_OBJECT_STORERow) + Dim columnValuesArray() As Object = New Object() {GUID, Objectstore, Archive, REL_PATH, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN} + rowVWIDB_OBJECT_STORERow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWIDB_OBJECT_STORERow) + Return rowVWIDB_OBJECT_STORERow End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub + Public Function FindByGUID(ByVal GUID As Integer) As VWIDB_OBJECT_STORERow + Return CType(Me.Rows.Find(New Object() {GUID}),VWIDB_OBJECT_STORERow) + End Function _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWIDB_OBJECT_STOREDataTable = CType(MyBase.Clone,VWIDB_OBJECT_STOREDataTable) + cln.InitVars + Return cln End Function _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWIDB_OBJECT_STOREDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnObjectstore = MyBase.Columns("Objectstore") + Me.columnArchive = MyBase.Columns("Archive") + Me.columnREL_PATH = MyBase.Columns("REL_PATH") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ - Public Function IsDELETED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnObjectstore = New Global.System.Data.DataColumn("Objectstore", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnObjectstore) + Me.columnArchive = New Global.System.Data.DataColumn("Archive", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnArchive) + Me.columnREL_PATH = New Global.System.Data.DataColumn("REL_PATH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnREL_PATH) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnObjectstore.AllowDBNull = false + Me.columnObjectstore.MaxLength = 250 + Me.columnArchive.AllowDBNull = false + Me.columnREL_PATH.AllowDBNull = false + Me.columnREL_PATH.MaxLength = 900 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 30 + Me.columnCHANGED_WHO.MaxLength = 30 + End Sub + + _ + Public Function NewVWIDB_OBJECT_STORERow() As VWIDB_OBJECT_STORERow + Return CType(Me.NewRow,VWIDB_OBJECT_STORERow) End Function _ - Public Sub SetDELETED_WHONull() - Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) = Global.System.Convert.DBNull - End Sub + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWIDB_OBJECT_STORERow(builder) + End Function _ - Public Function IsDELETED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWIDB_OBJECT_STORERow) End Function _ - Public Sub SetDELETED_WHENNull() - Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWIDB_OBJECT_STORERowChangedEvent) Is Nothing) Then + RaiseEvent VWIDB_OBJECT_STORERowChanged(Me, New VWIDB_OBJECT_STORERowChangeEvent(CType(e.Row,VWIDB_OBJECT_STORERow), e.Action)) + End If End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWIDB_OBJECT_STORERowChangingEvent) Is Nothing) Then + RaiseEvent VWIDB_OBJECT_STORERowChanging(Me, New VWIDB_OBJECT_STORERowChangeEvent(CType(e.Row,VWIDB_OBJECT_STORERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWIDB_OBJECT_STORERowDeletedEvent) Is Nothing) Then + RaiseEvent VWIDB_OBJECT_STORERowDeleted(Me, New VWIDB_OBJECT_STORERowChangeEvent(CType(e.Row,VWIDB_OBJECT_STORERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWIDB_OBJECT_STORERowDeletingEvent) Is Nothing) Then + RaiseEvent VWIDB_OBJECT_STORERowDeleting(Me, New VWIDB_OBJECT_STORERowChangeEvent(CType(e.Row,VWIDB_OBJECT_STORERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWIDB_OBJECT_STORERow(ByVal row As VWIDB_OBJECT_STORERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWIDB_OBJECT_STOREDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBIDB_ATTRIBUTE_TYPERow + Partial Public Class TBIDB_BUSINESS_ENTITYRow Inherits Global.System.Data.DataRow - Private tableTBIDB_ATTRIBUTE_TYPE As TBIDB_ATTRIBUTE_TYPEDataTable + Private tableTBIDB_BUSINESS_ENTITY As TBIDB_BUSINESS_ENTITYDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBIDB_ATTRIBUTE_TYPE = CType(Me.Table,TBIDB_ATTRIBUTE_TYPEDataTable) + Me.tableTBIDB_BUSINESS_ENTITY = CType(Me.Table,TBIDB_BUSINESS_ENTITYDataTable) End Sub _ - Public Property GUID() As Byte - Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn),Byte) - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn) = value - End Set - End Property - - _ - Public Property NAME_TYPE() As String - Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.NAME_TYPEColumn),String) - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.NAME_TYPEColumn) = value - End Set - End Property - - _ - Public Property COMMENT() As String + Public Property GUID() As Integer Get - Try - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.GUIDColumn),Integer) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) = value + Me(Me.tableTBIDB_BUSINESS_ENTITY.GUIDColumn) = value End Set End Property _ - Public Property BIT1() As Boolean + Public Property PARENT_ENT_ID() As Integer Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT1Column),Boolean) + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.PARENT_ENT_IDColumn),Integer) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT1Column) = value + Me(Me.tableTBIDB_BUSINESS_ENTITY.PARENT_ENT_IDColumn) = value End Set End Property _ - Public Property BIT2() As Boolean + Public Property TITLE() As String Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT2Column),Boolean) + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.TITLEColumn),String) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT2Column) = value + Me(Me.tableTBIDB_BUSINESS_ENTITY.TITLEColumn) = value End Set End Property _ - Public Property BIT3() As Boolean + Public Property INHERITS_ATTRIBUTES() As Boolean Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT3Column),Boolean) + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.INHERITS_ATTRIBUTESColumn),Boolean) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT3Column) = value + Me(Me.tableTBIDB_BUSINESS_ENTITY.INHERITS_ATTRIBUTESColumn) = value End Set End Property _ - Public Property BIT4() As Boolean + Public Property COMMENT() As String Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT4Column),Boolean) + Try + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT4Column) = value + Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = value End Set End Property @@ -3914,10 +4188,10 @@ Partial Public Class DSIDB_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHOColumn) = value + Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn) = value End Set End Property @@ -3925,14 +4199,10 @@ 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 - Try - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn),Date) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = value + Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) = value End Set End Property @@ -3941,13 +4211,13 @@ Partial Public Class DSIDB_Stammdaten Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) End Try End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) = value + Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) = value End Set End Property @@ -3956,385 +4226,418 @@ Partial Public Class DSIDB_Stammdaten Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) End Try End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) = value + Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) + Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) = Global.System.Convert.DBNull + Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) + Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ - Public Function GetTBIDB_ATTRIBUTERows() As TBIDB_ATTRIBUTERow() - If (Me.Table.ChildRelations("FK_TYP_ID") Is Nothing) Then - Return New TBIDB_ATTRIBUTERow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TYP_ID")),TBIDB_ATTRIBUTERow()) - End If - End Function End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class VWIDB_BE_ATTRIBUTERow + Partial Public Class TBIDB_ATTRIBUTERow Inherits Global.System.Data.DataRow - Private tableVWIDB_BE_ATTRIBUTE As VWIDB_BE_ATTRIBUTEDataTable + Private tableTBIDB_ATTRIBUTE As TBIDB_ATTRIBUTEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableVWIDB_BE_ATTRIBUTE = CType(Me.Table,VWIDB_BE_ATTRIBUTEDataTable) + Me.tableTBIDB_ATTRIBUTE = CType(Me.Table,TBIDB_ATTRIBUTEDataTable) End Sub _ - Public Property BE_ID() As Integer + Public Property GUID() As Integer Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn),Integer) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.GUIDColumn),Integer) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.GUIDColumn) = value End Set End Property _ - Public Property BE() As String + Public Property TITLE() As String Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn),String) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.TITLEColumn),String) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.TITLEColumn) = value End Set End Property _ - Public Property ATTR_ID() As Integer + Public Property TYP_ID() As Byte Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn),Integer) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn),Byte) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn) = value End Set End Property _ - Public Property ATTR_TITLE() As String + Public Property MULTI_CONTEXT() As Boolean Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn),String) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.MULTI_CONTEXTColumn),Boolean) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.MULTI_CONTEXTColumn) = value End Set End Property _ - Public Property TYP_ID() As Byte + Public Property VIEW_SEQUENCE() As Integer Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn),Byte) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.VIEW_SEQUENCEColumn),Integer) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.VIEW_SEQUENCEColumn) = value End Set End Property _ - Public Property TYPE_ID() As Byte + Public Property VIEW_VISIBLE() As Boolean Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn),Byte) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.VIEW_VISIBLEColumn),Boolean) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.VIEW_VISIBLEColumn) = value End Set End Property _ - Public Property TYPE_NAME() As String + Public Property COMMENT() As String Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn),String) + Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) + End Try End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) = value End Set End Property _ - Public Property VIEW_VISIBLE() As Boolean + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_VISIBLEColumn),Boolean) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHOColumn),String) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_VISIBLEColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHOColumn) = value End Set End Property _ - Public Property VIEW_SEQUENCE() As Integer + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_SEQUENCEColumn),Integer) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHENColumn),Date) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_SEQUENCEColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHENColumn) = value End Set End Property _ - Public Property LANG_ID() As Byte + Public Property CHANGED_WHO() As String Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_IDColumn),Byte) + Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) + End Try End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_IDColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) = value End Set End Property _ - Public Property LANG_CODE() As String + Public Property CHANGED_WHEN() As Date Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_CODEColumn),String) + Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) + End Try End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_CODEColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property DELETED() As Boolean Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETEDColumn),Boolean) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.DELETEDColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property DELETED_WHO() As String Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DELETED_WHO in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) + End Try End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHOColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property DELETED_WHEN() As Date Get Try - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DELETED_WHEN in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) End Try End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property ATTR_TYPE() As String Get - Try - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn),String) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn) = value End Set End Property _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn) + Public Property TBIDB_ATTRIBUTE_TYPERow() As TBIDB_ATTRIBUTE_TYPERow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TYP_ID")),TBIDB_ATTRIBUTE_TYPERow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TYP_ID")) + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) End Function _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetCOMMENTNull() + Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn) + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() - Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDELETED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) + End Function + + _ + Public Sub SetDELETED_WHONull() + Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDELETED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) + End Function + + _ + Public Sub SetDELETED_WHENNull() + Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBZF_ADMIN_SOURCE_SQLRow + Partial Public Class TBIDB_ATTRIBUTE_TYPERow Inherits Global.System.Data.DataRow - Private tableTBZF_ADMIN_SOURCE_SQL As TBZF_ADMIN_SOURCE_SQLDataTable + Private tableTBIDB_ATTRIBUTE_TYPE As TBIDB_ATTRIBUTE_TYPEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBZF_ADMIN_SOURCE_SQL = CType(Me.Table,TBZF_ADMIN_SOURCE_SQLDataTable) + Me.tableTBIDB_ATTRIBUTE_TYPE = CType(Me.Table,TBIDB_ATTRIBUTE_TYPEDataTable) End Sub _ - Public Property GUID() As Integer + Public Property GUID() As Byte Get - Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.GUIDColumn),Integer) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn),Byte) End Get Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.GUIDColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn) = value End Set End Property _ - Public Property PARENT_ID() As Integer + Public Property NAME_TYPE() As String Get - Try - Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn),Integer) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARENT_ID in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.NAME_TYPEColumn),String) End Get Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.NAME_TYPEColumn) = value End Set End Property _ - Public Property ENTITY_TITLE() As String + Public Property COMMENT() As String Get - Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ENTITY_TITLEColumn),String) + Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ENTITY_TITLEColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) = value End Set End Property _ - Public Property SCOPE() As String + Public Property BIT1() As Boolean Get - Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SCOPEColumn),String) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT1Column),Boolean) End Get Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SCOPEColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT1Column) = value End Set End Property _ - Public Property PK_COLUMN() As String + Public Property BIT2() As Boolean Get - Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PK_COLUMNColumn),String) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT2Column),Boolean) End Get Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PK_COLUMNColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT2Column) = value End Set End Property _ - Public Property COMMENT() As String + Public Property BIT3() As Boolean Get - Try - Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT3Column),Boolean) End Get Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT3Column) = value End Set End Property _ - Public Property SQL_COMMAND() As String + Public Property BIT4() As Boolean Get - Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SQL_COMMANDColumn),String) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT4Column),Boolean) End Get Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SQL_COMMANDColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT4Column) = value End Set End Property @@ -4342,14 +4645,10 @@ Partial Public Class DSIDB_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get - Try - Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHOColumn) = value End Set End Property @@ -4358,13 +4657,13 @@ Partial Public Class DSIDB_Stammdaten Public Property ADDED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = value End Set End Property @@ -4373,13 +4672,13 @@ Partial Public Class DSIDB_Stammdaten Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) = value End Set End Property @@ -4388,213 +4687,208 @@ Partial Public Class DSIDB_Stammdaten Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property FK_COLUMN() As String - Get - Try - Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.FK_COLUMNColumn),String) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_COLUMN in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.FK_COLUMNColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) = value End Set End Property - _ - Public Function IsPARENT_IDNull() As Boolean - Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn) - End Function - - _ - Public Sub SetPARENT_IDNull() - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn) = Global.System.Convert.DBNull - End Sub - _ Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn) + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn) - End Function - - _ - Public Sub SetADDED_WHONull() - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn) = Global.System.Convert.DBNull + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn) + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn) + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn) + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsFK_COLUMNNull() As Boolean - Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.FK_COLUMNColumn) + Public Function GetTBIDB_ATTRIBUTERows() As TBIDB_ATTRIBUTERow() + If (Me.Table.ChildRelations("FK_TYP_ID") Is Nothing) Then + Return New TBIDB_ATTRIBUTERow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TYP_ID")),TBIDB_ATTRIBUTERow()) + End If End Function - - _ - Public Sub SetFK_COLUMNNull() - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.FK_COLUMNColumn) = Global.System.Convert.DBNull - End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBIDB_OBJECT_STORERow + Partial Public Class VWIDB_BE_ATTRIBUTERow Inherits Global.System.Data.DataRow - Private tableTBIDB_OBJECT_STORE As TBIDB_OBJECT_STOREDataTable + Private tableVWIDB_BE_ATTRIBUTE As VWIDB_BE_ATTRIBUTEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBIDB_OBJECT_STORE = CType(Me.Table,TBIDB_OBJECT_STOREDataTable) + Me.tableVWIDB_BE_ATTRIBUTE = CType(Me.Table,VWIDB_BE_ATTRIBUTEDataTable) End Sub _ - Public Property GUID() As Integer + Public Property BE_ID() As Integer Get - Return CType(Me(Me.tableTBIDB_OBJECT_STORE.GUIDColumn),Integer) + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn),Integer) End Get Set - Me(Me.tableTBIDB_OBJECT_STORE.GUIDColumn) = value + Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn) = value End Set End Property _ - Public Property OBJECT_TITLE() As String + Public Property BE() As String Get - Return CType(Me(Me.tableTBIDB_OBJECT_STORE.OBJECT_TITLEColumn),String) + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn),String) End Get Set - Me(Me.tableTBIDB_OBJECT_STORE.OBJECT_TITLEColumn) = value + Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn) = value End Set End Property _ - Public Property CAT_ID() As Integer + Public Property ATTR_ID() As Integer Get - Return CType(Me(Me.tableTBIDB_OBJECT_STORE.CAT_IDColumn),Integer) + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn),Integer) End Get Set - Me(Me.tableTBIDB_OBJECT_STORE.CAT_IDColumn) = value + Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn) = value End Set End Property _ - Public Property OBJ_PATH() As String + Public Property ATTR_TITLE() As String Get - Return CType(Me(Me.tableTBIDB_OBJECT_STORE.OBJ_PATHColumn),String) + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn),String) End Get Set - Me(Me.tableTBIDB_OBJECT_STORE.OBJ_PATHColumn) = value + Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn) = value End Set End Property _ - Public Property IS_ARCHIVE() As Boolean + Public Property TYP_ID() As Byte Get - Return CType(Me(Me.tableTBIDB_OBJECT_STORE.IS_ARCHIVEColumn),Boolean) + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn),Byte) End Get Set - Me(Me.tableTBIDB_OBJECT_STORE.IS_ARCHIVEColumn) = value + Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn) = value End Set End Property _ - Public Property COMMENT() As String + Public Property TYPE_ID() As Byte Get - Try - Return CType(Me(Me.tableTBIDB_OBJECT_STORE.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) - End Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn),Byte) End Get Set - Me(Me.tableTBIDB_OBJECT_STORE.COMMENTColumn) = value + Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property TYPE_NAME() As String Get - Try - Return CType(Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) - End Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn),String) End Get Set - Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHOColumn) = value + Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn) = value + End Set + End Property + + _ + Public Property VIEW_VISIBLE() As Boolean + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_VISIBLEColumn),Boolean) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_VISIBLEColumn) = value + End Set + End Property + + _ + Public Property VIEW_SEQUENCE() As Integer + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property LANG_ID() As Byte + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_IDColumn),Byte) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_IDColumn) = value + End Set + End Property + + _ + Public Property LANG_CODE() As String + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_CODEColumn),String) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_CODEColumn) = value End Set End Property @@ -4602,29 +4896,21 @@ 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 - Try - Return CType(Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) - End Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn),Date) End Get Set - Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHENColumn) = value + Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property ADDED_WHO() As String Get - Try - Return CType(Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) - End Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHOColumn) = value + Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHOColumn) = value End Set End Property @@ -4633,160 +4919,164 @@ Partial Public Class DSIDB_Stammdaten Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHENColumn) = value + Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn) = value End Set End Property _ - Public Property CAT_TITLE() As String + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBIDB_OBJECT_STORE.CAT_TITLEColumn),String) + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CAT_TITLE in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBIDB_OBJECT_STORE.CAT_TITLEColumn) = value + Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn) = value End Set End Property _ - Public Property TBIDB_CATALOGRow() As TBIDB_CATALOGRow + Public Property SYS_ATTRIBUTE() As Boolean Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_OS_CAT_ID")),TBIDB_CATALOGRow) + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.SYS_ATTRIBUTEColumn),Boolean) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_OS_CAT_ID")) + Me(Me.tableVWIDB_BE_ATTRIBUTE.SYS_ATTRIBUTEColumn) = value End Set End Property _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.COMMENTColumn) + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn) End Function _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBIDB_OBJECT_STORE.COMMENTColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADDED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.ADDED_WHOColumn) + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn) End Function _ - Public Sub SetADDED_WHONull() - Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBZF_ADMIN_SOURCE_SQLRow + Inherits Global.System.Data.DataRow - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHOColumn) - End Function + Private tableTBZF_ADMIN_SOURCE_SQL As TBZF_ADMIN_SOURCE_SQLDataTable _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBZF_ADMIN_SOURCE_SQL = CType(Me.Table,TBZF_ADMIN_SOURCE_SQLDataTable) End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.GUIDColumn) = value + End Set + End Property _ - Public Function IsCAT_TITLENull() As Boolean - Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.CAT_TITLEColumn) - End Function + Public Property PARENT_ID() As Integer + Get + Try + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARENT_ID in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn) = value + End Set + End Property _ - Public Sub SetCAT_TITLENull() - Me(Me.tableTBIDB_OBJECT_STORE.CAT_TITLEColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBIDB_CATALOGRow - Inherits Global.System.Data.DataRow - - Private tableTBIDB_CATALOG As TBIDB_CATALOGDataTable + Public Property ENTITY_TITLE() As String + Get + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ENTITY_TITLEColumn),String) + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ENTITY_TITLEColumn) = value + End Set + End Property _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBIDB_CATALOG = CType(Me.Table,TBIDB_CATALOGDataTable) - End Sub + Public Property SCOPE() As String + Get + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SCOPEColumn),String) + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SCOPEColumn) = value + End Set + End Property _ - Public Property GUID() As Integer + Public Property PK_COLUMN() As String Get - Return CType(Me(Me.tableTBIDB_CATALOG.GUIDColumn),Integer) + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PK_COLUMNColumn),String) End Get Set - Me(Me.tableTBIDB_CATALOG.GUIDColumn) = value + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PK_COLUMNColumn) = value End Set End Property _ - Public Property CAT_TITLE() As String + Public Property COMMENT() As String Get - Return CType(Me(Me.tableTBIDB_CATALOG.CAT_TITLEColumn),String) + Try + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBIDB_CATALOG.CAT_TITLEColumn) = value + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn) = value End Set End Property _ - Public Property CAT_STRING() As String + Public Property SQL_COMMAND() As String Get - Return CType(Me(Me.tableTBIDB_CATALOG.CAT_STRINGColumn),String) + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SQL_COMMANDColumn),String) End Get Set - Me(Me.tableTBIDB_CATALOG.CAT_STRINGColumn) = value + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SQL_COMMANDColumn) = value End Set End Property @@ -4794,10 +5084,14 @@ Partial Public Class DSIDB_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBIDB_CATALOG.ADDED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBIDB_CATALOG.ADDED_WHOColumn) = value + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn) = value End Set End Property @@ -4805,10 +5099,14 @@ 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.tableTBIDB_CATALOG.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBIDB_CATALOG.ADDED_WHENColumn) = value + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn) = value End Set End Property @@ -4817,13 +5115,13 @@ Partial Public Class DSIDB_Stammdaten Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBIDB_CATALOG.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_CATALOG ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) End Try End Get Set - Me(Me.tableTBIDB_CATALOG.CHANGED_WHOColumn) = value + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn) = value End Set End Property @@ -4832,1143 +5130,2635 @@ Partial Public Class DSIDB_Stammdaten Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBIDB_CATALOG.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_CATALOG ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) End Try End Get Set - Me(Me.tableTBIDB_CATALOG.CHANGED_WHENColumn) = value + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property FK_COLUMN() As String + Get + Try + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.FK_COLUMNColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_COLUMN in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.FK_COLUMNColumn) = value End Set End Property + _ + Public Function IsPARENT_IDNull() As Boolean + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn) + End Function + + _ + Public Sub SetPARENT_IDNull() + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + _ Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBIDB_CATALOG.CHANGED_WHOColumn) + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() - Me(Me.tableTBIDB_CATALOG.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_CATALOG.CHANGED_WHENColumn) + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBIDB_CATALOG.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function GetTBIDB_OBJECT_STORERows() As TBIDB_OBJECT_STORERow() - If (Me.Table.ChildRelations("FK_OS_CAT_ID") Is Nothing) Then - Return New TBIDB_OBJECT_STORERow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_OS_CAT_ID")),TBIDB_OBJECT_STORERow()) - End If + Public Function IsFK_COLUMNNull() As Boolean + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.FK_COLUMNColumn) End Function + + _ + Public Sub SetFK_COLUMNNull() + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.FK_COLUMNColumn) = Global.System.Convert.DBNull + End Sub End Class ''' - '''Row event argument class + '''Represents strongly named DataRow class. ''' - _ - Public Class TBIDB_BUSINESS_ENTITYRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBIDB_BUSINESS_ENTITYRow + Partial Public Class TBIDB_OBJECT_STORERow + Inherits Global.System.Data.DataRow - Private eventAction As Global.System.Data.DataRowAction + Private tableTBIDB_OBJECT_STORE As TBIDB_OBJECT_STOREDataTable _ - Public Sub New(ByVal row As TBIDB_BUSINESS_ENTITYRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIDB_OBJECT_STORE = CType(Me.Table,TBIDB_OBJECT_STOREDataTable) End Sub _ - Public ReadOnly Property Row() As TBIDB_BUSINESS_ENTITYRow + Public Property GUID() As Integer Get - Return Me.eventRow + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.GUIDColumn),Integer) End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.GUIDColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property OBJECT_TITLE() As String Get - Return Me.eventAction + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.OBJECT_TITLEColumn),String) End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBIDB_ATTRIBUTERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBIDB_ATTRIBUTERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBIDB_ATTRIBUTERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub + Set + Me(Me.tableTBIDB_OBJECT_STORE.OBJECT_TITLEColumn) = value + End Set + End Property _ - Public ReadOnly Property Row() As TBIDB_ATTRIBUTERow + Public Property CAT_ID() As Integer Get - Return Me.eventRow + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.CAT_IDColumn),Integer) End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.CAT_IDColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property OBJ_PATH() As String Get - Return Me.eventAction + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.OBJ_PATHColumn),String) End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.OBJ_PATHColumn) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBIDB_ATTRIBUTE_TYPERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBIDB_ATTRIBUTE_TYPERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBIDB_ATTRIBUTE_TYPERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub _ - Public ReadOnly Property Row() As TBIDB_ATTRIBUTE_TYPERow + Public Property IS_ARCHIVE() As Boolean Get - Return Me.eventRow + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.IS_ARCHIVEColumn),Boolean) End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.IS_ARCHIVEColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property COMMENT() As String Get - Return Me.eventAction + Try + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.COMMENTColumn) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class VWIDB_BE_ATTRIBUTERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As VWIDB_BE_ATTRIBUTERow - - Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As VWIDB_BE_ATTRIBUTERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHOColumn) = value + End Set + End Property _ - Public ReadOnly Property Row() As VWIDB_BE_ATTRIBUTERow + Public Property ADDED_WHEN() As Date Get - Return Me.eventRow + Try + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHENColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property CHANGED_WHO() As String Get - Return Me.eventAction + Try + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHOColumn) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBZF_ADMIN_SOURCE_SQLRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBZF_ADMIN_SOURCE_SQLRow - - Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBZF_ADMIN_SOURCE_SQLRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHENColumn) = value + End Set + End Property _ - Public ReadOnly Property Row() As TBZF_ADMIN_SOURCE_SQLRow + Public Property CAT_TITLE() As String Get - Return Me.eventRow + Try + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.CAT_TITLEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CAT_TITLE in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.CAT_TITLEColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property TBIDB_CATALOGRow() As TBIDB_CATALOGRow Get - Return Me.eventAction + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_OS_CAT_ID")),TBIDB_CATALOGRow) End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_OS_CAT_ID")) + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBIDB_OBJECT_STORERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBIDB_OBJECT_STORERow - Private eventAction As Global.System.Data.DataRowAction + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.COMMENTColumn) + End Function _ - Public Sub New(ByVal row As TBIDB_OBJECT_STORERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Public Sub SetCOMMENTNull() + Me(Me.tableTBIDB_OBJECT_STORE.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ - Public ReadOnly Property Row() As TBIDB_OBJECT_STORERow - Get - Return Me.eventRow - End Get - End Property + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.ADDED_WHOColumn) + End Function _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBIDB_CATALOGRowChangeEvent - Inherits Global.System.EventArgs + Public Sub SetADDED_WHONull() + Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub - Private eventRow As TBIDB_CATALOGRow + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.ADDED_WHENColumn) + End Function - Private eventAction As Global.System.Data.DataRowAction + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub _ - Public Sub New(ByVal row As TBIDB_CATALOGRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public ReadOnly Property Row() As TBIDB_CATALOGRow - Get - Return Me.eventRow - End Get - End Property + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHENColumn) + End Function _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCAT_TITLENull() As Boolean + Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.CAT_TITLEColumn) + End Function + + _ + Public Sub SetCAT_TITLENull() + Me(Me.tableTBIDB_OBJECT_STORE.CAT_TITLEColumn) = Global.System.Convert.DBNull + End Sub End Class -End Class - -Namespace DSIDB_StammdatenTableAdapters ''' - '''Represents the connection and commands used to retrieve and save data. + '''Represents strongly named DataRow class. ''' - _ - Partial Public Class TBIDB_BUSINESS_ENTITYTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + Partial Public Class TBIDB_CATALOGRow + Inherits Global.System.Data.DataRow - Private _clearBeforeFill As Boolean + Private tableTBIDB_CATALOG As TBIDB_CATALOGDataTable _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIDB_CATALOG = CType(Me.Table,TBIDB_CATALOGDataTable) End Sub _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Public Property GUID() As Integer Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter + Return CType(Me(Me.tableTBIDB_CATALOG.GUIDColumn),Integer) End Get + Set + Me(Me.tableTBIDB_CATALOG.GUIDColumn) = value + End Set End Property _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Public Property CAT_TITLE() As String Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection + Return CType(Me(Me.tableTBIDB_CATALOG.CAT_TITLEColumn),String) End Get Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop + Me(Me.tableTBIDB_CATALOG.CAT_TITLEColumn) = value End Set End Property _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Public Property CAT_STRING() As String Get - Return Me._transaction + Return CType(Me(Me.tableTBIDB_CATALOG.CAT_STRINGColumn),String) End Get Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If + Me(Me.tableTBIDB_CATALOG.CAT_STRINGColumn) = value End Set End Property _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Public Property ADDED_WHO() As String Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection + Return CType(Me(Me.tableTBIDB_CATALOG.ADDED_WHOColumn),String) End Get + Set + Me(Me.tableTBIDB_CATALOG.ADDED_WHOColumn) = value + End Set End Property _ - Public Property ClearBeforeFill() As Boolean + Public Property ADDED_WHEN() As Date Get - Return Me._clearBeforeFill + Return CType(Me(Me.tableTBIDB_CATALOG.ADDED_WHENColumn),Date) End Get Set - Me._clearBeforeFill = value + Me(Me.tableTBIDB_CATALOG.ADDED_WHENColumn) = value End Set End Property _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBIDB_BUSINESS_ENTITY" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PARENT_ENT_ID", "PARENT_ENT_ID") - tableMapping.ColumnMappings.Add("TITLE", "TITLE") - tableMapping.ColumnMappings.Add("INHERITS_ATTRIBUTES", "INHERITS_ATTRIBUTES") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBIDB_BUSINESS_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBIDB_BUSINESS_ENTITY] ([PARENT_ENT_ID], [TITLE], [INHERITS_ATTRIBUT"& _ - "ES], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES"& _ - " (@PARENT_ENT_ID, @TITLE, @INHERITS_ATTRIBUTES, @COMMENT, @ADDED_WHO, @ADDED_WHE"& _ - "N, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_AT"& _ - "TRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_B"& _ - "USINESS_ENTITY WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INHERITS_ATTRIBUTES", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INHERITS_ATTRIBUTES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_BUSINESS_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PARENT_ENT_ID = @PARENT_EN"& _ - "T_ID, TITLE = @TITLE, INHERITS_ATTRIBUTES = @INHERITS_ATTRIBUTES, COMMENT = @COM"& _ - "MENT, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID "& _ - "= @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COM"& _ - "MENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_BUSINESS_ENTIT"& _ - "Y WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INHERITS_ATTRIBUTES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "INHERITS_ATTRIBUTES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - End Sub + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBIDB_CATALOG.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_CATALOG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_CATALOG.CHANGED_WHOColumn) = value + End Set + End Property _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT - End Sub + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_CATALOG.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_CATALOG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_CATALOG.CHANGED_WHENColumn) = value + End Set + End Property _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO"& _ - ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_BUSINESS_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ - "WHERE GUID = @GUID" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_CATALOG.CHANGED_WHOColumn) + End Function _ - Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable, ByVal GUID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBIDB_CATALOG.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub _ - Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) - Dim dataTable As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable = New DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_CATALOG.CHANGED_WHENColumn) End Function _ - Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBIDB_CATALOG.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub _ - Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer - Return Me.Adapter.Update(dataSet, "TBIDB_BUSINESS_ENTITY") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Function GetTBIDB_OBJECT_STORERows() As TBIDB_OBJECT_STORERow() + If (Me.Table.ChildRelations("FK_OS_CAT_ID") Is Nothing) Then + Return New TBIDB_OBJECT_STORERow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_OS_CAT_ID")),TBIDB_OBJECT_STORERow()) + End If End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_ATTRIBUTE_TYPERow + Inherits Global.System.Data.DataRow - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function + Private tableTBWH_ATTRIBUTE_TYPE As TBWH_ATTRIBUTE_TYPEDataTable _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_ATTRIBUTE_TYPE = CType(Me.Table,TBWH_ATTRIBUTE_TYPEDataTable) + End Sub _ - Public Overloads Overridable Function Insert(ByVal PARENT_ENT_ID As Integer, ByVal TITLE As String, ByVal INHERITS_ATTRIBUTES As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PARENT_ENT_ID,Integer) - If (TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TITLE") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(TITLE,String) - End If - Me.Adapter.InsertCommand.Parameters(2).Value = CType(INHERITS_ATTRIBUTES,Boolean) - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHEN,Date) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property GUID() As Byte + Get + Return CType(Me(Me.tableTBWH_ATTRIBUTE_TYPE.GUIDColumn),Byte) + End Get + Set + Me(Me.tableTBWH_ATTRIBUTE_TYPE.GUIDColumn) = value + End Set + End Property _ - Public Overloads Overridable Function Update(ByVal PARENT_ENT_ID As Integer, ByVal TITLE As String, ByVal INHERITS_ATTRIBUTES As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PARENT_ENT_ID,Integer) - If (TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TITLE") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TITLE,String) - End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(INHERITS_ATTRIBUTES,Boolean) - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHEN,Date) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property NAME_TYPE() As String + Get + Return CType(Me(Me.tableTBWH_ATTRIBUTE_TYPE.NAME_TYPEColumn),String) + End Get + Set + Me(Me.tableTBWH_ATTRIBUTE_TYPE.NAME_TYPEColumn) = value + End Set + End Property End Class ''' - '''Represents the connection and commands used to retrieve and save data. + '''Represents strongly named DataRow class. ''' - _ - Partial Public Class TBIDB_ATTRIBUTETableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + Partial Public Class VWIDB_OBJECT_STORERow + Inherits Global.System.Data.DataRow - Private _clearBeforeFill As Boolean + Private tableVWIDB_OBJECT_STORE As VWIDB_OBJECT_STOREDataTable _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWIDB_OBJECT_STORE = CType(Me.Table,VWIDB_OBJECT_STOREDataTable) End Sub _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Public Property GUID() As Integer Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter + Return CType(Me(Me.tableVWIDB_OBJECT_STORE.GUIDColumn),Integer) End Get + Set + Me(Me.tableVWIDB_OBJECT_STORE.GUIDColumn) = value + End Set End Property _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Public Property Objectstore() As String Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection + Return CType(Me(Me.tableVWIDB_OBJECT_STORE.ObjectstoreColumn),String) End Get Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop + Me(Me.tableVWIDB_OBJECT_STORE.ObjectstoreColumn) = value End Set End Property _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Public Property Archive() As Boolean Get - Return Me._transaction + Return CType(Me(Me.tableVWIDB_OBJECT_STORE.ArchiveColumn),Boolean) End Get Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If + Me(Me.tableVWIDB_OBJECT_STORE.ArchiveColumn) = value End Set End Property _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Public Property REL_PATH() As String Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection + Return CType(Me(Me.tableVWIDB_OBJECT_STORE.REL_PATHColumn),String) End Get + Set + Me(Me.tableVWIDB_OBJECT_STORE.REL_PATHColumn) = value + End Set End Property _ - Public Property ClearBeforeFill() As Boolean + Public Property ADDED_WHEN() As Date Get - Return Me._clearBeforeFill + Return CType(Me(Me.tableVWIDB_OBJECT_STORE.ADDED_WHENColumn),Date) End Get Set - Me._clearBeforeFill = value + Me(Me.tableVWIDB_OBJECT_STORE.ADDED_WHENColumn) = value End Set End Property _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBIDB_ATTRIBUTE" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("TITLE", "TITLE") - tableMapping.ColumnMappings.Add("TYP_ID", "TYP_ID") - tableMapping.ColumnMappings.Add("MULTI_CONTEXT", "MULTI_CONTEXT") - tableMapping.ColumnMappings.Add("VIEW_SEQUENCE", "VIEW_SEQUENCE") - tableMapping.ColumnMappings.Add("VIEW_VISIBLE", "VIEW_VISIBLE") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("DELETED", "DELETED") - tableMapping.ColumnMappings.Add("DELETED_WHO", "DELETED_WHO") - tableMapping.ColumnMappings.Add("DELETED_WHEN", "DELETED_WHEN") - tableMapping.ColumnMappings.Add("ATTR_TYPE", "ATTR_TYPE") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, TYP_ID, MULTI_CONTE"& _ - "XT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@TYP"& _ - "_ID,@MULTI_CONTEXT,@VIEW_SEQUENCE,@VIEW_VISIBLE,@COMMENT,@ADDED_WHO)" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTI_CONTEXT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTI_CONTEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, TYP_ID = @TYP_ID"& _ - ", MULTI_CONTEXT = @MULTI_CONTEXT, VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE ="& _ - " @VIEW_VISIBLE, COMMENT = @COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTI_CONTEXT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTI_CONTEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - End Sub + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableVWIDB_OBJECT_STORE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableVWIDB_OBJECT_STORE.ADDED_WHOColumn) = value + End Set + End Property _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT - End Sub + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWIDB_OBJECT_STORE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHOColumn) = value + End Set + End Property _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBIDB_ATTRIBUTE.GUID, TBIDB_ATTRIBUTE.TITLE, TBIDB_ATTRIBUTE.TYP_ID"& _ - ", TBIDB_ATTRIBUTE.MULTI_CONTEXT, TBIDB_ATTRIBUTE.VIEW_SEQUENCE, TBIDB_ATTRIBUTE."& _ - "VIEW_VISIBLE, TBIDB_ATTRIBUTE.COMMENT,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBIDB_ATTRIBUT"& _ - "E.ADDED_WHO, TBIDB_ATTRIBUTE.ADDED_WHEN, TBIDB_ATTRIBUTE.CHANGED_WHO, TBIDB_ATTR"& _ - "IBUTE.CHANGED_WHEN, TBIDB_ATTRIBUTE.DELETED, TBIDB_ATTRIBUTE.DELETED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBIDB_ATTRIBUTE.DELETED_WHEN, TBIDB_ATTRIBUTE_TYPE.NAME_TYP"& _ - "E AS ATTR_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_ATTRIBUTE INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBIDB_ATTRIBUTE_TYPE ON TBIDB_ATTRIBUTE.TYP_ID = TBIDB_ATTRIBUTE_TYPE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE TBIDB_ATTRIBUTE.GUID = @GUID" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable, ByVal GUID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) - Dim dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable = New DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWIDB_OBJECT_STORE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHENColumn) = value + End Set + End Property _ - Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable) As Integer - Return Me.Adapter.Update(dataTable) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHOColumn) End Function _ - Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer - Return Me.Adapter.Update(dataSet, "TBIDB_ATTRIBUTE") - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHENColumn) End Function _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub End Class ''' - '''Represents the connection and commands used to retrieve and save data. + '''Row event argument class ''' - _ - Partial Public Class TBIDB_ATTRIBUTE_TYPETableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction + _ + Public Class TBIDB_BUSINESS_ENTITYRowChangeEvent + Inherits Global.System.EventArgs - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + Private eventRow As TBIDB_BUSINESS_ENTITYRow - Private _clearBeforeFill As Boolean + Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New() + Public Sub New(ByVal row As TBIDB_BUSINESS_ENTITYRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New - Me.ClearBeforeFill = true + Me.eventRow = row + Me.eventAction = action End Sub _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Public ReadOnly Property Row() As TBIDB_BUSINESS_ENTITYRow Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter + Return Me.eventRow End Get End Property _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection + Return Me.eventAction End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBIDB_ATTRIBUTERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIDB_ATTRIBUTERow + + Private eventAction As Global.System.Data.DataRowAction _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property + Public Sub New(ByVal row As TBIDB_ATTRIBUTERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Public ReadOnly Property Row() As TBIDB_ATTRIBUTERow Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection + Return Me.eventRow End Get End Property _ - Public Property ClearBeforeFill() As Boolean + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Return Me._clearBeforeFill + Return Me.eventAction End Get - Set - Me._clearBeforeFill = value - End Set End Property - - _ + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBIDB_ATTRIBUTE_TYPERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIDB_ATTRIBUTE_TYPERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBIDB_ATTRIBUTE_TYPERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBIDB_ATTRIBUTE_TYPERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWIDB_BE_ATTRIBUTERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWIDB_BE_ATTRIBUTERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWIDB_BE_ATTRIBUTERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWIDB_BE_ATTRIBUTERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBZF_ADMIN_SOURCE_SQLRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBZF_ADMIN_SOURCE_SQLRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBZF_ADMIN_SOURCE_SQLRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBZF_ADMIN_SOURCE_SQLRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBIDB_OBJECT_STORERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIDB_OBJECT_STORERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBIDB_OBJECT_STORERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBIDB_OBJECT_STORERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBIDB_CATALOGRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIDB_CATALOGRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBIDB_CATALOGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBIDB_CATALOGRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_ATTRIBUTE_TYPERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_ATTRIBUTE_TYPERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_ATTRIBUTE_TYPERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_ATTRIBUTE_TYPERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWIDB_OBJECT_STORERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWIDB_OBJECT_STORERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWIDB_OBJECT_STORERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWIDB_OBJECT_STORERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace DSIDB_StammdatenTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIDB_BUSINESS_ENTITYTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBIDB_BUSINESS_ENTITY" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PARENT_ENT_ID", "PARENT_ENT_ID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("INHERITS_ATTRIBUTES", "INHERITS_ATTRIBUTES") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBIDB_BUSINESS_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBIDB_BUSINESS_ENTITY] ([PARENT_ENT_ID], [TITLE], [INHERITS_ATTRIBUT"& _ + "ES], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES"& _ + " (@PARENT_ENT_ID, @TITLE, @INHERITS_ATTRIBUTES, @COMMENT, @ADDED_WHO, @ADDED_WHE"& _ + "N, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_AT"& _ + "TRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_B"& _ + "USINESS_ENTITY WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INHERITS_ATTRIBUTES", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INHERITS_ATTRIBUTES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_BUSINESS_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PARENT_ENT_ID = @PARENT_EN"& _ + "T_ID, TITLE = @TITLE, INHERITS_ATTRIBUTES = @INHERITS_ATTRIBUTES, COMMENT = @COM"& _ + "MENT, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID "& _ + "= @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COM"& _ + "MENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_BUSINESS_ENTIT"& _ + "Y WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INHERITS_ATTRIBUTES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "INHERITS_ATTRIBUTES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO"& _ + ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_BUSINESS_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "WHERE GUID = @GUID" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable, ByVal GUID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + Dim dataTable As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable = New DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBIDB_BUSINESS_ENTITY") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal PARENT_ENT_ID As Integer, ByVal TITLE As String, ByVal INHERITS_ATTRIBUTES As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PARENT_ENT_ID,Integer) + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(TITLE,String) + End If + Me.Adapter.InsertCommand.Parameters(2).Value = CType(INHERITS_ATTRIBUTES,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal PARENT_ENT_ID As Integer, ByVal TITLE As String, ByVal INHERITS_ATTRIBUTES As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PARENT_ENT_ID,Integer) + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TITLE,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(INHERITS_ATTRIBUTES,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIDB_ATTRIBUTETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBIDB_ATTRIBUTE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("TYP_ID", "TYP_ID") + tableMapping.ColumnMappings.Add("MULTI_CONTEXT", "MULTI_CONTEXT") + tableMapping.ColumnMappings.Add("VIEW_SEQUENCE", "VIEW_SEQUENCE") + tableMapping.ColumnMappings.Add("VIEW_VISIBLE", "VIEW_VISIBLE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("DELETED", "DELETED") + tableMapping.ColumnMappings.Add("DELETED_WHO", "DELETED_WHO") + tableMapping.ColumnMappings.Add("DELETED_WHEN", "DELETED_WHEN") + tableMapping.ColumnMappings.Add("ATTR_TYPE", "ATTR_TYPE") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, TYP_ID, MULTI_CONTE"& _ + "XT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@TYP"& _ + "_ID,@MULTI_CONTEXT,@VIEW_SEQUENCE,@VIEW_VISIBLE,@COMMENT,@ADDED_WHO)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTI_CONTEXT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTI_CONTEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, TYP_ID = @TYP_ID"& _ + ", MULTI_CONTEXT = @MULTI_CONTEXT, VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE ="& _ + " @VIEW_VISIBLE, COMMENT = @COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTI_CONTEXT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTI_CONTEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBIDB_ATTRIBUTE.GUID, TBIDB_ATTRIBUTE.TITLE, TBIDB_ATTRIBUTE.TYP_ID"& _ + ", TBIDB_ATTRIBUTE.MULTI_CONTEXT, TBIDB_ATTRIBUTE.VIEW_SEQUENCE, TBIDB_ATTRIBUTE."& _ + "VIEW_VISIBLE, TBIDB_ATTRIBUTE.COMMENT,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBIDB_ATTRIBUT"& _ + "E.ADDED_WHO, TBIDB_ATTRIBUTE.ADDED_WHEN, TBIDB_ATTRIBUTE.CHANGED_WHO, TBIDB_ATTR"& _ + "IBUTE.CHANGED_WHEN, TBIDB_ATTRIBUTE.DELETED, TBIDB_ATTRIBUTE.DELETED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBIDB_ATTRIBUTE.DELETED_WHEN, TBIDB_ATTRIBUTE_TYPE.NAME_TYP"& _ + "E AS ATTR_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_ATTRIBUTE INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBIDB_ATTRIBUTE_TYPE ON TBIDB_ATTRIBUTE.TYP_ID = TBIDB_ATTRIBUTE_TYPE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE TBIDB_ATTRIBUTE.GUID = @GUID" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable, ByVal GUID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + Dim dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable = New DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBIDB_ATTRIBUTE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIDB_ATTRIBUTE_TYPETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBIDB_ATTRIBUTE_TYPE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME_TYPE", "NAME_TYPE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("BIT1", "BIT1") + tableMapping.ColumnMappings.Add("BIT2", "BIT2") + tableMapping.ColumnMappings.Add("BIT3", "BIT3") + tableMapping.ColumnMappings.Add("BIT4", "BIT4") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBIDB_ATTRIBUTE_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBIDB_ATTRIBUTE_TYPE] ([NAME_TYPE], [COMMENT], [BIT1], [BIT2], [BIT3"& _ + "], [BIT4], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@NA"& _ + "ME_TYPE, @COMMENT, @BIT1, @BIT2, @BIT3, @BIT4, @ADDED_WHO, @ADDED_WHEN, @CHANGED"& _ + "_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, "& _ + "ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_ATTRIBUTE_TYPE WHERE"& _ + " (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBIDB_ATTRIBUTE_TYPE] SET [NAME_TYPE] = @NAME_TYPE, [COMMENT] = @COMMENT,"& _ + " [BIT1] = @BIT1, [BIT2] = @BIT2, [BIT3] = @BIT3, [BIT4] = @BIT4, [ADDED_WHO] = @"& _ + "ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WH"& _ + "EN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([NAME_TYPE] = @Origina"& _ + "l_NAME_TYPE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @O"& _ + "riginal_COMMENT)) AND ([BIT1] = @Original_BIT1) AND ([BIT2] = @Original_BIT2) AN"& _ + "D ([BIT3] = @Original_BIT3) AND ([BIT4] = @Original_BIT4) AND ([ADDED_WHO] = @Or"& _ + "iginal_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGE"& _ + "D_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO))"& _ + " AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] ="& _ + " @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, "& _ + "BIT4, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_ATTRIBUTE_TYPE"& _ + " WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBIDB_ATTRIBUTE_TYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_ATTRIBUTE_TYPE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable = New DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBIDB_ATTRIBUTE_TYPE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Byte) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal NAME_TYPE As String, ByVal COMMENT As String, ByVal BIT1 As Boolean, ByVal BIT2 As Boolean, ByVal BIT3 As Boolean, ByVal BIT4 As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (NAME_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME_TYPE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME_TYPE,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) + End If + Me.Adapter.InsertCommand.Parameters(2).Value = CType(BIT1,Boolean) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(BIT2,Boolean) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(BIT3,Boolean) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(BIT4,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal NAME_TYPE As String, _ + ByVal COMMENT As String, _ + ByVal BIT1 As Boolean, _ + ByVal BIT2 As Boolean, _ + ByVal BIT3 As Boolean, _ + ByVal BIT4 As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Byte, _ + ByVal Original_NAME_TYPE As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_BIT1 As Boolean, _ + ByVal Original_BIT2 As Boolean, _ + ByVal Original_BIT3 As Boolean, _ + ByVal Original_BIT4 As Boolean, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Byte) As Integer + If (NAME_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME_TYPE,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(BIT1,Boolean) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(BIT2,Boolean) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BIT3,Boolean) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(BIT4,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Byte) + If (Original_NAME_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_NAME_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_NAME_TYPE,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_BIT1,Boolean) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_BIT2,Boolean) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_BIT3,Boolean) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_BIT4,Boolean) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal NAME_TYPE As String, _ + ByVal COMMENT As String, _ + ByVal BIT1 As Boolean, _ + ByVal BIT2 As Boolean, _ + ByVal BIT3 As Boolean, _ + ByVal BIT4 As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Byte, _ + ByVal Original_NAME_TYPE As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_BIT1 As Boolean, _ + ByVal Original_BIT2 As Boolean, _ + ByVal Original_BIT3 As Boolean, _ + ByVal Original_BIT4 As Boolean, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_NAME_TYPE, Original_COMMENT, Original_BIT1, Original_BIT2, Original_BIT3, Original_BIT4, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWIDB_BE_ATTRIBUTETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWIDB_BE_ATTRIBUTE" + tableMapping.ColumnMappings.Add("BE_ID", "BE_ID") + tableMapping.ColumnMappings.Add("BE", "BE") + tableMapping.ColumnMappings.Add("ATTR_ID", "ATTR_ID") + tableMapping.ColumnMappings.Add("ATTR_TITLE", "ATTR_TITLE") + tableMapping.ColumnMappings.Add("TYP_ID", "TYP_ID") + tableMapping.ColumnMappings.Add("TYPE_ID", "TYPE_ID") + tableMapping.ColumnMappings.Add("TYPE_NAME", "TYPE_NAME") + tableMapping.ColumnMappings.Add("VIEW_VISIBLE", "VIEW_VISIBLE") + tableMapping.ColumnMappings.Add("VIEW_SEQUENCE", "VIEW_SEQUENCE") + tableMapping.ColumnMappings.Add("LANG_ID", "LANG_ID") + tableMapping.ColumnMappings.Add("LANG_CODE", "LANG_CODE") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("SYS_ATTRIBUTE", "SYS_ATTRIBUTE") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, TYP_ID, VIEW_SEQUEN"& _ + "CE, VIEW_VISIBLE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@TYP_ID,@VIEW_SEQUENCE,@VIEW"& _ + "_VISIBLE,@ADDED_WHO)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, TYP_ID = @TYP_ID"& _ + ", VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE = @VIEW_VISIBLE, COMMENT = @COMME"& _ + "NT, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VI"& _ + "SIBLE, VIEW_SEQUENCE, SYS_ATTRIBUTE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, "& _ + "CHANGED_WHEN, CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_BE_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (LAN"& _ + "G_CODE = @LANG_CODE) AND (SYS_ATTRIBUTE = 0)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANG_CODE", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_CODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT VWIDB_BE_ATTRIBUTE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_BE_ATTRIBUTE WHERE ATTR"& _ + "_ID = @ATTRIBUTE_ID AND LANG_ID = @LANGUAGE_ID" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTRIBUTE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable, ByVal LANG_CODE As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (LANG_CODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANG_CODE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANG_CODE,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal LANG_CODE As String) As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (LANG_CODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANG_CODE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANG_CODE,String) + End If + Dim dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable = New DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + 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 + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ATTRIBUTE_ID,Integer) + Me.Adapter.SelectCommand.Parameters(1).Value = CType(LANGUAGE_ID,Byte) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByAttributeId(ByVal ATTRIBUTE_ID As 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) + 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) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "VWIDB_BE_ATTRIBUTE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBZF_ADMIN_SOURCE_SQLTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBIDB_ATTRIBUTE_TYPE" + tableMapping.DataSetTable = "TBZF_ADMIN_SOURCE_SQL" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME_TYPE", "NAME_TYPE") + tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") + tableMapping.ColumnMappings.Add("ENTITY_TITLE", "ENTITY_TITLE") + tableMapping.ColumnMappings.Add("SCOPE", "SCOPE") + tableMapping.ColumnMappings.Add("PK_COLUMN", "PK_COLUMN") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("BIT1", "BIT1") - tableMapping.ColumnMappings.Add("BIT2", "BIT2") - tableMapping.ColumnMappings.Add("BIT3", "BIT3") - tableMapping.ColumnMappings.Add("BIT4", "BIT4") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("FK_COLUMN", "FK_COLUMN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBIDB_ATTRIBUTE_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBZF_ADMIN_SOURCE_SQL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBIDB_ATTRIBUTE_TYPE] ([NAME_TYPE], [COMMENT], [BIT1], [BIT2], [BIT3"& _ - "], [BIT4], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@NA"& _ - "ME_TYPE, @COMMENT, @BIT1, @BIT2, @BIT3, @BIT4, @ADDED_WHO, @ADDED_WHEN, @CHANGED"& _ - "_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, "& _ - "ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_ATTRIBUTE_TYPE WHERE"& _ - " (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBZF_ADMIN_SOURCE_SQL] ([PARENT_ID], [ENTITY_TITLE], [SCOPE], [PK_CO"& _ + "LUMN], [COMMENT], [SQL_COMMAND], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHAN"& _ + "GED_WHEN], [FK_COLUMN]) VALUES (@PARENT_ID, @ENTITY_TITLE, @SCOPE, @PK_COLUMN, @"& _ + "COMMENT, @SQL_COMMAND, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @FK"& _ + "_COLUMN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_"& _ + "COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FK_COLUMN FROM TBZF_A"& _ + "DMIN_SOURCE_SQL WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCOPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCOPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PK_COLUMN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBIDB_ATTRIBUTE_TYPE] SET [NAME_TYPE] = @NAME_TYPE, [COMMENT] = @COMMENT,"& _ - " [BIT1] = @BIT1, [BIT2] = @BIT2, [BIT3] = @BIT3, [BIT4] = @BIT4, [ADDED_WHO] = @"& _ - "ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WH"& _ - "EN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([NAME_TYPE] = @Origina"& _ - "l_NAME_TYPE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @O"& _ - "riginal_COMMENT)) AND ([BIT1] = @Original_BIT1) AND ([BIT2] = @Original_BIT2) AN"& _ - "D ([BIT3] = @Original_BIT3) AND ([BIT4] = @Original_BIT4) AND ([ADDED_WHO] = @Or"& _ - "iginal_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGE"& _ - "D_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO))"& _ - " AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] ="& _ - " @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, "& _ - "BIT4, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_ATTRIBUTE_TYPE"& _ - " WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBZF_ADMIN_SOURCE_SQL] SET [PARENT_ID] = @PARENT_ID, [ENTITY_TITLE] = @EN"& _ + "TITY_TITLE, [SCOPE] = @SCOPE, [PK_COLUMN] = @PK_COLUMN, [COMMENT] = @COMMENT, [S"& _ + "QL_COMMAND] = @SQL_COMMAND, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN"& _ + ", [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [FK_COLUMN] = @F"& _ + "K_COLUMN WHERE (([GUID] = @Original_GUID) AND ([PARENT_ID] = @Original_PARENT_ID"& _ + ") AND ([ENTITY_TITLE] = @Original_ENTITY_TITLE) AND ([SCOPE] = @Original_SCOPE) "& _ + "AND ([PK_COLUMN] = @Original_PK_COLUMN) AND ((@IsNull_COMMENT = 1 AND [COMMENT] "& _ + "IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [AD"& _ + "DED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WH"& _ + "EN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ("& _ + "(@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Origina"& _ + "l_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR (["& _ + "CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ((@IsNull_FK_COLUMN = 1 AND [FK_COL"& _ + "UMN] IS NULL) OR ([FK_COLUMN] = @Original_FK_COLUMN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ID,"& _ + " ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CH"& _ + "ANGED_WHO, CHANGED_WHEN, FK_COLUMN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = @GUI"& _ + "D)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCOPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCOPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PK_COLUMN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ENTITY_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SCOPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCOPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PK_COLUMN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_COLUMN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable, ByVal GUID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -5998,9 +7791,10 @@ 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], true)> _ - Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable + Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable = New DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + Dim dataTable As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable = New DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -6008,7 +7802,7 @@ Namespace DSIDB_StammdatenTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -6016,7 +7810,7 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer - Return Me.Adapter.Update(dataSet, "TBIDB_ATTRIBUTE_TYPE") + Return Me.Adapter.Update(dataSet, "TBZF_ADMIN_SOURCE_SQL") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Byte) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -6058,170 +7852,73 @@ 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.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal NAME_TYPE As String, ByVal COMMENT As String, ByVal BIT1 As Boolean, ByVal BIT2 As Boolean, ByVal BIT3 As Boolean, ByVal BIT4 As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - If (NAME_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME_TYPE") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME_TYPE,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) - End If - Me.Adapter.InsertCommand.Parameters(2).Value = CType(BIT1,Boolean) - Me.Adapter.InsertCommand.Parameters(3).Value = CType(BIT2,Boolean) - Me.Adapter.InsertCommand.Parameters(4).Value = CType(BIT3,Boolean) - Me.Adapter.InsertCommand.Parameters(5).Value = CType(BIT4,Boolean) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + Public Overloads Overridable Function Insert(ByVal PARENT_ID As Global.System.Nullable(Of Integer), ByVal ENTITY_TITLE As String, ByVal SCOPE As String, ByVal PK_COLUMN As String, ByVal COMMENT As String, ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal FK_COLUMN As String) As Integer + If (PARENT_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PARENT_ID.Value,Integer) Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + If (ENTITY_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("ENTITY_TITLE") Else - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ENTITY_TITLE,String) End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + If (SCOPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("SCOPE") Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SCOPE,String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + If (PK_COLUMN Is Nothing) Then + Throw New Global.System.ArgumentNullException("PK_COLUMN") Else - Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Parameters(3).Value = CType(PK_COLUMN,String) End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal NAME_TYPE As String, _ - ByVal COMMENT As String, _ - ByVal BIT1 As Boolean, _ - ByVal BIT2 As Boolean, _ - ByVal BIT3 As Boolean, _ - ByVal BIT4 As Boolean, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Byte, _ - ByVal Original_NAME_TYPE As String, _ - ByVal Original_COMMENT As String, _ - ByVal Original_BIT1 As Boolean, _ - ByVal Original_BIT2 As Boolean, _ - ByVal Original_BIT3 As Boolean, _ - ByVal Original_BIT4 As Boolean, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal GUID As Byte) As Integer - If (NAME_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME_TYPE") + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME_TYPE,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) End If - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_COMMAND,String) End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(BIT1,Boolean) - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(BIT2,Boolean) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BIT3,Boolean) - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(BIT4,Boolean) If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Byte) - If (Original_NAME_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_NAME_TYPE") - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_NAME_TYPE,String) - End If - If (Original_COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_COMMENT,String) - End If - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_BIT1,Boolean) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_BIT2,Boolean) - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_BIT3,Boolean) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_BIT4,Boolean) - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN.Value,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHEN.Value,Date) + If (FK_COLUMN Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(10).Value = CType(FK_COLUMN,String) End If - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(GUID,Byte) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open End If Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close + Me.Adapter.InsertCommand.Connection.Close End If End Try End Function @@ -6231,250 +7928,191 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ Public Overloads Overridable Function Update( _ - ByVal NAME_TYPE As String, _ + ByVal PARENT_ID As Global.System.Nullable(Of Integer), _ + ByVal ENTITY_TITLE As String, _ + ByVal SCOPE As String, _ + ByVal PK_COLUMN As String, _ ByVal COMMENT As String, _ - ByVal BIT1 As Boolean, _ - ByVal BIT2 As Boolean, _ - ByVal BIT3 As Boolean, _ - ByVal BIT4 As Boolean, _ + ByVal SQL_COMMAND As String, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Byte, _ - ByVal Original_NAME_TYPE As String, _ + ByVal FK_COLUMN As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_PARENT_ID As Global.System.Nullable(Of Integer), _ + ByVal Original_ENTITY_TITLE As String, _ + ByVal Original_SCOPE As String, _ + ByVal Original_PK_COLUMN As String, _ ByVal Original_COMMENT As String, _ - ByVal Original_BIT1 As Boolean, _ - ByVal Original_BIT2 As Boolean, _ - ByVal Original_BIT3 As Boolean, _ - ByVal Original_BIT4 As Boolean, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_NAME_TYPE, Original_COMMENT, Original_BIT1, Original_BIT2, Original_BIT3, Original_BIT4, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class VWIDB_BE_ATTRIBUTETableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "VWIDB_BE_ATTRIBUTE" - tableMapping.ColumnMappings.Add("BE_ID", "BE_ID") - tableMapping.ColumnMappings.Add("BE", "BE") - tableMapping.ColumnMappings.Add("ATTR_ID", "ATTR_ID") - tableMapping.ColumnMappings.Add("ATTR_TITLE", "ATTR_TITLE") - tableMapping.ColumnMappings.Add("TYP_ID", "TYP_ID") - tableMapping.ColumnMappings.Add("TYPE_ID", "TYPE_ID") - tableMapping.ColumnMappings.Add("TYPE_NAME", "TYPE_NAME") - tableMapping.ColumnMappings.Add("VIEW_VISIBLE", "VIEW_VISIBLE") - tableMapping.ColumnMappings.Add("VIEW_SEQUENCE", "VIEW_SEQUENCE") - tableMapping.ColumnMappings.Add("LANG_ID", "LANG_ID") - tableMapping.ColumnMappings.Add("LANG_CODE", "LANG_CODE") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - Me._adapter.TableMappings.Add(tableMapping) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT VWIDB_BE_ATTRIBUTE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_BE_ATTRIBUTE" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT VWIDB_BE_ATTRIBUTE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_BE_ATTRIBUTE WHERE ATTR"& _ - "_ID = @ATTRIBUTE_ID AND LANG_ID = @LANGUAGE_ID" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTRIBUTE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_FK_COLUMN As String, _ + ByVal GUID As Integer) As Integer + If (PARENT_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PARENT_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (ENTITY_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("ENTITY_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ENTITY_TITLE,String) + End If + If (SCOPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("SCOPE") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SCOPE,String) + End If + If (PK_COLUMN Is Nothing) Then + Throw New Global.System.ArgumentNullException("PK_COLUMN") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(PK_COLUMN,String) End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable = New DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - 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 - Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ATTRIBUTE_ID,Integer) - Me.Adapter.SelectCommand.Parameters(1).Value = CType(LANGUAGE_ID,Byte) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_COMMAND,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (FK_COLUMN Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(FK_COLUMN,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) + If (Original_PARENT_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PARENT_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + If (Original_ENTITY_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ENTITY_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ENTITY_TITLE,String) + End If + If (Original_SCOPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_SCOPE") + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_SCOPE,String) + End If + If (Original_PK_COLUMN Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PK_COLUMN") + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_PK_COLUMN,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_COMMENT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + End If + If (Original_FK_COLUMN Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_FK_COLUMN,String) + End If + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try End Function _ - Public Overloads Overridable Function GetDataByAttributeId(ByVal ATTRIBUTE_ID As 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) - 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) - Return dataTable + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update( _ + ByVal PARENT_ID As Global.System.Nullable(Of Integer), _ + ByVal ENTITY_TITLE As String, _ + ByVal SCOPE As String, _ + ByVal PK_COLUMN As String, _ + ByVal COMMENT As String, _ + ByVal SQL_COMMAND As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal FK_COLUMN As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_PARENT_ID As Global.System.Nullable(Of Integer), _ + ByVal Original_ENTITY_TITLE As String, _ + ByVal Original_SCOPE As String, _ + ByVal Original_PK_COLUMN As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_FK_COLUMN As String) As Integer + Return Me.Update(PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FK_COLUMN, Original_GUID, Original_PARENT_ID, Original_ENTITY_TITLE, Original_SCOPE, Original_PK_COLUMN, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_FK_COLUMN, Original_GUID) End Function End Class @@ -6487,7 +8125,7 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBZF_ADMIN_SOURCE_SQLTableAdapter + Partial Public Class TBIDB_OBJECT_STORETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -6604,102 +8242,80 @@ Namespace DSIDB_StammdatenTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBZF_ADMIN_SOURCE_SQL" + tableMapping.DataSetTable = "TBIDB_OBJECT_STORE" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") - tableMapping.ColumnMappings.Add("ENTITY_TITLE", "ENTITY_TITLE") - tableMapping.ColumnMappings.Add("SCOPE", "SCOPE") - tableMapping.ColumnMappings.Add("PK_COLUMN", "PK_COLUMN") + tableMapping.ColumnMappings.Add("OBJECT_TITLE", "OBJECT_TITLE") + tableMapping.ColumnMappings.Add("CAT_ID", "CAT_ID") + tableMapping.ColumnMappings.Add("OBJ_PATH", "OBJ_PATH") + tableMapping.ColumnMappings.Add("IS_ARCHIVE", "IS_ARCHIVE") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("FK_COLUMN", "FK_COLUMN") + tableMapping.ColumnMappings.Add("CAT_TITLE", "CAT_TITLE") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBZF_ADMIN_SOURCE_SQL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBIDB_OBJECT_STORE] WHERE (([GUID] = @Original_GUID) AND ([OBJECT_TI"& _ + "TLE] = @Original_OBJECT_TITLE) AND ([CAT_ID] = @Original_CAT_ID) AND ([OBJ_PATH]"& _ + " = @Original_OBJ_PATH) AND ([IS_ARCHIVE] = @Original_IS_ARCHIVE) AND ((@IsNull_C"& _ + "OMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ADDE"& _ + "D_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@I"& _ + "sNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_C"& _ + "HANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHA"& _ + "NGED_WHEN] = @Original_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OBJECT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OBJ_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJ_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IS_ARCHIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ARCHIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBZF_ADMIN_SOURCE_SQL] ([PARENT_ID], [ENTITY_TITLE], [SCOPE], [PK_CO"& _ - "LUMN], [COMMENT], [SQL_COMMAND], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHAN"& _ - "GED_WHEN], [FK_COLUMN]) VALUES (@PARENT_ID, @ENTITY_TITLE, @SCOPE, @PK_COLUMN, @"& _ - "COMMENT, @SQL_COMMAND, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @FK"& _ - "_COLUMN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_"& _ - "COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FK_COLUMN FROM TBZF_A"& _ - "DMIN_SOURCE_SQL WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_OBJECT_STORE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (OBJECT_TITLE, CAT_ID, O"& _ + "BJ_PATH, IS_ARCHIVE, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@OBJECT_TITLE,@CAT_ID,@"& _ + "OBJ_PATH,@IS_ARCHIVE,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJECT_TITLE, CAT_ID, "& _ + "OBJ_PATH, IS_ARCHIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ + "FROM TBIDB_OBJECT_STORE WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCOPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCOPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PK_COLUMN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBZF_ADMIN_SOURCE_SQL] SET [PARENT_ID] = @PARENT_ID, [ENTITY_TITLE] = @EN"& _ - "TITY_TITLE, [SCOPE] = @SCOPE, [PK_COLUMN] = @PK_COLUMN, [COMMENT] = @COMMENT, [S"& _ - "QL_COMMAND] = @SQL_COMMAND, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN"& _ - ", [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [FK_COLUMN] = @F"& _ - "K_COLUMN WHERE (([GUID] = @Original_GUID) AND ([PARENT_ID] = @Original_PARENT_ID"& _ - ") AND ([ENTITY_TITLE] = @Original_ENTITY_TITLE) AND ([SCOPE] = @Original_SCOPE) "& _ - "AND ([PK_COLUMN] = @Original_PK_COLUMN) AND ((@IsNull_COMMENT = 1 AND [COMMENT] "& _ - "IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [AD"& _ - "DED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WH"& _ - "EN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ("& _ - "(@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Origina"& _ - "l_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR (["& _ - "CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ((@IsNull_FK_COLUMN = 1 AND [FK_COL"& _ - "UMN] IS NULL) OR ([FK_COLUMN] = @Original_FK_COLUMN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ID,"& _ - " ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CH"& _ - "ANGED_WHO, CHANGED_WHEN, FK_COLUMN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = @GUI"& _ - "D)" + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TITLE", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJ_PATH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJ_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_ARCHIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ARCHIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_OBJECT_STORE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET OBJECT_TITLE = @OBJECT_TITLE,"& _ + " CAT_ID = @CAT_ID, OBJ_PATH = @OBJ_PATH, IS_ARCHIVE = @IS_ARCHIVE, COMMENT = @CO"& _ + "MMENT, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _ + "T GUID, OBJECT_TITLE, CAT_ID, OBJ_PATH, IS_ARCHIVE, COMMENT, ADDED_WHO, ADDED_WH"& _ + "EN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_OBJECT_STORE WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCOPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCOPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PK_COLUMN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ENTITY_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SCOPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCOPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PK_COLUMN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_COLUMN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TITLE", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJ_PATH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJ_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_ARCHIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ARCHIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable, ByVal GUID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -6732,10 +8351,9 @@ 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], true)> _ - Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable + Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) - Dim dataTable As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable = New DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable() + Dim dataTable As DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable = New DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -6743,7 +8361,7 @@ Namespace DSIDB_StammdatenTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -6751,7 +8369,7 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer - Return Me.Adapter.Update(dataSet, "TBZF_ADMIN_SOURCE_SQL") + Return Me.Adapter.Update(dataSet, "TBIDB_OBJECT_STORE") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_OBJECT_TITLE As String, ByVal Original_CAT_ID As Integer, ByVal Original_OBJ_PATH As String, ByVal Original_IS_ARCHIVE As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal PARENT_ID As Global.System.Nullable(Of Integer), ByVal ENTITY_TITLE As String, ByVal SCOPE As String, ByVal PK_COLUMN As String, ByVal COMMENT As String, ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal FK_COLUMN As String) As Integer - If (PARENT_ID.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PARENT_ID.Value,Integer) - Else - Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value - End If - If (ENTITY_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("ENTITY_TITLE") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(ENTITY_TITLE,String) - End If - If (SCOPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("SCOPE") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(SCOPE,String) - End If - If (PK_COLUMN Is Nothing) Then - Throw New Global.System.ArgumentNullException("PK_COLUMN") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(PK_COLUMN,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) - End If - If (SQL_COMMAND Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_COMMAND") - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_COMMAND,String) - End If - If (ADDED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - If (FK_COLUMN Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(FK_COLUMN,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal PARENT_ID As Global.System.Nullable(Of Integer), _ - ByVal ENTITY_TITLE As String, _ - ByVal SCOPE As String, _ - ByVal PK_COLUMN As String, _ - ByVal COMMENT As String, _ - ByVal SQL_COMMAND As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal FK_COLUMN As String, _ - ByVal Original_GUID As Integer, _ - ByVal Original_PARENT_ID As Global.System.Nullable(Of Integer), _ - ByVal Original_ENTITY_TITLE As String, _ - ByVal Original_SCOPE As String, _ - ByVal Original_PK_COLUMN As String, _ - ByVal Original_COMMENT As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_FK_COLUMN As String, _ - ByVal GUID As Integer) As Integer - If (PARENT_ID.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PARENT_ID.Value,Integer) - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - End If - If (ENTITY_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("ENTITY_TITLE") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ENTITY_TITLE,String) - End If - If (SCOPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("SCOPE") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SCOPE,String) - End If - If (PK_COLUMN Is Nothing) Then - Throw New Global.System.ArgumentNullException("PK_COLUMN") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(PK_COLUMN,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) - End If - If (SQL_COMMAND Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_COMMAND") - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_COMMAND,String) - End If - If (ADDED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + If (Original_OBJECT_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_OBJECT_TITLE") Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_OBJECT_TITLE,String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CAT_ID,Integer) + If (Original_OBJ_PATH Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_OBJ_PATH") Else - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_OBJ_PATH,String) End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_IS_ARCHIVE,Boolean) + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_COMMENT,String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) End If - If (FK_COLUMN Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(FK_COLUMN,String) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) - If (Original_PARENT_ID.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PARENT_ID.Value,Integer) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHO,String) End If - If (Original_ENTITY_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ENTITY_TITLE") + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ENTITY_TITLE,String) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If - If (Original_SCOPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_SCOPE") + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal OBJECT_TITLE As String, ByVal CAT_ID As Integer, ByVal OBJ_PATH As String, ByVal IS_ARCHIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer + If (OBJECT_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECT_TITLE") Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_SCOPE,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(OBJECT_TITLE,String) End If - If (Original_PK_COLUMN Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PK_COLUMN") + Me.Adapter.InsertCommand.Parameters(1).Value = CType(CAT_ID,Integer) + If (OBJ_PATH Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJ_PATH") Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_PK_COLUMN,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(OBJ_PATH,String) End If - If (Original_COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(3).Value = CType(IS_ARCHIVE,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_COMMENT,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) End If - If (Original_ADDED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ADDED_WHEN.Value,Date) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal OBJECT_TITLE As String, ByVal CAT_ID As Integer, ByVal OBJ_PATH As String, ByVal IS_ARCHIVE As Boolean, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (OBJECT_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECT_TITLE") Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OBJECT_TITLE,String) End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CAT_ID,Integer) + If (OBJ_PATH Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJ_PATH") Else - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(OBJ_PATH,String) End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_CHANGED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(IS_ARCHIVE,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) End If - If (Original_FK_COLUMN Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_FK_COLUMN,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(28).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -7025,36 +8535,6 @@ Namespace DSIDB_StammdatenTableAdapters End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal PARENT_ID As Global.System.Nullable(Of Integer), _ - ByVal ENTITY_TITLE As String, _ - ByVal SCOPE As String, _ - ByVal PK_COLUMN As String, _ - ByVal COMMENT As String, _ - ByVal SQL_COMMAND As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal FK_COLUMN As String, _ - ByVal Original_GUID As Integer, _ - ByVal Original_PARENT_ID As Global.System.Nullable(Of Integer), _ - ByVal Original_ENTITY_TITLE As String, _ - ByVal Original_SCOPE As String, _ - ByVal Original_PK_COLUMN As String, _ - ByVal Original_COMMENT As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_FK_COLUMN As String) As Integer - Return Me.Update(PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FK_COLUMN, Original_GUID, Original_PARENT_ID, Original_ENTITY_TITLE, Original_SCOPE, Original_PK_COLUMN, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_FK_COLUMN, Original_GUID) - End Function End Class ''' @@ -7066,7 +8546,7 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBIDB_OBJECT_STORETableAdapter + Partial Public Class TBIDB_CATALOGTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -7183,37 +8663,27 @@ Namespace DSIDB_StammdatenTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBIDB_OBJECT_STORE" + tableMapping.DataSetTable = "TBIDB_CATALOG" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("OBJECT_TITLE", "OBJECT_TITLE") - tableMapping.ColumnMappings.Add("CAT_ID", "CAT_ID") - tableMapping.ColumnMappings.Add("OBJ_PATH", "OBJ_PATH") - tableMapping.ColumnMappings.Add("IS_ARCHIVE", "IS_ARCHIVE") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("CAT_TITLE", "CAT_TITLE") + tableMapping.ColumnMappings.Add("CAT_STRING", "CAT_STRING") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("CAT_TITLE", "CAT_TITLE") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBIDB_OBJECT_STORE] WHERE (([GUID] = @Original_GUID) AND ([OBJECT_TI"& _ - "TLE] = @Original_OBJECT_TITLE) AND ([CAT_ID] = @Original_CAT_ID) AND ([OBJ_PATH]"& _ - " = @Original_OBJ_PATH) AND ([IS_ARCHIVE] = @Original_IS_ARCHIVE) AND ((@IsNull_C"& _ - "OMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ADDE"& _ - "D_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@I"& _ - "sNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_C"& _ - "HANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHA"& _ - "NGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBIDB_CATALOG] WHERE (([GUID] = @Original_GUID) AND ([CAT_TITLE] = @"& _ + "Original_CAT_TITLE) AND ([CAT_STRING] = @Original_CAT_STRING) AND ([ADDED_WHO] ="& _ + " @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CH"& _ + "ANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_W"& _ + "HO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHE"& _ + "N] = @Original_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OBJECT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OBJ_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJ_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IS_ARCHIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ARCHIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAT_STRING", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_STRING", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) @@ -7222,32 +8692,24 @@ Namespace DSIDB_StammdatenTableAdapters Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_OBJECT_STORE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (OBJECT_TITLE, CAT_ID, O"& _ - "BJ_PATH, IS_ARCHIVE, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@OBJECT_TITLE,@CAT_ID,@"& _ - "OBJ_PATH,@IS_ARCHIVE,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJECT_TITLE, CAT_ID, "& _ - "OBJ_PATH, IS_ARCHIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ - "FROM TBIDB_OBJECT_STORE WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_CATALOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CAT_TITLE, CAT_STRING, ADDED"& _ + "_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CAT_TITLE,@CAT_STRING,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CAT_TI"& _ + "TLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_CAT"& _ + "ALOG WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TITLE", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJ_PATH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJ_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_ARCHIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ARCHIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_STRING", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_STRING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_OBJECT_STORE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET OBJECT_TITLE = @OBJECT_TITLE,"& _ - " CAT_ID = @CAT_ID, OBJ_PATH = @OBJ_PATH, IS_ARCHIVE = @IS_ARCHIVE, COMMENT = @CO"& _ - "MMENT, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _ - "T GUID, OBJECT_TITLE, CAT_ID, OBJ_PATH, IS_ARCHIVE, COMMENT, ADDED_WHO, ADDED_WH"& _ - "EN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_OBJECT_STORE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_CATALOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CAT_TITLE = @CAT_TITLE, CAT_STRING"& _ + " = @CAT_STRING, ADDED_WHO = @ADDED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_"& _ + "WHEN FROM TBIDB_CATALOG WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TITLE", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJ_PATH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJ_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_ARCHIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ARCHIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_STRING", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_STRING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub @@ -7265,22 +8727,19 @@ Namespace DSIDB_StammdatenTableAdapters Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBIDB_OBJECT_STORE.GUID, TBIDB_OBJECT_STORE.OBJECT_TITLE, TBIDB_OBJ"& _ - "ECT_STORE.CAT_ID, TBIDB_OBJECT_STORE.OBJ_PATH, TBIDB_OBJECT_STORE.IS_ARCHIVE, TB"& _ - "IDB_OBJECT_STORE.COMMENT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBIDB_OBJECT_STORE.ADDED_WH"& _ - "O, TBIDB_OBJECT_STORE.ADDED_WHEN, TBIDB_OBJECT_STORE.CHANGED_WHO, TBIDB_OBJECT_S"& _ - "TORE.CHANGED_WHEN, TBIDB_CATALOG.CAT_TITLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_OBJECT_STORE I"& _ - "NNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBIDB_CATALOG ON TBIDB_OBJECT_STORE.CAT_ID ="& _ - " TBIDB_CATALOG.GUID" + Me._commandCollection(0).CommandText = "SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ + "ANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_CATALOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_CATALOGDataTable, ByVal ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -7292,9 +8751,10 @@ 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], true)> _ - Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable + Public Overloads Overridable Function GetData(ByVal ID As Integer) As DSIDB_Stammdaten.TBIDB_CATALOGDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable = New DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Dim dataTable As DSIDB_Stammdaten.TBIDB_CATALOGDataTable = New DSIDB_Stammdaten.TBIDB_CATALOGDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -7302,7 +8762,7 @@ Namespace DSIDB_StammdatenTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_CATALOGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -7310,7 +8770,7 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer - Return Me.Adapter.Update(dataSet, "TBIDB_OBJECT_STORE") + Return Me.Adapter.Update(dataSet, "TBIDB_CATALOG") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_OBJECT_TITLE As String, ByVal Original_CAT_ID As Integer, ByVal Original_OBJ_PATH As String, ByVal Original_IS_ARCHIVE As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_OBJECT_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_OBJECT_TITLE") - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_OBJECT_TITLE,String) - End If - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CAT_ID,Integer) - If (Original_OBJ_PATH Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_OBJ_PATH") + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_CAT_TITLE As String, ByVal Original_CAT_STRING As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_CAT_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_CAT_TITLE") Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_OBJ_PATH,String) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CAT_TITLE,String) End If - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_IS_ARCHIVE,Boolean) - If (Original_COMMENT Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + If (Original_CAT_STRING Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_CAT_STRING") Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_COMMENT,String) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CAT_STRING,String) End If If (Original_ADDED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN.Value,Date) + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHO,String) End If + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADDED_WHEN,Date) If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_CHANGED_WHEN.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ @@ -7395,28 +8842,21 @@ 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.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal OBJECT_TITLE As String, ByVal CAT_ID As Integer, ByVal OBJ_PATH As String, ByVal IS_ARCHIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer - If (OBJECT_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJECT_TITLE") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(OBJECT_TITLE,String) - End If - Me.Adapter.InsertCommand.Parameters(1).Value = CType(CAT_ID,Integer) - If (OBJ_PATH Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJ_PATH") + Public Overloads Overridable Function Insert(ByVal CAT_TITLE As String, ByVal CAT_STRING As String, ByVal ADDED_WHO As String) As Integer + If (CAT_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("CAT_TITLE") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(OBJ_PATH,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(CAT_TITLE,String) End If - Me.Adapter.InsertCommand.Parameters(3).Value = CType(IS_ARCHIVE,Boolean) - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + If (CAT_STRING Is Nothing) Then + Throw New Global.System.ArgumentNullException("CAT_STRING") Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(CAT_STRING,String) End If If (ADDED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ @@ -7437,31 +8877,24 @@ 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.Update, true)> _ - Public Overloads Overridable Function Update(ByVal OBJECT_TITLE As String, ByVal CAT_ID As Integer, ByVal OBJ_PATH As String, ByVal IS_ARCHIVE As Boolean, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (OBJECT_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJECT_TITLE") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OBJECT_TITLE,String) - End If - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CAT_ID,Integer) - If (OBJ_PATH Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJ_PATH") + Public Overloads Overridable Function Update(ByVal CAT_TITLE As String, ByVal CAT_STRING As String, ByVal ADDED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (CAT_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("CAT_TITLE") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(OBJ_PATH,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CAT_TITLE,String) End If - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(IS_ARCHIVE,Boolean) - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + If (CAT_STRING Is Nothing) Then + Throw New Global.System.ArgumentNullException("CAT_STRING") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CAT_STRING,String) End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -7487,7 +8920,181 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBIDB_CATALOGTableAdapter + Partial Public Class TBWH_ATTRIBUTE_TYPETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBWH_ATTRIBUTE_TYPE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME_TYPE", "NAME_TYPE") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, NAME_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_ATTRIBUTE_TYPE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPEDataTable = New DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWIDB_OBJECT_STORETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -7604,55 +9211,16 @@ Namespace DSIDB_StammdatenTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBIDB_CATALOG" + tableMapping.DataSetTable = "VWIDB_OBJECT_STORE" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("CAT_TITLE", "CAT_TITLE") - tableMapping.ColumnMappings.Add("CAT_STRING", "CAT_STRING") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("Objectstore", "Objectstore") + tableMapping.ColumnMappings.Add("Archive", "Archive") + tableMapping.ColumnMappings.Add("REL_PATH", "REL_PATH") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBIDB_CATALOG] WHERE (([GUID] = @Original_GUID) AND ([CAT_TITLE] = @"& _ - "Original_CAT_TITLE) AND ([CAT_STRING] = @Original_CAT_STRING) AND ([ADDED_WHO] ="& _ - " @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CH"& _ - "ANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_W"& _ - "HO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHE"& _ - "N] = @Original_CHANGED_WHEN)))" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAT_STRING", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_STRING", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_CATALOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CAT_TITLE, CAT_STRING, ADDED"& _ - "_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CAT_TITLE,@CAT_STRING,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CAT_TI"& _ - "TLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_CAT"& _ - "ALOG WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_STRING", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_STRING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_CATALOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CAT_TITLE = @CAT_TITLE, CAT_STRING"& _ - " = @CAT_STRING, ADDED_WHO = @ADDED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ - "SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_"& _ - "WHEN FROM TBIDB_CATALOG WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_STRING", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_STRING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_CATALOGDataTable, ByVal ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.VWIDB_OBJECT_STOREDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -7692,164 +9257,12 @@ 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], true)> _ - Public Overloads Overridable Function GetData(ByVal ID As Integer) As DSIDB_Stammdaten.TBIDB_CATALOGDataTable + Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.VWIDB_OBJECT_STOREDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - Dim dataTable As DSIDB_Stammdaten.TBIDB_CATALOGDataTable = New DSIDB_Stammdaten.TBIDB_CATALOGDataTable() + Dim dataTable As DSIDB_Stammdaten.VWIDB_OBJECT_STOREDataTable = New DSIDB_Stammdaten.VWIDB_OBJECT_STOREDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_CATALOGDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer - Return Me.Adapter.Update(dataSet, "TBIDB_CATALOG") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_CAT_TITLE As String, ByVal Original_CAT_STRING As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_CAT_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_CAT_TITLE") - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CAT_TITLE,String) - End If - If (Original_CAT_STRING Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_CAT_STRING") - Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CAT_STRING,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHO,String) - End If - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADDED_WHEN,Date) - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal CAT_TITLE As String, ByVal CAT_STRING As String, ByVal ADDED_WHO As String) As Integer - If (CAT_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("CAT_TITLE") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(CAT_TITLE,String) - End If - If (CAT_STRING Is Nothing) Then - Throw New Global.System.ArgumentNullException("CAT_STRING") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(CAT_STRING,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal CAT_TITLE As String, ByVal CAT_STRING As String, ByVal ADDED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (CAT_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("CAT_TITLE") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CAT_TITLE,String) - End If - If (CAT_STRING Is Nothing) Then - Throw New Global.System.ArgumentNullException("CAT_STRING") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CAT_STRING,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function End Class ''' @@ -7871,6 +9284,8 @@ Namespace DSIDB_StammdatenTableAdapters Private _tBIDB_ATTRIBUTE_TYPETableAdapter As TBIDB_ATTRIBUTE_TYPETableAdapter + Private _vWIDB_BE_ATTRIBUTETableAdapter As VWIDB_BE_ATTRIBUTETableAdapter + Private _tBZF_ADMIN_SOURCE_SQLTableAdapter As TBZF_ADMIN_SOURCE_SQLTableAdapter Private _tBIDB_OBJECT_STORETableAdapter As TBIDB_OBJECT_STORETableAdapter @@ -7934,6 +9349,20 @@ Namespace DSIDB_StammdatenTableAdapters End Set End Property + _ + Public Property VWIDB_BE_ATTRIBUTETableAdapter() As VWIDB_BE_ATTRIBUTETableAdapter + Get + Return Me._vWIDB_BE_ATTRIBUTETableAdapter + End Get + Set + Me._vWIDB_BE_ATTRIBUTETableAdapter = value + End Set + End Property + - - - - SELECT VWIDB_BE_ATTRIBUTE.* -FROM VWIDB_BE_ATTRIBUTE + + + + + + + + INSERT INTO TBIDB_ATTRIBUTE + (TITLE, TYP_ID, VIEW_SEQUENCE, VIEW_VISIBLE, ADDED_WHO) +VALUES (@TITLE,@TYP_ID,@VIEW_SEQUENCE,@VIEW_VISIBLE,@ADDED_WHO) + + + + + + + + + + + + SELECT BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VISIBLE, VIEW_SEQUENCE, SYS_ATTRIBUTE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO +FROM VWIDB_BE_ATTRIBUTE +WHERE (LANG_CODE = @LANG_CODE) AND (SYS_ATTRIBUTE = 0) + + + + + + + UPDATE TBIDB_ATTRIBUTE +SET TITLE = @TITLE, TYP_ID = @TYP_ID, VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE = @VIEW_VISIBLE, COMMENT = @COMMENT, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @GUID) + + + + + + + + + + + @@ -266,6 +305,7 @@ FROM VWIDB_BE_ATTRIBUTE + @@ -530,6 +570,47 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_ + + + + + + SELECT GUID, NAME_TYPE +FROM TBIDB_ATTRIBUTE_TYPE + + + + + + + + + + + + + + + + + SELECT * FROM VWIDB_OBJECT_STORE + + + + + + + + + + + + + + + + + @@ -538,7 +619,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_ - + @@ -577,7 +658,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_ - + @@ -631,10 +712,11 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_ + - + @@ -691,7 +773,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_ - + @@ -732,7 +814,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_ - + @@ -798,7 +880,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_ - + @@ -851,7 +933,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_ - + @@ -888,16 +970,64 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - @@ -918,11 +1048,19 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_ + + + + + + + + - - + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.xss b/GUIs.ZooFlow/DSIDB_Stammdaten.xss index 7cec4add..fff0519a 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.xss +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xss @@ -6,16 +6,17 @@ --> - - - - - - - + + + + + + + + - + 677 @@ -27,7 +28,7 @@ - + 896 diff --git a/GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb b/GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb index ce3ca116..7e135feb 100644 --- a/GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb +++ b/GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb @@ -434,7 +434,7 @@ Partial Public Class GlobixDataset Private columnGEAENDERTWANN As Global.System.Data.DataColumn - Private columnIDB_FILESTORE_ID As Global.System.Data.DataColumn + Private columnIDB_OBJECT_STORE_ID As Global.System.Data.DataColumn _ @@ -617,9 +617,9 @@ Partial Public Class GlobixDataset _ - Public ReadOnly Property IDB_FILESTORE_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property IDB_OBJECT_STORE_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnIDB_FILESTORE_ID + Return Me.columnIDB_OBJECT_STORE_ID End Get End Property @@ -678,9 +678,9 @@ Partial Public Class GlobixDataset ByVal ERSTELLTWANN As Date, _ ByVal GEANDERTWER As String, _ ByVal GEAENDERTWANN As Date, _ - ByVal IDB_FILESTORE_ID As Integer) As TBDD_DOKUMENTARTRow + ByVal IDB_OBJECT_STORE_ID As Integer) As TBDD_DOKUMENTARTRow Dim rowTBDD_DOKUMENTARTRow As TBDD_DOKUMENTARTRow = CType(Me.NewRow,TBDD_DOKUMENTARTRow) - Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, IDB_FILESTORE_ID} + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, IDB_OBJECT_STORE_ID} rowTBDD_DOKUMENTARTRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_DOKUMENTARTRow) Return rowTBDD_DOKUMENTARTRow @@ -727,7 +727,7 @@ Partial Public Class GlobixDataset Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") - Me.columnIDB_FILESTORE_ID = MyBase.Columns("IDB_FILESTORE_ID") + Me.columnIDB_OBJECT_STORE_ID = MyBase.Columns("IDB_OBJECT_STORE_ID") End Sub _ - Public Property IDB_FILESTORE_ID() As Integer + Public Property IDB_OBJECT_STORE_ID() As Integer Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.IDB_FILESTORE_IDColumn),Integer) + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.IDB_OBJECT_STORE_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IDB_OBJECT_STORE_ID in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_DOKUMENTART.IDB_FILESTORE_IDColumn) = value + Me(Me.tableTBDD_DOKUMENTART.IDB_OBJECT_STORE_IDColumn) = value End Set End Property @@ -2557,6 +2574,18 @@ Partial Public Class GlobixDataset Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub + _ + Public Function IsIDB_OBJECT_STORE_IDNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.IDB_OBJECT_STORE_IDColumn) + End Function + + _ + Public Sub SetIDB_OBJECT_STORE_IDNull() + Me(Me.tableTBDD_DOKUMENTART.IDB_OBJECT_STORE_IDColumn) = Global.System.Convert.DBNull + End Sub + _ Public Function GetTBDD_INDEX_MANRows() As TBDD_INDEX_MANRow() @@ -3620,7 +3649,7 @@ Namespace GlobixDatasetTableAdapters tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") - tableMapping.ColumnMappings.Add("IDB_FILESTORE_ID", "IDB_FILESTORE_ID") + tableMapping.ColumnMappings.Add("IDB_OBJECT_STORE_ID", "IDB_OBJECT_STORE_ID") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection @@ -3631,14 +3660,14 @@ Namespace GlobixDatasetTableAdapters Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, EINGANGSART_"& _ "ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJE"& _ - "KTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " IDB_FILESTORE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@EINGANGSART_I"& _ - "D,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEK"& _ - "TTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING,@IDB_FILES"& _ - "TORE_ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL"& _ - "_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTI"& _ - "V, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, "& _ - "GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTITY())" + "KTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ + " (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@"& _ + "NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQU"& _ + "ENCE,@DUPLICATE_HANDLING); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_"& _ + "ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLIC"& _ + "ATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTW"& _ + "ANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTI"& _ + "TY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -3653,7 +3682,6 @@ Namespace GlobixDatasetTableAdapters Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUPLICATE_HANDLING", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "DUPLICATE_HANDLING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDB_FILESTORE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDB_FILESTORE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, EIN"& _ @@ -3662,11 +3690,11 @@ Namespace GlobixDatasetTableAdapters "NTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WI"& _ "NDREAM_DIRECT = @WINDREAM_DIRECT, FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " SEQUENCE = @SEQUENCE, DUPLICATE_HANDLING = @DUPLICATE_HANDLIN"& _ - "G, IDB_FILESTORE_ID = @IDB_FILESTORE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "& _ - ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESC"& _ - "HREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE"& _ - ", SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWA"& _ - "NN FROM TBDD_DOKUMENTART WHERE (GUID = @GUID)" + "G"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, OBJEKTTYP"& _ + ", EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR"& _ + "_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLT"& _ + "WER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID "& _ + "= @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -3681,7 +3709,6 @@ Namespace GlobixDatasetTableAdapters Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUPLICATE_HANDLING", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "DUPLICATE_HANDLING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDB_FILESTORE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDB_FILESTORE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub @@ -3702,8 +3729,8 @@ Namespace GlobixDatasetTableAdapters Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, "& _ "BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANG"& _ "UAGE, SEQUENCE, NAMENKONVENTION, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ERSTELLTWER, ERSTELL"& _ - "TWANN, GEANDERTWER, GEAENDERTWANN, IDB_FILESTORE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUME"& _ - "NTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" + "TWANN, GEANDERTWER, GEAENDERTWANN, IDB_OBJECT_STORE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOK"& _ + "UMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() @@ -3716,11 +3743,11 @@ Namespace GlobixDatasetTableAdapters "D_DOKUMENTART.LANGUAGE, TBDD_DOKUMENTART.SEQUENCE, TBDD_DOKUMENTART.NAMENKONVENT"& _ "ION, TBDD_DOKUMENTART.ERSTELLTWER, TBDD_DOKUMENTART.ERSTELLTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " TBDD_DOKUMENTART.GEANDERTWER, TBDD_DOKUMENTART.GEAENDERTWANN, TBDD_"& _ - "DOKUMENTART.IDB_FILESTORE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBDD_DOKUMENTART_MODULE ON TBDD_DOKUMENTART.GUID = TBDD_DOKU"& _ - "MENTART_MODULE.DOKART_ID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_MODULES ON TB"& _ - "DD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODULES.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBDD_MODULES."& _ - "SHORT_NAME = 'GLOBIX')"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBDD_DOKUMENTART.BEZEICHNUNG" + "DOKUMENTART.IDB_OBJECT_STORE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_DOKUMENTART_MODULE ON TBDD_DOKUMENTART.GUID = TBDD_D"& _ + "OKUMENTART_MODULE.DOKART_ID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_MODULES ON"& _ + " TBDD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODULES.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBDD_MODUL"& _ + "ES.SHORT_NAME = 'GLOBIX')"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBDD_DOKUMENTART.BEZEICHNUNG" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text End Sub @@ -3827,20 +3854,24 @@ Namespace GlobixDatasetTableAdapters 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.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String, ByVal IDB_FILESTORE_ID As Integer) As Integer + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Global.System.Nullable(Of Byte), ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String) As Integer If (BEZEICHNUNG Is Nothing) Then Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If - Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) + If (EINGANGSART_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID.Value,Byte) + Else + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + End If If (KURZNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("KURZNAME") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(KURZNAME,String) End If If (ZIEL_PFAD Is Nothing) Then - Throw New Global.System.ArgumentNullException("ZIEL_PFAD") + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) End If @@ -3861,7 +3892,7 @@ Namespace GlobixDatasetTableAdapters Me.Adapter.InsertCommand.Parameters(7).Value = CType(ERSTELLTWER,String) End If If (OBJEKTTYP Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJEKTTYP") + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(OBJEKTTYP,String) End If @@ -3877,7 +3908,6 @@ Namespace GlobixDatasetTableAdapters Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String) End If - Me.Adapter.InsertCommand.Parameters(13).Value = CType(IDB_FILESTORE_ID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -3897,36 +3927,24 @@ Namespace GlobixDatasetTableAdapters 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.Update, true)> _ - Public Overloads Overridable Function Update( _ - ByVal BEZEICHNUNG As String, _ - ByVal EINGANGSART_ID As Byte, _ - ByVal KURZNAME As String, _ - ByVal ZIEL_PFAD As String, _ - ByVal BESCHREIBUNG As String, _ - ByVal AKTIV As Boolean, _ - ByVal NAMENKONVENTION As String, _ - ByVal GEANDERTWER As String, _ - ByVal OBJEKTTYP As String, _ - ByVal WINDREAM_DIRECT As Boolean, _ - ByVal FOLDER_FOR_INDEX As String, _ - ByVal SEQUENCE As Integer, _ - ByVal DUPLICATE_HANDLING As String, _ - ByVal IDB_FILESTORE_ID As Integer, _ - ByVal Original_GUID As Integer, _ - ByVal GUID As Integer) As Integer + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Global.System.Nullable(Of Byte), ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal GEANDERTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (BEZEICHNUNG Is Nothing) Then Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) + If (EINGANGSART_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID.Value,Byte) + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + End If If (KURZNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("KURZNAME") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KURZNAME,String) End If If (ZIEL_PFAD Is Nothing) Then - Throw New Global.System.ArgumentNullException("ZIEL_PFAD") + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) End If @@ -3947,7 +3965,7 @@ Namespace GlobixDatasetTableAdapters Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GEANDERTWER,String) End If If (OBJEKTTYP Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJEKTTYP") + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(OBJEKTTYP,String) End If @@ -3963,9 +3981,8 @@ Namespace GlobixDatasetTableAdapters Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String) End If - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(IDB_FILESTORE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -4143,20 +4160,20 @@ Namespace GlobixDatasetTableAdapters "MENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, "& _ "SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, MULTISELECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID,@"& _ - "NAME,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQ"& _ - "UENCE,@SQL_RESULT,@SQL_CHECK,@OPTIONAL,@SAVE_VALUE,@ACTIVE,@ADDED_WHO,@MULTISELE"& _ - "CT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOK_ID, NAME, WD_"& _ - "INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQ"& _ - "L_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGE"& _ - "D_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FROM"& _ - " TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE" + "NAME,@WD_INDEX,@COMMENT,@DATATYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 1,@DEFAULT_VALUE,@"& _ + "CONNECTION_ID,@SEQUENCE,@SQL_RESULT,@SQL_CHECK,@OPTIONAL,@SAVE_VALUE,@ACTIVE,@AD"& _ + "DED_WHO,@MULTISELECT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ + ", DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTI"& _ + "ON_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO,"& _ + " ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_M"& _ + "ULTIPLE_VALUES FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQU"& _ + "ENCE" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATATYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DATATYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUGGESTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUGGESTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -4172,24 +4189,22 @@ Namespace GlobixDatasetTableAdapters Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOK_ID = @DOK_ID, NAME = @NAME, W"& _ - "D_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = @SUG"& _ - "GESTION, DEFAULT_VALUE = @DEFAULT_VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONNECTION_I"& _ - "D = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = "& _ - "@SQL_CHECK, OPTIONAL = @OPTIONAL, SAVE_VALUE = @SAVE_VALUE, ACTIVE = @ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ - " CHANGED_WHO = @CHANGED_WHO, MULTISELECT = @MULTISELECT,"& _ - " VKT_ADD_ITEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIP"& _ - "LE_VALUES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOK_ID, NAME, WD"& _ - "_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, S"& _ - "QL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANG"& _ - "ED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FRO"& _ - "M TBDD_INDEX_MAN WHERE (GUID = @GUID) ORDER BY SEQUENCE" + "D_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = 1, D"& _ + "EFAULT_VALUE = @DEFAULT_VALUE, CONNECTION_ID = @CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = @SQL_CHECK"& _ + ", OPTIONAL = @OPTIONAL, SAVE_VALUE = @SAVE_VALUE, ACTIVE = @ACTIVE, CHANGED_WHO "& _ + "= @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" MULTISELECT = @MULTISELECT, VKT_ADD_I"& _ + "TEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIPLE_VALUES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOK_ID, NAME, WD_INDEX, C"& _ + "OMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT"& _ + ", SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ + "HANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FROM TBDD_IN"& _ + "DEX_MAN WHERE (GUID = @GUID) ORDER BY SEQUENCE" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATATYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DATATYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUGGESTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUGGESTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -4313,7 +4328,6 @@ Namespace GlobixDatasetTableAdapters ByVal WD_INDEX As String, _ ByVal COMMENT As String, _ ByVal DATATYPE As String, _ - ByVal SUGGESTION As Boolean, _ ByVal DEFAULT_VALUE As String, _ ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ ByVal SEQUENCE As Integer, _ @@ -4347,39 +4361,38 @@ Namespace GlobixDatasetTableAdapters Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(DATATYPE,String) End If - Me.Adapter.InsertCommand.Parameters(5).Value = CType(SUGGESTION,Boolean) If (DEFAULT_VALUE Is Nothing) Then Throw New Global.System.ArgumentNullException("DEFAULT_VALUE") Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(DEFAULT_VALUE,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(DEFAULT_VALUE,String) End If If (CONNECTION_ID.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(7).Value = CType(CONNECTION_ID.Value,Short) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CONNECTION_ID.Value,Short) Else - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If - Me.Adapter.InsertCommand.Parameters(8).Value = CType(SEQUENCE,Integer) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(SEQUENCE,Integer) If (SQL_RESULT Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RESULT") Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(SQL_RESULT,String) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(SQL_RESULT,String) End If If (SQL_CHECK Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_CHECK") Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(SQL_CHECK,String) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(SQL_CHECK,String) End If - Me.Adapter.InsertCommand.Parameters(11).Value = CType(_OPTIONAL,Boolean) - Me.Adapter.InsertCommand.Parameters(12).Value = CType(SAVE_VALUE,Boolean) - Me.Adapter.InsertCommand.Parameters(13).Value = CType(ACTIVE,Boolean) + Me.Adapter.InsertCommand.Parameters(10).Value = CType(_OPTIONAL,Boolean) + Me.Adapter.InsertCommand.Parameters(11).Value = CType(SAVE_VALUE,Boolean) + Me.Adapter.InsertCommand.Parameters(12).Value = CType(ACTIVE,Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(14).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(13).Value = CType(ADDED_WHO,String) End If - Me.Adapter.InsertCommand.Parameters(15).Value = CType(MULTISELECT,Boolean) - Me.Adapter.InsertCommand.Parameters(16).Value = CType(VKT_ADD_ITEM,Boolean) - Me.Adapter.InsertCommand.Parameters(17).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean) + Me.Adapter.InsertCommand.Parameters(14).Value = CType(MULTISELECT,Boolean) + Me.Adapter.InsertCommand.Parameters(15).Value = CType(VKT_ADD_ITEM,Boolean) + Me.Adapter.InsertCommand.Parameters(16).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -4405,7 +4418,6 @@ Namespace GlobixDatasetTableAdapters ByVal WD_INDEX As String, _ ByVal COMMENT As String, _ ByVal DATATYPE As String, _ - ByVal SUGGESTION As Boolean, _ ByVal DEFAULT_VALUE As String, _ ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ ByVal SEQUENCE As Integer, _ @@ -4441,41 +4453,40 @@ Namespace GlobixDatasetTableAdapters Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DATATYPE,String) End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SUGGESTION,Boolean) If (DEFAULT_VALUE Is Nothing) Then Throw New Global.System.ArgumentNullException("DEFAULT_VALUE") Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DEFAULT_VALUE,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(DEFAULT_VALUE,String) End If If (CONNECTION_ID.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CONNECTION_ID.Value,Short) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CONNECTION_ID.Value,Short) Else - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SEQUENCE,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SEQUENCE,Integer) If (SQL_RESULT Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RESULT") Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SQL_RESULT,String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SQL_RESULT,String) End If If (SQL_CHECK Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_CHECK") Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(SQL_CHECK,String) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SQL_CHECK,String) End If - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(_OPTIONAL,Boolean) - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SAVE_VALUE,Boolean) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(ACTIVE,Boolean) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(_OPTIONAL,Boolean) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SAVE_VALUE,Boolean) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ACTIVE,Boolean) If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(MULTISELECT,Boolean) - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(VKT_ADD_ITEM,Boolean) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean) - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(MULTISELECT,Boolean) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(VKT_ADD_ITEM,Boolean) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then diff --git a/GUIs.ZooFlow/Globix/GlobixDataset.xsc b/GUIs.ZooFlow/Globix/GlobixDataset.xsc index 3424f5e1..e6933760 100644 --- a/GUIs.ZooFlow/Globix/GlobixDataset.xsc +++ b/GUIs.ZooFlow/Globix/GlobixDataset.xsc @@ -9,46 +9,34 @@ - - + - - + - - + - - + - - + - - + - - + - - + - - + - - + - - - + + - - + @@ -94,14 +82,32 @@ - + + - + + - + + - + + + + + + + + + + + + + + + + diff --git a/GUIs.ZooFlow/Globix/GlobixDataset.xsd b/GUIs.ZooFlow/Globix/GlobixDataset.xsd index 43377a44..4033b8b1 100644 --- a/GUIs.ZooFlow/Globix/GlobixDataset.xsd +++ b/GUIs.ZooFlow/Globix/GlobixDataset.xsd @@ -9,7 +9,7 @@ - + DELETE FROM TBDD_DOKUMENTART @@ -20,66 +20,63 @@ WHERE (GUID = @Original_GUID) - + INSERT INTO TBDD_DOKUMENTART - (BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJEKTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING, - IDB_FILESTORE_ID) -VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING,@IDB_FILESTORE_ID); + (BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJEKTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING) +VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING); SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - + + + + + + + + + + + + + SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, - ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, IDB_FILESTORE_ID + ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, IDB_OBJECT_STORE_ID FROM TBDD_DOKUMENTART WHERE (GUID = @GUID) - + - + UPDATE TBDD_DOKUMENTART SET BEZEICHNUNG = @BEZEICHNUNG, EINGANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BESCHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, NAMENKONVENTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WINDREAM_DIRECT = @WINDREAM_DIRECT, FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX, - SEQUENCE = @SEQUENCE, DUPLICATE_HANDLING = @DUPLICATE_HANDLING, IDB_FILESTORE_ID = @IDB_FILESTORE_ID -WHERE (GUID = @Original_GUID); + SEQUENCE = @SEQUENCE, DUPLICATE_HANDLING = @DUPLICATE_HANDLING +WHERE (GUID = @Original_GUID); SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + @@ -104,7 +101,7 @@ SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHR - + @@ -113,7 +110,7 @@ SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHR SELECT TBDD_DOKUMENTART.GUID, TBDD_DOKUMENTART.BEZEICHNUNG, TBDD_DOKUMENTART.OBJEKTTYP, TBDD_DOKUMENTART.EINGANGSART_ID, TBDD_DOKUMENTART.KURZNAME, TBDD_DOKUMENTART.ZIEL_PFAD, TBDD_DOKUMENTART.BESCHREIBUNG, TBDD_DOKUMENTART.WINDREAM_DIRECT, TBDD_DOKUMENTART.FOLDER_FOR_INDEX, TBDD_DOKUMENTART.DUPLICATE_HANDLING, TBDD_DOKUMENTART.AKTIV, TBDD_DOKUMENTART.LANGUAGE, TBDD_DOKUMENTART.SEQUENCE, TBDD_DOKUMENTART.NAMENKONVENTION, TBDD_DOKUMENTART.ERSTELLTWER, TBDD_DOKUMENTART.ERSTELLTWANN, - TBDD_DOKUMENTART.GEANDERTWER, TBDD_DOKUMENTART.GEAENDERTWANN, TBDD_DOKUMENTART.IDB_FILESTORE_ID + TBDD_DOKUMENTART.GEANDERTWER, TBDD_DOKUMENTART.GEAENDERTWANN, TBDD_DOKUMENTART.IDB_OBJECT_STORE_ID FROM TBDD_DOKUMENTART INNER JOIN TBDD_DOKUMENTART_MODULE ON TBDD_DOKUMENTART.GUID = TBDD_DOKUMENTART_MODULE.DOKART_ID INNER JOIN TBDD_MODULES ON TBDD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODULES.GUID @@ -142,7 +139,8 @@ WHERE (GUID = @Original_GUID) INSERT INTO TBDD_INDEX_MAN (DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES) -VALUES (@DOK_ID,@NAME,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQUENCE,@SQL_RESULT,@SQL_CHECK,@OPTIONAL,@SAVE_VALUE,@ACTIVE,@ADDED_WHO,@MULTISELECT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES); +VALUES (@DOK_ID,@NAME,@WD_INDEX,@COMMENT,@DATATYPE, + 1,@DEFAULT_VALUE,@CONNECTION_ID,@SEQUENCE,@SQL_RESULT,@SQL_CHECK,@OPTIONAL,@SAVE_VALUE,@ACTIVE,@ADDED_WHO,@MULTISELECT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES); SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE @@ -150,7 +148,6 @@ SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALU - @@ -181,10 +178,10 @@ ORDER BY SEQUENCE UPDATE TBDD_INDEX_MAN -SET DOK_ID = @DOK_ID, NAME = @NAME, WD_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = @SUGGESTION, DEFAULT_VALUE = @DEFAULT_VALUE, - CONNECTION_ID = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = @SQL_CHECK, OPTIONAL = @OPTIONAL, SAVE_VALUE = @SAVE_VALUE, ACTIVE = @ACTIVE, - CHANGED_WHO = @CHANGED_WHO, MULTISELECT = @MULTISELECT, VKT_ADD_ITEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIPLE_VALUES -WHERE (GUID = @Original_GUID); +SET DOK_ID = @DOK_ID, NAME = @NAME, WD_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = 1, DEFAULT_VALUE = @DEFAULT_VALUE, CONNECTION_ID = @CONNECTION_ID, + SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = @SQL_CHECK, OPTIONAL = @OPTIONAL, SAVE_VALUE = @SAVE_VALUE, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, + MULTISELECT = @MULTISELECT, VKT_ADD_ITEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIPLE_VALUES +WHERE (GUID = @Original_GUID); SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FROM TBDD_INDEX_MAN WHERE (GUID = @GUID) ORDER BY SEQUENCE @@ -192,7 +189,6 @@ SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALU - @@ -347,7 +343,7 @@ SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, - + @@ -363,7 +359,7 @@ SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, - + @@ -384,7 +380,7 @@ SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, - + @@ -431,7 +427,7 @@ SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, - + @@ -461,40 +457,40 @@ SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, - + - - + + - + - + - + - - - + + + @@ -511,7 +507,7 @@ SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, - + @@ -522,7 +518,7 @@ SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, - + @@ -537,15 +533,15 @@ SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, - - + + - + diff --git a/GUIs.ZooFlow/Globix/frmGlobixNameconvention.Designer.vb b/GUIs.ZooFlow/Globix/frmGlobixNameconvention.Designer.vb new file mode 100644 index 00000000..0f744bd6 --- /dev/null +++ b/GUIs.ZooFlow/Globix/frmGlobixNameconvention.Designer.vb @@ -0,0 +1,276 @@ + _ +Partial Class frmGlobixNameconvention + Inherits System.Windows.Forms.Form + + '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(frmGlobixNameconvention)) + Me.Label1 = New System.Windows.Forms.Label() + Me.txtnamenKonv = New System.Windows.Forms.TextBox() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.btnAddIndexA = New System.Windows.Forms.Button() + Me.btnAddIndexM = New System.Windows.Forms.Button() + Me.cmbIndex_A = New System.Windows.Forms.ComboBox() + Me.cmbIndex_m = New System.Windows.Forms.ComboBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.btnAddDivers = New System.Windows.Forms.Button() + Me.cmbdivers = New System.Windows.Forms.ComboBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.btnAddDate = New System.Windows.Forms.Button() + Me.cmbDate = New System.Windows.Forms.ComboBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton() + Me.SimpleButton3 = New DevExpress.XtraEditors.SimpleButton() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(12, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(438, 51) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Definieren Sie hier die Namenskonvention zur ausgewählten Dokumentart." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sie haben" & + " die Möglichkeit den Dateinamen aus den unten aufgeführten" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Attributen und Textb" & + "austeinen zusammenzustellen." + ' + 'txtnamenKonv + ' + Me.txtnamenKonv.Location = New System.Drawing.Point(15, 72) + Me.txtnamenKonv.Name = "txtnamenKonv" + Me.txtnamenKonv.Size = New System.Drawing.Size(499, 25) + Me.txtnamenKonv.TabIndex = 2 + ' + 'SimpleButton1 + ' + Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SimpleButton1.Appearance.Options.UseFont = True + Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton1.Location = New System.Drawing.Point(520, 72) + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.Size = New System.Drawing.Size(41, 25) + Me.SimpleButton1.TabIndex = 4 + ' + 'btnAddIndexA + ' + Me.btnAddIndexA.Image = CType(resources.GetObject("btnAddIndexA.Image"), System.Drawing.Image) + Me.btnAddIndexA.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.btnAddIndexA.Location = New System.Drawing.Point(193, 168) + Me.btnAddIndexA.Name = "btnAddIndexA" + Me.btnAddIndexA.Size = New System.Drawing.Size(30, 23) + Me.btnAddIndexA.TabIndex = 5 + Me.btnAddIndexA.UseVisualStyleBackColor = True + ' + 'btnAddIndexM + ' + Me.btnAddIndexM.Image = CType(resources.GetObject("btnAddIndexM.Image"), System.Drawing.Image) + Me.btnAddIndexM.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.btnAddIndexM.Location = New System.Drawing.Point(193, 120) + Me.btnAddIndexM.Name = "btnAddIndexM" + Me.btnAddIndexM.Size = New System.Drawing.Size(30, 23) + Me.btnAddIndexM.TabIndex = 4 + Me.btnAddIndexM.UseVisualStyleBackColor = True + ' + 'cmbIndex_A + ' + Me.cmbIndex_A.DisplayMember = "INDEXNAME" + Me.cmbIndex_A.FormattingEnabled = True + Me.cmbIndex_A.Location = New System.Drawing.Point(15, 168) + Me.cmbIndex_A.Name = "cmbIndex_A" + Me.cmbIndex_A.Size = New System.Drawing.Size(172, 25) + Me.cmbIndex_A.TabIndex = 3 + Me.cmbIndex_A.ValueMember = "GUID" + ' + 'cmbIndex_m + ' + Me.cmbIndex_m.DisplayMember = "NAME" + Me.cmbIndex_m.FormattingEnabled = True + Me.cmbIndex_m.Location = New System.Drawing.Point(15, 120) + Me.cmbIndex_m.Name = "cmbIndex_m" + Me.cmbIndex_m.Size = New System.Drawing.Size(172, 25) + Me.cmbIndex_m.TabIndex = 2 + Me.cmbIndex_m.ValueMember = "GUID" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.Label3.Location = New System.Drawing.Point(12, 148) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(129, 17) + Me.Label3.TabIndex = 1 + Me.Label3.Text = "Automatischer Index:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.Label2.Location = New System.Drawing.Point(12, 100) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(104, 17) + Me.Label2.TabIndex = 0 + Me.Label2.Text = "Manueller Index:" + ' + 'btnAddDivers + ' + Me.btnAddDivers.Image = CType(resources.GetObject("btnAddDivers.Image"), System.Drawing.Image) + Me.btnAddDivers.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.btnAddDivers.Location = New System.Drawing.Point(193, 263) + Me.btnAddDivers.Name = "btnAddDivers" + Me.btnAddDivers.Size = New System.Drawing.Size(30, 23) + Me.btnAddDivers.TabIndex = 18 + Me.btnAddDivers.UseVisualStyleBackColor = True + ' + 'cmbdivers + ' + Me.cmbdivers.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.cmbdivers.FormattingEnabled = True + Me.cmbdivers.Items.AddRange(New Object() {"Username", "Usercode", "MACHINE", "DOMAIN"}) + Me.cmbdivers.Location = New System.Drawing.Point(15, 265) + Me.cmbdivers.Name = "cmbdivers" + Me.cmbdivers.Size = New System.Drawing.Size(172, 23) + Me.cmbdivers.TabIndex = 17 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.Label4.Location = New System.Drawing.Point(12, 245) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(47, 17) + Me.Label4.TabIndex = 16 + Me.Label4.Text = "Divers:" + ' + 'btnAddDate + ' + Me.btnAddDate.Image = CType(resources.GetObject("btnAddDate.Image"), System.Drawing.Image) + Me.btnAddDate.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.btnAddDate.Location = New System.Drawing.Point(193, 214) + Me.btnAddDate.Name = "btnAddDate" + Me.btnAddDate.Size = New System.Drawing.Size(30, 23) + Me.btnAddDate.TabIndex = 15 + Me.btnAddDate.UseVisualStyleBackColor = True + ' + 'cmbDate + ' + Me.cmbDate.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.cmbDate.FormattingEnabled = True + Me.cmbDate.Items.AddRange(New Object() {"YY_MM_DD", "YYYY_MM_DD", "DD_MM_YY", "DD_MM_YYYY", "YYMMDD", "YYYYMMDD", "DDMMYY", "DDMMYYYY"}) + Me.cmbDate.Location = New System.Drawing.Point(15, 216) + Me.cmbDate.Name = "cmbDate" + Me.cmbDate.Size = New System.Drawing.Size(172, 23) + Me.cmbDate.TabIndex = 14 + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.Label20.Location = New System.Drawing.Point(12, 196) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(99, 17) + Me.Label20.TabIndex = 13 + Me.Label20.Text = "Datum-Struktur:" + ' + 'Button2 + ' + Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image) + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button2.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.Button2.Location = New System.Drawing.Point(351, 117) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(163, 29) + Me.Button2.TabIndex = 19 + Me.Button2.Text = "OriginalName" + Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button2.UseVisualStyleBackColor = True + ' + 'SimpleButton2 + ' + Me.SimpleButton2.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton2.Location = New System.Drawing.Point(429, 254) + Me.SimpleButton2.Name = "SimpleButton2" + Me.SimpleButton2.Size = New System.Drawing.Size(123, 43) + Me.SimpleButton2.TabIndex = 22 + Me.SimpleButton2.Text = "Übernehmen" + ' + 'SimpleButton3 + ' + Me.SimpleButton3.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton3.Location = New System.Drawing.Point(325, 254) + Me.SimpleButton3.Name = "SimpleButton3" + Me.SimpleButton3.Size = New System.Drawing.Size(98, 43) + Me.SimpleButton3.TabIndex = 23 + Me.SimpleButton3.Text = "Abbruch" + ' + 'frmGlobixNameconvention + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(572, 307) + Me.Controls.Add(Me.SimpleButton3) + Me.Controls.Add(Me.SimpleButton2) + Me.Controls.Add(Me.btnAddIndexA) + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.btnAddIndexM) + Me.Controls.Add(Me.btnAddDivers) + Me.Controls.Add(Me.cmbIndex_A) + Me.Controls.Add(Me.cmbIndex_m) + Me.Controls.Add(Me.cmbdivers) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.btnAddDate) + Me.Controls.Add(Me.cmbDate) + Me.Controls.Add(Me.Label20) + Me.Controls.Add(Me.SimpleButton1) + Me.Controls.Add(Me.txtnamenKonv) + Me.Controls.Add(Me.Label1) + Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.Name = "frmGlobixNameconvention" + Me.Text = "Assistent zur Namenskonvention" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents Label1 As Label + Friend WithEvents txtnamenKonv As TextBox + Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents btnAddIndexA As Button + Friend WithEvents btnAddIndexM As Button + Friend WithEvents cmbIndex_A As ComboBox + Friend WithEvents cmbIndex_m As ComboBox + Friend WithEvents Label3 As Label + Friend WithEvents Label2 As Label + Friend WithEvents btnAddDivers As Button + Friend WithEvents cmbdivers As ComboBox + Friend WithEvents Label4 As Label + Friend WithEvents btnAddDate As Button + Friend WithEvents cmbDate As ComboBox + Friend WithEvents Label20 As Label + Friend WithEvents Button2 As Button + Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents SimpleButton3 As DevExpress.XtraEditors.SimpleButton +End Class diff --git a/GUIs.ZooFlow/Globix/frmGlobixNameconvention.resx b/GUIs.ZooFlow/Globix/frmGlobixNameconvention.resx new file mode 100644 index 00000000..5b4457f6 --- /dev/null +++ b/GUIs.ZooFlow/Globix/frmGlobixNameconvention.resx @@ -0,0 +1,219 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAD0DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRGVsZXRlIj4N + CiAgICA8Zz4NCiAgICAgIDxwYXRoIGQ9Ik0xOC44LDE2bDYuOS02LjljMC40LTAuNCwwLjQtMSwwLTEu + NGwtMS40LTEuNGMtMC40LTAuNC0xLTAuNC0xLjQsMEwxNiwxMy4yTDkuMSw2LjNjLTAuNC0wLjQtMS0w + LjQtMS40LDAgICAgTDYuMyw3LjdjLTAuNCwwLjQtMC40LDEsMCwxLjRsNi45LDYuOWwtNi45LDYuOWMt + MC40LDAuNC0wLjQsMSwwLDEuNGwxLjQsMS40YzAuNCwwLjQsMSwwLjQsMS40LDBsNi45LTYuOWw2Ljks + Ni45ICAgIGMwLjQsMC40LDEsMC40LDEuNCwwbDEuNC0xLjRjMC40LTAuNCwwLjQtMSwwLTEuNEwxOC44 + LDE2eiIgY2xhc3M9IlJlZCIgLz4NCiAgICA8L2c+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOsCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iRXhwb3J0Ij4NCiAgICA8cGF0aCBkPSJNMTAsMTJINlY2aDRWMTJ6IE0yMiwxMnY2 + djljMCwwLjYtMC40LDEtMSwxSDFjLTAuNiwwLTEtMC40LTEtMVY3YzAtMC42LDAuNC0xLDEtMWgzdjho + MTR2LTJIMjJ6IE0xOCwxOEg0ICAgdjZoMTRWMTh6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBvbHln + b24gcG9pbnRzPSIxNiwxMCAyNCwxMCAyNCwxNCAzMiw4IDI0LDIgMjQsNiAxNiw2ICAiIGNsYXNzPSJH + cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJIZWFkZXJBbmRGb290ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dy + b3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDoj + RDExQzFDO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRINUM0LjUsNCw0LDQuNSw0LDV2MjJjMCww + LjUsMC41LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVY1QzI4LDQuNSwyNy41LDQsMjcsNHogTTIyLDIw + bC0yLDJsLTQtNGwtNCw0ICBsLTItMmw0LTRsLTQtNGwyLTJsNCw0bDQtNGwyLDJsLTQsNEwyMiwyMHoi + IGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Globix/frmGlobixNameconvention.vb b/GUIs.ZooFlow/Globix/frmGlobixNameconvention.vb new file mode 100644 index 00000000..b1c772e8 --- /dev/null +++ b/GUIs.ZooFlow/Globix/frmGlobixNameconvention.vb @@ -0,0 +1,85 @@ +Public Class frmGlobixNameconvention + Public Property Nameconvention() As String + Get + Return txtnamenKonv.Text + End Get + Set(value As String) + txtnamenKonv.Text = value + End Set + End Property + Public Property DoctypeID As Integer + Private Sub InsertAtSelection(str As String) + Dim altePosition As Integer = txtnamenKonv.SelectionStart() + txtnamenKonv.Text = txtnamenKonv.Text.Insert(altePosition, str) + txtnamenKonv.SelectionStart = altePosition + str.Length + End Sub + Private Sub btnAddIndexM_Click(sender As Object, e As EventArgs) Handles btnAddIndexM.Click + If Not Me.cmbIndex_m.Text = "" Then + Dim text As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_MAN, cmbIndex_m.Text) + InsertAtSelection(text) + + End If + End Sub + + Private Sub btnAddIndexA_Click(sender As Object, e As EventArgs) Handles btnAddIndexA.Click + If Not Me.cmbIndex_A.Text = "" Then + Dim text As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_AUTO, cmbIndex_m.Text) + InsertAtSelection(text) + End If + End Sub + + Private Sub frmGlobixNameconvention_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + Dim oSQL = $"SELECT * FROM TBDD_INDEX_MAN WHERE DOK_ID = {DoctypeID}" + Dim oDTMANINDEX As DataTable = My.DatabaseECM.GetDatatable(oSQL) + cmbIndex_m.DataSource = oDTMANINDEX + cmbIndex_m.DisplayMember = oDTMANINDEX.Columns("NAME").ColumnName + oSQL = $"SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = {DoctypeID}" + Dim oDTAUTOINDEX As DataTable = My.DatabaseECM.GetDatatable(oSQL) + If Not IsNothing(oDTAUTOINDEX) And oDTAUTOINDEX.Rows.Count > 0 Then + cmbIndex_A.DataSource = oDTAUTOINDEX + cmbIndex_A.DisplayMember = oDTMANINDEX.Columns("WD_INDEX").ColumnName + Else + cmbIndex_A.Enabled = False + btnAddIndexA.Enabled = False + End If + + Catch ex As Exception + + End Try + End Sub + + Private Sub btnAddDate_Click(sender As Object, e As EventArgs) Handles btnAddDate.Click + If Not Me.cmbDate.Text = "" Then + 'AREANLAGE-[%mARENR]-[%aKurzname]-I[%Version] + Dim text As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_INT, cmbDate.Text) + InsertAtSelection(text) + End If + End Sub + + Private Sub btnAddDivers_Click(sender As Object, e As EventArgs) Handles btnAddDivers.Click + If Not Me.cmbdivers.Text = "" Then + Dim text As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_INT, cmbdivers.Text) + InsertAtSelection(text) + End If + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + Dim text As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_INT, "OFilename") + If Not txtnamenKonv.Text.Contains(text) Then + InsertAtSelection(text) + End If + End Sub + + Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click + Me.Close() + End Sub + + Private Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click + Me.Close() + End Sub + + Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click + Me.txtnamenKonv.Text = String.Empty + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/MyApplication.vb b/GUIs.ZooFlow/MyApplication.vb index 6424c955..0f49db01 100644 --- a/GUIs.ZooFlow/MyApplication.vb +++ b/GUIs.ZooFlow/MyApplication.vb @@ -39,8 +39,6 @@ Namespace My Property Helpers As ClassHelpers #End Region - Property Filestore_Work As String - Property Filestore_Archive As String End Module ''' diff --git a/GUIs.ZooFlow/ZooFlow.vbproj b/GUIs.ZooFlow/ZooFlow.vbproj index 360d0a0e..93aa7660 100644 --- a/GUIs.ZooFlow/ZooFlow.vbproj +++ b/GUIs.ZooFlow/ZooFlow.vbproj @@ -171,6 +171,18 @@ Form + + frmAdmin_relations.vb + + + Form + + + frmSQLDesigner.vb + + + Form + frmAdmin_Globix.vb @@ -192,6 +204,7 @@ + True True @@ -222,6 +235,12 @@ + + frmGlobixNameconvention.vb + + + Form + True @@ -376,9 +395,15 @@ frmAdmin_IDBObjectStore.vb + + frmAdmin_relations.vb + frmAdmin_SourceSQL.vb + + frmSQLDesigner.vb + frmServiceConfig.vb @@ -391,6 +416,9 @@ frmGlobixMissingInput.vb + + frmGlobixNameconvention.vb + frmFlowSearch.vb diff --git a/GUIs.ZooFlow/clsPatterns.vb b/GUIs.ZooFlow/clsPatterns.vb new file mode 100644 index 00000000..32a5adb3 --- /dev/null +++ b/GUIs.ZooFlow/clsPatterns.vb @@ -0,0 +1,483 @@ +Imports System.Text.RegularExpressions +Imports WINDREAMLib +Imports DigitalData.Controls.LookupGrid +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraGrid.Columns +''' +''' Defines common Functions for Checking for and replacing placeholders. +''' This Class also includes a child class `Pattern` for passing around Patterns. +''' +''' The format of all placeholders is: +''' {#TYPE#VALUE} +''' +''' Some Examples: +''' {#INT#USERNAME} +''' {#CTRL#CMB_2} +''' {#WMI#String 39} +''' +Public Class clsPatterns + ' Complex patterns that rely on a datasource like a Database or Windream + Public Const PATTERN_ZFATTRIBUTE = "ATTR" + Public Const PATTERN_ATTR_AUTO = "ATTR_A" + Public Const PATTERN_ATTR_MAN = "ATTR_M" + Public Const PATTERN_IDBA = "IDBA" + ' Kinds of CTRL Placeholder + ' + ' Normal Control + ' {#CTRL#ControlName} + ' + ' Summary Item from Table Column + ' {#CTRL#ControlName::ColumnName} + Public Const PATTERN_CTRL = "CTRL" + ' Simple patterns that only rely on .NET functions + Public Const PATTERN_INT = "INT" + ' Simple patterns that rely on Data from the TBDD_USER table + Public Const PATTERN_USER = "USER" + + Public Const USER_VALUE_PRENAME = "PRENAME" + Public Const USER_VALUE_SURNAME = "SURNAME" + Public Const USER_VALUE_EMAIL = "EMAIL" + Public Const USER_VALUE_SHORTNAME = "SHORTNAME" + Public Const USER_VALUE_LANGUAGE = "LANGUAGE" + Public Const USER_VALUE_USER_ID = "USER_ID" + Public Const VALUE_PROFILE_ID = "PROFILE_ID" + Public Const VALUE_PROFILE_TITLE = "PROFILE_TITLE" + + Public Const INT_VALUE_USERNAME = "USERNAME" + Public Const INT_VALUE_MACHINE = "MACHINE" + Public Const INT_VALUE_DOMAIN = "DOMAIN" + Public Const INT_VALUE_DATE = "DATE" + + Public Const MAX_TRY_COUNT = 50 + + ''' + ''' This value will be valid as any datatype, + ''' and you can easily check against it + ''' + Public Const ERROR_REPLACE_VALUE = "0" + + Private Shared ReadOnly MyRegex As Regex = New Regex("{#(\w+)#([\:\.\w\s_-]+)}+") + Private Shared ReadOnly allPatterns As New List(Of String) From {PATTERN_ZFATTRIBUTE, PATTERN_ATTR_AUTO, PATTERN_ATTR_MAN, PATTERN_CTRL, PATTERN_IDBA, PATTERN_USER, PATTERN_INT} + Private Shared ReadOnly complexPatterns As New List(Of String) From {PATTERN_ZFATTRIBUTE, PATTERN_ATTR_AUTO, PATTERN_ATTR_MAN, PATTERN_CTRL, PATTERN_IDBA} + Private Shared ReadOnly simplePatterns As New List(Of String) From {PATTERN_USER, PATTERN_INT} + + ''' + ''' Wraps a pattern-type and -value in the common format: {#type#value} + ''' + Public Shared Function WrapPatternValue(type As String, value As String) As String + Return New Pattern(type, value).ToString + End Function + + 'Public Shared Function ReplaceAllValues(input As String, panel As Panel, is_SQL As Boolean) As String + ' Try + ' Dim result = input + + ' If Not HasAnyPatterns(result) Then + ' Return result + ' End If + + ' LOGGER.Debug($"input BEFORE replacing: [{result}]") + ' result = ReplaceInternalValues(result) + ' result = ReplaceControlValues(result, panel, is_SQL) + ' If Not IsNothing(CURRENT_WMFILE) Then + ' result = ReplaceWindreamIndicies(result, CURRENT_WMFILE, is_SQL) + ' End If + ' If IDB_ACTIVE = True Then + ' result = ReplaceIDBAttributes(result, is_SQL) + ' End If + ' If Not IsNothing(result) Then + ' result = ReplaceUserValues(result) + ' LOGGER.Debug($"input AFTER replacing: [{result}]") + ' End If + + ' Return result + ' Catch ex As Exception + ' LOGGER.Error(ex) + ' LOGGER.Info("Error in ReplaceAllValues:" & ex.Message) + ' Return input + ' End Try + 'End Function + + Public Shared Function ReplaceInternalValues(pInput As String) As String + Dim oResult = pInput + + Try + ' Replace Username(s) + While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_USERNAME) + oResult = ReplacePattern(oResult, PATTERN_INT, My.Application.User.UserName) + End While + + ' Replace Machinename(s) + While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_MACHINE) + oResult = ReplacePattern(oResult, PATTERN_INT, Environment.MachineName) + End While + + ' Replace Domainname(s) + While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_DOMAIN) + oResult = ReplacePattern(oResult, PATTERN_INT, Environment.UserDomainName) + End While + + ' Replace CurrentDate(s) + While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_DATE) + oResult = ReplacePattern(oResult, PATTERN_INT, Now.ToShortDateString) + End While + + Return oResult + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info("Error in ReplaceInternalValues:" & ex.Message) + Return oResult + End Try + End Function + + Public Shared Function ReplaceUserValues(input As String) As String + Try + Dim result = input + + While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_PRENAME) + result = ReplacePattern(result, PATTERN_USER, My.Application.User.GivenName) + End While + + While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_USER_ID) + result = ReplacePattern(result, PATTERN_USER, My.Application.User.UserId) + End While + + While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SURNAME) + result = ReplacePattern(result, PATTERN_USER, My.Application.User.Surname) + End While + + While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SHORTNAME) + result = ReplacePattern(result, PATTERN_USER, My.Application.User.ShortName) + End While + + While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_LANGUAGE) + result = ReplacePattern(result, PATTERN_USER, My.Application.User.Language) + End While + + While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_EMAIL) + result = ReplacePattern(result, PATTERN_USER, My.Application.User.Email) + End While + + Return result + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info("Error in ReplaceUserValues:" & ex.Message) + End Try + End Function + + Public Shared Function ReplaceControlValues(pInput As String, oPanel As Panel, oIsSQL As Boolean) As String + Dim oResult = pInput + + Try + + Dim oTryCounter = 0 + + While ContainsPattern(oResult, PATTERN_CTRL) + If oTryCounter > MAX_TRY_COUNT Then + LOGGER.Warn($"Max tries in ReplaceControlValues exceeded - Replacing with [0]") + oResult = ReplacePattern(oResult, PATTERN_CTRL, 0) + Throw New Exception($"Max tries in ReplaceControlValues exceeded - Result so far [{oResult}].") + End If + + Dim oControlName As String = GetNextPattern(oResult, PATTERN_CTRL).Value + Dim oColumnName As String = String.Empty + + If oControlName.Contains("::") Then + Dim oSplitName = Split(oControlName, "::").ToList() + oControlName = oSplitName.First() + oColumnName = oSplitName.Last() + End If + + LOGGER.Debug("Found placeholder for control [{0}].", oControlName) + + Dim oControl As Control = oPanel.Controls.Find(oControlName, False).FirstOrDefault() + + If oControl IsNot Nothing Then + Dim oReplaceValue As String + Select Case oControl.GetType + Case GetType(TextBox) + oReplaceValue = oControl.Text + + Case GetType(LookupControl3) + Dim oLookupControl3 As LookupControl3 = oControl + If oLookupControl3.Properties.SelectedValues.Count = 1 Then + oReplaceValue = oLookupControl3.Properties.SelectedValues.Item(0) + Else + oReplaceValue = ERROR_REPLACE_VALUE + End If + + Case GetType(ComboBox) + oReplaceValue = oControl.Text + + Case GetType(CheckBox) + Dim oCheckBox As CheckBox = oControl + oReplaceValue = oCheckBox.Checked + + Case GetType(GridControl) + Dim oGrid As GridControl = oControl + Dim oView As GridView = oGrid.FocusedView + + If oColumnName = String.Empty Then + LOGGER.Warn("Used placeholder for Table [{0}] but without Column Name!", oControlName) + oReplaceValue = ERROR_REPLACE_VALUE + End If + + Dim oColumn As GridColumn = oView.Columns. + Where(Function(c) c.FieldName = oColumnName). + SingleOrDefault() + + If oColumn?.SummaryItem?.SummaryValue Is Nothing Then + LOGGER.Warn("Column [{0}] not found in Grid!", oColumnName) + oReplaceValue = ERROR_REPLACE_VALUE + Else + oReplaceValue = oColumn.SummaryItem.SummaryValue + End If + + Case Else + oReplaceValue = ERROR_REPLACE_VALUE + End Select + If oIsSQL = True Then + 'LOGGER.Debug($"IS_SQL = True - oReplaceValue = {oReplaceValue}") + 'LOGGER.Debug($"oReplaceValue = {oReplaceValue}") + oReplaceValue = oReplaceValue.Replace("'", "''") + End If + oResult = ReplacePattern(oResult, PATTERN_CTRL, oReplaceValue) + End If + + oTryCounter += 1 + End While + Return oResult + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Warn("Error in ReplaceControlValues:" & ex.Message) + Return oResult + End Try + End Function + + Public Shared Function ReplaceAttributes(pInput As String, pIDBOBJ_ID As Long, pIsSQL As Boolean) As String + Try + Dim oResult = pInput + Dim oTryCounter As Integer = 0 + + While ContainsPattern(oResult, PATTERN_ZFATTRIBUTE) + + Dim oIndexName As String = GetNextPattern(oResult, PATTERN_ZFATTRIBUTE).Value + Dim oValue As String '= pDocument.GetVariableValue(oIndexName) + + If IsNothing(oValue) And oTryCounter = MAX_TRY_COUNT Then + Throw New Exception("Max tries in ReplaceWindreamIndicies exceeded.") + End If + + If oValue IsNot Nothing Then + If pIsSQL = True Then + LOGGER.Debug($"IS_SQL = True - oReplaceValue = {oValue}") + oValue = oValue.ToString().Replace("'", "''") + LOGGER.Debug($"oReplaceValue = {oValue}") + End If + oResult = ReplacePattern(oResult, PATTERN_ZFATTRIBUTE, oValue) + End If + + ' Increase counter by 10 to avoid DDOSing the Windream Service + oTryCounter += 10 + End While + Return oResult + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info("Error in ReplaceWindreamIndicies:" & ex.Message) + Return pInput + End Try + End Function + 'Public Shared Function ReplaceIDBAttributes(input As String, IS_SQL As Boolean) As String + ' Try + ' Dim result = input + ' Dim oTryCounter As Integer = 0 + ' While ContainsPattern(result, PATTERN_IDBA) + + ' Dim indexName As String = GetNextPattern(result, PATTERN_IDBA).Value + ' Dim oIDBValue + ' If indexName = "ObjectID" Then + ' oIDBValue = CURRENT_DOC_ID + ' ElseIf indexName = "OBJID" Then + ' oIDBValue = CURRENT_DOC_ID + ' ElseIf indexName = "DocID" Then + ' oIDBValue = CURRENT_DOC_ID + ' Else + ' oIDBValue = IDBData.GetVariableValue(indexName) + ' End If + + ' If IsNothing(oIDBValue) And oTryCounter = MAX_TRY_COUNT Then + ' LOGGER.Warn($"Max tries for [{indexName}] in ReplaceIDBAttributes exceeded - Replacing with [0]!") + ' Dim oReplaceValue = "{" + $"#{PATTERN_IDBA}#{indexName}" + "}" + ' result = result.Replace(oReplaceValue, 0) + ' Throw New Exception("Max tries in ReplaceIDBAttributes exceeded.") + + ' End If + ' If oIDBValue IsNot Nothing Or Not IsDBNull(oIDBValue) Then + ' Dim oReplaceValue = "{" + $"#{PATTERN_IDBA}#{indexName}" + "}" + ' If IS_SQL = True Then + ' LOGGER.Debug($"IS_SQL = True - oReplaceValue = [{oReplaceValue}]") + ' If indexName <> "ObjectID" And indexName <> "OBJID" And indexName <> "DocID" Then + ' Try + ' oIDBValue = oIDBValue.Replace("'", "''") + ' Catch ex As Exception + ' LOGGER.Warn($"Invalid IDBValue for [{indexName}] in ReplaceIDBAttributes [{ex.Message}] - Replacing with [0]!") + ' oIDBValue = 0 + ' End Try + + ' End If + ' LOGGER.Debug($"oIDBValue = {oIDBValue}") + ' End If + ' result = result.Replace(oReplaceValue, oIDBValue) + ' Else + ' LOGGER.Warn($"IDBValue for [{indexName}] in ReplaceIDBAttributes is nothing or dbnull - Replacing with [0]!") + ' Dim oReplaceValue = "{" + $"#{PATTERN_IDBA}#{indexName}" + "}" + ' result = result.Replace(oReplaceValue, 0) + ' End If + + ' ' Increase counter by 10 to avoid DDOSing the Database/IDB Service + ' oTryCounter += 10 + ' End While + ' LOGGER.Debug("sql after ReplaceIDBAttributes: " & input) + ' Return result + ' Catch ex As Exception + ' LOGGER.Error(ex) + ' LOGGER.Info("Error in ReplaceIDBAttributes:" & ex.Message) + ' End Try + 'End Function + + Private Shared Function ContainsPattern(input As String, type As String) As String + Dim elements As MatchCollection = MyRegex.Matches(input) + + For Each element As Match In elements + Dim t As String = element.Groups(1).Value + + If t = type Then + Return True + End If + Next + + Return False + End Function + + Public Shared Function GetNextPattern(input As String, type As String) As Pattern + Dim elements As MatchCollection = MyRegex.Matches(input) + + For Each element As Match In elements + ' Pattern in pInput + Dim t As String = element.Groups(1).Value + Dim v As String = element.Groups(2).Value + + If t = type Then + Return New Pattern(t, v) + End If + Next + + Return Nothing + End Function + + Public Shared Function GetAllPatterns(input As String) As List(Of Pattern) + Dim elements As MatchCollection = MyRegex.Matches(input) + Dim results As New List(Of Pattern) + + For Each element As Match In elements + ' Pattern in pInput + Dim t As String = element.Groups(1).Value + Dim v As String = element.Groups(2).Value + + results.Add(New Pattern(t, v)) + Next + + Return results + End Function + + Public Shared Function ReplacePattern(input As String, type As String, replacement As String) As String + Dim elements As MatchCollection = MyRegex.Matches(input) + + If IsNothing(replacement) Then + Return input + End If + + For Each element As Match In elements + ' if group 1 contains the 'pattern' the replace whole group with 'replacement' + ' and return it + If element.Groups(1).Value = type Then + Return Regex.Replace(input, element.Groups(0).Value, replacement) + End If + Next + + ' no replacement made + Return input + End Function + + Private Shared Function ContainsPatternAndValue(input As String, type As String, value As String) As Boolean + Dim elements As MatchCollection = MyRegex.Matches(input) + + For Each element As Match In elements + ' Pattern in pInput + Dim t As String = element.Groups(1).Value + Dim v As String = element.Groups(2).Value + + If t = type And v = value Then + Return True + End If + Next + + Return False + End Function + + Public Shared Function HasAnyPatterns(input) As Boolean + Return allPatterns.Any(Function(p) + Return HasPattern(input, p) + End Function) + End Function + + Public Shared Function HasOnlySimplePatterns(input As String) As Boolean + Return Not HasComplexPatterns(input) + End Function + + Public Shared Function HasComplexPatterns(input As String) As Boolean + Return complexPatterns.Any(Function(p) + Return HasPattern(input, p) + End Function) + End Function + + Public Shared Function HasPattern(input As String, type As String) As Boolean + Dim matches = MyRegex.Matches(input) + + For Each match As Match In matches + For Each group As Group In match.Groups + If group.Value = type Then + Return True + End If + Next + Next + + Return False + End Function + + Public Class Pattern + Public ReadOnly Property Type As String + Public ReadOnly Property Value As String + + Public Sub New(type As String, value As String) + Me.Type = type + Me.Value = value + End Sub + + Public Sub New(stringRepresentation As String) + Dim elements As MatchCollection = MyRegex.Matches(stringRepresentation) + Dim first As Match = elements.Item(0) + + Dim t As String = first.Groups(1).Value + Dim v As String = first.Groups(2).Value + + Type = t + Value = v + End Sub + + Public Overrides Function ToString() As String + Return $"{{#{Type}#{Value}}}" + End Function + End Class +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/modCurrent.vb b/GUIs.ZooFlow/modCurrent.vb index b80e4543..610bb081 100644 --- a/GUIs.ZooFlow/modCurrent.vb +++ b/GUIs.ZooFlow/modCurrent.vb @@ -1,6 +1,11 @@ Imports DigitalData.Modules.EDMI.API +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Config Module modCurrent + + Public Property LOGGER As Logger + Public Property CONFIG As ConfigManager(Of ClassConfig) Public Property ADDITIONAL_TITLE As String Public Property DT_CONNECTIONS As DataTable Public Property CURR_MISSING_PATTERN_NAME = "Email To" diff --git a/Modules.Database/Adapters/MSSQLServer.vb b/Modules.Database/Adapters/MSSQLServer.vb index 5f8daebe..e5c55817 100644 --- a/Modules.Database/Adapters/MSSQLServer.vb +++ b/Modules.Database/Adapters/MSSQLServer.vb @@ -338,7 +338,7 @@ Public Class MSSQLServer Return oTable End Function - + ' Public Function ExecuteNonQuery(SQLCommand As String) As Boolean Implements IDatabase.ExecuteNonQuery Using oConnection = GetSQLConnection() Return ExecuteNonQueryWithConnectionObject(SQLCommand, oConnection, TransactionMode.WithTransaction, Nothing, _Timeout) @@ -371,7 +371,7 @@ Public Class MSSQLServer End Using End Function - + ' Public Function ExecuteNonQueryWithConnectionObject(SqlCommand As String, SqlConnection As SqlConnection, Optional TransactionMode As TransactionMode = TransactionMode.WithTransaction, Optional Transaction As SqlTransaction = Nothing,