ZooFlow: IDB Admin

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

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

View File

@ -77,7 +77,12 @@ Public Class frmAdmin_IDBAttribute
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
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

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

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>

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

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

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>

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
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
TreeList.BestFitColumns()
End Sub
Private Sub View_DoubleClick(sender As Object, e As EventArgs) Handles _
ViewAttributes.DoubleClick, ViewSourceSQL.DoubleClick
Dim oView As GridView = TryCast(sender, GridView)
Dim hitInfo As GridHitInfo = oView.CalcHitInfo(TryCast(e, DXMouseEventArgs).Location)
If hitInfo.InDataRow Then
Private Sub TreeList_DoubleClick(sender As Object, e As EventArgs)
Dim oView As TreeList = TryCast(sender, TreeList)
Dim hitInfo As TreeListHitInfo = oView.CalcHitInfo(TryCast(e, DXMouseEventArgs).Location)
If hitInfo.InRow Then
Try
Dim oRow As DataRow = oView.GetFocusedDataRow
If oRow IsNot Nothing Then
Dim oPrimaryKey As Integer = oRow.Item(PrimaryKey)
Dim oItem As AdminItem = oView.GetFocusedRow
If oItem IsNot Nothing Then
Select Case oView.Name
Case ViewAttributes.Name
Load_Attribute(oPrimaryKey)
Case ViewSourceSQL.Name
Load_SourceSql(oPrimaryKey)
Case WinExplorerView1.Name
Load_CWProfile(oPrimaryKey)
Case TreeListIDBAttributes.Name
Load_IDBAttribute(oItem.RealGuid)
Case TreeListIDBEntities.Name
Load_IDBEntity(oItem.RealGuid)
End Select
End If
Catch ex As Exception
ShowError(ex)
@ -277,30 +275,30 @@ Public Class frmAdmin_Start
End If
End Sub
Private Sub Load_Attribute(PrimaryKey As Integer)
Private Sub Load_IDBAttribute(PrimaryKey As Integer)
Try
Dim oForm As New frmAdmin_IDBAttribute(PrimaryKey)
oForm.ShowDialog()
If oForm.HasChanges Then
Dim oSource As AdminItem = AdminItems.Item(CurrentPage)
Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
Load_Grid(oTable, oSource, GridAttributes)
Load_SQLData()
Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBAttribute).ToList
Load_Tree(oItems, TreeListIDBAttributes)
End If
Catch ex As Exception
ShowError(ex)
End Try
End Sub
Private Sub Load_SourceSql(PrimaryKey As Integer)
Private Sub Load_IDBEntity(PrimaryKey As Integer)
Try
Dim oForm As New frmAdmin_SourceSQL(PrimaryKey)
Dim oForm As New frmAdmin_IDBEntity(PrimaryKey)
oForm.ShowDialog()
If oForm.HasChanges Then
Dim oSource As AdminItem = AdminItems.Item(CurrentPage)
Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
Load_Grid(oTable, oSource, GridSourceSQL)
Load_SQLData()
Dim oItems As List(Of AdminItem) = AdminItems.Where(AddressOf IsIDBEntity).ToList
Load_Tree(oItems, TreeListIDBEntities)
End If
Catch ex As Exception
ShowError(ex)
@ -313,6 +311,7 @@ Public Class frmAdmin_Start
oForm.ShowDialog()
If oForm.HasChanges Then
Dim oSource As AdminItem = AdminItems.Item(CurrentPage)
Dim oTable As DataTable = My.Database.GetDatatable(oSource.Title)
'Load_Tree(oTable, oSource, TreeList1)
@ -324,10 +323,10 @@ Public Class frmAdmin_Start
Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
Try
Dim oRow As DataRow = ViewAttributes.GetFocusedDataRow
Dim oRow As DataRow = TreeListIDBAttributes.GetFocusedDataRow
If oRow IsNot Nothing Then
Dim oPrimaryKey As Integer = oRow.Item(PrimaryKey)
Load_Attribute(oPrimaryKey)
Dim oPrimaryKey As Integer = DirectCast(oRow.Item(PrimaryKey), Integer)
Load_IDBAttribute(oPrimaryKey)
End If
Catch ex As Exception
ShowError(ex)
@ -348,9 +347,11 @@ Public Class frmAdmin_Start
labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End Sub
Private Sub TreeList1_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeList1.GetStateImage
Private Sub TreeList1_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListCWProfiles.GetStateImage
Dim oTreeList As TreeList = DirectCast(sender, TreeList)
Dim oItem As AdminItem = oTreeList.GetRow(e.Node.Id)
Dim oItem As AdminItem = DirectCast(oTreeList.GetRow(e.Node.Id), AdminItem)
Select Case oItem.Scope
Case "PROFILE"
@ -368,9 +369,9 @@ Public Class frmAdmin_Start
End Sub
Private Sub TreeList2_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeList2.GetStateImage
Private Sub TreeList2_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListGLOBIXProfiles.GetStateImage
Dim oTreeList As TreeList = DirectCast(sender, TreeList)
Dim oItem As AdminItem = oTreeList.GetRow(e.Node.Id)
Dim oItem As AdminItem = DirectCast(oTreeList.GetRow(e.Node.Id), AdminItem)
Select Case oItem.Scope
Case "PROFILE"
@ -385,4 +386,12 @@ Public Class frmAdmin_Start
End Select
End Sub
Private Sub TreeListIDBAttributes_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListIDBAttributes.GetStateImage
e.NodeImageIndex = 1
End Sub
Private Sub TreeListIDBEntities_GetStateImage(sender As Object, e As GetStateImageEventArgs) Handles TreeListIDBEntities.GetStateImage
e.NodeImageIndex = 0
End Sub
End Class

