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

MS ZF Adminconsole

Browse Source
This commit is contained in:
SchreiberM 2021-12-07 12:03:50 +01:00
parent df2b59b471
commit 8ef994f468
33 changed files with 5497 additions and 879 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
GUIs.ZooFlow/Administration/ClassConstants.vb
View File

@ -6,8 +6,8 @@
Public Const PAGE_IDB_SOURCE_SQL = "IDB_SOURCE_SQL"
Public Const PAGE_IDB_OBJECT_STORES = "IDB_OBJECT_STORES"
Public Const MODULE_GLOBIX = "GLOBIX"
Public Const PAGE_GLOBIX_PROFILES = "GLOBIX_PROFILES"
Public Const MODULE_GI = "GLOBIX"
Public Const PAGE_GI_PROFILES = "GI_PROFILES"
Public Const MODULE_CW = "CW"
Public Const PAGE_CW_PROFILES = "CW_PROFILES"

14
GUIs.ZooFlow/Administration/ClassDetailForm.vb
View File

@ -9,21 +9,21 @@ Public Class ClassDetailForm
Public ReadOnly Property DetailSettingsList As New Dictionary(Of String, DetailSettings) From {
{PAGE_IDB_ATTRIBUTES, ' This Key will be matched with the Entity Id from the Database
New DetailSettings With {
.GridTitle = "IDB Attribute", ' This will be shown above the Data Grid
.GridTitle = "Attribute", ' This will be shown above the Data Grid
.NewRecordTitle = "Neues Attribut", ' This will be shown on the "New" Button
.[Module] = MODULE_IDB,
.Entity = PAGE_IDB_ATTRIBUTES
}},
{PAGE_IDB_BUSINESS_ENTITIES,
New DetailSettings With {
.GridTitle = "IDB Entitäten",
.GridTitle = "Geschäftseinheit",
.NewRecordTitle = "Neue Entität",
.[Module] = MODULE_IDB,
.Entity = PAGE_IDB_BUSINESS_ENTITIES
}},
{PAGE_IDB_OBJECT_STORES, ' This Key will be matched with the Entity Id from the Database
New DetailSettings With {
.GridTitle = "IDB Object Stores", ' This will be shown above the Data Grid
.GridTitle = "Object-Stores", ' This will be shown above the Data Grid
.NewRecordTitle = "New Object Store", ' This will be shown on the "New" Button
.[Module] = MODULE_IDB,
.Entity = PAGE_IDB_OBJECT_STORES
@ -35,12 +35,12 @@ Public Class ClassDetailForm
.[Module] = MODULE_META,
.Entity = PAGE_META_SOURCE_SQL
}},
{PAGE_GLOBIX_PROFILES,
{PAGE_GI_PROFILES,
New DetailSettings With {
.GridTitle = "Global Indexer Profile",
.NewRecordTitle = "Neues GLOBIX Profil",
.[Module] = MODULE_GLOBIX,
.Entity = PAGE_GLOBIX_PROFILES
.[Module] = MODULE_GI,
.Entity = PAGE_GI_PROFILES
}},
{PAGE_CW_PROFILES,
New DetailSettings With {
@ -71,7 +71,7 @@ Public Class ClassDetailForm
Load_CWProfile(PrimaryKey, IsInsert)
Return True
Case PAGE_GLOBIX_PROFILES
Case PAGE_GI_PROFILES
GLOBIX_JUMP_DOCTYPE_ID = PrimaryKey
Load_GLOBIXProfile(PrimaryKey, IsInsert)
Return True

1531
GUIs.ZooFlow/Administration/frmAdmin_Globix.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

88
GUIs.ZooFlow/Administration/frmAdmin_Globix.resx
View File

@ -117,6 +117,9 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="SEQUENCELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="BarButtonNew.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -156,6 +159,9 @@
<metadata name="GlobixDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>350, 17</value>
</metadata>
<metadata name="GlobixDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>350, 17</value>
</metadata>
<metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
@ -168,33 +174,47 @@
<metadata name="TableAdapterManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>981, 17</value>
</metadata>
<metadata name="VWIDB_OBJECT_STOREBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>246, 56</value>
</metadata>
<metadata name="TBDD_INDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1161, 17</value>
</metadata>
<data name="btneditSQLmanIndex.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="SimpleButtonNameconvention.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOwDAAAC77u/
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABwFAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku
QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC
MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRWRpdERhdGFT
b3VyY2UiPg0KICAgIDxwYXRoIGQ9Ik00LDEwVjZjMC0yLjIsNC41LTQsMTAtNHMxMCwxLjgsMTAsNHY0
YzAsMi4yLTQuNSw0LTEwLDRTNCwxMi4yLDQsMTB6IE0yNCwxOEwyNCwxOEMyNCwxOCwyNCwxOCwyNCwx
OCAgIEMyNCwxOCwyNCwxOCwyNCwxOHogTTE0LDIwYzUuNSwwLDEwLTEuOCwxMC00di00YzAsMi4yLTQu
NSw0LTEwLDRTNCwxNC4yLDQsMTJ2NEM0LDE4LjIsOC41LDIwLDE0LDIweiBNMTUuMiwyNmw0LjgtNC44
ICAgYy0xLjcsMC41LTMuNywwLjgtNiwwLjhjLTUuNSwwLTEwLTEuOC0xMC00djRjMCwyLjIsNC41LDQs
MTAsNEMxNC40LDI2LDE0LjgsMjYsMTUuMiwyNnoiIGNsYXNzPSJZZWxsb3ciIC8+DQogICAgPHBhdGgg
ZD0iTTI5LDIzbC04LDhsLTQtNGw4LThMMjksMjN6IE0zMCwyMmwxLjctMS43YzAuNC0wLjQsMC40LTEs
MC0xLjNMMjksMTYuM2MtMC40LTAuNC0xLTAuNC0xLjMsMEwyNiwxOEwzMCwyMnogICAgTTE2LDI4djRo
NEwxNiwyOHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2Zz4L
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3
RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh
Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm
aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iUmVuYW1lXzFfIj4NCiAgICA8
cGF0aCBkPSJNMi4xLDE2aDIuMmwwLjYtMi4zaDMuMkw4LjgsMTZIMTFMNy44LDZINS40TDIuMSwxNnog
TTYuNCw4LjdjMC4xLTAuMywwLjEtMC42LDAuMS0wLjloMC4xICAgYzAsMC4zLDAuMSwwLjYsMC4xLDAu
OWwxLDMuM0g1LjRMNi40LDguN3ogTTE3LjUsMTAuNmMwLjYtMC4yLDEuMS0wLjUsMS41LTAuOWMwLjQt
MC40LDAuNi0wLjksMC42LTEuNGMwLTAuNy0wLjMtMS4zLTAuOS0xLjcgICBDMTguMSw2LjIsMTcuMSw2
LDE1LjksNkgxMnY5LjlWMTZoNGMxLjIsMCwyLjItMC4yLDIuOS0wLjhDMTkuNywxNC42LDIwLDE0LDIw
LDEzYzAtMC42LTAuMi0xLjItMC43LTEuNiAgIEMxOC45LDExLDE4LjMsMTAuNywxNy41LDEwLjZ6IE0x
NC40LDcuN2gwLjljMS4xLDAsMS43LDAuNCwxLjcsMS4xYzAsMC40LTAuMSwwLjctMC40LDAuOUMxNi40
LDkuOSwxNiwxMCwxNS41LDEwaC0xLjFWNy43eiAgICBNMTcsMTMuOGMtMC4zLDAuMi0wLjgsMC40LTEu
MywwLjRoLTEuM3YtMi42aDEuM2MwLjUsMCwwLjksMC4xLDEuMywwLjNjMC4zLDAuMiwwLjUsMC42LDAu
NSwwLjlDMTcuNSwxMy4zLDE3LjQsMTMuNiwxNywxMy44eiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxw
YXRoIGQ9Ik0yNywxOWwtOCw4bC00LTRsOC04TDI3LDE5eiBNMjgsMThsMS43LTEuN2MwLjQtMC40LDAu
NC0xLDAtMS4zTDI3LDEyLjNjLTAuNC0wLjQtMS0wLjQtMS4zLDBMMjQsMTRMMjgsMTh6ICAgIE0xNCwy
NHY0aDRMMTQsMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value>
</data>
<metadata name="TBDD_INDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1161, 17</value>
</metadata>
<metadata name="VWIDB_BE_ATTRIBUTEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>752, 56</value>
</metadata>
<data name="XtraTabPageManIndexe.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
@ -259,6 +279,32 @@
MC41LTAuMSwwLjctMC4yYzAuMi0wLjEsMC40LTAuMiwwLjYtMC41YzAuMi0wLjIsMC41LTAuNywxLTEu
NEwyMSwyNC4zaC0xLjFsMC4zLTEuNCAgYzAuNi0wLjEsMS4yLTAuMywxLjctMC42SDIyLjV6IiBjbGFz
cz0iQmx1ZSIgLz4NCjwvc3ZnPgs=
</value>
</data>
<metadata name="TBDD_INDEX_AUTOMBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
</metadata>
<metadata name="TBDD_INDEX_AUTOMBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
</metadata>
<metadata name="TBDD_INDEX_AUTOMBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
</metadata>
<data name="SimpleButton1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEACAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFycm93MUxlZnQiPg0KICAgIDxwb2x5Z29uIHBvaW50
cz0iMjgsMTQgMTQsMTQgMTQsMTMuMyAxNCw2IDQsMTYgMTQsMjYgMTQsMTguNyAxNCwxOCAyOCwxOCAg
IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value>
</data>
<data name="XtraTabPageAutoIndexe.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@ -328,7 +374,19 @@
QmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<metadata name="VWIDB_OBJECT_STOREBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>246, 56</value>
</metadata>
<metadata name="TBDD_INDEX_MANTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="VWIDB_OBJECT_STORETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>502, 56</value>
</metadata>
<metadata name="VWIDB_BE_ATTRIBUTETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1004, 56</value>
</metadata>
<metadata name="TBDD_INDEX_AUTOMTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>267, 95</value>
</metadata>
</root>

242
GUIs.ZooFlow/Administration/frmAdmin_Globix.vb
View File

@ -7,6 +7,7 @@ Public Class frmAdmin_Globix
Public Property IsInsert As Boolean = False Implements IAdminForm.IsInsert
Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Private Pages As ClassDetailPages
Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
' Dieser Aufruf ist für den Designer erforderlich.
@ -18,11 +19,17 @@ Public Class frmAdmin_Globix
End Sub
Private Sub frmAdmin_Globix_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "DSIDB_Stammdaten.VWIDB_OBJECT_STORE". Sie können sie bei Bedarf verschieben oder entfernen.
InitializeBaseForm(My.LogConfig)
Try
TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey)
TBDD_INDEX_MANTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
Me.VWIDB_OBJECT_STORETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
Me.VWIDB_OBJECT_STORETableAdapter.Fill(Me.DSIDB_Stammdaten.VWIDB_OBJECT_STORE)
Me.VWIDB_BE_ATTRIBUTETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
Me.VWIDB_BE_ATTRIBUTETableAdapter.Fill(Me.DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, My.Application.User.Language)
Load_TabData()
' Add Focus Handler to all controls in all LayoutControls
@ -30,7 +37,7 @@ Public Class frmAdmin_Globix
Pages = New ClassDetailPages(My.LogConfig, Me, oLayoutControls)
Pages.AddRange({
New ClassDetailPages.PrimaryPage(IsInsert) With {
.Name = "Profil",
.Name = "Profile Globix",
.TabPage = XtraTabPageProfile,
.BindingSource = TBDD_DOKUMENTARTBindingSource,
.DataTable = GlobixDataset.TBDD_DOKUMENTART,
@ -38,17 +45,30 @@ Public Class frmAdmin_Globix
.ChangedWhoEdit = TextEditGeandertWer
},
New ClassDetailPages.DetailPage With {
.Name = "ManIndexe",
.Name = "Manual Attributes",
.TabPage = XtraTabPageManIndexe,
.BindingSource = TBDD_INDEX_MANBindingSource,
.DataTable = GlobixDataset.TBDD_INDEX_MAN,
.AddedWhoEdit = TextEditAddedWho_ManIndex,
.ChangedWhoEdit = TextEditChangedWho_ManIndex
},
New ClassDetailPages.DetailPage With {
.Name = "Auto Attributes",
.TabPage = XtraTabPageAutoIndexe,
.BindingSource = TBDD_INDEX_AUTOMBindingSource,
.DataTable = GlobixDataset.TBDD_INDEX_AUTOM,
.AddedWhoEdit = ADDED_WHOTextBoxAutoAttribut,
.ChangedWhoEdit = CHANGED_WHOTextEditAutoAttribut
}
})
Pages.PrepareLoad()
AddHandler Pages.CurrentPage_Changed, AddressOf CurrentPage_Changed
If IsInsert Then
TextEditErstelltWer.EditValue = My.Application.User.UserName
Else
TextEditChangedWho_ManIndex.EditValue = My.Application.User.UserName
End If
Catch ex As Exception
ShowErrorMessage(ex)
End Try
@ -100,45 +120,119 @@ Public Class frmAdmin_Globix
Private Sub XtraTabControl1_Click(sender As Object, e As EventArgs) Handles XtraTabControl1.Click
End Sub
Private Sub SUGGESTIONCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SUGGESTIONCheckBox.CheckedChanged
If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
btneditSQLmanIndex.Enabled = True
Else
btneditSQLmanIndex.Enabled = False
End If
End Sub
Private Sub BarButtonSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonSave.ItemClick
ResetMessages()
If Pages.PrepareSave() = True Then
Try
Dim oPage = Pages.Current
' If Pages.PrepareSave() = True Then
Try
Dim oPage = Pages.Current
Select Case oPage.TabPage.Name
Case XtraTabPageProfile.Name
TBDD_INDEX_MANTableAdapter.Update(oPage.DataTable)
Case XtraTabPageManIndexe.Name
TBDD_INDEX_MANTableAdapter.Update(oPage.DataTable)
Select Case oPage.TabPage.Name
Case XtraTabPageProfile.Name
If IsInsert Then
Insert_Doctype()
Else
Update_Doctype()
End If
End Select
Case XtraTabPageManIndexe.Name
Try
Save_manIndexe(oPage)
Load_INDEXMAN()
Catch ex As Exception
oPage.IsInsert = False
End Try
Case XtraTabPageAutoIndexe.Name
Save_AutoIndexe(oPage)
Load_Attribute_Auto()
ShowStatus($"{oPage.Name} gespeichert!")
Catch ex As Exception
ShowErrorMessage(ex)
End Try
Else
ShowStatus("Keine Änderungen!")
End If
End Select
oPage.IsInsert = False
ShowStatus($"{oPage.Name} saved!")
Catch ex As Exception
ShowErrorMessage(ex)
End Try
'Else
' ShowStatus("Keine Änderungen!")
'End If
End Sub
Private Function Save_manIndexe(oPage As ClassDetailPages.DetailPage) As Boolean
Try
TBDD_INDEX_MANBindingSource.EndEdit()
If GlobixDataset.TBDD_INDEX_MAN.GetChanges() IsNot Nothing Then
If Pages.Current.IsInsert Then
TextEditAddedWho_ManIndex.Text = My.Application.User.UserName
Else
TextEditChangedWho_ManIndex.Text = My.Application.User.UserName
End If
TBDD_INDEX_MANBindingSource.EndEdit()
TBDD_INDEX_MANTableAdapter.Update(Pages.Current.DataTable)
End If
Return True
Catch ex As Exception
Return False
End Try
End Function
Private Function Save_AutoIndexe(oPage As ClassDetailPages.DetailPage) As Boolean
Try
TBDD_INDEX_AUTOMBindingSource.EndEdit()
If GlobixDataset.TBDD_INDEX_AUTOM.GetChanges() IsNot Nothing Then
If Pages.Current.IsInsert Then
TextEditAddedWho_ManIndex.Text = My.Application.User.UserName
Else
TextEditChangedWho_ManIndex.Text = My.Application.User.UserName
End If
TBDD_INDEX_AUTOMBindingSource.EndEdit()
TBDD_INDEX_AUTOMTableAdapter.Update(Pages.Current.DataTable)
End If
Return True
Catch ex As Exception
Return False
End Try
End Function
Private Function Insert_Doctype() As Boolean
Try
Dim oIns = $"INSERT INTO [TBDD_DOKUMENTART] ([BEZEICHNUNG] ,[OBJEKTTYP] ,[EINGANGSART_ID] ,[KURZNAME] ,[ZIEL_PFAD] ,[BESCHREIBUNG]
,[WINDREAM_DIRECT] ,[FOLDER_FOR_INDEX] ,[DUPLICATE_HANDLING],[AKTIV],[LANGUAGE],
[SEQUENCE],[NAMENKONVENTION],[ERSTELLTWER],IDB_OBJECT_STORE_ID) VALUES
('{TextEditBezeichnung.Text}','IDB_DRIVEN',1,'{TextEditKurzname.Text}','IDB_STORE','{TextEditBeschreibung.Text}'
,'False','','{ComboBoxEditDupl_handling.EditValue}' ,'{AKTIVCheckBox.Checked}','{My.Application.User.Language}'
, {SEQUENCENumericUpDown.Value},'{TextEditNamenkonvention.Text}','{My.Application.User.UserName}',{IDB_OBJECT_STORE_IDComboBox.SelectedValue})"
If My.DatabaseECM.ExecuteNonQuery(oIns) = True Then
Dim oSQL = $"SELECT GUID FROM TBDD_DOKUMENTART WHERE BEZEICHNUNG = '{TextEditBezeichnung.Text}'"
PrimaryKey = My.DatabaseECM.GetScalarValue(oSQL)
oSQL = $"INSERT INTO TBDD_DOKUMENTART_MODULE (DOKART_ID,MODULE_ID) VALUES ({PrimaryKey},(SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'GLOBIX'))"
My.DatabaseECM.ExecuteNonQuery(oIns)
IsInsert = False
TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey)
Return True
Else
Return False
End If
Catch ex As Exception
ShowErrorMessage(ex)
Return False
End Try
End Function
Private Function Update_Doctype() As Boolean
Try
Dim oUpd = $"UPDATE TBDD_DOKUMENTART SET [BEZEICHNUNG] = '{TextEditBezeichnung.Text}' ,[KURZNAME] = '{TextEditKurzname.Text}' ,[BESCHREIBUNG] = '{TextEditBeschreibung.Text}'
,[DUPLICATE_HANDLING] = '{ComboBoxEditDupl_handling.EditValue}',[AKTIV] = '{AKTIVCheckBox.Checked}',[SEQUENCE] = {SEQUENCENumericUpDown.Value}
,[NAMENKONVENTION] = '{TextEditNamenkonvention.Text}',[GEANDERTWER] = '{My.Application.User.UserName}',IDB_OBJECT_STORE_ID = {IDB_OBJECT_STORE_IDComboBox.SelectedValue} WHERE GUID = {TextEditDoctypeID.Text}"
Return My.DatabaseECM.ExecuteNonQuery(oUpd)
Catch ex As Exception
ShowErrorMessage(ex)
Return False
End Try
End Function
Private Sub BarButtonNew_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonNew.ItemClick
Pages.Current.IsInsert = True
@ -152,11 +246,95 @@ Public Class frmAdmin_Globix
End If
If oPage.IsPrimary = False Then
oPage.DataTable.Columns.Item("DOK_ID").DefaultValue = PrimaryKey
Select Case oPage.TabPage.Name
Case XtraTabPageAutoIndexe.Name
oPage.DataTable.Columns.Item("DOCTYPE_ID").DefaultValue = PrimaryKey
Case Else
oPage.DataTable.Columns.Item("DOK_ID").DefaultValue = PrimaryKey
End Select
oPage.DataTable.Columns.Item("ADDED_WHO").DefaultValue = My.Application.User.UserName
End If
Select Case oPage.TabPage.Name
Case XtraTabPageProfile.Name
Case XtraTabPageManIndexe.Name
TextEditAddedWho_ManIndex.Text = My.Application.User.UserName
Case XtraTabPageAutoIndexe.Name
ADDED_WHOTextBoxAutoAttribut.Text = My.Application.User.UserName
End Select
Dim oNewRecord As DataRowView = oPage.BindingSource.AddNew()
Return True
End Function
Private Sub btneditSQLmanIndex_Click(sender As Object, e As EventArgs) Handles btneditSQLmanIndex.Click
If Save_manIndexe(Pages.Current) = True Then
Dim oSQLbefore = SQL_RESULTTextBox.Text
Dim oForm As New frmSQLDesigner() With {.SQLCommand = SQL_RESULTTextBox.Text, .DesignType = "GI_ATTRIBUTE_MAN", .ConnectionID = CONNECTION_IDTextBox.Text}
Dim oResult = oForm.ShowDialog()
If oSQLbefore <> oForm.SQLCommand Then
CONNECTION_IDTextBox.Text = oForm.ConnectionID
SQL_RESULTTextBox.Text = oForm.SQLCommand
'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@SQL_RESULT").Value = oForm.SQLCommand
'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@CONNECTION_ID").Value = oForm.ConnectionID
TextEditChangedWho_ManIndex.Text = My.Application.User.UserName
End If
End If
End Sub
Private Sub SimpleButtonNameconvention_Click(sender As Object, e As EventArgs) Handles SimpleButtonNameconvention.Click
Dim oForm As New frmGlobixNameconvention() With {.Nameconvention = TextEditNamenkonvention.Text, .DoctypeID = TextEditDoctypeID.Text}
Dim oResult = oForm.ShowDialog()
TextEditNamenkonvention.Text = oForm.Nameconvention
End Sub
Private Sub Load_Attribute_Auto()
Try
Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.GlobixDataset.TBDD_INDEX_AUTOM, TextEditDoctypeID.Text)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub XtraTabControl2_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl2.SelectedPageChanged
Dim oPage = Pages.GetDetailPage(e.Page)
If oPage IsNot Nothing Then
Pages.Current = oPage
End If
Select Case oPage.TabPage.Name
Case XtraTabPageAutoIndexe.Name
Load_Attribute_Auto()
Case XtraTabPageManIndexe.Name
Load_INDEXMAN()
End Select
End Sub
Private Sub SimpleButton2_Click_1(sender As Object, e As EventArgs) Handles SimpleButton2.Click
If Save_AutoIndexe(Pages.Current) = True Then
Dim oSQLbefore = SQL_RESULTTextBox1.Text
Dim oForm As New frmSQLDesigner() With {
.SQLCommand = oSQLbefore, .DesignType = "GI_ATTRIBUTE_AUTO",
.ConnectionID = CONNECTION_IDTextBox1.Text,
.AutoAttributID = GUID_AUTOATTRIBUTETextBox.Text
}
Dim oResult = oForm.ShowDialog()
If oSQLbefore <> oForm.SQLCommand Then
CONNECTION_IDTextBox1.Text = oForm.ConnectionID
SQL_RESULTTextBox1.Text = oForm.SQLCommand
'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@SQL_RESULT").Value = oForm.SQLCommand
'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@CONNECTION_ID").Value = oForm.ConnectionID
CHANGED_WHOTextEditAutoAttribut.Text = My.Application.User.UserName
End If
End If
End Sub
End Class

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

