From 049703c61499206c6ca960b24b24c71e68704bcd Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Wed, 10 Feb 2021 12:12:42 +0100 Subject: [PATCH] MS Adminsitration --- .../frmAdministrationZooFlow.Designer.vb | 513 ++++++++++++++++-- .../frmAdministrationZooFlow.resx | 103 +++- .../frmAdministrationZooFlow.vb | 50 +- GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb | 174 ++++-- GUIs.ZooFlow/DSIDB_Stammdaten.xsc | 28 +- GUIs.ZooFlow/DSIDB_Stammdaten.xsd | 88 +-- GUIs.ZooFlow/DSIDB_Stammdaten.xss | 4 +- 7 files changed, 836 insertions(+), 124 deletions(-) diff --git a/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.Designer.vb b/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.Designer.vb index fa9dcd30..77018c32 100644 --- a/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.Designer.vb @@ -23,6 +23,14 @@ Partial Class frmAdministrationZooFlow Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() + Dim GUIDLabel As System.Windows.Forms.Label + Dim TITLELabel As System.Windows.Forms.Label + Dim VIEW_SEQUENCELabel As System.Windows.Forms.Label + Dim COMMENTLabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim CHANGED_WHENLabel As System.Windows.Forms.Label Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdministrationZooFlow)) Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() @@ -30,6 +38,8 @@ Partial Class frmAdministrationZooFlow Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() + Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() + Me.labelError = New DevExpress.XtraBars.BarStaticItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPage_ClipboardWatcher = New DevExpress.XtraBars.Ribbon.RibbonPage() @@ -54,8 +64,46 @@ Partial Class frmAdministrationZooFlow Me.CtrlClipboardWatcher1 = New DigitalData.GUIs.ZooFlow.ctrlClipboardWatcher() Me.XtraTabPage_GlobalIndexer = New DevExpress.XtraTab.XtraTabPage() Me.CtrlGlobalIndexer1 = New DigitalData.GUIs.ZooFlow.ctrlGlobalIndexer() - Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() - Me.labelError = New DevExpress.XtraBars.BarStaticItem() + Me.XtraTabPage_IDB = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabControlIDB = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPageIDB_Attributes = New DevExpress.XtraTab.XtraTabPage() + Me.TBIDB_ATTRIBUTEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.TITLETextBox = New System.Windows.Forms.TextBox() + Me.TYP_IDTextBox = New System.Windows.Forms.TextBox() + Me.MULTI_CONTEXTCheckBox = New System.Windows.Forms.CheckBox() + Me.VIEW_SEQUENCETextBox = New System.Windows.Forms.TextBox() + Me.VIEW_VISIBLECheckBox = New System.Windows.Forms.CheckBox() + Me.COMMENTTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.TBIDB_ATTRIBUTETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTETableAdapter() + Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colTITLE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colATTR_TYPE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.TBIDB_ATTRIBUTE_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBIDB_ATTRIBUTE_TYPETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTE_TYPETableAdapter() + Me.ComboBox1 = New System.Windows.Forms.ComboBox() + Me.RibbonPage_IDB = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroupAttributes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.BarButtonItemSaveAttribute = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItemAddAttribute = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItemRefreshAttribute = New DevExpress.XtraBars.BarButtonItem() + GUIDLabel = New System.Windows.Forms.Label() + TITLELabel = New System.Windows.Forms.Label() + VIEW_SEQUENCELabel = New System.Windows.Forms.Label() + COMMENTLabel = New System.Windows.Forms.Label() + ADDED_WHOLabel = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + CHANGED_WHENLabel = New System.Windows.Forms.Label() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -66,17 +114,98 @@ Partial Class frmAdministrationZooFlow Me.XtraTabControl.SuspendLayout() Me.XtraTabPage_ClipboardWatcher.SuspendLayout() Me.XtraTabPage_GlobalIndexer.SuspendLayout() + Me.XtraTabPage_IDB.SuspendLayout() + CType(Me.XtraTabControlIDB, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControlIDB.SuspendLayout() + Me.XtraTabPageIDB_Attributes.SuspendLayout() + CType(Me.TBIDB_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBIDB_ATTRIBUTE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Location = New System.Drawing.Point(297, 12) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(36, 13) + GUIDLabel.TabIndex = 0 + GUIDLabel.Text = "GUID:" + ' + 'TITLELabel + ' + TITLELabel.AutoSize = True + TITLELabel.Location = New System.Drawing.Point(351, 12) + TITLELabel.Name = "TITLELabel" + TITLELabel.Size = New System.Drawing.Size(71, 13) + TITLELabel.TabIndex = 2 + TITLELabel.Text = "Bezeichnung:" + ' + 'VIEW_SEQUENCELabel + ' + VIEW_SEQUENCELabel.AutoSize = True + VIEW_SEQUENCELabel.Location = New System.Drawing.Point(351, 82) + VIEW_SEQUENCELabel.Name = "VIEW_SEQUENCELabel" + VIEW_SEQUENCELabel.Size = New System.Drawing.Size(93, 13) + VIEW_SEQUENCELabel.TabIndex = 8 + VIEW_SEQUENCELabel.Text = "View Reihenfolge:" + ' + 'COMMENTLabel + ' + COMMENTLabel.AutoSize = True + COMMENTLabel.Location = New System.Drawing.Point(351, 106) + COMMENTLabel.Name = "COMMENTLabel" + COMMENTLabel.Size = New System.Drawing.Size(65, 13) + COMMENTLabel.TabIndex = 12 + COMMENTLabel.Text = "Kommentar:" + ' + 'ADDED_WHOLabel + ' + ADDED_WHOLabel.AutoSize = True + ADDED_WHOLabel.Location = New System.Drawing.Point(351, 146) + ADDED_WHOLabel.Name = "ADDED_WHOLabel" + ADDED_WHOLabel.Size = New System.Drawing.Size(65, 13) + ADDED_WHOLabel.TabIndex = 14 + ADDED_WHOLabel.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel + ' + ADDED_WHENLabel.AutoSize = True + ADDED_WHENLabel.Location = New System.Drawing.Point(472, 146) + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ADDED_WHENLabel.Size = New System.Drawing.Size(73, 13) + ADDED_WHENLabel.TabIndex = 16 + ADDED_WHENLabel.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Location = New System.Drawing.Point(351, 188) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 13) + CHANGED_WHOLabel.TabIndex = 18 + CHANGED_WHOLabel.Text = "Geändert wer:" + ' + 'CHANGED_WHENLabel + ' + CHANGED_WHENLabel.AutoSize = True + CHANGED_WHENLabel.Location = New System.Drawing.Point(472, 188) + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + CHANGED_WHENLabel.Size = New System.Drawing.Size(85, 13) + CHANGED_WHENLabel.TabIndex = 20 + CHANGED_WHENLabel.Text = "Geändert wann:" + ' 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.labelStatus, Me.labelError}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.labelStatus, Me.labelError, Me.BarButtonItemSaveAttribute, Me.BarButtonItemAddAttribute, Me.BarButtonItemRefreshAttribute}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 8 + Me.RibbonControl1.MaxItemId = 11 Me.RibbonControl1.Name = "RibbonControl1" - Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage_ClipboardWatcher, Me.RibbonPage_GlobalIndexer}) - Me.RibbonControl1.Size = New System.Drawing.Size(1328, 159) + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage_ClipboardWatcher, Me.RibbonPage_GlobalIndexer, Me.RibbonPage_IDB}) + Me.RibbonControl1.Size = New System.Drawing.Size(1328, 158) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' 'BarButtonItem1 @@ -117,6 +246,22 @@ Partial Class frmAdministrationZooFlow Me.BarButtonItem5.Name = "BarButtonItem5" Me.BarButtonItem5.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText ' + 'labelStatus + ' + Me.labelStatus.Caption = "labelStatus" + Me.labelStatus.Id = 6 + Me.labelStatus.ImageOptions.SvgImage = CType(resources.GetObject("labelStatus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.labelStatus.Name = "labelStatus" + Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'labelError + ' + Me.labelError.Caption = "labelError" + Me.labelError.Id = 7 + Me.labelError.ImageOptions.SvgImage = CType(resources.GetObject("labelError.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.labelError.Name = "labelError" + Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2}) @@ -186,10 +331,10 @@ Partial Class frmAdministrationZooFlow ' Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError) - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 729) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 727) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(1328, 22) + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1328, 24) ' 'RibbonPage2 ' @@ -218,7 +363,7 @@ Partial Class frmAdministrationZooFlow Me.TreeList1.OptionsView.ShowIndicator = False Me.TreeList1.OptionsView.ShowVertLines = False Me.TreeList1.SelectImageList = Me.SvgImageCollection1 - Me.TreeList1.Size = New System.Drawing.Size(193, 521) + Me.TreeList1.Size = New System.Drawing.Size(193, 540) Me.TreeList1.TabIndex = 8 ' 'TreeListColumn1 @@ -246,37 +391,37 @@ Partial Class frmAdministrationZooFlow 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, 570) + Me.DockPanel1.Size = New System.Drawing.Size(200, 569) Me.DockPanel1.Text = "Übersicht" ' 'DockPanel1_Container ' Me.DockPanel1_Container.Controls.Add(Me.TreeList1) - 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, 521) + Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 540) Me.DockPanel1_Container.TabIndex = 0 ' 'XtraTabControl ' Me.XtraTabControl.Dock = System.Windows.Forms.DockStyle.Fill - Me.XtraTabControl.Location = New System.Drawing.Point(200, 159) + Me.XtraTabControl.Location = New System.Drawing.Point(200, 158) Me.XtraTabControl.Name = "XtraTabControl" Me.XtraTabControl.SelectedTabPage = Me.XtraTabPage_ClipboardWatcher - Me.XtraTabControl.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[False] - Me.XtraTabControl.Size = New System.Drawing.Size(1128, 570) + Me.XtraTabControl.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True] + Me.XtraTabControl.Size = New System.Drawing.Size(1128, 569) Me.XtraTabControl.TabIndex = 4 - Me.XtraTabControl.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage_ClipboardWatcher, Me.XtraTabPage_GlobalIndexer}) + Me.XtraTabControl.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage_ClipboardWatcher, Me.XtraTabPage_GlobalIndexer, Me.XtraTabPage_IDB}) ' 'XtraTabPage_ClipboardWatcher ' Me.XtraTabPage_ClipboardWatcher.Controls.Add(Me.CtrlClipboardWatcher1) Me.XtraTabPage_ClipboardWatcher.Name = "XtraTabPage_ClipboardWatcher" Me.XtraTabPage_ClipboardWatcher.PageVisible = False - Me.XtraTabPage_ClipboardWatcher.Size = New System.Drawing.Size(1126, 568) + Me.XtraTabPage_ClipboardWatcher.Size = New System.Drawing.Size(1126, 544) Me.XtraTabPage_ClipboardWatcher.Text = "Clipboard Watcher" ' 'CtrlClipboardWatcher1 @@ -284,7 +429,7 @@ Partial Class frmAdministrationZooFlow Me.CtrlClipboardWatcher1.Dock = System.Windows.Forms.DockStyle.Fill Me.CtrlClipboardWatcher1.Location = New System.Drawing.Point(0, 0) Me.CtrlClipboardWatcher1.Name = "CtrlClipboardWatcher1" - Me.CtrlClipboardWatcher1.Size = New System.Drawing.Size(1126, 568) + Me.CtrlClipboardWatcher1.Size = New System.Drawing.Size(1126, 544) Me.CtrlClipboardWatcher1.TabIndex = 0 ' 'XtraTabPage_GlobalIndexer @@ -292,32 +437,285 @@ Partial Class frmAdministrationZooFlow Me.XtraTabPage_GlobalIndexer.Controls.Add(Me.CtrlGlobalIndexer1) Me.XtraTabPage_GlobalIndexer.Name = "XtraTabPage_GlobalIndexer" Me.XtraTabPage_GlobalIndexer.PageVisible = False - Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(1126, 568) + Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(1126, 544) Me.XtraTabPage_GlobalIndexer.Text = "Global Indexer" ' 'CtrlGlobalIndexer1 ' - Me.CtrlGlobalIndexer1.Dock = System.Windows.Forms.DockStyle.Fill - Me.CtrlGlobalIndexer1.Location = New System.Drawing.Point(0, 0) + Me.CtrlGlobalIndexer1.Location = New System.Drawing.Point(42, 29) Me.CtrlGlobalIndexer1.Name = "CtrlGlobalIndexer1" - Me.CtrlGlobalIndexer1.Size = New System.Drawing.Size(1126, 568) + Me.CtrlGlobalIndexer1.Size = New System.Drawing.Size(1084, 539) Me.CtrlGlobalIndexer1.TabIndex = 0 ' - 'labelStatus + 'XtraTabPage_IDB + ' + Me.XtraTabPage_IDB.Controls.Add(Me.XtraTabControlIDB) + Me.XtraTabPage_IDB.Name = "XtraTabPage_IDB" + Me.XtraTabPage_IDB.Size = New System.Drawing.Size(1126, 544) + 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.XtraTabPage1 + Me.XtraTabControlIDB.Size = New System.Drawing.Size(1126, 544) + Me.XtraTabControlIDB.TabIndex = 0 + Me.XtraTabControlIDB.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPageIDB_Attributes}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(1124, 519) + Me.XtraTabPage1.Text = "XtraTabPage1" + ' + 'XtraTabPageIDB_Attributes + ' + Me.XtraTabPageIDB_Attributes.AutoScroll = True + Me.XtraTabPageIDB_Attributes.Controls.Add(Me.ComboBox1) + Me.XtraTabPageIDB_Attributes.Controls.Add(Me.GridControl1) + Me.XtraTabPageIDB_Attributes.Controls.Add(GUIDLabel) + Me.XtraTabPageIDB_Attributes.Controls.Add(Me.GUIDTextBox) + Me.XtraTabPageIDB_Attributes.Controls.Add(TITLELabel) + Me.XtraTabPageIDB_Attributes.Controls.Add(Me.TITLETextBox) + Me.XtraTabPageIDB_Attributes.Controls.Add(Me.TYP_IDTextBox) + Me.XtraTabPageIDB_Attributes.Controls.Add(Me.MULTI_CONTEXTCheckBox) + Me.XtraTabPageIDB_Attributes.Controls.Add(VIEW_SEQUENCELabel) + Me.XtraTabPageIDB_Attributes.Controls.Add(Me.VIEW_SEQUENCETextBox) + Me.XtraTabPageIDB_Attributes.Controls.Add(Me.VIEW_VISIBLECheckBox) + Me.XtraTabPageIDB_Attributes.Controls.Add(COMMENTLabel) + Me.XtraTabPageIDB_Attributes.Controls.Add(Me.COMMENTTextBox) + Me.XtraTabPageIDB_Attributes.Controls.Add(ADDED_WHOLabel) + Me.XtraTabPageIDB_Attributes.Controls.Add(Me.ADDED_WHOTextBox) + Me.XtraTabPageIDB_Attributes.Controls.Add(ADDED_WHENLabel) + Me.XtraTabPageIDB_Attributes.Controls.Add(Me.ADDED_WHENTextBox) + Me.XtraTabPageIDB_Attributes.Controls.Add(CHANGED_WHOLabel) + Me.XtraTabPageIDB_Attributes.Controls.Add(Me.CHANGED_WHOTextBox) + Me.XtraTabPageIDB_Attributes.Controls.Add(CHANGED_WHENLabel) + Me.XtraTabPageIDB_Attributes.Controls.Add(Me.CHANGED_WHENTextBox) + Me.XtraTabPageIDB_Attributes.Name = "XtraTabPageIDB_Attributes" + Me.XtraTabPageIDB_Attributes.Size = New System.Drawing.Size(1124, 519) + Me.XtraTabPageIDB_Attributes.Text = "Attributverwaltung" + ' + 'TBIDB_ATTRIBUTEBindingSource + ' + Me.TBIDB_ATTRIBUTEBindingSource.DataMember = "TBIDB_ATTRIBUTE" + Me.TBIDB_ATTRIBUTEBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'DSIDB_Stammdaten + ' + Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten" + Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "GUID", True)) + Me.GUIDTextBox.Location = New System.Drawing.Point(300, 28) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.ReadOnly = True + Me.GUIDTextBox.Size = New System.Drawing.Size(33, 21) + Me.GUIDTextBox.TabIndex = 1 + ' + 'TITLETextBox + ' + Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "TITLE", True)) + Me.TITLETextBox.Location = New System.Drawing.Point(354, 28) + Me.TITLETextBox.Name = "TITLETextBox" + Me.TITLETextBox.Size = New System.Drawing.Size(290, 21) + Me.TITLETextBox.TabIndex = 3 + ' + 'TYP_IDTextBox + ' + Me.TYP_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "TYP_ID", True)) + Me.TYP_IDTextBox.Location = New System.Drawing.Point(777, 28) + Me.TYP_IDTextBox.Name = "TYP_IDTextBox" + Me.TYP_IDTextBox.Size = New System.Drawing.Size(104, 21) + Me.TYP_IDTextBox.TabIndex = 5 + ' + 'MULTI_CONTEXTCheckBox + ' + Me.MULTI_CONTEXTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBIDB_ATTRIBUTEBindingSource, "MULTI_CONTEXT", True)) + Me.MULTI_CONTEXTCheckBox.Location = New System.Drawing.Point(354, 55) + Me.MULTI_CONTEXTCheckBox.Name = "MULTI_CONTEXTCheckBox" + Me.MULTI_CONTEXTCheckBox.Size = New System.Drawing.Size(142, 24) + Me.MULTI_CONTEXTCheckBox.TabIndex = 7 + Me.MULTI_CONTEXTCheckBox.Text = "Vektor/Multi Context" + Me.MULTI_CONTEXTCheckBox.UseVisualStyleBackColor = True + ' + 'VIEW_SEQUENCETextBox + ' + Me.VIEW_SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "VIEW_SEQUENCE", True)) + Me.VIEW_SEQUENCETextBox.Location = New System.Drawing.Point(450, 79) + Me.VIEW_SEQUENCETextBox.Name = "VIEW_SEQUENCETextBox" + Me.VIEW_SEQUENCETextBox.Size = New System.Drawing.Size(33, 21) + Me.VIEW_SEQUENCETextBox.TabIndex = 9 + ' + 'VIEW_VISIBLECheckBox + ' + Me.VIEW_VISIBLECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBIDB_ATTRIBUTEBindingSource, "VIEW_VISIBLE", True)) + Me.VIEW_VISIBLECheckBox.Location = New System.Drawing.Point(502, 77) + Me.VIEW_VISIBLECheckBox.Name = "VIEW_VISIBLECheckBox" + Me.VIEW_VISIBLECheckBox.Size = New System.Drawing.Size(104, 24) + Me.VIEW_VISIBLECheckBox.TabIndex = 11 + Me.VIEW_VISIBLECheckBox.Text = "View visible" + Me.VIEW_VISIBLECheckBox.UseVisualStyleBackColor = True + ' + 'COMMENTTextBox + ' + Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "COMMENT", True)) + Me.COMMENTTextBox.Location = New System.Drawing.Point(354, 122) + Me.COMMENTTextBox.Name = "COMMENTTextBox" + Me.COMMENTTextBox.Size = New System.Drawing.Size(417, 21) + Me.COMMENTTextBox.TabIndex = 13 + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(354, 164) + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.ReadOnly = True + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(104, 21) + Me.ADDED_WHOTextBox.TabIndex = 15 + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(475, 164) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.ReadOnly = True + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(131, 21) + Me.ADDED_WHENTextBox.TabIndex = 17 + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(354, 204) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.ReadOnly = True + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(104, 21) + Me.CHANGED_WHOTextBox.TabIndex = 19 ' - Me.labelStatus.Caption = "labelStatus" - Me.labelStatus.Id = 6 - Me.labelStatus.ImageOptions.SvgImage = CType(resources.GetObject("txtSuccessStatus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.labelStatus.Name = "labelStatus" - Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + 'CHANGED_WHENTextBox ' - 'labelError + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(475, 204) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.ReadOnly = True + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(131, 21) + Me.CHANGED_WHENTextBox.TabIndex = 21 ' - Me.labelError.Caption = "labelError" - Me.labelError.Id = 7 - Me.labelError.ImageOptions.SvgImage = CType(resources.GetObject("labelError.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.labelError.Name = "labelError" - Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + 'TBIDB_ATTRIBUTETableAdapter + ' + Me.TBIDB_ATTRIBUTETableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Me.TBIDB_ATTRIBUTETableAdapter + Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'GridControl1 + ' + Me.GridControl1.DataSource = Me.TBIDB_ATTRIBUTEBindingSource + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Left + Me.GridControl1.Location = New System.Drawing.Point(0, 0) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.MenuManager = Me.RibbonControl1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(282, 519) + Me.GridControl1.TabIndex = 28 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'GridView1 + ' + Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Gainsboro + Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True + Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colTITLE, Me.colATTR_TYPE}) + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + Me.GridView1.OptionsView.EnableAppearanceEvenRow = True + ' + 'colGUID + ' + Me.colGUID.Caption = "ID" + Me.colGUID.FieldName = "GUID" + Me.colGUID.Name = "colGUID" + Me.colGUID.Visible = True + Me.colGUID.VisibleIndex = 0 + Me.colGUID.Width = 49 + ' + 'colTITLE + ' + Me.colTITLE.Caption = "Title" + Me.colTITLE.FieldName = "TITLE" + Me.colTITLE.Name = "colTITLE" + Me.colTITLE.Visible = True + Me.colTITLE.VisibleIndex = 1 + Me.colTITLE.Width = 135 + ' + 'colATTR_TYPE + ' + Me.colATTR_TYPE.Caption = "Typ" + Me.colATTR_TYPE.FieldName = "ATTR_TYPE" + Me.colATTR_TYPE.Name = "colATTR_TYPE" + Me.colATTR_TYPE.Visible = True + Me.colATTR_TYPE.VisibleIndex = 2 + Me.colATTR_TYPE.Width = 73 + ' + 'TBIDB_ATTRIBUTE_TYPEBindingSource + ' + Me.TBIDB_ATTRIBUTE_TYPEBindingSource.DataMember = "TBIDB_ATTRIBUTE_TYPE" + Me.TBIDB_ATTRIBUTE_TYPEBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'TBIDB_ATTRIBUTE_TYPETableAdapter + ' + Me.TBIDB_ATTRIBUTE_TYPETableAdapter.ClearBeforeFill = True + ' + 'ComboBox1 + ' + Me.ComboBox1.FormattingEnabled = True + Me.ComboBox1.Location = New System.Drawing.Point(650, 28) + Me.ComboBox1.Name = "ComboBox1" + Me.ComboBox1.Size = New System.Drawing.Size(121, 21) + Me.ComboBox1.TabIndex = 29 + ' + '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.BarButtonItemSaveAttribute) + Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemAddAttribute) + Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemRefreshAttribute) + Me.RibbonPageGroupAttributes.Name = "RibbonPageGroupAttributes" + Me.RibbonPageGroupAttributes.Text = "Attribute" + ' + 'BarButtonItemSaveAttribute + ' + Me.BarButtonItemSaveAttribute.Caption = "Speichern" + Me.BarButtonItemSaveAttribute.Id = 8 + Me.BarButtonItemSaveAttribute.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItemSaveAttribute.Name = "BarButtonItemSaveAttribute" + ' + 'BarButtonItemAddAttribute + ' + Me.BarButtonItemAddAttribute.Caption = "Hinzufügen" + Me.BarButtonItemAddAttribute.Id = 9 + Me.BarButtonItemAddAttribute.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem7.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItemAddAttribute.Name = "BarButtonItemAddAttribute" + ' + 'BarButtonItemRefreshAttribute + ' + Me.BarButtonItemRefreshAttribute.Caption = "Aktualisieren" + Me.BarButtonItemRefreshAttribute.Id = 10 + Me.BarButtonItemRefreshAttribute.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem8.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItemRefreshAttribute.Name = "BarButtonItemRefreshAttribute" ' 'frmAdministrationZooFlow ' @@ -343,6 +741,16 @@ Partial Class frmAdministrationZooFlow Me.XtraTabControl.ResumeLayout(False) Me.XtraTabPage_ClipboardWatcher.ResumeLayout(False) Me.XtraTabPage_GlobalIndexer.ResumeLayout(False) + Me.XtraTabPage_IDB.ResumeLayout(False) + CType(Me.XtraTabControlIDB, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControlIDB.ResumeLayout(False) + Me.XtraTabPageIDB_Attributes.ResumeLayout(False) + Me.XtraTabPageIDB_Attributes.PerformLayout() + CType(Me.TBIDB_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBIDB_ATTRIBUTE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -380,4 +788,39 @@ Partial Class frmAdministrationZooFlow Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem Friend WithEvents labelError As DevExpress.XtraBars.BarStaticItem + Friend WithEvents XtraTabPage_IDB As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabControlIDB As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPageIDB_Attributes As DevExpress.XtraTab.XtraTabPage + Friend WithEvents TBIDB_ATTRIBUTEBindingSource As BindingSource + Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten + Friend WithEvents TBIDB_ATTRIBUTETableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTETableAdapter + Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents GUIDTextBox As TextBox + Friend WithEvents TITLETextBox As TextBox + Friend WithEvents TYP_IDTextBox As TextBox + Friend WithEvents MULTI_CONTEXTCheckBox As CheckBox + Friend WithEvents VIEW_SEQUENCETextBox As TextBox + Friend WithEvents VIEW_VISIBLECheckBox As CheckBox + Friend WithEvents COMMENTTextBox As TextBox + Friend WithEvents ADDED_WHOTextBox As TextBox + Friend WithEvents ADDED_WHENTextBox As TextBox + Friend WithEvents CHANGED_WHOTextBox As TextBox + Friend WithEvents CHANGED_WHENTextBox As TextBox + Friend WithEvents DELETEDCheckBox As CheckBox + Friend WithEvents DELETED_WHOTextBox As TextBox + Friend WithEvents DELETED_WHENTextBox As TextBox + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colTITLE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colATTR_TYPE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents TBIDB_ATTRIBUTE_TYPEBindingSource As BindingSource + Friend WithEvents TBIDB_ATTRIBUTE_TYPETableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTE_TYPETableAdapter + Friend WithEvents ComboBox1 As ComboBox + Friend WithEvents BarButtonItemSaveAttribute As DevExpress.XtraBars.BarButtonItem + 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 End Class diff --git a/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.resx b/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.resx index bdc85e93..6de9a315 100644 --- a/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.resx +++ b/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.resx @@ -117,6 +117,30 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + @@ -209,7 +233,7 @@ DQo8L3N2Zz4L - + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl @@ -244,6 +268,62 @@ MTYsMjRjLTEuMSwwLTItMC45LTItMmMwLTEuMSwwLjktMiwyLTIgICBzMiwwLjksMiwyQzE4LDIzLjEs MTcuMSwyNCwxNiwyNHogTTE4LDE4aC00VjhoNFYxOHoiIGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwv c3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iU2F2ZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5 + bGU+DQogIDxwYXRoIGQ9Ik0yNyw0aC0zdjEwSDhWNEg1QzQuNCw0LDQsNC40LDQsNXYyMmMwLDAuNiww + LjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjVDMjgsNC40LDI3LjYsNCwyNyw0eiBNMjQsMjRIOHYt + NiAgaDE2VjI0eiBNMTAsNHY4aDEwVjRIMTB6IE0xNCwxMGgtMlY2aDJWMTB6IiBjbGFzcz0iQmxhY2si + IC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZCI+DQogICAgPHBhdGggZD0iTTI3LDE0aC05VjVj + MC0wLjUtMC41LTEtMS0xaC0yYy0wLjUsMC0xLDAuNS0xLDF2OUg1Yy0wLjUsMC0xLDAuNS0xLDF2MmMw + LDAuNSwwLjUsMSwxLDFoOXY5ICAgYzAsMC41LDAuNSwxLDEsMWgyYzAuNSwwLDEtMC41LDEtMXYtOWg5 + YzAuNSwwLDEtMC41LDEtMXYtMkMyOCwxNC41LDI3LjUsMTQsMjcsMTR6IiBjbGFzcz0iR3JlZW4iIC8+ + DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAC4DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlJlZnJlc2hfMV8iPg0KICAgIDxwYXRoIGQ9Ik0yNC41 + LDcuNUMyMi4zLDUuMywxOS4zLDQsMTYsNEMxMC4xLDQsNS4xLDguMyw0LjIsMTRoNC4xYzAuOS0zLjQs + NC02LDcuNy02YzIuMiwwLDQuMiwwLjksNS42LDIuNEwxOCwxNCAgIGg1LjdoNC4xSDI4VjRMMjQuNSw3 + LjV6IiBjbGFzcz0iR3JlZW4iIC8+DQogICAgPHBhdGggZD0iTTE2LjIsMjRjLTIuMiwwLTQuMi0wLjkt + NS42LTIuNGwzLjYtMy42SDguNEg0LjRINC4ydjEwbDMuNS0zLjVjMi4yLDIuMiw1LjIsMy41LDguNSwz + LjUgICBDMjIuMSwyOCwyNywyMy43LDI4LDE4aC00LjFDMjMsMjEuNCwxOS45LDI0LDE2LjIsMjR6IiBj + bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= @@ -252,6 +332,12 @@ 352, 21 + + 647, 21 + + + 487, 21 + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z @@ -275,4 +361,19 @@ LjEsMjguMSwyNy42LDI3LjZ6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + 487, 21 + + + 875, 21 + + + 1097, 21 + + + 1270, 21 + + + 1530, 21 + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.vb b/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.vb index 9c5bf05b..ab154a68 100644 --- a/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.vb +++ b/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.vb @@ -5,6 +5,7 @@ Imports DigitalData.Modules.Logging Public Class frmAdministrationZooFlow Private Const IDB_ATTRIBUTES = "IDB_ATTRIBUTES" + Private Const IDBConst = "IDB" Private Const IDB_ENTITIES = "IDB_ENTITIES" Private Const GLOBIX = "GLOBIX" Private Const CLIPBOARD_WATCHER = "CLIPBOARD_WATCHER" @@ -12,15 +13,16 @@ Public Class frmAdministrationZooFlow Private Logger As Logger Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load - Logger = My.LogConfig.GetLogger + Logger = My.LogConfig.GetLogger + XtraTabControl.ShowTabHeader = False End Sub - Sub DisplayTab(PageToDisplay As XtraTabPage) + Sub DisplayTab(pPageToDisplay As XtraTabPage, pTabControl As XtraTabControl) Try - For Each oDocument As XtraTabPage In XtraTabControl.TabPages - If oDocument.Name = PageToDisplay.Name Then + For Each oDocument As XtraTabPage In pTabControl.TabPages + If oDocument.Name = pPageToDisplay.Name Then oDocument.PageVisible = True Else oDocument.PageVisible = False @@ -51,15 +53,22 @@ Public Class frmAdministrationZooFlow End If Select Case e.Node.Tag.ToString + Case IDBConst + DisplayTab(XtraTabPage_IDB, XtraTabControl) Case IDB_ATTRIBUTES - 'DisplayTab(ctrl) + TBIDB_ATTRIBUTE_TYPETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + Me.TBIDB_ATTRIBUTE_TYPETableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPE) + TBIDB_ATTRIBUTETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + Me.TBIDB_ATTRIBUTETableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_ATTRIBUTE) + DisplayTab(XtraTabPage_IDB, XtraTabControl) + DisplayTab(XtraTabPageIDB_Attributes, XtraTabControlIDB) Case IDB_ENTITIES 'DisplayTab(XtraTabPage_Entities) Case GLOBIX - DisplayTab(XtraTabPage_GlobalIndexer) + DisplayTab(XtraTabPage_GlobalIndexer, XtraTabControl) DisplayRibbonPage(RibbonPage_GlobalIndexer) Case CLIPBOARD_WATCHER - DisplayTab(XtraTabPage_ClipboardWatcher) + DisplayTab(XtraTabPage_ClipboardWatcher, XtraTabControl) DisplayRibbonPage(RibbonPage_ClipboardWatcher) End Select End Sub @@ -68,4 +77,31 @@ Public Class frmAdministrationZooFlow End Sub + Private Sub TBIDB_ATTRIBUTEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Me.Validate() + Me.TBIDB_ATTRIBUTEBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DSIDB_Stammdaten) + + End Sub + + Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemAddAttribute.ItemClick + + End Sub + + Private Sub BarButtonItemSaveAttribute_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemSaveAttribute.ItemClick + Save_Attribute + End Sub + Sub Save_Attribute() + Try + TBIDB_ATTRIBUTEBindingSource.EndEdit() + If Not IsNothing(DSIDB_Stammdaten.GetChanges) Then + CHANGED_WHOTextBox.Text = My.Application.User.UserName + TBIDB_ATTRIBUTEBindingSource.EndEdit() + TBIDB_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.TBIDB_ATTRIBUTE) + labelStatus.Caption = $"IDB Attribute saved - {Now.ToLongTimeString}" + End If + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb index b263b33c..1e74c7cd 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb @@ -585,8 +585,7 @@ Partial Public Class DSIDB_Stammdaten MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AutoIncrementSeed = 1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true @@ -595,9 +594,7 @@ Partial Public Class DSIDB_Stammdaten Me.columnTITLE.MaxLength = 500 Me.columnINHERITS_ATTRIBUTES.AllowDBNull = false Me.columnCOMMENT.MaxLength = 1000 - Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 30 - Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 30 End Sub @@ -764,6 +761,8 @@ Partial Public Class DSIDB_Stammdaten Private columnDELETED_WHEN As Global.System.Data.DataColumn + Private columnATTR_TYPE As Global.System.Data.DataColumn + _ Public Sub New() @@ -911,6 +910,14 @@ Partial Public Class DSIDB_Stammdaten End Get End Property + _ + Public ReadOnly Property ATTR_TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_TYPE + End Get + End Property + _ @@ -948,9 +955,9 @@ Partial Public Class DSIDB_Stammdaten _ - Public Overloads Function AddTBIDB_ATTRIBUTERow(ByVal TITLE As String, ByVal parentTBIDB_ATTRIBUTE_TYPERowByFK_TYP_ID As TBIDB_ATTRIBUTE_TYPERow, ByVal MULTI_CONTEXT As Boolean, ByVal VIEW_SEQUENCE As Integer, ByVal VIEW_VISIBLE 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 Date, ByVal DELETED As Boolean, ByVal DELETED_WHO As String, ByVal DELETED_WHEN As Date) As TBIDB_ATTRIBUTERow + Public Overloads Function AddTBIDB_ATTRIBUTERow(ByVal TITLE As String, ByVal parentTBIDB_ATTRIBUTE_TYPERowByFK_TYP_ID As TBIDB_ATTRIBUTE_TYPERow, ByVal MULTI_CONTEXT As Boolean, ByVal VIEW_SEQUENCE As Integer, ByVal VIEW_VISIBLE 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 Date, ByVal DELETED As Boolean, ByVal DELETED_WHO As String, ByVal DELETED_WHEN As Date, ByVal ATTR_TYPE As String) As TBIDB_ATTRIBUTERow Dim rowTBIDB_ATTRIBUTERow As TBIDB_ATTRIBUTERow = CType(Me.NewRow,TBIDB_ATTRIBUTERow) - Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, Nothing, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN} + Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, Nothing, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN, ATTR_TYPE} If (Not (parentTBIDB_ATTRIBUTE_TYPERowByFK_TYP_ID) Is Nothing) Then columnValuesArray(2) = parentTBIDB_ATTRIBUTE_TYPERowByFK_TYP_ID(0) End If @@ -996,6 +1003,7 @@ Partial Public Class DSIDB_Stammdaten Me.columnDELETED = MyBase.Columns("DELETED") Me.columnDELETED_WHO = MyBase.Columns("DELETED_WHO") Me.columnDELETED_WHEN = MyBase.Columns("DELETED_WHEN") + Me.columnATTR_TYPE = MyBase.Columns("ATTR_TYPE") End Sub _ Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) + End Try End Get Set Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn) = value @@ -1670,7 +1684,11 @@ Partial Public Class DSIDB_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.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_BUSINESS_ENTITY ist DBNull.", e) + End Try End Get Set Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) = value @@ -1719,6 +1737,30 @@ Partial Public Class DSIDB_Stammdaten Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = Global.System.Convert.DBNull End Sub + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + _ Public Function IsCHANGED_WHONull() As Boolean @@ -1933,6 +1975,17 @@ Partial Public Class DSIDB_Stammdaten End Set End Property + _ + Public Property ATTR_TYPE() As String + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn),String) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn) = value + End Set + End Property + _ Public Property TBIDB_ATTRIBUTE_TYPERow() As TBIDB_ATTRIBUTE_TYPERow @@ -2116,7 +2169,11 @@ Partial Public Class DSIDB_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn),Date) + 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 @@ -2165,6 +2222,18 @@ Partial Public Class DSIDB_Stammdaten 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 @@ -2457,9 +2526,9 @@ Namespace DSIDB_StammdatenTableAdapters Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_BUSINESS_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PARENT_ENT_ID, TITLE"& _ ", INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PARENT_ENT_ID,@TITLE"& _ - ",@INHERITS_ATTRIBUTES,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ENT_ID, TITLE,"& _ - " INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ - "FROM TBIDB_BUSINESS_ENTITY WHERE (GUID = SCOPE_IDENTITY())" + ",@INHERITS_ATTRIBUTES,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ENT_ID, TITLE"& _ + ", INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _ + " FROM TBIDB_BUSINESS_ENTITY WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -2592,7 +2661,7 @@ Namespace DSIDB_StammdatenTableAdapters Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) End If If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) End If @@ -2792,6 +2861,7 @@ Namespace DSIDB_StammdatenTableAdapters 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 @@ -2802,10 +2872,10 @@ Namespace DSIDB_StammdatenTableAdapters 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); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _ - "UID, TITLE, TYP_ID, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_W"& _ - "HO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN FR"& _ - "OM TBIDB_ATTRIBUTE WHERE (GUID = SCOPE_IDENTITY())" + "_ID,@MULTI_CONTEXT,@VIEW_SEQUENCE,@VIEW_VISIBLE,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ + "GUID, TITLE, TYP_ID, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_"& _ + "WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN F"& _ + "ROM TBIDB_ATTRIBUTE 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, "", "", "")) @@ -2818,10 +2888,11 @@ Namespace DSIDB_StammdatenTableAdapters 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, ADDED_WHO = @ADDED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID ="& _ - " @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE, TYP_ID, MULTI_CONTEXT, VIEW_SEQUENCE, VI"& _ - "EW_VISIBLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, "& _ - "DELETED_WHO, DELETED_WHEN FROM TBIDB_ATTRIBUTE WHERE (GUID = @GUID)" + " @VIEW_VISIBLE, COMMENT = @COMMENT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CH"& _ + "ANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE, TYP_ID, "& _ + "MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHAN"& _ + "GED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN FROM TBIDB_ATTRIBUTE W"& _ + "HERE (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, "", "", "")) @@ -2829,7 +2900,7 @@ Namespace DSIDB_StammdatenTableAdapters 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("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub @@ -2847,7 +2918,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 TBIDB_ATTRIBUTE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_ATTRIBUTE" + 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" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub @@ -2967,7 +3045,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.Update, true)> _ - Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal TYP_ID As Byte, ByVal MULTI_CONTEXT As Boolean, ByVal VIEW_SEQUENCE As Integer, ByVal VIEW_VISIBLE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal TYP_ID As Byte, ByVal MULTI_CONTEXT As Boolean, ByVal VIEW_SEQUENCE As Integer, ByVal VIEW_VISIBLE As Boolean, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("TITLE") Else @@ -2982,10 +3060,10 @@ Namespace DSIDB_StammdatenTableAdapters Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(COMMENT,String) End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + If (CHANGED_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) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) @@ -3304,7 +3382,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.Delete, true)> _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Byte, ByVal Original_NAME_TYPE As String, ByVal Original_COMMENT As String, ByVal Original_BIT1 As Boolean, ByVal Original_BIT2 As Boolean, ByVal Original_BIT3 As Boolean, ByVal Original_BIT4 As Boolean, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Public Overloads Overridable Function Delete(ByVal Original_GUID As Byte, ByVal Original_NAME_TYPE As String, ByVal Original_COMMENT As String, ByVal Original_BIT1 As Boolean, ByVal Original_BIT2 As Boolean, ByVal Original_BIT3 As Boolean, ByVal Original_BIT4 As Boolean, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) If (Original_NAME_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_NAME_TYPE") @@ -3327,7 +3405,11 @@ Namespace DSIDB_StammdatenTableAdapters Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHO,String) End If - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN,Date) + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value @@ -3361,7 +3443,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.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal NAME_TYPE As String, ByVal COMMENT As String, ByVal BIT1 As Boolean, ByVal BIT2 As Boolean, ByVal BIT3 As Boolean, ByVal BIT4 As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + 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 @@ -3381,7 +3463,11 @@ Namespace DSIDB_StammdatenTableAdapters Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN,Date) + 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 @@ -3419,7 +3505,7 @@ Namespace DSIDB_StammdatenTableAdapters ByVal BIT3 As Boolean, _ ByVal BIT4 As Boolean, _ ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ + 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, _ @@ -3430,7 +3516,7 @@ Namespace DSIDB_StammdatenTableAdapters ByVal Original_BIT3 As Boolean, _ ByVal Original_BIT4 As Boolean, _ ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ + 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 @@ -3453,7 +3539,11 @@ Namespace DSIDB_StammdatenTableAdapters Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN,Date) + 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 @@ -3486,7 +3576,11 @@ Namespace DSIDB_StammdatenTableAdapters Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ADDED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN,Date) + 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 @@ -3529,7 +3623,7 @@ Namespace DSIDB_StammdatenTableAdapters ByVal BIT3 As Boolean, _ ByVal BIT4 As Boolean, _ ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ + 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, _ @@ -3540,7 +3634,7 @@ Namespace DSIDB_StammdatenTableAdapters ByVal Original_BIT3 As Boolean, _ ByVal Original_BIT4 As Boolean, _ ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ + 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) diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.xsc b/GUIs.ZooFlow/DSIDB_Stammdaten.xsc index 05b01991..72fc4b53 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.xsc +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xsc @@ -5,5 +5,31 @@ the code is regenerated. --> - + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.xsd b/GUIs.ZooFlow/DSIDB_Stammdaten.xsd index 38e3f2fb..d97423ee 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.xsd +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xsd @@ -23,14 +23,14 @@ WHERE (GUID = @Original_GUID) INSERT INTO TBIDB_BUSINESS_ENTITY (PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO) -VALUES (@PARENT_ENT_ID,@TITLE,@INHERITS_ATTRIBUTES,@COMMENT,@ADDED_WHO); +VALUES (@PARENT_ENT_ID,@TITLE,@INHERITS_ATTRIBUTES,@COMMENT,@ADDED_WHO); SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_BUSINESS_ENTITY WHERE (GUID = SCOPE_IDENTITY()) - + @@ -75,56 +75,60 @@ SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDE - + - + DELETE FROM TBIDB_ATTRIBUTE WHERE (GUID = @Original_GUID) - + - + INSERT INTO TBIDB_ATTRIBUTE (TITLE, TYP_ID, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO) -VALUES (@TITLE,@TYP_ID,@MULTI_CONTEXT,@VIEW_SEQUENCE,@VIEW_VISIBLE,@COMMENT,@ADDED_WHO); +VALUES (@TITLE,@TYP_ID,@MULTI_CONTEXT,@VIEW_SEQUENCE,@VIEW_VISIBLE,@COMMENT,@ADDED_WHO); SELECT GUID, TITLE, TYP_ID, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN FROM TBIDB_ATTRIBUTE WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - + + + + + + + - - SELECT TBIDB_ATTRIBUTE.* -FROM TBIDB_ATTRIBUTE + + 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, + TBIDB_ATTRIBUTE.ADDED_WHO, TBIDB_ATTRIBUTE.ADDED_WHEN, TBIDB_ATTRIBUTE.CHANGED_WHO, TBIDB_ATTRIBUTE.CHANGED_WHEN, TBIDB_ATTRIBUTE.DELETED, TBIDB_ATTRIBUTE.DELETED_WHO, + TBIDB_ATTRIBUTE.DELETED_WHEN, TBIDB_ATTRIBUTE_TYPE.NAME_TYPE AS ATTR_TYPE +FROM TBIDB_ATTRIBUTE INNER JOIN + TBIDB_ATTRIBUTE_TYPE ON TBIDB_ATTRIBUTE.TYP_ID = TBIDB_ATTRIBUTE_TYPE.GUID - + UPDATE TBIDB_ATTRIBUTE -SET TITLE = @TITLE, TYP_ID = @TYP_ID, MULTI_CONTEXT = @MULTI_CONTEXT, VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE = @VIEW_VISIBLE, COMMENT = @COMMENT, ADDED_WHO = @ADDED_WHO -WHERE (GUID = @Original_GUID); +SET TITLE = @TITLE, TYP_ID = @TYP_ID, MULTI_CONTEXT = @MULTI_CONTEXT, VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE = @VIEW_VISIBLE, COMMENT = @COMMENT, + CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); SELECT GUID, TITLE, TYP_ID, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN FROM TBIDB_ATTRIBUTE WHERE (GUID = @GUID) - - - - - - - - - + + + + + + + + + @@ -145,6 +149,7 @@ SELECT GUID, TITLE, TYP_ID, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, + @@ -164,7 +169,7 @@ SELECT GUID, TITLE, TYP_ID, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, - + @@ -184,7 +189,7 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, - + @@ -209,7 +214,7 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, - + @@ -221,7 +226,7 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, - + @@ -258,7 +263,7 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, - + @@ -275,14 +280,14 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, - + - + @@ -297,7 +302,7 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, - + @@ -341,6 +346,13 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, + + + + + + + @@ -373,7 +385,7 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, - + diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.xss b/GUIs.ZooFlow/DSIDB_Stammdaten.xss index fda10978..6991d83d 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.xss +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xss @@ -4,10 +4,10 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - +