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

ZooFlow: Finishing Attribute Form

Browse Source
This commit is contained in:
Jonathan Jenne 2021-02-12 11:28:25 +01:00
parent 882b5b9718
commit 4108410b15
13 changed files with 269 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
GUIs.ZooFlow/Administration/frmAdmin_Attribute.Designer.vb → GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb generated
View File

@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_Attribute Partial Class frmAdmin_IDBAttribute
Inherits DevExpress.XtraBars.Ribbon.RibbonForm Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.

0
GUIs.ZooFlow/Administration/frmAdmin_Attribute.resx → GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.resx
View File

8
GUIs.ZooFlow/Administration/frmAdmin_Attribute.vb → GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb
View File

@ -1,12 +1,12 @@
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Public Class frmAdmin_Attribute Public Class frmAdmin_IDBAttribute
Implements interfaceAdmin_Form Implements interfaceAdmin_Form
Private Property PrimaryKey As Integer Implements interfaceAdmin_Form.PrimaryKey
Private Property Logger As Logger Implements interfaceAdmin_Form.Logger Private Property Logger As Logger Implements interfaceAdmin_Form.Logger
Public Property HasChanges As Boolean = False Implements interfaceAdmin_Form.HasChanges Public Property HasChanges As Boolean = False Implements interfaceAdmin_Form.HasChanges
Public Property IsInsert As Boolean = False Implements interfaceAdmin_Form.IsInsert Public Property IsInsert As Boolean = False Implements interfaceAdmin_Form.IsInsert
Public Property PrimaryKey As Integer Implements interfaceAdmin_Form.PrimaryKey
Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False) Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
@ -59,9 +59,9 @@ Public Class frmAdmin_Attribute
HasChanges = True HasChanges = True
If IsInsert Then If IsInsert Then
txtAddedWho.Text = My.Application.User.UserName txtAddedWho.EditValue = My.Application.User.UserName
Else Else
txtChangedWho.Text = My.Application.User.UserName txtChangedWho.EditValue = My.Application.User.UserName
End If End If
TBIDB_ATTRIBUTEBindingSource.EndEdit() TBIDB_ATTRIBUTEBindingSource.EndEdit()

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