@ -48,7 +48,7 @@ Partial Class frmAdmin_IDBAttribute
Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit()
Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit()
Me.ComboBoxEdit1 = New DevExpress.XtraEditors.LookUpEdit()
Me.TBIDB_ATTRIBUTE_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBWH_ATTRIBUTE_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
@ -63,7 +63,7 @@ Partial Class frmAdmin_IDBAttribute
Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem()
Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager()
Me.VWIDB_BE_ATTRIBUTETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_BE_ATTRIBUTETableAdapter()
Me.TBIDB_ATTRIBUTE_TYPETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTE_TYPETableAdapter()
Me.TBWH_ATTRIBUTE_TYPETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBWH_ATTRIBUTE_TYPETableAdapter()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControl1.SuspendLayout()
@ -80,7 +80,7 @@ Partial Class frmAdmin_IDBAttribute
CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBIDB_ATTRIBUTE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBWH_ATTRIBUTE_TYPEBindingSource, 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()
@ -107,7 +107,7 @@ Partial Class frmAdmin_IDBAttribute
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.Size = New System.Drawing.Size(857, 66)
Me.RibbonControl1.Size = New System.Drawing.Size(894, 66)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
'
@ -130,6 +130,7 @@ Partial Class frmAdmin_IDBAttribute
Me.labelStatus.Id = 5
Me.labelStatus.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.about
Me.labelStatus.Name = "labelStatus"
Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
'
'BarButtonItem3
@ -149,17 +150,16 @@ Partial Class frmAdmin_IDBAttribute
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Daten"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 502)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 539)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(857, 22)
Me.RibbonStatusBar1.Size = New System.Drawing.Size(894, 22)
'
'RibbonPage2
'
@ -183,7 +183,7 @@ Partial Class frmAdmin_IDBAttribute
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(857, 436)
Me.LayoutControl1.Size = New System.Drawing.Size(894, 473)
Me.LayoutControl1.TabIndex = 2
Me.LayoutControl1.Text = "LayoutControl1"
'
@ -194,7 +194,7 @@ Partial Class frmAdmin_IDBAttribute
Me.TextEdit1.MenuManager = Me.RibbonControl1
Me.TextEdit1.Name = "TextEdit1"
Me.TextEdit1.Properties.ReadOnly = True
Me.TextEdit1.Size = New System.Drawing.Size(669, 20)
Me.TextEdit1.Size = New System.Drawing.Size(706, 20)
Me.TextEdit1.StyleController = Me.LayoutControl1
Me.TextEdit1.TabIndex = 4
'
@ -214,7 +214,7 @@ Partial Class frmAdmin_IDBAttribute
Me.TextEdit2.Location = New System.Drawing.Point(168, 60)
Me.TextEdit2.MenuManager = Me.RibbonControl1
Me.TextEdit2.Name = "TextEdit2"
Me.TextEdit2.Size = New System.Drawing.Size(669, 20)
Me.TextEdit2.Size = New System.Drawing.Size(706, 20)
Me.TextEdit2.StyleController = Me.LayoutControl1
Me.TextEdit2.TabIndex = 5
'
@ -222,11 +222,11 @@ Partial Class frmAdmin_IDBAttribute
'
Me.SpinEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "VIEW_SEQUENCE", True))
Me.SpinEdit1.EditValue = New Decimal(New Integer() {0, 0, 0, 0})
Me.SpinEdit1.Location = New System.Drawing.Point(586, 180)
Me.SpinEdit1.Location = New System.Drawing.Point(604, 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(251, 20)
Me.SpinEdit1.Size = New System.Drawing.Size(270, 20)
Me.SpinEdit1.StyleController = Me.LayoutControl1
Me.SpinEdit1.TabIndex = 6
'
@ -236,7 +236,7 @@ Partial Class frmAdmin_IDBAttribute
Me.CheckEdit1.MenuManager = Me.RibbonControl1
Me.CheckEdit1.Name = "CheckEdit1"
Me.CheckEdit1.Properties.Caption = "Attribut mehrzeilig"
Me.CheckEdit1.Size = New System.Drawing.Size(817, 18)
Me.CheckEdit1.Size = New System.Drawing.Size(854, 18)
Me.CheckEdit1.StyleController = Me.LayoutControl1
Me.CheckEdit1.TabIndex = 7
'
@ -247,7 +247,7 @@ Partial Class frmAdmin_IDBAttribute
Me.CheckEdit2.MenuManager = Me.RibbonControl1
Me.CheckEdit2.Name = "CheckEdit2"
Me.CheckEdit2.Properties.Caption = "Standard in Ergebnisliste"
Me.CheckEdit2.Size = New System.Drawing.Size(398, 18)
Me.CheckEdit2.Size = New System.Drawing.Size(416, 18)
Me.CheckEdit2.StyleController = Me.LayoutControl1
Me.CheckEdit2.TabIndex = 8
'
@ -256,7 +256,7 @@ Partial Class frmAdmin_IDBAttribute
Me.TextEdit3.Location = New System.Drawing.Point(168, 140)
Me.TextEdit3.MenuManager = Me.RibbonControl1
Me.TextEdit3.Name = "TextEdit3"
Me.TextEdit3.Size = New System.Drawing.Size(669, 20)
Me.TextEdit3.Size = New System.Drawing.Size(706, 20)
Me.TextEdit3.StyleController = Me.LayoutControl1
Me.TextEdit3.TabIndex = 9
'
@ -267,18 +267,18 @@ Partial Class frmAdmin_IDBAttribute
Me.txtAddedWho.MenuManager = Me.RibbonControl1
Me.txtAddedWho.Name = "txtAddedWho"
Me.txtAddedWho.Properties.ReadOnly = True
Me.txtAddedWho.Size = New System.Drawing.Size(250, 20)
Me.txtAddedWho.Size = New System.Drawing.Size(268, 20)
Me.txtAddedWho.StyleController = Me.LayoutControl1
Me.txtAddedWho.TabIndex = 10
'
'txtAddedWhen
'
Me.txtAddedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ADDED_WHEN", True))
Me.txtAddedWhen.Location = New System.Drawing.Point(586, 258)
Me.txtAddedWhen.Location = New System.Drawing.Point(604, 258)
Me.txtAddedWhen.MenuManager = Me.RibbonControl1
Me.txtAddedWhen.Name = "txtAddedWhen"
Me.txtAddedWhen.Properties.ReadOnly = True
Me.txtAddedWhen.Size = New System.Drawing.Size(251, 20)
Me.txtAddedWhen.Size = New System.Drawing.Size(270, 20)
Me.txtAddedWhen.StyleController = Me.LayoutControl1
Me.txtAddedWhen.TabIndex = 11
'
@ -289,18 +289,18 @@ Partial Class frmAdmin_IDBAttribute
Me.txtChangedWho.MenuManager = Me.RibbonControl1
Me.txtChangedWho.Name = "txtChangedWho"
Me.txtChangedWho.Properties.ReadOnly = True
Me.txtChangedWho.Size = New System.Drawing.Size(250, 20)
Me.txtChangedWho.Size = New System.Drawing.Size(268, 20)
Me.txtChangedWho.StyleController = Me.LayoutControl1
Me.txtChangedWho.TabIndex = 12
'
'txtChangedWhen
'
Me.txtChangedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "CHANGED_WHEN", True))
Me.txtChangedWhen.Location = New System.Drawing.Point(586, 298)
Me.txtChangedWhen.Location = New System.Drawing.Point(604, 298)
Me.txtChangedWhen.MenuManager = Me.RibbonControl1
Me.txtChangedWhen.Name = "txtChangedWhen"
Me.txtChangedWhen.Properties.ReadOnly = True
Me.txtChangedWhen.Size = New System.Drawing.Size(251, 20)
Me.txtChangedWhen.Size = New System.Drawing.Size(270, 20)
Me.txtChangedWhen.StyleController = Me.LayoutControl1
Me.txtChangedWhen.TabIndex = 13
'
@ -312,19 +312,19 @@ Partial Class frmAdmin_IDBAttribute
Me.ComboBoxEdit1.Name = "ComboBoxEdit1"
Me.ComboBoxEdit1.Properties.BestFitMode = DevExpress.XtraEditors.Controls.BestFitMode.BestFit
Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.ComboBoxEdit1.Properties.DataSource = Me.TBIDB_ATTRIBUTE_TYPEBindingSource
Me.ComboBoxEdit1.Properties.DataSource = Me.TBWH_ATTRIBUTE_TYPEBindingSource
Me.ComboBoxEdit1.Properties.DisplayMember = "NAME_TYPE"
Me.ComboBoxEdit1.Properties.NullText = ""
Me.ComboBoxEdit1.Properties.PopupSizeable = False
Me.ComboBoxEdit1.Properties.ValueMember = "GUID"
Me.ComboBoxEdit1.Size = New System.Drawing.Size(669, 20)
Me.ComboBoxEdit1.Size = New System.Drawing.Size(706, 20)
Me.ComboBoxEdit1.StyleController = Me.LayoutControl1
Me.ComboBoxEdit1.TabIndex = 14
'
'TBIDB_ATTRIBUTE_TYPEBindingSource
'TBWH_ATTRIBUTE_TYPEBindingSource
'
Me.TBIDB_ATTRIBUTE_TYPEBindingSource.DataMember = "TBIDB_ATTRIBUTE_TYPE"
Me.TBIDB_ATTRIBUTE_TYPEBindingSource.DataSource = Me.DSIDB_Stammdaten
Me.TBWH_ATTRIBUTE_TYPEBindingSource.DataMember = "TBWH_ATTRIBUTE_TYPE"
Me.TBWH_ATTRIBUTE_TYPEBindingSource.DataSource = Me.DSIDB_Stammdaten
'
'Root
'
@ -332,7 +332,7 @@ Partial Class frmAdmin_IDBAttribute
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(857, 436)
Me.Root.Size = New System.Drawing.Size(894, 473)
Me.Root.TextVisible = False
'
'LayoutControlItem1
@ -342,7 +342,7 @@ Partial Class frmAdmin_IDBAttribute
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(837, 40)
Me.LayoutControlItem1.Size = New System.Drawing.Size(874, 40)
Me.LayoutControlItem1.Text = "GUID"
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(145, 13)
'
@ -352,7 +352,7 @@ Partial Class frmAdmin_IDBAttribute
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(837, 40)
Me.LayoutControlItem2.Size = New System.Drawing.Size(874, 40)
Me.LayoutControlItem2.Text = "Bezeichnung"
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(145, 13)
'
@ -362,7 +362,7 @@ Partial Class frmAdmin_IDBAttribute
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(837, 38)
Me.LayoutControlItem4.Size = New System.Drawing.Size(874, 38)
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem4.TextVisible = False
'
@ -372,7 +372,7 @@ Partial Class frmAdmin_IDBAttribute
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(837, 40)
Me.LayoutControlItem6.Size = New System.Drawing.Size(874, 40)
Me.LayoutControlItem6.Text = "Kommentar"
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(145, 13)
'
@ -382,7 +382,7 @@ Partial Class frmAdmin_IDBAttribute
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(418, 40)
Me.LayoutControlItem7.Size = New System.Drawing.Size(436, 40)
Me.LayoutControlItem7.Text = "Erstellt Wer"
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(145, 13)
'
@ -390,10 +390,10 @@ Partial Class frmAdmin_IDBAttribute
'
Me.LayoutControlItem3.Control = Me.SpinEdit1
Me.LayoutControlItem3.CustomizationFormText = "Anzeige Reihenfolge"
Me.LayoutControlItem3.Location = New System.Drawing.Point(418, 160)
Me.LayoutControlItem3.Location = New System.Drawing.Point(436, 160)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem3.Size = New System.Drawing.Size(419, 40)
Me.LayoutControlItem3.Size = New System.Drawing.Size(438, 40)
Me.LayoutControlItem3.Text = "Reihenfolge in Ergebnisliste"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(145, 13)
'
@ -403,7 +403,7 @@ Partial Class frmAdmin_IDBAttribute
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(837, 40)
Me.LayoutControlItem11.Size = New System.Drawing.Size(874, 40)
Me.LayoutControlItem11.Text = "Attribut-Typ"
Me.LayoutControlItem11.TextSize = New System.Drawing.Size(145, 13)
'
@ -413,7 +413,7 @@ Partial Class frmAdmin_IDBAttribute
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(418, 138)
Me.LayoutControlItem9.Size = New System.Drawing.Size(436, 175)
Me.LayoutControlItem9.Text = "Geändert Wer"
Me.LayoutControlItem9.TextSize = New System.Drawing.Size(145, 13)
'
@ -423,27 +423,27 @@ Partial Class frmAdmin_IDBAttribute
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(418, 40)
Me.LayoutControlItem5.Size = New System.Drawing.Size(436, 40)
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem5.TextVisible = False
'
'LayoutControlItem8
'
Me.LayoutControlItem8.Control = Me.txtAddedWhen
Me.LayoutControlItem8.Location = New System.Drawing.Point(418, 238)
Me.LayoutControlItem8.Location = New System.Drawing.Point(436, 238)
Me.LayoutControlItem8.Name = "LayoutControlItem8"
Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem8.Size = New System.Drawing.Size(419, 40)
Me.LayoutControlItem8.Size = New System.Drawing.Size(438, 40)
Me.LayoutControlItem8.Text = "Erstellt Wann"
Me.LayoutControlItem8.TextSize = New System.Drawing.Size(145, 13)
'
'LayoutControlItem10
'
Me.LayoutControlItem10.Control = Me.txtChangedWhen
Me.LayoutControlItem10.Location = New System.Drawing.Point(418, 278)
Me.LayoutControlItem10.Location = New System.Drawing.Point(436, 278)
Me.LayoutControlItem10.Name = "LayoutControlItem10"
Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem10.Size = New System.Drawing.Size(419, 138)
Me.LayoutControlItem10.Size = New System.Drawing.Size(438, 175)
Me.LayoutControlItem10.Text = "Geändert Wann"
Me.LayoutControlItem10.TextSize = New System.Drawing.Size(145, 13)
'
@ -458,20 +458,21 @@ Partial Class frmAdmin_IDBAttribute
Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing
Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
Me.TableAdapterManager.VWIDB_BE_ATTRIBUTETableAdapter = Nothing
'
'VWIDB_BE_ATTRIBUTETableAdapter
'
Me.VWIDB_BE_ATTRIBUTETableAdapter.ClearBeforeFill = True
'
'TBIDB_ATTRIBUTE_TYPETableAdapter
'TBWH_ATTRIBUTE_TYPETableAdapter
'
Me.TBIDB_ATTRIBUTE_TYPETableAdapter.ClearBeforeFill = True
Me.TBWH_ATTRIBUTE_TYPETableAdapter.ClearBeforeFill = True
'
'frmAdmin_IDBAttribute
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(857, 524)
Me.ClientSize = New System.Drawing.Size(894, 561)
Me.Controls.Add(Me.LayoutControl1)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
@ -496,7 +497,7 @@ Partial Class frmAdmin_IDBAttribute
CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBIDB_ATTRIBUTE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBWH_ATTRIBUTE_TYPEBindingSource, 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()
@ -549,8 +550,8 @@ Partial Class frmAdmin_IDBAttribute
Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem
Friend WithEvents VWIDB_BE_ATTRIBUTEBindingSource As BindingSource
Friend WithEvents VWIDB_BE_ATTRIBUTETableAdapter As DSIDB_StammdatenTableAdapters.VWIDB_BE_ATTRIBUTETableAdapter
Friend WithEvents TBIDB_ATTRIBUTE_TYPEBindingSource As BindingSource
Friend WithEvents TBIDB_ATTRIBUTE_TYPETableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTE_TYPETableAdapter
Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.LookUpEdit
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents TBWH_ATTRIBUTE_TYPEBindingSource As BindingSource
Friend WithEvents TBWH_ATTRIBUTE_TYPETableAdapter As DSIDB_StammdatenTableAdapters.TBWH_ATTRIBUTE_TYPETableAdapter
End Class

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

@ -118,21 +118,21 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="VWIDB_BE_ATTRIBUTEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>438, 21</value>
<value>350, 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>
<value>17, 17</value>
</metadata>
<metadata name="TBIDB_ATTRIBUTE_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>263, 56</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>244, 15</value>
</metadata>
<metadata name="VWIDB_BE_ATTRIBUTETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<metadata name="TBWH_ATTRIBUTE_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="TBIDB_ATTRIBUTE_TYPETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>708, 13</value>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>177, 17</value>
</metadata>
<metadata name="VWIDB_BE_ATTRIBUTETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>602, 17</value>
</metadata>
<metadata name="TBWH_ATTRIBUTE_TYPETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>278, 56</value>
</metadata>
</root>

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

@ -17,8 +17,8 @@
Private Sub frmAdmin_Attribute_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
TBIDB_ATTRIBUTE_TYPETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
TBIDB_ATTRIBUTE_TYPETableAdapter.Fill(DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPE)
TBWH_ATTRIBUTE_TYPETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
TBWH_ATTRIBUTE_TYPETableAdapter.Fill(DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPE)
VWIDB_BE_ATTRIBUTETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
VWIDB_BE_ATTRIBUTETableAdapter.FillByAttributeId(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, PrimaryKey, 1)
@ -31,7 +31,7 @@
ResetMessages()
If SaveData() And HasChanges Then
ShowStatus("Attribute gespeichert!")
ShowStatus("Attribute saved!")
End If
End Sub
@ -56,8 +56,8 @@
Try
VWIDB_BE_ATTRIBUTEBindingSource.EndEdit()
If DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.GetChanges() IsNot Nothing Then
HasChanges = True
'If DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.GetChanges() IsNot Nothing Or IsInsert Then
HasChanges = True
If IsInsert Then
txtAddedWho.EditValue = My.Application.User.UserName
@ -67,9 +67,30 @@
VWIDB_BE_ATTRIBUTEBindingSource.EndEdit()
' TODO: Update Database
'VWIDB_BE_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE)
' TODO: Update Database
If Not IsInsert Then
Dim oUpdate As String = $"UPDATE TBIDB_ATTRIBUTE " &
$"SET TITLE = '{TextEdit2.Text}', TYP_ID = {ComboBoxEdit1.EditValue}, VIEW_SEQUENCE = {SpinEdit1.Value}, VIEW_VISIBLE = '{CheckEdit2.Checked}'" &
$", COMMENT = '{TextEdit3.Text}', CHANGED_WHO = '{My.Application.User.UserName}' " &
$"WHERE (GUID = {TextEdit1.Text})"
If My.DatabaseIDB.ExecuteNonQuery(oUpdate) = False Then
Return False
End If
Else
Dim oInsert As String = $"INSERT INTO TBIDB_ATTRIBUTE " &
"(TITLE, TYP_ID, VIEW_SEQUENCE, VIEW_VISIBLE, ADDED_WHO,COMMENT) " &
$"VALUES ('{TextEdit2.Text}',{ComboBoxEdit1.EditValue},{SpinEdit1.Value},'{CheckEdit2.Checked}','{My.Application.User.UserName}', '{TextEdit3.Text}')"
If My.DatabaseIDB.ExecuteNonQuery(oInsert) = True Then
IsInsert = False
Else
Return False
End If
End If
VWIDB_BE_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE)
'End If
Return True
Catch ex As Exception
@ -77,20 +98,11 @@
Return False
End Try
End Function
Private Sub Update_Datasource()
Dim oupdate = $"UPDATE TBIDB_ATTRIBUTE
SET TITLE = '@TITLE',
TYP_ID = @TYP_ID,
MULTI_CONTEXT = @MULTI_CONTEXT,
VIEW_SEQUENCE = @VIEW_SEQUENCE,
VIEW_VISIBLE = @VIEW_VISIBLE,
COMMENT = @COMMENT
WHERE (GUID = @GUID)"
End Sub
Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
Try
TBIDB_ATTRIBUTE_TYPETableAdapter.Delete(PrimaryKey)
'VWIDB_BE_ATTRIBUTETableAdapter.Delete(PrimaryKey)
Return True
Catch ex As Exception
ShowErrorMessage(ex)

20
GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.Designer.vb generated
View File

@ -86,7 +86,6 @@ Partial Class frmAdmin_IDBEntity
'
'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.BarButtonItem2, Me.labelStatus, Me.BarButtonItem3})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
@ -96,7 +95,7 @@ Partial Class frmAdmin_IDBEntity
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.Size = New System.Drawing.Size(837, 66)
Me.RibbonControl1.Size = New System.Drawing.Size(837, 131)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
'
@ -141,7 +140,7 @@ Partial Class frmAdmin_IDBEntity
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Aktionen"
'
'RibbonStatusBar1
'
@ -168,10 +167,10 @@ Partial Class frmAdmin_IDBEntity
Me.LayoutControl1.Controls.Add(Me.txtChangedWho)
Me.LayoutControl1.Controls.Add(Me.TextEdit8)
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.LayoutControl1.Location = New System.Drawing.Point(0, 66)
Me.LayoutControl1.Location = New System.Drawing.Point(0, 131)
Me.LayoutControl1.Name = "LayoutControl1"
Me.LayoutControl1.Root = Me.Root
Me.LayoutControl1.Size = New System.Drawing.Size(837, 399)
Me.LayoutControl1.Size = New System.Drawing.Size(837, 334)
Me.LayoutControl1.TabIndex = 2
Me.LayoutControl1.Text = "LayoutControl1"
'
@ -283,7 +282,7 @@ Partial Class frmAdmin_IDBEntity
Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem2, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem8, Me.LayoutControlItem7, Me.LayoutControlItem9})
Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(837, 399)
Me.Root.Size = New System.Drawing.Size(837, 334)
Me.Root.TextVisible = False
'
'LayoutControlItem1
@ -293,7 +292,7 @@ Partial Class frmAdmin_IDBEntity
Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem1.Size = New System.Drawing.Size(408, 40)
Me.LayoutControlItem1.Text = "GUID"
Me.LayoutControlItem1.Text = "ID"
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(82, 13)
'
'LayoutControlItem3
@ -352,7 +351,7 @@ Partial Class frmAdmin_IDBEntity
Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 198)
Me.LayoutControlItem8.Name = "LayoutControlItem8"
Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem8.Size = New System.Drawing.Size(408, 181)
Me.LayoutControlItem8.Size = New System.Drawing.Size(408, 116)
Me.LayoutControlItem8.Text = "Geändert Wer"
Me.LayoutControlItem8.TextSize = New System.Drawing.Size(82, 13)
'
@ -372,7 +371,7 @@ Partial Class frmAdmin_IDBEntity
Me.LayoutControlItem9.Location = New System.Drawing.Point(408, 198)
Me.LayoutControlItem9.Name = "LayoutControlItem9"
Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem9.Size = New System.Drawing.Size(409, 181)
Me.LayoutControlItem9.Size = New System.Drawing.Size(409, 116)
Me.LayoutControlItem9.Text = "Geändert Wann"
Me.LayoutControlItem9.TextSize = New System.Drawing.Size(82, 13)
'
@ -386,8 +385,11 @@ Partial Class frmAdmin_IDBEntity
Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Me.TBIDB_BUSINESS_ENTITYTableAdapter
Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing
Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing
Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
Me.TableAdapterManager.VWIDB_BE_ATTRIBUTETableAdapter = Nothing
'
'frmAdmin_IDBEntity
'

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