View File

@ -72,7 +72,7 @@ Public Class ClassWindowLocation
MsgBox("Error while loading Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Function IsVisibleOnAnyScreen(rect As Rectangle)
Private Function IsVisibleOnAnyScreen(rect As Rectangle) As Boolean
Try
Dim result As Boolean = False
For Each Screen As Screen In Screen.AllScreens

File diff suppressed because it is too large Load Diff

View File

@ -21,31 +21,36 @@ WHERE (GUID = @Original_GUID)</CommandText>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBIDB_BUSINESS_ENTITY
(PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO)
VALUES (@PARENT_ENT_ID,@TITLE,@INHERITS_ATTRIBUTES,@COMMENT,@ADDED_WHO);
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO [TBIDB_BUSINESS_ENTITY] ([PARENT_ENT_ID], [TITLE], [INHERITS_ATTRIBUTES], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@PARENT_ENT_ID, @TITLE, @INHERITS_ATTRIBUTES, @COMMENT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);
SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_BUSINESS_ENTITY WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PARENT_ENT_ID" ColumnName="PARENT_ENT_ID" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PARENT_ENT_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PARENT_ENT_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="TITLE" ColumnName="TITLE" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="INHERITS_ATTRIBUTES" ColumnName="INHERITS_ATTRIBUTES" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@INHERITS_ATTRIBUTES" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="INHERITS_ATTRIBUTES" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="varchar(1000)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="1000" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@PARENT_ENT_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="PARENT_ENT_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@INHERITS_ATTRIBUTES" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="INHERITS_ATTRIBUTES" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
FROM TBIDB_BUSINESS_ENTITY</CommandText>
<Parameters />
FROM TBIDB_BUSINESS_ENTITY
WHERE GUID = @GUID</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBIDB_BUSINESS_ENTITY
SET PARENT_ENT_ID = @PARENT_ENT_ID, TITLE = @TITLE, INHERITS_ATTRIBUTES = @INHERITS_ATTRIBUTES, COMMENT = @COMMENT, CHANGED_WHO = @CHANGED_WHO
SET PARENT_ENT_ID = @PARENT_ENT_ID, TITLE = @TITLE, INHERITS_ATTRIBUTES = @INHERITS_ATTRIBUTES, COMMENT = @COMMENT, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN,
CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN
WHERE (GUID = @Original_GUID);
SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_BUSINESS_ENTITY WHERE (GUID = @GUID)</CommandText>
<Parameters>
@ -53,7 +58,10 @@ SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDE
<Parameter AllowDbNull="false" AutogeneratedName="TITLE" ColumnName="TITLE" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="INHERITS_ATTRIBUTES" ColumnName="INHERITS_ATTRIBUTES" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@INHERITS_ATTRIBUTES" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="INHERITS_ATTRIBUTES" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="varchar(1000)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="1000" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHEN" ColumnName="ADDED_WHEN" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHEN" ColumnName="CHANGED_WHEN" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="IDB_TEST.dbo.TBIDB_BUSINESS_ENTITY" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
@ -242,98 +250,6 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN,
</Mappings>
<Sources />
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBZF_ADMIN_SOURCE_SQLTableAdapter" GeneratorDataComponentClassName="TBZF_ADMIN_SOURCE_SQLTableAdapter" Name="TBZF_ADMIN_SOURCE_SQL" UserDataComponentName="TBZF_ADMIN_SOURCE_SQLTableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_ECM_TESTConnectionString (Settings)" DbObjectName="DD_ECM_TEST.dbo.TBZF_ADMIN_SOURCE_SQL" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TBZF_ADMIN_SOURCE_SQL] WHERE (([GUID] = @Original_GUID) AND ([ENTITY_TITLE] = @Original_ENTITY_TITLE) AND ([PK_COLUMN] = @Original_PK_COLUMN) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_ENTITY_TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ENTITY_TITLE" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_PK_COLUMN" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="PK_COLUMN" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_COMMENT" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_ADDED_WHO" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_ADDED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHO" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO [TBZF_ADMIN_SOURCE_SQL] ([ENTITY_TITLE], [PK_COLUMN], [COMMENT], [SQL_COMMAND], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@ENTITY_TITLE, @PK_COLUMN, @COMMENT, @SQL_COMMAND, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);
SELECT GUID, ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ENTITY_TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ENTITY_TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@PK_COLUMN" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="PK_COLUMN" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@SQL_COMMAND" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="SQL_COMMAND" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT * FROM TBZF_ADMIN_SOURCE_SQL WHERE GUID = @GUID</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBZF_ADMIN_SOURCE_SQL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [TBZF_ADMIN_SOURCE_SQL] SET [ENTITY_TITLE] = @ENTITY_TITLE, [PK_COLUMN] = @PK_COLUMN, [COMMENT] = @COMMENT, [SQL_COMMAND] = @SQL_COMMAND, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([ENTITY_TITLE] = @Original_ENTITY_TITLE) AND ([PK_COLUMN] = @Original_PK_COLUMN) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
SELECT GUID, ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ENTITY_TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ENTITY_TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@PK_COLUMN" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="PK_COLUMN" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@SQL_COMMAND" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="SQL_COMMAND" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_ENTITY_TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ENTITY_TITLE" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_PK_COLUMN" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="PK_COLUMN" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_COMMENT" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_ADDED_WHO" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_ADDED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHO" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBZF_ADMIN_SOURCE_SQL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</UpdateCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="ENTITY_TITLE" DataSetColumn="ENTITY_TITLE" />
<Mapping SourceColumn="PK_COLUMN" DataSetColumn="PK_COLUMN" />
<Mapping SourceColumn="COMMENT" DataSetColumn="COMMENT" />
<Mapping SourceColumn="SQL_COMMAND" DataSetColumn="SQL_COMMAND" />
<Mapping SourceColumn="ADDED_WHO" DataSetColumn="ADDED_WHO" />
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
</Mappings>
<Sources />
</TableAdapter>
</Tables>
<Sources />
</DataSource>
@ -362,14 +278,14 @@ SELECT GUID, ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHE
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO" minOccurs="0">
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="30" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
@ -479,57 +395,6 @@ SELECT GUID, ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHE
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBZF_ADMIN_SOURCE_SQL" msprop:Generator_TableClassName="TBZF_ADMIN_SOURCE_SQLDataTable" msprop:Generator_TableVarName="tableTBZF_ADMIN_SOURCE_SQL" msprop:Generator_TablePropName="TBZF_ADMIN_SOURCE_SQL" msprop:Generator_RowDeletingName="TBZF_ADMIN_SOURCE_SQLRowDeleting" msprop:Generator_RowChangingName="TBZF_ADMIN_SOURCE_SQLRowChanging" msprop:Generator_RowEvHandlerName="TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler" msprop:Generator_RowDeletedName="TBZF_ADMIN_SOURCE_SQLRowDeleted" msprop:Generator_UserTableName="TBZF_ADMIN_SOURCE_SQL" msprop:Generator_RowChangedName="TBZF_ADMIN_SOURCE_SQLRowChanged" msprop:Generator_RowEvArgName="TBZF_ADMIN_SOURCE_SQLRowChangeEvent" msprop:Generator_RowClassName="TBZF_ADMIN_SOURCE_SQLRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="ENTITY_TITLE" msprop:Generator_ColumnVarNameInTable="columnENTITY_TITLE" msprop:Generator_ColumnPropNameInRow="ENTITY_TITLE" msprop:Generator_ColumnPropNameInTable="ENTITY_TITLEColumn" msprop:Generator_UserColumnName="ENTITY_TITLE">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="PK_COLUMN" msprop:Generator_ColumnVarNameInTable="columnPK_COLUMN" msprop:Generator_ColumnPropNameInRow="PK_COLUMN" msprop:Generator_ColumnPropNameInTable="PK_COLUMNColumn" msprop:Generator_UserColumnName="PK_COLUMN">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="COMMENT" msprop:Generator_ColumnVarNameInTable="columnCOMMENT" msprop:Generator_ColumnPropNameInRow="COMMENT" msprop:Generator_ColumnPropNameInTable="COMMENTColumn" msprop:Generator_UserColumnName="COMMENT" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="500" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SQL_COMMAND" msprop:Generator_ColumnVarNameInTable="columnSQL_COMMAND" msprop:Generator_ColumnPropNameInRow="SQL_COMMAND" msprop:Generator_ColumnPropNameInTable="SQL_COMMANDColumn" msprop:Generator_UserColumnName="SQL_COMMAND">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="30" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="30" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice>
</xs:complexType>
<xs:unique name="Constraint1" msdata:PrimaryKey="true">
@ -544,10 +409,6 @@ SELECT GUID, ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHE
<xs:selector xpath=".//mstns:TBIDB_ATTRIBUTE_TYPE" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
<xs:unique name="TBZF_ADMIN_SOURCE_SQL_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBZF_ADMIN_SOURCE_SQL" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
</xs:element>
<xs:annotation>
<xs:appinfo>

View File

@ -6,13 +6,12 @@
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="3" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBIDB_BUSINESS_ENTITY" ZOrder="5" X="48" Y="40" Height="248" Width="291" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBIDB_ATTRIBUTE" ZOrder="4" X="359" Y="41" Height="305" Width="251" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBIDB_ATTRIBUTE_TYPE" ZOrder="3" X="677" Y="48" Height="286" Width="285" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBZF_ADMIN_SOURCE_SQL" ZOrder="1" X="40" Y="422" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBIDB_BUSINESS_ENTITY" ZOrder="4" X="48" Y="40" Height="248" Width="291" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBIDB_ATTRIBUTE" ZOrder="3" X="359" Y="41" Height="305" Width="251" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBIDB_ATTRIBUTE_TYPE" ZOrder="2" X="677" Y="48" Height="286" Width="285" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:FK_TYP_ID" ZOrder="2" LineWidth="11">
<Connector ID="DesignRelation:FK_TYP_ID" ZOrder="1" LineWidth="11">
<RoutePoints>
<Point>
<X>677</X>

View File

@ -7,7 +7,7 @@ Public Class ClassEmailHeaderExtractor
''' </summary>
''' <param name="path">Der Pfad einer .msg Datei</param>
''' <returns>Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist.</returns>
Public Shared Function getMessageHeaders(path As String)
Public Shared Function getMessageHeaders(path As String) As String
Try
Dim msg As New Msg.Message(path)
Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ")
@ -22,7 +22,7 @@ Public Class ClassEmailHeaderExtractor
''' </summary>
''' <param name="msg">Eine Email vom Typ Msg.Message</param>
''' <returns>Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist.</returns>
Public Shared Function getMessageHeaders(msg As Msg.Message)
Public Shared Function getMessageHeaders(msg As Msg.Message) As String
Try
Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ")
Return headers
@ -38,7 +38,7 @@ Public Class ClassEmailHeaderExtractor
''' <param name="RegexList">Eine Liste von Regular Expressions</param>
''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
Public Shared Function extractFromAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
Public Shared Function extractFromAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1) As String
If IsNothing(messageHeaders) Then
Return Nothing
End If
@ -54,9 +54,9 @@ Public Class ClassEmailHeaderExtractor
Return Nothing
End Function
Public Shared Function extractFromHeader(messageHeaders As String, Regex As String)
Public Shared Function extractFromHeader(messageHeaders As String, Regex As String) As String
Try
Dim result
Dim result As String
Dim i As Integer = 0
If IsNothing(messageHeaders) Then
Return Nothing
@ -93,7 +93,7 @@ Public Class ClassEmailHeaderExtractor
''' <param name="RegexList">Eine Liste von Regular Expressions</param>
''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
Public Shared Function extractToAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
Public Shared Function extractToAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1) As String
If IsNothing(messageHeaders) Then
Return Nothing
End If

