From a756c51f343e09188c760fde4fe04df74ee9baba Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 1 Apr 2021 12:07:40 +0200 Subject: [PATCH] ZooFlow: Administration --- .../frmAdmin_SourceSQL.Designer.vb | 488 +++ .../Administration/frmAdmin_SourceSQL.resx | 132 + .../Administration/frmAdmin_SourceSQL.vb | 49 + .../Administration/frmAdmin_Start.Designer.vb | 439 +- .../Administration/frmAdmin_Start.resx | 12 +- GUIs.ZooFlow/Administration/frmAdmin_Start.vb | 351 +- GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb | 3855 ++++++++++++----- GUIs.ZooFlow/DSIDB_Stammdaten.xsd | 190 +- GUIs.ZooFlow/DSIDB_Stammdaten.xss | 11 +- GUIs.ZooFlow/My Project/Resources.Designer.vb | 40 + GUIs.ZooFlow/My Project/Resources.resx | 20 +- GUIs.ZooFlow/Resources/actions_check4.svg | 15 + GUIs.ZooFlow/Resources/delete.svg | 18 + GUIs.ZooFlow/Resources/managedatasource1.svg | 9 + GUIs.ZooFlow/Resources/save7.svg | 7 + GUIs.ZooFlow/ZooFlow.vbproj | 21 + GUIs.ZooFlow/frmFlowForm.vb | 4 +- 17 files changed, 3962 insertions(+), 1699 deletions(-) create mode 100644 GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb create mode 100644 GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.resx create mode 100644 GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb create mode 100644 GUIs.ZooFlow/Resources/actions_check4.svg create mode 100644 GUIs.ZooFlow/Resources/delete.svg create mode 100644 GUIs.ZooFlow/Resources/managedatasource1.svg create mode 100644 GUIs.ZooFlow/Resources/save7.svg diff --git a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb new file mode 100644 index 00000000..b4bf5d1b --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb @@ -0,0 +1,488 @@ + +Partial Class frmAdmin_SourceSQL + Inherits frmAdmin_Base + + 'Form overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit() + Me.MemoEdit1 = New DevExpress.XtraEditors.MemoEdit() + Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit() + Me.TBZF_ADMIN_SOURCE_SQLBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() + Me.TextEdit7 = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWho = 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.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TBZF_ADMIN_SOURCE_SQLTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBZF_ADMIN_SOURCE_SQLTableAdapter() + Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() + CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MemoEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBZF_ADMIN_SOURCE_SQLBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWho.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.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl + ' + Me.RibbonControl.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified + Me.RibbonControl.ExpandCollapseItem.Id = 0 + Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3}) + Me.RibbonControl.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl.MaxItemId = 4 + Me.RibbonControl.Name = "RibbonControl" + Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl.ShowToolbarCustomizeItem = False + Me.RibbonControl.Size = New System.Drawing.Size(768, 63) + Me.RibbonControl.StatusBar = Me.RibbonStatusBar + Me.RibbonControl.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_check4 + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Speichern" + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save7 + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Löschen" + Me.BarButtonItem3.Id = 3 + Me.BarButtonItem3.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.delete + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonStatusBar + ' + Me.RibbonStatusBar.Location = New System.Drawing.Point(0, 583) + Me.RibbonStatusBar.Name = "RibbonStatusBar" + Me.RibbonStatusBar.Ribbon = Me.RibbonControl + Me.RibbonStatusBar.Size = New System.Drawing.Size(768, 24) + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.TextEdit1) + Me.LayoutControl1.Controls.Add(Me.TextEdit2) + Me.LayoutControl1.Controls.Add(Me.TextEdit3) + Me.LayoutControl1.Controls.Add(Me.TextEdit4) + Me.LayoutControl1.Controls.Add(Me.TextEdit5) + Me.LayoutControl1.Controls.Add(Me.MemoEdit1) + Me.LayoutControl1.Controls.Add(Me.txtAddedWho) + Me.LayoutControl1.Controls.Add(Me.TextEdit7) + Me.LayoutControl1.Controls.Add(Me.txtChangedWho) + 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.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(768, 520) + Me.LayoutControl1.TabIndex = 2 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'TextEdit1 + ' + Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "GUID", True)) + Me.TextEdit1.Location = New System.Drawing.Point(99, 20) + Me.TextEdit1.MenuManager = Me.RibbonControl + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Properties.ReadOnly = True + Me.TextEdit1.Size = New System.Drawing.Size(649, 20) + Me.TextEdit1.StyleController = Me.LayoutControl1 + Me.TextEdit1.TabIndex = 4 + ' + 'TextEdit2 + ' + Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "ENTITY_TITLE", True)) + Me.TextEdit2.Location = New System.Drawing.Point(99, 60) + Me.TextEdit2.MenuManager = Me.RibbonControl + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.Size = New System.Drawing.Size(649, 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, "PK_COLUMN", True)) + Me.TextEdit3.Location = New System.Drawing.Point(99, 100) + Me.TextEdit3.MenuManager = Me.RibbonControl + Me.TextEdit3.Name = "TextEdit3" + Me.TextEdit3.Size = New System.Drawing.Size(649, 20) + Me.TextEdit3.StyleController = Me.LayoutControl1 + Me.TextEdit3.TabIndex = 6 + ' + 'TextEdit4 + ' + Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "FK_COLUMN", True)) + Me.TextEdit4.Location = New System.Drawing.Point(99, 140) + Me.TextEdit4.MenuManager = Me.RibbonControl + Me.TextEdit4.Name = "TextEdit4" + Me.TextEdit4.Size = New System.Drawing.Size(649, 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, "SCOPE", True)) + Me.TextEdit5.Location = New System.Drawing.Point(99, 180) + Me.TextEdit5.MenuManager = Me.RibbonControl + Me.TextEdit5.Name = "TextEdit5" + Me.TextEdit5.Size = New System.Drawing.Size(649, 20) + Me.TextEdit5.StyleController = Me.LayoutControl1 + Me.TextEdit5.TabIndex = 8 + ' + 'MemoEdit1 + ' + Me.MemoEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "SQL_COMMAND", True)) + Me.MemoEdit1.Location = New System.Drawing.Point(99, 220) + Me.MemoEdit1.MenuManager = Me.RibbonControl + Me.MemoEdit1.Name = "MemoEdit1" + Me.MemoEdit1.Size = New System.Drawing.Size(649, 128) + Me.MemoEdit1.StyleController = Me.LayoutControl1 + Me.MemoEdit1.TabIndex = 9 + ' + '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, 368) + Me.txtAddedWho.MenuManager = Me.RibbonControl + Me.txtAddedWho.Name = "txtAddedWho" + Me.txtAddedWho.Properties.ReadOnly = True + Me.txtAddedWho.Size = New System.Drawing.Size(275, 20) + Me.txtAddedWho.StyleController = Me.LayoutControl1 + Me.txtAddedWho.TabIndex = 10 + ' + 'TBZF_ADMIN_SOURCE_SQLBindingSource + ' + Me.TBZF_ADMIN_SOURCE_SQLBindingSource.DataMember = "TBZF_ADMIN_SOURCE_SQL" + Me.TBZF_ADMIN_SOURCE_SQLBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'DSIDB_Stammdaten + ' + Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten" + Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TextEdit7 + ' + Me.TextEdit7.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "ADDED_WHEN", True)) + Me.TextEdit7.Location = New System.Drawing.Point(473, 368) + Me.TextEdit7.MenuManager = Me.RibbonControl + Me.TextEdit7.Name = "TextEdit7" + Me.TextEdit7.Properties.ReadOnly = True + Me.TextEdit7.Size = New System.Drawing.Size(275, 20) + Me.TextEdit7.StyleController = Me.LayoutControl1 + Me.TextEdit7.TabIndex = 11 + ' + '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, 408) + Me.txtChangedWho.MenuManager = Me.RibbonControl + Me.txtChangedWho.Name = "txtChangedWho" + Me.txtChangedWho.Properties.ReadOnly = True + Me.txtChangedWho.Size = New System.Drawing.Size(275, 20) + Me.txtChangedWho.StyleController = Me.LayoutControl1 + Me.txtChangedWho.TabIndex = 12 + ' + '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(473, 408) + Me.TextEdit9.MenuManager = Me.RibbonControl + Me.TextEdit9.Name = "TextEdit9" + Me.TextEdit9.Properties.ReadOnly = True + Me.TextEdit9.Size = New System.Drawing.Size(275, 20) + Me.TextEdit9.StyleController = Me.LayoutControl1 + Me.TextEdit9.TabIndex = 13 + ' + '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.EmptySpaceItem1, Me.LayoutControlItem7, Me.LayoutControlItem9, Me.LayoutControlItem8, Me.LayoutControlItem10}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(768, 520) + Me.Root.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.TextEdit1 + 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(748, 40) + Me.LayoutControlItem1.Text = "GUID" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(76, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.TextEdit2 + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 40) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem2.Size = New System.Drawing.Size(748, 40) + Me.LayoutControlItem2.Text = "Entity Title" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(76, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.TextEdit3 + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 80) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem3.Size = New System.Drawing.Size(748, 40) + Me.LayoutControlItem3.Text = "Primary Key" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(76, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.TextEdit4 + 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(748, 40) + Me.LayoutControlItem4.Text = "Foreign Key" + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(76, 13) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.TextEdit5 + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 160) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem5.Size = New System.Drawing.Size(748, 40) + Me.LayoutControlItem5.Text = "Scope" + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(76, 13) + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.MemoEdit1 + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 200) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem6.Size = New System.Drawing.Size(748, 148) + Me.LayoutControlItem6.Text = "SQL Command" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(76, 13) + ' + 'EmptySpaceItem1 + ' + Me.EmptySpaceItem1.AllowHotTrack = False + Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 428) + Me.EmptySpaceItem1.Name = "EmptySpaceItem1" + Me.EmptySpaceItem1.Size = New System.Drawing.Size(748, 72) + Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.txtAddedWho + Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 348) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem7.Size = New System.Drawing.Size(374, 40) + Me.LayoutControlItem7.Text = "Erstellt Wer" + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(76, 13) + ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.Control = Me.txtChangedWho + Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 388) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem9.Size = New System.Drawing.Size(374, 40) + Me.LayoutControlItem9.Text = "Geändert Wer" + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(76, 13) + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.TextEdit7 + Me.LayoutControlItem8.Location = New System.Drawing.Point(374, 348) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem8.Size = New System.Drawing.Size(374, 40) + Me.LayoutControlItem8.Text = "Erstellt Wann" + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(76, 13) + ' + 'LayoutControlItem10 + ' + Me.LayoutControlItem10.Control = Me.TextEdit9 + Me.LayoutControlItem10.Location = New System.Drawing.Point(374, 388) + Me.LayoutControlItem10.Name = "LayoutControlItem10" + Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem10.Size = New System.Drawing.Size(374, 40) + Me.LayoutControlItem10.Text = "Geändert Wann" + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(76, 13) + ' + 'TBZF_ADMIN_SOURCE_SQLTableAdapter + ' + Me.TBZF_ADMIN_SOURCE_SQLTableAdapter.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.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'frmAdmin_SourceSQL + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(768, 607) + Me.Controls.Add(Me.LayoutControl1) + Me.Controls.Add(Me.RibbonStatusBar) + Me.Controls.Add(Me.RibbonControl) + Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.managedatasource1 + Me.Name = "frmAdmin_SourceSQL" + Me.Ribbon = Me.RibbonControl + Me.StatusBar = Me.RibbonStatusBar + Me.Text = "Source SQL" + CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MemoEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBZF_ADMIN_SOURCE_SQLBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWho.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.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit4 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit5 As DevExpress.XtraEditors.TextEdit + Friend WithEvents MemoEdit1 As DevExpress.XtraEditors.MemoEdit + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem + 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 txtAddedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit7 As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit9 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem +End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.resx b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.resx new file mode 100644 index 00000000..fbbe0e94 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 177, 17 + + + 17, 17 + + + 457, 17 + + + 731, 17 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb new file mode 100644 index 00000000..cfdf0ab8 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb @@ -0,0 +1,49 @@ +Public Class frmAdmin_SourceSQL + Implements frmAdmin_Interface + + Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey + + Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges + + Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert + + Public Sub New(PrimaryKey As Integer) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.PrimaryKey = PrimaryKey + End Sub + + Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData + Try + TBZF_ADMIN_SOURCE_SQLBindingSource.EndEdit() + + If DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY.GetChanges() IsNot Nothing Then + HasChanges = True + + If IsInsert Then + txtAddedWho.EditValue = My.Application.User.UserName + Else + txtChangedWho.EditValue = My.Application.User.UserName + End If + + TBZF_ADMIN_SOURCE_SQLBindingSource.EndEdit() + TBZF_ADMIN_SOURCE_SQLTableAdapter.Update(DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL) + End If + + Return True + Catch ex As Exception + ShowError(ex) + Return False + End Try + End Function + + Private Sub frmAdmin_SourceSQL_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + TBZF_ADMIN_SOURCE_SQLTableAdapter.Fill(DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL, PrimaryKey) + Catch ex As Exception + ShowError(ex) + End Try + 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 9c4f21ba..cff44f8e 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb @@ -55,19 +55,14 @@ Partial Class frmAdmin_Start Me.BarButtonItem23 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem24 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem25 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem26 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem27 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem28 = 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() - Me.RibbonGroup_ClipboardWatcher_DataSearch = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonGroup_ClipboardWatcher_Control = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonGroup_ClipboardWatcher_Window = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonGroup_ClipboardWatcher_Process = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonPage_GlobalIndexer = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup20 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup21 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.TreeListMenu = New DevExpress.XtraTreeList.TreeList() @@ -80,23 +75,9 @@ Partial Class frmAdmin_Start Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() Me.TBIDB_ATTRIBUTE_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.XtraTabPage_IDB = New DevExpress.XtraTab.XtraTabPage() - Me.XtraTabControlIDB = New DevExpress.XtraTab.XtraTabControl() - Me.XtraTabPageIDB_Attributes_New = New DevExpress.XtraTab.XtraTabPage() - Me.TreeList_IDBAttributes = New DevExpress.XtraTreeList.TreeList() Me.IDBImages = New DevExpress.Utils.SvgImageCollection(Me.components) - Me.XtraTabPageIDB_Entities = New DevExpress.XtraTab.XtraTabPage() - Me.TreeList_IDBEntities = New DevExpress.XtraTreeList.TreeList() - Me.XtraTabPage_GlobalIndexer = New DevExpress.XtraTab.XtraTabPage() - Me.TreeList_GLOBIXProfiles = 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.TreeList_CWProfiles = New DevExpress.XtraTreeList.TreeList() - Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() Me.CWImages = New DevExpress.Utils.SvgImageCollection(Me.components) - Me.XtraTabControl = New DevExpress.XtraTab.XtraTabControl() Me.Panel1 = New System.Windows.Forms.Panel() Me.labelTitle = New System.Windows.Forms.Label() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() @@ -120,6 +101,17 @@ Partial Class frmAdmin_Start Me.RibbonPageGroup17 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup18 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup19 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.RibbonPageGroupAttributes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPage_IDB = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonGroup_ClipboardWatcher_Process = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroup_ClipboardWatcher_Window = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroup_ClipboardWatcher_Control = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroup_ClipboardWatcher_DataSearch = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroup_ClipboardWatcher_DocSearch = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroup_ClipboardWatcher_Profile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPage_ClipboardWatcher = New DevExpress.XtraBars.Ribbon.RibbonPage() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TreeListMenu, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MainTreeImages, System.ComponentModel.ISupportInitialize).BeginInit() @@ -129,41 +121,27 @@ Partial Class frmAdmin_Start CType(Me.TBIDB_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBIDB_ATTRIBUTE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - Me.XtraTabPage_IDB.SuspendLayout() - CType(Me.XtraTabControlIDB, System.ComponentModel.ISupportInitialize).BeginInit() - Me.XtraTabControlIDB.SuspendLayout() - Me.XtraTabPageIDB_Attributes_New.SuspendLayout() - CType(Me.TreeList_IDBAttributes, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.IDBImages, System.ComponentModel.ISupportInitialize).BeginInit() - Me.XtraTabPageIDB_Entities.SuspendLayout() - CType(Me.TreeList_IDBEntities, System.ComponentModel.ISupportInitialize).BeginInit() - Me.XtraTabPage_GlobalIndexer.SuspendLayout() - CType(Me.TreeList_GLOBIXProfiles, 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.TreeList_CWProfiles, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CWImages, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).BeginInit() - Me.XtraTabControl.SuspendLayout() Me.Panel1.SuspendLayout() CType(Me.ActiveImages, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TypeImages, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.labelStatus, Me.labelError, Me.BarButtonItemAddAttribute, Me.BarButtonItemRefreshAttribute, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.BarButtonItem20, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.labelStatus, Me.labelError, Me.BarButtonItemAddAttribute, Me.BarButtonItemRefreshAttribute, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.BarButtonItem20, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.BarButtonItem26, Me.BarButtonItem27, Me.BarButtonItem28}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 31 + Me.RibbonControl1.MaxItemId = 34 Me.RibbonControl1.Name = "RibbonControl1" - Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage_IDB, Me.RibbonPage_ClipboardWatcher, Me.RibbonPage_GlobalIndexer}) + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowToolbarCustomizeItem = False - Me.RibbonControl1.Size = New System.Drawing.Size(1077, 159) + Me.RibbonControl1.Size = New System.Drawing.Size(1077, 158) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.Toolbar.ShowCustomizeItem = False ' @@ -366,9 +344,27 @@ Partial Class frmAdmin_Start Me.BarButtonItem25.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_deletecircled5 Me.BarButtonItem25.Name = "BarButtonItem25" ' + 'BarButtonItem26 + ' + Me.BarButtonItem26.Caption = "BarButtonItem26" + Me.BarButtonItem26.Id = 31 + Me.BarButtonItem26.Name = "BarButtonItem26" + ' + 'BarButtonItem27 + ' + Me.BarButtonItem27.Caption = "BarButtonItem27" + Me.BarButtonItem27.Id = 32 + Me.BarButtonItem27.Name = "BarButtonItem27" + ' + 'BarButtonItem28 + ' + Me.BarButtonItem28.Caption = "BarButtonItem28" + Me.BarButtonItem28.Id = 33 + Me.BarButtonItem28.Name = "BarButtonItem28" + ' 'RibbonPage1 ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2}) + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1, Me.RibbonPageGroup20, Me.RibbonPageGroup21}) Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Text = "Start" ' @@ -379,95 +375,32 @@ Partial Class frmAdmin_Start Me.RibbonPageGroup2.Name = "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 - ' - Me.RibbonPage_ClipboardWatcher.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonGroup_ClipboardWatcher_Profile, Me.RibbonGroup_ClipboardWatcher_DocSearch, Me.RibbonGroup_ClipboardWatcher_DataSearch, Me.RibbonGroup_ClipboardWatcher_Control, Me.RibbonGroup_ClipboardWatcher_Window, Me.RibbonGroup_ClipboardWatcher_Process}) - Me.RibbonPage_ClipboardWatcher.Name = "RibbonPage_ClipboardWatcher" - Me.RibbonPage_ClipboardWatcher.Text = "Clipboard Watcher" - ' - 'RibbonGroup_ClipboardWatcher_Profile - ' - Me.RibbonGroup_ClipboardWatcher_Profile.ItemLinks.Add(Me.BarButtonItem1) - Me.RibbonGroup_ClipboardWatcher_Profile.ItemLinks.Add(Me.BarButtonItem10) - Me.RibbonGroup_ClipboardWatcher_Profile.ItemLinks.Add(Me.BarButtonItem5) - Me.RibbonGroup_ClipboardWatcher_Profile.ItemLinks.Add(Me.BarButtonItem3) - Me.RibbonGroup_ClipboardWatcher_Profile.ItemLinks.Add(Me.BarButtonItem4) - Me.RibbonGroup_ClipboardWatcher_Profile.Name = "RibbonGroup_ClipboardWatcher_Profile" - Me.RibbonGroup_ClipboardWatcher_Profile.Text = "Profil-Verwaltung" - ' - 'RibbonGroup_ClipboardWatcher_DocSearch - ' - Me.RibbonGroup_ClipboardWatcher_DocSearch.ItemLinks.Add(Me.BarButtonItem12) - Me.RibbonGroup_ClipboardWatcher_DocSearch.ItemLinks.Add(Me.BarButtonItem15) - Me.RibbonGroup_ClipboardWatcher_DocSearch.Name = "RibbonGroup_ClipboardWatcher_DocSearch" - Me.RibbonGroup_ClipboardWatcher_DocSearch.Text = "Dokument-Suchen" - ' - 'RibbonGroup_ClipboardWatcher_DataSearch - ' - Me.RibbonGroup_ClipboardWatcher_DataSearch.ItemLinks.Add(Me.BarButtonItem13) - Me.RibbonGroup_ClipboardWatcher_DataSearch.ItemLinks.Add(Me.BarButtonItem14) - Me.RibbonGroup_ClipboardWatcher_DataSearch.Name = "RibbonGroup_ClipboardWatcher_DataSearch" - Me.RibbonGroup_ClipboardWatcher_DataSearch.Text = "Daten-Suchen" - ' - 'RibbonGroup_ClipboardWatcher_Control - ' - Me.RibbonGroup_ClipboardWatcher_Control.ItemLinks.Add(Me.BarButtonItem24) - Me.RibbonGroup_ClipboardWatcher_Control.ItemLinks.Add(Me.BarButtonItem25) - Me.RibbonGroup_ClipboardWatcher_Control.Name = "RibbonGroup_ClipboardWatcher_Control" - Me.RibbonGroup_ClipboardWatcher_Control.Text = "Feld-Zuordnung" - ' - 'RibbonGroup_ClipboardWatcher_Window - ' - Me.RibbonGroup_ClipboardWatcher_Window.ItemLinks.Add(Me.BarButtonItem20) - Me.RibbonGroup_ClipboardWatcher_Window.ItemLinks.Add(Me.BarButtonItem21) - Me.RibbonGroup_ClipboardWatcher_Window.ItemLinks.Add(Me.BarButtonItem22) - Me.RibbonGroup_ClipboardWatcher_Window.ItemLinks.Add(Me.BarButtonItem23) - Me.RibbonGroup_ClipboardWatcher_Window.Name = "RibbonGroup_ClipboardWatcher_Window" - Me.RibbonGroup_ClipboardWatcher_Window.Text = "Fenster-Zuordnung" + 'RibbonPageGroup1 ' - 'RibbonGroup_ClipboardWatcher_Process + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem26) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem27) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem28) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "IDB" ' - Me.RibbonGroup_ClipboardWatcher_Process.ItemLinks.Add(Me.BarButtonItem16) - Me.RibbonGroup_ClipboardWatcher_Process.ItemLinks.Add(Me.BarButtonItem17) - Me.RibbonGroup_ClipboardWatcher_Process.ItemLinks.Add(Me.BarButtonItem18) - Me.RibbonGroup_ClipboardWatcher_Process.ItemLinks.Add(Me.BarButtonItem19) - Me.RibbonGroup_ClipboardWatcher_Process.Name = "RibbonGroup_ClipboardWatcher_Process" - Me.RibbonGroup_ClipboardWatcher_Process.Text = "Prozess-Zuordnung" + 'RibbonPageGroup20 ' - 'RibbonPage_GlobalIndexer + Me.RibbonPageGroup20.Name = "RibbonPageGroup20" + Me.RibbonPageGroup20.Text = "GLOBIX" ' - Me.RibbonPage_GlobalIndexer.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) - Me.RibbonPage_GlobalIndexer.Name = "RibbonPage_GlobalIndexer" - Me.RibbonPage_GlobalIndexer.Text = "Global Indexer" + 'RibbonPageGroup21 ' - 'RibbonPageGroup1 - ' - Me.RibbonPageGroup1.Name = "RibbonPageGroup1" - Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + Me.RibbonPageGroup21.Name = "RibbonPageGroup21" + Me.RibbonPageGroup21.Text = "CW" ' 'RibbonStatusBar1 ' Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError) - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 654) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 652) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(1077, 22) + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1077, 24) ' 'RibbonPage2 ' @@ -491,6 +424,8 @@ Partial Class frmAdmin_Start 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"}, 5, 4, 4, -1, "CW_PROFILES") + Me.TreeListMenu.AppendNode(New Object() {"Administration"}, -1) + Me.TreeListMenu.AppendNode(New Object() {"Source SQL"}, 7, 3, 3, -1, "META_SOURCE_SQL") Me.TreeListMenu.EndUnboundLoad() Me.TreeListMenu.OptionsBehavior.Editable = False Me.TreeListMenu.OptionsView.ShowColumns = False @@ -498,7 +433,7 @@ Partial Class frmAdmin_Start Me.TreeListMenu.OptionsView.ShowIndicator = False Me.TreeListMenu.OptionsView.ShowVertLines = False Me.TreeListMenu.SelectImageList = Me.MainTreeImages - Me.TreeListMenu.Size = New System.Drawing.Size(193, 446) + Me.TreeListMenu.Size = New System.Drawing.Size(193, 465) Me.TreeListMenu.TabIndex = 8 ' 'TreeListColumn1 @@ -529,18 +464,18 @@ Partial Class frmAdmin_Start Me.DockPanel1.Controls.Add(Me.DockPanel1_Container) Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left Me.DockPanel1.ID = New System.Guid("ce81b5b5-eff5-4006-8018-548aa8413799") - Me.DockPanel1.Location = New System.Drawing.Point(0, 159) + Me.DockPanel1.Location = New System.Drawing.Point(0, 158) Me.DockPanel1.Name = "DockPanel1" Me.DockPanel1.OriginalSize = New System.Drawing.Size(200, 200) - Me.DockPanel1.Size = New System.Drawing.Size(200, 495) + Me.DockPanel1.Size = New System.Drawing.Size(200, 494) Me.DockPanel1.Text = "Übersicht" ' 'DockPanel1_Container ' Me.DockPanel1_Container.Controls.Add(Me.TreeListMenu) - Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 46) + Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 26) Me.DockPanel1_Container.Name = "DockPanel1_Container" - Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 446) + Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 465) Me.DockPanel1_Container.TabIndex = 0 ' 'TBIDB_ATTRIBUTEBindingSource @@ -567,129 +502,17 @@ Partial Class frmAdmin_Start Me.TBIDB_ATTRIBUTE_TYPEBindingSource.DataMember = "TBIDB_ATTRIBUTE_TYPE" Me.TBIDB_ATTRIBUTE_TYPEBindingSource.DataSource = Me.DSIDB_Stammdaten ' - 'XtraTabPage_IDB - ' - Me.XtraTabPage_IDB.Controls.Add(Me.XtraTabControlIDB) - Me.XtraTabPage_IDB.Name = "XtraTabPage_IDB" - Me.XtraTabPage_IDB.Size = New System.Drawing.Size(875, 426) - Me.XtraTabPage_IDB.Text = "IDB" - ' - 'XtraTabControlIDB - ' - Me.XtraTabControlIDB.Dock = System.Windows.Forms.DockStyle.Fill - 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(875, 426) - Me.XtraTabControlIDB.TabIndex = 0 - 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.TreeList_IDBAttributes) - Me.XtraTabPageIDB_Attributes_New.Name = "XtraTabPageIDB_Attributes_New" - Me.XtraTabPageIDB_Attributes_New.Size = New System.Drawing.Size(873, 403) - Me.XtraTabPageIDB_Attributes_New.Text = "Attribute" - ' - 'TreeList_IDBAttributes - ' - Me.TreeList_IDBAttributes.Dock = System.Windows.Forms.DockStyle.Fill - Me.TreeList_IDBAttributes.Location = New System.Drawing.Point(0, 0) - Me.TreeList_IDBAttributes.MenuManager = Me.RibbonControl1 - Me.TreeList_IDBAttributes.Name = "TreeList_IDBAttributes" - Me.TreeList_IDBAttributes.Size = New System.Drawing.Size(873, 403) - Me.TreeList_IDBAttributes.StateImageList = Me.IDBImages - Me.TreeList_IDBAttributes.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.TreeList_IDBEntities) - Me.XtraTabPageIDB_Entities.Name = "XtraTabPageIDB_Entities" - Me.XtraTabPageIDB_Entities.Size = New System.Drawing.Size(873, 403) - Me.XtraTabPageIDB_Entities.Text = "Entitäten" - ' - 'TreeList_IDBEntities - ' - Me.TreeList_IDBEntities.Dock = System.Windows.Forms.DockStyle.Fill - Me.TreeList_IDBEntities.Location = New System.Drawing.Point(0, 0) - Me.TreeList_IDBEntities.MenuManager = Me.RibbonControl1 - Me.TreeList_IDBEntities.Name = "TreeList_IDBEntities" - Me.TreeList_IDBEntities.Size = New System.Drawing.Size(873, 403) - Me.TreeList_IDBEntities.StateImageList = Me.IDBImages - Me.TreeList_IDBEntities.TabIndex = 0 - ' - 'XtraTabPage_GlobalIndexer - ' - Me.XtraTabPage_GlobalIndexer.Controls.Add(Me.TreeList_GLOBIXProfiles) - Me.XtraTabPage_GlobalIndexer.Name = "XtraTabPage_GlobalIndexer" - Me.XtraTabPage_GlobalIndexer.PageVisible = False - Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(875, 426) - Me.XtraTabPage_GlobalIndexer.Text = "Global Indexer" - ' - 'TreeList_GLOBIXProfiles - ' - Me.TreeList_GLOBIXProfiles.Dock = System.Windows.Forms.DockStyle.Fill - Me.TreeList_GLOBIXProfiles.Location = New System.Drawing.Point(0, 0) - Me.TreeList_GLOBIXProfiles.MenuManager = Me.RibbonControl1 - Me.TreeList_GLOBIXProfiles.Name = "TreeList_GLOBIXProfiles" - Me.TreeList_GLOBIXProfiles.PreviewFieldName = "Title" - Me.TreeList_GLOBIXProfiles.Size = New System.Drawing.Size(875, 426) - Me.TreeList_GLOBIXProfiles.StateImageList = Me.GLOBIXImages - Me.TreeList_GLOBIXProfiles.TabIndex = 0 - ' 'GLOBIXImages ' Me.GLOBIXImages.Add("bo_document", "image://svgimages/business objects/bo_document.svg") Me.GLOBIXImages.Add("calculatenow", "image://svgimages/spreadsheet/calculatenow.svg") Me.GLOBIXImages.Add("calculationoptions", "image://svgimages/spreadsheet/calculationoptions.svg") ' - 'XtraTabPage_ClipboardWatcher - ' - 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(875, 426) - 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(875, 426) - Me.XtraTabControl1.TabIndex = 0 - Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageCWProfiles, Me.XtraTabPage2}) - ' - 'XtraTabPageCWProfiles - ' - Me.XtraTabPageCWProfiles.Controls.Add(Me.TreeList_CWProfiles) - Me.XtraTabPageCWProfiles.Name = "XtraTabPageCWProfiles" - Me.XtraTabPageCWProfiles.Size = New System.Drawing.Size(873, 403) - Me.XtraTabPageCWProfiles.Text = "Profile" - ' - 'TreeList_CWProfiles - ' - Me.TreeList_CWProfiles.Dock = System.Windows.Forms.DockStyle.Fill - Me.TreeList_CWProfiles.KeyFieldName = "" - Me.TreeList_CWProfiles.Location = New System.Drawing.Point(0, 0) - Me.TreeList_CWProfiles.MenuManager = Me.RibbonControl1 - Me.TreeList_CWProfiles.Name = "TreeList_CWProfiles" - Me.TreeList_CWProfiles.ParentFieldName = "" - Me.TreeList_CWProfiles.Size = New System.Drawing.Size(873, 403) - Me.TreeList_CWProfiles.TabIndex = 2 - ' - 'XtraTabPage2 - ' - Me.XtraTabPage2.Name = "XtraTabPage2" - Me.XtraTabPage2.Size = New System.Drawing.Size(873, 403) - Me.XtraTabPage2.Text = "XtraTabPage2" - ' 'CWImages ' Me.CWImages.Add("detailed", "image://svgimages/outlook inspired/detailed.svg") @@ -697,22 +520,11 @@ Partial Class frmAdmin_Start Me.CWImages.Add("bo_appointment", "image://svgimages/business objects/bo_appointment.svg") Me.CWImages.Add("editnames", "image://svgimages/dashboards/editnames.svg") ' - 'XtraTabControl - ' - Me.XtraTabControl.Dock = System.Windows.Forms.DockStyle.Fill - 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(877, 449) - 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.Location = New System.Drawing.Point(200, 158) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(877, 46) Me.Panel1.TabIndex = 8 @@ -912,12 +724,75 @@ Partial Class frmAdmin_Start Me.RibbonPageGroup19.Name = "RibbonPageGroup19" Me.RibbonPageGroup19.Text = "Prozess-Zuordnung" ' + 'GridControl1 + ' + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl1.Location = New System.Drawing.Point(200, 204) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.MenuManager = Me.RibbonControl1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(877, 448) + Me.GridControl1.TabIndex = 12 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'GridView1 + ' + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + ' + 'RibbonPageGroupAttributes + ' + Me.RibbonPageGroupAttributes.Name = "RibbonPageGroupAttributes" + Me.RibbonPageGroupAttributes.Text = "Attribute" + ' + '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" + ' + 'RibbonGroup_ClipboardWatcher_Process + ' + Me.RibbonGroup_ClipboardWatcher_Process.Name = "RibbonGroup_ClipboardWatcher_Process" + Me.RibbonGroup_ClipboardWatcher_Process.Text = "Prozess-Zuordnung" + ' + 'RibbonGroup_ClipboardWatcher_Window + ' + Me.RibbonGroup_ClipboardWatcher_Window.Name = "RibbonGroup_ClipboardWatcher_Window" + Me.RibbonGroup_ClipboardWatcher_Window.Text = "Fenster-Zuordnung" + ' + 'RibbonGroup_ClipboardWatcher_Control + ' + Me.RibbonGroup_ClipboardWatcher_Control.Name = "RibbonGroup_ClipboardWatcher_Control" + Me.RibbonGroup_ClipboardWatcher_Control.Text = "Feld-Zuordnung" + ' + 'RibbonGroup_ClipboardWatcher_DataSearch + ' + Me.RibbonGroup_ClipboardWatcher_DataSearch.Name = "RibbonGroup_ClipboardWatcher_DataSearch" + Me.RibbonGroup_ClipboardWatcher_DataSearch.Text = "Daten-Suchen" + ' + 'RibbonGroup_ClipboardWatcher_DocSearch + ' + Me.RibbonGroup_ClipboardWatcher_DocSearch.Name = "RibbonGroup_ClipboardWatcher_DocSearch" + Me.RibbonGroup_ClipboardWatcher_DocSearch.Text = "Dokument-Suchen" + ' + 'RibbonGroup_ClipboardWatcher_Profile + ' + Me.RibbonGroup_ClipboardWatcher_Profile.Name = "RibbonGroup_ClipboardWatcher_Profile" + Me.RibbonGroup_ClipboardWatcher_Profile.Text = "Profil-Verwaltung" + ' + 'RibbonPage_ClipboardWatcher + ' + Me.RibbonPage_ClipboardWatcher.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonGroup_ClipboardWatcher_Profile, Me.RibbonGroup_ClipboardWatcher_DocSearch, Me.RibbonGroup_ClipboardWatcher_DataSearch, Me.RibbonGroup_ClipboardWatcher_Control, Me.RibbonGroup_ClipboardWatcher_Window, Me.RibbonGroup_ClipboardWatcher_Process}) + Me.RibbonPage_ClipboardWatcher.Name = "RibbonPage_ClipboardWatcher" + Me.RibbonPage_ClipboardWatcher.Text = "Clipboard Watcher" + ' '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(1077, 676) - Me.Controls.Add(Me.XtraTabControl) + Me.Controls.Add(Me.GridControl1) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.DockPanel1) Me.Controls.Add(Me.RibbonStatusBar1) @@ -936,46 +811,25 @@ Partial Class frmAdmin_Start CType(Me.TBIDB_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBIDB_ATTRIBUTE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.XtraTabPage_IDB.ResumeLayout(False) - CType(Me.XtraTabControlIDB, System.ComponentModel.ISupportInitialize).EndInit() - Me.XtraTabControlIDB.ResumeLayout(False) - Me.XtraTabPageIDB_Attributes_New.ResumeLayout(False) - CType(Me.TreeList_IDBAttributes, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.IDBImages, System.ComponentModel.ISupportInitialize).EndInit() - Me.XtraTabPageIDB_Entities.ResumeLayout(False) - CType(Me.TreeList_IDBEntities, System.ComponentModel.ISupportInitialize).EndInit() - Me.XtraTabPage_GlobalIndexer.ResumeLayout(False) - CType(Me.TreeList_GLOBIXProfiles, 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.TreeList_CWProfiles, 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) CType(Me.ActiveImages, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TypeImages, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl - Friend WithEvents RibbonPage_ClipboardWatcher As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents RibbonGroup_ClipboardWatcher_Profile As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonGroup_ClipboardWatcher_DocSearch As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents TreeListMenu As DevExpress.XtraTreeList.TreeList Friend WithEvents TreeListColumn1 As DevExpress.XtraTreeList.Columns.TreeListColumn Friend WithEvents MainTreeImages As DevExpress.Utils.SvgImageCollection - Friend WithEvents RibbonGroup_ClipboardWatcher_DataSearch As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonGroup_ClipboardWatcher_Process As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonGroup_ClipboardWatcher_Window As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonGroup_ClipboardWatcher_Control As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem @@ -983,8 +837,6 @@ Partial Class frmAdmin_Start Friend WithEvents DockPanel1 As DevExpress.XtraBars.Docking.DockPanel Friend WithEvents DockPanel1_Container As DevExpress.XtraBars.Docking.ControlContainer Friend WithEvents DockManager1 As DevExpress.XtraBars.Docking.DockManager - Friend WithEvents RibbonPage_GlobalIndexer As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem Friend WithEvents labelError As DevExpress.XtraBars.BarStaticItem @@ -996,32 +848,16 @@ Partial Class frmAdmin_Start Friend WithEvents DELETED_WHENTextBox As TextBox Friend WithEvents TBIDB_ATTRIBUTE_TYPEBindingSource As BindingSource Friend WithEvents BarButtonItemAddAttribute As DevExpress.XtraBars.BarButtonItem - Friend WithEvents RibbonPage_IDB As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents RibbonPageGroupAttributes As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents BarButtonItemRefreshAttribute As DevExpress.XtraBars.BarButtonItem - Friend WithEvents XtraTabControl As DevExpress.XtraTab.XtraTabControl - Friend WithEvents XtraTabPage_ClipboardWatcher As DevExpress.XtraTab.XtraTabPage - Friend WithEvents XtraTabPage_GlobalIndexer As DevExpress.XtraTab.XtraTabPage - 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 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 XtraTabControl1 As DevExpress.XtraTab.XtraTabControl - Friend WithEvents XtraTabPageCWProfiles As DevExpress.XtraTab.XtraTabPage - Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage Friend WithEvents CWImages As DevExpress.Utils.SvgImageCollection - Friend WithEvents TreeList_GLOBIXProfiles As DevExpress.XtraTreeList.TreeList Friend WithEvents GLOBIXImages As DevExpress.Utils.SvgImageCollection - Friend WithEvents TreeList_CWProfiles As DevExpress.XtraTreeList.TreeList Friend WithEvents Panel1 As Panel Friend WithEvents labelTitle As Label - Friend WithEvents TreeList_IDBAttributes As DevExpress.XtraTreeList.TreeList - Friend WithEvents XtraTabPageIDB_Entities As DevExpress.XtraTab.XtraTabPage - Friend WithEvents TreeList_IDBEntities As DevExpress.XtraTreeList.TreeList Friend WithEvents IDBImages As DevExpress.Utils.SvgImageCollection Friend WithEvents BarButtonItem10 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem @@ -1059,4 +895,21 @@ Partial Class frmAdmin_Start Friend WithEvents RibbonPageGroup19 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents BarButtonItem24 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem25 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents GridControl1 As GridControl + Friend WithEvents GridView1 As GridView + Friend WithEvents BarButtonItem26 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem27 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem28 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup20 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup21 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroupAttributes As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPage_IDB As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonGroup_ClipboardWatcher_Process As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroup_ClipboardWatcher_Window As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroup_ClipboardWatcher_Control As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroup_ClipboardWatcher_DataSearch As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroup_ClipboardWatcher_DocSearch As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroup_ClipboardWatcher_Profile As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPage_ClipboardWatcher As DevExpress.XtraBars.Ribbon.RibbonPage End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.resx b/GUIs.ZooFlow/Administration/frmAdmin_Start.resx index 1d21c0d3..13d08356 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Start.resx +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.resx @@ -257,12 +257,6 @@ 396, 17 - - 273, 45 - - - 264, 17 - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z @@ -298,6 +292,12 @@ 17, 56 + + 273, 45 + + + 264, 17 + 17, 17 diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb index 25e1bcbf..b4eb069d 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb @@ -3,6 +3,10 @@ Imports DevExpress.Utils Imports DevExpress.XtraBars.Ribbon Imports DevExpress.XtraEditors.Controls Imports DevExpress.XtraEditors.Repository +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Columns +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraGrid.Views.Grid.ViewInfo Imports DevExpress.XtraTab Imports DevExpress.XtraTreeList Imports DigitalData.Modules.Logging @@ -10,54 +14,59 @@ Imports DigitalData.Modules.Logging Public Class frmAdmin_Start Inherits frmAdmin_Base - Private Const IDB_START = "IDB_START" - Private Const IDB_ATTRIBUTES = "IDB_ATTRIBUTES" - 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" + Private Const COLUMN_NAME_ACTIVE = "ACTIVE" + + Private Const MODULE_IDB = "IDB" + Private Const PAGE_IDB_START = "IDB_START" + Private Const PAGE_IDB_ATTRIBUTES = "IDB_ATTRIBUTES" + Private Const PAGE_IDB_BUSINESS_ENTITIES = "IDB_BUSINESS_ENTITIES" + Private Const PAGE_IDB_SOURCE_SQL = "IDB_SOURCE_SQL" + + Private Const MODULE_GLOBIX = "GLOBIX" + Private Const PAGE_GLOBIX_PROFILES = "GLOBIX_PROFILES" + + Private Const MODULE_CW = "CW" + Private Const PAGE_CW_PROFILES = "CW_PROFILES" + + Private Const MODULE_META = "META" + Private Const PAGE_META_SOURCE_SQL = "META_SOURCE_SQL" Private PrimaryKey As String = Nothing Private AdminItems As New List(Of AdminItem) + + Private CurrentModule As String Private CurrentPage As String + Private CurrentItem As AdminItem - Private Function IsIDBAttribute(Item As AdminItem) As Boolean - Return Item.Entity = "IDB" And Item.Scope = "ATTRIBUTE" + Private Function IsIDBAttributes(Item As AdminItem) As Boolean + Return Item.Entity = PAGE_IDB_ATTRIBUTES End Function - Private Function IsIDBEntity(Item As AdminItem) As Boolean - Return Item.Entity = "IDB" And Item.Scope = "ENTITY" + Private Function IsIDBEntities(Item As AdminItem) As Boolean + Return Item.Entity = PAGE_IDB_BUSINESS_ENTITIES End Function - Private Function IsCWItem(Item As AdminItem) As Boolean - Return Item.Entity = "CW" + Private Function IsCWPRofiles(Item As AdminItem) As Boolean + Return Item.Entity = PAGE_CW_PROFILES End Function - Private Function IsGLOBIXItem(Item As AdminItem) As Boolean - Return Item.Entity = "GLOBIX" + Private Function IsGLOBIXProfiles(Item As AdminItem) As Boolean + Return Item.Entity = PAGE_GLOBIX_PROFILES + End Function + + Private Function IsSourceSQL(Item As AdminItem) As Boolean + Return Item.Entity = PAGE_META_SOURCE_SQL End Function Private Class AdminItem Public Property Guid As Integer Public Property ParentId As Integer - Public Property Title As String Public Property Entity As String Public Property Scope As String - Public Property Summary As String - Public Property Active As Boolean - - ''' - ''' 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 + Public Property PrimaryKey As String + Public Property ForeignKey As String + Public Property SQLCommand As String + Public Property SQLResult As DataTable End Class Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load @@ -65,31 +74,32 @@ Public Class frmAdmin_Start TreeListMenu.ExpandAll() - AddHandler TreeList_IDBAttributes.DoubleClick, AddressOf TreeList_DoubleClick - AddHandler TreeList_IDBEntities.DoubleClick, AddressOf TreeList_DoubleClick - AddHandler TreeList_CWProfiles.DoubleClick, AddressOf TreeList_DoubleClick - AddHandler TreeList_GLOBIXProfiles.DoubleClick, AddressOf TreeList_DoubleClick - - ' Show Tab Header in Development, hide when running the app - XtraTabControl.ShowTabHeader = DefaultBoolean.False + AddHandler GridControl1.DoubleClick, AddressOf GridControl_DoubleClick End Sub Private Function Load_SQLData() As Boolean Try - Dim oTable As DataTable = My.Database.GetDatatable("SELECT * FROM VWIDB_ADMINISTRATION_TREEVIEW") + Dim oTable As DataTable = My.Database.GetDatatable("SELECT * FROM TBZF_ADMIN_SOURCE_SQL") AdminItems.Clear() For Each oRow As DataRow In oTable.Rows Dim oItem As New AdminItem With { .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, - .Summary = oRow.Item("SUMMARY").ToString, - .Active = oRow.Item("ACTIVE") + .ParentId = CInt(oRow.Item("PARENT_ID")), + .Entity = oRow.Item("ENTITY_TITLE").ToString, + .Scope = oRow.Item("SCOPE").ToString, + .SQLCommand = oRow.Item("SQL_COMMAND").ToString, + .PrimaryKey = NotNull(oRow.Item("PK_COLUMN"), String.Empty), + .ForeignKey = NotNull(oRow.Item("FK_COLUMN"), String.Empty) } + Try + oItem.SQLResult = My.Database.GetDatatable(oItem.SQLCommand) + Catch ex As Exception + oItem.SQLResult = Nothing + Logger.Error(ex) + End Try + AdminItems.Add(oItem) Next Return True @@ -139,42 +149,44 @@ Public Class frmAdmin_Start CurrentPage = e.Node.Tag.ToString Select Case e.Node.Tag.ToString - Case IDB_START + Case PAGE_IDB_START + CurrentModule = MODULE_IDB labelTitle.Text = "IDB Übersicht" - Display_Tab(XtraTabPage_IDB) - Case IDB_ATTRIBUTES + Case PAGE_IDB_ATTRIBUTES + CurrentModule = MODULE_IDB labelTitle.Text = "IDB Attribute" - Display_Tab(XtraTabPage_IDB) - Display_Tab(XtraTabPageIDB_Attributes_New) - Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBAttribute).ToList() - Load_Tree(oItems, TreeList_IDBAttributes) + CurrentItem = AdminItems.Where(AddressOf IsIDBAttributes).FirstOrDefault() + Load_Tree(CurrentItem) - Case IDB_BUSINESS_ENTITIES + Case PAGE_IDB_BUSINESS_ENTITIES + CurrentModule = MODULE_IDB labelTitle.Text = "IDB Entitäten" - Display_Tab(XtraTabPage_IDB) - Display_Tab(XtraTabPageIDB_Entities) - Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBEntity).ToList() - Load_Tree(oItems, TreeList_IDBEntities) + CurrentItem = AdminItems.Where(AddressOf IsIDBEntities).FirstOrDefault() + Load_Tree(CurrentItem) - Case GLOBIX_PROFILES + Case PAGE_GLOBIX_PROFILES + CurrentModule = MODULE_GLOBIX labelTitle.Text = "Global Indexer Profile" - Display_Tab(XtraTabPage_GlobalIndexer) - Display_RibbonPage(RibbonPage_GlobalIndexer) - Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsGLOBIXItem).ToList() - Load_Tree(oItems, TreeList_GLOBIXProfiles) + CurrentItem = AdminItems.Where(AddressOf IsGLOBIXProfiles).FirstOrDefault() + Load_Tree(CurrentItem) - Case CW_PROFILES + Case PAGE_CW_PROFILES + CurrentModule = MODULE_CW labelTitle.Text = "Clipboard Watcher Profile" - Display_Tab(XtraTabPage_ClipboardWatcher) - Display_Tab(XtraTabPageCWProfiles) - Display_RibbonPage(RibbonPage_ClipboardWatcher) - Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsCWItem).ToList() - Load_Tree(oItems, TreeList_CWProfiles) + CurrentItem = AdminItems.Where(AddressOf IsCWPRofiles).FirstOrDefault() + Load_Tree(CurrentItem) + + Case PAGE_META_SOURCE_SQL + CurrentModule = MODULE_META + labelTitle.Text = "Source SQL" + + CurrentItem = AdminItems.Where(AddressOf IsSourceSQL).FirstOrDefault() + Load_Tree(CurrentItem) End Select Catch ex As Exception @@ -182,8 +194,7 @@ Public Class frmAdmin_Start End Try End Sub - Private Sub Load_Tree(Source As List(Of AdminItem), TreeList As TreeList) - ' === ACTIVE COLUMN + Private Function Get_ActiveColumn() As GridColumn Dim oActiveEditor As New RepositoryItemImageComboBox With { .SmallImages = ActiveImages, .GlyphAlignment = HorzAlignment.Center @@ -193,12 +204,12 @@ Public Class frmAdmin_Start New ImageComboBoxItem("Active", True, 0), New ImageComboBoxItem("Inactive", False, 1) }) - Dim oActiveColumn = New Columns.TreeListColumn() With { + Dim oActiveColumn = New GridColumn() With { .Name = "columnActive", .Caption = " ", - .FieldName = "Active", + .FieldName = COLUMN_NAME_ACTIVE, .Visible = True, - .VisibleIndex = 1, + .VisibleIndex = 0, .ColumnEdit = oActiveEditor, .MaxWidth = 30, .MinWidth = 30, @@ -206,137 +217,96 @@ Public Class frmAdmin_Start } oActiveColumn.OptionsColumn.AllowEdit = False - ' === TYPE/SCOPE COLUMN - Dim oTypeEditor As New RepositoryItemImageComboBox With { - .SmallImages = TypeImages, - .GlyphAlignment = HorzAlignment.Center - } - oTypeEditor.Buttons.Clear() - oTypeEditor.Items.AddRange(New List(Of ImageComboBoxItem) From { - New ImageComboBoxItem("Profil", "PROFILE", 0), - New ImageComboBoxItem("Prozess", "PROCESS", 1), - New ImageComboBoxItem("Fenster", "WINDOW", 2), - New ImageComboBoxItem("Feld", "CONTROL", 3), - New ImageComboBoxItem("Attribut", "ATTRIBUTE", 4), - New ImageComboBoxItem("Entität", "ENTITY", 5) - }) - Dim oTypeColumn = New Columns.TreeListColumn() With { - .Name = "columnType", - .Caption = " ", - .FieldName = "Scope", - .Visible = True, - .VisibleIndex = 2, - .ColumnEdit = oTypeEditor, - .MaxWidth = 30, - .MinWidth = 30, - .Image = TypeImages.GetImage(6) - } - oTypeColumn.OptionsColumn.AllowEdit = False - - Dim oColumns As New List(Of Columns.TreeListColumn) From { - oActiveColumn, - oTypeColumn, - New Columns.TreeListColumn() With { - .Name = "columnTitle", - .Caption = "Titel", - .FieldName = "Title", - .Visible = True, - .VisibleIndex = 5 - }, - New Columns.TreeListColumn() With { - .Name = "columnScope", - .Caption = "Typ", - .FieldName = "Scope", - .Visible = True, - .VisibleIndex = 6 - }, - New Columns.TreeListColumn() With { - .Name = "columnSummary", - .Caption = "Beschreibung", - .FieldName = "Summary", - .Visible = True, - .VisibleIndex = 7 - } - } + Return oActiveColumn + End Function - TreeList.Columns.Clear() - TreeList.Columns.AddRange(oColumns.ToArray) - TreeList.HierarchyFieldName = "Title" - TreeList.KeyFieldName = "Guid" - TreeList.ParentFieldName = "ParentId" - TreeList.DataSource = Source - TreeList.ForceInitialize() + Private Sub Load_Tree(Source As AdminItem) + If Source Is Nothing OrElse Source.SQLResult Is Nothing Then + Exit Sub + End If + + Dim oActiveColumn = Get_ActiveColumn() + + GridControl1.DataSource = Source.SQLResult + GridControl1.ForceInitialize() + GridView1.PopulateColumns() - With TreeList.Appearance.EvenRow + If GridView1.Columns.Item(COLUMN_NAME_ACTIVE) Is Nothing Then + GridView1.Columns.Add(oActiveColumn) + End If + + With GridView1.Appearance.EvenRow .BackColor = Color.Snow .Options.UseBackColor = True End With - With TreeList.Appearance.FocusedCell + With GridView1.Appearance.FocusedCell .BackColor = Color.Gold .Options.UseBackColor = True End With - With TreeList.OptionsBehavior + With GridView1.OptionsBehavior .Editable = False .ReadOnly = True End With - With TreeList.OptionsView + With GridView1.OptionsView .ShowAutoFilterRow = True .EnableAppearanceEvenRow = True .ShowIndicator = False - .ShowHorzLines = True - .ShowVertLines = True - .ShowTreeLines = True + .ShowHorizontalLines = DefaultBoolean.True + .ShowVerticalLines = DefaultBoolean.True End With - With TreeList.OptionsClipboard + With GridView1.OptionsClipboard .CopyColumnHeaders = DefaultBoolean.False End With - With TreeList.OptionsFind + With GridView1.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() + AddHandler GridView1.KeyDown, Sub(sender As GridView, e As KeyEventArgs) + Dim oView As GridView = sender + 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 + + GridView1.BestFitColumns() End Sub - 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) + Private Sub GridControl_DoubleClick(sender As Object, e As EventArgs) Handles GridControl1.DoubleClick + Dim oGrid As GridControl = TryCast(sender, GridControl) + Dim oView As GridView = oGrid.MainView + Dim hitInfo As GridHitInfo = oView.CalcHitInfo(TryCast(e, DXMouseEventArgs).Location) If hitInfo.InRow Then Try - Dim oItem As AdminItem = oView.GetFocusedRow - If oItem IsNot Nothing Then - Select Case oView.Name - Case TreeList_IDBAttributes.Name - Load_IDBAttribute(oItem.RealGuid) - - Case TreeList_IDBEntities.Name - Load_IDBEntity(oItem.RealGuid) - - Case TreeList_CWProfiles.Name - Select Case oItem.Scope - Case "PROFILE" - Load_CWProfile(oItem.RealGuid) - Case Else - ShowError($"Scope {oItem.Scope} is not implemented!") - End Select - Case TreeList_GLOBIXProfiles.Name - GLOBIX_JUMP_DOCTYPE_ID = oItem.RealGuid - Load_GLOBIXProfile(oItem.RealGuid) + Dim oRowView As DataRowView = oView.GetFocusedRow + Dim oItem As AdminItem = CurrentItem + Dim oGuid = oRowView.Row.Item(oItem.PrimaryKey) + + If oRowView IsNot Nothing Then + Select Case CurrentPage + Case PAGE_IDB_ATTRIBUTES + Load_IDBAttribute(oGuid) + + Case PAGE_IDB_BUSINESS_ENTITIES + Load_IDBEntity(oGuid) + + Case PAGE_CW_PROFILES + Load_CWProfile(oGuid) + + Case PAGE_GLOBIX_PROFILES + GLOBIX_JUMP_DOCTYPE_ID = oGuid + Load_GLOBIXProfile(oGuid) + + Case PAGE_META_SOURCE_SQL + Load_SourceSQL(oGuid) End Select End If Catch ex As Exception @@ -345,6 +315,21 @@ Public Class frmAdmin_Start End If End Sub + Private Sub Load_SourceSQL(PrimaryKey As Integer) + Try + Dim oForm As New frmAdmin_SourceSQL(PrimaryKey) + oForm.ShowDialog() + + If oForm.HasChanges Then + Load_SQLData() + Dim oItem As AdminItem = AdminItems.Where(AddressOf IsSourceSQL).FirstOrDefault + Load_Tree(oItem) + End If + Catch ex As Exception + ShowError(ex) + End Try + End Sub + Private Sub Load_IDBAttribute(PrimaryKey As Integer) Try Dim oForm As New frmAdmin_IDBAttribute(PrimaryKey) @@ -352,8 +337,8 @@ Public Class frmAdmin_Start If oForm.HasChanges Then Load_SQLData() - Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBAttribute).ToList - Load_Tree(oItems, TreeList_IDBAttributes) + Dim oItem As AdminItem = AdminItems.Where(AddressOf IsIDBAttributes).FirstOrDefault + Load_Tree(oItem) End If Catch ex As Exception ShowError(ex) @@ -367,8 +352,8 @@ Public Class frmAdmin_Start If oForm.HasChanges Then Load_SQLData() - Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBEntity).ToList - Load_Tree(oItems, TreeList_IDBEntities) + Dim oItem As AdminItem = AdminItems.Where(AddressOf IsIDBAttributes).FirstOrDefault + Load_Tree(oItem) End If Catch ex As Exception ShowError(ex) @@ -382,9 +367,9 @@ Public Class frmAdmin_Start If oForm.HasChanges Then Load_SQLData() - Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsCWItem).ToList - Load_Tree(oItems, TreeList_CWProfiles) + Dim oItem As AdminItem = AdminItems.Where(AddressOf IsCWPRofiles).FirstOrDefault + Load_Tree(oItem) End If Catch ex As Exception ShowError(ex) @@ -397,9 +382,9 @@ Public Class frmAdmin_Start If oForm.HasChanges Then Load_SQLData() - Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsCWItem).ToList - Load_Tree(oItems, TreeList_CWProfiles) + Dim oItem As AdminItem = AdminItems.Where(AddressOf IsCWPRofiles).FirstOrDefault + Load_Tree(oItem) End If Catch ex As Exception ShowError(ex) @@ -408,7 +393,7 @@ Public Class frmAdmin_Start Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick Try - Dim oRow As DataRow = TreeList_IDBAttributes.GetFocusedDataRow + Dim oRow As DataRow = GridView1.GetFocusedRow If oRow IsNot Nothing Then Dim oPrimaryKey As Integer = DirectCast(oRow.Item(PrimaryKey), Integer) Load_IDBAttribute(oPrimaryKey) diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb index 7d993f48..777f6688 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb @@ -33,6 +33,8 @@ Partial Public Class DSIDB_Stammdaten Private tableVWIDB_BE_ATTRIBUTE As VWIDB_BE_ATTRIBUTEDataTable + 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 @@ -76,6 +78,9 @@ Partial Public Class DSIDB_Stammdaten If (Not (ds.Tables("VWIDB_BE_ATTRIBUTE")) Is Nothing) Then MyBase.Tables.Add(New VWIDB_BE_ATTRIBUTEDataTable(ds.Tables("VWIDB_BE_ATTRIBUTE"))) 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 @@ -133,6 +138,16 @@ 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) @@ -385,6 +417,9 @@ Partial Public Class DSIDB_Stammdaten _ Public Delegate Sub VWIDB_BE_ATTRIBUTERowChangeEventHandler(ByVal sender As Object, ByVal e As VWIDB_BE_ATTRIBUTERowChangeEvent) + _ + Public Delegate Sub TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler(ByVal sender As Object, ByVal e As TBZF_ADMIN_SOURCE_SQLRowChangeEvent) + ''' '''Represents the strongly named DataTable class. ''' @@ -2090,533 +2125,497 @@ Partial Public Class DSIDB_Stammdaten End Class ''' - '''Represents strongly named DataRow class. + '''Represents the strongly named DataTable class. ''' - Partial Public Class TBIDB_BUSINESS_ENTITYRow - Inherits Global.System.Data.DataRow + _ + Partial Public Class TBZF_ADMIN_SOURCE_SQLDataTable + Inherits Global.System.Data.TypedTableBase(Of TBZF_ADMIN_SOURCE_SQLRow) - Private tableTBIDB_BUSINESS_ENTITY As TBIDB_BUSINESS_ENTITYDataTable + Private columnGUID As Global.System.Data.DataColumn + + Private columnPARENT_ID As Global.System.Data.DataColumn + + Private columnENTITY_TITLE As Global.System.Data.DataColumn + + Private columnSCOPE 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 + + Private columnFK_COLUMN As Global.System.Data.DataColumn _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBIDB_BUSINESS_ENTITY = CType(Me.Table,TBIDB_BUSINESS_ENTITYDataTable) + Public Sub New() + MyBase.New + Me.TableName = "TBZF_ADMIN_SOURCE_SQL" + Me.BeginInit + Me.InitClass + Me.EndInit End Sub _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.GUIDColumn) = value - End Set - End Property + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub _ - Public Property PARENT_ENT_ID() As Integer - Get - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.PARENT_ENT_IDColumn),Integer) - End Get - Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.PARENT_ENT_IDColumn) = value - End Set - End Property + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub _ - Public Property TITLE() As String + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.TITLEColumn),String) + Return Me.columnGUID End Get - Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.TITLEColumn) = value - End Set End Property _ - Public Property INHERITS_ATTRIBUTES() As Boolean + Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.INHERITS_ATTRIBUTESColumn),Boolean) + Return Me.columnPARENT_ID End Get - Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.INHERITS_ATTRIBUTESColumn) = value - End Set End Property _ - Public Property COMMENT() As String + Public ReadOnly Property ENTITY_TITLEColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) - End Try + Return Me.columnENTITY_TITLE End Get - Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = value - End Set End Property _ - Public Property ADDED_WHO() As String + Public ReadOnly Property SCOPEColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn),String) + Return Me.columnSCOPE End Get - Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn) = value - End Set End Property _ - Public Property ADDED_WHEN() As Date + Public ReadOnly Property PK_COLUMNColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn),Date) + Return Me.columnPK_COLUMN End Get - Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) = value - End Set End Property _ - Public Property CHANGED_WHO() As String + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn 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 Me.columnCOMMENT End Get - Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) = value - End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn 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 Me.columnSQL_COMMAND End Get - Set - Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) = value - End Set End Property _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) - End Function - - _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) - 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 New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBIDB_ATTRIBUTE = CType(Me.Table,TBIDB_ATTRIBUTEDataTable) - End Sub - - _ - Public Property GUID() As Integer + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.GUIDColumn),Integer) + Return Me.columnADDED_WHO End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.GUIDColumn) = value - End Set End Property _ - Public Property TITLE() As String + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.TITLEColumn),String) + Return Me.columnADDED_WHEN End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.TITLEColumn) = value - End Set End Property _ - Public Property TYP_ID() As Byte + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn),Byte) + Return Me.columnCHANGED_WHO End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn) = value - End Set End Property _ - Public Property MULTI_CONTEXT() As Boolean + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.MULTI_CONTEXTColumn),Boolean) + Return Me.columnCHANGED_WHEN End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.MULTI_CONTEXTColumn) = value - End Set End Property _ - Public Property VIEW_SEQUENCE() As Integer + Public ReadOnly Property FK_COLUMNColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.VIEW_SEQUENCEColumn),Integer) + Return Me.columnFK_COLUMN End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.VIEW_SEQUENCEColumn) = value - End Set End Property _ - Public Property VIEW_VISIBLE() As Boolean + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.VIEW_VISIBLEColumn),Boolean) + Return Me.Rows.Count End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.VIEW_VISIBLEColumn) = value - End Set End Property _ - Public Property COMMENT() As String + Public Default ReadOnly Property Item(ByVal index As Integer) As TBZF_ADMIN_SOURCE_SQLRow 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.Rows(index),TBZF_ADMIN_SOURCE_SQLRow) End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) = value - End Set 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 Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.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 Overloads Sub AddTBZF_ADMIN_SOURCE_SQLRow(ByVal row As TBZF_ADMIN_SOURCE_SQLRow) + Me.Rows.Add(row) + End Sub _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) = value - End Set - End Property + Public Overloads Function AddTBZF_ADMIN_SOURCE_SQLRow(ByVal PARENT_ID As Integer, ByVal ENTITY_TITLE As String, ByVal SCOPE As String, ByVal PK_COLUMN As String, ByVal COMMENT As String, ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal FK_COLUMN As String) 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, PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FK_COLUMN} + rowTBZF_ADMIN_SOURCE_SQLRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBZF_ADMIN_SOURCE_SQLRow) + Return rowTBZF_ADMIN_SOURCE_SQLRow + End Function _ - Public Property DELETED() As Boolean - Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETEDColumn),Boolean) - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.DELETEDColumn) = value - End Set - End Property + 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 Property DELETED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DELETED_WHO in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) = value - End Set - End Property + 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 + End Function _ - Public Property DELETED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DELETED_WHEN in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) = value - End Set - End Property + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBZF_ADMIN_SOURCE_SQLDataTable() + End Function _ - 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 + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") + Me.columnENTITY_TITLE = MyBase.Columns("ENTITY_TITLE") + Me.columnSCOPE = MyBase.Columns("SCOPE") + 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") + Me.columnFK_COLUMN = MyBase.Columns("FK_COLUMN") + End Sub _ - 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 + 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.columnPARENT_ID = New Global.System.Data.DataColumn("PARENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARENT_ID) + 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.columnSCOPE = New Global.System.Data.DataColumn("SCOPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCOPE) + 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.columnFK_COLUMN = New Global.System.Data.DataColumn("FK_COLUMN", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFK_COLUMN) + 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.columnPARENT_ID.AllowDBNull = false + Me.columnENTITY_TITLE.AllowDBNull = false + Me.columnENTITY_TITLE.MaxLength = 100 + Me.columnSCOPE.AllowDBNull = false + Me.columnSCOPE.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 + Me.columnFK_COLUMN.MaxLength = 100 + End Sub _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) + Public Function NewTBZF_ADMIN_SOURCE_SQLRow() As TBZF_ADMIN_SOURCE_SQLRow + Return CType(Me.NewRow,TBZF_ADMIN_SOURCE_SQLRow) End Function _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBZF_ADMIN_SOURCE_SQLRow) End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + 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 _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) - End Function + 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 _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + 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 Function IsDELETED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) - End Function + 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 Sub SetDELETED_WHONull() - Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) = Global.System.Convert.DBNull + Public Sub RemoveTBZF_ADMIN_SOURCE_SQLRow(ByVal row As TBZF_ADMIN_SOURCE_SQLRow) + Me.Rows.Remove(row) End Sub _ - Public Function IsDELETED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) + 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() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type End Function - - _ - 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_ATTRIBUTE_TYPERow + Partial Public Class TBIDB_BUSINESS_ENTITYRow Inherits Global.System.Data.DataRow - Private tableTBIDB_ATTRIBUTE_TYPE As TBIDB_ATTRIBUTE_TYPEDataTable + Private tableTBIDB_BUSINESS_ENTITY As TBIDB_BUSINESS_ENTITYDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBIDB_ATTRIBUTE_TYPE = CType(Me.Table,TBIDB_ATTRIBUTE_TYPEDataTable) + Me.tableTBIDB_BUSINESS_ENTITY = CType(Me.Table,TBIDB_BUSINESS_ENTITYDataTable) End Sub _ - Public Property GUID() As Byte + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn),Byte) + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.GUIDColumn),Integer) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn) = value + Me(Me.tableTBIDB_BUSINESS_ENTITY.GUIDColumn) = value End Set End Property _ - Public Property NAME_TYPE() As String + Public Property PARENT_ENT_ID() As Integer Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.NAME_TYPEColumn),String) + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.PARENT_ENT_IDColumn),Integer) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.NAME_TYPEColumn) = value + Me(Me.tableTBIDB_BUSINESS_ENTITY.PARENT_ENT_IDColumn) = value End Set End Property _ - Public Property COMMENT() As String + Public Property TITLE() 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 Property BIT1() As Boolean - Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT1Column),Boolean) - End Get - Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT1Column) = value - End Set - End Property - - _ - Public Property BIT2() As Boolean - Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT2Column),Boolean) + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.TITLEColumn),String) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT2Column) = value + Me(Me.tableTBIDB_BUSINESS_ENTITY.TITLEColumn) = value End Set End Property _ - Public Property BIT3() As Boolean + Public Property INHERITS_ATTRIBUTES() As Boolean Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT3Column),Boolean) + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.INHERITS_ATTRIBUTESColumn),Boolean) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT3Column) = value + Me(Me.tableTBIDB_BUSINESS_ENTITY.INHERITS_ATTRIBUTESColumn) = value End Set End Property _ - Public Property BIT4() As Boolean + Public Property COMMENT() As String Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT4Column),Boolean) + Try + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT4Column) = value + Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = value End Set End Property @@ -2624,10 +2623,10 @@ Partial Public Class DSIDB_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHOColumn) = value + Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn) = value End Set End Property @@ -2635,14 +2634,10 @@ Partial Public Class DSIDB_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn),Date) End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = value + Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) = value End Set End Property @@ -2651,13 +2646,13 @@ Partial Public Class DSIDB_Stammdaten Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) End Try End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) = value + Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) = value End Set End Property @@ -2666,565 +2661,1306 @@ Partial Public Class DSIDB_Stammdaten Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) End Try End Get Set - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) = value + Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) + Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) + Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) + Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ - Public Function GetTBIDB_ATTRIBUTERows() As TBIDB_ATTRIBUTERow() - If (Me.Table.ChildRelations("FK_TYP_ID") Is Nothing) Then - Return New TBIDB_ATTRIBUTERow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TYP_ID")),TBIDB_ATTRIBUTERow()) - End If - End Function End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class VWIDB_BE_ATTRIBUTERow + Partial Public Class TBIDB_ATTRIBUTERow Inherits Global.System.Data.DataRow - Private tableVWIDB_BE_ATTRIBUTE As VWIDB_BE_ATTRIBUTEDataTable + Private tableTBIDB_ATTRIBUTE As TBIDB_ATTRIBUTEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableVWIDB_BE_ATTRIBUTE = CType(Me.Table,VWIDB_BE_ATTRIBUTEDataTable) + Me.tableTBIDB_ATTRIBUTE = CType(Me.Table,TBIDB_ATTRIBUTEDataTable) End Sub _ - Public Property BE_ID() As Integer + Public Property GUID() As Integer Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn),Integer) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.GUIDColumn),Integer) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.GUIDColumn) = value End Set End Property _ - Public Property BE() As String + Public Property TITLE() As String Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn),String) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.TITLEColumn),String) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.TITLEColumn) = value End Set End Property _ - Public Property ATTR_ID() As Integer + Public Property TYP_ID() As Byte Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn),Integer) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn),Byte) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn) = value End Set End Property _ - Public Property ATTR_TITLE() As String + Public Property MULTI_CONTEXT() As Boolean Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn),String) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.MULTI_CONTEXTColumn),Boolean) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.MULTI_CONTEXTColumn) = value End Set End Property _ - Public Property TYP_ID() As Byte + Public Property VIEW_SEQUENCE() As Integer Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn),Byte) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.VIEW_SEQUENCEColumn),Integer) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.VIEW_SEQUENCEColumn) = value End Set End Property _ - Public Property TYPE_ID() As Byte + Public Property VIEW_VISIBLE() As Boolean Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn),Byte) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.VIEW_VISIBLEColumn),Boolean) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.VIEW_VISIBLEColumn) = value End Set End Property _ - Public Property TYPE_NAME() As String + Public Property COMMENT() As String Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn),String) + Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) + End Try End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) = value End Set End Property _ - Public Property VIEW_VISIBLE() As Boolean + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_VISIBLEColumn),Boolean) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHOColumn),String) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_VISIBLEColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHOColumn) = value End Set End Property _ - Public Property VIEW_SEQUENCE() As Integer + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_SEQUENCEColumn),Integer) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHENColumn),Date) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_SEQUENCEColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHENColumn) = value End Set End Property _ - Public Property LANG_ID() As Byte + Public Property CHANGED_WHO() As String Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_IDColumn),Byte) + Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) + End Try End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_IDColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) = value End Set End Property _ - Public Property LANG_CODE() As String + Public Property CHANGED_WHEN() As Date Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_CODEColumn),String) + Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) + End Try End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_CODEColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property DELETED() As Boolean Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETEDColumn),Boolean) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.DELETEDColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property DELETED_WHO() As String Get - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DELETED_WHO in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) + End Try End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHOColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property DELETED_WHEN() As Date Get Try - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DELETED_WHEN in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) End Try End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property ATTR_TYPE() As String Get - Try - Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn),String) End Get Set - Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn) = value + Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn) = value End Set End Property _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn) + Public Property TBIDB_ATTRIBUTE_TYPERow() As TBIDB_ATTRIBUTE_TYPERow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TYP_ID")),TBIDB_ATTRIBUTE_TYPERow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TYP_ID")) + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) End Function _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetCOMMENTNull() + Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn) + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() - Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - 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 Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) + End Function _ - Public ReadOnly Property Row() As TBIDB_BUSINESS_ENTITYRow - Get - Return Me.eventRow - End Get - End Property + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_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 - - ''' - '''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 Function IsDELETED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) + End Function _ - Public Sub New(ByVal row As TBIDB_ATTRIBUTERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Public Sub SetDELETED_WHONull() + Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public ReadOnly Property Row() As TBIDB_ATTRIBUTERow - Get - Return Me.eventRow - End Get - End Property + Public Function IsDELETED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) + End Function _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property + Public Sub SetDELETED_WHENNull() + Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) = Global.System.Convert.DBNull + End Sub End Class ''' - '''Row event argument class + '''Represents strongly named DataRow class. ''' - _ - Public Class TBIDB_ATTRIBUTE_TYPERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBIDB_ATTRIBUTE_TYPERow + Partial Public Class TBIDB_ATTRIBUTE_TYPERow + Inherits Global.System.Data.DataRow - Private eventAction As Global.System.Data.DataRowAction + Private tableTBIDB_ATTRIBUTE_TYPE As TBIDB_ATTRIBUTE_TYPEDataTable _ - Public Sub New(ByVal row As TBIDB_ATTRIBUTE_TYPERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIDB_ATTRIBUTE_TYPE = CType(Me.Table,TBIDB_ATTRIBUTE_TYPEDataTable) End Sub _ - Public ReadOnly Property Row() As TBIDB_ATTRIBUTE_TYPERow + Public Property GUID() As Byte Get - Return Me.eventRow + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn),Byte) End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property NAME_TYPE() As String Get - Return Me.eventAction + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.NAME_TYPEColumn),String) End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.NAME_TYPEColumn) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class VWIDB_BE_ATTRIBUTERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As VWIDB_BE_ATTRIBUTERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As VWIDB_BE_ATTRIBUTERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub _ - Public ReadOnly Property Row() As VWIDB_BE_ATTRIBUTERow + Public Property COMMENT() As String Get - Return Me.eventRow + 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 ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property BIT1() As Boolean Get - Return Me.eventAction + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT1Column),Boolean) End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT1Column) = 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 Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub + Public Property BIT2() As Boolean + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT2Column),Boolean) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT2Column) = value + End Set + End Property _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Public Property BIT3() As Boolean Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT3Column),Boolean) End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT3Column) = value + End Set End Property _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Public Property BIT4() As Boolean Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT4Column),Boolean) End Get Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT4Column) = value End Set End Property _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Public Property ADDED_WHO() As String Get - Return Me._transaction + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHOColumn),String) End Get Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHOColumn) = value End Set End Property _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Public Property ADDED_WHEN() As Date Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection + 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 End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = value + End Set End Property _ - Public Property ClearBeforeFill() As Boolean + Public Property CHANGED_WHO() As String Get - Return Me._clearBeforeFill + 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 End Get Set - Me._clearBeforeFill = value + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) = 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") + Public Property CHANGED_WHEN() As Date + 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 + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) = 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 + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + 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_TYPE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBIDB_ATTRIBUTERows() As TBIDB_ATTRIBUTERow() + If (Me.Table.ChildRelations("FK_TYP_ID") Is Nothing) Then + Return New TBIDB_ATTRIBUTERow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TYP_ID")),TBIDB_ATTRIBUTERow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWIDB_BE_ATTRIBUTERow + Inherits Global.System.Data.DataRow + + Private tableVWIDB_BE_ATTRIBUTE As VWIDB_BE_ATTRIBUTEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWIDB_BE_ATTRIBUTE = CType(Me.Table,VWIDB_BE_ATTRIBUTEDataTable) + End Sub + + _ + Public Property BE_ID() As Integer + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn) = value + End Set + End Property + + _ + Public Property BE() As String + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn),String) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn) = value + End Set + End Property + + _ + Public Property ATTR_ID() As Integer + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn),Integer) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn) = value + End Set + End Property + + _ + Public Property ATTR_TITLE() As String + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn),String) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn) = value + End Set + End Property + + _ + Public Property TYP_ID() As Byte + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn),Byte) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn) = value + End Set + End Property + + _ + Public Property TYPE_ID() As Byte + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn),Byte) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn) = value + End Set + End Property + + _ + Public Property TYPE_NAME() As String + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn),String) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn) = value + End Set + End Property + + _ + Public Property VIEW_VISIBLE() As Boolean + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_VISIBLEColumn),Boolean) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_VISIBLEColumn) = value + End Set + End Property + + _ + Public Property VIEW_SEQUENCE() As Integer + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property LANG_ID() As Byte + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_IDColumn),Byte) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_IDColumn) = value + End Set + End Property + + _ + Public Property LANG_CODE() As String + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_CODEColumn),String) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_CODEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBZF_ADMIN_SOURCE_SQLRow + Inherits Global.System.Data.DataRow + + Private tableTBZF_ADMIN_SOURCE_SQL As TBZF_ADMIN_SOURCE_SQLDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBZF_ADMIN_SOURCE_SQL = CType(Me.Table,TBZF_ADMIN_SOURCE_SQLDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.GUIDColumn) = value + End Set + End Property + + _ + Public Property PARENT_ID() As Integer + Get + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn),Integer) + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn) = value + End Set + End Property + + _ + 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 + + _ + Public Property SCOPE() As String + Get + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SCOPEColumn),String) + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SCOPEColumn) = value + End Set + End Property + + _ + Public Property 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 + + _ + 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 Property SQL_COMMAND() As String + Get + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SQL_COMMANDColumn),String) + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SQL_COMMANDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + 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 + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + 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 + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property FK_COLUMN() As String + Get + Try + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.FK_COLUMNColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FK_COLUMN in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.FK_COLUMNColumn) = value + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFK_COLUMNNull() As Boolean + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.FK_COLUMNColumn) + End Function + + _ + Public Sub SetFK_COLUMNNull() + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.FK_COLUMNColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + 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 + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWIDB_BE_ATTRIBUTERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWIDB_BE_ATTRIBUTERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWIDB_BE_ATTRIBUTERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWIDB_BE_ATTRIBUTERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBZF_ADMIN_SOURCE_SQLRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBZF_ADMIN_SOURCE_SQLRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBZF_ADMIN_SOURCE_SQLRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBZF_ADMIN_SOURCE_SQLRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +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") @@ -3232,47 +3968,412 @@ Namespace DSIDB_StammdatenTableAdapters 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.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBIDB_BUSINESS_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBIDB_BUSINESS_ENTITY] ([PARENT_ENT_ID], [TITLE], [INHERITS_ATTRIBUT"& _ + "ES], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES"& _ + " (@PARENT_ENT_ID, @TITLE, @INHERITS_ATTRIBUTES, @COMMENT, @ADDED_WHO, @ADDED_WHE"& _ + "N, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_AT"& _ + "TRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_B"& _ + "USINESS_ENTITY WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INHERITS_ATTRIBUTES", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INHERITS_ATTRIBUTES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_BUSINESS_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PARENT_ENT_ID = @PARENT_EN"& _ + "T_ID, TITLE = @TITLE, INHERITS_ATTRIBUTES = @INHERITS_ATTRIBUTES, COMMENT = @COM"& _ + "MENT, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID "& _ + "= @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COM"& _ + "MENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_BUSINESS_ENTIT"& _ + "Y WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INHERITS_ATTRIBUTES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "INHERITS_ATTRIBUTES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO"& _ + ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_BUSINESS_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "WHERE GUID = @GUID" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable, ByVal GUID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + Dim dataTable As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable = New DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBIDB_BUSINESS_ENTITY") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal PARENT_ENT_ID As Integer, ByVal TITLE As String, ByVal INHERITS_ATTRIBUTES As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PARENT_ENT_ID,Integer) + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(TITLE,String) + End If + Me.Adapter.InsertCommand.Parameters(2).Value = CType(INHERITS_ATTRIBUTES,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal PARENT_ENT_ID As Integer, ByVal TITLE As String, ByVal INHERITS_ATTRIBUTES As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PARENT_ENT_ID,Integer) + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TITLE,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(INHERITS_ATTRIBUTES,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIDB_ATTRIBUTETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBIDB_ATTRIBUTE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("TYP_ID", "TYP_ID") + tableMapping.ColumnMappings.Add("MULTI_CONTEXT", "MULTI_CONTEXT") + tableMapping.ColumnMappings.Add("VIEW_SEQUENCE", "VIEW_SEQUENCE") + tableMapping.ColumnMappings.Add("VIEW_VISIBLE", "VIEW_VISIBLE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("DELETED", "DELETED") + tableMapping.ColumnMappings.Add("DELETED_WHO", "DELETED_WHO") + tableMapping.ColumnMappings.Add("DELETED_WHEN", "DELETED_WHEN") + tableMapping.ColumnMappings.Add("ATTR_TYPE", "ATTR_TYPE") + Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBIDB_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.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("@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.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_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.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("@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("@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("@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 @@ -3289,9 +4390,14 @@ Namespace DSIDB_StammdatenTableAdapters Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT 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).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 @@ -3300,7 +4406,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"), _ 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 + 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 @@ -3314,10 +4420,10 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable + 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_BUSINESS_ENTITYDataTable = New DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable() + Dim dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable = New DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -3325,7 +4431,7 @@ Namespace DSIDB_StammdatenTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -3333,7 +4439,7 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer - Return Me.Adapter.Update(dataSet, "TBIDB_BUSINESS_ENTITY") + Return Me.Adapter.Update(dataSet, "TBIDB_ATTRIBUTE") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal PARENT_ENT_ID As Integer, ByVal TITLE As String, ByVal INHERITS_ATTRIBUTES As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PARENT_ENT_ID,Integer) - If (TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TITLE") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(TITLE,String) - End If - Me.Adapter.InsertCommand.Parameters(2).Value = CType(INHERITS_ATTRIBUTES,Boolean) - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHEN,Date) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal PARENT_ENT_ID As Integer, ByVal TITLE As String, ByVal INHERITS_ATTRIBUTES As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PARENT_ENT_ID,Integer) - If (TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TITLE") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TITLE,String) - End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(INHERITS_ATTRIBUTES,Boolean) - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHEN,Date) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function End Class ''' @@ -3479,7 +4466,7 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBIDB_ATTRIBUTETableAdapter + Partial Public Class TBIDB_ATTRIBUTE_TYPETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -3596,49 +4583,84 @@ Namespace DSIDB_StammdatenTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBIDB_ATTRIBUTE" + tableMapping.DataSetTable = "TBIDB_ATTRIBUTE_TYPE" 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("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") - 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.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBIDB_ATTRIBUTE_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_ATTRIBUTE"&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.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("@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.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"&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.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("@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, "", "", "")) + 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 _ - Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable, 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 @@ -3684,10 +4697,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.TBIDB_ATTRIBUTEDataTable + 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.TBIDB_ATTRIBUTEDataTable = New DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable() + Dim dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable = New DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -3695,7 +4707,7 @@ Namespace DSIDB_StammdatenTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -3703,7 +4715,7 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer - Return Me.Adapter.Update(dataSet, "TBIDB_ATTRIBUTE") + Return Me.Adapter.Update(dataSet, "TBIDB_ATTRIBUTE_TYPE") End Function _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Byte) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal NAME_TYPE As String, ByVal COMMENT As String, ByVal BIT1 As Boolean, ByVal BIT2 As Boolean, ByVal BIT3 As Boolean, ByVal BIT4 As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (NAME_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME_TYPE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME_TYPE,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) + End If + Me.Adapter.InsertCommand.Parameters(2).Value = CType(BIT1,Boolean) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(BIT2,Boolean) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(BIT3,Boolean) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(BIT4,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal NAME_TYPE As String, _ + ByVal COMMENT As String, _ + ByVal BIT1 As Boolean, _ + ByVal BIT2 As Boolean, _ + ByVal BIT3 As Boolean, _ + ByVal BIT4 As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Byte, _ + ByVal Original_NAME_TYPE As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_BIT1 As Boolean, _ + ByVal Original_BIT2 As Boolean, _ + ByVal Original_BIT3 As Boolean, _ + ByVal Original_BIT4 As Boolean, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Byte) As Integer + If (NAME_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME_TYPE,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(BIT1,Boolean) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(BIT2,Boolean) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BIT3,Boolean) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(BIT4,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Byte) + If (Original_NAME_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_NAME_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_NAME_TYPE,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_BIT1,Boolean) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_BIT2,Boolean) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_BIT3,Boolean) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_BIT4,Boolean) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal NAME_TYPE As String, _ + ByVal COMMENT As String, _ + ByVal BIT1 As Boolean, _ + ByVal BIT2 As Boolean, _ + ByVal BIT3 As Boolean, _ + ByVal BIT4 As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Byte, _ + ByVal Original_NAME_TYPE As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_BIT1 As Boolean, _ + ByVal Original_BIT2 As Boolean, _ + ByVal Original_BIT3 As Boolean, _ + ByVal Original_BIT4 As Boolean, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_NAME_TYPE, Original_COMMENT, Original_BIT1, Original_BIT2, Original_BIT3, Original_BIT4, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class @@ -3730,7 +4964,7 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBIDB_ATTRIBUTE_TYPETableAdapter + Partial Public Class VWIDB_BE_ATTRIBUTETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -3847,84 +5081,23 @@ Namespace DSIDB_StammdatenTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBIDB_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.DataSetTable = "VWIDB_BE_ATTRIBUTE" + tableMapping.ColumnMappings.Add("BE_ID", "BE_ID") + tableMapping.ColumnMappings.Add("BE", "BE") + tableMapping.ColumnMappings.Add("ATTR_ID", "ATTR_ID") + tableMapping.ColumnMappings.Add("ATTR_TITLE", "ATTR_TITLE") + tableMapping.ColumnMappings.Add("TYP_ID", "TYP_ID") + tableMapping.ColumnMappings.Add("TYPE_ID", "TYPE_ID") + tableMapping.ColumnMappings.Add("TYPE_NAME", "TYPE_NAME") + tableMapping.ColumnMappings.Add("VIEW_VISIBLE", "VIEW_VISIBLE") + tableMapping.ColumnMappings.Add("VIEW_SEQUENCE", "VIEW_SEQUENCE") + tableMapping.ColumnMappings.Add("LANG_ID", "LANG_ID") + tableMapping.ColumnMappings.Add("LANG_CODE", "LANG_CODE") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBIDB_ATTRIBUTE_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBIDB_ATTRIBUTE_TYPE] ([NAME_TYPE], [COMMENT], [BIT1], [BIT2], [BIT3"& _ - "], [BIT4], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@NA"& _ - "ME_TYPE, @COMMENT, @BIT1, @BIT2, @BIT3, @BIT4, @ADDED_WHO, @ADDED_WHEN, @CHANGED"& _ - "_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, "& _ - "ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_ATTRIBUTE_TYPE WHERE"& _ - " (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBIDB_ATTRIBUTE_TYPE] SET [NAME_TYPE] = @NAME_TYPE, [COMMENT] = @COMMENT,"& _ - " [BIT1] = @BIT1, [BIT2] = @BIT2, [BIT3] = @BIT3, [BIT4] = @BIT4, [ADDED_WHO] = @"& _ - "ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WH"& _ - "EN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([NAME_TYPE] = @Origina"& _ - "l_NAME_TYPE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @O"& _ - "riginal_COMMENT)) AND ([BIT1] = @Original_BIT1) AND ([BIT2] = @Original_BIT2) AN"& _ - "D ([BIT3] = @Original_BIT3) AND ([BIT4] = @Original_BIT4) AND ([ADDED_WHO] = @Or"& _ - "iginal_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGE"& _ - "D_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO))"& _ - " AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] ="& _ - " @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, "& _ - "BIT4, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_ATTRIBUTE_TYPE"& _ - " WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBIDB_ATTRIBUTE_TYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_ATTRIBUTE_TYPE" + Me._commandCollection(0).CommandText = "SELECT VWIDB_BE_ATTRIBUTE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_BE_ATTRIBUTE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT VWIDB_BE_ATTRIBUTE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_BE_ATTRIBUTE WHERE ATTR"& _ + "_ID = @ATTRIBUTE_ID AND LANG_ID = @LANGUAGE_ID" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTRIBUTE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -3961,261 +5141,39 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable + Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable = New DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer - Return Me.Adapter.Update(dataSet, "TBIDB_ATTRIBUTE_TYPE") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Byte) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal NAME_TYPE As String, ByVal COMMENT As String, ByVal BIT1 As Boolean, ByVal BIT2 As Boolean, ByVal BIT3 As Boolean, ByVal BIT4 As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - If (NAME_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME_TYPE") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME_TYPE,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) - End If - Me.Adapter.InsertCommand.Parameters(2).Value = CType(BIT1,Boolean) - Me.Adapter.InsertCommand.Parameters(3).Value = CType(BIT2,Boolean) - Me.Adapter.InsertCommand.Parameters(4).Value = CType(BIT3,Boolean) - Me.Adapter.InsertCommand.Parameters(5).Value = CType(BIT4,Boolean) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try + Dim dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable = New DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable End Function _ - Public Overloads Overridable Function Update( _ - ByVal 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 + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _ + Public Overloads Overridable Function FillByAttributeId(ByVal dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable, ByVal ATTRIBUTE_ID As Integer, ByVal LANGUAGE_ID As Byte) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ATTRIBUTE_ID,Integer) + Me.Adapter.SelectCommand.Parameters(1).Value = CType(LANGUAGE_ID,Byte) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If - 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 + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue 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) + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _ + Public Overloads Overridable Function GetDataByAttributeId(ByVal ATTRIBUTE_ID As Integer, ByVal LANGUAGE_ID As Byte) As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ATTRIBUTE_ID,Integer) + Me.Adapter.SelectCommand.Parameters(1).Value = CType(LANGUAGE_ID,Byte) + Dim dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable = New DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable End Function End Class @@ -4228,7 +5186,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 VWIDB_BE_ATTRIBUTETableAdapter + Partial Public Class TBZF_ADMIN_SOURCE_SQLTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -4345,99 +5303,528 @@ 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 = "VWIDB_BE_ATTRIBUTE" - tableMapping.ColumnMappings.Add("BE_ID", "BE_ID") - tableMapping.ColumnMappings.Add("BE", "BE") - tableMapping.ColumnMappings.Add("ATTR_ID", "ATTR_ID") - tableMapping.ColumnMappings.Add("ATTR_TITLE", "ATTR_TITLE") - tableMapping.ColumnMappings.Add("TYP_ID", "TYP_ID") - tableMapping.ColumnMappings.Add("TYPE_ID", "TYPE_ID") - tableMapping.ColumnMappings.Add("TYPE_NAME", "TYPE_NAME") - tableMapping.ColumnMappings.Add("VIEW_VISIBLE", "VIEW_VISIBLE") - tableMapping.ColumnMappings.Add("VIEW_SEQUENCE", "VIEW_SEQUENCE") - tableMapping.ColumnMappings.Add("LANG_ID", "LANG_ID") - tableMapping.ColumnMappings.Add("LANG_CODE", "LANG_CODE") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.DataSetTable = "TBZF_ADMIN_SOURCE_SQL" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") + tableMapping.ColumnMappings.Add("ENTITY_TITLE", "ENTITY_TITLE") + tableMapping.ColumnMappings.Add("SCOPE", "SCOPE") + tableMapping.ColumnMappings.Add("PK_COLUMN", "PK_COLUMN") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("FK_COLUMN", "FK_COLUMN") Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBZF_ADMIN_SOURCE_SQL] WHERE (([GUID] = @Original_GUID) AND ([PARENT"& _ + "_ID] = @Original_PARENT_ID) AND ([ENTITY_TITLE] = @Original_ENTITY_TITLE) AND (["& _ + "SCOPE] = @Original_SCOPE) AND ([PK_COLUMN] = @Original_PK_COLUMN) AND ((@IsNull_"& _ + "COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@Is"& _ + "Null_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WH"& _ + "O)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @O"& _ + "riginal_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR"& _ + " ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CH"& _ + "ANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ((@IsNull"& _ + "_FK_COLUMN = 1 AND [FK_COLUMN] IS NULL) OR ([FK_COLUMN] = @Original_FK_COLUMN)))"& _ + "" + 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_PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.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_SCOPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCOPE", 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("@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_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, "", "", "")) + 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.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_COLUMN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBZF_ADMIN_SOURCE_SQL] ([PARENT_ID], [ENTITY_TITLE], [SCOPE], [PK_CO"& _ + "LUMN], [COMMENT], [SQL_COMMAND], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHAN"& _ + "GED_WHEN], [FK_COLUMN]) VALUES (@PARENT_ID, @ENTITY_TITLE, @SCOPE, @PK_COLUMN, @"& _ + "COMMENT, @SQL_COMMAND, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @FK"& _ + "_COLUMN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_"& _ + "COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FK_COLUMN FROM TBZF_A"& _ + "DMIN_SOURCE_SQL WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCOPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCOPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PK_COLUMN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBZF_ADMIN_SOURCE_SQL] SET [PARENT_ID] = @PARENT_ID, [ENTITY_TITLE] = @EN"& _ + "TITY_TITLE, [SCOPE] = @SCOPE, [PK_COLUMN] = @PK_COLUMN, [COMMENT] = @COMMENT, [S"& _ + "QL_COMMAND] = @SQL_COMMAND, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN"& _ + ", [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [FK_COLUMN] = @F"& _ + "K_COLUMN WHERE (([GUID] = @Original_GUID) AND ([PARENT_ID] = @Original_PARENT_ID"& _ + ") AND ([ENTITY_TITLE] = @Original_ENTITY_TITLE) AND ([SCOPE] = @Original_SCOPE) "& _ + "AND ([PK_COLUMN] = @Original_PK_COLUMN) AND ((@IsNull_COMMENT = 1 AND [COMMENT] "& _ + "IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [AD"& _ + "DED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WH"& _ + "EN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ("& _ + "(@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Origina"& _ + "l_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR (["& _ + "CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ((@IsNull_FK_COLUMN = 1 AND [FK_COL"& _ + "UMN] IS NULL) OR ([FK_COLUMN] = @Original_FK_COLUMN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ID,"& _ + " ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CH"& _ + "ANGED_WHO, CHANGED_WHEN, FK_COLUMN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = @GUI"& _ + "D)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCOPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCOPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PK_COLUMN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ENTITY_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SCOPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCOPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PK_COLUMN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FK_COLUMN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECM_TESTConnectionString End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + 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 VWIDB_BE_ATTRIBUTE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_BE_ATTRIBUTE" + Me._commandCollection(0).CommandText = "SELECT TBZF_ADMIN_SOURCE_SQL.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBZF_ADMIN_SOURCE_SQL WHER"& _ + "E GUID = @GUID" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT VWIDB_BE_ATTRIBUTE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_BE_ATTRIBUTE WHERE ATTR"& _ - "_ID = @ATTRIBUTE_ID AND LANG_ID = @LANGUAGE_ID" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTRIBUTE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + 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.VWIDB_BE_ATTRIBUTEDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable, ByVal GUID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable + 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() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable) 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, "TBZF_ADMIN_SOURCE_SQL") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_PARENT_ID As Integer, ByVal Original_ENTITY_TITLE As String, ByVal Original_SCOPE As String, ByVal Original_PK_COLUMN As String, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_FK_COLUMN As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_PARENT_ID,Integer) + If (Original_ENTITY_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ENTITY_TITLE") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ENTITY_TITLE,String) End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue + If (Original_SCOPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_SCOPE") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SCOPE,String) + End If + If (Original_PK_COLUMN Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PK_COLUMN") + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_PK_COLUMN,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_COMMENT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + 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(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + If (Original_FK_COLUMN Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_FK_COLUMN,String) + 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 GetData() As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable = New DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ + Public Overloads Overridable Function Insert(ByVal PARENT_ID As Integer, ByVal ENTITY_TITLE As String, ByVal SCOPE As String, ByVal PK_COLUMN As String, ByVal COMMENT As String, ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal FK_COLUMN As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PARENT_ID,Integer) + If (ENTITY_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("ENTITY_TITLE") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ENTITY_TITLE,String) + End If + If (SCOPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("SCOPE") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SCOPE,String) + End If + If (PK_COLUMN Is Nothing) Then + Throw New Global.System.ArgumentNullException("PK_COLUMN") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(PK_COLUMN,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) + End If + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_COMMAND,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (FK_COLUMN Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(FK_COLUMN,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try End Function _ - Public Overloads Overridable Function FillByAttributeId(ByVal dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable, ByVal ATTRIBUTE_ID As Integer, ByVal LANGUAGE_ID As Byte) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ATTRIBUTE_ID,Integer) - Me.Adapter.SelectCommand.Parameters(1).Value = CType(LANGUAGE_ID,Byte) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update( _ + ByVal PARENT_ID As Integer, _ + ByVal ENTITY_TITLE As String, _ + ByVal SCOPE As String, _ + ByVal PK_COLUMN As String, _ + ByVal COMMENT As String, _ + ByVal SQL_COMMAND As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal FK_COLUMN As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_PARENT_ID As Integer, _ + ByVal Original_ENTITY_TITLE As String, _ + ByVal Original_SCOPE As String, _ + ByVal Original_PK_COLUMN As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_FK_COLUMN As String, _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PARENT_ID,Integer) + If (ENTITY_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("ENTITY_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ENTITY_TITLE,String) End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue + If (SCOPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("SCOPE") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SCOPE,String) + End If + If (PK_COLUMN Is Nothing) Then + Throw New Global.System.ArgumentNullException("PK_COLUMN") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(PK_COLUMN,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) + End If + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_COMMAND,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (FK_COLUMN Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(FK_COLUMN,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PARENT_ID,Integer) + If (Original_ENTITY_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ENTITY_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ENTITY_TITLE,String) + End If + If (Original_SCOPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_SCOPE") + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_SCOPE,String) + End If + If (Original_PK_COLUMN Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PK_COLUMN") + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_PK_COLUMN,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_COMMENT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + End If + If (Original_FK_COLUMN Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_FK_COLUMN,String) + End If + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try End Function _ - Public Overloads Overridable Function GetDataByAttributeId(ByVal ATTRIBUTE_ID As Integer, ByVal LANGUAGE_ID As Byte) As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ATTRIBUTE_ID,Integer) - Me.Adapter.SelectCommand.Parameters(1).Value = CType(LANGUAGE_ID,Byte) - Dim dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable = New DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update( _ + ByVal PARENT_ID As Integer, _ + ByVal ENTITY_TITLE As String, _ + ByVal SCOPE As String, _ + ByVal PK_COLUMN As String, _ + ByVal COMMENT As String, _ + ByVal SQL_COMMAND As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal FK_COLUMN As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_PARENT_ID As Integer, _ + ByVal Original_ENTITY_TITLE As String, _ + ByVal Original_SCOPE As String, _ + ByVal Original_PK_COLUMN As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_FK_COLUMN As String) As Integer + Return Me.Update(PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FK_COLUMN, Original_GUID, Original_PARENT_ID, Original_ENTITY_TITLE, Original_SCOPE, Original_PK_COLUMN, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_FK_COLUMN, Original_GUID) End Function End Class @@ -4460,6 +5847,8 @@ 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 @@ -4517,6 +5906,20 @@ 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 @@ -4548,6 +5951,10 @@ 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 @@ -4570,6 +5977,9 @@ 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 @@ -4608,6 +6018,15 @@ 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) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If Return result End Function @@ -4642,6 +6061,14 @@ 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 (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If Return result End Function @@ -4652,6 +6079,14 @@ 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 (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -4732,6 +6167,11 @@ 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"& _ @@ -4793,6 +6233,15 @@ 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 ----------- ' @@ -4865,6 +6314,10 @@ 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 80a98c8c..202d9258 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.xsd +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xsd @@ -282,6 +282,116 @@ FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = @ATTRIBUTE_ID AND LANG_ID = @ + + + + + + DELETE FROM [TBZF_ADMIN_SOURCE_SQL] WHERE (([GUID] = @Original_GUID) AND ([PARENT_ID] = @Original_PARENT_ID) AND ([ENTITY_TITLE] = @Original_ENTITY_TITLE) AND ([SCOPE] = @Original_SCOPE) AND ([PK_COLUMN] = @Original_PK_COLUMN) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [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)) AND ((@IsNull_FK_COLUMN = 1 AND [FK_COLUMN] IS NULL) OR ([FK_COLUMN] = @Original_FK_COLUMN))) + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO [TBZF_ADMIN_SOURCE_SQL] ([PARENT_ID], [ENTITY_TITLE], [SCOPE], [PK_COLUMN], [COMMENT], [SQL_COMMAND], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [FK_COLUMN]) VALUES (@PARENT_ID, @ENTITY_TITLE, @SCOPE, @PK_COLUMN, @COMMENT, @SQL_COMMAND, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @FK_COLUMN); +SELECT GUID, PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FK_COLUMN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + SELECT TBZF_ADMIN_SOURCE_SQL.* +FROM TBZF_ADMIN_SOURCE_SQL WHERE GUID = @GUID + + + + + + + + UPDATE [TBZF_ADMIN_SOURCE_SQL] SET [PARENT_ID] = @PARENT_ID, [ENTITY_TITLE] = @ENTITY_TITLE, [SCOPE] = @SCOPE, [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, [FK_COLUMN] = @FK_COLUMN WHERE (([GUID] = @Original_GUID) AND ([PARENT_ID] = @Original_PARENT_ID) AND ([ENTITY_TITLE] = @Original_ENTITY_TITLE) AND ([SCOPE] = @Original_SCOPE) AND ([PK_COLUMN] = @Original_PK_COLUMN) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [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)) AND ((@IsNull_FK_COLUMN = 1 AND [FK_COLUMN] IS NULL) OR ([FK_COLUMN] = @Original_FK_COLUMN))); +SELECT GUID, PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FK_COLUMN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -290,7 +400,7 @@ FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = @ATTRIBUTE_ID AND LANG_ID = @ - + @@ -329,7 +439,7 @@ FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = @ATTRIBUTE_ID AND LANG_ID = @ - + @@ -386,7 +496,7 @@ FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = @ATTRIBUTE_ID AND LANG_ID = @ - + @@ -443,7 +553,7 @@ FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = @ATTRIBUTE_ID AND LANG_ID = @ - + @@ -484,6 +594,72 @@ FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = @ATTRIBUTE_ID AND LANG_ID = @ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -502,10 +678,14 @@ FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = @ATTRIBUTE_ID AND LANG_ID = @ + + + + - + \ No newline at end of file diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.xss b/GUIs.ZooFlow/DSIDB_Stammdaten.xss index a5885506..2d1dc461 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.xss +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xss @@ -6,13 +6,14 @@ --> - - - - + + + + + - + 677 diff --git a/GUIs.ZooFlow/My Project/Resources.Designer.vb b/GUIs.ZooFlow/My Project/Resources.Designer.vb index cb4c270b..ba571dc4 100644 --- a/GUIs.ZooFlow/My Project/Resources.Designer.vb +++ b/GUIs.ZooFlow/My Project/Resources.Designer.vb @@ -320,6 +320,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_check4() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_check4", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' @@ -530,6 +540,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property delete() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("delete", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' @@ -610,6 +630,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property managedatasource1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("managedatasource1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' @@ -710,6 +740,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property save7() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("save7", 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 5869924d..a83ea6b9 100644 --- a/GUIs.ZooFlow/My Project/Resources.resx +++ b/GUIs.ZooFlow/My Project/Resources.resx @@ -127,6 +127,9 @@ ..\Resources\ZooflowTitle.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\save6.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 @@ -151,6 +154,9 @@ ..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\DD_Icons_ICO_PMANAGER_128px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\about1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -163,8 +169,8 @@ ..\Resources\StatusAnnotations_Stop_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\DD_Icons_ICO_PMANAGER_128px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\actions_check4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\ZOO_FLOW_ sysicon_256.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -220,6 +226,9 @@ ..\Resources\highimportance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\save7.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\actions_deletecircled2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -256,6 +265,9 @@ ..\Resources\doublenext.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\delete.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\4_GLOBIX_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -328,7 +340,7 @@ ..\Resources\GLOBIX_short.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\save6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\managedatasource1.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/actions_check4.svg b/GUIs.ZooFlow/Resources/actions_check4.svg new file mode 100644 index 00000000..35c68028 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_check4.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/delete.svg b/GUIs.ZooFlow/Resources/delete.svg new file mode 100644 index 00000000..c3f84519 --- /dev/null +++ b/GUIs.ZooFlow/Resources/delete.svg @@ -0,0 +1,18 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/managedatasource1.svg b/GUIs.ZooFlow/Resources/managedatasource1.svg new file mode 100644 index 00000000..d08be544 --- /dev/null +++ b/GUIs.ZooFlow/Resources/managedatasource1.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/save7.svg b/GUIs.ZooFlow/Resources/save7.svg new file mode 100644 index 00000000..fb4f9a13 --- /dev/null +++ b/GUIs.ZooFlow/Resources/save7.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/ZooFlow.vbproj b/GUIs.ZooFlow/ZooFlow.vbproj index fa36f2ce..acd6d7d8 100644 --- a/GUIs.ZooFlow/ZooFlow.vbproj +++ b/GUIs.ZooFlow/ZooFlow.vbproj @@ -142,6 +142,12 @@ Form + + frmAdmin_SourceSQL.vb + + + Form + frmGlobix_Dokumentart.vb @@ -320,6 +326,9 @@ frmAdmin_IDBEntity.vb + + frmAdmin_SourceSQL.vb + frmGlobix_Dokumentart.vb @@ -696,6 +705,18 @@ + + + + + + + + + + + +