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

ZooFlow: Redo Admin

Browse Source
This commit is contained in:
Jonathan Jenne 2021-02-10 16:50:55 +01:00
parent ea8f9714b3
commit 055b14ab6b
21 changed files with 1257 additions and 1224 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
GUIs.ZooFlow/Administration/ZooFlow_AdminEditForm.vb Normal file
View File

@ -0,0 +1,6 @@
Imports DigitalData.Modules.Logging
Friend Interface ZooFlow_AdminEditForm
Property PrimaryKey As Long
Property Logger As Logger
End Interface

176
GUIs.ZooFlow/Administration/ctrlClipboardWatcher.Designer.vb generated
View File

@ -1,176 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class ctrlClipboardWatcher
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ctrlClipboardWatcher))
Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
Me.GridControlProfiles = New DevExpress.XtraGrid.GridControl()
Me.GridViewProfiles = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageProfiles = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabPageAssignment = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage_Common = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabPage_DocSearches = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabPage_DataSearches = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabPage_AppAssignment = New DevExpress.XtraTab.XtraTabPage()
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl1.SuspendLayout()
CType(Me.GridControlProfiles, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewProfiles, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout()
Me.XtraTabPageProfiles.SuspendLayout()
CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl2.SuspendLayout()
Me.SuspendLayout()
'
'SplitContainerControl1
'
Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 0)
Me.SplitContainerControl1.Name = "SplitContainerControl1"
Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControlProfiles)
Me.SplitContainerControl1.Panel1.Text = "Panel1"
Me.SplitContainerControl1.Panel2.Controls.Add(Me.XtraTabControl1)
Me.SplitContainerControl1.Panel2.Text = "Panel2"
Me.SplitContainerControl1.Size = New System.Drawing.Size(1236, 747)
Me.SplitContainerControl1.SplitterPosition = 260
Me.SplitContainerControl1.TabIndex = 0
'
'GridControlProfiles
'
Me.GridControlProfiles.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlProfiles.Location = New System.Drawing.Point(0, 0)
Me.GridControlProfiles.MainView = Me.GridViewProfiles
Me.GridControlProfiles.Name = "GridControlProfiles"
Me.GridControlProfiles.Size = New System.Drawing.Size(260, 747)
Me.GridControlProfiles.TabIndex = 0
Me.GridControlProfiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewProfiles})
'
'GridViewProfiles
'
Me.GridViewProfiles.GridControl = Me.GridControlProfiles
Me.GridViewProfiles.Name = "GridViewProfiles"
'
'XtraTabControl1
'
Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageProfiles
Me.XtraTabControl1.Size = New System.Drawing.Size(966, 747)
Me.XtraTabControl1.TabIndex = 0
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageProfiles, Me.XtraTabPageAssignment})
'
'XtraTabPageProfiles
'
Me.XtraTabPageProfiles.Controls.Add(Me.XtraTabControl2)
Me.XtraTabPageProfiles.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPageProfiles.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.XtraTabPageProfiles.ImageOptions.SvgImageSize = New System.Drawing.Size(24, 24)
Me.XtraTabPageProfiles.Name = "XtraTabPageProfiles"
Me.XtraTabPageProfiles.Size = New System.Drawing.Size(964, 713)
Me.XtraTabPageProfiles.Text = "Profil-Verwaltung"
'
'XtraTabPageAssignment
'
Me.XtraTabPageAssignment.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPageAssignment.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.XtraTabPageAssignment.ImageOptions.SvgImageSize = New System.Drawing.Size(24, 24)
Me.XtraTabPageAssignment.Name = "XtraTabPageAssignment"
Me.XtraTabPageAssignment.Size = New System.Drawing.Size(964, 724)
Me.XtraTabPageAssignment.Text = "Profil-Zuordnung"
'
'XtraTabControl2
'
Me.XtraTabControl2.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControl2.Location = New System.Drawing.Point(0, 0)
Me.XtraTabControl2.Name = "XtraTabControl2"
Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage_Common
Me.XtraTabControl2.Size = New System.Drawing.Size(964, 713)
Me.XtraTabControl2.TabIndex = 0
Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage_Common, Me.XtraTabPage_DocSearches, Me.XtraTabPage_DataSearches, Me.XtraTabPage_AppAssignment})
'
'XtraTabPage_Common
'
Me.XtraTabPage_Common.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.XtraTabPage_Common.ImageOptions.SvgImageSize = New System.Drawing.Size(18, 18)
Me.XtraTabPage_Common.Name = "XtraTabPage_Common"
Me.XtraTabPage_Common.Size = New System.Drawing.Size(962, 685)
Me.XtraTabPage_Common.Text = "Allgemein"
'
'XtraTabPage_DocSearches
'
Me.XtraTabPage_DocSearches.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.XtraTabPage_DocSearches.ImageOptions.SvgImageSize = New System.Drawing.Size(18, 18)
Me.XtraTabPage_DocSearches.Name = "XtraTabPage_DocSearches"
Me.XtraTabPage_DocSearches.Size = New System.Drawing.Size(298, 277)
Me.XtraTabPage_DocSearches.Text = "Dokument-Suchen"
'
'XtraTabPage_DataSearches
'
Me.XtraTabPage_DataSearches.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage_DataSearches.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.XtraTabPage_DataSearches.ImageOptions.SvgImageSize = New System.Drawing.Size(18, 18)
Me.XtraTabPage_DataSearches.Name = "XtraTabPage_DataSearches"
Me.XtraTabPage_DataSearches.Size = New System.Drawing.Size(0, 0)
Me.XtraTabPage_DataSearches.Text = "Daten-Suchen"
'
'XtraTabPage_AppAssignment
'
Me.XtraTabPage_AppAssignment.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage_AppAssignment.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.XtraTabPage_AppAssignment.ImageOptions.SvgImageSize = New System.Drawing.Size(18, 18)
Me.XtraTabPage_AppAssignment.Name = "XtraTabPage_AppAssignment"
Me.XtraTabPage_AppAssignment.Size = New System.Drawing.Size(0, 0)
Me.XtraTabPage_AppAssignment.Text = "Anwendungs-Zuordnung"
'
'ctrlClipboardWatcher
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.SplitContainerControl1)
Me.Name = "ctrlClipboardWatcher"
Me.Size = New System.Drawing.Size(1236, 747)
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.ResumeLayout(False)
CType(Me.GridControlProfiles, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewProfiles, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl1.ResumeLayout(False)
Me.XtraTabPageProfiles.ResumeLayout(False)
CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl2.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl
Friend WithEvents GridControlProfiles As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewProfiles As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPageProfiles As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPage_Common As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPage_DocSearches As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPage_DataSearches As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPage_AppAssignment As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPageAssignment As DevExpress.XtraTab.XtraTabPage
End Class

242
GUIs.ZooFlow/Administration/ctrlClipboardWatcher.resx
View File

@ -1,242 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="XtraTabPage3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIIDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJBZGRyZXNzIj4NCiAg
ICA8cG9seWdvbiBwb2ludHM9IjgsMjggOCwxOCAyLDE4IDE2LDQgMzAsMTggMjQsMTggMjQsMjggMTgs
MjggMTgsMTggMTQsMTggMTQsMjggICIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="XtraTabPage4.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGcEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJDb250cmFjdCI+DQog
ICAgPGcgY2xhc3M9InN0MSI+DQogICAgICA8cGF0aCBkPSJNMjIsMTRIMTB2LTJoMTJWMTR6IE0yMiw4
SDEwdjJoMTJWOHogTTIyLDE2SDEwdjJoMTJWMTZ6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPC9nPg0K
ICAgIDxwYXRoIGQ9Ik0yNywySDVDNC41LDIsNCwyLjUsNCwzdjI2YzAsMC41LDAuNSwxLDEsMWgyMmMw
LjUsMCwxLTAuNSwxLTFWM0MyOCwyLjUsMjcuNSwyLDI3LDJ6IE0yNiwyOEg2VjRoMjBWMjh6IiBjbGFz
cz0iQmxhY2siIC8+DQogICAgPHJlY3QgeD0iMTYiIHk9IjIyIiB3aWR0aD0iNiIgaGVpZ2h0PSIyIiBy
eD0iMCIgcnk9IjAiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value>
</data>
<data name="XtraTabPage_DataSearches.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAADIDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkRhdGFiYXNlIj4NCiAgICA8cGF0aCBkPSJNMTYsMjRj
LTUuNSwwLTEwLTEuOC0xMC00djRjMCwyLjIsNC41LDQsMTAsNHMxMC0xLjgsMTAtNHYtNEMyNiwyMi4y
LDIxLjUsMjQsMTYsMjR6IiBjbGFzcz0iWWVsbG93IiAvPg0KICAgIDxwYXRoIGQ9Ik0xNiwxOGMtNS41
LDAtMTAtMS44LTEwLTR2NGMwLDIuMiw0LjUsNCwxMCw0czEwLTEuOCwxMC00di00QzI2LDE2LjIsMjEu
NSwxOCwxNiwxOHoiIGNsYXNzPSJZZWxsb3ciIC8+DQogICAgPHBhdGggZD0iTTE2LDRDMTAuNSw0LDYs
NS44LDYsOHY0YzAsMi4yLDQuNSw0LDEwLDRzMTAtMS44LDEwLTRWOEMyNiw1LjgsMjEuNSw0LDE2LDR6
IiBjbGFzcz0iWWVsbG93IiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value>
</data>
<data name="XtraTabPage_AppAssignment.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIkCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IldpbmRvdyI+DQogICAgPHBhdGggZD0iTTMwLDEwVjVj
MC0wLjUtMC41LTEtMS0xSDNDMi41LDQsMiw0LjUsMiw1djVIMzB6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg
ICA8cGF0aCBkPSJNMjgsMTB2MTZINFYxMEgydjE3YzAsMC41LDAuNSwxLDEsMWgyNmMwLjUsMCwxLTAu
NSwxLTFWMTBIMjh6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="XtraTabPageProfiles.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMUBAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTmV3IiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3IDAgMCAzMiAz
MiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmxhY2t7ZmlsbDojNzI3MjcyO30KPC9zdHls
ZT4NCiAgPHBhdGggZD0iTTE5LDJINUM0LjQsMiw0LDIuNCw0LDN2MjRjMCwwLjYsMC40LDEsMSwxaDIw
YzAuNiwwLDEtMC40LDEtMVY5TDE5LDJ6IE0yNCwyNkg2VjRoMTJ2NWMwLDAuNiwwLjQsMSwxLDFoNSAg
VjI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KPC9zdmc+Cw==
</value>
</data>
<data name="XtraTabPageAssignment.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3IDAgMCAzMiAzMiI+DQogIDxz
dHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQo8L3N0eWxlPg0KICA8ZyBp
ZD0iTGF5ZXJfMSI+DQogICAgPHBhdGggZD0iTTIzLjcsMTQuNGMwLjUsMC4zLDAuNSwwLjgsMCwxLjFs
LTExLjgsNy4zdjIuNmMwLDAuNiwwLjQsMC44LDAuOSwwLjVsMTYuOC0xMC40YzAuNS0wLjMsMC41LTAu
OCwwLTEuMSAgIEwxMi44LDQuMWMtMC41LTAuMy0wLjktMC4xLTAuOSwwLjV2Mi42TDIzLjcsMTQuNHoi
IGNsYXNzPSJCbHVlIiAvPg0KICAgIDxwYXRoIGQ9Ik0xOS43LDE1LjVjMC41LTAuMywwLjUtMC44LDAt
MS4xTDIuOSw0LjFDMi40LDMuOCwyLDQsMiw0LjZ2MjAuNmMwLDAuNiwwLjQsMC44LDAuOSwwLjVMMTku
NywxNS41eiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCiAgPGcgaWQ9IkxheWVyXzIiIC8+DQo8L3N2
Zz4L
</value>
</data>
</root>

3
GUIs.ZooFlow/Administration/ctrlClipboardWatcher.vb
View File

@ -1,3 +0,0 @@
Public Class ctrlClipboardWatcher
End Class

29
GUIs.ZooFlow/Administration/ctrlGlobalIndexer.Designer.vb generated
View File

@ -1,29 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class ctrlGlobalIndexer
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
End Sub
End Class

3
GUIs.ZooFlow/Administration/ctrlGlobalIndexer.vb
View File

@ -1,3 +0,0 @@
Public Class ctrlGlobalIndexer
End Class

498
GUIs.ZooFlow/Administration/frmAdmin_Attribute.Designer.vb generated Normal file
View File

@ -0,0 +1,498 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_Attribute
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
Me.TBIDB_ATTRIBUTEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten()
Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit()
Me.SpinEdit1 = New DevExpress.XtraEditors.SpinEdit()
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
Me.TBIDB_ATTRIBUTETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTETableAdapter()
Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager()
Me.CheckEdit1 = New DevExpress.XtraEditors.CheckEdit()
Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
Me.CheckEdit2 = New DevExpress.XtraEditors.CheckEdit()
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit()
Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit()
Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit()
Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem()
Me.TextEdit6 = New DevExpress.XtraEditors.TextEdit()
Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem()
Me.TextEdit7 = New DevExpress.XtraEditors.TextEdit()
Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem()
Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit()
Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControl1.SuspendLayout()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBIDB_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'RibbonControl1
'
Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 3
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl1.Size = New System.Drawing.Size(800, 66)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'BarButtonItem1
'
Me.BarButtonItem1.Caption = "Speichern"
Me.BarButtonItem1.Id = 1
Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "RibbonPage1"
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Daten"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 428)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 22)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'LayoutControl1
'
Me.LayoutControl1.Controls.Add(Me.TextEdit1)
Me.LayoutControl1.Controls.Add(Me.TextEdit2)
Me.LayoutControl1.Controls.Add(Me.SpinEdit1)
Me.LayoutControl1.Controls.Add(Me.CheckEdit1)
Me.LayoutControl1.Controls.Add(Me.CheckEdit2)
Me.LayoutControl1.Controls.Add(Me.TextEdit3)
Me.LayoutControl1.Controls.Add(Me.TextEdit4)
Me.LayoutControl1.Controls.Add(Me.TextEdit5)
Me.LayoutControl1.Controls.Add(Me.TextEdit6)
Me.LayoutControl1.Controls.Add(Me.TextEdit7)
Me.LayoutControl1.Controls.Add(Me.ComboBoxEdit1)
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.LayoutControl1.Location = New System.Drawing.Point(0, 66)
Me.LayoutControl1.Name = "LayoutControl1"
Me.LayoutControl1.Root = Me.Root
Me.LayoutControl1.Size = New System.Drawing.Size(800, 362)
Me.LayoutControl1.TabIndex = 2
Me.LayoutControl1.Text = "LayoutControl1"
'
'TextEdit1
'
Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "GUID", True))
Me.TextEdit1.Location = New System.Drawing.Point(121, 20)
Me.TextEdit1.MenuManager = Me.RibbonControl1
Me.TextEdit1.Name = "TextEdit1"
Me.TextEdit1.Properties.ReadOnly = True
Me.TextEdit1.Size = New System.Drawing.Size(659, 20)
Me.TextEdit1.StyleController = Me.LayoutControl1
Me.TextEdit1.TabIndex = 4
'
'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
'
'TextEdit2
'
Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "TITLE", True))
Me.TextEdit2.Location = New System.Drawing.Point(121, 60)
Me.TextEdit2.MenuManager = Me.RibbonControl1
Me.TextEdit2.Name = "TextEdit2"
Me.TextEdit2.Size = New System.Drawing.Size(659, 20)
Me.TextEdit2.StyleController = Me.LayoutControl1
Me.TextEdit2.TabIndex = 5
'
'SpinEdit1
'
Me.SpinEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "VIEW_SEQUENCE", True))
Me.SpinEdit1.EditValue = New Decimal(New Integer() {0, 0, 0, 0})
Me.SpinEdit1.Location = New System.Drawing.Point(510, 180)
Me.SpinEdit1.MenuManager = Me.RibbonControl1
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.Size = New System.Drawing.Size(270, 20)
Me.SpinEdit1.StyleController = Me.LayoutControl1
Me.SpinEdit1.TabIndex = 6
'
'Root
'
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem3, Me.LayoutControlItem11, Me.LayoutControlItem9, Me.LayoutControlItem5, Me.LayoutControlItem8, Me.LayoutControlItem10})
Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(800, 362)
Me.Root.TextVisible = False
'
'LayoutControlItem1
'
Me.LayoutControlItem1.Control = Me.TextEdit1
Me.LayoutControlItem1.CustomizationFormText = "GUID"
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem1.Size = New System.Drawing.Size(780, 40)
Me.LayoutControlItem1.Text = "GUID"
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(98, 13)
'
'LayoutControlItem2
'
Me.LayoutControlItem2.Control = Me.TextEdit2
Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 40)
Me.LayoutControlItem2.Name = "LayoutControlItem2"
Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem2.Size = New System.Drawing.Size(780, 40)
Me.LayoutControlItem2.Text = "Bezeichnung"
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(98, 13)
'
'LayoutControlItem3
'
Me.LayoutControlItem3.Control = Me.SpinEdit1
Me.LayoutControlItem3.CustomizationFormText = "Anzeige Reihenfolge"
Me.LayoutControlItem3.Location = New System.Drawing.Point(389, 160)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem3.Size = New System.Drawing.Size(391, 40)
Me.LayoutControlItem3.Text = "Anzeige Reihenfolge"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(98, 13)
'
'TBIDB_ATTRIBUTETableAdapter
'
Me.TBIDB_ATTRIBUTETableAdapter.ClearBeforeFill = True
'
'TableAdapterManager
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.Connection = Nothing
Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'CheckEdit1
'
Me.CheckEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "MULTI_CONTEXT", True))
Me.CheckEdit1.Location = New System.Drawing.Point(20, 220)
Me.CheckEdit1.MenuManager = Me.RibbonControl1
Me.CheckEdit1.Name = "CheckEdit1"
Me.CheckEdit1.Properties.Caption = "Vektor/Multi"
Me.CheckEdit1.Size = New System.Drawing.Size(760, 18)
Me.CheckEdit1.StyleController = Me.LayoutControl1
Me.CheckEdit1.TabIndex = 7
'
'LayoutControlItem4
'
Me.LayoutControlItem4.Control = Me.CheckEdit1
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 200)
Me.LayoutControlItem4.Name = "LayoutControlItem4"
Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem4.Size = New System.Drawing.Size(780, 38)
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem4.TextVisible = False
'
'CheckEdit2
'
Me.CheckEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "VIEW_VISIBLE", True))
Me.CheckEdit2.Location = New System.Drawing.Point(20, 180)
Me.CheckEdit2.MenuManager = Me.RibbonControl1
Me.CheckEdit2.Name = "CheckEdit2"
Me.CheckEdit2.Properties.Caption = "Sichtbar"
Me.CheckEdit2.Size = New System.Drawing.Size(369, 18)
Me.CheckEdit2.StyleController = Me.LayoutControl1
Me.CheckEdit2.TabIndex = 8
'
'LayoutControlItem5
'
Me.LayoutControlItem5.Control = Me.CheckEdit2
Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 160)
Me.LayoutControlItem5.Name = "LayoutControlItem5"
Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem5.Size = New System.Drawing.Size(389, 40)
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem5.TextVisible = False
'
'TextEdit3
'
Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "COMMENT", True))
Me.TextEdit3.Location = New System.Drawing.Point(121, 140)
Me.TextEdit3.MenuManager = Me.RibbonControl1
Me.TextEdit3.Name = "TextEdit3"
Me.TextEdit3.Size = New System.Drawing.Size(659, 20)
Me.TextEdit3.StyleController = Me.LayoutControl1
Me.TextEdit3.TabIndex = 9
'
'LayoutControlItem6
'
Me.LayoutControlItem6.Control = Me.TextEdit3
Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 120)
Me.LayoutControlItem6.Name = "LayoutControlItem6"
Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem6.Size = New System.Drawing.Size(780, 40)
Me.LayoutControlItem6.Text = "Kommentar"
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(98, 13)
'
'TextEdit4
'
Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "ADDED_WHO", True))
Me.TextEdit4.Location = New System.Drawing.Point(121, 258)
Me.TextEdit4.MenuManager = Me.RibbonControl1
Me.TextEdit4.Name = "TextEdit4"
Me.TextEdit4.Properties.ReadOnly = True
Me.TextEdit4.Size = New System.Drawing.Size(268, 20)
Me.TextEdit4.StyleController = Me.LayoutControl1
Me.TextEdit4.TabIndex = 10
'
'LayoutControlItem7
'
Me.LayoutControlItem7.Control = Me.TextEdit4
Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 238)
Me.LayoutControlItem7.Name = "LayoutControlItem7"
Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem7.Size = New System.Drawing.Size(389, 40)
Me.LayoutControlItem7.Text = "Erstellt Wer"
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(98, 13)
'
'TextEdit5
'
Me.TextEdit5.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "ADDED_WHEN", True))
Me.TextEdit5.Location = New System.Drawing.Point(510, 258)
Me.TextEdit5.MenuManager = Me.RibbonControl1
Me.TextEdit5.Name = "TextEdit5"
Me.TextEdit5.Properties.ReadOnly = True
Me.TextEdit5.Size = New System.Drawing.Size(270, 20)
Me.TextEdit5.StyleController = Me.LayoutControl1
Me.TextEdit5.TabIndex = 11
'
'LayoutControlItem8
'
Me.LayoutControlItem8.Control = Me.TextEdit5
Me.LayoutControlItem8.Location = New System.Drawing.Point(389, 238)
Me.LayoutControlItem8.Name = "LayoutControlItem8"
Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem8.Size = New System.Drawing.Size(391, 40)
Me.LayoutControlItem8.Text = "Erstellt Wann"
Me.LayoutControlItem8.TextSize = New System.Drawing.Size(98, 13)
'
'TextEdit6
'
Me.TextEdit6.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "CHANGED_WHO", True))
Me.TextEdit6.Location = New System.Drawing.Point(121, 298)
Me.TextEdit6.MenuManager = Me.RibbonControl1
Me.TextEdit6.Name = "TextEdit6"
Me.TextEdit6.Properties.ReadOnly = True
Me.TextEdit6.Size = New System.Drawing.Size(269, 20)
Me.TextEdit6.StyleController = Me.LayoutControl1
Me.TextEdit6.TabIndex = 12
'
'LayoutControlItem9
'
Me.LayoutControlItem9.Control = Me.TextEdit6
Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 278)
Me.LayoutControlItem9.Name = "LayoutControlItem9"
Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem9.Size = New System.Drawing.Size(390, 64)
Me.LayoutControlItem9.Text = "Geändert Wer"
Me.LayoutControlItem9.TextSize = New System.Drawing.Size(98, 13)
'
'TextEdit7
'
Me.TextEdit7.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "CHANGED_WHEN", True))
Me.TextEdit7.Location = New System.Drawing.Point(511, 298)
Me.TextEdit7.MenuManager = Me.RibbonControl1
Me.TextEdit7.Name = "TextEdit7"
Me.TextEdit7.Properties.ReadOnly = True
Me.TextEdit7.Size = New System.Drawing.Size(269, 20)
Me.TextEdit7.StyleController = Me.LayoutControl1
Me.TextEdit7.TabIndex = 13
'
'LayoutControlItem10
'
Me.LayoutControlItem10.Control = Me.TextEdit7
Me.LayoutControlItem10.Location = New System.Drawing.Point(390, 278)
Me.LayoutControlItem10.Name = "LayoutControlItem10"
Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem10.Size = New System.Drawing.Size(390, 64)
Me.LayoutControlItem10.Text = "Geändert Wann"
Me.LayoutControlItem10.TextSize = New System.Drawing.Size(98, 13)
'
'ComboBoxEdit1
'
Me.ComboBoxEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_ATTRIBUTEBindingSource, "TYP_ID", True))
Me.ComboBoxEdit1.Location = New System.Drawing.Point(121, 100)
Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1
Me.ComboBoxEdit1.Name = "ComboBoxEdit1"
Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.ComboBoxEdit1.Size = New System.Drawing.Size(659, 20)
Me.ComboBoxEdit1.StyleController = Me.LayoutControl1
Me.ComboBoxEdit1.TabIndex = 14
'
'LayoutControlItem11
'
Me.LayoutControlItem11.Control = Me.ComboBoxEdit1
Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 80)
Me.LayoutControlItem11.Name = "LayoutControlItem11"
Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem11.Size = New System.Drawing.Size(780, 40)
Me.LayoutControlItem11.Text = "Attribut-Typ"
Me.LayoutControlItem11.TextSize = New System.Drawing.Size(98, 13)
'
'frmAdmin_Attribute
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.LayoutControl1)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.Name = "frmAdmin_Attribute"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "frmAdmin_Attribute"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.LayoutControl1.ResumeLayout(False)
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBIDB_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit
Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit
Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents SpinEdit1 As DevExpress.XtraEditors.SpinEdit
Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten
Friend WithEvents TBIDB_ATTRIBUTEBindingSource As BindingSource
Friend WithEvents TBIDB_ATTRIBUTETableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTETableAdapter
Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager
Friend WithEvents CheckEdit1 As DevExpress.XtraEditors.CheckEdit
Friend WithEvents CheckEdit2 As DevExpress.XtraEditors.CheckEdit
Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit
Friend WithEvents TextEdit4 As DevExpress.XtraEditors.TextEdit
Friend WithEvents TextEdit5 As DevExpress.XtraEditors.TextEdit
Friend WithEvents TextEdit6 As DevExpress.XtraEditors.TextEdit
Friend WithEvents TextEdit7 As DevExpress.XtraEditors.TextEdit
Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.ComboBoxEdit
Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem
End Class