@ -110,6 +110,8 @@ Partial Class frmAdmin_Start
Me.RibbonGroup_ClipboardWatcher_DocSearch = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonGroup_ClipboardWatcher_Profile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPage_ClipboardWatcher = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup20 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.BarButtonItem26 = New DevExpress.XtraBars.BarButtonItem()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TreeListMenu, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MainTreeImages, System.ComponentModel.ISupportInitialize).BeginInit()
@ -132,9 +134,9 @@ Partial Class frmAdmin_Start
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.labelStatus, Me.labelError, Me.BarButtonItemAddAttribute, Me.BarButtonItemRefreshAttribute, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.BarButtonItem20, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.btnAddRecord, Me.btnEditRecord})
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.labelStatus, Me.labelError, Me.BarButtonItemAddAttribute, Me.BarButtonItemRefreshAttribute, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.BarButtonItem20, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.btnAddRecord, Me.btnEditRecord, Me.BarButtonItem26})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 34
Me.RibbonControl1.MaxItemId = 35
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
@ -358,7 +360,7 @@ Partial Class frmAdmin_Start
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1})
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1, Me.RibbonPageGroup20})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Start"
'
@ -403,16 +405,17 @@ Partial Class frmAdmin_Start
Me.TreeListMenu.MenuManager = Me.RibbonControl1
Me.TreeListMenu.Name = "TreeListMenu"
Me.TreeListMenu.BeginUnboundLoad()
Me.TreeListMenu.AppendNode(New Object() {"IDB"}, -1, "")
Me.TreeListMenu.AppendNode(New Object() {"Entitäten"}, -1, "")
Me.TreeListMenu.AppendNode(New Object() {"Attribute"}, 0, 2, 2, -1, "IDB_ATTRIBUTES")
Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_BUSINESS_ENTITIES")
Me.TreeListMenu.AppendNode(New Object() {"Object Stores"}, 0, "IDB_OBJECT_STORES")
Me.TreeListMenu.AppendNode(New Object() {"Global Indexer"}, -1, 6, 6, -1, "")
Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 4, 4, 4, -1, "GLOBIX_PROFILES")
Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 4, 4, 4, -1, "GI_PROFILES")
Me.TreeListMenu.AppendNode(New Object() {"Clipboard Watcher"}, -1, 7, 7, -1, "")
Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 6, 4, 4, -1, "CW_PROFILES")
Me.TreeListMenu.AppendNode(New Object() {"Administration"}, -1)
Me.TreeListMenu.AppendNode(New Object() {"Source SQL"}, 8, 3, 3, -1, "META_SOURCE_SQL")
Me.TreeListMenu.AppendNode(New Object() {"Zuordnungen"}, -1, 9, 9, -1, "Relations")
Me.TreeListMenu.EndUnboundLoad()
Me.TreeListMenu.OptionsBehavior.Editable = False
Me.TreeListMenu.OptionsView.ShowColumns = False
@ -442,6 +445,7 @@ Partial Class frmAdmin_Start
Me.MainTreeImages.Add("ZooFlow_G_DevExpress", "ZooFlow_G_DevExpress", GetType(DigitalData.GUIs.ZooFlow.My.Resources.Resources))
Me.MainTreeImages.Add("ZooFlow_CW_DevExpress", "ZooFlow_CW_DevExpress", GetType(DigitalData.GUIs.ZooFlow.My.Resources.Resources))
Me.MainTreeImages.Add("open", "image://svgimages/actions/open.svg")
Me.MainTreeImages.Add("managerelations", "image://svgimages/spreadsheet/managerelations.svg")
'
'DockManager1
'
@ -485,8 +489,11 @@ Partial Class frmAdmin_Start
Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing
Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing
Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing
Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing
Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
Me.TableAdapterManager.VWIDB_BE_ATTRIBUTETableAdapter = Nothing
'
'TBIDB_ATTRIBUTE_TYPEBindingSource
'
@ -779,6 +786,19 @@ Partial Class frmAdmin_Start
Me.RibbonPage_ClipboardWatcher.Name = "RibbonPage_ClipboardWatcher"
Me.RibbonPage_ClipboardWatcher.Text = "Clipboard Watcher"
'
'RibbonPageGroup20
'
Me.RibbonPageGroup20.ItemLinks.Add(Me.BarButtonItem26)
Me.RibbonPageGroup20.Name = "RibbonPageGroup20"
Me.RibbonPageGroup20.Text = "RibbonPageGroup20"
'
'BarButtonItem26
'
Me.BarButtonItem26.Caption = "Zuordnungen"
Me.BarButtonItem26.Id = 34
Me.BarButtonItem26.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem26.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem26.Name = "BarButtonItem26"
'
'frmAdmin_Start
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -901,4 +921,6 @@ Partial Class frmAdmin_Start
Friend WithEvents RibbonGroup_ClipboardWatcher_DocSearch As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonGroup_ClipboardWatcher_Profile As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPage_ClipboardWatcher As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents BarButtonItem26 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup20 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
End Class

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

@ -249,6 +249,28 @@
NS42LTIuNGwzLjYtMy42SDguNEg0LjRINC4ydjEwbDMuNS0zLjVjMi4yLDIuMiw1LjIsMy41LDguNSwz
LjUgICBDMjIuMSwyOCwyNywyMy43LDI4LDE4aC00LjFDMjMsMjEuNCwxOS45LDI0LDE2LjIsMjR6IiBj
bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItem26.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHcDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
Qmx1ZXtmaWxsOiMxMTc3RDc7fQoJLnN0MHtvcGFjaXR5OjAuNTt9Cjwvc3R5bGU+DQogIDxnIGlkPSJN
YW5hZ2VfUmVsYXRpb25zIj4NCiAgICA8ZyBjbGFzcz0ic3QwIj4NCiAgICAgIDxwYXRoIGQ9Ik0zMSwz
MmgtOGMtMC41LDAtMS0wLjUtMS0xdi04YzAtMC41LDAuNS0xLDEtMWg4YzAuNSwwLDEsMC41LDEsMXY4
QzMyLDMxLjUsMzEuNSwzMiwzMSwzMnogTTMyLDlWMSAgICBjMC0wLjYtMC41LTEtMS0xaC04Yy0wLjUs
MC0xLDAuNC0xLDF2OGMwLDAuNiwwLjUsMSwxLDFoOEMzMS41LDEwLDMyLDkuNiwzMiw5eiIgY2xhc3M9
IkJsYWNrIiAvPg0KICAgIDwvZz4NCiAgICA8cGF0aCBkPSJNMTEsMjJIMWMtMC42LDAtMS0wLjUtMS0x
VjExYzAtMC42LDAuNC0xLDEtMWgxMGMwLjYsMCwxLDAuNCwxLDF2MTBDMTIsMjEuNSwxMS42LDIyLDEx
LDIyeiIgY2xhc3M9IkJsdWUiIC8+DQogICAgPHBhdGggZD0iTTIwLDJ2NmwtMi4zLTIuM2wtNCw0bC0x
LjQtMS40bDQtNEwxNCwySDIweiBNMTcuNywyNi4zbC00LTRsLTEuNCwxLjRsNCw0TDE0LDMwaDZ2LTZM
MTcuNywyNi4zeiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value>
</data>
<metadata name="MainTreeImages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

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

@ -109,10 +109,13 @@ Public Class frmAdmin_Start
Exit Sub
End If
If Handle_LoadPage(e.Node.Tag.ToString) Then
If Handle_LoadPage(e.Node.Tag.ToString) And e.Node.Tag <> "Relations" Then
RibbonPageGroup1.Enabled = True
CurrentPage = e.Node.Tag.ToString
End If
If e.Node.Tag = "Relations" Then
frmAdmin_relations.ShowDialog()
End If
Catch ex As Exception
ShowErrorMessage(ex)
End Try

139
GUIs.ZooFlow/Administration/frmAdmin_relations.Designer.vb generated Normal file
View File

@ -0,0 +1,139 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmAdmin_relations
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.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout()
Me.SuspendLayout()
'
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.RibbonControl1.MaxItemId = 1
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.Size = New System.Drawing.Size(933, 159)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Start"
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 566)
Me.RibbonStatusBar1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(933, 22)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'XtraTabControl1
'
Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 159)
Me.XtraTabControl1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
Me.XtraTabControl1.Size = New System.Drawing.Size(933, 407)
Me.XtraTabControl1.TabIndex = 2
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
'
'XtraTabPage1
'
Me.XtraTabPage1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabPage1.Name = "XtraTabPage1"
Me.XtraTabPage1.Size = New System.Drawing.Size(931, 384)
Me.XtraTabPage1.Text = "XtraTabPage1"
'
'XtraTabPage2
'
Me.XtraTabPage2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabPage2.Name = "XtraTabPage2"
Me.XtraTabPage2.Size = New System.Drawing.Size(246, 88)
Me.XtraTabPage2.Text = "XtraTabPage2"
'
'frmAdmin_relations
'
Me.Appearance.Options.UseFont = True
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(933, 588)
Me.Controls.Add(Me.XtraTabControl1)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.Name = "frmAdmin_relations"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "frmAdmin_relations"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl1.ResumeLayout(False)
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 RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
End Class

120
GUIs.ZooFlow/Administration/frmAdmin_relations.resx Normal file
View File

@ -0,0 +1,120 @@
<?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>
</root>

3
GUIs.ZooFlow/Administration/frmAdmin_relations.vb Normal file
View File

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

377
GUIs.ZooFlow/Administration/frmSQLDesigner.Designer.vb generated Normal file
View File

@ -0,0 +1,377 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSQLDesigner
Inherits System.Windows.Forms.Form
'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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSQLDesigner))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Label14 = New System.Windows.Forms.Label()
Me.cmbConnection = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.cmbStatic = New System.Windows.Forms.ComboBox()
Me.btnAddStatic = New System.Windows.Forms.Button()
Me.btnAddUser = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.cmbUser = New System.Windows.Forms.ComboBox()
Me.btnAddAttributeMan = New System.Windows.Forms.Button()
Me.lblAttributeMan = New System.Windows.Forms.Label()
Me.cmbAttributeMan = New System.Windows.Forms.ComboBox()
Me.SQL_COMMANDTextBox = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.btnTestSQL = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.dgvPlaceholders = New System.Windows.Forms.DataGridView()
Me.colPlaceholder = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.colReplace = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Label5 = New System.Windows.Forms.Label()
Me.dgvResult = New System.Windows.Forms.DataGridView()
Me.lblSaveFinalIndex = New System.Windows.Forms.Label()
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
Me.btnAddAttributeAuto = New System.Windows.Forms.Button()
Me.cmbAttributeAuto = New System.Windows.Forms.ComboBox()
Me.lblAttributeAuto = New System.Windows.Forms.Label()
CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.Location = New System.Drawing.Point(12, 7)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(76, 16)
Me.Label14.TabIndex = 83
Me.Label14.Text = "Connection:"
'
'cmbConnection
'
Me.cmbConnection.DisplayMember = "BEZEICHNUNG"
Me.cmbConnection.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbConnection.FormattingEnabled = True
Me.cmbConnection.Location = New System.Drawing.Point(15, 29)
Me.cmbConnection.Name = "cmbConnection"
Me.cmbConnection.Size = New System.Drawing.Size(171, 24)
Me.cmbConnection.TabIndex = 82
Me.cmbConnection.ValueMember = "GUID"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(500, 9)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(112, 16)
Me.Label2.TabIndex = 101
Me.Label2.Text = "Umgebungsdaten:"
'
'cmbStatic
'
Me.cmbStatic.FormattingEnabled = True
Me.cmbStatic.Items.AddRange(New Object() {"USERNAME", "MACHINE", "DOMAIN", "DATE"})
Me.cmbStatic.Location = New System.Drawing.Point(503, 28)
Me.cmbStatic.Name = "cmbStatic"
Me.cmbStatic.Size = New System.Drawing.Size(194, 25)
Me.cmbStatic.TabIndex = 100
'
'btnAddStatic
'
Me.btnAddStatic.Image = CType(resources.GetObject("btnAddStatic.Image"), System.Drawing.Image)
Me.btnAddStatic.Location = New System.Drawing.Point(703, 28)
Me.btnAddStatic.Name = "btnAddStatic"
Me.btnAddStatic.Size = New System.Drawing.Size(32, 23)
Me.btnAddStatic.TabIndex = 102
Me.btnAddStatic.UseVisualStyleBackColor = True
'
'btnAddUser
'
Me.btnAddUser.Image = CType(resources.GetObject("btnAddUser.Image"), System.Drawing.Image)
Me.btnAddUser.Location = New System.Drawing.Point(942, 29)
Me.btnAddUser.Name = "btnAddUser"
Me.btnAddUser.Size = New System.Drawing.Size(32, 23)
Me.btnAddUser.TabIndex = 105
Me.btnAddUser.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(739, 10)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(118, 16)
Me.Label3.TabIndex = 104
Me.Label3.Text = "Anwendungsdaten:"
'
'cmbUser
'
Me.cmbUser.FormattingEnabled = True
Me.cmbUser.Items.AddRange(New Object() {"PRENAME", "SURNAME", "SHORTNAME", "LANGUAGE", "EMAIL", "USER_ID", "PROFILE_ID", "PROFILE_TITLE"})
Me.cmbUser.Location = New System.Drawing.Point(742, 29)
Me.cmbUser.Name = "cmbUser"
Me.cmbUser.Size = New System.Drawing.Size(194, 25)
Me.cmbUser.TabIndex = 103
'
'btnAddAttributeMan
'
Me.btnAddAttributeMan.Image = CType(resources.GetObject("btnAddAttributeMan.Image"), System.Drawing.Image)
Me.btnAddAttributeMan.Location = New System.Drawing.Point(448, 29)
Me.btnAddAttributeMan.Name = "btnAddAttributeMan"
Me.btnAddAttributeMan.Size = New System.Drawing.Size(32, 23)
Me.btnAddAttributeMan.TabIndex = 108
Me.btnAddAttributeMan.UseVisualStyleBackColor = True
'
'lblAttributeMan
'
Me.lblAttributeMan.AutoSize = True
Me.lblAttributeMan.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAttributeMan.Location = New System.Drawing.Point(247, 10)
Me.lblAttributeMan.Name = "lblAttributeMan"
Me.lblAttributeMan.Size = New System.Drawing.Size(105, 16)
Me.lblAttributeMan.TabIndex = 107
Me.lblAttributeMan.Text = "Attribute Manuell"
'
'cmbAttributeMan
'
Me.cmbAttributeMan.FormattingEnabled = True
Me.cmbAttributeMan.Location = New System.Drawing.Point(250, 28)
Me.cmbAttributeMan.Name = "cmbAttributeMan"
Me.cmbAttributeMan.Size = New System.Drawing.Size(194, 25)
Me.cmbAttributeMan.TabIndex = 106
'
'SQL_COMMANDTextBox
'
Me.SQL_COMMANDTextBox.AcceptsReturn = True
Me.SQL_COMMANDTextBox.AcceptsTab = True
Me.SQL_COMMANDTextBox.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.SQL_COMMANDTextBox.Font = New System.Drawing.Font("Courier New", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SQL_COMMANDTextBox.Location = New System.Drawing.Point(15, 109)
Me.SQL_COMMANDTextBox.Multiline = True
Me.SQL_COMMANDTextBox.Name = "SQL_COMMANDTextBox"
Me.SQL_COMMANDTextBox.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.SQL_COMMANDTextBox.Size = New System.Drawing.Size(959, 254)
Me.SQL_COMMANDTextBox.TabIndex = 110
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(12, 86)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(99, 17)
Me.Label4.TabIndex = 109
Me.Label4.Text = "SQL-Command:"
'
'btnTestSQL
'
Me.btnTestSQL.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnTestSQL.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle))
Me.btnTestSQL.Image = CType(resources.GetObject("btnTestSQL.Image"), System.Drawing.Image)
Me.btnTestSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnTestSQL.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnTestSQL.Location = New System.Drawing.Point(806, 369)
Me.btnTestSQL.Name = "btnTestSQL"
Me.btnTestSQL.Size = New System.Drawing.Size(168, 29)
Me.btnTestSQL.TabIndex = 111
Me.btnTestSQL.Text = "Teste SQL-Command"
Me.btnTestSQL.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnTestSQL.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label1.Location = New System.Drawing.Point(12, 386)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(65, 15)
Me.Label1.TabIndex = 113
Me.Label1.Text = "Platzhalter:"
'
'dgvPlaceholders
'
Me.dgvPlaceholders.AllowUserToAddRows = False
Me.dgvPlaceholders.AllowUserToDeleteRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan
Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvPlaceholders.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace})
Me.dgvPlaceholders.Enabled = False
Me.dgvPlaceholders.Location = New System.Drawing.Point(15, 404)
Me.dgvPlaceholders.Name = "dgvPlaceholders"
Me.dgvPlaceholders.Size = New System.Drawing.Size(338, 133)
Me.dgvPlaceholders.TabIndex = 112
'
'colPlaceholder
'
Me.colPlaceholder.HeaderText = "Platzhalter"
Me.colPlaceholder.Name = "colPlaceholder"
Me.colPlaceholder.ReadOnly = True
'
'colReplace
'
Me.colReplace.HeaderText = "Ersetzung"
Me.colReplace.Name = "colReplace"
'
'Label5
'
Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label5.Location = New System.Drawing.Point(419, 386)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(55, 15)
Me.Label5.TabIndex = 115
Me.Label5.Text = "Ergebnis:"
'
'dgvResult
'
Me.dgvResult.AllowUserToAddRows = False
Me.dgvResult.AllowUserToDeleteRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Cyan
Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.dgvResult.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvResult.Location = New System.Drawing.Point(422, 404)
Me.dgvResult.Name = "dgvResult"
Me.dgvResult.ReadOnly = True
Me.dgvResult.Size = New System.Drawing.Size(552, 134)
Me.dgvResult.TabIndex = 114
'
'lblSaveFinalIndex
'
Me.lblSaveFinalIndex.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblSaveFinalIndex.AutoSize = True
Me.lblSaveFinalIndex.BackColor = System.Drawing.Color.Yellow
Me.lblSaveFinalIndex.Location = New System.Drawing.Point(419, 541)
Me.lblSaveFinalIndex.Name = "lblSaveFinalIndex"
Me.lblSaveFinalIndex.Size = New System.Drawing.Size(46, 17)
Me.lblSaveFinalIndex.TabIndex = 116
Me.lblSaveFinalIndex.Text = "Label4"
Me.lblSaveFinalIndex.Visible = False
'
'SimpleButton1
'
Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton1.Location = New System.Drawing.Point(820, 544)
Me.SimpleButton1.Name = "SimpleButton1"
Me.SimpleButton1.Size = New System.Drawing.Size(154, 35)
Me.SimpleButton1.TabIndex = 117
Me.SimpleButton1.Text = "Übernehmen"
'
'btnAddAttributeAuto
'
Me.btnAddAttributeAuto.Image = CType(resources.GetObject("btnAddAttributeAuto.Image"), System.Drawing.Image)
Me.btnAddAttributeAuto.Location = New System.Drawing.Point(448, 79)
Me.btnAddAttributeAuto.Name = "btnAddAttributeAuto"
Me.btnAddAttributeAuto.Size = New System.Drawing.Size(32, 23)
Me.btnAddAttributeAuto.TabIndex = 120
Me.btnAddAttributeAuto.UseVisualStyleBackColor = True
'
'cmbAttributeAuto
'
Me.cmbAttributeAuto.FormattingEnabled = True
Me.cmbAttributeAuto.Location = New System.Drawing.Point(250, 78)
Me.cmbAttributeAuto.Name = "cmbAttributeAuto"
Me.cmbAttributeAuto.Size = New System.Drawing.Size(194, 25)
Me.cmbAttributeAuto.TabIndex = 118
'
'lblAttributeAuto
'
Me.lblAttributeAuto.AutoSize = True
Me.lblAttributeAuto.Location = New System.Drawing.Point(247, 58)
Me.lblAttributeAuto.Name = "lblAttributeAuto"
Me.lblAttributeAuto.Size = New System.Drawing.Size(89, 17)
Me.lblAttributeAuto.TabIndex = 121
Me.lblAttributeAuto.Text = "Attribute Auto"
'
'frmSQLDesigner
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(995, 588)
Me.Controls.Add(Me.lblAttributeAuto)
Me.Controls.Add(Me.btnAddAttributeAuto)
Me.Controls.Add(Me.cmbAttributeAuto)
Me.Controls.Add(Me.SimpleButton1)
Me.Controls.Add(Me.lblSaveFinalIndex)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.dgvResult)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.dgvPlaceholders)
Me.Controls.Add(Me.btnTestSQL)
Me.Controls.Add(Me.SQL_COMMANDTextBox)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.btnAddAttributeMan)
Me.Controls.Add(Me.lblAttributeMan)
Me.Controls.Add(Me.cmbAttributeMan)
Me.Controls.Add(Me.btnAddUser)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.cmbUser)
Me.Controls.Add(Me.btnAddStatic)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.cmbStatic)
Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.cmbConnection)
Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.MinimizeBox = False
Me.Name = "frmSQLDesigner"
Me.Text = "SQL Designer"
CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label14 As Label
Friend WithEvents cmbConnection As ComboBox
Friend WithEvents btnAddStatic As Button
Friend WithEvents Label2 As Label
Friend WithEvents cmbStatic As ComboBox
Friend WithEvents btnAddUser As Button
Friend WithEvents Label3 As Label
Friend WithEvents cmbUser As ComboBox
Friend WithEvents btnAddAttributeMan As Button
Friend WithEvents lblAttributeMan As Label
Friend WithEvents cmbAttributeMan As ComboBox
Friend WithEvents SQL_COMMANDTextBox As TextBox
Friend WithEvents Label4 As Label
Friend WithEvents btnTestSQL As Button
Friend WithEvents Label1 As Label
Friend WithEvents dgvPlaceholders As DataGridView
Friend WithEvents colPlaceholder As DataGridViewTextBoxColumn
Friend WithEvents colReplace As DataGridViewTextBoxColumn
Friend WithEvents Label5 As Label
Friend WithEvents dgvResult As DataGridView
Friend WithEvents lblSaveFinalIndex As Label
Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents btnAddAttributeAuto As Button
Friend WithEvents cmbAttributeAuto As ComboBox
Friend WithEvents lblAttributeAuto As Label
End Class

189
GUIs.ZooFlow/Administration/frmSQLDesigner.resx Normal file
View File

@ -0,0 +1,189 @@
<?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="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnAddStatic.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnAddUser.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnAddAttributeMan.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnTestSQL.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAKhJREFUOE+dkb0RAiEQhSnFIgyMyckNLMI6zB0zS0FruBKugdMACFdWecoBw49v
5ku43W8eh7DWkmcxxhzFP2HB4bqnaZ7IS27OuU341BcW7E7bN5f7ebxNLGCG26QCENo0qQq01qSUIill
kaIAV+Dz0lJMJkhr89BjeRZZCeIfh8UamcDzfbphQRoIMITKYFhQoykogUUQ1n7pFYTxPBDUaAp6+EwL
8QKzYQ6as7QBdAAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="colPlaceholder.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="colReplace.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="SimpleButton1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOsCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl
Pg0KICA8ZyBpZD0iRXhwb3J0Ij4NCiAgICA8cGF0aCBkPSJNMTAsMTJINlY2aDRWMTJ6IE0yMiwxMnY2
djljMCwwLjYtMC40LDEtMSwxSDFjLTAuNiwwLTEtMC40LTEtMVY3YzAtMC42LDAuNC0xLDEtMWgzdjho
MTR2LTJIMjJ6IE0xOCwxOEg0ICAgdjZoMTRWMTh6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBvbHln
b24gcG9pbnRzPSIxNiwxMCAyNCwxMCAyNCwxNCAzMiw4IDI0LDIgMjQsNiAxNiw2ICAiIGNsYXNzPSJH
cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value>
</data>
<data name="btnAddAttributeAuto.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
</root>

171
GUIs.ZooFlow/Administration/frmSQLDesigner.vb Normal file
View File

