AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

ZooFlow: IDB Admin

Browse Source
This commit is contained in:
Jonathan Jenne
2021-03-08 15:34:57 +01:00
parent 526c9c349a
commit 6b814b9089
24 changed files with 835 additions and 2519 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb generated
View File

@@ -435,7 +435,6 @@ Partial Class frmAdmin_IDBAttribute
Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing
Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'frmAdmin_IDBAttribute

11
GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb
View File

@@ -76,8 +76,13 @@ Public Class frmAdmin_IDBAttribute
End Try
End Function
Private Sub Update_Datasource()
Dim oupdate = $"UPDATE TBIDB_ATTRIBUTE
SET TITLE = '@TITLE', TYP_ID = @TYP_ID, MULTI_CONTEXT = @MULTI_CONTEXT, VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE = @VIEW_VISIBLE, COMMENT = @COMMENT
WHERE (GUID = @GUID)"
Dim oupdate = $"UPDATE TBIDB_ATTRIBUTE
SET TITLE = '@TITLE',
TYP_ID = @TYP_ID,
MULTI_CONTEXT = @MULTI_CONTEXT,
VIEW_SEQUENCE = @VIEW_SEQUENCE,
VIEW_VISIBLE = @VIEW_VISIBLE,
COMMENT = @COMMENT
WHERE (GUID = @GUID)"
End Sub
End Class

338
GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb → GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.Designer.vb generated
View File