135
GUIs.ZooFlow/Administration/frmAdmin_Attribute.resx Normal file
View File

@ -0,0 +1,135 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="TBIDB_ATTRIBUTEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>421, 17</value>
</metadata>
<metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>74, 22</value>
</metadata>
<metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>74, 22</value>
</metadata>
<metadata name="TBIDB_ATTRIBUTETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>649, 17</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>871, 17</value>
</metadata>
</root>

25
GUIs.ZooFlow/Administration/frmAdmin_Attribute.vb Normal file
View File

@ -0,0 +1,25 @@
Imports DigitalData.Modules.Logging
Public Class frmAdmin_Attribute
Implements ZooFlow_AdminEditForm
Private Property PrimaryKey As Long Implements ZooFlow_AdminEditForm.PrimaryKey
Private Property Logger As Logger Implements ZooFlow_AdminEditForm.Logger
Public Sub New(PrimaryKey As String)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Logger = My.LogConfig.GetLogger()
Me.PrimaryKey = PrimaryKey
End Sub
Private Sub frmAdmin_Attribute_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
TBIDB_ATTRIBUTETableAdapter.Fill(DSIDB_Stammdaten.TBIDB_ATTRIBUTE, PrimaryKey)
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
End Class

664
GUIs.ZooFlow/Administration/frmAdministrationZooFlow.Designer.vb → GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb generated
View File