@ -0,0 +1,171 @@
Public Class frmSQLDesigner
Dim CurrentPosition As Integer = 0
Dim CurrentPlaceholders As New Placeholders()
Dim CurrentTableType As String
Dim AtPlaceholderPattern As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" '"\[%[0-9A-Za-z_-]{1,}\]"
Public Class Placeholders
Public Property RecordId As Integer
Public Property ParentRecordId As Integer
Public Property FormId As Integer
End Class
Public Property SQLCommand() As String
Get
Return SQL_COMMANDTextBox.Text
End Get
Set(value As String)
SQL_COMMANDTextBox.Text = value
End Set
End Property
Public Property ConnectionID
Public AutoAttributID
Public Property DesignType As String
Private Sub frmSQLDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim oSQL
lblSaveFinalIndex.Visible = False
If DesignType = "GI_ATTRIBUTE_MAN" Then
EnDisable_Man_Attribute(False)
Else
EnDisable_Man_Attribute(True)
oSQL = "Select * From TBDD_INDEX_MAN WHERE ACTIVE = 1"
Dim oDT = My.DatabaseECM.GetDatatable(oSQL)
cmbAttributeMan.DataSource = oDT
cmbAttributeMan.DisplayMember = oDT.Columns("WD_INDEX").ColumnName
oSQL = $"Select * From TBDD_INDEX_AUTOM WHERE ACTIVE = 1 AND GUID <> {AutoAttributID}"
Dim oDTAA = My.DatabaseECM.GetDatatable(oSQL)
cmbAttributeAuto.DataSource = oDTAA
cmbAttributeAuto.DisplayMember = oDTAA.Columns("INDEXNAME").ColumnName
EnDisable_Auto_Attribute(True)
End If
If DesignType = "SQL_OVERVIEW" Then
cmbConnection.Enabled = False
'btnShowConnections.Enabled = False
Else
cmbConnection.Enabled = True
oSQL = "SELECT * FROM TBDD_CONNECTION WHERE AKTIV = 1"
Dim oDT As DataTable = My.DatabaseECM.GetDatatable(oSQL)
cmbConnection.DataSource = oDT
cmbConnection.DisplayMember = oDT.Columns("Bezeichnung").ColumnName
cmbConnection.ValueMember = oDT.Columns("GUID").ColumnName
If Not IsNothing(ConnectionID) Then
If IsNumeric(ConnectionID) Then
cmbConnection.SelectedValue = ConnectionID
End If
End If
'btnShowConnections.Enabled = True
End If
End Sub
Private Sub SQL_COMMANDTextBox_TextChanged(sender As Object, e As EventArgs) Handles SQL_COMMANDTextBox.TextChanged, SQL_COMMANDTextBox.Click
CurrentPosition = SQL_COMMANDTextBox.SelectionStart
If SQL_COMMANDTextBox.Text.Trim().Count = 0 Then
dgvPlaceholders.Enabled = False
Else
dgvPlaceholders.Enabled = True
End If
CheckForPlaceholders()
End Sub
Sub EnDisable_Man_Attribute(bool As Boolean)
lblAttributeMan.Visible = bool
cmbAttributeMan.Visible = bool
btnAddAttributeMan.Visible = bool
End Sub
Sub EnDisable_Auto_Attribute(bool As Boolean)
lblAttributeAuto.Visible = bool
cmbAttributeAuto.Visible = bool
btnAddAttributeAuto.Visible = bool
End Sub
Private Sub CheckForPlaceholders()
Dim text As String = SQL_COMMANDTextBox.Text
dgvPlaceholders.Rows.Clear()
Dim patterns As List(Of clsPatterns.Pattern) = clsPatterns.GetAllPatterns(text)
For Each pattern In patterns
dgvPlaceholders.Rows.Add({pattern.ToString, ""})
Next
'Dim count As Integer = 0
'Dim text As String = Me.Value
'Dim atPlaceholderRegex = New Regex(AtPlaceholderPattern, RegexOptions.IgnoreCase)
'Dim matches As MatchCollection = atPlaceholderRegex.Matches(text)
'dgvPlaceholders.Rows.Clear()
'For Each match As Match In matches
' dgvPlaceholders.Rows.Add({match.Value, ""})
'Next
End Sub
Private Sub InsertAtSelection(str As String)
Dim altePosition As Integer = SQL_COMMANDTextBox.SelectionStart()
SQL_COMMANDTextBox.Text = SQL_COMMANDTextBox.Text.Insert(altePosition, str)
SQL_COMMANDTextBox.SelectionStart = altePosition + str.Length
End Sub
Private Sub btnTestSQL_Click(sender As Object, e As EventArgs) Handles btnTestSQL.Click
Try
Dim query As String = SQL_COMMANDTextBox.Text
For Each row As DataGridViewRow In dgvPlaceholders.Rows
Dim placeholder As String = row.Cells(0).Value
Dim replacement As String = row.Cells(1).Value
' Wenn Ersetzung ausgefüllt wurde, Platzhalter damit ersetzen
If Not String.IsNullOrEmpty(replacement) Then
Dim pattern As New clsPatterns.Pattern(placeholder)
query = clsPatterns.ReplacePattern(query, pattern.Type, replacement)
Else
MsgBox("Bitte geben Sie für den Platzhalter " & placeholder & " einen Wert an!", MsgBoxStyle.Exclamation, "Fehlende Platzhalter Ersetzung")
Exit Sub
End If
Next
Dim oconString = My.DatabaseECM.Get_ConnectionStringforID(cmbConnection.SelectedValue)
Dim decryptedConString = My.DatabaseECM.DecryptConnectionString(oconString)
Dim oDT = My.DatabaseECM.GetDatatableWithConnection(query, decryptedConString)
If oDT IsNot Nothing Then
dgvResult.DataSource = oDT
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
SQLCommand = SQL_COMMANDTextBox.Text
ConnectionID = cmbConnection.SelectedValue
Me.Close()
End Sub
Private Sub btnAddAttributeMan_Click(sender As Object, e As EventArgs) Handles btnAddAttributeMan.Click
If cmbAttributeMan.SelectedIndex <> -1 Then
Dim value As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_MAN, cmbAttributeMan.Text)
InsertAtSelection(value)
End If
End Sub
Private Sub btnAddStatic_Click(sender As Object, e As EventArgs) Handles btnAddStatic.Click
If cmbStatic.SelectedIndex <> -1 Then
Dim value As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_INT, cmbStatic.Text)
InsertAtSelection(value)
End If
End Sub
Private Sub btnAddUser_Click(sender As Object, e As EventArgs) Handles btnAddUser.Click
If cmbUser.SelectedIndex <> -1 Then
Dim value As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_USER, cmbUser.Text)
InsertAtSelection(value)
End If
End Sub
End Class

11
GUIs.ZooFlow/ClassInit.vb
View File

@ -216,18 +216,9 @@ Public Class ClassInit
Private Sub InitBasicConfig(MyApplication As My.MyApplication)
Try
My.Tables.DTIDB_COMMON_SQL = My.DatabaseIDB.GetDatatable("SELECT * FROM TBIDB_COMMON_SQL WHERE ACTIVE = 1")
My.Tables.DTIDB_FILESTORE = My.DatabaseIDB.GetDatatable("SELECT * FROM TBIDB_FILESTORE_CONFIG WHERE ACTIVE = 1")
'Get FilesStores
For Each oRow As DataRow In My.Tables.DTIDB_FILESTORE.Rows
Select Case oRow.Item("TITLE").ToString
Case "ARCHIVE"
My.Filestore_Archive = oRow.Item("STORAGE_PATH")
Case "WORK"
My.Filestore_Work = oRow.Item("STORAGE_PATH")
End Select
Next
Catch ex As Exception
Logger.Error(ex)
Throw New InitException("Error in InitBasicData", ex)

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

File diff suppressed because it is too large Load Diff

174
GUIs.ZooFlow/DSIDB_Stammdaten.xsd
View File

