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

MS anpassungen

Browse Source
This commit is contained in:
SchreiberM 2022-02-15 17:28:32 +01:00
parent c2b81af556
commit 5f69002668
20 changed files with 707 additions and 484 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
GUIs.ZooFlow/Administration/frmAdmin_GlobixRelations.Designer.vb generated
View File

@ -26,7 +26,6 @@ Partial Class frmAdmin_GlobixRelations
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
@ -81,24 +80,20 @@ Partial Class frmAdmin_GlobixRelations
Me.RibbonControl1.MaxItemId = 1 Me.RibbonControl1.MaxItemId = 1
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.Size = New System.Drawing.Size(1087, 160) Me.RibbonControl1.Size = New System.Drawing.Size(1087, 160)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
' '
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "RibbonPage1" Me.RibbonPage1.Text = "Start"
' '
'RibbonPageGroup1 'RibbonPageGroup1
' '
Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "Aktionen"
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
' '
'RibbonStatusBar1 'RibbonStatusBar1
' '
@ -333,7 +328,7 @@ Partial Class frmAdmin_GlobixRelations
Me.XtraTabPage2.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.XtraTabPage2.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.XtraTabPage2.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) Me.XtraTabPage2.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
Me.XtraTabPage2.Name = "XtraTabPage2" Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(1085, 554) Me.XtraTabPage2.Size = New System.Drawing.Size(1085, 553)
Me.XtraTabPage2.Text = "Group-Relations" Me.XtraTabPage2.Text = "Group-Relations"
' '
'frmAdmin_GlobixRelations 'frmAdmin_GlobixRelations
@ -378,7 +373,6 @@ Partial Class frmAdmin_GlobixRelations
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl

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

@ -41,7 +41,7 @@ Partial Class frmAdmin_IDBAttribute
Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten()
Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit()
Me.SpinEdit1 = New DevExpress.XtraEditors.SpinEdit() Me.SpinEdit1 = New DevExpress.XtraEditors.SpinEdit()
Me.CheckEdit1 = New DevExpress.XtraEditors.CheckEdit() Me.CheckEditMulticontext = New DevExpress.XtraEditors.CheckEdit()
Me.CheckEdit2 = New DevExpress.XtraEditors.CheckEdit() Me.CheckEdit2 = New DevExpress.XtraEditors.CheckEdit()
Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit()
Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit() Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit()
@ -65,6 +65,7 @@ Partial Class frmAdmin_IDBAttribute
Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager()
Me.VWIDB_BE_ATTRIBUTETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_BE_ATTRIBUTETableAdapter() Me.VWIDB_BE_ATTRIBUTETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_BE_ATTRIBUTETableAdapter()
Me.TBWH_ATTRIBUTE_TYPETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBWH_ATTRIBUTE_TYPETableAdapter() Me.TBWH_ATTRIBUTE_TYPETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBWH_ATTRIBUTE_TYPETableAdapter()
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControl1.SuspendLayout() Me.LayoutControl1.SuspendLayout()
@ -73,7 +74,7 @@ Partial Class frmAdmin_IDBAttribute
CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CheckEditMulticontext.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
@ -99,15 +100,15 @@ Partial Class frmAdmin_IDBAttribute
'RibbonControl1 'RibbonControl1
' '
Me.RibbonControl1.ExpandCollapseItem.Id = 0 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.BarButtonItem3}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.labelStatus, Me.BarButtonItem3, Me.BarButtonItem4})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 7 Me.RibbonControl1.MaxItemId = 8
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl1.ShowToolbarCustomizeItem = False Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.Size = New System.Drawing.Size(894, 131) Me.RibbonControl1.Size = New System.Drawing.Size(894, 132)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
' '
@ -150,6 +151,7 @@ Partial Class frmAdmin_IDBAttribute
' '
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem4)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Daten" Me.RibbonPageGroup1.Text = "Daten"
' '
@ -171,7 +173,7 @@ Partial Class frmAdmin_IDBAttribute
Me.LayoutControl1.Controls.Add(Me.TextEdit1) Me.LayoutControl1.Controls.Add(Me.TextEdit1)
Me.LayoutControl1.Controls.Add(Me.TextEdit2) Me.LayoutControl1.Controls.Add(Me.TextEdit2)
Me.LayoutControl1.Controls.Add(Me.SpinEdit1) Me.LayoutControl1.Controls.Add(Me.SpinEdit1)
Me.LayoutControl1.Controls.Add(Me.CheckEdit1) Me.LayoutControl1.Controls.Add(Me.CheckEditMulticontext)
Me.LayoutControl1.Controls.Add(Me.CheckEdit2) Me.LayoutControl1.Controls.Add(Me.CheckEdit2)
Me.LayoutControl1.Controls.Add(Me.TextEdit3) Me.LayoutControl1.Controls.Add(Me.TextEdit3)
Me.LayoutControl1.Controls.Add(Me.txtAddedWho) Me.LayoutControl1.Controls.Add(Me.txtAddedWho)
@ -180,21 +182,21 @@ Partial Class frmAdmin_IDBAttribute
Me.LayoutControl1.Controls.Add(Me.txtChangedWhen) Me.LayoutControl1.Controls.Add(Me.txtChangedWhen)
Me.LayoutControl1.Controls.Add(Me.ComboBoxEdit1) Me.LayoutControl1.Controls.Add(Me.ComboBoxEdit1)
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.LayoutControl1.Location = New System.Drawing.Point(0, 131) Me.LayoutControl1.Location = New System.Drawing.Point(0, 132)
Me.LayoutControl1.Name = "LayoutControl1" Me.LayoutControl1.Name = "LayoutControl1"
Me.LayoutControl1.Root = Me.Root Me.LayoutControl1.Root = Me.Root
Me.LayoutControl1.Size = New System.Drawing.Size(894, 408) Me.LayoutControl1.Size = New System.Drawing.Size(894, 407)
Me.LayoutControl1.TabIndex = 2 Me.LayoutControl1.TabIndex = 2
Me.LayoutControl1.Text = "LayoutControl1" Me.LayoutControl1.Text = "LayoutControl1"
' '
'TextEdit1 'TextEdit1
' '
Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ATTR_ID", True)) Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ATTR_ID", True))
Me.TextEdit1.Location = New System.Drawing.Point(168, 20) Me.TextEdit1.Location = New System.Drawing.Point(177, 20)
Me.TextEdit1.MenuManager = Me.RibbonControl1 Me.TextEdit1.MenuManager = Me.RibbonControl1
Me.TextEdit1.Name = "TextEdit1" Me.TextEdit1.Name = "TextEdit1"
Me.TextEdit1.Properties.ReadOnly = True Me.TextEdit1.Properties.ReadOnly = True
Me.TextEdit1.Size = New System.Drawing.Size(706, 20) Me.TextEdit1.Size = New System.Drawing.Size(697, 20)
Me.TextEdit1.StyleController = Me.LayoutControl1 Me.TextEdit1.StyleController = Me.LayoutControl1
Me.TextEdit1.TabIndex = 4 Me.TextEdit1.TabIndex = 4
' '
@ -211,10 +213,10 @@ Partial Class frmAdmin_IDBAttribute
'TextEdit2 'TextEdit2
' '
Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ATTR_TITLE", True)) Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ATTR_TITLE", True))
Me.TextEdit2.Location = New System.Drawing.Point(168, 60) Me.TextEdit2.Location = New System.Drawing.Point(177, 60)
Me.TextEdit2.MenuManager = Me.RibbonControl1 Me.TextEdit2.MenuManager = Me.RibbonControl1
Me.TextEdit2.Name = "TextEdit2" Me.TextEdit2.Name = "TextEdit2"
Me.TextEdit2.Size = New System.Drawing.Size(706, 20) Me.TextEdit2.Size = New System.Drawing.Size(697, 20)
Me.TextEdit2.StyleController = Me.LayoutControl1 Me.TextEdit2.StyleController = Me.LayoutControl1
Me.TextEdit2.TabIndex = 5 Me.TextEdit2.TabIndex = 5
' '
@ -222,23 +224,24 @@ Partial Class frmAdmin_IDBAttribute
' '
Me.SpinEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "VIEW_SEQUENCE", True)) Me.SpinEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "VIEW_SEQUENCE", True))
Me.SpinEdit1.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) Me.SpinEdit1.EditValue = New Decimal(New Integer() {0, 0, 0, 0})
Me.SpinEdit1.Location = New System.Drawing.Point(604, 180) Me.SpinEdit1.Location = New System.Drawing.Point(613, 180)
Me.SpinEdit1.MenuManager = Me.RibbonControl1 Me.SpinEdit1.MenuManager = Me.RibbonControl1
Me.SpinEdit1.Name = "SpinEdit1" Me.SpinEdit1.Name = "SpinEdit1"
Me.SpinEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.SpinEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.SpinEdit1.Size = New System.Drawing.Size(270, 20) Me.SpinEdit1.Size = New System.Drawing.Size(261, 20)
Me.SpinEdit1.StyleController = Me.LayoutControl1 Me.SpinEdit1.StyleController = Me.LayoutControl1
Me.SpinEdit1.TabIndex = 6 Me.SpinEdit1.TabIndex = 6
' '
'CheckEdit1 'CheckEditMulticontext
' '
Me.CheckEdit1.Location = New System.Drawing.Point(20, 220) Me.CheckEditMulticontext.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "MULTI_CONTEXT", True))
Me.CheckEdit1.MenuManager = Me.RibbonControl1 Me.CheckEditMulticontext.Location = New System.Drawing.Point(20, 220)
Me.CheckEdit1.Name = "CheckEdit1" Me.CheckEditMulticontext.MenuManager = Me.RibbonControl1
Me.CheckEdit1.Properties.Caption = "Attribut mehrzeilig" Me.CheckEditMulticontext.Name = "CheckEditMulticontext"
Me.CheckEdit1.Size = New System.Drawing.Size(854, 18) Me.CheckEditMulticontext.Properties.Caption = "Attribut mehrzeilig"
Me.CheckEdit1.StyleController = Me.LayoutControl1 Me.CheckEditMulticontext.Size = New System.Drawing.Size(854, 18)
Me.CheckEdit1.TabIndex = 7 Me.CheckEditMulticontext.StyleController = Me.LayoutControl1
Me.CheckEditMulticontext.TabIndex = 7
' '
'CheckEdit2 'CheckEdit2
' '
@ -253,61 +256,61 @@ Partial Class frmAdmin_IDBAttribute
' '
'TextEdit3 'TextEdit3
' '
Me.TextEdit3.Location = New System.Drawing.Point(168, 140) Me.TextEdit3.Location = New System.Drawing.Point(177, 140)
Me.TextEdit3.MenuManager = Me.RibbonControl1 Me.TextEdit3.MenuManager = Me.RibbonControl1
Me.TextEdit3.Name = "TextEdit3" Me.TextEdit3.Name = "TextEdit3"
Me.TextEdit3.Size = New System.Drawing.Size(706, 20) Me.TextEdit3.Size = New System.Drawing.Size(697, 20)
Me.TextEdit3.StyleController = Me.LayoutControl1 Me.TextEdit3.StyleController = Me.LayoutControl1
Me.TextEdit3.TabIndex = 9 Me.TextEdit3.TabIndex = 9
' '
'txtAddedWho 'txtAddedWho
' '
Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ADDED_WHO", True)) Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ADDED_WHO", True))
Me.txtAddedWho.Location = New System.Drawing.Point(168, 258) Me.txtAddedWho.Location = New System.Drawing.Point(177, 258)
Me.txtAddedWho.MenuManager = Me.RibbonControl1 Me.txtAddedWho.MenuManager = Me.RibbonControl1
Me.txtAddedWho.Name = "txtAddedWho" Me.txtAddedWho.Name = "txtAddedWho"
Me.txtAddedWho.Properties.ReadOnly = True Me.txtAddedWho.Properties.ReadOnly = True
Me.txtAddedWho.Size = New System.Drawing.Size(268, 20) Me.txtAddedWho.Size = New System.Drawing.Size(259, 20)
Me.txtAddedWho.StyleController = Me.LayoutControl1 Me.txtAddedWho.StyleController = Me.LayoutControl1
Me.txtAddedWho.TabIndex = 10 Me.txtAddedWho.TabIndex = 10
' '
'txtAddedWhen 'txtAddedWhen
' '
Me.txtAddedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ADDED_WHEN", True)) Me.txtAddedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ADDED_WHEN", True))
Me.txtAddedWhen.Location = New System.Drawing.Point(604, 258) Me.txtAddedWhen.Location = New System.Drawing.Point(613, 258)
Me.txtAddedWhen.MenuManager = Me.RibbonControl1 Me.txtAddedWhen.MenuManager = Me.RibbonControl1
Me.txtAddedWhen.Name = "txtAddedWhen" Me.txtAddedWhen.Name = "txtAddedWhen"
Me.txtAddedWhen.Properties.ReadOnly = True Me.txtAddedWhen.Properties.ReadOnly = True
Me.txtAddedWhen.Size = New System.Drawing.Size(270, 20) Me.txtAddedWhen.Size = New System.Drawing.Size(261, 20)
Me.txtAddedWhen.StyleController = Me.LayoutControl1 Me.txtAddedWhen.StyleController = Me.LayoutControl1
Me.txtAddedWhen.TabIndex = 11 Me.txtAddedWhen.TabIndex = 11
' '
'txtChangedWho 'txtChangedWho
' '
Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "CHANGED_WHO", True)) Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "CHANGED_WHO", True))
Me.txtChangedWho.Location = New System.Drawing.Point(168, 298) Me.txtChangedWho.Location = New System.Drawing.Point(177, 298)
Me.txtChangedWho.MenuManager = Me.RibbonControl1 Me.txtChangedWho.MenuManager = Me.RibbonControl1
Me.txtChangedWho.Name = "txtChangedWho" Me.txtChangedWho.Name = "txtChangedWho"
Me.txtChangedWho.Properties.ReadOnly = True Me.txtChangedWho.Properties.ReadOnly = True
Me.txtChangedWho.Size = New System.Drawing.Size(268, 20) Me.txtChangedWho.Size = New System.Drawing.Size(259, 20)
Me.txtChangedWho.StyleController = Me.LayoutControl1 Me.txtChangedWho.StyleController = Me.LayoutControl1
Me.txtChangedWho.TabIndex = 12 Me.txtChangedWho.TabIndex = 12
' '
'txtChangedWhen 'txtChangedWhen
' '
Me.txtChangedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "CHANGED_WHEN", True)) Me.txtChangedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "CHANGED_WHEN", True))
Me.txtChangedWhen.Location = New System.Drawing.Point(604, 298) Me.txtChangedWhen.Location = New System.Drawing.Point(613, 298)
Me.txtChangedWhen.MenuManager = Me.RibbonControl1 Me.txtChangedWhen.MenuManager = Me.RibbonControl1
Me.txtChangedWhen.Name = "txtChangedWhen" Me.txtChangedWhen.Name = "txtChangedWhen"
Me.txtChangedWhen.Properties.ReadOnly = True Me.txtChangedWhen.Properties.ReadOnly = True
Me.txtChangedWhen.Size = New System.Drawing.Size(270, 20) Me.txtChangedWhen.Size = New System.Drawing.Size(261, 20)
Me.txtChangedWhen.StyleController = Me.LayoutControl1 Me.txtChangedWhen.StyleController = Me.LayoutControl1
Me.txtChangedWhen.TabIndex = 13 Me.txtChangedWhen.TabIndex = 13
' '
'ComboBoxEdit1 'ComboBoxEdit1
' '
Me.ComboBoxEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "TYPE_ID", True)) Me.ComboBoxEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "TYPE_ID", True))
Me.ComboBoxEdit1.Location = New System.Drawing.Point(168, 100) Me.ComboBoxEdit1.Location = New System.Drawing.Point(177, 100)
Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1 Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1
Me.ComboBoxEdit1.Name = "ComboBoxEdit1" Me.ComboBoxEdit1.Name = "ComboBoxEdit1"
Me.ComboBoxEdit1.Properties.BestFitMode = DevExpress.XtraEditors.Controls.BestFitMode.BestFit Me.ComboBoxEdit1.Properties.BestFitMode = DevExpress.XtraEditors.Controls.BestFitMode.BestFit
@ -317,7 +320,7 @@ Partial Class frmAdmin_IDBAttribute
Me.ComboBoxEdit1.Properties.NullText = "" Me.ComboBoxEdit1.Properties.NullText = ""
Me.ComboBoxEdit1.Properties.PopupSizeable = False Me.ComboBoxEdit1.Properties.PopupSizeable = False
Me.ComboBoxEdit1.Properties.ValueMember = "GUID" Me.ComboBoxEdit1.Properties.ValueMember = "GUID"
Me.ComboBoxEdit1.Size = New System.Drawing.Size(706, 20) Me.ComboBoxEdit1.Size = New System.Drawing.Size(697, 20)
Me.ComboBoxEdit1.StyleController = Me.LayoutControl1 Me.ComboBoxEdit1.StyleController = Me.LayoutControl1
Me.ComboBoxEdit1.TabIndex = 14 Me.ComboBoxEdit1.TabIndex = 14
' '
@ -332,7 +335,7 @@ Partial Class frmAdmin_IDBAttribute
Me.Root.GroupBordersVisible = False Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem3, Me.LayoutControlItem11, Me.LayoutControlItem9, Me.LayoutControlItem5, Me.LayoutControlItem8, Me.LayoutControlItem10}) Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem3, Me.LayoutControlItem11, Me.LayoutControlItem9, Me.LayoutControlItem5, Me.LayoutControlItem8, Me.LayoutControlItem10})
Me.Root.Name = "Root" Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(894, 408) Me.Root.Size = New System.Drawing.Size(894, 407)
Me.Root.TextVisible = False Me.Root.TextVisible = False
' '
'LayoutControlItem1 'LayoutControlItem1
@ -361,7 +364,7 @@ Partial Class frmAdmin_IDBAttribute
' '
'LayoutControlItem4 'LayoutControlItem4
' '
Me.LayoutControlItem4.Control = Me.CheckEdit1 Me.LayoutControlItem4.Control = Me.CheckEditMulticontext
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 200) Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 200)
Me.LayoutControlItem4.Name = "LayoutControlItem4" Me.LayoutControlItem4.Name = "LayoutControlItem4"
Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
@ -422,7 +425,7 @@ Partial Class frmAdmin_IDBAttribute
Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 278) Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 278)
Me.LayoutControlItem9.Name = "LayoutControlItem9" Me.LayoutControlItem9.Name = "LayoutControlItem9"
Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem9.Size = New System.Drawing.Size(436, 110) Me.LayoutControlItem9.Size = New System.Drawing.Size(436, 109)
Me.LayoutControlItem9.Text = "Geändert Wer" Me.LayoutControlItem9.Text = "Geändert Wer"
Me.LayoutControlItem9.TextSize = New System.Drawing.Size(145, 13) Me.LayoutControlItem9.TextSize = New System.Drawing.Size(145, 13)
' '
@ -458,7 +461,7 @@ Partial Class frmAdmin_IDBAttribute
Me.LayoutControlItem10.Location = New System.Drawing.Point(436, 278) Me.LayoutControlItem10.Location = New System.Drawing.Point(436, 278)
Me.LayoutControlItem10.Name = "LayoutControlItem10" Me.LayoutControlItem10.Name = "LayoutControlItem10"
Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem10.Size = New System.Drawing.Size(438, 110) Me.LayoutControlItem10.Size = New System.Drawing.Size(438, 109)
Me.LayoutControlItem10.Text = "Geändert Wann" Me.LayoutControlItem10.Text = "Geändert Wann"
Me.LayoutControlItem10.TextSize = New System.Drawing.Size(145, 13) Me.LayoutControlItem10.TextSize = New System.Drawing.Size(145, 13)
' '
@ -470,6 +473,7 @@ Partial Class frmAdmin_IDBAttribute
Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing
Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing
Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Nothing
Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing
Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
@ -483,6 +487,13 @@ Partial Class frmAdmin_IDBAttribute
' '
Me.TBWH_ATTRIBUTE_TYPETableAdapter.ClearBeforeFill = True Me.TBWH_ATTRIBUTE_TYPETableAdapter.ClearBeforeFill = True
' '
'BarButtonItem4
'
Me.BarButtonItem4.Caption = "Löschen"
Me.BarButtonItem4.Id = 7
Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem4.Name = "BarButtonItem4"
'
'frmAdmin_IDBAttribute 'frmAdmin_IDBAttribute
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -504,7 +515,7 @@ Partial Class frmAdmin_IDBAttribute
CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CheckEditMulticontext.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
@ -546,7 +557,7 @@ Partial Class frmAdmin_IDBAttribute
Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten
Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager
Friend WithEvents CheckEdit1 As DevExpress.XtraEditors.CheckEdit Friend WithEvents CheckEditMulticontext As DevExpress.XtraEditors.CheckEdit
Friend WithEvents CheckEdit2 As DevExpress.XtraEditors.CheckEdit Friend WithEvents CheckEdit2 As DevExpress.XtraEditors.CheckEdit
Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
@ -569,4 +580,5 @@ Partial Class frmAdmin_IDBAttribute
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents TBWH_ATTRIBUTE_TYPEBindingSource As BindingSource Friend WithEvents TBWH_ATTRIBUTE_TYPEBindingSource As BindingSource
Friend WithEvents TBWH_ATTRIBUTE_TYPETableAdapter As DSIDB_StammdatenTableAdapters.TBWH_ATTRIBUTE_TYPETableAdapter Friend WithEvents TBWH_ATTRIBUTE_TYPETableAdapter As DSIDB_StammdatenTableAdapters.TBWH_ATTRIBUTE_TYPETableAdapter
Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
End Class End Class

