MS Adminsitration

This commit is contained in:
2021-02-10 12:12:42 +01:00
parent 0ed1854dac
commit 049703c614
7 changed files with 836 additions and 124 deletions

View File

@@ -23,6 +23,14 @@ Partial Class frmAdministrationZooFlow
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim GUIDLabel As System.Windows.Forms.Label
Dim TITLELabel As System.Windows.Forms.Label
Dim VIEW_SEQUENCELabel As System.Windows.Forms.Label
Dim COMMENTLabel As System.Windows.Forms.Label
Dim ADDED_WHOLabel As System.Windows.Forms.Label
Dim ADDED_WHENLabel As System.Windows.Forms.Label
Dim CHANGED_WHOLabel As System.Windows.Forms.Label
Dim CHANGED_WHENLabel As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdministrationZooFlow))
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
@@ -30,6 +38,8 @@ Partial Class frmAdministrationZooFlow
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
Me.labelStatus = New DevExpress.XtraBars.BarStaticItem()
Me.labelError = New DevExpress.XtraBars.BarStaticItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage_ClipboardWatcher = New DevExpress.XtraBars.Ribbon.RibbonPage()
@@ -54,8 +64,46 @@ Partial Class frmAdministrationZooFlow
Me.CtrlClipboardWatcher1 = New DigitalData.GUIs.ZooFlow.ctrlClipboardWatcher()
Me.XtraTabPage_GlobalIndexer = New DevExpress.XtraTab.XtraTabPage()
Me.CtrlGlobalIndexer1 = New DigitalData.GUIs.ZooFlow.ctrlGlobalIndexer()
Me.labelStatus = New DevExpress.XtraBars.BarStaticItem()
Me.labelError = New DevExpress.XtraBars.BarStaticItem()
Me.XtraTabPage_IDB = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabControlIDB = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabPageIDB_Attributes = New DevExpress.XtraTab.XtraTabPage()
Me.TBIDB_ATTRIBUTEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten()
Me.GUIDTextBox = New System.Windows.Forms.TextBox()
Me.TITLETextBox = New System.Windows.Forms.TextBox()
Me.TYP_IDTextBox = New System.Windows.Forms.TextBox()
Me.MULTI_CONTEXTCheckBox = New System.Windows.Forms.CheckBox()
Me.VIEW_SEQUENCETextBox = New System.Windows.Forms.TextBox()
Me.VIEW_VISIBLECheckBox = New System.Windows.Forms.CheckBox()
Me.COMMENTTextBox = New System.Windows.Forms.TextBox()
Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox()
Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox()
Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
Me.TBIDB_ATTRIBUTETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTETableAdapter()
Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colTITLE = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colATTR_TYPE = New DevExpress.XtraGrid.Columns.GridColumn()
Me.TBIDB_ATTRIBUTE_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBIDB_ATTRIBUTE_TYPETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTE_TYPETableAdapter()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.RibbonPage_IDB = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroupAttributes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.BarButtonItemSaveAttribute = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItemAddAttribute = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItemRefreshAttribute = New DevExpress.XtraBars.BarButtonItem()
GUIDLabel = New System.Windows.Forms.Label()
TITLELabel = New System.Windows.Forms.Label()
VIEW_SEQUENCELabel = New System.Windows.Forms.Label()
COMMENTLabel = New System.Windows.Forms.Label()
ADDED_WHOLabel = New System.Windows.Forms.Label()
ADDED_WHENLabel = New System.Windows.Forms.Label()
CHANGED_WHOLabel = New System.Windows.Forms.Label()
CHANGED_WHENLabel = New System.Windows.Forms.Label()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -66,17 +114,98 @@ Partial Class frmAdministrationZooFlow
Me.XtraTabControl.SuspendLayout()
Me.XtraTabPage_ClipboardWatcher.SuspendLayout()
Me.XtraTabPage_GlobalIndexer.SuspendLayout()
Me.XtraTabPage_IDB.SuspendLayout()
CType(Me.XtraTabControlIDB, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControlIDB.SuspendLayout()
Me.XtraTabPageIDB_Attributes.SuspendLayout()
CType(Me.TBIDB_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBIDB_ATTRIBUTE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'GUIDLabel
'
GUIDLabel.AutoSize = True
GUIDLabel.Location = New System.Drawing.Point(297, 12)
GUIDLabel.Name = "GUIDLabel"
GUIDLabel.Size = New System.Drawing.Size(36, 13)
GUIDLabel.TabIndex = 0
GUIDLabel.Text = "GUID:"
'
'TITLELabel
'
TITLELabel.AutoSize = True
TITLELabel.Location = New System.Drawing.Point(351, 12)
TITLELabel.Name = "TITLELabel"
TITLELabel.Size = New System.Drawing.Size(71, 13)
TITLELabel.TabIndex = 2
TITLELabel.Text = "Bezeichnung:"
'
'VIEW_SEQUENCELabel
'
VIEW_SEQUENCELabel.AutoSize = True
VIEW_SEQUENCELabel.Location = New System.Drawing.Point(351, 82)
VIEW_SEQUENCELabel.Name = "VIEW_SEQUENCELabel"
VIEW_SEQUENCELabel.Size = New System.Drawing.Size(93, 13)
VIEW_SEQUENCELabel.TabIndex = 8
VIEW_SEQUENCELabel.Text = "View Reihenfolge:"
'
'COMMENTLabel
'
COMMENTLabel.AutoSize = True
COMMENTLabel.Location = New System.Drawing.Point(351, 106)
COMMENTLabel.Name = "COMMENTLabel"
COMMENTLabel.Size = New System.Drawing.Size(65, 13)
COMMENTLabel.TabIndex = 12
COMMENTLabel.Text = "Kommentar:"
'
'ADDED_WHOLabel
'
ADDED_WHOLabel.AutoSize = True
ADDED_WHOLabel.Location = New System.Drawing.Point(351, 146)
ADDED_WHOLabel.Name = "ADDED_WHOLabel"
ADDED_WHOLabel.Size = New System.Drawing.Size(65, 13)
ADDED_WHOLabel.TabIndex = 14
ADDED_WHOLabel.Text = "Erstellt wer:"
'
'ADDED_WHENLabel
'
ADDED_WHENLabel.AutoSize = True
ADDED_WHENLabel.Location = New System.Drawing.Point(472, 146)
ADDED_WHENLabel.Name = "ADDED_WHENLabel"
ADDED_WHENLabel.Size = New System.Drawing.Size(73, 13)
ADDED_WHENLabel.TabIndex = 16
ADDED_WHENLabel.Text = "Erstellt wann:"
'
'CHANGED_WHOLabel
'
CHANGED_WHOLabel.AutoSize = True
CHANGED_WHOLabel.Location = New System.Drawing.Point(351, 188)
CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 13)
CHANGED_WHOLabel.TabIndex = 18
CHANGED_WHOLabel.Text = "Geändert wer:"
'
'CHANGED_WHENLabel
'
CHANGED_WHENLabel.AutoSize = True
CHANGED_WHENLabel.Location = New System.Drawing.Point(472, 188)
CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
CHANGED_WHENLabel.Size = New System.Drawing.Size(85, 13)
CHANGED_WHENLabel.TabIndex = 20
CHANGED_WHENLabel.Text = "Geändert wann:"
'
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.labelStatus, Me.labelError})
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.labelStatus, Me.labelError, Me.BarButtonItemSaveAttribute, Me.BarButtonItemAddAttribute, Me.BarButtonItemRefreshAttribute})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 8
Me.RibbonControl1.MaxItemId = 11
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage_ClipboardWatcher, Me.RibbonPage_GlobalIndexer})
Me.RibbonControl1.Size = New System.Drawing.Size(1328, 159)
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage_ClipboardWatcher, Me.RibbonPage_GlobalIndexer, Me.RibbonPage_IDB})
Me.RibbonControl1.Size = New System.Drawing.Size(1328, 158)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'BarButtonItem1
@@ -117,6 +246,22 @@ Partial Class frmAdministrationZooFlow
Me.BarButtonItem5.Name = "BarButtonItem5"
Me.BarButtonItem5.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'labelStatus
'
Me.labelStatus.Caption = "labelStatus"
Me.labelStatus.Id = 6
Me.labelStatus.ImageOptions.SvgImage = CType(resources.GetObject("labelStatus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.labelStatus.Name = "labelStatus"
Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
'
'labelError
'
Me.labelError.Caption = "labelError"
Me.labelError.Id = 7
Me.labelError.ImageOptions.SvgImage = CType(resources.GetObject("labelError.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.labelError.Name = "labelError"
Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2})
@@ -186,10 +331,10 @@ Partial Class frmAdministrationZooFlow
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 729)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 727)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1328, 22)
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1328, 24)
'
'RibbonPage2
'
@@ -218,7 +363,7 @@ Partial Class frmAdministrationZooFlow
Me.TreeList1.OptionsView.ShowIndicator = False
Me.TreeList1.OptionsView.ShowVertLines = False
Me.TreeList1.SelectImageList = Me.SvgImageCollection1
Me.TreeList1.Size = New System.Drawing.Size(193, 521)
Me.TreeList1.Size = New System.Drawing.Size(193, 540)
Me.TreeList1.TabIndex = 8
'
'TreeListColumn1
@@ -246,37 +391,37 @@ Partial Class frmAdministrationZooFlow
Me.DockPanel1.Controls.Add(Me.DockPanel1_Container)
Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left
Me.DockPanel1.ID = New System.Guid("ce81b5b5-eff5-4006-8018-548aa8413799")
Me.DockPanel1.Location = New System.Drawing.Point(0, 159)
Me.DockPanel1.Location = New System.Drawing.Point(0, 158)
Me.DockPanel1.Name = "DockPanel1"
Me.DockPanel1.OriginalSize = New System.Drawing.Size(200, 200)
Me.DockPanel1.Size = New System.Drawing.Size(200, 570)
Me.DockPanel1.Size = New System.Drawing.Size(200, 569)
Me.DockPanel1.Text = "Übersicht"
'
'DockPanel1_Container
'
Me.DockPanel1_Container.Controls.Add(Me.TreeList1)
Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 46)
Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 26)
Me.DockPanel1_Container.Name = "DockPanel1_Container"
Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 521)
Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 540)
Me.DockPanel1_Container.TabIndex = 0
'
'XtraTabControl
'
Me.XtraTabControl.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControl.Location = New System.Drawing.Point(200, 159)
Me.XtraTabControl.Location = New System.Drawing.Point(200, 158)
Me.XtraTabControl.Name = "XtraTabControl"
Me.XtraTabControl.SelectedTabPage = Me.XtraTabPage_ClipboardWatcher
Me.XtraTabControl.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[False]
Me.XtraTabControl.Size = New System.Drawing.Size(1128, 570)
Me.XtraTabControl.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True]
Me.XtraTabControl.Size = New System.Drawing.Size(1128, 569)
Me.XtraTabControl.TabIndex = 4
Me.XtraTabControl.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage_ClipboardWatcher, Me.XtraTabPage_GlobalIndexer})
Me.XtraTabControl.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage_ClipboardWatcher, Me.XtraTabPage_GlobalIndexer, Me.XtraTabPage_IDB})
'
'XtraTabPage_ClipboardWatcher
'
Me.XtraTabPage_ClipboardWatcher.Controls.Add(Me.CtrlClipboardWatcher1)
Me.XtraTabPage_ClipboardWatcher.Name = "XtraTabPage_ClipboardWatcher"
Me.XtraTabPage_ClipboardWatcher.PageVisible = False
Me.XtraTabPage_ClipboardWatcher.Size = New System.Drawing.Size(1126, 568)
Me.XtraTabPage_ClipboardWatcher.Size = New System.Drawing.Size(1126, 544)
Me.XtraTabPage_ClipboardWatcher.Text = "Clipboard Watcher"
'
'CtrlClipboardWatcher1
@@ -284,7 +429,7 @@ Partial Class frmAdministrationZooFlow
Me.CtrlClipboardWatcher1.Dock = System.Windows.Forms.DockStyle.Fill
Me.CtrlClipboardWatcher1.Location = New System.Drawing.Point(0, 0)
Me.CtrlClipboardWatcher1.Name = "CtrlClipboardWatcher1"
Me.CtrlClipboardWatcher1.Size = New System.Drawing.Size(1126, 568)
Me.CtrlClipboardWatcher1.Size = New System.Drawing.Size(1126, 544)
Me.CtrlClipboardWatcher1.TabIndex = 0
'
'XtraTabPage_GlobalIndexer
@@ -292,32 +437,285 @@ Partial Class frmAdministrationZooFlow
Me.XtraTabPage_GlobalIndexer.Controls.Add(Me.CtrlGlobalIndexer1)
Me.XtraTabPage_GlobalIndexer.Name = "XtraTabPage_GlobalIndexer"
Me.XtraTabPage_GlobalIndexer.PageVisible = False
Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(1126, 568)
Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(1126, 544)
Me.XtraTabPage_GlobalIndexer.Text = "Global Indexer"
'
'CtrlGlobalIndexer1
'
Me.CtrlGlobalIndexer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.CtrlGlobalIndexer1.Location = New System.Drawing.Point(0, 0)
Me.CtrlGlobalIndexer1.Location = New System.Drawing.Point(42, 29)
Me.CtrlGlobalIndexer1.Name = "CtrlGlobalIndexer1"
Me.CtrlGlobalIndexer1.Size = New System.Drawing.Size(1126, 568)
Me.CtrlGlobalIndexer1.Size = New System.Drawing.Size(1084, 539)
Me.CtrlGlobalIndexer1.TabIndex = 0
'
'labelStatus
'XtraTabPage_IDB
'
Me.labelStatus.Caption = "labelStatus"
Me.labelStatus.Id = 6
Me.labelStatus.ImageOptions.SvgImage = CType(resources.GetObject("txtSuccessStatus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.labelStatus.Name = "labelStatus"
Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
Me.XtraTabPage_IDB.Controls.Add(Me.XtraTabControlIDB)
Me.XtraTabPage_IDB.Name = "XtraTabPage_IDB"
Me.XtraTabPage_IDB.Size = New System.Drawing.Size(1126, 544)
Me.XtraTabPage_IDB.Text = "IDB"
'
'labelError
'XtraTabControlIDB
'
Me.labelError.Caption = "labelError"
Me.labelError.Id = 7
Me.labelError.ImageOptions.SvgImage = CType(resources.GetObject("labelError.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.labelError.Name = "labelError"
Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
Me.XtraTabControlIDB.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControlIDB.Location = New System.Drawing.Point(0, 0)
Me.XtraTabControlIDB.Name = "XtraTabControlIDB"
Me.XtraTabControlIDB.SelectedTabPage = Me.XtraTabPage1
Me.XtraTabControlIDB.Size = New System.Drawing.Size(1126, 544)
Me.XtraTabControlIDB.TabIndex = 0
Me.XtraTabControlIDB.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPageIDB_Attributes})
'
'XtraTabPage1
'
Me.XtraTabPage1.Name = "XtraTabPage1"
Me.XtraTabPage1.Size = New System.Drawing.Size(1124, 519)
Me.XtraTabPage1.Text = "XtraTabPage1"
'
'XtraTabPageIDB_Attributes
'
Me.XtraTabPageIDB_Attributes.AutoScroll = True
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.ComboBox1)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.GridControl1)
Me.XtraTabPageIDB_Attributes.Controls.Add(GUIDLabel)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.GUIDTextBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(TITLELabel)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.TITLETextBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.TYP_IDTextBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.MULTI_CONTEXTCheckBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(VIEW_SEQUENCELabel)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.VIEW_SEQUENCETextBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.VIEW_VISIBLECheckBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(COMMENTLabel)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.COMMENTTextBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(ADDED_WHOLabel)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.ADDED_WHOTextBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(ADDED_WHENLabel)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.ADDED_WHENTextBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(CHANGED_WHOLabel)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.CHANGED_WHOTextBox)
Me.XtraTabPageIDB_Attributes.Controls.Add(CHANGED_WHENLabel)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.CHANGED_WHENTextBox)
Me.XtraTabPageIDB_Attributes.Name = "XtraTabPageIDB_Attributes"
Me.XtraTabPageIDB_Attributes.Size = New System.Drawing.Size(1124, 519)
Me.XtraTabPageIDB_Attributes.Text = "Attributverwaltung"
'
'TBIDB_ATTRIBUTEBindingSource
'
Me.TBIDB_ATTRIBUTEBindingSource.DataMember = "TBIDB_ATTRIBUTE"
Me.TBIDB_ATTRIBUTEBindingSource.DataSource = Me.DSIDB_Stammdaten
'
'DSIDB_Stammdaten
'
Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten"
Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'GUIDTextBox
'
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "GUID", True))
Me.GUIDTextBox.Location = New System.Drawing.Point(300, 28)
Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True
Me.GUIDTextBox.Size = New System.Drawing.Size(33, 21)
Me.GUIDTextBox.TabIndex = 1
'
'TITLETextBox
'
Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "TITLE", True))
Me.TITLETextBox.Location = New System.Drawing.Point(354, 28)
Me.TITLETextBox.Name = "TITLETextBox"
Me.TITLETextBox.Size = New System.Drawing.Size(290, 21)
Me.TITLETextBox.TabIndex = 3
'
'TYP_IDTextBox
'
Me.TYP_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "TYP_ID", True))
Me.TYP_IDTextBox.Location = New System.Drawing.Point(777, 28)
Me.TYP_IDTextBox.Name = "TYP_IDTextBox"
Me.TYP_IDTextBox.Size = New System.Drawing.Size(104, 21)
Me.TYP_IDTextBox.TabIndex = 5
'
'MULTI_CONTEXTCheckBox
'
Me.MULTI_CONTEXTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBIDB_ATTRIBUTEBindingSource, "MULTI_CONTEXT", True))
Me.MULTI_CONTEXTCheckBox.Location = New System.Drawing.Point(354, 55)
Me.MULTI_CONTEXTCheckBox.Name = "MULTI_CONTEXTCheckBox"
Me.MULTI_CONTEXTCheckBox.Size = New System.Drawing.Size(142, 24)
Me.MULTI_CONTEXTCheckBox.TabIndex = 7
Me.MULTI_CONTEXTCheckBox.Text = "Vektor/Multi Context"
Me.MULTI_CONTEXTCheckBox.UseVisualStyleBackColor = True
'
'VIEW_SEQUENCETextBox
'
Me.VIEW_SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "VIEW_SEQUENCE", True))
Me.VIEW_SEQUENCETextBox.Location = New System.Drawing.Point(450, 79)
Me.VIEW_SEQUENCETextBox.Name = "VIEW_SEQUENCETextBox"
Me.VIEW_SEQUENCETextBox.Size = New System.Drawing.Size(33, 21)
Me.VIEW_SEQUENCETextBox.TabIndex = 9
'
'VIEW_VISIBLECheckBox
'
Me.VIEW_VISIBLECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBIDB_ATTRIBUTEBindingSource, "VIEW_VISIBLE", True))
Me.VIEW_VISIBLECheckBox.Location = New System.Drawing.Point(502, 77)
Me.VIEW_VISIBLECheckBox.Name = "VIEW_VISIBLECheckBox"
Me.VIEW_VISIBLECheckBox.Size = New System.Drawing.Size(104, 24)
Me.VIEW_VISIBLECheckBox.TabIndex = 11
Me.VIEW_VISIBLECheckBox.Text = "View visible"
Me.VIEW_VISIBLECheckBox.UseVisualStyleBackColor = True
'
'COMMENTTextBox
'
Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "COMMENT", True))
Me.COMMENTTextBox.Location = New System.Drawing.Point(354, 122)
Me.COMMENTTextBox.Name = "COMMENTTextBox"
Me.COMMENTTextBox.Size = New System.Drawing.Size(417, 21)
Me.COMMENTTextBox.TabIndex = 13
'
'ADDED_WHOTextBox
'
Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "ADDED_WHO", True))
Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(354, 164)
Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox"
Me.ADDED_WHOTextBox.ReadOnly = True
Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(104, 21)
Me.ADDED_WHOTextBox.TabIndex = 15
'
'ADDED_WHENTextBox
'
Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "ADDED_WHEN", True))
Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(475, 164)
Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox"
Me.ADDED_WHENTextBox.ReadOnly = True
Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(131, 21)
Me.ADDED_WHENTextBox.TabIndex = 17
'
'CHANGED_WHOTextBox
'
Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "CHANGED_WHO", True))
Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(354, 204)
Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
Me.CHANGED_WHOTextBox.ReadOnly = True
Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(104, 21)
Me.CHANGED_WHOTextBox.TabIndex = 19
'
'CHANGED_WHENTextBox
'
Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "CHANGED_WHEN", True))
Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(475, 204)
Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
Me.CHANGED_WHENTextBox.ReadOnly = True
Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(131, 21)
Me.CHANGED_WHENTextBox.TabIndex = 21
'
'TBIDB_ATTRIBUTETableAdapter
'
Me.TBIDB_ATTRIBUTETableAdapter.ClearBeforeFill = True
'
'TableAdapterManager
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Me.TBIDB_ATTRIBUTETableAdapter
Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'GridControl1
'
Me.GridControl1.DataSource = Me.TBIDB_ATTRIBUTEBindingSource
Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Left
Me.GridControl1.Location = New System.Drawing.Point(0, 0)
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.MenuManager = Me.RibbonControl1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(282, 519)
Me.GridControl1.TabIndex = 28
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'GridView1
'
Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Gainsboro
Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colTITLE, Me.colATTR_TYPE})
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
'
'colGUID
'
Me.colGUID.Caption = "ID"
Me.colGUID.FieldName = "GUID"
Me.colGUID.Name = "colGUID"
Me.colGUID.Visible = True
Me.colGUID.VisibleIndex = 0
Me.colGUID.Width = 49
'
'colTITLE
'
Me.colTITLE.Caption = "Title"
Me.colTITLE.FieldName = "TITLE"
Me.colTITLE.Name = "colTITLE"
Me.colTITLE.Visible = True
Me.colTITLE.VisibleIndex = 1
Me.colTITLE.Width = 135
'
'colATTR_TYPE
'
Me.colATTR_TYPE.Caption = "Typ"
Me.colATTR_TYPE.FieldName = "ATTR_TYPE"
Me.colATTR_TYPE.Name = "colATTR_TYPE"
Me.colATTR_TYPE.Visible = True
Me.colATTR_TYPE.VisibleIndex = 2
Me.colATTR_TYPE.Width = 73
'
'TBIDB_ATTRIBUTE_TYPEBindingSource
'
Me.TBIDB_ATTRIBUTE_TYPEBindingSource.DataMember = "TBIDB_ATTRIBUTE_TYPE"
Me.TBIDB_ATTRIBUTE_TYPEBindingSource.DataSource = Me.DSIDB_Stammdaten
'
'TBIDB_ATTRIBUTE_TYPETableAdapter
'
Me.TBIDB_ATTRIBUTE_TYPETableAdapter.ClearBeforeFill = True
'
'ComboBox1
'
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Location = New System.Drawing.Point(650, 28)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(121, 21)
Me.ComboBox1.TabIndex = 29
'
'RibbonPage_IDB
'
Me.RibbonPage_IDB.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupAttributes})
Me.RibbonPage_IDB.Name = "RibbonPage_IDB"
Me.RibbonPage_IDB.Text = "IDB Administration"
'
'RibbonPageGroupAttributes
'
Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemSaveAttribute)
Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemAddAttribute)
Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemRefreshAttribute)
Me.RibbonPageGroupAttributes.Name = "RibbonPageGroupAttributes"
Me.RibbonPageGroupAttributes.Text = "Attribute"
'
'BarButtonItemSaveAttribute
'
Me.BarButtonItemSaveAttribute.Caption = "Speichern"
Me.BarButtonItemSaveAttribute.Id = 8
Me.BarButtonItemSaveAttribute.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItemSaveAttribute.Name = "BarButtonItemSaveAttribute"
'
'BarButtonItemAddAttribute
'
Me.BarButtonItemAddAttribute.Caption = "Hinzufügen"
Me.BarButtonItemAddAttribute.Id = 9
Me.BarButtonItemAddAttribute.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem7.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItemAddAttribute.Name = "BarButtonItemAddAttribute"
'
'BarButtonItemRefreshAttribute
'
Me.BarButtonItemRefreshAttribute.Caption = "Aktualisieren"
Me.BarButtonItemRefreshAttribute.Id = 10
Me.BarButtonItemRefreshAttribute.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem8.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItemRefreshAttribute.Name = "BarButtonItemRefreshAttribute"
'
'frmAdministrationZooFlow
'
@@ -343,6 +741,16 @@ Partial Class frmAdministrationZooFlow
Me.XtraTabControl.ResumeLayout(False)
Me.XtraTabPage_ClipboardWatcher.ResumeLayout(False)
Me.XtraTabPage_GlobalIndexer.ResumeLayout(False)
Me.XtraTabPage_IDB.ResumeLayout(False)
CType(Me.XtraTabControlIDB, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControlIDB.ResumeLayout(False)
Me.XtraTabPageIDB_Attributes.ResumeLayout(False)
Me.XtraTabPageIDB_Attributes.PerformLayout()
CType(Me.TBIDB_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBIDB_ATTRIBUTE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -380,4 +788,39 @@ Partial Class frmAdministrationZooFlow
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem
Friend WithEvents labelError As DevExpress.XtraBars.BarStaticItem
Friend WithEvents XtraTabPage_IDB As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabControlIDB As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPageIDB_Attributes As DevExpress.XtraTab.XtraTabPage
Friend WithEvents TBIDB_ATTRIBUTEBindingSource As BindingSource
Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten
Friend WithEvents TBIDB_ATTRIBUTETableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTETableAdapter
Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager
Friend WithEvents GUIDTextBox As TextBox
Friend WithEvents TITLETextBox As TextBox
Friend WithEvents TYP_IDTextBox As TextBox
Friend WithEvents MULTI_CONTEXTCheckBox As CheckBox
Friend WithEvents VIEW_SEQUENCETextBox As TextBox
Friend WithEvents VIEW_VISIBLECheckBox As CheckBox
Friend WithEvents COMMENTTextBox As TextBox
Friend WithEvents ADDED_WHOTextBox As TextBox
Friend WithEvents ADDED_WHENTextBox As TextBox
Friend WithEvents CHANGED_WHOTextBox As TextBox
Friend WithEvents CHANGED_WHENTextBox As TextBox
Friend WithEvents DELETEDCheckBox As CheckBox
Friend WithEvents DELETED_WHOTextBox As TextBox
Friend WithEvents DELETED_WHENTextBox As TextBox
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colTITLE As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colATTR_TYPE As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents TBIDB_ATTRIBUTE_TYPEBindingSource As BindingSource
Friend WithEvents TBIDB_ATTRIBUTE_TYPETableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTE_TYPETableAdapter
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents BarButtonItemSaveAttribute As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItemAddAttribute As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPage_IDB As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroupAttributes As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents BarButtonItemRefreshAttribute As DevExpress.XtraBars.BarButtonItem
End Class

View File

@@ -117,6 +117,30 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="GUIDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="TITLELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="VIEW_SEQUENCELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="COMMENTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="ADDED_WHOLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="ADDED_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="CHANGED_WHOLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="CHANGED_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -209,7 +233,7 @@
DQo8L3N2Zz4L
</value>
</data>
<data name="txtSuccessStatus.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="labelStatus.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
@@ -244,6 +268,62 @@
MTYsMjRjLTEuMSwwLTItMC45LTItMmMwLTEuMSwwLjktMiwyLTIgICBzMiwwLjksMiwyQzE4LDIzLjEs
MTcuMSwyNCwxNiwyNHogTTE4LDE4aC00VjhoNFYxOHoiIGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwv
c3ZnPgs=
</value>
</data>
<data name="BarButtonItem6.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iU2F2ZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg
MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5
bGU+DQogIDxwYXRoIGQ9Ik0yNyw0aC0zdjEwSDhWNEg1QzQuNCw0LDQsNC40LDQsNXYyMmMwLDAuNiww
LjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjVDMjgsNC40LDI3LjYsNCwyNyw0eiBNMjQsMjRIOHYt
NiAgaDE2VjI0eiBNMTAsNHY4aDEwVjRIMTB6IE0xNCwxMGgtMlY2aDJWMTB6IiBjbGFzcz0iQmxhY2si
IC8+DQo8L3N2Zz4L
</value>
</data>
<data name="BarButtonItem7.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKcCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZCI+DQogICAgPHBhdGggZD0iTTI3LDE0aC05VjVj
MC0wLjUtMC41LTEtMS0xaC0yYy0wLjUsMC0xLDAuNS0xLDF2OUg1Yy0wLjUsMC0xLDAuNS0xLDF2MmMw
LDAuNSwwLjUsMSwxLDFoOXY5ICAgYzAsMC41LDAuNSwxLDEsMWgyYzAuNSwwLDEtMC41LDEtMXYtOWg5
YzAuNSwwLDEtMC41LDEtMXYtMkMyOCwxNC41LDI3LjUsMTQsMjcsMTR6IiBjbGFzcz0iR3JlZW4iIC8+
DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItem8.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAC4DAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlJlZnJlc2hfMV8iPg0KICAgIDxwYXRoIGQ9Ik0yNC41
LDcuNUMyMi4zLDUuMywxOS4zLDQsMTYsNEMxMC4xLDQsNS4xLDguMyw0LjIsMTRoNC4xYzAuOS0zLjQs
NC02LDcuNy02YzIuMiwwLDQuMiwwLjksNS42LDIuNEwxOCwxNCAgIGg1LjdoNC4xSDI4VjRMMjQuNSw3
LjV6IiBjbGFzcz0iR3JlZW4iIC8+DQogICAgPHBhdGggZD0iTTE2LjIsMjRjLTIuMiwwLTQuMi0wLjkt
NS42LTIuNGwzLjYtMy42SDguNEg0LjRINC4ydjEwbDMuNS0zLjVjMi4yLDIuMiw1LjIsMy41LDguNSwz
LjUgICBDMjIuMSwyOCwyNywyMy43LDI4LDE4aC00LjFDMjMsMjEuNCwxOS45LDI0LDE2LjIsMjR6IiBj
bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<metadata name="SvgImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -252,6 +332,12 @@
<metadata name="DockManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>352, 21</value>
</metadata>
<metadata name="TBIDB_ATTRIBUTEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>647, 21</value>
</metadata>
<metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>487, 21</value>
</metadata>
<data name="frmAdministrationZooFlow.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
@@ -275,4 +361,19 @@
LjEsMjguMSwyNy42LDI3LjZ6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value>
</data>
<metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>487, 21</value>
</metadata>
<metadata name="TBIDB_ATTRIBUTETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>875, 21</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1097, 21</value>
</metadata>
<metadata name="TBIDB_ATTRIBUTE_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1270, 21</value>
</metadata>
<metadata name="TBIDB_ATTRIBUTE_TYPETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1530, 21</value>
</metadata>
</root>

View File

@@ -5,6 +5,7 @@ Imports DigitalData.Modules.Logging
Public Class frmAdministrationZooFlow
Private Const IDB_ATTRIBUTES = "IDB_ATTRIBUTES"
Private Const IDBConst = "IDB"
Private Const IDB_ENTITIES = "IDB_ENTITIES"
Private Const GLOBIX = "GLOBIX"
Private Const CLIPBOARD_WATCHER = "CLIPBOARD_WATCHER"
@@ -12,15 +13,16 @@ Public Class frmAdministrationZooFlow
Private Logger As Logger
Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Logger = My.LogConfig.GetLogger
XtraTabControl.ShowTabHeader = False
End Sub
Sub DisplayTab(PageToDisplay As XtraTabPage)
Sub DisplayTab(pPageToDisplay As XtraTabPage, pTabControl As XtraTabControl)
Try
For Each oDocument As XtraTabPage In XtraTabControl.TabPages
If oDocument.Name = PageToDisplay.Name Then
For Each oDocument As XtraTabPage In pTabControl.TabPages
If oDocument.Name = pPageToDisplay.Name Then
oDocument.PageVisible = True
Else
oDocument.PageVisible = False
@@ -51,15 +53,22 @@ Public Class frmAdministrationZooFlow
End If
Select Case e.Node.Tag.ToString
Case IDBConst
DisplayTab(XtraTabPage_IDB, XtraTabControl)
Case IDB_ATTRIBUTES
'DisplayTab(ctrl)
TBIDB_ATTRIBUTE_TYPETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
Me.TBIDB_ATTRIBUTE_TYPETableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPE)
TBIDB_ATTRIBUTETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
Me.TBIDB_ATTRIBUTETableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_ATTRIBUTE)
DisplayTab(XtraTabPage_IDB, XtraTabControl)
DisplayTab(XtraTabPageIDB_Attributes, XtraTabControlIDB)
Case IDB_ENTITIES
'DisplayTab(XtraTabPage_Entities)
Case GLOBIX
DisplayTab(XtraTabPage_GlobalIndexer)
DisplayTab(XtraTabPage_GlobalIndexer, XtraTabControl)
DisplayRibbonPage(RibbonPage_GlobalIndexer)
Case CLIPBOARD_WATCHER
DisplayTab(XtraTabPage_ClipboardWatcher)
DisplayTab(XtraTabPage_ClipboardWatcher, XtraTabControl)
DisplayRibbonPage(RibbonPage_ClipboardWatcher)
End Select
End Sub
@@ -68,4 +77,31 @@ Public Class frmAdministrationZooFlow
End Sub
Private Sub TBIDB_ATTRIBUTEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
Me.Validate()
Me.TBIDB_ATTRIBUTEBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DSIDB_Stammdaten)
End Sub
Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemAddAttribute.ItemClick
End Sub
Private Sub BarButtonItemSaveAttribute_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemSaveAttribute.ItemClick
Save_Attribute
End Sub
Sub Save_Attribute()
Try
TBIDB_ATTRIBUTEBindingSource.EndEdit()
If Not IsNothing(DSIDB_Stammdaten.GetChanges) Then
CHANGED_WHOTextBox.Text = My.Application.User.UserName
TBIDB_ATTRIBUTEBindingSource.EndEdit()
TBIDB_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.TBIDB_ATTRIBUTE)
labelStatus.Caption = $"IDB Attribute saved - {Now.ToLongTimeString}"
End If
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
End Class