@ -240,14 +240,53 @@ SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN,
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="VWIDB_BE_ATTRIBUTETableAdapter" GeneratorDataComponentClassName="VWIDB_BE_ATTRIBUTETableAdapter" Name="VWIDB_BE_ATTRIBUTE" UserDataComponentName="VWIDB_BE_ATTRIBUTETableAdapter">
<MainSource>
<DbSource ConnectionRef="IDBConnectionStringDEFAULT (Settings)" DbObjectName="IDB_TEST.dbo.VWIDB_BE_ATTRIBUTE" DbObjectType="View" 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="false" UserGetMethodName="GetData" UserSourceName="Fill">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT VWIDB_BE_ATTRIBUTE.*
FROM VWIDB_BE_ATTRIBUTE</CommandText>
<DbSource ConnectionRef="IDBConnectionStringDEFAULT (Settings)" DbObjectName="IDB.dbo.VWIDB_BE_ATTRIBUTE" DbObjectType="View" 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="false" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText />
<Parameters />
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO TBIDB_ATTRIBUTE
(TITLE, TYP_ID, VIEW_SEQUENCE, VIEW_VISIBLE, ADDED_WHO)
VALUES (@TITLE,@TYP_ID,@VIEW_SEQUENCE,@VIEW_VISIBLE,@ADDED_WHO)</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="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="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>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VISIBLE, VIEW_SEQUENCE, SYS_ATTRIBUTE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO
FROM VWIDB_BE_ATTRIBUTE
WHERE (LANG_CODE = @LANG_CODE) AND (SYS_ATTRIBUTE = 0)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="LANG_CODE" ColumnName="LANG_CODE" DataSourceName="IDB.dbo.VWIDB_BE_ATTRIBUTE" DataTypeServer="varchar(10)" DbType="AnsiString" Direction="Input" ParameterName="@LANG_CODE" Precision="0" ProviderType="VarChar" Scale="0" Size="10" SourceColumn="LANG_CODE" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE TBIDB_ATTRIBUTE
SET TITLE = @TITLE, TYP_ID = @TYP_ID, VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE = @VIEW_VISIBLE, COMMENT = @COMMENT, CHANGED_WHO = @CHANGED_WHO
WHERE (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="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="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" />
</Parameters>
</DbCommand>
</UpdateCommand>
</DbSource>
</MainSource>
<Mappings>
@ -266,6 +305,7 @@ FROM VWIDB_BE_ATTRIBUTE</CommandText>
<Mapping SourceColumn="ADDED_WHO" DataSetColumn="ADDED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="SYS_ATTRIBUTE" DataSetColumn="SYS_ATTRIBUTE" />
</Mappings>
<Sources>
<DbSource ConnectionRef="IDBConnectionStringDEFAULT (Settings)" DbObjectName="IDB_TEST.dbo.VWIDB_BE_ATTRIBUTE" DbObjectType="View" FillMethodModifier="Public" FillMethodName="FillByAttributeId" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetDataByAttributeId" GeneratorSourceName="FillByAttributeId" GetMethodModifier="Public" GetMethodName="GetDataByAttributeId" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataByAttributeId" UserSourceName="FillByAttributeId">
@ -530,6 +570,47 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_
</Mappings>
<Sources />
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBWH_ATTRIBUTE_TYPETableAdapter" GeneratorDataComponentClassName="TBWH_ATTRIBUTE_TYPETableAdapter" Name="TBWH_ATTRIBUTE_TYPE" UserDataComponentName="TBWH_ATTRIBUTE_TYPETableAdapter">
<MainSource>
<DbSource ConnectionRef="IDBConnectionStringDEFAULT (Settings)" DbObjectName="IDB.dbo.TBIDB_ATTRIBUTE_TYPE" DbObjectType="Table" 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="false" UserGetMethodName="GetData" UserSourceName="Fill">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT GUID, NAME_TYPE
FROM TBIDB_ATTRIBUTE_TYPE</CommandText>
<Parameters />
</DbCommand>
</SelectCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="NAME_TYPE" DataSetColumn="NAME_TYPE" />
</Mappings>
<Sources />
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="VWIDB_OBJECT_STORETableAdapter" GeneratorDataComponentClassName="VWIDB_OBJECT_STORETableAdapter" Name="VWIDB_OBJECT_STORE" UserDataComponentName="VWIDB_OBJECT_STORETableAdapter">
<MainSource>
<DbSource ConnectionRef="IDBConnectionStringDEFAULT (Settings)" DbObjectName="IDB.dbo.VWIDB_OBJECT_STORE" DbObjectType="View" 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="true">
<CommandText>SELECT * FROM VWIDB_OBJECT_STORE</CommandText>
<Parameters />
</DbCommand>
</SelectCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="Objectstore" DataSetColumn="Objectstore" />
<Mapping SourceColumn="Archive" DataSetColumn="Archive" />
<Mapping SourceColumn="REL_PATH" DataSetColumn="REL_PATH" />
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
<Mapping SourceColumn="ADDED_WHO" DataSetColumn="ADDED_WHO" />
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
</Mappings>
<Sources />
</TableAdapter>
</Tables>
<Sources />
</DataSource>
@ -538,7 +619,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_
<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" />
@ -577,7 +658,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="VWIDB_BE_ATTRIBUTE" msprop:Generator_TableClassName="VWIDB_BE_ATTRIBUTEDataTable" msprop:Generator_TableVarName="tableVWIDB_BE_ATTRIBUTE" msprop:Generator_RowChangedName="VWIDB_BE_ATTRIBUTERowChanged" msprop:Generator_TablePropName="VWIDB_BE_ATTRIBUTE" msprop:Generator_RowDeletingName="VWIDB_BE_ATTRIBUTERowDeleting" msprop:Generator_RowChangingName="VWIDB_BE_ATTRIBUTERowChanging" msprop:Generator_RowEvHandlerName="VWIDB_BE_ATTRIBUTERowChangeEventHandler" msprop:Generator_RowDeletedName="VWIDB_BE_ATTRIBUTERowDeleted" msprop:Generator_RowClassName="VWIDB_BE_ATTRIBUTERow" msprop:Generator_UserTableName="VWIDB_BE_ATTRIBUTE" msprop:Generator_RowEvArgName="VWIDB_BE_ATTRIBUTERowChangeEvent">
<xs:element name="VWIDB_BE_ATTRIBUTE" msprop:Generator_TableClassName="VWIDB_BE_ATTRIBUTEDataTable" msprop:Generator_TableVarName="tableVWIDB_BE_ATTRIBUTE" msprop:Generator_TablePropName="VWIDB_BE_ATTRIBUTE" msprop:Generator_RowDeletingName="VWIDB_BE_ATTRIBUTERowDeleting" msprop:Generator_RowChangingName="VWIDB_BE_ATTRIBUTERowChanging" msprop:Generator_RowEvHandlerName="VWIDB_BE_ATTRIBUTERowChangeEventHandler" msprop:Generator_RowDeletedName="VWIDB_BE_ATTRIBUTERowDeleted" msprop:Generator_UserTableName="VWIDB_BE_ATTRIBUTE" msprop:Generator_RowChangedName="VWIDB_BE_ATTRIBUTERowChanged" msprop:Generator_RowEvArgName="VWIDB_BE_ATTRIBUTERowChangeEvent" msprop:Generator_RowClassName="VWIDB_BE_ATTRIBUTERow">
<xs:complexType>
<xs:sequence>
<xs:element name="BE_ID" msprop:Generator_ColumnVarNameInTable="columnBE_ID" msprop:Generator_ColumnPropNameInRow="BE_ID" msprop:Generator_ColumnPropNameInTable="BE_IDColumn" msprop:Generator_UserColumnName="BE_ID" type="xs:int" />
@ -631,10 +712,11 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SYS_ATTRIBUTE" msprop:Generator_ColumnVarNameInTable="columnSYS_ATTRIBUTE" msprop:Generator_ColumnPropNameInRow="SYS_ATTRIBUTE" msprop:Generator_ColumnPropNameInTable="SYS_ATTRIBUTEColumn" msprop:Generator_UserColumnName="SYS_ATTRIBUTE" type="xs:boolean" default="false" />
</xs: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" />
@ -691,7 +773,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_
</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" />
@ -732,7 +814,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBZF_ADMIN_SOURCE_SQL" msprop:Generator_TableClassName="TBZF_ADMIN_SOURCE_SQLDataTable" msprop:Generator_TableVarName="tableTBZF_ADMIN_SOURCE_SQL" msprop:Generator_TablePropName="TBZF_ADMIN_SOURCE_SQL" msprop:Generator_RowDeletingName="TBZF_ADMIN_SOURCE_SQLRowDeleting" msprop:Generator_RowChangingName="TBZF_ADMIN_SOURCE_SQLRowChanging" msprop:Generator_RowEvHandlerName="TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler" msprop:Generator_RowDeletedName="TBZF_ADMIN_SOURCE_SQLRowDeleted" msprop:Generator_UserTableName="TBZF_ADMIN_SOURCE_SQL" msprop:Generator_RowChangedName="TBZF_ADMIN_SOURCE_SQLRowChanged" msprop:Generator_RowEvArgName="TBZF_ADMIN_SOURCE_SQLRowChangeEvent" msprop:Generator_RowClassName="TBZF_ADMIN_SOURCE_SQLRow">
<xs:element name="TBZF_ADMIN_SOURCE_SQL" msprop:Generator_TableClassName="TBZF_ADMIN_SOURCE_SQLDataTable" msprop:Generator_TableVarName="tableTBZF_ADMIN_SOURCE_SQL" msprop:Generator_RowChangedName="TBZF_ADMIN_SOURCE_SQLRowChanged" msprop:Generator_TablePropName="TBZF_ADMIN_SOURCE_SQL" msprop:Generator_RowDeletingName="TBZF_ADMIN_SOURCE_SQLRowDeleting" msprop:Generator_RowChangingName="TBZF_ADMIN_SOURCE_SQLRowChanging" msprop:Generator_RowEvHandlerName="TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler" msprop:Generator_RowDeletedName="TBZF_ADMIN_SOURCE_SQLRowDeleted" msprop:Generator_RowClassName="TBZF_ADMIN_SOURCE_SQLRow" msprop:Generator_UserTableName="TBZF_ADMIN_SOURCE_SQL" msprop:Generator_RowEvArgName="TBZF_ADMIN_SOURCE_SQLRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -798,7 +880,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBIDB_OBJECT_STORE" msprop:Generator_TableClassName="TBIDB_OBJECT_STOREDataTable" msprop:Generator_TableVarName="tableTBIDB_OBJECT_STORE" msprop:Generator_RowChangedName="TBIDB_OBJECT_STORERowChanged" msprop:Generator_TablePropName="TBIDB_OBJECT_STORE" msprop:Generator_RowDeletingName="TBIDB_OBJECT_STORERowDeleting" msprop:Generator_RowChangingName="TBIDB_OBJECT_STORERowChanging" msprop:Generator_RowEvHandlerName="TBIDB_OBJECT_STORERowChangeEventHandler" msprop:Generator_RowDeletedName="TBIDB_OBJECT_STORERowDeleted" msprop:Generator_RowClassName="TBIDB_OBJECT_STORERow" msprop:Generator_UserTableName="TBIDB_OBJECT_STORE" msprop:Generator_RowEvArgName="TBIDB_OBJECT_STORERowChangeEvent">
<xs:element name="TBIDB_OBJECT_STORE" msprop:Generator_TableClassName="TBIDB_OBJECT_STOREDataTable" msprop:Generator_TableVarName="tableTBIDB_OBJECT_STORE" msprop:Generator_TablePropName="TBIDB_OBJECT_STORE" msprop:Generator_RowDeletingName="TBIDB_OBJECT_STORERowDeleting" msprop:Generator_RowChangingName="TBIDB_OBJECT_STORERowChanging" msprop:Generator_RowEvHandlerName="TBIDB_OBJECT_STORERowChangeEventHandler" msprop:Generator_RowDeletedName="TBIDB_OBJECT_STORERowDeleted" msprop:Generator_UserTableName="TBIDB_OBJECT_STORE" msprop:Generator_RowChangedName="TBIDB_OBJECT_STORERowChanged" msprop:Generator_RowEvArgName="TBIDB_OBJECT_STORERowChangeEvent" msprop:Generator_RowClassName="TBIDB_OBJECT_STORERow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -851,7 +933,7 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBIDB_CATALOG" msprop:Generator_TableClassName="TBIDB_CATALOGDataTable" msprop:Generator_TableVarName="tableTBIDB_CATALOG" msprop:Generator_RowChangedName="TBIDB_CATALOGRowChanged" msprop:Generator_TablePropName="TBIDB_CATALOG" msprop:Generator_RowDeletingName="TBIDB_CATALOGRowDeleting" msprop:Generator_RowChangingName="TBIDB_CATALOGRowChanging" msprop:Generator_RowEvHandlerName="TBIDB_CATALOGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBIDB_CATALOGRowDeleted" msprop:Generator_RowClassName="TBIDB_CATALOGRow" msprop:Generator_UserTableName="TBIDB_CATALOG" msprop:Generator_RowEvArgName="TBIDB_CATALOGRowChangeEvent">
<xs:element name="TBIDB_CATALOG" msprop:Generator_TableClassName="TBIDB_CATALOGDataTable" msprop:Generator_TableVarName="tableTBIDB_CATALOG" msprop:Generator_TablePropName="TBIDB_CATALOG" msprop:Generator_RowDeletingName="TBIDB_CATALOGRowDeleting" msprop:Generator_RowChangingName="TBIDB_CATALOGRowChanging" msprop:Generator_RowEvHandlerName="TBIDB_CATALOGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBIDB_CATALOGRowDeleted" msprop:Generator_UserTableName="TBIDB_CATALOG" msprop:Generator_RowChangedName="TBIDB_CATALOGRowChanged" msprop:Generator_RowEvArgName="TBIDB_CATALOGRowChangeEvent" msprop:Generator_RowClassName="TBIDB_CATALOGRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -888,16 +970,64 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_ATTRIBUTE_TYPE" msprop:Generator_TableClassName="TBWH_ATTRIBUTE_TYPEDataTable" msprop:Generator_TableVarName="tableTBWH_ATTRIBUTE_TYPE" msprop:Generator_RowChangedName="TBWH_ATTRIBUTE_TYPERowChanged" msprop:Generator_TablePropName="TBWH_ATTRIBUTE_TYPE" msprop:Generator_RowDeletingName="TBWH_ATTRIBUTE_TYPERowDeleting" msprop:Generator_RowChangingName="TBWH_ATTRIBUTE_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBWH_ATTRIBUTE_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_ATTRIBUTE_TYPERowDeleted" msprop:Generator_RowClassName="TBWH_ATTRIBUTE_TYPERow" msprop:Generator_UserTableName="TBWH_ATTRIBUTE_TYPE" msprop:Generator_RowEvArgName="TBWH_ATTRIBUTE_TYPERowChangeEvent">
<xs: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" />
<xs:element name="NAME_TYPE" msprop:Generator_ColumnVarNameInTable="columnNAME_TYPE" msprop:Generator_ColumnPropNameInRow="NAME_TYPE" msprop:Generator_ColumnPropNameInTable="NAME_TYPEColumn" msprop:Generator_UserColumnName="NAME_TYPE">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="VWIDB_OBJECT_STORE" msprop:Generator_TableClassName="VWIDB_OBJECT_STOREDataTable" msprop:Generator_TableVarName="tableVWIDB_OBJECT_STORE" msprop:Generator_TablePropName="VWIDB_OBJECT_STORE" msprop:Generator_RowDeletingName="VWIDB_OBJECT_STORERowDeleting" msprop:Generator_RowChangingName="VWIDB_OBJECT_STORERowChanging" msprop:Generator_RowEvHandlerName="VWIDB_OBJECT_STORERowChangeEventHandler" msprop:Generator_RowDeletedName="VWIDB_OBJECT_STORERowDeleted" msprop:Generator_UserTableName="VWIDB_OBJECT_STORE" msprop:Generator_RowChangedName="VWIDB_OBJECT_STORERowChanged" msprop:Generator_RowEvArgName="VWIDB_OBJECT_STORERowChangeEvent" msprop:Generator_RowClassName="VWIDB_OBJECT_STORERow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="Objectstore" msprop:Generator_ColumnVarNameInTable="columnObjectstore" msprop:Generator_ColumnPropNameInRow="Objectstore" msprop:Generator_ColumnPropNameInTable="ObjectstoreColumn" msprop:Generator_UserColumnName="Objectstore">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="250" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="Archive" msprop:Generator_ColumnVarNameInTable="columnArchive" msprop:Generator_ColumnPropNameInRow="Archive" msprop:Generator_ColumnPropNameInTable="ArchiveColumn" msprop:Generator_UserColumnName="Archive" type="xs:boolean" />
<xs:element name="REL_PATH" msprop:Generator_ColumnVarNameInTable="columnREL_PATH" msprop:Generator_ColumnPropNameInRow="REL_PATH" msprop:Generator_ColumnPropNameInTable="REL_PATHColumn" msprop:Generator_UserColumnName="REL_PATH">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="900" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" />
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="30" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="30" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice>
</xs:complexType>
<xs:unique name="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBIDB_BUSINESS_ENTITY" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
<xs:unique name="VWIDB_BE_ATTRIBUTE_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:VWIDB_BE_ATTRIBUTE" />
<xs:field xpath="mstns:LANG_ID" />
</xs:unique>
<xs:unique name="TBIDB_ATTRIBUTE_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBIDB_ATTRIBUTE" />
<xs:field xpath="mstns:GUID" />
@ -918,11 +1048,19 @@ SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_
<xs:selector xpath=".//mstns:TBIDB_CATALOG" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
<xs:unique name="TBWH_ATTRIBUTE_TYPE_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBWH_ATTRIBUTE_TYPE" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
<xs:unique name="VWIDB_OBJECT_STORE_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:VWIDB_OBJECT_STORE" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
</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_OS_CAT_ID" msdata:parent="TBIDB_CATALOG" msdata:child="TBIDB_OBJECT_STORE" msdata:parentkey="GUID" msdata:childkey="CAT_ID" msprop:Generator_UserChildTable="TBIDB_OBJECT_STORE" msprop:Generator_ChildPropName="GetTBIDB_OBJECT_STORERows" msprop:Generator_UserRelationName="FK_OS_CAT_ID" msprop:Generator_ParentPropName="TBIDB_CATALOGRow" msprop:Generator_RelationVarName="relationFK_OS_CAT_ID" msprop:Generator_UserParentTable="TBIDB_CATALOG" />
<msdata:Relationship name="FK_TYP_ID" msdata:parent="TBIDB_ATTRIBUTE_TYPE" msdata:child="TBIDB_ATTRIBUTE" msdata:parentkey="GUID" msdata:childkey="TYP_ID" msprop:Generator_UserChildTable="TBIDB_ATTRIBUTE" msprop:Generator_ChildPropName="GetTBIDB_ATTRIBUTERows" msprop:Generator_UserRelationName="FK_TYP_ID" msprop:Generator_ParentPropName="TBIDB_ATTRIBUTE_TYPERow" msprop:Generator_RelationVarName="relationFK_TYP_ID" msprop:Generator_UserParentTable="TBIDB_ATTRIBUTE_TYPE" />
<msdata:Relationship name="FK_OS_CAT_ID" msdata:parent="TBIDB_CATALOG" msdata:child="TBIDB_OBJECT_STORE" msdata:parentkey="GUID" msdata:childkey="CAT_ID" msprop:Generator_UserChildTable="TBIDB_OBJECT_STORE" msprop:Generator_ChildPropName="GetTBIDB_OBJECT_STORERows" msprop:Generator_UserRelationName="FK_OS_CAT_ID" msprop:Generator_RelationVarName="relationFK_OS_CAT_ID" msprop:Generator_UserParentTable="TBIDB_CATALOG" msprop:Generator_ParentPropName="TBIDB_CATALOGRow" />
</xs:appinfo>
</xs:annotation>
</xs:schema>

19
GUIs.ZooFlow/DSIDB_Stammdaten.xss
View File

@ -6,16 +6,17 @@
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="4" ViewPortY="3" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBIDB_BUSINESS_ENTITY" ZOrder="9" X="48" Y="40" Height="248" Width="291" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBIDB_ATTRIBUTE" ZOrder="7" X="359" Y="42" Height="305" Width="251" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBIDB_ATTRIBUTE_TYPE" ZOrder="5" X="677" Y="46" Height="286" Width="285" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:VWIDB_BE_ATTRIBUTE" ZOrder="8" X="991" Y="49" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBZF_ADMIN_SOURCE_SQL" ZOrder="4" X="73" Y="378" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBIDB_OBJECT_STORE" ZOrder="3" X="474" Y="385" Height="267" Width="273" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBIDB_CATALOG" ZOrder="2" X="896" Y="419" Height="210" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBIDB_BUSINESS_ENTITY" ZOrder="10" X="48" Y="40" Height="248" Width="291" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBIDB_ATTRIBUTE" ZOrder="8" X="359" Y="42" Height="305" Width="251" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBIDB_ATTRIBUTE_TYPE" ZOrder="6" X="677" Y="46" Height="286" Width="285" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:VWIDB_BE_ATTRIBUTE" ZOrder="9" X="991" Y="49" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBZF_ADMIN_SOURCE_SQL" ZOrder="5" X="73" Y="378" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBIDB_OBJECT_STORE" ZOrder="4" X="474" Y="385" Height="267" Width="273" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBIDB_CATALOG" ZOrder="3" X="896" Y="419" Height="210" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBWH_ATTRIBUTE_TYPE" ZOrder="1" X="942" Y="715" Height="115" Width="293" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:FK_TYP_ID" ZOrder="6" LineWidth="11">
<Connector ID="DesignRelation:FK_TYP_ID" ZOrder="7" LineWidth="11">
<RoutePoints>
<Point>
<X>677</X>
@ -27,7 +28,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_OS_CAT_ID" ZOrder="1" LineWidth="11">
<Connector ID="DesignRelation:FK_OS_CAT_ID" ZOrder="2" LineWidth="11">
<RoutePoints>
<Point>
<X>896</X>

249
GUIs.ZooFlow/Globix/GlobixDataset.Designer.vb generated
View File

@ -434,7 +434,7 @@ Partial Public Class GlobixDataset
Private columnGEAENDERTWANN As Global.System.Data.DataColumn
Private columnIDB_FILESTORE_ID As Global.System.Data.DataColumn
Private columnIDB_OBJECT_STORE_ID As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
@ -617,9 +617,9 @@ Partial Public Class GlobixDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property IDB_FILESTORE_IDColumn() As Global.System.Data.DataColumn
Public ReadOnly Property IDB_OBJECT_STORE_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnIDB_FILESTORE_ID
Return Me.columnIDB_OBJECT_STORE_ID
End Get
End Property
@ -678,9 +678,9 @@ Partial Public Class GlobixDataset
ByVal ERSTELLTWANN As Date, _
ByVal GEANDERTWER As String, _
ByVal GEAENDERTWANN As Date, _
ByVal IDB_FILESTORE_ID As Integer) As TBDD_DOKUMENTARTRow
ByVal IDB_OBJECT_STORE_ID As Integer) As TBDD_DOKUMENTARTRow
Dim rowTBDD_DOKUMENTARTRow As TBDD_DOKUMENTARTRow = CType(Me.NewRow,TBDD_DOKUMENTARTRow)
Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, IDB_FILESTORE_ID}
Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, IDB_OBJECT_STORE_ID}
rowTBDD_DOKUMENTARTRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBDD_DOKUMENTARTRow)
Return rowTBDD_DOKUMENTARTRow
@ -727,7 +727,7 @@ Partial Public Class GlobixDataset
Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN")
Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER")
Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN")
Me.columnIDB_FILESTORE_ID = MyBase.Columns("IDB_FILESTORE_ID")
Me.columnIDB_OBJECT_STORE_ID = MyBase.Columns("IDB_OBJECT_STORE_ID")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -769,11 +769,11 @@ Partial Public Class GlobixDataset
MyBase.Columns.Add(Me.columnGEANDERTWER)
Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGEAENDERTWANN)
Me.columnIDB_FILESTORE_ID = New Global.System.Data.DataColumn("IDB_FILESTORE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnIDB_FILESTORE_ID)
Me.columnIDB_OBJECT_STORE_ID = New Global.System.Data.DataColumn("IDB_OBJECT_STORE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnIDB_OBJECT_STORE_ID)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true
Me.columnGUID.AutoIncrementSeed = -1
Me.columnGUID.AutoIncrementSeed = 1
Me.columnGUID.AllowDBNull = false
Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true
@ -784,13 +784,14 @@ Partial Public Class GlobixDataset
Me.columnOBJEKTTYP.MaxLength = 50
Me.columnEINGANGSART_ID.AllowDBNull = false
Me.columnKURZNAME.AllowDBNull = false
Me.columnKURZNAME.DefaultValue = CType("",String)
Me.columnKURZNAME.MaxLength = 50
Me.columnZIEL_PFAD.AllowDBNull = false
Me.columnZIEL_PFAD.DefaultValue = CType("IDB_STORE",String)
Me.columnZIEL_PFAD.MaxLength = 250
Me.columnBESCHREIBUNG.MaxLength = 250
Me.columnWINDREAM_DIRECT.AllowDBNull = false
Me.columnWINDREAM_DIRECT.DefaultValue = CType(true,Boolean)
Me.columnWINDREAM_DIRECT.DefaultValue = CType(false,Boolean)
Me.columnFOLDER_FOR_INDEX.AllowDBNull = false
Me.columnFOLDER_FOR_INDEX.MaxLength = 500
Me.columnDUPLICATE_HANDLING.AllowDBNull = false
@ -806,8 +807,6 @@ Partial Public Class GlobixDataset
Me.columnERSTELLTWER.AllowDBNull = false
Me.columnERSTELLTWER.MaxLength = 50
Me.columnGEANDERTWER.MaxLength = 50
Me.columnIDB_FILESTORE_ID.AllowDBNull = false
Me.columnIDB_FILESTORE_ID.DefaultValue = CType(0,Integer)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -1376,23 +1375,33 @@ Partial Public Class GlobixDataset
Me.columnNAME.MaxLength = 50
Me.columnWD_INDEX.MaxLength = 50
Me.columnCOMMENT.MaxLength = 150
Me.columnDATATYPE.DefaultValue = CType("VARCHAR",String)
Me.columnDATATYPE.MaxLength = 50
Me.columnSUGGESTION.AllowDBNull = false
Me.columnSUGGESTION.DefaultValue = CType(false,Boolean)
Me.columnDEFAULT_VALUE.AllowDBNull = false
Me.columnDEFAULT_VALUE.DefaultValue = CType("",String)
Me.columnDEFAULT_VALUE.MaxLength = 50
Me.columnCONNECTION_ID.DefaultValue = CType(1,Short)
Me.columnSEQUENCE.AllowDBNull = false
Me.columnSEQUENCE.DefaultValue = CType(1,Integer)
Me.columnSQL_RESULT.AllowDBNull = false
Me.columnSQL_RESULT.DefaultValue = CType("",String)
Me.columnSQL_RESULT.MaxLength = 2000
Me.columnSQL_CHECK.AllowDBNull = false
Me.columnSQL_CHECK.DefaultValue = CType("",String)
Me.columnSQL_CHECK.MaxLength = 2000
Me.columnOPTIONAL.AllowDBNull = false
Me.columnOPTIONAL.DefaultValue = CType(false,Boolean)
Me.columnSAVE_VALUE.AllowDBNull = false
Me.columnSAVE_VALUE.DefaultValue = CType(true,Boolean)
Me.columnACTIVE.AllowDBNull = false
Me.columnACTIVE.DefaultValue = CType(false,Boolean)
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50
Me.columnMULTISELECT.AllowDBNull = false
Me.columnMULTISELECT.DefaultValue = CType(false,Boolean)
Me.columnVKT_ADD_ITEM.AllowDBNull = false
Me.columnVKT_ADD_ITEM.DefaultValue = CType(false,Boolean)
Me.columnVKT_PREVENT_MULTIPLE_VALUES.AllowDBNull = false
@ -1847,13 +1856,17 @@ Partial Public Class GlobixDataset
Me.columnGUID.Unique = true
Me.columnDOCTYPE_ID.AllowDBNull = false
Me.columnENTITY_ID.AllowDBNull = false
Me.columnENTITY_ID.DefaultValue = CType(0,Integer)
Me.columnINDEXNAME.AllowDBNull = false
Me.columnINDEXNAME.MaxLength = 50
Me.columnVALUE.MaxLength = 2000
Me.columnCONNECTION_ID.AllowDBNull = false
Me.columnCONNECTION_ID.DefaultValue = CType(1,Short)
Me.columnSQL_RESULT.AllowDBNull = false
Me.columnSQL_RESULT.DefaultValue = CType("",String)
Me.columnSQL_RESULT.MaxLength = 2000
Me.columnSQL_ACTIVE.AllowDBNull = false
Me.columnSQL_ACTIVE.DefaultValue = CType(false,Boolean)
Me.columnCOMMENT.MaxLength = 400
Me.columnACTIVE.AllowDBNull = false
Me.columnACTIVE.DefaultValue = CType(true,Boolean)
@ -2500,12 +2513,16 @@ Partial Public Class GlobixDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Property IDB_FILESTORE_ID() As Integer
Public Property IDB_OBJECT_STORE_ID() As Integer
Get
Return CType(Me(Me.tableTBDD_DOKUMENTART.IDB_FILESTORE_IDColumn),Integer)
Try
Return CType(Me(Me.tableTBDD_DOKUMENTART.IDB_OBJECT_STORE_IDColumn),Integer)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IDB_OBJECT_STORE_ID in Tabelle TBDD_DOKUMENTART ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_DOKUMENTART.IDB_FILESTORE_IDColumn) = value
Me(Me.tableTBDD_DOKUMENTART.IDB_OBJECT_STORE_IDColumn) = value
End Set
End Property
@ -2557,6 +2574,18 @@ Partial Public Class GlobixDataset
Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function IsIDB_OBJECT_STORE_IDNull() As Boolean
Return Me.IsNull(Me.tableTBDD_DOKUMENTART.IDB_OBJECT_STORE_IDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub SetIDB_OBJECT_STORE_IDNull()
Me(Me.tableTBDD_DOKUMENTART.IDB_OBJECT_STORE_IDColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function GetTBDD_INDEX_MANRows() As TBDD_INDEX_MANRow()
@ -3620,7 +3649,7 @@ Namespace GlobixDatasetTableAdapters
tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN")
tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER")
tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN")
tableMapping.ColumnMappings.Add("IDB_FILESTORE_ID", "IDB_FILESTORE_ID")
tableMapping.ColumnMappings.Add("IDB_OBJECT_STORE_ID", "IDB_OBJECT_STORE_ID")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
@ -3631,14 +3660,14 @@ Namespace GlobixDatasetTableAdapters
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, EINGANGSART_"& _
"ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJE"& _
"KTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" IDB_FILESTORE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@EINGANGSART_I"& _
"D,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEK"& _
"TTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING,@IDB_FILES"& _
"TORE_ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL"& _
"_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTI"& _
"V, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, "& _
"GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTITY())"
"KTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _
" (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@"& _
"NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQU"& _
"ENCE,@DUPLICATE_HANDLING); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_"& _
"ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLIC"& _
"ATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTW"& _
"ANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTI"& _
"TY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@ -3653,7 +3682,6 @@ Namespace GlobixDatasetTableAdapters
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUPLICATE_HANDLING", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "DUPLICATE_HANDLING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDB_FILESTORE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDB_FILESTORE_ID", 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 TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, EIN"& _
@ -3662,11 +3690,11 @@ Namespace GlobixDatasetTableAdapters
"NTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WI"& _
"NDREAM_DIRECT = @WINDREAM_DIRECT, FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" SEQUENCE = @SEQUENCE, DUPLICATE_HANDLING = @DUPLICATE_HANDLIN"& _
"G, IDB_FILESTORE_ID = @IDB_FILESTORE_ID"&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, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESC"& _
"HREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE"& _
", SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWA"& _
"NN FROM TBDD_DOKUMENTART WHERE (GUID = @GUID)"
"G"&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, BEZEICHNUNG, OBJEKTTYP"& _
", EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR"& _
"_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLT"& _
"WER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID "& _
"= @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@ -3681,7 +3709,6 @@ Namespace GlobixDatasetTableAdapters
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUPLICATE_HANDLING", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "DUPLICATE_HANDLING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDB_FILESTORE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDB_FILESTORE_ID", 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
@ -3702,8 +3729,8 @@ Namespace GlobixDatasetTableAdapters
Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, "& _
"BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANG"& _
"UAGE, SEQUENCE, NAMENKONVENTION, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ERSTELLTWER, ERSTELL"& _
"TWANN, GEANDERTWER, GEAENDERTWANN, IDB_FILESTORE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUME"& _
"NTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)"
"TWANN, GEANDERTWER, GEAENDERTWANN, IDB_OBJECT_STORE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOK"& _
"UMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (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, "", "", ""))
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
@ -3716,11 +3743,11 @@ Namespace GlobixDatasetTableAdapters
"D_DOKUMENTART.LANGUAGE, TBDD_DOKUMENTART.SEQUENCE, TBDD_DOKUMENTART.NAMENKONVENT"& _
"ION, TBDD_DOKUMENTART.ERSTELLTWER, TBDD_DOKUMENTART.ERSTELLTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" TBDD_DOKUMENTART.GEANDERTWER, TBDD_DOKUMENTART.GEAENDERTWANN, TBDD_"& _
"DOKUMENTART.IDB_FILESTORE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" TBDD_DOKUMENTART_MODULE ON TBDD_DOKUMENTART.GUID = TBDD_DOKU"& _
"MENTART_MODULE.DOKART_ID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_MODULES ON TB"& _
"DD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODULES.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBDD_MODULES."& _
"SHORT_NAME = 'GLOBIX')"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBDD_DOKUMENTART.BEZEICHNUNG"
"DOKUMENTART.IDB_OBJECT_STORE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" TBDD_DOKUMENTART_MODULE ON TBDD_DOKUMENTART.GUID = TBDD_D"& _
"OKUMENTART_MODULE.DOKART_ID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_MODULES ON"& _
" TBDD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODULES.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBDD_MODUL"& _
"ES.SHORT_NAME = 'GLOBIX')"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBDD_DOKUMENTART.BEZEICHNUNG"
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
End Sub
@ -3827,20 +3854,24 @@ Namespace GlobixDatasetTableAdapters
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 BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String, ByVal IDB_FILESTORE_ID As Integer) As Integer
Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Global.System.Nullable(Of Byte), ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String) As Integer
If (BEZEICHNUNG Is Nothing) Then
Throw New Global.System.ArgumentNullException("BEZEICHNUNG")
Else
Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String)
End If
Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte)
If (EINGANGSART_ID.HasValue = true) Then
Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID.Value,Byte)
Else
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
End If
If (KURZNAME Is Nothing) Then
Throw New Global.System.ArgumentNullException("KURZNAME")
Else
Me.Adapter.InsertCommand.Parameters(2).Value = CType(KURZNAME,String)
End If
If (ZIEL_PFAD Is Nothing) Then
Throw New Global.System.ArgumentNullException("ZIEL_PFAD")
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(3).Value = CType(ZIEL_PFAD,String)
End If
@ -3861,7 +3892,7 @@ Namespace GlobixDatasetTableAdapters
Me.Adapter.InsertCommand.Parameters(7).Value = CType(ERSTELLTWER,String)
End If
If (OBJEKTTYP Is Nothing) Then
Throw New Global.System.ArgumentNullException("OBJEKTTYP")
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(8).Value = CType(OBJEKTTYP,String)
End If
@ -3877,7 +3908,6 @@ Namespace GlobixDatasetTableAdapters
Else
Me.Adapter.InsertCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String)
End If
Me.Adapter.InsertCommand.Parameters(13).Value = CType(IDB_FILESTORE_ID,Integer)
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
@ -3897,36 +3927,24 @@ Namespace GlobixDatasetTableAdapters
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 BEZEICHNUNG As String, _
ByVal EINGANGSART_ID As Byte, _
ByVal KURZNAME As String, _
ByVal ZIEL_PFAD As String, _
ByVal BESCHREIBUNG As String, _
ByVal AKTIV As Boolean, _
ByVal NAMENKONVENTION As String, _
ByVal GEANDERTWER As String, _
ByVal OBJEKTTYP As String, _
ByVal WINDREAM_DIRECT As Boolean, _
ByVal FOLDER_FOR_INDEX As String, _
ByVal SEQUENCE As Integer, _
ByVal DUPLICATE_HANDLING As String, _
ByVal IDB_FILESTORE_ID As Integer, _
ByVal Original_GUID As Integer, _
ByVal GUID As Integer) As Integer
Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Global.System.Nullable(Of Byte), ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal GEANDERTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
If (BEZEICHNUNG Is Nothing) Then
Throw New Global.System.ArgumentNullException("BEZEICHNUNG")
Else
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String)
End If
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte)
If (EINGANGSART_ID.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID.Value,Byte)
Else
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
End If
If (KURZNAME Is Nothing) Then
Throw New Global.System.ArgumentNullException("KURZNAME")
Else
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KURZNAME,String)
End If
If (ZIEL_PFAD Is Nothing) Then
Throw New Global.System.ArgumentNullException("ZIEL_PFAD")
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ZIEL_PFAD,String)
End If
@ -3947,7 +3965,7 @@ Namespace GlobixDatasetTableAdapters
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GEANDERTWER,String)
End If
If (OBJEKTTYP Is Nothing) Then
Throw New Global.System.ArgumentNullException("OBJEKTTYP")
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(OBJEKTTYP,String)
End If
@ -3963,9 +3981,8 @@ Namespace GlobixDatasetTableAdapters
Else
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String)
End If
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(IDB_FILESTORE_ID,Integer)
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(14).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
@ -4143,20 +4160,20 @@ Namespace GlobixDatasetTableAdapters
"MENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, "& _
"SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, MULTISELECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID,@"& _
"NAME,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQ"& _
"UENCE,@SQL_RESULT,@SQL_CHECK,@OPTIONAL,@SAVE_VALUE,@ACTIVE,@ADDED_WHO,@MULTISELE"& _
"CT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOK_ID, NAME, WD_"& _
"INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQ"& _
"L_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGE"& _
"D_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FROM"& _
" TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE"
"NAME,@WD_INDEX,@COMMENT,@DATATYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 1,@DEFAULT_VALUE,@"& _
"CONNECTION_ID,@SEQUENCE,@SQL_RESULT,@SQL_CHECK,@OPTIONAL,@SAVE_VALUE,@ACTIVE,@AD"& _
"DED_WHO,@MULTISELECT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _
", DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTI"& _
"ON_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO,"& _
" ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_M"& _
"ULTIPLE_VALUES FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQU"& _
"ENCE"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 150, 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("@DATATYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DATATYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUGGESTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUGGESTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@ -4172,24 +4189,22 @@ Namespace GlobixDatasetTableAdapters
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOK_ID = @DOK_ID, NAME = @NAME, W"& _
"D_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = @SUG"& _
"GESTION, DEFAULT_VALUE = @DEFAULT_VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONNECTION_I"& _
"D = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = "& _
"@SQL_CHECK, OPTIONAL = @OPTIONAL, SAVE_VALUE = @SAVE_VALUE, ACTIVE = @ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
" CHANGED_WHO = @CHANGED_WHO, MULTISELECT = @MULTISELECT,"& _
" VKT_ADD_ITEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIP"& _
"LE_VALUES"&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, DOK_ID, NAME, WD"& _
"_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, S"& _
"QL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANG"& _
"ED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FRO"& _
"M TBDD_INDEX_MAN WHERE (GUID = @GUID) ORDER BY SEQUENCE"
"D_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = 1, D"& _
"EFAULT_VALUE = @DEFAULT_VALUE, CONNECTION_ID = @CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = @SQL_CHECK"& _
", OPTIONAL = @OPTIONAL, SAVE_VALUE = @SAVE_VALUE, ACTIVE = @ACTIVE, CHANGED_WHO "& _
"= @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" MULTISELECT = @MULTISELECT, VKT_ADD_I"& _
"TEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIPLE_VALUES"&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, DOK_ID, NAME, WD_INDEX, C"& _
"OMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT"& _
", SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _
"HANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FROM TBDD_IN"& _
"DEX_MAN WHERE (GUID = @GUID) ORDER BY SEQUENCE"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 150, 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("@DATATYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DATATYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUGGESTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUGGESTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@ -4313,7 +4328,6 @@ Namespace GlobixDatasetTableAdapters
ByVal WD_INDEX As String, _
ByVal COMMENT As String, _
ByVal DATATYPE As String, _
ByVal SUGGESTION As Boolean, _
ByVal DEFAULT_VALUE As String, _
ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _
ByVal SEQUENCE As Integer, _
@ -4347,39 +4361,38 @@ Namespace GlobixDatasetTableAdapters
Else
Me.Adapter.InsertCommand.Parameters(4).Value = CType(DATATYPE,String)
End If
Me.Adapter.InsertCommand.Parameters(5).Value = CType(SUGGESTION,Boolean)
If (DEFAULT_VALUE Is Nothing) Then
Throw New Global.System.ArgumentNullException("DEFAULT_VALUE")
Else
Me.Adapter.InsertCommand.Parameters(6).Value = CType(DEFAULT_VALUE,String)
Me.Adapter.InsertCommand.Parameters(5).Value = CType(DEFAULT_VALUE,String)
End If
If (CONNECTION_ID.HasValue = true) Then
Me.Adapter.InsertCommand.Parameters(7).Value = CType(CONNECTION_ID.Value,Short)
Me.Adapter.InsertCommand.Parameters(6).Value = CType(CONNECTION_ID.Value,Short)
Else
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
End If
Me.Adapter.InsertCommand.Parameters(8).Value = CType(SEQUENCE,Integer)
Me.Adapter.InsertCommand.Parameters(7).Value = CType(SEQUENCE,Integer)
If (SQL_RESULT Is Nothing) Then
Throw New Global.System.ArgumentNullException("SQL_RESULT")
Else
Me.Adapter.InsertCommand.Parameters(9).Value = CType(SQL_RESULT,String)
Me.Adapter.InsertCommand.Parameters(8).Value = CType(SQL_RESULT,String)
End If
If (SQL_CHECK Is Nothing) Then
Throw New Global.System.ArgumentNullException("SQL_CHECK")
Else
Me.Adapter.InsertCommand.Parameters(10).Value = CType(SQL_CHECK,String)
Me.Adapter.InsertCommand.Parameters(9).Value = CType(SQL_CHECK,String)
End If
Me.Adapter.InsertCommand.Parameters(11).Value = CType(_OPTIONAL,Boolean)
Me.Adapter.InsertCommand.Parameters(12).Value = CType(SAVE_VALUE,Boolean)
Me.Adapter.InsertCommand.Parameters(13).Value = CType(ACTIVE,Boolean)
Me.Adapter.InsertCommand.Parameters(10).Value = CType(_OPTIONAL,Boolean)
Me.Adapter.InsertCommand.Parameters(11).Value = CType(SAVE_VALUE,Boolean)
Me.Adapter.InsertCommand.Parameters(12).Value = CType(ACTIVE,Boolean)
If (ADDED_WHO Is Nothing) Then
Throw New Global.System.ArgumentNullException("ADDED_WHO")
Else
Me.Adapter.InsertCommand.Parameters(14).Value = CType(ADDED_WHO,String)
Me.Adapter.InsertCommand.Parameters(13).Value = CType(ADDED_WHO,String)
End If
Me.Adapter.InsertCommand.Parameters(15).Value = CType(MULTISELECT,Boolean)
Me.Adapter.InsertCommand.Parameters(16).Value = CType(VKT_ADD_ITEM,Boolean)
Me.Adapter.InsertCommand.Parameters(17).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean)
Me.Adapter.InsertCommand.Parameters(14).Value = CType(MULTISELECT,Boolean)
Me.Adapter.InsertCommand.Parameters(15).Value = CType(VKT_ADD_ITEM,Boolean)
Me.Adapter.InsertCommand.Parameters(16).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean)
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
@ -4405,7 +4418,6 @@ Namespace GlobixDatasetTableAdapters
ByVal WD_INDEX As String, _
ByVal COMMENT As String, _
ByVal DATATYPE As String, _
ByVal SUGGESTION As Boolean, _
ByVal DEFAULT_VALUE As String, _
ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _
ByVal SEQUENCE As Integer, _
@ -4441,41 +4453,40 @@ Namespace GlobixDatasetTableAdapters
Else
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DATATYPE,String)
End If
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SUGGESTION,Boolean)
If (DEFAULT_VALUE Is Nothing) Then
Throw New Global.System.ArgumentNullException("DEFAULT_VALUE")
Else
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DEFAULT_VALUE,String)
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(DEFAULT_VALUE,String)
End If
If (CONNECTION_ID.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CONNECTION_ID.Value,Short)
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CONNECTION_ID.Value,Short)
Else
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
End If
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SEQUENCE,Integer)
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SEQUENCE,Integer)
If (SQL_RESULT Is Nothing) Then
Throw New Global.System.ArgumentNullException("SQL_RESULT")
Else
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SQL_RESULT,String)
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SQL_RESULT,String)
End If
If (SQL_CHECK Is Nothing) Then
Throw New Global.System.ArgumentNullException("SQL_CHECK")
Else
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(SQL_CHECK,String)
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SQL_CHECK,String)
End If
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(_OPTIONAL,Boolean)
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SAVE_VALUE,Boolean)
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(ACTIVE,Boolean)
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(_OPTIONAL,Boolean)
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SAVE_VALUE,Boolean)
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ACTIVE,Boolean)
If (CHANGED_WHO Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(CHANGED_WHO,String)
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(CHANGED_WHO,String)
End If
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(MULTISELECT,Boolean)
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(VKT_ADD_ITEM,Boolean)
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean)
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(MULTISELECT,Boolean)
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(VKT_ADD_ITEM,Boolean)
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean)
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(18).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