25
GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.resx
View File

@ -120,7 +120,7 @@
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGkEAAAC77u/ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGkEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
@ -142,6 +142,29 @@
M0wyMi43LDhsLTIuNC0yLjQgICBjLTAuNC0wLjQtMC40LTEsMC0xLjNjMC40LTAuNCwxLTAuNCwxLjMs M0wyMi43LDhsLTIuNC0yLjQgICBjLTAuNC0wLjQtMC40LTEsMC0xLjNjMC40LTAuNCwxLTAuNCwxLjMs
MEwyNCw2LjdsMi40LTIuNGMwLjQtMC40LDEtMC40LDEuMywwYzAuNCwwLjQsMC40LDEsMCwxLjNMMjUu MEwyNCw2LjdsMi40LTIuNGMwLjQtMC40LDEtMC40LDEuMywwYzAuNCwwLjQsMC40LDEsMCwxLjNMMjUu
Myw4TDI3LjcsMTAuNHoiIGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs= Myw4TDI3LjcsMTAuNHoiIGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItem4.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJIDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRGVsZXRlIj4NCiAgICA8cGF0aCBk
PSJNMTguOCwxNmw4LjktOC45YzAuNC0wLjQsMC40LTEsMC0xLjRsLTEuNC0xLjRjLTAuNC0wLjQtMS0w
LjQtMS40LDBMMTYsMTMuMkw3LjEsNC4zYy0wLjQtMC40LTEtMC40LTEuNCwwICAgTDQuMyw1LjdjLTAu
NCwwLjQtMC40LDEsMCwxLjRsOC45LDguOWwtOC45LDguOWMtMC40LDAuNC0wLjQsMSwwLDEuNGwxLjQs
MS40YzAuNCwwLjQsMSwwLjQsMS40LDBsOC45LTguOWw4LjksOC45ICAgYzAuNCwwLjQsMSwwLjQsMS40
LDBsMS40LTEuNGMwLjQtMC40LDAuNC0xLDAtMS40TDE4LjgsMTZ6IiBjbGFzcz0iUmVkIiAvPg0KICA8
L2c+DQo8L3N2Zz4L
</value> </value>
</data> </data>
<metadata name="VWIDB_BE_ATTRIBUTEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="VWIDB_BE_ATTRIBUTEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

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

@ -20,7 +20,8 @@
TBWH_ATTRIBUTE_TYPETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString TBWH_ATTRIBUTE_TYPETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
TBWH_ATTRIBUTE_TYPETableAdapter.Fill(DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPE) TBWH_ATTRIBUTE_TYPETableAdapter.Fill(DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPE)
VWIDB_BE_ATTRIBUTETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString VWIDB_BE_ATTRIBUTETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
VWIDB_BE_ATTRIBUTETableAdapter.FillByAttributeId(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, PrimaryKey, 1) FillAttribute()
If IsInsert Then If IsInsert Then
VWIDB_BE_ATTRIBUTEBindingSource.AddNew() VWIDB_BE_ATTRIBUTEBindingSource.AddNew()
DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.ADDED_WHOColumn.DefaultValue = My.Application.User.UserName DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.ADDED_WHOColumn.DefaultValue = My.Application.User.UserName
@ -29,11 +30,14 @@
ShowErrorMessage(ex) ShowErrorMessage(ex)
End Try End Try
End Sub End Sub
Private Sub FillAttribute()
VWIDB_BE_ATTRIBUTETableAdapter.FillByAttributeId(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, PrimaryKey, 1)
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
ResetMessages() ResetMessages()
If SaveData() And HasChanges Then If SaveData() And HasChanges Then
ShowStatus("Attribute saved!") ShowStatus("Attribute saved!")
FillAttribute()
End If End If
End Sub End Sub
@ -73,7 +77,7 @@
If Not IsInsert Then If Not IsInsert Then
Dim oUpdate As String = $"UPDATE TBIDB_ATTRIBUTE " & Dim oUpdate As String = $"UPDATE TBIDB_ATTRIBUTE " &
$"SET TITLE = '{TextEdit2.Text}', TYP_ID = {ComboBoxEdit1.EditValue}, VIEW_SEQUENCE = {SpinEdit1.Value}, VIEW_VISIBLE = '{CheckEdit2.Checked}'" & $"SET TITLE = '{TextEdit2.Text}', TYP_ID = {ComboBoxEdit1.EditValue}, VIEW_SEQUENCE = {SpinEdit1.Value}, VIEW_VISIBLE = '{CheckEdit2.Checked}'" &
$", COMMENT = '{TextEdit3.Text}', CHANGED_WHO = '{My.Application.User.UserName}' " & $",MULTI_CONTEXT = '{CheckEditMulticontext.Checked}', COMMENT = '{TextEdit3.Text}', CHANGED_WHO = '{My.Application.User.UserName}' " &
$"WHERE (GUID = {TextEdit1.Text})" $"WHERE (GUID = {TextEdit1.Text})"
If My.DatabaseIDB.ExecuteNonQuery(oUpdate) = False Then If My.DatabaseIDB.ExecuteNonQuery(oUpdate) = False Then
@ -90,7 +94,7 @@
Return False Return False
End If End If
End If End If
VWIDB_BE_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE) ' VWIDB_BE_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE)
'End If 'End If
Return True Return True
@ -101,10 +105,13 @@
End Function End Function
Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData Public Function DeleteAttribute() As Boolean Implements IAdminForm.DeleteData
Try Try
'VWIDB_BE_ATTRIBUTETableAdapter.Delete(PrimaryKey) Dim oproc = $"EXEC PRIDB_DELETE_ATTRIBUTE {PrimaryKey}, '{My.Application.User.UserName}' "
If My.DatabaseIDB.ExecuteNonQuery(oproc) = True Then
Return True Return True
End If
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) ShowErrorMessage(ex)
Return False Return False
@ -112,8 +119,12 @@
End Function End Function
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
If MsgBox($"Wollen Sie das Attribut [{PrimaryKey}] wirklich löschen?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
If DeleteData() Then End Sub
Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
If MsgBox($"Do You really want to delete the attribute [{PrimaryKey}]? All Metadata related to the Attribute will be deleted!", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
If DeleteAttribute() Then
Close() Close()
End If End If
End If End If

3
GUIs.ZooFlow/Administration/frmAdmin_IDBObjectStore.Designer.vb generated
View File

@ -181,7 +181,7 @@ Partial Class frmAdmin_IDBObjectStore
' '
'CAT_TITLETextBox 'CAT_TITLETextBox
' '
Me.CAT_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_CATALOGBindingSource, "CAT_TITLE", True)) Me.CAT_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_CATALOGBindingSource, "CAT_STRING", True))
Me.CAT_TITLETextBox.Location = New System.Drawing.Point(308, 36) Me.CAT_TITLETextBox.Location = New System.Drawing.Point(308, 36)
Me.CAT_TITLETextBox.Name = "CAT_TITLETextBox" Me.CAT_TITLETextBox.Name = "CAT_TITLETextBox"
Me.CAT_TITLETextBox.Size = New System.Drawing.Size(924, 20) Me.CAT_TITLETextBox.Size = New System.Drawing.Size(924, 20)
@ -392,6 +392,7 @@ Partial Class frmAdmin_IDBObjectStore
Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing
Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing
Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Nothing
Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Me.TBIDB_OBJECT_STORETableAdapter Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Me.TBIDB_OBJECT_STORETableAdapter
Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete

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

@ -418,7 +418,7 @@ Partial Class frmAdmin_Start
Me.TreeListMenu.MenuManager = Me.RibbonControl1 Me.TreeListMenu.MenuManager = Me.RibbonControl1
Me.TreeListMenu.Name = "TreeListMenu" Me.TreeListMenu.Name = "TreeListMenu"
Me.TreeListMenu.BeginUnboundLoad() Me.TreeListMenu.BeginUnboundLoad()
Me.TreeListMenu.AppendNode(New Object() {"Entities"}, -1, "") Me.TreeListMenu.AppendNode(New Object() {"Configurations IM"}, -1, "")
Me.TreeListMenu.AppendNode(New Object() {"Attribute"}, 0, 2, 2, -1, "IDB_ATTRIBUTES") Me.TreeListMenu.AppendNode(New Object() {"Attribute"}, 0, 2, 2, -1, "IDB_ATTRIBUTES")
Me.TreeListMenu.AppendNode(New Object() {"Attribute Relations"}, 1, 9, 9, -1, "ATTRIBUTE_RELATIONS") Me.TreeListMenu.AppendNode(New Object() {"Attribute Relations"}, 1, 9, 9, -1, "ATTRIBUTE_RELATIONS")
Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_BUSINESS_ENTITIES") Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_BUSINESS_ENTITIES")
@ -506,6 +506,7 @@ Partial Class frmAdmin_Start
Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing
Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing
Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Nothing
Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing
Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete

13
GUIs.ZooFlow/ClassInit.vb
View File

@ -211,10 +211,19 @@ Public Class ClassInit
Try Try
Dim oSQL = "Select * FROM TBIDB_COMMON_SQL WHERE ACTIVE = 1" Dim oSQL = "Select * FROM TBIDB_COMMON_SQL WHERE ACTIVE = 1"
My.Tables.DTIDB_COMMON_SQL = My.Database.GetDatatable("TBIDB_COMMON_SQL", oSQL, EDMI.API.Constants.DatabaseType.IDB) My.Tables.DTIDB_COMMON_SQL = My.Database.GetDatatable("TBIDB_COMMON_SQL", oSQL, EDMI.API.Constants.DatabaseType.IDB)
oSQL = "Select * From VWIDB_BE_ATTRIBUTE Where LANG_CODE = '" + MyApplication.User.Language + "'"
My.Tables.DTIDB_ATTRIBUTE = My.Database.GetDatatable("VWIDB_BE_ATTRIBUTE", oSQL, EDMI.API.Constants.DatabaseType.IDB, "LANG_CODE = '" + MyApplication.User.Language + "'")
oSQL = $"SELECT * FROM TBIDB_CATALOG_USER WHERE USR_ID = {My.Application.User.UserId}"
My.Tables.DTIDB_CATALOG_USER = My.Database.GetDatatable("TBIDB_CATALOG_USER", oSQL, EDMI.API.Constants.DatabaseType.IDB, $"USR_ID = {My.Application.User.UserId}")
oSQL = $"Select * From VWIDB_BE_ATTRIBUTE Where LANG_CODE = '{MyApplication.User.Language}'"
My.Tables.DTIDB_ATTRIBUTE = My.Database.GetDatatable("VWIDB_BE_ATTRIBUTE", oSQL, EDMI.API.Constants.DatabaseType.IDB, $"LANG_CODE = '{MyApplication.User.Language}'")
For Each oRow As DataRow In My.Tables.DTIDB_COMMON_SQL.Rows
If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH_BASE Then
DocResultBaseSearch = oRow.Item("SQL_COMMAND")
DocResultBaseSearch = DocResultBaseSearch.Replace("@USER_ID", My.Application.User.UserId)
DocResultBaseSearch = DocResultBaseSearch.Replace("@LANG_CODE", My.Application.User.Language)
End If
Next
' My.Tables.DTIDB_ATTRIBUTE = My.Database.GetDatatableIDB("SELECT * From VWIDB_BE_ATTRIBUTE Where LANG_CODE = '" + MyApplication.User.Language + "'") ' My.Tables.DTIDB_ATTRIBUTE = My.Database.GetDatatableIDB("SELECT * From VWIDB_BE_ATTRIBUTE Where LANG_CODE = '" + MyApplication.User.Language + "'")
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)

136
GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb generated
View File