@@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmAdmin_SourceSQL
Partial Class frmAdmin_IDBEntity
Inherits frmAdmin_Base
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
@@ -27,58 +27,57 @@ Partial Class frmAdmin_SourceSQL
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.labelStatus = New DevExpress.XtraBars.BarStaticItem()
Me.labelError = New DevExpress.XtraBars.BarStaticItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
Me.TBZF_ADMIN_SOURCE_SQLBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBIDB_BUSINESS_ENTITYBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten()
Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit()
Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit()
Me.TextEdit4 = New DevExpress.XtraEditors.MemoEdit()
Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit()
Me.CheckEdit1 = New DevExpress.XtraEditors.CheckEdit()
Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit()
Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit()
Me.TextEdit6 = New DevExpress.XtraEditors.TextEdit()
Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit()
Me.TextEdit8 = New DevExpress.XtraEditors.TextEdit()
Me.TextEdit9 = New DevExpress.XtraEditors.TextEdit()
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem()
Me.TBZF_ADMIN_SOURCE_SQLTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBZF_ADMIN_SOURCE_SQLTableAdapter()
Me.TBIDB_BUSINESS_ENTITYTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_BUSINESS_ENTITYTableAdapter()
Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControl1.SuspendLayout()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBZF_ADMIN_SOURCE_SQLBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBIDB_BUSINESS_ENTITYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit9.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -86,47 +85,39 @@ Partial Class frmAdmin_SourceSQL
'
Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.labelStatus, Me.labelError})
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.labelStatus})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 5
Me.RibbonControl1.MaxItemId = 4
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl1.Size = New System.Drawing.Size(800, 63)
Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.Size = New System.Drawing.Size(837, 66)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
'
'BarButtonItem1
'
Me.BarButtonItem1.Caption = "Speichern und Schließen"
Me.BarButtonItem1.Id = 1
Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check1
Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.markcomplete
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'BarButtonItem2
'
Me.BarButtonItem2.Caption = "Speichern"
Me.BarButtonItem2.Id = 2
Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save1
Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save3
Me.BarButtonItem2.Name = "BarButtonItem2"
'
'labelStatus
'
Me.labelStatus.Caption = "labelStatus"
Me.labelStatus.Caption = "BarStaticItem1"
Me.labelStatus.Id = 3
Me.labelStatus.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.about1
Me.labelStatus.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.about2
Me.labelStatus.Name = "labelStatus"
Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
'
'labelError
'
Me.labelError.Caption = "labelError"
Me.labelError.Id = 4
Me.labelError.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.highimportance
Me.labelError.Name = "labelError"
Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
Me.labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
'
'RibbonPage1
'
@@ -144,11 +135,10 @@ Partial Class frmAdmin_SourceSQL
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 426)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 465)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 24)
Me.RibbonStatusBar1.Size = New System.Drawing.Size(837, 22)
'
'RibbonPage2
'
@@ -160,34 +150,35 @@ Partial Class frmAdmin_SourceSQL
Me.LayoutControl1.Controls.Add(Me.TextEdit1)
Me.LayoutControl1.Controls.Add(Me.TextEdit2)
Me.LayoutControl1.Controls.Add(Me.TextEdit3)
Me.LayoutControl1.Controls.Add(Me.CheckEdit1)
Me.LayoutControl1.Controls.Add(Me.TextEdit4)
Me.LayoutControl1.Controls.Add(Me.TextEdit5)
Me.LayoutControl1.Controls.Add(Me.txtAddedWho)
Me.LayoutControl1.Controls.Add(Me.TextEdit6)
Me.LayoutControl1.Controls.Add(Me.txtChangedWho)
Me.LayoutControl1.Controls.Add(Me.TextEdit8)
Me.LayoutControl1.Controls.Add(Me.TextEdit9)
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.LayoutControl1.Location = New System.Drawing.Point(0, 63)
Me.LayoutControl1.Location = New System.Drawing.Point(0, 66)
Me.LayoutControl1.Name = "LayoutControl1"
Me.LayoutControl1.Root = Me.Root
Me.LayoutControl1.Size = New System.Drawing.Size(800, 363)
Me.LayoutControl1.Size = New System.Drawing.Size(837, 399)
Me.LayoutControl1.TabIndex = 2
Me.LayoutControl1.Text = "LayoutControl1"
'
'TextEdit1
'
Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "ENTITY_TITLE", True))
Me.TextEdit1.Location = New System.Drawing.Point(99, 60)
Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "GUID", True))
Me.TextEdit1.Location = New System.Drawing.Point(105, 20)
Me.TextEdit1.MenuManager = Me.RibbonControl1
Me.TextEdit1.Name = "TextEdit1"
Me.TextEdit1.Size = New System.Drawing.Size(681, 20)
Me.TextEdit1.Properties.ReadOnly = True
Me.TextEdit1.Size = New System.Drawing.Size(303, 20)
Me.TextEdit1.StyleController = Me.LayoutControl1
Me.TextEdit1.TabIndex = 4
'
'TBZF_ADMIN_SOURCE_SQLBindingSource
'TBIDB_BUSINESS_ENTITYBindingSource
'
Me.TBZF_ADMIN_SOURCE_SQLBindingSource.DataMember = "TBZF_ADMIN_SOURCE_SQL"
Me.TBZF_ADMIN_SOURCE_SQLBindingSource.DataSource = Me.DSIDB_Stammdaten
Me.TBIDB_BUSINESS_ENTITYBindingSource.DataMember = "TBIDB_BUSINESS_ENTITY"
Me.TBIDB_BUSINESS_ENTITYBindingSource.DataSource = Me.DSIDB_Stammdaten
'
'DSIDB_Stammdaten
'
@@ -196,233 +187,232 @@ Partial Class frmAdmin_SourceSQL
'
'TextEdit2
'
Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "PK_COLUMN", True))
Me.TextEdit2.Location = New System.Drawing.Point(99, 100)
Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "PARENT_ENT_ID", True))
Me.TextEdit2.Location = New System.Drawing.Point(513, 20)
Me.TextEdit2.MenuManager = Me.RibbonControl1
Me.TextEdit2.Name = "TextEdit2"
Me.TextEdit2.Size = New System.Drawing.Size(681, 20)
Me.TextEdit2.Size = New System.Drawing.Size(304, 20)
Me.TextEdit2.StyleController = Me.LayoutControl1
Me.TextEdit2.TabIndex = 5
'
'TextEdit3
'
Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "COMMENT", True))
Me.TextEdit3.Location = New System.Drawing.Point(99, 140)
Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "TITLE", True))
Me.TextEdit3.Location = New System.Drawing.Point(105, 60)
Me.TextEdit3.MenuManager = Me.RibbonControl1
Me.TextEdit3.Name = "TextEdit3"
Me.TextEdit3.Size = New System.Drawing.Size(681, 20)
Me.TextEdit3.Size = New System.Drawing.Size(712, 20)
Me.TextEdit3.StyleController = Me.LayoutControl1
Me.TextEdit3.TabIndex = 6
'
'CheckEdit1
'
Me.CheckEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "INHERITS_ATTRIBUTES", True))
Me.CheckEdit1.Location = New System.Drawing.Point(20, 140)
Me.CheckEdit1.MenuManager = Me.RibbonControl1
Me.CheckEdit1.Name = "CheckEdit1"
Me.CheckEdit1.Properties.Caption = "Erbt Attribute der übergeordneten Entität"
Me.CheckEdit1.Size = New System.Drawing.Size(797, 18)
Me.CheckEdit1.StyleController = Me.LayoutControl1
Me.CheckEdit1.TabIndex = 7
'
'TextEdit4
'
Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "SQL_COMMAND", True))
Me.TextEdit4.Location = New System.Drawing.Point(99, 180)
Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "COMMENT", True))
Me.TextEdit4.Location = New System.Drawing.Point(105, 100)
Me.TextEdit4.MenuManager = Me.RibbonControl1
Me.TextEdit4.Name = "TextEdit4"
Me.TextEdit4.Size = New System.Drawing.Size(681, 83)
Me.TextEdit4.Size = New System.Drawing.Size(712, 20)
Me.TextEdit4.StyleController = Me.LayoutControl1
Me.TextEdit4.TabIndex = 7
'
'TextEdit5
'
Me.TextEdit5.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "GUID", True))
Me.TextEdit5.Location = New System.Drawing.Point(99, 20)
Me.TextEdit5.MenuManager = Me.RibbonControl1
Me.TextEdit5.Name = "TextEdit5"
Me.TextEdit5.Properties.ReadOnly = True
Me.TextEdit5.Size = New System.Drawing.Size(681, 20)
Me.TextEdit5.StyleController = Me.LayoutControl1
Me.TextEdit5.TabIndex = 8
Me.TextEdit4.TabIndex = 8
'
'txtAddedWho
'
Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "ADDED_WHO", True))
Me.txtAddedWho.Location = New System.Drawing.Point(99, 283)
Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "ADDED_WHO", True))
Me.txtAddedWho.Location = New System.Drawing.Point(105, 178)
Me.txtAddedWho.MenuManager = Me.RibbonControl1
Me.txtAddedWho.Name = "txtAddedWho"
Me.txtAddedWho.Size = New System.Drawing.Size(291, 20)
Me.txtAddedWho.Size = New System.Drawing.Size(303, 20)
Me.txtAddedWho.StyleController = Me.LayoutControl1
Me.txtAddedWho.TabIndex = 9
'
'TextEdit6
'
Me.TextEdit6.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "ADDED_WHEN", True))
Me.TextEdit6.Location = New System.Drawing.Point(513, 178)
Me.TextEdit6.MenuManager = Me.RibbonControl1
Me.TextEdit6.Name = "TextEdit6"
Me.TextEdit6.Size = New System.Drawing.Size(304, 20)
Me.TextEdit6.StyleController = Me.LayoutControl1
Me.TextEdit6.TabIndex = 10
'
'txtChangedWho
'
Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "CHANGED_WHO", True))
Me.txtChangedWho.Location = New System.Drawing.Point(99, 323)
Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "CHANGED_WHO", True))
Me.txtChangedWho.Location = New System.Drawing.Point(105, 218)
Me.txtChangedWho.MenuManager = Me.RibbonControl1
Me.txtChangedWho.Name = "txtChangedWho"
Me.txtChangedWho.Size = New System.Drawing.Size(291, 20)
Me.txtChangedWho.Size = New System.Drawing.Size(303, 20)
Me.txtChangedWho.StyleController = Me.LayoutControl1
Me.txtChangedWho.TabIndex = 10
Me.txtChangedWho.TabIndex = 11
'
'TextEdit8
'
Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "ADDED_WHEN", True))
Me.TextEdit8.Location = New System.Drawing.Point(489, 283)
Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "CHANGED_WHEN", True))
Me.TextEdit8.Location = New System.Drawing.Point(513, 218)
Me.TextEdit8.MenuManager = Me.RibbonControl1
Me.TextEdit8.Name = "TextEdit8"
Me.TextEdit8.Size = New System.Drawing.Size(291, 20)
Me.TextEdit8.Size = New System.Drawing.Size(304, 20)
Me.TextEdit8.StyleController = Me.LayoutControl1
Me.TextEdit8.TabIndex = 11
'
'TextEdit9
'
Me.TextEdit9.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "CHANGED_WHEN", True))
Me.TextEdit9.Location = New System.Drawing.Point(489, 323)
Me.TextEdit9.MenuManager = Me.RibbonControl1
Me.TextEdit9.Name = "TextEdit9"
Me.TextEdit9.Size = New System.Drawing.Size(291, 20)
Me.TextEdit9.StyleController = Me.LayoutControl1
Me.TextEdit9.TabIndex = 12
Me.TextEdit8.TabIndex = 12
'
'Root
'
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.LayoutControlItem9})
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem2, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem8, Me.LayoutControlItem7, Me.LayoutControlItem9})
Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(800, 363)
Me.Root.Size = New System.Drawing.Size(837, 399)
Me.Root.TextVisible = False
'
'LayoutControlItem1
'
Me.LayoutControlItem1.Control = Me.TextEdit1
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 40)
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem1.Size = New System.Drawing.Size(780, 40)
Me.LayoutControlItem1.Text = "Entität"
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(76, 13)
'
'LayoutControlItem2
'
Me.LayoutControlItem2.Control = Me.TextEdit2
Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 80)
Me.LayoutControlItem2.Name = "LayoutControlItem2"
Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem2.Size = New System.Drawing.Size(780, 40)
Me.LayoutControlItem2.Text = "Primäschlüssel"
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(76, 13)
Me.LayoutControlItem1.Size = New System.Drawing.Size(408, 40)
Me.LayoutControlItem1.Text = "GUID"
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(82, 13)
'
'LayoutControlItem3
'
Me.LayoutControlItem3.Control = Me.TextEdit3
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 120)
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 40)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem3.Size = New System.Drawing.Size(780, 40)
Me.LayoutControlItem3.Text = "Kommentar"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(76, 13)
Me.LayoutControlItem3.Size = New System.Drawing.Size(817, 40)
Me.LayoutControlItem3.Text = "Titel"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(82, 13)
'
'LayoutControlItem4
'
Me.LayoutControlItem4.Control = Me.TextEdit4
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 160)
Me.LayoutControlItem4.Control = Me.CheckEdit1
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 120)
Me.LayoutControlItem4.Name = "LayoutControlItem4"
Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem4.Size = New System.Drawing.Size(780, 103)
Me.LayoutControlItem4.Text = "SQL Abfrage"
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(76, 13)
Me.LayoutControlItem4.Size = New System.Drawing.Size(817, 38)
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem4.TextVisible = False
'
'LayoutControlItem2
'
Me.LayoutControlItem2.Control = Me.TextEdit2
Me.LayoutControlItem2.Location = New System.Drawing.Point(408, 0)
Me.LayoutControlItem2.Name = "LayoutControlItem2"
Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem2.Size = New System.Drawing.Size(409, 40)
Me.LayoutControlItem2.Text = "Parent Id"
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(82, 13)
'
'LayoutControlItem5
'
Me.LayoutControlItem5.Control = Me.TextEdit5
Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem5.Control = Me.TextEdit4
Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 80)
Me.LayoutControlItem5.Name = "LayoutControlItem5"
Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem5.Size = New System.Drawing.Size(780, 40)
Me.LayoutControlItem5.Text = "GUID"
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(76, 13)
Me.LayoutControlItem5.Size = New System.Drawing.Size(817, 40)
Me.LayoutControlItem5.Text = "Kommentar"
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(82, 13)
'
'LayoutControlItem6
'
Me.LayoutControlItem6.Control = Me.txtAddedWho
Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 263)
Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 158)
Me.LayoutControlItem6.Name = "LayoutControlItem6"
Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem6.Size = New System.Drawing.Size(390, 40)
Me.LayoutControlItem6.Size = New System.Drawing.Size(408, 40)
Me.LayoutControlItem6.Text = "Erstellt Wer"
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(76, 13)
'
'LayoutControlItem7
'
Me.LayoutControlItem7.Control = Me.txtChangedWho
Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 303)
Me.LayoutControlItem7.Name = "LayoutControlItem7"
Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem7.Size = New System.Drawing.Size(390, 40)
Me.LayoutControlItem7.Text = "Geändert Wer"
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(76, 13)
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(82, 13)
'
'LayoutControlItem8
'
Me.LayoutControlItem8.Control = Me.TextEdit8
Me.LayoutControlItem8.Location = New System.Drawing.Point(390, 263)
Me.LayoutControlItem8.Control = Me.txtChangedWho
Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 198)
Me.LayoutControlItem8.Name = "LayoutControlItem8"
Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem8.Size = New System.Drawing.Size(390, 40)
Me.LayoutControlItem8.Text = "Erstellt Wann"
Me.LayoutControlItem8.TextSize = New System.Drawing.Size(76, 13)
Me.LayoutControlItem8.Size = New System.Drawing.Size(408, 181)
Me.LayoutControlItem8.Text = "Geändert Wer"
Me.LayoutControlItem8.TextSize = New System.Drawing.Size(82, 13)
'
'LayoutControlItem7
'
Me.LayoutControlItem7.Control = Me.TextEdit6
Me.LayoutControlItem7.Location = New System.Drawing.Point(408, 158)
Me.LayoutControlItem7.Name = "LayoutControlItem7"
Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem7.Size = New System.Drawing.Size(409, 40)
Me.LayoutControlItem7.Text = "Erstellt Wann"
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(82, 13)
'
'LayoutControlItem9
'
Me.LayoutControlItem9.Control = Me.TextEdit9
Me.LayoutControlItem9.Location = New System.Drawing.Point(390, 303)
Me.LayoutControlItem9.Control = Me.TextEdit8
Me.LayoutControlItem9.Location = New System.Drawing.Point(408, 198)
Me.LayoutControlItem9.Name = "LayoutControlItem9"
Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem9.Size = New System.Drawing.Size(390, 40)
Me.LayoutControlItem9.Size = New System.Drawing.Size(409, 181)
Me.LayoutControlItem9.Text = "Geändert Wann"
Me.LayoutControlItem9.TextSize = New System.Drawing.Size(76, 13)
Me.LayoutControlItem9.TextSize = New System.Drawing.Size(82, 13)
'
'TBZF_ADMIN_SOURCE_SQLTableAdapter
'TBIDB_BUSINESS_ENTITYTableAdapter
'
Me.TBZF_ADMIN_SOURCE_SQLTableAdapter.ClearBeforeFill = True
Me.TBIDB_BUSINESS_ENTITYTableAdapter.ClearBeforeFill = True
'
'TableAdapterManager
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing
Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Me.TBZF_ADMIN_SOURCE_SQLTableAdapter
Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Me.TBIDB_BUSINESS_ENTITYTableAdapter
Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'frmAdmin_SourceSQL
'frmAdmin_IDBEntity
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.ClientSize = New System.Drawing.Size(837, 487)
Me.Controls.Add(Me.LayoutControl1)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.managedatasource
Me.Name = "frmAdmin_SourceSQL"
Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.bo_appointment
Me.Name = "frmAdmin_IDBEntity"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "IDB - Source SQL"
Me.Text = "IDB - Entität"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.LayoutControl1.ResumeLayout(False)
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBZF_ADMIN_SOURCE_SQLBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBIDB_BUSINESS_ENTITYBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit9.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -441,25 +431,37 @@ Partial Class frmAdmin_SourceSQL
Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit
Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit
Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit
Friend WithEvents TextEdit4 As DevExpress.XtraEditors.MemoEdit
Friend WithEvents TextEdit5 As DevExpress.XtraEditors.TextEdit
Friend WithEvents txtAddedWho As DevExpress.XtraEditors.TextEdit
Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit
Friend WithEvents TextEdit8 As DevExpress.XtraEditors.TextEdit
Friend WithEvents TextEdit9 As DevExpress.XtraEditors.TextEdit
Friend WithEvents CheckEdit1 As DevExpress.XtraEditors.CheckEdit
Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten
Friend WithEvents TBZF_ADMIN_SOURCE_SQLBindingSource As BindingSource
Friend WithEvents TBZF_ADMIN_SOURCE_SQLTableAdapter As DSIDB_StammdatenTableAdapters.TBZF_ADMIN_SOURCE_SQLTableAdapter
Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager
Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem
Friend WithEvents labelError As DevExpress.XtraBars.BarStaticItem
Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten
Friend WithEvents TBIDB_BUSINESS_ENTITYBindingSource As BindingSource
Friend WithEvents TBIDB_BUSINESS_ENTITYTableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_BUSINESS_ENTITYTableAdapter
Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager
Friend WithEvents TBIDB_BUSINESS_ENTITYBindingNavigator As BindingNavigator
Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton
Friend WithEvents BindingNavigatorCountItem As ToolStripLabel
Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton
Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton
Friend WithEvents BindingNavigatorMovePreviousItem As ToolStripButton
Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator
Friend WithEvents BindingNavigatorPositionItem As ToolStripTextBox
Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator
Friend WithEvents BindingNavigatorMoveNextItem As ToolStripButton
Friend WithEvents BindingNavigatorMoveLastItem As ToolStripButton
Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator
Friend WithEvents TBIDB_BUSINESS_ENTITYBindingNavigatorSaveItem As ToolStripButton
Friend WithEvents TextEdit4 As DevExpress.XtraEditors.TextEdit
Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents txtAddedWho As DevExpress.XtraEditors.TextEdit
Friend WithEvents TextEdit6 As DevExpress.XtraEditors.TextEdit
Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit
Friend WithEvents TextEdit8 As DevExpress.XtraEditors.TextEdit
Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem
End Class