64
GUIs.ZooFlow/Globix/GlobixDataset.xsc
View File

@ -9,46 +9,34 @@
<TableUISetting Name="TBDD_DOKUMENTART">
<ColumnUISettings>
<ColumnUISetting Name="DUPLICATE_HANDLING">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="LANGUAGE">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="SEQUENCE">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="NumericUpDown" Type="System.Windows.Forms.NumericUpDown" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="ERSTELLTWANN">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="GEAENDERTWANN">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="IDB_FILESTORE_ID">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<ColumnUISetting Name="IDB_OBJECT_STORE_ID">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ControlSetting></ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>
@ -94,14 +82,32 @@
<TableUISetting Name="TBDD_INDEX_AUTOM">
<ColumnUISettings>
<ColumnUISetting Name="INDEXNAME">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="SEQUENCE">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="NumericUpDown" Type="System.Windows.Forms.NumericUpDown" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="ADDED_WHEN">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="CHANGED_WHEN">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>

130
GUIs.ZooFlow/Globix/GlobixDataset.xsd
View File

@ -9,7 +9,7 @@
<Tables>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBDD_DOKUMENTARTTableAdapter" GeneratorDataComponentClassName="TBDD_DOKUMENTARTTableAdapter" Name="TBDD_DOKUMENTART" UserDataComponentName="TBDD_DOKUMENTARTTableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.TBDD_DOKUMENTART" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM TBDD_DOKUMENTART
@ -20,66 +20,63 @@ WHERE (GUID = @Original_GUID)</CommandText>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO TBDD_DOKUMENTART
(BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJEKTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING,
IDB_FILESTORE_ID)
VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING,@IDB_FILESTORE_ID);
(BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJEKTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING)
VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING);
SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="BEZEICHNUNG" ColumnName="BEZEICHNUNG" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@BEZEICHNUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="BEZEICHNUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="EINGANGSART_ID" ColumnName="EINGANGSART_ID" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@EINGANGSART_ID" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="EINGANGSART_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="KURZNAME" ColumnName="KURZNAME" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@KURZNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="KURZNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ZIEL_PFAD" ColumnName="ZIEL_PFAD" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@ZIEL_PFAD" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="ZIEL_PFAD" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BESCHREIBUNG" ColumnName="BESCHREIBUNG" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@BESCHREIBUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="BESCHREIBUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NAMENKONVENTION" ColumnName="NAMENKONVENTION" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@NAMENKONVENTION" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="NAMENKONVENTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ERSTELLTWER" ColumnName="ERSTELLTWER" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="OBJEKTTYP" ColumnName="OBJEKTTYP" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@OBJEKTTYP" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="OBJEKTTYP" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WINDREAM_DIRECT" ColumnName="WINDREAM_DIRECT" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@WINDREAM_DIRECT" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="WINDREAM_DIRECT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="FOLDER_FOR_INDEX" ColumnName="FOLDER_FOR_INDEX" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@FOLDER_FOR_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="FOLDER_FOR_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DUPLICATE_HANDLING" ColumnName="DUPLICATE_HANDLING" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@DUPLICATE_HANDLING" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="DUPLICATE_HANDLING" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="IDB_FILESTORE_ID" ColumnName="IDB_FILESTORE_ID" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@IDB_FILESTORE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="IDB_FILESTORE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="BEZEICHNUNG" ColumnName="BEZEICHNUNG" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@BEZEICHNUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="BEZEICHNUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="EINGANGSART_ID" ColumnName="EINGANGSART_ID" DataSourceName="" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@EINGANGSART_ID" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="EINGANGSART_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="KURZNAME" ColumnName="KURZNAME" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@KURZNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="KURZNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="ZIEL_PFAD" ColumnName="ZIEL_PFAD" DataSourceName="" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@ZIEL_PFAD" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="ZIEL_PFAD" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BESCHREIBUNG" ColumnName="BESCHREIBUNG" DataSourceName="" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@BESCHREIBUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="BESCHREIBUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NAMENKONVENTION" ColumnName="NAMENKONVENTION" DataSourceName="" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@NAMENKONVENTION" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="NAMENKONVENTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ERSTELLTWER" ColumnName="ERSTELLTWER" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="OBJEKTTYP" ColumnName="OBJEKTTYP" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@OBJEKTTYP" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="OBJEKTTYP" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WINDREAM_DIRECT" ColumnName="WINDREAM_DIRECT" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@WINDREAM_DIRECT" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="WINDREAM_DIRECT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="FOLDER_FOR_INDEX" ColumnName="FOLDER_FOR_INDEX" DataSourceName="" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@FOLDER_FOR_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="FOLDER_FOR_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DUPLICATE_HANDLING" ColumnName="DUPLICATE_HANDLING" DataSourceName="" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@DUPLICATE_HANDLING" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="DUPLICATE_HANDLING" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION,
ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, IDB_FILESTORE_ID
ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, IDB_OBJECT_STORE_ID
FROM TBDD_DOKUMENTART
WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE TBDD_DOKUMENTART
SET BEZEICHNUNG = @BEZEICHNUNG, EINGANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BESCHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV,
NAMENKONVENTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WINDREAM_DIRECT = @WINDREAM_DIRECT, FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX,
SEQUENCE = @SEQUENCE, DUPLICATE_HANDLING = @DUPLICATE_HANDLING, IDB_FILESTORE_ID = @IDB_FILESTORE_ID
WHERE (GUID = @Original_GUID);
SEQUENCE = @SEQUENCE, DUPLICATE_HANDLING = @DUPLICATE_HANDLING
WHERE (GUID = @Original_GUID);
SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="BEZEICHNUNG" ColumnName="BEZEICHNUNG" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@BEZEICHNUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="BEZEICHNUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="EINGANGSART_ID" ColumnName="EINGANGSART_ID" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@EINGANGSART_ID" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="EINGANGSART_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="KURZNAME" ColumnName="KURZNAME" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@KURZNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="KURZNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ZIEL_PFAD" ColumnName="ZIEL_PFAD" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@ZIEL_PFAD" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="ZIEL_PFAD" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BESCHREIBUNG" ColumnName="BESCHREIBUNG" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@BESCHREIBUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="BESCHREIBUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NAMENKONVENTION" ColumnName="NAMENKONVENTION" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@NAMENKONVENTION" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="NAMENKONVENTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="GEANDERTWER" ColumnName="GEANDERTWER" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@GEANDERTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="GEANDERTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="OBJEKTTYP" ColumnName="OBJEKTTYP" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@OBJEKTTYP" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="OBJEKTTYP" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WINDREAM_DIRECT" ColumnName="WINDREAM_DIRECT" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@WINDREAM_DIRECT" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="WINDREAM_DIRECT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="FOLDER_FOR_INDEX" ColumnName="FOLDER_FOR_INDEX" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@FOLDER_FOR_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="FOLDER_FOR_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DUPLICATE_HANDLING" ColumnName="DUPLICATE_HANDLING" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@DUPLICATE_HANDLING" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="DUPLICATE_HANDLING" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="IDB_FILESTORE_ID" ColumnName="IDB_FILESTORE_ID" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@IDB_FILESTORE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="IDB_FILESTORE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" 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="DD_ECM_TEST.dbo.TBDD_DOKUMENTART" 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="BEZEICHNUNG" ColumnName="BEZEICHNUNG" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@BEZEICHNUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="BEZEICHNUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="EINGANGSART_ID" ColumnName="EINGANGSART_ID" DataSourceName="" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@EINGANGSART_ID" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="EINGANGSART_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="KURZNAME" ColumnName="KURZNAME" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@KURZNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="KURZNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="ZIEL_PFAD" ColumnName="ZIEL_PFAD" DataSourceName="" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@ZIEL_PFAD" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="ZIEL_PFAD" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BESCHREIBUNG" ColumnName="BESCHREIBUNG" DataSourceName="" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@BESCHREIBUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="BESCHREIBUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NAMENKONVENTION" ColumnName="NAMENKONVENTION" DataSourceName="" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@NAMENKONVENTION" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="NAMENKONVENTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="GEANDERTWER" ColumnName="GEANDERTWER" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@GEANDERTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="GEANDERTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="OBJEKTTYP" ColumnName="OBJEKTTYP" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@OBJEKTTYP" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="OBJEKTTYP" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WINDREAM_DIRECT" ColumnName="WINDREAM_DIRECT" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@WINDREAM_DIRECT" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="WINDREAM_DIRECT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="FOLDER_FOR_INDEX" ColumnName="FOLDER_FOR_INDEX" DataSourceName="" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@FOLDER_FOR_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="FOLDER_FOR_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DUPLICATE_HANDLING" ColumnName="DUPLICATE_HANDLING" DataSourceName="" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@DUPLICATE_HANDLING" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="DUPLICATE_HANDLING" 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" />
</Parameters>
</DbCommand>
</UpdateCommand>
@ -104,7 +101,7 @@ SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHR
<Mapping SourceColumn="ERSTELLTWANN" DataSetColumn="ERSTELLTWANN" />
<Mapping SourceColumn="GEANDERTWER" DataSetColumn="GEANDERTWER" />
<Mapping SourceColumn="GEAENDERTWANN" DataSetColumn="GEAENDERTWANN" />
<Mapping SourceColumn="IDB_FILESTORE_ID" DataSetColumn="IDB_FILESTORE_ID" />
<Mapping SourceColumn="IDB_OBJECT_STORE_ID" DataSetColumn="IDB_OBJECT_STORE_ID" />
</Mappings>
<Sources>
<DbSource ConnectionRef="DD_ECMConnectionString (Settings)" DbObjectName="DD_ECM.dbo.TBDD_DOKUMENTART" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="FillAllDoctypes" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetDataDoctypes" GeneratorSourceName="FillAllDoctypes" GetMethodModifier="Public" GetMethodName="GetDataDoctypes" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataDoctypes" UserSourceName="FillAllDoctypes">
@ -113,7 +110,7 @@ SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHR
<CommandText>SELECT TBDD_DOKUMENTART.GUID, TBDD_DOKUMENTART.BEZEICHNUNG, TBDD_DOKUMENTART.OBJEKTTYP, TBDD_DOKUMENTART.EINGANGSART_ID, TBDD_DOKUMENTART.KURZNAME, TBDD_DOKUMENTART.ZIEL_PFAD,
TBDD_DOKUMENTART.BESCHREIBUNG, TBDD_DOKUMENTART.WINDREAM_DIRECT, TBDD_DOKUMENTART.FOLDER_FOR_INDEX, TBDD_DOKUMENTART.DUPLICATE_HANDLING, TBDD_DOKUMENTART.AKTIV,
TBDD_DOKUMENTART.LANGUAGE, TBDD_DOKUMENTART.SEQUENCE, TBDD_DOKUMENTART.NAMENKONVENTION, TBDD_DOKUMENTART.ERSTELLTWER, TBDD_DOKUMENTART.ERSTELLTWANN,
TBDD_DOKUMENTART.GEANDERTWER, TBDD_DOKUMENTART.GEAENDERTWANN, TBDD_DOKUMENTART.IDB_FILESTORE_ID
TBDD_DOKUMENTART.GEANDERTWER, TBDD_DOKUMENTART.GEAENDERTWANN, TBDD_DOKUMENTART.IDB_OBJECT_STORE_ID
FROM TBDD_DOKUMENTART INNER JOIN
TBDD_DOKUMENTART_MODULE ON TBDD_DOKUMENTART.GUID = TBDD_DOKUMENTART_MODULE.DOKART_ID INNER JOIN
TBDD_MODULES ON TBDD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODULES.GUID
@ -142,7 +139,8 @@ WHERE (GUID = @Original_GUID)</CommandText>
<CommandText>INSERT INTO TBDD_INDEX_MAN
(DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, MULTISELECT,
VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES)
VALUES (@DOK_ID,@NAME,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQUENCE,@SQL_RESULT,@SQL_CHECK,@OPTIONAL,@SAVE_VALUE,@ACTIVE,@ADDED_WHO,@MULTISELECT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES);
VALUES (@DOK_ID,@NAME,@WD_INDEX,@COMMENT,@DATATYPE,
1,@DEFAULT_VALUE,@CONNECTION_ID,@SEQUENCE,@SQL_RESULT,@SQL_CHECK,@OPTIONAL,@SAVE_VALUE,@ACTIVE,@ADDED_WHO,@MULTISELECT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES);
SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="DOK_ID" ColumnName="DOK_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOK_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOK_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -150,7 +148,6 @@ SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALU
<Parameter AllowDbNull="true" AutogeneratedName="WD_INDEX" ColumnName="WD_INDEX" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@WD_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="WD_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DATATYPE" ColumnName="DATATYPE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DATATYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DATATYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SUGGESTION" ColumnName="SUGGESTION" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SUGGESTION" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SUGGESTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DEFAULT_VALUE" ColumnName="DEFAULT_VALUE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DEFAULT_VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DEFAULT_VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -181,10 +178,10 @@ ORDER BY SEQUENCE</CommandText>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBDD_INDEX_MAN
SET DOK_ID = @DOK_ID, NAME = @NAME, WD_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = @SUGGESTION, DEFAULT_VALUE = @DEFAULT_VALUE,
CONNECTION_ID = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = @SQL_CHECK, OPTIONAL = @OPTIONAL, SAVE_VALUE = @SAVE_VALUE, ACTIVE = @ACTIVE,
CHANGED_WHO = @CHANGED_WHO, MULTISELECT = @MULTISELECT, VKT_ADD_ITEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIPLE_VALUES
WHERE (GUID = @Original_GUID);
SET DOK_ID = @DOK_ID, NAME = @NAME, WD_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = 1, DEFAULT_VALUE = @DEFAULT_VALUE, CONNECTION_ID = @CONNECTION_ID,
SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = @SQL_CHECK, OPTIONAL = @OPTIONAL, SAVE_VALUE = @SAVE_VALUE, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO,
MULTISELECT = @MULTISELECT, VKT_ADD_ITEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIPLE_VALUES
WHERE (GUID = @Original_GUID);
SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES FROM TBDD_INDEX_MAN WHERE (GUID = @GUID) ORDER BY SEQUENCE</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="DOK_ID" ColumnName="DOK_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOK_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOK_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -192,7 +189,6 @@ SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALU
<Parameter AllowDbNull="true" AutogeneratedName="WD_INDEX" ColumnName="WD_INDEX" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@WD_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="WD_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DATATYPE" ColumnName="DATATYPE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DATATYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DATATYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SUGGESTION" ColumnName="SUGGESTION" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SUGGESTION" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SUGGESTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DEFAULT_VALUE" ColumnName="DEFAULT_VALUE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DEFAULT_VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DEFAULT_VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -347,7 +343,7 @@ SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT,
<xs:element name="TBDD_DOKUMENTART" msprop:Generator_TableClassName="TBDD_DOKUMENTARTDataTable" msprop:Generator_TableVarName="tableTBDD_DOKUMENTART" msprop:Generator_TablePropName="TBDD_DOKUMENTART" msprop:Generator_RowDeletingName="TBDD_DOKUMENTARTRowDeleting" msprop:Generator_RowChangingName="TBDD_DOKUMENTARTRowChanging" msprop:Generator_RowEvHandlerName="TBDD_DOKUMENTARTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_DOKUMENTARTRowDeleted" msprop:Generator_UserTableName="TBDD_DOKUMENTART" msprop:Generator_RowChangedName="TBDD_DOKUMENTARTRowChanged" msprop:Generator_RowEvArgName="TBDD_DOKUMENTARTRowChangeEvent" msprop:Generator_RowClassName="TBDD_DOKUMENTARTRow">
<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" />
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="BEZEICHNUNG" msprop:Generator_ColumnVarNameInTable="columnBEZEICHNUNG" msprop:Generator_ColumnPropNameInRow="BEZEICHNUNG" msprop:Generator_ColumnPropNameInTable="BEZEICHNUNGColumn" msprop:Generator_UserColumnName="BEZEICHNUNG">
<xs:simpleType>
<xs:restriction base="xs:string">
@ -363,7 +359,7 @@ SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT,
</xs:simpleType>
</xs:element>
<xs:element name="EINGANGSART_ID" msprop:Generator_ColumnVarNameInTable="columnEINGANGSART_ID" msprop:Generator_ColumnPropNameInRow="EINGANGSART_ID" msprop:Generator_ColumnPropNameInTable="EINGANGSART_IDColumn" msprop:Generator_UserColumnName="EINGANGSART_ID" type="xs:unsignedByte" />
<xs:element name="KURZNAME" msprop:Generator_ColumnVarNameInTable="columnKURZNAME" msprop:Generator_ColumnPropNameInRow="KURZNAME" msprop:Generator_ColumnPropNameInTable="KURZNAMEColumn" msprop:Generator_UserColumnName="KURZNAME">
<xs:element name="KURZNAME" msprop:Generator_ColumnVarNameInTable="columnKURZNAME" msprop:Generator_ColumnPropNameInRow="KURZNAME" msprop:Generator_ColumnPropNameInTable="KURZNAMEColumn" msprop:Generator_UserColumnName="KURZNAME" default="">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
@ -384,7 +380,7 @@ SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT,
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="WINDREAM_DIRECT" msprop:Generator_ColumnVarNameInTable="columnWINDREAM_DIRECT" msprop:Generator_ColumnPropNameInRow="WINDREAM_DIRECT" msprop:Generator_ColumnPropNameInTable="WINDREAM_DIRECTColumn" msprop:Generator_UserColumnName="WINDREAM_DIRECT" type="xs:boolean" default="true" />
<xs:element name="WINDREAM_DIRECT" msprop:Generator_ColumnVarNameInTable="columnWINDREAM_DIRECT" msprop:Generator_ColumnPropNameInRow="WINDREAM_DIRECT" msprop:Generator_ColumnPropNameInTable="WINDREAM_DIRECTColumn" msprop:Generator_UserColumnName="WINDREAM_DIRECT" type="xs:boolean" default="false" />
<xs:element name="FOLDER_FOR_INDEX" msprop:Generator_ColumnVarNameInTable="columnFOLDER_FOR_INDEX" msprop:Generator_ColumnPropNameInRow="FOLDER_FOR_INDEX" msprop:Generator_ColumnPropNameInTable="FOLDER_FOR_INDEXColumn" msprop:Generator_UserColumnName="FOLDER_FOR_INDEX">
<xs:simpleType>
<xs:restriction base="xs:string">
@ -431,7 +427,7 @@ SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT,
</xs:simpleType>
</xs:element>
<xs:element name="GEAENDERTWANN" msprop:Generator_ColumnVarNameInTable="columnGEAENDERTWANN" msprop:Generator_ColumnPropNameInRow="GEAENDERTWANN" msprop:Generator_ColumnPropNameInTable="GEAENDERTWANNColumn" msprop:Generator_UserColumnName="GEAENDERTWANN" type="xs:dateTime" minOccurs="0" />
<xs:element name="IDB_FILESTORE_ID" msprop:Generator_ColumnVarNameInTable="columnIDB_FILESTORE_ID" msprop:Generator_ColumnPropNameInRow="IDB_FILESTORE_ID" msprop:Generator_ColumnPropNameInTable="IDB_FILESTORE_IDColumn" msprop:Generator_UserColumnName="IDB_FILESTORE_ID" type="xs:int" default="0" />
<xs:element name="IDB_OBJECT_STORE_ID" msprop:Generator_ColumnVarNameInTable="columnIDB_OBJECT_STORE_ID" msprop:Generator_ColumnPropNameInRow="IDB_OBJECT_STORE_ID" msprop:Generator_ColumnPropNameInTable="IDB_OBJECT_STORE_IDColumn" msprop:Generator_UserColumnName="IDB_OBJECT_STORE_ID" type="xs:int" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
@ -461,40 +457,40 @@ SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT,
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="DATATYPE" msprop:Generator_ColumnVarNameInTable="columnDATATYPE" msprop:Generator_ColumnPropNameInRow="DATATYPE" msprop:Generator_ColumnPropNameInTable="DATATYPEColumn" msprop:Generator_UserColumnName="DATATYPE" minOccurs="0">
<xs:element name="DATATYPE" msprop:Generator_ColumnVarNameInTable="columnDATATYPE" msprop:Generator_ColumnPropNameInRow="DATATYPE" msprop:Generator_ColumnPropNameInTable="DATATYPEColumn" msprop:Generator_UserColumnName="DATATYPE" default="VARCHAR" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SUGGESTION" msprop:Generator_ColumnVarNameInTable="columnSUGGESTION" msprop:Generator_ColumnPropNameInRow="SUGGESTION" msprop:Generator_ColumnPropNameInTable="SUGGESTIONColumn" msprop:Generator_UserColumnName="SUGGESTION" type="xs:boolean" />
<xs:element name="DEFAULT_VALUE" msprop:Generator_ColumnVarNameInTable="columnDEFAULT_VALUE" msprop:Generator_ColumnPropNameInRow="DEFAULT_VALUE" msprop:Generator_ColumnPropNameInTable="DEFAULT_VALUEColumn" msprop:Generator_UserColumnName="DEFAULT_VALUE">
<xs:element name="SUGGESTION" msprop:Generator_ColumnVarNameInTable="columnSUGGESTION" msprop:Generator_ColumnPropNameInRow="SUGGESTION" msprop:Generator_ColumnPropNameInTable="SUGGESTIONColumn" msprop:Generator_UserColumnName="SUGGESTION" type="xs:boolean" default="false" />
<xs:element name="DEFAULT_VALUE" msprop:Generator_ColumnVarNameInTable="columnDEFAULT_VALUE" msprop:Generator_ColumnPropNameInRow="DEFAULT_VALUE" msprop:Generator_ColumnPropNameInTable="DEFAULT_VALUEColumn" msprop:Generator_UserColumnName="DEFAULT_VALUE" default="">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CONNECTION_ID" msprop:Generator_ColumnVarNameInTable="columnCONNECTION_ID" msprop:Generator_ColumnPropNameInRow="CONNECTION_ID" msprop:Generator_ColumnPropNameInTable="CONNECTION_IDColumn" msprop:Generator_UserColumnName="CONNECTION_ID" type="xs:short" minOccurs="0" />
<xs:element name="CONNECTION_ID" msprop:Generator_ColumnVarNameInTable="columnCONNECTION_ID" msprop:Generator_ColumnPropNameInRow="CONNECTION_ID" msprop:Generator_ColumnPropNameInTable="CONNECTION_IDColumn" msprop:Generator_UserColumnName="CONNECTION_ID" type="xs:short" default="1" minOccurs="0" />
<xs:element name="SEQUENCE" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_UserColumnName="SEQUENCE" type="xs:int" default="1" />
<xs:element name="SQL_RESULT" msprop:Generator_ColumnVarNameInTable="columnSQL_RESULT" msprop:Generator_ColumnPropNameInRow="SQL_RESULT" msprop:Generator_ColumnPropNameInTable="SQL_RESULTColumn" msprop:Generator_UserColumnName="SQL_RESULT">
<xs:element name="SQL_RESULT" msprop:Generator_ColumnVarNameInTable="columnSQL_RESULT" msprop:Generator_ColumnPropNameInRow="SQL_RESULT" msprop:Generator_ColumnPropNameInTable="SQL_RESULTColumn" msprop:Generator_UserColumnName="SQL_RESULT" default="">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2000" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SQL_CHECK" msprop:Generator_ColumnVarNameInTable="columnSQL_CHECK" msprop:Generator_ColumnPropNameInRow="SQL_CHECK" msprop:Generator_ColumnPropNameInTable="SQL_CHECKColumn" msprop:Generator_UserColumnName="SQL_CHECK">
<xs:element name="SQL_CHECK" msprop:Generator_ColumnVarNameInTable="columnSQL_CHECK" msprop:Generator_ColumnPropNameInRow="SQL_CHECK" msprop:Generator_ColumnPropNameInTable="SQL_CHECKColumn" msprop:Generator_UserColumnName="SQL_CHECK" default="">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2000" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="OPTIONAL" msprop:Generator_ColumnVarNameInTable="columnOPTIONAL" msprop:Generator_ColumnPropNameInRow="_OPTIONAL" msprop:Generator_ColumnPropNameInTable="OPTIONALColumn" msprop:Generator_UserColumnName="OPTIONAL" type="xs:boolean" />
<xs:element name="SAVE_VALUE" msprop:Generator_ColumnVarNameInTable="columnSAVE_VALUE" msprop:Generator_ColumnPropNameInRow="SAVE_VALUE" msprop:Generator_ColumnPropNameInTable="SAVE_VALUEColumn" msprop:Generator_UserColumnName="SAVE_VALUE" type="xs:boolean" />
<xs:element name="ACTIVE" msprop:Generator_ColumnVarNameInTable="columnACTIVE" msprop:Generator_ColumnPropNameInRow="ACTIVE" msprop:Generator_ColumnPropNameInTable="ACTIVEColumn" msprop:Generator_UserColumnName="ACTIVE" type="xs:boolean" />
<xs:element name="OPTIONAL" msprop:Generator_ColumnVarNameInTable="columnOPTIONAL" msprop:Generator_ColumnPropNameInRow="_OPTIONAL" msprop:Generator_ColumnPropNameInTable="OPTIONALColumn" msprop:Generator_UserColumnName="OPTIONAL" type="xs:boolean" default="false" />
<xs:element name="SAVE_VALUE" msprop:Generator_ColumnVarNameInTable="columnSAVE_VALUE" msprop:Generator_ColumnPropNameInRow="SAVE_VALUE" msprop:Generator_ColumnPropNameInTable="SAVE_VALUEColumn" msprop:Generator_UserColumnName="SAVE_VALUE" type="xs:boolean" default="true" />
<xs:element name="ACTIVE" msprop:Generator_ColumnVarNameInTable="columnACTIVE" msprop:Generator_ColumnPropNameInRow="ACTIVE" msprop:Generator_ColumnPropNameInTable="ACTIVEColumn" msprop:Generator_UserColumnName="ACTIVE" type="xs:boolean" default="false" />
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO">
<xs:simpleType>
<xs:restriction base="xs:string">
@ -511,7 +507,7 @@ SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT,
</xs:simpleType>
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="MULTISELECT" msprop:Generator_ColumnVarNameInTable="columnMULTISELECT" msprop:Generator_ColumnPropNameInRow="MULTISELECT" msprop:Generator_ColumnPropNameInTable="MULTISELECTColumn" msprop:Generator_UserColumnName="MULTISELECT" type="xs:boolean" />
<xs:element name="MULTISELECT" msprop:Generator_ColumnVarNameInTable="columnMULTISELECT" msprop:Generator_ColumnPropNameInRow="MULTISELECT" msprop:Generator_ColumnPropNameInTable="MULTISELECTColumn" msprop:Generator_UserColumnName="MULTISELECT" type="xs:boolean" default="false" />
<xs:element name="VKT_ADD_ITEM" msprop:Generator_ColumnVarNameInTable="columnVKT_ADD_ITEM" msprop:Generator_ColumnPropNameInRow="VKT_ADD_ITEM" msprop:Generator_ColumnPropNameInTable="VKT_ADD_ITEMColumn" msprop:Generator_UserColumnName="VKT_ADD_ITEM" type="xs:boolean" default="false" />
<xs:element name="VKT_PREVENT_MULTIPLE_VALUES" msprop:Generator_ColumnVarNameInTable="columnVKT_PREVENT_MULTIPLE_VALUES" msprop:Generator_ColumnPropNameInRow="VKT_PREVENT_MULTIPLE_VALUES" msprop:Generator_ColumnPropNameInTable="VKT_PREVENT_MULTIPLE_VALUESColumn" msprop:Generator_UserColumnName="VKT_PREVENT_MULTIPLE_VALUES" type="xs:boolean" default="false" />
</xs:sequence>
@ -522,7 +518,7 @@ SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT,
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="DOCTYPE_ID" msprop:Generator_ColumnVarNameInTable="columnDOCTYPE_ID" msprop:Generator_ColumnPropNameInRow="DOCTYPE_ID" msprop:Generator_ColumnPropNameInTable="DOCTYPE_IDColumn" msprop:Generator_UserColumnName="DOCTYPE_ID" type="xs:int" />
<xs:element name="ENTITY_ID" msprop:Generator_ColumnVarNameInTable="columnENTITY_ID" msprop:Generator_ColumnPropNameInRow="ENTITY_ID" msprop:Generator_ColumnPropNameInTable="ENTITY_IDColumn" msprop:Generator_UserColumnName="ENTITY_ID" type="xs:int" />
<xs:element name="ENTITY_ID" msprop:Generator_ColumnVarNameInTable="columnENTITY_ID" msprop:Generator_ColumnPropNameInRow="ENTITY_ID" msprop:Generator_ColumnPropNameInTable="ENTITY_IDColumn" msprop:Generator_UserColumnName="ENTITY_ID" type="xs:int" default="0" />
<xs:element name="INDEXNAME" msprop:Generator_ColumnVarNameInTable="columnINDEXNAME" msprop:Generator_ColumnPropNameInRow="INDEXNAME" msprop:Generator_ColumnPropNameInTable="INDEXNAMEColumn" msprop:Generator_UserColumnName="INDEXNAME">
<xs:simpleType>
<xs:restriction base="xs:string">
@ -537,15 +533,15 @@ SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT,
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CONNECTION_ID" msprop:Generator_ColumnVarNameInTable="columnCONNECTION_ID" msprop:Generator_ColumnPropNameInRow="CONNECTION_ID" msprop:Generator_ColumnPropNameInTable="CONNECTION_IDColumn" msprop:Generator_UserColumnName="CONNECTION_ID" type="xs:short" />
<xs:element name="SQL_RESULT" msprop:Generator_ColumnVarNameInTable="columnSQL_RESULT" msprop:Generator_ColumnPropNameInRow="SQL_RESULT" msprop:Generator_ColumnPropNameInTable="SQL_RESULTColumn" msprop:Generator_UserColumnName="SQL_RESULT">
<xs:element name="CONNECTION_ID" msprop:Generator_ColumnVarNameInTable="columnCONNECTION_ID" msprop:Generator_ColumnPropNameInRow="CONNECTION_ID" msprop:Generator_ColumnPropNameInTable="CONNECTION_IDColumn" msprop:Generator_UserColumnName="CONNECTION_ID" type="xs:short" default="1" />
<xs:element name="SQL_RESULT" msprop:Generator_ColumnVarNameInTable="columnSQL_RESULT" msprop:Generator_ColumnPropNameInRow="SQL_RESULT" msprop:Generator_ColumnPropNameInTable="SQL_RESULTColumn" msprop:Generator_UserColumnName="SQL_RESULT" default="">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2000" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SQL_ACTIVE" msprop:Generator_ColumnVarNameInTable="columnSQL_ACTIVE" msprop:Generator_ColumnPropNameInRow="SQL_ACTIVE" msprop:Generator_ColumnPropNameInTable="SQL_ACTIVEColumn" msprop:Generator_UserColumnName="SQL_ACTIVE" type="xs:boolean" />
<xs:element name="SQL_ACTIVE" msprop:Generator_ColumnVarNameInTable="columnSQL_ACTIVE" msprop:Generator_ColumnPropNameInRow="SQL_ACTIVE" msprop:Generator_ColumnPropNameInTable="SQL_ACTIVEColumn" msprop:Generator_UserColumnName="SQL_ACTIVE" type="xs:boolean" default="false" />
<xs:element name="COMMENT" msprop:Generator_ColumnVarNameInTable="columnCOMMENT" msprop:Generator_ColumnPropNameInRow="COMMENT" msprop:Generator_ColumnPropNameInTable="COMMENTColumn" msprop:Generator_UserColumnName="COMMENT" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">