@ -1924,6 +1924,8 @@ Partial Public Class DSIDB_Stammdaten
Private columnSYS_ATTRIBUTE As Global.System.Data.DataColumn Private columnSYS_ATTRIBUTE As Global.System.Data.DataColumn
Private columnMULTI_CONTEXT As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub New() Public Sub New()
@ -2087,6 +2089,14 @@ Partial Public Class DSIDB_Stammdaten
End Get End Get
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property MULTI_CONTEXTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnMULTI_CONTEXT
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _ Global.System.ComponentModel.Browsable(false)> _
@ -2140,14 +2150,21 @@ Partial Public Class DSIDB_Stammdaten
ByVal ADDED_WHO As String, _ ByVal ADDED_WHO As String, _
ByVal CHANGED_WHEN As Date, _ ByVal CHANGED_WHEN As Date, _
ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHO As String, _
ByVal SYS_ATTRIBUTE As Boolean) As VWIDB_BE_ATTRIBUTERow ByVal SYS_ATTRIBUTE As Boolean, _
ByVal MULTI_CONTEXT As Boolean) As VWIDB_BE_ATTRIBUTERow
Dim rowVWIDB_BE_ATTRIBUTERow As VWIDB_BE_ATTRIBUTERow = CType(Me.NewRow,VWIDB_BE_ATTRIBUTERow) Dim rowVWIDB_BE_ATTRIBUTERow As VWIDB_BE_ATTRIBUTERow = CType(Me.NewRow,VWIDB_BE_ATTRIBUTERow)
Dim columnValuesArray() As Object = New Object() {BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VISIBLE, VIEW_SEQUENCE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, SYS_ATTRIBUTE} Dim columnValuesArray() As Object = New Object() {BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VISIBLE, VIEW_SEQUENCE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, SYS_ATTRIBUTE, MULTI_CONTEXT}
rowVWIDB_BE_ATTRIBUTERow.ItemArray = columnValuesArray rowVWIDB_BE_ATTRIBUTERow.ItemArray = columnValuesArray
Me.Rows.Add(rowVWIDB_BE_ATTRIBUTERow) Me.Rows.Add(rowVWIDB_BE_ATTRIBUTERow)
Return rowVWIDB_BE_ATTRIBUTERow Return rowVWIDB_BE_ATTRIBUTERow
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function FindByLANG_ID(ByVal LANG_ID As Byte) As VWIDB_BE_ATTRIBUTERow
Return CType(Me.Rows.Find(New Object() {LANG_ID}),VWIDB_BE_ATTRIBUTERow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataTable Public Overrides Function Clone() As Global.System.Data.DataTable
@ -2181,6 +2198,7 @@ Partial Public Class DSIDB_Stammdaten
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
Me.columnSYS_ATTRIBUTE = MyBase.Columns("SYS_ATTRIBUTE") Me.columnSYS_ATTRIBUTE = MyBase.Columns("SYS_ATTRIBUTE")
Me.columnMULTI_CONTEXT = MyBase.Columns("MULTI_CONTEXT")
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -2218,24 +2236,34 @@ Partial Public Class DSIDB_Stammdaten
MyBase.Columns.Add(Me.columnCHANGED_WHO) MyBase.Columns.Add(Me.columnCHANGED_WHO)
Me.columnSYS_ATTRIBUTE = New Global.System.Data.DataColumn("SYS_ATTRIBUTE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me.columnSYS_ATTRIBUTE = New Global.System.Data.DataColumn("SYS_ATTRIBUTE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSYS_ATTRIBUTE) MyBase.Columns.Add(Me.columnSYS_ATTRIBUTE)
Me.columnMULTI_CONTEXT = New Global.System.Data.DataColumn("MULTI_CONTEXT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnMULTI_CONTEXT)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnLANG_ID}, true))
Me.columnBE.MaxLength = 500 Me.columnBE.MaxLength = 500
Me.columnATTR_TITLE.AllowDBNull = false
Me.columnATTR_TITLE.MaxLength = 900 Me.columnATTR_TITLE.MaxLength = 900
Me.columnTYP_ID.AllowDBNull = false
Me.columnTYPE_ID.AllowDBNull = false
Me.columnTYPE_NAME.AllowDBNull = false
Me.columnTYPE_NAME.MaxLength = 100 Me.columnTYPE_NAME.MaxLength = 100
Me.columnVIEW_VISIBLE.AllowDBNull = false Me.columnVIEW_VISIBLE.AllowDBNull = false
Me.columnVIEW_VISIBLE.DefaultValue = CType(true,Boolean) Me.columnVIEW_VISIBLE.DefaultValue = CType(true,Boolean)
Me.columnVIEW_SEQUENCE.AllowDBNull = false Me.columnVIEW_SEQUENCE.AllowDBNull = false
Me.columnVIEW_SEQUENCE.DefaultValue = CType(1,Integer) Me.columnVIEW_SEQUENCE.DefaultValue = CType(1,Integer)
Me.columnLANG_ID.AllowDBNull = false Me.columnLANG_ID.AllowDBNull = false
Me.columnLANG_ID.Unique = true
Me.columnLANG_ID.DefaultValue = CType(1,Byte) Me.columnLANG_ID.DefaultValue = CType(1,Byte)
Me.columnLANG_CODE.AllowDBNull = false Me.columnLANG_CODE.AllowDBNull = false
Me.columnLANG_CODE.DefaultValue = CType("de-DE",String) Me.columnLANG_CODE.DefaultValue = CType("de-DE",String)
Me.columnLANG_CODE.MaxLength = 10 Me.columnLANG_CODE.MaxLength = 10
Me.columnADDED_WHEN.AllowDBNull = false
Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.DefaultValue = CType("",String) Me.columnADDED_WHO.DefaultValue = CType("",String)
Me.columnADDED_WHO.MaxLength = 30 Me.columnADDED_WHO.MaxLength = 30
Me.columnCHANGED_WHO.MaxLength = 30 Me.columnCHANGED_WHO.MaxLength = 30
Me.columnSYS_ATTRIBUTE.AllowDBNull = false Me.columnSYS_ATTRIBUTE.AllowDBNull = false
Me.columnSYS_ATTRIBUTE.DefaultValue = CType(false,Boolean) Me.columnSYS_ATTRIBUTE.DefaultValue = CType(false,Boolean)
Me.columnMULTI_CONTEXT.AllowDBNull = false
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -5543,11 +5571,7 @@ Partial Public Class DSIDB_Stammdaten
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property ATTR_TITLE() As String Public Property ATTR_TITLE() As String
Get Get
Try
Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn),String) Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_TITLE in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e)
End Try
End Get End Get
Set Set
Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn) = value Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn) = value
@ -5558,11 +5582,7 @@ Partial Public Class DSIDB_Stammdaten
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property TYP_ID() As Byte Public Property TYP_ID() As Byte
Get Get
Try
Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn),Byte) Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn),Byte)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYP_ID in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e)
End Try
End Get End Get
Set Set
Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn) = value Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn) = value
@ -5573,11 +5593,7 @@ Partial Public Class DSIDB_Stammdaten
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property TYPE_ID() As Byte Public Property TYPE_ID() As Byte
Get Get
Try
Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn),Byte) Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn),Byte)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYPE_ID in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e)
End Try
End Get End Get
Set Set
Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn) = value Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn) = value
@ -5588,11 +5604,7 @@ Partial Public Class DSIDB_Stammdaten
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property TYPE_NAME() As String Public Property TYPE_NAME() As String
Get Get
Try
Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn),String) Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYPE_NAME in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e)
End Try
End Get End Get
Set Set
Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn) = value Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn) = value
@ -5647,11 +5659,7 @@ Partial Public Class DSIDB_Stammdaten
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property ADDED_WHEN() As Date Public Property ADDED_WHEN() As Date
Get Get
Try
Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn),Date) Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e)
End Try
End Get End Get
Set Set
Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn) = value Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn) = value
@ -5710,6 +5718,17 @@ Partial Public Class DSIDB_Stammdaten
End Set End Set
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property MULTI_CONTEXT() As Boolean
Get
Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.MULTI_CONTEXTColumn),Boolean)
End Get
Set
Me(Me.tableVWIDB_BE_ATTRIBUTE.MULTI_CONTEXTColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsBE_IDNull() As Boolean Public Function IsBE_IDNull() As Boolean
@ -5746,66 +5765,6 @@ Partial Public Class DSIDB_Stammdaten
Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn) = Global.System.Convert.DBNull Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn) = Global.System.Convert.DBNull
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsATTR_TITLENull() As Boolean
Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetATTR_TITLENull()
Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsTYP_IDNull() As Boolean
Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetTYP_IDNull()
Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsTYPE_IDNull() As Boolean
Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetTYPE_IDNull()
Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsTYPE_NAMENull() As Boolean
Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetTYPE_NAMENull()
Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetADDED_WHENNull()
Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsCHANGED_WHENNull() As Boolean Public Function IsCHANGED_WHENNull() As Boolean
@ -8506,6 +8465,7 @@ Namespace DSIDB_StammdatenTableAdapters
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
tableMapping.ColumnMappings.Add("SYS_ATTRIBUTE", "SYS_ATTRIBUTE") tableMapping.ColumnMappings.Add("SYS_ATTRIBUTE", "SYS_ATTRIBUTE")
tableMapping.ColumnMappings.Add("MULTI_CONTEXT", "MULTI_CONTEXT")
Me._adapter.TableMappings.Add(tableMapping) Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.Connection = Me.Connection
@ -8552,14 +8512,18 @@ Namespace DSIDB_StammdatenTableAdapters
Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VI"& _ Me._commandCollection(0).CommandText = "SELECT BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VI"& _
"SIBLE, VIEW_SEQUENCE, SYS_ATTRIBUTE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, "& _ "SIBLE, VIEW_SEQUENCE, SYS_ATTRIBUTE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, "& _
"CHANGED_WHEN, CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_BE_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (LAN"& _ "CHANGED_WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" MULTI_CONTEXT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
"G_CODE = @LANG_CODE) AND (SYS_ATTRIBUTE = 0)" " VWIDB_BE_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (LANG_CODE = @LANG_CODE) AND (SYS_ATTRIBUT"& _
"E = 0)"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANG_CODE", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_CODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANG_CODE", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_CODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).Connection = Me.Connection
Me._commandCollection(1).CommandText = "SELECT VWIDB_BE_ATTRIBUTE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_BE_ATTRIBUTE WHERE ATTR"& _ Me._commandCollection(1).CommandText = "SELECT GUID, BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, V"& _
"_ID = @ATTRIBUTE_ID AND LANG_ID = @LANGUAGE_ID" "IEW_VISIBLE, MULTI_CONTEXT, VIEW_SEQUENCE, SYS_ATTRIBUTE, DEFAULT_SEARCH_ATTRIBU"& _
"TE, LANG_ID, LANG_CODE, ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ADDED_WHO, CHANGE"& _
"D_WHEN, CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_BE_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (ATTR_ID ="& _
" @ATTRIBUTE_ID) AND (LANG_ID = @LANGUAGE_ID)"
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTRIBUTE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTRIBUTE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))

57
GUIs.ZooFlow/DSIDB_Stammdaten.xsd
View File