@ -43,6 +43,9 @@ Partial Class frmAdmin_Start
Me.BarButtonItemSaveAttribute = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItemSaveAttribute = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItemAddAttribute = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItemAddAttribute = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItemRefreshAttribute = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItemRefreshAttribute = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem()
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.RibbonPage_ClipboardWatcher = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage_ClipboardWatcher = New DevExpress.XtraBars.Ribbon.RibbonPage()
@ -123,8 +126,6 @@ Partial Class frmAdmin_Start
Me.XtraTabPageIDB_Attributes.SuspendLayout() Me.XtraTabPageIDB_Attributes.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPage_GlobalIndexer.SuspendLayout()
Me.XtraTabPage_ClipboardWatcher.SuspendLayout()
CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl.SuspendLayout() Me.XtraTabControl.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
@ -134,7 +135,7 @@ Partial Class frmAdmin_Start
CHANGED_WHENLabel.AutoSize = True CHANGED_WHENLabel.AutoSize = True
CHANGED_WHENLabel.Location = New System.Drawing.Point(472, 188) CHANGED_WHENLabel.Location = New System.Drawing.Point(472, 188)
CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
CHANGED_WHENLabel.Size = New System.Drawing.Size(85, 13) CHANGED_WHENLabel.Size = New System.Drawing.Size(90, 13)
CHANGED_WHENLabel.TabIndex = 20 CHANGED_WHENLabel.TabIndex = 20
CHANGED_WHENLabel.Text = "Geändert wann:" CHANGED_WHENLabel.Text = "Geändert wann:"
' '
@ -143,7 +144,7 @@ Partial Class frmAdmin_Start
CHANGED_WHOLabel.AutoSize = True CHANGED_WHOLabel.AutoSize = True
CHANGED_WHOLabel.Location = New System.Drawing.Point(351, 188) CHANGED_WHOLabel.Location = New System.Drawing.Point(351, 188)
CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 13) CHANGED_WHOLabel.Size = New System.Drawing.Size(80, 13)
CHANGED_WHOLabel.TabIndex = 18 CHANGED_WHOLabel.TabIndex = 18
CHANGED_WHOLabel.Text = "Geändert wer:" CHANGED_WHOLabel.Text = "Geändert wer:"
' '
@ -152,7 +153,7 @@ Partial Class frmAdmin_Start
ADDED_WHENLabel.AutoSize = True ADDED_WHENLabel.AutoSize = True
ADDED_WHENLabel.Location = New System.Drawing.Point(472, 146) ADDED_WHENLabel.Location = New System.Drawing.Point(472, 146)
ADDED_WHENLabel.Name = "ADDED_WHENLabel" ADDED_WHENLabel.Name = "ADDED_WHENLabel"
ADDED_WHENLabel.Size = New System.Drawing.Size(73, 13) ADDED_WHENLabel.Size = New System.Drawing.Size(77, 13)
ADDED_WHENLabel.TabIndex = 16 ADDED_WHENLabel.TabIndex = 16
ADDED_WHENLabel.Text = "Erstellt wann:" ADDED_WHENLabel.Text = "Erstellt wann:"
' '
@ -161,7 +162,7 @@ Partial Class frmAdmin_Start
ADDED_WHOLabel.AutoSize = True ADDED_WHOLabel.AutoSize = True
ADDED_WHOLabel.Location = New System.Drawing.Point(351, 146) ADDED_WHOLabel.Location = New System.Drawing.Point(351, 146)
ADDED_WHOLabel.Name = "ADDED_WHOLabel" ADDED_WHOLabel.Name = "ADDED_WHOLabel"
ADDED_WHOLabel.Size = New System.Drawing.Size(65, 13) ADDED_WHOLabel.Size = New System.Drawing.Size(67, 13)
ADDED_WHOLabel.TabIndex = 14 ADDED_WHOLabel.TabIndex = 14
ADDED_WHOLabel.Text = "Erstellt wer:" ADDED_WHOLabel.Text = "Erstellt wer:"
' '
@ -170,7 +171,7 @@ Partial Class frmAdmin_Start
COMMENTLabel.AutoSize = True COMMENTLabel.AutoSize = True
COMMENTLabel.Location = New System.Drawing.Point(351, 106) COMMENTLabel.Location = New System.Drawing.Point(351, 106)
COMMENTLabel.Name = "COMMENTLabel" COMMENTLabel.Name = "COMMENTLabel"
COMMENTLabel.Size = New System.Drawing.Size(65, 13) COMMENTLabel.Size = New System.Drawing.Size(68, 13)
COMMENTLabel.TabIndex = 12 COMMENTLabel.TabIndex = 12
COMMENTLabel.Text = "Kommentar:" COMMENTLabel.Text = "Kommentar:"
' '
@ -179,7 +180,7 @@ Partial Class frmAdmin_Start
VIEW_SEQUENCELabel.AutoSize = True VIEW_SEQUENCELabel.AutoSize = True
VIEW_SEQUENCELabel.Location = New System.Drawing.Point(351, 82) VIEW_SEQUENCELabel.Location = New System.Drawing.Point(351, 82)
VIEW_SEQUENCELabel.Name = "VIEW_SEQUENCELabel" VIEW_SEQUENCELabel.Name = "VIEW_SEQUENCELabel"
VIEW_SEQUENCELabel.Size = New System.Drawing.Size(93, 13) VIEW_SEQUENCELabel.Size = New System.Drawing.Size(101, 13)
VIEW_SEQUENCELabel.TabIndex = 8 VIEW_SEQUENCELabel.TabIndex = 8
VIEW_SEQUENCELabel.Text = "View Reihenfolge:" VIEW_SEQUENCELabel.Text = "View Reihenfolge:"
' '
@ -188,7 +189,7 @@ Partial Class frmAdmin_Start
TITLELabel.AutoSize = True TITLELabel.AutoSize = True
TITLELabel.Location = New System.Drawing.Point(351, 12) TITLELabel.Location = New System.Drawing.Point(351, 12)
TITLELabel.Name = "TITLELabel" TITLELabel.Name = "TITLELabel"
TITLELabel.Size = New System.Drawing.Size(71, 13) TITLELabel.Size = New System.Drawing.Size(76, 13)
TITLELabel.TabIndex = 2 TITLELabel.TabIndex = 2
TITLELabel.Text = "Bezeichnung:" TITLELabel.Text = "Bezeichnung:"
' '
@ -197,19 +198,19 @@ Partial Class frmAdmin_Start
GUIDLabel.AutoSize = True GUIDLabel.AutoSize = True
GUIDLabel.Location = New System.Drawing.Point(297, 12) GUIDLabel.Location = New System.Drawing.Point(297, 12)
GUIDLabel.Name = "GUIDLabel" GUIDLabel.Name = "GUIDLabel"
GUIDLabel.Size = New System.Drawing.Size(36, 13) GUIDLabel.Size = New System.Drawing.Size(37, 13)
GUIDLabel.TabIndex = 0 GUIDLabel.TabIndex = 0
GUIDLabel.Text = "GUID:" GUIDLabel.Text = "GUID:"
' '
'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.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.labelStatus, Me.labelError, Me.BarButtonItemSaveAttribute, Me.BarButtonItemAddAttribute, Me.BarButtonItemRefreshAttribute}) 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.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 11 Me.RibbonControl1.MaxItemId = 14
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage_ClipboardWatcher, Me.RibbonPage_GlobalIndexer, Me.RibbonPage_IDB}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage_ClipboardWatcher, Me.RibbonPage_GlobalIndexer, Me.RibbonPage_IDB})
Me.RibbonControl1.Size = New System.Drawing.Size(1328, 157) Me.RibbonControl1.Size = New System.Drawing.Size(1328, 159)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
' '
'BarButtonItem1 'BarButtonItem1
@ -287,6 +288,27 @@ Partial Class frmAdmin_Start
Me.BarButtonItemRefreshAttribute.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemRefreshAttribute.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItemRefreshAttribute.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemRefreshAttribute.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItemRefreshAttribute.Name = "BarButtonItemRefreshAttribute" Me.BarButtonItemRefreshAttribute.Name = "BarButtonItemRefreshAttribute"
' '
'BarButtonItem6
'
Me.BarButtonItem6.Caption = "Neues Attribut"
Me.BarButtonItem6.Id = 11
Me.BarButtonItem6.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_addcircled
Me.BarButtonItem6.Name = "BarButtonItem6"
'
'BarButtonItem7
'
Me.BarButtonItem7.Caption = "Bearbeiten"
Me.BarButtonItem7.Id = 12
Me.BarButtonItem7.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_edit
Me.BarButtonItem7.Name = "BarButtonItem7"
'
'BarButtonItem8
'
Me.BarButtonItem8.Caption = "Löschen"
Me.BarButtonItem8.Id = 13
Me.BarButtonItem8.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_deletecircled
Me.BarButtonItem8.Name = "BarButtonItem8"
'
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2})
@ -295,8 +317,11 @@ Partial Class frmAdmin_Start
' '
'RibbonPageGroup2 'RibbonPageGroup2
' '
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem6)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem7)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem8)
Me.RibbonPageGroup2.Name = "RibbonPageGroup2" Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "RibbonPageGroup2" Me.RibbonPageGroup2.Text = "Attribute"
' '
'RibbonPage_ClipboardWatcher 'RibbonPage_ClipboardWatcher
' '
@ -402,7 +427,7 @@ Partial Class frmAdmin_Start
Me.TreeListMenu.OptionsView.ShowIndicator = False Me.TreeListMenu.OptionsView.ShowIndicator = False
Me.TreeListMenu.OptionsView.ShowVertLines = False Me.TreeListMenu.OptionsView.ShowVertLines = False
Me.TreeListMenu.SelectImageList = Me.SvgImageCollection1 Me.TreeListMenu.SelectImageList = Me.SvgImageCollection1
Me.TreeListMenu.Size = New System.Drawing.Size(193, 523) Me.TreeListMenu.Size = New System.Drawing.Size(193, 521)
Me.TreeListMenu.TabIndex = 8 Me.TreeListMenu.TabIndex = 8
' '
'TreeListColumn1 'TreeListColumn1
@ -430,10 +455,10 @@ Partial Class frmAdmin_Start
Me.DockPanel1.Controls.Add(Me.DockPanel1_Container) Me.DockPanel1.Controls.Add(Me.DockPanel1_Container)
Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left
Me.DockPanel1.ID = New System.Guid("ce81b5b5-eff5-4006-8018-548aa8413799") Me.DockPanel1.ID = New System.Guid("ce81b5b5-eff5-4006-8018-548aa8413799")
Me.DockPanel1.Location = New System.Drawing.Point(0, 157) Me.DockPanel1.Location = New System.Drawing.Point(0, 159)
Me.DockPanel1.Name = "DockPanel1" Me.DockPanel1.Name = "DockPanel1"
Me.DockPanel1.OriginalSize = New System.Drawing.Size(200, 200) Me.DockPanel1.OriginalSize = New System.Drawing.Size(200, 200)
Me.DockPanel1.Size = New System.Drawing.Size(200, 572) Me.DockPanel1.Size = New System.Drawing.Size(200, 570)
Me.DockPanel1.Text = "Übersicht" Me.DockPanel1.Text = "Übersicht"
' '
'DockPanel1_Container 'DockPanel1_Container
@ -441,7 +466,7 @@ Partial Class frmAdmin_Start
Me.DockPanel1_Container.Controls.Add(Me.TreeListMenu) Me.DockPanel1_Container.Controls.Add(Me.TreeListMenu)
Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 46) Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 46)
Me.DockPanel1_Container.Name = "DockPanel1_Container" Me.DockPanel1_Container.Name = "DockPanel1_Container"
Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 523) Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 521)
Me.DockPanel1_Container.TabIndex = 0 Me.DockPanel1_Container.TabIndex = 0
' '
'TBIDB_ATTRIBUTEBindingSource 'TBIDB_ATTRIBUTEBindingSource
@ -457,7 +482,16 @@ Partial Class frmAdmin_Start
'TBIDB_ATTRIBUTETableAdapter 'TBIDB_ATTRIBUTETableAdapter
' '
Me.TBIDB_ATTRIBUTETableAdapter.ClearBeforeFill = True Me.TBIDB_ATTRIBUTETableAdapter.ClearBeforeFill = True
' ' '
'TableAdapterManager
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.Connection = Nothing
Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'TBIDB_ATTRIBUTE_TYPEBindingSource 'TBIDB_ATTRIBUTE_TYPEBindingSource
' '
Me.TBIDB_ATTRIBUTE_TYPEBindingSource.DataMember = "TBIDB_ATTRIBUTE_TYPE" Me.TBIDB_ATTRIBUTE_TYPEBindingSource.DataMember = "TBIDB_ATTRIBUTE_TYPE"
@ -471,7 +505,7 @@ Partial Class frmAdmin_Start
' '
Me.XtraTabPage_IDB.Controls.Add(Me.XtraTabControlIDB) Me.XtraTabPage_IDB.Controls.Add(Me.XtraTabControlIDB)
Me.XtraTabPage_IDB.Name = "XtraTabPage_IDB" Me.XtraTabPage_IDB.Name = "XtraTabPage_IDB"
Me.XtraTabPage_IDB.Size = New System.Drawing.Size(1126, 549) Me.XtraTabPage_IDB.Size = New System.Drawing.Size(1126, 547)
Me.XtraTabPage_IDB.Text = "IDB" Me.XtraTabPage_IDB.Text = "IDB"
' '
'XtraTabControlIDB 'XtraTabControlIDB
@ -480,7 +514,7 @@ Partial Class frmAdmin_Start
Me.XtraTabControlIDB.Location = New System.Drawing.Point(0, 0) Me.XtraTabControlIDB.Location = New System.Drawing.Point(0, 0)
Me.XtraTabControlIDB.Name = "XtraTabControlIDB" Me.XtraTabControlIDB.Name = "XtraTabControlIDB"
Me.XtraTabControlIDB.SelectedTabPage = Me.XtraTabPageIDB_Attributes_New Me.XtraTabControlIDB.SelectedTabPage = Me.XtraTabPageIDB_Attributes_New
Me.XtraTabControlIDB.Size = New System.Drawing.Size(1126, 549) Me.XtraTabControlIDB.Size = New System.Drawing.Size(1126, 547)
Me.XtraTabControlIDB.TabIndex = 0 Me.XtraTabControlIDB.TabIndex = 0
Me.XtraTabControlIDB.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageIDB_Attributes_New, Me.XtraTabPageIDB_Attributes, Me.XtraTabPage2}) Me.XtraTabControlIDB.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageIDB_Attributes_New, Me.XtraTabPageIDB_Attributes, Me.XtraTabPage2})
' '
@ -488,7 +522,7 @@ Partial Class frmAdmin_Start
' '
Me.XtraTabPageIDB_Attributes_New.Controls.Add(Me.GridAttributes) Me.XtraTabPageIDB_Attributes_New.Controls.Add(Me.GridAttributes)
Me.XtraTabPageIDB_Attributes_New.Name = "XtraTabPageIDB_Attributes_New" Me.XtraTabPageIDB_Attributes_New.Name = "XtraTabPageIDB_Attributes_New"
Me.XtraTabPageIDB_Attributes_New.Size = New System.Drawing.Size(1124, 526) Me.XtraTabPageIDB_Attributes_New.Size = New System.Drawing.Size(1124, 524)
Me.XtraTabPageIDB_Attributes_New.Text = "Attribute" Me.XtraTabPageIDB_Attributes_New.Text = "Attribute"
' '
'GridAttributes 'GridAttributes
@ -498,7 +532,7 @@ Partial Class frmAdmin_Start
Me.GridAttributes.MainView = Me.ViewAttributes Me.GridAttributes.MainView = Me.ViewAttributes
Me.GridAttributes.MenuManager = Me.RibbonControl1 Me.GridAttributes.MenuManager = Me.RibbonControl1
Me.GridAttributes.Name = "GridAttributes" Me.GridAttributes.Name = "GridAttributes"
Me.GridAttributes.Size = New System.Drawing.Size(1124, 526) Me.GridAttributes.Size = New System.Drawing.Size(1124, 524)
Me.GridAttributes.TabIndex = 0 Me.GridAttributes.TabIndex = 0
Me.GridAttributes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewAttributes}) Me.GridAttributes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewAttributes})
' '
@ -532,7 +566,7 @@ Partial Class frmAdmin_Start
Me.XtraTabPageIDB_Attributes.Controls.Add(CHANGED_WHENLabel) Me.XtraTabPageIDB_Attributes.Controls.Add(CHANGED_WHENLabel)
Me.XtraTabPageIDB_Attributes.Controls.Add(Me.CHANGED_WHENTextBox) Me.XtraTabPageIDB_Attributes.Controls.Add(Me.CHANGED_WHENTextBox)
Me.XtraTabPageIDB_Attributes.Name = "XtraTabPageIDB_Attributes" Me.XtraTabPageIDB_Attributes.Name = "XtraTabPageIDB_Attributes"
Me.XtraTabPageIDB_Attributes.Size = New System.Drawing.Size(1124, 526) Me.XtraTabPageIDB_Attributes.Size = New System.Drawing.Size(1124, 524)
Me.XtraTabPageIDB_Attributes.Text = "Attributverwaltung" Me.XtraTabPageIDB_Attributes.Text = "Attributverwaltung"
' '
'ComboBox1 'ComboBox1
@ -551,7 +585,7 @@ Partial Class frmAdmin_Start
Me.GridControl1.MainView = Me.GridView1 Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.MenuManager = Me.RibbonControl1 Me.GridControl1.MenuManager = Me.RibbonControl1
Me.GridControl1.Name = "GridControl1" Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(282, 526) Me.GridControl1.Size = New System.Drawing.Size(282, 524)
Me.GridControl1.TabIndex = 28 Me.GridControl1.TabIndex = 28
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
' '
@ -597,7 +631,7 @@ Partial Class frmAdmin_Start
Me.GUIDTextBox.Location = New System.Drawing.Point(300, 28) Me.GUIDTextBox.Location = New System.Drawing.Point(300, 28)
Me.GUIDTextBox.Name = "GUIDTextBox" Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True Me.GUIDTextBox.ReadOnly = True
Me.GUIDTextBox.Size = New System.Drawing.Size(33, 21) Me.GUIDTextBox.Size = New System.Drawing.Size(33, 22)
Me.GUIDTextBox.TabIndex = 1 Me.GUIDTextBox.TabIndex = 1
' '
'TITLETextBox 'TITLETextBox
@ -605,7 +639,7 @@ Partial Class frmAdmin_Start
Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "TITLE", True)) 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.Location = New System.Drawing.Point(354, 28)
Me.TITLETextBox.Name = "TITLETextBox" Me.TITLETextBox.Name = "TITLETextBox"
Me.TITLETextBox.Size = New System.Drawing.Size(290, 21) Me.TITLETextBox.Size = New System.Drawing.Size(290, 22)
Me.TITLETextBox.TabIndex = 3 Me.TITLETextBox.TabIndex = 3
' '
'TYP_IDTextBox 'TYP_IDTextBox
@ -613,7 +647,7 @@ Partial Class frmAdmin_Start
Me.TYP_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "TYP_ID", True)) 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.Location = New System.Drawing.Point(777, 28)
Me.TYP_IDTextBox.Name = "TYP_IDTextBox" Me.TYP_IDTextBox.Name = "TYP_IDTextBox"
Me.TYP_IDTextBox.Size = New System.Drawing.Size(104, 21) Me.TYP_IDTextBox.Size = New System.Drawing.Size(104, 22)
Me.TYP_IDTextBox.TabIndex = 5 Me.TYP_IDTextBox.TabIndex = 5
' '
'MULTI_CONTEXTCheckBox 'MULTI_CONTEXTCheckBox
@ -631,7 +665,7 @@ Partial Class frmAdmin_Start
Me.VIEW_SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "VIEW_SEQUENCE", True)) 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.Location = New System.Drawing.Point(450, 79)
Me.VIEW_SEQUENCETextBox.Name = "VIEW_SEQUENCETextBox" Me.VIEW_SEQUENCETextBox.Name = "VIEW_SEQUENCETextBox"
Me.VIEW_SEQUENCETextBox.Size = New System.Drawing.Size(33, 21) Me.VIEW_SEQUENCETextBox.Size = New System.Drawing.Size(33, 22)
Me.VIEW_SEQUENCETextBox.TabIndex = 9 Me.VIEW_SEQUENCETextBox.TabIndex = 9
' '
'VIEW_VISIBLECheckBox 'VIEW_VISIBLECheckBox
@ -649,7 +683,7 @@ Partial Class frmAdmin_Start
Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_ATTRIBUTEBindingSource, "COMMENT", True)) 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.Location = New System.Drawing.Point(354, 122)
Me.COMMENTTextBox.Name = "COMMENTTextBox" Me.COMMENTTextBox.Name = "COMMENTTextBox"
Me.COMMENTTextBox.Size = New System.Drawing.Size(417, 21) Me.COMMENTTextBox.Size = New System.Drawing.Size(417, 22)
Me.COMMENTTextBox.TabIndex = 13 Me.COMMENTTextBox.TabIndex = 13
' '
'ADDED_WHOTextBox 'ADDED_WHOTextBox
@ -658,7 +692,7 @@ Partial Class frmAdmin_Start
Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(354, 164) Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(354, 164)
Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox"
Me.ADDED_WHOTextBox.ReadOnly = True Me.ADDED_WHOTextBox.ReadOnly = True
Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(104, 21) Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(104, 22)
Me.ADDED_WHOTextBox.TabIndex = 15 Me.ADDED_WHOTextBox.TabIndex = 15
' '
'ADDED_WHENTextBox 'ADDED_WHENTextBox
@ -667,7 +701,7 @@ Partial Class frmAdmin_Start
Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(475, 164) Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(475, 164)
Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox"
Me.ADDED_WHENTextBox.ReadOnly = True Me.ADDED_WHENTextBox.ReadOnly = True
Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(131, 21) Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(131, 22)
Me.ADDED_WHENTextBox.TabIndex = 17 Me.ADDED_WHENTextBox.TabIndex = 17
' '
'CHANGED_WHOTextBox 'CHANGED_WHOTextBox
@ -676,7 +710,7 @@ Partial Class frmAdmin_Start
Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(354, 204) Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(354, 204)
Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
Me.CHANGED_WHOTextBox.ReadOnly = True Me.CHANGED_WHOTextBox.ReadOnly = True
Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(104, 21) Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(104, 22)
Me.CHANGED_WHOTextBox.TabIndex = 19 Me.CHANGED_WHOTextBox.TabIndex = 19
' '
'CHANGED_WHENTextBox 'CHANGED_WHENTextBox
@ -685,41 +719,41 @@ Partial Class frmAdmin_Start
Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(475, 204) Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(475, 204)
Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
Me.CHANGED_WHENTextBox.ReadOnly = True Me.CHANGED_WHENTextBox.ReadOnly = True
Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(131, 21) Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(131, 22)
Me.CHANGED_WHENTextBox.TabIndex = 21 Me.CHANGED_WHENTextBox.TabIndex = 21
' '
'XtraTabPage2 'XtraTabPage2
' '
Me.XtraTabPage2.Name = "XtraTabPage2" Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(1124, 526) Me.XtraTabPage2.Size = New System.Drawing.Size(1124, 524)
Me.XtraTabPage2.Text = "XtraTabPage2" Me.XtraTabPage2.Text = "XtraTabPage2"
' '
'XtraTabPage_GlobalIndexer 'XtraTabPage_GlobalIndexer
' '
Me.XtraTabPage_GlobalIndexer.Name = "XtraTabPage_GlobalIndexer" Me.XtraTabPage_GlobalIndexer.Name = "XtraTabPage_GlobalIndexer"
Me.XtraTabPage_GlobalIndexer.PageVisible = False Me.XtraTabPage_GlobalIndexer.PageVisible = False
Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(1126, 549) Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(1126, 547)
Me.XtraTabPage_GlobalIndexer.Text = "Global Indexer" Me.XtraTabPage_GlobalIndexer.Text = "Global Indexer"
' '
'XtraTabPage_ClipboardWatcher 'XtraTabPage_ClipboardWatcher
' '
Me.XtraTabPage_ClipboardWatcher.Name = "XtraTabPage_ClipboardWatcher" Me.XtraTabPage_ClipboardWatcher.Name = "XtraTabPage_ClipboardWatcher"
Me.XtraTabPage_ClipboardWatcher.PageVisible = False Me.XtraTabPage_ClipboardWatcher.PageVisible = False
Me.XtraTabPage_ClipboardWatcher.Size = New System.Drawing.Size(1126, 549) Me.XtraTabPage_ClipboardWatcher.Size = New System.Drawing.Size(1126, 547)
Me.XtraTabPage_ClipboardWatcher.Text = "Clipboard Watcher" Me.XtraTabPage_ClipboardWatcher.Text = "Clipboard Watcher"
' '
'XtraTabControl 'XtraTabControl
' '
Me.XtraTabControl.Dock = System.Windows.Forms.DockStyle.Fill Me.XtraTabControl.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControl.Location = New System.Drawing.Point(200, 157) Me.XtraTabControl.Location = New System.Drawing.Point(200, 159)
Me.XtraTabControl.Name = "XtraTabControl" Me.XtraTabControl.Name = "XtraTabControl"
Me.XtraTabControl.SelectedTabPage = Me.XtraTabPage_IDB Me.XtraTabControl.SelectedTabPage = Me.XtraTabPage_IDB
Me.XtraTabControl.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True] Me.XtraTabControl.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True]
Me.XtraTabControl.Size = New System.Drawing.Size(1128, 572) Me.XtraTabControl.Size = New System.Drawing.Size(1128, 570)
Me.XtraTabControl.TabIndex = 4 Me.XtraTabControl.TabIndex = 4
Me.XtraTabControl.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage_ClipboardWatcher, Me.XtraTabPage_GlobalIndexer, Me.XtraTabPage_IDB}) Me.XtraTabControl.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage_ClipboardWatcher, Me.XtraTabPage_GlobalIndexer, Me.XtraTabPage_IDB})
' '
'frmAdministrationZooFlow 'frmAdmin_Start
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@ -728,8 +762,8 @@ Partial Class frmAdmin_Start
Me.Controls.Add(Me.DockPanel1) Me.Controls.Add(Me.DockPanel1)
Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1) Me.Controls.Add(Me.RibbonControl1)
Me.IconOptions.SvgImage = CType(resources.GetObject("frmAdministrationZooFlow.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.IconOptions.SvgImage = CType(resources.GetObject("frmAdmin_Start.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.Name = "frmAdministrationZooFlow" Me.Name = "frmAdmin_Start"
Me.Ribbon = Me.RibbonControl1 Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1 Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "Administration" Me.Text = "Administration"
@ -752,8 +786,6 @@ Partial Class frmAdmin_Start
Me.XtraTabPageIDB_Attributes.PerformLayout() Me.XtraTabPageIDB_Attributes.PerformLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPage_GlobalIndexer.ResumeLayout(False)
Me.XtraTabPage_ClipboardWatcher.ResumeLayout(False)
CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl.ResumeLayout(False) Me.XtraTabControl.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
@ -829,4 +861,7 @@ Partial Class frmAdmin_Start
Friend WithEvents CHANGED_WHOTextBox As TextBox Friend WithEvents CHANGED_WHOTextBox As TextBox
Friend WithEvents CHANGED_WHENTextBox As TextBox Friend WithEvents CHANGED_WHENTextBox As TextBox
Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem
End Class End Class

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

@ -338,7 +338,7 @@
<metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>487, 21</value> <value>487, 21</value>
</metadata> </metadata>
<data name="frmAdministrationZooFlow.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="frmAdmin_Start.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
@ -361,6 +361,9 @@
LjEsMjguMSwyNy42LDI3LjZ6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== LjEsMjguMSwyNy42LDI3LjZ6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value> </value>
</data> </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"> <metadata name="TBIDB_ATTRIBUTETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>875, 21</value> <value>875, 21</value>
</metadata> </metadata>

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

@ -122,15 +122,51 @@ Public Class frmAdmin_Start
Dim oGridView = DirectCast(GridControl.DefaultView, GridView) Dim oGridView = DirectCast(GridControl.DefaultView, GridView)
With oGridView.Appearance.EvenRow
.BackColor = Color.Gainsboro
.Options.UseBackColor = True
End With
With oGridView.Appearance.FocusedCell
.BackColor = Color.Gold
.Options.UseBackColor = True
End With
With oGridView.Appearance.FocusedRow
.BackColor = Color.Gold
.Options.UseBackColor = True
End With
With oGridView.OptionsBehavior With oGridView.OptionsBehavior
.Editable = False .Editable = False
.ReadOnly = True .ReadOnly = True
End With End With
With oGridView.OptionsClipboard
.CopyColumnHeaders = DefaultBoolean.False
End With
With oGridView.OptionsFind
.AlwaysVisible = True
End With
With oGridView.OptionsView With oGridView.OptionsView
.ShowAutoFilterRow = True .ShowAutoFilterRow = True
.EnableAppearanceEvenRow = True
.ShowIndicator = False
End With End With
AddHandler oGridView.KeyDown, Sub(sender As Object, e As KeyEventArgs)
Dim oView As GridView = DirectCast(sender, GridView)
If e.Control AndAlso e.KeyCode = Keys.C And e.Modifiers = Keys.Control Then
Dim oCellValue = oView.GetRowCellValue(oView.FocusedRowHandle, oView.FocusedColumn)
If oCellValue IsNot Nothing AndAlso oCellValue.ToString() <> String.Empty Then
Clipboard.SetText(oCellValue.ToString)
End If
e.Handled = True
End If
End Sub
oGridView.BestFitColumns() oGridView.BestFitColumns()
Catch ex As Exception Catch ex As Exception
@ -146,7 +182,7 @@ Public Class frmAdmin_Start
Try Try
Dim oRow As DataRow = ViewAttributes.GetFocusedDataRow Dim oRow As DataRow = ViewAttributes.GetFocusedDataRow
Dim oPrimaryKey As Integer = oRow.Item(PrimaryKey) Dim oPrimaryKey As Integer = oRow.Item(PrimaryKey)
Dim oForm As New frmAdmin_Attribute(oPrimaryKey) Dim oForm As New frmAdmin_IDBAttribute(oPrimaryKey)
GridView1.ShowLoadingPanel() GridView1.ShowLoadingPanel()
oForm.ShowDialog() oForm.ShowDialog()

40
GUIs.ZooFlow/My Project/Resources.Designer.vb generated
View File

@ -200,6 +200,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property actions_addcircled() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("actions_addcircled", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary> '''</summary>
@ -210,6 +220,26 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property actions_deletecircled() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("actions_deletecircled", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property actions_edit() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("actions_edit", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@ -230,6 +260,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property bo_document() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("bo_document", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>

16
GUIs.ZooFlow/My Project/Resources.resx
View File

@ -178,6 +178,12 @@
<data name="4_GLOBIX_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="4_GLOBIX_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\4_GLOBIX_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\4_GLOBIX_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="about" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="actions_deletecircled" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_deletecircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="2_LUPE_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="2_LUPE_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\2_LUPE_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\2_LUPE_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -190,6 +196,9 @@
<data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="bo_document" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bo_document.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="1_LOGO_ZOO_FLOW_DROP2" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="1_LOGO_ZOO_FLOW_DROP2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1_LOGO_ZOO_FLOW_DROP2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\1_LOGO_ZOO_FLOW_DROP2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -205,6 +214,9 @@
<data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="actions_addcircled" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_addcircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="2_LUPE_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="2_LUPE_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\2_LUPE_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\2_LUPE_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -214,7 +226,7 @@
<data name="2_ZOO_FLOW_Abo" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="2_ZOO_FLOW_Abo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="about" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="actions_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>..\Resources\actions_edit.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
</root> </root>

15
GUIs.ZooFlow/Resources/actions_addcircled.svg Normal file
View File

@ -0,0 +1,15 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Blue{fill:#1177D7;}
.Yellow{fill:#FFB115;}
.Black{fill:#727272;}
.Green{fill:#039C23;}
.Red{fill:#D11C1C;}
.st0{opacity:0.75;}
.st1{opacity:0.5;}
</style>
<g id="AddCircled">
<path d="M16,4C9.4,4,4,9.4,4,16s5.4,12,12,12s12-5.4,12-12S22.6,4,16,4z M24,18h-6v6h-4v-6H8v-4h6V8h4v6h6V18z" class="Green" />
</g>
</svg>

15
GUIs.ZooFlow/Resources/actions_deletecircled.svg Normal file
View File

@ -0,0 +1,15 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Blue{fill:#1177D7;}
.Yellow{fill:#FFB115;}
.Black{fill:#727272;}
.Green{fill:#039C23;}
.Red{fill:#D11C1C;}
.st0{opacity:0.75;}
.st1{opacity:0.5;}
</style>
<g id="DeleteCircled">
<path d="M16,4C9.4,4,4,9.4,4,16s5.4,12,12,12s12-5.4,12-12S22.6,4,16,4z M23.1,20.2l-2.8,2.8L16,18.8l-4.2,4.2 l-2.8-2.8l4.2-4.2l-4.2-4.2l2.8-2.8l4.2,4.2l4.2-4.2l2.8,2.8L18.8,16L23.1,20.2z" class="Red" />
</g>
</svg>

17
GUIs.ZooFlow/Resources/actions_edit.svg Normal file
View File

@ -0,0 +1,17 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Blue{fill:#1177D7;}
.Yellow{fill:#FFB115;}
.Black{fill:#727272;}
.Green{fill:#039C23;}
.Red{fill:#D11C1C;}
.st0{opacity:0.75;}
.st1{opacity:0.5;}
</style>
<g id="Edit">
<path d="M27.6,8.2l-3.8-3.8c-0.5-0.5-1.4-0.5-1.9,0l-2.5,2.5l5.8,5.8l2.5-2.5C28.1,9.6,28.1,8.8,27.6,8.2z" class="Blue" />
<polygon points="4,28 9.8,28 4,22.2 " class="Blue" />
<rect x="5.8" y="13.4" width="17.6" height="8.2" rx="0" ry="0" class="Blue" transform="matrix(0.707, -0.7072, 0.7072, 0.707, -8.0721, 15.4048)" />
</g>
</svg>

26
GUIs.ZooFlow/Resources/bo_document.svg Normal file
View File

@ -0,0 +1,26 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Blue{fill:#1177D7;}
.Yellow{fill:#FFB115;}
.Red{fill:#D11C1C;}
.Green{fill:#039C23;}
.Black{fill:#727272;}
.White{fill:#FFFFFF;}
.st0{opacity:0.5;}
.st1{opacity:0.75;}
.st2{display:none;}
.st3{display:inline;fill:#FFB115;}
.st4{display:inline;}
.st5{display:inline;opacity:0.75;}
.st6{display:inline;opacity:0.5;}
.st7{display:inline;fill:#039C23;}
.st8{display:inline;fill:#D11C1C;}
.st9{display:inline;fill:#1177D7;}
.st10{display:inline;fill:#FFFFFF;}
</style>
<g id="Document_1_">
<path d="M15,20l9-9l5,5l-9,9L15,20z M31.7,11.9l-3.6-3.6c-0.4-0.4-1-0.4-1.4,0L25,10l5,5l1.7-1.7 C32.1,12.9,32.1,12.3,31.7,11.9z M14,26h5l-5-5V26z" class="Blue" />
<path d="M24,23.8V28h-4.2H12H6V4h18v4.2l2-2V3c0-0.5-0.5-1-1-1H5C4.4,2,4,2.5,4,3v26c0,0.5,0.5,1,1,1h20 c0.5,0,1-0.5,1-1v-7.2L24,23.8z" class="Black" />
</g>
</svg>

22
GUIs.ZooFlow/ZooFlow.vbproj
View File

@ -114,10 +114,10 @@
<Import Include="System" /> <Import Include="System" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Compile Include="Administration\frmAdmin_Attribute.Designer.vb"> <Compile Include="Administration\frmAdmin_IDBAttribute.Designer.vb">
<DependentUpon>frmAdmin_Attribute.vb</DependentUpon> <DependentUpon>frmAdmin_IDBAttribute.vb</DependentUpon>
</Compile> </Compile>
<Compile Include="Administration\frmAdmin_Attribute.vb"> <Compile Include="Administration\frmAdmin_IDBAttribute.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="Administration\interfaceAdmin_Form.vb" /> <Compile Include="Administration\interfaceAdmin_Form.vb" />
@ -256,8 +256,8 @@
<Compile Include="Queries\ClassQueries.vb" /> <Compile Include="Queries\ClassQueries.vb" />
<Compile Include="Search\SearchFilter.vb" /> <Compile Include="Search\SearchFilter.vb" />
<Compile Include="Search\State.vb" /> <Compile Include="Search\State.vb" />
<EmbeddedResource Include="Administration\frmAdmin_Attribute.resx"> <EmbeddedResource Include="Administration\frmAdmin_IDBAttribute.resx">
<DependentUpon>frmAdmin_Attribute.vb</DependentUpon> <DependentUpon>frmAdmin_IDBAttribute.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Globix\frmGlobixBasicConfig.resx"> <EmbeddedResource Include="Globix\frmGlobixBasicConfig.resx">
<DependentUpon>frmGlobixBasicConfig.vb</DependentUpon> <DependentUpon>frmGlobixBasicConfig.vb</DependentUpon>
@ -489,6 +489,18 @@
<ItemGroup> <ItemGroup>
<None Include="Resources\about.svg" /> <None Include="Resources\about.svg" />
</ItemGroup> </ItemGroup>
<ItemGroup>
<None Include="Resources\actions_addcircled.svg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\bo_document.svg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\actions_deletecircled.svg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\actions_edit.svg" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it. <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets. Other similar extension points exist, see Microsoft.Common.targets.