276
GUIs.ZooFlow/Globix/frmGlobixNameconvention.Designer.vb generated Normal file
View File

@ -0,0 +1,276 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmGlobixNameconvention
Inherits System.Windows.Forms.Form
'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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGlobixNameconvention))
Me.Label1 = New System.Windows.Forms.Label()
Me.txtnamenKonv = New System.Windows.Forms.TextBox()
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
Me.btnAddIndexA = New System.Windows.Forms.Button()
Me.btnAddIndexM = New System.Windows.Forms.Button()
Me.cmbIndex_A = New System.Windows.Forms.ComboBox()
Me.cmbIndex_m = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.btnAddDivers = New System.Windows.Forms.Button()
Me.cmbdivers = New System.Windows.Forms.ComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.btnAddDate = New System.Windows.Forms.Button()
Me.cmbDate = New System.Windows.Forms.ComboBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton()
Me.SimpleButton3 = New DevExpress.XtraEditors.SimpleButton()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(438, 51)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Definieren Sie hier die Namenskonvention zur ausgewählten Dokumentart." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sie haben" &
" die Möglichkeit den Dateinamen aus den unten aufgeführten" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Attributen und Textb" &
"austeinen zusammenzustellen."
'
'txtnamenKonv
'
Me.txtnamenKonv.Location = New System.Drawing.Point(15, 72)
Me.txtnamenKonv.Name = "txtnamenKonv"
Me.txtnamenKonv.Size = New System.Drawing.Size(499, 25)
Me.txtnamenKonv.TabIndex = 2
'
'SimpleButton1
'
Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton1.Appearance.Options.UseFont = True
Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton1.Location = New System.Drawing.Point(520, 72)
Me.SimpleButton1.Name = "SimpleButton1"
Me.SimpleButton1.Size = New System.Drawing.Size(41, 25)
Me.SimpleButton1.TabIndex = 4
'
'btnAddIndexA
'
Me.btnAddIndexA.Image = CType(resources.GetObject("btnAddIndexA.Image"), System.Drawing.Image)
Me.btnAddIndexA.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnAddIndexA.Location = New System.Drawing.Point(193, 168)
Me.btnAddIndexA.Name = "btnAddIndexA"
Me.btnAddIndexA.Size = New System.Drawing.Size(30, 23)
Me.btnAddIndexA.TabIndex = 5
Me.btnAddIndexA.UseVisualStyleBackColor = True
'
'btnAddIndexM
'
Me.btnAddIndexM.Image = CType(resources.GetObject("btnAddIndexM.Image"), System.Drawing.Image)
Me.btnAddIndexM.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnAddIndexM.Location = New System.Drawing.Point(193, 120)
Me.btnAddIndexM.Name = "btnAddIndexM"
Me.btnAddIndexM.Size = New System.Drawing.Size(30, 23)
Me.btnAddIndexM.TabIndex = 4
Me.btnAddIndexM.UseVisualStyleBackColor = True
'
'cmbIndex_A
'
Me.cmbIndex_A.DisplayMember = "INDEXNAME"
Me.cmbIndex_A.FormattingEnabled = True
Me.cmbIndex_A.Location = New System.Drawing.Point(15, 168)
Me.cmbIndex_A.Name = "cmbIndex_A"
Me.cmbIndex_A.Size = New System.Drawing.Size(172, 25)
Me.cmbIndex_A.TabIndex = 3
Me.cmbIndex_A.ValueMember = "GUID"
'
'cmbIndex_m
'
Me.cmbIndex_m.DisplayMember = "NAME"
Me.cmbIndex_m.FormattingEnabled = True
Me.cmbIndex_m.Location = New System.Drawing.Point(15, 120)
Me.cmbIndex_m.Name = "cmbIndex_m"
Me.cmbIndex_m.Size = New System.Drawing.Size(172, 25)
Me.cmbIndex_m.TabIndex = 2
Me.cmbIndex_m.ValueMember = "GUID"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label3.Location = New System.Drawing.Point(12, 148)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(129, 17)
Me.Label3.TabIndex = 1
Me.Label3.Text = "Automatischer Index:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label2.Location = New System.Drawing.Point(12, 100)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(104, 17)
Me.Label2.TabIndex = 0
Me.Label2.Text = "Manueller Index:"
'
'btnAddDivers
'
Me.btnAddDivers.Image = CType(resources.GetObject("btnAddDivers.Image"), System.Drawing.Image)
Me.btnAddDivers.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnAddDivers.Location = New System.Drawing.Point(193, 263)
Me.btnAddDivers.Name = "btnAddDivers"
Me.btnAddDivers.Size = New System.Drawing.Size(30, 23)
Me.btnAddDivers.TabIndex = 18
Me.btnAddDivers.UseVisualStyleBackColor = True
'
'cmbdivers
'
Me.cmbdivers.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.cmbdivers.FormattingEnabled = True
Me.cmbdivers.Items.AddRange(New Object() {"Username", "Usercode", "MACHINE", "DOMAIN"})
Me.cmbdivers.Location = New System.Drawing.Point(15, 265)
Me.cmbdivers.Name = "cmbdivers"
Me.cmbdivers.Size = New System.Drawing.Size(172, 23)
Me.cmbdivers.TabIndex = 17
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label4.Location = New System.Drawing.Point(12, 245)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(47, 17)
Me.Label4.TabIndex = 16
Me.Label4.Text = "Divers:"
'
'btnAddDate
'
Me.btnAddDate.Image = CType(resources.GetObject("btnAddDate.Image"), System.Drawing.Image)
Me.btnAddDate.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnAddDate.Location = New System.Drawing.Point(193, 214)
Me.btnAddDate.Name = "btnAddDate"
Me.btnAddDate.Size = New System.Drawing.Size(30, 23)
Me.btnAddDate.TabIndex = 15
Me.btnAddDate.UseVisualStyleBackColor = True
'
'cmbDate
'
Me.cmbDate.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.cmbDate.FormattingEnabled = True
Me.cmbDate.Items.AddRange(New Object() {"YY_MM_DD", "YYYY_MM_DD", "DD_MM_YY", "DD_MM_YYYY", "YYMMDD", "YYYYMMDD", "DDMMYY", "DDMMYYYY"})
Me.cmbDate.Location = New System.Drawing.Point(15, 216)
Me.cmbDate.Name = "cmbDate"
Me.cmbDate.Size = New System.Drawing.Size(172, 23)
Me.cmbDate.TabIndex = 14
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label20.Location = New System.Drawing.Point(12, 196)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(99, 17)
Me.Label20.TabIndex = 13
Me.Label20.Text = "Datum-Struktur:"
'
'Button2
'
Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image)
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Button2.Location = New System.Drawing.Point(351, 117)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(163, 29)
Me.Button2.TabIndex = 19
Me.Button2.Text = "OriginalName"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.UseVisualStyleBackColor = True
'
'SimpleButton2
'
Me.SimpleButton2.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton2.Location = New System.Drawing.Point(429, 254)
Me.SimpleButton2.Name = "SimpleButton2"
Me.SimpleButton2.Size = New System.Drawing.Size(123, 43)
Me.SimpleButton2.TabIndex = 22
Me.SimpleButton2.Text = "Übernehmen"
'
'SimpleButton3
'
Me.SimpleButton3.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButton3.Location = New System.Drawing.Point(325, 254)
Me.SimpleButton3.Name = "SimpleButton3"
Me.SimpleButton3.Size = New System.Drawing.Size(98, 43)
Me.SimpleButton3.TabIndex = 23
Me.SimpleButton3.Text = "Abbruch"
'
'frmGlobixNameconvention
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(572, 307)
Me.Controls.Add(Me.SimpleButton3)
Me.Controls.Add(Me.SimpleButton2)
Me.Controls.Add(Me.btnAddIndexA)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.btnAddIndexM)
Me.Controls.Add(Me.btnAddDivers)
Me.Controls.Add(Me.cmbIndex_A)
Me.Controls.Add(Me.cmbIndex_m)
Me.Controls.Add(Me.cmbdivers)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.btnAddDate)
Me.Controls.Add(Me.cmbDate)
Me.Controls.Add(Me.Label20)
Me.Controls.Add(Me.SimpleButton1)
Me.Controls.Add(Me.txtnamenKonv)
Me.Controls.Add(Me.Label1)
Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.Name = "frmGlobixNameconvention"
Me.Text = "Assistent zur Namenskonvention"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents txtnamenKonv As TextBox
Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents btnAddIndexA As Button
Friend WithEvents btnAddIndexM As Button
Friend WithEvents cmbIndex_A As ComboBox
Friend WithEvents cmbIndex_m As ComboBox
Friend WithEvents Label3 As Label
Friend WithEvents Label2 As Label
Friend WithEvents btnAddDivers As Button
Friend WithEvents cmbdivers As ComboBox
Friend WithEvents Label4 As Label
Friend WithEvents btnAddDate As Button
Friend WithEvents cmbDate As ComboBox
Friend WithEvents Label20 As Label
Friend WithEvents Button2 As Button
Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton
Friend WithEvents SimpleButton3 As DevExpress.XtraEditors.SimpleButton
End Class

219
GUIs.ZooFlow/Globix/frmGlobixNameconvention.resx Normal file
View File

@ -0,0 +1,219 @@
<?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="SimpleButton1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAD0DAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs
YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy
Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRGVsZXRlIj4N
CiAgICA8Zz4NCiAgICAgIDxwYXRoIGQ9Ik0xOC44LDE2bDYuOS02LjljMC40LTAuNCwwLjQtMSwwLTEu
NGwtMS40LTEuNGMtMC40LTAuNC0xLTAuNC0xLjQsMEwxNiwxMy4yTDkuMSw2LjNjLTAuNC0wLjQtMS0w
LjQtMS40LDAgICAgTDYuMyw3LjdjLTAuNCwwLjQtMC40LDEsMCwxLjRsNi45LDYuOWwtNi45LDYuOWMt
MC40LDAuNC0wLjQsMSwwLDEuNGwxLjQsMS40YzAuNCwwLjQsMSwwLjQsMS40LDBsNi45LTYuOWw2Ljks
Ni45ICAgIGMwLjQsMC40LDEsMC40LDEuNCwwbDEuNC0xLjRjMC40LTAuNCwwLjQtMSwwLTEuNEwxOC44
LDE2eiIgY2xhc3M9IlJlZCIgLz4NCiAgICA8L2c+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnAddIndexA.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnAddIndexM.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnAddDivers.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnAddDate.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="Button2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn
yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF
TkSuQmCC
</value>
</data>
<data name="SimpleButton2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOsCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl
Pg0KICA8ZyBpZD0iRXhwb3J0Ij4NCiAgICA8cGF0aCBkPSJNMTAsMTJINlY2aDRWMTJ6IE0yMiwxMnY2
djljMCwwLjYtMC40LDEtMSwxSDFjLTAuNiwwLTEtMC40LTEtMVY3YzAtMC42LDAuNC0xLDEtMWgzdjho
MTR2LTJIMjJ6IE0xOCwxOEg0ICAgdjZoMTRWMTh6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBvbHln
b24gcG9pbnRzPSIxNiwxMCAyNCwxMCAyNCwxNCAzMiw4IDI0LDIgMjQsNiAxNiw2ICAiIGNsYXNzPSJH
cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value>
</data>
<data name="SimpleButton3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoBAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJIZWFkZXJBbmRGb290ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dy
b3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDoj
RDExQzFDO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRINUM0LjUsNCw0LDQuNSw0LDV2MjJjMCww
LjUsMC41LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVY1QzI4LDQuNSwyNy41LDQsMjcsNHogTTIyLDIw
bC0yLDJsLTQtNGwtNCw0ICBsLTItMmw0LTRsLTQtNGwyLTJsNCw0bDQtNGwyLDJsLTQsNEwyMiwyMHoi
IGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L
</value>
</data>
</root>