@ -258,7 +258,8 @@ VALUES (@TITLE,@TYP_ID,@VIEW_SEQUENCE,@VIEW_VISIBLE,@ADDED_WHO)</CommandT
</InsertCommand> </InsertCommand>
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VISIBLE, VIEW_SEQUENCE, SYS_ATTRIBUTE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO <CommandText>SELECT BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VISIBLE, VIEW_SEQUENCE, SYS_ATTRIBUTE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO,
MULTI_CONTEXT
FROM VWIDB_BE_ATTRIBUTE FROM VWIDB_BE_ATTRIBUTE
WHERE (LANG_CODE = @LANG_CODE) AND (SYS_ATTRIBUTE = 0)</CommandText> WHERE (LANG_CODE = @LANG_CODE) AND (SYS_ATTRIBUTE = 0)</CommandText>
<Parameters> <Parameters>
@ -301,16 +302,19 @@ WHERE (GUID = @GUID)</CommandText>
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" /> <Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" /> <Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="SYS_ATTRIBUTE" DataSetColumn="SYS_ATTRIBUTE" /> <Mapping SourceColumn="SYS_ATTRIBUTE" DataSetColumn="SYS_ATTRIBUTE" />
<Mapping SourceColumn="MULTI_CONTEXT" DataSetColumn="MULTI_CONTEXT" />
</Mappings> </Mappings>
<Sources> <Sources>
<DbSource ConnectionRef="IDBConnectionStringDEFAULT (Settings)" DbObjectName="IDB_TEST.dbo.VWIDB_BE_ATTRIBUTE" DbObjectType="View" FillMethodModifier="Public" FillMethodName="FillByAttributeId" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetDataByAttributeId" GeneratorSourceName="FillByAttributeId" GetMethodModifier="Public" GetMethodName="GetDataByAttributeId" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataByAttributeId" UserSourceName="FillByAttributeId"> <DbSource ConnectionRef="IDBConnectionStringDEFAULT (Settings)" DbObjectName="IDB_TEST.dbo.VWIDB_BE_ATTRIBUTE" DbObjectType="View" FillMethodModifier="Public" FillMethodName="FillByAttributeId" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetDataByAttributeId" GeneratorSourceName="FillByAttributeId" GetMethodModifier="Public" GetMethodName="GetDataByAttributeId" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataByAttributeId" UserSourceName="FillByAttributeId">
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT VWIDB_BE_ATTRIBUTE.* <CommandText>SELECT GUID, BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VISIBLE, MULTI_CONTEXT, VIEW_SEQUENCE, SYS_ATTRIBUTE, DEFAULT_SEARCH_ATTRIBUTE, LANG_ID, LANG_CODE, ADDED_WHEN,
FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = @ATTRIBUTE_ID AND LANG_ID = @LANGUAGE_ID</CommandText> ADDED_WHO, CHANGED_WHEN, CHANGED_WHO
FROM VWIDB_BE_ATTRIBUTE
WHERE (ATTR_ID = @ATTRIBUTE_ID) AND (LANG_ID = @LANGUAGE_ID)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="ATTRIBUTE_ID" ColumnName="ATTR_ID" DataSourceName="IDB_TEST.dbo.VWIDB_BE_ATTRIBUTE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@ATTRIBUTE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="ATTR_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="ATTRIBUTE_ID" ColumnName="ATTR_ID" DataSourceName="IDB.dbo.VWIDB_BE_ATTRIBUTE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@ATTRIBUTE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="ATTR_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="LANGUAGE_ID" ColumnName="LANG_ID" DataSourceName="IDB_TEST.dbo.VWIDB_BE_ATTRIBUTE" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@LANGUAGE_ID" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="LANG_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="LANGUAGE_ID" ColumnName="LANG_ID" DataSourceName="IDB.dbo.VWIDB_BE_ATTRIBUTE" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@LANGUAGE_ID" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="LANG_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</SelectCommand> </SelectCommand>
@ -710,7 +714,7 @@ SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CH
<xs:element name="DSIDB_Stammdaten" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="DSIDB_Stammdaten" msprop:Generator_UserDSName="DSIDB_Stammdaten"> <xs:element name="DSIDB_Stammdaten" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="DSIDB_Stammdaten" msprop:Generator_UserDSName="DSIDB_Stammdaten">
<xs:complexType> <xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded"> <xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="TBIDB_BUSINESS_ENTITY" msprop:Generator_TableClassName="TBIDB_BUSINESS_ENTITYDataTable" msprop:Generator_TableVarName="tableTBIDB_BUSINESS_ENTITY" msprop:Generator_RowChangedName="TBIDB_BUSINESS_ENTITYRowChanged" msprop:Generator_TablePropName="TBIDB_BUSINESS_ENTITY" msprop:Generator_RowDeletingName="TBIDB_BUSINESS_ENTITYRowDeleting" msprop:Generator_RowChangingName="TBIDB_BUSINESS_ENTITYRowChanging" msprop:Generator_RowEvHandlerName="TBIDB_BUSINESS_ENTITYRowChangeEventHandler" msprop:Generator_RowDeletedName="TBIDB_BUSINESS_ENTITYRowDeleted" msprop:Generator_RowClassName="TBIDB_BUSINESS_ENTITYRow" msprop:Generator_UserTableName="TBIDB_BUSINESS_ENTITY" msprop:Generator_RowEvArgName="TBIDB_BUSINESS_ENTITYRowChangeEvent"> <xs:element name="TBIDB_BUSINESS_ENTITY" msprop:Generator_TableClassName="TBIDB_BUSINESS_ENTITYDataTable" msprop:Generator_TableVarName="tableTBIDB_BUSINESS_ENTITY" msprop:Generator_TablePropName="TBIDB_BUSINESS_ENTITY" msprop:Generator_RowDeletingName="TBIDB_BUSINESS_ENTITYRowDeleting" msprop:Generator_RowChangingName="TBIDB_BUSINESS_ENTITYRowChanging" msprop:Generator_RowEvHandlerName="TBIDB_BUSINESS_ENTITYRowChangeEventHandler" msprop:Generator_RowDeletedName="TBIDB_BUSINESS_ENTITYRowDeleted" msprop:Generator_UserTableName="TBIDB_BUSINESS_ENTITY" msprop:Generator_RowChangedName="TBIDB_BUSINESS_ENTITYRowChanged" msprop:Generator_RowEvArgName="TBIDB_BUSINESS_ENTITYRowChangeEvent" msprop:Generator_RowClassName="TBIDB_BUSINESS_ENTITYRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -749,7 +753,7 @@ SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CH
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="VWIDB_BE_ATTRIBUTE" msprop:Generator_TableClassName="VWIDB_BE_ATTRIBUTEDataTable" msprop:Generator_TableVarName="tableVWIDB_BE_ATTRIBUTE" msprop:Generator_TablePropName="VWIDB_BE_ATTRIBUTE" msprop:Generator_RowDeletingName="VWIDB_BE_ATTRIBUTERowDeleting" msprop:Generator_RowChangingName="VWIDB_BE_ATTRIBUTERowChanging" msprop:Generator_RowEvHandlerName="VWIDB_BE_ATTRIBUTERowChangeEventHandler" msprop:Generator_RowDeletedName="VWIDB_BE_ATTRIBUTERowDeleted" msprop:Generator_UserTableName="VWIDB_BE_ATTRIBUTE" msprop:Generator_RowChangedName="VWIDB_BE_ATTRIBUTERowChanged" msprop:Generator_RowEvArgName="VWIDB_BE_ATTRIBUTERowChangeEvent" msprop:Generator_RowClassName="VWIDB_BE_ATTRIBUTERow"> <xs:element name="VWIDB_BE_ATTRIBUTE" msprop:Generator_TableClassName="VWIDB_BE_ATTRIBUTEDataTable" msprop:Generator_TableVarName="tableVWIDB_BE_ATTRIBUTE" msprop:Generator_RowChangedName="VWIDB_BE_ATTRIBUTERowChanged" msprop:Generator_TablePropName="VWIDB_BE_ATTRIBUTE" msprop:Generator_RowDeletingName="VWIDB_BE_ATTRIBUTERowDeleting" msprop:Generator_RowChangingName="VWIDB_BE_ATTRIBUTERowChanging" msprop:Generator_RowEvHandlerName="VWIDB_BE_ATTRIBUTERowChangeEventHandler" msprop:Generator_RowDeletedName="VWIDB_BE_ATTRIBUTERowDeleted" msprop:Generator_RowClassName="VWIDB_BE_ATTRIBUTERow" msprop:Generator_UserTableName="VWIDB_BE_ATTRIBUTE" msprop:Generator_RowEvArgName="VWIDB_BE_ATTRIBUTERowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="BE_ID" msprop:Generator_ColumnVarNameInTable="columnBE_ID" msprop:Generator_ColumnPropNameInRow="BE_ID" msprop:Generator_ColumnPropNameInTable="BE_IDColumn" msprop:Generator_UserColumnName="BE_ID" type="xs:int" minOccurs="0" /> <xs:element name="BE_ID" msprop:Generator_ColumnVarNameInTable="columnBE_ID" msprop:Generator_ColumnPropNameInRow="BE_ID" msprop:Generator_ColumnPropNameInTable="BE_IDColumn" msprop:Generator_UserColumnName="BE_ID" type="xs:int" minOccurs="0" />
@ -761,16 +765,16 @@ SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CH
</xs:simpleType> </xs:simpleType>
</xs:element> </xs:element>
<xs:element name="ATTR_ID" msprop:Generator_ColumnVarNameInTable="columnATTR_ID" msprop:Generator_ColumnPropNameInRow="ATTR_ID" msprop:Generator_ColumnPropNameInTable="ATTR_IDColumn" msprop:Generator_UserColumnName="ATTR_ID" type="xs:int" minOccurs="0" /> <xs:element name="ATTR_ID" msprop:Generator_ColumnVarNameInTable="columnATTR_ID" msprop:Generator_ColumnPropNameInRow="ATTR_ID" msprop:Generator_ColumnPropNameInTable="ATTR_IDColumn" msprop:Generator_UserColumnName="ATTR_ID" type="xs:int" minOccurs="0" />
<xs:element name="ATTR_TITLE" msprop:Generator_ColumnVarNameInTable="columnATTR_TITLE" msprop:Generator_ColumnPropNameInRow="ATTR_TITLE" msprop:Generator_ColumnPropNameInTable="ATTR_TITLEColumn" msprop:Generator_UserColumnName="ATTR_TITLE" minOccurs="0"> <xs:element name="ATTR_TITLE" msprop:Generator_ColumnVarNameInTable="columnATTR_TITLE" msprop:Generator_ColumnPropNameInRow="ATTR_TITLE" msprop:Generator_ColumnPropNameInTable="ATTR_TITLEColumn" msprop:Generator_UserColumnName="ATTR_TITLE">
<xs:simpleType> <xs:simpleType>
<xs:restriction base="xs:string"> <xs:restriction base="xs:string">
<xs:maxLength value="900" /> <xs:maxLength value="900" />
</xs:restriction> </xs:restriction>
</xs:simpleType> </xs:simpleType>
</xs:element> </xs:element>
<xs:element name="TYP_ID" msprop:Generator_ColumnVarNameInTable="columnTYP_ID" msprop:Generator_ColumnPropNameInRow="TYP_ID" msprop:Generator_ColumnPropNameInTable="TYP_IDColumn" msprop:Generator_UserColumnName="TYP_ID" type="xs:unsignedByte" minOccurs="0" /> <xs:element name="TYP_ID" msprop:Generator_ColumnVarNameInTable="columnTYP_ID" msprop:Generator_ColumnPropNameInRow="TYP_ID" msprop:Generator_ColumnPropNameInTable="TYP_IDColumn" msprop:Generator_UserColumnName="TYP_ID" type="xs:unsignedByte" />
<xs:element name="TYPE_ID" msprop:Generator_ColumnVarNameInTable="columnTYPE_ID" msprop:Generator_ColumnPropNameInRow="TYPE_ID" msprop:Generator_ColumnPropNameInTable="TYPE_IDColumn" msprop:Generator_UserColumnName="TYPE_ID" type="xs:unsignedByte" minOccurs="0" /> <xs:element name="TYPE_ID" msprop:Generator_ColumnVarNameInTable="columnTYPE_ID" msprop:Generator_ColumnPropNameInRow="TYPE_ID" msprop:Generator_ColumnPropNameInTable="TYPE_IDColumn" msprop:Generator_UserColumnName="TYPE_ID" type="xs:unsignedByte" />
<xs:element name="TYPE_NAME" msprop:Generator_ColumnVarNameInTable="columnTYPE_NAME" msprop:Generator_ColumnPropNameInRow="TYPE_NAME" msprop:Generator_ColumnPropNameInTable="TYPE_NAMEColumn" msprop:Generator_UserColumnName="TYPE_NAME" minOccurs="0"> <xs:element name="TYPE_NAME" msprop:Generator_ColumnVarNameInTable="columnTYPE_NAME" msprop:Generator_ColumnPropNameInRow="TYPE_NAME" msprop:Generator_ColumnPropNameInTable="TYPE_NAMEColumn" msprop:Generator_UserColumnName="TYPE_NAME">
<xs:simpleType> <xs:simpleType>
<xs:restriction base="xs:string"> <xs:restriction base="xs:string">
<xs:maxLength value="100" /> <xs:maxLength value="100" />
@ -787,7 +791,7 @@ SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CH
</xs:restriction> </xs:restriction>
</xs:simpleType> </xs:simpleType>
</xs:element> </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="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO" default=""> <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" default="">
<xs:simpleType> <xs:simpleType>
<xs:restriction base="xs:string"> <xs:restriction base="xs:string">
@ -804,10 +808,11 @@ SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CH
</xs:simpleType> </xs:simpleType>
</xs:element> </xs:element>
<xs:element name="SYS_ATTRIBUTE" msprop:Generator_ColumnVarNameInTable="columnSYS_ATTRIBUTE" msprop:Generator_ColumnPropNameInRow="SYS_ATTRIBUTE" msprop:Generator_ColumnPropNameInTable="SYS_ATTRIBUTEColumn" msprop:Generator_UserColumnName="SYS_ATTRIBUTE" type="xs:boolean" default="false" /> <xs:element name="SYS_ATTRIBUTE" msprop:Generator_ColumnVarNameInTable="columnSYS_ATTRIBUTE" msprop:Generator_ColumnPropNameInRow="SYS_ATTRIBUTE" msprop:Generator_ColumnPropNameInTable="SYS_ATTRIBUTEColumn" msprop:Generator_UserColumnName="SYS_ATTRIBUTE" type="xs:boolean" default="false" />
<xs:element name="MULTI_CONTEXT" msprop:Generator_ColumnVarNameInTable="columnMULTI_CONTEXT" msprop:Generator_ColumnPropNameInRow="MULTI_CONTEXT" msprop:Generator_ColumnPropNameInTable="MULTI_CONTEXTColumn" msprop:Generator_UserColumnName="MULTI_CONTEXT" type="xs:boolean" />
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBIDB_ATTRIBUTE" msprop:Generator_TableClassName="TBIDB_ATTRIBUTEDataTable" msprop:Generator_TableVarName="tableTBIDB_ATTRIBUTE" msprop:Generator_RowChangedName="TBIDB_ATTRIBUTERowChanged" msprop:Generator_TablePropName="TBIDB_ATTRIBUTE" msprop:Generator_RowDeletingName="TBIDB_ATTRIBUTERowDeleting" msprop:Generator_RowChangingName="TBIDB_ATTRIBUTERowChanging" msprop:Generator_RowEvHandlerName="TBIDB_ATTRIBUTERowChangeEventHandler" msprop:Generator_RowDeletedName="TBIDB_ATTRIBUTERowDeleted" msprop:Generator_RowClassName="TBIDB_ATTRIBUTERow" msprop:Generator_UserTableName="TBIDB_ATTRIBUTE" msprop:Generator_RowEvArgName="TBIDB_ATTRIBUTERowChangeEvent"> <xs:element name="TBIDB_ATTRIBUTE" msprop:Generator_TableClassName="TBIDB_ATTRIBUTEDataTable" msprop:Generator_TableVarName="tableTBIDB_ATTRIBUTE" msprop:Generator_TablePropName="TBIDB_ATTRIBUTE" msprop:Generator_RowDeletingName="TBIDB_ATTRIBUTERowDeleting" msprop:Generator_RowChangingName="TBIDB_ATTRIBUTERowChanging" msprop:Generator_RowEvHandlerName="TBIDB_ATTRIBUTERowChangeEventHandler" msprop:Generator_RowDeletedName="TBIDB_ATTRIBUTERowDeleted" msprop:Generator_UserTableName="TBIDB_ATTRIBUTE" msprop:Generator_RowChangedName="TBIDB_ATTRIBUTERowChanged" msprop:Generator_RowEvArgName="TBIDB_ATTRIBUTERowChangeEvent" msprop:Generator_RowClassName="TBIDB_ATTRIBUTERow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -864,7 +869,7 @@ SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CH
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBIDB_ATTRIBUTE_TYPE" msprop:Generator_TableClassName="TBIDB_ATTRIBUTE_TYPEDataTable" msprop:Generator_TableVarName="tableTBIDB_ATTRIBUTE_TYPE" msprop:Generator_RowChangedName="TBIDB_ATTRIBUTE_TYPERowChanged" msprop:Generator_TablePropName="TBIDB_ATTRIBUTE_TYPE" msprop:Generator_RowDeletingName="TBIDB_ATTRIBUTE_TYPERowDeleting" msprop:Generator_RowChangingName="TBIDB_ATTRIBUTE_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBIDB_ATTRIBUTE_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBIDB_ATTRIBUTE_TYPERowDeleted" msprop:Generator_RowClassName="TBIDB_ATTRIBUTE_TYPERow" msprop:Generator_UserTableName="TBIDB_ATTRIBUTE_TYPE" msprop:Generator_RowEvArgName="TBIDB_ATTRIBUTE_TYPERowChangeEvent"> <xs:element name="TBIDB_ATTRIBUTE_TYPE" msprop:Generator_TableClassName="TBIDB_ATTRIBUTE_TYPEDataTable" msprop:Generator_TableVarName="tableTBIDB_ATTRIBUTE_TYPE" msprop:Generator_TablePropName="TBIDB_ATTRIBUTE_TYPE" msprop:Generator_RowDeletingName="TBIDB_ATTRIBUTE_TYPERowDeleting" msprop:Generator_RowChangingName="TBIDB_ATTRIBUTE_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBIDB_ATTRIBUTE_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBIDB_ATTRIBUTE_TYPERowDeleted" msprop:Generator_UserTableName="TBIDB_ATTRIBUTE_TYPE" msprop:Generator_RowChangedName="TBIDB_ATTRIBUTE_TYPERowChanged" msprop:Generator_RowEvArgName="TBIDB_ATTRIBUTE_TYPERowChangeEvent" msprop:Generator_RowClassName="TBIDB_ATTRIBUTE_TYPERow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:unsignedByte" /> <xs:element name="GUID" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:unsignedByte" />
@ -905,7 +910,7 @@ SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CH
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </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_RowChangedName="TBZF_ADMIN_SOURCE_SQLRowChanged" 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_RowClassName="TBZF_ADMIN_SOURCE_SQLRow" msprop:Generator_UserTableName="TBZF_ADMIN_SOURCE_SQL" msprop:Generator_RowEvArgName="TBZF_ADMIN_SOURCE_SQLRowChangeEvent"> <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:complexType>
<xs:sequence> <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="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" />
@ -971,7 +976,7 @@ SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CH
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBIDB_OBJECT_STORE" msprop:Generator_TableClassName="TBIDB_OBJECT_STOREDataTable" msprop:Generator_TableVarName="tableTBIDB_OBJECT_STORE" msprop:Generator_TablePropName="TBIDB_OBJECT_STORE" msprop:Generator_RowDeletingName="TBIDB_OBJECT_STORERowDeleting" msprop:Generator_RowChangingName="TBIDB_OBJECT_STORERowChanging" msprop:Generator_RowEvHandlerName="TBIDB_OBJECT_STORERowChangeEventHandler" msprop:Generator_RowDeletedName="TBIDB_OBJECT_STORERowDeleted" msprop:Generator_UserTableName="TBIDB_OBJECT_STORE" msprop:Generator_RowChangedName="TBIDB_OBJECT_STORERowChanged" msprop:Generator_RowEvArgName="TBIDB_OBJECT_STORERowChangeEvent" msprop:Generator_RowClassName="TBIDB_OBJECT_STORERow"> <xs:element name="TBIDB_OBJECT_STORE" msprop:Generator_TableClassName="TBIDB_OBJECT_STOREDataTable" msprop:Generator_TableVarName="tableTBIDB_OBJECT_STORE" msprop:Generator_RowChangedName="TBIDB_OBJECT_STORERowChanged" msprop:Generator_TablePropName="TBIDB_OBJECT_STORE" msprop:Generator_RowDeletingName="TBIDB_OBJECT_STORERowDeleting" msprop:Generator_RowChangingName="TBIDB_OBJECT_STORERowChanging" msprop:Generator_RowEvHandlerName="TBIDB_OBJECT_STORERowChangeEventHandler" msprop:Generator_RowDeletedName="TBIDB_OBJECT_STORERowDeleted" msprop:Generator_RowClassName="TBIDB_OBJECT_STORERow" msprop:Generator_UserTableName="TBIDB_OBJECT_STORE" msprop:Generator_RowEvArgName="TBIDB_OBJECT_STORERowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -1024,7 +1029,7 @@ SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CH
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBIDB_CATALOG" msprop:Generator_TableClassName="TBIDB_CATALOGDataTable" msprop:Generator_TableVarName="tableTBIDB_CATALOG" msprop:Generator_TablePropName="TBIDB_CATALOG" msprop:Generator_RowDeletingName="TBIDB_CATALOGRowDeleting" msprop:Generator_RowChangingName="TBIDB_CATALOGRowChanging" msprop:Generator_RowEvHandlerName="TBIDB_CATALOGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBIDB_CATALOGRowDeleted" msprop:Generator_UserTableName="TBIDB_CATALOG" msprop:Generator_RowChangedName="TBIDB_CATALOGRowChanged" msprop:Generator_RowEvArgName="TBIDB_CATALOGRowChangeEvent" msprop:Generator_RowClassName="TBIDB_CATALOGRow"> <xs:element name="TBIDB_CATALOG" msprop:Generator_TableClassName="TBIDB_CATALOGDataTable" msprop:Generator_TableVarName="tableTBIDB_CATALOG" msprop:Generator_RowChangedName="TBIDB_CATALOGRowChanged" msprop:Generator_TablePropName="TBIDB_CATALOG" msprop:Generator_RowDeletingName="TBIDB_CATALOGRowDeleting" msprop:Generator_RowChangingName="TBIDB_CATALOGRowChanging" msprop:Generator_RowEvHandlerName="TBIDB_CATALOGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBIDB_CATALOGRowDeleted" msprop:Generator_RowClassName="TBIDB_CATALOGRow" msprop:Generator_UserTableName="TBIDB_CATALOG" msprop:Generator_RowEvArgName="TBIDB_CATALOGRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -1061,7 +1066,7 @@ SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CH
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBWH_ATTRIBUTE_TYPE" msprop:Generator_TableClassName="TBWH_ATTRIBUTE_TYPEDataTable" msprop:Generator_TableVarName="tableTBWH_ATTRIBUTE_TYPE" msprop:Generator_RowChangedName="TBWH_ATTRIBUTE_TYPERowChanged" msprop:Generator_TablePropName="TBWH_ATTRIBUTE_TYPE" msprop:Generator_RowDeletingName="TBWH_ATTRIBUTE_TYPERowDeleting" msprop:Generator_RowChangingName="TBWH_ATTRIBUTE_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBWH_ATTRIBUTE_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_ATTRIBUTE_TYPERowDeleted" msprop:Generator_RowClassName="TBWH_ATTRIBUTE_TYPERow" msprop:Generator_UserTableName="TBWH_ATTRIBUTE_TYPE" msprop:Generator_RowEvArgName="TBWH_ATTRIBUTE_TYPERowChangeEvent"> <xs:element name="TBWH_ATTRIBUTE_TYPE" msprop:Generator_TableClassName="TBWH_ATTRIBUTE_TYPEDataTable" msprop:Generator_TableVarName="tableTBWH_ATTRIBUTE_TYPE" msprop:Generator_TablePropName="TBWH_ATTRIBUTE_TYPE" msprop:Generator_RowDeletingName="TBWH_ATTRIBUTE_TYPERowDeleting" msprop:Generator_RowChangingName="TBWH_ATTRIBUTE_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBWH_ATTRIBUTE_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_ATTRIBUTE_TYPERowDeleted" msprop:Generator_UserTableName="TBWH_ATTRIBUTE_TYPE" msprop:Generator_RowChangedName="TBWH_ATTRIBUTE_TYPERowChanged" msprop:Generator_RowEvArgName="TBWH_ATTRIBUTE_TYPERowChangeEvent" msprop:Generator_RowClassName="TBWH_ATTRIBUTE_TYPERow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:unsignedByte" /> <xs:element name="GUID" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:unsignedByte" />
@ -1075,7 +1080,7 @@ SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CH
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="VWIDB_OBJECT_STORE" msprop:Generator_TableClassName="VWIDB_OBJECT_STOREDataTable" msprop:Generator_TableVarName="tableVWIDB_OBJECT_STORE" msprop:Generator_TablePropName="VWIDB_OBJECT_STORE" msprop:Generator_RowDeletingName="VWIDB_OBJECT_STORERowDeleting" msprop:Generator_RowChangingName="VWIDB_OBJECT_STORERowChanging" msprop:Generator_RowEvHandlerName="VWIDB_OBJECT_STORERowChangeEventHandler" msprop:Generator_RowDeletedName="VWIDB_OBJECT_STORERowDeleted" msprop:Generator_UserTableName="VWIDB_OBJECT_STORE" msprop:Generator_RowChangedName="VWIDB_OBJECT_STORERowChanged" msprop:Generator_RowEvArgName="VWIDB_OBJECT_STORERowChangeEvent" msprop:Generator_RowClassName="VWIDB_OBJECT_STORERow"> <xs:element name="VWIDB_OBJECT_STORE" msprop:Generator_TableClassName="VWIDB_OBJECT_STOREDataTable" msprop:Generator_TableVarName="tableVWIDB_OBJECT_STORE" msprop:Generator_RowChangedName="VWIDB_OBJECT_STORERowChanged" msprop:Generator_TablePropName="VWIDB_OBJECT_STORE" msprop:Generator_RowDeletingName="VWIDB_OBJECT_STORERowDeleting" msprop:Generator_RowChangingName="VWIDB_OBJECT_STORERowChanging" msprop:Generator_RowEvHandlerName="VWIDB_OBJECT_STORERowChangeEventHandler" msprop:Generator_RowDeletedName="VWIDB_OBJECT_STORERowDeleted" msprop:Generator_RowClassName="VWIDB_OBJECT_STORERow" msprop:Generator_UserTableName="VWIDB_OBJECT_STORE" msprop:Generator_RowEvArgName="VWIDB_OBJECT_STORERowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -1113,7 +1118,7 @@ SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CH
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="VWIDB_DOCTYPES_DE" msprop:Generator_TableClassName="VWIDB_DOCTYPES_DEDataTable" msprop:Generator_TableVarName="tableVWIDB_DOCTYPES_DE" msprop:Generator_TablePropName="VWIDB_DOCTYPES_DE" msprop:Generator_RowDeletingName="VWIDB_DOCTYPES_DERowDeleting" msprop:Generator_RowChangingName="VWIDB_DOCTYPES_DERowChanging" msprop:Generator_RowEvHandlerName="VWIDB_DOCTYPES_DERowChangeEventHandler" msprop:Generator_RowDeletedName="VWIDB_DOCTYPES_DERowDeleted" msprop:Generator_UserTableName="VWIDB_DOCTYPES_DE" msprop:Generator_RowChangedName="VWIDB_DOCTYPES_DERowChanged" msprop:Generator_RowEvArgName="VWIDB_DOCTYPES_DERowChangeEvent" msprop:Generator_RowClassName="VWIDB_DOCTYPES_DERow"> <xs:element name="VWIDB_DOCTYPES_DE" msprop:Generator_TableClassName="VWIDB_DOCTYPES_DEDataTable" msprop:Generator_TableVarName="tableVWIDB_DOCTYPES_DE" msprop:Generator_RowChangedName="VWIDB_DOCTYPES_DERowChanged" msprop:Generator_TablePropName="VWIDB_DOCTYPES_DE" msprop:Generator_RowDeletingName="VWIDB_DOCTYPES_DERowDeleting" msprop:Generator_RowChangingName="VWIDB_DOCTYPES_DERowChanging" msprop:Generator_RowEvHandlerName="VWIDB_DOCTYPES_DERowChangeEventHandler" msprop:Generator_RowDeletedName="VWIDB_DOCTYPES_DERowDeleted" msprop:Generator_RowClassName="VWIDB_DOCTYPES_DERow" msprop:Generator_UserTableName="VWIDB_DOCTYPES_DE" msprop:Generator_RowEvArgName="VWIDB_DOCTYPES_DERowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="Doctype" msprop:Generator_ColumnVarNameInTable="columnDoctype" msprop:Generator_ColumnPropNameInRow="Doctype" msprop:Generator_ColumnPropNameInTable="DoctypeColumn" msprop:Generator_UserColumnName="Doctype"> <xs:element name="Doctype" msprop:Generator_ColumnVarNameInTable="columnDoctype" msprop:Generator_ColumnPropNameInRow="Doctype" msprop:Generator_ColumnPropNameInTable="DoctypeColumn" msprop:Generator_UserColumnName="Doctype">
@ -1126,7 +1131,7 @@ SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CH
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBIDB_DOCTYPE_HANDLING" msprop:Generator_TableClassName="TBIDB_DOCTYPE_HANDLINGDataTable" msprop:Generator_TableVarName="tableTBIDB_DOCTYPE_HANDLING" msprop:Generator_RowChangedName="TBIDB_DOCTYPE_HANDLINGRowChanged" msprop:Generator_TablePropName="TBIDB_DOCTYPE_HANDLING" msprop:Generator_RowDeletingName="TBIDB_DOCTYPE_HANDLINGRowDeleting" msprop:Generator_RowChangingName="TBIDB_DOCTYPE_HANDLINGRowChanging" msprop:Generator_RowEvHandlerName="TBIDB_DOCTYPE_HANDLINGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBIDB_DOCTYPE_HANDLINGRowDeleted" msprop:Generator_RowClassName="TBIDB_DOCTYPE_HANDLINGRow" msprop:Generator_UserTableName="TBIDB_DOCTYPE_HANDLING" msprop:Generator_RowEvArgName="TBIDB_DOCTYPE_HANDLINGRowChangeEvent"> <xs:element name="TBIDB_DOCTYPE_HANDLING" msprop:Generator_TableClassName="TBIDB_DOCTYPE_HANDLINGDataTable" msprop:Generator_TableVarName="tableTBIDB_DOCTYPE_HANDLING" msprop:Generator_TablePropName="TBIDB_DOCTYPE_HANDLING" msprop:Generator_RowDeletingName="TBIDB_DOCTYPE_HANDLINGRowDeleting" msprop:Generator_RowChangingName="TBIDB_DOCTYPE_HANDLINGRowChanging" msprop:Generator_RowEvHandlerName="TBIDB_DOCTYPE_HANDLINGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBIDB_DOCTYPE_HANDLINGRowDeleted" msprop:Generator_UserTableName="TBIDB_DOCTYPE_HANDLING" msprop:Generator_RowChangedName="TBIDB_DOCTYPE_HANDLINGRowChanged" msprop:Generator_RowEvArgName="TBIDB_DOCTYPE_HANDLINGRowChangeEvent" msprop:Generator_RowClassName="TBIDB_DOCTYPE_HANDLINGRow">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -1171,6 +1176,10 @@ SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CH
<xs:selector xpath=".//mstns:TBIDB_BUSINESS_ENTITY" /> <xs:selector xpath=".//mstns:TBIDB_BUSINESS_ENTITY" />
<xs:field xpath="mstns:GUID" /> <xs:field xpath="mstns:GUID" />
</xs:unique> </xs:unique>
<xs:unique name="VWIDB_BE_ATTRIBUTE_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:VWIDB_BE_ATTRIBUTE" />
<xs:field xpath="mstns:LANG_ID" />
</xs:unique>
<xs:unique name="TBIDB_ATTRIBUTE_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true"> <xs:unique name="TBIDB_ATTRIBUTE_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBIDB_ATTRIBUTE" /> <xs:selector xpath=".//mstns:TBIDB_ATTRIBUTE" />
<xs:field xpath="mstns:GUID" /> <xs:field xpath="mstns:GUID" />
@ -1206,9 +1215,9 @@ SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CH
</xs:element> </xs:element>
<xs:annotation> <xs:annotation>
<xs:appinfo> <xs:appinfo>
<msdata:Relationship name="FK_TYP_ID" msdata:parent="TBIDB_ATTRIBUTE_TYPE" msdata:child="TBIDB_ATTRIBUTE" msdata:parentkey="GUID" msdata:childkey="TYP_ID" msprop:Generator_UserChildTable="TBIDB_ATTRIBUTE" msprop:Generator_ChildPropName="GetTBIDB_ATTRIBUTERows" msprop:Generator_UserRelationName="FK_TYP_ID" msprop:Generator_ParentPropName="TBIDB_ATTRIBUTE_TYPERow" msprop:Generator_RelationVarName="relationFK_TYP_ID" msprop:Generator_UserParentTable="TBIDB_ATTRIBUTE_TYPE" /> <msdata:Relationship name="FK_TYP_ID" msdata:parent="TBIDB_ATTRIBUTE_TYPE" msdata:child="TBIDB_ATTRIBUTE" msdata:parentkey="GUID" msdata:childkey="TYP_ID" msprop:Generator_UserChildTable="TBIDB_ATTRIBUTE" msprop:Generator_ChildPropName="GetTBIDB_ATTRIBUTERows" msprop:Generator_UserRelationName="FK_TYP_ID" msprop:Generator_RelationVarName="relationFK_TYP_ID" msprop:Generator_UserParentTable="TBIDB_ATTRIBUTE_TYPE" msprop:Generator_ParentPropName="TBIDB_ATTRIBUTE_TYPERow" />
<msdata:Relationship name="FK_OS_CAT_ID" msdata:parent="TBIDB_CATALOG" msdata:child="TBIDB_OBJECT_STORE" msdata:parentkey="GUID" msdata:childkey="CAT_ID" msprop:Generator_UserChildTable="TBIDB_OBJECT_STORE" msprop:Generator_ChildPropName="GetTBIDB_OBJECT_STORERows" msprop:Generator_UserRelationName="FK_OS_CAT_ID" msprop:Generator_RelationVarName="relationFK_OS_CAT_ID" msprop:Generator_UserParentTable="TBIDB_CATALOG" msprop:Generator_ParentPropName="TBIDB_CATALOGRow" /> <msdata:Relationship name="FK_OS_CAT_ID" msdata:parent="TBIDB_CATALOG" msdata:child="TBIDB_OBJECT_STORE" msdata:parentkey="GUID" msdata:childkey="CAT_ID" msprop:Generator_UserChildTable="TBIDB_OBJECT_STORE" msprop:Generator_ChildPropName="GetTBIDB_OBJECT_STORERows" msprop:Generator_UserRelationName="FK_OS_CAT_ID" msprop:Generator_ParentPropName="TBIDB_CATALOGRow" msprop:Generator_RelationVarName="relationFK_OS_CAT_ID" msprop:Generator_UserParentTable="TBIDB_CATALOG" />
<msdata:Relationship name="FK_TBIDB_DOCTYPE_HANDLING_CHNGACT" msdata:parent="TBIDB_CATALOG" msdata:child="TBIDB_DOCTYPE_HANDLING" msdata:parentkey="GUID" msdata:childkey="CHANGED_ACTION" msprop:Generator_UserChildTable="TBIDB_DOCTYPE_HANDLING" msprop:Generator_ChildPropName="GetTBIDB_DOCTYPE_HANDLINGRows" msprop:Generator_UserRelationName="FK_TBIDB_DOCTYPE_HANDLING_CHNGACT" msprop:Generator_RelationVarName="relationFK_TBIDB_DOCTYPE_HANDLING_CHNGACT" msprop:Generator_UserParentTable="TBIDB_CATALOG" msprop:Generator_ParentPropName="TBIDB_CATALOGRow" /> <msdata:Relationship name="FK_TBIDB_DOCTYPE_HANDLING_CHNGACT" msdata:parent="TBIDB_CATALOG" msdata:child="TBIDB_DOCTYPE_HANDLING" msdata:parentkey="GUID" msdata:childkey="CHANGED_ACTION" msprop:Generator_UserChildTable="TBIDB_DOCTYPE_HANDLING" msprop:Generator_ChildPropName="GetTBIDB_DOCTYPE_HANDLINGRows" msprop:Generator_UserRelationName="FK_TBIDB_DOCTYPE_HANDLING_CHNGACT" msprop:Generator_ParentPropName="TBIDB_CATALOGRow" msprop:Generator_RelationVarName="relationFK_TBIDB_DOCTYPE_HANDLING_CHNGACT" msprop:Generator_UserParentTable="TBIDB_CATALOG" />
</xs:appinfo> </xs:appinfo>
</xs:annotation> </xs:annotation>
</xs:schema> </xs:schema>