13
GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.resx → GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.resx
View File

@@ -117,14 +117,17 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="TBZF_ADMIN_SOURCE_SQLBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>474, 17</value>
<metadata name="TBIDB_BUSINESS_ENTITYBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>177, 17</value>
</metadata>
<metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>314, 17</value>
<value>17, 17</value>
</metadata>
<metadata name="TBZF_ADMIN_SOURCE_SQLTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>754, 17</value>
<metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="TBIDB_BUSINESS_ENTITYTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>443, 17</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>

70
GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb → GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.vb
View File

@@ -1,12 +1,11 @@
Imports DigitalData.Modules.Logging
Public Class frmAdmin_SourceSQL
Public Class frmAdmin_IDBEntity
Inherits frmAdmin_Base
Implements frmAdmin_Interface
Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey
Public Property Logger As Logger Implements frmAdmin_Interface.Logger
Public Property HasChanges As Boolean = False Implements frmAdmin_Interface.HasChanges
Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges
Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert
Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
@@ -19,47 +18,22 @@ Public Class frmAdmin_SourceSQL
Me.IsInsert = IsInsert
End Sub
Private Sub frmAdmin_IDBEntity_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
TBIDB_BUSINESS_ENTITYTableAdapter.Fill(DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY, PrimaryKey)
Catch ex As Exception
ShowError(ex)
End Try
End Sub
Private Sub ResetMessages()
labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End Sub
Private Sub ShowStatus(Message As String)
labelStatus.Caption = Message
labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
End Sub
Private Sub frmAdmin_SourceSQL_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
TBZF_ADMIN_SOURCE_SQLTableAdapter.Fill(DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL, PrimaryKey)
Catch ex As Exception
ShowError(ex)
End Try
End Sub
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
Try
TBZF_ADMIN_SOURCE_SQLBindingSource.EndEdit()
If DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL.GetChanges() IsNot Nothing Then
HasChanges = True
If IsInsert Then
txtAddedWho.EditValue = My.Application.User.UserName
Else
txtChangedWho.EditValue = My.Application.User.UserName
End If
TBZF_ADMIN_SOURCE_SQLBindingSource.EndEdit()
TBZF_ADMIN_SOURCE_SQLTableAdapter.Update(DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL)
End If
Return True
Catch ex As Exception
ShowError(ex)
Return False
End Try
End Function
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
ResetMessages()
@@ -75,4 +49,28 @@ Public Class frmAdmin_SourceSQL
ShowStatus("Attribute gespeichert!")
End If
End Sub
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
Try
TBIDB_BUSINESS_ENTITYBindingSource.EndEdit()
If DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY.GetChanges() IsNot Nothing Then
HasChanges = True
If IsInsert Then
txtAddedWho.EditValue = My.Application.User.UserName
Else
txtChangedWho.EditValue = My.Application.User.UserName
End If
TBIDB_BUSINESS_ENTITYBindingSource.EndEdit()
TBIDB_BUSINESS_ENTITYTableAdapter.Update(DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY)
End If
Return True
Catch ex As Exception
ShowError(ex)
Return False
End Try
End Function
End Class

691
GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb generated
View File