85
GUIs.ZooFlow/Globix/frmGlobixNameconvention.vb Normal file
View File

@ -0,0 +1,85 @@
Public Class frmGlobixNameconvention
Public Property Nameconvention() As String
Get
Return txtnamenKonv.Text
End Get
Set(value As String)
txtnamenKonv.Text = value
End Set
End Property
Public Property DoctypeID As Integer
Private Sub InsertAtSelection(str As String)
Dim altePosition As Integer = txtnamenKonv.SelectionStart()
txtnamenKonv.Text = txtnamenKonv.Text.Insert(altePosition, str)
txtnamenKonv.SelectionStart = altePosition + str.Length
End Sub
Private Sub btnAddIndexM_Click(sender As Object, e As EventArgs) Handles btnAddIndexM.Click
If Not Me.cmbIndex_m.Text = "" Then
Dim text As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_MAN, cmbIndex_m.Text)
InsertAtSelection(text)
End If
End Sub
Private Sub btnAddIndexA_Click(sender As Object, e As EventArgs) Handles btnAddIndexA.Click
If Not Me.cmbIndex_A.Text = "" Then
Dim text As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_AUTO, cmbIndex_m.Text)
InsertAtSelection(text)
End If
End Sub
Private Sub frmGlobixNameconvention_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
Dim oSQL = $"SELECT * FROM TBDD_INDEX_MAN WHERE DOK_ID = {DoctypeID}"
Dim oDTMANINDEX As DataTable = My.DatabaseECM.GetDatatable(oSQL)
cmbIndex_m.DataSource = oDTMANINDEX
cmbIndex_m.DisplayMember = oDTMANINDEX.Columns("NAME").ColumnName
oSQL = $"SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = {DoctypeID}"
Dim oDTAUTOINDEX As DataTable = My.DatabaseECM.GetDatatable(oSQL)
If Not IsNothing(oDTAUTOINDEX) And oDTAUTOINDEX.Rows.Count > 0 Then
cmbIndex_A.DataSource = oDTAUTOINDEX
cmbIndex_A.DisplayMember = oDTMANINDEX.Columns("WD_INDEX").ColumnName
Else
cmbIndex_A.Enabled = False
btnAddIndexA.Enabled = False
End If
Catch ex As Exception
End Try
End Sub
Private Sub btnAddDate_Click(sender As Object, e As EventArgs) Handles btnAddDate.Click
If Not Me.cmbDate.Text = "" Then
'AREANLAGE-[%mARENR]-[%aKurzname]-I[%Version]
Dim text As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_INT, cmbDate.Text)
InsertAtSelection(text)
End If
End Sub
Private Sub btnAddDivers_Click(sender As Object, e As EventArgs) Handles btnAddDivers.Click
If Not Me.cmbdivers.Text = "" Then
Dim text As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_INT, cmbdivers.Text)
InsertAtSelection(text)
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim text As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_INT, "OFilename")
If Not txtnamenKonv.Text.Contains(text) Then
InsertAtSelection(text)
End If
End Sub
Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click
Me.Close()
End Sub
Private Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click
Me.Close()
End Sub
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
Me.txtnamenKonv.Text = String.Empty
End Sub
End Class

2
GUIs.ZooFlow/MyApplication.vb
View File

@ -39,8 +39,6 @@ Namespace My
Property Helpers As ClassHelpers
#End Region
Property Filestore_Work As String
Property Filestore_Archive As String
End Module
''' <summary>

28
GUIs.ZooFlow/ZooFlow.vbproj
View File

@ -171,6 +171,18 @@
<Compile Include="Administration\frmAdmin_IDBObjectStore.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Administration\frmAdmin_relations.Designer.vb">
<DependentUpon>frmAdmin_relations.vb</DependentUpon>
</Compile>
<Compile Include="Administration\frmAdmin_relations.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Administration\frmSQLDesigner.Designer.vb">
<DependentUpon>frmSQLDesigner.vb</DependentUpon>
</Compile>
<Compile Include="Administration\frmSQLDesigner.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Administration\IAdminForm.vb" />
<Compile Include="Administration\frmAdmin_Globix.Designer.vb">
<DependentUpon>frmAdmin_Globix.vb</DependentUpon>
@ -192,6 +204,7 @@
<Compile Include="ClipboardWatcher\Watcher.vb" />
<Compile Include="ClassCommandlineArgs.vb" />
<Compile Include="ClassDataASorDB.vb" />
<Compile Include="clsPatterns.vb" />
<Compile Include="DBCW_Stammdaten.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
@ -222,6 +235,12 @@
</Compile>
<Compile Include="Globix\ClassExclusions.vb" />
<Compile Include="ClassHelpers.vb" />
<Compile Include="Globix\frmGlobixNameconvention.Designer.vb">
<DependentUpon>frmGlobixNameconvention.vb</DependentUpon>
</Compile>
<Compile Include="Globix\frmGlobixNameconvention.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="modCurrent.vb" />
<Compile Include="MyDataset.Designer.vb">
<AutoGen>True</AutoGen>
@ -376,9 +395,15 @@
<EmbeddedResource Include="Administration\frmAdmin_IDBObjectStore.resx">
<DependentUpon>frmAdmin_IDBObjectStore.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Administration\frmAdmin_relations.resx">
<DependentUpon>frmAdmin_relations.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Administration\frmAdmin_SourceSQL.resx">
<DependentUpon>frmAdmin_SourceSQL.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Administration\frmSQLDesigner.resx">
<DependentUpon>frmSQLDesigner.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmServiceConfig.resx">
<DependentUpon>frmServiceConfig.vb</DependentUpon>
</EmbeddedResource>
@ -391,6 +416,9 @@
<EmbeddedResource Include="Globix\frmGlobixMissingInput.resx">
<DependentUpon>frmGlobixMissingInput.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Globix\frmGlobixNameconvention.resx">
<DependentUpon>frmGlobixNameconvention.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Search\frmFlowSearch.resx">
<DependentUpon>frmFlowSearch.vb</DependentUpon>
</EmbeddedResource>

483
GUIs.ZooFlow/clsPatterns.vb Normal file
View File

@ -0,0 +1,483 @@
Imports System.Text.RegularExpressions
Imports WINDREAMLib
Imports DigitalData.Controls.LookupGrid
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Columns
''' <summary>
''' Defines common Functions for Checking for and replacing placeholders.
''' This Class also includes a child class `Pattern` for passing around Patterns.
'''
''' The format of all placeholders is:
''' {#TYPE#VALUE}
'''
''' Some Examples:
''' {#INT#USERNAME}
''' {#CTRL#CMB_2}
''' {#WMI#String 39}
''' </summary>
Public Class clsPatterns
' Complex patterns that rely on a datasource like a Database or Windream
Public Const PATTERN_ZFATTRIBUTE = "ATTR"
Public Const PATTERN_ATTR_AUTO = "ATTR_A"
Public Const PATTERN_ATTR_MAN = "ATTR_M"
Public Const PATTERN_IDBA = "IDBA"
' Kinds of CTRL Placeholder
'
' Normal Control
' {#CTRL#ControlName}
'
' Summary Item from Table Column
' {#CTRL#ControlName::ColumnName}
Public Const PATTERN_CTRL = "CTRL"
' Simple patterns that only rely on .NET functions
Public Const PATTERN_INT = "INT"
' Simple patterns that rely on Data from the TBDD_USER table
Public Const PATTERN_USER = "USER"
Public Const USER_VALUE_PRENAME = "PRENAME"
Public Const USER_VALUE_SURNAME = "SURNAME"
Public Const USER_VALUE_EMAIL = "EMAIL"
Public Const USER_VALUE_SHORTNAME = "SHORTNAME"
Public Const USER_VALUE_LANGUAGE = "LANGUAGE"
Public Const USER_VALUE_USER_ID = "USER_ID"
Public Const VALUE_PROFILE_ID = "PROFILE_ID"
Public Const VALUE_PROFILE_TITLE = "PROFILE_TITLE"
Public Const INT_VALUE_USERNAME = "USERNAME"
Public Const INT_VALUE_MACHINE = "MACHINE"
Public Const INT_VALUE_DOMAIN = "DOMAIN"
Public Const INT_VALUE_DATE = "DATE"
Public Const MAX_TRY_COUNT = 50
''' <summary>
''' This value will be valid as any datatype,
''' and you can easily check against it
''' </summary>
Public Const ERROR_REPLACE_VALUE = "0"
Private Shared ReadOnly MyRegex As Regex = New Regex("{#(\w+)#([\:\.\w\s_-]+)}+")
Private Shared ReadOnly allPatterns As New List(Of String) From {PATTERN_ZFATTRIBUTE, PATTERN_ATTR_AUTO, PATTERN_ATTR_MAN, PATTERN_CTRL, PATTERN_IDBA, PATTERN_USER, PATTERN_INT}
Private Shared ReadOnly complexPatterns As New List(Of String) From {PATTERN_ZFATTRIBUTE, PATTERN_ATTR_AUTO, PATTERN_ATTR_MAN, PATTERN_CTRL, PATTERN_IDBA}
Private Shared ReadOnly simplePatterns As New List(Of String) From {PATTERN_USER, PATTERN_INT}
''' <summary>
''' Wraps a pattern-type and -value in the common format: {#type#value}
''' </summary>
Public Shared Function WrapPatternValue(type As String, value As String) As String
Return New Pattern(type, value).ToString
End Function
'Public Shared Function ReplaceAllValues(input As String, panel As Panel, is_SQL As Boolean) As String
' Try
' Dim result = input
' If Not HasAnyPatterns(result) Then
' Return result
' End If
' LOGGER.Debug($"input BEFORE replacing: [{result}]")
' result = ReplaceInternalValues(result)
' result = ReplaceControlValues(result, panel, is_SQL)
' If Not IsNothing(CURRENT_WMFILE) Then
' result = ReplaceWindreamIndicies(result, CURRENT_WMFILE, is_SQL)
' End If
' If IDB_ACTIVE = True Then
' result = ReplaceIDBAttributes(result, is_SQL)
' End If
' If Not IsNothing(result) Then
' result = ReplaceUserValues(result)
' LOGGER.Debug($"input AFTER replacing: [{result}]")
' End If
' Return result
' Catch ex As Exception
' LOGGER.Error(ex)
' LOGGER.Info("Error in ReplaceAllValues:" & ex.Message)
' Return input
' End Try
'End Function
Public Shared Function ReplaceInternalValues(pInput As String) As String
Dim oResult = pInput
Try
' Replace Username(s)
While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_USERNAME)
oResult = ReplacePattern(oResult, PATTERN_INT, My.Application.User.UserName)
End While
' Replace Machinename(s)
While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_MACHINE)
oResult = ReplacePattern(oResult, PATTERN_INT, Environment.MachineName)
End While
' Replace Domainname(s)
While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_DOMAIN)
oResult = ReplacePattern(oResult, PATTERN_INT, Environment.UserDomainName)
End While
' Replace CurrentDate(s)
While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_DATE)
oResult = ReplacePattern(oResult, PATTERN_INT, Now.ToShortDateString)
End While
Return oResult
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Error in ReplaceInternalValues:" & ex.Message)
Return oResult
End Try
End Function
Public Shared Function ReplaceUserValues(input As String) As String
Try
Dim result = input
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_PRENAME)
result = ReplacePattern(result, PATTERN_USER, My.Application.User.GivenName)
End While
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_USER_ID)
result = ReplacePattern(result, PATTERN_USER, My.Application.User.UserId)
End While
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SURNAME)
result = ReplacePattern(result, PATTERN_USER, My.Application.User.Surname)
End While
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SHORTNAME)
result = ReplacePattern(result, PATTERN_USER, My.Application.User.ShortName)
End While
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_LANGUAGE)
result = ReplacePattern(result, PATTERN_USER, My.Application.User.Language)
End While
While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_EMAIL)
result = ReplacePattern(result, PATTERN_USER, My.Application.User.Email)
End While
Return result
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Error in ReplaceUserValues:" & ex.Message)
End Try
End Function
Public Shared Function ReplaceControlValues(pInput As String, oPanel As Panel, oIsSQL As Boolean) As String
Dim oResult = pInput
Try
Dim oTryCounter = 0
While ContainsPattern(oResult, PATTERN_CTRL)
If oTryCounter > MAX_TRY_COUNT Then
LOGGER.Warn($"Max tries in ReplaceControlValues exceeded - Replacing with [0]")
oResult = ReplacePattern(oResult, PATTERN_CTRL, 0)
Throw New Exception($"Max tries in ReplaceControlValues exceeded - Result so far [{oResult}].")
End If
Dim oControlName As String = GetNextPattern(oResult, PATTERN_CTRL).Value
Dim oColumnName As String = String.Empty
If oControlName.Contains("::") Then
Dim oSplitName = Split(oControlName, "::").ToList()
oControlName = oSplitName.First()
oColumnName = oSplitName.Last()
End If
LOGGER.Debug("Found placeholder for control [{0}].", oControlName)
Dim oControl As Control = oPanel.Controls.Find(oControlName, False).FirstOrDefault()
If oControl IsNot Nothing Then
Dim oReplaceValue As String
Select Case oControl.GetType
Case GetType(TextBox)
oReplaceValue = oControl.Text
Case GetType(LookupControl3)
Dim oLookupControl3 As LookupControl3 = oControl
If oLookupControl3.Properties.SelectedValues.Count = 1 Then
oReplaceValue = oLookupControl3.Properties.SelectedValues.Item(0)
Else
oReplaceValue = ERROR_REPLACE_VALUE
End If
Case GetType(ComboBox)
oReplaceValue = oControl.Text
Case GetType(CheckBox)
Dim oCheckBox As CheckBox = oControl
oReplaceValue = oCheckBox.Checked
Case GetType(GridControl)
Dim oGrid As GridControl = oControl
Dim oView As GridView = oGrid.FocusedView
If oColumnName = String.Empty Then
LOGGER.Warn("Used placeholder for Table [{0}] but without Column Name!", oControlName)
oReplaceValue = ERROR_REPLACE_VALUE
End If
Dim oColumn As GridColumn = oView.Columns.
Where(Function(c) c.FieldName = oColumnName).
SingleOrDefault()
If oColumn?.SummaryItem?.SummaryValue Is Nothing Then
LOGGER.Warn("Column [{0}] not found in Grid!", oColumnName)
oReplaceValue = ERROR_REPLACE_VALUE
Else
oReplaceValue = oColumn.SummaryItem.SummaryValue
End If
Case Else
oReplaceValue = ERROR_REPLACE_VALUE
End Select
If oIsSQL = True Then
'LOGGER.Debug($"IS_SQL = True - oReplaceValue = {oReplaceValue}")
'LOGGER.Debug($"oReplaceValue = {oReplaceValue}")
oReplaceValue = oReplaceValue.Replace("'", "''")
End If
oResult = ReplacePattern(oResult, PATTERN_CTRL, oReplaceValue)
End If
oTryCounter += 1
End While
Return oResult
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Warn("Error in ReplaceControlValues:" & ex.Message)
Return oResult
End Try
End Function
Public Shared Function ReplaceAttributes(pInput As String, pIDBOBJ_ID As Long, pIsSQL As Boolean) As String
Try
Dim oResult = pInput
Dim oTryCounter As Integer = 0
While ContainsPattern(oResult, PATTERN_ZFATTRIBUTE)
Dim oIndexName As String = GetNextPattern(oResult, PATTERN_ZFATTRIBUTE).Value
Dim oValue As String '= pDocument.GetVariableValue(oIndexName)
If IsNothing(oValue) And oTryCounter = MAX_TRY_COUNT Then
Throw New Exception("Max tries in ReplaceWindreamIndicies exceeded.")
End If
If oValue IsNot Nothing Then
If pIsSQL = True Then
LOGGER.Debug($"IS_SQL = True - oReplaceValue = {oValue}")
oValue = oValue.ToString().Replace("'", "''")
LOGGER.Debug($"oReplaceValue = {oValue}")
End If
oResult = ReplacePattern(oResult, PATTERN_ZFATTRIBUTE, oValue)
End If
' Increase counter by 10 to avoid DDOSing the Windream Service
oTryCounter += 10
End While
Return oResult
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Error in ReplaceWindreamIndicies:" & ex.Message)
Return pInput
End Try
End Function
'Public Shared Function ReplaceIDBAttributes(input As String, IS_SQL As Boolean) As String
' Try
' Dim result = input
' Dim oTryCounter As Integer = 0
' While ContainsPattern(result, PATTERN_IDBA)
' Dim indexName As String = GetNextPattern(result, PATTERN_IDBA).Value
' Dim oIDBValue
' If indexName = "ObjectID" Then
' oIDBValue = CURRENT_DOC_ID
' ElseIf indexName = "OBJID" Then
' oIDBValue = CURRENT_DOC_ID
' ElseIf indexName = "DocID" Then
' oIDBValue = CURRENT_DOC_ID
' Else
' oIDBValue = IDBData.GetVariableValue(indexName)
' End If
' If IsNothing(oIDBValue) And oTryCounter = MAX_TRY_COUNT Then
' LOGGER.Warn($"Max tries for [{indexName}] in ReplaceIDBAttributes exceeded - Replacing with [0]!")
' Dim oReplaceValue = "{" + $"#{PATTERN_IDBA}#{indexName}" + "}"
' result = result.Replace(oReplaceValue, 0)
' Throw New Exception("Max tries in ReplaceIDBAttributes exceeded.")
' End If
' If oIDBValue IsNot Nothing Or Not IsDBNull(oIDBValue) Then
' Dim oReplaceValue = "{" + $"#{PATTERN_IDBA}#{indexName}" + "}"
' If IS_SQL = True Then
' LOGGER.Debug($"IS_SQL = True - oReplaceValue = [{oReplaceValue}]")
' If indexName <> "ObjectID" And indexName <> "OBJID" And indexName <> "DocID" Then
' Try
' oIDBValue = oIDBValue.Replace("'", "''")
' Catch ex As Exception
' LOGGER.Warn($"Invalid IDBValue for [{indexName}] in ReplaceIDBAttributes [{ex.Message}] - Replacing with [0]!")
' oIDBValue = 0
' End Try
' End If
' LOGGER.Debug($"oIDBValue = {oIDBValue}")
' End If
' result = result.Replace(oReplaceValue, oIDBValue)
' Else
' LOGGER.Warn($"IDBValue for [{indexName}] in ReplaceIDBAttributes is nothing or dbnull - Replacing with [0]!")
' Dim oReplaceValue = "{" + $"#{PATTERN_IDBA}#{indexName}" + "}"
' result = result.Replace(oReplaceValue, 0)
' End If
' ' Increase counter by 10 to avoid DDOSing the Database/IDB Service
' oTryCounter += 10
' End While
' LOGGER.Debug("sql after ReplaceIDBAttributes: " & input)
' Return result
' Catch ex As Exception
' LOGGER.Error(ex)
' LOGGER.Info("Error in ReplaceIDBAttributes:" & ex.Message)
' End Try
'End Function
Private Shared Function ContainsPattern(input As String, type As String) As String
Dim elements As MatchCollection = MyRegex.Matches(input)
For Each element As Match In elements
Dim t As String = element.Groups(1).Value
If t = type Then
Return True
End If
Next
Return False
End Function
Public Shared Function GetNextPattern(input As String, type As String) As Pattern
Dim elements As MatchCollection = MyRegex.Matches(input)
For Each element As Match In elements
' Pattern in pInput
Dim t As String = element.Groups(1).Value
Dim v As String = element.Groups(2).Value
If t = type Then
Return New Pattern(t, v)
End If
Next
Return Nothing
End Function
Public Shared Function GetAllPatterns(input As String) As List(Of Pattern)
Dim elements As MatchCollection = MyRegex.Matches(input)
Dim results As New List(Of Pattern)
For Each element As Match In elements
' Pattern in pInput
Dim t As String = element.Groups(1).Value
Dim v As String = element.Groups(2).Value
results.Add(New Pattern(t, v))
Next
Return results
End Function
Public Shared Function ReplacePattern(input As String, type As String, replacement As String) As String
Dim elements As MatchCollection = MyRegex.Matches(input)
If IsNothing(replacement) Then
Return input
End If
For Each element As Match In elements
' if group 1 contains the 'pattern' the replace whole group with 'replacement'
' and return it
If element.Groups(1).Value = type Then
Return Regex.Replace(input, element.Groups(0).Value, replacement)
End If
Next
' no replacement made
Return input
End Function
Private Shared Function ContainsPatternAndValue(input As String, type As String, value As String) As Boolean
Dim elements As MatchCollection = MyRegex.Matches(input)
For Each element As Match In elements
' Pattern in pInput
Dim t As String = element.Groups(1).Value
Dim v As String = element.Groups(2).Value
If t = type And v = value Then
Return True
End If
Next
Return False
End Function
Public Shared Function HasAnyPatterns(input) As Boolean
Return allPatterns.Any(Function(p)
Return HasPattern(input, p)
End Function)
End Function
Public Shared Function HasOnlySimplePatterns(input As String) As Boolean
Return Not HasComplexPatterns(input)
End Function
Public Shared Function HasComplexPatterns(input As String) As Boolean
Return complexPatterns.Any(Function(p)
Return HasPattern(input, p)
End Function)
End Function
Public Shared Function HasPattern(input As String, type As String) As Boolean
Dim matches = MyRegex.Matches(input)
For Each match As Match In matches
For Each group As Group In match.Groups
If group.Value = type Then
Return True
End If
Next
Next
Return False
End Function
Public Class Pattern
Public ReadOnly Property Type As String
Public ReadOnly Property Value As String
Public Sub New(type As String, value As String)
Me.Type = type
Me.Value = value
End Sub
Public Sub New(stringRepresentation As String)
Dim elements As MatchCollection = MyRegex.Matches(stringRepresentation)
Dim first As Match = elements.Item(0)
Dim t As String = first.Groups(1).Value
Dim v As String = first.Groups(2).Value
Type = t
Value = v
End Sub
Public Overrides Function ToString() As String
Return $"{{#{Type}#{Value}}}"
End Function
End Class
End Class

5
GUIs.ZooFlow/modCurrent.vb
View File

@ -1,6 +1,11 @@
Imports DigitalData.Modules.EDMI.API
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Config
Module modCurrent
Public Property LOGGER As Logger
Public Property CONFIG As ConfigManager(Of ClassConfig)
Public Property ADDITIONAL_TITLE As String
Public Property DT_CONNECTIONS As DataTable
Public Property CURR_MISSING_PATTERN_NAME = "Email To"

4
Modules.Database/Adapters/MSSQLServer.vb
View File

@ -338,7 +338,7 @@ Public Class MSSQLServer
Return oTable
End Function
<DebuggerStepThrough()>
'<DebuggerStepThrough()>
Public Function ExecuteNonQuery(SQLCommand As String) As Boolean Implements IDatabase.ExecuteNonQuery
Using oConnection = GetSQLConnection()
Return ExecuteNonQueryWithConnectionObject(SQLCommand, oConnection, TransactionMode.WithTransaction, Nothing, _Timeout)
@ -371,7 +371,7 @@ Public Class MSSQLServer
End Using
End Function
<DebuggerStepThrough()>
'<DebuggerStepThrough()>
Public Function ExecuteNonQueryWithConnectionObject(SqlCommand As String, SqlConnection As SqlConnection,
Optional TransactionMode As TransactionMode = TransactionMode.WithTransaction,
Optional Transaction As SqlTransaction = Nothing,