@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdministrationZooFlow
Partial Class frmAdmin_Start
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
@ -23,15 +23,15 @@ 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))
Dim CHANGED_WHOLabel As System.Windows.Forms.Label
Dim ADDED_WHENLabel As System.Windows.Forms.Label
Dim ADDED_WHOLabel As System.Windows.Forms.Label
Dim COMMENTLabel As System.Windows.Forms.Label
Dim VIEW_SEQUENCELabel As System.Windows.Forms.Label
Dim TITLELabel As System.Windows.Forms.Label
Dim GUIDLabel As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_Start))
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
@ -40,6 +40,9 @@ Partial Class frmAdministrationZooFlow
Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
Me.labelStatus = New DevExpress.XtraBars.BarStaticItem()
Me.labelError = New DevExpress.XtraBars.BarStaticItem()
Me.BarButtonItemSaveAttribute = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItemAddAttribute = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItemRefreshAttribute = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage_ClipboardWatcher = New DevExpress.XtraBars.Ribbon.RibbonPage()
@ -51,25 +54,34 @@ Partial Class frmAdministrationZooFlow
Me.RibbonGroup_ClipboardWatcher_Control = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage_GlobalIndexer = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage_IDB = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroupAttributes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.TreeList1 = New DevExpress.XtraTreeList.TreeList()
Me.TreeListMenu = New DevExpress.XtraTreeList.TreeList()
Me.TreeListColumn1 = New DevExpress.XtraTreeList.Columns.TreeListColumn()
Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components)
Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager(Me.components)
Me.DockPanel1 = New DevExpress.XtraBars.Docking.DockPanel()
Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer()
Me.XtraTabControl = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage_ClipboardWatcher = New DevExpress.XtraTab.XtraTabPage()
Me.CtrlClipboardWatcher1 = New DigitalData.GUIs.ZooFlow.ctrlClipboardWatcher()
Me.XtraTabPage_GlobalIndexer = New DevExpress.XtraTab.XtraTabPage()
Me.CtrlGlobalIndexer1 = New DigitalData.GUIs.ZooFlow.ctrlGlobalIndexer()
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.TBIDB_ATTRIBUTETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTETableAdapter()
Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager()
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.XtraTabPage_IDB = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabControlIDB = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageIDB_Attributes_New = New DevExpress.XtraTab.XtraTabPage()
Me.GridAttributes = New DevExpress.XtraGrid.GridControl()
Me.ViewAttributes = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageIDB_Attributes = New DevExpress.XtraTab.XtraTabPage()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colTITLE = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colATTR_TYPE = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GUIDTextBox = New System.Windows.Forms.TextBox()
Me.TITLETextBox = New System.Windows.Forms.TextBox()
Me.TYP_IDTextBox = New System.Windows.Forms.TextBox()
@ -81,113 +93,42 @@ Partial Class frmAdministrationZooFlow
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()
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabPage_GlobalIndexer = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabPage_ClipboardWatcher = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabControl = New DevExpress.XtraTab.XtraTabControl()
CHANGED_WHENLabel = New System.Windows.Forms.Label()
CHANGED_WHOLabel = New System.Windows.Forms.Label()
ADDED_WHENLabel = New System.Windows.Forms.Label()
ADDED_WHOLabel = New System.Windows.Forms.Label()
COMMENTLabel = New System.Windows.Forms.Label()
VIEW_SEQUENCELabel = New System.Windows.Forms.Label()
TITLELabel = New System.Windows.Forms.Label()
GUIDLabel = New System.Windows.Forms.Label()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TreeListMenu, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.DockPanel1.SuspendLayout()
Me.DockPanel1_Container.SuspendLayout()
CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl.SuspendLayout()
Me.XtraTabPage_ClipboardWatcher.SuspendLayout()
Me.XtraTabPage_GlobalIndexer.SuspendLayout()
CType(Me.TBIDB_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBIDB_ATTRIBUTE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPage_IDB.SuspendLayout()
CType(Me.XtraTabControlIDB, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControlIDB.SuspendLayout()
Me.XtraTabPageIDB_Attributes_New.SuspendLayout()
CType(Me.GridAttributes, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ViewAttributes, System.ComponentModel.ISupportInitialize).BeginInit()
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.XtraTabPage_GlobalIndexer.SuspendLayout()
Me.XtraTabPage_ClipboardWatcher.SuspendLayout()
CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl.SuspendLayout()
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
@ -197,6 +138,69 @@ Partial Class frmAdministrationZooFlow
CHANGED_WHENLabel.TabIndex = 20
CHANGED_WHENLabel.Text = "Geändert wann:"
'
'CHANGED_WHOLabel
'
CHANGED_WHOLabel.AutoSize = True
CHANGED_WHOLabel.Location = New System.Drawing.Point(351, 188)
CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 13)
CHANGED_WHOLabel.TabIndex = 18
CHANGED_WHOLabel.Text = "Geändert wer:"
'
'ADDED_WHENLabel
'
ADDED_WHENLabel.AutoSize = True
ADDED_WHENLabel.Location = New System.Drawing.Point(472, 146)
ADDED_WHENLabel.Name = "ADDED_WHENLabel"
ADDED_WHENLabel.Size = New System.Drawing.Size(73, 13)
ADDED_WHENLabel.TabIndex = 16
ADDED_WHENLabel.Text = "Erstellt wann:"
'
'ADDED_WHOLabel
'
ADDED_WHOLabel.AutoSize = True
ADDED_WHOLabel.Location = New System.Drawing.Point(351, 146)
ADDED_WHOLabel.Name = "ADDED_WHOLabel"
ADDED_WHOLabel.Size = New System.Drawing.Size(65, 13)
ADDED_WHOLabel.TabIndex = 14
ADDED_WHOLabel.Text = "Erstellt wer:"
'
'COMMENTLabel
'
COMMENTLabel.AutoSize = True
COMMENTLabel.Location = New System.Drawing.Point(351, 106)
COMMENTLabel.Name = "COMMENTLabel"
COMMENTLabel.Size = New System.Drawing.Size(65, 13)
COMMENTLabel.TabIndex = 12
COMMENTLabel.Text = "Kommentar:"
'
'VIEW_SEQUENCELabel
'
VIEW_SEQUENCELabel.AutoSize = True
VIEW_SEQUENCELabel.Location = New System.Drawing.Point(351, 82)
VIEW_SEQUENCELabel.Name = "VIEW_SEQUENCELabel"
VIEW_SEQUENCELabel.Size = New System.Drawing.Size(93, 13)
VIEW_SEQUENCELabel.TabIndex = 8
VIEW_SEQUENCELabel.Text = "View Reihenfolge:"
'
'TITLELabel
'
TITLELabel.AutoSize = True
TITLELabel.Location = New System.Drawing.Point(351, 12)
TITLELabel.Name = "TITLELabel"
TITLELabel.Size = New System.Drawing.Size(71, 13)
TITLELabel.TabIndex = 2
TITLELabel.Text = "Bezeichnung:"
'
'GUIDLabel
'
GUIDLabel.AutoSize = True
GUIDLabel.Location = New System.Drawing.Point(297, 12)
GUIDLabel.Name = "GUIDLabel"
GUIDLabel.Size = New System.Drawing.Size(36, 13)
GUIDLabel.TabIndex = 0
GUIDLabel.Text = "GUID:"
'
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
@ -205,7 +209,7 @@ Partial Class frmAdministrationZooFlow
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.RibbonPage_IDB})
Me.RibbonControl1.Size = New System.Drawing.Size(1328, 158)
Me.RibbonControl1.Size = New System.Drawing.Size(1328, 157)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'BarButtonItem1
@ -262,6 +266,27 @@ Partial Class frmAdministrationZooFlow
Me.labelError.Name = "labelError"
Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
'
'BarButtonItemSaveAttribute
'
Me.BarButtonItemSaveAttribute.Caption = "Speichern"
Me.BarButtonItemSaveAttribute.Id = 8
Me.BarButtonItemSaveAttribute.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemSaveAttribute.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("BarButtonItemAddAttribute.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("BarButtonItemRefreshAttribute.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItemRefreshAttribute.Name = "BarButtonItemRefreshAttribute"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2})
@ -327,44 +352,58 @@ Partial Class frmAdministrationZooFlow
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
'
'RibbonPage_IDB
'
Me.RibbonPage_IDB.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupAttributes})
Me.RibbonPage_IDB.Name = "RibbonPage_IDB"
Me.RibbonPage_IDB.Text = "IDB Administration"
'
'RibbonPageGroupAttributes
'
Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemSaveAttribute)
Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemAddAttribute)
Me.RibbonPageGroupAttributes.ItemLinks.Add(Me.BarButtonItemRefreshAttribute)
Me.RibbonPageGroupAttributes.Name = "RibbonPageGroupAttributes"
Me.RibbonPageGroupAttributes.Text = "Attribute"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 727)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 729)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1328, 24)
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1328, 22)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'TreeList1
'TreeListMenu
'
Me.TreeList1.Appearance.FocusedRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
Me.TreeList1.Appearance.FocusedRow.Options.UseBackColor = True
Me.TreeList1.Columns.AddRange(New DevExpress.XtraTreeList.Columns.TreeListColumn() {Me.TreeListColumn1})
Me.TreeList1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeList1.Location = New System.Drawing.Point(0, 0)
Me.TreeList1.MenuManager = Me.RibbonControl1
Me.TreeList1.Name = "TreeList1"
Me.TreeList1.BeginUnboundLoad()
Me.TreeList1.AppendNode(New Object() {"IDB"}, -1)
Me.TreeList1.AppendNode(New Object() {"Attributes"}, 0, 2, 2, -1, "IDB_ATTRIBUTES")
Me.TreeList1.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_ENTITIES")
Me.TreeList1.AppendNode(New Object() {"Global Indexer"}, -1, "GLOBIX")
Me.TreeList1.AppendNode(New Object() {"Clipboard Watcher"}, -1, "CLIPBOARD_WATCHER")
Me.TreeList1.EndUnboundLoad()
Me.TreeList1.OptionsBehavior.Editable = False
Me.TreeList1.OptionsView.ShowColumns = False
Me.TreeList1.OptionsView.ShowHorzLines = False
Me.TreeList1.OptionsView.ShowIndicator = False
Me.TreeList1.OptionsView.ShowVertLines = False
Me.TreeList1.SelectImageList = Me.SvgImageCollection1
Me.TreeList1.Size = New System.Drawing.Size(193, 540)
Me.TreeList1.TabIndex = 8
Me.TreeListMenu.Appearance.FocusedRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
Me.TreeListMenu.Appearance.FocusedRow.Options.UseBackColor = True
Me.TreeListMenu.Columns.AddRange(New DevExpress.XtraTreeList.Columns.TreeListColumn() {Me.TreeListColumn1})
Me.TreeListMenu.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeListMenu.Location = New System.Drawing.Point(0, 0)
Me.TreeListMenu.MenuManager = Me.RibbonControl1
Me.TreeListMenu.Name = "TreeListMenu"
Me.TreeListMenu.BeginUnboundLoad()
Me.TreeListMenu.AppendNode(New Object() {"IDB"}, -1)
Me.TreeListMenu.AppendNode(New Object() {"Attributes"}, 0, 2, 2, -1, "IDB_ATTRIBUTES")
Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_ENTITIES")
Me.TreeListMenu.AppendNode(New Object() {"Global Indexer"}, -1, "GLOBIX")
Me.TreeListMenu.AppendNode(New Object() {"Clipboard Watcher"}, -1, "CLIPBOARD_WATCHER")
Me.TreeListMenu.EndUnboundLoad()
Me.TreeListMenu.OptionsBehavior.Editable = False
Me.TreeListMenu.OptionsView.ShowColumns = False
Me.TreeListMenu.OptionsView.ShowHorzLines = False
Me.TreeListMenu.OptionsView.ShowIndicator = False
Me.TreeListMenu.OptionsView.ShowVertLines = False
Me.TreeListMenu.SelectImageList = Me.SvgImageCollection1
Me.TreeListMenu.Size = New System.Drawing.Size(193, 523)
Me.TreeListMenu.TabIndex = 8
'
'TreeListColumn1
'
@ -391,67 +430,48 @@ 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, 158)
Me.DockPanel1.Location = New System.Drawing.Point(0, 157)
Me.DockPanel1.Name = "DockPanel1"
Me.DockPanel1.OriginalSize = New System.Drawing.Size(200, 200)
Me.DockPanel1.Size = New System.Drawing.Size(200, 569)
Me.DockPanel1.Size = New System.Drawing.Size(200, 572)
Me.DockPanel1.Text = "Übersicht"
'
'DockPanel1_Container
'
Me.DockPanel1_Container.Controls.Add(Me.TreeList1)
Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 26)
Me.DockPanel1_Container.Controls.Add(Me.TreeListMenu)
Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 46)
Me.DockPanel1_Container.Name = "DockPanel1_Container"
Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 540)
Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 523)
Me.DockPanel1_Container.TabIndex = 0
'
'XtraTabControl
'TBIDB_ATTRIBUTEBindingSource
'
Me.XtraTabControl.Dock = System.Windows.Forms.DockStyle.Fill
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.[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.XtraTabPage_IDB})
Me.TBIDB_ATTRIBUTEBindingSource.DataMember = "TBIDB_ATTRIBUTE"
Me.TBIDB_ATTRIBUTEBindingSource.DataSource = Me.DSIDB_Stammdaten
'
'XtraTabPage_ClipboardWatcher
'DSIDB_Stammdaten
'
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, 544)
Me.XtraTabPage_ClipboardWatcher.Text = "Clipboard Watcher"
Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten"
Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'CtrlClipboardWatcher1
'TBIDB_ATTRIBUTETableAdapter
'
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, 544)
Me.CtrlClipboardWatcher1.TabIndex = 0
Me.TBIDB_ATTRIBUTETableAdapter.ClearBeforeFill = True
' '
'TBIDB_ATTRIBUTE_TYPEBindingSource
'
'XtraTabPage_GlobalIndexer
Me.TBIDB_ATTRIBUTE_TYPEBindingSource.DataMember = "TBIDB_ATTRIBUTE_TYPE"
Me.TBIDB_ATTRIBUTE_TYPEBindingSource.DataSource = Me.DSIDB_Stammdaten
'
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, 544)
Me.XtraTabPage_GlobalIndexer.Text = "Global Indexer"
'TBIDB_ATTRIBUTE_TYPETableAdapter
'
'CtrlGlobalIndexer1
'
Me.CtrlGlobalIndexer1.Location = New System.Drawing.Point(42, 29)
Me.CtrlGlobalIndexer1.Name = "CtrlGlobalIndexer1"
Me.CtrlGlobalIndexer1.Size = New System.Drawing.Size(1084, 539)
Me.CtrlGlobalIndexer1.TabIndex = 0
Me.TBIDB_ATTRIBUTE_TYPETableAdapter.ClearBeforeFill = True
'
'XtraTabPage_IDB
'
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.Size = New System.Drawing.Size(1126, 549)
Me.XtraTabPage_IDB.Text = "IDB"
'
'XtraTabControlIDB
@ -459,16 +479,33 @@ Partial Class frmAdministrationZooFlow
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.SelectedTabPage = Me.XtraTabPageIDB_Attributes_New
Me.XtraTabControlIDB.Size = New System.Drawing.Size(1126, 549)
Me.XtraTabControlIDB.TabIndex = 0
Me.XtraTabControlIDB.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPageIDB_Attributes})
Me.XtraTabControlIDB.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageIDB_Attributes_New, Me.XtraTabPageIDB_Attributes, Me.XtraTabPage2})
'
'XtraTabPage1
'XtraTabPageIDB_Attributes_New
'
Me.XtraTabPage1.Name = "XtraTabPage1"
Me.XtraTabPage1.Size = New System.Drawing.Size(1124, 519)
Me.XtraTabPage1.Text = "XtraTabPage1"
Me.XtraTabPageIDB_Attributes_New.Controls.Add(Me.GridAttributes)
Me.XtraTabPageIDB_Attributes_New.Name = "XtraTabPageIDB_Attributes_New"
Me.XtraTabPageIDB_Attributes_New.Size = New System.Drawing.Size(1124, 526)
Me.XtraTabPageIDB_Attributes_New.Text = "Attribute"
'
'GridAttributes
'
Me.GridAttributes.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridAttributes.Location = New System.Drawing.Point(0, 0)
Me.GridAttributes.MainView = Me.ViewAttributes
Me.GridAttributes.MenuManager = Me.RibbonControl1
Me.GridAttributes.Name = "GridAttributes"
Me.GridAttributes.Size = New System.Drawing.Size(1124, 526)
Me.GridAttributes.TabIndex = 0
Me.GridAttributes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewAttributes})
'
'ViewAttributes
'
Me.ViewAttributes.GridControl = Me.GridAttributes
Me.ViewAttributes.Name = "ViewAttributes"
'
'XtraTabPageIDB_Attributes
'
@ -495,18 +532,64 @@ Partial Class frmAdministrationZooFlow
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.Size = New System.Drawing.Size(1124, 526)
Me.XtraTabPageIDB_Attributes.Text = "Attributverwaltung"
'
'TBIDB_ATTRIBUTEBindingSource
'ComboBox1
'
Me.TBIDB_ATTRIBUTEBindingSource.DataMember = "TBIDB_ATTRIBUTE"
Me.TBIDB_ATTRIBUTEBindingSource.DataSource = Me.DSIDB_Stammdaten
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
'
'DSIDB_Stammdaten
'GridControl1
'
Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten"
Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
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, 526)
Me.GridControl1.TabIndex = 28
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'GridView1
'
Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Gainsboro
Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colTITLE, Me.colATTR_TYPE})
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
'
'colGUID
'
Me.colGUID.Caption = "ID"
Me.colGUID.FieldName = "GUID"
Me.colGUID.Name = "colGUID"
Me.colGUID.Visible = True
Me.colGUID.VisibleIndex = 0
Me.colGUID.Width = 49
'
'colTITLE
'
Me.colTITLE.Caption = "Title"
Me.colTITLE.FieldName = "TITLE"
Me.colTITLE.Name = "colTITLE"
Me.colTITLE.Visible = True
Me.colTITLE.VisibleIndex = 1
Me.colTITLE.Width = 135
'
'colATTR_TYPE
'
Me.colATTR_TYPE.Caption = "Typ"
Me.colATTR_TYPE.FieldName = "ATTR_TYPE"
Me.colATTR_TYPE.Name = "colATTR_TYPE"
Me.colATTR_TYPE.Visible = True
Me.colATTR_TYPE.VisibleIndex = 2
Me.colATTR_TYPE.Width = 73
'
'GUIDTextBox
'
@ -605,117 +688,36 @@ Partial Class frmAdministrationZooFlow
Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(131, 21)
Me.CHANGED_WHENTextBox.TabIndex = 21
'
'TBIDB_ATTRIBUTETableAdapter
'XtraTabPage2
'
Me.TBIDB_ATTRIBUTETableAdapter.ClearBeforeFill = True
Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(1124, 526)
Me.XtraTabPage2.Text = "XtraTabPage2"
'
'TableAdapterManager
'XtraTabPage_GlobalIndexer
'
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
Me.XtraTabPage_GlobalIndexer.Name = "XtraTabPage_GlobalIndexer"
Me.XtraTabPage_GlobalIndexer.PageVisible = False
Me.XtraTabPage_GlobalIndexer.Size = New System.Drawing.Size(1126, 549)
Me.XtraTabPage_GlobalIndexer.Text = "Global Indexer"
'
'GridControl1
'XtraTabPage_ClipboardWatcher
'
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})
Me.XtraTabPage_ClipboardWatcher.Name = "XtraTabPage_ClipboardWatcher"
Me.XtraTabPage_ClipboardWatcher.PageVisible = False
Me.XtraTabPage_ClipboardWatcher.Size = New System.Drawing.Size(1126, 549)
Me.XtraTabPage_ClipboardWatcher.Text = "Clipboard Watcher"
'
'GridView1
'XtraTabControl
'
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"
Me.XtraTabControl.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControl.Location = New System.Drawing.Point(200, 157)
Me.XtraTabControl.Name = "XtraTabControl"
Me.XtraTabControl.SelectedTabPage = Me.XtraTabPage_IDB
Me.XtraTabControl.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True]
Me.XtraTabControl.Size = New System.Drawing.Size(1128, 572)
Me.XtraTabControl.TabIndex = 4
Me.XtraTabControl.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage_ClipboardWatcher, Me.XtraTabPage_GlobalIndexer, Me.XtraTabPage_IDB})
'
'frmAdministrationZooFlow
'
@ -732,25 +734,28 @@ Partial Class frmAdministrationZooFlow
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "Administration"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TreeListMenu, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit()
Me.DockPanel1.ResumeLayout(False)
Me.DockPanel1_Container.ResumeLayout(False)
CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl.ResumeLayout(False)
Me.XtraTabPage_ClipboardWatcher.ResumeLayout(False)
Me.XtraTabPage_GlobalIndexer.ResumeLayout(False)
CType(Me.TBIDB_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBIDB_ATTRIBUTE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPage_IDB.ResumeLayout(False)
CType(Me.XtraTabControlIDB, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControlIDB.ResumeLayout(False)
Me.XtraTabPageIDB_Attributes_New.ResumeLayout(False)
CType(Me.GridAttributes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ViewAttributes, System.ComponentModel.ISupportInitialize).EndInit()
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.XtraTabPage_GlobalIndexer.ResumeLayout(False)
Me.XtraTabPage_ClipboardWatcher.ResumeLayout(False)
CType(Me.XtraTabControl, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@ -762,7 +767,7 @@ Partial Class frmAdministrationZooFlow
Friend WithEvents RibbonGroup_ClipboardWatcher_DocSearch As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents TreeList1 As DevExpress.XtraTreeList.TreeList
Friend WithEvents TreeListMenu As DevExpress.XtraTreeList.TreeList
Friend WithEvents TreeListColumn1 As DevExpress.XtraTreeList.Columns.TreeListColumn
Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection
Friend WithEvents RibbonGroup_ClipboardWatcher_DataSearch As DevExpress.XtraBars.Ribbon.RibbonPageGroup
@ -779,23 +784,39 @@ Partial Class frmAdministrationZooFlow
Friend WithEvents DockManager1 As DevExpress.XtraBars.Docking.DockManager
Friend WithEvents RibbonPage_GlobalIndexer As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents XtraTabControl As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPage_ClipboardWatcher As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPage_GlobalIndexer As DevExpress.XtraTab.XtraTabPage
Friend WithEvents CtrlClipboardWatcher1 As ctrlClipboardWatcher
Friend WithEvents CtrlGlobalIndexer1 As ctrlGlobalIndexer
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
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 DELETEDCheckBox As CheckBox
Friend WithEvents DELETED_WHOTextBox As TextBox
Friend WithEvents DELETED_WHENTextBox As TextBox
Friend WithEvents TBIDB_ATTRIBUTE_TYPEBindingSource As BindingSource
Friend WithEvents TBIDB_ATTRIBUTE_TYPETableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTE_TYPETableAdapter
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
Friend WithEvents XtraTabControl As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPage_ClipboardWatcher As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPage_GlobalIndexer As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPage_IDB As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabControlIDB As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPageIDB_Attributes_New As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridAttributes As DevExpress.XtraGrid.GridControl
Friend WithEvents ViewAttributes As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabPageIDB_Attributes As DevExpress.XtraTab.XtraTabPage
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colTITLE As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colATTR_TYPE As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GUIDTextBox As TextBox
Friend WithEvents TITLETextBox As TextBox
Friend WithEvents TYP_IDTextBox As TextBox
@ -807,20 +828,5 @@ Partial Class frmAdministrationZooFlow
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
Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
End Class

43
GUIs.ZooFlow/Administration/frmAdministrationZooFlow.resx → GUIs.ZooFlow/Administration/frmAdmin_Start.resx
View File

@ -117,28 +117,28 @@
<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">
<metadata name="CHANGED_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="CHANGED_WHOLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="CHANGED_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="ADDED_WHENLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="ADDED_WHOLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="COMMENTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="VIEW_SEQUENCELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="TITLELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="GUIDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
@ -270,7 +270,7 @@
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">
<data name="BarButtonItemSaveAttribute.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
@ -286,7 +286,7 @@
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">
<data name="BarButtonItemAddAttribute.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
@ -305,7 +305,7 @@
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">
<data name="BarButtonItemRefreshAttribute.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
@ -361,9 +361,6 @@
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>

175
GUIs.ZooFlow/Administration/frmAdmin_Start.vb Normal file
View File

@ -0,0 +1,175 @@
Imports DevExpress.Utils
Imports DevExpress.XtraBars.Docking2010.Views
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
Imports DevExpress.XtraTab
Imports DigitalData.Modules.Logging
Public Class frmAdmin_Start
Private Const IDB_START = "IDB_START"
Private Const IDB_ATTRIBUTES = "IDB_ATTRIBUTES"
Private Const IDB_BUSINESS_ENTITY = "IDB_BUSINESS_ENTITY"
Private Const GLOBIX = "GLOBIX"
Private Const CLIPBOARD_WATCHER = "CLIPBOARD_WATCHER"
Private Logger As Logger
Private PrimaryKey As String = Nothing
Private SourceCommands As New Dictionary(Of String, SourceSql)
Private Class SourceSql
Public Title As String
Public SQL As String
Public PrimaryKey As String
End Class
Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Logger = My.LogConfig.GetLogger
Load_SourceSql()
TreeListMenu.ExpandAll()
' Show Tab Header in Development, hide when running the app
XtraTabControl.ShowTabHeader = DefaultBoolean.False
End Sub
Private Sub Load_SourceSql()
Dim oTable As DataTable = My.Database.GetDatatable("SELECT * FROM TBZF_ADMIN_SOURCE_SQL")
For Each oRow As DataRow In oTable.Rows
Dim oSource As New SourceSql With {
.PrimaryKey = oRow.Item("PK_COLUMN"),
.SQL = oRow.Item("SQL_COMMAND"),
.Title = oRow.Item("ENTITY_TITLE")
}
SourceCommands.Add(oRow.Item("ENTITY_TITLE"), oSource)
Next
End Sub
Sub Display_Tab(pPageToDisplay As XtraTabPage, pTabControl As XtraTabControl)
Try
For Each oDocument As XtraTabPage In pTabControl.TabPages
If oDocument.Name = pPageToDisplay.Name Then
oDocument.PageVisible = True
Else
oDocument.PageVisible = False
End If
Next
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Sub Display_RibbonPage(PageToDisplay As RibbonPage)
Try
For Each oPage As RibbonPage In RibbonControl1.Pages
If oPage.Name = PageToDisplay.Name Then
oPage.Visible = True
Else
oPage.Visible = False
End If
Next
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Private Sub TreeList1_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeListMenu.FocusedNodeChanged
If e.Node Is Nothing OrElse e.Node.Tag Is Nothing Then
Exit Sub
End If
Select Case e.Node.Tag.ToString
Case IDB_START
Display_Tab(XtraTabPage_IDB, XtraTabControl)
Case IDB_ATTRIBUTES
Display_Tab(XtraTabPage_IDB, XtraTabControl)
Display_Tab(XtraTabPageIDB_Attributes_New, XtraTabControlIDB)
Dim oSource As SourceSql = SourceCommands.Item(e.Node.Tag.ToString)
Dim oTable As DataTable = My.Database.GetDatatable(oSource.SQL)
Load_Grid(oTable, oSource.PrimaryKey, GridAttributes)
Case IDB_BUSINESS_ENTITY
'DisplayTab(XtraTabPage_Entities)
Case GLOBIX
Display_Tab(XtraTabPage_GlobalIndexer, XtraTabControl)
Display_RibbonPage(RibbonPage_GlobalIndexer)
Case CLIPBOARD_WATCHER
Display_Tab(XtraTabPage_ClipboardWatcher, XtraTabControl)
Display_RibbonPage(RibbonPage_ClipboardWatcher)
End Select
End Sub
Private Sub Load_Grid(DataSource As DataTable, PrimaryKey As String, GridControl As GridControl)
Try
Me.PrimaryKey = PrimaryKey
GridControl.DataSource = DataSource
GridControl.ForceInitialize()
Dim oGridView = DirectCast(GridControl.DefaultView, GridView)
With oGridView.OptionsBehavior
.Editable = False
.ReadOnly = True
End With
With oGridView.OptionsView
.ShowAutoFilterRow = True
End With
oGridView.BestFitColumns()
Catch ex As Exception
MsgBox("Fehler beim Laden.", MsgBoxStyle.Critical, Text)
Logger.Error(ex)
End Try
End Sub
Private Sub TBIDB_ATTRIBUTEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
Validate()
TBIDB_ATTRIBUTEBindingSource.EndEdit()
TableAdapterManager.UpdateAll(DSIDB_Stammdaten)
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
Private Sub ViewAttributes_DoubleClick(sender As Object, e As EventArgs) Handles ViewAttributes.DoubleClick
Dim view As GridView = TryCast(sender, GridView)
Dim hitInfo As GridHitInfo = view.CalcHitInfo((TryCast(e, DXMouseEventArgs)).Location)
If hitInfo.InDataRow Then
Try
Dim oRow As DataRow = ViewAttributes.GetFocusedDataRow
Dim oPrimaryKey As Integer = oRow.Item(PrimaryKey)
Dim oForm As New frmAdmin_Attribute(oPrimaryKey)
oForm.ShowDialog()
Catch ex As Exception
Logger.Error(ex)
End Try
End If
End Sub
End Class

107
GUIs.ZooFlow/Administration/frmAdministrationZooFlow.vb
View File

@ -1,107 +0,0 @@
Imports DevExpress.XtraBars.Docking2010.Views
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraTab
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"
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(pPageToDisplay As XtraTabPage, pTabControl As XtraTabControl)
Try
For Each oDocument As XtraTabPage In pTabControl.TabPages
If oDocument.Name = pPageToDisplay.Name Then
oDocument.PageVisible = True
Else
oDocument.PageVisible = False
End If
Next
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Sub DisplayRibbonPage(PageToDisplay As RibbonPage)
Try
For Each oPage As RibbonPage In RibbonControl1.Pages
If oPage.Name = PageToDisplay.Name Then
oPage.Visible = True
Else
oPage.Visible = False
End If
Next
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Private Sub TreeList1_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeList1.FocusedNodeChanged
If e.Node Is Nothing OrElse e.Node.Tag Is Nothing Then
Exit Sub
End If
Select Case e.Node.Tag.ToString
Case IDBConst
DisplayTab(XtraTabPage_IDB, XtraTabControl)
Case IDB_ATTRIBUTES
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, XtraTabControl)
DisplayRibbonPage(RibbonPage_GlobalIndexer)
Case CLIPBOARD_WATCHER
DisplayTab(XtraTabPage_ClipboardWatcher, XtraTabControl)
DisplayRibbonPage(RibbonPage_ClipboardWatcher)
End Select
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
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

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

@ -2863,46 +2863,6 @@ Namespace DSIDB_StammdatenTableAdapters
tableMapping.ColumnMappings.Add("DELETED_WHEN", "DELETED_WHEN")
tableMapping.ColumnMappings.Add("ATTR_TYPE", "ATTR_TYPE")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)"
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, TYP_ID, MULTI_CONTE"& _
"XT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@TYP"& _
"_ID,@MULTI_CONTEXT,@VIEW_SEQUENCE,@VIEW_VISIBLE,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _
"GUID, TITLE, TYP_ID, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_"& _
"WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN F"& _
"ROM TBIDB_ATTRIBUTE WHERE (GUID = SCOPE_IDENTITY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTI_CONTEXT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTI_CONTEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, TYP_ID = @TYP_ID"& _
", MULTI_CONTEXT = @MULTI_CONTEXT, VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE ="& _
" @VIEW_VISIBLE, COMMENT = @COMMENT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CH"& _
"ANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE, TYP_ID, "& _
"MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHAN"& _
"GED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN FROM TBIDB_ATTRIBUTE W"& _
"HERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTI_CONTEXT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTI_CONTEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -2925,16 +2885,18 @@ Namespace DSIDB_StammdatenTableAdapters
"IBUTE.CHANGED_WHEN, TBIDB_ATTRIBUTE.DELETED, TBIDB_ATTRIBUTE.DELETED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" TBIDB_ATTRIBUTE.DELETED_WHEN, TBIDB_ATTRIBUTE_TYPE.NAME_TYP"& _
"E AS ATTR_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_ATTRIBUTE INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" TBIDB_ATTRIBUTE_TYPE ON TBIDB_ATTRIBUTE.TYP_ID = TBIDB_ATTRIBUTE_TYPE.GUID"
" TBIDB_ATTRIBUTE_TYPE ON TBIDB_ATTRIBUTE.TYP_ID = TBIDB_ATTRIBUTE_TYPE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE TBIDB_ATTRIBUTE.GUID = @GUID"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable) As Integer
Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable, ByVal GUID As Integer) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
End If
@ -2946,141 +2908,13 @@ Namespace DSIDB_StammdatenTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable
Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer)
Dim dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable = New DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer
Return Me.Adapter.Update(dataSet, "TBIDB_ATTRIBUTE")
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
Return Me.Adapter.Update(dataRows)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
Me.Adapter.DeleteCommand.Connection.Open
End If
Try
Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
Return returnValue
Finally
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
Me.Adapter.DeleteCommand.Connection.Close
End If
End Try
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal TYP_ID As Byte, ByVal MULTI_CONTEXT As Boolean, ByVal VIEW_SEQUENCE As Integer, ByVal VIEW_VISIBLE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer
If (TITLE Is Nothing) Then
Throw New Global.System.ArgumentNullException("TITLE")
Else
Me.Adapter.InsertCommand.Parameters(0).Value = CType(TITLE,String)
End If
Me.Adapter.InsertCommand.Parameters(1).Value = CType(TYP_ID,Byte)
Me.Adapter.InsertCommand.Parameters(2).Value = CType(MULTI_CONTEXT,Boolean)
Me.Adapter.InsertCommand.Parameters(3).Value = CType(VIEW_SEQUENCE,Integer)
Me.Adapter.InsertCommand.Parameters(4).Value = CType(VIEW_VISIBLE,Boolean)
If (COMMENT Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(5).Value = CType(COMMENT,String)
End If
If (ADDED_WHO Is Nothing) Then
Throw New Global.System.ArgumentNullException("ADDED_WHO")
Else
Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String)
End If
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
Me.Adapter.InsertCommand.Connection.Open
End If
Try
Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
Return returnValue
Finally
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
Me.Adapter.InsertCommand.Connection.Close
End If
End Try
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal TYP_ID As Byte, ByVal MULTI_CONTEXT As Boolean, ByVal VIEW_SEQUENCE As Integer, ByVal VIEW_VISIBLE As Boolean, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
If (TITLE Is Nothing) Then
Throw New Global.System.ArgumentNullException("TITLE")
Else
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TITLE,String)
End If
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TYP_ID,Byte)
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(MULTI_CONTEXT,Boolean)
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(VIEW_SEQUENCE,Integer)
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(VIEW_VISIBLE,Boolean)
If (COMMENT Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(COMMENT,String)
End If
If (CHANGED_WHO Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String)
End If
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
Me.Adapter.UpdateCommand.Connection.Open
End If
Try
Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
Return returnValue
Finally
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
Me.Adapter.UpdateCommand.Connection.Close
End If
End Try
End Function
End Class
'''<summary>
@ -3656,8 +3490,6 @@ Namespace DSIDB_StammdatenTableAdapters
Private _tBIDB_BUSINESS_ENTITYTableAdapter As TBIDB_BUSINESS_ENTITYTableAdapter
Private _tBIDB_ATTRIBUTETableAdapter As TBIDB_ATTRIBUTETableAdapter
Private _tBIDB_ATTRIBUTE_TYPETableAdapter As TBIDB_ATTRIBUTE_TYPETableAdapter
Private _backupDataSetBeforeUpdate As Boolean
@ -3689,20 +3521,6 @@ Namespace DSIDB_StammdatenTableAdapters
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
"a", "System.Drawing.Design.UITypeEditor")> _
Public Property TBIDB_ATTRIBUTETableAdapter() As TBIDB_ATTRIBUTETableAdapter
Get
Return Me._tBIDB_ATTRIBUTETableAdapter
End Get
Set
Me._tBIDB_ATTRIBUTETableAdapter = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
@ -3740,10 +3558,6 @@ Namespace DSIDB_StammdatenTableAdapters
AndAlso (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter.Connection) Is Nothing)) Then
Return Me._tBIDB_BUSINESS_ENTITYTableAdapter.Connection
End If
If ((Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) _
AndAlso (Not (Me._tBIDB_ATTRIBUTETableAdapter.Connection) Is Nothing)) Then
Return Me._tBIDB_ATTRIBUTETableAdapter.Connection
End If
If ((Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) _
AndAlso (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection) Is Nothing)) Then
Return Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection
@ -3764,9 +3578,6 @@ Namespace DSIDB_StammdatenTableAdapters
If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then
count = (count + 1)
End If
If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then
count = (count + 1)
End If
If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then
count = (count + 1)
End If
@ -3790,15 +3601,6 @@ Namespace DSIDB_StammdatenTableAdapters
allChangedRows.AddRange(updatedRows)
End If
End If
If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
If ((Not (updatedRows) Is Nothing) _
AndAlso (0 < updatedRows.Length)) Then
result = (result + Me._tBIDB_ATTRIBUTETableAdapter.Update(updatedRows))
allChangedRows.AddRange(updatedRows)
End If
End If
If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_BUSINESS_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
@ -3826,14 +3628,6 @@ Namespace DSIDB_StammdatenTableAdapters
allAddedRows.AddRange(addedRows)
End If
End If
If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
If ((Not (addedRows) Is Nothing) _
AndAlso (0 < addedRows.Length)) Then
result = (result + Me._tBIDB_ATTRIBUTETableAdapter.Update(addedRows))
allAddedRows.AddRange(addedRows)
End If
End If
If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_BUSINESS_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
If ((Not (addedRows) Is Nothing) _
@ -3860,14 +3654,6 @@ Namespace DSIDB_StammdatenTableAdapters
allChangedRows.AddRange(deletedRows)
End If
End If
If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
If ((Not (deletedRows) Is Nothing) _
AndAlso (0 < deletedRows.Length)) Then
result = (result + Me._tBIDB_ATTRIBUTETableAdapter.Update(deletedRows))
allChangedRows.AddRange(deletedRows)
End If
End If
If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE_TYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
If ((Not (deletedRows) Is Nothing) _
@ -3922,11 +3708,6 @@ Namespace DSIDB_StammdatenTableAdapters
Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _
"s die gleiche Verbindungszeichenfolge verwendet werden.")
End If
If ((Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) _
AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_ATTRIBUTETableAdapter.Connection) = false)) Then
Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _
"s die gleiche Verbindungszeichenfolge verwendet werden.")
End If
If ((Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) _
AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection) = false)) Then
Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _
@ -3975,15 +3756,6 @@ Namespace DSIDB_StammdatenTableAdapters
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_BUSINESS_ENTITYTableAdapter.Adapter)
End If
End If
If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then
revertConnections.Add(Me._tBIDB_ATTRIBUTETableAdapter, Me._tBIDB_ATTRIBUTETableAdapter.Connection)
Me._tBIDB_ATTRIBUTETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
Me._tBIDB_ATTRIBUTETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
If Me._tBIDB_ATTRIBUTETableAdapter.Adapter.AcceptChangesDuringUpdate Then
Me._tBIDB_ATTRIBUTETableAdapter.Adapter.AcceptChangesDuringUpdate = false
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_ATTRIBUTETableAdapter.Adapter)
End If
End If
If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then
revertConnections.Add(Me._tBIDB_ATTRIBUTE_TYPETableAdapter, Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection)
Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
@ -4057,10 +3829,6 @@ Namespace DSIDB_StammdatenTableAdapters
Me._tBIDB_BUSINESS_ENTITYTableAdapter.Connection = CType(revertConnections(Me._tBIDB_BUSINESS_ENTITYTableAdapter),Global.System.Data.SqlClient.SqlConnection)
Me._tBIDB_BUSINESS_ENTITYTableAdapter.Transaction = Nothing
End If
If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then
Me._tBIDB_ATTRIBUTETableAdapter.Connection = CType(revertConnections(Me._tBIDB_ATTRIBUTETableAdapter),Global.System.Data.SqlClient.SqlConnection)
Me._tBIDB_ATTRIBUTETableAdapter.Transaction = Nothing
End If
If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then
Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection = CType(revertConnections(Me._tBIDB_ATTRIBUTE_TYPETableAdapter),Global.System.Data.SqlClient.SqlConnection)
Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Transaction = Nothing

63
GUIs.ZooFlow/DSIDB_Stammdaten.xsd
View File

@ -75,63 +75,20 @@ SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDE
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBIDB_ATTRIBUTETableAdapter" GeneratorDataComponentClassName="TBIDB_ATTRIBUTETableAdapter" Name="TBIDB_ATTRIBUTE" UserDataComponentName="TBIDB_ATTRIBUTETableAdapter">
<MainSource>
<DbSource ConnectionRef="IDBConnectionStringDEFAULT (Settings)" DbObjectType="Unknown" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM TBIDB_ATTRIBUTE
WHERE (GUID = @Original_GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO TBIDB_ATTRIBUTE
(TITLE, TYP_ID, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO)
VALUES (@TITLE,@TYP_ID,@MULTI_CONTEXT,@VIEW_SEQUENCE,@VIEW_VISIBLE,@COMMENT,@ADDED_WHO);
SELECT GUID, TITLE, TYP_ID, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN FROM TBIDB_ATTRIBUTE WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="TITLE" ColumnName="TITLE" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="TYP_ID" ColumnName="TYP_ID" DataSourceName="" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@TYP_ID" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="TYP_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="MULTI_CONTEXT" ColumnName="MULTI_CONTEXT" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@MULTI_CONTEXT" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="MULTI_CONTEXT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="VIEW_SEQUENCE" ColumnName="VIEW_SEQUENCE" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@VIEW_SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="VIEW_SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="VIEW_VISIBLE" ColumnName="VIEW_VISIBLE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@VIEW_VISIBLE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="VIEW_VISIBLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="" DataTypeServer="varchar(1000)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="1000" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<DbSource ConnectionRef="IDBConnectionStringDEFAULT (Settings)" DbObjectType="Unknown" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT TBIDB_ATTRIBUTE.GUID, TBIDB_ATTRIBUTE.TITLE, TBIDB_ATTRIBUTE.TYP_ID, TBIDB_ATTRIBUTE.MULTI_CONTEXT, TBIDB_ATTRIBUTE.VIEW_SEQUENCE, TBIDB_ATTRIBUTE.VIEW_VISIBLE, TBIDB_ATTRIBUTE.COMMENT,
TBIDB_ATTRIBUTE.ADDED_WHO, TBIDB_ATTRIBUTE.ADDED_WHEN, TBIDB_ATTRIBUTE.CHANGED_WHO, TBIDB_ATTRIBUTE.CHANGED_WHEN, TBIDB_ATTRIBUTE.DELETED, TBIDB_ATTRIBUTE.DELETED_WHO,
TBIDB_ATTRIBUTE.DELETED_WHEN, TBIDB_ATTRIBUTE_TYPE.NAME_TYPE AS ATTR_TYPE
FROM TBIDB_ATTRIBUTE INNER JOIN
TBIDB_ATTRIBUTE_TYPE ON TBIDB_ATTRIBUTE.TYP_ID = TBIDB_ATTRIBUTE_TYPE.GUID</CommandText>
<Parameters />
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE TBIDB_ATTRIBUTE
SET TITLE = @TITLE, TYP_ID = @TYP_ID, MULTI_CONTEXT = @MULTI_CONTEXT, VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE = @VIEW_VISIBLE, COMMENT = @COMMENT,
CHANGED_WHO = @CHANGED_WHO
WHERE (GUID = @Original_GUID);
SELECT GUID, TITLE, TYP_ID, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN FROM TBIDB_ATTRIBUTE WHERE (GUID = @GUID)</CommandText>
TBIDB_ATTRIBUTE_TYPE ON TBIDB_ATTRIBUTE.TYP_ID = TBIDB_ATTRIBUTE_TYPE.GUID
WHERE TBIDB_ATTRIBUTE.GUID = @GUID</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="TITLE" ColumnName="TITLE" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="TYP_ID" ColumnName="TYP_ID" DataSourceName="" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@TYP_ID" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="TYP_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="MULTI_CONTEXT" ColumnName="MULTI_CONTEXT" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@MULTI_CONTEXT" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="MULTI_CONTEXT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="VIEW_SEQUENCE" ColumnName="VIEW_SEQUENCE" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@VIEW_SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="VIEW_SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="VIEW_VISIBLE" ColumnName="VIEW_VISIBLE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@VIEW_VISIBLE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="VIEW_VISIBLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="" DataTypeServer="varchar(1000)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="1000" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="IDB_TEST.dbo.TBIDB_ATTRIBUTE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</UpdateCommand>
</SelectCommand>
</DbSource>
</MainSource>
<Mappings>
@ -260,7 +217,7 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN,
<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: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_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: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:complexType>
<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" />
@ -299,7 +256,7 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN,
</xs:sequence>
</xs:complexType>
</xs:element>
<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: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:complexType>
<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" />
@ -356,7 +313,7 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN,
</xs:sequence>
</xs:complexType>
</xs:element>
<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: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:complexType>
<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" />
@ -414,7 +371,7 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN,
</xs:element>
<xs:annotation>
<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_RelationVarName="relationFK_TYP_ID" msprop:Generator_UserParentTable="TBIDB_ATTRIBUTE_TYPE" msprop:Generator_ParentPropName="TBIDB_ATTRIBUTE_TYPERow" />
<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" />
</xs:appinfo>
</xs:annotation>
</xs:schema>

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

@ -190,6 +190,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property actions_check() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("actions_check", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

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

@ -190,6 +190,9 @@
<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>
</data>
<data name="Flow" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Flow.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="3_PERSON_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\3_PERSON_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -205,7 +208,7 @@
<data name="2_ZOO_FLOW_Abo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Flow" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Flow.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="actions_check" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_check.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
</root>

2
GUIs.ZooFlow/MyApplication.vb
View File

@ -30,7 +30,7 @@ Namespace My
Property DTCATALOG As DataTable
Property IDB_DT_DOC_DATA As DataTable
Property LogConfig As LogConfig
Property MainForm As frmAdministrationZooFlow
Property MainForm As frmAdmin_Start
Property SearchForm As frmSearchStart
Property Database As MSSQLServer
Property DatabaseIDB As MSSQLServer

15
GUIs.ZooFlow/Resources/actions_check.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="Check">
<polygon points="27,5 11,21 5,15 2,18 11,27 30,8 " class="Green" />
</g>
</svg>

32
GUIs.ZooFlow/ZooFlow.vbproj
View File

@ -114,18 +114,13 @@
<Import Include="System" />
</ItemGroup>
<ItemGroup>
<Compile Include="Administration\ctrlClipboardWatcher.Designer.vb">
<DependentUpon>ctrlClipboardWatcher.vb</DependentUpon>
<Compile Include="Administration\frmAdmin_Attribute.Designer.vb">
<DependentUpon>frmAdmin_Attribute.vb</DependentUpon>
</Compile>
<Compile Include="Administration\ctrlClipboardWatcher.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Administration\ctrlGlobalIndexer.Designer.vb">
<DependentUpon>ctrlGlobalIndexer.vb</DependentUpon>
</Compile>
<Compile Include="Administration\ctrlGlobalIndexer.vb">
<SubType>UserControl</SubType>
<Compile Include="Administration\frmAdmin_Attribute.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Administration\ZooFlow_AdminEditForm.vb" />
<Compile Include="ApplicationEvents.vb" />
<Compile Include="Base\BaseClass.vb" />
<Compile Include="ClipboardWatcher\ClassProfileLoader.vb" />
@ -181,10 +176,10 @@
</Compile>
<Compile Include="Events\OnFlowFormInteractionEvent.vb" />
<Compile Include="Events\OnFlowFormStateChangedEvent.vb" />
<Compile Include="Administration\frmAdministrationZooFlow.Designer.vb">
<DependentUpon>frmAdministrationZooFlow.vb</DependentUpon>
<Compile Include="Administration\frmAdmin_Start.Designer.vb">
<DependentUpon>frmAdmin_Start.vb</DependentUpon>
</Compile>
<Compile Include="Administration\frmAdministrationZooFlow.vb">
<Compile Include="Administration\frmAdmin_Start.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmFlowForm.Designer.vb">
@ -261,8 +256,8 @@
<Compile Include="Queries\ClassQueries.vb" />
<Compile Include="Search\SearchFilter.vb" />
<Compile Include="Search\State.vb" />
<EmbeddedResource Include="Administration\ctrlClipboardWatcher.resx">
<DependentUpon>ctrlClipboardWatcher.vb</DependentUpon>
<EmbeddedResource Include="Administration\frmAdmin_Attribute.resx">
<DependentUpon>frmAdmin_Attribute.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Globix\frmGlobixBasicConfig.resx">
<DependentUpon>frmGlobixBasicConfig.vb</DependentUpon>
@ -273,8 +268,8 @@
<EmbeddedResource Include="Search\frmFlowSearch.resx">
<DependentUpon>frmFlowSearch.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Administration\frmAdministrationZooFlow.resx">
<DependentUpon>frmAdministrationZooFlow.vb</DependentUpon>
<EmbeddedResource Include="Administration\frmAdmin_Start.resx">
<DependentUpon>frmAdmin_Start.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmConfigDatabase.resx">
<DependentUpon>frmConfigDatabase.vb</DependentUpon>
@ -485,6 +480,9 @@
<ItemGroup>
<None Include="Resources\Flow.PNG" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\actions_check.svg" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.

2
GUIs.ZooFlow/frmFlowForm.vb
View File

@ -456,7 +456,7 @@ Public Class frmFlowForm
End Sub
Private Sub VerwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerwaltungToolStripMenuItem.Click
frmAdministrationZooFlow.Show()
frmAdmin_Start.Show()
End Sub
Private Sub frmFlowForm_DragEnter(sender As Object, e As DragEventArgs) Handles MyBase.DragEnter