diff --git a/GUIs.ZooFlow/Administration/ZooFlow_AdminEditForm.vb b/GUIs.ZooFlow/Administration/ZooFlow_AdminEditForm.vb new file mode 100644 index 00000000..b006b3ba --- /dev/null +++ b/GUIs.ZooFlow/Administration/ZooFlow_AdminEditForm.vb @@ -0,0 +1,6 @@ +Imports DigitalData.Modules.Logging + +Friend Interface ZooFlow_AdminEditForm + Property PrimaryKey As Long + Property Logger As Logger +End Interface diff --git a/GUIs.ZooFlow/Administration/ctrlClipboardWatcher.Designer.vb b/GUIs.ZooFlow/Administration/ctrlClipboardWatcher.Designer.vb deleted file mode 100644 index 50bb7e6d..00000000 --- a/GUIs.ZooFlow/Administration/ctrlClipboardWatcher.Designer.vb +++ /dev/null @@ -1,176 +0,0 @@ - _ -Partial Class ctrlClipboardWatcher - Inherits System.Windows.Forms.UserControl - - 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ctrlClipboardWatcher)) - Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() - Me.GridControlProfiles = New DevExpress.XtraGrid.GridControl() - Me.GridViewProfiles = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() - Me.XtraTabPageProfiles = New DevExpress.XtraTab.XtraTabPage() - Me.XtraTabPageAssignment = New DevExpress.XtraTab.XtraTabPage() - Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() - Me.XtraTabPage_Common = New DevExpress.XtraTab.XtraTabPage() - Me.XtraTabPage_DocSearches = New DevExpress.XtraTab.XtraTabPage() - Me.XtraTabPage_DataSearches = New DevExpress.XtraTab.XtraTabPage() - Me.XtraTabPage_AppAssignment = New DevExpress.XtraTab.XtraTabPage() - CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SplitContainerControl1.SuspendLayout() - CType(Me.GridControlProfiles, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridViewProfiles, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.XtraTabControl1.SuspendLayout() - Me.XtraTabPageProfiles.SuspendLayout() - CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.XtraTabControl2.SuspendLayout() - Me.SuspendLayout() - ' - 'SplitContainerControl1 - ' - Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 0) - Me.SplitContainerControl1.Name = "SplitContainerControl1" - Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControlProfiles) - Me.SplitContainerControl1.Panel1.Text = "Panel1" - Me.SplitContainerControl1.Panel2.Controls.Add(Me.XtraTabControl1) - Me.SplitContainerControl1.Panel2.Text = "Panel2" - Me.SplitContainerControl1.Size = New System.Drawing.Size(1236, 747) - Me.SplitContainerControl1.SplitterPosition = 260 - Me.SplitContainerControl1.TabIndex = 0 - ' - 'GridControlProfiles - ' - Me.GridControlProfiles.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControlProfiles.Location = New System.Drawing.Point(0, 0) - Me.GridControlProfiles.MainView = Me.GridViewProfiles - Me.GridControlProfiles.Name = "GridControlProfiles" - Me.GridControlProfiles.Size = New System.Drawing.Size(260, 747) - Me.GridControlProfiles.TabIndex = 0 - Me.GridControlProfiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewProfiles}) - ' - 'GridViewProfiles - ' - Me.GridViewProfiles.GridControl = Me.GridControlProfiles - Me.GridViewProfiles.Name = "GridViewProfiles" - ' - '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.XtraTabPageProfiles - Me.XtraTabControl1.Size = New System.Drawing.Size(966, 747) - Me.XtraTabControl1.TabIndex = 0 - Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageProfiles, Me.XtraTabPageAssignment}) - ' - 'XtraTabPageProfiles - ' - Me.XtraTabPageProfiles.Controls.Add(Me.XtraTabControl2) - Me.XtraTabPageProfiles.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPageProfiles.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.XtraTabPageProfiles.ImageOptions.SvgImageSize = New System.Drawing.Size(24, 24) - Me.XtraTabPageProfiles.Name = "XtraTabPageProfiles" - Me.XtraTabPageProfiles.Size = New System.Drawing.Size(964, 713) - Me.XtraTabPageProfiles.Text = "Profil-Verwaltung" - ' - 'XtraTabPageAssignment - ' - Me.XtraTabPageAssignment.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPageAssignment.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.XtraTabPageAssignment.ImageOptions.SvgImageSize = New System.Drawing.Size(24, 24) - Me.XtraTabPageAssignment.Name = "XtraTabPageAssignment" - Me.XtraTabPageAssignment.Size = New System.Drawing.Size(964, 724) - Me.XtraTabPageAssignment.Text = "Profil-Zuordnung" - ' - 'XtraTabControl2 - ' - Me.XtraTabControl2.Dock = System.Windows.Forms.DockStyle.Fill - Me.XtraTabControl2.Location = New System.Drawing.Point(0, 0) - Me.XtraTabControl2.Name = "XtraTabControl2" - Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage_Common - Me.XtraTabControl2.Size = New System.Drawing.Size(964, 713) - Me.XtraTabControl2.TabIndex = 0 - Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage_Common, Me.XtraTabPage_DocSearches, Me.XtraTabPage_DataSearches, Me.XtraTabPage_AppAssignment}) - ' - 'XtraTabPage_Common - ' - Me.XtraTabPage_Common.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.XtraTabPage_Common.ImageOptions.SvgImageSize = New System.Drawing.Size(18, 18) - Me.XtraTabPage_Common.Name = "XtraTabPage_Common" - Me.XtraTabPage_Common.Size = New System.Drawing.Size(962, 685) - Me.XtraTabPage_Common.Text = "Allgemein" - ' - 'XtraTabPage_DocSearches - ' - Me.XtraTabPage_DocSearches.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.XtraTabPage_DocSearches.ImageOptions.SvgImageSize = New System.Drawing.Size(18, 18) - Me.XtraTabPage_DocSearches.Name = "XtraTabPage_DocSearches" - Me.XtraTabPage_DocSearches.Size = New System.Drawing.Size(298, 277) - Me.XtraTabPage_DocSearches.Text = "Dokument-Suchen" - ' - 'XtraTabPage_DataSearches - ' - Me.XtraTabPage_DataSearches.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage_DataSearches.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.XtraTabPage_DataSearches.ImageOptions.SvgImageSize = New System.Drawing.Size(18, 18) - Me.XtraTabPage_DataSearches.Name = "XtraTabPage_DataSearches" - Me.XtraTabPage_DataSearches.Size = New System.Drawing.Size(0, 0) - Me.XtraTabPage_DataSearches.Text = "Daten-Suchen" - ' - 'XtraTabPage_AppAssignment - ' - Me.XtraTabPage_AppAssignment.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage_AppAssignment.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.XtraTabPage_AppAssignment.ImageOptions.SvgImageSize = New System.Drawing.Size(18, 18) - Me.XtraTabPage_AppAssignment.Name = "XtraTabPage_AppAssignment" - Me.XtraTabPage_AppAssignment.Size = New System.Drawing.Size(0, 0) - Me.XtraTabPage_AppAssignment.Text = "Anwendungs-Zuordnung" - ' - 'ctrlClipboardWatcher - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.Controls.Add(Me.SplitContainerControl1) - Me.Name = "ctrlClipboardWatcher" - Me.Size = New System.Drawing.Size(1236, 747) - CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() - Me.SplitContainerControl1.ResumeLayout(False) - CType(Me.GridControlProfiles, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridViewProfiles, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() - Me.XtraTabControl1.ResumeLayout(False) - Me.XtraTabPageProfiles.ResumeLayout(False) - CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit() - Me.XtraTabControl2.ResumeLayout(False) - Me.ResumeLayout(False) - - End Sub - - Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl - Friend WithEvents GridControlProfiles As DevExpress.XtraGrid.GridControl - Friend WithEvents GridViewProfiles As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl - Friend WithEvents XtraTabPageProfiles As DevExpress.XtraTab.XtraTabPage - Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl - Friend WithEvents XtraTabPage_Common As DevExpress.XtraTab.XtraTabPage - Friend WithEvents XtraTabPage_DocSearches As DevExpress.XtraTab.XtraTabPage - Friend WithEvents XtraTabPage_DataSearches As DevExpress.XtraTab.XtraTabPage - Friend WithEvents XtraTabPage_AppAssignment As DevExpress.XtraTab.XtraTabPage - Friend WithEvents XtraTabPageAssignment As DevExpress.XtraTab.XtraTabPage -End Class diff --git a/GUIs.ZooFlow/Administration/ctrlClipboardWatcher.resx b/GUIs.ZooFlow/Administration/ctrlClipboardWatcher.resx deleted file mode 100644 index a36554b0..00000000 --- a/GUIs.ZooFlow/Administration/ctrlClipboardWatcher.resx +++ /dev/null @@ -1,242 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIIDAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z - ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD - MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh - Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk - aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp - c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41 - O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7 - ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp - c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJBZGRyZXNzIj4NCiAg - ICA8cG9seWdvbiBwb2ludHM9IjgsMjggOCwxOCAyLDE4IDE2LDQgMzAsMTggMjQsMTggMjQsMjggMTgs - MjggMTgsMTggMTQsMTggMTQsMjggICIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs= - - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGcEAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z - ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD - MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh - Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk - aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp - c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41 - O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7 - ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp - c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJDb250cmFjdCI+DQog - ICAgPGcgY2xhc3M9InN0MSI+DQogICAgICA8cGF0aCBkPSJNMjIsMTRIMTB2LTJoMTJWMTR6IE0yMiw4 - SDEwdjJoMTJWOHogTTIyLDE2SDEwdjJoMTJWMTZ6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPC9nPg0K - ICAgIDxwYXRoIGQ9Ik0yNywySDVDNC41LDIsNCwyLjUsNCwzdjI2YzAsMC41LDAuNSwxLDEsMWgyMmMw - LjUsMCwxLTAuNSwxLTFWM0MyOCwyLjUsMjcuNSwyLDI3LDJ6IE0yNiwyOEg2VjRoMjBWMjh6IiBjbGFz - cz0iQmxhY2siIC8+DQogICAgPHJlY3QgeD0iMTYiIHk9IjIyIiB3aWR0aD0iNiIgaGVpZ2h0PSIyIiBy - eD0iMCIgcnk9IjAiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2Zz4L - - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAADIDAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z - ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz - OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp - dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkRhdGFiYXNlIj4NCiAgICA8cGF0aCBkPSJNMTYsMjRj - LTUuNSwwLTEwLTEuOC0xMC00djRjMCwyLjIsNC41LDQsMTAsNHMxMC0xLjgsMTAtNHYtNEMyNiwyMi4y - LDIxLjUsMjQsMTYsMjR6IiBjbGFzcz0iWWVsbG93IiAvPg0KICAgIDxwYXRoIGQ9Ik0xNiwxOGMtNS41 - LDAtMTAtMS44LTEwLTR2NGMwLDIuMiw0LjUsNCwxMCw0czEwLTEuOCwxMC00di00QzI2LDE2LjIsMjEu - NSwxOCwxNiwxOHoiIGNsYXNzPSJZZWxsb3ciIC8+DQogICAgPHBhdGggZD0iTTE2LDRDMTAuNSw0LDYs - NS44LDYsOHY0YzAsMi4yLDQuNSw0LDEwLDRzMTAtMS44LDEwLTRWOEMyNiw1LjgsMjEuNSw0LDE2LDR6 - IiBjbGFzcz0iWWVsbG93IiAvPg0KICA8L2c+DQo8L3N2Zz4L - - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIkCAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z - ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz - OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp - dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IldpbmRvdyI+DQogICAgPHBhdGggZD0iTTMwLDEwVjVj - MC0wLjUtMC41LTEtMS0xSDNDMi41LDQsMiw0LjUsMiw1djVIMzB6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg - ICA8cGF0aCBkPSJNMjgsMTB2MTZINFYxMEgydjE3YzAsMC41LDAuNSwxLDEsMWgyNmMwLjUsMCwxLTAu - NSwxLTFWMTBIMjh6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs= - - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMUBAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTmV3IiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3IDAgMCAzMiAz - MiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmxhY2t7ZmlsbDojNzI3MjcyO30KPC9zdHls - ZT4NCiAgPHBhdGggZD0iTTE5LDJINUM0LjQsMiw0LDIuNCw0LDN2MjRjMCwwLjYsMC40LDEsMSwxaDIw - YzAuNiwwLDEtMC40LDEtMVY5TDE5LDJ6IE0yNCwyNkg2VjRoMTJ2NWMwLDAuNiwwLjQsMSwxLDFoNSAg - VjI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KPC9zdmc+Cw== - - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkCAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3IDAgMCAzMiAzMiI+DQogIDxz - dHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQo8L3N0eWxlPg0KICA8ZyBp - ZD0iTGF5ZXJfMSI+DQogICAgPHBhdGggZD0iTTIzLjcsMTQuNGMwLjUsMC4zLDAuNSwwLjgsMCwxLjFs - LTExLjgsNy4zdjIuNmMwLDAuNiwwLjQsMC44LDAuOSwwLjVsMTYuOC0xMC40YzAuNS0wLjMsMC41LTAu - OCwwLTEuMSAgIEwxMi44LDQuMWMtMC41LTAuMy0wLjktMC4xLTAuOSwwLjV2Mi42TDIzLjcsMTQuNHoi - IGNsYXNzPSJCbHVlIiAvPg0KICAgIDxwYXRoIGQ9Ik0xOS43LDE1LjVjMC41LTAuMywwLjUtMC44LDAt - MS4xTDIuOSw0LjFDMi40LDMuOCwyLDQsMiw0LjZ2MjAuNmMwLDAuNiwwLjQsMC44LDAuOSwwLjVMMTku - NywxNS41eiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCiAgPGcgaWQ9IkxheWVyXzIiIC8+DQo8L3N2 - Zz4L - - - \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/ctrlClipboardWatcher.vb b/GUIs.ZooFlow/Administration/ctrlClipboardWatcher.vb deleted file mode 100644 index 53cccef7..00000000 --- a/GUIs.ZooFlow/Administration/ctrlClipboardWatcher.vb +++ /dev/null @@ -1,3 +0,0 @@ -Public Class ctrlClipboardWatcher - -End Class diff --git a/GUIs.ZooFlow/Administration/ctrlGlobalIndexer.Designer.vb b/GUIs.ZooFlow/Administration/ctrlGlobalIndexer.Designer.vb deleted file mode 100644 index e93c5402..00000000 --- a/GUIs.ZooFlow/Administration/ctrlGlobalIndexer.Designer.vb +++ /dev/null @@ -1,29 +0,0 @@ - _ -Partial Class ctrlGlobalIndexer - Inherits System.Windows.Forms.UserControl - - 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - components = New System.ComponentModel.Container() - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - End Sub - -End Class diff --git a/GUIs.ZooFlow/Administration/ctrlGlobalIndexer.vb b/GUIs.ZooFlow/Administration/ctrlGlobalIndexer.vb deleted file mode 100644 index 3a46346f..00000000 --- a/GUIs.ZooFlow/Administration/ctrlGlobalIndexer.vb +++ /dev/null @@ -1,3 +0,0 @@ -Public Class ctrlGlobalIndexer - -End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Attribute.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_Attribute.Designer.vb new file mode 100644 index 00000000..71ecdd36 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_Attribute.Designer.vb @@ -0,0 +1,498 @@ + +Partial Class frmAdmin_Attribute + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.TBIDB_ATTRIBUTEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() + Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() + Me.SpinEdit1 = New DevExpress.XtraEditors.SpinEdit() + 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.TBIDB_ATTRIBUTETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTETableAdapter() + Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() + Me.CheckEdit1 = New DevExpress.XtraEditors.CheckEdit() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.CheckEdit2 = New DevExpress.XtraEditors.CheckEdit() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TextEdit6 = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TextEdit7 = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit() + Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBIDB_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SpinEdit1.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.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 3 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.Size = New System.Drawing.Size(800, 66) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Speichern" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + '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.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Daten" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 428) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.TextEdit1) + Me.LayoutControl1.Controls.Add(Me.TextEdit2) + Me.LayoutControl1.Controls.Add(Me.SpinEdit1) + Me.LayoutControl1.Controls.Add(Me.CheckEdit1) + Me.LayoutControl1.Controls.Add(Me.CheckEdit2) + Me.LayoutControl1.Controls.Add(Me.TextEdit3) + Me.LayoutControl1.Controls.Add(Me.TextEdit4) + Me.LayoutControl1.Controls.Add(Me.TextEdit5) + Me.LayoutControl1.Controls.Add(Me.TextEdit6) + Me.LayoutControl1.Controls.Add(Me.TextEdit7) + Me.LayoutControl1.Controls.Add(Me.ComboBoxEdit1) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 66) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(800, 362) + Me.LayoutControl1.TabIndex = 2 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'TextEdit1 + ' + Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "GUID", True)) + Me.TextEdit1.Location = New System.Drawing.Point(121, 20) + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Properties.ReadOnly = True + Me.TextEdit1.Size = New System.Drawing.Size(659, 20) + Me.TextEdit1.StyleController = Me.LayoutControl1 + Me.TextEdit1.TabIndex = 4 + ' + '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 + ' + 'TextEdit2 + ' + Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "TITLE", True)) + Me.TextEdit2.Location = New System.Drawing.Point(121, 60) + Me.TextEdit2.MenuManager = Me.RibbonControl1 + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.Size = New System.Drawing.Size(659, 20) + Me.TextEdit2.StyleController = Me.LayoutControl1 + Me.TextEdit2.TabIndex = 5 + ' + 'SpinEdit1 + ' + Me.SpinEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "VIEW_SEQUENCE", True)) + Me.SpinEdit1.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.SpinEdit1.Location = New System.Drawing.Point(510, 180) + Me.SpinEdit1.MenuManager = Me.RibbonControl1 + Me.SpinEdit1.Name = "SpinEdit1" + Me.SpinEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.SpinEdit1.Size = New System.Drawing.Size(270, 20) + Me.SpinEdit1.StyleController = Me.LayoutControl1 + Me.SpinEdit1.TabIndex = 6 + ' + '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.LayoutControlItem4, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem3, Me.LayoutControlItem11, Me.LayoutControlItem9, Me.LayoutControlItem5, Me.LayoutControlItem8, Me.LayoutControlItem10}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(800, 362) + Me.Root.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.TextEdit1 + Me.LayoutControlItem1.CustomizationFormText = "GUID" + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem1.Size = New System.Drawing.Size(780, 40) + Me.LayoutControlItem1.Text = "GUID" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(98, 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(780, 40) + Me.LayoutControlItem2.Text = "Bezeichnung" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.SpinEdit1 + Me.LayoutControlItem3.CustomizationFormText = "Anzeige Reihenfolge" + Me.LayoutControlItem3.Location = New System.Drawing.Point(389, 160) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem3.Size = New System.Drawing.Size(391, 40) + Me.LayoutControlItem3.Text = "Anzeige Reihenfolge" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(98, 13) + ' + 'TBIDB_ATTRIBUTETableAdapter + ' + Me.TBIDB_ATTRIBUTETableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'CheckEdit1 + ' + Me.CheckEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "MULTI_CONTEXT", True)) + Me.CheckEdit1.Location = New System.Drawing.Point(20, 220) + Me.CheckEdit1.MenuManager = Me.RibbonControl1 + Me.CheckEdit1.Name = "CheckEdit1" + Me.CheckEdit1.Properties.Caption = "Vektor/Multi" + Me.CheckEdit1.Size = New System.Drawing.Size(760, 18) + Me.CheckEdit1.StyleController = Me.LayoutControl1 + Me.CheckEdit1.TabIndex = 7 + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.CheckEdit1 + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 200) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem4.Size = New System.Drawing.Size(780, 38) + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem4.TextVisible = False + ' + 'CheckEdit2 + ' + Me.CheckEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "VIEW_VISIBLE", True)) + Me.CheckEdit2.Location = New System.Drawing.Point(20, 180) + Me.CheckEdit2.MenuManager = Me.RibbonControl1 + Me.CheckEdit2.Name = "CheckEdit2" + Me.CheckEdit2.Properties.Caption = "Sichtbar" + Me.CheckEdit2.Size = New System.Drawing.Size(369, 18) + Me.CheckEdit2.StyleController = Me.LayoutControl1 + Me.CheckEdit2.TabIndex = 8 + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.CheckEdit2 + 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(389, 40) + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem5.TextVisible = False + ' + 'TextEdit3 + ' + Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "COMMENT", True)) + Me.TextEdit3.Location = New System.Drawing.Point(121, 140) + Me.TextEdit3.MenuManager = Me.RibbonControl1 + Me.TextEdit3.Name = "TextEdit3" + Me.TextEdit3.Size = New System.Drawing.Size(659, 20) + Me.TextEdit3.StyleController = Me.LayoutControl1 + Me.TextEdit3.TabIndex = 9 + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.TextEdit3 + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 120) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem6.Size = New System.Drawing.Size(780, 40) + Me.LayoutControlItem6.Text = "Kommentar" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(98, 13) + ' + 'TextEdit4 + ' + Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "ADDED_WHO", True)) + Me.TextEdit4.Location = New System.Drawing.Point(121, 258) + Me.TextEdit4.MenuManager = Me.RibbonControl1 + Me.TextEdit4.Name = "TextEdit4" + Me.TextEdit4.Properties.ReadOnly = True + Me.TextEdit4.Size = New System.Drawing.Size(268, 20) + Me.TextEdit4.StyleController = Me.LayoutControl1 + Me.TextEdit4.TabIndex = 10 + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.TextEdit4 + Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 238) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem7.Size = New System.Drawing.Size(389, 40) + Me.LayoutControlItem7.Text = "Erstellt Wer" + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(98, 13) + ' + 'TextEdit5 + ' + Me.TextEdit5.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "ADDED_WHEN", True)) + Me.TextEdit5.Location = New System.Drawing.Point(510, 258) + Me.TextEdit5.MenuManager = Me.RibbonControl1 + Me.TextEdit5.Name = "TextEdit5" + Me.TextEdit5.Properties.ReadOnly = True + Me.TextEdit5.Size = New System.Drawing.Size(270, 20) + Me.TextEdit5.StyleController = Me.LayoutControl1 + Me.TextEdit5.TabIndex = 11 + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.TextEdit5 + Me.LayoutControlItem8.Location = New System.Drawing.Point(389, 238) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem8.Size = New System.Drawing.Size(391, 40) + Me.LayoutControlItem8.Text = "Erstellt Wann" + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(98, 13) + ' + 'TextEdit6 + ' + Me.TextEdit6.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "CHANGED_WHO", True)) + Me.TextEdit6.Location = New System.Drawing.Point(121, 298) + Me.TextEdit6.MenuManager = Me.RibbonControl1 + Me.TextEdit6.Name = "TextEdit6" + Me.TextEdit6.Properties.ReadOnly = True + Me.TextEdit6.Size = New System.Drawing.Size(269, 20) + Me.TextEdit6.StyleController = Me.LayoutControl1 + Me.TextEdit6.TabIndex = 12 + ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.Control = Me.TextEdit6 + Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 278) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem9.Size = New System.Drawing.Size(390, 64) + Me.LayoutControlItem9.Text = "Geändert Wer" + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(98, 13) + ' + 'TextEdit7 + ' + Me.TextEdit7.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "CHANGED_WHEN", True)) + Me.TextEdit7.Location = New System.Drawing.Point(511, 298) + Me.TextEdit7.MenuManager = Me.RibbonControl1 + Me.TextEdit7.Name = "TextEdit7" + Me.TextEdit7.Properties.ReadOnly = True + Me.TextEdit7.Size = New System.Drawing.Size(269, 20) + Me.TextEdit7.StyleController = Me.LayoutControl1 + Me.TextEdit7.TabIndex = 13 + ' + 'LayoutControlItem10 + ' + Me.LayoutControlItem10.Control = Me.TextEdit7 + Me.LayoutControlItem10.Location = New System.Drawing.Point(390, 278) + Me.LayoutControlItem10.Name = "LayoutControlItem10" + Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem10.Size = New System.Drawing.Size(390, 64) + Me.LayoutControlItem10.Text = "Geändert Wann" + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(98, 13) + ' + 'ComboBoxEdit1 + ' + Me.ComboBoxEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "TYP_ID", True)) + Me.ComboBoxEdit1.Location = New System.Drawing.Point(121, 100) + Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1 + Me.ComboBoxEdit1.Name = "ComboBoxEdit1" + Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.ComboBoxEdit1.Size = New System.Drawing.Size(659, 20) + Me.ComboBoxEdit1.StyleController = Me.LayoutControl1 + Me.ComboBoxEdit1.TabIndex = 14 + ' + 'LayoutControlItem11 + ' + Me.LayoutControlItem11.Control = Me.ComboBoxEdit1 + Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 80) + Me.LayoutControlItem11.Name = "LayoutControlItem11" + Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem11.Size = New System.Drawing.Size(780, 40) + Me.LayoutControlItem11.Text = "Attribut-Typ" + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(98, 13) + ' + 'frmAdmin_Attribute + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.LayoutControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmAdmin_Attribute" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "frmAdmin_Attribute" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBIDB_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SpinEdit1.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.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SpinEdit1 As DevExpress.XtraEditors.SpinEdit + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten + Friend WithEvents TBIDB_ATTRIBUTEBindingSource As BindingSource + Friend WithEvents TBIDB_ATTRIBUTETableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTETableAdapter + Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents CheckEdit1 As DevExpress.XtraEditors.CheckEdit + Friend WithEvents CheckEdit2 As DevExpress.XtraEditors.CheckEdit + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit4 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit5 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit6 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit7 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + 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 + Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem +End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Attribute.resx b/GUIs.ZooFlow/Administration/frmAdmin_Attribute.resx new file mode 100644 index 00000000..32b787d0 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_Attribute.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 421, 17 + + + 74, 22 + + + 74, 22 + + + 649, 17 + + + 871, 17 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Attribute.vb b/GUIs.ZooFlow/Administration/frmAdmin_Attribute.vb new file mode 100644 index 00000000..540d691d --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_Attribute.vb @@ -0,0 +1,25 @@ +Imports DigitalData.Modules.Logging + +Public Class frmAdmin_Attribute + Implements ZooFlow_AdminEditForm + + Private Property PrimaryKey As Long Implements ZooFlow_AdminEditForm.PrimaryKey + Private Property Logger As Logger Implements ZooFlow_AdminEditForm.Logger + + Public Sub New(PrimaryKey As String) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Logger = My.LogConfig.GetLogger() + Me.PrimaryKey = PrimaryKey + End Sub + + Private Sub frmAdmin_Attribute_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + TBIDB_ATTRIBUTETableAdapter.Fill(DSIDB_Stammdaten.TBIDB_ATTRIBUTE, PrimaryKey) + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb similarity index 88% rename from GUIs.ZooFlow/Administration/frmAdministrationZooFlow.Designer.vb rename to GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb index 77018c32..ba6439fa 100644 --- a/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb @@ -1,5 +1,5 @@  -Partial Class frmAdministrationZooFlow +Partial Class frmAdmin_Start Inherits DevExpress.XtraBars.Ribbon.RibbonForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -23,15 +23,15 @@ 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)) + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel As System.Windows.Forms.Label + Dim COMMENTLabel As System.Windows.Forms.Label + Dim VIEW_SEQUENCELabel As System.Windows.Forms.Label + Dim TITLELabel As System.Windows.Forms.Label + Dim GUIDLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_Start)) Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() @@ -40,6 +40,9 @@ Partial Class frmAdministrationZooFlow Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() Me.labelError = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonItemSaveAttribute = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItemAddAttribute = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItemRefreshAttribute = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPage_ClipboardWatcher = New DevExpress.XtraBars.Ribbon.RibbonPage() @@ -51,25 +54,34 @@ Partial Class frmAdministrationZooFlow Me.RibbonGroup_ClipboardWatcher_Control = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPage_GlobalIndexer = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPage_IDB = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroupAttributes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.TreeList1 = New DevExpress.XtraTreeList.TreeList() + Me.TreeListMenu = New DevExpress.XtraTreeList.TreeList() Me.TreeListColumn1 = New DevExpress.XtraTreeList.Columns.TreeListColumn() Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components) Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager(Me.components) Me.DockPanel1 = New DevExpress.XtraBars.Docking.DockPanel() Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer() - Me.XtraTabControl = New DevExpress.XtraTab.XtraTabControl() - Me.XtraTabPage_ClipboardWatcher = New DevExpress.XtraTab.XtraTabPage() - Me.CtrlClipboardWatcher1 = New DigitalData.GUIs.ZooFlow.ctrlClipboardWatcher() - Me.XtraTabPage_GlobalIndexer = New DevExpress.XtraTab.XtraTabPage() - Me.CtrlGlobalIndexer1 = New DigitalData.GUIs.ZooFlow.ctrlGlobalIndexer() - 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.TBIDB_ATTRIBUTETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTETableAdapter() + Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() + 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.XtraTabPage_IDB = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabControlIDB = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPageIDB_Attributes_New = New DevExpress.XtraTab.XtraTabPage() + Me.GridAttributes = New DevExpress.XtraGrid.GridControl() + Me.ViewAttributes = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.XtraTabPageIDB_Attributes = New DevExpress.XtraTab.XtraTabPage() + Me.ComboBox1 = New System.Windows.Forms.ComboBox() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colTITLE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colATTR_TYPE = New DevExpress.XtraGrid.Columns.GridColumn() Me.GUIDTextBox = New System.Windows.Forms.TextBox() Me.TITLETextBox = New System.Windows.Forms.TextBox() Me.TYP_IDTextBox = New System.Windows.Forms.TextBox() @@ -81,113 +93,42 @@ Partial Class frmAdministrationZooFlow 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() + Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPage_GlobalIndexer = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPage_ClipboardWatcher = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabControl = New DevExpress.XtraTab.XtraTabControl() CHANGED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + ADDED_WHOLabel = New System.Windows.Forms.Label() + COMMENTLabel = New System.Windows.Forms.Label() + VIEW_SEQUENCELabel = New System.Windows.Forms.Label() + TITLELabel = New System.Windows.Forms.Label() + GUIDLabel = New System.Windows.Forms.Label() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TreeListMenu, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit() Me.DockPanel1.SuspendLayout() Me.DockPanel1_Container.SuspendLayout() - CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).BeginInit() - Me.XtraTabControl.SuspendLayout() - Me.XtraTabPage_ClipboardWatcher.SuspendLayout() - Me.XtraTabPage_GlobalIndexer.SuspendLayout() + 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.GridAttributes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ViewAttributes, System.ComponentModel.ISupportInitialize).BeginInit() 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.XtraTabPage_GlobalIndexer.SuspendLayout() + Me.XtraTabPage_ClipboardWatcher.SuspendLayout() + CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl.SuspendLayout() 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 @@ -197,6 +138,69 @@ Partial Class frmAdministrationZooFlow CHANGED_WHENLabel.TabIndex = 20 CHANGED_WHENLabel.Text = "Geändert wann:" ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Location = New System.Drawing.Point(351, 188) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 13) + CHANGED_WHOLabel.TabIndex = 18 + CHANGED_WHOLabel.Text = "Geändert wer:" + ' + 'ADDED_WHENLabel + ' + ADDED_WHENLabel.AutoSize = True + ADDED_WHENLabel.Location = New System.Drawing.Point(472, 146) + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ADDED_WHENLabel.Size = New System.Drawing.Size(73, 13) + ADDED_WHENLabel.TabIndex = 16 + ADDED_WHENLabel.Text = "Erstellt wann:" + ' + 'ADDED_WHOLabel + ' + ADDED_WHOLabel.AutoSize = True + ADDED_WHOLabel.Location = New System.Drawing.Point(351, 146) + ADDED_WHOLabel.Name = "ADDED_WHOLabel" + ADDED_WHOLabel.Size = New System.Drawing.Size(65, 13) + ADDED_WHOLabel.TabIndex = 14 + ADDED_WHOLabel.Text = "Erstellt wer:" + ' + 'COMMENTLabel + ' + COMMENTLabel.AutoSize = True + COMMENTLabel.Location = New System.Drawing.Point(351, 106) + COMMENTLabel.Name = "COMMENTLabel" + COMMENTLabel.Size = New System.Drawing.Size(65, 13) + COMMENTLabel.TabIndex = 12 + COMMENTLabel.Text = "Kommentar:" + ' + 'VIEW_SEQUENCELabel + ' + VIEW_SEQUENCELabel.AutoSize = True + VIEW_SEQUENCELabel.Location = New System.Drawing.Point(351, 82) + VIEW_SEQUENCELabel.Name = "VIEW_SEQUENCELabel" + VIEW_SEQUENCELabel.Size = New System.Drawing.Size(93, 13) + VIEW_SEQUENCELabel.TabIndex = 8 + VIEW_SEQUENCELabel.Text = "View Reihenfolge:" + ' + 'TITLELabel + ' + TITLELabel.AutoSize = True + TITLELabel.Location = New System.Drawing.Point(351, 12) + TITLELabel.Name = "TITLELabel" + TITLELabel.Size = New System.Drawing.Size(71, 13) + TITLELabel.TabIndex = 2 + TITLELabel.Text = "Bezeichnung:" + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Location = New System.Drawing.Point(297, 12) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(36, 13) + GUIDLabel.TabIndex = 0 + GUIDLabel.Text = "GUID:" + ' 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 @@ -205,7 +209,7 @@ Partial Class frmAdministrationZooFlow 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.RibbonPage_IDB}) - Me.RibbonControl1.Size = New System.Drawing.Size(1328, 158) + Me.RibbonControl1.Size = New System.Drawing.Size(1328, 157) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' 'BarButtonItem1 @@ -262,6 +266,27 @@ Partial Class frmAdministrationZooFlow Me.labelError.Name = "labelError" Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph ' + 'BarButtonItemSaveAttribute + ' + Me.BarButtonItemSaveAttribute.Caption = "Speichern" + Me.BarButtonItemSaveAttribute.Id = 8 + Me.BarButtonItemSaveAttribute.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemSaveAttribute.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("BarButtonItemAddAttribute.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("BarButtonItemRefreshAttribute.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItemRefreshAttribute.Name = "BarButtonItemRefreshAttribute" + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2}) @@ -327,44 +352,58 @@ Partial Class frmAdministrationZooFlow Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "RibbonPageGroup1" ' + 'RibbonPage_IDB + ' + Me.RibbonPage_IDB.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupAttributes}) + Me.RibbonPage_IDB.Name = "RibbonPage_IDB" + Me.RibbonPage_IDB.Text = "IDB Administration" + ' + 'RibbonPageGroupAttributes + ' + Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemSaveAttribute) + Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemAddAttribute) + Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemRefreshAttribute) + Me.RibbonPageGroupAttributes.Name = "RibbonPageGroupAttributes" + Me.RibbonPageGroupAttributes.Text = "Attribute" + ' 'RibbonStatusBar1 ' Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError) - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 727) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 729) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(1328, 24) + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1328, 22) ' 'RibbonPage2 ' Me.RibbonPage2.Name = "RibbonPage2" Me.RibbonPage2.Text = "RibbonPage2" ' - 'TreeList1 + 'TreeListMenu ' - Me.TreeList1.Appearance.FocusedRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.TreeList1.Appearance.FocusedRow.Options.UseBackColor = True - Me.TreeList1.Columns.AddRange(New DevExpress.XtraTreeList.Columns.TreeListColumn() {Me.TreeListColumn1}) - Me.TreeList1.Dock = System.Windows.Forms.DockStyle.Fill - Me.TreeList1.Location = New System.Drawing.Point(0, 0) - Me.TreeList1.MenuManager = Me.RibbonControl1 - Me.TreeList1.Name = "TreeList1" - Me.TreeList1.BeginUnboundLoad() - Me.TreeList1.AppendNode(New Object() {"IDB"}, -1) - Me.TreeList1.AppendNode(New Object() {"Attributes"}, 0, 2, 2, -1, "IDB_ATTRIBUTES") - Me.TreeList1.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_ENTITIES") - Me.TreeList1.AppendNode(New Object() {"Global Indexer"}, -1, "GLOBIX") - Me.TreeList1.AppendNode(New Object() {"Clipboard Watcher"}, -1, "CLIPBOARD_WATCHER") - Me.TreeList1.EndUnboundLoad() - Me.TreeList1.OptionsBehavior.Editable = False - Me.TreeList1.OptionsView.ShowColumns = False - Me.TreeList1.OptionsView.ShowHorzLines = False - Me.TreeList1.OptionsView.ShowIndicator = False - Me.TreeList1.OptionsView.ShowVertLines = False - Me.TreeList1.SelectImageList = Me.SvgImageCollection1 - Me.TreeList1.Size = New System.Drawing.Size(193, 540) - Me.TreeList1.TabIndex = 8 + Me.TreeListMenu.Appearance.FocusedRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.TreeListMenu.Appearance.FocusedRow.Options.UseBackColor = True + Me.TreeListMenu.Columns.AddRange(New DevExpress.XtraTreeList.Columns.TreeListColumn() {Me.TreeListColumn1}) + Me.TreeListMenu.Dock = System.Windows.Forms.DockStyle.Fill + Me.TreeListMenu.Location = New System.Drawing.Point(0, 0) + Me.TreeListMenu.MenuManager = Me.RibbonControl1 + Me.TreeListMenu.Name = "TreeListMenu" + Me.TreeListMenu.BeginUnboundLoad() + Me.TreeListMenu.AppendNode(New Object() {"IDB"}, -1) + Me.TreeListMenu.AppendNode(New Object() {"Attributes"}, 0, 2, 2, -1, "IDB_ATTRIBUTES") + Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_ENTITIES") + Me.TreeListMenu.AppendNode(New Object() {"Global Indexer"}, -1, "GLOBIX") + Me.TreeListMenu.AppendNode(New Object() {"Clipboard Watcher"}, -1, "CLIPBOARD_WATCHER") + Me.TreeListMenu.EndUnboundLoad() + Me.TreeListMenu.OptionsBehavior.Editable = False + Me.TreeListMenu.OptionsView.ShowColumns = False + Me.TreeListMenu.OptionsView.ShowHorzLines = False + Me.TreeListMenu.OptionsView.ShowIndicator = False + Me.TreeListMenu.OptionsView.ShowVertLines = False + Me.TreeListMenu.SelectImageList = Me.SvgImageCollection1 + Me.TreeListMenu.Size = New System.Drawing.Size(193, 523) + Me.TreeListMenu.TabIndex = 8 ' 'TreeListColumn1 ' @@ -391,67 +430,48 @@ 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, 158) + Me.DockPanel1.Location = New System.Drawing.Point(0, 157) Me.DockPanel1.Name = "DockPanel1" Me.DockPanel1.OriginalSize = New System.Drawing.Size(200, 200) - Me.DockPanel1.Size = New System.Drawing.Size(200, 569) + Me.DockPanel1.Size = New System.Drawing.Size(200, 572) Me.DockPanel1.Text = "Übersicht" ' 'DockPanel1_Container ' - Me.DockPanel1_Container.Controls.Add(Me.TreeList1) - Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 26) + Me.DockPanel1_Container.Controls.Add(Me.TreeListMenu) + Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 46) Me.DockPanel1_Container.Name = "DockPanel1_Container" - Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 540) + Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 523) Me.DockPanel1_Container.TabIndex = 0 ' - 'XtraTabControl + 'TBIDB_ATTRIBUTEBindingSource ' - Me.XtraTabControl.Dock = System.Windows.Forms.DockStyle.Fill - 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.[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.XtraTabPage_IDB}) + Me.TBIDB_ATTRIBUTEBindingSource.DataMember = "TBIDB_ATTRIBUTE" + Me.TBIDB_ATTRIBUTEBindingSource.DataSource = Me.DSIDB_Stammdaten ' - 'XtraTabPage_ClipboardWatcher + 'DSIDB_Stammdaten ' - 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, 544) - Me.XtraTabPage_ClipboardWatcher.Text = "Clipboard Watcher" + Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten" + Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' - 'CtrlClipboardWatcher1 + 'TBIDB_ATTRIBUTETableAdapter ' - 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, 544) - Me.CtrlClipboardWatcher1.TabIndex = 0 + Me.TBIDB_ATTRIBUTETableAdapter.ClearBeforeFill = True + ' ' + 'TBIDB_ATTRIBUTE_TYPEBindingSource ' - 'XtraTabPage_GlobalIndexer + Me.TBIDB_ATTRIBUTE_TYPEBindingSource.DataMember = "TBIDB_ATTRIBUTE_TYPE" + Me.TBIDB_ATTRIBUTE_TYPEBindingSource.DataSource = Me.DSIDB_Stammdaten ' - 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, 544) - Me.XtraTabPage_GlobalIndexer.Text = "Global Indexer" + 'TBIDB_ATTRIBUTE_TYPETableAdapter ' - 'CtrlGlobalIndexer1 - ' - Me.CtrlGlobalIndexer1.Location = New System.Drawing.Point(42, 29) - Me.CtrlGlobalIndexer1.Name = "CtrlGlobalIndexer1" - Me.CtrlGlobalIndexer1.Size = New System.Drawing.Size(1084, 539) - Me.CtrlGlobalIndexer1.TabIndex = 0 + Me.TBIDB_ATTRIBUTE_TYPETableAdapter.ClearBeforeFill = True ' '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.Size = New System.Drawing.Size(1126, 549) Me.XtraTabPage_IDB.Text = "IDB" ' 'XtraTabControlIDB @@ -459,16 +479,33 @@ Partial Class frmAdministrationZooFlow 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.SelectedTabPage = Me.XtraTabPageIDB_Attributes_New + Me.XtraTabControlIDB.Size = New System.Drawing.Size(1126, 549) Me.XtraTabControlIDB.TabIndex = 0 - Me.XtraTabControlIDB.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPageIDB_Attributes}) + Me.XtraTabControlIDB.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageIDB_Attributes_New, Me.XtraTabPageIDB_Attributes, Me.XtraTabPage2}) ' - 'XtraTabPage1 + 'XtraTabPageIDB_Attributes_New ' - Me.XtraTabPage1.Name = "XtraTabPage1" - Me.XtraTabPage1.Size = New System.Drawing.Size(1124, 519) - Me.XtraTabPage1.Text = "XtraTabPage1" + Me.XtraTabPageIDB_Attributes_New.Controls.Add(Me.GridAttributes) + Me.XtraTabPageIDB_Attributes_New.Name = "XtraTabPageIDB_Attributes_New" + Me.XtraTabPageIDB_Attributes_New.Size = New System.Drawing.Size(1124, 526) + Me.XtraTabPageIDB_Attributes_New.Text = "Attribute" + ' + 'GridAttributes + ' + Me.GridAttributes.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridAttributes.Location = New System.Drawing.Point(0, 0) + Me.GridAttributes.MainView = Me.ViewAttributes + Me.GridAttributes.MenuManager = Me.RibbonControl1 + Me.GridAttributes.Name = "GridAttributes" + Me.GridAttributes.Size = New System.Drawing.Size(1124, 526) + Me.GridAttributes.TabIndex = 0 + Me.GridAttributes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewAttributes}) + ' + 'ViewAttributes + ' + Me.ViewAttributes.GridControl = Me.GridAttributes + Me.ViewAttributes.Name = "ViewAttributes" ' 'XtraTabPageIDB_Attributes ' @@ -495,18 +532,64 @@ Partial Class frmAdministrationZooFlow 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.Size = New System.Drawing.Size(1124, 526) Me.XtraTabPageIDB_Attributes.Text = "Attributverwaltung" ' - 'TBIDB_ATTRIBUTEBindingSource + 'ComboBox1 ' - Me.TBIDB_ATTRIBUTEBindingSource.DataMember = "TBIDB_ATTRIBUTE" - Me.TBIDB_ATTRIBUTEBindingSource.DataSource = Me.DSIDB_Stammdaten + 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 ' - 'DSIDB_Stammdaten + 'GridControl1 ' - Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten" - Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + 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, 526) + Me.GridControl1.TabIndex = 28 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'GridView1 + ' + Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Gainsboro + Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True + Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colTITLE, Me.colATTR_TYPE}) + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + Me.GridView1.OptionsView.EnableAppearanceEvenRow = True + ' + 'colGUID + ' + Me.colGUID.Caption = "ID" + Me.colGUID.FieldName = "GUID" + Me.colGUID.Name = "colGUID" + Me.colGUID.Visible = True + Me.colGUID.VisibleIndex = 0 + Me.colGUID.Width = 49 + ' + 'colTITLE + ' + Me.colTITLE.Caption = "Title" + Me.colTITLE.FieldName = "TITLE" + Me.colTITLE.Name = "colTITLE" + Me.colTITLE.Visible = True + Me.colTITLE.VisibleIndex = 1 + Me.colTITLE.Width = 135 + ' + 'colATTR_TYPE + ' + Me.colATTR_TYPE.Caption = "Typ" + Me.colATTR_TYPE.FieldName = "ATTR_TYPE" + Me.colATTR_TYPE.Name = "colATTR_TYPE" + Me.colATTR_TYPE.Visible = True + Me.colATTR_TYPE.VisibleIndex = 2 + Me.colATTR_TYPE.Width = 73 ' 'GUIDTextBox ' @@ -605,117 +688,36 @@ Partial Class frmAdministrationZooFlow Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(131, 21) Me.CHANGED_WHENTextBox.TabIndex = 21 ' - 'TBIDB_ATTRIBUTETableAdapter + 'XtraTabPage2 ' - Me.TBIDB_ATTRIBUTETableAdapter.ClearBeforeFill = True + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(1124, 526) + Me.XtraTabPage2.Text = "XtraTabPage2" ' - 'TableAdapterManager + 'XtraTabPage_GlobalIndexer ' - 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 + Me.XtraTabPage_GlobalIndexer.Name = "XtraTabPage_GlobalIndexer" + Me.XtraTabPage_GlobalIndexer.PageVisible = False + Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(1126, 549) + Me.XtraTabPage_GlobalIndexer.Text = "Global Indexer" ' - 'GridControl1 + 'XtraTabPage_ClipboardWatcher ' - 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}) + Me.XtraTabPage_ClipboardWatcher.Name = "XtraTabPage_ClipboardWatcher" + Me.XtraTabPage_ClipboardWatcher.PageVisible = False + Me.XtraTabPage_ClipboardWatcher.Size = New System.Drawing.Size(1126, 549) + Me.XtraTabPage_ClipboardWatcher.Text = "Clipboard Watcher" ' - 'GridView1 + 'XtraTabControl ' - 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" + Me.XtraTabControl.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl.Location = New System.Drawing.Point(200, 157) + Me.XtraTabControl.Name = "XtraTabControl" + Me.XtraTabControl.SelectedTabPage = Me.XtraTabPage_IDB + Me.XtraTabControl.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True] + Me.XtraTabControl.Size = New System.Drawing.Size(1128, 572) + Me.XtraTabControl.TabIndex = 4 + Me.XtraTabControl.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage_ClipboardWatcher, Me.XtraTabPage_GlobalIndexer, Me.XtraTabPage_IDB}) ' 'frmAdministrationZooFlow ' @@ -732,25 +734,28 @@ Partial Class frmAdministrationZooFlow Me.StatusBar = Me.RibbonStatusBar1 Me.Text = "Administration" CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TreeListMenu, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit() Me.DockPanel1.ResumeLayout(False) Me.DockPanel1_Container.ResumeLayout(False) - CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).EndInit() - Me.XtraTabControl.ResumeLayout(False) - Me.XtraTabPage_ClipboardWatcher.ResumeLayout(False) - Me.XtraTabPage_GlobalIndexer.ResumeLayout(False) + 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.GridAttributes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ViewAttributes, System.ComponentModel.ISupportInitialize).EndInit() 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.XtraTabPage_GlobalIndexer.ResumeLayout(False) + Me.XtraTabPage_ClipboardWatcher.ResumeLayout(False) + CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() @@ -762,7 +767,7 @@ Partial Class frmAdministrationZooFlow 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 TreeList1 As DevExpress.XtraTreeList.TreeList + Friend WithEvents TreeListMenu As DevExpress.XtraTreeList.TreeList Friend WithEvents TreeListColumn1 As DevExpress.XtraTreeList.Columns.TreeListColumn Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection Friend WithEvents RibbonGroup_ClipboardWatcher_DataSearch As DevExpress.XtraBars.Ribbon.RibbonPageGroup @@ -779,23 +784,39 @@ Partial Class frmAdministrationZooFlow 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 XtraTabControl As DevExpress.XtraTab.XtraTabControl - Friend WithEvents XtraTabPage_ClipboardWatcher As DevExpress.XtraTab.XtraTabPage - Friend WithEvents XtraTabPage_GlobalIndexer As DevExpress.XtraTab.XtraTabPage - Friend WithEvents CtrlClipboardWatcher1 As ctrlClipboardWatcher - Friend WithEvents CtrlGlobalIndexer1 As ctrlGlobalIndexer Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage 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 DELETEDCheckBox As CheckBox + Friend WithEvents DELETED_WHOTextBox As TextBox + Friend WithEvents DELETED_WHENTextBox As TextBox + Friend WithEvents TBIDB_ATTRIBUTE_TYPEBindingSource As BindingSource + Friend WithEvents TBIDB_ATTRIBUTE_TYPETableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTE_TYPETableAdapter + 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 + 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 GridAttributes As DevExpress.XtraGrid.GridControl + Friend WithEvents ViewAttributes As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents XtraTabPageIDB_Attributes As DevExpress.XtraTab.XtraTabPage + Friend WithEvents ComboBox1 As ComboBox + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colTITLE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colATTR_TYPE As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents GUIDTextBox As TextBox Friend WithEvents TITLETextBox As TextBox Friend WithEvents TYP_IDTextBox As TextBox @@ -807,20 +828,5 @@ Partial Class frmAdministrationZooFlow 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 + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage End Class diff --git a/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.resx b/GUIs.ZooFlow/Administration/frmAdmin_Start.resx similarity index 97% rename from GUIs.ZooFlow/Administration/frmAdministrationZooFlow.resx rename to GUIs.ZooFlow/Administration/frmAdmin_Start.resx index 6de9a315..b6ce6a6f 100644 --- a/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.resx +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.resx @@ -117,28 +117,28 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - False - - - False - - - False - - - False - - - False - - + False False - + + False + + + False + + + False + + + False + + + False + + False @@ -270,7 +270,7 @@ c3ZnPgs= - + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl @@ -286,7 +286,7 @@ IC8+DQo8L3N2Zz4L - + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl @@ -305,7 +305,7 @@ DQogIDwvZz4NCjwvc3ZnPgs= - + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl @@ -361,9 +361,6 @@ LjEsMjguMSwyNy42LDI3LjZ6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== - - 487, 21 - 875, 21 diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb new file mode 100644 index 00000000..b96be50e --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb @@ -0,0 +1,175 @@ +Imports DevExpress.Utils +Imports DevExpress.XtraBars.Docking2010.Views +Imports DevExpress.XtraBars.Ribbon +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraGrid.Views.Grid.ViewInfo +Imports DevExpress.XtraTab +Imports DigitalData.Modules.Logging + +Public Class frmAdmin_Start + Private Const IDB_START = "IDB_START" + Private Const IDB_ATTRIBUTES = "IDB_ATTRIBUTES" + Private Const IDB_BUSINESS_ENTITY = "IDB_BUSINESS_ENTITY" + Private Const GLOBIX = "GLOBIX" + Private Const CLIPBOARD_WATCHER = "CLIPBOARD_WATCHER" + + Private Logger As Logger + Private PrimaryKey As String = Nothing + + Private SourceCommands As New Dictionary(Of String, SourceSql) + + Private Class SourceSql + Public Title As String + Public SQL As String + Public PrimaryKey As String + End Class + + Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Logger = My.LogConfig.GetLogger + + Load_SourceSql() + + TreeListMenu.ExpandAll() + + ' Show Tab Header in Development, hide when running the app + XtraTabControl.ShowTabHeader = DefaultBoolean.False + End Sub + + Private Sub Load_SourceSql() + Dim oTable As DataTable = My.Database.GetDatatable("SELECT * FROM TBZF_ADMIN_SOURCE_SQL") + + For Each oRow As DataRow In oTable.Rows + Dim oSource As New SourceSql With { + .PrimaryKey = oRow.Item("PK_COLUMN"), + .SQL = oRow.Item("SQL_COMMAND"), + .Title = oRow.Item("ENTITY_TITLE") + } + + SourceCommands.Add(oRow.Item("ENTITY_TITLE"), oSource) + Next + End Sub + + Sub Display_Tab(pPageToDisplay As XtraTabPage, pTabControl As XtraTabControl) + Try + For Each oDocument As XtraTabPage In pTabControl.TabPages + If oDocument.Name = pPageToDisplay.Name Then + oDocument.PageVisible = True + Else + oDocument.PageVisible = False + End If + Next + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub + + Sub Display_RibbonPage(PageToDisplay As RibbonPage) + Try + For Each oPage As RibbonPage In RibbonControl1.Pages + If oPage.Name = PageToDisplay.Name Then + oPage.Visible = True + Else + oPage.Visible = False + End If + Next + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub + + Private Sub TreeList1_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeListMenu.FocusedNodeChanged + If e.Node Is Nothing OrElse e.Node.Tag Is Nothing Then + Exit Sub + End If + + Select Case e.Node.Tag.ToString + Case IDB_START + Display_Tab(XtraTabPage_IDB, XtraTabControl) + + Case IDB_ATTRIBUTES + Display_Tab(XtraTabPage_IDB, XtraTabControl) + Display_Tab(XtraTabPageIDB_Attributes_New, XtraTabControlIDB) + + Dim oSource As SourceSql = SourceCommands.Item(e.Node.Tag.ToString) + Dim oTable As DataTable = My.Database.GetDatatable(oSource.SQL) + Load_Grid(oTable, oSource.PrimaryKey, GridAttributes) + + Case IDB_BUSINESS_ENTITY + 'DisplayTab(XtraTabPage_Entities) + + Case GLOBIX + Display_Tab(XtraTabPage_GlobalIndexer, XtraTabControl) + Display_RibbonPage(RibbonPage_GlobalIndexer) + + Case CLIPBOARD_WATCHER + Display_Tab(XtraTabPage_ClipboardWatcher, XtraTabControl) + Display_RibbonPage(RibbonPage_ClipboardWatcher) + + End Select + End Sub + + Private Sub Load_Grid(DataSource As DataTable, PrimaryKey As String, GridControl As GridControl) + Try + Me.PrimaryKey = PrimaryKey + + GridControl.DataSource = DataSource + GridControl.ForceInitialize() + + Dim oGridView = DirectCast(GridControl.DefaultView, GridView) + + With oGridView.OptionsBehavior + .Editable = False + .ReadOnly = True + End With + + With oGridView.OptionsView + .ShowAutoFilterRow = True + End With + + oGridView.BestFitColumns() + + Catch ex As Exception + MsgBox("Fehler beim Laden.", MsgBoxStyle.Critical, Text) + Logger.Error(ex) + End Try + End Sub + + Private Sub TBIDB_ATTRIBUTEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Validate() + TBIDB_ATTRIBUTEBindingSource.EndEdit() + TableAdapterManager.UpdateAll(DSIDB_Stammdaten) + 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 + + Private Sub ViewAttributes_DoubleClick(sender As Object, e As EventArgs) Handles ViewAttributes.DoubleClick + Dim view As GridView = TryCast(sender, GridView) + Dim hitInfo As GridHitInfo = view.CalcHitInfo((TryCast(e, DXMouseEventArgs)).Location) + If hitInfo.InDataRow Then + Try + Dim oRow As DataRow = ViewAttributes.GetFocusedDataRow + Dim oPrimaryKey As Integer = oRow.Item(PrimaryKey) + Dim oForm As New frmAdmin_Attribute(oPrimaryKey) + oForm.ShowDialog() + Catch ex As Exception + Logger.Error(ex) + End Try + End If + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.vb b/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.vb deleted file mode 100644 index ab154a68..00000000 --- a/GUIs.ZooFlow/Administration/frmAdministrationZooFlow.vb +++ /dev/null @@ -1,107 +0,0 @@ -Imports DevExpress.XtraBars.Docking2010.Views -Imports DevExpress.XtraBars.Ribbon -Imports DevExpress.XtraTab -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" - - Private Logger As Logger - - Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load - - Logger = My.LogConfig.GetLogger - - XtraTabControl.ShowTabHeader = False - End Sub - - Sub DisplayTab(pPageToDisplay As XtraTabPage, pTabControl As XtraTabControl) - Try - For Each oDocument As XtraTabPage In pTabControl.TabPages - If oDocument.Name = pPageToDisplay.Name Then - oDocument.PageVisible = True - Else - oDocument.PageVisible = False - End If - Next - Catch ex As Exception - Logger.Error(ex) - End Try - End Sub - - Sub DisplayRibbonPage(PageToDisplay As RibbonPage) - Try - For Each oPage As RibbonPage In RibbonControl1.Pages - If oPage.Name = PageToDisplay.Name Then - oPage.Visible = True - Else - oPage.Visible = False - End If - Next - Catch ex As Exception - Logger.Error(ex) - End Try - End Sub - - Private Sub TreeList1_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeList1.FocusedNodeChanged - If e.Node Is Nothing OrElse e.Node.Tag Is Nothing Then - Exit Sub - End If - - Select Case e.Node.Tag.ToString - Case IDBConst - DisplayTab(XtraTabPage_IDB, XtraTabControl) - Case IDB_ATTRIBUTES - 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, XtraTabControl) - DisplayRibbonPage(RibbonPage_GlobalIndexer) - Case CLIPBOARD_WATCHER - DisplayTab(XtraTabPage_ClipboardWatcher, XtraTabControl) - DisplayRibbonPage(RibbonPage_ClipboardWatcher) - End Select - End Sub - - Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick - - 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 1e74c7cd..4186f0c8 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb @@ -2863,46 +2863,6 @@ Namespace DSIDB_StammdatenTableAdapters 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"&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_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 "& _ - "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, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTI_CONTEXT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTI_CONTEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, TYP_ID = @TYP_ID"& _ - ", MULTI_CONTEXT = @MULTI_CONTEXT, VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE ="& _ - " @VIEW_VISIBLE, COMMENT = @COMMENT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 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, "", "", "")) - 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("@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 _ - Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable) 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 dataTable.Clear End If @@ -2946,141 +2908,13 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable + Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) Dim dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable = New DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer - Return Me.Adapter.Update(dataSet, "TBIDB_ATTRIBUTE") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - 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 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) As Integer - If (TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TITLE") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(TITLE,String) - End If - Me.Adapter.InsertCommand.Parameters(1).Value = CType(TYP_ID,Byte) - Me.Adapter.InsertCommand.Parameters(2).Value = CType(MULTI_CONTEXT,Boolean) - Me.Adapter.InsertCommand.Parameters(3).Value = CType(VIEW_SEQUENCE,Integer) - Me.Adapter.InsertCommand.Parameters(4).Value = CType(VIEW_VISIBLE,Boolean) - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(COMMENT,String) - End If - 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 - 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 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 - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TITLE,String) - End If - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TYP_ID,Byte) - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(MULTI_CONTEXT,Boolean) - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(VIEW_SEQUENCE,Integer) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(VIEW_VISIBLE,Boolean) - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(COMMENT,String) - End If - 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 - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(8).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 ''' @@ -3656,8 +3490,6 @@ Namespace DSIDB_StammdatenTableAdapters Private _tBIDB_BUSINESS_ENTITYTableAdapter As TBIDB_BUSINESS_ENTITYTableAdapter - Private _tBIDB_ATTRIBUTETableAdapter As TBIDB_ATTRIBUTETableAdapter - Private _tBIDB_ATTRIBUTE_TYPETableAdapter As TBIDB_ATTRIBUTE_TYPETableAdapter Private _backupDataSetBeforeUpdate As Boolean @@ -3689,20 +3521,6 @@ Namespace DSIDB_StammdatenTableAdapters End Set End Property - _ - Public Property TBIDB_ATTRIBUTETableAdapter() As TBIDB_ATTRIBUTETableAdapter - Get - Return Me._tBIDB_ATTRIBUTETableAdapter - End Get - Set - Me._tBIDB_ATTRIBUTETableAdapter = value - End Set - End Property - - - - - 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); -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.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, - 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) + TBIDB_ATTRIBUTE_TYPE ON TBIDB_ATTRIBUTE.TYP_ID = TBIDB_ATTRIBUTE_TYPE.GUID +WHERE TBIDB_ATTRIBUTE.GUID = @GUID - - - - - - - - - + - + @@ -260,7 +217,7 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, - + @@ -299,7 +256,7 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, - + @@ -356,7 +313,7 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, - + @@ -414,7 +371,7 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, - + \ No newline at end of file diff --git a/GUIs.ZooFlow/My Project/Resources.Designer.vb b/GUIs.ZooFlow/My Project/Resources.Designer.vb index f39cafac..6b93e0e1 100644 --- a/GUIs.ZooFlow/My Project/Resources.Designer.vb +++ b/GUIs.ZooFlow/My Project/Resources.Designer.vb @@ -190,6 +190,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_check() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_check", 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 2c0b271e..daf59ade 100644 --- a/GUIs.ZooFlow/My Project/Resources.resx +++ b/GUIs.ZooFlow/My Project/Resources.resx @@ -190,6 +190,9 @@ ..\Resources\1_LOGO_ZOO_FLOW_DROP2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Flow.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\3_PERSON_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -205,7 +208,7 @@ ..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Flow.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\actions_check.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/MyApplication.vb b/GUIs.ZooFlow/MyApplication.vb index 5f4a148a..772a1274 100644 --- a/GUIs.ZooFlow/MyApplication.vb +++ b/GUIs.ZooFlow/MyApplication.vb @@ -30,7 +30,7 @@ Namespace My Property DTCATALOG As DataTable Property IDB_DT_DOC_DATA As DataTable Property LogConfig As LogConfig - Property MainForm As frmAdministrationZooFlow + Property MainForm As frmAdmin_Start Property SearchForm As frmSearchStart Property Database As MSSQLServer Property DatabaseIDB As MSSQLServer diff --git a/GUIs.ZooFlow/Resources/actions_check.svg b/GUIs.ZooFlow/Resources/actions_check.svg new file mode 100644 index 00000000..35c68028 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_check.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/ZooFlow.vbproj b/GUIs.ZooFlow/ZooFlow.vbproj index fc47ae1e..77958f00 100644 --- a/GUIs.ZooFlow/ZooFlow.vbproj +++ b/GUIs.ZooFlow/ZooFlow.vbproj @@ -114,18 +114,13 @@ - - ctrlClipboardWatcher.vb + + frmAdmin_Attribute.vb - - UserControl - - - ctrlGlobalIndexer.vb - - - UserControl + + Form + @@ -181,10 +176,10 @@ - - frmAdministrationZooFlow.vb + + frmAdmin_Start.vb - + Form @@ -261,8 +256,8 @@ - - ctrlClipboardWatcher.vb + + frmAdmin_Attribute.vb frmGlobixBasicConfig.vb @@ -273,8 +268,8 @@ frmFlowSearch.vb - - frmAdministrationZooFlow.vb + + frmAdmin_Start.vb frmConfigDatabase.vb @@ -485,6 +480,9 @@ + + +