@@ -26,21 +26,7 @@ Partial Class frmAdmin_Start
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim CHANGED_WHENLabel As System.Windows.Forms.Label
Dim CHANGED_WHOLabel As System.Windows.Forms.Label
Dim ADDED_WHENLabel As System.Windows.Forms.Label
Dim ADDED_WHOLabel As System.Windows.Forms.Label
Dim COMMENTLabel As System.Windows.Forms.Label
Dim VIEW_SEQUENCELabel As System.Windows.Forms.Label
Dim TITLELabel As System.Windows.Forms.Label
Dim GUIDLabel As System.Windows.Forms.Label
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_Start))
Me.ViewCWProcesses = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridCWProfiles = New DevExpress.XtraGrid.GridControl()
Me.WinExplorerView1 = New DevExpress.XtraGrid.Views.WinExplorer.WinExplorerView()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
@@ -57,6 +43,8 @@ Partial Class frmAdmin_Start
Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage_IDB = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroupAttributes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage_ClipboardWatcher = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonGroup_ClipboardWatcher_Profile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonGroup_ClipboardWatcher_DocSearch = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -66,11 +54,7 @@ Partial Class frmAdmin_Start
Me.RibbonGroup_ClipboardWatcher_Control = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage_GlobalIndexer = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage_IDB = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroupAttributes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.ViewCWWindows = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.ViewCWControls = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.TreeListMenu = New DevExpress.XtraTreeList.TreeList()
Me.TreeListColumn1 = New DevExpress.XtraTreeList.Columns.TreeListColumn()
@@ -87,59 +71,23 @@ Partial Class frmAdmin_Start
Me.XtraTabPage_IDB = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabControlIDB = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageIDB_Attributes_New = New DevExpress.XtraTab.XtraTabPage()
Me.GridAttributes = New DevExpress.XtraGrid.GridControl()
Me.ViewAttributes = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageIDB_Attributes = New DevExpress.XtraTab.XtraTabPage()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colTITLE = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colATTR_TYPE = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GUIDTextBox = New System.Windows.Forms.TextBox()
Me.TITLETextBox = New System.Windows.Forms.TextBox()
Me.TYP_IDTextBox = New System.Windows.Forms.TextBox()
Me.MULTI_CONTEXTCheckBox = New System.Windows.Forms.CheckBox()
Me.VIEW_SEQUENCETextBox = New System.Windows.Forms.TextBox()
Me.VIEW_VISIBLECheckBox = New System.Windows.Forms.CheckBox()
Me.COMMENTTextBox = New System.Windows.Forms.TextBox()
Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox()
Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox()
Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
Me.XtraTabPageIDB_SourceSQL = New DevExpress.XtraTab.XtraTabPage()
Me.GridSourceSQL = New DevExpress.XtraGrid.GridControl()
Me.ViewSourceSQL = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.TreeListIDBAttributes = New DevExpress.XtraTreeList.TreeList()
Me.IDBImages = New DevExpress.Utils.SvgImageCollection(Me.components)
Me.XtraTabPageIDB_Entities = New DevExpress.XtraTab.XtraTabPage()
Me.TreeListIDBEntities = New DevExpress.XtraTreeList.TreeList()
Me.XtraTabPage_GlobalIndexer = New DevExpress.XtraTab.XtraTabPage()
Me.TreeList2 = New DevExpress.XtraTreeList.TreeList()
Me.TreeListGLOBIXProfiles = New DevExpress.XtraTreeList.TreeList()
Me.GLOBIXImages = New DevExpress.Utils.SvgImageCollection(Me.components)
Me.XtraTabPage_ClipboardWatcher = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageCWProfiles = New DevExpress.XtraTab.XtraTabPage()
Me.TreeList1 = New DevExpress.XtraTreeList.TreeList()
Me.COL_ENTITY = New DevExpress.XtraTreeList.Columns.TreeListColumn()
Me.COL_ENITY_SCOPE = New DevExpress.XtraTreeList.Columns.TreeListColumn()
Me.COL_PARENT = New DevExpress.XtraTreeList.Columns.TreeListColumn()
Me.COL_GUID = New DevExpress.XtraTreeList.Columns.TreeListColumn()
Me.COL_NODE_TITLE = New DevExpress.XtraTreeList.Columns.TreeListColumn()
Me.TreeListCWProfiles = New DevExpress.XtraTreeList.TreeList()
Me.CWImages = New DevExpress.Utils.SvgImageCollection(Me.components)
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabControl = New DevExpress.XtraTab.XtraTabControl()
CHANGED_WHENLabel = New System.Windows.Forms.Label()
CHANGED_WHOLabel = New System.Windows.Forms.Label()
ADDED_WHENLabel = New System.Windows.Forms.Label()
ADDED_WHOLabel = New System.Windows.Forms.Label()
COMMENTLabel = New System.Windows.Forms.Label()
VIEW_SEQUENCELabel = New System.Windows.Forms.Label()
TITLELabel = New System.Windows.Forms.Label()
GUIDLabel = New System.Windows.Forms.Label()
CType(Me.ViewCWProcesses, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridCWProfiles, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.WinExplorerView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.labelTitle = New System.Windows.Forms.Label()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ViewCWWindows, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ViewCWControls, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TreeListMenu, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MainTreeImages, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -152,130 +100,24 @@ Partial Class frmAdmin_Start
CType(Me.XtraTabControlIDB, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControlIDB.SuspendLayout()
Me.XtraTabPageIDB_Attributes_New.SuspendLayout()
CType(Me.GridAttributes, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ViewAttributes, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageIDB_Attributes.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageIDB_SourceSQL.SuspendLayout()
CType(Me.GridSourceSQL, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ViewSourceSQL, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TreeListIDBAttributes, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.IDBImages, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageIDB_Entities.SuspendLayout()
CType(Me.TreeListIDBEntities, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPage_GlobalIndexer.SuspendLayout()
CType(Me.TreeList2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TreeListGLOBIXProfiles, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GLOBIXImages, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPage_ClipboardWatcher.SuspendLayout()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout()
Me.XtraTabPageCWProfiles.SuspendLayout()
CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TreeListCWProfiles, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.CWImages, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'CHANGED_WHENLabel
'
CHANGED_WHENLabel.AutoSize = True
CHANGED_WHENLabel.Location = New System.Drawing.Point(472, 188)
CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
CHANGED_WHENLabel.Size = New System.Drawing.Size(90, 13)
CHANGED_WHENLabel.TabIndex = 20
CHANGED_WHENLabel.Text = "Geändert wann:"
'
'CHANGED_WHOLabel
'
CHANGED_WHOLabel.AutoSize = True
CHANGED_WHOLabel.Location = New System.Drawing.Point(351, 188)
CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
CHANGED_WHOLabel.Size = New System.Drawing.Size(80, 13)
CHANGED_WHOLabel.TabIndex = 18
CHANGED_WHOLabel.Text = "Geändert wer:"
'
'ADDED_WHENLabel
'
ADDED_WHENLabel.AutoSize = True
ADDED_WHENLabel.Location = New System.Drawing.Point(472, 146)
ADDED_WHENLabel.Name = "ADDED_WHENLabel"
ADDED_WHENLabel.Size = New System.Drawing.Size(77, 13)
ADDED_WHENLabel.TabIndex = 16
ADDED_WHENLabel.Text = "Erstellt wann:"
'
'ADDED_WHOLabel
'
ADDED_WHOLabel.AutoSize = True
ADDED_WHOLabel.Location = New System.Drawing.Point(351, 146)
ADDED_WHOLabel.Name = "ADDED_WHOLabel"
ADDED_WHOLabel.Size = New System.Drawing.Size(67, 13)
ADDED_WHOLabel.TabIndex = 14
ADDED_WHOLabel.Text = "Erstellt wer:"
'
'COMMENTLabel
'
COMMENTLabel.AutoSize = True
COMMENTLabel.Location = New System.Drawing.Point(351, 106)
COMMENTLabel.Name = "COMMENTLabel"
COMMENTLabel.Size = New System.Drawing.Size(68, 13)
COMMENTLabel.TabIndex = 12
COMMENTLabel.Text = "Kommentar:"
'
'VIEW_SEQUENCELabel
'
VIEW_SEQUENCELabel.AutoSize = True
VIEW_SEQUENCELabel.Location = New System.Drawing.Point(351, 82)
VIEW_SEQUENCELabel.Name = "VIEW_SEQUENCELabel"
VIEW_SEQUENCELabel.Size = New System.Drawing.Size(101, 13)
VIEW_SEQUENCELabel.TabIndex = 8
VIEW_SEQUENCELabel.Text = "View Reihenfolge:"
'
'TITLELabel
'
TITLELabel.AutoSize = True
TITLELabel.Location = New System.Drawing.Point(351, 12)
TITLELabel.Name = "TITLELabel"
TITLELabel.Size = New System.Drawing.Size(76, 13)
TITLELabel.TabIndex = 2
TITLELabel.Text = "Bezeichnung:"
'
'GUIDLabel
'
GUIDLabel.AutoSize = True
GUIDLabel.Location = New System.Drawing.Point(297, 12)
GUIDLabel.Name = "GUIDLabel"
GUIDLabel.Size = New System.Drawing.Size(37, 13)
GUIDLabel.TabIndex = 0
GUIDLabel.Text = "GUID:"
'
'ViewCWProcesses
'
Me.ViewCWProcesses.GridControl = Me.GridCWProfiles
Me.ViewCWProcesses.Name = "ViewCWProcesses"
Me.ViewCWProcesses.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Never
'
'GridCWProfiles
'
GridLevelNode1.LevelTemplate = Me.ViewCWProcesses
GridLevelNode2.LevelTemplate = Me.ViewCWWindows
GridLevelNode3.LevelTemplate = Me.ViewCWControls
GridLevelNode3.RelationName = "Level3"
GridLevelNode2.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3})
GridLevelNode2.RelationName = "Level2"
GridLevelNode1.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
GridLevelNode1.RelationName = "Level1"
Me.GridCWProfiles.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
Me.GridCWProfiles.Location = New System.Drawing.Point(819, 41)
Me.GridCWProfiles.MainView = Me.WinExplorerView1
Me.GridCWProfiles.MenuManager = Me.RibbonControl1
Me.GridCWProfiles.Name = "GridCWProfiles"
Me.GridCWProfiles.Size = New System.Drawing.Size(319, 266)
Me.GridCWProfiles.TabIndex = 0
Me.GridCWProfiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.WinExplorerView1, Me.ViewCWWindows, Me.ViewCWControls, Me.ViewCWProcesses})
'
'WinExplorerView1
'
Me.WinExplorerView1.GridControl = Me.GridCWProfiles
Me.WinExplorerView1.Name = "WinExplorerView1"
'
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
@@ -283,7 +125,7 @@ Partial Class frmAdmin_Start
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 15
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage_ClipboardWatcher, Me.RibbonPage_GlobalIndexer, Me.RibbonPage_IDB})
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage_IDB, Me.RibbonPage_ClipboardWatcher, Me.RibbonPage_GlobalIndexer})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.Size = New System.Drawing.Size(1328, 159)
@@ -385,7 +227,7 @@ Partial Class frmAdmin_Start
'
'BarButtonItem9
'
Me.BarButtonItem9.Caption = "Source SQL neu laden"
Me.BarButtonItem9.Caption = "Daten neu laden"
Me.BarButtonItem9.Id = 14
Me.BarButtonItem9.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.updatedataextract
Me.BarButtonItem9.Name = "BarButtonItem9"
@@ -398,9 +240,25 @@ Partial Class frmAdmin_Start
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem9)
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "Daten"
'
'RibbonPage_IDB
'
Me.RibbonPage_IDB.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupAttributes})
Me.RibbonPage_IDB.Name = "RibbonPage_IDB"
Me.RibbonPage_IDB.Text = "IDB Administration"
'
'RibbonPageGroupAttributes
'
Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemAddAttribute)
Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItem7)
Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemRefreshAttribute)
Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItem8)
Me.RibbonPageGroupAttributes.Name = "RibbonPageGroupAttributes"
Me.RibbonPageGroupAttributes.Text = "Attribute"
'
'RibbonPage_ClipboardWatcher
'
@@ -456,21 +314,6 @@ Partial Class frmAdmin_Start
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
'
'RibbonPage_IDB
'
Me.RibbonPage_IDB.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupAttributes})
Me.RibbonPage_IDB.Name = "RibbonPage_IDB"
Me.RibbonPage_IDB.Text = "IDB Administration"
'
'RibbonPageGroupAttributes
'
Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemAddAttribute)
Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItem7)
Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemRefreshAttribute)
Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItem8)
Me.RibbonPageGroupAttributes.Name = "RibbonPageGroupAttributes"
Me.RibbonPageGroupAttributes.Text = "Attribute"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
@@ -480,16 +323,6 @@ Partial Class frmAdmin_Start
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1328, 22)
'
'ViewCWWindows
'
Me.ViewCWWindows.GridControl = Me.GridCWProfiles
Me.ViewCWWindows.Name = "ViewCWWindows"
'
'ViewCWControls
'
Me.ViewCWControls.GridControl = Me.GridCWProfiles
Me.ViewCWControls.Name = "ViewCWControls"
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
@@ -507,12 +340,11 @@ Partial Class frmAdmin_Start
Me.TreeListMenu.BeginUnboundLoad()
Me.TreeListMenu.AppendNode(New Object() {"IDB"}, -1, "IDB_START")
Me.TreeListMenu.AppendNode(New Object() {"Attribute"}, 0, 2, 2, -1, "IDB_ATTRIBUTES")
Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_ENTITIES")
Me.TreeListMenu.AppendNode(New Object() {"Source SQL"}, 0, 3, 3, -1, "IDB_SOURCE_SQL")
Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_BUSINESS_ENTITIES")
Me.TreeListMenu.AppendNode(New Object() {"Global Indexer"}, -1, "GLOBIX_START")
Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 4, 4, 4, -1, "GLOBIX_PROFILES")
Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 3, 4, 4, -1, "GLOBIX_PROFILES")
Me.TreeListMenu.AppendNode(New Object() {"Clipboard Watcher"}, -1, "CW_START")
Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 6, 4, 4, -1, "CW_PROFILES")
Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 5, 4, 4, -1, "CW_PROFILES")
Me.TreeListMenu.EndUnboundLoad()
Me.TreeListMenu.OptionsBehavior.Editable = False
Me.TreeListMenu.OptionsView.ShowColumns = False
@@ -534,7 +366,7 @@ Partial Class frmAdmin_Start
'MainTreeImages
'
Me.MainTreeImages.Add("shopping_box", "image://svgimages/icon builder/shopping_box.svg")
Me.MainTreeImages.Add("bo_organization", "image://svgimages/business objects/bo_organization.svg")
Me.MainTreeImages.Add("travel_hotel", "image://svgimages/icon builder/travel_hotel.svg")
Me.MainTreeImages.Add("bo_appearance", "image://svgimages/business objects/bo_appearance.svg")
Me.MainTreeImages.Add("managedatasource", "image://svgimages/spreadsheet/managedatasource.svg")
Me.MainTreeImages.Add("grandtotals", "image://svgimages/dashboards/grandtotals.svg")
@@ -586,7 +418,6 @@ Partial Class frmAdmin_Start
Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing
Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'TBIDB_ATTRIBUTE_TYPEBindingSource
@@ -602,7 +433,7 @@ Partial Class frmAdmin_Start
'
Me.XtraTabPage_IDB.Controls.Add(Me.XtraTabControlIDB)
Me.XtraTabPage_IDB.Name = "XtraTabPage_IDB"
Me.XtraTabPage_IDB.Size = New System.Drawing.Size(1126, 547)
Me.XtraTabPage_IDB.Size = New System.Drawing.Size(1126, 501)
Me.XtraTabPage_IDB.Text = "IDB"
'
'XtraTabControlIDB
@@ -611,260 +442,67 @@ Partial Class frmAdmin_Start
Me.XtraTabControlIDB.Location = New System.Drawing.Point(0, 0)
Me.XtraTabControlIDB.Name = "XtraTabControlIDB"
Me.XtraTabControlIDB.SelectedTabPage = Me.XtraTabPageIDB_Attributes_New
Me.XtraTabControlIDB.Size = New System.Drawing.Size(1126, 547)
Me.XtraTabControlIDB.Size = New System.Drawing.Size(1126, 501)
Me.XtraTabControlIDB.TabIndex = 0
Me.XtraTabControlIDB.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageIDB_Attributes_New, Me.XtraTabPageIDB_Attributes, Me.XtraTabPageIDB_SourceSQL})
Me.XtraTabControlIDB.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageIDB_Attributes_New, Me.XtraTabPageIDB_Entities})
'
'XtraTabPageIDB_Attributes_New
'
Me.XtraTabPageIDB_Attributes_New.Controls.Add(Me.GridAttributes)
Me.XtraTabPageIDB_Attributes_New.Controls.Add(Me.TreeListIDBAttributes)
Me.XtraTabPageIDB_Attributes_New.Name = "XtraTabPageIDB_Attributes_New"
Me.XtraTabPageIDB_Attributes_New.Size = New System.Drawing.Size(1124, 524)
Me.XtraTabPageIDB_Attributes_New.Size = New System.Drawing.Size(1124, 478)
Me.XtraTabPageIDB_Attributes_New.Text = "Attribute"
'
'GridAttributes
'TreeListIDBAttributes
'
Me.GridAttributes.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridAttributes.Location = New System.Drawing.Point(0, 0)
Me.GridAttributes.MainView = Me.ViewAttributes
Me.GridAttributes.MenuManager = Me.RibbonControl1
Me.GridAttributes.Name = "GridAttributes"
Me.GridAttributes.Size = New System.Drawing.Size(1124, 524)
Me.GridAttributes.TabIndex = 0
Me.GridAttributes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewAttributes, Me.GridView2})
Me.TreeListIDBAttributes.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeListIDBAttributes.Location = New System.Drawing.Point(0, 0)
Me.TreeListIDBAttributes.MenuManager = Me.RibbonControl1
Me.TreeListIDBAttributes.Name = "TreeListIDBAttributes"
Me.TreeListIDBAttributes.Size = New System.Drawing.Size(1124, 478)
Me.TreeListIDBAttributes.StateImageList = Me.IDBImages
Me.TreeListIDBAttributes.TabIndex = 0
'
'ViewAttributes
'IDBImages
'
Me.ViewAttributes.GridControl = Me.GridAttributes
Me.ViewAttributes.Name = "ViewAttributes"
Me.IDBImages.Add("travel_hotel", "image://svgimages/icon builder/travel_hotel.svg")
Me.IDBImages.Add("bo_appearance", "image://svgimages/business objects/bo_appearance.svg")
'
'GridView2
'XtraTabPageIDB_Entities
'
Me.GridView2.GridControl = Me.GridAttributes
Me.GridView2.Name = "GridView2"
Me.XtraTabPageIDB_Entities.Controls.Add(Me.TreeListIDBEntities)
Me.XtraTabPageIDB_Entities.Name = "XtraTabPageIDB_Entities"
Me.XtraTabPageIDB_Entities.Size = New System.Drawing.Size(1124, 478)
Me.XtraTabPageIDB_Entities.Text = "Entitäten"
'
'XtraTabPageIDB_Attributes
'TreeListIDBEntities
'
Me.XtraTabPageIDB_Attributes.AutoScroll = True
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.ComboBox1)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.GridControl1)
Me.XtraTabPageIDB_Attributes.Controls.Add(GUIDLabel)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.GUIDTextBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(TITLELabel)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.TITLETextBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.TYP_IDTextBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.MULTI_CONTEXTCheckBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(VIEW_SEQUENCELabel)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.VIEW_SEQUENCETextBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.VIEW_VISIBLECheckBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(COMMENTLabel)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.COMMENTTextBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(ADDED_WHOLabel)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.ADDED_WHOTextBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(ADDED_WHENLabel)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.ADDED_WHENTextBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(CHANGED_WHOLabel)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.CHANGED_WHOTextBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(CHANGED_WHENLabel)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.CHANGED_WHENTextBox)
Me.XtraTabPageIDB_Attributes.Name = "XtraTabPageIDB_Attributes"
Me.XtraTabPageIDB_Attributes.Size = New System.Drawing.Size(1124, 524)
Me.XtraTabPageIDB_Attributes.Text = "Attributverwaltung"
'
'ComboBox1
'
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Location = New System.Drawing.Point(650, 28)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(121, 21)
Me.ComboBox1.TabIndex = 29
'
'GridControl1
'
Me.GridControl1.DataSource = Me.TBIDB_ATTRIBUTEBindingSource
Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Left
Me.GridControl1.Location = New System.Drawing.Point(0, 0)
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.MenuManager = Me.RibbonControl1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(282, 524)
Me.GridControl1.TabIndex = 28
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'GridView1
'
Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Gainsboro
Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colTITLE, Me.colATTR_TYPE})
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
'
'colGUID
'
Me.colGUID.Caption = "ID"
Me.colGUID.FieldName = "GUID"
Me.colGUID.Name = "colGUID"
Me.colGUID.Visible = True
Me.colGUID.VisibleIndex = 0
Me.colGUID.Width = 49
'
'colTITLE
'
Me.colTITLE.Caption = "Title"
Me.colTITLE.FieldName = "TITLE"
Me.colTITLE.Name = "colTITLE"
Me.colTITLE.Visible = True
Me.colTITLE.VisibleIndex = 1
Me.colTITLE.Width = 135
'
'colATTR_TYPE
'
Me.colATTR_TYPE.Caption = "Typ"
Me.colATTR_TYPE.FieldName = "ATTR_TYPE"
Me.colATTR_TYPE.Name = "colATTR_TYPE"
Me.colATTR_TYPE.Visible = True
Me.colATTR_TYPE.VisibleIndex = 2
Me.colATTR_TYPE.Width = 73
'
'GUIDTextBox
'
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "GUID", True))
Me.GUIDTextBox.Location = New System.Drawing.Point(300, 28)
Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True
Me.GUIDTextBox.Size = New System.Drawing.Size(33, 22)
Me.GUIDTextBox.TabIndex = 1
'
'TITLETextBox
'
Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "TITLE", True))
Me.TITLETextBox.Location = New System.Drawing.Point(354, 28)
Me.TITLETextBox.Name = "TITLETextBox"
Me.TITLETextBox.Size = New System.Drawing.Size(290, 22)
Me.TITLETextBox.TabIndex = 3
'
'TYP_IDTextBox
'
Me.TYP_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "TYP_ID", True))
Me.TYP_IDTextBox.Location = New System.Drawing.Point(777, 28)
Me.TYP_IDTextBox.Name = "TYP_IDTextBox"
Me.TYP_IDTextBox.Size = New System.Drawing.Size(104, 22)
Me.TYP_IDTextBox.TabIndex = 5
'
'MULTI_CONTEXTCheckBox
'
Me.MULTI_CONTEXTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBIDB_ATTRIBUTEBindingSource, "MULTI_CONTEXT", True))
Me.MULTI_CONTEXTCheckBox.Location = New System.Drawing.Point(354, 55)
Me.MULTI_CONTEXTCheckBox.Name = "MULTI_CONTEXTCheckBox"
Me.MULTI_CONTEXTCheckBox.Size = New System.Drawing.Size(142, 24)
Me.MULTI_CONTEXTCheckBox.TabIndex = 7
Me.MULTI_CONTEXTCheckBox.Text = "Vektor/Multi Context"
Me.MULTI_CONTEXTCheckBox.UseVisualStyleBackColor = True
'
'VIEW_SEQUENCETextBox
'
Me.VIEW_SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "VIEW_SEQUENCE", True))
Me.VIEW_SEQUENCETextBox.Location = New System.Drawing.Point(450, 79)
Me.VIEW_SEQUENCETextBox.Name = "VIEW_SEQUENCETextBox"
Me.VIEW_SEQUENCETextBox.Size = New System.Drawing.Size(33, 22)
Me.VIEW_SEQUENCETextBox.TabIndex = 9
'
'VIEW_VISIBLECheckBox
'
Me.VIEW_VISIBLECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBIDB_ATTRIBUTEBindingSource, "VIEW_VISIBLE", True))
Me.VIEW_VISIBLECheckBox.Location = New System.Drawing.Point(502, 77)
Me.VIEW_VISIBLECheckBox.Name = "VIEW_VISIBLECheckBox"
Me.VIEW_VISIBLECheckBox.Size = New System.Drawing.Size(104, 24)
Me.VIEW_VISIBLECheckBox.TabIndex = 11
Me.VIEW_VISIBLECheckBox.Text = "View visible"
Me.VIEW_VISIBLECheckBox.UseVisualStyleBackColor = True
'
'COMMENTTextBox
'
Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "COMMENT", True))
Me.COMMENTTextBox.Location = New System.Drawing.Point(354, 122)
Me.COMMENTTextBox.Name = "COMMENTTextBox"
Me.COMMENTTextBox.Size = New System.Drawing.Size(417, 22)
Me.COMMENTTextBox.TabIndex = 13
'
'ADDED_WHOTextBox
'
Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "ADDED_WHO", True))
Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(354, 164)
Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox"
Me.ADDED_WHOTextBox.ReadOnly = True
Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(104, 22)
Me.ADDED_WHOTextBox.TabIndex = 15
'
'ADDED_WHENTextBox
'
Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "ADDED_WHEN", True))
Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(475, 164)
Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox"
Me.ADDED_WHENTextBox.ReadOnly = True
Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(131, 22)
Me.ADDED_WHENTextBox.TabIndex = 17
'
'CHANGED_WHOTextBox
'
Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "CHANGED_WHO", True))
Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(354, 204)
Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
Me.CHANGED_WHOTextBox.ReadOnly = True
Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(104, 22)
Me.CHANGED_WHOTextBox.TabIndex = 19
'
'CHANGED_WHENTextBox
'
Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "CHANGED_WHEN", True))
Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(475, 204)
Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
Me.CHANGED_WHENTextBox.ReadOnly = True
Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(131, 22)
Me.CHANGED_WHENTextBox.TabIndex = 21
'
'XtraTabPageIDB_SourceSQL
'
Me.XtraTabPageIDB_SourceSQL.Controls.Add(Me.GridSourceSQL)
Me.XtraTabPageIDB_SourceSQL.Name = "XtraTabPageIDB_SourceSQL"
Me.XtraTabPageIDB_SourceSQL.Size = New System.Drawing.Size(1124, 524)
Me.XtraTabPageIDB_SourceSQL.Text = "Source SQL"
'
'GridSourceSQL
'
Me.GridSourceSQL.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridSourceSQL.Location = New System.Drawing.Point(0, 0)
Me.GridSourceSQL.MainView = Me.ViewSourceSQL
Me.GridSourceSQL.MenuManager = Me.RibbonControl1
Me.GridSourceSQL.Name = "GridSourceSQL"
Me.GridSourceSQL.Size = New System.Drawing.Size(1124, 524)
Me.GridSourceSQL.TabIndex = 0
Me.GridSourceSQL.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewSourceSQL})
'
'ViewSourceSQL
'
Me.ViewSourceSQL.GridControl = Me.GridSourceSQL
Me.ViewSourceSQL.Name = "ViewSourceSQL"
Me.TreeListIDBEntities.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeListIDBEntities.Location = New System.Drawing.Point(0, 0)
Me.TreeListIDBEntities.MenuManager = Me.RibbonControl1
Me.TreeListIDBEntities.Name = "TreeListIDBEntities"
Me.TreeListIDBEntities.Size = New System.Drawing.Size(1124, 478)
Me.TreeListIDBEntities.StateImageList = Me.IDBImages
Me.TreeListIDBEntities.TabIndex = 0
'
'XtraTabPage_GlobalIndexer
'
Me.XtraTabPage_GlobalIndexer.Controls.Add(Me.TreeList2)
Me.XtraTabPage_GlobalIndexer.Controls.Add(Me.TreeListGLOBIXProfiles)
Me.XtraTabPage_GlobalIndexer.Name = "XtraTabPage_GlobalIndexer"
Me.XtraTabPage_GlobalIndexer.PageVisible = False
Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(1126, 547)
Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(1126, 501)
Me.XtraTabPage_GlobalIndexer.Text = "Global Indexer"
'
'TreeList2
'TreeListGLOBIXProfiles
'
Me.TreeList2.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeList2.Location = New System.Drawing.Point(0, 0)
Me.TreeList2.MenuManager = Me.RibbonControl1
Me.TreeList2.Name = "TreeList2"
Me.TreeList2.PreviewFieldName = "Title"
Me.TreeList2.Size = New System.Drawing.Size(1126, 547)
Me.TreeList2.StateImageList = Me.GLOBIXImages
Me.TreeList2.TabIndex = 0
Me.TreeListGLOBIXProfiles.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeListGLOBIXProfiles.Location = New System.Drawing.Point(0, 0)
Me.TreeListGLOBIXProfiles.MenuManager = Me.RibbonControl1
Me.TreeListGLOBIXProfiles.Name = "TreeListGLOBIXProfiles"
Me.TreeListGLOBIXProfiles.PreviewFieldName = "Title"
Me.TreeListGLOBIXProfiles.Size = New System.Drawing.Size(1126, 501)
Me.TreeListGLOBIXProfiles.StateImageList = Me.GLOBIXImages
Me.TreeListGLOBIXProfiles.TabIndex = 0
'
'GLOBIXImages
'
@@ -877,78 +515,38 @@ Partial Class frmAdmin_Start
Me.XtraTabPage_ClipboardWatcher.Controls.Add(Me.XtraTabControl1)
Me.XtraTabPage_ClipboardWatcher.Name = "XtraTabPage_ClipboardWatcher"
Me.XtraTabPage_ClipboardWatcher.PageVisible = False
Me.XtraTabPage_ClipboardWatcher.Size = New System.Drawing.Size(1126, 547)
Me.XtraTabPage_ClipboardWatcher.Size = New System.Drawing.Size(1126, 501)
Me.XtraTabPage_ClipboardWatcher.Text = "Clipboard Watcher"
'
'XtraTabControl1
'
Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageCWProfiles
Me.XtraTabControl1.Size = New System.Drawing.Size(1126, 547)
Me.XtraTabControl1.Size = New System.Drawing.Size(1126, 501)
Me.XtraTabControl1.TabIndex = 0
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageCWProfiles, Me.XtraTabPage2})
'
'XtraTabPageCWProfiles
'
Me.XtraTabPageCWProfiles.Controls.Add(Me.TreeList1)
Me.XtraTabPageCWProfiles.Controls.Add(Me.GridCWProfiles)
Me.XtraTabPageCWProfiles.Controls.Add(Me.TreeListCWProfiles)
Me.XtraTabPageCWProfiles.Name = "XtraTabPageCWProfiles"
Me.XtraTabPageCWProfiles.Size = New System.Drawing.Size(1124, 524)
Me.XtraTabPageCWProfiles.Size = New System.Drawing.Size(1124, 478)
Me.XtraTabPageCWProfiles.Text = "Profile"
'
'TreeList1
'TreeListCWProfiles
'
Me.TreeList1.Columns.AddRange(New DevExpress.XtraTreeList.Columns.TreeListColumn() {Me.COL_ENTITY, Me.COL_ENITY_SCOPE, Me.COL_PARENT, Me.COL_GUID, Me.COL_NODE_TITLE})
Me.TreeList1.KeyFieldName = ""
Me.TreeList1.Location = New System.Drawing.Point(4, 3)
Me.TreeList1.MenuManager = Me.RibbonControl1
Me.TreeList1.Name = "TreeList1"
Me.TreeList1.OptionsView.ShowIndentAsRowStyle = True
Me.TreeList1.ParentFieldName = ""
Me.TreeList1.Size = New System.Drawing.Size(809, 504)
Me.TreeList1.StateImageList = Me.CWImages
Me.TreeList1.TabIndex = 2
'
'COL_ENTITY
'
Me.COL_ENTITY.Caption = "Entität"
Me.COL_ENTITY.FieldName = "Entity"
Me.COL_ENTITY.Name = "COL_ENTITY"
Me.COL_ENTITY.Visible = True
Me.COL_ENTITY.VisibleIndex = 1
'
'COL_ENITY_SCOPE
'
Me.COL_ENITY_SCOPE.Caption = "Scope"
Me.COL_ENITY_SCOPE.FieldName = "Scope"
Me.COL_ENITY_SCOPE.Name = "COL_ENITY_SCOPE"
Me.COL_ENITY_SCOPE.Visible = True
Me.COL_ENITY_SCOPE.VisibleIndex = 2
'
'COL_PARENT
'
Me.COL_PARENT.Caption = "ParentId"
Me.COL_PARENT.FieldName = "ParentId"
Me.COL_PARENT.Name = "COL_PARENT"
Me.COL_PARENT.Visible = True
Me.COL_PARENT.VisibleIndex = 3
'
'COL_GUID
'
Me.COL_GUID.Caption = "Guid"
Me.COL_GUID.FieldName = "Guid"
Me.COL_GUID.Name = "COL_GUID"
Me.COL_GUID.Visible = True
Me.COL_GUID.VisibleIndex = 4
'
'COL_NODE_TITLE
'
Me.COL_NODE_TITLE.Caption = "Titel"
Me.COL_NODE_TITLE.FieldName = "Title"
Me.COL_NODE_TITLE.Name = "COL_NODE_TITLE"
Me.COL_NODE_TITLE.Visible = True
Me.COL_NODE_TITLE.VisibleIndex = 0
Me.TreeListCWProfiles.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeListCWProfiles.KeyFieldName = ""
Me.TreeListCWProfiles.Location = New System.Drawing.Point(0, 0)
Me.TreeListCWProfiles.MenuManager = Me.RibbonControl1
Me.TreeListCWProfiles.Name = "TreeListCWProfiles"
Me.TreeListCWProfiles.OptionsView.ShowIndentAsRowStyle = True
Me.TreeListCWProfiles.ParentFieldName = ""
Me.TreeListCWProfiles.Size = New System.Drawing.Size(1124, 478)
Me.TreeListCWProfiles.StateImageList = Me.CWImages
Me.TreeListCWProfiles.TabIndex = 2
'
'CWImages
'
@@ -959,26 +557,49 @@ Partial Class frmAdmin_Start
'XtraTabPage2
'
Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(1124, 524)
Me.XtraTabPage2.Size = New System.Drawing.Size(1124, 478)
Me.XtraTabPage2.Text = "XtraTabPage2"
'
'XtraTabControl
'
Me.XtraTabControl.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControl.Location = New System.Drawing.Point(200, 159)
Me.XtraTabControl.Location = New System.Drawing.Point(200, 205)
Me.XtraTabControl.Name = "XtraTabControl"
Me.XtraTabControl.SelectedTabPage = Me.XtraTabPage_IDB
Me.XtraTabControl.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True]
Me.XtraTabControl.Size = New System.Drawing.Size(1128, 570)
Me.XtraTabControl.Size = New System.Drawing.Size(1128, 524)
Me.XtraTabControl.TabIndex = 4
Me.XtraTabControl.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage_ClipboardWatcher, Me.XtraTabPage_GlobalIndexer, Me.XtraTabPage_IDB})
'
'Panel1
'
Me.Panel1.Controls.Add(Me.labelTitle)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(200, 159)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1128, 46)
Me.Panel1.TabIndex = 8
Me.Panel1.TabStop = True
'
'labelTitle
'
Me.labelTitle.Dock = System.Windows.Forms.DockStyle.Fill
Me.labelTitle.Font = New System.Drawing.Font("Segoe UI Semilight", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.labelTitle.Location = New System.Drawing.Point(0, 0)
Me.labelTitle.Name = "labelTitle"
Me.labelTitle.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0)
Me.labelTitle.Size = New System.Drawing.Size(1128, 46)
Me.labelTitle.TabIndex = 0
Me.labelTitle.Text = "labelTitle"
Me.labelTitle.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'frmAdmin_Start
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1328, 751)
Me.Controls.Add(Me.XtraTabControl)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.DockPanel1)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
@@ -987,12 +608,7 @@ Partial Class frmAdmin_Start
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "Administration"
CType(Me.ViewCWProcesses, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridCWProfiles, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.WinExplorerView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ViewCWWindows, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ViewCWControls, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TreeListMenu, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MainTreeImages, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1005,27 +621,22 @@ Partial Class frmAdmin_Start
CType(Me.XtraTabControlIDB, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControlIDB.ResumeLayout(False)
Me.XtraTabPageIDB_Attributes_New.ResumeLayout(False)
CType(Me.GridAttributes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ViewAttributes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageIDB_Attributes.ResumeLayout(False)
Me.XtraTabPageIDB_Attributes.PerformLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageIDB_SourceSQL.ResumeLayout(False)
CType(Me.GridSourceSQL, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ViewSourceSQL, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TreeListIDBAttributes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.IDBImages, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageIDB_Entities.ResumeLayout(False)
CType(Me.TreeListIDBEntities, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPage_GlobalIndexer.ResumeLayout(False)
CType(Me.TreeList2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TreeListGLOBIXProfiles, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GLOBIXImages, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPage_ClipboardWatcher.ResumeLayout(False)
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl1.ResumeLayout(False)
Me.XtraTabPageCWProfiles.ResumeLayout(False)
CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TreeListCWProfiles, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.CWImages, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -1076,50 +687,22 @@ Partial Class frmAdmin_Start
Friend WithEvents XtraTabPage_IDB As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabControlIDB As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPageIDB_Attributes_New As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridAttributes As DevExpress.XtraGrid.GridControl
Friend WithEvents ViewAttributes As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabPageIDB_Attributes As DevExpress.XtraTab.XtraTabPage
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colTITLE As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colATTR_TYPE As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GUIDTextBox As TextBox
Friend WithEvents TITLETextBox As TextBox
Friend WithEvents TYP_IDTextBox As TextBox
Friend WithEvents MULTI_CONTEXTCheckBox As CheckBox
Friend WithEvents VIEW_SEQUENCETextBox As TextBox
Friend WithEvents VIEW_VISIBLECheckBox As CheckBox
Friend WithEvents COMMENTTextBox As TextBox
Friend WithEvents ADDED_WHOTextBox As TextBox
Friend WithEvents ADDED_WHENTextBox As TextBox
Friend WithEvents CHANGED_WHOTextBox As TextBox
Friend WithEvents CHANGED_WHENTextBox As TextBox
Friend WithEvents XtraTabPageIDB_SourceSQL As DevExpress.XtraTab.XtraTabPage
Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents GridSourceSQL As DevExpress.XtraGrid.GridControl
Friend WithEvents ViewSourceSQL As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPageCWProfiles As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridCWProfiles As GridControl
Friend WithEvents GridView2 As GridView
Friend WithEvents ViewCWProcesses As GridView
Friend WithEvents ViewCWWindows As GridView
Friend WithEvents ViewCWControls As GridView
Friend WithEvents TreeList1 As DevExpress.XtraTreeList.TreeList
Friend WithEvents WinExplorerView1 As Views.WinExplorer.WinExplorerView
Friend WithEvents COL_ENTITY As DevExpress.XtraTreeList.Columns.TreeListColumn
Friend WithEvents COL_ENITY_SCOPE As DevExpress.XtraTreeList.Columns.TreeListColumn
Friend WithEvents COL_PARENT As DevExpress.XtraTreeList.Columns.TreeListColumn
Friend WithEvents COL_GUID As DevExpress.XtraTreeList.Columns.TreeListColumn
Friend WithEvents COL_NODE_TITLE As DevExpress.XtraTreeList.Columns.TreeListColumn
Friend WithEvents CWImages As DevExpress.Utils.SvgImageCollection
Friend WithEvents TreeList2 As DevExpress.XtraTreeList.TreeList
Friend WithEvents TreeListGLOBIXProfiles As DevExpress.XtraTreeList.TreeList
Friend WithEvents GLOBIXImages As DevExpress.Utils.SvgImageCollection
Friend WithEvents TreeListCWProfiles As DevExpress.XtraTreeList.TreeList
Friend WithEvents Panel1 As Panel
Friend WithEvents labelTitle As Label
Friend WithEvents TreeListIDBAttributes As DevExpress.XtraTreeList.TreeList
Friend WithEvents XtraTabPageIDB_Entities As DevExpress.XtraTab.XtraTabPage
Friend WithEvents TreeListIDBEntities As DevExpress.XtraTreeList.TreeList
Friend WithEvents IDBImages As DevExpress.Utils.SvgImageCollection
End Class

64
GUIs.ZooFlow/Administration/frmAdmin_Start.resx
View File

@@ -117,30 +117,6 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="CHANGED_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="CHANGED_WHOLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="ADDED_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="ADDED_WHOLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="COMMENTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="VIEW_SEQUENCELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="TITLELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="GUIDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -294,20 +270,14 @@
<metadata name="MainTreeImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>122, 17</value>
</metadata>
<metadata name="MainTreeImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>122, 17</value>
</metadata>
<metadata name="DockManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>396, 17</value>
</metadata>
<metadata name="TBIDB_ATTRIBUTEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>691, 17</value>
</metadata>
<metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>531, 17</value>
</metadata>
<metadata name="CWImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="GLOBIXImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>264, 17</value>
<metadata name="IDBImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>531, 56</value>
</metadata>
<data name="frmAdmin_Start.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -332,6 +302,15 @@
LjEsMjguMSwyNy42LDI3LjZ6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value>
</data>
<metadata name="TBIDB_ATTRIBUTEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>691, 17</value>
</metadata>
<metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>531, 17</value>
</metadata>
<metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>531, 17</value>
</metadata>
<metadata name="TBIDB_ATTRIBUTETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>919, 17</value>
</metadata>
@@ -344,4 +323,19 @@
<metadata name="TBIDB_ATTRIBUTE_TYPETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>277, 56</value>
</metadata>
<metadata name="IDBImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>531, 56</value>
</metadata>
<metadata name="GLOBIXImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>264, 17</value>
</metadata>
<metadata name="GLOBIXImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>264, 17</value>
</metadata>
<metadata name="CWImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="CWImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

313
GUIs.ZooFlow/Administration/frmAdmin_Start.vb
View File

@@ -1,11 +1,8 @@
Imports DevExpress.Utils
Imports System.ComponentModel
Imports DevExpress.Utils
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
Imports DevExpress.XtraTab
Imports DevExpress.XtraTreeList
Imports DevExpress.XtraTreeList.Nodes
Imports DigitalData.Modules.Logging
Public Class frmAdmin_Start
@@ -13,7 +10,7 @@ Public Class frmAdmin_Start
Private Const IDB_START = "IDB_START"
Private Const IDB_ATTRIBUTES = "IDB_ATTRIBUTES"
Private Const IDB_BUSINESS_ENTITY = "IDB_BUSINESS_ENTITY"
Private Const IDB_BUSINESS_ENTITIES = "IDB_BUSINESS_ENTITIES"
Private Const IDB_SOURCE_SQL = "IDB_SOURCE_SQL"
Private Const GLOBIX_PROFILES = "GLOBIX_PROFILES"
Private Const CW_PROFILES = "CW_PROFILES"
@@ -22,6 +19,21 @@ Public Class frmAdmin_Start
Private AdminItems As New List(Of AdminItem)
Private CurrentPage As String
Private Function IsIDBAttribute(Item As AdminItem) As Boolean
Return Item.Entity = "IDB" And Item.Scope = "ATTRIBUTE"
End Function
Private Function IsIDBEntity(Item As AdminItem) As Boolean
Return Item.Entity = "IDB" And Item.Scope = "ENTITY"
End Function
Private Function IsCWItem(Item As AdminItem) As Boolean
Return Item.Entity = "CW"
End Function
Private Function IsGLOBIXItem(Item As AdminItem) As Boolean
Return Item.Entity = "GLOBIX"
End Function
Private Class AdminItem
Public Property Guid As Integer
@@ -30,6 +42,19 @@ Public Class frmAdmin_Start
Public Property Entity As String
Public Property Scope As String
Public Property Summary As String
''' <summary>
''' The GUID coming from the Database starts with a 3-char long identifier that needs to be removed
''' </summary>
Public ReadOnly Property RealGuid As Integer
Get
Return Guid.ToString.Substring(3)
End Get
End Property
Public Overrides Function ToString() As String
Return $"{Title} ({Guid})"
End Function
End Class
Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -37,6 +62,11 @@ Public Class frmAdmin_Start
TreeListMenu.ExpandAll()
AddHandler TreeListIDBAttributes.DoubleClick, AddressOf TreeList_DoubleClick
AddHandler TreeListIDBEntities.DoubleClick, AddressOf TreeList_DoubleClick
AddHandler TreeListCWProfiles.DoubleClick, AddressOf TreeList_DoubleClick
AddHandler TreeListGLOBIXProfiles.DoubleClick, AddressOf TreeList_DoubleClick
' Show Tab Header in Development, hide when running the app
XtraTabControl.ShowTabHeader = DefaultBoolean.False
End Sub
@@ -48,8 +78,8 @@ Public Class frmAdmin_Start
For Each oRow As DataRow In oTable.Rows
Dim oItem As New AdminItem With {
.Guid = oRow.Item("GUID"),
.ParentId = oRow.Item("PARENT"),
.Guid = CInt(oRow.Item("GUID")),
.ParentId = CInt(oRow.Item("PARENT")),
.Entity = oRow.Item("ENTITY").ToString,
.Scope = oRow.Item("ENTITY_SCOPE").ToString,
.Title = oRow.Item("NODE_TITLE").ToString,
@@ -98,6 +128,7 @@ Public Class frmAdmin_Start
Private Sub TreeList1_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeListMenu.FocusedNodeChanged
Try
If e.Node Is Nothing OrElse e.Node.Tag Is Nothing Then
labelTitle.Text = "Start"
Exit Sub
End If
@@ -105,171 +136,138 @@ Public Class frmAdmin_Start
Select Case e.Node.Tag.ToString
Case IDB_START
labelTitle.Text = "IDB Übersicht"
Display_Tab(XtraTabPage_IDB)
Case IDB_ATTRIBUTES
labelTitle.Text = "IDB Attribute"
Display_Tab(XtraTabPage_IDB)
Display_Tab(XtraTabPageIDB_Attributes_New)
'Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
'Load_Grid(oTable, oSource, GridAttributes)
Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBAttribute).ToList()
Load_Tree(oItems, TreeListIDBAttributes)
Case IDB_BUSINESS_ENTITY
'DisplayTab(XtraTabPage_Entities)
Case IDB_BUSINESS_ENTITIES
labelTitle.Text = "IDB Entitäten"
Display_Tab(XtraTabPage_IDB)
Display_Tab(XtraTabPageIDB_Entities)
Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBEntity).ToList()
Load_Tree(oItems, TreeListIDBEntities)
Case GLOBIX_PROFILES
labelTitle.Text = "Global Indexer Profile"
Display_Tab(XtraTabPage_GlobalIndexer)
Display_RibbonPage(RibbonPage_GlobalIndexer)
Dim oCWItems As List(Of AdminItem) = (From Item As AdminItem In AdminItems
Where Item.Entity = "GLOBIX"
Select Item).ToList()
Load_Tree(oCWItems, TreeList2)
Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsGLOBIXItem).ToList()
Load_Tree(oItems, TreeListGLOBIXProfiles)
Case CW_PROFILES
labelTitle.Text = "Clipboard Watcher Profile"
Display_Tab(XtraTabPage_ClipboardWatcher)
Display_Tab(XtraTabPageCWProfiles)
Display_RibbonPage(RibbonPage_ClipboardWatcher)
Dim oCWItems As List(Of AdminItem) = (From Item As AdminItem In AdminItems
Where Item.Entity = "CW"
Select Item).ToList()
Load_Tree(oCWItems, TreeList1)
Case IDB_SOURCE_SQL
Display_Tab(XtraTabPage_IDB)
Display_Tab(XtraTabPageIDB_SourceSQL)
'Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
'Load_Grid(oTable, oSource, GridSourceSQL)
Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsCWItem).ToList()
Load_Tree(oItems, TreeListCWProfiles)
End Select
Catch ex As Exception
ShowError(ex)
End Try
End Sub
'Private Sub Load_Children(Source As AdminItem, DataSet As DataSet, DataTable As DataTable)
' Dim oChildren = AdminItems.Where(Function(cmd) cmd.Value.ParentId = Source.Guid).ToList()
' If oChildren.Count > 0 Then
' For Each oChild In oChildren
' Dim oChildSource As AdminItem = oChild.Value
' Dim oChildTable As DataTable = My.Database.GetDatatable(oChildSource.Title)
' oChildTable.TableName = oChildSource.Title
' Dim oRelationName As String = $"{Source.Title}__{oChildSource.Title}"
' DataSet.Tables.Add(oChildTable)
' DataSet.Relations.Add(New DataRelation(oRelationName,
' DataTable.Columns.Item(Source.Entity),
' oChildTable.Columns.Item(oChildSource.Scope)))
' Load_Children(oChildSource, DataSet, oChildTable)
' Next
' End If
'End Sub
Private Sub Load_Tree(Source As List(Of AdminItem), TreeList As TreeList)
Dim oColumns As New List(Of Columns.TreeListColumn) From {
New Columns.TreeListColumn() With {
.Name = "columnTitle",
.Caption = "Titel",
.FieldName = "Title",
.Visible = True,
.VisibleIndex = 0
},
New Columns.TreeListColumn() With {
.Name = "columnScope",
.Caption = "Typ",
.FieldName = "Scope",
.Visible = True,
.VisibleIndex = 1
},
New Columns.TreeListColumn() With {
.Name = "columnSummary",
.Caption = "Beschreibung",
.FieldName = "Summary",
.Visible = True,
.VisibleIndex = 2
}
}
TreeList.Columns.Clear()
TreeList.Columns.AddRange(oColumns.ToArray)
TreeList.HierarchyFieldName = "Title"
TreeList.KeyFieldName = "Guid"
TreeList.ParentFieldName = "ParentId"
'TreeList.PreviewFieldName = "Summary"
'TreeList.PreviewLineCount = 3
'TreeList.OptionsView.ShowPreview = True
TreeList.DataSource = Source
TreeList.ForceInitialize()
With TreeList.Appearance.EvenRow
.BackColor = Color.Snow
.Options.UseBackColor = True
End With
With TreeList.Appearance.FocusedCell
.BackColor = Color.Gold
.Options.UseBackColor = True
End With
With TreeList.OptionsBehavior
.Editable = False
.ReadOnly = True
End With
With TreeList.OptionsView
.ShowAutoFilterRow = True
.EnableAppearanceEvenRow = True
.ShowIndicator = False
End With
With TreeList.OptionsClipboard
.CopyColumnHeaders = DefaultBoolean.False
End With
With TreeList.OptionsFind
.AlwaysVisible = True
End With
AddHandler TreeList.KeyDown, Sub(sender As Object, e As KeyEventArgs)
Dim oTreeList As TreeList = DirectCast(sender, TreeList)
If e.Control AndAlso e.KeyCode = Keys.C And e.Modifiers = Keys.Control Then
Dim oCellValue = oTreeList.GetRowCellValue(oTreeList.FocusedNode, oTreeList.FocusedColumn)
If oCellValue IsNot Nothing AndAlso oCellValue.ToString() <> String.Empty Then
Clipboard.SetText(oCellValue.ToString)
End If
e.Handled = True
End If
End Sub
TreeList.BestFitColumns()
End Sub
Private Sub Load_Grid(DataSource As DataTable, Source As AdminItem, GridControl As GridControl)
Try
PrimaryKey = Source.Entity
Dim oDataSet As New DataSet()
DataSource.TableName = Source.Title
oDataSet.Tables.Add(DataSource)
'Load_Children(Source, oDataSet, DataSource)
'GridControl.DataSource = oDataSet.Tables.Item(Source.Title)
'GridControl.ForceInitialize()
'Dim oGridView = DirectCast(GridControl.DefaultView, GridView)
'With oGridView.Appearance.EvenRow
' .BackColor = Color.Gainsboro
' .Options.UseBackColor = True
'End With
'With oGridView.Appearance.FocusedCell
' .BackColor = Color.Gold
' .Options.UseBackColor = True
'End With
'With oGridView.Appearance.FocusedRow
' .BackColor = Color.Gold
' .Options.UseBackColor = True
'End With
'With oGridView.OptionsBehavior
' .Editable = False
' .ReadOnly = True
'End With
'With oGridView.OptionsClipboard
' .CopyColumnHeaders = DefaultBoolean.False
'End With
'With oGridView.OptionsFind
' .AlwaysVisible = True
'End With
'With oGridView.OptionsView
' .ShowAutoFilterRow = True
' .EnableAppearanceEvenRow = True
' .ShowIndicator = False
'End With
'AddHandler oGridView.KeyDown, Sub(sender As Object, e As KeyEventArgs)
' Dim oView As GridView = DirectCast(sender, GridView)
' If e.Control AndAlso e.KeyCode = Keys.C And e.Modifiers = Keys.Control Then
' Dim oCellValue = oView.GetRowCellValue(oView.FocusedRowHandle, oView.FocusedColumn)
' If oCellValue IsNot Nothing AndAlso oCellValue.ToString() <> String.Empty Then
' Clipboard.SetText(oCellValue.ToString)
' End If
' e.Handled = True
' End If
' End Sub
'oGridView.BestFitColumns()
Catch ex As Exception
ShowError(ex)
End Try
End Sub
Private Sub View_DoubleClick(sender As Object, e As EventArgs) Handles _
ViewAttributes.DoubleClick, ViewSourceSQL.DoubleClick
Dim oView As GridView = TryCast(sender, GridView)
Dim hitInfo As GridHitInfo = oView.CalcHitInfo(TryCast(e, DXMouseEventArgs).Location)
If hitInfo.InDataRow Then
Private Sub TreeList_DoubleClick(sender As Object, e As EventArgs)
Dim oView As TreeList = TryCast(sender, TreeList)
Dim hitInfo As TreeListHitInfo = oView.CalcHitInfo(TryCast(e, DXMouseEventArgs).Location)
If hitInfo.InRow Then
Try
Dim oRow As DataRow = oView.GetFocusedDataRow
If oRow IsNot Nothing Then
Dim oPrimaryKey As Integer = oRow.Item(PrimaryKey)
Dim oItem As AdminItem = oView.GetFocusedRow
If oItem IsNot Nothing Then
Select Case oView.Name
Case ViewAttributes.Name
Load_Attribute(oPrimaryKey)
Case ViewSourceSQL.Name
Load_SourceSql(oPrimaryKey)
Case WinExplorerView1.Name
Load_CWProfile(oPrimaryKey)
Case TreeListIDBAttributes.Name
Load_IDBAttribute(oItem.RealGuid)
Case TreeListIDBEntities.Name
Load_IDBEntity(oItem.RealGuid)
End Select
End If
Catch ex As Exception
ShowError(ex)
@@ -277,30 +275,30 @@ Public Class frmAdmin_Start
End If
End Sub
Private Sub Load_Attribute(PrimaryKey As Integer)
Private Sub Load_IDBAttribute(PrimaryKey As Integer)
Try
Dim oForm As New frmAdmin_IDBAttribute(PrimaryKey)
oForm.ShowDialog()
If oForm.HasChanges Then
Dim oSource As AdminItem = AdminItems.Item(CurrentPage)
Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
Load_Grid(oTable, oSource, GridAttributes)
Load_SQLData()
Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBAttribute).ToList
Load_Tree(oItems, TreeListIDBAttributes)
End If
Catch ex As Exception
ShowError(ex)
End Try
End Sub
Private Sub Load_SourceSql(PrimaryKey As Integer)
Private Sub Load_IDBEntity(PrimaryKey As Integer)
Try
Dim oForm As New frmAdmin_SourceSQL(PrimaryKey)
Dim oForm As New frmAdmin_IDBEntity(PrimaryKey)
oForm.ShowDialog()
If oForm.HasChanges Then
Dim oSource As AdminItem = AdminItems.Item(CurrentPage)
Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
Load_Grid(oTable, oSource, GridSourceSQL)
Load_SQLData()
Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBEntity).ToList
Load_Tree(oItems, TreeListIDBEntities)
End If
Catch ex As Exception
ShowError(ex)
@@ -313,6 +311,7 @@ Public Class frmAdmin_Start
oForm.ShowDialog()
If oForm.HasChanges Then
Dim oSource As AdminItem = AdminItems.Item(CurrentPage)
Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
'Load_Tree(oTable, oSource, TreeList1)
@@ -324,10 +323,10 @@ Public Class frmAdmin_Start
Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
Try
Dim oRow As DataRow = ViewAttributes.GetFocusedDataRow
Dim oRow As DataRow = TreeListIDBAttributes.GetFocusedDataRow
If oRow IsNot Nothing Then
Dim oPrimaryKey As Integer = oRow.Item(PrimaryKey)
Load_Attribute(oPrimaryKey)
Dim oPrimaryKey As Integer = DirectCast(oRow.Item(PrimaryKey), Integer)
Load_IDBAttribute(oPrimaryKey)
End If
Catch ex As Exception
ShowError(ex)
@@ -348,9 +347,11 @@ Public Class frmAdmin_Start
labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End Sub
Private Sub TreeList1_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeList1.GetStateImage
Private Sub TreeList1_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListCWProfiles.GetStateImage
Dim oTreeList As TreeList = DirectCast(sender, TreeList)
Dim oItem As AdminItem = oTreeList.GetRow(e.Node.Id)
Dim oItem As AdminItem = DirectCast(oTreeList.GetRow(e.Node.Id), AdminItem)
Select Case oItem.Scope
Case "PROFILE"
@@ -368,9 +369,9 @@ Public Class frmAdmin_Start
End Sub
Private Sub TreeList2_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeList2.GetStateImage
Private Sub TreeList2_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListGLOBIXProfiles.GetStateImage
Dim oTreeList As TreeList = DirectCast(sender, TreeList)
Dim oItem As AdminItem = oTreeList.GetRow(e.Node.Id)
Dim oItem As AdminItem = DirectCast(oTreeList.GetRow(e.Node.Id), AdminItem)
Select Case oItem.Scope
Case "PROFILE"
@@ -385,4 +386,12 @@ Public Class frmAdmin_Start
End Select
End Sub
Private Sub TreeListIDBAttributes_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListIDBAttributes.GetStateImage
e.NodeImageIndex = 1
End Sub
Private Sub TreeListIDBEntities_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListIDBEntities.GetStateImage
e.NodeImageIndex = 0
End Sub
End Class