2
GUIs.ZooFlow/DSIDB_Stammdaten.xss
View File

@ -4,7 +4,7 @@
Changes to this file may cause incorrect behavior and will be lost if Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated. the code is regenerated.
</autogenerated>--> </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="-27" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout"> <DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="52" ViewPortY="-27" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes> <Shapes>
<Shape ID="DesignTable:TBIDB_BUSINESS_ENTITY" ZOrder="14" X="48" Y="40" Height="248" Width="291" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" /> <Shape ID="DesignTable:TBIDB_BUSINESS_ENTITY" ZOrder="14" X="48" Y="40" Height="248" Width="291" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBIDB_ATTRIBUTE" ZOrder="12" X="359" Y="42" Height="305" Width="251" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBIDB_ATTRIBUTE" ZOrder="12" X="359" Y="42" Height="305" Width="251" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />

2
GUIs.ZooFlow/My Project/AssemblyInfo.vb
View File

@ -33,4 +33,4 @@ Imports System.Runtime.InteropServices
' by using the '*' as shown below: ' by using the '*' as shown below:
' [assembly: AssemblyVersion("1.0.*")] ' [assembly: AssemblyVersion("1.0.*")]
<Assembly: AssemblyVersion("0.0.4.0")> <Assembly: AssemblyVersion("0.0.4.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.1.0.2")>

1
GUIs.ZooFlow/Queries/ClassTables.vb
View File

@ -1,5 +1,6 @@
Public Class ClassTables Public Class ClassTables
Property DTIDB_ATTRIBUTE As DataTable Property DTIDB_ATTRIBUTE As DataTable
Property DTIDB_CATALOG_USER As DataTable
Property DTIDB_COMMON_SQL As DataTable Property DTIDB_COMMON_SQL As DataTable
Property DTIDB_FILESTORE As DataTable Property DTIDB_FILESTORE As DataTable
Property DTIDB_DOC_DATA As DataTable Property DTIDB_DOC_DATA As DataTable

347
GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb generated
View File