View File

@ -1,4 +1,6 @@
Imports System.IO
Option Strict Off
Imports System.IO
Imports DigitalData.Modules.Logging
Imports Microsoft.Office.Interop
@ -10,7 +12,7 @@ Public Class ClassFileDrop
_LOGGER = LogConfig.GetLogger()
clsFilehandle = New ClassFilehandle()
End Sub
Public Function Drop_File(e As DragEventArgs)
Public Function Drop_File(e As DragEventArgs) As Boolean
Try
_LOGGER.Info("Available Drop Formats:")
@ -24,7 +26,7 @@ Public Class ClassFileDrop
Dim MyFiles() As String
Dim i As Integer
' Assign the files to an array.
MyFiles = e.Data.GetData(DataFormats.FileDrop)
MyFiles = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
' Loop through the array and add the files to the list.
For i = 0 To MyFiles.Length - 1
_LOGGER.Info(">> Simple FileDrop - File: " & MyFiles(i))
@ -143,8 +145,4 @@ Public Class ClassFileDrop
Return False
End Try
End Function
End Class

View File

@ -23,13 +23,13 @@ Public Class ClassFilehandle
Dim r = New Regex(String.Format("[{0}]", Regex.Escape(regexSearch)))
Return r.Replace(Input, replacement)
End Function
Public Function Decide_FileHandle(filename As String, handletype As String)
Public Function Decide_FileHandle(filename As String, handletype As String) As Boolean
Try
If filename.EndsWith(".msg") Then
My.Application.Globix.CurrMessageID = ""
Dim _msg As New Msg.Message(filename)
If _msg.Attachments.Count > 0 Then
Dim result As MsgBoxResult
Dim result As DialogResult
If My.Application.User.Language = "de-DE" Then
result = MessageBox.Show(New Form With {.TopMost = True}, "Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?", "Nachfrage zur Indexierung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
@ -62,7 +62,7 @@ Public Class ClassFilehandle
Return False
End Try
End Function
Private Function Email_Decay(msgname As String, Optional FW As Boolean = False)
Private Function Email_Decay(msgname As String, Optional FW As Boolean = False) As Boolean
Try
Dim msgonly As String = "|MSGONLY|"
Dim ATT_EXTR As String = "|ATTMNTEXTRACTED|"
@ -147,7 +147,7 @@ Public Class ClassFilehandle
End Try
End Function
Private Function Insert_GI_File(filename As String, handleType As String)
Private Function Insert_GI_File(filename As String, handleType As String) As Boolean
Try
filename = filename.Replace("'", "''")
@ -183,9 +183,9 @@ Public Class ClassFilehandle
End If
End Function
Public Function Versionierung_Datei(Dateiname As String)
Dim extension
Dim _NewFileString
Public Function Versionierung_Datei(Dateiname As String) As String
Dim extension As String
Dim _NewFileString As String
Try
Dim version As Integer = 1

View File

@ -34,7 +34,7 @@ Public Class ClassFolderwatcher
Logger.Error(ex.Message)
End Try
End Function
Public Function Restart_FolderWatchSCAN()
Public Sub Restart_FolderWatchSCAN()
Try
If FWScan.EnableRaisingEvents = True Then
'Gestartet also Stoppen
@ -53,13 +53,9 @@ Public Class ClassFolderwatcher
Logger.Info($"Error in Restart_FolderWatchSCAN: {ex.Message}")
Logger.Error(ex.Message)
End Try
End Function
Public Function StartStop_FolderWatch()
End Sub
Public Sub StartStop_FolderWatch()
Try
If My.Application.Globix.CurrentFolderWatchPath = "" Then
'MsgBox("Bitte definieren Sie einen Überwachungsordner:", MsgBoxStyle.Exclamation)
Return False
End If
If FWFolderWatcher Is Nothing Then
FWFolderWatcher = New System.IO.FileSystemWatcher(My.Application.Globix.CurrentFolderWatchPath, "*.*")
Logger.Info(" >> FolderWatch Gestartet")
@ -70,7 +66,6 @@ Public Class ClassFolderwatcher
'SaveConfigValue("my.Application.Globix.Folderwatchstarted", "True")
My.UIConfig.Globix.FolderWatchStarted = True
My.UIConfigManager.Save()
Return 1
End If
If FWFolderWatcher.EnableRaisingEvents = False Then
' Dim watcher As New FileSystemWatcher()
@ -84,7 +79,6 @@ Public Class ClassFolderwatcher
'SaveConfigValue("my.Application.Globix.Folderwatchstarted", "True")
My.UIConfig.Globix.FolderWatchStarted = True
My.UIConfigManager.Save()
Return 1
Else
'Gestartet also Stoppen
FWFolderWatcher.EnableRaisingEvents = False
@ -93,15 +87,12 @@ Public Class ClassFolderwatcher
'SaveConfigValue("my.Application.Globix.Folderwatchstarted", "False")
My.UIConfig.Globix.FolderWatchStarted = False
My.UIConfigManager.Save()
Return 0
End If
Catch ex As Exception
Logger.Error(ex.Message)
MsgBox("Error in StartStop_FolderWatch:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return 99
End Try
End Function
End Sub
Public Function StartStop_FolderWatchSCAN() As Integer
Try
If My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = "" Then

View File

@ -200,6 +200,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property about2() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("about2", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -310,6 +320,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property bo_appointment() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("bo_appointment", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
@ -440,6 +460,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property markcomplete() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("markcomplete", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
@ -480,6 +510,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property save3() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("save3", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

View File

@ -118,17 +118,20 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="CW_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CW_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="ZooFlow-25" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow-25.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bell_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bell_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="4_GLOBIX_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\4_GLOBIX_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="1_LOGO_ZOO_FLOW_DROP3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1_LOGO_ZOO_FLOW_DROP3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Checked-outforEdit_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="actions_check2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_check2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="StatusAnnotations_Stop_16xLG_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\StatusAnnotations_Stop_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -136,8 +139,8 @@
<data name="CW_GEFUNDEN_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CW_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ZooFlow-25" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZooFlow-25.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="save3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="bell_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -151,8 +154,8 @@
<data name="DD_Icons_ICO_PMANAGER_128px" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\DD_Icons_ICO_PMANAGER_128px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="actions_check2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_check2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="2_LUPE_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\2_LUPE_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="4_GLOBIX_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\4_GLOBIX_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -172,11 +175,14 @@
<data name="actions_check" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_check.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="save2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="1_LOGO_ZOO_FLOW1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1_LOGO_ZOO_FLOW1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="2_LUPE_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\2_LUPE_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="CW_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CW_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="2_ZOO_FLOW_Abo_MouseOver" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\2_ZOO_FLOW_Abo_MouseOver.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -190,8 +196,8 @@
<data name="GLOBIX_short" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\GLOBIX_short.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="4_GLOBIX_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\4_GLOBIX_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Checked-outforEdit_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="about" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@ -247,6 +253,9 @@
<data name="updatedataextract" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\updatedataextract.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="markcomplete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\markcomplete.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="actions_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_edit.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
@ -259,7 +268,10 @@
<data name="2_ZOO_FLOW_Abo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="save2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="bo_appointment" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_appointment.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="about2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\about2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
</root>

View File

@ -0,0 +1,19 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Yellow{fill:#FFB115;}
.Red{fill:#D11C1C;}
.Blue{fill:#1177D7;}
.Green{fill:#039C23;}
.Black{fill:#727272;}
.White{fill:#FFFFFF;}
.st0{opacity:0.5;}
.st1{display:none;}
.st2{display:inline;fill:#039C23;}
.st3{display:inline;fill:#D11C1C;}
.st4{display:inline;fill:#727272;}
</style>
<g id="About">
<path d="M16,2C8.3,2,2,8.3,2,16s6.3,14,14,14s14-6.3,14-14S23.7,2,16,2z M16,6c1.1,0,2,0.9,2,2s-0.9,2-2,2s-2-0.9-2-2 S14.9,6,16,6z M20,24h-8v-2h2v-8h-2v-2h2h4v10h2V24z" class="Blue" />
</g>
</svg>

View File

@ -0,0 +1,29 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Blue{fill:#1177D7;}
.Yellow{fill:#FFB115;}
.Red{fill:#D11C1C;}
.Green{fill:#039C23;}
.Black{fill:#727272;}
.White{fill:#FFFFFF;}
.st0{opacity:0.5;}
.st1{opacity:0.75;}
.st2{display:none;}
.st3{display:inline;fill:#FFB115;}
.st4{display:inline;}
.st5{display:inline;opacity:0.75;}
.st6{display:inline;opacity:0.5;}
.st7{display:inline;fill:#039C23;}
.st8{display:inline;fill:#D11C1C;}
.st9{display:inline;fill:#1177D7;}
.st10{display:inline;fill:#FFFFFF;}
</style>
<g id="Appointment">
<path d="M0,3v24c0,0.6,0.4,1,1,1h28c0.6,0,1-0.4,1-1V3c0-0.6-0.4-1-1-1H1C0.4,2,0,2.4,0,3z M28,26H2V6h26V26z" class="Black" />
<rect x="10" y="14" width="4" height="4" rx="0" ry="0" class="Red" />
<g class="st0">
<path d="M8,24H4v-4h4V24z M14,20h-4v4h4V20z M20,20h-4v4h4V20z M26,20h-4v4h4V20z M20,8h-4v4h4V8z M26,8h-4v4h4V8z M26,14h-4v4h4V14z M20,14h-4v4h4V14z M8,14H4v4h4V14z M14,8h-4v4h4V8z M8,8H4v4h4V8z" class="Black" />
</g>
</g>
</svg>

View File

@ -0,0 +1,19 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Yellow{fill:#FFB115;}
.Red{fill:#D11C1C;}
.Blue{fill:#1177D7;}
.Green{fill:#039C23;}
.Black{fill:#727272;}
.White{fill:#FFFFFF;}
.st0{opacity:0.5;}
.st1{display:none;}
.st2{display:inline;fill:#039C23;}
.st3{display:inline;fill:#D11C1C;}
.st4{display:inline;fill:#727272;}
</style>
<g id="MarkComplete">
<polygon points="27,4 11,20 5,14 2,17 11,26 30,7 " class="Green" />
</g>
</svg>

View File

@ -0,0 +1,7 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Save" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Black{fill:#727272;}
</style>
<path d="M27,4h-3v10H8V4H5C4.4,4,4,4.4,4,5v22c0,0.6,0.4,1,1,1h22c0.6,0,1-0.4,1-1V5C28,4.4,27.6,4,27,4z M24,24H8v-6 h16V24z M10,4v8h10V4H10z M14,10h-2V6h2V10z" class="Black" />
</svg>

View File

@ -26,6 +26,9 @@
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<ErrorReport>prompt</ErrorReport>
<WarningsAsErrors>
</WarningsAsErrors>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
@ -35,6 +38,9 @@
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<ErrorReport>prompt</ErrorReport>
<WarningsAsErrors>
</WarningsAsErrors>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</NoWarn>
</PropertyGroup>
<PropertyGroup>
<MyType>WindowsForms</MyType>
@ -120,13 +126,13 @@
<Compile Include="Administration\frmAdmin_IDBAttribute.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Administration\frmAdmin_Interface.vb" />
<Compile Include="Administration\frmAdmin_SourceSQL.Designer.vb">
<DependentUpon>frmAdmin_SourceSQL.vb</DependentUpon>
<Compile Include="Administration\frmAdmin_IDBEntity.Designer.vb">
<DependentUpon>frmAdmin_IDBEntity.vb</DependentUpon>
</Compile>
<Compile Include="Administration\frmAdmin_SourceSQL.vb">
<Compile Include="Administration\frmAdmin_IDBEntity.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Administration\frmAdmin_Interface.vb" />
<Compile Include="ApplicationEvents.vb" />
<Compile Include="Base\BaseClass.vb" />
<Compile Include="ClipboardWatcher\ClassProfileLoader.vb" />
@ -279,8 +285,8 @@
<EmbeddedResource Include="Administration\frmAdmin_IDBAttribute.resx">
<DependentUpon>frmAdmin_IDBAttribute.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Administration\frmAdmin_SourceSQL.resx">
<DependentUpon>frmAdmin_SourceSQL.vb</DependentUpon>
<EmbeddedResource Include="Administration\frmAdmin_IDBEntity.resx">
<DependentUpon>frmAdmin_IDBEntity.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Globix\frmGlobixBasicConfig.resx">
<DependentUpon>frmGlobixBasicConfig.vb</DependentUpon>
@ -580,6 +586,18 @@
<ItemGroup>
<None Include="Resources\save2.svg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\markcomplete.svg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\save3.svg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\bo_appointment.svg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\about2.svg" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.

View File

@ -819,7 +819,7 @@ Public Class frmFlowForm
If My.Application.Globix.ABORT_INDEXING = True Then
Exit For
End If
Dim FileForWork As String = row.Item(1)
Dim FileForWork As String = row.Item(1).ToString
Logger.Info(" In Timer Folderwatch - File: " & FileForWork)
Dim fileInUse As Boolean = FileHandle.IsFileInUse(FileForWork)
Dim fileexists As Boolean = System.IO.File.Exists(FileForWork)
@ -827,7 +827,7 @@ Public Class frmFlowForm
If fileexists = True Then
My.Application.Globix.CURRENT_WORKFILE = FileForWork
My.Application.Globix.CURRENT_FILENAME = FileForWork
My.Application.Globix.CURRENT_WORKFILE_GUID = row.Item("GUID")
My.Application.Globix.CURRENT_WORKFILE_GUID = DirectCast(row.Item("GUID"), Integer)
Globix_Open_IndexDialog()
Else
Logger.Info(" File not existing - Row will be deleted!")
@ -835,7 +835,7 @@ Public Class frmFlowForm
My.Database.ExecuteNonQuery(oDel)
End If
Else
Logger.Info(" file '" & row.Item(1) & "' could not be opened exclusively - fileInUse!")
Logger.Info(" file '" & row.Item(1).ToString & "' could not be opened exclusively - fileInUse!")
End If
Next