From 6b814b90898c476f2a3f7a46a0afa8c428173ad6 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 8 Mar 2021 15:34:57 +0100 Subject: [PATCH] ZooFlow: IDB Admin --- .../frmAdmin_IDBAttribute.Designer.vb | 1 - .../Administration/frmAdmin_IDBAttribute.vb | 11 +- ...gner.vb => frmAdmin_IDBEntity.Designer.vb} | 332 +- ...SourceSQL.resx => frmAdmin_IDBEntity.resx} | 13 +- ...min_SourceSQL.vb => frmAdmin_IDBEntity.vb} | 58 +- .../Administration/frmAdmin_Start.Designer.vb | 705 +--- .../Administration/frmAdmin_Start.resx | 64 +- GUIs.ZooFlow/Administration/frmAdmin_Start.vb | 311 +- GUIs.ZooFlow/ClassLayout.vb | 2 +- GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb | 3272 +++++------------ GUIs.ZooFlow/DSIDB_Stammdaten.xsd | 183 +- GUIs.ZooFlow/DSIDB_Stammdaten.xss | 9 +- .../Globix/ClassEmailHeaderExtractor.vb | 12 +- GUIs.ZooFlow/Globix/ClassFileDrop.vb | 12 +- GUIs.ZooFlow/Globix/ClassFilehandle.vb | 14 +- GUIs.ZooFlow/Globix/ClassFolderwatcher.vb | 17 +- GUIs.ZooFlow/My Project/Resources.Designer.vb | 40 + GUIs.ZooFlow/My Project/Resources.resx | 40 +- GUIs.ZooFlow/Resources/about2.svg | 19 + GUIs.ZooFlow/Resources/bo_appointment.svg | 29 + GUIs.ZooFlow/Resources/markcomplete.svg | 19 + GUIs.ZooFlow/Resources/save3.svg | 7 + GUIs.ZooFlow/ZooFlow.vbproj | 30 +- GUIs.ZooFlow/frmFlowForm.vb | 6 +- 24 files changed, 1761 insertions(+), 3445 deletions(-) rename GUIs.ZooFlow/Administration/{frmAdmin_SourceSQL.Designer.vb => frmAdmin_IDBEntity.Designer.vb} (71%) rename GUIs.ZooFlow/Administration/{frmAdmin_SourceSQL.resx => frmAdmin_IDBEntity.resx} (93%) rename GUIs.ZooFlow/Administration/{frmAdmin_SourceSQL.vb => frmAdmin_IDBEntity.vb} (79%) create mode 100644 GUIs.ZooFlow/Resources/about2.svg create mode 100644 GUIs.ZooFlow/Resources/bo_appointment.svg create mode 100644 GUIs.ZooFlow/Resources/markcomplete.svg create mode 100644 GUIs.ZooFlow/Resources/save3.svg diff --git a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb index fb9a2a84..03896bda 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb @@ -435,7 +435,6 @@ Partial Class frmAdmin_IDBAttribute Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing - Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'frmAdmin_IDBAttribute diff --git a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb index a8306054..291d1d8a 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb @@ -76,8 +76,13 @@ Public Class frmAdmin_IDBAttribute 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)" + 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 End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.Designer.vb similarity index 71% rename from GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb rename to GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.Designer.vb index f645ccb5..1324d6a2 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.Designer.vb @@ -1,5 +1,5 @@  _ -Partial Class frmAdmin_SourceSQL +Partial Class frmAdmin_IDBEntity Inherits frmAdmin_Base 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -27,58 +27,57 @@ Partial Class frmAdmin_SourceSQL Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() - Me.labelError = New DevExpress.XtraBars.BarStaticItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() - Me.TBZF_ADMIN_SOURCE_SQLBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBIDB_BUSINESS_ENTITYBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() - Me.TextEdit4 = New DevExpress.XtraEditors.MemoEdit() - Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit() + Me.CheckEdit1 = New DevExpress.XtraEditors.CheckEdit() + Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit() Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit6 = New DevExpress.XtraEditors.TextEdit() Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit() Me.TextEdit8 = New DevExpress.XtraEditors.TextEdit() - Me.TextEdit9 = New DevExpress.XtraEditors.TextEdit() Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() - Me.TBZF_ADMIN_SOURCE_SQLTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBZF_ADMIN_SOURCE_SQLTableAdapter() + Me.TBIDB_BUSINESS_ENTITYTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_BUSINESS_ENTITYTableAdapter() Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.LayoutControl1.SuspendLayout() CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBZF_ADMIN_SOURCE_SQLBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBIDB_BUSINESS_ENTITYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TextEdit9.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -86,47 +85,39 @@ Partial Class frmAdmin_SourceSQL ' 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.labelError}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.labelStatus}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 5 + Me.RibbonControl1.MaxItemId = 4 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide - Me.RibbonControl1.Size = New System.Drawing.Size(800, 63) + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.Size = New System.Drawing.Size(837, 66) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False ' 'BarButtonItem1 ' Me.BarButtonItem1.Caption = "Speichern und Schließen" Me.BarButtonItem1.Id = 1 - Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check1 + Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.markcomplete Me.BarButtonItem1.Name = "BarButtonItem1" ' 'BarButtonItem2 ' Me.BarButtonItem2.Caption = "Speichern" Me.BarButtonItem2.Id = 2 - Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save1 + Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save3 Me.BarButtonItem2.Name = "BarButtonItem2" ' 'labelStatus ' - Me.labelStatus.Caption = "labelStatus" + Me.labelStatus.Caption = "BarStaticItem1" Me.labelStatus.Id = 3 - Me.labelStatus.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.about1 + Me.labelStatus.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.about2 Me.labelStatus.Name = "labelStatus" Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph - Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing - ' - 'labelError - ' - Me.labelError.Caption = "labelError" - Me.labelError.Id = 4 - Me.labelError.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.highimportance - Me.labelError.Name = "labelError" - Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph - Me.labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing ' 'RibbonPage1 ' @@ -144,11 +135,10 @@ Partial Class frmAdmin_SourceSQL 'RibbonStatusBar1 ' Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) - Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError) - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 426) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 465) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 24) + Me.RibbonStatusBar1.Size = New System.Drawing.Size(837, 22) ' 'RibbonPage2 ' @@ -160,34 +150,35 @@ Partial Class frmAdmin_SourceSQL Me.LayoutControl1.Controls.Add(Me.TextEdit1) Me.LayoutControl1.Controls.Add(Me.TextEdit2) Me.LayoutControl1.Controls.Add(Me.TextEdit3) + Me.LayoutControl1.Controls.Add(Me.CheckEdit1) Me.LayoutControl1.Controls.Add(Me.TextEdit4) - Me.LayoutControl1.Controls.Add(Me.TextEdit5) Me.LayoutControl1.Controls.Add(Me.txtAddedWho) + Me.LayoutControl1.Controls.Add(Me.TextEdit6) Me.LayoutControl1.Controls.Add(Me.txtChangedWho) Me.LayoutControl1.Controls.Add(Me.TextEdit8) - Me.LayoutControl1.Controls.Add(Me.TextEdit9) Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.LayoutControl1.Location = New System.Drawing.Point(0, 63) + 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(800, 363) + Me.LayoutControl1.Size = New System.Drawing.Size(837, 399) Me.LayoutControl1.TabIndex = 2 Me.LayoutControl1.Text = "LayoutControl1" ' 'TextEdit1 ' - Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "ENTITY_TITLE", True)) - Me.TextEdit1.Location = New System.Drawing.Point(99, 60) + Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "GUID", True)) + Me.TextEdit1.Location = New System.Drawing.Point(105, 20) Me.TextEdit1.MenuManager = Me.RibbonControl1 Me.TextEdit1.Name = "TextEdit1" - Me.TextEdit1.Size = New System.Drawing.Size(681, 20) + Me.TextEdit1.Properties.ReadOnly = True + Me.TextEdit1.Size = New System.Drawing.Size(303, 20) Me.TextEdit1.StyleController = Me.LayoutControl1 Me.TextEdit1.TabIndex = 4 ' - 'TBZF_ADMIN_SOURCE_SQLBindingSource + 'TBIDB_BUSINESS_ENTITYBindingSource ' - Me.TBZF_ADMIN_SOURCE_SQLBindingSource.DataMember = "TBZF_ADMIN_SOURCE_SQL" - Me.TBZF_ADMIN_SOURCE_SQLBindingSource.DataSource = Me.DSIDB_Stammdaten + Me.TBIDB_BUSINESS_ENTITYBindingSource.DataMember = "TBIDB_BUSINESS_ENTITY" + Me.TBIDB_BUSINESS_ENTITYBindingSource.DataSource = Me.DSIDB_Stammdaten ' 'DSIDB_Stammdaten ' @@ -196,233 +187,232 @@ Partial Class frmAdmin_SourceSQL ' 'TextEdit2 ' - Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "PK_COLUMN", True)) - Me.TextEdit2.Location = New System.Drawing.Point(99, 100) + Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "PARENT_ENT_ID", True)) + Me.TextEdit2.Location = New System.Drawing.Point(513, 20) Me.TextEdit2.MenuManager = Me.RibbonControl1 Me.TextEdit2.Name = "TextEdit2" - Me.TextEdit2.Size = New System.Drawing.Size(681, 20) + Me.TextEdit2.Size = New System.Drawing.Size(304, 20) Me.TextEdit2.StyleController = Me.LayoutControl1 Me.TextEdit2.TabIndex = 5 ' 'TextEdit3 ' - Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "COMMENT", True)) - Me.TextEdit3.Location = New System.Drawing.Point(99, 140) + Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "TITLE", True)) + Me.TextEdit3.Location = New System.Drawing.Point(105, 60) Me.TextEdit3.MenuManager = Me.RibbonControl1 Me.TextEdit3.Name = "TextEdit3" - Me.TextEdit3.Size = New System.Drawing.Size(681, 20) + Me.TextEdit3.Size = New System.Drawing.Size(712, 20) Me.TextEdit3.StyleController = Me.LayoutControl1 Me.TextEdit3.TabIndex = 6 ' + 'CheckEdit1 + ' + Me.CheckEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "INHERITS_ATTRIBUTES", True)) + Me.CheckEdit1.Location = New System.Drawing.Point(20, 140) + Me.CheckEdit1.MenuManager = Me.RibbonControl1 + Me.CheckEdit1.Name = "CheckEdit1" + Me.CheckEdit1.Properties.Caption = "Erbt Attribute der übergeordneten Entität" + Me.CheckEdit1.Size = New System.Drawing.Size(797, 18) + Me.CheckEdit1.StyleController = Me.LayoutControl1 + Me.CheckEdit1.TabIndex = 7 + ' 'TextEdit4 ' - Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "SQL_COMMAND", True)) - Me.TextEdit4.Location = New System.Drawing.Point(99, 180) + Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "COMMENT", True)) + Me.TextEdit4.Location = New System.Drawing.Point(105, 100) Me.TextEdit4.MenuManager = Me.RibbonControl1 Me.TextEdit4.Name = "TextEdit4" - Me.TextEdit4.Size = New System.Drawing.Size(681, 83) + Me.TextEdit4.Size = New System.Drawing.Size(712, 20) Me.TextEdit4.StyleController = Me.LayoutControl1 - Me.TextEdit4.TabIndex = 7 - ' - 'TextEdit5 - ' - Me.TextEdit5.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "GUID", True)) - Me.TextEdit5.Location = New System.Drawing.Point(99, 20) - Me.TextEdit5.MenuManager = Me.RibbonControl1 - Me.TextEdit5.Name = "TextEdit5" - Me.TextEdit5.Properties.ReadOnly = True - Me.TextEdit5.Size = New System.Drawing.Size(681, 20) - Me.TextEdit5.StyleController = Me.LayoutControl1 - Me.TextEdit5.TabIndex = 8 + Me.TextEdit4.TabIndex = 8 ' 'txtAddedWho ' - Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "ADDED_WHO", True)) - Me.txtAddedWho.Location = New System.Drawing.Point(99, 283) + Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "ADDED_WHO", True)) + Me.txtAddedWho.Location = New System.Drawing.Point(105, 178) Me.txtAddedWho.MenuManager = Me.RibbonControl1 Me.txtAddedWho.Name = "txtAddedWho" - Me.txtAddedWho.Size = New System.Drawing.Size(291, 20) + Me.txtAddedWho.Size = New System.Drawing.Size(303, 20) Me.txtAddedWho.StyleController = Me.LayoutControl1 Me.txtAddedWho.TabIndex = 9 ' + 'TextEdit6 + ' + Me.TextEdit6.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "ADDED_WHEN", True)) + Me.TextEdit6.Location = New System.Drawing.Point(513, 178) + Me.TextEdit6.MenuManager = Me.RibbonControl1 + Me.TextEdit6.Name = "TextEdit6" + Me.TextEdit6.Size = New System.Drawing.Size(304, 20) + Me.TextEdit6.StyleController = Me.LayoutControl1 + Me.TextEdit6.TabIndex = 10 + ' 'txtChangedWho ' - Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "CHANGED_WHO", True)) - Me.txtChangedWho.Location = New System.Drawing.Point(99, 323) + Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "CHANGED_WHO", True)) + Me.txtChangedWho.Location = New System.Drawing.Point(105, 218) Me.txtChangedWho.MenuManager = Me.RibbonControl1 Me.txtChangedWho.Name = "txtChangedWho" - Me.txtChangedWho.Size = New System.Drawing.Size(291, 20) + Me.txtChangedWho.Size = New System.Drawing.Size(303, 20) Me.txtChangedWho.StyleController = Me.LayoutControl1 - Me.txtChangedWho.TabIndex = 10 + Me.txtChangedWho.TabIndex = 11 ' 'TextEdit8 ' - Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "ADDED_WHEN", True)) - Me.TextEdit8.Location = New System.Drawing.Point(489, 283) + Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "CHANGED_WHEN", True)) + Me.TextEdit8.Location = New System.Drawing.Point(513, 218) Me.TextEdit8.MenuManager = Me.RibbonControl1 Me.TextEdit8.Name = "TextEdit8" - Me.TextEdit8.Size = New System.Drawing.Size(291, 20) + Me.TextEdit8.Size = New System.Drawing.Size(304, 20) Me.TextEdit8.StyleController = Me.LayoutControl1 - Me.TextEdit8.TabIndex = 11 - ' - 'TextEdit9 - ' - Me.TextEdit9.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "CHANGED_WHEN", True)) - Me.TextEdit9.Location = New System.Drawing.Point(489, 323) - Me.TextEdit9.MenuManager = Me.RibbonControl1 - Me.TextEdit9.Name = "TextEdit9" - Me.TextEdit9.Size = New System.Drawing.Size(291, 20) - Me.TextEdit9.StyleController = Me.LayoutControl1 - Me.TextEdit9.TabIndex = 12 + Me.TextEdit8.TabIndex = 12 ' 'Root ' Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.Root.GroupBordersVisible = False - Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.LayoutControlItem9}) + 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(800, 363) + Me.Root.Size = New System.Drawing.Size(837, 399) Me.Root.TextVisible = False ' 'LayoutControlItem1 ' Me.LayoutControlItem1.Control = Me.TextEdit1 - Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 40) + 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(780, 40) - Me.LayoutControlItem1.Text = "Entität" - Me.LayoutControlItem1.TextSize = New System.Drawing.Size(76, 13) - ' - 'LayoutControlItem2 - ' - Me.LayoutControlItem2.Control = Me.TextEdit2 - Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 80) - Me.LayoutControlItem2.Name = "LayoutControlItem2" - Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem2.Size = New System.Drawing.Size(780, 40) - Me.LayoutControlItem2.Text = "Primäschlüssel" - Me.LayoutControlItem2.TextSize = New System.Drawing.Size(76, 13) + Me.LayoutControlItem1.Size = New System.Drawing.Size(408, 40) + Me.LayoutControlItem1.Text = "GUID" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(82, 13) ' 'LayoutControlItem3 ' Me.LayoutControlItem3.Control = Me.TextEdit3 - Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 120) + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 40) Me.LayoutControlItem3.Name = "LayoutControlItem3" Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem3.Size = New System.Drawing.Size(780, 40) - Me.LayoutControlItem3.Text = "Kommentar" - Me.LayoutControlItem3.TextSize = New System.Drawing.Size(76, 13) + Me.LayoutControlItem3.Size = New System.Drawing.Size(817, 40) + Me.LayoutControlItem3.Text = "Titel" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(82, 13) ' 'LayoutControlItem4 ' - Me.LayoutControlItem4.Control = Me.TextEdit4 - Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 160) + Me.LayoutControlItem4.Control = Me.CheckEdit1 + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 120) Me.LayoutControlItem4.Name = "LayoutControlItem4" Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem4.Size = New System.Drawing.Size(780, 103) - Me.LayoutControlItem4.Text = "SQL Abfrage" - Me.LayoutControlItem4.TextSize = New System.Drawing.Size(76, 13) + Me.LayoutControlItem4.Size = New System.Drawing.Size(817, 38) + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem4.TextVisible = False + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.TextEdit2 + Me.LayoutControlItem2.Location = New System.Drawing.Point(408, 0) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem2.Size = New System.Drawing.Size(409, 40) + Me.LayoutControlItem2.Text = "Parent Id" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(82, 13) ' 'LayoutControlItem5 ' - Me.LayoutControlItem5.Control = Me.TextEdit5 - Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem5.Control = Me.TextEdit4 + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 80) Me.LayoutControlItem5.Name = "LayoutControlItem5" Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem5.Size = New System.Drawing.Size(780, 40) - Me.LayoutControlItem5.Text = "GUID" - Me.LayoutControlItem5.TextSize = New System.Drawing.Size(76, 13) + Me.LayoutControlItem5.Size = New System.Drawing.Size(817, 40) + Me.LayoutControlItem5.Text = "Kommentar" + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(82, 13) ' 'LayoutControlItem6 ' Me.LayoutControlItem6.Control = Me.txtAddedWho - Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 263) + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 158) Me.LayoutControlItem6.Name = "LayoutControlItem6" Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem6.Size = New System.Drawing.Size(390, 40) + Me.LayoutControlItem6.Size = New System.Drawing.Size(408, 40) Me.LayoutControlItem6.Text = "Erstellt Wer" - Me.LayoutControlItem6.TextSize = New System.Drawing.Size(76, 13) - ' - 'LayoutControlItem7 - ' - Me.LayoutControlItem7.Control = Me.txtChangedWho - Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 303) - Me.LayoutControlItem7.Name = "LayoutControlItem7" - Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem7.Size = New System.Drawing.Size(390, 40) - Me.LayoutControlItem7.Text = "Geändert Wer" - Me.LayoutControlItem7.TextSize = New System.Drawing.Size(76, 13) + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(82, 13) ' 'LayoutControlItem8 ' - Me.LayoutControlItem8.Control = Me.TextEdit8 - Me.LayoutControlItem8.Location = New System.Drawing.Point(390, 263) + Me.LayoutControlItem8.Control = Me.txtChangedWho + 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(390, 40) - Me.LayoutControlItem8.Text = "Erstellt Wann" - Me.LayoutControlItem8.TextSize = New System.Drawing.Size(76, 13) + Me.LayoutControlItem8.Size = New System.Drawing.Size(408, 181) + Me.LayoutControlItem8.Text = "Geändert Wer" + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.TextEdit6 + Me.LayoutControlItem7.Location = New System.Drawing.Point(408, 158) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem7.Size = New System.Drawing.Size(409, 40) + Me.LayoutControlItem7.Text = "Erstellt Wann" + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(82, 13) ' 'LayoutControlItem9 ' - Me.LayoutControlItem9.Control = Me.TextEdit9 - Me.LayoutControlItem9.Location = New System.Drawing.Point(390, 303) + Me.LayoutControlItem9.Control = Me.TextEdit8 + 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(390, 40) + Me.LayoutControlItem9.Size = New System.Drawing.Size(409, 181) Me.LayoutControlItem9.Text = "Geändert Wann" - Me.LayoutControlItem9.TextSize = New System.Drawing.Size(76, 13) + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(82, 13) ' - 'TBZF_ADMIN_SOURCE_SQLTableAdapter + 'TBIDB_BUSINESS_ENTITYTableAdapter ' - Me.TBZF_ADMIN_SOURCE_SQLTableAdapter.ClearBeforeFill = True + Me.TBIDB_BUSINESS_ENTITYTableAdapter.ClearBeforeFill = True ' 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing - Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing - Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Me.TBZF_ADMIN_SOURCE_SQLTableAdapter + Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Me.TBIDB_BUSINESS_ENTITYTableAdapter Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' - 'frmAdmin_SourceSQL + 'frmAdmin_IDBEntity ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(800, 450) + Me.ClientSize = New System.Drawing.Size(837, 487) Me.Controls.Add(Me.LayoutControl1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) - Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.managedatasource - Me.Name = "frmAdmin_SourceSQL" + Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.bo_appointment + Me.Name = "frmAdmin_IDBEntity" Me.Ribbon = Me.RibbonControl1 Me.StatusBar = Me.RibbonStatusBar1 - Me.Text = "IDB - Source SQL" + Me.Text = "IDB - Entität" CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.LayoutControl1.ResumeLayout(False) CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBZF_ADMIN_SOURCE_SQLBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBIDB_BUSINESS_ENTITYBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TextEdit9.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -441,25 +431,37 @@ Partial Class frmAdmin_SourceSQL Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit - Friend WithEvents TextEdit4 As DevExpress.XtraEditors.MemoEdit - Friend WithEvents TextEdit5 As DevExpress.XtraEditors.TextEdit - Friend WithEvents txtAddedWho As DevExpress.XtraEditors.TextEdit - Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit - Friend WithEvents TextEdit8 As DevExpress.XtraEditors.TextEdit - Friend WithEvents TextEdit9 As DevExpress.XtraEditors.TextEdit + Friend WithEvents CheckEdit1 As DevExpress.XtraEditors.CheckEdit Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem + Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten + Friend WithEvents TBIDB_BUSINESS_ENTITYBindingSource As BindingSource + Friend WithEvents TBIDB_BUSINESS_ENTITYTableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_BUSINESS_ENTITYTableAdapter + Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents TBIDB_BUSINESS_ENTITYBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator + Friend WithEvents TBIDB_BUSINESS_ENTITYBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents TextEdit4 As DevExpress.XtraEditors.TextEdit Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents txtAddedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit6 As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit8 As DevExpress.XtraEditors.TextEdit Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten - Friend WithEvents TBZF_ADMIN_SOURCE_SQLBindingSource As BindingSource - Friend WithEvents TBZF_ADMIN_SOURCE_SQLTableAdapter As DSIDB_StammdatenTableAdapters.TBZF_ADMIN_SOURCE_SQLTableAdapter - Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager - Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem - Friend WithEvents labelError As DevExpress.XtraBars.BarStaticItem End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.resx b/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.resx similarity index 93% rename from GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.resx rename to GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.resx index 1d55924c..401cbdab 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.resx +++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.resx @@ -117,14 +117,17 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 474, 17 + + 177, 17 - 314, 17 + 17, 17 - - 754, 17 + + 17, 17 + + + 443, 17 17, 56 diff --git a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb b/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.vb similarity index 79% rename from GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb rename to GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.vb index bebe7b13..83af44d9 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.vb @@ -1,12 +1,11 @@ Imports DigitalData.Modules.Logging -Public Class frmAdmin_SourceSQL +Public Class frmAdmin_IDBEntity Inherits frmAdmin_Base Implements frmAdmin_Interface - Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey Public Property Logger As Logger Implements frmAdmin_Interface.Logger - Public Property HasChanges As Boolean = False Implements frmAdmin_Interface.HasChanges + Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False) @@ -19,28 +18,43 @@ Public Class frmAdmin_SourceSQL Me.IsInsert = IsInsert End Sub + Private Sub frmAdmin_IDBEntity_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + TBIDB_BUSINESS_ENTITYTableAdapter.Fill(DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY, PrimaryKey) + Catch ex As Exception + ShowError(ex) + End Try + End Sub + Private Sub ResetMessages() labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never End Sub - Private Sub ShowStatus(Message As String) labelStatus.Caption = Message labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always End Sub - Private Sub frmAdmin_SourceSQL_Load(sender As Object, e As EventArgs) Handles MyBase.Load - Try - TBZF_ADMIN_SOURCE_SQLTableAdapter.Fill(DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL, PrimaryKey) - Catch ex As Exception - ShowError(ex) - End Try + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + ResetMessages() + + If SaveData() Then + Close() + End If + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + ResetMessages() + + If SaveData() And HasChanges Then + ShowStatus("Attribute gespeichert!") + End If End Sub Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData Try - TBZF_ADMIN_SOURCE_SQLBindingSource.EndEdit() + TBIDB_BUSINESS_ENTITYBindingSource.EndEdit() - If DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL.GetChanges() IsNot Nothing Then + If DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY.GetChanges() IsNot Nothing Then HasChanges = True If IsInsert Then @@ -49,8 +63,8 @@ Public Class frmAdmin_SourceSQL txtChangedWho.EditValue = My.Application.User.UserName End If - TBZF_ADMIN_SOURCE_SQLBindingSource.EndEdit() - TBZF_ADMIN_SOURCE_SQLTableAdapter.Update(DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL) + TBIDB_BUSINESS_ENTITYBindingSource.EndEdit() + TBIDB_BUSINESS_ENTITYTableAdapter.Update(DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY) End If Return True @@ -59,20 +73,4 @@ Public Class frmAdmin_SourceSQL Return False End Try End Function - - Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick - ResetMessages() - - If SaveData() Then - Close() - End If - End Sub - - Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick - ResetMessages() - - If SaveData() And HasChanges Then - ShowStatus("Attribute gespeichert!") - End If - End Sub End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb index 36bd1acd..bab1b2a5 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb @@ -26,21 +26,7 @@ Partial Class frmAdmin_Start Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim CHANGED_WHENLabel As System.Windows.Forms.Label - Dim CHANGED_WHOLabel As System.Windows.Forms.Label - Dim ADDED_WHENLabel As System.Windows.Forms.Label - Dim ADDED_WHOLabel As System.Windows.Forms.Label - Dim COMMENTLabel As System.Windows.Forms.Label - Dim VIEW_SEQUENCELabel As System.Windows.Forms.Label - Dim TITLELabel As System.Windows.Forms.Label - Dim GUIDLabel As System.Windows.Forms.Label - Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() - Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() - Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_Start)) - Me.ViewCWProcesses = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.GridCWProfiles = New DevExpress.XtraGrid.GridControl() - Me.WinExplorerView1 = New DevExpress.XtraGrid.Views.WinExplorer.WinExplorerView() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() @@ -57,6 +43,8 @@ Partial Class frmAdmin_Start Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPage_IDB = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroupAttributes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPage_ClipboardWatcher = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonGroup_ClipboardWatcher_Profile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonGroup_ClipboardWatcher_DocSearch = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -66,11 +54,7 @@ Partial Class frmAdmin_Start Me.RibbonGroup_ClipboardWatcher_Control = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPage_GlobalIndexer = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonPage_IDB = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.RibbonPageGroupAttributes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() - Me.ViewCWWindows = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.ViewCWControls = New DevExpress.XtraGrid.Views.Grid.GridView() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.TreeListMenu = New DevExpress.XtraTreeList.TreeList() Me.TreeListColumn1 = New DevExpress.XtraTreeList.Columns.TreeListColumn() @@ -87,59 +71,23 @@ Partial Class frmAdmin_Start Me.XtraTabPage_IDB = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabControlIDB = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPageIDB_Attributes_New = New DevExpress.XtraTab.XtraTabPage() - Me.GridAttributes = New DevExpress.XtraGrid.GridControl() - Me.ViewAttributes = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.XtraTabPageIDB_Attributes = New DevExpress.XtraTab.XtraTabPage() - Me.ComboBox1 = New System.Windows.Forms.ComboBox() - Me.GridControl1 = New DevExpress.XtraGrid.GridControl() - Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colTITLE = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colATTR_TYPE = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GUIDTextBox = New System.Windows.Forms.TextBox() - Me.TITLETextBox = New System.Windows.Forms.TextBox() - Me.TYP_IDTextBox = New System.Windows.Forms.TextBox() - Me.MULTI_CONTEXTCheckBox = New System.Windows.Forms.CheckBox() - Me.VIEW_SEQUENCETextBox = New System.Windows.Forms.TextBox() - Me.VIEW_VISIBLECheckBox = New System.Windows.Forms.CheckBox() - Me.COMMENTTextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.XtraTabPageIDB_SourceSQL = New DevExpress.XtraTab.XtraTabPage() - Me.GridSourceSQL = New DevExpress.XtraGrid.GridControl() - Me.ViewSourceSQL = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.TreeListIDBAttributes = New DevExpress.XtraTreeList.TreeList() + Me.IDBImages = New DevExpress.Utils.SvgImageCollection(Me.components) + Me.XtraTabPageIDB_Entities = New DevExpress.XtraTab.XtraTabPage() + Me.TreeListIDBEntities = New DevExpress.XtraTreeList.TreeList() Me.XtraTabPage_GlobalIndexer = New DevExpress.XtraTab.XtraTabPage() - Me.TreeList2 = New DevExpress.XtraTreeList.TreeList() + Me.TreeListGLOBIXProfiles = New DevExpress.XtraTreeList.TreeList() Me.GLOBIXImages = New DevExpress.Utils.SvgImageCollection(Me.components) Me.XtraTabPage_ClipboardWatcher = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPageCWProfiles = New DevExpress.XtraTab.XtraTabPage() - Me.TreeList1 = New DevExpress.XtraTreeList.TreeList() - Me.COL_ENTITY = New DevExpress.XtraTreeList.Columns.TreeListColumn() - Me.COL_ENITY_SCOPE = New DevExpress.XtraTreeList.Columns.TreeListColumn() - Me.COL_PARENT = New DevExpress.XtraTreeList.Columns.TreeListColumn() - Me.COL_GUID = New DevExpress.XtraTreeList.Columns.TreeListColumn() - Me.COL_NODE_TITLE = New DevExpress.XtraTreeList.Columns.TreeListColumn() + Me.TreeListCWProfiles = New DevExpress.XtraTreeList.TreeList() Me.CWImages = New DevExpress.Utils.SvgImageCollection(Me.components) Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabControl = New DevExpress.XtraTab.XtraTabControl() - CHANGED_WHENLabel = New System.Windows.Forms.Label() - CHANGED_WHOLabel = New System.Windows.Forms.Label() - ADDED_WHENLabel = New System.Windows.Forms.Label() - ADDED_WHOLabel = New System.Windows.Forms.Label() - COMMENTLabel = New System.Windows.Forms.Label() - VIEW_SEQUENCELabel = New System.Windows.Forms.Label() - TITLELabel = New System.Windows.Forms.Label() - GUIDLabel = New System.Windows.Forms.Label() - CType(Me.ViewCWProcesses, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridCWProfiles, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.WinExplorerView1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.labelTitle = New System.Windows.Forms.Label() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ViewCWWindows, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ViewCWControls, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TreeListMenu, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MainTreeImages, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -152,130 +100,24 @@ Partial Class frmAdmin_Start CType(Me.XtraTabControlIDB, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControlIDB.SuspendLayout() Me.XtraTabPageIDB_Attributes_New.SuspendLayout() - CType(Me.GridAttributes, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ViewAttributes, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.XtraTabPageIDB_Attributes.SuspendLayout() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.XtraTabPageIDB_SourceSQL.SuspendLayout() - CType(Me.GridSourceSQL, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ViewSourceSQL, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TreeListIDBAttributes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.IDBImages, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageIDB_Entities.SuspendLayout() + CType(Me.TreeListIDBEntities, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabPage_GlobalIndexer.SuspendLayout() - CType(Me.TreeList2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TreeListGLOBIXProfiles, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GLOBIXImages, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabPage_ClipboardWatcher.SuspendLayout() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl1.SuspendLayout() Me.XtraTabPageCWProfiles.SuspendLayout() - CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TreeListCWProfiles, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CWImages, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl.SuspendLayout() + Me.Panel1.SuspendLayout() Me.SuspendLayout() ' - 'CHANGED_WHENLabel - ' - CHANGED_WHENLabel.AutoSize = True - CHANGED_WHENLabel.Location = New System.Drawing.Point(472, 188) - CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" - CHANGED_WHENLabel.Size = New System.Drawing.Size(90, 13) - CHANGED_WHENLabel.TabIndex = 20 - CHANGED_WHENLabel.Text = "Geändert wann:" - ' - 'CHANGED_WHOLabel - ' - CHANGED_WHOLabel.AutoSize = True - CHANGED_WHOLabel.Location = New System.Drawing.Point(351, 188) - CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" - CHANGED_WHOLabel.Size = New System.Drawing.Size(80, 13) - CHANGED_WHOLabel.TabIndex = 18 - CHANGED_WHOLabel.Text = "Geändert wer:" - ' - 'ADDED_WHENLabel - ' - ADDED_WHENLabel.AutoSize = True - ADDED_WHENLabel.Location = New System.Drawing.Point(472, 146) - ADDED_WHENLabel.Name = "ADDED_WHENLabel" - ADDED_WHENLabel.Size = New System.Drawing.Size(77, 13) - ADDED_WHENLabel.TabIndex = 16 - ADDED_WHENLabel.Text = "Erstellt wann:" - ' - 'ADDED_WHOLabel - ' - ADDED_WHOLabel.AutoSize = True - ADDED_WHOLabel.Location = New System.Drawing.Point(351, 146) - ADDED_WHOLabel.Name = "ADDED_WHOLabel" - ADDED_WHOLabel.Size = New System.Drawing.Size(67, 13) - ADDED_WHOLabel.TabIndex = 14 - ADDED_WHOLabel.Text = "Erstellt wer:" - ' - 'COMMENTLabel - ' - COMMENTLabel.AutoSize = True - COMMENTLabel.Location = New System.Drawing.Point(351, 106) - COMMENTLabel.Name = "COMMENTLabel" - COMMENTLabel.Size = New System.Drawing.Size(68, 13) - COMMENTLabel.TabIndex = 12 - COMMENTLabel.Text = "Kommentar:" - ' - 'VIEW_SEQUENCELabel - ' - VIEW_SEQUENCELabel.AutoSize = True - VIEW_SEQUENCELabel.Location = New System.Drawing.Point(351, 82) - VIEW_SEQUENCELabel.Name = "VIEW_SEQUENCELabel" - VIEW_SEQUENCELabel.Size = New System.Drawing.Size(101, 13) - VIEW_SEQUENCELabel.TabIndex = 8 - VIEW_SEQUENCELabel.Text = "View Reihenfolge:" - ' - 'TITLELabel - ' - TITLELabel.AutoSize = True - TITLELabel.Location = New System.Drawing.Point(351, 12) - TITLELabel.Name = "TITLELabel" - TITLELabel.Size = New System.Drawing.Size(76, 13) - TITLELabel.TabIndex = 2 - TITLELabel.Text = "Bezeichnung:" - ' - 'GUIDLabel - ' - GUIDLabel.AutoSize = True - GUIDLabel.Location = New System.Drawing.Point(297, 12) - GUIDLabel.Name = "GUIDLabel" - GUIDLabel.Size = New System.Drawing.Size(37, 13) - GUIDLabel.TabIndex = 0 - GUIDLabel.Text = "GUID:" - ' - 'ViewCWProcesses - ' - Me.ViewCWProcesses.GridControl = Me.GridCWProfiles - Me.ViewCWProcesses.Name = "ViewCWProcesses" - Me.ViewCWProcesses.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Never - ' - 'GridCWProfiles - ' - GridLevelNode1.LevelTemplate = Me.ViewCWProcesses - GridLevelNode2.LevelTemplate = Me.ViewCWWindows - GridLevelNode3.LevelTemplate = Me.ViewCWControls - GridLevelNode3.RelationName = "Level3" - GridLevelNode2.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3}) - GridLevelNode2.RelationName = "Level2" - GridLevelNode1.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2}) - GridLevelNode1.RelationName = "Level1" - Me.GridCWProfiles.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1}) - Me.GridCWProfiles.Location = New System.Drawing.Point(819, 41) - Me.GridCWProfiles.MainView = Me.WinExplorerView1 - Me.GridCWProfiles.MenuManager = Me.RibbonControl1 - Me.GridCWProfiles.Name = "GridCWProfiles" - Me.GridCWProfiles.Size = New System.Drawing.Size(319, 266) - Me.GridCWProfiles.TabIndex = 0 - Me.GridCWProfiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.WinExplorerView1, Me.ViewCWWindows, Me.ViewCWControls, Me.ViewCWProcesses}) - ' - 'WinExplorerView1 - ' - Me.WinExplorerView1.GridControl = Me.GridCWProfiles - Me.WinExplorerView1.Name = "WinExplorerView1" - ' 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 @@ -283,7 +125,7 @@ Partial Class frmAdmin_Start Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) Me.RibbonControl1.MaxItemId = 15 Me.RibbonControl1.Name = "RibbonControl1" - Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage_ClipboardWatcher, Me.RibbonPage_GlobalIndexer, Me.RibbonPage_IDB}) + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage_IDB, Me.RibbonPage_ClipboardWatcher, Me.RibbonPage_GlobalIndexer}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowToolbarCustomizeItem = False Me.RibbonControl1.Size = New System.Drawing.Size(1328, 159) @@ -385,7 +227,7 @@ Partial Class frmAdmin_Start ' 'BarButtonItem9 ' - Me.BarButtonItem9.Caption = "Source SQL neu laden" + Me.BarButtonItem9.Caption = "Daten neu laden" Me.BarButtonItem9.Id = 14 Me.BarButtonItem9.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.updatedataextract Me.BarButtonItem9.Name = "BarButtonItem9" @@ -398,9 +240,25 @@ Partial Class frmAdmin_Start ' 'RibbonPageGroup2 ' + Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem9) Me.RibbonPageGroup2.Name = "RibbonPageGroup2" - Me.RibbonPageGroup2.Text = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "Daten" + ' + 'RibbonPage_IDB + ' + Me.RibbonPage_IDB.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupAttributes}) + Me.RibbonPage_IDB.Name = "RibbonPage_IDB" + Me.RibbonPage_IDB.Text = "IDB Administration" + ' + 'RibbonPageGroupAttributes + ' + Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemAddAttribute) + Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItem7) + Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemRefreshAttribute) + Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItem8) + Me.RibbonPageGroupAttributes.Name = "RibbonPageGroupAttributes" + Me.RibbonPageGroupAttributes.Text = "Attribute" ' 'RibbonPage_ClipboardWatcher ' @@ -456,21 +314,6 @@ Partial Class frmAdmin_Start Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "RibbonPageGroup1" ' - 'RibbonPage_IDB - ' - Me.RibbonPage_IDB.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupAttributes}) - Me.RibbonPage_IDB.Name = "RibbonPage_IDB" - Me.RibbonPage_IDB.Text = "IDB Administration" - ' - 'RibbonPageGroupAttributes - ' - Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemAddAttribute) - Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItem7) - Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemRefreshAttribute) - Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItem8) - Me.RibbonPageGroupAttributes.Name = "RibbonPageGroupAttributes" - Me.RibbonPageGroupAttributes.Text = "Attribute" - ' 'RibbonStatusBar1 ' Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) @@ -480,16 +323,6 @@ Partial Class frmAdmin_Start Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 Me.RibbonStatusBar1.Size = New System.Drawing.Size(1328, 22) ' - 'ViewCWWindows - ' - Me.ViewCWWindows.GridControl = Me.GridCWProfiles - Me.ViewCWWindows.Name = "ViewCWWindows" - ' - 'ViewCWControls - ' - Me.ViewCWControls.GridControl = Me.GridCWProfiles - Me.ViewCWControls.Name = "ViewCWControls" - ' 'RibbonPage2 ' Me.RibbonPage2.Name = "RibbonPage2" @@ -507,12 +340,11 @@ Partial Class frmAdmin_Start Me.TreeListMenu.BeginUnboundLoad() Me.TreeListMenu.AppendNode(New Object() {"IDB"}, -1, "IDB_START") Me.TreeListMenu.AppendNode(New Object() {"Attribute"}, 0, 2, 2, -1, "IDB_ATTRIBUTES") - Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_ENTITIES") - Me.TreeListMenu.AppendNode(New Object() {"Source SQL"}, 0, 3, 3, -1, "IDB_SOURCE_SQL") + Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_BUSINESS_ENTITIES") Me.TreeListMenu.AppendNode(New Object() {"Global Indexer"}, -1, "GLOBIX_START") - Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 4, 4, 4, -1, "GLOBIX_PROFILES") + Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 3, 4, 4, -1, "GLOBIX_PROFILES") Me.TreeListMenu.AppendNode(New Object() {"Clipboard Watcher"}, -1, "CW_START") - Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 6, 4, 4, -1, "CW_PROFILES") + Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 5, 4, 4, -1, "CW_PROFILES") Me.TreeListMenu.EndUnboundLoad() Me.TreeListMenu.OptionsBehavior.Editable = False Me.TreeListMenu.OptionsView.ShowColumns = False @@ -534,7 +366,7 @@ Partial Class frmAdmin_Start 'MainTreeImages ' Me.MainTreeImages.Add("shopping_box", "image://svgimages/icon builder/shopping_box.svg") - Me.MainTreeImages.Add("bo_organization", "image://svgimages/business objects/bo_organization.svg") + Me.MainTreeImages.Add("travel_hotel", "image://svgimages/icon builder/travel_hotel.svg") Me.MainTreeImages.Add("bo_appearance", "image://svgimages/business objects/bo_appearance.svg") Me.MainTreeImages.Add("managedatasource", "image://svgimages/spreadsheet/managedatasource.svg") Me.MainTreeImages.Add("grandtotals", "image://svgimages/dashboards/grandtotals.svg") @@ -586,7 +418,6 @@ Partial Class frmAdmin_Start Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing - Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBIDB_ATTRIBUTE_TYPEBindingSource @@ -602,7 +433,7 @@ Partial Class frmAdmin_Start ' Me.XtraTabPage_IDB.Controls.Add(Me.XtraTabControlIDB) Me.XtraTabPage_IDB.Name = "XtraTabPage_IDB" - Me.XtraTabPage_IDB.Size = New System.Drawing.Size(1126, 547) + Me.XtraTabPage_IDB.Size = New System.Drawing.Size(1126, 501) Me.XtraTabPage_IDB.Text = "IDB" ' 'XtraTabControlIDB @@ -611,260 +442,67 @@ Partial Class frmAdmin_Start Me.XtraTabControlIDB.Location = New System.Drawing.Point(0, 0) Me.XtraTabControlIDB.Name = "XtraTabControlIDB" Me.XtraTabControlIDB.SelectedTabPage = Me.XtraTabPageIDB_Attributes_New - Me.XtraTabControlIDB.Size = New System.Drawing.Size(1126, 547) + Me.XtraTabControlIDB.Size = New System.Drawing.Size(1126, 501) Me.XtraTabControlIDB.TabIndex = 0 - Me.XtraTabControlIDB.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageIDB_Attributes_New, Me.XtraTabPageIDB_Attributes, Me.XtraTabPageIDB_SourceSQL}) + Me.XtraTabControlIDB.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageIDB_Attributes_New, Me.XtraTabPageIDB_Entities}) ' 'XtraTabPageIDB_Attributes_New ' - Me.XtraTabPageIDB_Attributes_New.Controls.Add(Me.GridAttributes) + Me.XtraTabPageIDB_Attributes_New.Controls.Add(Me.TreeListIDBAttributes) Me.XtraTabPageIDB_Attributes_New.Name = "XtraTabPageIDB_Attributes_New" - Me.XtraTabPageIDB_Attributes_New.Size = New System.Drawing.Size(1124, 524) + Me.XtraTabPageIDB_Attributes_New.Size = New System.Drawing.Size(1124, 478) Me.XtraTabPageIDB_Attributes_New.Text = "Attribute" ' - 'GridAttributes - ' - Me.GridAttributes.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridAttributes.Location = New System.Drawing.Point(0, 0) - Me.GridAttributes.MainView = Me.ViewAttributes - Me.GridAttributes.MenuManager = Me.RibbonControl1 - Me.GridAttributes.Name = "GridAttributes" - Me.GridAttributes.Size = New System.Drawing.Size(1124, 524) - Me.GridAttributes.TabIndex = 0 - Me.GridAttributes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewAttributes, Me.GridView2}) - ' - 'ViewAttributes - ' - Me.ViewAttributes.GridControl = Me.GridAttributes - Me.ViewAttributes.Name = "ViewAttributes" - ' - 'GridView2 - ' - Me.GridView2.GridControl = Me.GridAttributes - Me.GridView2.Name = "GridView2" - ' - 'XtraTabPageIDB_Attributes - ' - Me.XtraTabPageIDB_Attributes.AutoScroll = True - Me.XtraTabPageIDB_Attributes.Controls.Add(Me.ComboBox1) - Me.XtraTabPageIDB_Attributes.Controls.Add(Me.GridControl1) - Me.XtraTabPageIDB_Attributes.Controls.Add(GUIDLabel) - Me.XtraTabPageIDB_Attributes.Controls.Add(Me.GUIDTextBox) - Me.XtraTabPageIDB_Attributes.Controls.Add(TITLELabel) - Me.XtraTabPageIDB_Attributes.Controls.Add(Me.TITLETextBox) - Me.XtraTabPageIDB_Attributes.Controls.Add(Me.TYP_IDTextBox) - Me.XtraTabPageIDB_Attributes.Controls.Add(Me.MULTI_CONTEXTCheckBox) - Me.XtraTabPageIDB_Attributes.Controls.Add(VIEW_SEQUENCELabel) - Me.XtraTabPageIDB_Attributes.Controls.Add(Me.VIEW_SEQUENCETextBox) - Me.XtraTabPageIDB_Attributes.Controls.Add(Me.VIEW_VISIBLECheckBox) - Me.XtraTabPageIDB_Attributes.Controls.Add(COMMENTLabel) - Me.XtraTabPageIDB_Attributes.Controls.Add(Me.COMMENTTextBox) - Me.XtraTabPageIDB_Attributes.Controls.Add(ADDED_WHOLabel) - Me.XtraTabPageIDB_Attributes.Controls.Add(Me.ADDED_WHOTextBox) - Me.XtraTabPageIDB_Attributes.Controls.Add(ADDED_WHENLabel) - Me.XtraTabPageIDB_Attributes.Controls.Add(Me.ADDED_WHENTextBox) - Me.XtraTabPageIDB_Attributes.Controls.Add(CHANGED_WHOLabel) - Me.XtraTabPageIDB_Attributes.Controls.Add(Me.CHANGED_WHOTextBox) - Me.XtraTabPageIDB_Attributes.Controls.Add(CHANGED_WHENLabel) - Me.XtraTabPageIDB_Attributes.Controls.Add(Me.CHANGED_WHENTextBox) - Me.XtraTabPageIDB_Attributes.Name = "XtraTabPageIDB_Attributes" - Me.XtraTabPageIDB_Attributes.Size = New System.Drawing.Size(1124, 524) - Me.XtraTabPageIDB_Attributes.Text = "Attributverwaltung" - ' - 'ComboBox1 - ' - Me.ComboBox1.FormattingEnabled = True - Me.ComboBox1.Location = New System.Drawing.Point(650, 28) - Me.ComboBox1.Name = "ComboBox1" - Me.ComboBox1.Size = New System.Drawing.Size(121, 21) - Me.ComboBox1.TabIndex = 29 - ' - 'GridControl1 - ' - Me.GridControl1.DataSource = Me.TBIDB_ATTRIBUTEBindingSource - Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Left - Me.GridControl1.Location = New System.Drawing.Point(0, 0) - Me.GridControl1.MainView = Me.GridView1 - Me.GridControl1.MenuManager = Me.RibbonControl1 - Me.GridControl1.Name = "GridControl1" - Me.GridControl1.Size = New System.Drawing.Size(282, 524) - Me.GridControl1.TabIndex = 28 - Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) - ' - 'GridView1 - ' - Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Gainsboro - Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True - Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colTITLE, Me.colATTR_TYPE}) - Me.GridView1.GridControl = Me.GridControl1 - Me.GridView1.Name = "GridView1" - Me.GridView1.OptionsView.EnableAppearanceEvenRow = True - ' - 'colGUID - ' - Me.colGUID.Caption = "ID" - Me.colGUID.FieldName = "GUID" - Me.colGUID.Name = "colGUID" - Me.colGUID.Visible = True - Me.colGUID.VisibleIndex = 0 - Me.colGUID.Width = 49 - ' - 'colTITLE - ' - Me.colTITLE.Caption = "Title" - Me.colTITLE.FieldName = "TITLE" - Me.colTITLE.Name = "colTITLE" - Me.colTITLE.Visible = True - Me.colTITLE.VisibleIndex = 1 - Me.colTITLE.Width = 135 - ' - 'colATTR_TYPE - ' - Me.colATTR_TYPE.Caption = "Typ" - Me.colATTR_TYPE.FieldName = "ATTR_TYPE" - Me.colATTR_TYPE.Name = "colATTR_TYPE" - Me.colATTR_TYPE.Visible = True - Me.colATTR_TYPE.VisibleIndex = 2 - Me.colATTR_TYPE.Width = 73 - ' - 'GUIDTextBox - ' - Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "GUID", True)) - Me.GUIDTextBox.Location = New System.Drawing.Point(300, 28) - Me.GUIDTextBox.Name = "GUIDTextBox" - Me.GUIDTextBox.ReadOnly = True - Me.GUIDTextBox.Size = New System.Drawing.Size(33, 22) - Me.GUIDTextBox.TabIndex = 1 - ' - 'TITLETextBox - ' - Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "TITLE", True)) - Me.TITLETextBox.Location = New System.Drawing.Point(354, 28) - Me.TITLETextBox.Name = "TITLETextBox" - Me.TITLETextBox.Size = New System.Drawing.Size(290, 22) - Me.TITLETextBox.TabIndex = 3 - ' - 'TYP_IDTextBox - ' - Me.TYP_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "TYP_ID", True)) - Me.TYP_IDTextBox.Location = New System.Drawing.Point(777, 28) - Me.TYP_IDTextBox.Name = "TYP_IDTextBox" - Me.TYP_IDTextBox.Size = New System.Drawing.Size(104, 22) - Me.TYP_IDTextBox.TabIndex = 5 - ' - 'MULTI_CONTEXTCheckBox - ' - Me.MULTI_CONTEXTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBIDB_ATTRIBUTEBindingSource, "MULTI_CONTEXT", True)) - Me.MULTI_CONTEXTCheckBox.Location = New System.Drawing.Point(354, 55) - Me.MULTI_CONTEXTCheckBox.Name = "MULTI_CONTEXTCheckBox" - Me.MULTI_CONTEXTCheckBox.Size = New System.Drawing.Size(142, 24) - Me.MULTI_CONTEXTCheckBox.TabIndex = 7 - Me.MULTI_CONTEXTCheckBox.Text = "Vektor/Multi Context" - Me.MULTI_CONTEXTCheckBox.UseVisualStyleBackColor = True - ' - 'VIEW_SEQUENCETextBox - ' - Me.VIEW_SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "VIEW_SEQUENCE", True)) - Me.VIEW_SEQUENCETextBox.Location = New System.Drawing.Point(450, 79) - Me.VIEW_SEQUENCETextBox.Name = "VIEW_SEQUENCETextBox" - Me.VIEW_SEQUENCETextBox.Size = New System.Drawing.Size(33, 22) - Me.VIEW_SEQUENCETextBox.TabIndex = 9 - ' - 'VIEW_VISIBLECheckBox - ' - Me.VIEW_VISIBLECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBIDB_ATTRIBUTEBindingSource, "VIEW_VISIBLE", True)) - Me.VIEW_VISIBLECheckBox.Location = New System.Drawing.Point(502, 77) - Me.VIEW_VISIBLECheckBox.Name = "VIEW_VISIBLECheckBox" - Me.VIEW_VISIBLECheckBox.Size = New System.Drawing.Size(104, 24) - Me.VIEW_VISIBLECheckBox.TabIndex = 11 - Me.VIEW_VISIBLECheckBox.Text = "View visible" - Me.VIEW_VISIBLECheckBox.UseVisualStyleBackColor = True - ' - 'COMMENTTextBox - ' - Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "COMMENT", True)) - Me.COMMENTTextBox.Location = New System.Drawing.Point(354, 122) - Me.COMMENTTextBox.Name = "COMMENTTextBox" - Me.COMMENTTextBox.Size = New System.Drawing.Size(417, 22) - Me.COMMENTTextBox.TabIndex = 13 - ' - 'ADDED_WHOTextBox - ' - Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "ADDED_WHO", True)) - Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(354, 164) - Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" - Me.ADDED_WHOTextBox.ReadOnly = True - Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(104, 22) - Me.ADDED_WHOTextBox.TabIndex = 15 - ' - 'ADDED_WHENTextBox - ' - Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "ADDED_WHEN", True)) - Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(475, 164) - Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" - Me.ADDED_WHENTextBox.ReadOnly = True - Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(131, 22) - Me.ADDED_WHENTextBox.TabIndex = 17 - ' - 'CHANGED_WHOTextBox - ' - Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "CHANGED_WHO", True)) - Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(354, 204) - Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" - Me.CHANGED_WHOTextBox.ReadOnly = True - Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(104, 22) - Me.CHANGED_WHOTextBox.TabIndex = 19 - ' - 'CHANGED_WHENTextBox - ' - Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "CHANGED_WHEN", True)) - Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(475, 204) - Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" - Me.CHANGED_WHENTextBox.ReadOnly = True - Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(131, 22) - Me.CHANGED_WHENTextBox.TabIndex = 21 - ' - 'XtraTabPageIDB_SourceSQL - ' - Me.XtraTabPageIDB_SourceSQL.Controls.Add(Me.GridSourceSQL) - Me.XtraTabPageIDB_SourceSQL.Name = "XtraTabPageIDB_SourceSQL" - Me.XtraTabPageIDB_SourceSQL.Size = New System.Drawing.Size(1124, 524) - Me.XtraTabPageIDB_SourceSQL.Text = "Source SQL" - ' - 'GridSourceSQL - ' - Me.GridSourceSQL.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridSourceSQL.Location = New System.Drawing.Point(0, 0) - Me.GridSourceSQL.MainView = Me.ViewSourceSQL - Me.GridSourceSQL.MenuManager = Me.RibbonControl1 - Me.GridSourceSQL.Name = "GridSourceSQL" - Me.GridSourceSQL.Size = New System.Drawing.Size(1124, 524) - Me.GridSourceSQL.TabIndex = 0 - Me.GridSourceSQL.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewSourceSQL}) - ' - 'ViewSourceSQL - ' - Me.ViewSourceSQL.GridControl = Me.GridSourceSQL - Me.ViewSourceSQL.Name = "ViewSourceSQL" + 'TreeListIDBAttributes + ' + Me.TreeListIDBAttributes.Dock = System.Windows.Forms.DockStyle.Fill + Me.TreeListIDBAttributes.Location = New System.Drawing.Point(0, 0) + Me.TreeListIDBAttributes.MenuManager = Me.RibbonControl1 + Me.TreeListIDBAttributes.Name = "TreeListIDBAttributes" + Me.TreeListIDBAttributes.Size = New System.Drawing.Size(1124, 478) + Me.TreeListIDBAttributes.StateImageList = Me.IDBImages + Me.TreeListIDBAttributes.TabIndex = 0 + ' + 'IDBImages + ' + Me.IDBImages.Add("travel_hotel", "image://svgimages/icon builder/travel_hotel.svg") + Me.IDBImages.Add("bo_appearance", "image://svgimages/business objects/bo_appearance.svg") + ' + 'XtraTabPageIDB_Entities + ' + Me.XtraTabPageIDB_Entities.Controls.Add(Me.TreeListIDBEntities) + Me.XtraTabPageIDB_Entities.Name = "XtraTabPageIDB_Entities" + Me.XtraTabPageIDB_Entities.Size = New System.Drawing.Size(1124, 478) + Me.XtraTabPageIDB_Entities.Text = "Entitäten" + ' + 'TreeListIDBEntities + ' + Me.TreeListIDBEntities.Dock = System.Windows.Forms.DockStyle.Fill + Me.TreeListIDBEntities.Location = New System.Drawing.Point(0, 0) + Me.TreeListIDBEntities.MenuManager = Me.RibbonControl1 + Me.TreeListIDBEntities.Name = "TreeListIDBEntities" + Me.TreeListIDBEntities.Size = New System.Drawing.Size(1124, 478) + Me.TreeListIDBEntities.StateImageList = Me.IDBImages + Me.TreeListIDBEntities.TabIndex = 0 ' 'XtraTabPage_GlobalIndexer ' - Me.XtraTabPage_GlobalIndexer.Controls.Add(Me.TreeList2) + Me.XtraTabPage_GlobalIndexer.Controls.Add(Me.TreeListGLOBIXProfiles) Me.XtraTabPage_GlobalIndexer.Name = "XtraTabPage_GlobalIndexer" Me.XtraTabPage_GlobalIndexer.PageVisible = False - Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(1126, 547) + Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(1126, 501) Me.XtraTabPage_GlobalIndexer.Text = "Global Indexer" ' - 'TreeList2 + 'TreeListGLOBIXProfiles ' - Me.TreeList2.Dock = System.Windows.Forms.DockStyle.Fill - Me.TreeList2.Location = New System.Drawing.Point(0, 0) - Me.TreeList2.MenuManager = Me.RibbonControl1 - Me.TreeList2.Name = "TreeList2" - Me.TreeList2.PreviewFieldName = "Title" - Me.TreeList2.Size = New System.Drawing.Size(1126, 547) - Me.TreeList2.StateImageList = Me.GLOBIXImages - Me.TreeList2.TabIndex = 0 + Me.TreeListGLOBIXProfiles.Dock = System.Windows.Forms.DockStyle.Fill + Me.TreeListGLOBIXProfiles.Location = New System.Drawing.Point(0, 0) + Me.TreeListGLOBIXProfiles.MenuManager = Me.RibbonControl1 + Me.TreeListGLOBIXProfiles.Name = "TreeListGLOBIXProfiles" + Me.TreeListGLOBIXProfiles.PreviewFieldName = "Title" + Me.TreeListGLOBIXProfiles.Size = New System.Drawing.Size(1126, 501) + Me.TreeListGLOBIXProfiles.StateImageList = Me.GLOBIXImages + Me.TreeListGLOBIXProfiles.TabIndex = 0 ' 'GLOBIXImages ' @@ -877,78 +515,38 @@ Partial Class frmAdmin_Start Me.XtraTabPage_ClipboardWatcher.Controls.Add(Me.XtraTabControl1) Me.XtraTabPage_ClipboardWatcher.Name = "XtraTabPage_ClipboardWatcher" Me.XtraTabPage_ClipboardWatcher.PageVisible = False - Me.XtraTabPage_ClipboardWatcher.Size = New System.Drawing.Size(1126, 547) + Me.XtraTabPage_ClipboardWatcher.Size = New System.Drawing.Size(1126, 501) Me.XtraTabPage_ClipboardWatcher.Text = "Clipboard Watcher" ' 'XtraTabControl1 ' + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) Me.XtraTabControl1.Name = "XtraTabControl1" Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageCWProfiles - Me.XtraTabControl1.Size = New System.Drawing.Size(1126, 547) + Me.XtraTabControl1.Size = New System.Drawing.Size(1126, 501) Me.XtraTabControl1.TabIndex = 0 Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageCWProfiles, Me.XtraTabPage2}) ' 'XtraTabPageCWProfiles ' - Me.XtraTabPageCWProfiles.Controls.Add(Me.TreeList1) - Me.XtraTabPageCWProfiles.Controls.Add(Me.GridCWProfiles) + Me.XtraTabPageCWProfiles.Controls.Add(Me.TreeListCWProfiles) Me.XtraTabPageCWProfiles.Name = "XtraTabPageCWProfiles" - Me.XtraTabPageCWProfiles.Size = New System.Drawing.Size(1124, 524) + Me.XtraTabPageCWProfiles.Size = New System.Drawing.Size(1124, 478) Me.XtraTabPageCWProfiles.Text = "Profile" ' - 'TreeList1 - ' - Me.TreeList1.Columns.AddRange(New DevExpress.XtraTreeList.Columns.TreeListColumn() {Me.COL_ENTITY, Me.COL_ENITY_SCOPE, Me.COL_PARENT, Me.COL_GUID, Me.COL_NODE_TITLE}) - Me.TreeList1.KeyFieldName = "" - Me.TreeList1.Location = New System.Drawing.Point(4, 3) - Me.TreeList1.MenuManager = Me.RibbonControl1 - Me.TreeList1.Name = "TreeList1" - Me.TreeList1.OptionsView.ShowIndentAsRowStyle = True - Me.TreeList1.ParentFieldName = "" - Me.TreeList1.Size = New System.Drawing.Size(809, 504) - Me.TreeList1.StateImageList = Me.CWImages - Me.TreeList1.TabIndex = 2 - ' - 'COL_ENTITY - ' - Me.COL_ENTITY.Caption = "Entität" - Me.COL_ENTITY.FieldName = "Entity" - Me.COL_ENTITY.Name = "COL_ENTITY" - Me.COL_ENTITY.Visible = True - Me.COL_ENTITY.VisibleIndex = 1 - ' - 'COL_ENITY_SCOPE - ' - Me.COL_ENITY_SCOPE.Caption = "Scope" - Me.COL_ENITY_SCOPE.FieldName = "Scope" - Me.COL_ENITY_SCOPE.Name = "COL_ENITY_SCOPE" - Me.COL_ENITY_SCOPE.Visible = True - Me.COL_ENITY_SCOPE.VisibleIndex = 2 - ' - 'COL_PARENT - ' - Me.COL_PARENT.Caption = "ParentId" - Me.COL_PARENT.FieldName = "ParentId" - Me.COL_PARENT.Name = "COL_PARENT" - Me.COL_PARENT.Visible = True - Me.COL_PARENT.VisibleIndex = 3 + 'TreeListCWProfiles ' - 'COL_GUID - ' - Me.COL_GUID.Caption = "Guid" - Me.COL_GUID.FieldName = "Guid" - Me.COL_GUID.Name = "COL_GUID" - Me.COL_GUID.Visible = True - Me.COL_GUID.VisibleIndex = 4 - ' - 'COL_NODE_TITLE - ' - Me.COL_NODE_TITLE.Caption = "Titel" - Me.COL_NODE_TITLE.FieldName = "Title" - Me.COL_NODE_TITLE.Name = "COL_NODE_TITLE" - Me.COL_NODE_TITLE.Visible = True - Me.COL_NODE_TITLE.VisibleIndex = 0 + Me.TreeListCWProfiles.Dock = System.Windows.Forms.DockStyle.Fill + Me.TreeListCWProfiles.KeyFieldName = "" + Me.TreeListCWProfiles.Location = New System.Drawing.Point(0, 0) + Me.TreeListCWProfiles.MenuManager = Me.RibbonControl1 + Me.TreeListCWProfiles.Name = "TreeListCWProfiles" + Me.TreeListCWProfiles.OptionsView.ShowIndentAsRowStyle = True + Me.TreeListCWProfiles.ParentFieldName = "" + Me.TreeListCWProfiles.Size = New System.Drawing.Size(1124, 478) + Me.TreeListCWProfiles.StateImageList = Me.CWImages + Me.TreeListCWProfiles.TabIndex = 2 ' 'CWImages ' @@ -959,26 +557,49 @@ Partial Class frmAdmin_Start 'XtraTabPage2 ' Me.XtraTabPage2.Name = "XtraTabPage2" - Me.XtraTabPage2.Size = New System.Drawing.Size(1124, 524) + Me.XtraTabPage2.Size = New System.Drawing.Size(1124, 478) Me.XtraTabPage2.Text = "XtraTabPage2" ' 'XtraTabControl ' Me.XtraTabControl.Dock = System.Windows.Forms.DockStyle.Fill - Me.XtraTabControl.Location = New System.Drawing.Point(200, 159) + Me.XtraTabControl.Location = New System.Drawing.Point(200, 205) Me.XtraTabControl.Name = "XtraTabControl" Me.XtraTabControl.SelectedTabPage = Me.XtraTabPage_IDB Me.XtraTabControl.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True] - Me.XtraTabControl.Size = New System.Drawing.Size(1128, 570) + Me.XtraTabControl.Size = New System.Drawing.Size(1128, 524) Me.XtraTabControl.TabIndex = 4 Me.XtraTabControl.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage_ClipboardWatcher, Me.XtraTabPage_GlobalIndexer, Me.XtraTabPage_IDB}) ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.labelTitle) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(200, 159) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1128, 46) + Me.Panel1.TabIndex = 8 + Me.Panel1.TabStop = True + ' + 'labelTitle + ' + Me.labelTitle.Dock = System.Windows.Forms.DockStyle.Fill + Me.labelTitle.Font = New System.Drawing.Font("Segoe UI Semilight", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.labelTitle.Location = New System.Drawing.Point(0, 0) + Me.labelTitle.Name = "labelTitle" + Me.labelTitle.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0) + Me.labelTitle.Size = New System.Drawing.Size(1128, 46) + Me.labelTitle.TabIndex = 0 + Me.labelTitle.Text = "labelTitle" + Me.labelTitle.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' 'frmAdmin_Start ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1328, 751) Me.Controls.Add(Me.XtraTabControl) + Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.DockPanel1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) @@ -987,12 +608,7 @@ Partial Class frmAdmin_Start Me.Ribbon = Me.RibbonControl1 Me.StatusBar = Me.RibbonStatusBar1 Me.Text = "Administration" - CType(Me.ViewCWProcesses, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridCWProfiles, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.WinExplorerView1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ViewCWWindows, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ViewCWControls, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TreeListMenu, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MainTreeImages, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit() @@ -1005,27 +621,22 @@ Partial Class frmAdmin_Start CType(Me.XtraTabControlIDB, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabControlIDB.ResumeLayout(False) Me.XtraTabPageIDB_Attributes_New.ResumeLayout(False) - CType(Me.GridAttributes, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ViewAttributes, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() - Me.XtraTabPageIDB_Attributes.ResumeLayout(False) - Me.XtraTabPageIDB_Attributes.PerformLayout() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() - Me.XtraTabPageIDB_SourceSQL.ResumeLayout(False) - CType(Me.GridSourceSQL, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ViewSourceSQL, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TreeListIDBAttributes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.IDBImages, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageIDB_Entities.ResumeLayout(False) + CType(Me.TreeListIDBEntities, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabPage_GlobalIndexer.ResumeLayout(False) - CType(Me.TreeList2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TreeListGLOBIXProfiles, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GLOBIXImages, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabPage_ClipboardWatcher.ResumeLayout(False) CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabControl1.ResumeLayout(False) Me.XtraTabPageCWProfiles.ResumeLayout(False) - CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TreeListCWProfiles, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CWImages, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabControl.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() @@ -1076,50 +687,22 @@ Partial Class frmAdmin_Start Friend WithEvents XtraTabPage_IDB As DevExpress.XtraTab.XtraTabPage Friend WithEvents XtraTabControlIDB As DevExpress.XtraTab.XtraTabControl Friend WithEvents XtraTabPageIDB_Attributes_New As DevExpress.XtraTab.XtraTabPage - Friend WithEvents GridAttributes As DevExpress.XtraGrid.GridControl - Friend WithEvents ViewAttributes As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents XtraTabPageIDB_Attributes As DevExpress.XtraTab.XtraTabPage - Friend WithEvents ComboBox1 As ComboBox - Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl - Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colTITLE As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colATTR_TYPE As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents GUIDTextBox As TextBox - Friend WithEvents TITLETextBox As TextBox - Friend WithEvents TYP_IDTextBox As TextBox - Friend WithEvents MULTI_CONTEXTCheckBox As CheckBox - Friend WithEvents VIEW_SEQUENCETextBox As TextBox - Friend WithEvents VIEW_VISIBLECheckBox As CheckBox - Friend WithEvents COMMENTTextBox As TextBox - Friend WithEvents ADDED_WHOTextBox As TextBox - Friend WithEvents ADDED_WHENTextBox As TextBox - Friend WithEvents CHANGED_WHOTextBox As TextBox - Friend WithEvents CHANGED_WHENTextBox As TextBox - Friend WithEvents XtraTabPageIDB_SourceSQL As DevExpress.XtraTab.XtraTabPage Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents GridSourceSQL As DevExpress.XtraGrid.GridControl - Friend WithEvents ViewSourceSQL As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl Friend WithEvents XtraTabPageCWProfiles As DevExpress.XtraTab.XtraTabPage Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage - Friend WithEvents GridCWProfiles As GridControl - Friend WithEvents GridView2 As GridView - Friend WithEvents ViewCWProcesses As GridView - Friend WithEvents ViewCWWindows As GridView - Friend WithEvents ViewCWControls As GridView - Friend WithEvents TreeList1 As DevExpress.XtraTreeList.TreeList - Friend WithEvents WinExplorerView1 As Views.WinExplorer.WinExplorerView - Friend WithEvents COL_ENTITY As DevExpress.XtraTreeList.Columns.TreeListColumn - Friend WithEvents COL_ENITY_SCOPE As DevExpress.XtraTreeList.Columns.TreeListColumn - Friend WithEvents COL_PARENT As DevExpress.XtraTreeList.Columns.TreeListColumn - Friend WithEvents COL_GUID As DevExpress.XtraTreeList.Columns.TreeListColumn - Friend WithEvents COL_NODE_TITLE As DevExpress.XtraTreeList.Columns.TreeListColumn Friend WithEvents CWImages As DevExpress.Utils.SvgImageCollection - Friend WithEvents TreeList2 As DevExpress.XtraTreeList.TreeList + Friend WithEvents TreeListGLOBIXProfiles As DevExpress.XtraTreeList.TreeList Friend WithEvents GLOBIXImages As DevExpress.Utils.SvgImageCollection + Friend WithEvents TreeListCWProfiles As DevExpress.XtraTreeList.TreeList + Friend WithEvents Panel1 As Panel + Friend WithEvents labelTitle As Label + Friend WithEvents TreeListIDBAttributes As DevExpress.XtraTreeList.TreeList + Friend WithEvents XtraTabPageIDB_Entities As DevExpress.XtraTab.XtraTabPage + Friend WithEvents TreeListIDBEntities As DevExpress.XtraTreeList.TreeList + Friend WithEvents IDBImages As DevExpress.Utils.SvgImageCollection End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.resx b/GUIs.ZooFlow/Administration/frmAdmin_Start.resx index ce7d4407..1372970a 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Start.resx +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.resx @@ -117,30 +117,6 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - @@ -294,20 +270,14 @@ 122, 17 + + 122, 17 + 396, 17 - - 691, 17 - - - 531, 17 - - - 17, 17 - - - 264, 17 + + 531, 56 @@ -332,6 +302,15 @@ LjEsMjguMSwyNy42LDI3LjZ6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + 691, 17 + + + 531, 17 + + + 531, 17 + 919, 17 @@ -344,4 +323,19 @@ 277, 56 + + 531, 56 + + + 264, 17 + + + 264, 17 + + + 17, 17 + + + 17, 17 + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb index 2627a2cc..7b409ec3 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb @@ -1,11 +1,8 @@ -Imports DevExpress.Utils +Imports System.ComponentModel +Imports DevExpress.Utils Imports DevExpress.XtraBars.Ribbon -Imports DevExpress.XtraGrid -Imports DevExpress.XtraGrid.Views.Grid -Imports DevExpress.XtraGrid.Views.Grid.ViewInfo Imports DevExpress.XtraTab Imports DevExpress.XtraTreeList -Imports DevExpress.XtraTreeList.Nodes Imports DigitalData.Modules.Logging Public Class frmAdmin_Start @@ -13,7 +10,7 @@ Public Class frmAdmin_Start Private Const IDB_START = "IDB_START" Private Const IDB_ATTRIBUTES = "IDB_ATTRIBUTES" - Private Const IDB_BUSINESS_ENTITY = "IDB_BUSINESS_ENTITY" + Private Const IDB_BUSINESS_ENTITIES = "IDB_BUSINESS_ENTITIES" Private Const IDB_SOURCE_SQL = "IDB_SOURCE_SQL" Private Const GLOBIX_PROFILES = "GLOBIX_PROFILES" Private Const CW_PROFILES = "CW_PROFILES" @@ -22,6 +19,21 @@ Public Class frmAdmin_Start Private AdminItems As New List(Of AdminItem) Private CurrentPage As String + Private Function IsIDBAttribute(Item As AdminItem) As Boolean + Return Item.Entity = "IDB" And Item.Scope = "ATTRIBUTE" + End Function + + Private Function IsIDBEntity(Item As AdminItem) As Boolean + Return Item.Entity = "IDB" And Item.Scope = "ENTITY" + End Function + + Private Function IsCWItem(Item As AdminItem) As Boolean + Return Item.Entity = "CW" + End Function + + Private Function IsGLOBIXItem(Item As AdminItem) As Boolean + Return Item.Entity = "GLOBIX" + End Function Private Class AdminItem Public Property Guid As Integer @@ -30,6 +42,19 @@ Public Class frmAdmin_Start Public Property Entity As String Public Property Scope As String Public Property Summary As String + + ''' + ''' The GUID coming from the Database starts with a 3-char long identifier that needs to be removed + ''' + Public ReadOnly Property RealGuid As Integer + Get + Return Guid.ToString.Substring(3) + End Get + End Property + + Public Overrides Function ToString() As String + Return $"{Title} ({Guid})" + End Function End Class Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load @@ -37,6 +62,11 @@ Public Class frmAdmin_Start TreeListMenu.ExpandAll() + AddHandler TreeListIDBAttributes.DoubleClick, AddressOf TreeList_DoubleClick + AddHandler TreeListIDBEntities.DoubleClick, AddressOf TreeList_DoubleClick + AddHandler TreeListCWProfiles.DoubleClick, AddressOf TreeList_DoubleClick + AddHandler TreeListGLOBIXProfiles.DoubleClick, AddressOf TreeList_DoubleClick + ' Show Tab Header in Development, hide when running the app XtraTabControl.ShowTabHeader = DefaultBoolean.False End Sub @@ -48,8 +78,8 @@ Public Class frmAdmin_Start For Each oRow As DataRow In oTable.Rows Dim oItem As New AdminItem With { - .Guid = oRow.Item("GUID"), - .ParentId = oRow.Item("PARENT"), + .Guid = CInt(oRow.Item("GUID")), + .ParentId = CInt(oRow.Item("PARENT")), .Entity = oRow.Item("ENTITY").ToString, .Scope = oRow.Item("ENTITY_SCOPE").ToString, .Title = oRow.Item("NODE_TITLE").ToString, @@ -98,6 +128,7 @@ Public Class frmAdmin_Start Private Sub TreeList1_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeListMenu.FocusedNodeChanged Try If e.Node Is Nothing OrElse e.Node.Tag Is Nothing Then + labelTitle.Text = "Start" Exit Sub End If @@ -105,171 +136,138 @@ Public Class frmAdmin_Start Select Case e.Node.Tag.ToString Case IDB_START + labelTitle.Text = "IDB Übersicht" Display_Tab(XtraTabPage_IDB) Case IDB_ATTRIBUTES + labelTitle.Text = "IDB Attribute" Display_Tab(XtraTabPage_IDB) Display_Tab(XtraTabPageIDB_Attributes_New) - 'Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title) - 'Load_Grid(oTable, oSource, GridAttributes) + Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBAttribute).ToList() + Load_Tree(oItems, TreeListIDBAttributes) + + Case IDB_BUSINESS_ENTITIES + labelTitle.Text = "IDB Entitäten" + Display_Tab(XtraTabPage_IDB) + Display_Tab(XtraTabPageIDB_Entities) - Case IDB_BUSINESS_ENTITY - 'DisplayTab(XtraTabPage_Entities) + Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBEntity).ToList() + Load_Tree(oItems, TreeListIDBEntities) Case GLOBIX_PROFILES + labelTitle.Text = "Global Indexer Profile" Display_Tab(XtraTabPage_GlobalIndexer) Display_RibbonPage(RibbonPage_GlobalIndexer) - Dim oCWItems As List(Of AdminItem) = (From Item As AdminItem In AdminItems - Where Item.Entity = "GLOBIX" - Select Item).ToList() - Load_Tree(oCWItems, TreeList2) + Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsGLOBIXItem).ToList() + Load_Tree(oItems, TreeListGLOBIXProfiles) Case CW_PROFILES + labelTitle.Text = "Clipboard Watcher Profile" Display_Tab(XtraTabPage_ClipboardWatcher) Display_Tab(XtraTabPageCWProfiles) Display_RibbonPage(RibbonPage_ClipboardWatcher) - Dim oCWItems As List(Of AdminItem) = (From Item As AdminItem In AdminItems - Where Item.Entity = "CW" - Select Item).ToList() - Load_Tree(oCWItems, TreeList1) - - Case IDB_SOURCE_SQL - Display_Tab(XtraTabPage_IDB) - Display_Tab(XtraTabPageIDB_SourceSQL) - - 'Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title) - 'Load_Grid(oTable, oSource, GridSourceSQL) + Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsCWItem).ToList() + Load_Tree(oItems, TreeListCWProfiles) End Select Catch ex As Exception ShowError(ex) End Try - End Sub - 'Private Sub Load_Children(Source As AdminItem, DataSet As DataSet, DataTable As DataTable) - ' Dim oChildren = AdminItems.Where(Function(cmd) cmd.Value.ParentId = Source.Guid).ToList() - - ' If oChildren.Count > 0 Then - ' For Each oChild In oChildren - ' Dim oChildSource As AdminItem = oChild.Value - ' Dim oChildTable As DataTable = My.Database.GetDatatable(oChildSource.Title) - ' oChildTable.TableName = oChildSource.Title - ' Dim oRelationName As String = $"{Source.Title}__{oChildSource.Title}" - - ' DataSet.Tables.Add(oChildTable) - ' DataSet.Relations.Add(New DataRelation(oRelationName, - ' DataTable.Columns.Item(Source.Entity), - ' oChildTable.Columns.Item(oChildSource.Scope))) - - ' Load_Children(oChildSource, DataSet, oChildTable) - ' Next - ' End If - 'End Sub - Private Sub Load_Tree(Source As List(Of AdminItem), TreeList As TreeList) + Dim oColumns As New List(Of Columns.TreeListColumn) From { + New Columns.TreeListColumn() With { + .Name = "columnTitle", + .Caption = "Titel", + .FieldName = "Title", + .Visible = True, + .VisibleIndex = 0 + }, + New Columns.TreeListColumn() With { + .Name = "columnScope", + .Caption = "Typ", + .FieldName = "Scope", + .Visible = True, + .VisibleIndex = 1 + }, + New Columns.TreeListColumn() With { + .Name = "columnSummary", + .Caption = "Beschreibung", + .FieldName = "Summary", + .Visible = True, + .VisibleIndex = 2 + } + } + + TreeList.Columns.Clear() + TreeList.Columns.AddRange(oColumns.ToArray) TreeList.HierarchyFieldName = "Title" TreeList.KeyFieldName = "Guid" TreeList.ParentFieldName = "ParentId" - 'TreeList.PreviewFieldName = "Summary" - 'TreeList.PreviewLineCount = 3 - 'TreeList.OptionsView.ShowPreview = True TreeList.DataSource = Source TreeList.ForceInitialize() - End Sub - Private Sub Load_Grid(DataSource As DataTable, Source As AdminItem, GridControl As GridControl) - Try - PrimaryKey = Source.Entity - - Dim oDataSet As New DataSet() - DataSource.TableName = Source.Title - oDataSet.Tables.Add(DataSource) - - 'Load_Children(Source, oDataSet, DataSource) - - 'GridControl.DataSource = oDataSet.Tables.Item(Source.Title) - 'GridControl.ForceInitialize() - - 'Dim oGridView = DirectCast(GridControl.DefaultView, GridView) - - 'With oGridView.Appearance.EvenRow - ' .BackColor = Color.Gainsboro - ' .Options.UseBackColor = True - 'End With - - 'With oGridView.Appearance.FocusedCell - ' .BackColor = Color.Gold - ' .Options.UseBackColor = True - 'End With - - 'With oGridView.Appearance.FocusedRow - ' .BackColor = Color.Gold - ' .Options.UseBackColor = True - 'End With - - 'With oGridView.OptionsBehavior - ' .Editable = False - ' .ReadOnly = True - 'End With - - 'With oGridView.OptionsClipboard - ' .CopyColumnHeaders = DefaultBoolean.False - 'End With - - 'With oGridView.OptionsFind - ' .AlwaysVisible = True - 'End With - - 'With oGridView.OptionsView - ' .ShowAutoFilterRow = True - ' .EnableAppearanceEvenRow = True - ' .ShowIndicator = False - 'End With - - 'AddHandler oGridView.KeyDown, Sub(sender As Object, e As KeyEventArgs) - ' Dim oView As GridView = DirectCast(sender, GridView) - ' If e.Control AndAlso e.KeyCode = Keys.C And e.Modifiers = Keys.Control Then - ' Dim oCellValue = oView.GetRowCellValue(oView.FocusedRowHandle, oView.FocusedColumn) - ' If oCellValue IsNot Nothing AndAlso oCellValue.ToString() <> String.Empty Then - ' Clipboard.SetText(oCellValue.ToString) - ' End If - ' e.Handled = True - ' End If - ' End Sub - - 'oGridView.BestFitColumns() - - Catch ex As Exception - ShowError(ex) - End Try + With TreeList.Appearance.EvenRow + .BackColor = Color.Snow + .Options.UseBackColor = True + End With + + With TreeList.Appearance.FocusedCell + .BackColor = Color.Gold + .Options.UseBackColor = True + End With + + With TreeList.OptionsBehavior + .Editable = False + .ReadOnly = True + End With + + With TreeList.OptionsView + .ShowAutoFilterRow = True + .EnableAppearanceEvenRow = True + .ShowIndicator = False + End With + + With TreeList.OptionsClipboard + .CopyColumnHeaders = DefaultBoolean.False + End With + + With TreeList.OptionsFind + .AlwaysVisible = True + End With + + AddHandler TreeList.KeyDown, Sub(sender As Object, e As KeyEventArgs) + Dim oTreeList As TreeList = DirectCast(sender, TreeList) + If e.Control AndAlso e.KeyCode = Keys.C And e.Modifiers = Keys.Control Then + Dim oCellValue = oTreeList.GetRowCellValue(oTreeList.FocusedNode, oTreeList.FocusedColumn) + If oCellValue IsNot Nothing AndAlso oCellValue.ToString() <> String.Empty Then + Clipboard.SetText(oCellValue.ToString) + End If + e.Handled = True + End If + End Sub + + TreeList.BestFitColumns() End Sub - Private Sub View_DoubleClick(sender As Object, e As EventArgs) Handles _ - ViewAttributes.DoubleClick, ViewSourceSQL.DoubleClick - Dim oView As GridView = TryCast(sender, GridView) - Dim hitInfo As GridHitInfo = oView.CalcHitInfo(TryCast(e, DXMouseEventArgs).Location) - If hitInfo.InDataRow Then + Private Sub TreeList_DoubleClick(sender As Object, e As EventArgs) + Dim oView As TreeList = TryCast(sender, TreeList) + Dim hitInfo As TreeListHitInfo = oView.CalcHitInfo(TryCast(e, DXMouseEventArgs).Location) + If hitInfo.InRow Then Try - Dim oRow As DataRow = oView.GetFocusedDataRow - If oRow IsNot Nothing Then - Dim oPrimaryKey As Integer = oRow.Item(PrimaryKey) - + Dim oItem As AdminItem = oView.GetFocusedRow + If oItem IsNot Nothing Then Select Case oView.Name - Case ViewAttributes.Name - Load_Attribute(oPrimaryKey) - - Case ViewSourceSQL.Name - Load_SourceSql(oPrimaryKey) - - Case WinExplorerView1.Name - Load_CWProfile(oPrimaryKey) + Case TreeListIDBAttributes.Name + Load_IDBAttribute(oItem.RealGuid) + Case TreeListIDBEntities.Name + Load_IDBEntity(oItem.RealGuid) End Select - End If Catch ex As Exception ShowError(ex) @@ -277,30 +275,30 @@ Public Class frmAdmin_Start End If End Sub - Private Sub Load_Attribute(PrimaryKey As Integer) + Private Sub Load_IDBAttribute(PrimaryKey As Integer) Try Dim oForm As New frmAdmin_IDBAttribute(PrimaryKey) oForm.ShowDialog() If oForm.HasChanges Then - Dim oSource As AdminItem = AdminItems.Item(CurrentPage) - Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title) - Load_Grid(oTable, oSource, GridAttributes) + Load_SQLData() + Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBAttribute).ToList + Load_Tree(oItems, TreeListIDBAttributes) End If Catch ex As Exception ShowError(ex) End Try End Sub - Private Sub Load_SourceSql(PrimaryKey As Integer) + Private Sub Load_IDBEntity(PrimaryKey As Integer) Try - Dim oForm As New frmAdmin_SourceSQL(PrimaryKey) + Dim oForm As New frmAdmin_IDBEntity(PrimaryKey) oForm.ShowDialog() If oForm.HasChanges Then - Dim oSource As AdminItem = AdminItems.Item(CurrentPage) - Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title) - Load_Grid(oTable, oSource, GridSourceSQL) + Load_SQLData() + Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBEntity).ToList + Load_Tree(oItems, TreeListIDBEntities) End If Catch ex As Exception ShowError(ex) @@ -313,6 +311,7 @@ Public Class frmAdmin_Start oForm.ShowDialog() If oForm.HasChanges Then + Dim oSource As AdminItem = AdminItems.Item(CurrentPage) Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title) 'Load_Tree(oTable, oSource, TreeList1) @@ -324,10 +323,10 @@ Public Class frmAdmin_Start Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick Try - Dim oRow As DataRow = ViewAttributes.GetFocusedDataRow + Dim oRow As DataRow = TreeListIDBAttributes.GetFocusedDataRow If oRow IsNot Nothing Then - Dim oPrimaryKey As Integer = oRow.Item(PrimaryKey) - Load_Attribute(oPrimaryKey) + Dim oPrimaryKey As Integer = DirectCast(oRow.Item(PrimaryKey), Integer) + Load_IDBAttribute(oPrimaryKey) End If Catch ex As Exception ShowError(ex) @@ -348,9 +347,11 @@ Public Class frmAdmin_Start labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never End Sub - Private Sub TreeList1_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeList1.GetStateImage + + + Private Sub TreeList1_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListCWProfiles.GetStateImage Dim oTreeList As TreeList = DirectCast(sender, TreeList) - Dim oItem As AdminItem = oTreeList.GetRow(e.Node.Id) + Dim oItem As AdminItem = DirectCast(oTreeList.GetRow(e.Node.Id), AdminItem) Select Case oItem.Scope Case "PROFILE" @@ -368,9 +369,9 @@ Public Class frmAdmin_Start End Sub - Private Sub TreeList2_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeList2.GetStateImage + Private Sub TreeList2_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListGLOBIXProfiles.GetStateImage Dim oTreeList As TreeList = DirectCast(sender, TreeList) - Dim oItem As AdminItem = oTreeList.GetRow(e.Node.Id) + Dim oItem As AdminItem = DirectCast(oTreeList.GetRow(e.Node.Id), AdminItem) Select Case oItem.Scope Case "PROFILE" @@ -385,4 +386,12 @@ Public Class frmAdmin_Start End Select End Sub + + Private Sub TreeListIDBAttributes_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListIDBAttributes.GetStateImage + e.NodeImageIndex = 1 + End Sub + + Private Sub TreeListIDBEntities_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListIDBEntities.GetStateImage + e.NodeImageIndex = 0 + End Sub End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/ClassLayout.vb b/GUIs.ZooFlow/ClassLayout.vb index fe1eb037..efc741e8 100644 --- a/GUIs.ZooFlow/ClassLayout.vb +++ b/GUIs.ZooFlow/ClassLayout.vb @@ -72,7 +72,7 @@ Public Class ClassWindowLocation MsgBox("Error while loading Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub - Private Function IsVisibleOnAnyScreen(rect As Rectangle) + Private Function IsVisibleOnAnyScreen(rect As Rectangle) As Boolean Try Dim result As Boolean = False For Each Screen As Screen In Screen.AllScreens diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb index 73bf1ba1..8c580bc3 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb @@ -31,8 +31,6 @@ Partial Public Class DSIDB_Stammdaten Private tableTBIDB_ATTRIBUTE_TYPE As TBIDB_ATTRIBUTE_TYPEDataTable - Private tableTBZF_ADMIN_SOURCE_SQL As TBZF_ADMIN_SOURCE_SQLDataTable - Private relationFK_TYP_ID As Global.System.Data.DataRelation Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema @@ -73,9 +71,6 @@ Partial Public Class DSIDB_Stammdaten If (Not (ds.Tables("TBIDB_ATTRIBUTE_TYPE")) Is Nothing) Then MyBase.Tables.Add(New TBIDB_ATTRIBUTE_TYPEDataTable(ds.Tables("TBIDB_ATTRIBUTE_TYPE"))) End If - If (Not (ds.Tables("TBZF_ADMIN_SOURCE_SQL")) Is Nothing) Then - MyBase.Tables.Add(New TBZF_ADMIN_SOURCE_SQLDataTable(ds.Tables("TBZF_ADMIN_SOURCE_SQL"))) - End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace @@ -123,16 +118,6 @@ Partial Public Class DSIDB_Stammdaten End Get End Property - _ - Public ReadOnly Property TBZF_ADMIN_SOURCE_SQL() As TBZF_ADMIN_SOURCE_SQLDataTable - Get - Return Me.tableTBZF_ADMIN_SOURCE_SQL - End Get - End Property - _ - Private Function ShouldSerializeTBZF_ADMIN_SOURCE_SQL() As Boolean - Return false - End Function - _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) @@ -382,9 +350,6 @@ Partial Public Class DSIDB_Stammdaten _ Public Delegate Sub TBIDB_ATTRIBUTE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_ATTRIBUTE_TYPERowChangeEvent) - _ - Public Delegate Sub TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler(ByVal sender As Object, ByVal e As TBZF_ADMIN_SOURCE_SQLRowChangeEvent) - ''' '''Represents the strongly named DataTable class. ''' @@ -629,7 +594,9 @@ Partial Public Class DSIDB_Stammdaten Me.columnTITLE.MaxLength = 500 Me.columnINHERITS_ATTRIBUTES.AllowDBNull = false Me.columnCOMMENT.MaxLength = 1000 + Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 30 + Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 30 End Sub @@ -1627,671 +1594,533 @@ Partial Public Class DSIDB_Stammdaten End Class ''' - '''Represents the strongly named DataTable class. + '''Represents strongly named DataRow class. ''' - _ - Partial Public Class TBZF_ADMIN_SOURCE_SQLDataTable - Inherits Global.System.Data.TypedTableBase(Of TBZF_ADMIN_SOURCE_SQLRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnENTITY_TITLE As Global.System.Data.DataColumn - - Private columnPK_COLUMN As Global.System.Data.DataColumn - - Private columnCOMMENT As Global.System.Data.DataColumn - - Private columnSQL_COMMAND As Global.System.Data.DataColumn - - Private columnADDED_WHO As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - Private columnCHANGED_WHO As Global.System.Data.DataColumn - - Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBZF_ADMIN_SOURCE_SQL" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub + Partial Public Class TBIDB_BUSINESS_ENTITYRow + Inherits Global.System.Data.DataRow - _ - 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 + Private tableTBIDB_BUSINESS_ENTITY As TBIDB_BUSINESS_ENTITYDataTable _ - 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 + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIDB_BUSINESS_ENTITY = CType(Me.Table,TBIDB_BUSINESS_ENTITYDataTable) End Sub _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Public Property GUID() As Integer Get - Return Me.columnGUID + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.GUIDColumn),Integer) End Get + Set + Me(Me.tableTBIDB_BUSINESS_ENTITY.GUIDColumn) = value + End Set End Property _ - Public ReadOnly Property ENTITY_TITLEColumn() As Global.System.Data.DataColumn + Public Property PARENT_ENT_ID() As Integer Get - Return Me.columnENTITY_TITLE + 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 _ - Public ReadOnly Property PK_COLUMNColumn() As Global.System.Data.DataColumn + Public Property TITLE() As String Get - Return Me.columnPK_COLUMN + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.TITLEColumn),String) End Get + Set + Me(Me.tableTBIDB_BUSINESS_ENTITY.TITLEColumn) = value + End Set End Property _ - Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Public Property INHERITS_ATTRIBUTES() As Boolean Get - Return Me.columnCOMMENT + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.INHERITS_ATTRIBUTESColumn),Boolean) End Get + Set + Me(Me.tableTBIDB_BUSINESS_ENTITY.INHERITS_ATTRIBUTESColumn) = value + End Set End Property _ - Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn + Public Property COMMENT() As String Get - Return Me.columnSQL_COMMAND + 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_BUSINESS_ENTITY.COMMENTColumn) = value + End Set End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public Property ADDED_WHO() As String Get - Return Me.columnADDED_WHO + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn),String) End Get + Set + Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn) = value + End Set End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public Property ADDED_WHEN() As Date Get - Return Me.columnADDED_WHEN + 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 ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Public Property CHANGED_WHO() As String Get - Return Me.columnCHANGED_WHO + 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 ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer + Public Property CHANGED_WHEN() As Date Get - Return Me.Rows.Count + 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 Default ReadOnly Property Item(ByVal index As Integer) As TBZF_ADMIN_SOURCE_SQLRow - Get - Return CType(Me.Rows(index),TBZF_ADMIN_SOURCE_SQLRow) - End Get - End Property - - _ - Public Event TBZF_ADMIN_SOURCE_SQLRowChanging As TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler - - _ - Public Event TBZF_ADMIN_SOURCE_SQLRowChanged As TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler - - _ - Public Event TBZF_ADMIN_SOURCE_SQLRowDeleting As TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler - - _ - Public Event TBZF_ADMIN_SOURCE_SQLRowDeleted As TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) + End Function _ - Public Overloads Sub AddTBZF_ADMIN_SOURCE_SQLRow(ByVal row As TBZF_ADMIN_SOURCE_SQLRow) - Me.Rows.Add(row) + Public Sub SetCOMMENTNull() + Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ - Public Overloads Function AddTBZF_ADMIN_SOURCE_SQLRow(ByVal ENTITY_TITLE 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 Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBZF_ADMIN_SOURCE_SQLRow - Dim rowTBZF_ADMIN_SOURCE_SQLRow As TBZF_ADMIN_SOURCE_SQLRow = CType(Me.NewRow,TBZF_ADMIN_SOURCE_SQLRow) - Dim columnValuesArray() As Object = New Object() {Nothing, ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - rowTBZF_ADMIN_SOURCE_SQLRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBZF_ADMIN_SOURCE_SQLRow) - Return rowTBZF_ADMIN_SOURCE_SQLRow + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBZF_ADMIN_SOURCE_SQLRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBZF_ADMIN_SOURCE_SQLRow) - End Function + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBZF_ADMIN_SOURCE_SQLDataTable = CType(MyBase.Clone,TBZF_ADMIN_SOURCE_SQLDataTable) - cln.InitVars - Return cln + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) End Function _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBZF_ADMIN_SOURCE_SQLDataTable() - 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 + + Private tableTBIDB_ATTRIBUTE As TBIDB_ATTRIBUTEDataTable _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnENTITY_TITLE = MyBase.Columns("ENTITY_TITLE") - Me.columnPK_COLUMN = MyBase.Columns("PK_COLUMN") - Me.columnCOMMENT = MyBase.Columns("COMMENT") - Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIDB_ATTRIBUTE = CType(Me.Table,TBIDB_ATTRIBUTEDataTable) End Sub _ - 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.columnENTITY_TITLE = New Global.System.Data.DataColumn("ENTITY_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnENTITY_TITLE) - Me.columnPK_COLUMN = New Global.System.Data.DataColumn("PK_COLUMN", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPK_COLUMN) - Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCOMMENT) - Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSQL_COMMAND) - 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.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - 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.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnENTITY_TITLE.AllowDBNull = false - Me.columnENTITY_TITLE.MaxLength = 100 - Me.columnPK_COLUMN.AllowDBNull = false - Me.columnPK_COLUMN.MaxLength = 100 - Me.columnCOMMENT.MaxLength = 500 - Me.columnSQL_COMMAND.AllowDBNull = false - Me.columnSQL_COMMAND.MaxLength = 2147483647 - Me.columnADDED_WHO.MaxLength = 30 - Me.columnCHANGED_WHO.MaxLength = 30 - 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 _ - Public Function NewTBZF_ADMIN_SOURCE_SQLRow() As TBZF_ADMIN_SOURCE_SQLRow - Return CType(Me.NewRow,TBZF_ADMIN_SOURCE_SQLRow) - End Function + 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 Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBZF_ADMIN_SOURCE_SQLRow(builder) - End Function + 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 Function GetRowType() As Global.System.Type - Return GetType(TBZF_ADMIN_SOURCE_SQLRow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBZF_ADMIN_SOURCE_SQLRowChangedEvent) Is Nothing) Then - RaiseEvent TBZF_ADMIN_SOURCE_SQLRowChanged(Me, New TBZF_ADMIN_SOURCE_SQLRowChangeEvent(CType(e.Row,TBZF_ADMIN_SOURCE_SQLRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBZF_ADMIN_SOURCE_SQLRowChangingEvent) Is Nothing) Then - RaiseEvent TBZF_ADMIN_SOURCE_SQLRowChanging(Me, New TBZF_ADMIN_SOURCE_SQLRowChangeEvent(CType(e.Row,TBZF_ADMIN_SOURCE_SQLRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBZF_ADMIN_SOURCE_SQLRowDeletedEvent) Is Nothing) Then - RaiseEvent TBZF_ADMIN_SOURCE_SQLRowDeleted(Me, New TBZF_ADMIN_SOURCE_SQLRowChangeEvent(CType(e.Row,TBZF_ADMIN_SOURCE_SQLRow), 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 _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBZF_ADMIN_SOURCE_SQLRowDeletingEvent) Is Nothing) Then - RaiseEvent TBZF_ADMIN_SOURCE_SQLRowDeleting(Me, New TBZF_ADMIN_SOURCE_SQLRowChangeEvent(CType(e.Row,TBZF_ADMIN_SOURCE_SQLRow), e.Action)) - End If - 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 Sub RemoveTBZF_ADMIN_SOURCE_SQLRow(ByVal row As TBZF_ADMIN_SOURCE_SQLRow) - Me.Rows.Remove(row) - End Sub + 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 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 = "TBZF_ADMIN_SOURCE_SQLDataTable" - 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() + Public Property COMMENT() As String + Get 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 + 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 If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBIDB_BUSINESS_ENTITYRow - Inherits Global.System.Data.DataRow - - Private tableTBIDB_BUSINESS_ENTITY As TBIDB_BUSINESS_ENTITYDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBIDB_BUSINESS_ENTITY = CType(Me.Table,TBIDB_BUSINESS_ENTITYDataTable) - End Sub + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) = value + End Set + End Property _ - Public Property GUID() As Integer + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.GUIDColumn),Integer) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.GUIDColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHOColumn) = value End Set End Property _ - Public Property PARENT_ENT_ID() As Integer + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.PARENT_ENT_IDColumn),Integer) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHENColumn),Date) End Get Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.PARENT_ENT_IDColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHENColumn) = value End Set End Property _ - Public Property TITLE() As String + Public Property CHANGED_WHO() As String Get - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.TITLEColumn),String) + 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.tableTBIDB_BUSINESS_ENTITY.TITLEColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) = value End Set End Property _ - Public Property INHERITS_ATTRIBUTES() As Boolean + Public Property CHANGED_WHEN() As Date Get - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.INHERITS_ATTRIBUTESColumn),Boolean) + 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.tableTBIDB_BUSINESS_ENTITY.INHERITS_ATTRIBUTESColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) = value End Set End Property _ - Public Property COMMENT() As String + Public Property DELETED() As Boolean 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 CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETEDColumn),Boolean) End Get Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.DELETEDColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property DELETED_WHO() As String Get Try - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn),String) + 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 ADDED_WHO in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) + 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.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property DELETED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_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 ADDED_WHEN in Tabelle TBIDB_BUSINESS_ENTITY 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.tableTBIDB_BUSINESS_ENTITY.ADDED_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.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 + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn),String) End Get Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property TBIDB_ATTRIBUTE_TYPERow() As TBIDB_ATTRIBUTE_TYPERow 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 + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TYP_ID")),TBIDB_ATTRIBUTE_TYPERow) End Get Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) = value + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TYP_ID")) End Set End Property _ Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() - Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = Global.System.Convert.DBNull + Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADDED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn) + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) End Function _ - Public Sub SetADDED_WHONull() - Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) End Function _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) + Public Function IsDELETED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetDELETED_WHONull() + Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) + Public Function IsDELETED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) End Function _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) = Global.System.Convert.DBNull + 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 TBIDB_ATTRIBUTERow + Partial Public Class TBIDB_ATTRIBUTE_TYPERow Inherits Global.System.Data.DataRow - Private tableTBIDB_ATTRIBUTE As TBIDB_ATTRIBUTEDataTable + Private tableTBIDB_ATTRIBUTE_TYPE As TBIDB_ATTRIBUTE_TYPEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBIDB_ATTRIBUTE = CType(Me.Table,TBIDB_ATTRIBUTEDataTable) + 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.tableTBIDB_ATTRIBUTE.GUIDColumn),Integer) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn),Byte) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE.GUIDColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn) = value End Set End Property _ - Public Property TITLE() As String + Public Property NAME_TYPE() As String Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.TITLEColumn),String) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.NAME_TYPEColumn),String) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE.TITLEColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.NAME_TYPEColumn) = value End Set End Property _ - Public Property TYP_ID() As Byte + Public Property COMMENT() As String Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn),Byte) + 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.tableTBIDB_ATTRIBUTE.TYP_IDColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) = value End Set End Property _ - Public Property MULTI_CONTEXT() As Boolean + Public Property BIT1() As Boolean Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.MULTI_CONTEXTColumn),Boolean) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT1Column),Boolean) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE.MULTI_CONTEXTColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT1Column) = value End Set End Property _ - Public Property VIEW_SEQUENCE() As Integer + Public Property BIT2() As Boolean Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.VIEW_SEQUENCEColumn),Integer) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT2Column),Boolean) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE.VIEW_SEQUENCEColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT2Column) = value End Set End Property _ - Public Property VIEW_VISIBLE() As Boolean + Public Property BIT3() As Boolean Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.VIEW_VISIBLEColumn),Boolean) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT3Column),Boolean) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE.VIEW_VISIBLEColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT3Column) = value End Set End Property _ - Public Property COMMENT() As String + Public Property BIT4() As Boolean 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 CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT4Column),Boolean) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT4Column) = value End Set End Property @@ -2299,1877 +2128,851 @@ 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.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHOColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date - Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHENColumn),Date) - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - 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 - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_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 CHANGED_WHEN in Tabelle TBIDB_ATTRIBUTE 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.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property DELETED() As Boolean - Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETEDColumn),Boolean) - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.DELETEDColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = value End Set End Property _ - Public Property DELETED_WHO() As String + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETED_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 DELETED_WHO in Tabelle TBIDB_ATTRIBUTE 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.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) = value End Set End Property _ - Public Property DELETED_WHEN() As Date + Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn),Date) + 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 DELETED_WHEN in Tabelle TBIDB_ATTRIBUTE 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.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) = value End Set End Property _ - Public Property ATTR_TYPE() As String - Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn),String) - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn) = value - End Set - End Property + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) + End Function _ - 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 Sub SetCOMMENTNull() + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) = Global.System.Convert.DBNull + End Sub _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) End Function _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) = Global.System.Convert.DBNull + 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.CHANGED_WHOColumn) + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() - Me(Me.tableTBIDB_ATTRIBUTE.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.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDELETED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) + 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 + + ''' + '''Row event argument class + ''' + _ + Public Class TBIDB_BUSINESS_ENTITYRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIDB_BUSINESS_ENTITYRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Sub SetDELETED_WHONull() - Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) = Global.System.Convert.DBNull + Public Sub New(ByVal row As TBIDB_BUSINESS_ENTITYRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Function IsDELETED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) - End Function + Public ReadOnly Property Row() As TBIDB_BUSINESS_ENTITYRow + Get + Return Me.eventRow + End Get + End Property _ - Public Sub SetDELETED_WHENNull() - Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property End Class ''' - '''Represents strongly named DataRow class. + '''Row event argument class ''' - Partial Public Class TBIDB_ATTRIBUTE_TYPERow - Inherits Global.System.Data.DataRow + _ + Public Class TBIDB_ATTRIBUTERowChangeEvent + Inherits Global.System.EventArgs - Private tableTBIDB_ATTRIBUTE_TYPE As TBIDB_ATTRIBUTE_TYPEDataTable + Private eventRow As TBIDB_ATTRIBUTERow + + Private eventAction As Global.System.Data.DataRowAction _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBIDB_ATTRIBUTE_TYPE = CType(Me.Table,TBIDB_ATTRIBUTE_TYPEDataTable) + 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 _ - Public Property GUID() As Byte + Public ReadOnly Property Row() As TBIDB_ATTRIBUTERow Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn),Byte) + Return Me.eventRow End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn) = value - End Set End Property _ - Public Property NAME_TYPE() As String + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.NAME_TYPEColumn),String) + Return Me.eventAction End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.NAME_TYPEColumn) = 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 Property COMMENT() As String - 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 - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) = value - End Set - End Property + 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 Property BIT1() As Boolean + Public ReadOnly Property Row() As TBIDB_ATTRIBUTE_TYPERow Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT1Column),Boolean) + Return Me.eventRow End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT1Column) = value - End Set End Property _ - Public Property BIT2() As Boolean + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT2Column),Boolean) + Return Me.eventAction End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT2Column) = value - End Set 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 Property BIT3() As Boolean - Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT3Column),Boolean) - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT3Column) = value - End Set - End Property + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub _ - Public Property BIT4() As Boolean + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT4Column),Boolean) + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT4Column) = value - End Set End Property _ - Public Property ADDED_WHO() As String + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHOColumn),String) + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHOColumn) = value + 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 _ - Public Property ADDED_WHEN() As Date + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction 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 Me._transaction End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = value + 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 Property CHANGED_WHO() As String + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get - Try - 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 TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) - End Try + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) = value - End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property ClearBeforeFill() As Boolean Get - Try - 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 CHANGED_WHEN in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) - End Try + Return Me._clearBeforeFill End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) = value + Me._clearBeforeFill = value End Set End Property _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) - End Function - - _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) = Global.System.Convert.DBNull + 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 Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) - End Function + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull + 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_ATTRIBUTE_TYPE.CHANGED_WHOColumn) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ + 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 Sub SetCHANGED_WHONull() - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub + 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.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 Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) + 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 dataTable As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable) As Integer + Return Me.Adapter.Update(dataTable) End Function _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub + 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_BUSINESS_ENTITY") + End Function _ - 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 + 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 dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBZF_ADMIN_SOURCE_SQLRow - Inherits Global.System.Data.DataRow - Private tableTBZF_ADMIN_SOURCE_SQL As TBZF_ADMIN_SOURCE_SQLDataTable + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function _ - 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 + 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.Delete, true)> _ + 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 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 + 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 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 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 + 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 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 - _ - Public Property PK_COLUMN() As String - Get - Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PK_COLUMNColumn),String) - End Get - Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PK_COLUMNColumn) = value - End Set - End Property + 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 Property COMMENT() As String - 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 - End Get - Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn) = value - End Set - End Property + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub _ - Public Property SQL_COMMAND() As String + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get - Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SQL_COMMANDColumn),String) + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter End Get - Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SQL_COMMANDColumn) = value - End Set End Property _ - Public Property ADDED_WHO() As String + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection 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 + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection End Get Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn) = value + 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 _ - Public Property ADDED_WHEN() As Date + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get - 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 + Return Me._transaction End Get Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn) = value + 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 Property CHANGED_WHO() As String + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get - Try - 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 TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) - End Try + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection End Get - Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn) = value - End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property ClearBeforeFill() As Boolean 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 + Return Me._clearBeforeFill End Get Set - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn) = value + Me._clearBeforeFill = value End Set End Property _ - 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 + 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 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 + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT End Sub _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn) = Global.System.Convert.DBNull + 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 Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ + 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 Sub SetCHANGED_WHENNull() - Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBIDB_BUSINESS_ENTITYRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBIDB_BUSINESS_ENTITYRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBIDB_BUSINESS_ENTITYRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBIDB_BUSINESS_ENTITYRow - 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_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 - - _ - Public ReadOnly Property Row() As TBIDB_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 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 + 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.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 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 + 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 dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function _ - 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 + 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") + End Function _ - 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 -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"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PARENT_ENT_ID, TITLE"& _ - ", INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PARENT_ENT_ID,@TITLE"& _ - ",@INHERITS_ATTRIBUTES,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ENT_ID, TITLE"& _ - ", INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _ - " FROM TBIDB_BUSINESS_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, 4, 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, 500, 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, 1, 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, 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_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, 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)&"SELECT"& _ - " GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN"& _ - ", CHANGED_WHO, CHANGED_WHEN FROM TBIDB_BUSINESS_ENTITY 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("@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.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" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable) 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_BUSINESS_ENTITYDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - 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 + 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 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) 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 - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(4).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 PARENT_ENT_ID As Integer, ByVal TITLE As String, ByVal INHERITS_ATTRIBUTES As Boolean, ByVal COMMENT As String, ByVal CHANGED_WHO As String, 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 (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(6).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] WHERE (([GUID] = @Original_GUID) AND ([NAME_TY"& _ - "PE] = @Original_NAME_TYPE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ("& _ - "[COMMENT] = @Original_COMMENT)) AND ([BIT1] = @Original_BIT1) AND ([BIT2] = @Ori"& _ - "ginal_BIT2) AND ([BIT3] = @Original_BIT3) AND ([BIT4] = @Original_BIT4) AND ([AD"& _ - "DED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (("& _ - "@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original"& _ - "_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([C"& _ - "HANGED_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.TinyInt, 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_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.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_BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.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.DeleteCommand.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.DeleteCommand.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.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_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, 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 - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) - If (Original_NAME_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_NAME_TYPE") - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME_TYPE,String) - End If - If (Original_COMMENT Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_COMMENT,String) - End If - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_BIT1,Boolean) - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_BIT2,Boolean) - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_BIT3,Boolean) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_BIT4,Boolean) - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(13).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 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) + Return Me.Adapter.Update(dataRows) End Function End Class @@ -4182,7 +2985,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_ATTRIBUTE_TYPETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -4299,12 +3102,14 @@ 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_ATTRIBUTE_TYPE" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("ENTITY_TITLE", "ENTITY_TITLE") - tableMapping.ColumnMappings.Add("PK_COLUMN", "PK_COLUMN") + tableMapping.ColumnMappings.Add("NAME_TYPE", "NAME_TYPE") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + 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") @@ -4312,23 +3117,24 @@ Namespace DSIDB_StammdatenTableAdapters 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] WHERE (([GUID] = @Original_GUID) AND ([ENTITY"& _ - "_TITLE] = @Original_ENTITY_TITLE) AND ([PK_COLUMN] = @Original_PK_COLUMN) AND (("& _ - "@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) A"& _ - "ND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_"& _ - "ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WH"& _ - "EN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_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)))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBIDB_ATTRIBUTE_TYPE] WHERE (([GUID] = @Original_GUID) AND ([NAME_TY"& _ + "PE] = @Original_NAME_TYPE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ("& _ + "[COMMENT] = @Original_COMMENT)) AND ([BIT1] = @Original_BIT1) AND ([BIT2] = @Ori"& _ + "ginal_BIT2) AND ([BIT3] = @Original_BIT3) AND ([BIT4] = @Original_BIT4) AND ([AD"& _ + "DED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (("& _ + "@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original"& _ + "_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([C"& _ + "HANGED_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, 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_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.DeleteCommand.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.DeleteCommand.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.DeleteCommand.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.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("@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.DeleteCommand.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.DeleteCommand.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.DeleteCommand.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.DeleteCommand.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.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("@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.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, "", "", "")) @@ -4336,66 +3142,71 @@ 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 [TBZF_ADMIN_SOURCE_SQL] ([ENTITY_TITLE], [PK_COLUMN], [COMMENT], [SQL"& _ - "_COMMAND], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@EN"& _ - "TITY_TITLE, @PK_COLUMN, @COMMENT, @SQL_COMMAND, @ADDED_WHO, @ADDED_WHEN, @CHANGE"& _ - "D_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMA"& _ - "ND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBZF_ADMIN_SOURCE_SQL "& _ - "WHERE (GUID = SCOPE_IDENTITY())" + 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("@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("@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("@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("@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("@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 [TBZF_ADMIN_SOURCE_SQL] SET [ENTITY_TITLE] = @ENTITY_TITLE, [PK_COLUMN] = "& _ - "@PK_COLUMN, [COMMENT] = @COMMENT, [SQL_COMMAND] = @SQL_COMMAND, [ADDED_WHO] = @A"& _ - "DDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHE"& _ - "N] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([ENTITY_TITLE] = @Origi"& _ - "nal_ENTITY_TITLE) AND ([PK_COLUMN] = @Original_PK_COLUMN) AND ((@IsNull_COMMENT "& _ - "= 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADD"& _ - "ED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND "& _ - "((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_"& _ - "ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANG"& _ - "ED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WH"& _ - "EN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ENTIT"& _ - "Y_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ - "ANGED_WHEN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = @GUID)" + 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("@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("@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("@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("@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("@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.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_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_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("@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("@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_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("@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.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("@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.DD_ECM_TESTConnectionString + 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_ATTRIBUTE_TYPEDataTable) 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 @@ -4427,10 +3236,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_ATTRIBUTE_TYPEDataTable 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_ATTRIBUTE_TYPEDataTable = New DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -4438,7 +3246,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_ATTRIBUTE_TYPEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -4446,7 +3254,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_ATTRIBUTE_TYPE") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_ENTITY_TITLE 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)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_ENTITY_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ENTITY_TITLE") - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ENTITY_TITLE,String) - End If - If (Original_PK_COLUMN Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PK_COLUMN") + Public Overloads Overridable Function Delete(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 + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) + If (Original_NAME_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_NAME_TYPE") Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PK_COLUMN,String) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME_TYPE,String) End If If (Original_COMMENT Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_COMMENT,String) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_COMMENT,String) End If + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_BIT1,Boolean) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_BIT2,Boolean) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_BIT3,Boolean) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_BIT4,Boolean) If (Original_ADDED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN.Value,Date) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If 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(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).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(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).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(12).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(13).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(12).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(13).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) _ @@ -4533,46 +3336,40 @@ 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 ENTITY_TITLE 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)) As Integer - If (ENTITY_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("ENTITY_TITLE") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(ENTITY_TITLE,String) - End If - If (PK_COLUMN Is Nothing) Then - Throw New Global.System.ArgumentNullException("PK_COLUMN") + 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(1).Value = CType(PK_COLUMN,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME_TYPE,String) End If If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) - End If - If (SQL_COMMAND Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(SQL_COMMAND,String) + 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 - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(4).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.InsertCommand.Parameters(5).Value = CType(ADDED_WHEN.Value,Date) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHEN.Value,Date) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) Else - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + 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) _ @@ -4594,110 +3391,104 @@ 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 ENTITY_TITLE As String, _ - ByVal PK_COLUMN As String, _ + ByVal NAME_TYPE As String, _ ByVal COMMENT As String, _ - ByVal SQL_COMMAND 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 Integer, _ - ByVal Original_ENTITY_TITLE As String, _ - ByVal Original_PK_COLUMN As String, _ + 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 Integer) As Integer - If (ENTITY_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("ENTITY_TITLE") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ENTITY_TITLE,String) - End If - If (PK_COLUMN Is Nothing) Then - Throw New Global.System.ArgumentNullException("PK_COLUMN") + ByVal GUID As Byte) As Integer + If (NAME_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME_TYPE") Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PK_COLUMN,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME_TYPE,String) End If If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String) - End If - If (SQL_COMMAND Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SQL_COMMAND,String) + 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 - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(8).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) - If (Original_ENTITY_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ENTITY_TITLE") + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_ENTITY_TITLE,String) + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If - If (Original_PK_COLUMN Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PK_COLUMN") + 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(10).Value = CType(Original_PK_COLUMN,String) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_NAME_TYPE,String) End If If (Original_COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_COMMENT,String) + 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 - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ADDED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_CHANGED_WHO,String) + 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(19).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_CHANGED_WHEN.Value,Date) + 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(19).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + 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(21).Value = CType(GUID,Integer) + 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 @@ -4718,23 +3509,28 @@ 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 ENTITY_TITLE As String, _ - ByVal PK_COLUMN As String, _ + ByVal NAME_TYPE As String, _ ByVal COMMENT As String, _ - ByVal SQL_COMMAND 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 Integer, _ - ByVal Original_ENTITY_TITLE As String, _ - ByVal Original_PK_COLUMN As String, _ + 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(ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_ENTITY_TITLE, Original_PK_COLUMN, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + 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 @@ -4757,8 +3553,6 @@ Namespace DSIDB_StammdatenTableAdapters Private _tBIDB_ATTRIBUTE_TYPETableAdapter As TBIDB_ATTRIBUTE_TYPETableAdapter - Private _tBZF_ADMIN_SOURCE_SQLTableAdapter As TBZF_ADMIN_SOURCE_SQLTableAdapter - Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection @@ -4816,20 +3610,6 @@ Namespace DSIDB_StammdatenTableAdapters End Set End Property - _ - Public Property TBZF_ADMIN_SOURCE_SQLTableAdapter() As TBZF_ADMIN_SOURCE_SQLTableAdapter - Get - Return Me._tBZF_ADMIN_SOURCE_SQLTableAdapter - End Get - Set - Me._tBZF_ADMIN_SOURCE_SQLTableAdapter = value - End Set - End Property - _ Public Property BackupDataSetBeforeUpdate() As Boolean @@ -4861,10 +3641,6 @@ Namespace DSIDB_StammdatenTableAdapters AndAlso (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection) Is Nothing)) Then Return Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection End If - If ((Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) _ - AndAlso (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Connection) Is Nothing)) Then - Return Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Connection - End If Return Nothing End Get Set @@ -4887,9 +3663,6 @@ Namespace DSIDB_StammdatenTableAdapters If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then count = (count + 1) End If - If (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) Then - count = (count + 1) - End If Return count End Get End Property @@ -4910,15 +3683,6 @@ Namespace DSIDB_StammdatenTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_BUSINESS_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBIDB_BUSINESS_ENTITYTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -4928,12 +3692,12 @@ Namespace DSIDB_StammdatenTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBZF_ADMIN_SOURCE_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_BUSINESS_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Update(updatedRows)) + result = (result + Me._tBIDB_BUSINESS_ENTITYTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -4955,14 +3719,6 @@ Namespace DSIDB_StammdatenTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_BUSINESS_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBIDB_BUSINESS_ENTITYTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -4971,11 +3727,11 @@ Namespace DSIDB_StammdatenTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBZF_ADMIN_SOURCE_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_BUSINESS_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Update(addedRows)) + result = (result + Me._tBIDB_BUSINESS_ENTITYTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -4989,11 +3745,11 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DSIDB_Stammdaten, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 - If (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBZF_ADMIN_SOURCE_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_BUSINESS_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Update(deletedRows)) + result = (result + Me._tBIDB_BUSINESS_ENTITYTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -5005,14 +3761,6 @@ Namespace DSIDB_StammdatenTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_BUSINESS_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBIDB_BUSINESS_ENTITYTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE_TYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -5077,11 +3825,6 @@ Namespace DSIDB_StammdatenTableAdapters Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If - If ((Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ - "s die gleiche Verbindungszeichenfolge verwendet werden.") - End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ @@ -5143,15 +3886,6 @@ Namespace DSIDB_StammdatenTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Adapter) End If End If - If (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) Then - revertConnections.Add(Me._tBZF_ADMIN_SOURCE_SQLTableAdapter, Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Connection) - Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) - If Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Adapter.AcceptChangesDuringUpdate = false - adaptersWithAcceptChangesDuringUpdate.Add(Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Adapter) - End If - End If ' '---- Perform updates ----------- ' @@ -5224,10 +3958,6 @@ Namespace DSIDB_StammdatenTableAdapters Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection = CType(revertConnections(Me._tBIDB_ATTRIBUTE_TYPETableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Transaction = Nothing End If - If (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) Then - Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Connection = CType(revertConnections(Me._tBZF_ADMIN_SOURCE_SQLTableAdapter),Global.System.Data.SqlClient.SqlConnection) - Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Transaction = Nothing - End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.xsd b/GUIs.ZooFlow/DSIDB_Stammdaten.xsd index 54f60364..85649680 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.xsd +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xsd @@ -21,31 +21,36 @@ WHERE (GUID = @Original_GUID) - - INSERT INTO TBIDB_BUSINESS_ENTITY - (PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO) -VALUES (@PARENT_ENT_ID,@TITLE,@INHERITS_ATTRIBUTES,@COMMENT,@ADDED_WHO); + + INSERT INTO [TBIDB_BUSINESS_ENTITY] ([PARENT_ENT_ID], [TITLE], [INHERITS_ATTRIBUTES], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@PARENT_ENT_ID, @TITLE, @INHERITS_ATTRIBUTES, @COMMENT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_BUSINESS_ENTITY WHERE (GUID = SCOPE_IDENTITY()) - - - - - + + + + + + + + SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN -FROM TBIDB_BUSINESS_ENTITY - +FROM TBIDB_BUSINESS_ENTITY +WHERE GUID = @GUID + + + UPDATE TBIDB_BUSINESS_ENTITY -SET PARENT_ENT_ID = @PARENT_ENT_ID, TITLE = @TITLE, INHERITS_ATTRIBUTES = @INHERITS_ATTRIBUTES, COMMENT = @COMMENT, CHANGED_WHO = @CHANGED_WHO +SET PARENT_ENT_ID = @PARENT_ENT_ID, TITLE = @TITLE, INHERITS_ATTRIBUTES = @INHERITS_ATTRIBUTES, COMMENT = @COMMENT, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, + CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN WHERE (GUID = @Original_GUID); SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_BUSINESS_ENTITY WHERE (GUID = @GUID) @@ -53,7 +58,10 @@ SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDE + + + @@ -242,98 +250,6 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, - - - - - - DELETE FROM [TBZF_ADMIN_SOURCE_SQL] WHERE (([GUID] = @Original_GUID) AND ([ENTITY_TITLE] = @Original_ENTITY_TITLE) AND ([PK_COLUMN] = @Original_PK_COLUMN) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 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] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) - - - - - - - - - - - - - - - - - - - - INSERT INTO [TBZF_ADMIN_SOURCE_SQL] ([ENTITY_TITLE], [PK_COLUMN], [COMMENT], [SQL_COMMAND], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@ENTITY_TITLE, @PK_COLUMN, @COMMENT, @SQL_COMMAND, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); -SELECT GUID, ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - - SELECT * FROM TBZF_ADMIN_SOURCE_SQL WHERE GUID = @GUID - - - - - - - - UPDATE [TBZF_ADMIN_SOURCE_SQL] SET [ENTITY_TITLE] = @ENTITY_TITLE, [PK_COLUMN] = @PK_COLUMN, [COMMENT] = @COMMENT, [SQL_COMMAND] = @SQL_COMMAND, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([ENTITY_TITLE] = @Original_ENTITY_TITLE) AND ([PK_COLUMN] = @Original_PK_COLUMN) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 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] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); -SELECT GUID, ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -362,14 +278,14 @@ SELECT GUID, ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHE - + - + @@ -479,57 +395,6 @@ SELECT GUID, ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -544,10 +409,6 @@ SELECT GUID, ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHE - - - - diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.xss b/GUIs.ZooFlow/DSIDB_Stammdaten.xss index bcdfe758..6991d83d 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.xss +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xss @@ -6,13 +6,12 @@ --> - - - - + + + - + 677 diff --git a/GUIs.ZooFlow/Globix/ClassEmailHeaderExtractor.vb b/GUIs.ZooFlow/Globix/ClassEmailHeaderExtractor.vb index b7f82e23..56aac017 100644 --- a/GUIs.ZooFlow/Globix/ClassEmailHeaderExtractor.vb +++ b/GUIs.ZooFlow/Globix/ClassEmailHeaderExtractor.vb @@ -7,7 +7,7 @@ Public Class ClassEmailHeaderExtractor ''' ''' Der Pfad einer .msg Datei ''' Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist. - Public Shared Function getMessageHeaders(path As String) + Public Shared Function getMessageHeaders(path As String) As String Try Dim msg As New Msg.Message(path) Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ") @@ -22,7 +22,7 @@ Public Class ClassEmailHeaderExtractor ''' ''' Eine Email vom Typ Msg.Message ''' Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist. - Public Shared Function getMessageHeaders(msg As Msg.Message) + Public Shared Function getMessageHeaders(msg As Msg.Message) As String Try Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ") Return headers @@ -38,7 +38,7 @@ Public Class ClassEmailHeaderExtractor ''' Eine Liste von Regular Expressions ''' Die Ergebnisgruppe, die die Adresse enthält ''' Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte. - Public Shared Function extractFromAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1) + Public Shared Function extractFromAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1) As String If IsNothing(messageHeaders) Then Return Nothing End If @@ -54,9 +54,9 @@ Public Class ClassEmailHeaderExtractor Return Nothing End Function - Public Shared Function extractFromHeader(messageHeaders As String, Regex As String) + Public Shared Function extractFromHeader(messageHeaders As String, Regex As String) As String Try - Dim result + Dim result As String Dim i As Integer = 0 If IsNothing(messageHeaders) Then Return Nothing @@ -93,7 +93,7 @@ Public Class ClassEmailHeaderExtractor ''' Eine Liste von Regular Expressions ''' Die Ergebnisgruppe, die die Adresse enthält ''' Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte. - Public Shared Function extractToAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1) + Public Shared Function extractToAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1) As String If IsNothing(messageHeaders) Then Return Nothing End If diff --git a/GUIs.ZooFlow/Globix/ClassFileDrop.vb b/GUIs.ZooFlow/Globix/ClassFileDrop.vb index b7cd7c17..1e10c4b2 100644 --- a/GUIs.ZooFlow/Globix/ClassFileDrop.vb +++ b/GUIs.ZooFlow/Globix/ClassFileDrop.vb @@ -1,4 +1,6 @@ -Imports System.IO +Option Strict Off + +Imports System.IO Imports DigitalData.Modules.Logging Imports Microsoft.Office.Interop @@ -10,7 +12,7 @@ Public Class ClassFileDrop _LOGGER = LogConfig.GetLogger() clsFilehandle = New ClassFilehandle() End Sub - Public Function Drop_File(e As DragEventArgs) + Public Function Drop_File(e As DragEventArgs) As Boolean Try _LOGGER.Info("Available Drop Formats:") @@ -24,7 +26,7 @@ Public Class ClassFileDrop Dim MyFiles() As String Dim i As Integer ' Assign the files to an array. - MyFiles = e.Data.GetData(DataFormats.FileDrop) + MyFiles = DirectCast(e.Data.GetData(DataFormats.FileDrop), String()) ' Loop through the array and add the files to the list. For i = 0 To MyFiles.Length - 1 _LOGGER.Info(">> Simple FileDrop - File: " & MyFiles(i)) @@ -143,8 +145,4 @@ Public Class ClassFileDrop Return False End Try End Function - - - - End Class diff --git a/GUIs.ZooFlow/Globix/ClassFilehandle.vb b/GUIs.ZooFlow/Globix/ClassFilehandle.vb index f7b7e7bc..346610e6 100644 --- a/GUIs.ZooFlow/Globix/ClassFilehandle.vb +++ b/GUIs.ZooFlow/Globix/ClassFilehandle.vb @@ -23,13 +23,13 @@ Public Class ClassFilehandle Dim r = New Regex(String.Format("[{0}]", Regex.Escape(regexSearch))) Return r.Replace(Input, replacement) End Function - Public Function Decide_FileHandle(filename As String, handletype As String) + Public Function Decide_FileHandle(filename As String, handletype As String) As Boolean Try If filename.EndsWith(".msg") Then My.Application.Globix.CurrMessageID = "" Dim _msg As New Msg.Message(filename) If _msg.Attachments.Count > 0 Then - Dim result As MsgBoxResult + Dim result As DialogResult If My.Application.User.Language = "de-DE" Then result = MessageBox.Show(New Form With {.TopMost = True}, "Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?", "Nachfrage zur Indexierung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) @@ -62,7 +62,7 @@ Public Class ClassFilehandle Return False End Try End Function - Private Function Email_Decay(msgname As String, Optional FW As Boolean = False) + Private Function Email_Decay(msgname As String, Optional FW As Boolean = False) As Boolean Try Dim msgonly As String = "|MSGONLY|" Dim ATT_EXTR As String = "|ATTMNTEXTRACTED|" @@ -147,7 +147,7 @@ Public Class ClassFilehandle End Try End Function - Private Function Insert_GI_File(filename As String, handleType As String) + Private Function Insert_GI_File(filename As String, handleType As String) As Boolean Try filename = filename.Replace("'", "''") @@ -183,9 +183,9 @@ Public Class ClassFilehandle End If End Function - Public Function Versionierung_Datei(Dateiname As String) - Dim extension - Dim _NewFileString + Public Function Versionierung_Datei(Dateiname As String) As String + Dim extension As String + Dim _NewFileString As String Try Dim version As Integer = 1 diff --git a/GUIs.ZooFlow/Globix/ClassFolderwatcher.vb b/GUIs.ZooFlow/Globix/ClassFolderwatcher.vb index f9f379ed..0264f80e 100644 --- a/GUIs.ZooFlow/Globix/ClassFolderwatcher.vb +++ b/GUIs.ZooFlow/Globix/ClassFolderwatcher.vb @@ -34,7 +34,7 @@ Public Class ClassFolderwatcher Logger.Error(ex.Message) End Try End Function - Public Function Restart_FolderWatchSCAN() + Public Sub Restart_FolderWatchSCAN() Try If FWScan.EnableRaisingEvents = True Then 'Gestartet also Stoppen @@ -53,13 +53,9 @@ Public Class ClassFolderwatcher Logger.Info($"Error in Restart_FolderWatchSCAN: {ex.Message}") Logger.Error(ex.Message) End Try - End Function - Public Function StartStop_FolderWatch() + End Sub + Public Sub StartStop_FolderWatch() Try - If My.Application.Globix.CurrentFolderWatchPath = "" Then - 'MsgBox("Bitte definieren Sie einen Überwachungsordner:", MsgBoxStyle.Exclamation) - Return False - End If If FWFolderWatcher Is Nothing Then FWFolderWatcher = New System.IO.FileSystemWatcher(My.Application.Globix.CurrentFolderWatchPath, "*.*") Logger.Info(" >> FolderWatch Gestartet") @@ -70,7 +66,6 @@ Public Class ClassFolderwatcher 'SaveConfigValue("my.Application.Globix.Folderwatchstarted", "True") My.UIConfig.Globix.FolderWatchStarted = True My.UIConfigManager.Save() - Return 1 End If If FWFolderWatcher.EnableRaisingEvents = False Then ' Dim watcher As New FileSystemWatcher() @@ -84,7 +79,6 @@ Public Class ClassFolderwatcher 'SaveConfigValue("my.Application.Globix.Folderwatchstarted", "True") My.UIConfig.Globix.FolderWatchStarted = True My.UIConfigManager.Save() - Return 1 Else 'Gestartet also Stoppen FWFolderWatcher.EnableRaisingEvents = False @@ -93,15 +87,12 @@ Public Class ClassFolderwatcher 'SaveConfigValue("my.Application.Globix.Folderwatchstarted", "False") My.UIConfig.Globix.FolderWatchStarted = False My.UIConfigManager.Save() - Return 0 End If - Catch ex As Exception Logger.Error(ex.Message) MsgBox("Error in StartStop_FolderWatch:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Return 99 End Try - End Function + End Sub Public Function StartStop_FolderWatchSCAN() As Integer Try If My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = "" Then diff --git a/GUIs.ZooFlow/My Project/Resources.Designer.vb b/GUIs.ZooFlow/My Project/Resources.Designer.vb index 5af157c3..e6b952ff 100644 --- a/GUIs.ZooFlow/My Project/Resources.Designer.vb +++ b/GUIs.ZooFlow/My Project/Resources.Designer.vb @@ -200,6 +200,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property about2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("about2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -310,6 +320,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property bo_appointment() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("bo_appointment", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' @@ -440,6 +460,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property markcomplete() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("markcomplete", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' @@ -480,6 +510,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property save3() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("save3", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/GUIs.ZooFlow/My Project/Resources.resx b/GUIs.ZooFlow/My Project/Resources.resx index eddd59f7..c96c888a 100644 --- a/GUIs.ZooFlow/My Project/Resources.resx +++ b/GUIs.ZooFlow/My Project/Resources.resx @@ -118,17 +118,20 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ..\Resources\CW_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ZooFlow-25.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\bell_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\4_GLOBIX_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\1_LOGO_ZOO_FLOW_DROP3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\actions_check2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\StatusAnnotations_Stop_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -136,8 +139,8 @@ ..\Resources\CW_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\ZooFlow-25.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\save3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -151,8 +154,8 @@ ..\Resources\DD_Icons_ICO_PMANAGER_128px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\actions_check2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\2_LUPE_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\4_GLOBIX_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -172,11 +175,14 @@ ..\Resources\actions_check.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\save2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\1_LOGO_ZOO_FLOW1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\2_LUPE_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\CW_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\2_ZOO_FLOW_Abo_MouseOver.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -190,8 +196,8 @@ ..\Resources\GLOBIX_short.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\4_GLOBIX_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -247,6 +253,9 @@ ..\Resources\updatedataextract.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\markcomplete.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\actions_edit.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -259,7 +268,10 @@ ..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\save2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\bo_appointment.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\about2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/about2.svg b/GUIs.ZooFlow/Resources/about2.svg new file mode 100644 index 00000000..1f67213d --- /dev/null +++ b/GUIs.ZooFlow/Resources/about2.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/bo_appointment.svg b/GUIs.ZooFlow/Resources/bo_appointment.svg new file mode 100644 index 00000000..f208bfc1 --- /dev/null +++ b/GUIs.ZooFlow/Resources/bo_appointment.svg @@ -0,0 +1,29 @@ + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/markcomplete.svg b/GUIs.ZooFlow/Resources/markcomplete.svg new file mode 100644 index 00000000..6a4b15a1 --- /dev/null +++ b/GUIs.ZooFlow/Resources/markcomplete.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/save3.svg b/GUIs.ZooFlow/Resources/save3.svg new file mode 100644 index 00000000..fb4f9a13 --- /dev/null +++ b/GUIs.ZooFlow/Resources/save3.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/ZooFlow.vbproj b/GUIs.ZooFlow/ZooFlow.vbproj index 6ef7e9ac..912138a8 100644 --- a/GUIs.ZooFlow/ZooFlow.vbproj +++ b/GUIs.ZooFlow/ZooFlow.vbproj @@ -26,6 +26,9 @@ true true prompt + + + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 AnyCPU @@ -35,6 +38,9 @@ false true prompt + + + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 WindowsForms @@ -120,13 +126,13 @@ Form - - - frmAdmin_SourceSQL.vb + + frmAdmin_IDBEntity.vb - + Form + @@ -279,8 +285,8 @@ frmAdmin_IDBAttribute.vb - - frmAdmin_SourceSQL.vb + + frmAdmin_IDBEntity.vb frmGlobixBasicConfig.vb @@ -580,6 +586,18 @@ + + + + + + + + + + + +