@ -30,57 +30,57 @@ Partial Class frmFlowSearch1
Me.bsiStatus = New DevExpress.XtraBars.BarStaticItem() Me.bsiStatus = New DevExpress.XtraBars.BarStaticItem()
Me.BarSubItem1 = New DevExpress.XtraBars.BarSubItem() Me.BarSubItem1 = New DevExpress.XtraBars.BarSubItem()
Me.BarListItem1 = New DevExpress.XtraBars.BarListItem() Me.BarListItem1 = New DevExpress.XtraBars.BarListItem()
Me.BarToggleSwitchItemTerm = New DevExpress.XtraBars.BarToggleSwitchItem()
Me.BarToggleSwitchItemFulltext = New DevExpress.XtraBars.BarToggleSwitchItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager(Me.components) Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager(Me.components)
Me.DockPanel1 = New DevExpress.XtraBars.Docking.DockPanel() Me.DockPanel1 = New DevExpress.XtraBars.Docking.DockPanel()
Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer() Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
Me.DateEditTill = New DevExpress.XtraEditors.DateEdit()
Me.ToggleSwitchMonth_Last = New DevExpress.XtraEditors.ToggleSwitch() Me.ToggleSwitchMonth_Last = New DevExpress.XtraEditors.ToggleSwitch()
Me.ToggleSwitchDateto = New DevExpress.XtraEditors.ToggleSwitch()
Me.lblDatefrom = New DevExpress.XtraEditors.LabelControl()
Me.DateEditFrom = New DevExpress.XtraEditors.DateEdit()
Me.ToggleSwitchMonth = New DevExpress.XtraEditors.ToggleSwitch() Me.ToggleSwitchMonth = New DevExpress.XtraEditors.ToggleSwitch()
Me.ToggleSwitchTomorrow = New DevExpress.XtraEditors.ToggleSwitch() Me.ToggleSwitchTomorrow = New DevExpress.XtraEditors.ToggleSwitch()
Me.ToggleSwitchToday = New DevExpress.XtraEditors.ToggleSwitch()
Me.ToggleSwitchLastWeek = New DevExpress.XtraEditors.ToggleSwitch() Me.ToggleSwitchLastWeek = New DevExpress.XtraEditors.ToggleSwitch()
Me.ToggleSwitchYesterday = New DevExpress.XtraEditors.ToggleSwitch()
Me.ToggleSwitchYear_Last = New DevExpress.XtraEditors.ToggleSwitch() Me.ToggleSwitchYear_Last = New DevExpress.XtraEditors.ToggleSwitch()
Me.ToggleSwitchYear = New DevExpress.XtraEditors.ToggleSwitch() Me.ToggleSwitchYear = New DevExpress.XtraEditors.ToggleSwitch()
Me.ToggleSwitchYesterday = New DevExpress.XtraEditors.ToggleSwitch() Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
Me.ToggleSwitchToday = New DevExpress.XtraEditors.ToggleSwitch()
Me.cmbLimitationDateAttr = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.cmbLimitationDateAttr = New System.Windows.Forms.ComboBox()
Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl() Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
Me.txtSearchInput = New System.Windows.Forms.TextBox() Me.txtSearchInput = New System.Windows.Forms.TextBox()
Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit() Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.BarToggleSwitchItemTerm = New DevExpress.XtraBars.BarToggleSwitchItem()
Me.BarToggleSwitchItemFulltext = New DevExpress.XtraBars.BarToggleSwitchItem()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
Me.ToggleSwitch1 = New DevExpress.XtraEditors.ToggleSwitch()
Me.DateEdit1 = New DevExpress.XtraEditors.DateEdit()
Me.DateEditBis = New DevExpress.XtraEditors.DateEdit()
Me.lblDatefrom = New DevExpress.XtraEditors.LabelControl()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.DockPanel1.SuspendLayout() Me.DockPanel1.SuspendLayout()
Me.DockPanel1_Container.SuspendLayout() Me.DockPanel1_Container.SuspendLayout()
CType(Me.ToggleSwitchMonth_Last.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchMonth.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchTomorrow.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchLastWeek.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchYesterday.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchToday.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout() Me.XtraTabControl1.SuspendLayout()
Me.XtraTabPage1.SuspendLayout() Me.XtraTabPage1.SuspendLayout()
CType(Me.ToggleSwitch1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DateEditTill.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DateEditTill.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ToggleSwitchMonth_Last.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DateEditBis.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ToggleSwitchDateto.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DateEditBis.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DateEditFrom.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DateEditFrom.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchMonth.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchTomorrow.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchToday.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchLastWeek.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchYesterday.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'RibbonControl1 'RibbonControl1
@ -128,6 +128,21 @@ Partial Class frmFlowSearch1
Me.BarListItem1.Id = 5 Me.BarListItem1.Id = 5
Me.BarListItem1.Name = "BarListItem1" Me.BarListItem1.Name = "BarListItem1"
' '
'BarToggleSwitchItemTerm
'
Me.BarToggleSwitchItemTerm.BindableChecked = True
Me.BarToggleSwitchItemTerm.Caption = "Suche nach Term"
Me.BarToggleSwitchItemTerm.Checked = True
Me.BarToggleSwitchItemTerm.Id = 6
Me.BarToggleSwitchItemTerm.Name = "BarToggleSwitchItemTerm"
'
'BarToggleSwitchItemFulltext
'
Me.BarToggleSwitchItemFulltext.Caption = "Volltext inkludieren"
Me.BarToggleSwitchItemFulltext.Enabled = False
Me.BarToggleSwitchItemFulltext.Id = 7
Me.BarToggleSwitchItemFulltext.Name = "BarToggleSwitchItemFulltext"
'
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1})
@ -141,6 +156,14 @@ Partial Class frmFlowSearch1
Me.RibbonPageGroup2.Name = "RibbonPageGroup2" Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "Suchfunktionen" Me.RibbonPageGroup2.Text = "Suchfunktionen"
' '
'RibbonPageGroup1
'
Me.RibbonPageGroup1.AllowTextClipping = False
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemTerm)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemFulltext)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Suchvarianten"
'
'RibbonStatusBar1 'RibbonStatusBar1
' '
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiStatus) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiStatus)
@ -184,6 +207,49 @@ Partial Class frmFlowSearch1
Me.DockPanel1_Container.Size = New System.Drawing.Size(218, 536) Me.DockPanel1_Container.Size = New System.Drawing.Size(218, 536)
Me.DockPanel1_Container.TabIndex = 0 Me.DockPanel1_Container.TabIndex = 0
' '
'XtraTabControl1
'
Me.XtraTabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.XtraTabControl1.HeaderLocation = DevExpress.XtraTab.TabHeaderLocation.Bottom
Me.XtraTabControl1.Location = New System.Drawing.Point(6, 43)
Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
Me.XtraTabControl1.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True]
Me.XtraTabControl1.Size = New System.Drawing.Size(203, 490)
Me.XtraTabControl1.TabIndex = 10
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
'
'XtraTabPage1
'
Me.XtraTabPage1.Controls.Add(Me.DateEditTill)
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchMonth_Last)
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchDateto)
Me.XtraTabPage1.Controls.Add(Me.lblDatefrom)
Me.XtraTabPage1.Controls.Add(Me.DateEditFrom)
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchMonth)
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchTomorrow)
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchToday)
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchLastWeek)
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYesterday)
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYear_Last)
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYear)
Me.XtraTabPage1.Name = "XtraTabPage1"
Me.XtraTabPage1.Size = New System.Drawing.Size(201, 467)
Me.XtraTabPage1.Text = "Standard"
'
'DateEditTill
'
Me.DateEditTill.EditValue = Nothing
Me.DateEditTill.Location = New System.Drawing.Point(3, 281)
Me.DateEditTill.MenuManager = Me.RibbonControl1
Me.DateEditTill.Name = "DateEditTill"
Me.DateEditTill.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.DateEditTill.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.DateEditTill.Size = New System.Drawing.Size(117, 20)
Me.DateEditTill.TabIndex = 2
'
'ToggleSwitchMonth_Last 'ToggleSwitchMonth_Last
' '
Me.ToggleSwitchMonth_Last.Location = New System.Drawing.Point(3, 155) Me.ToggleSwitchMonth_Last.Location = New System.Drawing.Point(3, 155)
@ -194,6 +260,37 @@ Partial Class frmFlowSearch1
Me.ToggleSwitchMonth_Last.Size = New System.Drawing.Size(132, 19) Me.ToggleSwitchMonth_Last.Size = New System.Drawing.Size(132, 19)
Me.ToggleSwitchMonth_Last.TabIndex = 9 Me.ToggleSwitchMonth_Last.TabIndex = 9
' '
'ToggleSwitchDateto
'
Me.ToggleSwitchDateto.Location = New System.Drawing.Point(3, 256)
Me.ToggleSwitchDateto.MenuManager = Me.RibbonControl1
Me.ToggleSwitchDateto.Name = "ToggleSwitchDateto"
Me.ToggleSwitchDateto.Properties.OffText = "Datum bis"
Me.ToggleSwitchDateto.Properties.OnText = "Datum bis"
Me.ToggleSwitchDateto.Size = New System.Drawing.Size(122, 19)
Me.ToggleSwitchDateto.TabIndex = 0
'
'lblDatefrom
'
Me.lblDatefrom.Location = New System.Drawing.Point(3, 211)
Me.lblDatefrom.Name = "lblDatefrom"
Me.lblDatefrom.Size = New System.Drawing.Size(34, 13)
Me.lblDatefrom.TabIndex = 3
Me.lblDatefrom.Text = "Datum"
'
'DateEditFrom
'
Me.DateEditFrom.EditValue = Nothing
Me.DateEditFrom.Location = New System.Drawing.Point(3, 230)
Me.DateEditFrom.MenuManager = Me.RibbonControl1
Me.DateEditFrom.Name = "DateEditFrom"
Me.DateEditFrom.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.DateEditFrom.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.DateEditFrom.Properties.CalendarView = DevExpress.XtraEditors.Repository.CalendarView.ClassicNew
Me.DateEditFrom.Properties.VistaDisplayMode = DevExpress.Utils.DefaultBoolean.[False]
Me.DateEditFrom.Size = New System.Drawing.Size(117, 20)
Me.DateEditFrom.TabIndex = 1
'
'ToggleSwitchMonth 'ToggleSwitchMonth
' '
Me.ToggleSwitchMonth.Location = New System.Drawing.Point(3, 130) Me.ToggleSwitchMonth.Location = New System.Drawing.Point(3, 130)
@ -215,6 +312,16 @@ Partial Class frmFlowSearch1
Me.ToggleSwitchTomorrow.TabIndex = 7 Me.ToggleSwitchTomorrow.TabIndex = 7
Me.ToggleSwitchTomorrow.Visible = False Me.ToggleSwitchTomorrow.Visible = False
' '
'ToggleSwitchToday
'
Me.ToggleSwitchToday.Location = New System.Drawing.Point(3, 3)
Me.ToggleSwitchToday.MenuManager = Me.RibbonControl1
Me.ToggleSwitchToday.Name = "ToggleSwitchToday"
Me.ToggleSwitchToday.Properties.OffText = "Heute"
Me.ToggleSwitchToday.Properties.OnText = "On"
Me.ToggleSwitchToday.Size = New System.Drawing.Size(95, 19)
Me.ToggleSwitchToday.TabIndex = 2
'
'ToggleSwitchLastWeek 'ToggleSwitchLastWeek
' '
Me.ToggleSwitchLastWeek.Location = New System.Drawing.Point(3, 53) Me.ToggleSwitchLastWeek.Location = New System.Drawing.Point(3, 53)
@ -225,6 +332,16 @@ Partial Class frmFlowSearch1
Me.ToggleSwitchLastWeek.Size = New System.Drawing.Size(132, 19) Me.ToggleSwitchLastWeek.Size = New System.Drawing.Size(132, 19)
Me.ToggleSwitchLastWeek.TabIndex = 6 Me.ToggleSwitchLastWeek.TabIndex = 6
' '
'ToggleSwitchYesterday
'
Me.ToggleSwitchYesterday.Location = New System.Drawing.Point(3, 28)
Me.ToggleSwitchYesterday.MenuManager = Me.RibbonControl1
Me.ToggleSwitchYesterday.Name = "ToggleSwitchYesterday"
Me.ToggleSwitchYesterday.Properties.OffText = "Gestern"
Me.ToggleSwitchYesterday.Properties.OnText = "Gestern"
Me.ToggleSwitchYesterday.Size = New System.Drawing.Size(95, 19)
Me.ToggleSwitchYesterday.TabIndex = 3
'
'ToggleSwitchYear_Last 'ToggleSwitchYear_Last
' '
Me.ToggleSwitchYear_Last.Location = New System.Drawing.Point(3, 105) Me.ToggleSwitchYear_Last.Location = New System.Drawing.Point(3, 105)
@ -245,33 +362,11 @@ Partial Class frmFlowSearch1
Me.ToggleSwitchYear.Size = New System.Drawing.Size(132, 19) Me.ToggleSwitchYear.Size = New System.Drawing.Size(132, 19)
Me.ToggleSwitchYear.TabIndex = 4 Me.ToggleSwitchYear.TabIndex = 4
' '
'ToggleSwitchYesterday 'XtraTabPage2
' '
Me.ToggleSwitchYesterday.Location = New System.Drawing.Point(3, 28) Me.XtraTabPage2.Name = "XtraTabPage2"
Me.ToggleSwitchYesterday.MenuManager = Me.RibbonControl1 Me.XtraTabPage2.Size = New System.Drawing.Size(201, 467)
Me.ToggleSwitchYesterday.Name = "ToggleSwitchYesterday" Me.XtraTabPage2.Text = "...tbd"
Me.ToggleSwitchYesterday.Properties.OffText = "Gestern"
Me.ToggleSwitchYesterday.Properties.OnText = "Gestern"
Me.ToggleSwitchYesterday.Size = New System.Drawing.Size(95, 19)
Me.ToggleSwitchYesterday.TabIndex = 3
'
'ToggleSwitchToday
'
Me.ToggleSwitchToday.Location = New System.Drawing.Point(3, 3)
Me.ToggleSwitchToday.MenuManager = Me.RibbonControl1
Me.ToggleSwitchToday.Name = "ToggleSwitchToday"
Me.ToggleSwitchToday.Properties.OffText = "Heute"
Me.ToggleSwitchToday.Properties.OnText = "On"
Me.ToggleSwitchToday.Size = New System.Drawing.Size(95, 19)
Me.ToggleSwitchToday.TabIndex = 2
'
'cmbLimitationDateAttr
'
Me.cmbLimitationDateAttr.FormattingEnabled = True
Me.cmbLimitationDateAttr.Location = New System.Drawing.Point(6, 16)
Me.cmbLimitationDateAttr.Name = "cmbLimitationDateAttr"
Me.cmbLimitationDateAttr.Size = New System.Drawing.Size(178, 21)
Me.cmbLimitationDateAttr.TabIndex = 1
' '
'Label1 'Label1
' '
@ -282,6 +377,14 @@ Partial Class frmFlowSearch1
Me.Label1.TabIndex = 0 Me.Label1.TabIndex = 0
Me.Label1.Text = "Attribut" Me.Label1.Text = "Attribut"
' '
'cmbLimitationDateAttr
'
Me.cmbLimitationDateAttr.FormattingEnabled = True
Me.cmbLimitationDateAttr.Location = New System.Drawing.Point(6, 16)
Me.cmbLimitationDateAttr.Name = "cmbLimitationDateAttr"
Me.cmbLimitationDateAttr.Size = New System.Drawing.Size(178, 21)
Me.cmbLimitationDateAttr.TabIndex = 1
'
'LabelControl1 'LabelControl1
' '
Me.LabelControl1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LabelControl1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@ -309,115 +412,13 @@ Partial Class frmFlowSearch1
Me.PictureEdit1.Location = New System.Drawing.Point(231, 224) Me.PictureEdit1.Location = New System.Drawing.Point(231, 224)
Me.PictureEdit1.MenuManager = Me.RibbonControl1 Me.PictureEdit1.MenuManager = Me.RibbonControl1
Me.PictureEdit1.Name = "PictureEdit1" Me.PictureEdit1.Name = "PictureEdit1"
Me.PictureEdit1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
Me.PictureEdit1.Properties.PictureAlignment = System.Drawing.ContentAlignment.BottomRight Me.PictureEdit1.Properties.PictureAlignment = System.Drawing.ContentAlignment.BottomRight
Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto] Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
Me.PictureEdit1.Properties.ZoomPercent = 300.0R Me.PictureEdit1.Properties.ZoomPercent = 300.0R
Me.PictureEdit1.Size = New System.Drawing.Size(693, 517) Me.PictureEdit1.Size = New System.Drawing.Size(693, 517)
Me.PictureEdit1.TabIndex = 8 Me.PictureEdit1.TabIndex = 8
' '
'RibbonPageGroup1
'
Me.RibbonPageGroup1.AllowTextClipping = False
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemTerm)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemFulltext)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Suchvarianten"
'
'BarToggleSwitchItemTerm
'
Me.BarToggleSwitchItemTerm.BindableChecked = True
Me.BarToggleSwitchItemTerm.Caption = "Suche nach Term"
Me.BarToggleSwitchItemTerm.Checked = True
Me.BarToggleSwitchItemTerm.Id = 6
Me.BarToggleSwitchItemTerm.Name = "BarToggleSwitchItemTerm"
'
'BarToggleSwitchItemFulltext
'
Me.BarToggleSwitchItemFulltext.Caption = "Volltext"
Me.BarToggleSwitchItemFulltext.Id = 7
Me.BarToggleSwitchItemFulltext.Name = "BarToggleSwitchItemFulltext"
'
'XtraTabControl1
'
Me.XtraTabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.XtraTabControl1.HeaderLocation = DevExpress.XtraTab.TabHeaderLocation.Bottom
Me.XtraTabControl1.Location = New System.Drawing.Point(6, 43)
Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
Me.XtraTabControl1.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True]
Me.XtraTabControl1.Size = New System.Drawing.Size(203, 490)
Me.XtraTabControl1.TabIndex = 10
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
'
'XtraTabPage1
'
Me.XtraTabPage1.Controls.Add(Me.DateEditBis)
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchMonth_Last)
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitch1)
Me.XtraTabPage1.Controls.Add(Me.lblDatefrom)
Me.XtraTabPage1.Controls.Add(Me.DateEdit1)
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchMonth)
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchTomorrow)
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchToday)
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchLastWeek)
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYesterday)
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYear_Last)
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYear)
Me.XtraTabPage1.Name = "XtraTabPage1"
Me.XtraTabPage1.Size = New System.Drawing.Size(201, 467)
Me.XtraTabPage1.Text = "Standard"
'
'XtraTabPage2
'
Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(201, 467)
Me.XtraTabPage2.Text = "Explizit"
'
'ToggleSwitch1
'
Me.ToggleSwitch1.Location = New System.Drawing.Point(3, 256)
Me.ToggleSwitch1.MenuManager = Me.RibbonControl1
Me.ToggleSwitch1.Name = "ToggleSwitch1"
Me.ToggleSwitch1.Properties.OffText = "Datum bis"
Me.ToggleSwitch1.Properties.OnText = "Datum bis"
Me.ToggleSwitch1.Size = New System.Drawing.Size(122, 19)
Me.ToggleSwitch1.TabIndex = 0
'
'DateEdit1
'
Me.DateEdit1.EditValue = Nothing
Me.DateEdit1.Location = New System.Drawing.Point(3, 230)
Me.DateEdit1.MenuManager = Me.RibbonControl1
Me.DateEdit1.Name = "DateEdit1"
Me.DateEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.DateEdit1.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.DateEdit1.Properties.CalendarView = DevExpress.XtraEditors.Repository.CalendarView.ClassicNew
Me.DateEdit1.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.Standard
Me.DateEdit1.Properties.VistaDisplayMode = DevExpress.Utils.DefaultBoolean.[False]
Me.DateEdit1.Size = New System.Drawing.Size(117, 20)
Me.DateEdit1.TabIndex = 1
'
'DateEditBis
'
Me.DateEditBis.EditValue = Nothing
Me.DateEditBis.Location = New System.Drawing.Point(3, 281)
Me.DateEditBis.MenuManager = Me.RibbonControl1
Me.DateEditBis.Name = "DateEditBis"
Me.DateEditBis.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.DateEditBis.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.DateEditBis.Size = New System.Drawing.Size(117, 20)
Me.DateEditBis.TabIndex = 2
'
'lblDatefrom
'
Me.lblDatefrom.Location = New System.Drawing.Point(3, 211)
Me.lblDatefrom.Name = "lblDatefrom"
Me.lblDatefrom.Size = New System.Drawing.Size(34, 13)
Me.lblDatefrom.TabIndex = 3
Me.lblDatefrom.Text = "Datum"
'
'frmFlowSearch1 'frmFlowSearch1
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -439,24 +440,24 @@ Partial Class frmFlowSearch1
Me.DockPanel1.ResumeLayout(False) Me.DockPanel1.ResumeLayout(False)
Me.DockPanel1_Container.ResumeLayout(False) Me.DockPanel1_Container.ResumeLayout(False)
Me.DockPanel1_Container.PerformLayout() Me.DockPanel1_Container.PerformLayout()
CType(Me.ToggleSwitchMonth_Last.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchMonth.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchTomorrow.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchLastWeek.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchYesterday.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchToday.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl1.ResumeLayout(False) Me.XtraTabControl1.ResumeLayout(False)
Me.XtraTabPage1.ResumeLayout(False) Me.XtraTabPage1.ResumeLayout(False)
Me.XtraTabPage1.PerformLayout() Me.XtraTabPage1.PerformLayout()
CType(Me.ToggleSwitch1.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DateEditTill.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DateEditTill.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ToggleSwitchMonth_Last.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DateEditBis.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ToggleSwitchDateto.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DateEditBis.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DateEditFrom.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DateEditFrom.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchMonth.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchTomorrow.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchToday.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchLastWeek.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchYesterday.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -495,7 +496,7 @@ Partial Class frmFlowSearch1
Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents lblDatefrom As DevExpress.XtraEditors.LabelControl Friend WithEvents lblDatefrom As DevExpress.XtraEditors.LabelControl
Friend WithEvents DateEditBis As DevExpress.XtraEditors.DateEdit Friend WithEvents DateEditTill As DevExpress.XtraEditors.DateEdit
Friend WithEvents DateEdit1 As DevExpress.XtraEditors.DateEdit Friend WithEvents DateEditFrom As DevExpress.XtraEditors.DateEdit
Friend WithEvents ToggleSwitch1 As DevExpress.XtraEditors.ToggleSwitch Friend WithEvents ToggleSwitchDateto As DevExpress.XtraEditors.ToggleSwitch
End Class End Class

61
GUIs.ZooFlow/Search/frmFlowSearch1.vb
View File

@ -24,8 +24,21 @@ Public Class frmFlowSearch1
Private CONST_DATE_TOMORROW As String = "TOMORROW" Private CONST_DATE_TOMORROW As String = "TOMORROW"
Private SEARCH_PARAM3 Private SEARCH_PARAM3
Dim oBASESEARCH As String Private ExplizitDate As Boolean = False
Dim oBASESEARCH As String
Sub ResetTogglesDate()
TOGGLE_Change = True
ToggleSwitchToday.IsOn = False
ToggleSwitchYesterday.IsOn = False
ToggleSwitchTomorrow.IsOn = False
ToggleSwitchLastWeek.IsOn = False
ToggleSwitchYear_Last.IsOn = False
ToggleSwitchYear.IsOn = False
ToggleSwitchMonth.IsOn = False
ToggleSwitchMonth_Last.IsOn = False
TOGGLE_Change = False
End Sub
Private Sub ToggleSwitchToday_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchToday.Toggled, ToggleSwitchYesterday.Toggled, ToggleSwitchYear.Toggled, ToggleSwitchYear_Last.Toggled, Private Sub ToggleSwitchToday_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchToday.Toggled, ToggleSwitchYesterday.Toggled, ToggleSwitchYear.Toggled, ToggleSwitchYear_Last.Toggled,
ToggleSwitchMonth_Last.Toggled, ToggleSwitchMonth.Toggled, ToggleSwitchLastWeek.Toggled, ToggleSwitchTomorrow.Toggled ToggleSwitchMonth_Last.Toggled, ToggleSwitchMonth.Toggled, ToggleSwitchLastWeek.Toggled, ToggleSwitchTomorrow.Toggled
@ -111,6 +124,7 @@ Public Class frmFlowSearch1
Case "ToggleSwitchLastWeek" Case "ToggleSwitchLastWeek"
ToggleSwitchToday.IsOn = False ToggleSwitchToday.IsOn = False
ToggleSwitchTomorrow.IsOn = False ToggleSwitchTomorrow.IsOn = False
ToggleSwitchYesterday.IsOn = False
ToggleSwitchYear.IsOn = False ToggleSwitchYear.IsOn = False
ToggleSwitchYear_Last.IsOn = False ToggleSwitchYear_Last.IsOn = False
ToggleSwitchMonth.IsOn = False ToggleSwitchMonth.IsOn = False
@ -218,17 +232,29 @@ Public Class frmFlowSearch1
.WindowGuid = "FlowSearch", .WindowGuid = "FlowSearch",
.WindowTitle = GetResultWindowString(oSearchTerm), .WindowTitle = GetResultWindowString(oSearchTerm),
.OperationModeOverride = Modules.ZooFlow.Constants.OperationMode.ZooFlow, .OperationModeOverride = Modules.ZooFlow.Constants.OperationMode.ZooFlow,
.ProfileGuid = 123456789 .ProfileGuid = 354522
} }
Dim oP3 = $"{SEARCH_FACT_DATE_ATTRIBUTE}~{SEARCH_PARAM3}" Dim oP3 = $"{SEARCH_FACT_DATE_ATTRIBUTE}~{SEARCH_PARAM3}"
If ExplizitDate Then
Dim oDate2 As Date
If Not IsNothing(DateEditTill.EditValue) Then
oDate2 = CDate(DateEditTill.EditValue)
Else
oDate2 = CDate(DateEditFrom.EditValue)
End If
Dim oProc = $"EXEC PRIDB_SEARCH_ADD_USR_DATE {My.Application.User.UserId},'{CDate(DateEditFrom.EditValue)}','{oDate2}'"
If My.DatabaseIDB.ExecuteNonQuery(oProc) = True Then
oP3 = $"{SEARCH_FACT_DATE_ATTRIBUTE}~DATEPART"
End If
End If
Dim oSQL = $"EXEC PRIDB_SEARCH_TEXT_GET_RESULTS {My.Application.User.UserId},'{oSearchTerm}','{oP3}'" Dim oSQL = $"EXEC PRIDB_SEARCH_TEXT_GET_RESULTS {My.Application.User.UserId},'{oSearchTerm}','{oP3}'"
If My.DatabaseIDB.ExecuteNonQuery(oSQL) = True Then If My.DatabaseIDB.ExecuteNonQuery(oSQL) = True Then
Dim oDTDocResult = My.DatabaseIDB.GetDatatable(oBASESEARCH) Dim oDTDocResult = My.DatabaseIDB.GetDatatable(oBASESEARCH)
If oDTDocResult.Rows.Count > 0 Then If oDTDocResult.Rows.Count > 0 Then
oParams.Results.Add(New DocumentResultList.DocumentResult() With { oParams.Results.Add(New DocumentResultList.DocumentResult() With {
.Title = "MySearchTitle", .Title = "FlowSearchXYZ",
.Datatable = oDTDocResult}) .Datatable = oDTDocResult})
Dim oForm As New frmDocumentResultList(My.LogConfig, _Environment, oParams) Dim oForm As New frmDocumentResultList(My.LogConfig, _Environment, oParams)
'AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed 'AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
@ -241,7 +267,8 @@ Public Class frmFlowSearch1
End If End If
Else
bsiStatus.Caption = "Error oin FlowSearch - Check Your log"
End If End If
' '
@ -276,22 +303,36 @@ Public Class frmFlowSearch1
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
Me.txtSearchInput.Text = "" Me.txtSearchInput.Text = ""
ToggleSwitchToday.IsOn = False ResetTogglesDate()
ToggleSwitchDateto.IsOn = False
ExplizitDate = False
End Sub End Sub
Private Sub ToggleSwitch1_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitch1.Toggled Private Sub ToggleSwitch1_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchDateto.Toggled
Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch) Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch)
If oToggle.IsOn Then If oToggle.IsOn Then
DateEditBis.Enabled = True DateEditTill.Enabled = True
lblDatefrom.Text = "Datum von" lblDatefrom.Text = "Datum von"
Else Else
DateEditBis.Enabled = False DateEditTill.Enabled = False
lblDatefrom.Text = "Datum" lblDatefrom.Text = "Datum"
End If End If
End Sub End Sub
Private Sub DateEdit1_DateTimeChanged(sender As Object, e As EventArgs) Handles DateEdit1.DateTimeChanged Private Sub DateEdit1_DateTimeChanged(sender As Object, e As EventArgs) Handles DateEditFrom.DateTimeChanged
ToggleSwitchToday.IsOn = False Dim oobj = DateEditFrom.EditValue
If Not IsNothing(oobj) Then
ResetTogglesDate()
End If
End Sub
Private Sub DateEdit1_EditValueChanged(sender As Object, e As EventArgs) Handles DateEditFrom.EditValueChanged
Dim oobj = DateEditFrom.EditValue
If Not IsNothing(oobj) Then
ExplizitDate = True
End If
End Sub End Sub
End Class End Class

88
GUIs.ZooFlow/frmConfigBasic.Designer.vb generated
View File

@ -22,50 +22,49 @@ Partial Class frmConfigBasic
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfigBasic))
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
Me.cmbScreens = New DevExpress.XtraEditors.ComboBoxEdit() Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.CheckButtonDEBUG = New DevExpress.XtraEditors.CheckButton()
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControl1.SuspendLayout() Me.LayoutControl1.SuspendLayout()
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cmbScreens.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'RibbonControl1 'RibbonControl1
' '
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 1 Me.RibbonControl1.MaxItemId = 3
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.Size = New System.Drawing.Size(800, 160) Me.RibbonControl1.Size = New System.Drawing.Size(800, 160)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
' '
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "RibbonPage1" Me.RibbonPage1.Text = "Start"
' '
'RibbonPageGroup1 'RibbonPageGroup1
' '
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "Schnellzugriffe"
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
' '
'RibbonStatusBar1 'RibbonStatusBar1
' '
@ -81,7 +80,7 @@ Partial Class frmConfigBasic
' '
'LayoutControl1 'LayoutControl1
' '
Me.LayoutControl1.Controls.Add(Me.cmbScreens) Me.LayoutControl1.Controls.Add(Me.CheckButtonDEBUG)
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.LayoutControl1.Location = New System.Drawing.Point(0, 160) Me.LayoutControl1.Location = New System.Drawing.Point(0, 160)
Me.LayoutControl1.Name = "LayoutControl1" Me.LayoutControl1.Name = "LayoutControl1"
@ -95,28 +94,43 @@ Partial Class frmConfigBasic
' '
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.Root.GroupBordersVisible = False Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1}) Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2})
Me.Root.Name = "Root" Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(800, 268) Me.Root.Size = New System.Drawing.Size(800, 268)
Me.Root.TextVisible = False Me.Root.TextVisible = False
' '
'cmbScreens 'BarButtonItem1
' '
Me.cmbScreens.Location = New System.Drawing.Point(125, 12) Me.BarButtonItem1.Caption = "Appdata Folder"
Me.cmbScreens.MenuManager = Me.RibbonControl1 Me.BarButtonItem1.Id = 1
Me.cmbScreens.Name = "cmbScreens" Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.cmbScreens.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.BarButtonItem1.Name = "BarButtonItem1"
Me.cmbScreens.Size = New System.Drawing.Size(663, 20)
Me.cmbScreens.StyleController = Me.LayoutControl1
Me.cmbScreens.TabIndex = 4
' '
'LayoutControlItem1 'BarButtonItem2
' '
Me.LayoutControlItem1.Control = Me.cmbScreens Me.BarButtonItem2.Caption = "Log Folder"
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) Me.BarButtonItem2.Id = 2
Me.LayoutControlItem1.Name = "LayoutControlItem1" Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.LayoutControlItem1.Size = New System.Drawing.Size(780, 248) Me.BarButtonItem2.Name = "BarButtonItem2"
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(101, 13) '
'CheckButtonDEBUG
'
Me.CheckButtonDEBUG.Location = New System.Drawing.Point(12, 12)
Me.CheckButtonDEBUG.Name = "CheckButtonDEBUG"
Me.CheckButtonDEBUG.Padding = New System.Windows.Forms.Padding(10)
Me.CheckButtonDEBUG.Size = New System.Drawing.Size(776, 42)
Me.CheckButtonDEBUG.StyleController = Me.LayoutControl1
Me.CheckButtonDEBUG.TabIndex = 5
Me.CheckButtonDEBUG.Text = "DEBUG not active"
'
'LayoutControlItem2
'
Me.LayoutControlItem2.Control = Me.CheckButtonDEBUG
Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem2.Name = "LayoutControlItem2"
Me.LayoutControlItem2.Size = New System.Drawing.Size(780, 248)
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem2.TextVisible = False
' '
'frmConfigBasic 'frmConfigBasic
' '
@ -129,13 +143,12 @@ Partial Class frmConfigBasic
Me.Name = "frmConfigBasic" Me.Name = "frmConfigBasic"
Me.Ribbon = Me.RibbonControl1 Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1 Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "frmConfigBasic" Me.Text = "User Basic Configuration"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.LayoutControl1.ResumeLayout(False) Me.LayoutControl1.ResumeLayout(False)
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cmbScreens.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -144,11 +157,12 @@ Partial Class frmConfigBasic
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
Friend WithEvents cmbScreens As DevExpress.XtraEditors.ComboBoxEdit
Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents CheckButtonDEBUG As DevExpress.XtraEditors.CheckButton
Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
End Class End Class

41
GUIs.ZooFlow/frmConfigBasic.resx
View File

@ -117,4 +117,45 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAMDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iT3BlbjIiIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpuZXcgMCAwIDMy
IDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5HcmVlbntmaWxsOiMwMzlDMjM7fQoJLlll
bGxvd3tmaWxsOiNGRkIxMTU7fQoJLnN0MHtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBjbGFz
cz0ic3QwIj4NCiAgICA8cGF0aCBkPSJNMTkuMiwxMEgxMlY3YzAtMC42LTAuNC0xLTEtMUgzQzIuNCw2
LDIsNi41LDIsN3YxOGMwLDAuMiwwLDAuMywwLjEsMC40YzAsMCwwLjEtMC4xLDAuMS0wLjJsNS41LTEw
ICAgQzgsMTQuNSw4LjcsMTQsOS41LDE0aDEzLjdMMTkuMiwxMHoiIGNsYXNzPSJZZWxsb3ciIC8+DQog
IDwvZz4NCiAgPHBhdGggZD0iTTI5LjMsMTZIOS42TDQsMjZoMTkuOGMwLjUsMCwxLjEtMC4yLDEuMy0w
LjZsNC45LTguOUMzMC4xLDE2LjIsMjkuOCwxNiwyOS4zLDE2eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAg
PHBhdGggZD0iTTI4LDhjMC0zLjMtMi43LTYtNi02cy02LDIuNy02LDZjMC0yLjIsMS44LTQsNC00czQs
MS44LDQsNGgtNGw2LDZsNi02SDI4eiIgY2xhc3M9IkdyZWVuIiAvPg0KPC9zdmc+Cw==
</value>
</data>
<data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAMDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iT3BlbjIiIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpuZXcgMCAwIDMy
IDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5HcmVlbntmaWxsOiMwMzlDMjM7fQoJLlll
bGxvd3tmaWxsOiNGRkIxMTU7fQoJLnN0MHtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBjbGFz
cz0ic3QwIj4NCiAgICA8cGF0aCBkPSJNMTkuMiwxMEgxMlY3YzAtMC42LTAuNC0xLTEtMUgzQzIuNCw2
LDIsNi41LDIsN3YxOGMwLDAuMiwwLDAuMywwLjEsMC40YzAsMCwwLjEtMC4xLDAuMS0wLjJsNS41LTEw
ICAgQzgsMTQuNSw4LjcsMTQsOS41LDE0aDEzLjdMMTkuMiwxMHoiIGNsYXNzPSJZZWxsb3ciIC8+DQog
IDwvZz4NCiAgPHBhdGggZD0iTTI5LjMsMTZIOS42TDQsMjZoMTkuOGMwLjUsMCwxLjEtMC4yLDEuMy0w
LjZsNC45LTguOUMzMC4xLDE2LjIsMjkuOCwxNiwyOS4zLDE2eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAg
PHBhdGggZD0iTTI4LDhjMC0zLjMtMi43LTYtNi02cy02LDIuNy02LDZjMC0yLjIsMS44LTQsNC00czQs
MS44LDQsNGgtNGw2LDZsNi02SDI4eiIgY2xhc3M9IkdyZWVuIiAvPg0KPC9zdmc+Cw==
</value>
</data>
</root> </root>

36
GUIs.ZooFlow/frmConfigBasic.vb
View File

@ -1,17 +1,41 @@
Public Class frmConfigBasic Public Class frmConfigBasic
Private Sub frmConfigBasic_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmConfigBasic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
LoadScreens() LoadScreens()
CheckButtonDEBUG.Checked = My.LogConfig.Debug
End Sub End Sub
Private Sub LoadScreens() Private Sub LoadScreens()
cmbScreens.Properties.Items.Clear() 'cmbScreens.Properties.Items.Clear()
For Each oScreen In Screen.AllScreens 'For Each oScreen In Screen.AllScreens
cmbScreens.Properties.Items.Add(oScreen.DeviceName) ' cmbScreens.Properties.Items.Add(oScreen.DeviceName)
Next 'Next
End Sub End Sub
Private Sub cmbScreens_SelectedValueChanged(sender As Object, e As EventArgs) Handles cmbScreens.SelectedValueChanged Private Sub cmbScreens_SelectedValueChanged(sender As Object, e As EventArgs)
My.UIConfig.SidebarScreen = cmbScreens.EditValue 'My.UIConfig.SidebarScreen = cmbScreens.EditValue
My.UIConfigManager.Save()
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
Process.Start(My.LogConfig.LogDirectory)
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
Process.Start(Windows.Forms.Application.LocalUserAppDataPath)
End Sub
Private Sub CheckButtonDEBUG_Click(sender As Object, e As EventArgs) Handles CheckButtonDEBUG.Click
End Sub
Private Sub CheckButtonDEBUG_CheckedChanged(sender As Object, e As EventArgs) Handles CheckButtonDEBUG.CheckedChanged
If CheckButtonDEBUG.Checked Then
CheckButtonDEBUG.Text = "DEBUG is active"
My.LogConfig.Debug = True
Else
CheckButtonDEBUG.Text = "DEBUG not active"
My.LogConfig.Debug = False
End If
My.UIConfigManager.Save() My.UIConfigManager.Save()
End Sub End Sub
End Class End Class

113
GUIs.ZooFlow/frmFlowForm.Designer.vb generated
View File

@ -39,8 +39,6 @@ Partial Class frmFlowForm
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.SucheTestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TestFlowSearchToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@ -56,10 +54,10 @@ Partial Class frmFlowForm
Me.BehaviorManager1 = New DevExpress.Utils.Behaviors.BehaviorManager(Me.components) Me.BehaviorManager1 = New DevExpress.Utils.Behaviors.BehaviorManager(Me.components)
Me.PictureBoxGlobix1 = New DevExpress.XtraEditors.SvgImageBox() Me.PictureBoxGlobix1 = New DevExpress.XtraEditors.SvgImageBox()
Me.PictureBoxSearch1 = New DevExpress.XtraEditors.SvgImageBox() Me.PictureBoxSearch1 = New DevExpress.XtraEditors.SvgImageBox()
Me.Panel1 = New System.Windows.Forms.Panel() Me.pnlQuicksearch1 = New System.Windows.Forms.Panel()
Me.lblQuicksearch1 = New DevExpress.XtraEditors.LabelControl()
Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit() Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
Me.lblQuicksearch1 = New DevExpress.XtraEditors.LabelControl()
Me.ContextMenuSystray.SuspendLayout() Me.ContextMenuSystray.SuspendLayout()
CType(Me.PictureBoxPM1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBoxPM1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBoxAbo, System.ComponentModel.ISupportInitialize).BeginInit()
@ -68,9 +66,9 @@ Partial Class frmFlowForm
CType(Me.BehaviorManager1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BehaviorManager1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBoxGlobix1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBoxGlobix1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBoxSearch1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBoxSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout() Me.pnlQuicksearch1.SuspendLayout()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'SplashScreenManager 'SplashScreenManager
@ -86,9 +84,9 @@ Partial Class frmFlowForm
' '
'ContextMenuSystray 'ContextMenuSystray
' '
Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GlobixToolStripMenuItem, Me.UserKonfigurationToolStripMenuItem, Me.ToolStripSeparator1, Me.VerwaltungToolStripMenuItem, Me.ToolStripSeparator3, Me.SucheTestToolStripMenuItem, Me.TestFlowSearchToolStripMenuItem, Me.TestToolStripMenuItem, Me.ToolStripSeparator2, Me.ZooFlowBeendenToolStripMenuItem}) Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GlobixToolStripMenuItem, Me.UserKonfigurationToolStripMenuItem, Me.ToolStripSeparator1, Me.VerwaltungToolStripMenuItem, Me.ToolStripSeparator3, Me.TestToolStripMenuItem, Me.ToolStripSeparator2, Me.ZooFlowBeendenToolStripMenuItem})
Me.ContextMenuSystray.Name = "ContextMenuSystray" Me.ContextMenuSystray.Name = "ContextMenuSystray"
Me.ContextMenuSystray.Size = New System.Drawing.Size(174, 176) Me.ContextMenuSystray.Size = New System.Drawing.Size(174, 132)
' '
'GlobixToolStripMenuItem 'GlobixToolStripMenuItem
' '
@ -141,18 +139,6 @@ Partial Class frmFlowForm
Me.ToolStripSeparator3.Name = "ToolStripSeparator3" Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(170, 6) Me.ToolStripSeparator3.Size = New System.Drawing.Size(170, 6)
' '
'SucheTestToolStripMenuItem
'
Me.SucheTestToolStripMenuItem.Name = "SucheTestToolStripMenuItem"
Me.SucheTestToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
Me.SucheTestToolStripMenuItem.Text = "Suche (Test)"
'
'TestFlowSearchToolStripMenuItem
'
Me.TestFlowSearchToolStripMenuItem.Name = "TestFlowSearchToolStripMenuItem"
Me.TestFlowSearchToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
Me.TestFlowSearchToolStripMenuItem.Text = "Test_FlowSearch"
'
'TestToolStripMenuItem 'TestToolStripMenuItem
' '
Me.TestToolStripMenuItem.Name = "TestToolStripMenuItem" Me.TestToolStripMenuItem.Name = "TestToolStripMenuItem"
@ -176,7 +162,7 @@ Partial Class frmFlowForm
Me.PictureBoxPM1.ItemAppearance.Hovered.FillColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) Me.PictureBoxPM1.ItemAppearance.Hovered.FillColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
Me.PictureBoxPM1.ItemAppearance.Normal.FillColor = System.Drawing.SystemColors.ControlDark Me.PictureBoxPM1.ItemAppearance.Normal.FillColor = System.Drawing.SystemColors.ControlDark
Me.PictureBoxPM1.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox Me.PictureBoxPM1.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox
Me.PictureBoxPM1.Location = New System.Drawing.Point(38, 377) Me.PictureBoxPM1.Location = New System.Drawing.Point(53, 376)
Me.PictureBoxPM1.Name = "PictureBoxPM1" Me.PictureBoxPM1.Name = "PictureBoxPM1"
Me.PictureBoxPM1.Size = New System.Drawing.Size(90, 90) Me.PictureBoxPM1.Size = New System.Drawing.Size(90, 90)
Me.PictureBoxPM1.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom Me.PictureBoxPM1.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom
@ -189,12 +175,13 @@ Partial Class frmFlowForm
' '
Me.PictureBoxAbo.Cursor = System.Windows.Forms.Cursors.Hand Me.PictureBoxAbo.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBoxAbo.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._2_ZOO_FLOW_Abo Me.PictureBoxAbo.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._2_ZOO_FLOW_Abo
Me.PictureBoxAbo.Location = New System.Drawing.Point(88, 224) Me.PictureBoxAbo.Location = New System.Drawing.Point(103, 223)
Me.PictureBoxAbo.Name = "PictureBoxAbo" Me.PictureBoxAbo.Name = "PictureBoxAbo"
Me.PictureBoxAbo.Size = New System.Drawing.Size(40, 36) Me.PictureBoxAbo.Size = New System.Drawing.Size(40, 36)
Me.PictureBoxAbo.TabIndex = 11 Me.PictureBoxAbo.TabIndex = 11
Me.PictureBoxAbo.TabStop = False Me.PictureBoxAbo.TabStop = False
Me.ToolTip1.SetToolTip(Me.PictureBoxAbo, "Abonnierte Suchen") Me.ToolTip1.SetToolTip(Me.PictureBoxAbo, "Abonnierte Suchen")
Me.PictureBoxAbo.Visible = False
' '
'PictureBoxDragDrop 'PictureBoxDragDrop
' '
@ -233,7 +220,7 @@ Partial Class frmFlowForm
Me.PictureBoxGlobix1.ItemAppearance.Hovered.FillColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) Me.PictureBoxGlobix1.ItemAppearance.Hovered.FillColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
Me.PictureBoxGlobix1.ItemAppearance.Normal.FillColor = System.Drawing.SystemColors.ControlDark Me.PictureBoxGlobix1.ItemAppearance.Normal.FillColor = System.Drawing.SystemColors.ControlDark
Me.PictureBoxGlobix1.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox Me.PictureBoxGlobix1.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox
Me.PictureBoxGlobix1.Location = New System.Drawing.Point(38, 485) Me.PictureBoxGlobix1.Location = New System.Drawing.Point(53, 484)
Me.PictureBoxGlobix1.Name = "PictureBoxGlobix1" Me.PictureBoxGlobix1.Name = "PictureBoxGlobix1"
Me.PictureBoxGlobix1.Size = New System.Drawing.Size(90, 90) Me.PictureBoxGlobix1.Size = New System.Drawing.Size(90, 90)
Me.PictureBoxGlobix1.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom Me.PictureBoxGlobix1.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom
@ -247,7 +234,7 @@ Partial Class frmFlowForm
Me.PictureBoxSearch1.ItemAppearance.Hovered.FillColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) Me.PictureBoxSearch1.ItemAppearance.Hovered.FillColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
Me.PictureBoxSearch1.ItemAppearance.Normal.FillColor = System.Drawing.SystemColors.ControlDark Me.PictureBoxSearch1.ItemAppearance.Normal.FillColor = System.Drawing.SystemColors.ControlDark
Me.PictureBoxSearch1.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox Me.PictureBoxSearch1.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox
Me.PictureBoxSearch1.Location = New System.Drawing.Point(38, 266) Me.PictureBoxSearch1.Location = New System.Drawing.Point(53, 265)
Me.PictureBoxSearch1.Name = "PictureBoxSearch1" Me.PictureBoxSearch1.Name = "PictureBoxSearch1"
Me.PictureBoxSearch1.Size = New System.Drawing.Size(90, 90) Me.PictureBoxSearch1.Size = New System.Drawing.Size(90, 90)
Me.PictureBoxSearch1.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Stretch Me.PictureBoxSearch1.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Stretch
@ -255,37 +242,18 @@ Partial Class frmFlowForm
Me.PictureBoxSearch1.TabIndex = 13 Me.PictureBoxSearch1.TabIndex = 13
Me.PictureBoxSearch1.Text = "SvgImageBox1" Me.PictureBoxSearch1.Text = "SvgImageBox1"
' '
'Panel1 'pnlQuicksearch1
' '
Me.Panel1.Controls.Add(Me.PictureEdit1) Me.pnlQuicksearch1.BackColor = System.Drawing.Color.CornflowerBlue
Me.Panel1.Controls.Add(Me.TextEdit1) Me.pnlQuicksearch1.Controls.Add(Me.PictureEdit1)
Me.Panel1.Controls.Add(Me.lblQuicksearch1) Me.pnlQuicksearch1.Controls.Add(Me.TextEdit1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.pnlQuicksearch1.Controls.Add(Me.lblQuicksearch1)
Me.Panel1.Location = New System.Drawing.Point(0, 150) Me.pnlQuicksearch1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Name = "Panel1" Me.pnlQuicksearch1.Location = New System.Drawing.Point(0, 150)
Me.Panel1.Size = New System.Drawing.Size(202, 60) Me.pnlQuicksearch1.Name = "pnlQuicksearch1"
Me.Panel1.TabIndex = 16 Me.pnlQuicksearch1.Size = New System.Drawing.Size(202, 60)
' Me.pnlQuicksearch1.TabIndex = 16
'lblQuicksearch1 Me.pnlQuicksearch1.Visible = False
'
Me.lblQuicksearch1.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblQuicksearch1.Appearance.Options.UseFont = True
Me.lblQuicksearch1.Location = New System.Drawing.Point(3, 3)
Me.lblQuicksearch1.Name = "lblQuicksearch1"
Me.lblQuicksearch1.Size = New System.Drawing.Size(91, 21)
Me.lblQuicksearch1.TabIndex = 0
Me.lblQuicksearch1.Text = "Alle Attribute"
'
'TextEdit1
'
Me.TextEdit1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TextEdit1.Location = New System.Drawing.Point(3, 29)
Me.TextEdit1.Name = "TextEdit1"
Me.TextEdit1.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextEdit1.Properties.Appearance.Options.UseFont = True
Me.TextEdit1.Size = New System.Drawing.Size(196, 28)
Me.TextEdit1.TabIndex = 1
' '
'PictureEdit1 'PictureEdit1
' '
@ -298,6 +266,29 @@ Partial Class frmFlowForm
Me.PictureEdit1.Size = New System.Drawing.Size(29, 28) Me.PictureEdit1.Size = New System.Drawing.Size(29, 28)
Me.PictureEdit1.TabIndex = 17 Me.PictureEdit1.TabIndex = 17
' '
'TextEdit1
'
Me.TextEdit1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TextEdit1.Location = New System.Drawing.Point(3, 29)
Me.TextEdit1.Name = "TextEdit1"
Me.TextEdit1.Properties.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
Me.TextEdit1.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextEdit1.Properties.Appearance.Options.UseBackColor = True
Me.TextEdit1.Properties.Appearance.Options.UseFont = True
Me.TextEdit1.Size = New System.Drawing.Size(196, 28)
Me.TextEdit1.TabIndex = 1
'
'lblQuicksearch1
'
Me.lblQuicksearch1.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblQuicksearch1.Appearance.Options.UseFont = True
Me.lblQuicksearch1.Location = New System.Drawing.Point(3, 3)
Me.lblQuicksearch1.Name = "lblQuicksearch1"
Me.lblQuicksearch1.Size = New System.Drawing.Size(90, 21)
Me.lblQuicksearch1.TabIndex = 0
Me.lblQuicksearch1.Text = "Schnellsuche"
'
'frmFlowForm 'frmFlowForm
' '
Me.AllowDrop = True Me.AllowDrop = True
@ -310,7 +301,7 @@ Partial Class frmFlowForm
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BehaviorManager1.SetBehaviors(Me, New DevExpress.Utils.Behaviors.Behavior() {CType(DevExpress.Utils.Behaviors.Common.SnapWindowBehavior.Create(GetType(DevExpress.Utils.BehaviorSource.SnapWindowBehaviorSourceForForm), SnapOptions1), DevExpress.Utils.Behaviors.Behavior)}) Me.BehaviorManager1.SetBehaviors(Me, New DevExpress.Utils.Behaviors.Behavior() {CType(DevExpress.Utils.Behaviors.Common.SnapWindowBehavior.Create(GetType(DevExpress.Utils.BehaviorSource.SnapWindowBehaviorSourceForForm), SnapOptions1), DevExpress.Utils.Behaviors.Behavior)})
Me.ClientSize = New System.Drawing.Size(202, 638) Me.ClientSize = New System.Drawing.Size(202, 638)
Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.pnlQuicksearch1)
Me.Controls.Add(Me.PictureBoxAbo) Me.Controls.Add(Me.PictureBoxAbo)
Me.Controls.Add(Me.PictureBoxGlobix1) Me.Controls.Add(Me.PictureBoxGlobix1)
Me.Controls.Add(Me.PictureBoxPM1) Me.Controls.Add(Me.PictureBoxPM1)
@ -330,10 +321,10 @@ Partial Class frmFlowForm
CType(Me.BehaviorManager1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BehaviorManager1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBoxGlobix1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBoxGlobix1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBoxSearch1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBoxSearch1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False) Me.pnlQuicksearch1.ResumeLayout(False)
Me.Panel1.PerformLayout() Me.pnlQuicksearch1.PerformLayout()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
@ -360,11 +351,9 @@ Partial Class frmFlowForm
Friend WithEvents PictureBoxGlobix1 As DevExpress.XtraEditors.SvgImageBox Friend WithEvents PictureBoxGlobix1 As DevExpress.XtraEditors.SvgImageBox
Friend WithEvents ToolStripSeparator2 As ToolStripSeparator Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
Friend WithEvents SucheTestToolStripMenuItem As ToolStripMenuItem
Friend WithEvents BehaviorManager1 As DevExpress.Utils.Behaviors.BehaviorManager Friend WithEvents BehaviorManager1 As DevExpress.Utils.Behaviors.BehaviorManager
Friend WithEvents BasisKonfigurationToolStripMenuItem As ToolStripMenuItem Friend WithEvents BasisKonfigurationToolStripMenuItem As ToolStripMenuItem
Friend WithEvents TestFlowSearchToolStripMenuItem As ToolStripMenuItem Friend WithEvents pnlQuicksearch1 As Panel
Friend WithEvents Panel1 As Panel
Friend WithEvents PictureEdit1 As PictureEdit Friend WithEvents PictureEdit1 As PictureEdit
Friend WithEvents TextEdit1 As TextEdit Friend WithEvents TextEdit1 As TextEdit
Friend WithEvents lblQuicksearch1 As LabelControl Friend WithEvents lblQuicksearch1 As LabelControl

112
GUIs.ZooFlow/frmFlowForm.vb
View File

@ -11,7 +11,9 @@ Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Language.Utils Imports DigitalData.Modules.Language.Utils
Imports DigitalData.Modules.Messaging Imports DigitalData.Modules.Messaging
Imports DigitalData.Modules.Windows Imports DigitalData.Modules.Windows
Imports DigitalData.Modules.ZooFlow
Imports DigitalData.GUIs.Common.Base Imports DigitalData.GUIs.Common.Base
Imports DigitalData.GUIs.Common
Public Class frmFlowForm Public Class frmFlowForm
#Region "Sidebar DllImport" #Region "Sidebar DllImport"
@ -163,6 +165,7 @@ Public Class frmFlowForm
Private ClassWindow As Window Private ClassWindow As Window
Private ProfileFilter As ProfileFilter Private ProfileFilter As ProfileFilter
Private ProfileLoader As ClassProfileLoader Private ProfileLoader As ClassProfileLoader
Private _Environment As Environment
' Runtime Flags ' Runtime Flags
Private ApplicationLoading As Boolean = True Private ApplicationLoading As Boolean = True
@ -186,9 +189,13 @@ Public Class frmFlowForm
Init = New ClassInit(My.LogConfig, Me) Init = New ClassInit(My.LogConfig, Me)
AddHandler Init.Completed, AddressOf Init_Completed AddHandler Init.Completed, AddressOf Init_Completed
Init.InitializeApplication() Init.InitializeApplication()
_Environment = My.Application.GetEnvironment
' === Register Sidebar === ' === Register Sidebar ===
RegisterBar(ABEdge.ABE_RIGHT) RegisterBar(ABEdge.ABE_RIGHT)
End Sub End Sub
Private Sub frmFlowForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Private Sub frmFlowForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
@ -303,8 +310,24 @@ Public Class frmFlowForm
End If End If
'oSQL = "SELECT * FROM TBIDB_ATTRIBUTE"
My.Tables.DTIDB_ATTRIBUTE = My.Database.GetDatatable("TBIDB_ATTRIBUTE", "SELECT * FROM TBIDB_ATTRIBUTE", EDMI.API.Constants.DatabaseType.IDB) If IsNothing(My.Tables.DTIDB_CATALOG_USER) Then
Exit Sub
End If
For Each oRow As DataRow In My.Tables.DTIDB_CATALOG_USER.Rows
If oRow.Item("CAT_TITLE") = "QUICKSEARCH1_TITLE" Then
pnlQuicksearch1.Visible = True
lblQuicksearch1.Text = oRow.Item("CAT_STRING")
ElseIf oRow.Item("CAT_TITLE") = "QUICKSEARCH1_POS" Then
If oRow.Item("CAT_STRING") = "Top" Then
pnlQuicksearch1.Dock = DockStyle.Top
ElseIf oRow.Item("CAT_STRING") = "Bottom" Then
pnlQuicksearch1.Dock = DockStyle.Bottom
End If
End If
Next
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Sub End Sub
@ -590,7 +613,7 @@ Public Class frmFlowForm
End If End If
'Erstmal alles löschen 'Erstmal alles löschen
My.Database.ExecuteNonQueryECM("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')") My.Database.ExecuteNonQueryECM("DELETE FROM TBGI_FILES_USER WHERE USER@WORK = '" & My.Application.User.UserName & "'")
If FileDrop.Drop_File(e) = True Then If FileDrop.Drop_File(e) = True Then
TimerCheckDroppedFiles.Start() TimerCheckDroppedFiles.Start()
@ -613,7 +636,7 @@ Public Class frmFlowForm
End Sub End Sub
Private Async Function Globix_Check_Dropped_Files() As Threading.Tasks.Task Private Async Function Globix_Check_Dropped_Files() As Threading.Tasks.Task
Try Try
Await My.Database.ExecuteNonQueryECMAsync($"DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND UPPER(USER@WORK) = UPPER('{Environment.UserName}')") Await My.Database.ExecuteNonQueryECMAsync($"DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND USER@WORK = '{My.Application.User.UserName}'")
Dim i As Integer Dim i As Integer
For Each pFile As String In FileDrop.files_dropped For Each pFile As String In FileDrop.files_dropped
@ -628,7 +651,7 @@ Public Class frmFlowForm
End If End If
Next Next
Dim sql As String = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')" Dim sql As String = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND USER@WORK = '" & My.Application.User.UserName & "'"
My.Application.Globix.DTACTUAL_FILES = Nothing My.Application.Globix.DTACTUAL_FILES = Nothing
My.Application.Globix.DTACTUAL_FILES = Await My.Database.GetDatatableECMAsync(sql) My.Application.Globix.DTACTUAL_FILES = Await My.Database.GetDatatableECMAsync(sql)
My.Application.Globix.ABORT_INDEXING = False My.Application.Globix.ABORT_INDEXING = False
@ -816,7 +839,7 @@ Public Class frmFlowForm
If My.Application.Globix.Folderwatchstarted = True Or My.UIConfig.Globix.FolderWatchScanStarted = True Then If My.Application.Globix.Folderwatchstarted = True Or My.UIConfig.Globix.FolderWatchScanStarted = True Then
'Prüfen ob alle Files abgearbeitet wurden 'Prüfen ob alle Files abgearbeitet wurden
Dim sql = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE like '%|FW%' AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')" Dim sql = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE like '%|FW%' AND USER@WORK = '" & My.Application.User.UserName & "'"
My.Application.Globix.DTACTUAL_FILES = My.Database.GetDatatableECM(sql) My.Application.Globix.DTACTUAL_FILES = My.Database.GetDatatableECM(sql)
If My.Application.Globix.DTACTUAL_FILES.Rows.Count > 0 Then If My.Application.Globix.DTACTUAL_FILES.Rows.Count > 0 Then
@ -929,7 +952,7 @@ Public Class frmFlowForm
oState.UserProfiles, oState.ProfileProcesses, oState.ProfileWindows, oState.ProfileControls, oState.MatchTreeView) oState.UserProfiles, oState.ProfileProcesses, oState.ProfileWindows, oState.ProfileControls, oState.MatchTreeView)
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
MsgBox("Fehler beim Laden der Profile. Möglicherweise liegt ein Konfigurationsfehler vor. Fehlermeldung: " & ex.Message, MsgBoxStyle.Critical, Text)
End Try End Try
Try Try
@ -1033,22 +1056,85 @@ Public Class frmFlowForm
End Sub End Sub
Private Sub SucheTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SucheTestToolStripMenuItem.Click
frmSearchNeu.Show()
End Sub
Private Sub BasisKonfigurationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BasisKonfigurationToolStripMenuItem.Click Private Sub BasisKonfigurationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BasisKonfigurationToolStripMenuItem.Click
frmConfigBasic.ShowDialog() frmConfigBasic.ShowDialog()
End Sub End Sub
Private Sub TestFlowSearchToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TestFlowSearchToolStripMenuItem.Click
Open_FlowSearch()
End Sub
Private Sub ShowErrorMessage(pEx As Exception) Private Sub ShowErrorMessage(pEx As Exception)
Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2) Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2)
ErrorHandler.ShowErrorMessage(pEx, oCallingClass) ErrorHandler.ShowErrorMessage(pEx, oCallingClass)
End Sub End Sub
Private Function GetResultWindowString(SearchContent As String) As String
If SearchContent <> String.Empty Then
If My.Application.User.Language = DigitalData.Modules.ZooFlow.State.UserState.LANG_DE_DE Then
Return $"Suche Nach '{SearchContent}'"
Else
Return $"Search For '{SearchContent}'"
End If
End If
End Function
Sub RunQuickSearch1()
Try
Dim oSQL = $"EXEC PRIDB_SEARCH_TEXT_GET_RESULTS {My.Application.User.UserId},'{TextEdit1.Text}',''"
Dim oParams = New DocumentResultList.Params() With {
.WindowGuid = "QuickFlowSearch1",
.WindowTitle = GetResultWindowString(TextEdit1.Text),
.OperationModeOverride = Modules.ZooFlow.Constants.OperationMode.ZooFlow,
.ProfileGuid = 354521
}
If My.DatabaseIDB.ExecuteNonQuery(oSQL) = True Then
Dim oDTDocResult = My.DatabaseIDB.GetDatatable(DocResultBaseSearch)
If oDTDocResult.Rows.Count > 0 Then
oParams.Results.Add(New DocumentResultList.DocumentResult() With {
.Title = GetResultWindowString(TextEdit1.Text),
.Datatable = oDTDocResult})
Dim oForm As New frmDocumentResultList(My.LogConfig, _Environment, oParams)
'AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
'AddHandler oForm.NeedsRefresh, AddressOf ProfileResultForm_NeedsRefresh
'OpenForms.Add(oForm)
oForm.Show()
Else
MsgBox("No Results")
End If
End If
Catch ex As Exception
Logger.Error(ex)
MsgBox("Unhandled exception in RunQuickSearch1: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub TextEdit1_KeyUp(sender As Object, e As KeyEventArgs) Handles TextEdit1.KeyUp
If e.KeyCode = Keys.Return Then
CheckRunSearch1()
End If
End Sub
Sub CheckRunSearch1()
If TextEdit1.Text <> String.Empty Then
RunQuickSearch1()
End If
End Sub
Private Sub PictureEdit1_Click(sender As Object, e As EventArgs) Handles PictureEdit1.Click
CheckRunSearch1()
End Sub
Private Sub frmFlowForm_Shown(sender As Object, e As EventArgs) Handles Me.Shown
End Sub
End Class End Class

2
GUIs.ZooFlow/modCurrent.vb
View File

@ -13,4 +13,6 @@ Module modCurrent
Public Property NI_MESSAGE As String = "" Public Property NI_MESSAGE As String = ""
Public Property NI_TYPE As String = "INFO" Public Property NI_TYPE As String = "INFO"
Public Property GLOBIX_JUMP_DOCTYPE_ID As Integer Public Property GLOBIX_JUMP_DOCTYPE_ID As Integer
Public Property DocResultBaseSearch As String
End Module End Module