diff --git a/GUIs.ZooFlow/Administration/ClassConstants.vb b/GUIs.ZooFlow/Administration/ClassConstants.vb new file mode 100644 index 0000000..6b460ae --- /dev/null +++ b/GUIs.ZooFlow/Administration/ClassConstants.vb @@ -0,0 +1,33 @@ +Namespace Administration + Public Class ClassConstants + Public Const MODULE_IDB = "IDB" + Public Const PAGE_IDB_ATTRIBUTES = "IDB_ATTRIBUTES" + Public Const PAGE_IDB_ATTRIBUTE_REL = "ATTRIBUTE_RELATIONS" + Public Const PAGE_IDB_BUSINESS_ENTITIES = "IDB_BUSINESS_ENTITIES" + Public Const PAGE_IDB_SOURCE_SQL = "IDB_SOURCE_SQL" + Public Const PAGE_IDB_OBJECT_STORES = "IDB_OBJECT_STORES" + Public Const PAGE_IDB_DOCTYPE_CONFIG = "IDB_DOCTYPE_CONFIG" + Public Const PAGE_IDB_DOCTYPE = "DOCTYPE_DEF" + Public Const PAGE_IDB_DOCTYPE_BE = "DOCTYPE_BE" + + Public Const MODULE_GI = "GLOBIX" + Public Const PAGE_GI_PROFILES = "GI_PROFILES" + Public Const PAGE_GI_RELATIONS = "GI_RELATIONS" + + Public Const MODULE_CW = "CW" + Public Const PAGE_CW_PROFILES = "CW_PROFILES" + + Public Const MODULE_META = "META" + Public Const PAGE_META_SOURCE_SQL = "META_SOURCE_SQL" + + Public Const MODULE_USERS = "USERS" + Public Const PAGE_USERS_USERLIST = "USERS_USERLIST" + Public Const PAGE_USERS_GROUPLIST = "USERS_GROUPLIST" + Public Const PAGE_USERS_MODULELIST = "USERS_MODULELIST" + Public Const PAGE_USERS_USER_GROUP_RELATIONS = "USERS_USER_GROUP_RELATIONS" + Public Const PAGE_IDB_COMMON_SQL = "TBDIB_COMMON_SQL" + Public Const COLUMN_NAME_ACTIVE = "ACTIVE" + + + End Class +End Namespace \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/ClassDetailForm.vb b/GUIs.ZooFlow/Administration/ClassDetailForm.vb new file mode 100644 index 0000000..9149c79 --- /dev/null +++ b/GUIs.ZooFlow/Administration/ClassDetailForm.vb @@ -0,0 +1,237 @@ +Imports DigitalData.GUIs.ZooFlow.Administration.ClassConstants +Imports DigitalData.Modules.Base +Imports DigitalData.Modules.Language +Imports DigitalData.Modules.Logging + +Public Class ClassDetailForm + Inherits BaseClass + + Public Event DetailFormClosed As EventHandler(Of Form) + + Public ReadOnly Property DetailDataList As New Dictionary(Of String, DetailData) + Public ReadOnly Property DetailSettingsList As New Dictionary(Of String, DetailSettings) From { + {PAGE_IDB_ATTRIBUTES, New DetailSettings With { + .GridTitle = "Attribute", ' This will be shown above the Data Grid + .NewRecordTitle = "New Attribute", ' This will be shown on the "New" Button + .[Module] = MODULE_IDB, + .Entity = PAGE_IDB_ATTRIBUTES ' This Key will be matched with the Entity Id from the Database + }}, + {PAGE_IDB_BUSINESS_ENTITIES, New DetailSettings With { + .GridTitle = "BusinessEntity", + .NewRecordTitle = "New BusinessEntity", + .[Module] = MODULE_IDB, + .Entity = PAGE_IDB_BUSINESS_ENTITIES + }}, + {PAGE_IDB_OBJECT_STORES, New DetailSettings With { + .GridTitle = "Object-Stores", + .NewRecordTitle = "New Object Store", + .[Module] = MODULE_IDB, + .Entity = PAGE_IDB_OBJECT_STORES + }}, + {PAGE_META_SOURCE_SQL, New DetailSettings With { + .GridTitle = "Source SQL", + .NewRecordTitle = "New Source SQL", + .[Module] = MODULE_META, + .Entity = PAGE_META_SOURCE_SQL + }}, + {PAGE_GI_PROFILES, New DetailSettings With { + .GridTitle = "Global Indexer Profile", + .NewRecordTitle = "New Globix profile", + .[Module] = MODULE_GI, + .Entity = PAGE_GI_PROFILES + }}, + {PAGE_CW_PROFILES, New DetailSettings With { + .GridTitle = "Clipboard Watcher Profile", + .NewRecordTitle = "New Clipwatcher profile", + .[Module] = MODULE_CW, + .Entity = PAGE_CW_PROFILES + }}, + {PAGE_IDB_ATTRIBUTE_REL, New DetailSettings With { + .GridTitle = "Attribute-Relations", + .[Module] = MODULE_IDB, + .Entity = PAGE_IDB_ATTRIBUTES, + .IsRelationPage = True + }}, + {PAGE_GI_RELATIONS, New DetailSettings With { + .GridTitle = "Globix profile-relations", + .[Module] = MODULE_GI, + .Entity = PAGE_GI_RELATIONS, + .IsRelationPage = True + }}, + {PAGE_IDB_DOCTYPE_CONFIG, New DetailSettings With { + .GridTitle = "Detail Doctype Configuration", + .NewRecordTitle = "New Configuration", + .[Module] = MODULE_IDB, + .Entity = PAGE_IDB_DOCTYPE_CONFIG + }}, + {PAGE_IDB_DOCTYPE, New DetailSettings With { + .GridTitle = "Doctype Configuration", + .[Module] = MODULE_IDB, + .Entity = PAGE_IDB_DOCTYPE + }}, + {PAGE_IDB_DOCTYPE_BE, New DetailSettings With { + .GridTitle = "Doctype BE Relations", + .[Module] = MODULE_IDB, + .Entity = PAGE_IDB_DOCTYPE_BE, + .IsRelationPage = True + }}, + {PAGE_USERS_USERLIST, New DetailSettings With { + .GridTitle = "User Overview", + .NewRecordTitle = "New User", + .[Module] = MODULE_USERS, + .Entity = PAGE_USERS_USERLIST + }}, + {PAGE_USERS_GROUPLIST, New DetailSettings With { + .GridTitle = "Group Overview", + .NewRecordTitle = "New Group", + .[Module] = MODULE_USERS, + .Entity = PAGE_USERS_GROUPLIST + }}, + {PAGE_USERS_USER_GROUP_RELATIONS, New DetailSettings With { + .GridTitle = "User Group Relations", + .[Module] = MODULE_USERS, + .Entity = PAGE_USERS_USER_GROUP_RELATIONS, + .IsRelationPage = True + }}, + {PAGE_IDB_COMMON_SQL, New DetailSettings With { + .GridTitle = "IDB Common SQLs", + .[Module] = MODULE_USERS, + .Entity = PAGE_IDB_COMMON_SQL + }} + } + + Public Sub New(LogConfig As LogConfig) + MyBase.New(LogConfig) + End Sub + + Public Function Handle_OpenDetail(PrimaryKey As Integer, Page As String, IsInsert As Boolean) As Boolean + Try + Dim oForm As Form = Nothing + + Select Case Page + Case PAGE_IDB_ATTRIBUTES + oForm = New frmAdmin_IDBAttribute(PrimaryKey) With {.IsInsert = IsInsert} + + Case PAGE_IDB_BUSINESS_ENTITIES + oForm = New frmAdmin_IDBEntity(PrimaryKey) With {.IsInsert = IsInsert} + + Case PAGE_IDB_OBJECT_STORES + oForm = New frmAdmin_IDBObjectStore(PrimaryKey) With {.IsInsert = IsInsert} + + Case PAGE_CW_PROFILES + oForm = New frmAdmin_ClipboardWatcher(PrimaryKey) With {.IsInsert = IsInsert} + + Case PAGE_GI_PROFILES + GLOBIX_JUMP_DOCTYPE_ID = PrimaryKey + oForm = New frmAdmin_Globix(PrimaryKey) With {.IsInsert = IsInsert} + + Case PAGE_META_SOURCE_SQL + oForm = New frmAdmin_SourceSQL(PrimaryKey) With {.IsInsert = IsInsert} + + Case PAGE_IDB_ATTRIBUTE_REL + oForm = New frmAdmin_IDBBERelations + + Case PAGE_GI_RELATIONS + oForm = New frmAdmin_GlobixRelations + + Case PAGE_IDB_DOCTYPE_CONFIG + oForm = New frmAdmin_DoctypeConfig(PrimaryKey) With {.IsInsert = IsInsert} + + Case PAGE_IDB_DOCTYPE + oForm = New frmAdmin_Doctype(0) + + Case PAGE_IDB_DOCTYPE_BE + oForm = New frmAdmin_DoctypeBE() + + Case PAGE_USERS_USERLIST + oForm = New frmAdmin_User(PrimaryKey) With {.IsInsert = IsInsert} + + Case PAGE_USERS_USER_GROUP_RELATIONS + oForm = New frmAdmin_UserGroupRelations(PrimaryKey) With {.IsInsert = IsInsert} + Case PAGE_IDB_COMMON_SQL + oForm = New frmIDBCommonSQL + End Select + + ' If the selected form was valid, open it + ' and then raise the form closed event for it + If oForm IsNot Nothing Then + oForm.ShowDialog() + RaiseEvent DetailFormClosed(Me, oForm) + Return True + Else + Return False + End If + + Catch ex As Exception + Throw ex + End Try + + End Function + + Public Function LoadData() As Boolean + Try + Dim oTable As DataTable = My.DatabaseECM.GetDatatable("SELECT * FROM TBZF_ADMIN_SOURCE_SQL WHERE SCOPE = 'OVERVIEW' ORDER BY GUID") + DetailDataList.Clear() + + For Each oRow As DataRow In oTable.Rows + Dim oCHeck = oRow.Item("ENTITY_TITLE").ToString + Dim oItem As New ClassDetailForm.DetailData With { + .Guid = CInt(oRow.Item("GUID")), + .ParentId = CInt(oRow.Item("PARENT_ID")), + .Entity = oRow.Item("ENTITY_TITLE").ToString, + .Scope = oRow.Item("SCOPE").ToString, + .SQLCommand = oRow.Item("SQL_COMMAND").ToString.Replace("@LANG_CODE", My.Application.User.Language), + .PrimaryKey = Utils.NotNull(oRow.Item("PK_COLUMN"), String.Empty) + } + + Try + oItem.SQLResult = My.DatabaseECM.GetDatatable(oItem.SQLCommand) + Catch ex As Exception + oItem.SQLResult = Nothing + Logger.Error(ex) + End Try + + Dim oKey As String = oItem.Entity & "-" & oItem.Scope + DetailDataList.Add(oKey, oItem) + Next + + Return True + + Catch ex As Exception + Logger.Error(ex) + Return False + + End Try + End Function + + Public Function TestPageIsRelation(pPageName As String) As Boolean + Return DetailSettingsList.Any(Function(page) page.Key = pPageName And page.Value.IsRelationPage = True) + End Function + + Public Class DetailSettings + Public Property GridTitle As String + Public Property [Module] As String + Public Property Entity As String + + ''' + ''' This makes sure that the page can be opened even if there are no entries + ''' + ''' + Public Property IsRelationPage As Boolean = False + + ''' + ''' If this is empty, the button "New Record will be hidden" + ''' + Public Property NewRecordTitle As String = "" + End Class + + Public Class DetailData + Public Property Guid As Integer + Public Property ParentId As Integer + Public Property Entity As String + Public Property Scope As String + Public Property PrimaryKey As String + Public Property SQLCommand As String + Public Property SQLResult As DataTable + End Class +End Class diff --git a/GUIs.ZooFlow/Administration/ClassDetailPage.vb b/GUIs.ZooFlow/Administration/ClassDetailPage.vb new file mode 100644 index 0000000..c3e8cf5 --- /dev/null +++ b/GUIs.ZooFlow/Administration/ClassDetailPage.vb @@ -0,0 +1,367 @@ +Imports System.ComponentModel +Imports DevExpress.XtraEditors +Imports DevExpress.XtraEditors.Controls +Imports DevExpress.XtraLayout +Imports DevExpress.XtraTab +Imports DigitalData.Modules.Language.Utils +Imports DigitalData.Modules.Logging + +''' +''' +''' +Public Class ClassDetailPageManager + Private ReadOnly LogConfig As LogConfig + Private ReadOnly Logger As Logger + Private ReadOnly HostForm As IAdminForm + + Public Items As New Dictionary(Of String, DetailPage) + + Public Event AnyControl_Focus As EventHandler(Of DetailPageEventArgs) + Public Event AnyControl_Changed As EventHandler(Of DetailPageEventArgs) + Public Event CurrentPage_Changed As EventHandler(Of DetailPageEventArgs) + + Private RaiseChangedEvents As Boolean = True + Private CurrentPage As DetailPage + + Public Property Current As DetailPage + Get + Return CurrentPage + End Get + Set(value As DetailPage) + CurrentPage = value + + RaiseEvent CurrentPage_Changed(Me, New DetailPageEventArgs With {.Page = CurrentPage}) + End Set + End Property + + Public Class DetailPageEventArgs + Public Property Page As DetailPage + End Class + + ''' + ''' An object representing a section of a form to edit an entity, ex. a user + ''' + ''' A Page to edit would be called the user page. + Public Class DetailPage + ''' + ''' Is this the primary entity to be edited in this form? + ''' + Public Property IsPrimary As Boolean = False + + ''' + ''' Is this an insert of a new object? + ''' + ''' + Public Property IsInsert As Boolean = False + + ''' + ''' The tab page containing the page. This can be left empty + ''' + Public Property TabPage As XtraTabPage = Nothing + + ''' + ''' The Name of the Page which the user will see + ''' + Public Property Name As String + + ''' + ''' The Binding Source for the Page + ''' + Public Property BindingSource As BindingSource + + ''' + ''' The Bound Datatable in the Dataset (eg. MyDataset.TB_FOO_TABLE) + ''' + Public Property DataTable As DataTable + + ''' + ''' The TextEdit Control containing the AddedWho value + ''' + Public Property AddedWhoEdit As TextEdit + + ''' + ''' The TextEdit Control containing the ChangedWhoEdit value + ''' + Public Property ChangedWhoEdit As TextEdit + End Class + + ''' + ''' Detail page which represents the primary page of a form + ''' + Public Class PrimaryPage + Inherits DetailPage + + Public Sub New(Insert As Boolean) + IsInsert = Insert + IsPrimary = True + End Sub + End Class + + Public Class ComboBoxItem + Public Property Text + Public Property Value + + Public Overrides Function ToString() As String + Return Text + End Function + End Class + + Public Sub New(LogConfig As LogConfig, Form As IAdminForm, LayoutControls As List(Of LayoutControl)) + Me.LogConfig = LogConfig + Logger = LogConfig.GetLogger() + HostForm = Form + + For Each oLayoutControl In LayoutControls + AddHandler oLayoutControl.Click, AddressOf Handle_Focus + AddHandler oLayoutControl.GotFocus, AddressOf Handle_Focus + + For Each oContainer As BaseLayoutItem In oLayoutControl.Root.Items + Dim oItem As LayoutControlItem + + If TypeOf oContainer IsNot LayoutControlItem Then + Continue For + End If + + oItem = oContainer + + If TypeOf oItem Is EmptySpaceItem Then + Continue For + End If + + If TypeOf oItem.Control IsNot BaseEdit Then + Continue For + End If + + Dim oControl As BaseEdit = oItem.Control + AddHandler oControl.GotFocus, AddressOf Handle_Focus + AddHandler oControl.EditValueChanged, AddressOf Handle_EditValueChanged + AddHandler oControl.Validating, AddressOf Handle_Validating + Next + + 'For Each oContainer As LayoutControlItem In oLayoutControl.Root.Items + ' If TypeOf oContainer Is EmptySpaceItem Then + ' Continue For + ' End If + + ' If TypeOf oContainer.Control IsNot BaseEdit Then + ' Continue For + ' End If + + ' Dim oControl As BaseEdit = oContainer.Control + ' AddHandler oControl.GotFocus, AddressOf Handle_Focus + ' AddHandler oControl.EditValueChanged, AddressOf Handle_EditValueChanged + ' AddHandler oControl.Validating, AddressOf Handle_Validating + 'Next + Next + End Sub + + ''' + ''' Add a new DetailPage or a new PrimaryPage + ''' + Public Sub Add(Page As DetailPage) + If Page.TabPage Is Nothing Then + Items.Add("Primary", Page) + Else + Items.Add(Page.TabPage.Name, Page) + End If + + AddHandler Page.BindingSource.AddingNew, Sub(sender As Object, e As EventArgs) + RaiseChangedEvents = False + Page.AddedWhoEdit.EditValue = Environment.UserName + RaiseChangedEvents = True + End Sub + End Sub + + ''' + ''' Add a list of new DetailPages or new PrimaryPages + ''' + Public Sub AddRange(ParamArray Pages As DetailPage()) + For Each oPage In Pages + Add(oPage) + Next + End Sub + + ''' + ''' Get the DetailPage which uses the given `TabPage` + ''' + Public Function GetDetailPage(TabPage As XtraTabPage) As DetailPage + Try + Dim oItem = Items. + Where(Function(Item) TabPage.Equals(Item.Value.TabPage)). + FirstOrDefault() + + Return oItem.Value + Catch ex As Exception + Return Nothing + End Try + End Function + + Public Function PrepareLoad() As Boolean + Dim oItem = Items. + Where(Function(Item) Item.Value.IsPrimary). + FirstOrDefault() + + Dim oPage = oItem.Value + If oPage Is Nothing Then + Return False + End If + + If oPage.IsInsert Then + RaiseChangedEvents = False + oPage.BindingSource.AddNew() + RaiseChangedEvents = True + End If + + CurrentPage = oPage + + Return True + End Function + + ''' + ''' Saves the pending changes to the binding source + ''' + ''' True, if changes were made, otherwise False + Public Function PrepareSave() As Boolean + Dim oPage = CurrentPage + + If oPage Is Nothing Then + Return False + End If + + Try + oPage.BindingSource.EndEdit() + + If oPage.DataTable.GetChanges() IsNot Nothing Then + RaiseChangedEvents = False + HostForm.HasChanges = True + + If oPage.IsInsert Then + oPage.AddedWhoEdit.EditValue = My.Application.User.UserName + Else + oPage.ChangedWhoEdit.EditValue = My.Application.User.UserName + End If + + RaiseChangedEvents = True + + oPage.BindingSource.EndEdit() + Return True + Else + Return False + End If + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + + Private Sub Handle_Validating(sender As Object, e As BaseEditValidatingEventArgs) + Dim oControl As BaseEdit = sender + Dim oColumn As DataColumn = Get_DataColumnFromBaseEdit(oControl) + + If oColumn IsNot Nothing Then + Dim oNullable As Boolean = oColumn.AllowDBNull + + If oNullable = False Then + If TypeOf oControl Is ComboBoxEdit AndAlso DirectCast(oControl, ComboBoxEdit).SelectedIndex = -1 Then + e.ErrorText = "Please select a value from the list." + e.Cancel = True + + ElseIf NotNull(oControl.EditValue.ToString, String.Empty) = String.Empty Then + e.ErrorText = "Please input a value" + e.Cancel = True + + End If + End If + End If + End Sub + + Private Function Get_DataColumnFromBaseEdit(Control As BaseEdit) As DataColumn + Dim oBinding As Binding = Control.DataBindings.Item("EditValue") + + If Control.DataBindings.Count = 0 OrElse oBinding Is Nothing Then + Return Nothing + End If + + If oBinding.DataSource Is Nothing Then + Return Nothing + End If + + If TypeOf oBinding.DataSource IsNot BindingSource Then + Return Nothing + End If + + Try + Dim oSource As BindingSource = oBinding.DataSource + Dim oTableName As String = oSource.DataMember + Dim oDataSet As DataSet = oSource.DataSource + Dim oTable = oDataSet.Tables(oTableName) + Dim oColumnName As String = oBinding.BindingMemberInfo.BindingField + Dim oColumn As DataColumn = oTable.Columns.Item(oColumnName) + + Return oColumn + Catch ex As Exception + Logger.Error(ex) + Return Nothing + End Try + End Function + + Private Sub Handle_Focus(sender As Control, e As EventArgs) + Dim oControl As Control = sender + Dim oLayoutControl As LayoutControl = Nothing + + ' Get the Layout Control containing the Edit Contol + If TypeOf oControl.Parent Is LayoutControl Then + oLayoutControl = oControl.Parent + ElseIf TypeOf oControl Is LayoutControl Then + oLayoutControl = oControl + End If + + If oLayoutControl Is Nothing Then + Exit Sub + End If + + If TypeOf oLayoutControl.Parent Is XtraTabPage Then + Dim oTabPage As XtraTabPage = oLayoutControl.Parent + + If Items.ContainsKey(oTabPage.Name) Then + CurrentPage = Items.Item(oTabPage.Name) + + Dim oData As New DetailPageEventArgs With {.Page = Items.Item(oTabPage.Name)} + RaiseEvent CurrentPage_Changed(Me, oData) + RaiseEvent AnyControl_Focus(oControl, oData) + Else + CurrentPage = Nothing + + RaiseEvent CurrentPage_Changed(Me, Nothing) + RaiseEvent AnyControl_Focus(oControl, Nothing) + End If + End If + End Sub + + Private Sub Handle_EditValueChanged(sender As BaseEdit, e As EventArgs) + Dim oControl As BaseEdit = sender + + If RaiseChangedEvents = False Then + Exit Sub + End If + + ' Get the Layout Control containing the Edit Contol + If TypeOf oControl.Parent Is LayoutControl Then + Dim oLayoutControl As LayoutControl = oControl.Parent + + ' Get the TabPage containing the Layout Control + If TypeOf oLayoutControl.Parent Is XtraTabPage Then + Dim oTabPage As XtraTabPage = oLayoutControl.Parent + + If Items.ContainsKey(oTabPage.Name) Then + Dim oData As New DetailPageEventArgs With {.Page = Items.Item(oTabPage.Name)} + RaiseEvent AnyControl_Changed(oControl, oData) + Else + RaiseEvent AnyControl_Changed(oControl, Nothing) + End If + End If + End If + End Sub +End Class + + diff --git a/GUIs.ZooFlow/Administration/ClassGIDatatables.vb b/GUIs.ZooFlow/Administration/ClassGIDatatables.vb new file mode 100644 index 0000000..815def2 --- /dev/null +++ b/GUIs.ZooFlow/Administration/ClassGIDatatables.vb @@ -0,0 +1,148 @@ +Imports DigitalData.Modules.Base +Imports DigitalData.Modules.Logging + +Public Class ClassGIDatatables + Inherits BaseClass + + Public Sub New(pLogConfig As LogConfig) + MyBase.New(pLogConfig) + End Sub + +#Region "TBDD_GROUP" + + + Public Function AddGroupToProfile(GroupId As Integer, ProfileId As Integer) As Boolean + Try + Dim oSQL = $" + INSERT INTO TBDD_USRGRP_DOKTYPE + (DOCTYPE_ID, GROUP_ID, ADDED_WHO) + VALUES ({ProfileId}, {GroupId}, '{Environment.UserName}') + " + Return My.DatabaseECM.ExecuteNonQuery(oSQL) + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + + Public Function RemoveGroupFromProfile(GroupId As Integer, ProfileId As Integer) As Boolean + Try + Dim oSQL = $"DELETE FROM TBDD_USRGRP_DOKTYPE WHERE DOCTYPE_ID = {ProfileId} AND GROUP_ID = {GroupId}" + Return My.DatabaseECM.ExecuteNonQuery(oSQL) + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + + Public Function GetAssignedGroups(ProfileId As Integer) As DataTable + Try + Dim oSQL As String = $" + SELECT GUID, NAME FROM TBDD_GROUPS + WHERE GUID IN + ( + SELECT GROUP_ID + FROM TBDD_USRGRP_DOKTYPE + WHERE DOCTYPE_ID = {ProfileId} + ) + " + Dim oDatatable As DataTable = My.DatabaseECM.GetDatatable(oSQL) + + Return oDatatable + Catch ex As Exception + Logger.Error(ex) + Return Nothing + End Try + End Function + + Public Function GetAvailableGroups(ProfileId As Integer) As DataTable + Try + Dim oSQL As String = $" + SELECT GUID, NAME FROM TBDD_GROUPS + WHERE GUID NOT IN + ( + SELECT GROUP_ID + FROM TBDD_USRGRP_DOKTYPE + WHERE DOCTYPE_ID = {ProfileId} + ) + " + Dim oDatatable As DataTable = My.DatabaseECM.GetDatatable(oSQL) + + Return oDatatable + Catch ex As Exception + Logger.Error(ex) + Return Nothing + End Try + End Function +#End Region + +#Region "TBDD_USER" + + Public Function AddUserToProfile(UserId As Integer, ProfileId As Integer) As Boolean + Try + Dim oSQL = $" + INSERT INTO TBDD_USER_DOKTYPE + (DOCTYPE_ID, USER_ID, ADDED_WHO) + VALUES ({ProfileId}, {UserId}, '{Environment.UserName}') + " + Return My.DatabaseECM.ExecuteNonQuery(oSQL) + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + + Public Function RemoveUserFromProfile(UserId As Integer, ProfileId As Integer) As Boolean + Try + Dim oSQL = $"DELETE FROM TBDD_USER_DOKTYPE WHERE DOCTYPE_ID = {ProfileId} AND USER_ID = {UserId}" + Return My.DatabaseECM.ExecuteNonQuery(oSQL) + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + + Public Function GetAssignedUsers(ProfileId As Integer) As DataTable + Try + Dim oSQL As String = $" + SELECT GUID, EMAIL, NAME + ', ' + PRENAME AS NAME FROM TBDD_USER + WHERE GUID IN ( + SELECT USER_ID + FROM TBDD_USER_DOKTYPE + WHERE DOCTYPE_ID = {ProfileId} + ) + " + Dim oDatatable As DataTable = My.DatabaseECM.GetDatatable(oSQL) + + Return oDatatable + Catch ex As Exception + Logger.Error(ex) + Return Nothing + End Try + End Function + + Public Function GetAvailableUsers(ProfileId As Integer) As DataTable + Try + Dim oSQL As String = $" + SELECT GUID, EMAIL, NAME + ', ' + PRENAME AS NAME FROM TBDD_USER + WHERE GUID NOT IN ( + SELECT USER_ID + FROM TBDD_USER_DOKTYPE + WHERE DOCTYPE_ID = {ProfileId} + ) + AND GUID IN (SELECT USER_ID FROM [dbo].[FNDD_GET_USER_FOR_MODULE] ('GLOBIX', 1)) + " + Dim oDatatable As DataTable = My.DatabaseECM.GetDatatable(oSQL) + + Return oDatatable + Catch ex As Exception + Logger.Error(ex) + Return Nothing + End Try + End Function +#End Region + + + + +End Class diff --git a/GUIs.ZooFlow/Administration/DetailForms/DetailForm.vb b/GUIs.ZooFlow/Administration/DetailForms/DetailForm.vb new file mode 100644 index 0000000..9bd6e09 --- /dev/null +++ b/GUIs.ZooFlow/Administration/DetailForms/DetailForm.vb @@ -0,0 +1,12 @@ +Namespace DetailForms + Public Class DetailForm + Public Property Data As DetailFormData + Public Property Settings As DetailFormSettings + + Public ReadOnly Property Key As String + Get + Return Data.Entity & "-" & Data.Scope + End Get + End Property + End Class +End Namespace \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/DetailForms/DetailFormData.vb b/GUIs.ZooFlow/Administration/DetailForms/DetailFormData.vb new file mode 100644 index 0000000..a0d1064 --- /dev/null +++ b/GUIs.ZooFlow/Administration/DetailForms/DetailFormData.vb @@ -0,0 +1,11 @@ +Namespace DetailForms + Public Class DetailFormData + Public Property Guid As Integer + Public Property ParentId As Integer + Public Property Entity As String + Public Property Scope As String + Public Property PrimaryKey As String + Public Property SQLCommand As String + Public Property SQLResult As DataTable + End Class +End Namespace \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/DetailForms/DetailFormSettings.vb b/GUIs.ZooFlow/Administration/DetailForms/DetailFormSettings.vb new file mode 100644 index 0000000..53699df --- /dev/null +++ b/GUIs.ZooFlow/Administration/DetailForms/DetailFormSettings.vb @@ -0,0 +1,8 @@ +Namespace DetailForms + Public Class DetailFormSettings + Public Property GridTitle As String + Public Property [Module] As String + Public Property Entity As String + Public Property NewRecordTitle As String + End Class +End Namespace \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/DetailForms/Loader.vb b/GUIs.ZooFlow/Administration/DetailForms/Loader.vb new file mode 100644 index 0000000..32d8534 --- /dev/null +++ b/GUIs.ZooFlow/Administration/DetailForms/Loader.vb @@ -0,0 +1,59 @@ +Imports DigitalData.Modules.Base +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Language + +Namespace DetailForms + + Public Class Loader + + Inherits BaseClass + + Public Forms As New Dictionary(Of String, DetailForm) + + Public Sub New(pLogConfig As LogConfig) + MyBase.New(pLogConfig) + End Sub + + Public Function Load_SQLData() As Boolean + Try + Dim oTable As DataTable = My.DatabaseECM.GetDatatable("SELECT * FROM TBZF_ADMIN_SOURCE_SQL WHERE SCOPE = 'OVERVIEW'") + Forms.Clear() + + For Each oRow As DataRow In oTable.Rows + Dim oCHeck = oRow.Item("ENTITY_TITLE").ToString + + ' TODO: Do a proper replace lol + Dim oSQL As String = oRow.Item("SQL_COMMAND").ToString.Replace("@LANG_CODE", My.Application.User.Language) + + Dim oForm As New DetailForm() With { + .Data = New DetailFormData With { + .Guid = CInt(oRow.Item("GUID")), + .ParentId = CInt(oRow.Item("PARENT_ID")), + .Entity = oRow.Item("ENTITY_TITLE").ToString, + .Scope = oRow.Item("SCOPE").ToString, + .SQLCommand = oRow.Item("SQL_COMMAND").ToString.Replace("@LANG_CODE", My.Application.User.Language), + .PrimaryKey = oRow.ItemEx(("PK_COLUMN"), String.Empty) + } + } + + Try + oForm.Data.SQLResult = My.DatabaseECM.GetDatatable(oForm.Data.SQLCommand) + Catch ex As Exception + oForm.Data.SQLResult = Nothing + Logger.Error(ex) + End Try + + Dim oKey As String = oForm.Key + Forms.Add(oKey, oForm) + Next + + Return True + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + + End Class + +End Namespace diff --git a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.Designer.vb b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.Designer.vb new file mode 100644 index 0000000..94069c4 --- /dev/null +++ b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.Designer.vb @@ -0,0 +1,3103 @@ +Imports DigitalData.GUIs.Common.Base + + +Partial Class frmAdmin_Globix + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim SEQUENCELabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_Globix)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonSaveExit = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonSave = New DevExpress.XtraBars.BarButtonItem() + Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonNew = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItemDelete = New DevExpress.XtraBars.BarButtonItem() + Me.bsiStatus = New DevExpress.XtraBars.BarStaticItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GlobixDataset = New DigitalData.GUIs.ZooFlow.GlobixDataset() + Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() + Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() + Me.TBDD_DOKUMENTARTTableAdapter = New DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TBDD_DOKUMENTARTTableAdapter() + Me.TableAdapterManager1 = New DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TableAdapterManager() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPageProfile = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControlProfile = New DevExpress.XtraLayout.LayoutControl() + Me.IDB_DOCTYPE_IDComboBox = New System.Windows.Forms.ComboBox() + Me.VWIDB_DOCTYPE_LANGUAGEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.IDB_OBJECT_STORE_IDComboBox = New System.Windows.Forms.ComboBox() + Me.VWIDB_OBJECT_STOREBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.SEQUENCENumericUpDown = New System.Windows.Forms.NumericUpDown() + Me.TBDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TextEditErstelltWer = New DevExpress.XtraEditors.TextEdit() + Me.TextEditGeandertWer = New DevExpress.XtraEditors.TextEdit() + Me.TextEditNamenkonvention = New DevExpress.XtraEditors.TextEdit() + Me.TextEditBeschreibung = New DevExpress.XtraEditors.TextEdit() + Me.TextEditBezeichnung = New DevExpress.XtraEditors.TextEdit() + Me.TextEditDoctypeID = New DevExpress.XtraEditors.TextEdit() + Me.ComboBoxEditDupl_handling = New DevExpress.XtraEditors.ComboBoxEdit() + Me.SimpleButtonNameconvention = New DevExpress.XtraEditors.SimpleButton() + Me.CheckEdit1 = New DevExpress.XtraEditors.CheckEdit() + Me.TextEditGeaendertWann = New DevExpress.XtraEditors.TextEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem30 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem20 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem25 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem3 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem26 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem32 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem28 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem12 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem61 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem22 = New DevExpress.XtraLayout.LayoutControlItem() + Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPageManIndexe = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControlManIndexe = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit() + Me.CONNECTION_IDTextBox = New System.Windows.Forms.TextBox() + Me.SQL_RESULTTextBox = New System.Windows.Forms.TextBox() + Me.WD_INDEXComboBox = New System.Windows.Forms.ComboBox() + Me.VWIDB_BE_ATTRIBUTEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.VKT_ADD_ITEMCheckBox = New System.Windows.Forms.CheckBox() + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox = New System.Windows.Forms.CheckBox() + Me.MULTISELECTCheckBox = New System.Windows.Forms.CheckBox() + Me.btneditSQLmanIndex = New DevExpress.XtraEditors.SimpleButton() + Me.TextEditAddedWho_ManIndex = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() + Me.TextEditChangedWho_ManIndex = New DevExpress.XtraEditors.TextEdit() + Me.GUIDTextBoxMANINDEX = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit10 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit11 = New DevExpress.XtraEditors.TextEdit() + Me.SpinEdit1 = New DevExpress.XtraEditors.SpinEdit() + Me.ComboBoxEdit4 = New DevExpress.XtraEditors.ComboBoxEdit() + Me.ACTIVECheckBox2 = New DevExpress.XtraEditors.CheckEdit() + Me.OPTIONALCheckBox2 = New DevExpress.XtraEditors.CheckEdit() + Me.LayoutControlGroupDoctype = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem17 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem19 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem21 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem24 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem13 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem27 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem29 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem16 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem31 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem18 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem6 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem46 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem63 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem64 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ListBoxAutoIndexe = New DevExpress.XtraEditors.ListBoxControl() + Me.XtraTabPageRework = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControlRework = New DevExpress.XtraLayout.LayoutControl() + Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.XtraTabPageAutoIndexe = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControlAutoIndexe = New DevExpress.XtraLayout.LayoutControl() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.CONNECTION_IDTextBox1 = New System.Windows.Forms.TextBox() + Me.SQL_RESULTTextBox1 = New System.Windows.Forms.TextBox() + Me.SQL_ACTIVECheckBox = New System.Windows.Forms.CheckBox() + Me.VALUETextBox = New System.Windows.Forms.TextBox() + Me.INDEXNAMEComboBox = New System.Windows.Forms.ComboBox() + Me.ACTIVECheckBox1 = New System.Windows.Forms.CheckBox() + Me.SEQUENCENumericUpDown1 = New System.Windows.Forms.NumericUpDown() + Me.GUIDTextBoxAutoAttribute = New System.Windows.Forms.TextBox() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.ComboBoxEditAAttrFileParam = New DevExpress.XtraEditors.ComboBoxEdit() + Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton() + Me.ADDED_WHOTextBoxAutoAttribut = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() + Me.CHANGED_WHOTextEditAutoAttribut = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem15 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem23 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem33 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem34 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem35 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem40 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem37 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem4 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.ADDED_WHOAutoAttribut = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem41 = New DevExpress.XtraLayout.LayoutControlItem() + Me.CHANGED_WHOItemAutoAttribut = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem43 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem44 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem39 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem45 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem42 = New DevExpress.XtraLayout.LayoutControlItem() + Me.XtraTabPageDynamicFolder = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.cmbAllAttributes = New System.Windows.Forms.ComboBox() + Me.SimpleButton3 = New DevExpress.XtraEditors.SimpleButton() + Me.txtcrFoldermanuell = New DevExpress.XtraEditors.TextEdit() + Me.cmbCrFolderDate = New System.Windows.Forms.ComboBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.FOLDER_FOR_INDEXTextEdit = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlGroup4 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem47 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem7 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem48 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem50 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem51 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem8 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem52 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem49 = New DevExpress.XtraLayout.LayoutControlItem() + Me.XtraTabPageAutoSelect = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControl2 = New DevExpress.XtraLayout.LayoutControl() + Me.ChangedWhenAutoSelect = New DevExpress.XtraEditors.TextEdit() + Me.TBGI_REGEX_DOCTYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TextEdit8 = New DevExpress.XtraEditors.TextEdit() + Me.AddedWhoAutoSelect = New DevExpress.XtraEditors.TextEdit() + Me.ChangedWhoAutoSelect = New DevExpress.XtraEditors.TextEdit() + Me.txtDateinameTest = New System.Windows.Forms.TextBox() + Me.SimpleButton4 = New DevExpress.XtraEditors.SimpleButton() + Me.REGEXTextBox = New System.Windows.Forms.TextBox() + Me.GUIDTextBoxAutoSelect = New System.Windows.Forms.TextBox() + Me.LayoutControlGroup5 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem55 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem9 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.EmptySpaceItem10 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem54 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem53 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem11 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem57 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem59 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem58 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem56 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem60 = New DevExpress.XtraLayout.LayoutControlItem() + Me.ListBox2 = New System.Windows.Forms.ListBox() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabControl3 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.gridAssignedUsers = New DevExpress.XtraGrid.GridControl() + Me.viewAssignedUsers = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.Label2 = New System.Windows.Forms.Label() + Me.gridAvailableUsers = New DevExpress.XtraGrid.GridControl() + Me.viewAvailableUsers = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridColumn6 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn7 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn9 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn8 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.Label35 = New System.Windows.Forms.Label() + Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage() + Me.SplitContainerControlGroup = New DevExpress.XtraEditors.SplitContainerControl() + Me.gridAssignedGroups = New DevExpress.XtraGrid.GridControl() + Me.viewAssignedGroups = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.Label13 = New System.Windows.Forms.Label() + Me.gridAvailableGroups = New DevExpress.XtraGrid.GridControl() + Me.viewAvailableGroups = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGUID2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.Label14 = New System.Windows.Forms.Label() + Me.TBDD_INDEX_MANTableAdapter = New DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TBDD_INDEX_MANTableAdapter() + Me.VWIDB_OBJECT_STORETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_OBJECT_STORETableAdapter() + Me.VWIDB_BE_ATTRIBUTETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_BE_ATTRIBUTETableAdapter() + Me.TBDD_INDEX_AUTOMTableAdapter = New DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TBDD_INDEX_AUTOMTableAdapter() + Me.RadioGroup1 = New DevExpress.XtraEditors.RadioGroup() + Me.LayoutControlItem38 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TBGI_REGEX_DOCTYPETableAdapter = New DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TBGI_REGEX_DOCTYPETableAdapter() + Me.VWIDB_DOCTYPE_LANGUAGETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPE_LANGUAGETableAdapter() + SEQUENCELabel = New System.Windows.Forms.Label() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GlobixDataset, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPageProfile.SuspendLayout() + CType(Me.LayoutControlProfile, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControlProfile.SuspendLayout() + CType(Me.VWIDB_DOCTYPE_LANGUAGEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWIDB_OBJECT_STOREBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditErstelltWer.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditGeandertWer.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditNamenkonvention.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditBeschreibung.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditBezeichnung.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditDoctypeID.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ComboBoxEditDupl_handling.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditGeaendertWann.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem20, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem25, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem26, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem32, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem28, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem12, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem61, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl2.SuspendLayout() + Me.XtraTabPageManIndexe.SuspendLayout() + CType(Me.LayoutControlManIndexe, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControlManIndexe.SuspendLayout() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWIDB_BE_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditAddedWho_ManIndex.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditChangedWho_ManIndex.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GUIDTextBoxMANINDEX.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit10.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit11.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ComboBoxEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ACTIVECheckBox2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.OPTIONALCheckBox2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroupDoctype, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem21, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem24, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem27, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem29, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem31, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem46, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem63, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem64, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ListBoxAutoIndexe, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageRework.SuspendLayout() + CType(Me.LayoutControlRework, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageAutoIndexe.SuspendLayout() + CType(Me.LayoutControlAutoIndexe, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControlAutoIndexe.SuspendLayout() + CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SEQUENCENumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ComboBoxEditAAttrFileParam.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ADDED_WHOTextBoxAutoAttribut.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CHANGED_WHOTextEditAutoAttribut.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem33, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem34, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem35, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem40, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem37, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ADDED_WHOAutoAttribut, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem41, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CHANGED_WHOItemAutoAttribut, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem43, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem44, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem39, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem45, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem42, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageDynamicFolder.SuspendLayout() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.txtcrFoldermanuell.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.FOLDER_FOR_INDEXTextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem47, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem48, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem50, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem51, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem52, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem49, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageAutoSelect.SuspendLayout() + CType(Me.LayoutControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl2.SuspendLayout() + CType(Me.ChangedWhenAutoSelect.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBGI_REGEX_DOCTYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.AddedWhoAutoSelect.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ChangedWhoAutoSelect.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem55, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem54, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem53, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem57, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem59, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem58, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem56, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem60, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPage1.SuspendLayout() + CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl3.SuspendLayout() + Me.XtraTabPage2.SuspendLayout() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.Panel1.SuspendLayout() + CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.Panel2.SuspendLayout() + Me.SplitContainerControl1.SuspendLayout() + CType(Me.gridAssignedUsers, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.viewAssignedUsers, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gridAvailableUsers, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.viewAvailableUsers, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPage3.SuspendLayout() + CType(Me.SplitContainerControlGroup, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControlGroup.Panel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControlGroup.Panel1.SuspendLayout() + CType(Me.SplitContainerControlGroup.Panel2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControlGroup.Panel2.SuspendLayout() + Me.SplitContainerControlGroup.SuspendLayout() + CType(Me.gridAssignedGroups, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.viewAssignedGroups, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gridAvailableGroups, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.viewAvailableGroups, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RadioGroup1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem38, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'SEQUENCELabel + ' + SEQUENCELabel.Location = New System.Drawing.Point(12, 206) + SEQUENCELabel.Name = "SEQUENCELabel" + SEQUENCELabel.Size = New System.Drawing.Size(1186, 95) + SEQUENCELabel.TabIndex = 55 + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonSaveExit, Me.BarButtonSave, Me.labelStatus, Me.BarButtonNew, Me.BarButtonItemDelete, Me.bsiStatus}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 9 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.Size = New System.Drawing.Size(1140, 132) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonSaveExit + ' + Me.BarButtonSaveExit.Caption = "Speichern und Schließen" + Me.BarButtonSaveExit.Id = 1 + Me.BarButtonSaveExit.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check + Me.BarButtonSaveExit.Name = "BarButtonSaveExit" + ' + 'BarButtonSave + ' + Me.BarButtonSave.Caption = "Speichern" + Me.BarButtonSave.Id = 3 + Me.BarButtonSave.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save + Me.BarButtonSave.Name = "BarButtonSave" + ' + 'labelStatus + ' + Me.labelStatus.Caption = "labelStatus" + 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 + ' + 'BarButtonNew + ' + Me.BarButtonNew.Caption = "Neu" + Me.BarButtonNew.Id = 6 + Me.BarButtonNew.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonNew.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonNew.Name = "BarButtonNew" + ' + 'BarButtonItemDelete + ' + Me.BarButtonItemDelete.Caption = "Löschen" + Me.BarButtonItemDelete.Id = 7 + Me.BarButtonItemDelete.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemDelete.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItemDelete.Name = "BarButtonItemDelete" + ' + 'bsiStatus + ' + Me.bsiStatus.Caption = "ssdsdsdsdsdsdsd" + Me.bsiStatus.Id = 8 + Me.bsiStatus.ImageOptions.SvgImage = CType(resources.GetObject("bsiStatus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bsiStatus.ItemAppearance.Normal.BackColor = System.Drawing.Color.Red + Me.bsiStatus.ItemAppearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.bsiStatus.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Black + Me.bsiStatus.ItemAppearance.Normal.Options.UseBackColor = True + Me.bsiStatus.ItemAppearance.Normal.Options.UseFont = True + Me.bsiStatus.ItemAppearance.Normal.Options.UseForeColor = True + Me.bsiStatus.Name = "bsiStatus" + Me.bsiStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + Me.bsiStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonNew) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonSave) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItemDelete) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Daten" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiStatus) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 754) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1140, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'TBDD_DOKUMENTARTBindingSource + ' + Me.TBDD_DOKUMENTARTBindingSource.DataMember = "TBDD_DOKUMENTART" + Me.TBDD_DOKUMENTARTBindingSource.DataSource = Me.GlobixDataset + ' + 'GlobixDataset + ' + Me.GlobixDataset.DataSetName = "GlobixDataset" + Me.GlobixDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'DSIDB_Stammdaten + ' + Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten" + Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOG_USERTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_COMMON_SQLTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_DOCTYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_LANGUAGETableAdapter = 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 + ' + 'TBDD_DOKUMENTARTTableAdapter + ' + Me.TBDD_DOKUMENTARTTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager1 + ' + Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager1.TBDD_DOKUMENTARTTableAdapter = Me.TBDD_DOKUMENTARTTableAdapter + Me.TableAdapterManager1.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager1.TBDD_INDEX_MANTableAdapter = Nothing + Me.TableAdapterManager1.TBGI_REGEX_DOCTYPETableAdapter = Nothing + Me.TableAdapterManager1.UpdateOrder = DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 132) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageProfile + Me.XtraTabControl1.Size = New System.Drawing.Size(1140, 622) + Me.XtraTabControl1.TabIndex = 5 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageProfile, Me.XtraTabPage1}) + ' + 'XtraTabPageProfile + ' + Me.XtraTabPageProfile.AutoScroll = True + Me.XtraTabPageProfile.Controls.Add(Me.LayoutControlProfile) + Me.XtraTabPageProfile.Controls.Add(Me.XtraTabControl2) + Me.XtraTabPageProfile.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPageProfile.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.XtraTabPageProfile.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.XtraTabPageProfile.Name = "XtraTabPageProfile" + Me.XtraTabPageProfile.Size = New System.Drawing.Size(1138, 596) + Me.XtraTabPageProfile.Text = "Profil" + ' + 'LayoutControlProfile + ' + Me.LayoutControlProfile.Controls.Add(Me.IDB_DOCTYPE_IDComboBox) + Me.LayoutControlProfile.Controls.Add(Me.TextEdit1) + Me.LayoutControlProfile.Controls.Add(Me.IDB_OBJECT_STORE_IDComboBox) + Me.LayoutControlProfile.Controls.Add(Me.SEQUENCENumericUpDown) + Me.LayoutControlProfile.Controls.Add(Me.TextEditErstelltWer) + Me.LayoutControlProfile.Controls.Add(Me.TextEditGeandertWer) + Me.LayoutControlProfile.Controls.Add(Me.TextEditNamenkonvention) + Me.LayoutControlProfile.Controls.Add(Me.TextEditBeschreibung) + Me.LayoutControlProfile.Controls.Add(Me.TextEditBezeichnung) + Me.LayoutControlProfile.Controls.Add(Me.TextEditDoctypeID) + Me.LayoutControlProfile.Controls.Add(Me.ComboBoxEditDupl_handling) + Me.LayoutControlProfile.Controls.Add(Me.SimpleButtonNameconvention) + Me.LayoutControlProfile.Controls.Add(Me.CheckEdit1) + Me.LayoutControlProfile.Controls.Add(Me.TextEditGeaendertWann) + Me.LayoutControlProfile.Location = New System.Drawing.Point(-2, -7) + Me.LayoutControlProfile.Name = "LayoutControlProfile" + Me.LayoutControlProfile.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(948, 640, 650, 400) + Me.LayoutControlProfile.Root = Me.Root + Me.LayoutControlProfile.Size = New System.Drawing.Size(1119, 280) + Me.LayoutControlProfile.TabIndex = 0 + Me.LayoutControlProfile.Text = "LayoutControl1" + ' + 'IDB_DOCTYPE_IDComboBox + ' + Me.IDB_DOCTYPE_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_DOKUMENTARTBindingSource, "IDB_DOCTYPE_ID", True)) + Me.IDB_DOCTYPE_IDComboBox.DataSource = Me.VWIDB_DOCTYPE_LANGUAGEBindingSource + Me.IDB_DOCTYPE_IDComboBox.DisplayMember = "Doctype" + Me.IDB_DOCTYPE_IDComboBox.FormattingEnabled = True + Me.IDB_DOCTYPE_IDComboBox.Location = New System.Drawing.Point(166, 45) + Me.IDB_DOCTYPE_IDComboBox.Name = "IDB_DOCTYPE_IDComboBox" + Me.IDB_DOCTYPE_IDComboBox.Size = New System.Drawing.Size(388, 21) + Me.IDB_DOCTYPE_IDComboBox.TabIndex = 60 + Me.IDB_DOCTYPE_IDComboBox.ValueMember = "Doctype_ID" + ' + 'VWIDB_DOCTYPE_LANGUAGEBindingSource + ' + Me.VWIDB_DOCTYPE_LANGUAGEBindingSource.DataMember = "VWIDB_DOCTYPE_LANGUAGE" + Me.VWIDB_DOCTYPE_LANGUAGEBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'TextEdit1 + ' + Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ERSTELLTWANN", True)) + Me.TextEdit1.Location = New System.Drawing.Point(166, 227) + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Size = New System.Drawing.Size(388, 20) + Me.TextEdit1.StyleController = Me.LayoutControlProfile + Me.TextEdit1.TabIndex = 59 + ' + 'IDB_OBJECT_STORE_IDComboBox + ' + Me.IDB_OBJECT_STORE_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_DOKUMENTARTBindingSource, "FOLDER_FOR_INDEX", True)) + Me.IDB_OBJECT_STORE_IDComboBox.DataSource = Me.VWIDB_OBJECT_STOREBindingSource + Me.IDB_OBJECT_STORE_IDComboBox.DisplayMember = "Objectstore" + Me.IDB_OBJECT_STORE_IDComboBox.FormattingEnabled = True + Me.IDB_OBJECT_STORE_IDComboBox.Location = New System.Drawing.Point(166, 136) + Me.IDB_OBJECT_STORE_IDComboBox.Name = "IDB_OBJECT_STORE_IDComboBox" + Me.IDB_OBJECT_STORE_IDComboBox.Size = New System.Drawing.Size(388, 21) + Me.IDB_OBJECT_STORE_IDComboBox.TabIndex = 57 + Me.IDB_OBJECT_STORE_IDComboBox.ValueMember = "GUID" + ' + 'VWIDB_OBJECT_STOREBindingSource + ' + Me.VWIDB_OBJECT_STOREBindingSource.DataMember = "VWIDB_OBJECT_STORE" + Me.VWIDB_OBJECT_STOREBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'SEQUENCENumericUpDown + ' + Me.SEQUENCENumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_INDEX_MANBindingSource, "SEQUENCE", True)) + Me.SEQUENCENumericUpDown.Location = New System.Drawing.Point(399, 15) + Me.SEQUENCENumericUpDown.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.SEQUENCENumericUpDown.Name = "SEQUENCENumericUpDown" + Me.SEQUENCENumericUpDown.Size = New System.Drawing.Size(37, 22) + Me.SEQUENCENumericUpDown.TabIndex = 56 + Me.SEQUENCENumericUpDown.Value = New Decimal(New Integer() {1, 0, 0, 0}) + ' + 'TBDD_INDEX_MANBindingSource + ' + Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN" + Me.TBDD_INDEX_MANBindingSource.DataSource = Me.GlobixDataset + ' + 'TextEditErstelltWer + ' + Me.TextEditErstelltWer.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ERSTELLTWER", True)) + Me.TextEditErstelltWer.Location = New System.Drawing.Point(166, 197) + Me.TextEditErstelltWer.MenuManager = Me.RibbonControl1 + Me.TextEditErstelltWer.Name = "TextEditErstelltWer" + Me.TextEditErstelltWer.Size = New System.Drawing.Size(388, 20) + Me.TextEditErstelltWer.StyleController = Me.LayoutControlProfile + Me.TextEditErstelltWer.TabIndex = 44 + ' + 'TextEditGeandertWer + ' + Me.TextEditGeandertWer.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GEANDERTWER", True)) + Me.TextEditGeandertWer.Location = New System.Drawing.Point(715, 197) + Me.TextEditGeandertWer.MenuManager = Me.RibbonControl1 + Me.TextEditGeandertWer.Name = "TextEditGeandertWer" + Me.TextEditGeandertWer.Size = New System.Drawing.Size(389, 20) + Me.TextEditGeandertWer.StyleController = Me.LayoutControlProfile + Me.TextEditGeandertWer.TabIndex = 45 + ' + 'TextEditNamenkonvention + ' + Me.TextEditNamenkonvention.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "NAMENKONVENTION", True)) + Me.TextEditNamenkonvention.Location = New System.Drawing.Point(166, 106) + Me.TextEditNamenkonvention.MenuManager = Me.RibbonControl1 + Me.TextEditNamenkonvention.Name = "TextEditNamenkonvention" + Me.TextEditNamenkonvention.Size = New System.Drawing.Size(675, 20) + Me.TextEditNamenkonvention.StyleController = Me.LayoutControlProfile + Me.TextEditNamenkonvention.TabIndex = 46 + ' + 'TextEditBeschreibung + ' + Me.TextEditBeschreibung.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BESCHREIBUNG", True)) + Me.TextEditBeschreibung.Location = New System.Drawing.Point(166, 167) + Me.TextEditBeschreibung.MenuManager = Me.RibbonControl1 + Me.TextEditBeschreibung.Name = "TextEditBeschreibung" + Me.TextEditBeschreibung.Size = New System.Drawing.Size(938, 20) + Me.TextEditBeschreibung.StyleController = Me.LayoutControlProfile + Me.TextEditBeschreibung.TabIndex = 48 + ' + 'TextEditBezeichnung + ' + Me.TextEditBezeichnung.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BEZEICHNUNG", True)) + Me.TextEditBezeichnung.Location = New System.Drawing.Point(715, 45) + Me.TextEditBezeichnung.MenuManager = Me.RibbonControl1 + Me.TextEditBezeichnung.Name = "TextEditBezeichnung" + Me.TextEditBezeichnung.Size = New System.Drawing.Size(389, 20) + Me.TextEditBezeichnung.StyleController = Me.LayoutControlProfile + Me.TextEditBezeichnung.TabIndex = 51 + ' + 'TextEditDoctypeID + ' + Me.TextEditDoctypeID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GUID", True)) + Me.TextEditDoctypeID.Location = New System.Drawing.Point(166, 15) + Me.TextEditDoctypeID.MenuManager = Me.RibbonControl1 + Me.TextEditDoctypeID.Name = "TextEditDoctypeID" + Me.TextEditDoctypeID.Size = New System.Drawing.Size(72, 20) + Me.TextEditDoctypeID.StyleController = Me.LayoutControlProfile + Me.TextEditDoctypeID.TabIndex = 52 + ' + 'ComboBoxEditDupl_handling + ' + Me.ComboBoxEditDupl_handling.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "DUPLICATE_HANDLING", True)) + Me.ComboBoxEditDupl_handling.Location = New System.Drawing.Point(166, 76) + Me.ComboBoxEditDupl_handling.MenuManager = Me.RibbonControl1 + Me.ComboBoxEditDupl_handling.Name = "ComboBoxEditDupl_handling" + Me.ComboBoxEditDupl_handling.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.ComboBoxEditDupl_handling.Properties.Items.AddRange(New Object() {"New version", "Default", "Question"}) + Me.ComboBoxEditDupl_handling.Size = New System.Drawing.Size(938, 20) + Me.ComboBoxEditDupl_handling.StyleController = Me.LayoutControlProfile + Me.ComboBoxEditDupl_handling.TabIndex = 54 + ' + 'SimpleButtonNameconvention + ' + Me.SimpleButtonNameconvention.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButtonNameconvention.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButtonNameconvention.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.SimpleButtonNameconvention.Location = New System.Drawing.Point(848, 103) + Me.SimpleButtonNameconvention.Name = "SimpleButtonNameconvention" + Me.SimpleButtonNameconvention.Size = New System.Drawing.Size(259, 22) + Me.SimpleButtonNameconvention.StyleController = Me.LayoutControlProfile + Me.SimpleButtonNameconvention.TabIndex = 58 + Me.SimpleButtonNameconvention.Text = "Editor" + ' + 'CheckEdit1 + ' + Me.CheckEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "AKTIV", True)) + Me.CheckEdit1.Location = New System.Drawing.Point(446, 15) + Me.CheckEdit1.MenuManager = Me.RibbonControl1 + Me.CheckEdit1.Name = "CheckEdit1" + Me.CheckEdit1.Properties.Caption = "Aktiv" + Me.CheckEdit1.Size = New System.Drawing.Size(658, 18) + Me.CheckEdit1.StyleController = Me.LayoutControlProfile + Me.CheckEdit1.TabIndex = 62 + ' + 'TextEditGeaendertWann + ' + Me.TextEditGeaendertWann.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "GEAENDERTWANN", True)) + Me.TextEditGeaendertWann.Location = New System.Drawing.Point(715, 227) + Me.TextEditGeaendertWann.MenuManager = Me.RibbonControl1 + Me.TextEditGeaendertWann.Name = "TextEditGeaendertWann" + Me.TextEditGeaendertWann.Size = New System.Drawing.Size(389, 20) + Me.TextEditGeaendertWann.StyleController = Me.LayoutControlProfile + Me.TextEditGeaendertWann.TabIndex = 63 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem3, Me.LayoutControlItem30, Me.LayoutControlItem20, Me.LayoutControlItem4, Me.LayoutControlItem25, Me.EmptySpaceItem3, Me.LayoutControlItem26, Me.LayoutControlItem1, Me.LayoutControlItem32, Me.LayoutControlItem5, Me.LayoutControlItem28, Me.EmptySpaceItem12, Me.LayoutControlItem61, Me.LayoutControlItem7, Me.LayoutControlItem22}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(1119, 280) + Me.Root.TextVisible = False + ' + 'LayoutControlItem10 + ' + Me.LayoutControlItem10.Control = Me.TextEditBezeichnung + Me.LayoutControlItem10.Location = New System.Drawing.Point(549, 30) + Me.LayoutControlItem10.Name = "LayoutControlItem10" + Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem10.Size = New System.Drawing.Size(550, 31) + Me.LayoutControlItem10.Text = "Bezeichnung" + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(139, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem3.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem3.Control = Me.TextEditErstelltWer + Me.LayoutControlItem3.Enabled = False + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 182) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(549, 30) + Me.LayoutControlItem3.Text = "Erstellt wer" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(139, 13) + ' + 'LayoutControlItem30 + ' + Me.LayoutControlItem30.Control = Me.TextEditNamenkonvention + Me.LayoutControlItem30.Location = New System.Drawing.Point(0, 91) + Me.LayoutControlItem30.Name = "LayoutControlItem30" + Me.LayoutControlItem30.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem30.Size = New System.Drawing.Size(836, 30) + Me.LayoutControlItem30.Text = "Namenkonvention" + Me.LayoutControlItem30.TextSize = New System.Drawing.Size(139, 13) + ' + 'LayoutControlItem20 + ' + Me.LayoutControlItem20.Control = Me.SEQUENCENumericUpDown + Me.LayoutControlItem20.CustomizationFormText = "SEQUENCE" + Me.LayoutControlItem20.Location = New System.Drawing.Point(233, 0) + Me.LayoutControlItem20.Name = "LayoutControlItem20" + Me.LayoutControlItem20.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem20.Size = New System.Drawing.Size(198, 30) + Me.LayoutControlItem20.Text = "Reihenfolge" + Me.LayoutControlItem20.TextSize = New System.Drawing.Size(139, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem4.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem4.Control = Me.TextEditDoctypeID + Me.LayoutControlItem4.Enabled = False + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem4.Size = New System.Drawing.Size(233, 30) + Me.LayoutControlItem4.Text = "ID" + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(139, 13) + ' + 'LayoutControlItem25 + ' + Me.LayoutControlItem25.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem25.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem25.Control = Me.IDB_OBJECT_STORE_IDComboBox + Me.LayoutControlItem25.Location = New System.Drawing.Point(0, 121) + Me.LayoutControlItem25.Name = "LayoutControlItem25" + Me.LayoutControlItem25.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem25.Size = New System.Drawing.Size(549, 31) + Me.LayoutControlItem25.Text = "File-Store:" + Me.LayoutControlItem25.TextSize = New System.Drawing.Size(139, 13) + ' + 'EmptySpaceItem3 + ' + Me.EmptySpaceItem3.AllowHotTrack = False + Me.EmptySpaceItem3.Location = New System.Drawing.Point(0, 242) + Me.EmptySpaceItem3.Name = "EmptySpaceItem3" + Me.EmptySpaceItem3.Size = New System.Drawing.Size(1099, 18) + Me.EmptySpaceItem3.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlItem26 + ' + Me.LayoutControlItem26.Control = Me.ComboBoxEditDupl_handling + Me.LayoutControlItem26.Location = New System.Drawing.Point(0, 61) + Me.LayoutControlItem26.Name = "LayoutControlItem26" + Me.LayoutControlItem26.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem26.Size = New System.Drawing.Size(1099, 30) + Me.LayoutControlItem26.Text = "Verhalten Datei vorhanden" + Me.LayoutControlItem26.TextSize = New System.Drawing.Size(139, 13) + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.SimpleButtonNameconvention + Me.LayoutControlItem1.Location = New System.Drawing.Point(836, 91) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Size = New System.Drawing.Size(263, 30) + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem1.TextVisible = False + ' + 'LayoutControlItem32 + ' + Me.LayoutControlItem32.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem32.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem32.Control = Me.TextEdit1 + Me.LayoutControlItem32.Enabled = False + Me.LayoutControlItem32.Location = New System.Drawing.Point(0, 212) + Me.LayoutControlItem32.Name = "LayoutControlItem32" + Me.LayoutControlItem32.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem32.Size = New System.Drawing.Size(549, 30) + Me.LayoutControlItem32.Text = "Erstellt wann" + Me.LayoutControlItem32.TextSize = New System.Drawing.Size(139, 13) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem5.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem5.Control = Me.TextEditGeandertWer + Me.LayoutControlItem5.Enabled = False + Me.LayoutControlItem5.Location = New System.Drawing.Point(549, 182) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem5.Size = New System.Drawing.Size(550, 30) + Me.LayoutControlItem5.Text = "Geändert wer" + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(139, 13) + ' + 'LayoutControlItem28 + ' + Me.LayoutControlItem28.Control = Me.TextEditBeschreibung + Me.LayoutControlItem28.Location = New System.Drawing.Point(0, 152) + Me.LayoutControlItem28.Name = "LayoutControlItem28" + Me.LayoutControlItem28.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem28.Size = New System.Drawing.Size(1099, 30) + Me.LayoutControlItem28.Text = "Beschreibung" + Me.LayoutControlItem28.TextSize = New System.Drawing.Size(139, 13) + ' + 'EmptySpaceItem12 + ' + Me.EmptySpaceItem12.AllowHotTrack = False + Me.EmptySpaceItem12.Location = New System.Drawing.Point(549, 121) + Me.EmptySpaceItem12.Name = "EmptySpaceItem12" + Me.EmptySpaceItem12.Size = New System.Drawing.Size(550, 31) + Me.EmptySpaceItem12.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlItem61 + ' + Me.LayoutControlItem61.Control = Me.IDB_DOCTYPE_IDComboBox + Me.LayoutControlItem61.Location = New System.Drawing.Point(0, 30) + Me.LayoutControlItem61.Name = "LayoutControlItem61" + Me.LayoutControlItem61.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem61.Size = New System.Drawing.Size(549, 31) + Me.LayoutControlItem61.Text = "Dokumentart" + Me.LayoutControlItem61.TextSize = New System.Drawing.Size(139, 13) + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.CheckEdit1 + Me.LayoutControlItem7.Location = New System.Drawing.Point(431, 0) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem7.Size = New System.Drawing.Size(668, 30) + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem7.TextVisible = False + ' + 'LayoutControlItem22 + ' + Me.LayoutControlItem22.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic) + Me.LayoutControlItem22.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem22.Control = Me.TextEditGeaendertWann + Me.LayoutControlItem22.Enabled = False + Me.LayoutControlItem22.Location = New System.Drawing.Point(549, 212) + Me.LayoutControlItem22.Name = "LayoutControlItem22" + Me.LayoutControlItem22.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem22.Size = New System.Drawing.Size(550, 30) + Me.LayoutControlItem22.Text = "Geändert Wann" + Me.LayoutControlItem22.TextSize = New System.Drawing.Size(139, 13) + ' + 'XtraTabControl2 + ' + Me.XtraTabControl2.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.XtraTabControl2.Location = New System.Drawing.Point(3, 279) + Me.XtraTabControl2.Name = "XtraTabControl2" + Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPageManIndexe + Me.XtraTabControl2.Size = New System.Drawing.Size(1113, 297) + Me.XtraTabControl2.TabIndex = 1 + Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageManIndexe, Me.XtraTabPageRework, Me.XtraTabPageAutoIndexe, Me.XtraTabPageDynamicFolder, Me.XtraTabPageAutoSelect}) + ' + 'XtraTabPageManIndexe + ' + Me.XtraTabPageManIndexe.AutoScroll = True + Me.XtraTabPageManIndexe.Controls.Add(Me.LayoutControlManIndexe) + Me.XtraTabPageManIndexe.Controls.Add(Me.ListBoxAutoIndexe) + Me.XtraTabPageManIndexe.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPageManIndexe.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.XtraTabPageManIndexe.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.XtraTabPageManIndexe.Name = "XtraTabPageManIndexe" + Me.XtraTabPageManIndexe.Size = New System.Drawing.Size(1111, 271) + Me.XtraTabPageManIndexe.Text = "manuelle Attribute" + ' + 'LayoutControlManIndexe + ' + Me.LayoutControlManIndexe.Controls.Add(Me.TextEdit4) + Me.LayoutControlManIndexe.Controls.Add(Me.CONNECTION_IDTextBox) + Me.LayoutControlManIndexe.Controls.Add(Me.SQL_RESULTTextBox) + Me.LayoutControlManIndexe.Controls.Add(Me.WD_INDEXComboBox) + Me.LayoutControlManIndexe.Controls.Add(Me.VKT_ADD_ITEMCheckBox) + Me.LayoutControlManIndexe.Controls.Add(Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox) + Me.LayoutControlManIndexe.Controls.Add(Me.MULTISELECTCheckBox) + Me.LayoutControlManIndexe.Controls.Add(Me.btneditSQLmanIndex) + Me.LayoutControlManIndexe.Controls.Add(Me.TextEditAddedWho_ManIndex) + Me.LayoutControlManIndexe.Controls.Add(Me.TextEdit2) + Me.LayoutControlManIndexe.Controls.Add(Me.TextEditChangedWho_ManIndex) + Me.LayoutControlManIndexe.Controls.Add(Me.GUIDTextBoxMANINDEX) + Me.LayoutControlManIndexe.Controls.Add(Me.TextEdit10) + Me.LayoutControlManIndexe.Controls.Add(Me.TextEdit11) + Me.LayoutControlManIndexe.Controls.Add(Me.SpinEdit1) + Me.LayoutControlManIndexe.Controls.Add(Me.ComboBoxEdit4) + Me.LayoutControlManIndexe.Controls.Add(Me.ACTIVECheckBox2) + Me.LayoutControlManIndexe.Controls.Add(Me.OPTIONALCheckBox2) + Me.LayoutControlManIndexe.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControlManIndexe.Location = New System.Drawing.Point(187, 0) + Me.LayoutControlManIndexe.Name = "LayoutControlManIndexe" + Me.LayoutControlManIndexe.Root = Me.LayoutControlGroupDoctype + Me.LayoutControlManIndexe.Size = New System.Drawing.Size(924, 271) + Me.LayoutControlManIndexe.TabIndex = 1 + Me.LayoutControlManIndexe.Text = "LayoutControl1" + ' + 'TextEdit4 + ' + Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "CHANGED_WHEN", True)) + Me.TextEdit4.Location = New System.Drawing.Point(519, 236) + Me.TextEdit4.MenuManager = Me.RibbonControl1 + Me.TextEdit4.Name = "TextEdit4" + Me.TextEdit4.Size = New System.Drawing.Size(390, 20) + Me.TextEdit4.StyleController = Me.LayoutControlManIndexe + Me.TextEdit4.TabIndex = 31 + ' + 'CONNECTION_IDTextBox + ' + Me.CONNECTION_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "CONNECTION_ID", True)) + Me.CONNECTION_IDTextBox.Location = New System.Drawing.Point(337, 136) + Me.CONNECTION_IDTextBox.Name = "CONNECTION_IDTextBox" + Me.CONNECTION_IDTextBox.Size = New System.Drawing.Size(20, 20) + Me.CONNECTION_IDTextBox.TabIndex = 30 + ' + 'SQL_RESULTTextBox + ' + Me.SQL_RESULTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "SQL_RESULT", True)) + Me.SQL_RESULTTextBox.Location = New System.Drawing.Point(465, 136) + Me.SQL_RESULTTextBox.Name = "SQL_RESULTTextBox" + Me.SQL_RESULTTextBox.Size = New System.Drawing.Size(444, 20) + Me.SQL_RESULTTextBox.TabIndex = 29 + ' + 'WD_INDEXComboBox + ' + Me.WD_INDEXComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "WD_INDEX", True)) + Me.WD_INDEXComboBox.DataSource = Me.VWIDB_BE_ATTRIBUTEBindingSource + Me.WD_INDEXComboBox.DisplayMember = "ATTR_TITLE" + Me.WD_INDEXComboBox.FormattingEnabled = True + Me.WD_INDEXComboBox.Location = New System.Drawing.Point(113, 45) + Me.WD_INDEXComboBox.Name = "WD_INDEXComboBox" + Me.WD_INDEXComboBox.Size = New System.Drawing.Size(344, 21) + Me.WD_INDEXComboBox.TabIndex = 28 + Me.WD_INDEXComboBox.ValueMember = "ATTR_TITLE" + ' + 'VWIDB_BE_ATTRIBUTEBindingSource + ' + Me.VWIDB_BE_ATTRIBUTEBindingSource.DataMember = "VWIDB_BE_ATTRIBUTE" + Me.VWIDB_BE_ATTRIBUTEBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'VKT_ADD_ITEMCheckBox + ' + Me.VKT_ADD_ITEMCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "VKT_ADD_ITEM", True)) + Me.VKT_ADD_ITEMCheckBox.Location = New System.Drawing.Point(647, 103) + Me.VKT_ADD_ITEMCheckBox.Name = "VKT_ADD_ITEMCheckBox" + Me.VKT_ADD_ITEMCheckBox.Padding = New System.Windows.Forms.Padding(2) + Me.VKT_ADD_ITEMCheckBox.Size = New System.Drawing.Size(265, 20) + Me.VKT_ADD_ITEMCheckBox.TabIndex = 14 + Me.VKT_ADD_ITEMCheckBox.Text = "Neueingabe erlauben" + Me.VKT_ADD_ITEMCheckBox.UseVisualStyleBackColor = True + ' + 'VKT_PREVENT_MULTIPLE_VALUESCheckBox + ' + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "VKT_PREVENT_MULTIPLE_VALUES", True)) + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Location = New System.Drawing.Point(454, 103) + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Name = "VKT_PREVENT_MULTIPLE_VALUESCheckBox" + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Padding = New System.Windows.Forms.Padding(2) + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Size = New System.Drawing.Size(189, 20) + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.TabIndex = 13 + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Text = "Doppelte Einträge verhindern" + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.UseVisualStyleBackColor = True + ' + 'MULTISELECTCheckBox + ' + Me.MULTISELECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "MULTISELECT", True)) + Me.MULTISELECTCheckBox.Location = New System.Drawing.Point(236, 103) + Me.MULTISELECTCheckBox.Name = "MULTISELECTCheckBox" + Me.MULTISELECTCheckBox.Padding = New System.Windows.Forms.Padding(2) + Me.MULTISELECTCheckBox.Size = New System.Drawing.Size(214, 20) + Me.MULTISELECTCheckBox.TabIndex = 12 + Me.MULTISELECTCheckBox.Text = "Mehrfachauswahl" + Me.MULTISELECTCheckBox.UseVisualStyleBackColor = True + ' + 'btneditSQLmanIndex + ' + Me.btneditSQLmanIndex.Appearance.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btneditSQLmanIndex.Appearance.Options.UseFont = True + Me.btneditSQLmanIndex.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.editdatasource + Me.btneditSQLmanIndex.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.btneditSQLmanIndex.Location = New System.Drawing.Point(12, 133) + Me.btneditSQLmanIndex.Name = "btneditSQLmanIndex" + Me.btneditSQLmanIndex.Padding = New System.Windows.Forms.Padding(5) + Me.btneditSQLmanIndex.Size = New System.Drawing.Size(220, 32) + Me.btneditSQLmanIndex.StyleController = Me.LayoutControlManIndexe + Me.btneditSQLmanIndex.TabIndex = 16 + Me.btneditSQLmanIndex.Text = "SQL Designer" + ' + 'TextEditAddedWho_ManIndex + ' + Me.TextEditAddedWho_ManIndex.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "ADDED_WHO", True)) + Me.TextEditAddedWho_ManIndex.Enabled = False + Me.TextEditAddedWho_ManIndex.Location = New System.Drawing.Point(113, 206) + Me.TextEditAddedWho_ManIndex.MenuManager = Me.RibbonControl1 + Me.TextEditAddedWho_ManIndex.Name = "TextEditAddedWho_ManIndex" + Me.TextEditAddedWho_ManIndex.Size = New System.Drawing.Size(298, 20) + Me.TextEditAddedWho_ManIndex.StyleController = Me.LayoutControlManIndexe + Me.TextEditAddedWho_ManIndex.TabIndex = 18 + ' + 'TextEdit2 + ' + Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "ADDED_WHEN", True)) + Me.TextEdit2.Location = New System.Drawing.Point(113, 236) + Me.TextEdit2.MenuManager = Me.RibbonControl1 + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.Size = New System.Drawing.Size(298, 20) + Me.TextEdit2.StyleController = Me.LayoutControlManIndexe + Me.TextEdit2.TabIndex = 19 + ' + 'TextEditChangedWho_ManIndex + ' + Me.TextEditChangedWho_ManIndex.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "CHANGED_WHO", True)) + Me.TextEditChangedWho_ManIndex.Location = New System.Drawing.Point(519, 206) + Me.TextEditChangedWho_ManIndex.MenuManager = Me.RibbonControl1 + Me.TextEditChangedWho_ManIndex.Name = "TextEditChangedWho_ManIndex" + Me.TextEditChangedWho_ManIndex.Size = New System.Drawing.Size(390, 20) + Me.TextEditChangedWho_ManIndex.StyleController = Me.LayoutControlManIndexe + Me.TextEditChangedWho_ManIndex.TabIndex = 20 + ' + 'GUIDTextBoxMANINDEX + ' + Me.GUIDTextBoxMANINDEX.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "GUID", True)) + Me.GUIDTextBoxMANINDEX.Location = New System.Drawing.Point(113, 15) + Me.GUIDTextBoxMANINDEX.MenuManager = Me.RibbonControl1 + Me.GUIDTextBoxMANINDEX.Name = "GUIDTextBoxMANINDEX" + Me.GUIDTextBoxMANINDEX.Size = New System.Drawing.Size(53, 20) + Me.GUIDTextBoxMANINDEX.StyleController = Me.LayoutControlManIndexe + Me.GUIDTextBoxMANINDEX.TabIndex = 21 + ' + 'TextEdit10 + ' + Me.TextEdit10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "NAME", True)) + Me.TextEdit10.Location = New System.Drawing.Point(565, 45) + Me.TextEdit10.MenuManager = Me.RibbonControl1 + Me.TextEdit10.Name = "TextEdit10" + Me.TextEdit10.Properties.ReadOnly = True + Me.TextEdit10.Size = New System.Drawing.Size(344, 20) + Me.TextEdit10.StyleController = Me.LayoutControlManIndexe + Me.TextEdit10.TabIndex = 22 + ' + 'TextEdit11 + ' + Me.TextEdit11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "COMMENT", True)) + Me.TextEdit11.Location = New System.Drawing.Point(113, 76) + Me.TextEdit11.MenuManager = Me.RibbonControl1 + Me.TextEdit11.Name = "TextEdit11" + Me.TextEdit11.Size = New System.Drawing.Size(796, 20) + Me.TextEdit11.StyleController = Me.LayoutControlManIndexe + Me.TextEdit11.TabIndex = 23 + ' + 'SpinEdit1 + ' + Me.SpinEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_INDEX_MANBindingSource, "SEQUENCE", True)) + Me.SpinEdit1.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.SpinEdit1.Location = New System.Drawing.Point(274, 15) + 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(53, 20) + Me.SpinEdit1.StyleController = Me.LayoutControlManIndexe + Me.SpinEdit1.TabIndex = 25 + ' + 'ComboBoxEdit4 + ' + Me.ComboBoxEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_INDEX_MANBindingSource, "DATATYPE", True)) + Me.ComboBoxEdit4.Location = New System.Drawing.Point(113, 106) + Me.ComboBoxEdit4.MenuManager = Me.RibbonControl1 + Me.ComboBoxEdit4.Name = "ComboBoxEdit4" + Me.ComboBoxEdit4.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.ComboBoxEdit4.Properties.Items.AddRange(New Object() {"VARCHAR", "INTEGER", "DATE", "BOOLEAN"}) + Me.ComboBoxEdit4.Size = New System.Drawing.Size(116, 20) + Me.ComboBoxEdit4.StyleController = Me.LayoutControlManIndexe + Me.ComboBoxEdit4.TabIndex = 27 + ' + 'ACTIVECheckBox2 + ' + Me.ACTIVECheckBox2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_INDEX_MANBindingSource, "ACTIVE", True)) + Me.ACTIVECheckBox2.Location = New System.Drawing.Point(337, 15) + Me.ACTIVECheckBox2.MenuManager = Me.RibbonControl1 + Me.ACTIVECheckBox2.Name = "ACTIVECheckBox2" + Me.ACTIVECheckBox2.Properties.Caption = "Aktiv" + Me.ACTIVECheckBox2.Size = New System.Drawing.Size(333, 18) + Me.ACTIVECheckBox2.StyleController = Me.LayoutControlManIndexe + Me.ACTIVECheckBox2.TabIndex = 33 + ' + 'OPTIONALCheckBox2 + ' + Me.OPTIONALCheckBox2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_INDEX_MANBindingSource, "OPTIONAL", True)) + Me.OPTIONALCheckBox2.Location = New System.Drawing.Point(680, 15) + Me.OPTIONALCheckBox2.MenuManager = Me.RibbonControl1 + Me.OPTIONALCheckBox2.Name = "OPTIONALCheckBox2" + Me.OPTIONALCheckBox2.Properties.Caption = "Optional" + Me.OPTIONALCheckBox2.Size = New System.Drawing.Size(229, 18) + Me.OPTIONALCheckBox2.StyleController = Me.LayoutControlManIndexe + Me.OPTIONALCheckBox2.TabIndex = 34 + ' + 'LayoutControlGroupDoctype + ' + Me.LayoutControlGroupDoctype.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroupDoctype.GroupBordersVisible = False + Me.LayoutControlGroupDoctype.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem17, Me.LayoutControlItem19, Me.LayoutControlItem21, Me.LayoutControlItem24, Me.LayoutControlItem2, Me.LayoutControlItem8, Me.LayoutControlItem11, Me.LayoutControlItem13, Me.LayoutControlItem9, Me.LayoutControlItem27, Me.LayoutControlItem29, Me.LayoutControlItem31, Me.LayoutControlItem18, Me.EmptySpaceItem6, Me.LayoutControlItem46, Me.LayoutControlItem63, Me.LayoutControlItem64, Me.LayoutControlItem6, Me.LayoutControlItem16}) + Me.LayoutControlGroupDoctype.Name = "LayoutControlGroupDoctype" + Me.LayoutControlGroupDoctype.Size = New System.Drawing.Size(924, 271) + Me.LayoutControlGroupDoctype.TextVisible = False + ' + 'LayoutControlItem17 + ' + Me.LayoutControlItem17.Control = Me.MULTISELECTCheckBox + Me.LayoutControlItem17.Location = New System.Drawing.Point(224, 91) + Me.LayoutControlItem17.Name = "LayoutControlItem17" + Me.LayoutControlItem17.Size = New System.Drawing.Size(218, 30) + Me.LayoutControlItem17.Text = "MULTISELECT:" + Me.LayoutControlItem17.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem17.TextVisible = False + ' + 'LayoutControlItem19 + ' + Me.LayoutControlItem19.Control = Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox + Me.LayoutControlItem19.Location = New System.Drawing.Point(442, 91) + Me.LayoutControlItem19.Name = "LayoutControlItem19" + Me.LayoutControlItem19.Size = New System.Drawing.Size(193, 30) + Me.LayoutControlItem19.Text = "VKT PREVENT MULTIPLE VALUES:" + Me.LayoutControlItem19.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem19.TextVisible = False + ' + 'LayoutControlItem21 + ' + Me.LayoutControlItem21.Control = Me.VKT_ADD_ITEMCheckBox + Me.LayoutControlItem21.Location = New System.Drawing.Point(635, 91) + Me.LayoutControlItem21.Name = "LayoutControlItem21" + Me.LayoutControlItem21.Size = New System.Drawing.Size(269, 30) + Me.LayoutControlItem21.Text = "VKT ADD ITEM:" + Me.LayoutControlItem21.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem21.TextVisible = False + ' + 'LayoutControlItem24 + ' + Me.LayoutControlItem24.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem24.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem24.Control = Me.TextEditAddedWho_ManIndex + Me.LayoutControlItem24.Enabled = False + Me.LayoutControlItem24.Location = New System.Drawing.Point(0, 191) + Me.LayoutControlItem24.Name = "LayoutControlItem24" + Me.LayoutControlItem24.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem24.Size = New System.Drawing.Size(406, 30) + Me.LayoutControlItem24.Text = "ErstelltWer" + Me.LayoutControlItem24.TextSize = New System.Drawing.Size(86, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem2.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem2.Control = Me.GUIDTextBoxMANINDEX + Me.LayoutControlItem2.Enabled = False + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem2.Size = New System.Drawing.Size(161, 30) + Me.LayoutControlItem2.Text = "ID" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(86, 13) + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.TextEdit10 + Me.LayoutControlItem8.Location = New System.Drawing.Point(452, 30) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem8.Size = New System.Drawing.Size(452, 31) + Me.LayoutControlItem8.Text = "NameIntern" + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(86, 13) + ' + 'LayoutControlItem11 + ' + Me.LayoutControlItem11.Control = Me.TextEdit11 + Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 61) + Me.LayoutControlItem11.Name = "LayoutControlItem11" + Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem11.Size = New System.Drawing.Size(904, 30) + Me.LayoutControlItem11.Text = "Hinweis Eingabe" + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(86, 13) + ' + 'LayoutControlItem13 + ' + Me.LayoutControlItem13.Control = Me.ComboBoxEdit4 + Me.LayoutControlItem13.Location = New System.Drawing.Point(0, 91) + Me.LayoutControlItem13.Name = "LayoutControlItem13" + Me.LayoutControlItem13.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem13.Size = New System.Drawing.Size(224, 30) + Me.LayoutControlItem13.Text = "Datentyp" + Me.LayoutControlItem13.TextSize = New System.Drawing.Size(86, 13) + ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.Control = Me.SpinEdit1 + Me.LayoutControlItem9.Location = New System.Drawing.Point(161, 0) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem9.Size = New System.Drawing.Size(161, 30) + Me.LayoutControlItem9.Text = "Reihenfolge" + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(86, 13) + ' + 'LayoutControlItem27 + ' + Me.LayoutControlItem27.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem27.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem27.Control = Me.TextEdit2 + Me.LayoutControlItem27.Enabled = False + Me.LayoutControlItem27.Location = New System.Drawing.Point(0, 221) + Me.LayoutControlItem27.Name = "LayoutControlItem27" + Me.LayoutControlItem27.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem27.Size = New System.Drawing.Size(406, 30) + Me.LayoutControlItem27.Text = "Erstellt wann" + Me.LayoutControlItem27.TextSize = New System.Drawing.Size(86, 13) + ' + 'LayoutControlItem29 + ' + Me.LayoutControlItem29.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem29.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem29.Control = Me.TextEditChangedWho_ManIndex + Me.LayoutControlItem29.Enabled = False + Me.LayoutControlItem29.Location = New System.Drawing.Point(406, 191) + Me.LayoutControlItem29.Name = "LayoutControlItem29" + Me.LayoutControlItem29.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem29.Size = New System.Drawing.Size(498, 30) + Me.LayoutControlItem29.Text = "Geändert wer" + Me.LayoutControlItem29.TextSize = New System.Drawing.Size(86, 13) + ' + 'LayoutControlItem16 + ' + Me.LayoutControlItem16.Control = Me.WD_INDEXComboBox + Me.LayoutControlItem16.Location = New System.Drawing.Point(0, 30) + Me.LayoutControlItem16.Name = "LayoutControlItem16" + Me.LayoutControlItem16.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem16.Size = New System.Drawing.Size(452, 31) + Me.LayoutControlItem16.Text = "Attribut" + Me.LayoutControlItem16.TextSize = New System.Drawing.Size(86, 13) + ' + 'LayoutControlItem31 + ' + Me.LayoutControlItem31.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem31.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem31.Control = Me.CONNECTION_IDTextBox + Me.LayoutControlItem31.Location = New System.Drawing.Point(224, 121) + Me.LayoutControlItem31.Name = "LayoutControlItem31" + Me.LayoutControlItem31.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem31.Size = New System.Drawing.Size(128, 36) + Me.LayoutControlItem31.Text = "ConnId:" + Me.LayoutControlItem31.TextSize = New System.Drawing.Size(86, 13) + ' + 'LayoutControlItem18 + ' + Me.LayoutControlItem18.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem18.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem18.Control = Me.SQL_RESULTTextBox + Me.LayoutControlItem18.Location = New System.Drawing.Point(352, 121) + Me.LayoutControlItem18.Name = "LayoutControlItem18" + Me.LayoutControlItem18.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem18.Size = New System.Drawing.Size(552, 36) + Me.LayoutControlItem18.Text = "SQL:" + Me.LayoutControlItem18.TextSize = New System.Drawing.Size(86, 13) + ' + 'EmptySpaceItem6 + ' + Me.EmptySpaceItem6.AllowHotTrack = False + Me.EmptySpaceItem6.Location = New System.Drawing.Point(0, 157) + Me.EmptySpaceItem6.Name = "EmptySpaceItem6" + Me.EmptySpaceItem6.Size = New System.Drawing.Size(904, 34) + Me.EmptySpaceItem6.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlItem46 + ' + Me.LayoutControlItem46.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem46.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem46.Control = Me.TextEdit4 + Me.LayoutControlItem46.Enabled = False + Me.LayoutControlItem46.Location = New System.Drawing.Point(406, 221) + Me.LayoutControlItem46.Name = "LayoutControlItem46" + Me.LayoutControlItem46.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem46.Size = New System.Drawing.Size(498, 30) + Me.LayoutControlItem46.Text = "Geändert wann" + Me.LayoutControlItem46.TextSize = New System.Drawing.Size(86, 13) + ' + 'LayoutControlItem63 + ' + Me.LayoutControlItem63.Control = Me.ACTIVECheckBox2 + Me.LayoutControlItem63.Location = New System.Drawing.Point(322, 0) + Me.LayoutControlItem63.Name = "LayoutControlItem63" + Me.LayoutControlItem63.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem63.Size = New System.Drawing.Size(343, 30) + Me.LayoutControlItem63.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem63.TextVisible = False + ' + 'LayoutControlItem64 + ' + Me.LayoutControlItem64.Control = Me.OPTIONALCheckBox2 + Me.LayoutControlItem64.Location = New System.Drawing.Point(665, 0) + Me.LayoutControlItem64.Name = "LayoutControlItem64" + Me.LayoutControlItem64.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem64.Size = New System.Drawing.Size(239, 30) + Me.LayoutControlItem64.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem64.TextVisible = False + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.btneditSQLmanIndex + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 121) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Size = New System.Drawing.Size(224, 36) + Me.LayoutControlItem6.Text = "SQL Abfrage bearbeiten" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem6.TextVisible = False + ' + 'ListBoxAutoIndexe + ' + Me.ListBoxAutoIndexe.DataSource = Me.TBDD_INDEX_MANBindingSource + Me.ListBoxAutoIndexe.DisplayMember = "NAME" + Me.ListBoxAutoIndexe.Dock = System.Windows.Forms.DockStyle.Left + Me.ListBoxAutoIndexe.Location = New System.Drawing.Point(0, 0) + Me.ListBoxAutoIndexe.Name = "ListBoxAutoIndexe" + Me.ListBoxAutoIndexe.Size = New System.Drawing.Size(187, 271) + Me.ListBoxAutoIndexe.TabIndex = 2 + Me.ListBoxAutoIndexe.ValueMember = "GUID" + ' + 'XtraTabPageRework + ' + Me.XtraTabPageRework.Controls.Add(Me.LayoutControlRework) + Me.XtraTabPageRework.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPageRework.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.XtraTabPageRework.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.XtraTabPageRework.Name = "XtraTabPageRework" + Me.XtraTabPageRework.Size = New System.Drawing.Size(1111, 269) + Me.XtraTabPageRework.Text = "Nachbearbeitungsfunktionen manueller Index" + ' + 'LayoutControlRework + ' + Me.LayoutControlRework.Location = New System.Drawing.Point(107, 33) + Me.LayoutControlRework.Name = "LayoutControlRework" + Me.LayoutControlRework.Root = Me.LayoutControlGroup3 + Me.LayoutControlRework.Size = New System.Drawing.Size(180, 120) + Me.LayoutControlRework.TabIndex = 0 + Me.LayoutControlRework.Text = "LayoutControl1" + ' + 'LayoutControlGroup3 + ' + Me.LayoutControlGroup3.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroup3.GroupBordersVisible = False + Me.LayoutControlGroup3.Name = "LayoutControlGroup3" + Me.LayoutControlGroup3.Size = New System.Drawing.Size(180, 120) + Me.LayoutControlGroup3.TextVisible = False + ' + 'XtraTabPageAutoIndexe + ' + Me.XtraTabPageAutoIndexe.Controls.Add(Me.LayoutControlAutoIndexe) + Me.XtraTabPageAutoIndexe.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPageAutoIndexe.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.XtraTabPageAutoIndexe.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.XtraTabPageAutoIndexe.Name = "XtraTabPageAutoIndexe" + Me.XtraTabPageAutoIndexe.Size = New System.Drawing.Size(1111, 269) + Me.XtraTabPageAutoIndexe.Text = "automatische/Feste Attribute" + ' + 'LayoutControlAutoIndexe + ' + Me.LayoutControlAutoIndexe.Controls.Add(Me.ListBox1) + Me.LayoutControlAutoIndexe.Controls.Add(Me.CONNECTION_IDTextBox1) + Me.LayoutControlAutoIndexe.Controls.Add(Me.SQL_RESULTTextBox1) + Me.LayoutControlAutoIndexe.Controls.Add(Me.SQL_ACTIVECheckBox) + Me.LayoutControlAutoIndexe.Controls.Add(Me.VALUETextBox) + Me.LayoutControlAutoIndexe.Controls.Add(Me.INDEXNAMEComboBox) + Me.LayoutControlAutoIndexe.Controls.Add(Me.ACTIVECheckBox1) + Me.LayoutControlAutoIndexe.Controls.Add(Me.SEQUENCENumericUpDown1) + Me.LayoutControlAutoIndexe.Controls.Add(Me.GUIDTextBoxAutoAttribute) + Me.LayoutControlAutoIndexe.Controls.Add(Me.SimpleButton1) + Me.LayoutControlAutoIndexe.Controls.Add(Me.ComboBoxEditAAttrFileParam) + Me.LayoutControlAutoIndexe.Controls.Add(Me.SimpleButton2) + Me.LayoutControlAutoIndexe.Controls.Add(Me.ADDED_WHOTextBoxAutoAttribut) + Me.LayoutControlAutoIndexe.Controls.Add(Me.TextEdit3) + Me.LayoutControlAutoIndexe.Controls.Add(Me.CHANGED_WHOTextEditAutoAttribut) + Me.LayoutControlAutoIndexe.Controls.Add(Me.TextEdit5) + Me.LayoutControlAutoIndexe.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControlAutoIndexe.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlAutoIndexe.Name = "LayoutControlAutoIndexe" + Me.LayoutControlAutoIndexe.Root = Me.LayoutControlGroup2 + Me.LayoutControlAutoIndexe.Size = New System.Drawing.Size(1111, 269) + Me.LayoutControlAutoIndexe.TabIndex = 0 + Me.LayoutControlAutoIndexe.Text = "LayoutControl1" + ' + 'ListBox1 + ' + Me.ListBox1.DataSource = Me.TBDD_INDEX_AUTOMBindingSource + Me.ListBox1.DisplayMember = "INDEXNAME" + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.Location = New System.Drawing.Point(12, 12) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(175, 238) + Me.ListBox1.TabIndex = 24 + ' + 'TBDD_INDEX_AUTOMBindingSource + ' + Me.TBDD_INDEX_AUTOMBindingSource.DataMember = "TBDD_INDEX_AUTOM" + Me.TBDD_INDEX_AUTOMBindingSource.DataSource = Me.GlobixDataset + ' + 'CONNECTION_IDTextBox1 + ' + Me.CONNECTION_IDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CONNECTION_ID", True)) + Me.CONNECTION_IDTextBox1.Enabled = False + Me.CONNECTION_IDTextBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CONNECTION_IDTextBox1.Location = New System.Drawing.Point(241, 206) + Me.CONNECTION_IDTextBox1.Name = "CONNECTION_IDTextBox1" + Me.CONNECTION_IDTextBox1.Size = New System.Drawing.Size(399, 20) + Me.CONNECTION_IDTextBox1.TabIndex = 23 + ' + 'SQL_RESULTTextBox1 + ' + Me.SQL_RESULTTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "SQL_RESULT", True)) + Me.SQL_RESULTTextBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SQL_RESULTTextBox1.Location = New System.Drawing.Point(673, 206) + Me.SQL_RESULTTextBox1.Name = "SQL_RESULTTextBox1" + Me.SQL_RESULTTextBox1.ReadOnly = True + Me.SQL_RESULTTextBox1.Size = New System.Drawing.Size(423, 20) + Me.SQL_RESULTTextBox1.TabIndex = 14 + ' + 'SQL_ACTIVECheckBox + ' + Me.SQL_ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_AUTOMBindingSource, "SQL_ACTIVE", True)) + Me.SQL_ACTIVECheckBox.Location = New System.Drawing.Point(194, 116) + Me.SQL_ACTIVECheckBox.Name = "SQL_ACTIVECheckBox" + Me.SQL_ACTIVECheckBox.Size = New System.Drawing.Size(163, 20) + Me.SQL_ACTIVECheckBox.TabIndex = 12 + Me.SQL_ACTIVECheckBox.Text = "SQL Config?" + Me.SQL_ACTIVECheckBox.UseVisualStyleBackColor = True + ' + 'VALUETextBox + ' + Me.VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "VALUE", True)) + Me.VALUETextBox.Location = New System.Drawing.Point(369, 76) + Me.VALUETextBox.Name = "VALUETextBox" + Me.VALUETextBox.Size = New System.Drawing.Size(177, 20) + Me.VALUETextBox.TabIndex = 9 + ' + 'INDEXNAMEComboBox + ' + Me.INDEXNAMEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "INDEXNAME", True)) + Me.INDEXNAMEComboBox.DataSource = Me.VWIDB_BE_ATTRIBUTEBindingSource + Me.INDEXNAMEComboBox.DisplayMember = "ATTR_TITLE" + Me.INDEXNAMEComboBox.FormattingEnabled = True + Me.INDEXNAMEComboBox.Location = New System.Drawing.Point(369, 45) + Me.INDEXNAMEComboBox.Name = "INDEXNAMEComboBox" + Me.INDEXNAMEComboBox.Size = New System.Drawing.Size(376, 21) + Me.INDEXNAMEComboBox.TabIndex = 8 + ' + 'ACTIVECheckBox1 + ' + Me.ACTIVECheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_AUTOMBindingSource, "ACTIVE", True)) + Me.ACTIVECheckBox1.Location = New System.Drawing.Point(540, 12) + Me.ACTIVECheckBox1.Name = "ACTIVECheckBox1" + Me.ACTIVECheckBox1.Padding = New System.Windows.Forms.Padding(2) + Me.ACTIVECheckBox1.Size = New System.Drawing.Size(559, 20) + Me.ACTIVECheckBox1.TabIndex = 7 + Me.ACTIVECheckBox1.Text = "Aktiv" + Me.ACTIVECheckBox1.UseVisualStyleBackColor = True + ' + 'SEQUENCENumericUpDown1 + ' + Me.SEQUENCENumericUpDown1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_INDEX_AUTOMBindingSource, "SEQUENCE", True)) + Me.SEQUENCENumericUpDown1.Location = New System.Drawing.Point(489, 15) + Me.SEQUENCENumericUpDown1.Name = "SEQUENCENumericUpDown1" + Me.SEQUENCENumericUpDown1.Size = New System.Drawing.Size(44, 22) + Me.SEQUENCENumericUpDown1.TabIndex = 6 + ' + 'GUIDTextBoxAutoAttribute + ' + Me.GUIDTextBoxAutoAttribute.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "GUID", True)) + Me.GUIDTextBoxAutoAttribute.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GUIDTextBoxAutoAttribute.Location = New System.Drawing.Point(369, 15) + Me.GUIDTextBoxAutoAttribute.Name = "GUIDTextBoxAutoAttribute" + Me.GUIDTextBoxAutoAttribute.ReadOnly = True + Me.GUIDTextBoxAutoAttribute.Size = New System.Drawing.Size(42, 20) + Me.GUIDTextBoxAutoAttribute.TabIndex = 5 + ' + 'SimpleButton1 + ' + Me.SimpleButton1.Appearance.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.SimpleButton1.Appearance.Options.UseForeColor = True + Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton1.Location = New System.Drawing.Point(553, 73) + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.Size = New System.Drawing.Size(111, 36) + Me.SimpleButton1.StyleController = Me.LayoutControlAutoIndexe + Me.SimpleButton1.TabIndex = 10 + Me.SimpleButton1.Text = "Übernehmen" + ' + 'ComboBoxEditAAttrFileParam + ' + Me.ComboBoxEditAAttrFileParam.Location = New System.Drawing.Point(846, 76) + Me.ComboBoxEditAAttrFileParam.MenuManager = Me.RibbonControl1 + Me.ComboBoxEditAAttrFileParam.Name = "ComboBoxEditAAttrFileParam" + Me.ComboBoxEditAAttrFileParam.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.ComboBoxEditAAttrFileParam.Properties.Items.AddRange(New Object() {"FILENAME_EXT", "FILENAME", "EXTENSION", "DATE_CREATED", "DATE_MODIFIED"}) + Me.ComboBoxEditAAttrFileParam.Size = New System.Drawing.Size(250, 20) + Me.ComboBoxEditAAttrFileParam.StyleController = Me.LayoutControlAutoIndexe + Me.ComboBoxEditAAttrFileParam.TabIndex = 11 + ' + 'SimpleButton2 + ' + Me.SimpleButton2.Appearance.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SimpleButton2.Appearance.Options.UseFont = True + Me.SimpleButton2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.editdatasource + Me.SimpleButton2.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.SimpleButton2.Location = New System.Drawing.Point(364, 113) + Me.SimpleButton2.Name = "SimpleButton2" + Me.SimpleButton2.Size = New System.Drawing.Size(735, 22) + Me.SimpleButton2.StyleController = Me.LayoutControlAutoIndexe + Me.SimpleButton2.TabIndex = 13 + Me.SimpleButton2.Text = "SQL Designer" + ' + 'ADDED_WHOTextBoxAutoAttribut + ' + Me.ADDED_WHOTextBoxAutoAttribut.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBoxAutoAttribut.Enabled = False + Me.ADDED_WHOTextBoxAutoAttribut.Location = New System.Drawing.Point(369, 146) + Me.ADDED_WHOTextBoxAutoAttribut.MenuManager = Me.RibbonControl1 + Me.ADDED_WHOTextBoxAutoAttribut.Name = "ADDED_WHOTextBoxAutoAttribut" + Me.ADDED_WHOTextBoxAutoAttribut.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOTextBoxAutoAttribut.Properties.Appearance.Options.UseFont = True + Me.ADDED_WHOTextBoxAutoAttribut.Size = New System.Drawing.Size(271, 20) + Me.ADDED_WHOTextBoxAutoAttribut.StyleController = Me.LayoutControlAutoIndexe + Me.ADDED_WHOTextBoxAutoAttribut.TabIndex = 19 + ' + 'TextEdit3 + ' + Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "ADDED_WHEN", True)) + Me.TextEdit3.Enabled = False + Me.TextEdit3.Location = New System.Drawing.Point(369, 176) + Me.TextEdit3.MenuManager = Me.RibbonControl1 + Me.TextEdit3.Name = "TextEdit3" + Me.TextEdit3.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextEdit3.Properties.Appearance.Options.UseFont = True + Me.TextEdit3.Size = New System.Drawing.Size(271, 20) + Me.TextEdit3.StyleController = Me.LayoutControlAutoIndexe + Me.TextEdit3.TabIndex = 20 + ' + 'CHANGED_WHOTextEditAutoAttribut + ' + Me.CHANGED_WHOTextEditAutoAttribut.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextEditAutoAttribut.EditValue = "" + Me.CHANGED_WHOTextEditAutoAttribut.Location = New System.Drawing.Point(825, 146) + Me.CHANGED_WHOTextEditAutoAttribut.MenuManager = Me.RibbonControl1 + Me.CHANGED_WHOTextEditAutoAttribut.Name = "CHANGED_WHOTextEditAutoAttribut" + Me.CHANGED_WHOTextEditAutoAttribut.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOTextEditAutoAttribut.Properties.Appearance.Options.UseFont = True + Me.CHANGED_WHOTextEditAutoAttribut.Size = New System.Drawing.Size(271, 20) + Me.CHANGED_WHOTextEditAutoAttribut.StyleController = Me.LayoutControlAutoIndexe + Me.CHANGED_WHOTextEditAutoAttribut.TabIndex = 21 + ' + 'TextEdit5 + ' + Me.TextEdit5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CHANGED_WHEN", True)) + Me.TextEdit5.Location = New System.Drawing.Point(825, 176) + Me.TextEdit5.MenuManager = Me.RibbonControl1 + Me.TextEdit5.Name = "TextEdit5" + Me.TextEdit5.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextEdit5.Properties.Appearance.Options.UseFont = True + Me.TextEdit5.Size = New System.Drawing.Size(271, 20) + Me.TextEdit5.StyleController = Me.LayoutControlAutoIndexe + Me.TextEdit5.TabIndex = 22 + ' + 'LayoutControlGroup2 + ' + Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroup2.GroupBordersVisible = False + Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem15, Me.LayoutControlItem23, Me.LayoutControlItem33, Me.LayoutControlItem34, Me.LayoutControlItem35, Me.LayoutControlItem14, Me.LayoutControlItem40, Me.LayoutControlItem37, Me.EmptySpaceItem4, Me.ADDED_WHOAutoAttribut, Me.LayoutControlItem41, Me.CHANGED_WHOItemAutoAttribut, Me.LayoutControlItem43, Me.LayoutControlItem44, Me.LayoutControlItem39, Me.LayoutControlItem45, Me.LayoutControlItem42}) + Me.LayoutControlGroup2.Name = "LayoutControlGroup2" + Me.LayoutControlGroup2.Size = New System.Drawing.Size(1111, 269) + Me.LayoutControlGroup2.TextVisible = False + ' + 'LayoutControlItem15 + ' + Me.LayoutControlItem15.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem15.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem15.Control = Me.GUIDTextBoxAutoAttribute + Me.LayoutControlItem15.Location = New System.Drawing.Point(179, 0) + Me.LayoutControlItem15.Name = "LayoutControlItem15" + Me.LayoutControlItem15.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem15.Size = New System.Drawing.Size(227, 30) + Me.LayoutControlItem15.Text = "ID" + Me.LayoutControlItem15.TextSize = New System.Drawing.Size(163, 13) + ' + 'LayoutControlItem23 + ' + Me.LayoutControlItem23.Control = Me.SEQUENCENumericUpDown1 + Me.LayoutControlItem23.Location = New System.Drawing.Point(406, 0) + Me.LayoutControlItem23.Name = "LayoutControlItem23" + Me.LayoutControlItem23.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem23.Size = New System.Drawing.Size(122, 30) + Me.LayoutControlItem23.Text = "Reihenfolge" + Me.LayoutControlItem23.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.AutoSize + Me.LayoutControlItem23.TextSize = New System.Drawing.Size(63, 13) + Me.LayoutControlItem23.TextToControlDistance = 5 + ' + 'LayoutControlItem33 + ' + Me.LayoutControlItem33.Control = Me.ACTIVECheckBox1 + Me.LayoutControlItem33.Location = New System.Drawing.Point(528, 0) + Me.LayoutControlItem33.Name = "LayoutControlItem33" + Me.LayoutControlItem33.Size = New System.Drawing.Size(563, 30) + Me.LayoutControlItem33.Text = "Aktiv" + Me.LayoutControlItem33.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem33.TextVisible = False + ' + 'LayoutControlItem34 + ' + Me.LayoutControlItem34.Control = Me.INDEXNAMEComboBox + Me.LayoutControlItem34.Location = New System.Drawing.Point(179, 30) + Me.LayoutControlItem34.Name = "LayoutControlItem34" + Me.LayoutControlItem34.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem34.Size = New System.Drawing.Size(561, 31) + Me.LayoutControlItem34.Text = "Attribut" + Me.LayoutControlItem34.TextSize = New System.Drawing.Size(163, 13) + ' + 'LayoutControlItem35 + ' + Me.LayoutControlItem35.AppearanceItemCaption.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.LayoutControlItem35.AppearanceItemCaption.Options.UseForeColor = True + Me.LayoutControlItem35.Control = Me.VALUETextBox + Me.LayoutControlItem35.Location = New System.Drawing.Point(179, 61) + Me.LayoutControlItem35.Name = "LayoutControlItem35" + Me.LayoutControlItem35.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem35.Size = New System.Drawing.Size(362, 40) + Me.LayoutControlItem35.Text = "Fester oder Automatischer Wert" + Me.LayoutControlItem35.TextSize = New System.Drawing.Size(163, 13) + ' + 'LayoutControlItem14 + ' + Me.LayoutControlItem14.Control = Me.SimpleButton1 + Me.LayoutControlItem14.Location = New System.Drawing.Point(541, 61) + Me.LayoutControlItem14.Name = "LayoutControlItem14" + Me.LayoutControlItem14.Size = New System.Drawing.Size(115, 40) + Me.LayoutControlItem14.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem14.TextVisible = False + ' + 'LayoutControlItem40 + ' + Me.LayoutControlItem40.Control = Me.SQL_ACTIVECheckBox + Me.LayoutControlItem40.Location = New System.Drawing.Point(179, 101) + Me.LayoutControlItem40.Name = "LayoutControlItem40" + Me.LayoutControlItem40.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem40.Size = New System.Drawing.Size(173, 30) + Me.LayoutControlItem40.Text = "SQL ACTIVE:" + Me.LayoutControlItem40.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem40.TextVisible = False + ' + 'LayoutControlItem37 + ' + Me.LayoutControlItem37.AppearanceItemCaption.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.LayoutControlItem37.AppearanceItemCaption.Options.UseForeColor = True + Me.LayoutControlItem37.Control = Me.ComboBoxEditAAttrFileParam + Me.LayoutControlItem37.Location = New System.Drawing.Point(656, 61) + Me.LayoutControlItem37.Name = "LayoutControlItem37" + Me.LayoutControlItem37.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem37.Size = New System.Drawing.Size(435, 40) + Me.LayoutControlItem37.Text = "FILE-Parameter" + Me.LayoutControlItem37.TextSize = New System.Drawing.Size(163, 13) + ' + 'EmptySpaceItem4 + ' + Me.EmptySpaceItem4.AllowHotTrack = False + Me.EmptySpaceItem4.Location = New System.Drawing.Point(740, 30) + Me.EmptySpaceItem4.Name = "EmptySpaceItem4" + Me.EmptySpaceItem4.Size = New System.Drawing.Size(351, 31) + Me.EmptySpaceItem4.TextSize = New System.Drawing.Size(0, 0) + ' + 'ADDED_WHOAutoAttribut + ' + Me.ADDED_WHOAutoAttribut.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOAutoAttribut.AppearanceItemCaption.Options.UseFont = True + Me.ADDED_WHOAutoAttribut.Control = Me.ADDED_WHOTextBoxAutoAttribut + Me.ADDED_WHOAutoAttribut.Enabled = False + Me.ADDED_WHOAutoAttribut.Location = New System.Drawing.Point(179, 131) + Me.ADDED_WHOAutoAttribut.Name = "ADDED_WHOAutoAttribut" + Me.ADDED_WHOAutoAttribut.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.ADDED_WHOAutoAttribut.Size = New System.Drawing.Size(456, 30) + Me.ADDED_WHOAutoAttribut.Text = "Erstellt wer" + Me.ADDED_WHOAutoAttribut.TextSize = New System.Drawing.Size(163, 13) + ' + 'LayoutControlItem41 + ' + Me.LayoutControlItem41.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem41.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem41.Control = Me.TextEdit3 + Me.LayoutControlItem41.Enabled = False + Me.LayoutControlItem41.Location = New System.Drawing.Point(179, 161) + Me.LayoutControlItem41.Name = "LayoutControlItem41" + Me.LayoutControlItem41.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem41.Size = New System.Drawing.Size(456, 30) + Me.LayoutControlItem41.Text = "Erstellt wann" + Me.LayoutControlItem41.TextSize = New System.Drawing.Size(163, 13) + ' + 'CHANGED_WHOItemAutoAttribut + ' + Me.CHANGED_WHOItemAutoAttribut.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOItemAutoAttribut.AppearanceItemCaption.Options.UseFont = True + Me.CHANGED_WHOItemAutoAttribut.Control = Me.CHANGED_WHOTextEditAutoAttribut + Me.CHANGED_WHOItemAutoAttribut.Enabled = False + Me.CHANGED_WHOItemAutoAttribut.Location = New System.Drawing.Point(635, 131) + Me.CHANGED_WHOItemAutoAttribut.Name = "CHANGED_WHOItemAutoAttribut" + Me.CHANGED_WHOItemAutoAttribut.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.CHANGED_WHOItemAutoAttribut.Size = New System.Drawing.Size(456, 30) + Me.CHANGED_WHOItemAutoAttribut.Text = "Geändert wer" + Me.CHANGED_WHOItemAutoAttribut.TextSize = New System.Drawing.Size(163, 13) + ' + 'LayoutControlItem43 + ' + Me.LayoutControlItem43.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem43.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem43.Control = Me.TextEdit5 + Me.LayoutControlItem43.Enabled = False + Me.LayoutControlItem43.Location = New System.Drawing.Point(635, 161) + Me.LayoutControlItem43.Name = "LayoutControlItem43" + Me.LayoutControlItem43.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem43.Size = New System.Drawing.Size(456, 30) + Me.LayoutControlItem43.Text = "Geändert wann" + Me.LayoutControlItem43.TextSize = New System.Drawing.Size(163, 13) + ' + 'LayoutControlItem44 + ' + Me.LayoutControlItem44.Control = Me.ListBox1 + Me.LayoutControlItem44.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem44.Name = "LayoutControlItem44" + Me.LayoutControlItem44.Size = New System.Drawing.Size(179, 249) + Me.LayoutControlItem44.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.AutoSize + Me.LayoutControlItem44.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem44.TextToControlDistance = 0 + Me.LayoutControlItem44.TextVisible = False + ' + 'LayoutControlItem39 + ' + Me.LayoutControlItem39.Control = Me.SimpleButton2 + Me.LayoutControlItem39.Location = New System.Drawing.Point(352, 101) + Me.LayoutControlItem39.Name = "LayoutControlItem39" + Me.LayoutControlItem39.Size = New System.Drawing.Size(739, 30) + Me.LayoutControlItem39.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem39.TextVisible = False + ' + 'LayoutControlItem45 + ' + Me.LayoutControlItem45.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem45.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem45.Control = Me.CONNECTION_IDTextBox1 + Me.LayoutControlItem45.Location = New System.Drawing.Point(179, 191) + Me.LayoutControlItem45.Name = "LayoutControlItem45" + Me.LayoutControlItem45.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem45.Size = New System.Drawing.Size(456, 58) + Me.LayoutControlItem45.Text = "Conn ID:" + Me.LayoutControlItem45.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.AutoSize + Me.LayoutControlItem45.TextSize = New System.Drawing.Size(42, 13) + Me.LayoutControlItem45.TextToControlDistance = 5 + Me.LayoutControlItem45.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never + ' + 'LayoutControlItem42 + ' + Me.LayoutControlItem42.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem42.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem42.Control = Me.SQL_RESULTTextBox1 + Me.LayoutControlItem42.Location = New System.Drawing.Point(635, 191) + Me.LayoutControlItem42.Name = "LayoutControlItem42" + Me.LayoutControlItem42.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem42.Size = New System.Drawing.Size(456, 58) + Me.LayoutControlItem42.Text = "SQL" + Me.LayoutControlItem42.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.AutoSize + Me.LayoutControlItem42.TextSize = New System.Drawing.Size(18, 13) + Me.LayoutControlItem42.TextToControlDistance = 5 + Me.LayoutControlItem42.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never + ' + 'XtraTabPageDynamicFolder + ' + Me.XtraTabPageDynamicFolder.Controls.Add(Me.LayoutControl1) + Me.XtraTabPageDynamicFolder.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPageDynamicFolder.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.XtraTabPageDynamicFolder.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.XtraTabPageDynamicFolder.Name = "XtraTabPageDynamicFolder" + Me.XtraTabPageDynamicFolder.Size = New System.Drawing.Size(1111, 271) + Me.XtraTabPageDynamicFolder.Text = "Dynamischer Ordnerpfad" + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.cmbAllAttributes) + Me.LayoutControl1.Controls.Add(Me.SimpleButton3) + Me.LayoutControl1.Controls.Add(Me.txtcrFoldermanuell) + Me.LayoutControl1.Controls.Add(Me.cmbCrFolderDate) + Me.LayoutControl1.Controls.Add(Me.Label1) + Me.LayoutControl1.Controls.Add(Me.FOLDER_FOR_INDEXTextEdit) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.LayoutControlGroup4 + Me.LayoutControl1.Size = New System.Drawing.Size(1111, 271) + Me.LayoutControl1.TabIndex = 15 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'cmbAllAttributes + ' + Me.cmbAllAttributes.FormattingEnabled = True + Me.cmbAllAttributes.Location = New System.Drawing.Point(269, 95) + Me.cmbAllAttributes.Name = "cmbAllAttributes" + Me.cmbAllAttributes.Size = New System.Drawing.Size(827, 21) + Me.cmbAllAttributes.TabIndex = 10 + ' + 'SimpleButton3 + ' + Me.SimpleButton3.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton3.Location = New System.Drawing.Point(171, 52) + Me.SimpleButton3.Name = "SimpleButton3" + Me.SimpleButton3.Size = New System.Drawing.Size(928, 36) + Me.SimpleButton3.StyleController = Me.LayoutControl1 + Me.SimpleButton3.TabIndex = 9 + Me.SimpleButton3.Text = "Ordnerpfad anhängen" + ' + 'txtcrFoldermanuell + ' + Me.txtcrFoldermanuell.Location = New System.Drawing.Point(269, 157) + Me.txtcrFoldermanuell.MenuManager = Me.RibbonControl1 + Me.txtcrFoldermanuell.Name = "txtcrFoldermanuell" + Me.txtcrFoldermanuell.Size = New System.Drawing.Size(827, 20) + Me.txtcrFoldermanuell.StyleController = Me.LayoutControl1 + Me.txtcrFoldermanuell.TabIndex = 8 + ' + 'cmbCrFolderDate + ' + Me.cmbCrFolderDate.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.cmbCrFolderDate.FormattingEnabled = True + Me.cmbCrFolderDate.Items.AddRange(New Object() {"YYYY/MM/DD", "YYYY/MM", "YYYY", "YYYY-MM", "YY_MM_DD", "YYYY_MM_DD", "DD_MM_YY", "DD_MM_YYYY", "YYMMDD", "YYYYMMDD", "DDMMYY", "DDMMYYYY"}) + Me.cmbCrFolderDate.Location = New System.Drawing.Point(269, 126) + Me.cmbCrFolderDate.Name = "cmbCrFolderDate" + Me.cmbCrFolderDate.Size = New System.Drawing.Size(827, 23) + Me.cmbCrFolderDate.TabIndex = 7 + ' + 'Label1 + ' + Me.Label1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(12, 52) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(155, 128) + Me.Label1.TabIndex = 5 + Me.Label1.Text = "Neuer Unterordner" + ' + 'FOLDER_FOR_INDEXTextEdit + ' + Me.FOLDER_FOR_INDEXTextEdit.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "FOLDER_FOR_INDEX", True)) + Me.FOLDER_FOR_INDEXTextEdit.Location = New System.Drawing.Point(110, 15) + Me.FOLDER_FOR_INDEXTextEdit.MenuManager = Me.RibbonControl1 + Me.FOLDER_FOR_INDEXTextEdit.Name = "FOLDER_FOR_INDEXTextEdit" + Me.FOLDER_FOR_INDEXTextEdit.Size = New System.Drawing.Size(986, 20) + Me.FOLDER_FOR_INDEXTextEdit.StyleController = Me.LayoutControl1 + Me.FOLDER_FOR_INDEXTextEdit.TabIndex = 4 + ' + 'LayoutControlGroup4 + ' + Me.LayoutControlGroup4.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroup4.GroupBordersVisible = False + Me.LayoutControlGroup4.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem47, Me.EmptySpaceItem7, Me.LayoutControlItem48, Me.LayoutControlItem50, Me.LayoutControlItem51, Me.EmptySpaceItem8, Me.LayoutControlItem52, Me.LayoutControlItem49}) + Me.LayoutControlGroup4.Name = "LayoutControlGroup4" + Me.LayoutControlGroup4.Size = New System.Drawing.Size(1111, 271) + Me.LayoutControlGroup4.TextVisible = False + ' + 'LayoutControlItem47 + ' + Me.LayoutControlItem47.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem47.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem47.Control = Me.FOLDER_FOR_INDEXTextEdit + Me.LayoutControlItem47.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem47.Name = "LayoutControlItem47" + Me.LayoutControlItem47.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem47.Size = New System.Drawing.Size(1091, 30) + Me.LayoutControlItem47.Text = "Virtual Path" + Me.LayoutControlItem47.TextSize = New System.Drawing.Size(83, 17) + ' + 'EmptySpaceItem7 + ' + Me.EmptySpaceItem7.AllowHotTrack = False + Me.EmptySpaceItem7.Location = New System.Drawing.Point(0, 172) + Me.EmptySpaceItem7.Name = "EmptySpaceItem7" + Me.EmptySpaceItem7.Size = New System.Drawing.Size(1091, 79) + Me.EmptySpaceItem7.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlItem48 + ' + Me.LayoutControlItem48.Control = Me.Label1 + Me.LayoutControlItem48.Location = New System.Drawing.Point(0, 40) + Me.LayoutControlItem48.Name = "LayoutControlItem48" + Me.LayoutControlItem48.Size = New System.Drawing.Size(159, 132) + Me.LayoutControlItem48.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem48.TextVisible = False + ' + 'LayoutControlItem50 + ' + Me.LayoutControlItem50.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem50.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem50.Control = Me.cmbCrFolderDate + Me.LayoutControlItem50.Location = New System.Drawing.Point(159, 111) + Me.LayoutControlItem50.Name = "LayoutControlItem50" + Me.LayoutControlItem50.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem50.Size = New System.Drawing.Size(932, 31) + Me.LayoutControlItem50.Text = "Datum-Struktur" + Me.LayoutControlItem50.TextSize = New System.Drawing.Size(83, 15) + ' + 'LayoutControlItem51 + ' + Me.LayoutControlItem51.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem51.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem51.Control = Me.txtcrFoldermanuell + Me.LayoutControlItem51.Location = New System.Drawing.Point(159, 142) + Me.LayoutControlItem51.Name = "LayoutControlItem51" + Me.LayoutControlItem51.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem51.Size = New System.Drawing.Size(932, 30) + Me.LayoutControlItem51.Text = "oder manuell" + Me.LayoutControlItem51.TextSize = New System.Drawing.Size(83, 15) + ' + 'EmptySpaceItem8 + ' + Me.EmptySpaceItem8.AllowHotTrack = False + Me.EmptySpaceItem8.Location = New System.Drawing.Point(0, 30) + Me.EmptySpaceItem8.Name = "EmptySpaceItem8" + Me.EmptySpaceItem8.Size = New System.Drawing.Size(1091, 10) + Me.EmptySpaceItem8.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlItem52 + ' + Me.LayoutControlItem52.Control = Me.SimpleButton3 + Me.LayoutControlItem52.Location = New System.Drawing.Point(159, 40) + Me.LayoutControlItem52.Name = "LayoutControlItem52" + Me.LayoutControlItem52.Size = New System.Drawing.Size(932, 40) + Me.LayoutControlItem52.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem52.TextVisible = False + ' + 'LayoutControlItem49 + ' + Me.LayoutControlItem49.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem49.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem49.Control = Me.cmbAllAttributes + Me.LayoutControlItem49.Location = New System.Drawing.Point(159, 80) + Me.LayoutControlItem49.Name = "LayoutControlItem49" + Me.LayoutControlItem49.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem49.Size = New System.Drawing.Size(932, 31) + Me.LayoutControlItem49.Text = "Atribut-Wert" + Me.LayoutControlItem49.TextSize = New System.Drawing.Size(83, 15) + ' + 'XtraTabPageAutoSelect + ' + Me.XtraTabPageAutoSelect.Controls.Add(Me.LayoutControl2) + Me.XtraTabPageAutoSelect.Controls.Add(Me.ListBox2) + Me.XtraTabPageAutoSelect.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPageAutoSelect.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.XtraTabPageAutoSelect.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.XtraTabPageAutoSelect.Name = "XtraTabPageAutoSelect" + Me.XtraTabPageAutoSelect.Size = New System.Drawing.Size(1111, 269) + Me.XtraTabPageAutoSelect.Text = "Automatische Profilauswahl" + ' + 'LayoutControl2 + ' + Me.LayoutControl2.Controls.Add(Me.ChangedWhenAutoSelect) + Me.LayoutControl2.Controls.Add(Me.TextEdit8) + Me.LayoutControl2.Controls.Add(Me.AddedWhoAutoSelect) + Me.LayoutControl2.Controls.Add(Me.ChangedWhoAutoSelect) + Me.LayoutControl2.Controls.Add(Me.txtDateinameTest) + Me.LayoutControl2.Controls.Add(Me.SimpleButton4) + Me.LayoutControl2.Controls.Add(Me.REGEXTextBox) + Me.LayoutControl2.Controls.Add(Me.GUIDTextBoxAutoSelect) + Me.LayoutControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl2.Location = New System.Drawing.Point(193, 0) + Me.LayoutControl2.Name = "LayoutControl2" + Me.LayoutControl2.Root = Me.LayoutControlGroup5 + Me.LayoutControl2.Size = New System.Drawing.Size(918, 269) + Me.LayoutControl2.TabIndex = 1 + Me.LayoutControl2.Text = "LayoutControl2" + ' + 'ChangedWhenAutoSelect + ' + Me.ChangedWhenAutoSelect.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_REGEX_DOCTYPEBindingSource, "CHANGED_WHEN", True)) + Me.ChangedWhenAutoSelect.Enabled = False + Me.ChangedWhenAutoSelect.Location = New System.Drawing.Point(511, 117) + Me.ChangedWhenAutoSelect.MenuManager = Me.RibbonControl1 + Me.ChangedWhenAutoSelect.Name = "ChangedWhenAutoSelect" + Me.ChangedWhenAutoSelect.Size = New System.Drawing.Size(266, 20) + Me.ChangedWhenAutoSelect.StyleController = Me.LayoutControl2 + Me.ChangedWhenAutoSelect.TabIndex = 16 + ' + 'TBGI_REGEX_DOCTYPEBindingSource + ' + Me.TBGI_REGEX_DOCTYPEBindingSource.DataMember = "TBGI_REGEX_DOCTYPE" + Me.TBGI_REGEX_DOCTYPEBindingSource.DataSource = Me.GlobixDataset + ' + 'TextEdit8 + ' + Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_REGEX_DOCTYPEBindingSource, "ADDED_WHEN", True)) + Me.TextEdit8.Enabled = False + Me.TextEdit8.Location = New System.Drawing.Point(125, 117) + Me.TextEdit8.MenuManager = Me.RibbonControl1 + Me.TextEdit8.Name = "TextEdit8" + Me.TextEdit8.Size = New System.Drawing.Size(266, 20) + Me.TextEdit8.StyleController = Me.LayoutControl2 + Me.TextEdit8.TabIndex = 15 + ' + 'AddedWhoAutoSelect + ' + Me.AddedWhoAutoSelect.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_REGEX_DOCTYPEBindingSource, "ADDED_WHO", True)) + Me.AddedWhoAutoSelect.Enabled = False + Me.AddedWhoAutoSelect.Location = New System.Drawing.Point(125, 87) + Me.AddedWhoAutoSelect.MenuManager = Me.RibbonControl1 + Me.AddedWhoAutoSelect.Name = "AddedWhoAutoSelect" + Me.AddedWhoAutoSelect.Size = New System.Drawing.Size(266, 20) + Me.AddedWhoAutoSelect.StyleController = Me.LayoutControl2 + Me.AddedWhoAutoSelect.TabIndex = 14 + ' + 'ChangedWhoAutoSelect + ' + Me.ChangedWhoAutoSelect.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_REGEX_DOCTYPEBindingSource, "CHANGED_WHO", True)) + Me.ChangedWhoAutoSelect.Enabled = False + Me.ChangedWhoAutoSelect.Location = New System.Drawing.Point(511, 87) + Me.ChangedWhoAutoSelect.MenuManager = Me.RibbonControl1 + Me.ChangedWhoAutoSelect.Name = "ChangedWhoAutoSelect" + Me.ChangedWhoAutoSelect.Size = New System.Drawing.Size(266, 20) + Me.ChangedWhoAutoSelect.StyleController = Me.LayoutControl2 + Me.ChangedWhoAutoSelect.TabIndex = 13 + ' + 'txtDateinameTest + ' + Me.txtDateinameTest.Location = New System.Drawing.Point(122, 60) + Me.txtDateinameTest.Name = "txtDateinameTest" + Me.txtDateinameTest.Size = New System.Drawing.Size(658, 20) + Me.txtDateinameTest.TabIndex = 12 + Me.txtDateinameTest.Text = "Example.pdf" + ' + 'SimpleButton4 + ' + Me.SimpleButton4.ImageOptions.Image = CType(resources.GetObject("SimpleButton4.ImageOptions.Image"), System.Drawing.Image) + Me.SimpleButton4.Location = New System.Drawing.Point(784, 36) + Me.SimpleButton4.Name = "SimpleButton4" + Me.SimpleButton4.Size = New System.Drawing.Size(97, 36) + Me.SimpleButton4.StyleController = Me.LayoutControl2 + Me.SimpleButton4.TabIndex = 11 + Me.SimpleButton4.Text = "Test RegEx" + ' + 'REGEXTextBox + ' + Me.REGEXTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_REGEX_DOCTYPEBindingSource, "REGEX", True)) + Me.REGEXTextBox.Location = New System.Drawing.Point(122, 36) + Me.REGEXTextBox.Name = "REGEXTextBox" + Me.REGEXTextBox.Size = New System.Drawing.Size(658, 20) + Me.REGEXTextBox.TabIndex = 6 + ' + 'GUIDTextBoxAutoSelect + ' + Me.GUIDTextBoxAutoSelect.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_REGEX_DOCTYPEBindingSource, "GUID", True)) + Me.GUIDTextBoxAutoSelect.Location = New System.Drawing.Point(122, 12) + Me.GUIDTextBoxAutoSelect.Name = "GUIDTextBoxAutoSelect" + Me.GUIDTextBoxAutoSelect.ReadOnly = True + Me.GUIDTextBoxAutoSelect.Size = New System.Drawing.Size(42, 20) + Me.GUIDTextBoxAutoSelect.TabIndex = 5 + ' + 'LayoutControlGroup5 + ' + Me.LayoutControlGroup5.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroup5.GroupBordersVisible = False + Me.LayoutControlGroup5.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem55, Me.EmptySpaceItem9, Me.EmptySpaceItem10, Me.LayoutControlItem54, Me.LayoutControlItem53, Me.EmptySpaceItem11, Me.LayoutControlItem57, Me.LayoutControlItem59, Me.LayoutControlItem58, Me.LayoutControlItem56, Me.LayoutControlItem60}) + Me.LayoutControlGroup5.Name = "LayoutControlGroup5" + Me.LayoutControlGroup5.Size = New System.Drawing.Size(918, 269) + Me.LayoutControlGroup5.TextVisible = False + ' + 'LayoutControlItem55 + ' + Me.LayoutControlItem55.Control = Me.REGEXTextBox + Me.LayoutControlItem55.Location = New System.Drawing.Point(0, 24) + Me.LayoutControlItem55.Name = "LayoutControlItem55" + Me.LayoutControlItem55.Size = New System.Drawing.Size(772, 24) + Me.LayoutControlItem55.Text = "Regular Expression" + Me.LayoutControlItem55.TextSize = New System.Drawing.Size(98, 13) + ' + 'EmptySpaceItem9 + ' + Me.EmptySpaceItem9.AllowHotTrack = False + Me.EmptySpaceItem9.Location = New System.Drawing.Point(772, 64) + Me.EmptySpaceItem9.Name = "EmptySpaceItem9" + Me.EmptySpaceItem9.Size = New System.Drawing.Size(126, 185) + Me.EmptySpaceItem9.TextSize = New System.Drawing.Size(0, 0) + ' + 'EmptySpaceItem10 + ' + Me.EmptySpaceItem10.AllowHotTrack = False + Me.EmptySpaceItem10.Location = New System.Drawing.Point(873, 24) + Me.EmptySpaceItem10.Name = "EmptySpaceItem10" + Me.EmptySpaceItem10.Size = New System.Drawing.Size(25, 40) + Me.EmptySpaceItem10.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlItem54 + ' + Me.LayoutControlItem54.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem54.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem54.Control = Me.GUIDTextBoxAutoSelect + Me.LayoutControlItem54.Enabled = False + Me.LayoutControlItem54.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem54.Name = "LayoutControlItem54" + Me.LayoutControlItem54.Size = New System.Drawing.Size(156, 24) + Me.LayoutControlItem54.Text = "ID" + Me.LayoutControlItem54.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem53 + ' + Me.LayoutControlItem53.Control = Me.SimpleButton4 + Me.LayoutControlItem53.Location = New System.Drawing.Point(772, 24) + Me.LayoutControlItem53.Name = "LayoutControlItem53" + Me.LayoutControlItem53.Size = New System.Drawing.Size(101, 40) + Me.LayoutControlItem53.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem53.TextVisible = False + ' + 'EmptySpaceItem11 + ' + Me.EmptySpaceItem11.AllowHotTrack = False + Me.EmptySpaceItem11.Location = New System.Drawing.Point(156, 0) + Me.EmptySpaceItem11.Name = "EmptySpaceItem11" + Me.EmptySpaceItem11.Size = New System.Drawing.Size(742, 24) + Me.EmptySpaceItem11.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlItem57 + ' + Me.LayoutControlItem57.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem57.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem57.Control = Me.AddedWhoAutoSelect + Me.LayoutControlItem57.Location = New System.Drawing.Point(0, 72) + Me.LayoutControlItem57.Name = "LayoutControlItem57" + Me.LayoutControlItem57.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem57.Size = New System.Drawing.Size(386, 30) + Me.LayoutControlItem57.Text = "Erstellt wer" + Me.LayoutControlItem57.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem59 + ' + Me.LayoutControlItem59.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem59.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem59.Control = Me.ChangedWhenAutoSelect + Me.LayoutControlItem59.Location = New System.Drawing.Point(386, 102) + Me.LayoutControlItem59.Name = "LayoutControlItem59" + Me.LayoutControlItem59.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem59.Size = New System.Drawing.Size(386, 147) + Me.LayoutControlItem59.Text = "Geändert wann" + Me.LayoutControlItem59.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem58 + ' + Me.LayoutControlItem58.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem58.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem58.Control = Me.TextEdit8 + Me.LayoutControlItem58.Location = New System.Drawing.Point(0, 102) + Me.LayoutControlItem58.Name = "LayoutControlItem58" + Me.LayoutControlItem58.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem58.Size = New System.Drawing.Size(386, 147) + Me.LayoutControlItem58.Text = "Erstellt wann" + Me.LayoutControlItem58.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem56 + ' + Me.LayoutControlItem56.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem56.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem56.Control = Me.ChangedWhoAutoSelect + Me.LayoutControlItem56.Location = New System.Drawing.Point(386, 72) + Me.LayoutControlItem56.Name = "LayoutControlItem56" + Me.LayoutControlItem56.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem56.Size = New System.Drawing.Size(386, 30) + Me.LayoutControlItem56.Text = "Geändert wer" + Me.LayoutControlItem56.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem60 + ' + Me.LayoutControlItem60.Control = Me.txtDateinameTest + Me.LayoutControlItem60.Location = New System.Drawing.Point(0, 48) + Me.LayoutControlItem60.Name = "LayoutControlItem60" + Me.LayoutControlItem60.Size = New System.Drawing.Size(772, 24) + Me.LayoutControlItem60.Text = "Dateiname für Test" + Me.LayoutControlItem60.TextSize = New System.Drawing.Size(98, 13) + ' + 'ListBox2 + ' + Me.ListBox2.Dock = System.Windows.Forms.DockStyle.Left + Me.ListBox2.FormattingEnabled = True + Me.ListBox2.Location = New System.Drawing.Point(0, 0) + Me.ListBox2.Name = "ListBox2" + Me.ListBox2.Size = New System.Drawing.Size(193, 269) + Me.ListBox2.TabIndex = 0 + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.Controls.Add(Me.XtraTabControl3) + Me.XtraTabPage1.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.XtraTabPage1.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(1138, 594) + Me.XtraTabPage1.Text = "Profil-Zuordnung" + ' + 'XtraTabControl3 + ' + Me.XtraTabControl3.AllowDrop = True + Me.XtraTabControl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl3.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl3.Name = "XtraTabControl3" + Me.XtraTabControl3.SelectedTabPage = Me.XtraTabPage2 + Me.XtraTabControl3.Size = New System.Drawing.Size(1138, 594) + Me.XtraTabControl3.TabIndex = 0 + Me.XtraTabControl3.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage2, Me.XtraTabPage3}) + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.Controls.Add(Me.SplitContainerControl1) + Me.XtraTabPage2.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.XtraTabPage2.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(1136, 568) + Me.XtraTabPage2.Text = "User" + ' + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl1.Horizontal = False + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + ' + 'SplitContainerControl1.Panel1 + ' + Me.SplitContainerControl1.Panel1.Controls.Add(Me.gridAssignedUsers) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.Label2) + Me.SplitContainerControl1.Panel1.Text = "Panel1" + ' + 'SplitContainerControl1.Panel2 + ' + Me.SplitContainerControl1.Panel2.Controls.Add(Me.gridAvailableUsers) + Me.SplitContainerControl1.Panel2.Controls.Add(Me.Label35) + Me.SplitContainerControl1.Panel2.Text = "Panel2" + Me.SplitContainerControl1.Size = New System.Drawing.Size(1136, 568) + Me.SplitContainerControl1.SplitterPosition = 308 + Me.SplitContainerControl1.TabIndex = 0 + ' + 'gridAssignedUsers + ' + Me.gridAssignedUsers.AllowDrop = True + Me.gridAssignedUsers.Dock = System.Windows.Forms.DockStyle.Fill + Me.gridAssignedUsers.Location = New System.Drawing.Point(0, 30) + Me.gridAssignedUsers.MainView = Me.viewAssignedUsers + Me.gridAssignedUsers.MenuManager = Me.RibbonControl1 + Me.gridAssignedUsers.Name = "gridAssignedUsers" + Me.gridAssignedUsers.Size = New System.Drawing.Size(1136, 278) + Me.gridAssignedUsers.TabIndex = 2 + Me.gridAssignedUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAssignedUsers}) + ' + 'viewAssignedUsers + ' + Me.viewAssignedUsers.Appearance.EvenRow.BackColor = System.Drawing.Color.PaleTurquoise + Me.viewAssignedUsers.Appearance.EvenRow.Options.UseBackColor = True + Me.viewAssignedUsers.Appearance.FocusedRow.BackColor = System.Drawing.Color.Khaki + Me.viewAssignedUsers.Appearance.FocusedRow.Options.UseBackColor = True + Me.viewAssignedUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn3, Me.GridColumn5, Me.GridColumn4}) + Me.viewAssignedUsers.GridControl = Me.gridAssignedUsers + Me.viewAssignedUsers.Name = "viewAssignedUsers" + Me.viewAssignedUsers.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.viewAssignedUsers.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.viewAssignedUsers.OptionsBehavior.Editable = False + Me.viewAssignedUsers.OptionsBehavior.ReadOnly = True + Me.viewAssignedUsers.OptionsSelection.EnableAppearanceFocusedCell = False + Me.viewAssignedUsers.OptionsView.ColumnAutoWidth = False + Me.viewAssignedUsers.OptionsView.ShowAutoFilterRow = True + Me.viewAssignedUsers.OptionsView.ShowGroupPanel = False + ' + 'GridColumn1 + ' + Me.GridColumn1.Caption = "GUID" + Me.GridColumn1.FieldName = "GUID" + Me.GridColumn1.Name = "GridColumn1" + Me.GridColumn1.Visible = True + Me.GridColumn1.VisibleIndex = 0 + ' + 'GridColumn3 + ' + Me.GridColumn3.Caption = "USERNAME" + Me.GridColumn3.FieldName = "USERNAME" + Me.GridColumn3.Name = "GridColumn3" + Me.GridColumn3.Visible = True + Me.GridColumn3.VisibleIndex = 1 + Me.GridColumn3.Width = 120 + ' + 'GridColumn5 + ' + Me.GridColumn5.Caption = "NAME" + Me.GridColumn5.FieldName = "NAME" + Me.GridColumn5.Name = "GridColumn5" + Me.GridColumn5.Visible = True + Me.GridColumn5.VisibleIndex = 2 + Me.GridColumn5.Width = 150 + ' + 'GridColumn4 + ' + Me.GridColumn4.Caption = "EMAIL" + Me.GridColumn4.FieldName = "EMAIL" + Me.GridColumn4.Name = "GridColumn4" + Me.GridColumn4.Visible = True + Me.GridColumn4.VisibleIndex = 3 + Me.GridColumn4.Width = 150 + ' + 'Label2 + ' + Me.Label2.Dock = System.Windows.Forms.DockStyle.Top + Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.Label2.Location = New System.Drawing.Point(0, 0) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(1136, 30) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Zugeordnete Benutzer" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'gridAvailableUsers + ' + Me.gridAvailableUsers.AllowDrop = True + Me.gridAvailableUsers.Dock = System.Windows.Forms.DockStyle.Fill + Me.gridAvailableUsers.Location = New System.Drawing.Point(0, 30) + Me.gridAvailableUsers.MainView = Me.viewAvailableUsers + Me.gridAvailableUsers.MenuManager = Me.RibbonControl1 + Me.gridAvailableUsers.Name = "gridAvailableUsers" + Me.gridAvailableUsers.Size = New System.Drawing.Size(1136, 220) + Me.gridAvailableUsers.TabIndex = 2 + Me.gridAvailableUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableUsers}) + ' + 'viewAvailableUsers + ' + Me.viewAvailableUsers.Appearance.EvenRow.BackColor = System.Drawing.Color.PaleTurquoise + Me.viewAvailableUsers.Appearance.EvenRow.Options.UseBackColor = True + Me.viewAvailableUsers.Appearance.FocusedRow.BackColor = System.Drawing.Color.Khaki + Me.viewAvailableUsers.Appearance.FocusedRow.Options.UseBackColor = True + Me.viewAvailableUsers.Appearance.SelectedRow.BackColor = System.Drawing.Color.Khaki + Me.viewAvailableUsers.Appearance.SelectedRow.Options.UseBackColor = True + Me.viewAvailableUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn6, Me.GridColumn7, Me.GridColumn9, Me.GridColumn8}) + Me.viewAvailableUsers.GridControl = Me.gridAvailableUsers + Me.viewAvailableUsers.Name = "viewAvailableUsers" + Me.viewAvailableUsers.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.viewAvailableUsers.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.viewAvailableUsers.OptionsBehavior.Editable = False + Me.viewAvailableUsers.OptionsBehavior.ReadOnly = True + Me.viewAvailableUsers.OptionsSelection.EnableAppearanceFocusedCell = False + Me.viewAvailableUsers.OptionsView.ColumnAutoWidth = False + Me.viewAvailableUsers.OptionsView.ShowAutoFilterRow = True + Me.viewAvailableUsers.OptionsView.ShowGroupPanel = False + ' + 'GridColumn6 + ' + Me.GridColumn6.Caption = "GUID" + Me.GridColumn6.FieldName = "GUID" + Me.GridColumn6.Name = "GridColumn6" + Me.GridColumn6.Visible = True + Me.GridColumn6.VisibleIndex = 0 + ' + 'GridColumn7 + ' + Me.GridColumn7.Caption = "USERNAME" + Me.GridColumn7.FieldName = "USERNAME" + Me.GridColumn7.Name = "GridColumn7" + Me.GridColumn7.Visible = True + Me.GridColumn7.VisibleIndex = 1 + Me.GridColumn7.Width = 120 + ' + 'GridColumn9 + ' + Me.GridColumn9.Caption = "NAME" + Me.GridColumn9.FieldName = "NAME" + Me.GridColumn9.Name = "GridColumn9" + Me.GridColumn9.Visible = True + Me.GridColumn9.VisibleIndex = 2 + Me.GridColumn9.Width = 150 + ' + 'GridColumn8 + ' + Me.GridColumn8.Caption = "EMAIL" + Me.GridColumn8.FieldName = "EMAIL" + Me.GridColumn8.Name = "GridColumn8" + Me.GridColumn8.Visible = True + Me.GridColumn8.VisibleIndex = 3 + Me.GridColumn8.Width = 150 + ' + 'Label35 + ' + Me.Label35.Dock = System.Windows.Forms.DockStyle.Top + Me.Label35.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.Label35.Location = New System.Drawing.Point(0, 0) + Me.Label35.Name = "Label35" + Me.Label35.Size = New System.Drawing.Size(1136, 30) + Me.Label35.TabIndex = 1 + Me.Label35.Text = "Verfügbare Benutzer" + Me.Label35.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'XtraTabPage3 + ' + Me.XtraTabPage3.Controls.Add(Me.SplitContainerControlGroup) + Me.XtraTabPage3.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.XtraTabPage3.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.XtraTabPage3.Name = "XtraTabPage3" + Me.XtraTabPage3.Size = New System.Drawing.Size(1136, 568) + Me.XtraTabPage3.Text = "Gruppen" + ' + 'SplitContainerControlGroup + ' + Me.SplitContainerControlGroup.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControlGroup.Horizontal = False + Me.SplitContainerControlGroup.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControlGroup.Name = "SplitContainerControlGroup" + ' + 'SplitContainerControlGroup.Panel1 + ' + Me.SplitContainerControlGroup.Panel1.Controls.Add(Me.gridAssignedGroups) + Me.SplitContainerControlGroup.Panel1.Controls.Add(Me.Label13) + Me.SplitContainerControlGroup.Panel1.Text = "Panel1" + ' + 'SplitContainerControlGroup.Panel2 + ' + Me.SplitContainerControlGroup.Panel2.Controls.Add(Me.gridAvailableGroups) + Me.SplitContainerControlGroup.Panel2.Controls.Add(Me.Label14) + Me.SplitContainerControlGroup.Panel2.Text = "Panel2" + Me.SplitContainerControlGroup.Size = New System.Drawing.Size(1136, 568) + Me.SplitContainerControlGroup.SplitterPosition = 315 + Me.SplitContainerControlGroup.TabIndex = 0 + ' + 'gridAssignedGroups + ' + Me.gridAssignedGroups.AllowDrop = True + Me.gridAssignedGroups.Dock = System.Windows.Forms.DockStyle.Fill + Me.gridAssignedGroups.EmbeddedNavigator.AllowHtmlTextInToolTip = DevExpress.Utils.DefaultBoolean.[True] + Me.gridAssignedGroups.EmbeddedNavigator.Anchor = System.Windows.Forms.AnchorStyles.None + Me.gridAssignedGroups.EmbeddedNavigator.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.gridAssignedGroups.EmbeddedNavigator.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.gridAssignedGroups.EmbeddedNavigator.TextLocation = DevExpress.XtraEditors.NavigatorButtonsTextLocation.None + Me.gridAssignedGroups.EmbeddedNavigator.ToolTipIconType = DevExpress.Utils.ToolTipIconType.Application + Me.gridAssignedGroups.Location = New System.Drawing.Point(0, 30) + Me.gridAssignedGroups.MainView = Me.viewAssignedGroups + Me.gridAssignedGroups.Name = "gridAssignedGroups" + Me.gridAssignedGroups.ShowOnlyPredefinedDetails = True + Me.gridAssignedGroups.Size = New System.Drawing.Size(1136, 285) + Me.gridAssignedGroups.TabIndex = 90 + Me.gridAssignedGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAssignedGroups}) + ' + 'viewAssignedGroups + ' + Me.viewAssignedGroups.Appearance.EvenRow.BackColor = System.Drawing.Color.PaleTurquoise + Me.viewAssignedGroups.Appearance.EvenRow.Options.UseBackColor = True + Me.viewAssignedGroups.Appearance.FocusedRow.BackColor = System.Drawing.Color.Khaki + Me.viewAssignedGroups.Appearance.FocusedRow.Options.UseBackColor = True + Me.viewAssignedGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME, Me.colGUID}) + Me.viewAssignedGroups.GridControl = Me.gridAssignedGroups + Me.viewAssignedGroups.Name = "viewAssignedGroups" + Me.viewAssignedGroups.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.viewAssignedGroups.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.viewAssignedGroups.OptionsBehavior.Editable = False + Me.viewAssignedGroups.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.viewAssignedGroups.OptionsSelection.EnableAppearanceFocusedCell = False + Me.viewAssignedGroups.OptionsView.ColumnAutoWidth = False + Me.viewAssignedGroups.OptionsView.EnableAppearanceEvenRow = True + Me.viewAssignedGroups.OptionsView.ShowAutoFilterRow = True + Me.viewAssignedGroups.OptionsView.ShowGroupPanel = False + ' + 'colNAME + ' + Me.colNAME.Caption = "Name" + Me.colNAME.FieldName = "NAME" + Me.colNAME.Name = "colNAME" + Me.colNAME.Visible = True + Me.colNAME.VisibleIndex = 1 + Me.colNAME.Width = 170 + ' + 'colGUID + ' + Me.colGUID.Caption = "GUID" + Me.colGUID.FieldName = "GUID" + Me.colGUID.Name = "colGUID" + Me.colGUID.Visible = True + Me.colGUID.VisibleIndex = 0 + ' + 'Label13 + ' + Me.Label13.Dock = System.Windows.Forms.DockStyle.Top + Me.Label13.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.Label13.Location = New System.Drawing.Point(0, 0) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(1136, 30) + Me.Label13.TabIndex = 89 + Me.Label13.Text = "Zugeordnete Gruppen" + Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'gridAvailableGroups + ' + Me.gridAvailableGroups.AllowDrop = True + Me.gridAvailableGroups.Dock = System.Windows.Forms.DockStyle.Fill + Me.gridAvailableGroups.EmbeddedNavigator.AllowHtmlTextInToolTip = DevExpress.Utils.DefaultBoolean.[True] + Me.gridAvailableGroups.EmbeddedNavigator.Anchor = System.Windows.Forms.AnchorStyles.None + Me.gridAvailableGroups.EmbeddedNavigator.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.gridAvailableGroups.EmbeddedNavigator.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.gridAvailableGroups.EmbeddedNavigator.TextLocation = DevExpress.XtraEditors.NavigatorButtonsTextLocation.None + Me.gridAvailableGroups.EmbeddedNavigator.ToolTipIconType = DevExpress.Utils.ToolTipIconType.Application + Me.gridAvailableGroups.Location = New System.Drawing.Point(0, 30) + Me.gridAvailableGroups.MainView = Me.viewAvailableGroups + Me.gridAvailableGroups.Name = "gridAvailableGroups" + Me.gridAvailableGroups.ShowOnlyPredefinedDetails = True + Me.gridAvailableGroups.Size = New System.Drawing.Size(1136, 213) + Me.gridAvailableGroups.TabIndex = 89 + Me.gridAvailableGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableGroups}) + ' + 'viewAvailableGroups + ' + Me.viewAvailableGroups.Appearance.EvenRow.BackColor = System.Drawing.Color.PaleTurquoise + Me.viewAvailableGroups.Appearance.EvenRow.Options.UseBackColor = True + Me.viewAvailableGroups.Appearance.FocusedRow.BackColor = System.Drawing.Color.Khaki + Me.viewAvailableGroups.Appearance.FocusedRow.Options.UseBackColor = True + Me.viewAvailableGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID2, Me.GridColumn2}) + Me.viewAvailableGroups.GridControl = Me.gridAvailableGroups + Me.viewAvailableGroups.Name = "viewAvailableGroups" + Me.viewAvailableGroups.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.viewAvailableGroups.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.viewAvailableGroups.OptionsBehavior.Editable = False + Me.viewAvailableGroups.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.viewAvailableGroups.OptionsSelection.EnableAppearanceFocusedCell = False + Me.viewAvailableGroups.OptionsView.ColumnAutoWidth = False + Me.viewAvailableGroups.OptionsView.EnableAppearanceEvenRow = True + Me.viewAvailableGroups.OptionsView.ShowAutoFilterRow = True + Me.viewAvailableGroups.OptionsView.ShowGroupPanel = False + ' + 'colGUID2 + ' + Me.colGUID2.Caption = "GUID" + Me.colGUID2.FieldName = "GUID" + Me.colGUID2.Name = "colGUID2" + Me.colGUID2.Visible = True + Me.colGUID2.VisibleIndex = 0 + Me.colGUID2.Width = 106 + ' + 'GridColumn2 + ' + Me.GridColumn2.Caption = "Name" + Me.GridColumn2.FieldName = "NAME" + Me.GridColumn2.Name = "GridColumn2" + Me.GridColumn2.Visible = True + Me.GridColumn2.VisibleIndex = 1 + Me.GridColumn2.Width = 170 + ' + 'Label14 + ' + Me.Label14.Dock = System.Windows.Forms.DockStyle.Top + Me.Label14.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.Label14.Location = New System.Drawing.Point(0, 0) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(1136, 30) + Me.Label14.TabIndex = 1 + Me.Label14.Text = "Verfügbare Gruppen" + Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'TBDD_INDEX_MANTableAdapter + ' + Me.TBDD_INDEX_MANTableAdapter.ClearBeforeFill = True + ' + 'VWIDB_OBJECT_STORETableAdapter + ' + Me.VWIDB_OBJECT_STORETableAdapter.ClearBeforeFill = True + ' + 'VWIDB_BE_ATTRIBUTETableAdapter + ' + Me.VWIDB_BE_ATTRIBUTETableAdapter.ClearBeforeFill = True + ' + 'TBDD_INDEX_AUTOMTableAdapter + ' + Me.TBDD_INDEX_AUTOMTableAdapter.ClearBeforeFill = True + ' + 'RadioGroup1 + ' + Me.RadioGroup1.Location = New System.Drawing.Point(178, 85) + Me.RadioGroup1.MenuManager = Me.RibbonControl1 + Me.RadioGroup1.Name = "RadioGroup1" + Me.RadioGroup1.Size = New System.Drawing.Size(183, 230) + Me.RadioGroup1.TabIndex = 12 + ' + 'LayoutControlItem38 + ' + Me.LayoutControlItem38.Control = Me.RadioGroup1 + Me.LayoutControlItem38.Location = New System.Drawing.Point(0, 73) + Me.LayoutControlItem38.Name = "LayoutControlItem38" + Me.LayoutControlItem38.Size = New System.Drawing.Size(353, 234) + Me.LayoutControlItem38.TextSize = New System.Drawing.Size(163, 13) + ' + 'TBGI_REGEX_DOCTYPETableAdapter + ' + Me.TBGI_REGEX_DOCTYPETableAdapter.ClearBeforeFill = True + ' + 'VWIDB_DOCTYPE_LANGUAGETableAdapter + ' + Me.VWIDB_DOCTYPE_LANGUAGETableAdapter.ClearBeforeFill = True + ' + 'frmAdmin_Globix + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1140, 776) + Me.Controls.Add(Me.XtraTabControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_G_DevExpress + Me.Name = "frmAdmin_Globix" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "File FLOW - Profil" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GlobixDataset, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPageProfile.ResumeLayout(False) + CType(Me.LayoutControlProfile, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControlProfile.ResumeLayout(False) + CType(Me.VWIDB_DOCTYPE_LANGUAGEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWIDB_OBJECT_STOREBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditErstelltWer.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditGeandertWer.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditNamenkonvention.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditBeschreibung.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditBezeichnung.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditDoctypeID.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ComboBoxEditDupl_handling.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditGeaendertWann.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem20, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem25, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem26, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem32, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem28, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem12, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem61, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl2.ResumeLayout(False) + Me.XtraTabPageManIndexe.ResumeLayout(False) + CType(Me.LayoutControlManIndexe, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControlManIndexe.ResumeLayout(False) + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWIDB_BE_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditAddedWho_ManIndex.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditChangedWho_ManIndex.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GUIDTextBoxMANINDEX.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit10.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit11.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ComboBoxEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ACTIVECheckBox2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.OPTIONALCheckBox2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroupDoctype, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem21, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem24, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem27, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem29, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem31, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem46, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem63, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem64, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ListBoxAutoIndexe, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageRework.ResumeLayout(False) + CType(Me.LayoutControlRework, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageAutoIndexe.ResumeLayout(False) + CType(Me.LayoutControlAutoIndexe, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControlAutoIndexe.ResumeLayout(False) + CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SEQUENCENumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ComboBoxEditAAttrFileParam.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ADDED_WHOTextBoxAutoAttribut.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CHANGED_WHOTextEditAutoAttribut.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem33, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem34, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem35, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem40, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem37, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ADDED_WHOAutoAttribut, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem41, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CHANGED_WHOItemAutoAttribut, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem43, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem44, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem39, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem45, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem42, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageDynamicFolder.ResumeLayout(False) + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.txtcrFoldermanuell.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.FOLDER_FOR_INDEXTextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem47, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem48, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem50, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem51, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem52, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem49, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageAutoSelect.ResumeLayout(False) + CType(Me.LayoutControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl2.ResumeLayout(False) + CType(Me.ChangedWhenAutoSelect.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBGI_REGEX_DOCTYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.AddedWhoAutoSelect.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ChangedWhoAutoSelect.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem55, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem54, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem53, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem57, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem59, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem58, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem56, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem60, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPage1.ResumeLayout(False) + CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl3.ResumeLayout(False) + Me.XtraTabPage2.ResumeLayout(False) + CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.Panel1.ResumeLayout(False) + CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.Panel2.ResumeLayout(False) + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + CType(Me.gridAssignedUsers, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.viewAssignedUsers, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gridAvailableUsers, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.viewAvailableUsers, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPage3.ResumeLayout(False) + CType(Me.SplitContainerControlGroup.Panel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControlGroup.Panel1.ResumeLayout(False) + CType(Me.SplitContainerControlGroup.Panel2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControlGroup.Panel2.ResumeLayout(False) + CType(Me.SplitContainerControlGroup, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControlGroup.ResumeLayout(False) + CType(Me.gridAssignedGroups, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.viewAssignedGroups, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gridAvailableGroups, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.viewAvailableGroups, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RadioGroup1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem38, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonSaveExit As DevExpress.XtraBars.BarButtonItem + Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten + Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents BarButtonSave As DevExpress.XtraBars.BarButtonItem + Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem + Friend WithEvents GlobixDataset As GlobixDataset + Friend WithEvents TBDD_DOKUMENTARTBindingSource As BindingSource + Friend WithEvents TBDD_DOKUMENTARTTableAdapter As GlobixDatasetTableAdapters.TBDD_DOKUMENTARTTableAdapter + Friend WithEvents TableAdapterManager1 As GlobixDatasetTableAdapters.TableAdapterManager + Friend WithEvents BarButtonNew As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItemDelete As DevExpress.XtraBars.BarButtonItem + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPageProfile As DevExpress.XtraTab.XtraTabPage + Friend WithEvents LayoutControlProfile As DevExpress.XtraLayout.LayoutControl + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPageManIndexe As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPageRework As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPageAutoIndexe As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPageDynamicFolder As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPageAutoSelect As DevExpress.XtraTab.XtraTabPage + Friend WithEvents LayoutControlAutoIndexe As DevExpress.XtraLayout.LayoutControl + Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlRework As DevExpress.XtraLayout.LayoutControl + Friend WithEvents LayoutControlGroup3 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents TextEditErstelltWer As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEditGeandertWer As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlManIndexe As DevExpress.XtraLayout.LayoutControl + Friend WithEvents LayoutControlGroupDoctype As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents TBDD_INDEX_MANBindingSource As BindingSource + Friend WithEvents TBDD_INDEX_MANTableAdapter As GlobixDatasetTableAdapters.TBDD_INDEX_MANTableAdapter + Friend WithEvents VKT_ADD_ITEMCheckBox As CheckBox + Friend WithEvents VKT_PREVENT_MULTIPLE_VALUESCheckBox As CheckBox + Friend WithEvents MULTISELECTCheckBox As CheckBox + Friend WithEvents btneditSQLmanIndex As DevExpress.XtraEditors.SimpleButton + Friend WithEvents LayoutControlItem17 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem19 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem21 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TextEditAddedWho_ManIndex As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem24 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem27 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TextEditChangedWho_ManIndex As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem29 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TextEditNamenkonvention As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEditBeschreibung As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEditBezeichnung As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEditDoctypeID As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem30 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem28 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents GUIDTextBoxMANINDEX As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit10 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit11 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ComboBoxEditDupl_handling As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents LayoutControlItem26 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SpinEdit1 As DevExpress.XtraEditors.SpinEdit + Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ComboBoxEdit4 As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents LayoutControlItem13 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SEQUENCENumericUpDown As NumericUpDown + Friend WithEvents LayoutControlItem20 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents VWIDB_OBJECT_STOREBindingSource As BindingSource + Friend WithEvents VWIDB_OBJECT_STORETableAdapter As DSIDB_StammdatenTableAdapters.VWIDB_OBJECT_STORETableAdapter + Friend WithEvents IDB_OBJECT_STORE_IDComboBox As ComboBox + Friend WithEvents LayoutControlItem25 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents WD_INDEXComboBox As ComboBox + Friend WithEvents LayoutControlItem16 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents VWIDB_BE_ATTRIBUTEBindingSource As BindingSource + Friend WithEvents VWIDB_BE_ATTRIBUTETableAdapter As DSIDB_StammdatenTableAdapters.VWIDB_BE_ATTRIBUTETableAdapter + Friend WithEvents SimpleButtonNameconvention As DevExpress.XtraEditors.SimpleButton + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem3 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents TBDD_INDEX_AUTOMBindingSource As BindingSource + Friend WithEvents TBDD_INDEX_AUTOMTableAdapter As GlobixDatasetTableAdapters.TBDD_INDEX_AUTOMTableAdapter + Friend WithEvents CONNECTION_IDTextBox As TextBox + Friend WithEvents SQL_RESULTTextBox As TextBox + Friend WithEvents LayoutControlItem31 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem18 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents VALUETextBox As TextBox + Friend WithEvents INDEXNAMEComboBox As ComboBox + Friend WithEvents ACTIVECheckBox1 As CheckBox + Friend WithEvents SEQUENCENumericUpDown1 As NumericUpDown + Friend WithEvents GUIDTextBoxAutoAttribute As TextBox + Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents ComboBoxEditAAttrFileParam As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents LayoutControlItem15 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem23 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem33 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem34 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem35 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem14 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem37 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents RadioGroup1 As DevExpress.XtraEditors.RadioGroup + Friend WithEvents LayoutControlItem38 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SQL_RESULTTextBox1 As TextBox + Friend WithEvents SQL_ACTIVECheckBox As CheckBox + Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents LayoutControlItem40 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem39 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem42 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem4 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents ADDED_WHOTextBoxAutoAttribut As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit + Friend WithEvents CHANGED_WHOTextEditAutoAttribut As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit5 As DevExpress.XtraEditors.TextEdit + Friend WithEvents ADDED_WHOAutoAttribut As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem41 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents CHANGED_WHOItemAutoAttribut As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem43 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents CONNECTION_IDTextBox1 As TextBox + Friend WithEvents LayoutControlItem45 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ListBox1 As ListBox + Friend WithEvents LayoutControlItem44 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabControl3 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents gridAssignedUsers As DevExpress.XtraGrid.GridControl + Friend WithEvents viewAssignedUsers As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents Label2 As Label + Friend WithEvents gridAvailableUsers As DevExpress.XtraGrid.GridControl + Friend WithEvents viewAvailableUsers As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridColumn6 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn7 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn9 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn8 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents Label35 As Label + Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents SplitContainerControlGroup As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents gridAssignedGroups As DevExpress.XtraGrid.GridControl + Friend WithEvents viewAssignedGroups As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colNAME As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents Label13 As Label + Friend WithEvents gridAvailableGroups As DevExpress.XtraGrid.GridControl + Friend WithEvents viewAvailableGroups As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colGUID2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents Label14 As Label + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem32 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TextEdit4 As DevExpress.XtraEditors.TextEdit + Friend WithEvents EmptySpaceItem6 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents LayoutControlItem46 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents SimpleButton3 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents txtcrFoldermanuell As DevExpress.XtraEditors.TextEdit + Friend WithEvents cmbCrFolderDate As ComboBox + Friend WithEvents Label1 As Label + Friend WithEvents FOLDER_FOR_INDEXTextEdit As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlGroup4 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents EmptySpaceItem7 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents LayoutControlItem48 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem50 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem51 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem8 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents LayoutControlItem52 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControl2 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents LayoutControlGroup5 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents ListBox2 As ListBox + Friend WithEvents TBGI_REGEX_DOCTYPEBindingSource As BindingSource + Friend WithEvents TBGI_REGEX_DOCTYPETableAdapter As GlobixDatasetTableAdapters.TBGI_REGEX_DOCTYPETableAdapter + Friend WithEvents REGEXTextBox As TextBox + Friend WithEvents GUIDTextBoxAutoSelect As TextBox + Friend WithEvents LayoutControlItem54 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem55 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem9 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents SimpleButton4 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents LayoutControlItem53 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents txtDateinameTest As TextBox + Friend WithEvents LayoutControlItem60 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem10 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents EmptySpaceItem11 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents ChangedWhenAutoSelect As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit8 As DevExpress.XtraEditors.TextEdit + Friend WithEvents AddedWhoAutoSelect As DevExpress.XtraEditors.TextEdit + Friend WithEvents ChangedWhoAutoSelect As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem57 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem59 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem58 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem56 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem47 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem12 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents cmbAllAttributes As ComboBox + Friend WithEvents LayoutControlItem49 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents IDB_DOCTYPE_IDComboBox As ComboBox + Friend WithEvents LayoutControlItem61 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents VWIDB_DOCTYPE_LANGUAGEBindingSource As BindingSource + Friend WithEvents VWIDB_DOCTYPE_LANGUAGETableAdapter As DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPE_LANGUAGETableAdapter + Friend WithEvents ACTIVECheckBox2 As DevExpress.XtraEditors.CheckEdit + Friend WithEvents OPTIONALCheckBox2 As DevExpress.XtraEditors.CheckEdit + Friend WithEvents LayoutControlItem63 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem64 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ListBoxAutoIndexe As DevExpress.XtraEditors.ListBoxControl + Friend WithEvents CheckEdit1 As DevExpress.XtraEditors.CheckEdit + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TextEditGeaendertWann As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem22 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents bsiStatus As DevExpress.XtraBars.BarStaticItem +End Class diff --git a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.resx b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.resx new file mode 100644 index 0000000..99901a7 --- /dev/null +++ b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.resx @@ -0,0 +1,564 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZCI+DQogICAgPHBhdGggZD0iTTI3LDE0aC05VjVj + MC0wLjUtMC41LTEtMS0xaC0yYy0wLjUsMC0xLDAuNS0xLDF2OUg1Yy0wLjUsMC0xLDAuNS0xLDF2MmMw + LDAuNSwwLjUsMSwxLDFoOXY5ICAgYzAsMC41LDAuNSwxLDEsMWgyYzAuNSwwLDEtMC41LDEtMXYtOWg5 + YzAuNSwwLDEtMC41LDEtMXYtMkMyOCwxNC41LDI3LjUsMTQsMjcsMTR6IiBjbGFzcz0iR3JlZW4iIC8+ + DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGQBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiBlbmFibGUt + YmFja2dyb3VuZD0ibmV3IDAgMCAzMiAzMiIgeG1sOnNwYWNlPSJwcmVzZXJ2ZSIgaWQ9IkxheWVyXzEi + Pg0KICA8cG9seWdvbiBwb2ludHM9IjI1LDQgMTYsMTMgNyw0IDQsNyAxMywxNiA0LDI1IDcsMjggMTYs + MTkgMjUsMjggMjgsMjUgMTksMTYgMjgsNyAiIGZpbGw9IiNEMjRDMkYiIC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9 + Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs + MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs + NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg + PC9nPg0KPC9zdmc+Cw== + + + + 477, 17 + + + 350, 17 + + + 350, 17 + + + 17, 17 + + + 177, 17 + + + 732, 17 + + + 981, 17 + + + 17, 134 + + + 246, 56 + + + 1161, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABwFAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3 + RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm + aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iUmVuYW1lXzFfIj4NCiAgICA8 + cGF0aCBkPSJNMi4xLDE2aDIuMmwwLjYtMi4zaDMuMkw4LjgsMTZIMTFMNy44LDZINS40TDIuMSwxNnog + TTYuNCw4LjdjMC4xLTAuMywwLjEtMC42LDAuMS0wLjloMC4xICAgYzAsMC4zLDAuMSwwLjYsMC4xLDAu + OWwxLDMuM0g1LjRMNi40LDguN3ogTTE3LjUsMTAuNmMwLjYtMC4yLDEuMS0wLjUsMS41LTAuOWMwLjQt + MC40LDAuNi0wLjksMC42LTEuNGMwLTAuNy0wLjMtMS4zLTAuOS0xLjcgICBDMTguMSw2LjIsMTcuMSw2 + LDE1LjksNkgxMnY5LjlWMTZoNGMxLjIsMCwyLjItMC4yLDIuOS0wLjhDMTkuNywxNC42LDIwLDE0LDIw + LDEzYzAtMC42LTAuMi0xLjItMC43LTEuNiAgIEMxOC45LDExLDE4LjMsMTAuNywxNy41LDEwLjZ6IE0x + NC40LDcuN2gwLjljMS4xLDAsMS43LDAuNCwxLjcsMS4xYzAsMC40LTAuMSwwLjctMC40LDAuOUMxNi40 + LDkuOSwxNiwxMCwxNS41LDEwaC0xLjFWNy43eiAgICBNMTcsMTMuOGMtMC4zLDAuMi0wLjgsMC40LTEu + MywwLjRoLTEuM3YtMi42aDEuM2MwLjUsMCwwLjksMC4xLDEuMywwLjNjMC4zLDAuMiwwLjUsMC42LDAu + NSwwLjlDMTcuNSwxMy4zLDE3LjQsMTMuNiwxNywxMy44eiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxw + YXRoIGQ9Ik0yNywxOWwtOCw4bC00LTRsOC04TDI3LDE5eiBNMjgsMThsMS43LTEuN2MwLjQtMC40LDAu + NC0xLDAtMS4zTDI3LDEyLjNjLTAuNC0wLjQtMS0wLjQtMS4zLDBMMjQsMTRMMjgsMTh6ICAgIE0xNCwy + NHY0aDRMMTQsMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKEDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlVzZXIiPg0KICAgIDxwYXRoIGQ9Ik0xMCw5LjljLTAu + MSwwLjUsMC4yLDAuOSwwLjQsMS40YzAuMiwwLjUtMC4xLDEuNywwLjksMS42YzAsMCwwLDAuMSwwLDAu + MmMwLjYsMi4zLDIsNC45LDQuNyw0LjkgICBjMi43LDAsNC4yLTIuNiw0LjctNC45YzAsMCwwLTAuMSww + LTAuMWMxLDAuMSwwLjYtMS4xLDAuOS0xLjZjMC4yLTAuNSwwLjQtMC45LDAuMy0xLjRjLTAuMS0wLjQt + MC40LTAuNC0wLjUtMC4zICAgYzEuOC00LjktMS4xLTQuNy0xLjEtNC43UzIwLDIsMTQuOCwyQzEwLDIs + OS40LDYsMTAuNSw5LjZDMTAuNCw5LjYsMTAuMSw5LjcsMTAsOS45eiIgY2xhc3M9IkJsYWNrIiAvPg0K + ICAgIDxwYXRoIGQ9Ik0yMCwxOGMtMC44LDEuNS0yLjEsNC00LDRjLTEuOSwwLTMuMi0yLjUtNC00Yy0y + LjMsMy41LTgsMS04LDguNVYzMGgyNHYtMy41QzI4LDE5LjEsMjIuMywyMS40LDIwLDE4eiIgY2xhc3M9 + IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEoIAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iRGVmaW5lZE5hbWVVc2VJbkZvcm11bGEiIHN0eWxlPSJlbmFibGUtYmFj + a2dyb3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5CbHVle2Zp + bGw6IzExNzdENzt9CgkuQmxhY2t7ZmlsbDojNzI3MjcyO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTcs + MjBsLTctN1Y5bDctN2gyMmMwLjYsMCwxLDAuNCwxLDF2MTZjMCwwLjYtMC40LDEtMSwxaC04LjRsMC41 + LTJoMi4zSDI4VjRINy44TDIsOS44djIuM0w3LjgsMThoMy44aDEuNiAgbC0wLjQsMkg3eiBNNiwxMWMw + LDEuMSwwLjksMiwyLDJzMi0wLjksMi0yYzAtMS4xLTAuOS0yLTItMlM2LDkuOSw2LDExeiIgY2xhc3M9 + IkJsYWNrIiAvPg0KICA8cGF0aCBkPSJNMTkuOSwxNGgyLjNsLTAuNSwyaC0yLjNsLTIuMSw4LjdjLTAu + MywxLjItMC43LDIuMi0xLjIsM2MtMC42LDAuOC0xLjIsMS40LTIsMS44Yy0wLjcsMC40LTEuNiwwLjYt + Mi42LDAuNiAgYy0xLDAtMS44LTAuMi0yLjMtMC42Yy0wLjctMC41LTEtMS0xLTEuNmMwLTAuNSwwLjIt + MC45LDAuNS0xLjJjMC4zLTAuMywwLjctMC41LDEuMi0wLjVjMC4yLDAsMC40LDAsMC42LDAuMSAgYzAu + MiwwLjEsMC40LDAuMiwwLjYsMC4zYzAuMSwwLjEsMC4zLDAuMywwLjYsMC43YzAuMSwwLjIsMC4zLDAu + MywwLjQsMC4zYzAuMSwwLjEsMC4yLDAuMSwwLjQsMC4xYzAuNSwwLDAuOS0wLjYsMS4xLTEuN2wyLjIt + OS45ICBoLTEuN2wwLjQtMmgxLjdsMC40LTEuN2MwLjMtMS40LDEtMi40LDItMy4yYzEtMC44LDIuMy0x + LjEsNC0xLjFjMC44LDAsMS41LDAuMSwxLjksMC4zYzAuNSwwLjIsMC44LDAuNSwxLjEsMC44ICBjMC4z + LDAuNCwwLjQsMC43LDAuNCwxLjFjMCwwLjMtMC4xLDAuNi0wLjIsMC45Yy0wLjIsMC4zLTAuNCwwLjUt + MC42LDAuNmMtMC4zLDAuMS0wLjYsMC4yLTAuOSwwLjJjLTAuMywwLTAuNi0wLjEtMC45LTAuMiAgYy0w + LjMtMC4xLTAuNS0wLjMtMC44LTAuNmMtMC4zLTAuMy0wLjUtMC41LTAuNi0wLjZjLTAuMS0wLjEtMC4z + LTAuMS0wLjQtMC4xYy0wLjMsMC0wLjYsMC4xLTAuOCwwLjRjLTAuMSwwLjItMC4zLDAuNi0wLjQsMS4z + ICBMMTkuOSwxNHogTTIyLjUsMjIuM2wxLjIsMi40YzAuNy0wLjksMS4xLTEuNSwxLjMtMS43YzAuMy0w + LjMsMC42LTAuNSwxLTAuN3MwLjYtMC4yLDAuOS0wLjJjMC4zLDAsMC42LDAuMSwwLjgsMC4zICBzMC4z + LDAuNCwwLjMsMC43YzAsMC4yLDAsMC40LTAuMSwwLjVzLTAuMiwwLjMtMC4zLDAuNHMtMC4zLDAuMi0w + LjQsMC4yYy0wLjEsMC0wLjIsMC0wLjUsMC4xYy0wLjMsMC0wLjUsMC0wLjYsMC4xICBjLTAuMSwwLTAu + MiwwLjEtMC40LDAuMmMtMC4yLDAuMS0wLjMsMC4zLTAuNSwwLjRjLTAuMSwwLjEtMC4zLDAuNC0wLjgs + MS4xbDAuNCwwLjhjMC4zLDAuNiwwLjYsMS4xLDAuOCwxLjIgIGMwLjIsMC4yLDAuNCwwLjMsMC42LDAu + M2MwLjMsMCwwLjctMC4yLDEuMS0wLjZsMC44LDFjLTAuOSwwLjgtMS44LDEuMi0yLjcsMS4yYy0wLjQs + MC0wLjctMC4xLTEtMC4yYy0wLjMtMC4xLTAuNi0wLjMtMC44LTAuNiAgYy0wLjItMC4yLTAuNS0wLjYt + MC43LTEuMWwtMC40LTAuOWMtMC40LDAuNy0wLjgsMS4yLTEuMiwxLjZjLTAuNCwwLjQtMC44LDAuNy0x + LjEsMC45Yy0wLjMsMC4yLTAuNiwwLjItMC45LDAuMiAgYy0wLjIsMC0wLjQsMC0wLjYtMC4xYy0wLjEt + MC4xLTAuMy0wLjItMC40LTAuNEMxOCwyOS4zLDE4LDI5LjIsMTgsMjljMC0wLjIsMC4xLTAuNCwwLjIt + MC42YzAuMS0wLjIsMC4zLTAuMywwLjQtMC40ICBjMC4yLTAuMSwwLjUtMC4xLDAuOS0wLjFjMC4zLDAs + MC41LTAuMSwwLjctMC4yYzAuMi0wLjEsMC40LTAuMiwwLjYtMC41YzAuMi0wLjIsMC41LTAuNywxLTEu + NEwyMSwyNC4zaC0xLjFsMC4zLTEuNCAgYzAuNi0wLjEsMS4yLTAuMywxLjctMC42SDIyLjV6IiBjbGFz + cz0iQmx1ZSIgLz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iQ2hhbmdlX0RhdGFfU291cmNlIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91 + bmQ6bmV3IDAgMCAzMiAzMiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmx1ZXtmaWxsOiMx + MTc3RDc7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9Cgkuc3Qw + e29wYWNpdHk6MC41O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTAsOFY0YzAtMi4yLDQuNS00LDEwLTRz + MTAsMS44LDEwLDR2NEg4djMuOUMzLjQsMTEuNSwwLDkuOSwwLDh6IE04LDE5LjljLTQuNi0wLjQtOC0y + LTgtMy45djQgIGMwLDEuOSwzLjQsMy41LDgsMy45VjE5Ljl6IE04LDE3Ljl2LTRjLTQuNi0wLjQtOC0y + LTgtMy45djRDMCwxNS45LDMuNCwxNy41LDgsMTcuOXoiIGNsYXNzPSJZZWxsb3ciIC8+DQogIDxwYXRo + IGQ9Ik0zMSw2SDdDNi41LDYsNiw2LjUsNiw3djI0YzAsMC41LDAuNSwxLDEsMWgyNGMwLjUsMCwxLTAu + NSwxLTFWN0MzMiw2LjUsMzEuNSw2LDMxLDZ6IE0zMCwzMEg4VjhoMjJWMzB6IiBjbGFzcz0iQmxhY2si + IC8+DQogIDxnIGNsYXNzPSJzdDAiPg0KICAgIDxwYXRoIGQ9Ik0xNiwxNHYtNGgxMnY0SDE2eiBNMTQs + MTBoLTR2NGg0VjEweiBNMTQsMTZoLTR2MTJoNFYxNnoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQog + IDxwYXRoIGQ9Ik0yNSwxNmwtNCw0aDNjMCwyLjItMS44LDQtNCw0di0zbC00LDRsNCw0di0zYzMuMyww + LDYtMi43LDYtNmgzTDI1LDE2eiIgY2xhc3M9IkJsdWUiIC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOsCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLlJlZHtmaWxsOiNEMTFD + MUM7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7Zmls + bDojNzI3MjcyO30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuNzU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iQWRkRmlsZSI+DQogICAgPHBhdGggZD0iTTE2LDI2SDZWNGgxOHYxNGgyVjNjMC0w + LjUtMC41LTEtMS0xSDVDNC41LDIsNCwyLjUsNCwzdjI0YzAsMC41LDAuNSwxLDEsMWgxMVYyNnoiIGNs + YXNzPSJCbGFjayIgLz4NCiAgICA8cG9seWdvbiBwb2ludHM9IjMwLDI0IDI2LDI0IDI2LDIwIDIyLDIw + IDIyLDI0IDE4LDI0IDE4LDI4IDIyLDI4IDIyLDMyIDI2LDMyIDI2LDI4IDMwLDI4ICAiIGNsYXNzPSJH + cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iT3BlbiIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJLnN0 + MHtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBjbGFzcz0ic3QwIj4NCiAgICA8cGF0aCBkPSJN + Mi4yLDI1LjJsNS41LTEyYzAuMy0wLjcsMS0xLjIsMS44LTEuMkgyNlY5YzAtMC42LTAuNC0xLTEtMUgx + MlY1YzAtMC42LTAuNC0xLTEtMUgzQzIuNCw0LDIsNC40LDIsNXYyMCAgIGMwLDAuMiwwLDAuMywwLjEs + MC40QzIuMSwyNS4zLDIuMiwyNS4zLDIuMiwyNS4yeiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgPC9nPg0K + ICA8cGF0aCBkPSJNMzEuMywxNEg5LjZMNCwyNmgyMS44YzAuNSwwLDEuMS0wLjMsMS4zLTAuN0wzMiwx + NC43QzMyLjEsMTQuMywzMS44LDE0LDMxLjMsMTR6IiBjbGFzcz0iWWVsbG93IiAvPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFQEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku + QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC + MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRW5hYmxlU2Vh + cmNoIj4NCiAgICA8cGF0aCBkPSJNMTQuNSwxNy44QzEwLjgsMTcuMSw4LDEzLjksOCwxMGMwLTQuNCwz + LjYtOCw4LThzOCwzLjYsOCw4YzAsMS41LTAuNCwyLjgtMS4xLDRjMCwwLDAuMSwwLDAuMSwwICAgYzAu + NywwLDEuNCwwLjEsMi4xLDAuMmMwLjYtMS4zLDAuOS0yLjcsMC45LTQuMmMwLTUuNS00LjUtMTAtMTAt + MTBDMTAuNSwwLDYsNC41LDYsMTBjMCwyLjEsMC43LDQuMSwxLjgsNS43bC03LjUsNy42ICAgYy0wLjQs + MC4zLTAuNCwwLjksMCwxLjNsMS4yLDEuMmMwLjMsMC4zLDAuOSwwLjMsMS4yLDBsNy42LTcuNmMwLjks + MC42LDEuOSwxLjEsMi45LDEuNEMxMy42LDE5LDE0LDE4LjQsMTQuNSwxNy44eiIgY2xhc3M9IkJsdWUi + IC8+DQogICAgPHBhdGggZD0iTTIzLDE2Yy00LjQsMC04LjEsMy05LDdjMC45LDQsNC42LDcsOSw3YzQu + NCwwLDguMS0zLDktN0MzMS4xLDE5LDI3LjQsMTYsMjMsMTZ6IE0yMywyOGMtMy4zLDAtNi4xLTItNy01 + ICAgYzAuOS0zLDMuNy01LDctNXM2LjEsMiw3LDVDMjkuMSwyNiwyNi4zLDI4LDIzLDI4eiBNMjMsMjZj + LTEuNywwLTMtMS4zLTMtM3MxLjMtMywzLTNzMywxLjMsMywzUzI0LjcsMjYsMjMsMjZ6IiBjbGFzcz0i + QmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJYEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3 + RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm + aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iUGFyYW1ldGVycyI+DQogICAgPHBhdGggZD0i + TTE0LDI2SDZWNGgxOHYxMmMwLjcsMC4yLDEuNCwwLjUsMiwwLjhWM2MwLTAuNi0wLjQtMS0xLTFINUM0 + LjQsMiw0LDIuNCw0LDN2MjRjMCwwLjYsMC40LDEsMSwxaDkuOCAgIEMxNC41LDI3LjQsMTQuMiwyNi43 + LDE0LDI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxwYXRoIGQ9Ik0zMCwyNXYtMmwtMi4yLTAuNGMt + MC4yLTAuNi0wLjQtMS4zLTAuOC0xLjhsMS4zLTEuOGwtMS40LTEuNGwtMS44LDEuM2MtMC41LTAuMy0x + LjItMC42LTEuOC0wLjdMMjMsMTZoLTIgICBsLTAuNCwyLjJjLTAuNiwwLjItMS4zLDAuNC0xLjgsMC43 + TDE3LDE3LjZMMTUuNiwxOWwxLjMsMS44Yy0wLjMsMC41LTAuNiwxLjItMC44LDEuOEwxNCwyM3YybDIu + MiwwLjRjMC4yLDAuNiwwLjQsMS4zLDAuOCwxLjggICBMMTUuNywyOWwxLjQsMS40bDEuOC0xLjNjMC41 + LDAuMywxLjIsMC42LDEuOCwwLjdMMjEsMzJoMmwwLjQtMi4yYzAuNi0wLjIsMS4zLTAuNCwxLjgtMC43 + bDEuOCwxLjNsMS40LTEuNGwtMS4zLTEuOCAgIGMwLjMtMC41LDAuNi0xLjIsMC44LTEuOEwzMCwyNXog + TTIyLDI2Yy0xLjEsMC0yLTAuOS0yLTJzMC45LTIsMi0yczIsMC45LDIsMlMyMy4xLDI2LDIyLDI2eiIg + Y2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHcDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + Qmx1ZXtmaWxsOiMxMTc3RDc7fQoJLnN0MHtvcGFjaXR5OjAuNTt9Cjwvc3R5bGU+DQogIDxnIGlkPSJN + YW5hZ2VfUmVsYXRpb25zIj4NCiAgICA8ZyBjbGFzcz0ic3QwIj4NCiAgICAgIDxwYXRoIGQ9Ik0zMSwz + MmgtOGMtMC41LDAtMS0wLjUtMS0xdi04YzAtMC41LDAuNS0xLDEtMWg4YzAuNSwwLDEsMC41LDEsMXY4 + QzMyLDMxLjUsMzEuNSwzMiwzMSwzMnogTTMyLDlWMSAgICBjMC0wLjYtMC41LTEtMS0xaC04Yy0wLjUs + MC0xLDAuNC0xLDF2OGMwLDAuNiwwLjUsMSwxLDFoOEMzMS41LDEwLDMyLDkuNiwzMiw5eiIgY2xhc3M9 + IkJsYWNrIiAvPg0KICAgIDwvZz4NCiAgICA8cGF0aCBkPSJNMTEsMjJIMWMtMC42LDAtMS0wLjUtMS0x + VjExYzAtMC42LDAuNC0xLDEtMWgxMGMwLjYsMCwxLDAuNCwxLDF2MTBDMTIsMjEuNSwxMS42LDIyLDEx + LDIyeiIgY2xhc3M9IkJsdWUiIC8+DQogICAgPHBhdGggZD0iTTIwLDJ2NmwtMi4zLTIuM2wtNCw0bC0x + LjQtMS40bDQtNEwxNCwySDIweiBNMTcuNywyNi4zbC00LTRsLTEuNCwxLjRsNCw0TDE0LDMwaDZ2LTZM + MTcuNywyNi4zeiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + 17, 134 + + + 246, 56 + + + 1161, 17 + + + 752, 56 + + + 752, 56 + + + 17, 95 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEACAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFycm93MUxlZnQiPg0KICAgIDxwb2x5Z29uIHBvaW50 + cz0iMjgsMTQgMTQsMTQgMTQsMTMuMyAxNCw2IDQsMTYgMTQsMjYgMTQsMTguNyAxNCwxOCAyOCwxOCAg + IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + + 17, 95 + + + 511, 95 + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAEZvcmNlIFRlc3Q7VGVzdDtDaGVj + aztSZXBvcnQ74hwgxgAAAR1JREFUWEfdkrENwjAQRcNmINEzBBtQUFNkB0ago0FswBDMQMEKx32Tiw7r + K0CwD0HxlPjb9/+PlUZEvgoVI6FiJFR8Rtu2G0UyoNHzQ1DxGRaar6sVUOO9C3kVzFA/DxXB5biQ62ml + rw9f+C4NPOBlvjlUBFmB0TdQqsBoPi7QAaMxpPniBdj59W47VQRPdzamgAtPuLNlC6i50X+tezdm5mHz + xQpA1wDgAz0oY+cmNl/0BrDXBdFwYB42X+MG8hJ9ODAPmy9awMNCvW7zxQucl/ODoq/9WjotrSMKIJCR + 9iMKsBJJx361AmaM/SxcpXsxPKsXyMMdabZaAUODBn9Cd7ZOgTf4nwIf8bsFSpL7G1SMhIqRUDESKsYh + zQ3o4jAe74EDiAAAAABJRU5ErkJggg== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKEDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlVzZXIiPg0KICAgIDxwYXRoIGQ9Ik0xMCw5LjljLTAu + MSwwLjUsMC4yLDAuOSwwLjQsMS40YzAuMiwwLjUtMC4xLDEuNywwLjksMS42YzAsMCwwLDAuMSwwLDAu + MmMwLjYsMi4zLDIsNC45LDQuNyw0LjkgICBjMi43LDAsNC4yLTIuNiw0LjctNC45YzAsMCwwLTAuMSww + LTAuMWMxLDAuMSwwLjYtMS4xLDAuOS0xLjZjMC4yLTAuNSwwLjQtMC45LDAuMy0xLjRjLTAuMS0wLjQt + MC40LTAuNC0wLjUtMC4zICAgYzEuOC00LjktMS4xLTQuNy0xLjEtNC43UzIwLDIsMTQuOCwyQzEwLDIs + OS40LDYsMTAuNSw5LjZDMTAuNCw5LjYsMTAuMSw5LjcsMTAsOS45eiIgY2xhc3M9IkJsYWNrIiAvPg0K + ICAgIDxwYXRoIGQ9Ik0yMCwxOGMtMC44LDEuNS0yLjEsNC00LDRjLTEuOSwwLTMuMi0yLjUtNC00Yy0y + LjMsMy41LTgsMS04LDguNVYzMGgyNHYtMy41QzI4LDE5LjEsMjIuMywyMS40LDIwLDE4eiIgY2xhc3M9 + IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALkEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iR3JvdXBCeVJl + c291cmNlXzFfIj4NCiAgICA8cGF0aCBkPSJNNi41LDcuNkM1LjQsNCw2LDAsMTAuOCwwYzUuMiwwLDUu + NSwyLjksNS41LDIuOXMyLjktMC4yLDEuMSw0LjdjMC4xLDAsMC41LTAuMSwwLjUsMC4zICAgYzAuMSww + LjUsMCwwLjktMC4zLDEuNGMtMC4xLDAuMi0wLjEsMC40LTAuMSwwLjdIMTNjLTAuNSwwLTEsMC41LTEs + MXY1Yy0yLjYsMC00LjEtMi42LTQuNy00LjljMC0wLjEsMC0wLjEsMC0wLjIgICBjLTEsMC4xLTAuNi0x + LjEtMC45LTEuNkM2LjIsOC44LDUuOSw4LjQsNiw3LjlDNi4xLDcuNyw2LjQsNy42LDYuNSw3LjZ6IE0x + MiwyMGMtMS45LDAtMy4yLTIuNS00LTRjLTIuMywzLjUtOCwxLTgsOC41VjI2aDEyVjIweiIgY2xhc3M9 + IkJsdWUiIC8+DQogICAgPHBhdGggZD0iTTE0LDEzdjE4YzAsMC42LDAuNCwxLDEsMWgxNmMwLjYsMCwx + LTAuNCwxLTFWMTNjMC0wLjYtMC40LTEtMS0xSDE1QzE0LjQsMTIsMTQsMTIuNCwxNCwxM3ogTTMwLDMw + SDE2VjE2ICAgaDE0VjMweiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxnIGNsYXNzPSJzdDAiPg0KICAg + ICAgPHBhdGggZD0iTTI4LDE4aC00djRoNFYxOHogTTIyLDI0aC00djRoNFYyNHogTTI4LDI0aC00djRo + NFYyNHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICA8L2c+DQogICAgPHJlY3QgeD0iMTgiIHk9IjE4IiB3 + aWR0aD0iNCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJHcmVlbiIgLz4NCiAgPC9nPg0K + PC9zdmc+Cw== + + + + 17, 56 + + + 502, 56 + + + 1004, 56 + + + 267, 95 + + + 765, 95 + + + 311, 134 + + + 118 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb new file mode 100644 index 0000000..019e881 --- /dev/null +++ b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb @@ -0,0 +1,695 @@ +Imports System.Text.RegularExpressions +Imports DevExpress.XtraLayout +Imports DigitalData.GUIs.Common +Imports DigitalData.Modules.Logging + +Public Class frmAdmin_Globix + Implements IAdminForm + Public Property HasChanges As Boolean = False Implements IAdminForm.HasChanges + Public Property IsInsert As Boolean = False Implements IAdminForm.IsInsert + Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey + Public Property GlobixHelper As ClassGIDatatables + + Private AttributesManual As new Dictionary(Of String, String) + Private AttributesAutomatic As New Dictionary(Of String, String) + + Private Pages As ClassDetailPageManager + Private Logger As Logger = My.LogConfig.GetLogger + Private FormHelper As FormHelper + + Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.PrimaryKey = PrimaryKey + Me.IsInsert = IsInsert + Me.GlobixHelper = New ClassGIDatatables(My.LogConfig) + FormHelper = New FormHelper(My.LogConfig, Me) + End Sub + + Private Sub frmAdmin_Globix_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + VWIDB_DOCTYPE_LANGUAGETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString + TBGI_REGEX_DOCTYPETableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString + VWIDB_OBJECT_STORETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + VWIDB_BE_ATTRIBUTETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + TBDD_INDEX_MANTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString + + Me.VWIDB_DOCTYPE_LANGUAGETableAdapter.FillByLanguage(Me.DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGE, My.Application.User.Language) + TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey) + Me.VWIDB_OBJECT_STORETableAdapter.Fill(Me.DSIDB_Stammdaten.VWIDB_OBJECT_STORE) + + Try + Me.VWIDB_BE_ATTRIBUTETableAdapter.Fill(Me.DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, My.Application.User.Language) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error loading VWIDB_BE_ATTRIBUTE") + End Try + + Load_TabData() + + ' Add Focus Handler to all controls in all LayoutControls + Dim oLayoutControls = New List(Of LayoutControl) From {LayoutControlProfile, LayoutControlManIndexe, LayoutControlAutoIndexe, LayoutControlRework} + Pages = New ClassDetailPageManager(My.LogConfig, Me, oLayoutControls) + Pages.AddRange({ + New ClassDetailPageManager.PrimaryPage(IsInsert) With { + .Name = "Profile Globix", + .TabPage = XtraTabPageProfile, + .BindingSource = TBDD_DOKUMENTARTBindingSource, + .DataTable = GlobixDataset.TBDD_DOKUMENTART, + .AddedWhoEdit = TextEditErstelltWer, + .ChangedWhoEdit = TextEditGeandertWer + }, + New ClassDetailPageManager.DetailPage With { + .Name = "Manual Attributes", + .TabPage = XtraTabPageManIndexe, + .BindingSource = TBDD_INDEX_MANBindingSource, + .DataTable = GlobixDataset.TBDD_INDEX_MAN, + .AddedWhoEdit = TextEditAddedWho_ManIndex, + .ChangedWhoEdit = TextEditChangedWho_ManIndex + }, + New ClassDetailPageManager.DetailPage With { + .Name = "Auto Attributes", + .TabPage = XtraTabPageAutoIndexe, + .BindingSource = TBDD_INDEX_AUTOMBindingSource, + .DataTable = GlobixDataset.TBDD_INDEX_AUTOM, + .AddedWhoEdit = ADDED_WHOTextBoxAutoAttribut, + .ChangedWhoEdit = CHANGED_WHOTextEditAutoAttribut + }, + New ClassDetailPageManager.DetailPage With { + .Name = "Auto Attributes", + .TabPage = XtraTabPageAutoSelect, + .BindingSource = TBGI_REGEX_DOCTYPEBindingSource, + .DataTable = GlobixDataset.TBGI_REGEX_DOCTYPE, + .AddedWhoEdit = AddedWhoAutoSelect, + .ChangedWhoEdit = ChangedWhoAutoSelect + }, + New ClassDetailPageManager.DetailPage With { + .Name = "Dynamic Folder", + .TabPage = XtraTabPageDynamicFolder, + .BindingSource = TBDD_DOKUMENTARTBindingSource, + .DataTable = GlobixDataset.TBDD_DOKUMENTART, + .AddedWhoEdit = TextEditErstelltWer, + .ChangedWhoEdit = TextEditGeandertWer + } + }) + + Pages.PrepareLoad() + AddHandler Pages.CurrentPage_Changed, AddressOf CurrentPage_Changed + If IsInsert Then + TextEditErstelltWer.EditValue = My.Application.User.UserName + BarButtonNew.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Else + TextEditChangedWho_ManIndex.EditValue = My.Application.User.UserName + BarButtonNew.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End If + Dim oDragDropManager As New ClassDragDrop(My.LogConfig) + oDragDropManager.AddGridView(viewAssignedGroups) + oDragDropManager.AddGridView(viewAvailableGroups) + oDragDropManager.AddGridView(viewAssignedUsers) + oDragDropManager.AddGridView(viewAvailableUsers) + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "frmAdmin_Globix_Load") + End Try + End Sub + Sub Load_TabData() + Load_Attributes_Manual() + Load_Attributes_Auto() + End Sub + Private Sub Load_Attributes_Manual() + Try + If Not IsNumeric(PrimaryKey) Then + Exit Sub + End If + + TBDD_INDEX_MANTableAdapter.Fill(GlobixDataset.TBDD_INDEX_MAN, PrimaryKey) + + AttributesManual = GlobixDataset.TBDD_INDEX_MAN.Cast(Of DataRow). + ToDictionary(Of String, String)(Function(row) row.Item("NAME"), Function(row) row.Item("WD_INDEX")) + + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load IndexeManuell: ") + End Try + End Sub + + Private Sub Load_Attributes_Auto() + Try + If Not IsNumeric(PrimaryKey) Then + Exit Sub + End If + + TBDD_INDEX_AUTOMTableAdapter.Fill(GlobixDataset.TBDD_INDEX_AUTOM, PrimaryKey) + + AttributesAutomatic = GlobixDataset.TBDD_INDEX_AUTOM.Cast(Of DataRow). + ToDictionary(Of String, String)(Function(row) row.Item("INDEXNAME"), Function(row) row.Item("INDEXNAME")) + + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + + End Sub + + + Private Sub CurrentPage_Changed(sender As Object, e As ClassDetailPageManager.DetailPageEventArgs) + If Not IsNothing(e.Page) Then + If e.Page.IsPrimary = True Then + BarButtonNew.Enabled = False + Else + BarButtonNew.Enabled = True + End If + + RibbonPageGroup1.Text = e.Page.Name + End If + End Sub + Private Sub ResetMessages() + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + bsiStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End Sub + + Private Sub ShowStatus(Message As String, ocolor As Color) + labelStatus.Caption = Message + bsiStatus.Caption = $"{Message} - {Now.ToString}" + bsiStatus.ItemAppearance.Normal.BackColor = ocolor + bsiStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End Sub + + Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData + Throw New NotImplementedException() + End Function + + 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 + + Select Case oPage.TabPage.Name + Case XtraTabPageProfile.Name + If IsInsert Then + Insert_Doctype() + Else + Update_Doctype() + End If + + + Case XtraTabPageManIndexe.Name + Try + Save_manIndexe(oPage) + Load_Attributes_Manual() + Catch ex As Exception + + End Try + Case XtraTabPageAutoIndexe.Name + Save_AutoIndexe(oPage) + Load_Attributes_Auto() + Case XtraTabPageAutoSelect.Name + Save_AutoSelect(oPage) + Case XtraTabPageDynamicFolder.Name + Update_Doctype() + End Select + + oPage.IsInsert = False + + ShowStatus($"{oPage.Name} saved - {Now.ToString}", Color.DodgerBlue) + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "BarButtonSave_ItemClick") + ShowStatus($"{ex.Message} saved - {Now.ToString}", Color.Red) + End Try + 'Else + ' ShowStatus("Keine Änderungen!") + 'End If + End Sub + Private Function Save_manIndexe(oPage As ClassDetailPageManager.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 + + ShowStatus("Manual Attribut-Step saved", Color.DodgerBlue) + Return True + Catch ex As Exception + ShowStatus($"Error saving ManIndex {ex.Message} - {Now.ToString}", Color.Red) + Return False + End Try + End Function + Private Function Save_AutoIndexe(oPage As ClassDetailPageManager.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) + ShowStatus($"Auto Attribut-Step saved", Color.DodgerBlue) + + End If + Return True + Catch ex As Exception + Return False + ShowStatus($"Error saving AutoIndex - {ex.Message}", Color.Red) + + End Try + End Function + Private Function Save_AutoSelect(oPage As ClassDetailPageManager.DetailPage) As Boolean + Try + TBGI_REGEX_DOCTYPEBindingSource.EndEdit() + If GlobixDataset.TBGI_REGEX_DOCTYPE.GetChanges() IsNot Nothing Then + If Pages.Current.IsInsert Then + AddedWhoAutoSelect.Text = My.Application.User.UserName + Else + ChangedWhoAutoSelect.Text = My.Application.User.UserName + End If + TBGI_REGEX_DOCTYPEBindingSource.EndEdit() + TBGI_REGEX_DOCTYPETableAdapter.Update(Pages.Current.DataTable) + + ShowStatus($"Autoselect saved", Color.DodgerBlue) + End If + Return True + Catch ex As Exception + ShowStatus($"Error saving autoselect - {ex.Message}", Color.Red) + Return False + End Try + End Function + Private Function Insert_Doctype() As Boolean + Try + Dim oIns = $"INSERT INTO [TBDD_DOKUMENTART] ([BEZEICHNUNG] ,[OBJEKTTYP] ,[EINGANGSART_ID] ,[IDB_DOCTYPE_ID] ,[ZIEL_PFAD] ,[BESCHREIBUNG] + ,[WINDREAM_DIRECT] ,[FOLDER_FOR_INDEX] ,[DUPLICATE_HANDLING],[AKTIV],[LANGUAGE], + [SEQUENCE],[NAMENKONVENTION],[ERSTELLTWER],IDB_OBJECT_STORE_ID,KURZNAME) VALUES + ('{TextEditBezeichnung.Text}','IDB_DRIVEN',1,{IDB_DOCTYPE_IDComboBox.SelectedValue},'IDB_STORE','{TextEditBeschreibung.Text}' + ,'False','{FOLDER_FOR_INDEXTextEdit.Text}','{ComboBoxEditDupl_handling.EditValue}' ,'{CheckEdit1.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(oSQL) + IsInsert = False + TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey) + ShowStatus($"New FileFlow Profile {TextEditBezeichnung.Text} saved", Color.DodgerBlue) + Return True + Else + ShowStatus("Error Saving Fileflow Profile - Check the Log for further info", Color.Red) + Return False + End If + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "Insert_Doctype") + ShowStatus($"Error Saving Fileflow Profile {ex.Message}", Color.Red) + Return False + End Try + + End Function + Private Function Update_Doctype() As Boolean + Try + Dim oUpd = $"UPDATE TBDD_DOKUMENTART SET [BEZEICHNUNG] = '{TextEditBezeichnung.Text}' ,[IDB_DOCTYPE_ID] = {IDB_DOCTYPE_IDComboBox.SelectedValue} + ,[BESCHREIBUNG] = '{TextEditBeschreibung.Text}',[DUPLICATE_HANDLING] = '{ComboBoxEditDupl_handling.EditValue}' + ,[AKTIV] = '{CheckEdit1.Checked}',[SEQUENCE] = {SEQUENCENumericUpDown.Value} + ,[NAMENKONVENTION] = '{TextEditNamenkonvention.Text}', [FOLDER_FOR_INDEX] = '{FOLDER_FOR_INDEXTextEdit.Text}' + ,[GEANDERTWER] = '{My.Application.User.UserName}',IDB_OBJECT_STORE_ID = {IDB_OBJECT_STORE_IDComboBox.SelectedValue} + WHERE GUID = {TextEditDoctypeID.Text}" + + If My.DatabaseECM.ExecuteNonQuery(oUpd) = True Then + ShowStatus($"FileFlow Profile {TextEditBezeichnung.Text} saved", Color.DodgerBlue) + Return True + Else + Return False + End If + + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "Update_Doctype") + 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 + + AddData() + End Sub + Public Function AddData() As Boolean + Dim oPage = Pages.Current + + If Pages.Current Is Nothing Then + Return False + End If + + If oPage.IsPrimary = False Then + Select Case oPage.TabPage.Name + Case XtraTabPageAutoIndexe.Name + oPage.DataTable.Columns.Item("DOCTYPE_ID").DefaultValue = PrimaryKey + Case XtraTabPageAutoSelect.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 + Case XtraTabPageAutoSelect.Name + + 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 + Try + Dim oSQLbefore = SQL_RESULTTextBox.Text + Dim oForm2 As New frmSQLEditor(My.LogConfig, My.DatabaseECM) With { + .SQLCommand = SQL_RESULTTextBox.Text, + .SQLConnection = IIf(CONNECTION_IDTextBox.Text = "", 1, CONNECTION_IDTextBox.Text), + .PlaceholdersManual = AttributesManual + } + oForm2.ShowDialog() + + If oForm2.DialogResult = DialogResult.OK And oSQLbefore <> oForm2.SQLCommand Then + CONNECTION_IDTextBox.Text = oForm2.SQLConnection + SQL_RESULTTextBox.Text = oForm2.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 + Catch ex As Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + + 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_AutoSelect() + Try + Me.TBGI_REGEX_DOCTYPETableAdapter.Fill(Me.GlobixDataset.TBGI_REGEX_DOCTYPE, 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 + Select Case oPage.TabPage.Name + Case XtraTabPageAutoIndexe.Name + Load_Attributes_Auto() + Case XtraTabPageManIndexe.Name + Load_Attributes_Manual() + Case XtraTabPageAutoSelect.Name + Load_AutoSelect() + Case XtraTabPageDynamicFolder.Name + cmbAllAttributes.Items.Clear() + For Each oRowMan As DataRow In Me.GlobixDataset.TBDD_INDEX_MAN.Rows + cmbAllAttributes.Items.Add(oRowMan.Item("WD_INDEX") + " - M") + Next + For Each oRowMan As DataRow In Me.GlobixDataset.TBDD_INDEX_AUTOM.Rows + cmbAllAttributes.Items.Add(oRowMan.Item("INDEXNAME") + " - A") + Next + End Select + 'Else + ' If XtraTabControl2.SelectedTabPageIndex = 3 Then + ' sd + ' End If + End If + + + 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 oForm2 As New frmSQLEditor(My.LogConfig, My.DatabaseECM) With { + .SQLCommand = SQL_RESULTTextBox1.Text, + .SQLConnection = IIf(CONNECTION_IDTextBox1.Text = "", 1, CONNECTION_IDTextBox1.Text), + .PlaceholdersAutomatic = AttributesAutomatic, + .PlaceholdersManual = AttributesManual + } + oForm2.ShowDialog() + + If oForm2.DialogResult = DialogResult.OK And oSQLbefore <> oForm2.SQLCommand Then + CONNECTION_IDTextBox1.Text = oForm2.SQLConnection + SQL_RESULTTextBox1.Text = oForm2.SQLCommand + SQL_ACTIVECheckBox.Checked = 1 + CHANGED_WHOTextEditAutoAttribut.Text = My.Application.User.UserName + End If + End If + End Sub + + Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged + Select Case XtraTabControl1.SelectedTabPageIndex + Case 1 + gridAssignedGroups.DataSource = GlobixHelper.GetAssignedGroups(TextEditDoctypeID.Text) + gridAvailableGroups.DataSource = GlobixHelper.GetAvailableGroups(TextEditDoctypeID.Text) + gridAssignedUsers.DataSource = GlobixHelper.GetAssignedUsers(TextEditDoctypeID.Text) + gridAvailableUsers.DataSource = GlobixHelper.GetAvailableUsers(TextEditDoctypeID.Text) + End Select + End Sub + + Private Sub gridAssignedUsers_DragDrop(sender As Object, e As DragEventArgs) Handles gridAssignedUsers.DragDrop + Try + Dim data As String = e.Data.GetData(DataFormats.Text) + Dim userId As Integer = data.Split("|")(0) + Dim profileId As Integer = TextEditDoctypeID.Text + + GlobixHelper.AddUserToProfile(userId, profileId) + gridAssignedUsers.DataSource = GlobixHelper.GetAssignedUsers(profileId) + gridAvailableUsers.DataSource = GlobixHelper.GetAvailableUsers(profileId) + Catch ex As Exception + Logger.Error(ex) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen eines Users:") + End Try + End Sub + + Private Sub gridAvailableUsers_DragDrop(sender As Object, e As DragEventArgs) Handles gridAvailableUsers.DragDrop + Try + Dim data As String = e.Data.GetData(DataFormats.Text) + Dim userId As Integer = data.Split("|")(0) + Dim profileId As Integer = TextEditDoctypeID.Text + + GlobixHelper.RemoveUserFromProfile(userId, profileId) + gridAssignedUsers.DataSource = GlobixHelper.GetAssignedUsers(profileId) + gridAvailableUsers.DataSource = GlobixHelper.GetAvailableUsers(profileId) + Catch ex As Exception + Logger.Error(ex) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen eines Users:") + End Try + End Sub + + Private Sub gridAssignedGroups_DragDrop(sender As Object, e As DragEventArgs) Handles gridAssignedGroups.DragDrop + Try + Dim data As String = e.Data.GetData(DataFormats.Text) + Dim groupId As Integer = data.Split("|")(0) + Dim profileId As Integer = TextEditDoctypeID.Text + + GlobixHelper.AddGroupToProfile(groupId, profileId) + gridAssignedGroups.DataSource = GlobixHelper.GetAssignedGroups(profileId) + gridAvailableGroups.DataSource = GlobixHelper.GetAvailableGroups(profileId) + Catch ex As Exception + Logger.Error(ex) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen einer Gruppe:") + End Try + End Sub + + Private Sub gridAvailableGroups_DragDrop(sender As Object, e As DragEventArgs) Handles gridAvailableGroups.DragDrop + Try + Dim data As String = e.Data.GetData(DataFormats.Text) + Dim groupId As Integer = data.Split("|")(0) + Dim profileId As Integer = TextEditDoctypeID.Text + + GlobixHelper.RemoveGroupFromProfile(groupId, profileId) + gridAssignedGroups.DataSource = GlobixHelper.GetAssignedGroups(profileId) + gridAvailableGroups.DataSource = GlobixHelper.GetAvailableGroups(profileId) + Catch ex As Exception + Logger.Error(ex) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen einer Gruppe:") + End Try + End Sub + + Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click + If Not ComboBoxEditAAttrFileParam.SelectedItem Is Nothing Then + If GUIDTextBoxAutoAttribute.Text <> "" Then + Dim value As String + Dim oPattern = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_FILE, ComboBoxEditAAttrFileParam.Text) + 'Select Case ComboBoxEditAAttrFileParam.SelectedIndex + ' Case 0 : value = "$filename_ext" + ' Case 1 : value = "$filename" + ' Case 2 : value = "$extension" + ' Case 3 : value = "$FileCreateDate" + ' Case 4 : value = "$FileCreatedWho" + ' Case 5 : value = "$DateDDMMYYY" + ' Case 6 : value = "$Username" + ' Case 7 : value = "$Usercode" + 'End Select + + + VALUETextBox.Text = oPattern + + End If + End If + End Sub + + Private Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click + Dim str As String + If (FOLDER_FOR_INDEXTextEdit.Text = "") = False Then + str = FOLDER_FOR_INDEXTextEdit.Text & "\" + End If + If cmbAllAttributes.SelectedIndex <> -1 Then + Dim oPattern As String + If cmbAllAttributes.Text.EndsWith(" - M") Then + oPattern = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_MAN, cmbAllAttributes.Text.Replace(" - M", "")) + ElseIf cmbAllAttributes.Text.EndsWith(" - A") Then + oPattern = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_AUTO, cmbAllAttributes.Text.Replace(" - A", "")) + End If + Me.FOLDER_FOR_INDEXTextEdit.Text = str & oPattern + cmbAllAttributes.SelectedIndex = -1 + ElseIf cmbCrFolderDate.SelectedIndex <> -1 Then + Dim oPattern As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_INT, cmbCrFolderDate.Text) + Me.FOLDER_FOR_INDEXTextEdit.Text = str & oPattern + cmbCrFolderDate.SelectedIndex = -1 + ElseIf txtcrFoldermanuell.Text <> "" Then + Me.FOLDER_FOR_INDEXTextEdit.Text = str & txtcrFoldermanuell.Text + txtcrFoldermanuell.Text = "" + End If + Dim oPage = Pages.Current + Save_AutoIndexe(oPage) + + + End Sub + + Private Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles SimpleButton4.Click + Try + If Regex.IsMatch(REGEXTextBox.Text, txtDateinameTest.Text) Then + Dim oResult = FormHelper.ShowInfoMessage("The RegEx resulted in a proper match!", "Testing Regex") + Else + Dim oResult = FormHelper.ShowWarningMessage("No Match- There might be an error in the RegEx!", "Testing Regex") + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Testing Regex: ") + End Try + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemDelete.ItemClick + ResetMessages() + + Dim result As MsgBoxResult + + + Try + Dim oPage = Pages.Current + + Select Case oPage.TabPage.Name + Case XtraTabPageProfile.Name + If My.Application.User.Language = "de-DE" Then + result = MessageBox.Show("Sind Sie sicher dass Sie das ausgewählte Profil löschen wollen?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) + Else + result = MessageBox.Show("Are you sure you want to delete the selected profile?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) + End If + + If result = MsgBoxResult.Yes Then + Dim oSQL = $"EXEC PRDD_GLOBIX_DELETE_DOCTYPE {TextEditDoctypeID.Text}" + If My.DatabaseECM.ExecuteNonQuery(oSQL) Then + TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey) + Load_TabData() + End If + End If + + + Case XtraTabPageManIndexe.Name + If My.Application.User.Language = "de-DE" Then + result = MessageBox.Show("Sind Sie sicher dass Sie das ausgewählte manuelle Attribut löschen wollen?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) + Else + result = MessageBox.Show("Are you sure you want to delete this manual attribute?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) + End If + + If result = MsgBoxResult.Yes Then + TBDD_INDEX_MANTableAdapter.Delete(GUIDTextBoxMANINDEX.Text) + Load_Attributes_Manual() + End If + + Case XtraTabPageAutoIndexe.Name + If My.Application.User.Language = "de-DE" Then + result = MessageBox.Show("Sind Sie sicher dass Sie das ausgewählte automatische Attribut löschen wollen?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) + Else + result = MessageBox.Show("Are you sure you want to delete the selected auto attribute?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) + End If + If result = MsgBoxResult.Yes Then + TBDD_INDEX_AUTOMTableAdapter.Delete(GUIDTextBoxAutoAttribute.Text) + Load_Attributes_Auto() + End If + + Case XtraTabPageAutoSelect.Name + If My.Application.User.Language = "de-DE" Then + result = MessageBox.Show("Sind Sie sicher dass Sie die ausgewählte Regex löschen wollen?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) + Else + result = MessageBox.Show("Are you sure you want to delete the selected regex?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) + End If + If result = MsgBoxResult.Yes Then + TBGI_REGEX_DOCTYPETableAdapter.Delete(GUIDTextBoxAutoSelect.Text) + Load_AutoSelect() + End If + + End Select + + oPage.IsInsert = False + + ' ShowStatus($"{oPage.Name} deleted!") + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "BarButtonItem2_ItemClick") + End Try + End Sub + + Private Sub SQL_ACTIVECheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SQL_ACTIVECheckBox.CheckedChanged + If SQL_ACTIVECheckBox.Checked Then + VALUETextBox.Text = String.Empty + Else + SQL_RESULTTextBox1.Text = String.Empty + End If + End Sub + + Private Sub WD_INDEXComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles WD_INDEXComboBox.SelectedIndexChanged + If WD_INDEXComboBox.SelectedIndex <> -1 Then + TextEdit10.Text = WD_INDEXComboBox.Text + End If + + End Sub + + Private Sub FOLDER_FOR_INDEXTextEdit_TextChanged(sender As Object, e As EventArgs) Handles FOLDER_FOR_INDEXTextEdit.TextChanged + If FOLDER_FOR_INDEXTextEdit.Text <> String.Empty Then + Dim opath = FOLDER_FOR_INDEXTextEdit.Text + opath = opath.Replace("\\", "\") + FOLDER_FOR_INDEXTextEdit.Text = opath + End If + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/Globix/frmAdmin_GlobixRelations.Designer.vb b/GUIs.ZooFlow/Administration/Globix/frmAdmin_GlobixRelations.Designer.vb new file mode 100644 index 0000000..32606f5 --- /dev/null +++ b/GUIs.ZooFlow/Administration/Globix/frmAdmin_GlobixRelations.Designer.vb @@ -0,0 +1,399 @@ + _ +Partial Class frmAdmin_GlobixRelations + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_GlobixRelations)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControlUser = New DevExpress.XtraLayout.LayoutControl() + Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.GridControlUsersRelated = New DevExpress.XtraGrid.GridControl() + Me.GridViewUsersRelated = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridControlDoctypesUsers = New DevExpress.XtraGrid.GridControl() + Me.GridViewDoctypesUser = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridControlFreeUsers = New DevExpress.XtraGrid.GridControl() + Me.GridViewFreeUsers = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.SimpleLabelItem1 = New DevExpress.XtraLayout.SimpleLabelItem() + Me.SimpleLabelItem2 = New DevExpress.XtraLayout.SimpleLabelItem() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.SimpleLabelItem3 = New DevExpress.XtraLayout.SimpleLabelItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + CType(Me.LayoutControlUser, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControlUser.SuspendLayout() + CType(Me.GridControlUsersRelated, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewUsersRelated, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlDoctypesUsers, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewDoctypesUser, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlFreeUsers, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewFreeUsers, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SimpleLabelItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SimpleLabelItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SimpleLabelItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + 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.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.Size = New System.Drawing.Size(1087, 158) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Start" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Aktionen" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 737) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1087, 24) + ' + '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, 158) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.Size = New System.Drawing.Size(1087, 579) + Me.XtraTabControl1.TabIndex = 2 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.Controls.Add(Me.LayoutControlUser) + Me.XtraTabPage1.ImageOptions.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True] + Me.XtraTabPage1.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.XtraTabPage1.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(1085, 551) + Me.XtraTabPage1.Text = "User-Relations" + ' + 'LayoutControlUser + ' + Me.LayoutControlUser.Controls.Add(Me.SimpleButton2) + Me.LayoutControlUser.Controls.Add(Me.SimpleButton1) + Me.LayoutControlUser.Controls.Add(Me.GridControlUsersRelated) + Me.LayoutControlUser.Controls.Add(Me.GridControlDoctypesUsers) + Me.LayoutControlUser.Controls.Add(Me.GridControlFreeUsers) + Me.LayoutControlUser.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControlUser.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlUser.Name = "LayoutControlUser" + Me.LayoutControlUser.Root = Me.Root + Me.LayoutControlUser.Size = New System.Drawing.Size(1085, 551) + Me.LayoutControlUser.TabIndex = 0 + Me.LayoutControlUser.Text = "LayoutControl1" + ' + 'SimpleButton2 + ' + Me.SimpleButton2.Appearance.Options.UseTextOptions = True + Me.SimpleButton2.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.SimpleButton2.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleRight + Me.SimpleButton2.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton2.Location = New System.Drawing.Point(420, 503) + Me.SimpleButton2.Name = "SimpleButton2" + Me.SimpleButton2.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.SimpleButton2.Size = New System.Drawing.Size(275, 36) + Me.SimpleButton2.StyleController = Me.LayoutControlUser + Me.SimpleButton2.TabIndex = 10 + Me.SimpleButton2.Text = "User entfernen" + ' + 'SimpleButton1 + ' + Me.SimpleButton1.Appearance.Options.UseTextOptions = True + Me.SimpleButton1.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton1.Location = New System.Drawing.Point(420, 463) + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.Size = New System.Drawing.Size(275, 36) + Me.SimpleButton1.StyleController = Me.LayoutControlUser + Me.SimpleButton1.TabIndex = 9 + Me.SimpleButton1.Text = "User zuordnen" + ' + 'GridControlUsersRelated + ' + Me.GridControlUsersRelated.AllowDrop = True + Me.GridControlUsersRelated.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) + Me.GridControlUsersRelated.Location = New System.Drawing.Point(699, 35) + Me.GridControlUsersRelated.MainView = Me.GridViewUsersRelated + Me.GridControlUsersRelated.MenuManager = Me.RibbonControl1 + Me.GridControlUsersRelated.Name = "GridControlUsersRelated" + Me.GridControlUsersRelated.Size = New System.Drawing.Size(374, 504) + Me.GridControlUsersRelated.TabIndex = 8 + Me.GridControlUsersRelated.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUsersRelated}) + ' + 'GridViewUsersRelated + ' + Me.GridViewUsersRelated.GridControl = Me.GridControlUsersRelated + Me.GridViewUsersRelated.Name = "GridViewUsersRelated" + Me.GridViewUsersRelated.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewUsersRelated.OptionsSelection.MultiSelect = True + Me.GridViewUsersRelated.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect + ' + 'GridControlDoctypesUsers + ' + Me.GridControlDoctypesUsers.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) + Me.GridControlDoctypesUsers.Location = New System.Drawing.Point(420, 35) + Me.GridControlDoctypesUsers.MainView = Me.GridViewDoctypesUser + Me.GridControlDoctypesUsers.MenuManager = Me.RibbonControl1 + Me.GridControlDoctypesUsers.Name = "GridControlDoctypesUsers" + Me.GridControlDoctypesUsers.Size = New System.Drawing.Size(275, 424) + Me.GridControlDoctypesUsers.TabIndex = 7 + Me.GridControlDoctypesUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoctypesUser}) + ' + 'GridViewDoctypesUser + ' + Me.GridViewDoctypesUser.GridControl = Me.GridControlDoctypesUsers + Me.GridViewDoctypesUser.Name = "GridViewDoctypesUser" + Me.GridViewDoctypesUser.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewDoctypesUser.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewDoctypesUser.OptionsBehavior.Editable = False + Me.GridViewDoctypesUser.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewDoctypesUser.OptionsView.ShowFilterPanelMode = DevExpress.XtraGrid.Views.Base.ShowFilterPanelMode.ShowAlways + Me.GridViewDoctypesUser.OptionsView.ShowGroupPanel = False + ' + 'GridControlFreeUsers + ' + Me.GridControlFreeUsers.AllowDrop = True + Me.GridControlFreeUsers.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) + Me.GridControlFreeUsers.Location = New System.Drawing.Point(12, 35) + Me.GridControlFreeUsers.MainView = Me.GridViewFreeUsers + Me.GridControlFreeUsers.MenuManager = Me.RibbonControl1 + Me.GridControlFreeUsers.Name = "GridControlFreeUsers" + Me.GridControlFreeUsers.Size = New System.Drawing.Size(404, 504) + Me.GridControlFreeUsers.TabIndex = 6 + Me.GridControlFreeUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewFreeUsers}) + ' + 'GridViewFreeUsers + ' + Me.GridViewFreeUsers.GridControl = Me.GridControlFreeUsers + Me.GridViewFreeUsers.Name = "GridViewFreeUsers" + Me.GridViewFreeUsers.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewFreeUsers.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewFreeUsers.OptionsBehavior.Editable = False + Me.GridViewFreeUsers.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewFreeUsers.OptionsSelection.MultiSelect = True + Me.GridViewFreeUsers.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.SimpleLabelItem1, Me.SimpleLabelItem2, Me.LayoutControlItem1, Me.LayoutControlItem2, Me.SimpleLabelItem3, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(1085, 551) + Me.Root.TextVisible = False + ' + 'SimpleLabelItem1 + ' + Me.SimpleLabelItem1.AllowHotTrack = False + Me.SimpleLabelItem1.AppearanceItemCaption.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.SimpleLabelItem1.AppearanceItemCaption.Options.UseBackColor = True + Me.SimpleLabelItem1.Location = New System.Drawing.Point(0, 0) + Me.SimpleLabelItem1.Name = "SimpleLabelItem1" + Me.SimpleLabelItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.SimpleLabelItem1.Size = New System.Drawing.Size(408, 23) + Me.SimpleLabelItem1.Text = "Non related Users" + Me.SimpleLabelItem1.TextSize = New System.Drawing.Size(92, 13) + ' + 'SimpleLabelItem2 + ' + Me.SimpleLabelItem2.AllowHotTrack = False + Me.SimpleLabelItem2.AppearanceItemCaption.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.SimpleLabelItem2.AppearanceItemCaption.Options.UseBackColor = True + Me.SimpleLabelItem2.Location = New System.Drawing.Point(408, 0) + Me.SimpleLabelItem2.Name = "SimpleLabelItem2" + Me.SimpleLabelItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.SimpleLabelItem2.Size = New System.Drawing.Size(279, 23) + Me.SimpleLabelItem2.Text = "Profiles" + Me.SimpleLabelItem2.TextSize = New System.Drawing.Size(92, 13) + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.GridControlFreeUsers + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 23) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Size = New System.Drawing.Size(408, 508) + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem1.TextVisible = False + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.GridControlDoctypesUsers + Me.LayoutControlItem2.Location = New System.Drawing.Point(408, 23) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Size = New System.Drawing.Size(279, 428) + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem2.TextVisible = False + ' + 'SimpleLabelItem3 + ' + Me.SimpleLabelItem3.AllowHotTrack = False + Me.SimpleLabelItem3.AppearanceItemCaption.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.SimpleLabelItem3.AppearanceItemCaption.Options.UseBackColor = True + Me.SimpleLabelItem3.Location = New System.Drawing.Point(687, 0) + Me.SimpleLabelItem3.Name = "SimpleLabelItem3" + Me.SimpleLabelItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.SimpleLabelItem3.Size = New System.Drawing.Size(378, 23) + Me.SimpleLabelItem3.Text = "Related Users" + Me.SimpleLabelItem3.TextSize = New System.Drawing.Size(92, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.GridControlUsersRelated + Me.LayoutControlItem3.Location = New System.Drawing.Point(687, 23) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Size = New System.Drawing.Size(378, 508) + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem3.TextVisible = False + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.SimpleButton1 + Me.LayoutControlItem4.Location = New System.Drawing.Point(408, 451) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Size = New System.Drawing.Size(279, 40) + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem4.TextVisible = False + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.SimpleButton2 + Me.LayoutControlItem5.Location = New System.Drawing.Point(408, 491) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Size = New System.Drawing.Size(279, 40) + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem5.TextVisible = False + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.XtraTabPage2.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(1085, 551) + Me.XtraTabPage2.Text = "Group-Relations" + ' + 'frmAdmin_GlobixRelations + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1087, 761) + Me.Controls.Add(Me.XtraTabControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = CType(resources.GetObject("frmAdmin_GlobixRelations.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.Name = "frmAdmin_GlobixRelations" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "File FLOW - Profil-Zuordnungen" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPage1.ResumeLayout(False) + CType(Me.LayoutControlUser, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControlUser.ResumeLayout(False) + CType(Me.GridControlUsersRelated, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewUsersRelated, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlDoctypesUsers, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewDoctypesUser, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlFreeUsers, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewFreeUsers, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SimpleLabelItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SimpleLabelItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SimpleLabelItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents LayoutControlUser As DevExpress.XtraLayout.LayoutControl + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents SimpleLabelItem1 As DevExpress.XtraLayout.SimpleLabelItem + Friend WithEvents SimpleLabelItem2 As DevExpress.XtraLayout.SimpleLabelItem + Friend WithEvents GridControlFreeUsers As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewFreeUsers As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents GridControlDoctypesUsers As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewDoctypesUser As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SimpleLabelItem3 As DevExpress.XtraLayout.SimpleLabelItem + Friend WithEvents GridControlUsersRelated As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewUsersRelated As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem +End Class diff --git a/GUIs.ZooFlow/Administration/Globix/frmAdmin_GlobixRelations.resx b/GUIs.ZooFlow/Administration/Globix/frmAdmin_GlobixRelations.resx new file mode 100644 index 0000000..6ad14a3 --- /dev/null +++ b/GUIs.ZooFlow/Administration/Globix/frmAdmin_GlobixRelations.resx @@ -0,0 +1,227 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAF4CAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlByZXZpb3VzVmlldyI+DQogICAgPHBhdGggZD0i + TTE2LDJDOC4zLDIsMiw4LjMsMiwxNnM2LjMsMTQsMTQsMTRzMTQtNi4zLDE0LTE0UzIzLjcsMiwxNiwy + eiBNMjQsMThoLTh2NmwtOC04bDgtOHY2aDhWMTh6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9z + dmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFsCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9Ik5leHRWaWV3Ij4NCiAgICA8cGF0aCBkPSJNMTYs + MkM4LjMsMiwyLDguMywyLDE2czYuMywxNCwxNCwxNHMxNC02LjMsMTQtMTRTMjMuNywyLDE2LDJ6IE0x + NiwyNHYtNkg4di00aDhWOGw4LDhMMTYsMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+ + Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKEDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlVzZXIiPg0KICAgIDxwYXRoIGQ9Ik0xMCw5LjljLTAu + MSwwLjUsMC4yLDAuOSwwLjQsMS40YzAuMiwwLjUtMC4xLDEuNywwLjksMS42YzAsMCwwLDAuMSwwLDAu + MmMwLjYsMi4zLDIsNC45LDQuNyw0LjkgICBjMi43LDAsNC4yLTIuNiw0LjctNC45YzAsMCwwLTAuMSww + LTAuMWMxLDAuMSwwLjYtMS4xLDAuOS0xLjZjMC4yLTAuNSwwLjQtMC45LDAuMy0xLjRjLTAuMS0wLjQt + MC40LTAuNC0wLjUtMC4zICAgYzEuOC00LjktMS4xLTQuNy0xLjEtNC43UzIwLDIsMTQuOCwyQzEwLDIs + OS40LDYsMTAuNSw5LjZDMTAuNCw5LjYsMTAuMSw5LjcsMTAsOS45eiIgY2xhc3M9IkJsYWNrIiAvPg0K + ICAgIDxwYXRoIGQ9Ik0yMCwxOGMtMC44LDEuNS0yLjEsNC00LDRjLTEuOSwwLTMuMi0yLjUtNC00Yy0y + LjMsMy41LTgsMS04LDguNVYzMGgyNHYtMy41QzI4LDE5LjEsMjIuMywyMS40LDIwLDE4eiIgY2xhc3M9 + IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACEEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iQWxsb3dfVXNlcnNfdG9fRWRpdF9SYW5nZXMiIHN0eWxlPSJlbmFibGUt + YmFja2dyb3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5CbGFj + a3tmaWxsOiM3MjcyNzI7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5zdDB7b3BhY2l0eTowLjU7fQo8 + L3N0eWxlPg0KICA8cGF0aCBkPSJNMTgsNHY2aC04VjRIMTh6IE04LDEwVjRIMHY2SDh6IE04LDE4di02 + SDB2Nkg4eiBNMTgsMTh2LTZoLTh2NkgxOHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8ZyBjbGFzcz0ic3Qw + Ij4NCiAgICA8cGF0aCBkPSJNMjAsNGg4djZoLThWNHogTTgsMjZ2LTZIMHY2SDh6IE0xOCwyMi45VjIw + aC04djZoNC41QzE1LjMsMjQuMSwxNi44LDIzLjQsMTgsMjIuOXoiIGNsYXNzPSJCbGFjayIgLz4NCiAg + PC9nPg0KICA8cGF0aCBkPSJNMjAuMywxOC40Yy0wLjItMC4zLTAuMy0wLjYtMC4zLTFjMC0wLjIsMC4y + LTAuMiwwLjMtMC4yYy0wLjctMi41LDAtNSwyLjktNS4yYzMtMC4yLDMuNywyLDMuNywyICBzMS42LTAu + MSwwLjcsMy4yYzAuMSwwLDAuMy0wLjEsMC40LDAuMmMwLjEsMC40LDAsMC42LTAuMiwxYy0wLjIsMC4z + LDAuMSwxLjEtMC42LDEuMWMwLDAsMCwwLjEsMCwwLjFDMjYuOCwyMS4yLDI1LjgsMjMsMjQsMjMgIGMt + MS44LDAtMi44LTEuNy0zLjItMy40YzAsMCwwLTAuMSwwLTAuMUMyMC4yLDE5LjYsMjAuNCwxOC44LDIw + LjMsMTguNHogTTI2LjcsMjMuMmMtMC41LDEtMS40LDIuOC0yLjcsMi44Yy0xLjMsMC0yLjEtMS44LTIu + Ni0yLjkgIEMxOS45LDI1LjYsMTYsMjMuOCwxNiwyOXYxaDE2di0xQzMyLDIzLjksMjguMiwyNS41LDI2 + LjcsMjMuMnoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHcDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + Qmx1ZXtmaWxsOiMxMTc3RDc7fQoJLnN0MHtvcGFjaXR5OjAuNTt9Cjwvc3R5bGU+DQogIDxnIGlkPSJN + YW5hZ2VfUmVsYXRpb25zIj4NCiAgICA8ZyBjbGFzcz0ic3QwIj4NCiAgICAgIDxwYXRoIGQ9Ik0zMSwz + MmgtOGMtMC41LDAtMS0wLjUtMS0xdi04YzAtMC41LDAuNS0xLDEtMWg4YzAuNSwwLDEsMC41LDEsMXY4 + QzMyLDMxLjUsMzEuNSwzMiwzMSwzMnogTTMyLDlWMSAgICBjMC0wLjYtMC41LTEtMS0xaC04Yy0wLjUs + MC0xLDAuNC0xLDF2OGMwLDAuNiwwLjUsMSwxLDFoOEMzMS41LDEwLDMyLDkuNiwzMiw5eiIgY2xhc3M9 + IkJsYWNrIiAvPg0KICAgIDwvZz4NCiAgICA8cGF0aCBkPSJNMTEsMjJIMWMtMC42LDAtMS0wLjUtMS0x + VjExYzAtMC42LDAuNC0xLDEtMWgxMGMwLjYsMCwxLDAuNCwxLDF2MTBDMTIsMjEuNSwxMS42LDIyLDEx + LDIyeiIgY2xhc3M9IkJsdWUiIC8+DQogICAgPHBhdGggZD0iTTIwLDJ2NmwtMi4zLTIuM2wtNCw0bC0x + LjQtMS40bDQtNEwxNCwySDIweiBNMTcuNywyNi4zbC00LTRsLTEuNCwxLjRsNCw0TDE0LDMwaDZ2LTZM + MTcuNywyNi4zeiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/Globix/frmAdmin_GlobixRelations.vb b/GUIs.ZooFlow/Administration/Globix/frmAdmin_GlobixRelations.vb new file mode 100644 index 0000000..d289984 --- /dev/null +++ b/GUIs.ZooFlow/Administration/Globix/frmAdmin_GlobixRelations.vb @@ -0,0 +1,110 @@ +Imports DigitalData.Modules.Logging + +Public Class frmAdmin_GlobixRelations + + Private SELECTED_DTID As Integer + Private Logger As Logger + + Private Function GetAvailableUsers(doctypeid As Integer) As DataTable + Try + Dim dt As DataTable + Dim oSQL = $"SELECT GUID UserID,NAME as Name, PRENAME as Prename,USERNAME as Username, EMAIL as Email FROM TBDD_USER WHERE GUID NOT IN (SELECT USER_ID FROM TBDD_USER_DOKTYPE WHERE DOCTYPE_ID = {doctypeid})" + dt = My.DatabaseECM.GetDatatable(oSQL) + Return dt + Catch ex As Exception + ShowErrorMessage($"Error in GetAvailableUsers with ID {doctypeid}", ex) + + Return Nothing + End Try + End Function + Private Function GetRelatedUsers(doctypeid As Integer) As DataTable + Try + Dim dt As DataTable + Dim oSQL = $"SELECT A.GUID RelID,B.NAME as Name, B.PRENAME as Prename,B.USERNAME as Username, B.EMAIL as Email FROM TBDD_USER_DOKTYPE A +INNER JOIN TBDD_USER B ON A.USER_ID = B.GUID WHERE A.DOCTYPE_ID = {doctypeid}" + dt = My.DatabaseECM.GetDatatable(oSQL) + Return dt + Catch ex As Exception + ShowErrorMessage($"Error in GetRelatedUsers with ID {doctypeid}", ex) + + Return Nothing + End Try + End Function + Private Sub ShowErrorMessage(errorText As String, ex As Exception) + MsgBox(errorText & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Critical, "BE Relations") + End Sub + + Private Sub frmAdmin_GlobixRelations_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + Dim oSQL = "SELECT DOCTYPE_ID As ID, DOCTYPE as Doctype FROM VWGI_DOCTYPE_IDB ORDER BY DOCTYPE" + Dim oDT As DataTable = My.DatabaseECM.GetDatatable(oSQL) + Logger = My.LogConfig.GetLogger() + + GridControlDoctypesUsers.DataSource = oDT + Catch ex As Exception + ShowErrorMessage($"Error in FormLoad", ex) + End Try + End Sub + + Private Sub GridViewDoctypesUser_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewDoctypesUser.FocusedRowChanged + Dim oDTID = GridViewDoctypesUser.GetFocusedRowCellValue(GridViewDoctypesUser.Columns("ID")) + SELECTED_DTID = oDTID + LoadFreeUsers() + LoadRelatedAttributes() + End Sub + + Sub LoadRelatedAttributes() + Dim oDT = GetRelatedUsers(SELECTED_DTID) + If Not IsNothing(oDT) Then + GridControlUsersRelated.DataSource = oDT + End If + End Sub + Sub LoadFreeUsers() + Dim oDT = GetAvailableUsers(SELECTED_DTID) + If Not IsNothing(oDT) Then + GridControlFreeUsers.DataSource = oDT + End If + End Sub + + Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click + Dim selectedRows As Integer() = GridViewFreeUsers.GetSelectedRows() + Dim i As Integer = 0 + For Each rowhandle As Integer In selectedRows + Dim oSelectedUsrID = GridViewFreeUsers.GetRowCellValue(rowhandle, "UserID") + AddUser(oSelectedUsrID) + Next + LoadFreeUsers() + LoadRelatedAttributes() + End Sub + Private Function AddUser(UsrID As Integer) As Boolean + Try + Dim oSQL = $" + INSERT INTO TBDD_USER_DOKTYPE (DOCTYPE_ID,USER_ID,ADDED_WHO) + VALUES ({SELECTED_DTID},{UsrID},'{My.Application.User.UserName}')" + Return My.DatabaseECM.ExecuteNonQuery(oSQL) + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + + Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click + Dim selectedRows As Integer() = GridViewUsersRelated.GetSelectedRows() + Dim i As Integer = 0 + For Each rowhandle As Integer In selectedRows + Dim oSelectedUsrID = GridViewUsersRelated.GetRowCellValue(rowhandle, "RelID") + DeleteUserRelation(oSelectedUsrID) + Next + LoadFreeUsers() + LoadRelatedAttributes() + End Sub + Public Function DeleteUserRelation(ID As Integer) As Boolean + Try + Dim oSQL = $"DELETE FROM TBDD_USER_DOKTYPE WHERE GUID = {ID}" + Return My.DatabaseECM.ExecuteNonQuery(oSQL) + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/IAdminForm.vb b/GUIs.ZooFlow/Administration/IAdminForm.vb new file mode 100644 index 0000000..3348b25 --- /dev/null +++ b/GUIs.ZooFlow/Administration/IAdminForm.vb @@ -0,0 +1,22 @@ +Public Interface IAdminForm + ''' + ''' Used to deliver the primary key for loading an existing entity. + ''' + Property PrimaryKey As Integer + + ''' + ''' Did the user change one or more properties in this form? + ''' + Property HasChanges As Boolean + + ''' + ''' Is the user creating a new object or editing an existing one? + ''' + ''' + Property IsInsert As Boolean + + ''' + ''' Function to delete the currently openened object + ''' + Function DeleteData() As Boolean +End Interface diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.Designer.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.Designer.vb new file mode 100644 index 0000000..04d6e1d --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.Designer.vb @@ -0,0 +1,459 @@ + _ +Partial Class frmAdmin_Doctype + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim RibbonPageGroupSave As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_Doctype)) + Me.BarButtonItemSaveChange = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItemCancel = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItemDTsave = New DevExpress.XtraBars.BarButtonItem() + Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.pnlAddDoctype = New DevExpress.XtraEditors.PanelControl() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.ComboBoxEditLanguage = New DevExpress.XtraEditors.ComboBoxEdit() + Me.TextEditDoctypeTranslate = New DevExpress.XtraEditors.TextEdit() + Me.TextEditDoctypeSys = New DevExpress.XtraEditors.TextEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TBIDB_LANGUAGEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() + Me.VirtualServerModeSource1 = New DevExpress.Data.VirtualServerModeSource(Me.components) + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.VWIDB_DOCTYPE_LANGUAGEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSystemTitle = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDoctype = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colLanguage = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colAddedWhen = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colChangedWhen = New DevExpress.XtraGrid.Columns.GridColumn() + Me.TBIDB_LANGUAGETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_LANGUAGETableAdapter() + Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() + Me.VWIDB_DOCTYPE_LANGUAGETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPE_LANGUAGETableAdapter() + RibbonPageGroupSave = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnlAddDoctype, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlAddDoctype.SuspendLayout() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.ComboBoxEditLanguage.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditDoctypeTranslate.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditDoctypeSys.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBIDB_LANGUAGEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VirtualServerModeSource1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWIDB_DOCTYPE_LANGUAGEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonPageGroupSave + ' + RibbonPageGroupSave.AllowTextClipping = False + RibbonPageGroupSave.ItemLinks.Add(Me.BarButtonItemSaveChange) + RibbonPageGroupSave.Name = "RibbonPageGroupSave" + RibbonPageGroupSave.Text = "Aktualisierung" + ' + 'BarButtonItemSaveChange + ' + Me.BarButtonItemSaveChange.Caption = "Speichern" + Me.BarButtonItemSaveChange.Enabled = False + Me.BarButtonItemSaveChange.Id = 6 + Me.BarButtonItemSaveChange.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemSaveChange.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItemSaveChange.Name = "BarButtonItemSaveChange" + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItemCancel, Me.BarButtonItemDTsave, Me.labelStatus, Me.BarButtonItemSaveChange}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 7 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowDisplayOptionsMenuButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.Size = New System.Drawing.Size(980, 158) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Hinzufügen" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItemCancel + ' + Me.BarButtonItemCancel.Caption = "Abbrechen" + Me.BarButtonItemCancel.Id = 3 + Me.BarButtonItemCancel.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemCancel.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItemCancel.Name = "BarButtonItemCancel" + Me.BarButtonItemCancel.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'BarButtonItemDTsave + ' + Me.BarButtonItemDTsave.Caption = "Speichern" + Me.BarButtonItemDTsave.Id = 4 + Me.BarButtonItemDTsave.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemDTsave.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItemDTsave.Name = "BarButtonItemDTsave" + Me.BarButtonItemDTsave.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'labelStatus + ' + Me.labelStatus.Caption = "BarStaticItem1" + Me.labelStatus.Id = 5 + Me.labelStatus.ImageOptions.SvgImage = CType(resources.GetObject("labelStatus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.labelStatus.Name = "labelStatus" + Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, RibbonPageGroupSave}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Start" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItemCancel) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItemDTsave) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Dokumentart" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 681) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(980, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'pnlAddDoctype + ' + Me.pnlAddDoctype.Controls.Add(Me.LayoutControl1) + Me.pnlAddDoctype.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlAddDoctype.Location = New System.Drawing.Point(0, 158) + Me.pnlAddDoctype.Name = "pnlAddDoctype" + Me.pnlAddDoctype.Size = New System.Drawing.Size(980, 89) + Me.pnlAddDoctype.TabIndex = 2 + Me.pnlAddDoctype.Visible = False + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.ComboBoxEditLanguage) + Me.LayoutControl1.Controls.Add(Me.TextEditDoctypeTranslate) + Me.LayoutControl1.Controls.Add(Me.TextEditDoctypeSys) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(2, 2) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(976, 85) + Me.LayoutControl1.TabIndex = 0 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'ComboBoxEditLanguage + ' + Me.ComboBoxEditLanguage.Location = New System.Drawing.Point(200, 45) + Me.ComboBoxEditLanguage.MenuManager = Me.RibbonControl1 + Me.ComboBoxEditLanguage.Name = "ComboBoxEditLanguage" + Me.ComboBoxEditLanguage.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.ComboBoxEditLanguage.Size = New System.Drawing.Size(335, 20) + Me.ComboBoxEditLanguage.StyleController = Me.LayoutControl1 + Me.ComboBoxEditLanguage.TabIndex = 8 + ' + 'TextEditDoctypeTranslate + ' + Me.TextEditDoctypeTranslate.Location = New System.Drawing.Point(723, 15) + Me.TextEditDoctypeTranslate.MenuManager = Me.RibbonControl1 + Me.TextEditDoctypeTranslate.Name = "TextEditDoctypeTranslate" + Me.TextEditDoctypeTranslate.Size = New System.Drawing.Size(238, 20) + Me.TextEditDoctypeTranslate.StyleController = Me.LayoutControl1 + Me.TextEditDoctypeTranslate.TabIndex = 5 + ' + 'TextEditDoctypeSys + ' + Me.TextEditDoctypeSys.Location = New System.Drawing.Point(200, 15) + Me.TextEditDoctypeSys.MenuManager = Me.RibbonControl1 + Me.TextEditDoctypeSys.Name = "TextEditDoctypeSys" + Me.TextEditDoctypeSys.Size = New System.Drawing.Size(335, 20) + Me.TextEditDoctypeSys.StyleController = Me.LayoutControl1 + Me.TextEditDoctypeSys.TabIndex = 4 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.EmptySpaceItem1, Me.LayoutControlItem2, Me.LayoutControlItem3}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(976, 85) + Me.Root.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.TextEditDoctypeSys + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem1.Size = New System.Drawing.Size(530, 30) + Me.LayoutControlItem1.Text = "Systembezeichnung Dokumentart" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(173, 13) + ' + 'EmptySpaceItem1 + ' + Me.EmptySpaceItem1.AllowHotTrack = False + Me.EmptySpaceItem1.Location = New System.Drawing.Point(530, 30) + Me.EmptySpaceItem1.Name = "EmptySpaceItem1" + Me.EmptySpaceItem1.Size = New System.Drawing.Size(426, 35) + Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.TextEditDoctypeTranslate + Me.LayoutControlItem2.Location = New System.Drawing.Point(530, 0) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem2.Size = New System.Drawing.Size(426, 30) + Me.LayoutControlItem2.Text = "Übersetzung" + Me.LayoutControlItem2.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.CustomSize + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(173, 13) + Me.LayoutControlItem2.TextToControlDistance = 5 + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.ComboBoxEditLanguage + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 30) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(530, 35) + Me.LayoutControlItem3.Text = "Sprache" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(173, 13) + ' + 'TBIDB_LANGUAGEBindingSource + ' + Me.TBIDB_LANGUAGEBindingSource.DataMember = "TBIDB_LANGUAGE" + Me.TBIDB_LANGUAGEBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'DSIDB_Stammdaten + ' + Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten" + Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'GridControl1 + ' + Me.GridControl1.DataSource = Me.VWIDB_DOCTYPE_LANGUAGEBindingSource + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GridControl1.Location = New System.Drawing.Point(0, 247) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.MenuManager = Me.RibbonControl1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(980, 434) + Me.GridControl1.TabIndex = 3 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'VWIDB_DOCTYPE_LANGUAGEBindingSource + ' + Me.VWIDB_DOCTYPE_LANGUAGEBindingSource.DataMember = "VWIDB_DOCTYPE_LANGUAGE" + Me.VWIDB_DOCTYPE_LANGUAGEBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'GridView1 + ' + Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colID, Me.colSystemTitle, Me.colDoctype, Me.colLanguage, Me.colAddedWhen, Me.colChangedWhen}) + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + Me.GridView1.OptionsView.ShowFilterPanelMode = DevExpress.XtraGrid.Views.Base.ShowFilterPanelMode.ShowAlways + ' + 'colID + ' + Me.colID.FieldName = "ID" + Me.colID.Name = "colID" + Me.colID.OptionsColumn.AllowEdit = False + Me.colID.OptionsColumn.AllowFocus = False + Me.colID.Visible = True + Me.colID.VisibleIndex = 0 + ' + 'colSystemTitle + ' + Me.colSystemTitle.FieldName = "SystemTitle" + Me.colSystemTitle.Name = "colSystemTitle" + Me.colSystemTitle.OptionsColumn.AllowEdit = False + Me.colSystemTitle.OptionsColumn.AllowFocus = False + Me.colSystemTitle.Visible = True + Me.colSystemTitle.VisibleIndex = 1 + ' + 'colDoctype + ' + Me.colDoctype.FieldName = "Doctype" + Me.colDoctype.Name = "colDoctype" + Me.colDoctype.Visible = True + Me.colDoctype.VisibleIndex = 2 + ' + 'colLanguage + ' + Me.colLanguage.FieldName = "Language" + Me.colLanguage.Name = "colLanguage" + Me.colLanguage.OptionsColumn.AllowEdit = False + Me.colLanguage.OptionsColumn.AllowFocus = False + Me.colLanguage.Visible = True + Me.colLanguage.VisibleIndex = 3 + ' + 'colAddedWhen + ' + Me.colAddedWhen.DisplayFormat.FormatString = "dd/MM/yyyy HH:mm" + Me.colAddedWhen.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.colAddedWhen.FieldName = "Added When" + Me.colAddedWhen.Name = "colAddedWhen" + Me.colAddedWhen.OptionsColumn.AllowEdit = False + Me.colAddedWhen.OptionsColumn.AllowFocus = False + Me.colAddedWhen.Visible = True + Me.colAddedWhen.VisibleIndex = 4 + ' + 'colChangedWhen + ' + Me.colChangedWhen.DisplayFormat.FormatString = "dd/MM/yyyy HH:mm" + Me.colChangedWhen.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.colChangedWhen.FieldName = "Changed When" + Me.colChangedWhen.Name = "colChangedWhen" + Me.colChangedWhen.OptionsColumn.AllowEdit = False + Me.colChangedWhen.OptionsColumn.AllowFocus = False + Me.colChangedWhen.Visible = True + Me.colChangedWhen.VisibleIndex = 5 + ' + 'TBIDB_LANGUAGETableAdapter + ' + Me.TBIDB_LANGUAGETableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOG_USERTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_DOCTYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_LANGUAGETableAdapter = Me.TBIDB_LANGUAGETableAdapter + 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_DOCTYPE_LANGUAGETableAdapter + ' + Me.VWIDB_DOCTYPE_LANGUAGETableAdapter.ClearBeforeFill = True + ' + 'frmAdmin_Doctype + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(980, 705) + Me.Controls.Add(Me.GridControl1) + Me.Controls.Add(Me.pnlAddDoctype) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmAdmin_Doctype" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Dokumentarten Konfiguration" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnlAddDoctype, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlAddDoctype.ResumeLayout(False) + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.ComboBoxEditLanguage.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditDoctypeTranslate.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditDoctypeSys.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBIDB_LANGUAGEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VirtualServerModeSource1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWIDB_DOCTYPE_LANGUAGEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents pnlAddDoctype As DevExpress.XtraEditors.PanelControl + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents TextEditDoctypeTranslate As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEditDoctypeSys As DevExpress.XtraEditors.TextEdit + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents VirtualServerModeSource1 As DevExpress.Data.VirtualServerModeSource + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten + Friend WithEvents TBIDB_LANGUAGEBindingSource As BindingSource + Friend WithEvents TBIDB_LANGUAGETableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_LANGUAGETableAdapter + Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents BarButtonItemCancel As DevExpress.XtraBars.BarButtonItem + Friend WithEvents ComboBoxEditLanguage As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents BarButtonItemDTsave As DevExpress.XtraBars.BarButtonItem + Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem + Friend WithEvents VWIDB_DOCTYPE_LANGUAGEBindingSource As BindingSource + Friend WithEvents VWIDB_DOCTYPE_LANGUAGETableAdapter As DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPE_LANGUAGETableAdapter + Friend WithEvents colID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSystemTitle As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDoctype As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colLanguage As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colAddedWhen As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents BarButtonItemSaveChange As DevExpress.XtraBars.BarButtonItem + Friend WithEvents colChangedWhen As DevExpress.XtraGrid.Columns.GridColumn +End Class diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.resx b/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.resx new file mode 100644 index 0000000..16ae624 --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.resx @@ -0,0 +1,254 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANwDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iU2F2ZUFzIj4NCiAgICA8cGF0aCBk + PSJNMTYsOWMwLTEuMSwwLjItMi4xLDAuNS0zSDh2OGg5LjVDMTYuNiwxMi42LDE2LDEwLjksMTYsOXog + TTEyLDEyaC0yVjhoMlYxMnogTTI2LDE4djExYzAsMC42LTAuNCwxLTEsMUgzICAgYy0wLjYsMC0xLTAu + NC0xLTFWN2MwLTAuNiwwLjQtMSwxLTFoM3YxMGgxMy4zYzAuMiwwLjIsMC40LDAuMywwLjcsMC41VjIw + SDZ2NmgxNnYtOEgyNnoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICA8cGF0aCBkPSJNMjUsMmMtMy45LDAt + NywzLjEtNyw3YzAsMy45LDMuMSw3LDcsN3M3LTMuMSw3LTdDMzIsNS4xLDI4LjksMiwyNSwyeiBNMjIs + MTBoLTJWOGgyVjEweiBNMjYsMTBoLTJWOGgyVjEweiAgICBNMjgsMTBWOGgydjJIMjh6IiBjbGFzcz0i + R3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZCI+DQogICAgPHBhdGggZD0iTTI3LDE0aC05VjVj + MC0wLjUtMC41LTEtMS0xaC0yYy0wLjUsMC0xLDAuNS0xLDF2OUg1Yy0wLjUsMC0xLDAuNS0xLDF2MmMw + LDAuNSwwLjUsMSwxLDFoOXY5ICAgYzAsMC41LDAuNSwxLDEsMWgyYzAuNSwwLDEtMC41LDEtMXYtOWg5 + YzAuNSwwLDEtMC41LDEtMXYtMkMyOCwxNC41LDI3LjUsMTQsMjcsMTR6IiBjbGFzcz0iR3JlZW4iIC8+ + DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGkEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iU2F2ZUFuZENsb3NlIj4NCiAgICA8 + cGF0aCBkPSJNNiwxNlY2SDNDMi40LDYsMiw2LjQsMiw3djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYs + MCwxLTAuNCwxLTFWMTZINnogTTYsMjZ2LTZoMTZ2Nkg2eiBNMTYsNkg4djhoOFY2eiAgICBNMTIsMTJo + LTJWOGgyVjEyeiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxwYXRoIGQ9Ik0yOSwySDE5Yy0wLjUsMC0x + LDAuNS0xLDF2MTBjMCwwLjUsMC41LDEsMSwxaDEwYzAuNSwwLDEtMC41LDEtMVYzQzMwLDIuNSwyOS41 + LDIsMjksMnogTTI3LjcsMTAuNCAgIGMwLjQsMC40LDAuNCwxLDAsMS4zYy0wLjQsMC40LTEsMC40LTEu + MywwTDI0LDkuM2wtMi40LDIuNGMtMC40LDAuNC0xLDAuNC0xLjMsMGMtMC40LTAuNC0wLjQtMSwwLTEu + M0wyMi43LDhsLTIuNC0yLjQgICBjLTAuNC0wLjQtMC40LTEsMC0xLjNjMC40LTAuNCwxLTAuNCwxLjMs + MEwyNCw2LjdsMi40LTIuNGMwLjQtMC40LDEtMC40LDEuMywwYzAuNCwwLjQsMC40LDEsMCwxLjNMMjUu + Myw4TDI3LjcsMTAuNHoiIGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzczNzM3NDt9Cgku + WWVsbG93e2ZpbGw6I0ZDQjAxQjt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5CbHVle2ZpbGw6IzM4 + N0NCNzt9CgkuUmVke2ZpbGw6I0QwMjEyNzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tk + aXNwbGF5Om5vbmU7ZmlsbDojNzM3Mzc0O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRoLTN2MTBI + OFY0SDVDNC40LDQsNCw0LjQsNCw1djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTFW + NUMyOCw0LjQsMjcuNiw0LDI3LDR6IE0yNCwyNEg4di02ICBoMTZWMjR6IE0xMCw0djhoMTBWNEgxMHog + TTE0LDEwaC0yVjZoMlYxMHoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9 + Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs + MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs + NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg + PC9nPg0KPC9zdmc+Cw== + + + + 374, 17 + + + 214, 17 + + + 17, 17 + + + 17, 56 + + + 605, 17 + + + 830, 17 + + + 311, 56 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.vb new file mode 100644 index 0000000..8860d06 --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.vb @@ -0,0 +1,96 @@ +Imports DevExpress.XtraEditors +Imports DevExpress.XtraGrid.Views.Grid + +Public Class frmAdmin_Doctype + + Public Property HasChanges As Boolean = False + Public Property IsInsert As Boolean = False + Public Property PrimaryKey As Integer + Dim SelSystitle As String + Dim SelLanguage As String + Dim SelChangedTerm As String + + Private Sub frmAdmin_Doctype_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGE". Sie können sie bei Bedarf verschieben oder entfernen. + + TBIDB_LANGUAGETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + Me.TBIDB_LANGUAGETableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_LANGUAGE) + For Each orow As DataRow In DSIDB_Stammdaten.TBIDB_LANGUAGE + ComboBoxEditLanguage.Properties.Items.Add(orow.Item("LANG_CODE")) + Next + Load_Doctypes() + End Sub + Sub Load_Doctypes() + Try + VWIDB_DOCTYPE_LANGUAGETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + Me.VWIDB_DOCTYPE_LANGUAGETableAdapter.Fill(Me.DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGE) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + pnlAddDoctype.Visible = True + BarButtonItemCancel.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + BarButtonItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + BarButtonItemDTsave.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End Sub + + Public Sub New(PrimaryKey As Integer) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.PrimaryKey = PrimaryKey + Me.IsInsert = IsInsert + End Sub + + Private Sub BarButtonItemCancel_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemCancel.ItemClick + pnlAddDoctype.Visible = True + BarButtonItemCancel.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + BarButtonItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + BarButtonItemDTsave.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End Sub + + Private Sub BarButtonItemDTsave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemDTsave.ItemClick + If NewUpdateDoctype(TextEditDoctypeSys.EditValue, TextEditDoctypeTranslate.EditValue, ComboBoxEditLanguage.EditValue) = True Then + ShowStatus("Sys Doctype successfully added/updated", Color.DodgerBlue) + End If + End Sub + Private Function NewUpdateDoctype(DoctypeSys As String, Term As String, Language As String) As Boolean + Try + Dim oSQL = $"EXEC PRIDB_NEW_DOCTYPE '{DoctypeSys}','{Term}','{My.Application.User.UserName}','{Language}'" + + If My.DatabaseIDB.ExecuteNonQuery(oSQL) = True Then + Load_Doctypes() + Return True + End If + Catch ex As Exception + + End Try + End Function + Private Sub ShowStatus(Message As String, ocolor As Color) + labelStatus.Caption = $"{Message} - {Now.ToString}" + labelStatus.ItemAppearance.Normal.BackColor = ocolor + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End Sub + + Private Sub GridView1_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) Handles GridView1.CellValueChanged + Dim oView As GridView = sender + Dim cellValue As String = e.Value.ToString() + SelChangedTerm = cellValue + BarButtonItemSaveChange.Enabled = True + End Sub + + Private Sub GridView1_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView1.FocusedRowChanged + Dim oView As GridView = sender + SelSystitle = oView.GetFocusedRowCellValue(oView.Columns("SystemTitle")).ToString() + SelLanguage = oView.GetFocusedRowCellValue(oView.Columns("Language")).ToString() + BarButtonItemSaveChange.Enabled = False + End Sub + + Private Sub BarButtonItemSaveChange_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemSaveChange.ItemClick + If NewUpdateDoctype(SelSystitle, SelChangedTerm, SelLanguage) = True Then + ShowStatus("Doctype Translation successfully added/updated", Color.DodgerBlue) + End If + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.Designer.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.Designer.vb new file mode 100644 index 0000000..db73530 --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.Designer.vb @@ -0,0 +1,436 @@ + _ +Partial Class frmAdmin_DoctypeConfig + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_DoctypeConfig)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.TBIDB_DOCTYPE_HANDLINGBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() + Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() + Me.CHANGED_ACTIONComboBox = New System.Windows.Forms.ComboBox() + Me.TBIDB_CATALOGBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TBIDB_DOCTYPE_HANDLINGTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_DOCTYPE_HANDLINGTableAdapter() + Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() + Me.TBIDB_CATALOGTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_CATALOGTableAdapter() + Me.TBIDB_DOCTYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBIDB_DOCTYPETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_DOCTYPETableAdapter() + Me.DOCTYPEComboBox = New System.Windows.Forms.ComboBox() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.TBIDB_DOCTYPE_HANDLINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBIDB_CATALOGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBIDB_DOCTYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.labelStatus, Me.BarButtonItem2}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 4 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.Size = New System.Drawing.Size(948, 158) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Speichern" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'labelStatus + ' + Me.labelStatus.Caption = "BarStaticItem1" + Me.labelStatus.Id = 2 + Me.labelStatus.ImageOptions.SvgImage = CType(resources.GetObject("labelStatus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.labelStatus.Name = "labelStatus" + Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Hinzufügen" + Me.BarButtonItem2.Id = 3 + Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Start" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Aktionen" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 574) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(948, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.DOCTYPEComboBox) + Me.LayoutControl1.Controls.Add(Me.TextEdit5) + Me.LayoutControl1.Controls.Add(Me.TextEdit4) + Me.LayoutControl1.Controls.Add(Me.TextEdit3) + Me.LayoutControl1.Controls.Add(Me.TextEdit2) + Me.LayoutControl1.Controls.Add(Me.CHANGED_ACTIONComboBox) + Me.LayoutControl1.Controls.Add(Me.TextEdit1) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 158) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(948, 416) + Me.LayoutControl1.TabIndex = 2 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'TBIDB_DOCTYPE_HANDLINGBindingSource + ' + Me.TBIDB_DOCTYPE_HANDLINGBindingSource.DataMember = "TBIDB_DOCTYPE_HANDLING" + Me.TBIDB_DOCTYPE_HANDLINGBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'DSIDB_Stammdaten + ' + Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten" + Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TextEdit5 + ' + Me.TextEdit5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "CHANGED_WHEN", True)) + Me.TextEdit5.Location = New System.Drawing.Point(619, 107) + Me.TextEdit5.MenuManager = Me.RibbonControl1 + Me.TextEdit5.Name = "TextEdit5" + Me.TextEdit5.Properties.ReadOnly = True + Me.TextEdit5.Size = New System.Drawing.Size(314, 20) + Me.TextEdit5.StyleController = Me.LayoutControl1 + Me.TextEdit5.TabIndex = 5 + ' + 'TextEdit4 + ' + Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "CHANGED_WHO", True)) + Me.TextEdit4.Location = New System.Drawing.Point(157, 107) + Me.TextEdit4.MenuManager = Me.RibbonControl1 + Me.TextEdit4.Name = "TextEdit4" + Me.TextEdit4.Properties.ReadOnly = True + Me.TextEdit4.Size = New System.Drawing.Size(310, 20) + Me.TextEdit4.StyleController = Me.LayoutControl1 + Me.TextEdit4.TabIndex = 10 + ' + 'TextEdit3 + ' + Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "ADDED_WHEN", True)) + Me.TextEdit3.Location = New System.Drawing.Point(619, 77) + Me.TextEdit3.MenuManager = Me.RibbonControl1 + Me.TextEdit3.Name = "TextEdit3" + Me.TextEdit3.Properties.ReadOnly = True + Me.TextEdit3.Size = New System.Drawing.Size(314, 20) + Me.TextEdit3.StyleController = Me.LayoutControl1 + Me.TextEdit3.TabIndex = 9 + ' + 'TextEdit2 + ' + Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "ADDED_WHO", True)) + Me.TextEdit2.Location = New System.Drawing.Point(157, 77) + Me.TextEdit2.MenuManager = Me.RibbonControl1 + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.Properties.ReadOnly = True + Me.TextEdit2.Size = New System.Drawing.Size(310, 20) + Me.TextEdit2.StyleController = Me.LayoutControl1 + Me.TextEdit2.TabIndex = 8 + ' + 'CHANGED_ACTIONComboBox + ' + Me.CHANGED_ACTIONComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "CHANGED_ACTION", True)) + Me.CHANGED_ACTIONComboBox.DataSource = Me.TBIDB_CATALOGBindingSource + Me.CHANGED_ACTIONComboBox.DisplayMember = "CAT_STRING" + Me.CHANGED_ACTIONComboBox.FormattingEnabled = True + Me.CHANGED_ACTIONComboBox.Location = New System.Drawing.Point(157, 46) + Me.CHANGED_ACTIONComboBox.Name = "CHANGED_ACTIONComboBox" + Me.CHANGED_ACTIONComboBox.Size = New System.Drawing.Size(776, 21) + Me.CHANGED_ACTIONComboBox.TabIndex = 7 + Me.CHANGED_ACTIONComboBox.ValueMember = "GUID" + ' + 'TBIDB_CATALOGBindingSource + ' + Me.TBIDB_CATALOGBindingSource.DataMember = "TBIDB_CATALOG" + Me.TBIDB_CATALOGBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'TextEdit1 + ' + Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "GUID", True)) + Me.TextEdit1.Location = New System.Drawing.Point(157, 15) + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White + Me.TextEdit1.Properties.AppearanceReadOnly.Options.UseBackColor = True + Me.TextEdit1.Properties.ReadOnly = True + Me.TextEdit1.Size = New System.Drawing.Size(157, 20) + Me.TextEdit1.StyleController = Me.LayoutControl1 + Me.TextEdit1.TabIndex = 4 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem4, Me.LayoutControlItem2, Me.LayoutControlItem5, Me.LayoutControlItem3, Me.LayoutControlItem6, Me.LayoutControlItem9}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(948, 416) + Me.Root.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.TextEdit1 + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem1.Size = New System.Drawing.Size(309, 31) + Me.LayoutControlItem1.Text = "ID" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(130, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.CHANGED_ACTIONComboBox + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 31) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem4.Size = New System.Drawing.Size(928, 31) + Me.LayoutControlItem4.Text = "Verhalten Datei geändert" + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(130, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.TextEdit2 + Me.LayoutControlItem2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "ADDED_WHO", True)) + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 62) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem2.Size = New System.Drawing.Size(462, 30) + Me.LayoutControlItem2.Text = "Erstellt wer" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(130, 13) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.TextEdit4 + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 92) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem5.Size = New System.Drawing.Size(462, 304) + Me.LayoutControlItem5.Text = "Geändert wer" + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(130, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.TextEdit3 + Me.LayoutControlItem3.Location = New System.Drawing.Point(462, 62) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(466, 30) + Me.LayoutControlItem3.Text = "Erstellt wann" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(130, 13) + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.TextEdit5 + Me.LayoutControlItem6.Location = New System.Drawing.Point(462, 92) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem6.Size = New System.Drawing.Size(466, 304) + Me.LayoutControlItem6.Text = "Geändert wann" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(130, 13) + ' + 'TBIDB_DOCTYPE_HANDLINGTableAdapter + ' + Me.TBIDB_DOCTYPE_HANDLINGTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOG_USERTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Me.TBIDB_DOCTYPE_HANDLINGTableAdapter + Me.TableAdapterManager.TBIDB_DOCTYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_LANGUAGETableAdapter = 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_CATALOGTableAdapter + ' + Me.TBIDB_CATALOGTableAdapter.ClearBeforeFill = True + ' + 'TBIDB_DOCTYPEBindingSource + ' + Me.TBIDB_DOCTYPEBindingSource.DataMember = "TBIDB_DOCTYPE" + Me.TBIDB_DOCTYPEBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'TBIDB_DOCTYPETableAdapter + ' + Me.TBIDB_DOCTYPETableAdapter.ClearBeforeFill = True + ' + 'DOCTYPEComboBox + ' + Me.DOCTYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "DOCTYPE", True)) + Me.DOCTYPEComboBox.DataSource = Me.TBIDB_DOCTYPEBindingSource + Me.DOCTYPEComboBox.DisplayMember = "TITLE" + Me.DOCTYPEComboBox.FormattingEnabled = True + Me.DOCTYPEComboBox.Location = New System.Drawing.Point(466, 15) + Me.DOCTYPEComboBox.Name = "DOCTYPEComboBox" + Me.DOCTYPEComboBox.Size = New System.Drawing.Size(467, 21) + Me.DOCTYPEComboBox.TabIndex = 12 + ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.Control = Me.DOCTYPEComboBox + Me.LayoutControlItem9.Location = New System.Drawing.Point(309, 0) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem9.Size = New System.Drawing.Size(619, 31) + Me.LayoutControlItem9.Text = "Dokumentart" + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(130, 13) + ' + 'frmAdmin_DoctypeConfig + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(948, 598) + Me.Controls.Add(Me.LayoutControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = CType(resources.GetObject("frmAdmin_DoctypeConfig.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.Name = "frmAdmin_DoctypeConfig" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Doctype Config" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.TBIDB_DOCTYPE_HANDLINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBIDB_CATALOGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBIDB_DOCTYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten + Friend WithEvents TBIDB_DOCTYPE_HANDLINGBindingSource As BindingSource + Friend WithEvents TBIDB_DOCTYPE_HANDLINGTableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_DOCTYPE_HANDLINGTableAdapter + Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit + Friend WithEvents CHANGED_ACTIONComboBox As ComboBox + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TBIDB_CATALOGBindingSource As BindingSource + Friend WithEvents TBIDB_CATALOGTableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_CATALOGTableAdapter + Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem + Friend WithEvents TextEdit5 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit4 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents TBIDB_DOCTYPEBindingSource As BindingSource + Friend WithEvents TBIDB_DOCTYPETableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_DOCTYPETableAdapter + Friend WithEvents DOCTYPEComboBox As ComboBox + Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem +End Class diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.resx b/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.resx new file mode 100644 index 0000000..f45177b --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.resx @@ -0,0 +1,231 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzczNzM3NDt9Cgku + WWVsbG93e2ZpbGw6I0ZDQjAxQjt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5CbHVle2ZpbGw6IzM4 + N0NCNzt9CgkuUmVke2ZpbGw6I0QwMjEyNzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tk + aXNwbGF5Om5vbmU7ZmlsbDojNzM3Mzc0O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRoLTN2MTBI + OFY0SDVDNC40LDQsNCw0LjQsNCw1djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTFW + NUMyOCw0LjQsMjcuNiw0LDI3LDR6IE0yNCwyNEg4di02ICBoMTZWMjR6IE0xMCw0djhoMTBWNEgxMHog + TTE0LDEwaC0yVjZoMlYxMHoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9 + Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs + MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs + NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg + PC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZCI+DQogICAgPHBhdGggZD0iTTI3LDE0aC05VjVj + MC0wLjUtMC41LTEtMS0xaC0yYy0wLjUsMC0xLDAuNS0xLDF2OUg1Yy0wLjUsMC0xLDAuNS0xLDF2MmMw + LDAuNSwwLjUsMSwxLDFoOXY5ICAgYzAsMC41LDAuNSwxLDEsMWgyYzAuNSwwLDEtMC41LDEtMXYtOWg5 + YzAuNSwwLDEtMC41LDEtMXYtMkMyOCwxNC41LDI3LjUsMTQsMjcsMTR6IiBjbGFzcz0iR3JlZW4iIC8+ + DQogIDwvZz4NCjwvc3ZnPgs= + + + + 177, 17 + + + 17, 17 + + + 233, 56 + + + 918, 17 + + + 17, 17 + + + 464, 17 + + + 745, 17 + + + 17, 56 + + + 453, 56 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANEDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk + aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp + c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41 + O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7 + ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp + c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJTdGF0ZSI+DQogICAg + PHBhdGggZD0iTTE2LDJDOC4zLDIsMiw4LjMsMiwxNnM2LjMsMTQsMTQsMTRzMTQtNi4zLDE0LTE0UzIz + LjcsMiwxNiwyeiBNMTksMjJsLTAuOS0zaC00LjJMMTMsMjJoLTNsNC42LTEzaDNMMjIsMjIgICBIMTl6 + IE0xNiwxMmwxLjUsNWgtMy4xQzE0LjQsMTcsMTYsMTIuNCwxNiwxMnoiIGNsYXNzPSJCbHVlIiAvPg0K + ICA8L2c+DQo8L3N2Zz4L + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.vb new file mode 100644 index 0000000..cc78a52 --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.vb @@ -0,0 +1,91 @@ +Public Class frmAdmin_DoctypeConfig + Public Property IsInsert As Boolean = False + Public Property PrimaryKey As Integer + Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.PrimaryKey = PrimaryKey + Me.IsInsert = IsInsert + End Sub + + Private Sub TBIDB_DOCTYPE_HANDLINGBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Me.Validate() + Me.TBIDB_DOCTYPE_HANDLINGBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DSIDB_Stammdaten) + + End Sub + + + + + + Private Sub frmAdmin_DoctypeConfig_HandleDestroyed(sender As Object, e As EventArgs) Handles Me.HandleDestroyed + Try + + Catch ex As Exception + + End Try + End Sub + + Private Sub frmAdmin_DoctypeConfig_Load(sender As Object, e As EventArgs) Handles Me.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DSIDB_Stammdaten.TBIDB_DOCTYPE". Sie können sie bei Bedarf verschieben oder entfernen. + + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DSIDB_Stammdaten.VWIDB_DOCTYPES_DE". Sie können sie bei Bedarf verschieben oder entfernen. + + Try + TBIDB_CATALOGTableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + TBIDB_DOCTYPE_HANDLINGTableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + TBIDB_DOCTYPETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + Me.TBIDB_CATALOGTableAdapter.FillByDOCTYPE_CHANGED(Me.DSIDB_Stammdaten.TBIDB_CATALOG) + Me.TBIDB_DOCTYPE_HANDLINGTableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLING, PrimaryKey) + Me.TBIDB_DOCTYPETableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_DOCTYPE) + If IsInsert Then + Me.DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLING.ADDED_WHOColumn.DefaultValue = My.Application.User.UserName + TBIDB_DOCTYPE_HANDLINGBindingSource.AddNew() + TextEdit2.Text = My.Application.User.UserName + End If + Catch ex As Exception + + End Try + + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + ResetMessages() + + If SaveData() Then + ShowStatus("Action Handling saved!") + End If + End Sub + Public Function SaveData() As Boolean + Try + Me.TBIDB_DOCTYPE_HANDLINGBindingSource.EndEdit() + If Me.DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLING.GetChanges Is Nothing = False Then + TextEdit4.Text = My.Application.User.UserName + TBIDB_DOCTYPE_HANDLINGBindingSource.EndEdit() + TBIDB_DOCTYPE_HANDLINGTableAdapter.Update(DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLING) + Return True + End If + Catch ex As Exception + Return False + End Try + End Function + Private Sub ResetMessages() + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End Sub + Private Sub ShowStatus(Message As String) + labelStatus.Caption = Message + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + Try + TBIDB_DOCTYPE_HANDLINGBindingSource.AddNew() + Catch ex As Exception + + End Try + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.Designer.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.Designer.vb new file mode 100644 index 0000000..86464ac --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.Designer.vb @@ -0,0 +1,624 @@ +Imports DigitalData.GUIs.Common.Base + + +Partial Class frmAdmin_IDBAttribute + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_IDBAttribute)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.VWIDB_BE_ATTRIBUTEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() + Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() + Me.SpinEdit1 = New DevExpress.XtraEditors.SpinEdit() + Me.CheckEditMulticontext = New DevExpress.XtraEditors.CheckEdit() + Me.CheckEdit2 = New DevExpress.XtraEditors.CheckEdit() + Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() + Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit() + Me.txtAddedWhen = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit() + Me.ComboBoxEdit1 = New DevExpress.XtraEditors.LookUpEdit() + 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() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + 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.TBWH_ATTRIBUTE_TYPETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBWH_ATTRIBUTE_TYPETableAdapter() + 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.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWIDB_BE_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CheckEditMulticontext.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + 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.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() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green + 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.BarButtonItem4}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 8 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.Size = New System.Drawing.Size(894, 132) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Abbrechen" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Speichern" + Me.BarButtonItem2.Id = 3 + Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'labelStatus + ' + 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 + ' + Me.BarButtonItem3.Caption = "Löschen" + Me.BarButtonItem3.Id = 6 + Me.BarButtonItem3.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.del1 + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'BarButtonItem4 + ' + Me.BarButtonItem4.Caption = "Löschen" + Me.BarButtonItem4.Id = 7 + Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem4.Name = "BarButtonItem4" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem4) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Daten" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 537) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(894, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.TextEdit1) + Me.LayoutControl1.Controls.Add(Me.TextEdit2) + Me.LayoutControl1.Controls.Add(Me.SpinEdit1) + Me.LayoutControl1.Controls.Add(Me.CheckEditMulticontext) + Me.LayoutControl1.Controls.Add(Me.CheckEdit2) + Me.LayoutControl1.Controls.Add(Me.TextEdit3) + Me.LayoutControl1.Controls.Add(Me.txtAddedWho) + Me.LayoutControl1.Controls.Add(Me.txtAddedWhen) + Me.LayoutControl1.Controls.Add(Me.txtChangedWho) + Me.LayoutControl1.Controls.Add(Me.txtChangedWhen) + Me.LayoutControl1.Controls.Add(Me.ComboBoxEdit1) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(892, 380) + Me.LayoutControl1.TabIndex = 2 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'TextEdit1 + ' + Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ATTR_ID", True)) + Me.TextEdit1.Location = New System.Drawing.Point(163, 20) + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Properties.ReadOnly = True + Me.TextEdit1.Size = New System.Drawing.Size(709, 20) + Me.TextEdit1.StyleController = Me.LayoutControl1 + Me.TextEdit1.TabIndex = 4 + ' + 'VWIDB_BE_ATTRIBUTEBindingSource + ' + Me.VWIDB_BE_ATTRIBUTEBindingSource.DataMember = "VWIDB_BE_ATTRIBUTE" + Me.VWIDB_BE_ATTRIBUTEBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'DSIDB_Stammdaten + ' + Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten" + Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TextEdit2 + ' + Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ATTR_TITLE", True)) + Me.TextEdit2.Location = New System.Drawing.Point(163, 60) + Me.TextEdit2.MenuManager = Me.RibbonControl1 + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.Size = New System.Drawing.Size(709, 20) + Me.TextEdit2.StyleController = Me.LayoutControl1 + Me.TextEdit2.TabIndex = 5 + ' + 'SpinEdit1 + ' + 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(598, 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(274, 20) + Me.SpinEdit1.StyleController = Me.LayoutControl1 + Me.SpinEdit1.TabIndex = 6 + ' + 'CheckEditMulticontext + ' + Me.CheckEditMulticontext.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "MULTI_CONTEXT", True)) + Me.CheckEditMulticontext.Location = New System.Drawing.Point(20, 220) + Me.CheckEditMulticontext.MenuManager = Me.RibbonControl1 + Me.CheckEditMulticontext.Name = "CheckEditMulticontext" + Me.CheckEditMulticontext.Properties.Caption = "Attribut mehrzeilig" + Me.CheckEditMulticontext.Size = New System.Drawing.Size(852, 20) + Me.CheckEditMulticontext.StyleController = Me.LayoutControl1 + Me.CheckEditMulticontext.TabIndex = 7 + ' + 'CheckEdit2 + ' + Me.CheckEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "VIEW_VISIBLE", True)) + Me.CheckEdit2.Location = New System.Drawing.Point(20, 180) + Me.CheckEdit2.MenuManager = Me.RibbonControl1 + Me.CheckEdit2.Name = "CheckEdit2" + Me.CheckEdit2.Properties.Caption = "Standard in Ergebnisliste" + Me.CheckEdit2.Size = New System.Drawing.Size(415, 20) + Me.CheckEdit2.StyleController = Me.LayoutControl1 + Me.CheckEdit2.TabIndex = 8 + ' + 'TextEdit3 + ' + Me.TextEdit3.Location = New System.Drawing.Point(163, 140) + Me.TextEdit3.MenuManager = Me.RibbonControl1 + Me.TextEdit3.Name = "TextEdit3" + Me.TextEdit3.Size = New System.Drawing.Size(709, 20) + Me.TextEdit3.StyleController = Me.LayoutControl1 + Me.TextEdit3.TabIndex = 9 + ' + 'txtAddedWho + ' + Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ADDED_WHO", True)) + Me.txtAddedWho.Location = New System.Drawing.Point(163, 260) + Me.txtAddedWho.MenuManager = Me.RibbonControl1 + Me.txtAddedWho.Name = "txtAddedWho" + Me.txtAddedWho.Properties.ReadOnly = True + Me.txtAddedWho.Size = New System.Drawing.Size(272, 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(598, 260) + Me.txtAddedWhen.MenuManager = Me.RibbonControl1 + Me.txtAddedWhen.Name = "txtAddedWhen" + Me.txtAddedWhen.Properties.ReadOnly = True + Me.txtAddedWhen.Size = New System.Drawing.Size(274, 20) + Me.txtAddedWhen.StyleController = Me.LayoutControl1 + Me.txtAddedWhen.TabIndex = 11 + ' + 'txtChangedWho + ' + Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "CHANGED_WHO", True)) + Me.txtChangedWho.Location = New System.Drawing.Point(163, 300) + Me.txtChangedWho.MenuManager = Me.RibbonControl1 + Me.txtChangedWho.Name = "txtChangedWho" + Me.txtChangedWho.Properties.ReadOnly = True + Me.txtChangedWho.Size = New System.Drawing.Size(272, 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(598, 300) + Me.txtChangedWhen.MenuManager = Me.RibbonControl1 + Me.txtChangedWhen.Name = "txtChangedWhen" + Me.txtChangedWhen.Properties.ReadOnly = True + Me.txtChangedWhen.Size = New System.Drawing.Size(274, 20) + Me.txtChangedWhen.StyleController = Me.LayoutControl1 + Me.txtChangedWhen.TabIndex = 13 + ' + 'ComboBoxEdit1 + ' + Me.ComboBoxEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "TYPE_ID", True)) + Me.ComboBoxEdit1.Location = New System.Drawing.Point(163, 100) + Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1 + 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.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(709, 20) + Me.ComboBoxEdit1.StyleController = Me.LayoutControl1 + Me.ComboBoxEdit1.TabIndex = 14 + ' + 'TBWH_ATTRIBUTE_TYPEBindingSource + ' + Me.TBWH_ATTRIBUTE_TYPEBindingSource.DataMember = "TBWH_ATTRIBUTE_TYPE" + Me.TBWH_ATTRIBUTE_TYPEBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem3, Me.LayoutControlItem11, Me.LayoutControlItem9, Me.LayoutControlItem5, Me.LayoutControlItem8, Me.LayoutControlItem10}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(892, 380) + Me.Root.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem1.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem1.Control = Me.TextEdit1 + Me.LayoutControlItem1.CustomizationFormText = "GUID" + Me.LayoutControlItem1.Enabled = False + 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(872, 40) + Me.LayoutControlItem1.Text = "ID" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(131, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.TextEdit2 + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 40) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem2.Size = New System.Drawing.Size(872, 40) + Me.LayoutControlItem2.Text = "Bezeichnung" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(131, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.CheckEditMulticontext + 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(872, 40) + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem4.TextVisible = False + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.TextEdit3 + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 120) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem6.Size = New System.Drawing.Size(872, 40) + Me.LayoutControlItem6.Text = "Kommentar" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(131, 13) + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem7.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem7.Control = Me.txtAddedWho + Me.LayoutControlItem7.Enabled = False + Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 240) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem7.Size = New System.Drawing.Size(435, 40) + Me.LayoutControlItem7.Text = "Erstellt Wer" + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(131, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.SpinEdit1 + Me.LayoutControlItem3.CustomizationFormText = "Anzeige Reihenfolge" + Me.LayoutControlItem3.Location = New System.Drawing.Point(435, 160) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem3.Size = New System.Drawing.Size(437, 40) + Me.LayoutControlItem3.Text = "Reihenfolge in Ergebnisliste" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(131, 13) + ' + 'LayoutControlItem11 + ' + Me.LayoutControlItem11.Control = Me.ComboBoxEdit1 + Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 80) + Me.LayoutControlItem11.Name = "LayoutControlItem11" + Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem11.Size = New System.Drawing.Size(872, 40) + Me.LayoutControlItem11.Text = "Attribut-Typ" + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(131, 13) + ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem9.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem9.Control = Me.txtChangedWho + Me.LayoutControlItem9.Enabled = False + Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 280) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem9.Size = New System.Drawing.Size(435, 80) + Me.LayoutControlItem9.Text = "Geändert Wer" + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(131, 13) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.CheckEdit2 + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 160) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem5.Size = New System.Drawing.Size(435, 40) + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem5.TextVisible = False + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem8.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem8.Control = Me.txtAddedWhen + Me.LayoutControlItem8.Enabled = False + Me.LayoutControlItem8.Location = New System.Drawing.Point(435, 240) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem8.Size = New System.Drawing.Size(437, 40) + Me.LayoutControlItem8.Text = "Erstellt Wann" + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(131, 13) + ' + 'LayoutControlItem10 + ' + Me.LayoutControlItem10.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem10.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem10.Control = Me.txtChangedWhen + Me.LayoutControlItem10.Enabled = False + Me.LayoutControlItem10.Location = New System.Drawing.Point(435, 280) + Me.LayoutControlItem10.Name = "LayoutControlItem10" + Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem10.Size = New System.Drawing.Size(437, 80) + Me.LayoutControlItem10.Text = "Geändert Wann" + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(131, 13) + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOG_USERTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_COMMON_SQLTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_DOCTYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_LANGUAGETableAdapter = 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 + ' + 'VWIDB_BE_ATTRIBUTETableAdapter + ' + Me.VWIDB_BE_ATTRIBUTETableAdapter.ClearBeforeFill = True + ' + 'TBWH_ATTRIBUTE_TYPETableAdapter + ' + Me.TBWH_ATTRIBUTE_TYPETableAdapter.ClearBeforeFill = True + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 132) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.Size = New System.Drawing.Size(894, 405) + Me.XtraTabControl1.TabIndex = 5 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.Controls.Add(Me.LayoutControl1) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(892, 380) + Me.XtraTabPage1.Text = "Detail" + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(150, 300) + Me.XtraTabPage2.Text = "Übersetzungen" + ' + '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(894, 561) + Me.Controls.Add(Me.XtraTabControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.bo_appearance + Me.Name = "frmAdmin_IDBAttribute" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "IDB - Attribut" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWIDB_BE_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SpinEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CheckEditMulticontext.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit() + 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.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() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPage1.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 RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SpinEdit1 As DevExpress.XtraEditors.SpinEdit + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten + Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents CheckEditMulticontext As DevExpress.XtraEditors.CheckEdit + Friend WithEvents CheckEdit2 As DevExpress.XtraEditors.CheckEdit + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtAddedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtAddedWhen As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWhen As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + 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 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 + Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage +End Class diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.resx b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.resx new file mode 100644 index 0000000..2c3576b --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.resx @@ -0,0 +1,181 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJIZWFkZXJBbmRGb290ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dy + b3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDoj + RDExQzFDO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRINUM0LjUsNCw0LDQuNSw0LDV2MjJjMCww + LjUsMC41LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVY1QzI4LDQuNSwyNy41LDQsMjcsNHogTTIyLDIw + bC0yLDJsLTQtNGwtNCw0ICBsLTItMmw0LTRsLTQtNGwyLTJsNCw0bDQtNGwyLDJsLTQsNEwyMiwyMHoi + IGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJIDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRGVsZXRlIj4NCiAgICA8cGF0aCBk + PSJNMTguOCwxNmw4LjktOC45YzAuNC0wLjQsMC40LTEsMC0xLjRsLTEuNC0xLjRjLTAuNC0wLjQtMS0w + LjQtMS40LDBMMTYsMTMuMkw3LjEsNC4zYy0wLjQtMC40LTEtMC40LTEuNCwwICAgTDQuMyw1LjdjLTAu + NCwwLjQtMC40LDEsMCwxLjRsOC45LDguOWwtOC45LDguOWMtMC40LDAuNC0wLjQsMSwwLDEuNGwxLjQs + MS40YzAuNCwwLjQsMSwwLjQsMS40LDBsOC45LTguOWw4LjksOC45ICAgYzAuNCwwLjQsMSwwLjQsMS40 + LDBsMS40LTEuNGMwLjQtMC40LDAuNC0xLDAtMS40TDE4LjgsMTZ6IiBjbGFzcz0iUmVkIiAvPg0KICA8 + L2c+DQo8L3N2Zz4L + + + + 350, 17 + + + 17, 17 + + + 848, 17 + + + 177, 17 + + + 602, 17 + + + 17, 56 + + + 219 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.vb new file mode 100644 index 0000000..03e0e43 --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.vb @@ -0,0 +1,158 @@ +Imports DigitalData.GUIs.Common + +Public Class frmAdmin_IDBAttribute + Implements IAdminForm + + Public Property HasChanges As Boolean = False Implements IAdminForm.HasChanges + Public Property IsInsert As Boolean = False Implements IAdminForm.IsInsert + Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey + Private Const ConstDetail = "Detail" + Private Const ConstTranslate = "Translate" + Private Property oMode As String = "Detail" + Private Property FormHelper As FormHelper + + Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.PrimaryKey = PrimaryKey + Me.IsInsert = IsInsert + FormHelper = New FormHelper(My.LogConfig, Me) + End Sub + + Private Sub frmAdmin_Attribute_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + 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 + FillAttribute() + + If IsInsert Then + VWIDB_BE_ATTRIBUTEBindingSource.AddNew() + DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.ADDED_WHOColumn.DefaultValue = My.Application.User.UserName + End If + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "frmAdmin_Attribute_Load") + End Try + End Sub + Private Sub FillAttribute() + VWIDB_BE_ATTRIBUTETableAdapter.FillByAttributeId(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, PrimaryKey, 1) + End Sub + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + ResetMessages() + Dim oGetMax As Boolean = False + If IsInsert Then + oGetMax = True + End If + If SaveData() And HasChanges Then + If IsInsert Then + Dim oSQL = "Select MAX(GUID) FROM TBIDB_ATTRIBUTE" + PrimaryKey = My.DatabaseIDB.GetScalarValue(oSQL) + End If + + + FillAttribute() + End If + End Sub + + Private Sub ResetMessages() + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End Sub + + Private Sub ShowStatus(Message As String, ocolor As Color) + labelStatus.Caption = $"{Message} - {Now.ToString}" + labelStatus.ItemAppearance.Normal.BackColor = ocolor + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + Close() + End Sub + + Public Function SaveData() As Boolean + Try + VWIDB_BE_ATTRIBUTEBindingSource.EndEdit() + + If DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.GetChanges() IsNot Nothing Or IsInsert Then + HasChanges = True + + If IsInsert Then + txtAddedWho.EditValue = My.Application.User.UserName + Else + txtChangedWho.EditValue = My.Application.User.UserName + End If + + VWIDB_BE_ATTRIBUTEBindingSource.EndEdit() + + ' 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}'" & + $",MULTI_CONTEXT = '{CheckEditMulticontext.Checked}', COMMENT = '{TextEdit3.Text}', CHANGED_WHO = '{My.Application.User.UserName}' " & + $"WHERE (GUID = {TextEdit1.Text})" + + If My.DatabaseIDB.ExecuteNonQuery(oUpdate) = False Then + ShowStatus($"Error saving Attribute {TextEdit2.Text} - Check Your log", Color.Red) + Return False + Else + ShowStatus($"Attribute {TextEdit2.Text} saved successfully", Color.DodgerBlue) + End If + Else + Dim oInsert As String = $"INSERT INTO TBIDB_ATTRIBUTE " & + "(TITLE, TYP_ID, VIEW_SEQUENCE, VIEW_VISIBLE, ADDED_WHO,COMMENT,MULTI_CONTEXT) " & + $"VALUES ('{TextEdit2.Text}',{ComboBoxEdit1.EditValue},{SpinEdit1.Value},'{CheckEdit2.Checked}','{My.Application.User.UserName}', '{TextEdit3.Text}','{CheckEditMulticontext.Checked}')" + + If My.DatabaseIDB.ExecuteNonQuery(oInsert) = True Then + ShowStatus($"Attribute {TextEdit2.Text} added successfully", Color.DodgerBlue) + IsInsert = False + Else + ShowStatus($"Error Insertung Attribute {TextEdit2.Text} - Check Your log", Color.Red) + Return False + End If + End If + ' VWIDB_BE_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE) + End If + FillAttribute() + Return True + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "SaveData") + ShowStatus($"Unexpeced error saving attribute {TextEdit2.Text} - {ex.Message}", Color.Red) + Return False + End Try + End Function + + + Public Function DeleteAttribute() As Boolean Implements IAdminForm.DeleteData + Try + Dim oproc = $"EXEC PRIDB_DELETE_ATTRIBUTE {PrimaryKey}, '{My.Application.User.UserName}' " + If My.DatabaseIDB.ExecuteNonQuery(oproc) = True Then + Return True + End If + + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "DeleteAttribute") + Return False + End Try + End Function + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + + End Sub + + Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick + If MsgBox($"Do You really want to delete the attribute [{PrimaryKey}]? All Metadata related to the Attribute will be deleted!", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then + If DeleteAttribute() Then + Close() + End If + End If + End Sub + + Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged + If XtraTabControl1.SelectedTabPageIndex = 1 Then + oMode = ConstTranslate + Else + oMode = ConstDetail + End If + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.Designer.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.Designer.vb new file mode 100644 index 0000000..8782062 --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.Designer.vb @@ -0,0 +1,388 @@ + +Partial Class frmAdmin_IDBBERelations + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_IDBBERelations)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.btnRemoveAttribute = New DevExpress.XtraEditors.SimpleButton() + Me.btnAddAttribute = New DevExpress.XtraEditors.SimpleButton() + Me.GridControlAttributesRelated = New DevExpress.XtraGrid.GridControl() + Me.GridViewRelatedAttributes = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridControlBusinessEntities = New DevExpress.XtraGrid.GridControl() + Me.GridViewBusinessEntities = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridControlFreeAttributes = New DevExpress.XtraGrid.GridControl() + Me.GridViewFreeAttributes = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.SimpleLabelItem2 = New DevExpress.XtraLayout.SimpleLabelItem() + Me.SimpleLabelItem1 = New DevExpress.XtraLayout.SimpleLabelItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.SimpleLabelItem3 = New DevExpress.XtraLayout.SimpleLabelItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.bsiInfo = New DevExpress.XtraBars.BarStaticItem() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.GridControlAttributesRelated, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewRelatedAttributes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlBusinessEntities, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewBusinessEntities, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlFreeAttributes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewFreeAttributes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SimpleLabelItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SimpleLabelItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SimpleLabelItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiInfo, Me.BarButtonItem1}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.RibbonControl1.MaxItemId = 3 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowMoreCommandsButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.Size = New System.Drawing.Size(1169, 158) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Start" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 822) + 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(1169, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.btnRemoveAttribute) + Me.LayoutControl1.Controls.Add(Me.btnAddAttribute) + Me.LayoutControl1.Controls.Add(Me.GridControlAttributesRelated) + Me.LayoutControl1.Controls.Add(Me.GridControlBusinessEntities) + Me.LayoutControl1.Controls.Add(Me.GridControlFreeAttributes) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 158) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(1169, 664) + Me.LayoutControl1.TabIndex = 6 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'btnRemoveAttribute + ' + Me.btnRemoveAttribute.Appearance.Options.UseTextOptions = True + Me.btnRemoveAttribute.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.btnRemoveAttribute.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleRight + Me.btnRemoveAttribute.ImageOptions.SvgImage = CType(resources.GetObject("btnRemoveAttribute.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.btnRemoveAttribute.Location = New System.Drawing.Point(431, 616) + Me.btnRemoveAttribute.Name = "btnRemoveAttribute" + Me.btnRemoveAttribute.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.btnRemoveAttribute.Size = New System.Drawing.Size(386, 36) + Me.btnRemoveAttribute.StyleController = Me.LayoutControl1 + Me.btnRemoveAttribute.TabIndex = 9 + Me.btnRemoveAttribute.Text = "Attribut entfernen" + ' + 'btnAddAttribute + ' + Me.btnAddAttribute.Appearance.Options.UseTextOptions = True + Me.btnAddAttribute.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.btnAddAttribute.ImageOptions.SvgImage = CType(resources.GetObject("btnAddAttribute.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.btnAddAttribute.Location = New System.Drawing.Point(431, 576) + Me.btnAddAttribute.Name = "btnAddAttribute" + Me.btnAddAttribute.Size = New System.Drawing.Size(386, 36) + Me.btnAddAttribute.StyleController = Me.LayoutControl1 + Me.btnAddAttribute.TabIndex = 8 + Me.btnAddAttribute.Text = "Attribut zuordnen" + ' + 'GridControlAttributesRelated + ' + Me.GridControlAttributesRelated.AllowDrop = True + Me.GridControlAttributesRelated.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) + Me.GridControlAttributesRelated.Location = New System.Drawing.Point(821, 49) + Me.GridControlAttributesRelated.MainView = Me.GridViewRelatedAttributes + Me.GridControlAttributesRelated.MenuManager = Me.RibbonControl1 + Me.GridControlAttributesRelated.Name = "GridControlAttributesRelated" + Me.GridControlAttributesRelated.Size = New System.Drawing.Size(336, 603) + Me.GridControlAttributesRelated.TabIndex = 7 + Me.GridControlAttributesRelated.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewRelatedAttributes}) + ' + 'GridViewRelatedAttributes + ' + Me.GridViewRelatedAttributes.GridControl = Me.GridControlAttributesRelated + Me.GridViewRelatedAttributes.Name = "GridViewRelatedAttributes" + ' + 'GridControlBusinessEntities + ' + Me.GridControlBusinessEntities.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) + Me.GridControlBusinessEntities.Location = New System.Drawing.Point(431, 49) + Me.GridControlBusinessEntities.MainView = Me.GridViewBusinessEntities + Me.GridControlBusinessEntities.MenuManager = Me.RibbonControl1 + Me.GridControlBusinessEntities.Name = "GridControlBusinessEntities" + Me.GridControlBusinessEntities.Size = New System.Drawing.Size(386, 523) + Me.GridControlBusinessEntities.TabIndex = 6 + Me.GridControlBusinessEntities.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewBusinessEntities}) + ' + 'GridViewBusinessEntities + ' + Me.GridViewBusinessEntities.GridControl = Me.GridControlBusinessEntities + Me.GridViewBusinessEntities.Name = "GridViewBusinessEntities" + Me.GridViewBusinessEntities.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewBusinessEntities.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewBusinessEntities.OptionsBehavior.Editable = False + Me.GridViewBusinessEntities.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewBusinessEntities.OptionsView.ShowGroupPanel = False + ' + 'GridControlFreeAttributes + ' + Me.GridControlFreeAttributes.AllowDrop = True + Me.GridControlFreeAttributes.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) + Me.GridControlFreeAttributes.Location = New System.Drawing.Point(12, 49) + Me.GridControlFreeAttributes.MainView = Me.GridViewFreeAttributes + Me.GridControlFreeAttributes.MenuManager = Me.RibbonControl1 + Me.GridControlFreeAttributes.Name = "GridControlFreeAttributes" + Me.GridControlFreeAttributes.Size = New System.Drawing.Size(415, 603) + Me.GridControlFreeAttributes.TabIndex = 5 + Me.GridControlFreeAttributes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewFreeAttributes}) + ' + 'GridViewFreeAttributes + ' + Me.GridViewFreeAttributes.GridControl = Me.GridControlFreeAttributes + Me.GridViewFreeAttributes.Name = "GridViewFreeAttributes" + Me.GridViewFreeAttributes.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewFreeAttributes.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewFreeAttributes.OptionsBehavior.Editable = False + Me.GridViewFreeAttributes.OptionsSelection.EnableAppearanceFocusedCell = False + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2, Me.LayoutControlItem1, Me.SimpleLabelItem2, Me.SimpleLabelItem1, Me.LayoutControlItem3, Me.SimpleLabelItem3, Me.LayoutControlItem5, Me.LayoutControlItem4}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(1169, 664) + Me.Root.TextVisible = False + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.GridControlFreeAttributes + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 37) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Size = New System.Drawing.Size(419, 607) + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem2.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.GridControlBusinessEntities + Me.LayoutControlItem1.Location = New System.Drawing.Point(419, 37) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Size = New System.Drawing.Size(390, 527) + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem1.TextVisible = False + ' + 'SimpleLabelItem2 + ' + Me.SimpleLabelItem2.AllowHotTrack = False + Me.SimpleLabelItem2.AppearanceItemCaption.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.SimpleLabelItem2.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SimpleLabelItem2.AppearanceItemCaption.Options.UseBackColor = True + Me.SimpleLabelItem2.AppearanceItemCaption.Options.UseFont = True + Me.SimpleLabelItem2.Location = New System.Drawing.Point(419, 0) + Me.SimpleLabelItem2.Name = "SimpleLabelItem2" + Me.SimpleLabelItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.SimpleLabelItem2.Size = New System.Drawing.Size(390, 37) + Me.SimpleLabelItem2.Text = "Business Eintities" + Me.SimpleLabelItem2.TextSize = New System.Drawing.Size(162, 17) + ' + 'SimpleLabelItem1 + ' + Me.SimpleLabelItem1.AllowHotTrack = False + Me.SimpleLabelItem1.AppearanceItemCaption.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.SimpleLabelItem1.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SimpleLabelItem1.AppearanceItemCaption.Options.UseBackColor = True + Me.SimpleLabelItem1.AppearanceItemCaption.Options.UseFont = True + Me.SimpleLabelItem1.Location = New System.Drawing.Point(0, 0) + Me.SimpleLabelItem1.Name = "SimpleLabelItem1" + Me.SimpleLabelItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.SimpleLabelItem1.Size = New System.Drawing.Size(419, 37) + Me.SimpleLabelItem1.Text = "Nicht zugeordnete Attribute" + Me.SimpleLabelItem1.TextSize = New System.Drawing.Size(162, 17) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.GridControlAttributesRelated + Me.LayoutControlItem3.Location = New System.Drawing.Point(809, 37) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Size = New System.Drawing.Size(340, 607) + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem3.TextVisible = False + ' + 'SimpleLabelItem3 + ' + Me.SimpleLabelItem3.AllowHotTrack = False + Me.SimpleLabelItem3.AppearanceItemCaption.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.SimpleLabelItem3.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SimpleLabelItem3.AppearanceItemCaption.Options.UseBackColor = True + Me.SimpleLabelItem3.AppearanceItemCaption.Options.UseFont = True + Me.SimpleLabelItem3.Location = New System.Drawing.Point(809, 0) + Me.SimpleLabelItem3.Name = "SimpleLabelItem3" + Me.SimpleLabelItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.SimpleLabelItem3.Size = New System.Drawing.Size(340, 37) + Me.SimpleLabelItem3.Text = "Zugeordnete Attribute" + Me.SimpleLabelItem3.TextSize = New System.Drawing.Size(162, 17) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.btnRemoveAttribute + Me.LayoutControlItem5.Location = New System.Drawing.Point(419, 604) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Size = New System.Drawing.Size(390, 40) + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem5.TextVisible = False + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.btnAddAttribute + Me.LayoutControlItem4.Location = New System.Drawing.Point(419, 564) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Size = New System.Drawing.Size(390, 40) + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem4.TextVisible = False + ' + 'bsiInfo + ' + Me.bsiInfo.Caption = "BarStaticItem1" + Me.bsiInfo.Id = 1 + Me.bsiInfo.ImageOptions.SvgImage = CType(resources.GetObject("BarStaticItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bsiInfo.Name = "bsiInfo" + Me.bsiInfo.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + Me.bsiInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Funktionen" + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Schliessen" + Me.BarButtonItem1.Id = 2 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'frmAdmin_IDBBERelations + ' + Me.AllowDrop = True + 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(1169, 846) + Me.Controls.Add(Me.LayoutControl1) + 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.IconOptions.SvgImage = CType(resources.GetObject("frmAdmin_IDBBERelations.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.Name = "frmAdmin_IDBBERelations" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Attribut - BE Zuordnung" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.GridControlAttributesRelated, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewRelatedAttributes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlBusinessEntities, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewBusinessEntities, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlFreeAttributes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewFreeAttributes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SimpleLabelItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SimpleLabelItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SimpleLabelItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents GridControlAttributesRelated As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewRelatedAttributes As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridControlBusinessEntities As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewBusinessEntities As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridControlFreeAttributes As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewFreeAttributes As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SimpleLabelItem2 As DevExpress.XtraLayout.SimpleLabelItem + Friend WithEvents SimpleLabelItem1 As DevExpress.XtraLayout.SimpleLabelItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SimpleLabelItem3 As DevExpress.XtraLayout.SimpleLabelItem + Friend WithEvents btnRemoveAttribute As DevExpress.XtraEditors.SimpleButton + Friend WithEvents btnAddAttribute As DevExpress.XtraEditors.SimpleButton + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents bsiInfo As DevExpress.XtraBars.BarStaticItem + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup +End Class diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.resx b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.resx new file mode 100644 index 0000000..fbec5ba --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.resx @@ -0,0 +1,216 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9 + Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs + MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs + NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg + PC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJIZWFkZXJBbmRGb290ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dy + b3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDoj + RDExQzFDO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRINUM0LjUsNCw0LDQuNSw0LDV2MjJjMCww + LjUsMC41LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVY1QzI4LDQuNSwyNy41LDQsMjcsNHogTTIyLDIw + bC0yLDJsLTQtNGwtNCw0ICBsLTItMmw0LTRsLTQtNGwyLTJsNCw0bDQtNGwyLDJsLTQsNEwyMiwyMHoi + IGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAF4CAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlByZXZpb3VzVmlldyI+DQogICAgPHBhdGggZD0i + TTE2LDJDOC4zLDIsMiw4LjMsMiwxNnM2LjMsMTQsMTQsMTRzMTQtNi4zLDE0LTE0UzIzLjcsMiwxNiwy + eiBNMjQsMThoLTh2NmwtOC04bDgtOHY2aDhWMTh6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9z + dmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFsCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9Ik5leHRWaWV3Ij4NCiAgICA8cGF0aCBkPSJNMTYs + MkM4LjMsMiwyLDguMywyLDE2czYuMywxNCwxNCwxNHMxNC02LjMsMTQtMTRTMjMuNywyLDE2LDJ6IE0x + NiwyNHYtNkg4di00aDhWOGw4LDhMMTYsMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+ + Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHcDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + Qmx1ZXtmaWxsOiMxMTc3RDc7fQoJLnN0MHtvcGFjaXR5OjAuNTt9Cjwvc3R5bGU+DQogIDxnIGlkPSJN + YW5hZ2VfUmVsYXRpb25zIj4NCiAgICA8ZyBjbGFzcz0ic3QwIj4NCiAgICAgIDxwYXRoIGQ9Ik0zMSwz + MmgtOGMtMC41LDAtMS0wLjUtMS0xdi04YzAtMC41LDAuNS0xLDEtMWg4YzAuNSwwLDEsMC41LDEsMXY4 + QzMyLDMxLjUsMzEuNSwzMiwzMSwzMnogTTMyLDlWMSAgICBjMC0wLjYtMC41LTEtMS0xaC04Yy0wLjUs + MC0xLDAuNC0xLDF2OGMwLDAuNiwwLjUsMSwxLDFoOEMzMS41LDEwLDMyLDkuNiwzMiw5eiIgY2xhc3M9 + IkJsYWNrIiAvPg0KICAgIDwvZz4NCiAgICA8cGF0aCBkPSJNMTEsMjJIMWMtMC42LDAtMS0wLjUtMS0x + VjExYzAtMC42LDAuNC0xLDEtMWgxMGMwLjYsMCwxLDAuNCwxLDF2MTBDMTIsMjEuNSwxMS42LDIyLDEx + LDIyeiIgY2xhc3M9IkJsdWUiIC8+DQogICAgPHBhdGggZD0iTTIwLDJ2NmwtMi4zLTIuM2wtNCw0bC0x + LjQtMS40bDQtNEwxNCwySDIweiBNMTcuNywyNi4zbC00LTRsLTEuNCwxLjRsNCw0TDE0LDMwaDZ2LTZM + MTcuNywyNi4zeiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.vb new file mode 100644 index 0000000..8a05b6d --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBBERelations.vb @@ -0,0 +1,175 @@ +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Base +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraGrid.Views.Grid.ViewInfo +Imports DigitalData.Modules.Logging + +Public Class frmAdmin_IDBBERelations + Private GridCursorLocation As Point + Private SELECTED_BEID As Integer + Private SELECTED_FREE_ATTRID As Integer + Private SELECTED_ID2DELETE As Integer + Private DraggedAttributeID + Private DragDropManager As ClassDragDrop = Nothing + Private downHitInfo As GridHitInfo = Nothing + Private Logger As Logger + + Private Function GetAvailableAttributesByBEID(beID As Integer) As DataTable + Try + Dim dt As DataTable + Dim oSQL = $"SELECT AttributeID,Attribute,AttributeType FROM VWIDB_ATTRIBUTE_LANG WHERE LANG_CODE = '{My.Application.User.Language}' AND AttributeID NOT IN (SELECT ATTR_ID FROM TBIDB_BE_ATTRIBUTE WHERE BE_ID = {beID})" + dt = My.DatabaseIDB.GetDatatable(oSQL) + Return dt + Catch ex As Exception + ShowErrorMessage($"Error in GetAvailableAttributesByBEID with groupId {beID}", ex) + + Return Nothing + End Try + End Function + Private Function GetRelatedAttributesByBEID(beID As Integer) As DataTable + Try + Dim dt As DataTable + Dim oSQL = $"select GUID as RelID, ATTR_TITLE as Attribute, [TYPE_NAME] as [AttributeType] FROM VWIDB_BE_ATTRIBUTE WHERE BE_ID = {beID} and LANG_CODE = '{My.Application.User.Language}'" + dt = My.DatabaseIDB.GetDatatable(oSQL) + Return dt + Catch ex As Exception + ShowErrorMessage($"Error in GetAvailableAttributesByBEID with groupId {beID}", ex) + + Return Nothing + End Try + End Function + Private Sub ShowErrorMessage(errorText As String, ex As Exception) + MsgBox(errorText & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Critical, "BE Relations") + End Sub + + Private Sub frmAdmin_IDBBERelations_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + Logger = My.LogConfig.GetLogger() + + Dim oSQL = "Select Guid As ID,TITLE As BusinessEntity from TBIDB_BUSINESS_ENTITY" + Dim oDT As DataTable = My.DatabaseIDB.GetDatatable(oSQL) + GridControlBusinessEntities.DataSource = oDT + DragDropManager = New ClassDragDrop(My.LogConfig) + DragDropManager.AddGridView(GridViewFreeAttributes) + DragDropManager.AddGridView(GridViewRelatedAttributes) + LoadFreeAttributes() + LoadRelatedAttributes() + Catch ex As Exception + ShowErrorMessage($"Error in FormLoad", ex) + End Try + End Sub + + Private Sub GridViewBusinessEntities_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewBusinessEntities.FocusedRowChanged + Dim oBEID = GridViewBusinessEntities.GetFocusedRowCellValue(GridViewBusinessEntities.Columns("ID")) + SELECTED_BEID = oBEID + LoadFreeAttributes() + LoadRelatedAttributes() + End Sub + + Sub LoadRelatedAttributes() + Dim oDT = GetRelatedAttributesByBEID(SELECTED_BEID) + If Not IsNothing(oDT) Then + GridControlAttributesRelated.DataSource = oDT + End If + End Sub + Sub LoadFreeAttributes() + Dim oDT = GetAvailableAttributesByBEID(SELECTED_BEID) + If Not IsNothing(oDT) Then + GridControlFreeAttributes.DataSource = oDT + End If + End Sub + + Private Sub GridControlFreeAttributes_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlFreeAttributes.DragDrop + Try + Dim data As String = e.Data.GetData(DataFormats.Text) + Dim AttrID As Integer = data.Split("|")(0) + + + If AddAttr2BE(AttrID, SELECTED_BEID) Then + Dim oDT = GetRelatedAttributesByBEID(SELECTED_BEID) + If Not IsNothing(oDT) Then + GridControlAttributesRelated.DataSource = Nothing + GridControlAttributesRelated.DataSource = oDT + End If + End If + Catch ex As Exception + Logger.Error(ex) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error Adding AttrID:") + End Try + End Sub + + Public Function AddAttr2BE(AttrId As Integer, BeId As Integer) As Boolean + Try + Dim oSQL = $" + INSERT INTO TBIDB_BE_ATTRIBUTE (BE_ID,ATTR_ID,ADDED_WHO) + VALUES ({BeId},{AttrId},'{My.Application.User.UserName}') + " + Return My.DatabaseIDB.ExecuteNonQuery(oSQL) + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + Public Function DeleteAttrfromBE(ID As Integer) As Boolean + Try + Dim oSQL = $"DELETE FROM TBIDB_BE_ATTRIBUTE WHERE GUID = {ID}" + Return My.DatabaseIDB.ExecuteNonQuery(oSQL) + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + + Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles btnAddAttribute.Click + SELECTED_FREE_ATTRID = 0 + GetFreeAttributeID() + + If SELECTED_FREE_ATTRID <> 0 Then + If AddAttr2BE(SELECTED_FREE_ATTRID, SELECTED_BEID) Then + LoadFreeAttributes() + LoadRelatedAttributes() + Show_bsiInfo("Attribute related") + End If + Else + Show_bsiInfo("Error in AttributeRelation - No AttributeID") + End If + + + End Sub + + Private Sub GetFreeAttributeID() + Dim oID = GridViewFreeAttributes.GetFocusedRowCellValue(GridViewFreeAttributes.Columns("AttributeID")) + SELECTED_FREE_ATTRID = oID + + End Sub + + Private Sub GetRelatedAttributeGUID() + Dim oID = GridViewRelatedAttributes.GetFocusedRowCellValue(GridViewRelatedAttributes.Columns("RelID")) + SELECTED_ID2DELETE = oID + End Sub + + Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles btnRemoveAttribute.Click + SELECTED_ID2DELETE = 0 + GetRelatedAttributeGUID() + + If SELECTED_ID2DELETE <> 0 Then + If DeleteAttrfromBE(SELECTED_ID2DELETE) Then + LoadFreeAttributes() + LoadRelatedAttributes() + SELECTED_ID2DELETE = 0 + Show_bsiInfo("Attribute removed") + End If + Else + Show_bsiInfo("Error in RemoveAttribute - No ID") + End If + + End Sub + Sub Show_bsiInfo(pInfo As String) + bsiInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + bsiInfo.Caption = pInfo & " - " & Now.ToString + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + Me.Close() + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBEntity.Designer.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBEntity.Designer.vb new file mode 100644 index 0000000..171876e --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBEntity.Designer.vb @@ -0,0 +1,457 @@ +Imports DigitalData.GUIs.Common.Base + + +Partial Class frmAdmin_IDBEntity + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_IDBEntity)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.TBIDB_BUSINESS_ENTITYBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() + Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() + Me.CheckEdit1 = New DevExpress.XtraEditors.CheckEdit() + Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit() + Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit6 = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit8 = New DevExpress.XtraEditors.TextEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TBIDB_BUSINESS_ENTITYTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_BUSINESS_ENTITYTableAdapter() + Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBIDB_BUSINESS_ENTITYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.labelStatus, Me.BarButtonItem3}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 5 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.Size = New System.Drawing.Size(837, 132) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Speichern und Schließen" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Speichern" + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save3 + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'labelStatus + ' + Me.labelStatus.Caption = "BarStaticItem1" + Me.labelStatus.Id = 3 + Me.labelStatus.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.about2 + Me.labelStatus.Name = "labelStatus" + Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Löschen" + Me.BarButtonItem3.Id = 4 + Me.BarButtonItem3.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.del + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Aktionen" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 463) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(837, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.TextEdit1) + Me.LayoutControl1.Controls.Add(Me.TextEdit3) + Me.LayoutControl1.Controls.Add(Me.CheckEdit1) + Me.LayoutControl1.Controls.Add(Me.TextEdit4) + Me.LayoutControl1.Controls.Add(Me.txtAddedWho) + Me.LayoutControl1.Controls.Add(Me.TextEdit6) + 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, 132) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(837, 331) + Me.LayoutControl1.TabIndex = 2 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'TextEdit1 + ' + Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "GUID", True)) + Me.TextEdit1.Location = New System.Drawing.Point(114, 20) + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Properties.ReadOnly = True + Me.TextEdit1.Size = New System.Drawing.Size(703, 20) + Me.TextEdit1.StyleController = Me.LayoutControl1 + Me.TextEdit1.TabIndex = 4 + ' + 'TBIDB_BUSINESS_ENTITYBindingSource + ' + Me.TBIDB_BUSINESS_ENTITYBindingSource.DataMember = "TBIDB_BUSINESS_ENTITY" + Me.TBIDB_BUSINESS_ENTITYBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'DSIDB_Stammdaten + ' + Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten" + Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TextEdit3 + ' + Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "TITLE", True)) + Me.TextEdit3.Location = New System.Drawing.Point(114, 60) + Me.TextEdit3.MenuManager = Me.RibbonControl1 + Me.TextEdit3.Name = "TextEdit3" + Me.TextEdit3.Size = New System.Drawing.Size(703, 20) + Me.TextEdit3.StyleController = Me.LayoutControl1 + Me.TextEdit3.TabIndex = 6 + ' + 'CheckEdit1 + ' + Me.CheckEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "INHERITS_ATTRIBUTES", True)) + Me.CheckEdit1.Location = New System.Drawing.Point(20, 140) + Me.CheckEdit1.MenuManager = Me.RibbonControl1 + Me.CheckEdit1.Name = "CheckEdit1" + Me.CheckEdit1.Properties.Caption = "Erbt Attribute der übergeordneten Entität" + Me.CheckEdit1.Size = New System.Drawing.Size(797, 20) + Me.CheckEdit1.StyleController = Me.LayoutControl1 + Me.CheckEdit1.TabIndex = 7 + ' + 'TextEdit4 + ' + Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "COMMENT", True)) + Me.TextEdit4.Location = New System.Drawing.Point(114, 100) + Me.TextEdit4.MenuManager = Me.RibbonControl1 + Me.TextEdit4.Name = "TextEdit4" + Me.TextEdit4.Size = New System.Drawing.Size(703, 20) + Me.TextEdit4.StyleController = Me.LayoutControl1 + Me.TextEdit4.TabIndex = 8 + ' + 'txtAddedWho + ' + Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "ADDED_WHO", True)) + Me.txtAddedWho.Location = New System.Drawing.Point(114, 180) + Me.txtAddedWho.MenuManager = Me.RibbonControl1 + Me.txtAddedWho.Name = "txtAddedWho" + Me.txtAddedWho.Size = New System.Drawing.Size(294, 20) + Me.txtAddedWho.StyleController = Me.LayoutControl1 + Me.txtAddedWho.TabIndex = 9 + ' + 'TextEdit6 + ' + Me.TextEdit6.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "ADDED_WHEN", True)) + Me.TextEdit6.Location = New System.Drawing.Point(522, 180) + Me.TextEdit6.MenuManager = Me.RibbonControl1 + Me.TextEdit6.Name = "TextEdit6" + Me.TextEdit6.Size = New System.Drawing.Size(295, 20) + Me.TextEdit6.StyleController = Me.LayoutControl1 + Me.TextEdit6.TabIndex = 10 + ' + 'txtChangedWho + ' + Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "CHANGED_WHO", True)) + Me.txtChangedWho.Location = New System.Drawing.Point(114, 220) + Me.txtChangedWho.MenuManager = Me.RibbonControl1 + Me.txtChangedWho.Name = "txtChangedWho" + Me.txtChangedWho.Size = New System.Drawing.Size(294, 20) + Me.txtChangedWho.StyleController = Me.LayoutControl1 + Me.txtChangedWho.TabIndex = 11 + ' + 'TextEdit8 + ' + Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_BUSINESS_ENTITYBindingSource, "CHANGED_WHEN", True)) + Me.TextEdit8.Location = New System.Drawing.Point(522, 220) + Me.TextEdit8.MenuManager = Me.RibbonControl1 + Me.TextEdit8.Name = "TextEdit8" + Me.TextEdit8.Size = New System.Drawing.Size(295, 20) + Me.TextEdit8.StyleController = Me.LayoutControl1 + Me.TextEdit8.TabIndex = 12 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem8, Me.LayoutControlItem7, Me.LayoutControlItem9}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(837, 331) + Me.Root.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.TextEdit1 + 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(817, 40) + Me.LayoutControlItem1.Text = "ID" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.TextEdit3 + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 40) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem3.Size = New System.Drawing.Size(817, 40) + Me.LayoutControlItem3.Text = "Titel" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.CheckEdit1 + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 120) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem4.Size = New System.Drawing.Size(817, 40) + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem4.TextVisible = False + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.TextEdit4 + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 80) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem5.Size = New System.Drawing.Size(817, 40) + Me.LayoutControlItem5.Text = "Kommentar" + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.txtAddedWho + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 160) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem6.Size = New System.Drawing.Size(408, 40) + Me.LayoutControlItem6.Text = "Erstellt Wer" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.txtChangedWho + Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 200) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem8.Size = New System.Drawing.Size(408, 111) + Me.LayoutControlItem8.Text = "Geändert Wer" + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.TextEdit6 + Me.LayoutControlItem7.Location = New System.Drawing.Point(408, 160) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem7.Size = New System.Drawing.Size(409, 40) + Me.LayoutControlItem7.Text = "Erstellt Wann" + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.Control = Me.TextEdit8 + Me.LayoutControlItem9.Location = New System.Drawing.Point(408, 200) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem9.Size = New System.Drawing.Size(409, 111) + Me.LayoutControlItem9.Text = "Geändert Wann" + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(82, 13) + ' + 'TBIDB_BUSINESS_ENTITYTableAdapter + ' + Me.TBIDB_BUSINESS_ENTITYTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Me.TBIDB_BUSINESS_ENTITYTableAdapter + Me.TableAdapterManager.TBIDB_CATALOG_USERTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_DOCTYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_LANGUAGETableAdapter = 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 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(837, 487) + Me.Controls.Add(Me.LayoutControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.bo_appointment + Me.Name = "frmAdmin_IDBEntity" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "IDB - Entität" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBIDB_BUSINESS_ENTITYBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit + Friend WithEvents CheckEdit1 As DevExpress.XtraEditors.CheckEdit + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem + Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten + Friend WithEvents TBIDB_BUSINESS_ENTITYBindingSource As BindingSource + Friend WithEvents TBIDB_BUSINESS_ENTITYTableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_BUSINESS_ENTITYTableAdapter + Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents TBIDB_BUSINESS_ENTITYBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator + Friend WithEvents TBIDB_BUSINESS_ENTITYBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents TextEdit4 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents txtAddedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit6 As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit8 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem +End Class diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBEntity.resx b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBEntity.resx new file mode 100644 index 0000000..f2bace3 --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBEntity.resx @@ -0,0 +1,162 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGkEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iU2F2ZUFuZENsb3NlIj4NCiAgICA8 + cGF0aCBkPSJNNiwxNlY2SDNDMi40LDYsMiw2LjQsMiw3djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYs + MCwxLTAuNCwxLTFWMTZINnogTTYsMjZ2LTZoMTZ2Nkg2eiBNMTYsNkg4djhoOFY2eiAgICBNMTIsMTJo + LTJWOGgyVjEyeiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxwYXRoIGQ9Ik0yOSwySDE5Yy0wLjUsMC0x + LDAuNS0xLDF2MTBjMCwwLjUsMC41LDEsMSwxaDEwYzAuNSwwLDEtMC41LDEtMVYzQzMwLDIuNSwyOS41 + LDIsMjksMnogTTI3LjcsMTAuNCAgIGMwLjQsMC40LDAuNCwxLDAsMS4zYy0wLjQsMC40LTEsMC40LTEu + MywwTDI0LDkuM2wtMi40LDIuNGMtMC40LDAuNC0xLDAuNC0xLjMsMGMtMC40LTAuNC0wLjQtMSwwLTEu + M0wyMi43LDhsLTIuNC0yLjQgICBjLTAuNC0wLjQtMC40LTEsMC0xLjNjMC40LTAuNCwxLTAuNCwxLjMs + MEwyNCw2LjdsMi40LTIuNGMwLjQtMC40LDEtMC40LDEuMywwYzAuNCwwLjQsMC40LDEsMCwxLjNMMjUu + Myw4TDI3LjcsMTAuNHoiIGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + 177, 17 + + + 17, 17 + + + 17, 17 + + + 443, 17 + + + 17, 56 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBEntity.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBEntity.vb new file mode 100644 index 0000000..bb7e0d8 --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBEntity.vb @@ -0,0 +1,101 @@ +Imports DigitalData.GUIs.Common +Imports DigitalData.Modules.Logging + +Public Class frmAdmin_IDBEntity + Implements IAdminForm + Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey + Public Property HasChanges As Boolean Implements IAdminForm.HasChanges + Public Property IsInsert As Boolean Implements IAdminForm.IsInsert + Private FormHelper As FormHelper + + Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.PrimaryKey = PrimaryKey + Me.IsInsert = IsInsert + FormHelper = New FormHelper(My.LogConfig, Me) + End Sub + + Private Sub frmAdmin_IDBEntity_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + TBIDB_BUSINESS_ENTITYTableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + If IsInsert Then + DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY.ADDED_WHOColumn.DefaultValue = My.Application.User.UserName + TBIDB_BUSINESS_ENTITYBindingSource.AddNew() + Else + TBIDB_BUSINESS_ENTITYTableAdapter.Fill(DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY, PrimaryKey) + End If + + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "frmAdmin_IDBEntity_Load") + End Try + End Sub + + Private Sub ResetMessages() + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End Sub + Private Sub ShowStatus(Message As String) + labelStatus.Caption = Message + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + ResetMessages() + + If SaveData() Then + Close() + End If + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + ResetMessages() + + If SaveData() And HasChanges Then + ShowStatus("Business Entity saved!") + End If + End Sub + + Public Function SaveData() As Boolean + Try + TBIDB_BUSINESS_ENTITYBindingSource.EndEdit() + + If DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY.GetChanges() IsNot Nothing Then + HasChanges = True + + If IsInsert Then + txtAddedWho.EditValue = My.Application.User.UserName + Else + txtChangedWho.EditValue = My.Application.User.UserName + End If + + TBIDB_BUSINESS_ENTITYBindingSource.EndEdit() + TBIDB_BUSINESS_ENTITYTableAdapter.Update(DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY) + End If + + Return True + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "SaveData") + Return False + End Try + End Function + + Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData + Try + TBIDB_BUSINESS_ENTITYTableAdapter.Delete(PrimaryKey) + Return True + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "DeleteData") + Return False + End Try + End Function + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + If MsgBox($"Wollen Sie die Entität [{PrimaryKey}] wirklich löschen?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then + If DeleteData() Then + Close() + End If + End If + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBObjectStore.Designer.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBObjectStore.Designer.vb new file mode 100644 index 0000000..ef831c3 --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBObjectStore.Designer.vb @@ -0,0 +1,477 @@ +Imports DigitalData.GUIs.Common.Base + + +Partial Class frmAdmin_IDBObjectStore + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_IDBObjectStore)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() + 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.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.CAT_TITLETextBox = New System.Windows.Forms.TextBox() + Me.TBIDB_CATALOGBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.TBIDB_OBJECT_STOREBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.COMMENTTextBox = New System.Windows.Forms.TextBox() + Me.IS_ARCHIVECheckBox = New System.Windows.Forms.CheckBox() + Me.CAT_IDTextBox = New System.Windows.Forms.TextBox() + Me.OBJECT_TITLETextBox = New System.Windows.Forms.TextBox() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TBIDB_OBJECT_STORETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_OBJECT_STORETableAdapter() + Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() + Me.TBIDB_CATALOGTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_CATALOGTableAdapter() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.TBIDB_CATALOGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBIDB_OBJECT_STOREBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.labelStatus}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 5 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.Size = New System.Drawing.Size(1244, 67) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Speichern und Schliessen" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Speichern" + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Löschen" + Me.BarButtonItem3.Id = 3 + Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'labelStatus + ' + Me.labelStatus.Id = 4 + Me.labelStatus.ImageOptions.SvgImage = CType(resources.GetObject("labelStatus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.labelStatus.Name = "labelStatus" + Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + 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 = "RibbonPageGroup1" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "RibbonPageGroup2" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 872) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1244, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.CAT_TITLETextBox) + Me.LayoutControl1.Controls.Add(Me.CHANGED_WHENTextBox) + Me.LayoutControl1.Controls.Add(Me.CHANGED_WHOTextBox) + Me.LayoutControl1.Controls.Add(Me.ADDED_WHENTextBox) + Me.LayoutControl1.Controls.Add(Me.ADDED_WHOTextBox) + Me.LayoutControl1.Controls.Add(Me.COMMENTTextBox) + Me.LayoutControl1.Controls.Add(Me.IS_ARCHIVECheckBox) + Me.LayoutControl1.Controls.Add(Me.CAT_IDTextBox) + Me.LayoutControl1.Controls.Add(Me.OBJECT_TITLETextBox) + Me.LayoutControl1.Controls.Add(Me.GUIDTextBox) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 67) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(1244, 805) + Me.LayoutControl1.TabIndex = 2 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'CAT_TITLETextBox + ' + Me.CAT_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_CATALOGBindingSource, "CAT_STRING", True)) + Me.CAT_TITLETextBox.Location = New System.Drawing.Point(308, 36) + Me.CAT_TITLETextBox.Name = "CAT_TITLETextBox" + Me.CAT_TITLETextBox.Size = New System.Drawing.Size(924, 20) + Me.CAT_TITLETextBox.TabIndex = 16 + ' + 'TBIDB_CATALOGBindingSource + ' + Me.TBIDB_CATALOGBindingSource.DataMember = "TBIDB_CATALOG" + Me.TBIDB_CATALOGBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'DSIDB_Stammdaten + ' + Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten" + Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_OBJECT_STOREBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(107, 156) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.ReadOnly = True + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(1125, 20) + Me.CHANGED_WHENTextBox.TabIndex = 14 + ' + 'TBIDB_OBJECT_STOREBindingSource + ' + Me.TBIDB_OBJECT_STOREBindingSource.DataMember = "TBIDB_OBJECT_STORE" + Me.TBIDB_OBJECT_STOREBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_OBJECT_STOREBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(107, 132) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.ReadOnly = True + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(1125, 20) + Me.CHANGED_WHOTextBox.TabIndex = 13 + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_OBJECT_STOREBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(107, 108) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.ReadOnly = True + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(1125, 20) + Me.ADDED_WHENTextBox.TabIndex = 12 + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_OBJECT_STOREBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(107, 84) + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.ReadOnly = True + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(1125, 20) + Me.ADDED_WHOTextBox.TabIndex = 11 + ' + 'COMMENTTextBox + ' + Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_OBJECT_STOREBindingSource, "COMMENT", True)) + Me.COMMENTTextBox.Location = New System.Drawing.Point(107, 60) + Me.COMMENTTextBox.Name = "COMMENTTextBox" + Me.COMMENTTextBox.Size = New System.Drawing.Size(1125, 20) + Me.COMMENTTextBox.TabIndex = 10 + ' + 'IS_ARCHIVECheckBox + ' + Me.IS_ARCHIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBIDB_OBJECT_STOREBindingSource, "IS_ARCHIVE", True)) + Me.IS_ARCHIVECheckBox.Location = New System.Drawing.Point(813, 12) + Me.IS_ARCHIVECheckBox.Name = "IS_ARCHIVECheckBox" + Me.IS_ARCHIVECheckBox.Size = New System.Drawing.Size(419, 20) + Me.IS_ARCHIVECheckBox.TabIndex = 9 + Me.IS_ARCHIVECheckBox.Text = "Ist Archiv?" + Me.IS_ARCHIVECheckBox.UseVisualStyleBackColor = True + ' + 'CAT_IDTextBox + ' + Me.CAT_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_OBJECT_STOREBindingSource, "CAT_ID", True)) + Me.CAT_IDTextBox.Location = New System.Drawing.Point(107, 36) + Me.CAT_IDTextBox.Name = "CAT_IDTextBox" + Me.CAT_IDTextBox.ReadOnly = True + Me.CAT_IDTextBox.Size = New System.Drawing.Size(102, 20) + Me.CAT_IDTextBox.TabIndex = 8 + ' + 'OBJECT_TITLETextBox + ' + Me.OBJECT_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_OBJECT_STOREBindingSource, "OBJECT_TITLE", True)) + Me.OBJECT_TITLETextBox.Location = New System.Drawing.Point(308, 12) + Me.OBJECT_TITLETextBox.Name = "OBJECT_TITLETextBox" + Me.OBJECT_TITLETextBox.Size = New System.Drawing.Size(501, 20) + Me.OBJECT_TITLETextBox.TabIndex = 6 + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_OBJECT_STOREBindingSource, "GUID", True)) + Me.GUIDTextBox.Location = New System.Drawing.Point(107, 12) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.Size = New System.Drawing.Size(102, 20) + Me.GUIDTextBox.TabIndex = 5 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.LayoutControlItem9, Me.LayoutControlItem10, Me.LayoutControlItem11, Me.LayoutControlItem3, Me.LayoutControlItem6, Me.LayoutControlItem5, Me.LayoutControlItem12}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(1244, 805) + Me.Root.TextVisible = False + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.GUIDTextBox + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Size = New System.Drawing.Size(201, 24) + Me.LayoutControlItem2.Text = "ID:" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(83, 13) + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.COMMENTTextBox + Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 48) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Size = New System.Drawing.Size(1224, 24) + Me.LayoutControlItem7.Text = "Kommentar:" + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(83, 13) + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.ADDED_WHOTextBox + Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 72) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Size = New System.Drawing.Size(1224, 24) + Me.LayoutControlItem8.Text = "Erstellt wer:" + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(83, 13) + ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.Control = Me.ADDED_WHENTextBox + Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 96) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Size = New System.Drawing.Size(1224, 24) + Me.LayoutControlItem9.Text = "Erstellt wann:" + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(83, 13) + ' + 'LayoutControlItem10 + ' + Me.LayoutControlItem10.Control = Me.CHANGED_WHOTextBox + Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 120) + Me.LayoutControlItem10.Name = "LayoutControlItem10" + Me.LayoutControlItem10.Size = New System.Drawing.Size(1224, 24) + Me.LayoutControlItem10.Text = "Geändert wer:" + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(83, 13) + ' + 'LayoutControlItem11 + ' + Me.LayoutControlItem11.Control = Me.CHANGED_WHENTextBox + Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 144) + Me.LayoutControlItem11.Name = "LayoutControlItem11" + Me.LayoutControlItem11.Size = New System.Drawing.Size(1224, 641) + Me.LayoutControlItem11.Text = "Geändert wann:" + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(83, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.OBJECT_TITLETextBox + Me.LayoutControlItem3.Location = New System.Drawing.Point(201, 0) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Size = New System.Drawing.Size(600, 24) + Me.LayoutControlItem3.Text = "Bezeichnung:" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(83, 13) + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.IS_ARCHIVECheckBox + Me.LayoutControlItem6.Location = New System.Drawing.Point(801, 0) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Size = New System.Drawing.Size(423, 24) + Me.LayoutControlItem6.Text = "IS ARCHIVE:" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem6.TextVisible = False + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.CAT_IDTextBox + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 24) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Size = New System.Drawing.Size(201, 24) + Me.LayoutControlItem5.Text = "Pfad-ID:" + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(83, 13) + ' + 'LayoutControlItem12 + ' + Me.LayoutControlItem12.Control = Me.CAT_TITLETextBox + Me.LayoutControlItem12.Location = New System.Drawing.Point(201, 24) + Me.LayoutControlItem12.Name = "LayoutControlItem12" + Me.LayoutControlItem12.Size = New System.Drawing.Size(1023, 24) + Me.LayoutControlItem12.Text = "Pfad:" + Me.LayoutControlItem12.TextSize = New System.Drawing.Size(83, 13) + ' + 'TBIDB_OBJECT_STORETableAdapter + ' + Me.TBIDB_OBJECT_STORETableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + 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_DOCTYPE_HANDLINGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Me.TBIDB_OBJECT_STORETableAdapter + 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_CATALOGTableAdapter + ' + Me.TBIDB_CATALOGTableAdapter.ClearBeforeFill = True + ' + 'frmAdmin_IDBObjectStore + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1244, 894) + Me.Controls.Add(Me.LayoutControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmAdmin_IDBObjectStore" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "frmAdmin_IDBObjectStore" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.TBIDB_CATALOGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBIDB_OBJECT_STOREBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten + Friend WithEvents TBIDB_OBJECT_STOREBindingSource As BindingSource + Friend WithEvents TBIDB_OBJECT_STORETableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_OBJECT_STORETableAdapter + Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents CHANGED_WHENTextBox As TextBox + Friend WithEvents CHANGED_WHOTextBox As TextBox + Friend WithEvents ADDED_WHENTextBox As TextBox + Friend WithEvents ADDED_WHOTextBox As TextBox + Friend WithEvents COMMENTTextBox As TextBox + Friend WithEvents IS_ARCHIVECheckBox As CheckBox + Friend WithEvents CAT_IDTextBox As TextBox + Friend WithEvents OBJECT_TITLETextBox As TextBox + Friend WithEvents GUIDTextBox As TextBox + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TBIDB_CATALOGBindingSource As BindingSource + Friend WithEvents TBIDB_CATALOGTableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_CATALOGTableAdapter + Friend WithEvents CAT_TITLETextBox As TextBox + Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem +End Class diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBObjectStore.resx b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBObjectStore.resx new file mode 100644 index 0000000..a03c9c5 --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBObjectStore.resx @@ -0,0 +1,217 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrIj4NCiAgICA8cG9seWdvbiBwb2ludHM9IjI3 + LDUgMTEsMjEgNSwxNSAyLDE4IDExLDI3IDMwLDggICIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8 + L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iU2F2ZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5 + bGU+DQogIDxwYXRoIGQ9Ik0yNyw0aC0zdjEwSDhWNEg1QzQuNCw0LDQsNC40LDQsNXYyMmMwLDAuNiww + LjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjVDMjgsNC40LDI3LjYsNCwyNyw0eiBNMjQsMjRIOHYt + NiAgaDE2VjI0eiBNMTAsNHY4aDEwVjRIMTB6IE0xNCwxMGgtMlY2aDJWMTB6IiBjbGFzcz0iQmxhY2si + IC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAD0DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRGVsZXRlIj4N + CiAgICA8Zz4NCiAgICAgIDxwYXRoIGQ9Ik0xOC44LDE2bDYuOS02LjljMC40LTAuNCwwLjQtMSwwLTEu + NGwtMS40LTEuNGMtMC40LTAuNC0xLTAuNC0xLjQsMEwxNiwxMy4yTDkuMSw2LjNjLTAuNC0wLjQtMS0w + LjQtMS40LDAgICAgTDYuMyw3LjdjLTAuNCwwLjQtMC40LDEsMCwxLjRsNi45LDYuOWwtNi45LDYuOWMt + MC40LDAuNC0wLjQsMSwwLDEuNGwxLjQsMS40YzAuNCwwLjQsMSwwLjQsMS40LDBsNi45LTYuOWw2Ljks + Ni45ICAgIGMwLjQsMC40LDEsMC40LDEuNCwwbDEuNC0xLjRjMC40LTAuNCwwLjQtMSwwLTEuNEwxOC44 + LDE2eiIgY2xhc3M9IlJlZCIgLz4NCiAgICA8L2c+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9 + Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs + MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs + NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg + PC9nPg0KPC9zdmc+Cw== + + + + 845, 17 + + + 17, 17 + + + 177, 17 + + + 427, 17 + + + 672, 17 + + + 17, 56 + + + 266 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBObjectStore.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBObjectStore.vb new file mode 100644 index 0000000..1134011 --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBObjectStore.vb @@ -0,0 +1,112 @@ +Imports DigitalData.GUIs.Common + +Public Class frmAdmin_IDBObjectStore + Implements IAdminForm + + Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey + + + Public Property HasChanges As Boolean Implements IAdminForm.HasChanges + + Private FormHelper As FormHelper + + Public Property IsInsert As Boolean Implements IAdminForm.IsInsert + Dim oStorePath As String = String.Empty + + Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData + Throw New NotImplementedException() + End Function + Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.PrimaryKey = PrimaryKey + Me.IsInsert = IsInsert + FormHelper = New FormHelper(My.LogConfig, Me) + End Sub + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + + End Sub + + + + Private Sub frmAdmin_IDBObjectStore_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Me.TBIDB_OBJECT_STORETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + Me.TBIDB_CATALOGTableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + Me.TBIDB_OBJECT_STORETableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_OBJECT_STORE) + If IsInsert Then + TBIDB_OBJECT_STOREBindingSource.AddNew() + ADDED_WHOTextBox.Text = My.Application.User.UserName + Else + If CAT_IDTextBox.Text <> String.Empty Then + Me.TBIDB_CATALOGTableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_CATALOG, CType(CAT_IDTextBox.Text, Integer)) + oStorePath = CAT_TITLETextBox.Text + End If + End If + + + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + ResetMessages() + + If SaveData() Then + Close() + End If + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + ResetMessages() + + If SaveData() And HasChanges Then + ShowStatus("ObjectStore gespeichert!") + End If + End Sub + Private Sub ResetMessages() + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End Sub + + Private Sub ShowStatus(Message As String) + labelStatus.Caption = Message + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End Sub + Public Function SaveData() As Boolean + Try + TBIDB_OBJECT_STOREBindingSource.EndEdit() + + If DSIDB_Stammdaten.TBIDB_OBJECT_STORE.GetChanges() IsNot Nothing Then + HasChanges = True + + If IsInsert Then + Dim oSQL = $"INSERT INTO TBIDB_CATALOG (CAT_TITLE, CAT_STRING, ADDED_WHO) VALUES ('FILESTORE_' + '{OBJECT_TITLETextBox.Text}','{CAT_TITLETextBox.Text}','{My.Application.User.UserName}')" + If My.DatabaseIDB.ExecuteNonQuery(oSQL) Then + Dim oID = $"SELECT GUID FROM TBIDB_CATALOG WHERE CAT_TITLE = 'FILESTORE_' + '{OBJECT_TITLETextBox.Text}'" + oID = My.DatabaseIDB.GetScalarValue(oID) + CAT_IDTextBox.Text = oID + TBIDB_OBJECT_STOREBindingSource.EndEdit() + End If + + Else + If oStorePath <> CAT_TITLETextBox.Text Then + Dim oSQL = $"UPDATE TBIDB_CATALOG SET CAT_TITLE = 'FILESTORE_' & '{OBJECT_TITLETextBox.Text}', CAT_STRING = {CAT_TITLETextBox.Text}, ADDED_WHO = '{My.Application.User.UserName}'" & + $"WHERE (GUID = {CAT_IDTextBox.Text})" + My.DatabaseIDB.ExecuteNonQuery(oSQL) + End If + CHANGED_WHOTextBox.Text = My.Application.User.UserName + End If + + TBIDB_OBJECT_STOREBindingSource.EndEdit() + + ' TODO: Update Database + TBIDB_OBJECT_STORETableAdapter.Update(DSIDB_Stammdaten.TBIDB_OBJECT_STORE) + End If + + Return True + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "SaveData") + Return False + End Try + End Function +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/IDB/frmIDBCommonSQL.Designer.vb b/GUIs.ZooFlow/Administration/IDB/frmIDBCommonSQL.Designer.vb new file mode 100644 index 0000000..0245d21 --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmIDBCommonSQL.Designer.vb @@ -0,0 +1,463 @@ + _ +Partial Class frmIDBCommonSQL + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmIDBCommonSQL)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.bsiStatus = New DevExpress.XtraBars.BarStaticItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.TBIDB_COMMON_SQLBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.SQL_COMMANDTextBox = New System.Windows.Forms.TextBox() + Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox() + Me.TITLETextBox = New System.Windows.Forms.TextBox() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.TBIDB_COMMON_SQLTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_COMMON_SQLTableAdapter() + Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBIDB_COMMON_SQLBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem2, Me.BarButtonItem3, Me.bsiStatus}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 5 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.Size = New System.Drawing.Size(1059, 158) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Abbrechen und schliessen" + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Speichern" + Me.BarButtonItem3.Id = 3 + Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'bsiStatus + ' + Me.bsiStatus.Caption = "BarStaticItem1" + Me.bsiStatus.Id = 4 + Me.bsiStatus.Name = "bsiStatus" + Me.bsiStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Start" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiStatus) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 453) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1059, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'ListBox1 + ' + Me.ListBox1.DataSource = Me.TBIDB_COMMON_SQLBindingSource + Me.ListBox1.DisplayMember = "TITLE" + Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Left + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.Location = New System.Drawing.Point(0, 158) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(247, 295) + Me.ListBox1.TabIndex = 2 + Me.ListBox1.ValueMember = "GUID" + ' + 'TBIDB_COMMON_SQLBindingSource + ' + Me.TBIDB_COMMON_SQLBindingSource.DataMember = "TBIDB_COMMON_SQL" + Me.TBIDB_COMMON_SQLBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'DSIDB_Stammdaten + ' + Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten" + Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.CHANGED_WHENTextBox) + Me.LayoutControl1.Controls.Add(Me.CHANGED_WHOTextBox) + Me.LayoutControl1.Controls.Add(Me.SimpleButton1) + Me.LayoutControl1.Controls.Add(Me.SQL_COMMANDTextBox) + Me.LayoutControl1.Controls.Add(Me.ACTIVECheckBox) + Me.LayoutControl1.Controls.Add(Me.TITLETextBox) + Me.LayoutControl1.Controls.Add(Me.GUIDTextBox) + Me.LayoutControl1.Controls.Add(Me.LabelControl1) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(247, 158) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(812, 295) + Me.LayoutControl1.TabIndex = 5 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_COMMON_SQLBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(103, 232) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(694, 20) + Me.CHANGED_WHENTextBox.TabIndex = 12 + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_COMMON_SQLBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(103, 202) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(694, 20) + Me.CHANGED_WHOTextBox.TabIndex = 11 + ' + 'SimpleButton1 + ' + Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, 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(12, 149) + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.Padding = New System.Windows.Forms.Padding(5) + Me.SimpleButton1.Size = New System.Drawing.Size(788, 46) + Me.SimpleButton1.StyleController = Me.LayoutControl1 + Me.SimpleButton1.TabIndex = 10 + Me.SimpleButton1.Text = "SQL Designer" + ' + 'SQL_COMMANDTextBox + ' + Me.SQL_COMMANDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_COMMON_SQLBindingSource, "SQL_COMMAND", True)) + Me.SQL_COMMANDTextBox.Location = New System.Drawing.Point(103, 122) + Me.SQL_COMMANDTextBox.Name = "SQL_COMMANDTextBox" + Me.SQL_COMMANDTextBox.Size = New System.Drawing.Size(694, 20) + Me.SQL_COMMANDTextBox.TabIndex = 9 + ' + 'ACTIVECheckBox + ' + Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBIDB_COMMON_SQLBindingSource, "ACTIVE", True)) + Me.ACTIVECheckBox.Location = New System.Drawing.Point(12, 95) + Me.ACTIVECheckBox.Name = "ACTIVECheckBox" + Me.ACTIVECheckBox.Size = New System.Drawing.Size(788, 20) + Me.ACTIVECheckBox.TabIndex = 8 + Me.ACTIVECheckBox.Text = "Aktiv" + Me.ACTIVECheckBox.UseVisualStyleBackColor = True + ' + 'TITLETextBox + ' + Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_COMMON_SQLBindingSource, "TITLE", True)) + Me.TITLETextBox.Enabled = False + Me.TITLETextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TITLETextBox.Location = New System.Drawing.Point(244, 68) + Me.TITLETextBox.Name = "TITLETextBox" + Me.TITLETextBox.Size = New System.Drawing.Size(553, 20) + Me.TITLETextBox.TabIndex = 7 + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_COMMON_SQLBindingSource, "GUID", True)) + Me.GUIDTextBox.Location = New System.Drawing.Point(103, 68) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.Size = New System.Drawing.Size(43, 20) + Me.GUIDTextBox.TabIndex = 6 + ' + 'LabelControl1 + ' + Me.LabelControl1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LabelControl1.Appearance.Options.UseFont = True + Me.LabelControl1.Location = New System.Drawing.Point(12, 12) + Me.LabelControl1.Name = "LabelControl1" + Me.LabelControl1.Size = New System.Drawing.Size(547, 17) + Me.LabelControl1.StyleController = Me.LayoutControl1 + Me.LabelControl1.TabIndex = 4 + Me.LabelControl1.Text = "Diese SQL-Befehle sind systemrelevanter Art und sollten nur bewusst angepasst wer" & + "den." + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.EmptySpaceItem1, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem2, Me.LayoutControlItem8, Me.LayoutControlItem9, Me.EmptySpaceItem2}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(812, 295) + Me.Root.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.LabelControl1 + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Size = New System.Drawing.Size(792, 21) + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem1.TextVisible = False + ' + 'EmptySpaceItem1 + ' + Me.EmptySpaceItem1.AllowHotTrack = False + Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 247) + Me.EmptySpaceItem1.Name = "EmptySpaceItem1" + Me.EmptySpaceItem1.Size = New System.Drawing.Size(792, 28) + Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem3.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem3.Control = Me.GUIDTextBox + Me.LayoutControlItem3.Enabled = False + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 53) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(141, 30) + Me.LayoutControlItem3.Text = "ID:" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(76, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem4.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem4.Control = Me.TITLETextBox + Me.LayoutControlItem4.Enabled = False + Me.LayoutControlItem4.Location = New System.Drawing.Point(141, 53) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem4.Size = New System.Drawing.Size(651, 30) + Me.LayoutControlItem4.Text = "Titel:" + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(76, 13) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.ACTIVECheckBox + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 83) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Size = New System.Drawing.Size(792, 24) + Me.LayoutControlItem5.Text = "ACTIVE:" + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem5.TextVisible = False + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem6.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem6.Control = Me.SQL_COMMANDTextBox + Me.LayoutControlItem6.Enabled = False + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 107) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem6.Size = New System.Drawing.Size(792, 30) + Me.LayoutControlItem6.Text = "SQL Command:" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(76, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.SimpleButton1 + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 137) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Size = New System.Drawing.Size(792, 50) + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem2.TextVisible = False + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem8.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem8.Control = Me.CHANGED_WHOTextBox + Me.LayoutControlItem8.Enabled = False + Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 187) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem8.Size = New System.Drawing.Size(792, 30) + Me.LayoutControlItem8.Text = "Geändert wer:" + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(76, 13) + ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem9.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem9.Control = Me.CHANGED_WHENTextBox + Me.LayoutControlItem9.Enabled = False + Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 217) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem9.Size = New System.Drawing.Size(792, 30) + Me.LayoutControlItem9.Text = "Geändert wann:" + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(76, 13) + ' + 'EmptySpaceItem2 + ' + Me.EmptySpaceItem2.AllowHotTrack = False + Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 21) + Me.EmptySpaceItem2.Name = "EmptySpaceItem2" + Me.EmptySpaceItem2.Size = New System.Drawing.Size(792, 32) + Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0) + ' + 'TBIDB_COMMON_SQLTableAdapter + ' + Me.TBIDB_COMMON_SQLTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOG_USERTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_COMMON_SQLTableAdapter = Me.TBIDB_COMMON_SQLTableAdapter + Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_DOCTYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_LANGUAGETableAdapter = 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 + ' + 'frmIDBCommonSQL + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1059, 477) + Me.Controls.Add(Me.LayoutControl1) + Me.Controls.Add(Me.ListBox1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmIDBCommonSQL" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "System SQLs IDB" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBIDB_COMMON_SQLBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bsiStatus As DevExpress.XtraBars.BarStaticItem + Friend WithEvents ListBox1 As ListBox + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten + Friend WithEvents TBIDB_COMMON_SQLBindingSource As BindingSource + Friend WithEvents TBIDB_COMMON_SQLTableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_COMMON_SQLTableAdapter + Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents CHANGED_WHENTextBox As TextBox + Friend WithEvents CHANGED_WHOTextBox As TextBox + Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents SQL_COMMANDTextBox As TextBox + Friend WithEvents ACTIVECheckBox As CheckBox + Friend WithEvents TITLETextBox As TextBox + Friend WithEvents GUIDTextBox As TextBox + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem2 As DevExpress.XtraLayout.EmptySpaceItem +End Class diff --git a/GUIs.ZooFlow/Administration/IDB/frmIDBCommonSQL.resx b/GUIs.ZooFlow/Administration/IDB/frmIDBCommonSQL.resx new file mode 100644 index 0000000..fbf4bf5 --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmIDBCommonSQL.resx @@ -0,0 +1,192 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJIZWFkZXJBbmRGb290ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dy + b3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDoj + RDExQzFDO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRINUM0LjUsNCw0LDQuNSw0LDV2MjJjMCww + LjUsMC41LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVY1QzI4LDQuNSwyNy41LDQsMjcsNHogTTIyLDIw + bC0yLDJsLTQtNGwtNCw0ICBsLTItMmw0LTRsLTQtNGwyLTJsNCw0bDQtNGwyLDJsLTQsNEwyMiwyMHoi + IGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzczNzM3NDt9Cgku + WWVsbG93e2ZpbGw6I0ZDQjAxQjt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5CbHVle2ZpbGw6IzM4 + N0NCNzt9CgkuUmVke2ZpbGw6I0QwMjEyNzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tk + aXNwbGF5Om5vbmU7ZmlsbDojNzM3Mzc0O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRoLTN2MTBI + OFY0SDVDNC40LDQsNCw0LjQsNCw1djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTFW + NUMyOCw0LjQsMjcuNiw0LDI3LDR6IE0yNCwyNEg4di02ICBoMTZWMjR6IE0xMCw0djhoMTBWNEgxMHog + TTE0LDEwaC0yVjZoMlYxMHoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs= + + + + 177, 17 + + + 17, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOwDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku + QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC + MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRWRpdERhdGFT + b3VyY2UiPg0KICAgIDxwYXRoIGQ9Ik00LDEwVjZjMC0yLjIsNC41LTQsMTAtNHMxMCwxLjgsMTAsNHY0 + YzAsMi4yLTQuNSw0LTEwLDRTNCwxMi4yLDQsMTB6IE0yNCwxOEwyNCwxOEMyNCwxOCwyNCwxOCwyNCwx + OCAgIEMyNCwxOCwyNCwxOCwyNCwxOHogTTE0LDIwYzUuNSwwLDEwLTEuOCwxMC00di00YzAsMi4yLTQu + NSw0LTEwLDRTNCwxNC4yLDQsMTJ2NEM0LDE4LjIsOC41LDIwLDE0LDIweiBNMTUuMiwyNmw0LjgtNC44 + ICAgYy0xLjcsMC41LTMuNywwLjgtNiwwLjhjLTUuNSwwLTEwLTEuOC0xMC00djRjMCwyLjIsNC41LDQs + MTAsNEMxNC40LDI2LDE0LjgsMjYsMTUuMiwyNnoiIGNsYXNzPSJZZWxsb3ciIC8+DQogICAgPHBhdGgg + ZD0iTTI5LDIzbC04LDhsLTQtNGw4LThMMjksMjN6IE0zMCwyMmwxLjctMS43YzAuNC0wLjQsMC40LTEs + MC0xLjNMMjksMTYuM2MtMC40LTAuNC0xLTAuNC0xLjMsMEwyNiwxOEwzMCwyMnogICAgTTE2LDI4djRo + NEwxNiwyOHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + 430, 17 + + + 677, 17 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/IDB/frmIDBCommonSQL.vb b/GUIs.ZooFlow/Administration/IDB/frmIDBCommonSQL.vb new file mode 100644 index 0000000..847ad4b --- /dev/null +++ b/GUIs.ZooFlow/Administration/IDB/frmIDBCommonSQL.vb @@ -0,0 +1,70 @@ +Imports DigitalData.GUIs.Common + +Public Class frmIDBCommonSQL + Private Sub TBIDB_COMMON_SQLBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Me.Validate() + Me.TBIDB_COMMON_SQLBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DSIDB_Stammdaten) + + End Sub + + Private Sub frmIDBCommonSQL_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + Me.TBIDB_COMMON_SQLTableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + Me.TBIDB_COMMON_SQLTableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_COMMON_SQL) + Catch ex As Exception + + End Try + + + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + Me.Close() + End Sub + Private Function SaveSQL() As Boolean + Try + TBIDB_COMMON_SQLBindingSource.EndEdit() + If DSIDB_Stammdaten.TBIDB_COMMON_SQL.GetChanges() IsNot Nothing Then + CHANGED_WHOTextBox.Text = My.Application.User.UserName + TBIDB_COMMON_SQLBindingSource.EndEdit() + TBIDB_COMMON_SQLTableAdapter.Update(DSIDB_Stammdaten.TBIDB_COMMON_SQL) + End If + + ShowStatus("SQL-Command saved", Color.DodgerBlue) + Return True + Catch ex As Exception + ShowStatus($"Error saving SQL-Command {ex.Message} - {Now.ToString}", Color.Red) + Return False + End Try + End Function + Private Sub ShowStatus(Message As String, ocolor As Color) + bsiStatus.Caption = $"{Message} - {Now.ToString}" + bsiStatus.ItemAppearance.Normal.BackColor = ocolor + bsiStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End Sub + + Private Sub TBIDB_COMMON_SQLBindingSource_PositionChanged(sender As Object, e As EventArgs) Handles TBIDB_COMMON_SQLBindingSource.PositionChanged + bsiStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End Sub + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + SaveSQL() + End Sub + + Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click + Dim oSQLbefore = SQL_COMMANDTextBox.Text + Dim oForm2 As New frmSQLEditor(My.LogConfig, My.DatabaseECM) With { + .SQLCommand = SQL_COMMANDTextBox.Text, + .SQLConnection = 2 + } + oForm2.ShowDialog() + + If oForm2.DialogResult = DialogResult.OK And oSQLbefore <> oForm2.SQLCommand Then + SQL_COMMANDTextBox.Text = oForm2.SQLCommand + 'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@SQL_RESULT").Value = oForm.SQLCommand + 'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@CONNECTION_ID").Value = oForm.ConnectionID + CHANGED_WHOTextBox.Text = My.Application.User.UserName + End If + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/Users/frmAdmin_User.Designer.vb b/GUIs.ZooFlow/Administration/Users/frmAdmin_User.Designer.vb new file mode 100644 index 0000000..d37f553 --- /dev/null +++ b/GUIs.ZooFlow/Administration/Users/frmAdmin_User.Designer.vb @@ -0,0 +1,539 @@ + +Partial Class frmAdmin_User + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.txtStatus = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.DSDD_Stammdaten = New DigitalData.GUIs.ZooFlow.DSDD_Stammdaten() + Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBDD_USERTableAdapter = New DigitalData.GUIs.ZooFlow.DSDD_StammdatenTableAdapters.TBDD_USERTableAdapter() + Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSDD_StammdatenTableAdapters.TableAdapterManager() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit6 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit7 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit8 = New DevExpress.XtraEditors.TextEdit() + Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit61 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit81 = New DevExpress.XtraEditors.TextEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSDD_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit61.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit81.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem2, Me.BarButtonItem3, Me.txtStatus}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 5 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.Size = New System.Drawing.Size(639, 63) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Speichern" + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save9 + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Löschen" + Me.BarButtonItem3.Id = 3 + Me.BarButtonItem3.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.delete1 + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'txtStatus + ' + Me.txtStatus.Caption = "Status" + Me.txtStatus.Id = 4 + Me.txtStatus.Name = "txtStatus" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.txtStatus) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 406) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(639, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'DSDD_Stammdaten + ' + Me.DSDD_Stammdaten.DataSetName = "DSDD_Stammdaten" + Me.DSDD_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBDD_USERBindingSource + ' + Me.TBDD_USERBindingSource.DataMember = "TBDD_USER" + Me.TBDD_USERBindingSource.DataSource = Me.DSDD_Stammdaten + ' + 'TBDD_USERTableAdapter + ' + Me.TBDD_USERTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Me.TBDD_USERTableAdapter + Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSDD_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.TextEdit1) + Me.LayoutControl1.Controls.Add(Me.TextEdit2) + Me.LayoutControl1.Controls.Add(Me.TextEdit3) + Me.LayoutControl1.Controls.Add(Me.TextEdit4) + Me.LayoutControl1.Controls.Add(Me.TextEdit5) + Me.LayoutControl1.Controls.Add(Me.TextEdit6) + Me.LayoutControl1.Controls.Add(Me.TextEdit7) + Me.LayoutControl1.Controls.Add(Me.TextEdit8) + Me.LayoutControl1.Controls.Add(Me.txtAddedWho) + Me.LayoutControl1.Controls.Add(Me.txtChangedWho) + Me.LayoutControl1.Controls.Add(Me.TextEdit61) + Me.LayoutControl1.Controls.Add(Me.TextEdit81) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 63) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(688, 133, 1038, 537) + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(639, 343) + Me.LayoutControl1.TabIndex = 2 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'TextEdit1 + ' + Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "GUID", True)) + Me.TextEdit1.Location = New System.Drawing.Point(114, 20) + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Size = New System.Drawing.Size(505, 20) + Me.TextEdit1.StyleController = Me.LayoutControl1 + Me.TextEdit1.TabIndex = 4 + ' + 'TextEdit2 + ' + Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "USERNAME", True)) + Me.TextEdit2.Location = New System.Drawing.Point(114, 60) + Me.TextEdit2.MenuManager = Me.RibbonControl1 + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.Size = New System.Drawing.Size(195, 20) + Me.TextEdit2.StyleController = Me.LayoutControl1 + Me.TextEdit2.TabIndex = 5 + ' + 'TextEdit3 + ' + Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "PRENAME", True)) + Me.TextEdit3.Location = New System.Drawing.Point(114, 100) + Me.TextEdit3.MenuManager = Me.RibbonControl1 + Me.TextEdit3.Name = "TextEdit3" + Me.TextEdit3.Size = New System.Drawing.Size(195, 20) + Me.TextEdit3.StyleController = Me.LayoutControl1 + Me.TextEdit3.TabIndex = 6 + ' + 'TextEdit4 + ' + Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "NAME", True)) + Me.TextEdit4.Location = New System.Drawing.Point(423, 100) + Me.TextEdit4.MenuManager = Me.RibbonControl1 + Me.TextEdit4.Name = "TextEdit4" + Me.TextEdit4.Size = New System.Drawing.Size(196, 20) + Me.TextEdit4.StyleController = Me.LayoutControl1 + Me.TextEdit4.TabIndex = 7 + ' + 'TextEdit5 + ' + Me.TextEdit5.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "SHORTNAME", True)) + Me.TextEdit5.Location = New System.Drawing.Point(423, 60) + Me.TextEdit5.MenuManager = Me.RibbonControl1 + Me.TextEdit5.Name = "TextEdit5" + Me.TextEdit5.Size = New System.Drawing.Size(196, 20) + Me.TextEdit5.StyleController = Me.LayoutControl1 + Me.TextEdit5.TabIndex = 8 + ' + 'TextEdit6 + ' + Me.TextEdit6.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "EMAIL", True)) + Me.TextEdit6.Location = New System.Drawing.Point(114, 140) + Me.TextEdit6.MenuManager = Me.RibbonControl1 + Me.TextEdit6.Name = "TextEdit6" + Me.TextEdit6.Size = New System.Drawing.Size(505, 20) + Me.TextEdit6.StyleController = Me.LayoutControl1 + Me.TextEdit6.TabIndex = 9 + ' + 'TextEdit7 + ' + Me.TextEdit7.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "LANGUAGE", True)) + Me.TextEdit7.Location = New System.Drawing.Point(114, 180) + Me.TextEdit7.MenuManager = Me.RibbonControl1 + Me.TextEdit7.Name = "TextEdit7" + Me.TextEdit7.Size = New System.Drawing.Size(195, 20) + Me.TextEdit7.StyleController = Me.LayoutControl1 + Me.TextEdit7.TabIndex = 10 + ' + 'TextEdit8 + ' + Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_USERBindingSource, "DATE_FORMAT", True)) + Me.TextEdit8.Location = New System.Drawing.Point(423, 180) + Me.TextEdit8.MenuManager = Me.RibbonControl1 + Me.TextEdit8.Name = "TextEdit8" + Me.TextEdit8.Size = New System.Drawing.Size(196, 20) + Me.TextEdit8.StyleController = Me.LayoutControl1 + Me.TextEdit8.TabIndex = 11 + ' + 'txtAddedWho + ' + Me.txtAddedWho.Location = New System.Drawing.Point(114, 220) + Me.txtAddedWho.Name = "txtAddedWho" + Me.txtAddedWho.Size = New System.Drawing.Size(195, 20) + Me.txtAddedWho.StyleController = Me.LayoutControl1 + Me.txtAddedWho.TabIndex = 9 + ' + 'txtChangedWho + ' + Me.txtChangedWho.Location = New System.Drawing.Point(114, 260) + Me.txtChangedWho.Name = "txtChangedWho" + Me.txtChangedWho.Size = New System.Drawing.Size(195, 20) + Me.txtChangedWho.StyleController = Me.LayoutControl1 + Me.txtChangedWho.TabIndex = 11 + ' + 'TextEdit61 + ' + Me.TextEdit61.Location = New System.Drawing.Point(423, 220) + Me.TextEdit61.Name = "TextEdit61" + Me.TextEdit61.Size = New System.Drawing.Size(196, 20) + Me.TextEdit61.StyleController = Me.LayoutControl1 + Me.TextEdit61.TabIndex = 10 + ' + 'TextEdit81 + ' + Me.TextEdit81.Location = New System.Drawing.Point(423, 260) + Me.TextEdit81.Name = "TextEdit81" + Me.TextEdit81.Size = New System.Drawing.Size(196, 20) + Me.TextEdit81.StyleController = Me.LayoutControl1 + Me.TextEdit81.TabIndex = 12 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem9, Me.LayoutControlItem10, Me.LayoutControlItem11, Me.LayoutControlItem12, Me.LayoutControlItem5, Me.LayoutControlItem4, Me.LayoutControlItem8}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(639, 343) + Me.Root.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.TextEdit1 + Me.LayoutControlItem1.Enabled = False + 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(619, 40) + Me.LayoutControlItem1.Text = "ID" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.TextEdit2 + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 40) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem2.Size = New System.Drawing.Size(309, 40) + Me.LayoutControlItem2.Text = "Benutzername" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.TextEdit3 + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 80) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem3.Size = New System.Drawing.Size(309, 40) + Me.LayoutControlItem3.Text = "Vorname" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.TextEdit6 + 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(619, 40) + Me.LayoutControlItem6.Text = "Email Adresse" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.TextEdit7 + Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 160) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem7.Size = New System.Drawing.Size(309, 40) + Me.LayoutControlItem7.Text = "Sprache" + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.Control = Me.txtAddedWho + Me.LayoutControlItem9.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem9.CustomizationFormText = "Erstellt Wer" + Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 200) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem9.Size = New System.Drawing.Size(309, 40) + Me.LayoutControlItem9.Text = "Erstellt Wer" + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem10 + ' + Me.LayoutControlItem10.Control = Me.txtChangedWho + Me.LayoutControlItem10.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem10.CustomizationFormText = "Geändert Wer" + Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 240) + Me.LayoutControlItem10.Name = "LayoutControlItem10" + Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem10.Size = New System.Drawing.Size(309, 83) + Me.LayoutControlItem10.Text = "Geändert Wer" + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem11 + ' + Me.LayoutControlItem11.Control = Me.TextEdit61 + Me.LayoutControlItem11.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem11.CustomizationFormText = "Erstellt Wann" + Me.LayoutControlItem11.Location = New System.Drawing.Point(309, 200) + Me.LayoutControlItem11.Name = "LayoutControlItem11" + Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem11.Size = New System.Drawing.Size(310, 40) + Me.LayoutControlItem11.Text = "Erstellt Wann" + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem12 + ' + Me.LayoutControlItem12.Control = Me.TextEdit81 + Me.LayoutControlItem12.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem12.CustomizationFormText = "Geändert Wann" + Me.LayoutControlItem12.Location = New System.Drawing.Point(309, 240) + Me.LayoutControlItem12.Name = "LayoutControlItem12" + Me.LayoutControlItem12.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem12.Size = New System.Drawing.Size(310, 83) + Me.LayoutControlItem12.Text = "Geändert Wann" + Me.LayoutControlItem12.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.TextEdit5 + Me.LayoutControlItem5.Location = New System.Drawing.Point(309, 40) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem5.Size = New System.Drawing.Size(310, 40) + Me.LayoutControlItem5.Text = "Kurzname" + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.TextEdit4 + Me.LayoutControlItem4.Location = New System.Drawing.Point(309, 80) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem4.Size = New System.Drawing.Size(310, 40) + Me.LayoutControlItem4.Text = "Nachname" + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.TextEdit8 + Me.LayoutControlItem8.Location = New System.Drawing.Point(309, 160) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem8.Size = New System.Drawing.Size(310, 40) + Me.LayoutControlItem8.Text = "Datumsformat" + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(82, 13) + ' + 'frmAdmin_User + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(639, 430) + Me.Controls.Add(Me.LayoutControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_user + Me.KeyPreview = True + Me.Name = "frmAdmin_User" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Benutzer bearbeiten - Zooflow" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSDD_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit61.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit81.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents DSDD_Stammdaten As DSDD_Stammdaten + Friend WithEvents TBDD_USERBindingSource As BindingSource + Friend WithEvents TBDD_USERTableAdapter As DSDD_StammdatenTableAdapters.TBDD_USERTableAdapter + Friend WithEvents TableAdapterManager As DSDD_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit4 As DevExpress.XtraEditors.TextEdit + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents TextEdit5 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit6 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TextEdit7 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit8 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents txtAddedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit61 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit81 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents txtStatus As DevExpress.XtraBars.BarButtonItem +End Class diff --git a/GUIs.ZooFlow/Administration/Users/frmAdmin_User.resx b/GUIs.ZooFlow/Administration/Users/frmAdmin_User.resx new file mode 100644 index 0000000..4dd152b --- /dev/null +++ b/GUIs.ZooFlow/Administration/Users/frmAdmin_User.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 176, 17 + + + 371, 17 + + + 560, 17 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/Users/frmAdmin_User.vb b/GUIs.ZooFlow/Administration/Users/frmAdmin_User.vb new file mode 100644 index 0000000..f05d9f1 --- /dev/null +++ b/GUIs.ZooFlow/Administration/Users/frmAdmin_User.vb @@ -0,0 +1,105 @@ +Imports DevExpress.XtraLayout +Imports DigitalData.GUIs.Common +Imports DigitalData.GUIs.Common.Base +Imports DigitalData.Modules.Logging + +Public Class frmAdmin_User + Implements IAdminForm + + Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey + + Public Property HasChanges As Boolean Implements IAdminForm.HasChanges + + Public Property IsInsert As Boolean Implements IAdminForm.IsInsert + + + + Private Property Pages As ClassDetailPageManager + Private Property Logger As Logger + Private Property FormHelper As FormHelper + + Public Sub New(pPrimaryKey As Integer, Optional pIsInsert As Boolean = False) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + PrimaryKey = pPrimaryKey + IsInsert = pIsInsert + Logger = My.LogConfig.GetLogger() + End Sub + + Private Sub frmAdmin_User_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + TBDD_USERTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString + + If IsInsert Then + DSDD_Stammdaten.TBDD_USER.ADDED_WHOColumn.DefaultValue = My.Application.User.UserName + TBDD_USERBindingSource.AddNew() + Else + TBDD_USERTableAdapter.Fill(DSDD_Stammdaten.TBDD_USER, PrimaryKey) + End If + + ' Add Focus Handler to all controls in all LayoutControls + Pages = New ClassDetailPageManager(My.LogConfig, Me, New List(Of LayoutControl) From {LayoutControl1}) + Pages.Add(New ClassDetailPageManager.PrimaryPage(IsInsert) With { + .Name = "Benutzer", + .BindingSource = TBDD_USERBindingSource, + .DataTable = DSDD_Stammdaten.TBDD_USER, + .AddedWhoEdit = txtAddedWho, + .ChangedWhoEdit = txtChangedWho + }) + + Pages.PrepareLoad() + + Catch ex As Exception + MessageBox.Show(ex.Message) + End Try + End Sub + +#Region "DELETE ----------------------------------------------" + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + If DeleteData() Then + Close() + Else + txtStatus.Caption = $"Error while deleting!" + End If + End Sub + + Private Function DeleteData() As Boolean Implements IAdminForm.DeleteData + Try + TBDD_USERTableAdapter.Delete(PrimaryKey) + Return True + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "DeleteData") + Return False + End Try + End Function +#End Region + +#Region "SAVE ----------------------------------------------" + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + SaveData() + End Sub + + Private Sub frmAdmin_User_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown + If e.KeyCode = Keys.F5 Then + SaveData() + End If + End Sub + + Private Sub SaveData() + If Pages.PrepareSave() = True Then + Try + Dim oPage = Pages.Current + TBDD_USERTableAdapter.Update(oPage.DataTable) + oPage.IsInsert = False + txtStatus.Caption = $"{oPage.Name} gespeichert!" + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "ItemClick") + End Try + Else + txtStatus.Caption = $"Keine Änderungen" + End If + End Sub +#End Region +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/Users/frmAdmin_UserGroupRelations.Designer.vb b/GUIs.ZooFlow/Administration/Users/frmAdmin_UserGroupRelations.Designer.vb new file mode 100644 index 0000000..24c61a5 --- /dev/null +++ b/GUIs.ZooFlow/Administration/Users/frmAdmin_UserGroupRelations.Designer.vb @@ -0,0 +1,408 @@ + _ +Partial Class frmAdmin_UserGroupRelations + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + 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.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.GridControl3 = New DevExpress.XtraGrid.GridControl() + Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colUsername2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSurname2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridControl2 = New DevExpress.XtraGrid.GridControl() + Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colName = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colInternal = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colActive = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colSurname = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colUsername = New DevExpress.XtraGrid.Columns.GridColumn() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.SimpleLabelItem1 = New DevExpress.XtraLayout.SimpleLabelItem() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.SimpleLabelItem2 = New DevExpress.XtraLayout.SimpleLabelItem() + Me.SimpleLabelItem3 = New DevExpress.XtraLayout.SimpleLabelItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SimpleLabelItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SimpleLabelItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SimpleLabelItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + 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.MaxItemId = 1 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.Size = New System.Drawing.Size(1221, 158) + 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 = "RibbonPage1" + ' + '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, 651) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1221, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.SimpleButton2) + Me.LayoutControl1.Controls.Add(Me.SimpleButton1) + Me.LayoutControl1.Controls.Add(Me.GridControl3) + Me.LayoutControl1.Controls.Add(Me.GridControl2) + Me.LayoutControl1.Controls.Add(Me.GridControl1) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 158) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(1221, 493) + Me.LayoutControl1.TabIndex = 2 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'SimpleButton2 + ' + Me.SimpleButton2.ImageOptions.ImageToTextAlignment = DevExpress.XtraEditors.ImageAlignToText.RightCenter + Me.SimpleButton2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.nextview + Me.SimpleButton2.Location = New System.Drawing.Point(414, 405) + Me.SimpleButton2.Name = "SimpleButton2" + Me.SimpleButton2.Size = New System.Drawing.Size(398, 36) + Me.SimpleButton2.StyleController = Me.LayoutControl1 + Me.SimpleButton2.TabIndex = 8 + Me.SimpleButton2.Text = "Benutzer zuordnen" + ' + 'SimpleButton1 + ' + Me.SimpleButton1.ImageOptions.ImageToTextAlignment = DevExpress.XtraEditors.ImageAlignToText.LeftCenter + Me.SimpleButton1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.previousview + Me.SimpleButton1.Location = New System.Drawing.Point(414, 445) + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.Size = New System.Drawing.Size(398, 36) + Me.SimpleButton1.StyleController = Me.LayoutControl1 + Me.SimpleButton1.TabIndex = 7 + Me.SimpleButton1.Text = "Benutzer entfernen" + ' + 'GridControl3 + ' + Me.GridControl3.AllowDrop = True + Me.GridControl3.Location = New System.Drawing.Point(816, 45) + Me.GridControl3.MainView = Me.GridView3 + Me.GridControl3.MenuManager = Me.RibbonControl1 + Me.GridControl3.Name = "GridControl3" + Me.GridControl3.Size = New System.Drawing.Size(393, 436) + Me.GridControl3.TabIndex = 6 + Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3}) + ' + 'GridView3 + ' + Me.GridView3.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colUsername2, Me.colSurname2}) + Me.GridView3.GridControl = Me.GridControl3 + Me.GridView3.Name = "GridView3" + ' + 'colUsername2 + ' + Me.colUsername2.Caption = "Benutzername" + Me.colUsername2.FieldName = "USERNAME" + Me.colUsername2.Name = "colUsername2" + Me.colUsername2.Visible = True + Me.colUsername2.VisibleIndex = 0 + ' + 'colSurname2 + ' + Me.colSurname2.Caption = "Name" + Me.colSurname2.FieldName = "NAME" + Me.colSurname2.Name = "colSurname2" + Me.colSurname2.Visible = True + Me.colSurname2.VisibleIndex = 1 + ' + 'GridControl2 + ' + Me.GridControl2.Location = New System.Drawing.Point(414, 45) + Me.GridControl2.MainView = Me.GridView2 + Me.GridControl2.MenuManager = Me.RibbonControl1 + Me.GridControl2.Name = "GridControl2" + Me.GridControl2.Size = New System.Drawing.Size(398, 356) + Me.GridControl2.TabIndex = 5 + Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) + ' + 'GridView2 + ' + Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName, Me.colInternal, Me.colActive}) + Me.GridView2.GridControl = Me.GridControl2 + Me.GridView2.Name = "GridView2" + ' + 'colName + ' + Me.colName.Caption = "Name" + Me.colName.FieldName = "NAME" + Me.colName.Name = "colName" + Me.colName.Visible = True + Me.colName.VisibleIndex = 0 + ' + 'colInternal + ' + Me.colInternal.Caption = "Systemgruppe" + Me.colInternal.FieldName = "INTERNAL" + Me.colInternal.Name = "colInternal" + Me.colInternal.Visible = True + Me.colInternal.VisibleIndex = 1 + ' + 'colActive + ' + Me.colActive.Caption = "Aktiv" + Me.colActive.FieldName = "ACTIVE" + Me.colActive.Name = "colActive" + Me.colActive.Visible = True + Me.colActive.VisibleIndex = 2 + ' + 'GridControl1 + ' + Me.GridControl1.AllowDrop = True + Me.GridControl1.Location = New System.Drawing.Point(12, 45) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.MenuManager = Me.RibbonControl1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(398, 436) + Me.GridControl1.TabIndex = 4 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'GridView1 + ' + Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSurname, Me.colUsername}) + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + ' + 'colSurname + ' + Me.colSurname.Caption = "Name" + Me.colSurname.FieldName = "NAME" + Me.colSurname.Name = "colSurname" + Me.colSurname.Visible = True + Me.colSurname.VisibleIndex = 0 + ' + 'colUsername + ' + Me.colUsername.Caption = "Benutzername" + Me.colUsername.FieldName = "USERNAME" + Me.colUsername.Name = "colUsername" + Me.colUsername.Visible = True + Me.colUsername.VisibleIndex = 1 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.SimpleLabelItem1, Me.LayoutControlItem1, Me.SimpleLabelItem2, Me.SimpleLabelItem3, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(1221, 493) + Me.Root.TextVisible = False + ' + 'SimpleLabelItem1 + ' + Me.SimpleLabelItem1.AllowHotTrack = False + Me.SimpleLabelItem1.Location = New System.Drawing.Point(0, 0) + Me.SimpleLabelItem1.Name = "SimpleLabelItem1" + Me.SimpleLabelItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.SimpleLabelItem1.Size = New System.Drawing.Size(402, 33) + Me.SimpleLabelItem1.Text = "Nicht zugeordnete Benutzer" + Me.SimpleLabelItem1.TextSize = New System.Drawing.Size(144, 13) + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.GridControl1 + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 33) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Size = New System.Drawing.Size(402, 440) + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem1.TextVisible = False + ' + 'SimpleLabelItem2 + ' + Me.SimpleLabelItem2.AllowHotTrack = False + Me.SimpleLabelItem2.Location = New System.Drawing.Point(402, 0) + Me.SimpleLabelItem2.Name = "SimpleLabelItem2" + Me.SimpleLabelItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.SimpleLabelItem2.Size = New System.Drawing.Size(402, 33) + Me.SimpleLabelItem2.Text = "Gruppen" + Me.SimpleLabelItem2.TextSize = New System.Drawing.Size(144, 13) + ' + 'SimpleLabelItem3 + ' + Me.SimpleLabelItem3.AllowHotTrack = False + Me.SimpleLabelItem3.Location = New System.Drawing.Point(804, 0) + Me.SimpleLabelItem3.Name = "SimpleLabelItem3" + Me.SimpleLabelItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.SimpleLabelItem3.Size = New System.Drawing.Size(397, 33) + Me.SimpleLabelItem3.Text = "Zugeordnete Benutzer" + Me.SimpleLabelItem3.TextSize = New System.Drawing.Size(144, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.GridControl2 + Me.LayoutControlItem2.Location = New System.Drawing.Point(402, 33) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Size = New System.Drawing.Size(402, 360) + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem2.TextVisible = False + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.GridControl3 + Me.LayoutControlItem3.Location = New System.Drawing.Point(804, 33) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Size = New System.Drawing.Size(397, 440) + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem3.TextVisible = False + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.SimpleButton1 + Me.LayoutControlItem4.Location = New System.Drawing.Point(402, 433) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Size = New System.Drawing.Size(402, 40) + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem4.TextVisible = False + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.SimpleButton2 + Me.LayoutControlItem5.Location = New System.Drawing.Point(402, 393) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Size = New System.Drawing.Size(402, 40) + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem5.TextVisible = False + ' + 'frmAdmin_UserGroupRelations + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1221, 675) + Me.Controls.Add(Me.LayoutControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmAdmin_UserGroupRelations" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "frmAdmin_UserGroupRelations" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SimpleLabelItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SimpleLabelItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SimpleLabelItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents GridControl3 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView3 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents SimpleLabelItem1 As DevExpress.XtraLayout.SimpleLabelItem + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SimpleLabelItem2 As DevExpress.XtraLayout.SimpleLabelItem + Friend WithEvents SimpleLabelItem3 As DevExpress.XtraLayout.SimpleLabelItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colInternal As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colActive As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colUsername2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colUsername As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSurname2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSurname As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem +End Class diff --git a/GUIs.ZooFlow/Administration/Users/frmAdmin_UserGroupRelations.resx b/GUIs.ZooFlow/Administration/Users/frmAdmin_UserGroupRelations.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/GUIs.ZooFlow/Administration/Users/frmAdmin_UserGroupRelations.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/Users/frmAdmin_UserGroupRelations.vb b/GUIs.ZooFlow/Administration/Users/frmAdmin_UserGroupRelations.vb new file mode 100644 index 0000000..74472fc --- /dev/null +++ b/GUIs.ZooFlow/Administration/Users/frmAdmin_UserGroupRelations.vb @@ -0,0 +1,189 @@ +Imports DigitalData.GUIs.Common +Imports DigitalData.GUIs.Common.Base + +Public Class frmAdmin_UserGroupRelations + Implements IBaseForm, IAdminForm + + Public ReadOnly Property LogConfig As Modules.Logging.LogConfig Implements IBaseForm.LogConfig + Public ReadOnly Property Logger As Modules.Logging.Logger Implements IBaseForm.Logger + + + Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey + Public Property HasChanges As Boolean Implements IAdminForm.HasChanges + Public Property IsInsert As Boolean Implements IAdminForm.IsInsert + + Private Property SelectedGroupId As Integer = Nothing + Private Property SelectedAvailableUser As Integer = Nothing + Private Property SelectedRelatedUser As Integer = Nothing + Private FormHelper As FormHelper = Nothing + + Public Sub New(pPrimaryKey As Integer) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + LogConfig = My.LogConfig + FormHelper = New FormHelper(LogConfig, Me) + End Sub + + Private Async Sub frmAdmin_UserGroupRelations_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + Dim DragDropManager = New ClassDragDrop(LogConfig) + DragDropManager.AddGridView(GridView1) + DragDropManager.AddGridView(GridView3) + + Dim GridBuilder = New GridBuilder(GridView1, GridView2, GridView3) + GridBuilder. + WithDefaults(). + WithReadOnlyOptions() + + Dim oSQL = "SELECT * FROM TBDD_GROUPS" + Dim oTable As DataTable = Await My.DatabaseECM.GetDatatableAsync(oSQL) + GridControl2.DataSource = oTable + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "Fehler beim Laden des Formulars") + End Try + End Sub + + Private Async Function GetAvailableUsersByGroupId(pGroupId As Integer) As Threading.Tasks.Task(Of DataTable) + Try + Dim oSql As String = $" + SELECT GUID, PRENAME, NAME, USERNAME, SHORTNAME, EMAIL, LANGUAGE, COMMENT, DATE_FORMAT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN + FROM TBDD_USER + WHERE (GUID NOT IN + (SELECT DISTINCT T.GUID + FROM TBDD_USER AS T INNER JOIN TBDD_GROUPS_USER AS T1 ON T.GUID = T1.USER_ID + WHERE (T1.GROUP_ID = {pGroupId}))) + " + Dim oTable = Await My.DatabaseECM.GetDatatableAsync(oSql) + Return oTable + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "GetAvailableUsersByGroupId") + Return Nothing + End Try + End Function + + Private Async Function GetRelatedUsersByGroupId(pGroupId As Integer) As Threading.Tasks.Task(Of DataTable) + Try + Dim oSql As String = $" + SELECT T1.GUID, T1.PRENAME, T1.NAME, T1.USERNAME, T1.SHORTNAME, T1.EMAIL, T1.LANGUAGE, T1.COMMENT, T1.DATE_FORMAT, T1.ADDED_WHO, T1.ADDED_WHEN, T1.CHANGED_WHO, T1.CHANGED_WHEN + FROM TBDD_USER AS T1 INNER JOIN + TBDD_GROUPS_USER AS T2 ON T1.GUID = T2.USER_ID + WHERE (T2.GROUP_ID = {pGroupId}) + " + Dim oTable = Await My.DatabaseECM.GetDatatableAsync(oSql) + Return oTable + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "GetRelatedUsersByGroupId") + Return Nothing + End Try + End Function + + Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData + Throw New NotImplementedException() + End Function + + Private Async Sub GridView2_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView2.FocusedRowChanged + Dim oRowView As DataRowView = GridView2.GetRow(GridView2.FocusedRowHandle) + Dim oRow As DataRow = oRowView.Row + + If oRow IsNot Nothing Then + SelectedGroupId = oRow.Item("GUID") + Await UpdateUsers(SelectedGroupId) + + End If + End Sub + + Private Sub GridView1_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView1.FocusedRowChanged + Try + SelectedAvailableUser = GridView1.GetFocusedRowCellValue("GUID") + Catch ex As Exception + SelectedAvailableUser = 0 + End Try + End Sub + + Private Sub GridView3_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView3.FocusedRowChanged + Try + SelectedRelatedUser = GridView3.GetFocusedRowCellValue("GUID") + Catch ex As Exception + SelectedRelatedUser = 0 + End Try + End Sub + + Private Async Function UpdateUsers(pGroupId As Integer) As Threading.Tasks.Task + Dim oAvailableTable = Await GetAvailableUsersByGroupId(SelectedGroupId) + GridControl1.DataSource = oAvailableTable + + Dim oRelatedTable = Await GetRelatedUsersByGroupId(SelectedGroupId) + GridControl3.DataSource = oRelatedTable + End Function + + Private Async Sub GridControl1_DragDrop(sender As Object, e As DragEventArgs) Handles GridControl1.DragDrop + Dim oData As String = e.Data.GetData(DataFormats.Text) + Dim oGuid As Integer = oData.Split("|").ToList.First() + + If Await RemoveUserFromGroup(oGuid, SelectedGroupId) Then + Await UpdateUsers(SelectedGroupId) + End If + End Sub + + Private Async Sub GridControl3_DragDrop(sender As Object, e As DragEventArgs) Handles GridControl3.DragDrop + Dim oData As String = e.Data.GetData(DataFormats.Text) + Dim oGuid As Integer = oData.Split("|").ToList.First() + + If Await AddUserToGroup(oGuid, SelectedGroupId) Then + Await UpdateUsers(SelectedGroupId) + End If + End Sub + + Private Async Function AddUserToGroup(pUserId As Integer, pGroupId As Integer) As Threading.Tasks.Task(Of Boolean) + Try + Dim oUser = My.Application.User.UserName + Dim oSql = $" + INSERT INTO TBDD_GROUPS_USER + (USER_ID, GROUP_ID, COMMENT, ADDED_WHO) + VALUES ( + {pUserId}, + {pGroupId}, + 'Assign User {pUserId} to Group {pGroupId}', + '{oUser}' + )" + Return Await My.DatabaseECM.ExecuteNonQueryAsync(oSql) + + Catch ex As Exception + Logger.error(ex) + Return False + + End Try + End Function + + Private Async Function RemoveUserFromGroup(pUserId As Integer, pGroupId As Integer) As Threading.Tasks.Task(Of Boolean) + Try + Dim oUser = My.Application.User.UserName + Dim oSql = $" + DELETE FROM TBDD_GROUPS_USER + WHERE USER_ID = {pUserId} AND GROUP_ID = {pGroupId} + " + Return Await My.DatabaseECM.ExecuteNonQueryAsync(oSql) + + Catch ex As Exception + Logger.Error(ex) + Return False + + End Try + End Function + + Private Async Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click + If SelectedAvailableUser > 0 Then + Await AddUserToGroup(SelectedAvailableUser, SelectedGroupId) + Await UpdateUsers(SelectedGroupId) + End If + End Sub + + Private Async Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click + If SelectedRelatedUser > 0 Then + Await RemoveUserFromGroup(SelectedRelatedUser, SelectedGroupId) + Await UpdateUsers(SelectedGroupId) + End If + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/Users/frmAdmin_UserImport.Designer.vb b/GUIs.ZooFlow/Administration/Users/frmAdmin_UserImport.Designer.vb new file mode 100644 index 0000000..9b5e591 --- /dev/null +++ b/GUIs.ZooFlow/Administration/Users/frmAdmin_UserImport.Designer.vb @@ -0,0 +1,302 @@ + +Partial Class frmAdmin_UserImport + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.btnImportUsers = New DevExpress.XtraBars.BarButtonItem() + Me.btnImportGroups = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + 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.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.gridGroupList = New DevExpress.XtraGrid.GridControl() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colName = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCount = New DevExpress.XtraGrid.Columns.GridColumn() + Me.gridUserList = New DevExpress.XtraGrid.GridControl() + Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.SplashScreenManager1 = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, GetType(Global.DigitalData.GUIs.ZooFlow.frmWaitForm), True, True) + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.Panel1.SuspendLayout() + CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.Panel2.SuspendLayout() + Me.SplitContainerControl1.SuspendLayout() + CType(Me.gridGroupList, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gridUserList, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.btnImportUsers, Me.btnImportGroups, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 7 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.Size = New System.Drawing.Size(1012, 132) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False + ' + 'btnImportUsers + ' + Me.btnImportUsers.Caption = "Benutzer Importieren" + Me.btnImportUsers.Id = 1 + Me.btnImportUsers.Name = "btnImportUsers" + ' + 'btnImportGroups + ' + Me.btnImportGroups.Caption = "Gruppen Importieren" + Me.btnImportGroups.Id = 2 + Me.btnImportGroups.Name = "btnImportGroups" + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Import von ausgewählten Benutzern Starten" + Me.BarButtonItem1.Id = 3 + Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_send1 + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Import von ausgewählten Gruppen starten" + Me.BarButtonItem2.Id = 4 + Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_send2 + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Gruppen laden" + Me.BarButtonItem3.Id = 5 + Me.BarButtonItem3.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check1 + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Daten laden" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "Import" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 525) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1012, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 132) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + ' + 'SplitContainerControl1.Panel1 + ' + Me.SplitContainerControl1.Panel1.Controls.Add(Me.gridGroupList) + Me.SplitContainerControl1.Panel1.Text = "Panel1" + ' + 'SplitContainerControl1.Panel2 + ' + Me.SplitContainerControl1.Panel2.Controls.Add(Me.gridUserList) + Me.SplitContainerControl1.Panel2.Text = "Panel2" + Me.SplitContainerControl1.Size = New System.Drawing.Size(1012, 393) + Me.SplitContainerControl1.SplitterPosition = 263 + Me.SplitContainerControl1.TabIndex = 2 + ' + 'gridGroupList + ' + Me.gridGroupList.Dock = System.Windows.Forms.DockStyle.Fill + Me.gridGroupList.Location = New System.Drawing.Point(0, 0) + Me.gridGroupList.MainView = Me.GridView1 + Me.gridGroupList.MenuManager = Me.RibbonControl1 + Me.gridGroupList.Name = "gridGroupList" + Me.gridGroupList.Size = New System.Drawing.Size(263, 393) + Me.gridGroupList.TabIndex = 0 + Me.gridGroupList.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'GridView1 + ' + Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName, Me.colCount}) + Me.GridView1.GridControl = Me.gridGroupList + Me.GridView1.Name = "GridView1" + Me.GridView1.OptionsView.ShowAutoFilterRow = True + ' + 'colName + ' + Me.colName.Caption = "Name" + Me.colName.FieldName = "Name" + Me.colName.Name = "colName" + Me.colName.Visible = True + Me.colName.VisibleIndex = 0 + ' + 'colCount + ' + Me.colCount.Caption = "Benutzer" + Me.colCount.FieldName = "Count" + Me.colCount.Name = "colCount" + Me.colCount.Visible = True + Me.colCount.VisibleIndex = 1 + ' + 'gridUserList + ' + Me.gridUserList.Dock = System.Windows.Forms.DockStyle.Fill + Me.gridUserList.Location = New System.Drawing.Point(0, 0) + Me.gridUserList.MainView = Me.GridView2 + Me.gridUserList.MenuManager = Me.RibbonControl1 + Me.gridUserList.Name = "gridUserList" + Me.gridUserList.Size = New System.Drawing.Size(739, 393) + Me.gridUserList.TabIndex = 0 + Me.gridUserList.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) + ' + 'GridView2 + ' + Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4}) + Me.GridView2.GridControl = Me.gridUserList + Me.GridView2.Name = "GridView2" + Me.GridView2.OptionsSelection.MultiSelect = True + Me.GridView2.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect + Me.GridView2.OptionsView.ShowAutoFilterRow = True + ' + 'GridColumn1 + ' + Me.GridColumn1.Caption = "Benutzername" + Me.GridColumn1.FieldName = "samAccountName" + Me.GridColumn1.Name = "GridColumn1" + Me.GridColumn1.Visible = True + Me.GridColumn1.VisibleIndex = 1 + ' + 'GridColumn2 + ' + Me.GridColumn2.Caption = "Vorname" + Me.GridColumn2.FieldName = "Surname" + Me.GridColumn2.Name = "GridColumn2" + Me.GridColumn2.Visible = True + Me.GridColumn2.VisibleIndex = 2 + ' + 'GridColumn3 + ' + Me.GridColumn3.Caption = "Nachname" + Me.GridColumn3.FieldName = "GivenName" + Me.GridColumn3.Name = "GridColumn3" + Me.GridColumn3.Visible = True + Me.GridColumn3.VisibleIndex = 3 + ' + 'GridColumn4 + ' + Me.GridColumn4.Caption = "Email" + Me.GridColumn4.FieldName = "Email" + Me.GridColumn4.Name = "GridColumn4" + Me.GridColumn4.Visible = True + Me.GridColumn4.VisibleIndex = 4 + ' + 'SplashScreenManager1 + ' + Me.SplashScreenManager1.ClosingDelay = 500 + ' + 'frmAdmin_UserImport + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1012, 549) + Me.Controls.Add(Me.SplitContainerControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.text + Me.Name = "frmAdmin_UserImport" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Active Directory Import - Zooflow" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.Panel1.ResumeLayout(False) + CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.Panel2.ResumeLayout(False) + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + CType(Me.gridGroupList, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gridUserList, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents gridGroupList As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents gridUserList As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents btnImportUsers As DevExpress.XtraBars.BarButtonItem + Friend WithEvents btnImportGroups As DevExpress.XtraBars.BarButtonItem + Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents colCount As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents SplashScreenManager1 As DevExpress.XtraSplashScreen.SplashScreenManager + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup +End Class diff --git a/GUIs.ZooFlow/Administration/Users/frmAdmin_UserImport.resx b/GUIs.ZooFlow/Administration/Users/frmAdmin_UserImport.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/GUIs.ZooFlow/Administration/Users/frmAdmin_UserImport.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/Users/frmAdmin_UserImport.vb b/GUIs.ZooFlow/Administration/Users/frmAdmin_UserImport.vb new file mode 100644 index 0000000..9ad3f69 --- /dev/null +++ b/GUIs.ZooFlow/Administration/Users/frmAdmin_UserImport.vb @@ -0,0 +1,248 @@ +Imports DevExpress.XtraSplashScreen +Imports DigitalData.Modules.Interfaces +Imports DigitalData.Modules.Logging +Imports DigitalData.GUIs.Common +Imports DevExpress.XtraGrid.Views.Grid + +Public Class frmAdmin_UserImport + Private ReadOnly Logger As Logger = My.LogConfig.GetLogger + Private ActiveDirectory As ActiveDirectoryInterface + + Private Sub frmAdmin_ImportUser_Load(sender As Object, e As EventArgs) Handles MyBase.Load + ActiveDirectory = New ActiveDirectoryInterface(My.LogConfig, Nothing) + + Dim oGridManager = New GridBuilder(GridView1, GridView2) + oGridManager. + WithDefaults(). + WithReadOnlyOptions(). + WithClipboardHandler() + End Sub + + Private Async Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + SplashScreenManager1.ShowWaitForm() + SplashScreenManager1.SetWaitFormCaption("Loading Groups") + + Try + Dim oGroups As List(Of ADGroup) = Await ActiveDirectory.ListGroupsAsync() + Dim oGroupList As New List(Of GroupListing) + + For Each oGroup As ADGroup In oGroups + Try + SplashScreenManager1.SetWaitFormDescription(oGroup.SAMAccountName) + + Dim oUsers As List(Of ADUser) = Await ActiveDirectory.ListUsersAsync(oGroup.Name) + Dim oListing As New GroupListing(oGroup) With { + .Count = oUsers.Count, + .Users = oUsers + } + + If oUsers.Count > 0 Then + oGroupList.Add(oListing) + End If + + Catch ex As Exception + Logger.Error(ex) + End Try + Next + + gridGroupList.ForceInitialize() + gridGroupList.DataSource = oGroupList + + Catch ex As Exception + Logger.Error(ex) + Finally + SplashScreenManager1.CloseWaitForm() + End Try + End Sub + + Private Sub btnImportUsers_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnImportUsers.ItemClick + Dim oForm As New frmAdmin_UserImport() + oForm.ShowDialog() + End Sub + + Private Sub GridView1_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView1.FocusedRowChanged + Dim oGroup As GroupListing = GridView1.GetRow(e.FocusedRowHandle) + + If Not IsNothing(oGroup) Then + Try + gridUserList.DataSource = oGroup.Users + + Catch ex As Exception + Logger.Error(ex) + End Try + End If + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + Dim oSelected = GridView2.GetSelectedRows() + Dim oDialogResult = MsgBox($"Wollen Sie die ausgewählten [{oSelected.Count}] Benutzer importieren?", + MsgBoxStyle.Question Or MsgBoxStyle.YesNo, + "Import von Benutzern") + + If DialogResult.No = oDialogResult Then + Exit Sub + End If + + Dim oImported = 0 + Dim oSkipped = 0 + + Try + For Each oHandle In oSelected + Dim oRow As ADUser = GridView2.GetRow(oHandle) + + If Not UserExists(oRow.samAccountName) Then + If InsertUser(oRow.samAccountName, oRow.Surname, oRow.GivenName, oRow.Email) Then + oImported += 1 + Else + Logger.Warn("User [{0}] could not be imported!", oRow.samAccountName) + End If + Else + If UpdatetUser(oRow.samAccountName, oRow.Surname, oRow.GivenName, oRow.Email) Then + oImported += 1 + Else + Logger.Warn("User [{0}] could not be updated!", oRow.samAccountName) + oSkipped += 1 + End If + + End If + Next + + If oImported = 0 Then + Logger.Warn("No new users imported. All selected users are already in database.") + MsgBox($"Es wurden keine neuen Benutzer importiert, da alle ausgewählten Benutzer bereits in der Benutzerverwaltung vorhanden sind.", MsgBoxStyle.Exclamation, "UserManager") + Else + Logger.Info($"Import successful!{vbNewLine}{vbNewLine}{oImported} users imported{vbNewLine}{oSkipped} users skipped") + MsgBox($"{oImported} Benutzer wurden erfolgreich importiert!", MsgBoxStyle.Information, Text) + End If + Catch ex As Exception + Logger.Error(ex, "Error while importing users") + MsgBox($"Error while importing users: {ex.Message}", MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + Dim oSelected = GridView1.GetSelectedRows() + Dim oMessage = $"Wollen Sie die ausgewählten [{oSelected.Count}] Gruppen importieren? Achtung: Es werden NUR die GRUPPEN importiert, nicht die enthaltenen Benutzer!" + Dim oDialogResult = MsgBox(oMessage, + MsgBoxStyle.Question Or MsgBoxStyle.YesNo, + "Import von Gruppen") + + If DialogResult.No = oDialogResult Then + Exit Sub + End If + + Dim oImported = 0 + Dim oSkipped = 0 + + Try + For Each oHandle In oSelected + Dim oRow As ADGroup = GridView2.GetRow(oHandle) + + If Not GroupExists(oRow.SAMAccountName) Then + If InsertGroup(oRow.SAMAccountName) Then + oImported += 1 + Else + Logger.Warn("Group [{0}] could not be imported!", oRow.SAMAccountName) + End If + Else + oSkipped += 1 + End If + Next + + If oImported = 0 Then + Logger.Warn("No new groups imported. All selected groups are already in database.") + MsgBox($"Es wurden keine neuen Gruppen importiert, da alle ausgewählten Gruppen bereits in der Gruppenverwaltung vorhanden sind.", MsgBoxStyle.Exclamation, "UserManager") + Else + Logger.Info($"Import successful!{vbNewLine}{vbNewLine}{oImported} groups imported{vbNewLine}{oSkipped} groups skipped") + MsgBox($"{oImported} Gruppen wurden erfolgreich importiert!", MsgBoxStyle.Information, Text) + End If + Catch ex As Exception + Logger.Error(ex, "Error while importing users") + MsgBox($"Error while importing users: {ex.Message}", MsgBoxStyle.Critical) + End Try + End Sub + + Public Function GroupExists(groupName As String) As Boolean + Try + Dim oSql As String = $"SELECT COUNT(GUID) FROM TBDD_GROUPS WHERE NAME = '{groupName}'" + Dim oResult = My.DatabaseECM.GetScalarValue(oSql) + + Return Convert.ToBoolean(oResult) + Catch ex As Exception + Logger.Error($"Error in GroupExists: {ex.Message}") + Return Nothing + End Try + End Function + + Public Function UserExists(userName As String) As Boolean + Try + Dim oSql As String = $"SELECT COUNT(GUID) FROM TBDD_USER WHERE USERNAME = '{userName}'" + Dim oResult = My.DatabaseECM.GetScalarValue(oSql) + + Return Convert.ToBoolean(oResult) + Catch ex As Exception + Logger.Error($"Error in UserExists: {ex.Message}") + Return Nothing + End Try + End Function + + Public Function InsertUser(username As String, prename As String, name As String, email As String) + Try + Dim oAddedWho As String = Environment.UserName + Dim oSql As String = $"INSERT INTO TBDD_USER (PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO) + VALUES ('{prename}','{name}','{username}','{email}','{oAddedWho}')" + Dim oResult = My.DatabaseECM.ExecuteNonQuery(oSql) + + Return oResult + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + Public Function UpdatetUser(username As String, prename As String, name As String, email As String) + Try + Dim oAddedWho As String = Environment.UserName + Dim oSql As String = $"UPDATE TBDD_USER SET PRENAME = '{prename}', NAME = '{name}', EMAIL = , CHANGED_WHO = '{Environment.UserName}' WHERE USERNAME = '{username}')" + Dim oResult = My.DatabaseECM.ExecuteNonQuery(oSql) + + Return oResult + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + Public Function InsertGroup(name As String, Optional ECM_FK_ID As Integer = 1, Optional adSync As Boolean = True, Optional internal As Boolean = False, Optional active As Boolean = True) + Try + Dim addedWho As String = Environment.UserName + Dim sql As String = $"INSERT INTO TBDD_GROUPS (NAME, ADDED_WHO, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE) + VALUES ('{name}', '{addedWho}', {ECM_FK_ID}, + {Convert.ToInt32(adSync)}, + {Convert.ToInt32(internal)}, + {Convert.ToInt32(active)})" + Dim oResult = My.DatabaseECM.ExecuteNonQuery(sql) + + Return True + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + + Private Class GroupListing + Public Group As ADGroup + Public Users As List(Of ADUser) + Public Property Count As Integer + Public ReadOnly Property Name As String + Get + Return Group?.Name + End Get + End Property + + Public Sub New(pGroup As ADGroup) + Group = pGroup + Count = 0 + End Sub + End Class + + +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.Designer.vb new file mode 100644 index 0000000..b12cd2e --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.Designer.vb @@ -0,0 +1,1556 @@ +Imports DigitalData.GUIs.Common.Base + + +Partial Class frmAdmin_ClipboardWatcher + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim EditorButtonImageOptions1 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() + Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject2 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject3 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim EditorButtonImageOptions2 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() + Dim SerializableAppearanceObject5 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject6 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject7 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject8 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim EditorButtonImageOptions3 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() + Dim SerializableAppearanceObject9 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject10 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject11 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject12 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim EditorButtonImageOptions4 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() + Dim SerializableAppearanceObject13 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject14 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject15 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject16 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim EditorButtonImageOptions5 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() + Dim SerializableAppearanceObject17 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject18 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject19 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject20 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonSave = New DevExpress.XtraBars.BarButtonItem() + Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() + Me.labelError = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonNew = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.DBCW_Stammdaten = New DigitalData.GUIs.ZooFlow.DBCW_Stammdaten() + Me.TBCW_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBCW_PROFILESTableAdapter = New DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TBCW_PROFILESTableAdapter() + Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TableAdapterManager() + Me.LayoutControlProfile = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() + Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit() + Me.txtAddedWhen = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit() + Me.CheckEdit1 = New DevExpress.XtraEditors.CheckEdit() + Me.TextEdit4 = New DevExpress.XtraEditors.ButtonEdit() + Me.cmbProfileType = New DevExpress.XtraEditors.LookUpEdit() + Me.TBLOCAL_PROFILE_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem20 = New DevExpress.XtraLayout.LayoutControlItem() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.PageProfile = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() + Me.PageDocumentSearch = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControlDocSearch = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit() + Me.TBCW_PROF_DOC_SEARCHBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TextEdit6 = New DevExpress.XtraEditors.TextEdit() + Me.CheckEdit2 = New DevExpress.XtraEditors.CheckEdit() + Me.TextEdit7 = New DevExpress.XtraEditors.ButtonEdit() + Me.TextEdit8 = New DevExpress.XtraEditors.ButtonEdit() + Me.txtAddedWho1 = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWho1 = New DevExpress.XtraEditors.TextEdit() + Me.txtAddedWhen1 = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWhen1 = New DevExpress.XtraEditors.TextEdit() + Me.cmbSearchPositions = New DevExpress.XtraEditors.LookUpEdit() + Me.TBLOCAL_SEARCH_POSITIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.ComboBoxEdit1 = New DevExpress.XtraEditors.LookUpEdit() + Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DSDD_Stammdaten = New DigitalData.GUIs.ZooFlow.DSDD_Stammdaten() + Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem13 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem15 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem16 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem17 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem18 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem19 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem21 = New DevExpress.XtraLayout.LayoutControlItem() + Me.GridControl2 = New DevExpress.XtraGrid.GridControl() + Me.GridViewDocSearch = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colTAB_TITLE1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.PageDataSearch = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControlDataSearch = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit51 = New DevExpress.XtraEditors.TextEdit() + Me.TBCW_PROF_DATA_SEARCHBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TextEdit61 = New DevExpress.XtraEditors.TextEdit() + Me.cmbSearchPositions1 = New DevExpress.XtraEditors.LookUpEdit() + Me.CheckEdit21 = New DevExpress.XtraEditors.CheckEdit() + Me.TextEdit71 = New DevExpress.XtraEditors.ButtonEdit() + Me.TextEdit81 = New DevExpress.XtraEditors.ButtonEdit() + Me.txtAddedWho11 = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWho11 = New DevExpress.XtraEditors.TextEdit() + Me.txtAddedWhen11 = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWhen11 = New DevExpress.XtraEditors.TextEdit() + Me.ComboBoxEdit11 = New DevExpress.XtraEditors.LookUpEdit() + Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem22 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem23 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem26 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem27 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem32 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem28 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem29 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem30 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem31 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem24 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem25 = New DevExpress.XtraLayout.LayoutControlItem() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridViewDataSearch = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colTAB_TITLE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.PageApplicationAssignment = New DevExpress.XtraTab.XtraTabPage() + Me.TBCW_PROF_DOC_SEARCHTableAdapter = New DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter() + Me.TBCW_PROF_DATA_SEARCHTableAdapter = New DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TBCW_PROF_DATA_SEARCHTableAdapter() + Me.TBDD_CONNECTIONTableAdapter = New DigitalData.GUIs.ZooFlow.DSDD_StammdatenTableAdapters.TBDD_CONNECTIONTableAdapter() + Me.TableAdapterManager1 = New DigitalData.GUIs.ZooFlow.DSDD_StammdatenTableAdapters.TableAdapterManager() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DBCW_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlProfile, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControlProfile.SuspendLayout() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmbProfileType.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBLOCAL_PROFILE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem20, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.PageProfile.SuspendLayout() + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl2.SuspendLayout() + Me.PageDocumentSearch.SuspendLayout() + CType(Me.LayoutControlDocSearch, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControlDocSearch.SuspendLayout() + CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWho1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWho1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWhen1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWhen1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmbSearchPositions.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBLOCAL_SEARCH_POSITIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSDD_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem21, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewDocSearch, System.ComponentModel.ISupportInitialize).BeginInit() + Me.PageDataSearch.SuspendLayout() + CType(Me.LayoutControlDataSearch, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControlDataSearch.SuspendLayout() + CType(Me.TextEdit51.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBCW_PROF_DATA_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit61.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmbSearchPositions1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CheckEdit21.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit71.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit81.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWho11.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWho11.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWhen11.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWhen11.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ComboBoxEdit11.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem26, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem27, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem32, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem28, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem29, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem31, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem24, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem25, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewDataSearch, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonSave, Me.labelStatus, Me.labelError, Me.BarButtonItem3, Me.BarButtonNew}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 7 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.Size = New System.Drawing.Size(1328, 131) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False + ' + 'BarButtonSave + ' + Me.BarButtonSave.Caption = "Speichern" + Me.BarButtonSave.Id = 2 + Me.BarButtonSave.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save2 + Me.BarButtonSave.Name = "BarButtonSave" + ' + 'labelStatus + ' + Me.labelStatus.Caption = "BarStaticItem1" + Me.labelStatus.Id = 3 + Me.labelStatus.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.about3 + Me.labelStatus.Name = "labelStatus" + Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' + 'labelError + ' + Me.labelError.Caption = "BarStaticItem2" + Me.labelError.Id = 4 + Me.labelError.Name = "labelError" + Me.labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Löschen" + Me.BarButtonItem3.Id = 5 + Me.BarButtonItem3.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_deletecircled6 + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'BarButtonNew + ' + Me.BarButtonNew.Caption = "Neu" + Me.BarButtonNew.Enabled = False + Me.BarButtonNew.Id = 6 + Me.BarButtonNew.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_add1 + Me.BarButtonNew.Name = "BarButtonNew" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonNew) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonSave) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Daten" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 676) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1328, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'DBCW_Stammdaten + ' + Me.DBCW_Stammdaten.DataSetName = "DBCW_Stammdaten" + Me.DBCW_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBCW_PROFILESBindingSource + ' + Me.TBCW_PROFILESBindingSource.DataMember = "TBCW_PROFILES" + Me.TBCW_PROFILESBindingSource.DataSource = Me.DBCW_Stammdaten + ' + 'TBCW_PROFILESTableAdapter + ' + Me.TBCW_PROFILESTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBCW_PROF_DATA_SEARCHTableAdapter = Nothing + Me.TableAdapterManager.TBCW_PROF_DOC_SEARCHTableAdapter = Nothing + Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Me.TBCW_PROFILESTableAdapter + Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'LayoutControlProfile + ' + Me.LayoutControlProfile.Controls.Add(Me.TextEdit1) + Me.LayoutControlProfile.Controls.Add(Me.TextEdit2) + Me.LayoutControlProfile.Controls.Add(Me.TextEdit3) + Me.LayoutControlProfile.Controls.Add(Me.txtAddedWho) + Me.LayoutControlProfile.Controls.Add(Me.txtAddedWhen) + Me.LayoutControlProfile.Controls.Add(Me.txtChangedWho) + Me.LayoutControlProfile.Controls.Add(Me.txtChangedWhen) + Me.LayoutControlProfile.Controls.Add(Me.CheckEdit1) + Me.LayoutControlProfile.Controls.Add(Me.TextEdit4) + Me.LayoutControlProfile.Controls.Add(Me.cmbProfileType) + Me.LayoutControlProfile.Dock = System.Windows.Forms.DockStyle.Top + Me.LayoutControlProfile.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlProfile.Name = "LayoutControlProfile" + Me.LayoutControlProfile.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(848, 159, 650, 400) + Me.LayoutControlProfile.Root = Me.Root + Me.LayoutControlProfile.Size = New System.Drawing.Size(1326, 246) + Me.LayoutControlProfile.TabIndex = 2 + Me.LayoutControlProfile.Text = "LayoutControl1" + ' + 'TextEdit1 + ' + Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "GUID", True)) + Me.TextEdit1.Location = New System.Drawing.Point(116, 15) + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Properties.ReadOnly = True + Me.TextEdit1.Size = New System.Drawing.Size(540, 20) + Me.TextEdit1.StyleController = Me.LayoutControlProfile + Me.TextEdit1.TabIndex = 4 + ' + 'TextEdit2 + ' + Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "NAME", True)) + Me.TextEdit2.Location = New System.Drawing.Point(116, 45) + Me.TextEdit2.MenuManager = Me.RibbonControl1 + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.Size = New System.Drawing.Size(540, 20) + Me.TextEdit2.StyleController = Me.LayoutControlProfile + Me.TextEdit2.TabIndex = 5 + ' + 'TextEdit3 + ' + Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "COMMENT", True)) + Me.TextEdit3.Location = New System.Drawing.Point(116, 75) + Me.TextEdit3.MenuManager = Me.RibbonControl1 + Me.TextEdit3.Name = "TextEdit3" + Me.TextEdit3.Size = New System.Drawing.Size(1195, 20) + Me.TextEdit3.StyleController = Me.LayoutControlProfile + Me.TextEdit3.TabIndex = 6 + ' + 'txtAddedWho + ' + Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "ADDED_WHO", True)) + Me.txtAddedWho.Location = New System.Drawing.Point(116, 139) + Me.txtAddedWho.MenuManager = Me.RibbonControl1 + Me.txtAddedWho.Name = "txtAddedWho" + Me.txtAddedWho.Properties.ReadOnly = True + Me.txtAddedWho.Size = New System.Drawing.Size(540, 20) + Me.txtAddedWho.StyleController = Me.LayoutControlProfile + Me.txtAddedWho.TabIndex = 7 + ' + 'txtAddedWhen + ' + Me.txtAddedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "CHANGED_WHO", True)) + Me.txtAddedWhen.Location = New System.Drawing.Point(767, 139) + Me.txtAddedWhen.MenuManager = Me.RibbonControl1 + Me.txtAddedWhen.Name = "txtAddedWhen" + Me.txtAddedWhen.Properties.ReadOnly = True + Me.txtAddedWhen.Size = New System.Drawing.Size(544, 20) + Me.txtAddedWhen.StyleController = Me.LayoutControlProfile + Me.txtAddedWhen.TabIndex = 8 + ' + 'txtChangedWho + ' + Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "ADDED_WHEN", True)) + Me.txtChangedWho.Location = New System.Drawing.Point(116, 169) + Me.txtChangedWho.MenuManager = Me.RibbonControl1 + Me.txtChangedWho.Name = "txtChangedWho" + Me.txtChangedWho.Properties.ReadOnly = True + Me.txtChangedWho.Size = New System.Drawing.Size(540, 20) + Me.txtChangedWho.StyleController = Me.LayoutControlProfile + Me.txtChangedWho.TabIndex = 9 + ' + 'txtChangedWhen + ' + Me.txtChangedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "CHANGED_WHEN", True)) + Me.txtChangedWhen.Location = New System.Drawing.Point(767, 169) + Me.txtChangedWhen.MenuManager = Me.RibbonControl1 + Me.txtChangedWhen.Name = "txtChangedWhen" + Me.txtChangedWhen.Properties.ReadOnly = True + Me.txtChangedWhen.Size = New System.Drawing.Size(544, 20) + Me.txtChangedWhen.StyleController = Me.LayoutControlProfile + Me.txtChangedWhen.TabIndex = 10 + ' + 'CheckEdit1 + ' + Me.CheckEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "ACTIVE", True)) + Me.CheckEdit1.Location = New System.Drawing.Point(666, 15) + Me.CheckEdit1.MenuManager = Me.RibbonControl1 + Me.CheckEdit1.Name = "CheckEdit1" + Me.CheckEdit1.Properties.Caption = "Aktiv" + Me.CheckEdit1.Size = New System.Drawing.Size(645, 18) + Me.CheckEdit1.StyleController = Me.LayoutControlProfile + Me.CheckEdit1.TabIndex = 11 + ' + 'TextEdit4 + ' + Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "REGEX_EXPRESSION", True)) + Me.TextEdit4.Location = New System.Drawing.Point(116, 105) + Me.TextEdit4.MenuManager = Me.RibbonControl1 + Me.TextEdit4.Name = "TextEdit4" + EditorButtonImageOptions1.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.definednameuseinformula3 + EditorButtonImageOptions1.SvgImageSize = New System.Drawing.Size(16, 16) + Me.TextEdit4.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Glyph, "Regex bearbeiten", 50, True, True, False, EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "", "BUTTON_REGEX_PROFILE", Nothing, DevExpress.Utils.ToolTipAnchor.[Default])}) + Me.TextEdit4.Size = New System.Drawing.Size(1195, 24) + Me.TextEdit4.StyleController = Me.LayoutControlProfile + Me.TextEdit4.TabIndex = 12 + ' + 'cmbProfileType + ' + Me.cmbProfileType.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "PROFILE_TYPE", True)) + Me.cmbProfileType.Location = New System.Drawing.Point(767, 45) + Me.cmbProfileType.MenuManager = Me.RibbonControl1 + Me.cmbProfileType.Name = "cmbProfileType" + Me.cmbProfileType.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmbProfileType.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("NAME", "Name")}) + Me.cmbProfileType.Properties.DataSource = Me.TBLOCAL_PROFILE_TYPEBindingSource + Me.cmbProfileType.Properties.DisplayMember = "NAME" + Me.cmbProfileType.Properties.NullText = "" + Me.cmbProfileType.Properties.PopupSizeable = False + Me.cmbProfileType.Properties.ValueMember = "ID" + Me.cmbProfileType.Size = New System.Drawing.Size(544, 20) + Me.cmbProfileType.StyleController = Me.LayoutControlProfile + Me.cmbProfileType.TabIndex = 13 + ' + 'TBLOCAL_PROFILE_TYPEBindingSource + ' + Me.TBLOCAL_PROFILE_TYPEBindingSource.DataMember = "TBLOCAL_PROFILE_TYPE" + Me.TBLOCAL_PROFILE_TYPEBindingSource.DataSource = Me.DBCW_Stammdaten + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem6, Me.LayoutControlItem5, Me.LayoutControlItem7, Me.LayoutControlItem9, Me.LayoutControlItem8, Me.LayoutControlItem1, Me.LayoutControlItem20}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(1326, 246) + Me.Root.TextVisible = False + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.TextEdit2 + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 30) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem2.Size = New System.Drawing.Size(651, 30) + Me.LayoutControlItem2.Text = "Name" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.TextEdit3 + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 60) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(1306, 30) + Me.LayoutControlItem3.Text = "Kommentar" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.txtAddedWho + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 124) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem4.Size = New System.Drawing.Size(651, 30) + Me.LayoutControlItem4.Text = "Erstellt Wer" + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.txtChangedWho + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 154) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem6.Size = New System.Drawing.Size(651, 72) + Me.LayoutControlItem6.Text = "Geändert Wer" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.txtAddedWhen + Me.LayoutControlItem5.Location = New System.Drawing.Point(651, 124) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem5.Size = New System.Drawing.Size(655, 30) + Me.LayoutControlItem5.Text = "Erstellt Wann" + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.txtChangedWhen + Me.LayoutControlItem7.Location = New System.Drawing.Point(651, 154) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem7.Size = New System.Drawing.Size(655, 72) + Me.LayoutControlItem7.Text = "Geändert Wann" + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.Control = Me.TextEdit4 + Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 90) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem9.Size = New System.Drawing.Size(1306, 34) + Me.LayoutControlItem9.Text = "Regular Expression" + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.CheckEdit1 + Me.LayoutControlItem8.Location = New System.Drawing.Point(651, 0) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem8.Size = New System.Drawing.Size(655, 30) + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem8.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.TextEdit1 + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem1.Size = New System.Drawing.Size(651, 30) + Me.LayoutControlItem1.Text = "GUID" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem20 + ' + Me.LayoutControlItem20.Control = Me.cmbProfileType + Me.LayoutControlItem20.Location = New System.Drawing.Point(651, 30) + Me.LayoutControlItem20.Name = "LayoutControlItem20" + Me.LayoutControlItem20.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem20.Size = New System.Drawing.Size(655, 30) + Me.LayoutControlItem20.Text = "Profil Typ" + Me.LayoutControlItem20.TextSize = New System.Drawing.Size(98, 13) + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 131) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.PageProfile + Me.XtraTabControl1.Size = New System.Drawing.Size(1328, 545) + Me.XtraTabControl1.TabIndex = 5 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.PageProfile}) + ' + 'PageProfile + ' + Me.PageProfile.Controls.Add(Me.XtraTabControl2) + Me.PageProfile.Controls.Add(Me.LayoutControlProfile) + Me.PageProfile.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.pagesetup1 + Me.PageProfile.ImageOptions.SvgImageSize = New System.Drawing.Size(24, 24) + Me.PageProfile.Name = "PageProfile" + Me.PageProfile.Size = New System.Drawing.Size(1326, 511) + Me.PageProfile.Tag = "TAB_PAGE_PROFILE" + Me.PageProfile.Text = "Profil-Verwaltung" + ' + 'XtraTabControl2 + ' + Me.XtraTabControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl2.Location = New System.Drawing.Point(0, 246) + Me.XtraTabControl2.Name = "XtraTabControl2" + Me.XtraTabControl2.SelectedTabPage = Me.PageDocumentSearch + Me.XtraTabControl2.Size = New System.Drawing.Size(1326, 265) + Me.XtraTabControl2.TabIndex = 3 + Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.PageDocumentSearch, Me.PageDataSearch, Me.PageApplicationAssignment}) + ' + 'PageDocumentSearch + ' + Me.PageDocumentSearch.Controls.Add(Me.LayoutControlDocSearch) + Me.PageDocumentSearch.Controls.Add(Me.GridControl2) + Me.PageDocumentSearch.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.singlepageview + Me.PageDocumentSearch.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.PageDocumentSearch.Name = "PageDocumentSearch" + Me.PageDocumentSearch.Size = New System.Drawing.Size(1324, 239) + Me.PageDocumentSearch.Tag = "TAB_PAGE_DOCSEARCH" + Me.PageDocumentSearch.Text = "Dokument-Suche" + ' + 'LayoutControlDocSearch + ' + Me.LayoutControlDocSearch.Controls.Add(Me.TextEdit5) + Me.LayoutControlDocSearch.Controls.Add(Me.TextEdit6) + Me.LayoutControlDocSearch.Controls.Add(Me.CheckEdit2) + Me.LayoutControlDocSearch.Controls.Add(Me.TextEdit7) + Me.LayoutControlDocSearch.Controls.Add(Me.TextEdit8) + Me.LayoutControlDocSearch.Controls.Add(Me.txtAddedWho1) + Me.LayoutControlDocSearch.Controls.Add(Me.txtChangedWho1) + Me.LayoutControlDocSearch.Controls.Add(Me.txtAddedWhen1) + Me.LayoutControlDocSearch.Controls.Add(Me.txtChangedWhen1) + Me.LayoutControlDocSearch.Controls.Add(Me.cmbSearchPositions) + Me.LayoutControlDocSearch.Controls.Add(Me.ComboBoxEdit1) + Me.LayoutControlDocSearch.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControlDocSearch.Location = New System.Drawing.Point(225, 0) + Me.LayoutControlDocSearch.Name = "LayoutControlDocSearch" + Me.LayoutControlDocSearch.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1270, 407, 650, 400) + Me.LayoutControlDocSearch.Root = Me.LayoutControlGroup1 + Me.LayoutControlDocSearch.Size = New System.Drawing.Size(1099, 239) + Me.LayoutControlDocSearch.TabIndex = 1 + Me.LayoutControlDocSearch.Text = "LayoutControl2" + ' + 'TextEdit5 + ' + Me.TextEdit5.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "GUID", True)) + Me.TextEdit5.Location = New System.Drawing.Point(150, 15) + Me.TextEdit5.MenuManager = Me.RibbonControl1 + Me.TextEdit5.Name = "TextEdit5" + Me.TextEdit5.Properties.ReadOnly = True + Me.TextEdit5.Size = New System.Drawing.Size(124, 20) + Me.TextEdit5.StyleController = Me.LayoutControlDocSearch + Me.TextEdit5.TabIndex = 4 + ' + 'TBCW_PROF_DOC_SEARCHBindingSource + ' + Me.TBCW_PROF_DOC_SEARCHBindingSource.DataMember = "TBCW_PROF_DOC_SEARCH" + Me.TBCW_PROF_DOC_SEARCHBindingSource.DataSource = Me.DBCW_Stammdaten + ' + 'TextEdit6 + ' + Me.TextEdit6.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "TAB_TITLE", True)) + Me.TextEdit6.Location = New System.Drawing.Point(150, 45) + Me.TextEdit6.MenuManager = Me.RibbonControl1 + Me.TextEdit6.Name = "TextEdit6" + Me.TextEdit6.Size = New System.Drawing.Size(934, 20) + Me.TextEdit6.StyleController = Me.LayoutControlDocSearch + Me.TextEdit6.TabIndex = 5 + ' + 'CheckEdit2 + ' + Me.CheckEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ACTIVE", True)) + Me.CheckEdit2.Location = New System.Drawing.Point(688, 15) + Me.CheckEdit2.MenuManager = Me.RibbonControl1 + Me.CheckEdit2.Name = "CheckEdit2" + Me.CheckEdit2.Properties.Caption = "Aktiv" + Me.CheckEdit2.Size = New System.Drawing.Size(396, 18) + Me.CheckEdit2.StyleController = Me.LayoutControlDocSearch + Me.CheckEdit2.TabIndex = 6 + ' + 'TextEdit7 + ' + Me.TextEdit7.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "SQL_COMMAND", True)) + Me.TextEdit7.Location = New System.Drawing.Point(150, 75) + Me.TextEdit7.MenuManager = Me.RibbonControl1 + Me.TextEdit7.Name = "TextEdit7" + EditorButtonImageOptions2.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.editdatasource + EditorButtonImageOptions2.SvgImageSize = New System.Drawing.Size(16, 16) + SerializableAppearanceObject5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) + SerializableAppearanceObject5.Options.UseBackColor = True + Me.TextEdit7.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Glyph, "", 50, True, True, False, EditorButtonImageOptions2, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject5, SerializableAppearanceObject6, SerializableAppearanceObject7, SerializableAppearanceObject8, "", "BUTTON_SEARCH_SQL", Nothing, DevExpress.Utils.ToolTipAnchor.[Default])}) + Me.TextEdit7.Size = New System.Drawing.Size(934, 24) + Me.TextEdit7.StyleController = Me.LayoutControlDocSearch + Me.TextEdit7.TabIndex = 8 + ' + 'TextEdit8 + ' + Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "COUNT_COMMAND", True)) + Me.TextEdit8.Location = New System.Drawing.Point(150, 109) + Me.TextEdit8.MenuManager = Me.RibbonControl1 + Me.TextEdit8.Name = "TextEdit8" + EditorButtonImageOptions3.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.editdatasource1 + EditorButtonImageOptions3.SvgImageSize = New System.Drawing.Size(16, 16) + SerializableAppearanceObject9.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) + SerializableAppearanceObject9.Options.UseBackColor = True + Me.TextEdit8.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Glyph, "SQL bearbeiten", 50, True, True, False, EditorButtonImageOptions3, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject9, SerializableAppearanceObject10, SerializableAppearanceObject11, SerializableAppearanceObject12, "", "BUTTON_COUNT_SQL", Nothing, DevExpress.Utils.ToolTipAnchor.[Default])}) + Me.TextEdit8.Size = New System.Drawing.Size(934, 24) + Me.TextEdit8.StyleController = Me.LayoutControlDocSearch + Me.TextEdit8.TabIndex = 9 + ' + 'txtAddedWho1 + ' + Me.txtAddedWho1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ADDED_WHO", True)) + Me.txtAddedWho1.Location = New System.Drawing.Point(150, 173) + Me.txtAddedWho1.Name = "txtAddedWho1" + Me.txtAddedWho1.Properties.ReadOnly = True + Me.txtAddedWho1.Size = New System.Drawing.Size(393, 20) + Me.txtAddedWho1.StyleController = Me.LayoutControlDocSearch + Me.txtAddedWho1.TabIndex = 7 + ' + 'txtChangedWho1 + ' + Me.txtChangedWho1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CHANGED_WHO", True)) + Me.txtChangedWho1.Location = New System.Drawing.Point(150, 203) + Me.txtChangedWho1.Name = "txtChangedWho1" + Me.txtChangedWho1.Properties.ReadOnly = True + Me.txtChangedWho1.Size = New System.Drawing.Size(393, 20) + Me.txtChangedWho1.StyleController = Me.LayoutControlDocSearch + Me.txtChangedWho1.TabIndex = 9 + ' + 'txtAddedWhen1 + ' + Me.txtAddedWhen1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ADDED_WHEN", True)) + Me.txtAddedWhen1.Location = New System.Drawing.Point(688, 173) + Me.txtAddedWhen1.Name = "txtAddedWhen1" + Me.txtAddedWhen1.Properties.ReadOnly = True + Me.txtAddedWhen1.Size = New System.Drawing.Size(396, 20) + Me.txtAddedWhen1.StyleController = Me.LayoutControlDocSearch + Me.txtAddedWhen1.TabIndex = 8 + ' + 'txtChangedWhen1 + ' + Me.txtChangedWhen1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CHANGED_WHEN", True)) + Me.txtChangedWhen1.Location = New System.Drawing.Point(688, 203) + Me.txtChangedWhen1.Name = "txtChangedWhen1" + Me.txtChangedWhen1.Properties.ReadOnly = True + Me.txtChangedWhen1.Size = New System.Drawing.Size(396, 20) + Me.txtChangedWhen1.StyleController = Me.LayoutControlDocSearch + Me.txtChangedWhen1.TabIndex = 10 + ' + 'cmbSearchPositions + ' + Me.cmbSearchPositions.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "TAB_INDEX", True)) + Me.cmbSearchPositions.Location = New System.Drawing.Point(419, 15) + Me.cmbSearchPositions.MenuManager = Me.RibbonControl1 + Me.cmbSearchPositions.Name = "cmbSearchPositions" + Me.cmbSearchPositions.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmbSearchPositions.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("NAME", "Name")}) + Me.cmbSearchPositions.Properties.DataSource = Me.TBLOCAL_SEARCH_POSITIONBindingSource + Me.cmbSearchPositions.Properties.DisplayMember = "NAME" + Me.cmbSearchPositions.Properties.NullText = "" + Me.cmbSearchPositions.Properties.PopupSizeable = False + Me.cmbSearchPositions.Properties.ValueMember = "ID" + Me.cmbSearchPositions.Size = New System.Drawing.Size(259, 20) + Me.cmbSearchPositions.StyleController = Me.LayoutControlDocSearch + Me.cmbSearchPositions.TabIndex = 7 + ' + 'TBLOCAL_SEARCH_POSITIONBindingSource + ' + Me.TBLOCAL_SEARCH_POSITIONBindingSource.DataMember = "TBLOCAL_SEARCH_POSITION" + Me.TBLOCAL_SEARCH_POSITIONBindingSource.DataSource = Me.DBCW_Stammdaten + ' + 'ComboBoxEdit1 + ' + Me.ComboBoxEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CONN_ID", True)) + Me.ComboBoxEdit1.Location = New System.Drawing.Point(150, 143) + Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1 + Me.ComboBoxEdit1.Name = "ComboBoxEdit1" + Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.ComboBoxEdit1.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("BEZEICHNUNG", "Name")}) + Me.ComboBoxEdit1.Properties.DataSource = Me.TBDD_CONNECTIONBindingSource + Me.ComboBoxEdit1.Properties.DisplayMember = "BEZEICHNUNG" + Me.ComboBoxEdit1.Properties.NullText = "" + Me.ComboBoxEdit1.Properties.PopupSizeable = False + Me.ComboBoxEdit1.Properties.ValueMember = "GUID" + Me.ComboBoxEdit1.Size = New System.Drawing.Size(934, 20) + Me.ComboBoxEdit1.StyleController = Me.LayoutControlDocSearch + Me.ComboBoxEdit1.TabIndex = 11 + ' + 'TBDD_CONNECTIONBindingSource + ' + Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION" + Me.TBDD_CONNECTIONBindingSource.DataSource = Me.DSDD_Stammdaten + ' + 'DSDD_Stammdaten + ' + Me.DSDD_Stammdaten.DataSetName = "DSDD_Stammdaten" + Me.DSDD_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'LayoutControlGroup1 + ' + Me.LayoutControlGroup1.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroup1.GroupBordersVisible = False + Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem11, Me.LayoutControlItem13, Me.LayoutControlItem12, Me.LayoutControlItem14, Me.LayoutControlItem15, Me.LayoutControlItem16, Me.LayoutControlItem17, Me.LayoutControlItem18, Me.LayoutControlItem19, Me.LayoutControlItem21}) + Me.LayoutControlGroup1.Name = "Root" + Me.LayoutControlGroup1.Size = New System.Drawing.Size(1099, 239) + Me.LayoutControlGroup1.TextVisible = False + ' + 'LayoutControlItem10 + ' + Me.LayoutControlItem10.Control = Me.TextEdit5 + Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem10.Name = "LayoutControlItem10" + Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem10.Size = New System.Drawing.Size(269, 30) + Me.LayoutControlItem10.Text = "GUID" + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem11 + ' + Me.LayoutControlItem11.Control = Me.TextEdit6 + Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 30) + Me.LayoutControlItem11.Name = "LayoutControlItem11" + Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem11.Size = New System.Drawing.Size(1079, 30) + Me.LayoutControlItem11.Text = "Name" + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem13 + ' + Me.LayoutControlItem13.Control = Me.cmbSearchPositions + Me.LayoutControlItem13.Location = New System.Drawing.Point(269, 0) + Me.LayoutControlItem13.Name = "LayoutControlItem13" + Me.LayoutControlItem13.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem13.Size = New System.Drawing.Size(404, 30) + Me.LayoutControlItem13.Text = "Reihenfolge" + Me.LayoutControlItem13.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem12 + ' + Me.LayoutControlItem12.Control = Me.CheckEdit2 + Me.LayoutControlItem12.Location = New System.Drawing.Point(673, 0) + Me.LayoutControlItem12.Name = "LayoutControlItem12" + Me.LayoutControlItem12.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem12.Size = New System.Drawing.Size(406, 30) + Me.LayoutControlItem12.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem12.TextVisible = False + ' + 'LayoutControlItem14 + ' + Me.LayoutControlItem14.Control = Me.TextEdit7 + Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 60) + Me.LayoutControlItem14.Name = "LayoutControlItem14" + Me.LayoutControlItem14.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem14.Size = New System.Drawing.Size(1079, 34) + Me.LayoutControlItem14.Text = "SQL für Suche" + Me.LayoutControlItem14.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem15 + ' + Me.LayoutControlItem15.Control = Me.TextEdit8 + Me.LayoutControlItem15.Location = New System.Drawing.Point(0, 94) + Me.LayoutControlItem15.Name = "LayoutControlItem15" + Me.LayoutControlItem15.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem15.Size = New System.Drawing.Size(1079, 34) + Me.LayoutControlItem15.Text = "SQL für Ergebnis-Zählung" + Me.LayoutControlItem15.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem16 + ' + Me.LayoutControlItem16.Control = Me.txtAddedWho1 + Me.LayoutControlItem16.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem16.CustomizationFormText = "Erstellt Wer" + Me.LayoutControlItem16.Location = New System.Drawing.Point(0, 158) + Me.LayoutControlItem16.Name = "LayoutControlItem16" + Me.LayoutControlItem16.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem16.Size = New System.Drawing.Size(538, 30) + Me.LayoutControlItem16.Text = "Erstellt Wer" + Me.LayoutControlItem16.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem17 + ' + Me.LayoutControlItem17.Control = Me.txtChangedWho1 + Me.LayoutControlItem17.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem17.CustomizationFormText = "Geändert Wer" + Me.LayoutControlItem17.Location = New System.Drawing.Point(0, 188) + Me.LayoutControlItem17.Name = "LayoutControlItem17" + Me.LayoutControlItem17.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem17.Size = New System.Drawing.Size(538, 31) + Me.LayoutControlItem17.Text = "Geändert Wer" + Me.LayoutControlItem17.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem18 + ' + Me.LayoutControlItem18.Control = Me.txtAddedWhen1 + Me.LayoutControlItem18.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem18.CustomizationFormText = "Erstellt Wann" + Me.LayoutControlItem18.Location = New System.Drawing.Point(538, 158) + Me.LayoutControlItem18.Name = "LayoutControlItem18" + Me.LayoutControlItem18.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem18.Size = New System.Drawing.Size(541, 30) + Me.LayoutControlItem18.Text = "Erstellt Wann" + Me.LayoutControlItem18.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem19 + ' + Me.LayoutControlItem19.Control = Me.txtChangedWhen1 + Me.LayoutControlItem19.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem19.CustomizationFormText = "Geändert Wann" + Me.LayoutControlItem19.Location = New System.Drawing.Point(538, 188) + Me.LayoutControlItem19.Name = "LayoutControlItem19" + Me.LayoutControlItem19.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem19.Size = New System.Drawing.Size(541, 31) + Me.LayoutControlItem19.Text = "Geändert Wann" + Me.LayoutControlItem19.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem21 + ' + Me.LayoutControlItem21.Control = Me.ComboBoxEdit1 + Me.LayoutControlItem21.Location = New System.Drawing.Point(0, 128) + Me.LayoutControlItem21.Name = "LayoutControlItem21" + Me.LayoutControlItem21.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem21.Size = New System.Drawing.Size(1079, 30) + Me.LayoutControlItem21.Text = "Datenbank Verbindung" + Me.LayoutControlItem21.TextSize = New System.Drawing.Size(132, 13) + ' + 'GridControl2 + ' + Me.GridControl2.DataSource = Me.TBCW_PROF_DOC_SEARCHBindingSource + Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Left + Me.GridControl2.Location = New System.Drawing.Point(0, 0) + Me.GridControl2.MainView = Me.GridViewDocSearch + Me.GridControl2.MenuManager = Me.RibbonControl1 + Me.GridControl2.Name = "GridControl2" + Me.GridControl2.Size = New System.Drawing.Size(225, 239) + Me.GridControl2.TabIndex = 2 + Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch}) + ' + 'GridViewDocSearch + ' + Me.GridViewDocSearch.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colTAB_TITLE1}) + Me.GridViewDocSearch.GridControl = Me.GridControl2 + Me.GridViewDocSearch.Name = "GridViewDocSearch" + ' + 'colTAB_TITLE1 + ' + Me.colTAB_TITLE1.FieldName = "TAB_TITLE" + Me.colTAB_TITLE1.Name = "colTAB_TITLE1" + Me.colTAB_TITLE1.Visible = True + Me.colTAB_TITLE1.VisibleIndex = 0 + ' + 'PageDataSearch + ' + Me.PageDataSearch.Controls.Add(Me.LayoutControlDataSearch) + Me.PageDataSearch.Controls.Add(Me.GridControl1) + Me.PageDataSearch.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_database + Me.PageDataSearch.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.PageDataSearch.Name = "PageDataSearch" + Me.PageDataSearch.Size = New System.Drawing.Size(1324, 239) + Me.PageDataSearch.Text = "Daten-Suchen" + ' + 'LayoutControlDataSearch + ' + Me.LayoutControlDataSearch.Controls.Add(Me.TextEdit51) + Me.LayoutControlDataSearch.Controls.Add(Me.TextEdit61) + Me.LayoutControlDataSearch.Controls.Add(Me.cmbSearchPositions1) + Me.LayoutControlDataSearch.Controls.Add(Me.CheckEdit21) + Me.LayoutControlDataSearch.Controls.Add(Me.TextEdit71) + Me.LayoutControlDataSearch.Controls.Add(Me.TextEdit81) + Me.LayoutControlDataSearch.Controls.Add(Me.txtAddedWho11) + Me.LayoutControlDataSearch.Controls.Add(Me.txtChangedWho11) + Me.LayoutControlDataSearch.Controls.Add(Me.txtAddedWhen11) + Me.LayoutControlDataSearch.Controls.Add(Me.txtChangedWhen11) + Me.LayoutControlDataSearch.Controls.Add(Me.ComboBoxEdit11) + Me.LayoutControlDataSearch.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControlDataSearch.Location = New System.Drawing.Point(225, 0) + Me.LayoutControlDataSearch.Name = "LayoutControlDataSearch" + Me.LayoutControlDataSearch.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1270, 407, 650, 400) + Me.LayoutControlDataSearch.Root = Me.LayoutControlGroup2 + Me.LayoutControlDataSearch.Size = New System.Drawing.Size(1099, 239) + Me.LayoutControlDataSearch.TabIndex = 1 + Me.LayoutControlDataSearch.Text = "LayoutControl1" + ' + 'TextEdit51 + ' + Me.TextEdit51.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "GUID", True)) + Me.TextEdit51.Location = New System.Drawing.Point(150, 15) + Me.TextEdit51.Name = "TextEdit51" + Me.TextEdit51.Properties.ReadOnly = True + Me.TextEdit51.Size = New System.Drawing.Size(127, 20) + Me.TextEdit51.StyleController = Me.LayoutControlDataSearch + Me.TextEdit51.TabIndex = 4 + ' + 'TBCW_PROF_DATA_SEARCHBindingSource + ' + Me.TBCW_PROF_DATA_SEARCHBindingSource.DataMember = "TBCW_PROF_DATA_SEARCH" + Me.TBCW_PROF_DATA_SEARCHBindingSource.DataSource = Me.DBCW_Stammdaten + ' + 'TextEdit61 + ' + Me.TextEdit61.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_TITLE", True)) + Me.TextEdit61.Location = New System.Drawing.Point(150, 45) + Me.TextEdit61.Name = "TextEdit61" + Me.TextEdit61.Size = New System.Drawing.Size(934, 20) + Me.TextEdit61.StyleController = Me.LayoutControlDataSearch + Me.TextEdit61.TabIndex = 5 + ' + 'cmbSearchPositions1 + ' + Me.cmbSearchPositions1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_INDEX", True)) + Me.cmbSearchPositions1.Location = New System.Drawing.Point(422, 15) + Me.cmbSearchPositions1.Name = "cmbSearchPositions1" + Me.cmbSearchPositions1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmbSearchPositions1.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("NAME", "Name")}) + Me.cmbSearchPositions1.Properties.DataSource = Me.TBLOCAL_SEARCH_POSITIONBindingSource + Me.cmbSearchPositions1.Properties.DisplayMember = "NAME" + Me.cmbSearchPositions1.Properties.NullText = "" + Me.cmbSearchPositions1.Properties.PopupSizeable = False + Me.cmbSearchPositions1.Properties.ValueMember = "ID" + Me.cmbSearchPositions1.Size = New System.Drawing.Size(254, 20) + Me.cmbSearchPositions1.StyleController = Me.LayoutControlDataSearch + Me.cmbSearchPositions1.TabIndex = 7 + ' + 'CheckEdit21 + ' + Me.CheckEdit21.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ACTIVE", True)) + Me.CheckEdit21.Location = New System.Drawing.Point(686, 15) + Me.CheckEdit21.Name = "CheckEdit21" + Me.CheckEdit21.Properties.Caption = "Aktiv" + Me.CheckEdit21.Size = New System.Drawing.Size(398, 18) + Me.CheckEdit21.StyleController = Me.LayoutControlDataSearch + Me.CheckEdit21.TabIndex = 6 + ' + 'TextEdit71 + ' + Me.TextEdit71.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "SQL_COMMAND", True)) + Me.TextEdit71.Location = New System.Drawing.Point(150, 75) + Me.TextEdit71.Name = "TextEdit71" + EditorButtonImageOptions4.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.editdatasource + EditorButtonImageOptions4.SvgImageSize = New System.Drawing.Size(16, 16) + SerializableAppearanceObject13.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) + SerializableAppearanceObject13.Options.UseBackColor = True + Me.TextEdit71.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Glyph, "", 50, True, True, False, EditorButtonImageOptions4, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject13, SerializableAppearanceObject14, SerializableAppearanceObject15, SerializableAppearanceObject16, "", "BUTTON_SEARCH_SQL", Nothing, DevExpress.Utils.ToolTipAnchor.[Default])}) + Me.TextEdit71.Size = New System.Drawing.Size(934, 24) + Me.TextEdit71.StyleController = Me.LayoutControlDataSearch + Me.TextEdit71.TabIndex = 8 + ' + 'TextEdit81 + ' + Me.TextEdit81.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "COUNT_COMMAND", True)) + Me.TextEdit81.Location = New System.Drawing.Point(150, 109) + Me.TextEdit81.Name = "TextEdit81" + EditorButtonImageOptions5.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.editdatasource1 + EditorButtonImageOptions5.SvgImageSize = New System.Drawing.Size(16, 16) + SerializableAppearanceObject17.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) + SerializableAppearanceObject17.Options.UseBackColor = True + Me.TextEdit81.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Glyph, "SQL bearbeiten", 50, True, True, False, EditorButtonImageOptions5, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject17, SerializableAppearanceObject18, SerializableAppearanceObject19, SerializableAppearanceObject20, "", "BUTTON_COUNT_SQL", Nothing, DevExpress.Utils.ToolTipAnchor.[Default])}) + Me.TextEdit81.Size = New System.Drawing.Size(934, 24) + Me.TextEdit81.StyleController = Me.LayoutControlDataSearch + Me.TextEdit81.TabIndex = 9 + ' + 'txtAddedWho11 + ' + Me.txtAddedWho11.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ADDED_WHO", True)) + Me.txtAddedWho11.Location = New System.Drawing.Point(150, 173) + Me.txtAddedWho11.Name = "txtAddedWho11" + Me.txtAddedWho11.Properties.ReadOnly = True + Me.txtAddedWho11.Size = New System.Drawing.Size(394, 20) + Me.txtAddedWho11.StyleController = Me.LayoutControlDataSearch + Me.txtAddedWho11.TabIndex = 7 + ' + 'txtChangedWho11 + ' + Me.txtChangedWho11.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CHANGED_WHO", True)) + Me.txtChangedWho11.Location = New System.Drawing.Point(150, 203) + Me.txtChangedWho11.Name = "txtChangedWho11" + Me.txtChangedWho11.Properties.ReadOnly = True + Me.txtChangedWho11.Size = New System.Drawing.Size(394, 20) + Me.txtChangedWho11.StyleController = Me.LayoutControlDataSearch + Me.txtChangedWho11.TabIndex = 9 + ' + 'txtAddedWhen11 + ' + Me.txtAddedWhen11.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ADDED_WHEN", True)) + Me.txtAddedWhen11.Location = New System.Drawing.Point(689, 173) + Me.txtAddedWhen11.Name = "txtAddedWhen11" + Me.txtAddedWhen11.Properties.ReadOnly = True + Me.txtAddedWhen11.Size = New System.Drawing.Size(395, 20) + Me.txtAddedWhen11.StyleController = Me.LayoutControlDataSearch + Me.txtAddedWhen11.TabIndex = 8 + ' + 'txtChangedWhen11 + ' + Me.txtChangedWhen11.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CHANGED_WHEN", True)) + Me.txtChangedWhen11.Location = New System.Drawing.Point(689, 203) + Me.txtChangedWhen11.Name = "txtChangedWhen11" + Me.txtChangedWhen11.Properties.ReadOnly = True + Me.txtChangedWhen11.Size = New System.Drawing.Size(395, 20) + Me.txtChangedWhen11.StyleController = Me.LayoutControlDataSearch + Me.txtChangedWhen11.TabIndex = 10 + ' + 'ComboBoxEdit11 + ' + Me.ComboBoxEdit11.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CONN_ID", True)) + Me.ComboBoxEdit11.Location = New System.Drawing.Point(150, 143) + Me.ComboBoxEdit11.Name = "ComboBoxEdit11" + Me.ComboBoxEdit11.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.ComboBoxEdit11.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("BEZEICHNUNG", "Name")}) + Me.ComboBoxEdit11.Properties.DataSource = Me.TBDD_CONNECTIONBindingSource + Me.ComboBoxEdit11.Properties.DisplayMember = "BEZEICHNUNG" + Me.ComboBoxEdit11.Properties.NullText = "" + Me.ComboBoxEdit11.Properties.PopupSizeable = False + Me.ComboBoxEdit11.Properties.ValueMember = "GUID" + Me.ComboBoxEdit11.Size = New System.Drawing.Size(934, 20) + Me.ComboBoxEdit11.StyleController = Me.LayoutControlDataSearch + Me.ComboBoxEdit11.TabIndex = 11 + ' + 'LayoutControlGroup2 + ' + Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroup2.GroupBordersVisible = False + Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem22, Me.LayoutControlItem23, Me.LayoutControlItem26, Me.LayoutControlItem27, Me.LayoutControlItem32, Me.LayoutControlItem28, Me.LayoutControlItem29, Me.LayoutControlItem30, Me.LayoutControlItem31, Me.LayoutControlItem24, Me.LayoutControlItem25}) + Me.LayoutControlGroup2.Name = "Root" + Me.LayoutControlGroup2.Size = New System.Drawing.Size(1099, 239) + Me.LayoutControlGroup2.TextVisible = False + ' + 'LayoutControlItem22 + ' + Me.LayoutControlItem22.Control = Me.TextEdit51 + Me.LayoutControlItem22.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem22.CustomizationFormText = "GUID" + Me.LayoutControlItem22.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem22.Name = "LayoutControlItem22" + Me.LayoutControlItem22.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem22.Size = New System.Drawing.Size(272, 30) + Me.LayoutControlItem22.Text = "GUID" + Me.LayoutControlItem22.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem23 + ' + Me.LayoutControlItem23.Control = Me.TextEdit61 + Me.LayoutControlItem23.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem23.CustomizationFormText = "Name" + Me.LayoutControlItem23.Location = New System.Drawing.Point(0, 30) + Me.LayoutControlItem23.Name = "LayoutControlItem23" + Me.LayoutControlItem23.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem23.Size = New System.Drawing.Size(1079, 30) + Me.LayoutControlItem23.Text = "Name" + Me.LayoutControlItem23.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem26 + ' + Me.LayoutControlItem26.Control = Me.TextEdit71 + Me.LayoutControlItem26.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem26.CustomizationFormText = "SQL für Suche" + Me.LayoutControlItem26.Location = New System.Drawing.Point(0, 60) + Me.LayoutControlItem26.Name = "LayoutControlItem26" + Me.LayoutControlItem26.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem26.Size = New System.Drawing.Size(1079, 34) + Me.LayoutControlItem26.Text = "SQL für Suche" + Me.LayoutControlItem26.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem27 + ' + Me.LayoutControlItem27.Control = Me.TextEdit81 + Me.LayoutControlItem27.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem27.CustomizationFormText = "SQL für Ergebnis-Zählung" + Me.LayoutControlItem27.Location = New System.Drawing.Point(0, 94) + Me.LayoutControlItem27.Name = "LayoutControlItem27" + Me.LayoutControlItem27.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem27.Size = New System.Drawing.Size(1079, 34) + Me.LayoutControlItem27.Text = "SQL für Ergebnis-Zählung" + Me.LayoutControlItem27.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem32 + ' + Me.LayoutControlItem32.Control = Me.ComboBoxEdit11 + Me.LayoutControlItem32.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem32.CustomizationFormText = "Datenbank Verbindung" + Me.LayoutControlItem32.Location = New System.Drawing.Point(0, 128) + Me.LayoutControlItem32.Name = "LayoutControlItem32" + Me.LayoutControlItem32.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem32.Size = New System.Drawing.Size(1079, 30) + Me.LayoutControlItem32.Text = "Datenbank Verbindung" + Me.LayoutControlItem32.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem28 + ' + Me.LayoutControlItem28.Control = Me.txtAddedWho11 + Me.LayoutControlItem28.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem28.CustomizationFormText = "Erstellt Wer" + Me.LayoutControlItem28.Location = New System.Drawing.Point(0, 158) + Me.LayoutControlItem28.Name = "LayoutControlItem28" + Me.LayoutControlItem28.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem28.Size = New System.Drawing.Size(539, 30) + Me.LayoutControlItem28.Text = "Erstellt Wer" + Me.LayoutControlItem28.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem29 + ' + Me.LayoutControlItem29.Control = Me.txtChangedWho11 + Me.LayoutControlItem29.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem29.CustomizationFormText = "Geändert Wer" + Me.LayoutControlItem29.Location = New System.Drawing.Point(0, 188) + Me.LayoutControlItem29.Name = "LayoutControlItem29" + Me.LayoutControlItem29.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem29.Size = New System.Drawing.Size(539, 31) + Me.LayoutControlItem29.Text = "Geändert Wer" + Me.LayoutControlItem29.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem30 + ' + Me.LayoutControlItem30.Control = Me.txtAddedWhen11 + Me.LayoutControlItem30.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem30.CustomizationFormText = "Erstellt Wann" + Me.LayoutControlItem30.Location = New System.Drawing.Point(539, 158) + Me.LayoutControlItem30.Name = "LayoutControlItem30" + Me.LayoutControlItem30.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem30.Size = New System.Drawing.Size(540, 30) + Me.LayoutControlItem30.Text = "Erstellt Wann" + Me.LayoutControlItem30.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem31 + ' + Me.LayoutControlItem31.Control = Me.txtChangedWhen11 + Me.LayoutControlItem31.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem31.CustomizationFormText = "Geändert Wann" + Me.LayoutControlItem31.Location = New System.Drawing.Point(539, 188) + Me.LayoutControlItem31.Name = "LayoutControlItem31" + Me.LayoutControlItem31.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem31.Size = New System.Drawing.Size(540, 31) + Me.LayoutControlItem31.Text = "Geändert Wann" + Me.LayoutControlItem31.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem24 + ' + Me.LayoutControlItem24.Control = Me.cmbSearchPositions1 + Me.LayoutControlItem24.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem24.CustomizationFormText = "Reihenfolge" + Me.LayoutControlItem24.Location = New System.Drawing.Point(272, 0) + Me.LayoutControlItem24.Name = "LayoutControlItem24" + Me.LayoutControlItem24.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem24.Size = New System.Drawing.Size(399, 30) + Me.LayoutControlItem24.Text = "Reihenfolge" + Me.LayoutControlItem24.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem25 + ' + Me.LayoutControlItem25.Control = Me.CheckEdit21 + Me.LayoutControlItem25.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem25.CustomizationFormText = "LayoutControlItem12" + Me.LayoutControlItem25.Location = New System.Drawing.Point(671, 0) + Me.LayoutControlItem25.Name = "LayoutControlItem25" + Me.LayoutControlItem25.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem25.Size = New System.Drawing.Size(408, 30) + Me.LayoutControlItem25.Text = "LayoutControlItem12" + Me.LayoutControlItem25.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem25.TextVisible = False + ' + 'GridControl1 + ' + Me.GridControl1.DataSource = Me.TBCW_PROF_DATA_SEARCHBindingSource + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Left + Me.GridControl1.Location = New System.Drawing.Point(0, 0) + Me.GridControl1.MainView = Me.GridViewDataSearch + Me.GridControl1.MenuManager = Me.RibbonControl1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(225, 239) + Me.GridControl1.TabIndex = 0 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDataSearch}) + ' + 'GridViewDataSearch + ' + Me.GridViewDataSearch.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colTAB_TITLE}) + Me.GridViewDataSearch.GridControl = Me.GridControl1 + Me.GridViewDataSearch.Name = "GridViewDataSearch" + ' + 'colTAB_TITLE + ' + Me.colTAB_TITLE.FieldName = "TAB_TITLE" + Me.colTAB_TITLE.Name = "colTAB_TITLE" + Me.colTAB_TITLE.Visible = True + Me.colTAB_TITLE.VisibleIndex = 0 + ' + 'PageApplicationAssignment + ' + Me.PageApplicationAssignment.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.windows + Me.PageApplicationAssignment.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.PageApplicationAssignment.Name = "PageApplicationAssignment" + Me.PageApplicationAssignment.Size = New System.Drawing.Size(1324, 239) + Me.PageApplicationAssignment.Text = "Anwendungs-Zuordnung" + ' + 'TBCW_PROF_DOC_SEARCHTableAdapter + ' + Me.TBCW_PROF_DOC_SEARCHTableAdapter.ClearBeforeFill = True + ' + 'TBCW_PROF_DATA_SEARCHTableAdapter + ' + Me.TBCW_PROF_DATA_SEARCHTableAdapter.ClearBeforeFill = True + ' + 'TBDD_CONNECTIONTableAdapter + ' + Me.TBDD_CONNECTIONTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager1 + ' + Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager1.TBDD_CONNECTIONTableAdapter = Me.TBDD_CONNECTIONTableAdapter + Me.TableAdapterManager1.UpdateOrder = DigitalData.GUIs.ZooFlow.DSDD_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'frmAdmin_ClipboardWatcher + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1328, 698) + Me.Controls.Add(Me.XtraTabControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_CW_DevExpress + Me.Name = "frmAdmin_ClipboardWatcher" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Clipboard Watcher - Profil" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DBCW_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlProfile, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControlProfile.ResumeLayout(False) + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmbProfileType.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBLOCAL_PROFILE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem20, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.PageProfile.ResumeLayout(False) + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl2.ResumeLayout(False) + Me.PageDocumentSearch.ResumeLayout(False) + CType(Me.LayoutControlDocSearch, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControlDocSearch.ResumeLayout(False) + CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWho1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWho1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWhen1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWhen1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmbSearchPositions.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBLOCAL_SEARCH_POSITIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSDD_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem21, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewDocSearch, System.ComponentModel.ISupportInitialize).EndInit() + Me.PageDataSearch.ResumeLayout(False) + CType(Me.LayoutControlDataSearch, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControlDataSearch.ResumeLayout(False) + CType(Me.TextEdit51.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBCW_PROF_DATA_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit61.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmbSearchPositions1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CheckEdit21.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit71.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit81.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWho11.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWho11.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWhen11.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWhen11.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ComboBoxEdit11.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem26, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem27, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem32, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem28, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem29, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem31, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem24, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem25, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewDataSearch, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents DBCW_Stammdaten As DBCW_Stammdaten + Friend WithEvents TBCW_PROFILESBindingSource As BindingSource + Friend WithEvents TBCW_PROFILESTableAdapter As DBCW_StammdatenTableAdapters.TBCW_PROFILESTableAdapter + Friend WithEvents TableAdapterManager As DBCW_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents BarButtonSave As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControlProfile As DevExpress.XtraLayout.LayoutControl + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents txtAddedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtAddedWhen As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWhen As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem + Friend WithEvents labelError As DevExpress.XtraBars.BarStaticItem + Friend WithEvents CheckEdit1 As DevExpress.XtraEditors.CheckEdit + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents PageProfile As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents PageDocumentSearch As DevExpress.XtraTab.XtraTabPage + Friend WithEvents PageDataSearch As DevExpress.XtraTab.XtraTabPage + Friend WithEvents PageApplicationAssignment As DevExpress.XtraTab.XtraTabPage + Friend WithEvents TextEdit4 As DevExpress.XtraEditors.ButtonEdit + Friend WithEvents LayoutControlDocSearch As DevExpress.XtraLayout.LayoutControl + Friend WithEvents TextEdit5 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TextEdit6 As DevExpress.XtraEditors.TextEdit + Friend WithEvents CheckEdit2 As DevExpress.XtraEditors.CheckEdit + Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem13 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TextEdit7 As DevExpress.XtraEditors.ButtonEdit + Friend WithEvents TextEdit8 As DevExpress.XtraEditors.ButtonEdit + Friend WithEvents LayoutControlItem14 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem15 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents txtAddedWho1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWho1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtAddedWhen1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWhen1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem16 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem17 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem18 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem19 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TBCW_PROF_DOC_SEARCHBindingSource As BindingSource + Friend WithEvents TBCW_PROF_DOC_SEARCHTableAdapter As DBCW_StammdatenTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter + Friend WithEvents TBCW_PROF_DATA_SEARCHBindingSource As BindingSource + Friend WithEvents TBCW_PROF_DATA_SEARCHTableAdapter As DBCW_StammdatenTableAdapters.TBCW_PROF_DATA_SEARCHTableAdapter + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewDataSearch As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colTAB_TITLE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewDocSearch As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colTAB_TITLE1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents LayoutControlDataSearch As DevExpress.XtraLayout.LayoutControl + Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents BarButtonNew As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControlItem20 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents cmbProfileType As DevExpress.XtraEditors.LookUpEdit + Friend WithEvents cmbSearchPositions As DevExpress.XtraEditors.LookUpEdit + Friend WithEvents TBLOCAL_PROFILE_TYPEBindingSource As BindingSource + Friend WithEvents TBLOCAL_SEARCH_POSITIONBindingSource As BindingSource + Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.LookUpEdit + Friend WithEvents LayoutControlItem21 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents DSDD_Stammdaten As DSDD_Stammdaten + Friend WithEvents TBDD_CONNECTIONBindingSource As BindingSource + Friend WithEvents TBDD_CONNECTIONTableAdapter As DSDD_StammdatenTableAdapters.TBDD_CONNECTIONTableAdapter + Friend WithEvents TableAdapterManager1 As DSDD_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents TextEdit51 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit61 As DevExpress.XtraEditors.TextEdit + Friend WithEvents cmbSearchPositions1 As DevExpress.XtraEditors.LookUpEdit + Friend WithEvents CheckEdit21 As DevExpress.XtraEditors.CheckEdit + Friend WithEvents TextEdit71 As DevExpress.XtraEditors.ButtonEdit + Friend WithEvents TextEdit81 As DevExpress.XtraEditors.ButtonEdit + Friend WithEvents txtAddedWho11 As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWho11 As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtAddedWhen11 As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWhen11 As DevExpress.XtraEditors.TextEdit + Friend WithEvents ComboBoxEdit11 As DevExpress.XtraEditors.LookUpEdit + Friend WithEvents LayoutControlItem22 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem23 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem24 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem25 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem26 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem27 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem28 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem29 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem30 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem31 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem32 As DevExpress.XtraLayout.LayoutControlItem +End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.resx b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.resx new file mode 100644 index 0000000..6657b31 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.resx @@ -0,0 +1,165 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 178, 17 + + + 398, 17 + + + 612, 17 + + + 295, 56 + + + 785, 17 + + + 557, 56 + + + 1006, 56 + + + 847, 56 + + + 1336, 17 + + + 1063, 17 + + + 17, 56 + + + 1250, 56 + + + 17, 95 + + + 119 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb new file mode 100644 index 0000000..25b5ec7 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb @@ -0,0 +1,260 @@ +Imports System.ComponentModel +Imports DevExpress.XtraEditors +Imports DevExpress.XtraEditors.Controls +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraLayout +Imports DevExpress.XtraTab +Imports DigitalData.Controls.RegexEditor +Imports DigitalData.Controls.SQLEditor +Imports DigitalData.GUIs.Common +Imports DigitalData.Modules.Logging + +Public Class frmAdmin_ClipboardWatcher + Implements IAdminForm + + Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey + Public Property HasChanges As Boolean Implements IAdminForm.HasChanges + Public Property IsInsert As Boolean Implements IAdminForm.IsInsert + + Private Const BUTTON_REGEX_PROFILE = "BUTTON_REGEX_PROFILE" + Private Const BUTTON_SEARCH_SQL = "BUTTON_SEARCH_SQL" + Private Const BUTTON_COUNT_SQL = "BUTTON_COUNT_SQL" + + Private Const TAB_PAGE_PROFILE = "TAB_PAGE_PROFILE" + Private Const TAB_PAGE_DOCSEARCH = "TAB_PAGE_DOCSEARCH" + Private Const TAB_PAGE_DATASEARCH = "TAB_PAGE_DATASEARCH" + + Private Const SEARCH_POSITION_PRIMARY As Integer = 0 + Private Const SEARCH_POSITION_SECONDARY As Integer = 1 + Private Const SEARCH_POSITION_TERTIARY As Integer = 2 + + Private Const PROFILE_TYPE_DATA_DOCS As Integer = 0 + Private Const PROFILE_TYPE_DOCS_ONLY As Integer = 1 + Private Const PROFILE_TYPE_DATA_ONLY As Integer = 2 + + Private Pages As ClassDetailPageManager + Private FormHelper As FormHelper + + Friend Class ProfileType + Public Property Id As Integer + Public Property Name As String + + Public Overrides Function ToString() As String + Return Name + End Function + End Class + + Friend Class SearchPosition + Public Property Id As Integer + Public Property Name As String + + Public Overrides Function ToString() As String + Return Name + End Function + End Class + + Public Sub New(PrimaryKey As Integer) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.PrimaryKey = PrimaryKey + Me.IsInsert = IsInsert + FormHelper = New FormHelper(My.LogConfig, Me) + End Sub + + Private Sub frmAdmin_CWProfile_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + TBCW_PROFILESTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString + TBCW_PROFILESTableAdapter.Fill(DBCW_Stammdaten.TBCW_PROFILES, PrimaryKey) + + TBCW_PROF_DOC_SEARCHTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString + TBCW_PROF_DOC_SEARCHTableAdapter.Fill(DBCW_Stammdaten.TBCW_PROF_DOC_SEARCH, PrimaryKey) + + TBCW_PROF_DATA_SEARCHTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString + TBCW_PROF_DATA_SEARCHTableAdapter.Fill(DBCW_Stammdaten.TBCW_PROF_DATA_SEARCH, PrimaryKey) + + TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString + TBDD_CONNECTIONTableAdapter.Fill(DSDD_Stammdaten.TBDD_CONNECTION) + + ' Configure the GridViews with some default options + Dim oViews As New List(Of GridView) From {GridViewDataSearch, GridViewDocSearch} + Dim oGridBuilder As New GridBuilder(oViews) + oGridBuilder. + WithDefaults(). + WithReadOnlyOptions() + + ' Add Focus Handler to all controls in all LayoutControls + Dim oLayoutControls = New List(Of LayoutControl) From {LayoutControlProfile, LayoutControlDocSearch, LayoutControlDataSearch} + + DBCW_Stammdaten.TBLOCAL_SEARCH_POSITION.Rows.Add(SEARCH_POSITION_PRIMARY, "Haupttabelle") + DBCW_Stammdaten.TBLOCAL_SEARCH_POSITION.Rows.Add(SEARCH_POSITION_SECONDARY, "Erste Detailtabelle") + DBCW_Stammdaten.TBLOCAL_SEARCH_POSITION.Rows.Add(SEARCH_POSITION_TERTIARY, "Zweite Detailtabelle") + + DBCW_Stammdaten.TBLOCAL_PROFILE_TYPE.Rows.Add(PROFILE_TYPE_DATA_DOCS, "Dokumente und Daten") + DBCW_Stammdaten.TBLOCAL_PROFILE_TYPE.Rows.Add(PROFILE_TYPE_DOCS_ONLY, "Nur Dokumente") + DBCW_Stammdaten.TBLOCAL_PROFILE_TYPE.Rows.Add(PROFILE_TYPE_DATA_ONLY, "Nur Daten") + + Pages = New ClassDetailPageManager(My.LogConfig, Me, oLayoutControls) + Pages.AddRange({ + New ClassDetailPageManager.PrimaryPage(IsInsert) With { + .Name = "Profil", + .TabPage = PageProfile, + .BindingSource = TBCW_PROFILESBindingSource, + .DataTable = DBCW_Stammdaten.TBCW_PROFILES, + .AddedWhoEdit = txtAddedWho, + .ChangedWhoEdit = txtChangedWho + }, + New ClassDetailPageManager.DetailPage With { + .Name = "Dokument-Suche", + .TabPage = PageDocumentSearch, + .BindingSource = TBCW_PROF_DOC_SEARCHBindingSource, + .DataTable = DBCW_Stammdaten.TBCW_PROF_DOC_SEARCH, + .AddedWhoEdit = txtAddedWho1, + .ChangedWhoEdit = txtChangedWho1 + }, + New ClassDetailPageManager.DetailPage With { + .Name = "Daten-Suche", + .TabPage = PageDataSearch, + .BindingSource = TBCW_PROF_DATA_SEARCHBindingSource, + .DataTable = DBCW_Stammdaten.TBCW_PROF_DATA_SEARCH, + .AddedWhoEdit = txtAddedWho11, + .ChangedWhoEdit = txtChangedWho11 + } + }) + + Pages.PrepareLoad() + + AddHandler Pages.CurrentPage_Changed, AddressOf CurrentPage_Changed + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "frmAdmin_CWProfile_Load") + End Try + End Sub + + Private Sub CurrentPage_Changed(sender As Object, e As ClassDetailPageManager.DetailPageEventArgs) + If Not IsNothing(e.Page) Then + If e.Page.IsPrimary = True Then + BarButtonNew.Enabled = False + Else + BarButtonNew.Enabled = True + End If + + RibbonPageGroup1.Text = e.Page.Name + End If + End Sub + + Private Sub ResetMessages() + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End Sub + + Private Sub ShowStatus(Message As String) + labelStatus.Caption = Message + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + 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 + + Select Case oPage.TabPage.Name + Case PageProfile.Name + TBCW_PROFILESTableAdapter.Update(oPage.DataTable) + + Case PageDocumentSearch.Name + TBCW_PROF_DOC_SEARCHTableAdapter.Update(oPage.DataTable) + + Case PageDataSearch.Name + TBCW_PROF_DATA_SEARCHTableAdapter.Update(oPage.DataTable) + End Select + + oPage.IsInsert = False + + ShowStatus($"{oPage.Name} gespeichert!") + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "BarButtonSave_ItemClick") + End Try + Else + ShowStatus("Keine Änderungen!") + End If + End Sub + + Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData + Throw New NotImplementedException() + End Function + + Public Function AddData() As Boolean + Dim oPage = Pages.Current + + If Pages.Current Is Nothing Then + Return False + End If + + If oPage.IsPrimary = False Then + oPage.DataTable.Columns.Item("PROFILE_ID").DefaultValue = PrimaryKey + End If + + Dim oNewRecord As DataRowView = oPage.BindingSource.AddNew() + + Return True + End Function + + Private Sub TextEdit4_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles TextEdit4.ButtonClick + Dim oTextEdit As TextEdit = sender + + If e.Button.Tag = BUTTON_REGEX_PROFILE Then + Dim oForm As New frmRegexEditor(oTextEdit.EditValue) + Dim oResult = oForm.ShowDialog() + + If oResult = DialogResult.OK Then + oTextEdit.EditValue = oForm.RegexString + End If + End If + End Sub + + Private Sub TextEdit7_ButtonClick(sender As Object, e As ButtonPressedEventArgs) Handles TextEdit7.ButtonClick + Dim oTextEdit As TextEdit = sender + + If e.Button.Tag = BUTTON_SEARCH_SQL Then + Dim oForm As New frmSQLEditor(My.LogConfig, My.DatabaseECM) With { + .SQLCommand = oTextEdit.EditValue + } + Dim oResult = oForm.ShowDialog() + + If oResult = DialogResult.OK Then + oTextEdit.EditValue = oForm.SQLCommand + End If + End If + End Sub + + Private Sub TextEdit8_ButtonClick(sender As Object, e As ButtonPressedEventArgs) Handles TextEdit8.ButtonClick + Dim oTextEdit As TextEdit = sender + + If e.Button.Tag = BUTTON_COUNT_SQL Then + Dim oForm As New frmSQLEditor(My.LogConfig, My.DatabaseECM) With { + .SQLCommand = oTextEdit.EditValue + } + Dim oResult = oForm.ShowDialog() + + If oResult = DialogResult.OK Then + oTextEdit.EditValue = oForm.SQLCommand + End If + End If + End Sub + + Private Sub BarButtonNew_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonNew.ItemClick + Pages.Current.IsInsert = True + + AddData() + End Sub + + Private Sub XtraTabControl2_SelectedPageChanged(sender As Object, e As TabPageChangedEventArgs) Handles XtraTabControl2.SelectedPageChanged + Dim oPage = Pages.GetDetailPage(e.Page) + + If oPage IsNot Nothing Then + Pages.Current = oPage + End If + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.Designer.vb new file mode 100644 index 0000000..d57bd53 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.Designer.vb @@ -0,0 +1,365 @@ + _ +Partial Class frmAdmin_DoctypeBE + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_DoctypeBE)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.bsiInfo = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.btnRemoveDoctype = New DevExpress.XtraEditors.SimpleButton() + Me.btnAddDoctype = New DevExpress.XtraEditors.SimpleButton() + Me.GridControlRelatedDoctypes = New DevExpress.XtraGrid.GridControl() + Me.GridViewRelatedDoctypes = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridControlDoctypesNonRelated = New DevExpress.XtraGrid.GridControl() + Me.GridViewDoctypesNonRelated = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridControlBusinessEntities = New DevExpress.XtraGrid.GridControl() + Me.GridViewBusinessEntities = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.GridControlRelatedDoctypes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewRelatedDoctypes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlDoctypesNonRelated, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewDoctypesNonRelated, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlBusinessEntities, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewBusinessEntities, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex"), Integer) + Me.RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex"), Integer) + Me.RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.RibbonControl1.ExpandCollapseItem.SearchTags = resources.GetString("RibbonControl1.ExpandCollapseItem.SearchTags") + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiInfo, Me.BarButtonItem1}) + Me.RibbonControl1.MaxItemId = 3 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'bsiInfo + ' + resources.ApplyResources(Me.bsiInfo, "bsiInfo") + Me.bsiInfo.Id = 1 + Me.bsiInfo.ImageOptions.ImageIndex = CType(resources.GetObject("bsiInfo.ImageOptions.ImageIndex"), Integer) + Me.bsiInfo.ImageOptions.LargeImageIndex = CType(resources.GetObject("bsiInfo.ImageOptions.LargeImageIndex"), Integer) + Me.bsiInfo.ImageOptions.SvgImage = CType(resources.GetObject("bsiInfo.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bsiInfo.Name = "bsiInfo" + Me.bsiInfo.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + Me.bsiInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' + 'BarButtonItem1 + ' + resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1") + Me.BarButtonItem1.Id = 2 + Me.BarButtonItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.ImageIndex"), Integer) + Me.BarButtonItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImageIndex"), Integer) + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + resources.ApplyResources(Me.RibbonPage1, "RibbonPage1") + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1") + ' + 'RibbonStatusBar1 + ' + resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1") + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo, True) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + resources.ApplyResources(Me.RibbonPage2, "RibbonPage2") + ' + 'LayoutControl1 + ' + resources.ApplyResources(Me.LayoutControl1, "LayoutControl1") + Me.LayoutControl1.Controls.Add(Me.btnRemoveDoctype) + Me.LayoutControl1.Controls.Add(Me.btnAddDoctype) + Me.LayoutControl1.Controls.Add(Me.GridControlRelatedDoctypes) + Me.LayoutControl1.Controls.Add(Me.GridControlDoctypesNonRelated) + Me.LayoutControl1.Controls.Add(Me.GridControlBusinessEntities) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + ' + 'btnRemoveDoctype + ' + resources.ApplyResources(Me.btnRemoveDoctype, "btnRemoveDoctype") + Me.btnRemoveDoctype.Appearance.Options.UseTextOptions = True + Me.btnRemoveDoctype.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.btnRemoveDoctype.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleRight + Me.btnRemoveDoctype.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.btnRemoveDoctype.Name = "btnRemoveDoctype" + Me.btnRemoveDoctype.StyleController = Me.LayoutControl1 + ' + 'btnAddDoctype + ' + resources.ApplyResources(Me.btnAddDoctype, "btnAddDoctype") + Me.btnAddDoctype.Appearance.Options.UseTextOptions = True + Me.btnAddDoctype.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.btnAddDoctype.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.btnAddDoctype.Name = "btnAddDoctype" + Me.btnAddDoctype.StyleController = Me.LayoutControl1 + ' + 'GridControlRelatedDoctypes + ' + resources.ApplyResources(Me.GridControlRelatedDoctypes, "GridControlRelatedDoctypes") + Me.GridControlRelatedDoctypes.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlRelatedDoctypes.EmbeddedNavigator.AccessibleDescription") + Me.GridControlRelatedDoctypes.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlRelatedDoctypes.EmbeddedNavigator.AccessibleName") + Me.GridControlRelatedDoctypes.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlRelatedDoctypes.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean) + Me.GridControlRelatedDoctypes.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlRelatedDoctypes.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles) + Me.GridControlRelatedDoctypes.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlRelatedDoctypes.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image) + Me.GridControlRelatedDoctypes.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlRelatedDoctypes.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout) + Me.GridControlRelatedDoctypes.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlRelatedDoctypes.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode) + Me.GridControlRelatedDoctypes.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlRelatedDoctypes.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding) + Me.GridControlRelatedDoctypes.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlRelatedDoctypes.EmbeddedNavigator.MaximumSize"), System.Drawing.Size) + Me.GridControlRelatedDoctypes.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlRelatedDoctypes.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation) + Me.GridControlRelatedDoctypes.EmbeddedNavigator.ToolTip = resources.GetString("GridControlRelatedDoctypes.EmbeddedNavigator.ToolTip") + Me.GridControlRelatedDoctypes.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlRelatedDoctypes.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType) + Me.GridControlRelatedDoctypes.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlRelatedDoctypes.EmbeddedNavigator.ToolTipTitle") + Me.GridControlRelatedDoctypes.MainView = Me.GridViewRelatedDoctypes + Me.GridControlRelatedDoctypes.MenuManager = Me.RibbonControl1 + Me.GridControlRelatedDoctypes.Name = "GridControlRelatedDoctypes" + Me.GridControlRelatedDoctypes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewRelatedDoctypes}) + ' + 'GridViewRelatedDoctypes + ' + resources.ApplyResources(Me.GridViewRelatedDoctypes, "GridViewRelatedDoctypes") + Me.GridViewRelatedDoctypes.GridControl = Me.GridControlRelatedDoctypes + Me.GridViewRelatedDoctypes.Name = "GridViewRelatedDoctypes" + Me.GridViewRelatedDoctypes.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewRelatedDoctypes.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewRelatedDoctypes.OptionsBehavior.Editable = False + Me.GridViewRelatedDoctypes.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewRelatedDoctypes.OptionsView.ShowGroupPanel = False + Me.GridViewRelatedDoctypes.OptionsView.ShowViewCaption = True + ' + 'GridControlDoctypesNonRelated + ' + resources.ApplyResources(Me.GridControlDoctypesNonRelated, "GridControlDoctypesNonRelated") + Me.GridControlDoctypesNonRelated.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlDoctypesNonRelated.EmbeddedNavigator.AccessibleDescription") + Me.GridControlDoctypesNonRelated.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlDoctypesNonRelated.EmbeddedNavigator.AccessibleName") + Me.GridControlDoctypesNonRelated.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlDoctypesNonRelated.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean) + Me.GridControlDoctypesNonRelated.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlDoctypesNonRelated.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles) + Me.GridControlDoctypesNonRelated.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlDoctypesNonRelated.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image) + Me.GridControlDoctypesNonRelated.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlDoctypesNonRelated.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout) + Me.GridControlDoctypesNonRelated.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlDoctypesNonRelated.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode) + Me.GridControlDoctypesNonRelated.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlDoctypesNonRelated.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding) + Me.GridControlDoctypesNonRelated.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlDoctypesNonRelated.EmbeddedNavigator.MaximumSize"), System.Drawing.Size) + Me.GridControlDoctypesNonRelated.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlDoctypesNonRelated.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation) + Me.GridControlDoctypesNonRelated.EmbeddedNavigator.ToolTip = resources.GetString("GridControlDoctypesNonRelated.EmbeddedNavigator.ToolTip") + Me.GridControlDoctypesNonRelated.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlDoctypesNonRelated.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType) + Me.GridControlDoctypesNonRelated.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlDoctypesNonRelated.EmbeddedNavigator.ToolTipTitle") + Me.GridControlDoctypesNonRelated.MainView = Me.GridViewDoctypesNonRelated + Me.GridControlDoctypesNonRelated.MenuManager = Me.RibbonControl1 + Me.GridControlDoctypesNonRelated.Name = "GridControlDoctypesNonRelated" + Me.GridControlDoctypesNonRelated.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDoctypesNonRelated}) + ' + 'GridViewDoctypesNonRelated + ' + resources.ApplyResources(Me.GridViewDoctypesNonRelated, "GridViewDoctypesNonRelated") + Me.GridViewDoctypesNonRelated.GridControl = Me.GridControlDoctypesNonRelated + Me.GridViewDoctypesNonRelated.Name = "GridViewDoctypesNonRelated" + Me.GridViewDoctypesNonRelated.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewDoctypesNonRelated.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewDoctypesNonRelated.OptionsBehavior.Editable = False + Me.GridViewDoctypesNonRelated.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewDoctypesNonRelated.OptionsView.ShowGroupPanel = False + Me.GridViewDoctypesNonRelated.OptionsView.ShowViewCaption = True + ' + 'GridControlBusinessEntities + ' + resources.ApplyResources(Me.GridControlBusinessEntities, "GridControlBusinessEntities") + Me.GridControlBusinessEntities.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlBusinessEntities.EmbeddedNavigator.AccessibleDescription") + Me.GridControlBusinessEntities.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlBusinessEntities.EmbeddedNavigator.AccessibleName") + Me.GridControlBusinessEntities.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlBusinessEntities.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean) + Me.GridControlBusinessEntities.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlBusinessEntities.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles) + Me.GridControlBusinessEntities.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlBusinessEntities.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image) + Me.GridControlBusinessEntities.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlBusinessEntities.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout) + Me.GridControlBusinessEntities.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlBusinessEntities.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode) + Me.GridControlBusinessEntities.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlBusinessEntities.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding) + Me.GridControlBusinessEntities.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlBusinessEntities.EmbeddedNavigator.MaximumSize"), System.Drawing.Size) + Me.GridControlBusinessEntities.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlBusinessEntities.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation) + Me.GridControlBusinessEntities.EmbeddedNavigator.ToolTip = resources.GetString("GridControlBusinessEntities.EmbeddedNavigator.ToolTip") + Me.GridControlBusinessEntities.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlBusinessEntities.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType) + Me.GridControlBusinessEntities.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlBusinessEntities.EmbeddedNavigator.ToolTipTitle") + Me.GridControlBusinessEntities.MainView = Me.GridViewBusinessEntities + Me.GridControlBusinessEntities.MenuManager = Me.RibbonControl1 + Me.GridControlBusinessEntities.Name = "GridControlBusinessEntities" + Me.GridControlBusinessEntities.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewBusinessEntities}) + ' + 'GridViewBusinessEntities + ' + resources.ApplyResources(Me.GridViewBusinessEntities, "GridViewBusinessEntities") + Me.GridViewBusinessEntities.GridControl = Me.GridControlBusinessEntities + Me.GridViewBusinessEntities.Name = "GridViewBusinessEntities" + Me.GridViewBusinessEntities.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewBusinessEntities.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewBusinessEntities.OptionsBehavior.Editable = False + Me.GridViewBusinessEntities.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewBusinessEntities.OptionsView.ShowGroupPanel = False + Me.GridViewBusinessEntities.OptionsView.ShowViewCaption = True + ' + 'Root + ' + resources.ApplyResources(Me.Root, "Root") + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(1099, 559) + Me.Root.TextVisible = False + ' + 'LayoutControlItem1 + ' + resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1") + Me.LayoutControlItem1.Control = Me.GridControlBusinessEntities + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Size = New System.Drawing.Size(361, 539) + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem1.TextVisible = False + ' + 'LayoutControlItem2 + ' + resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2") + Me.LayoutControlItem2.Control = Me.GridControlDoctypesNonRelated + Me.LayoutControlItem2.Location = New System.Drawing.Point(361, 0) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Size = New System.Drawing.Size(380, 459) + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem2.TextVisible = False + ' + 'LayoutControlItem3 + ' + resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3") + Me.LayoutControlItem3.Control = Me.GridControlRelatedDoctypes + Me.LayoutControlItem3.Location = New System.Drawing.Point(741, 0) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Size = New System.Drawing.Size(338, 459) + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem3.TextVisible = False + ' + 'LayoutControlItem4 + ' + resources.ApplyResources(Me.LayoutControlItem4, "LayoutControlItem4") + Me.LayoutControlItem4.Control = Me.btnAddDoctype + Me.LayoutControlItem4.Location = New System.Drawing.Point(361, 459) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Size = New System.Drawing.Size(718, 40) + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem4.TextVisible = False + ' + 'LayoutControlItem5 + ' + resources.ApplyResources(Me.LayoutControlItem5, "LayoutControlItem5") + Me.LayoutControlItem5.Control = Me.btnRemoveDoctype + Me.LayoutControlItem5.Location = New System.Drawing.Point(361, 499) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Size = New System.Drawing.Size(718, 40) + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem5.TextVisible = False + ' + 'frmDoctypeBusinessEntities + ' + resources.ApplyResources(Me, "$this") + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.LayoutControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmDoctypeBusinessEntities" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.GridControlRelatedDoctypes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewRelatedDoctypes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlDoctypesNonRelated, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewDoctypesNonRelated, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlBusinessEntities, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewBusinessEntities, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents bsiInfo As DevExpress.XtraBars.BarStaticItem + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents GridControlBusinessEntities As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewBusinessEntities As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents GridControlDoctypesNonRelated As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewDoctypesNonRelated As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents GridControlRelatedDoctypes As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewRelatedDoctypes As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents btnAddDoctype As DevExpress.XtraEditors.SimpleButton + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents btnRemoveDoctype As DevExpress.XtraEditors.SimpleButton + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem +End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.de-DE.resx b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.de-DE.resx new file mode 100644 index 0000000..99bed7e --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.de-DE.resx @@ -0,0 +1,220 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9 + Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs + MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs + NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg + PC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJIZWFkZXJBbmRGb290ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dy + b3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDoj + RDExQzFDO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRINUM0LjUsNCw0LDQuNSw0LDV2MjJjMCww + LjUsMC41LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVY1QzI4LDQuNSwyNy41LDQsMjcsNHogTTIyLDIw + bC0yLDJsLTQtNGwtNCw0ICBsLTItMmw0LTRsLTQtNGwyLTJsNCw0bDQtNGwyLDJsLTQsNEwyMiwyMHoi + IGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAF4CAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlByZXZpb3VzVmlldyI+DQogICAgPHBhdGggZD0i + TTE2LDJDOC4zLDIsMiw4LjMsMiwxNnM2LjMsMTQsMTQsMTRzMTQtNi4zLDE0LTE0UzIzLjcsMiwxNiwy + eiBNMjQsMThoLTh2NmwtOC04bDgtOHY2aDhWMTh6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9z + dmc+Cw== + + + + + No + + + + 714, 36 + + + Dokumentart entfernen + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFsCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9Ik5leHRWaWV3Ij4NCiAgICA8cGF0aCBkPSJNMTYs + MkM4LjMsMiwyLDguMywyLDE2czYuMywxNCwxNCwxNHMxNC02LjMsMTQtMTRTMjMuNywyLDE2LDJ6IE0x + NiwyNHYtNkg4di00aDhWOGw4LDhMMTYsMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+ + Cw== + + + + 714, 36 + + + Dokumentart zuordnen + + + Zugeordnete Dokumentarten + + + Nicht zugeordnete Dokumentarten + + + 357, 535 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.en.resx b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.en.resx new file mode 100644 index 0000000..3363ac0 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.en.resx @@ -0,0 +1,200 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9 + Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs + MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs + NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg + PC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJIZWFkZXJBbmRGb290ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dy + b3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDoj + RDExQzFDO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRINUM0LjUsNCw0LDQuNSw0LDV2MjJjMCww + LjUsMC41LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVY1QzI4LDQuNSwyNy41LDQsMjcsNHogTTIyLDIw + bC0yLDJsLTQtNGwtNCw0ICBsLTItMmw0LTRsLTQtNGwyLTJsNCw0bDQtNGwyLDJsLTQsNEwyMiwyMHoi + IGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAF4CAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlByZXZpb3VzVmlldyI+DQogICAgPHBhdGggZD0i + TTE2LDJDOC4zLDIsMiw4LjMsMiwxNnM2LjMsMTQsMTQsMTRzMTQtNi4zLDE0LTE0UzIzLjcsMiwxNiwy + eiBNMjQsMThoLTh2NmwtOC04bDgtOHY2aDhWMTh6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9z + dmc+Cw== + + + + Remove Documenttype + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFsCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9Ik5leHRWaWV3Ij4NCiAgICA8cGF0aCBkPSJNMTYs + MkM4LjMsMiwyLDguMywyLDE2czYuMywxNCwxNCwxNHMxNC02LjMsMTQtMTRTMjMuNywyLDE2LDJ6IE0x + NiwyNHYtNkg4di00aDhWOGw4LDhMMTYsMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+ + Cw== + + + + Relate Documenttype + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.resx b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.resx new file mode 100644 index 0000000..b6a5f6a --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.resx @@ -0,0 +1,685 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + + + + -1 + + + + Center + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + + 376, 455 + + + Top, Left + + + Dokumentart zuordnen + + + Inherit + + + bsiInfo + + + + + + 7 + + + + None + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9 + Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs + MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs + NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg + PC9nPg0KPC9zdmc+Cw== + + + + 11 + + + DevExpress.XtraEditors.SimpleButton, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem2 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Related Doctypes + + + 2 + + + 4 + + + RibbonStatusBar1 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + 5 + + + Relation Business Entity - Doctype + + + RibbonPage2 + + + RibbonPageGroup1 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + 753, 12 + + + 6 + + + + + + + + + 334, 455 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFsCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9Ik5leHRWaWV3Ij4NCiAgICA8cGF0aCBkPSJNMTYs + MkM4LjMsMiwyLDguMywyLDE2czYuMywxNCwxNCwxNHMxNC02LjMsMTQtMTRTMjMuNywyLDE2LDJ6IE0x + NiwyNHYtNkg4di00aDhWOGw4LDhMMTYsMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+ + Cw== + + + + 1099, 559 + + + -1 + + + Default + + + 6, 13 + + + Schliessen + + + LayoutControl1 + + + Top, Left + + + $this + + + DevExpress.XtraLayout.LayoutControlGroup, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + 9 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem3 + + + LayoutControl1 + + + LayoutControl1 + + + None + + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Aktionen + + + No + + + None + + + 5 + + + $this + + + + + + Tile + + + Inherit + + + GridViewDoctypesNonRelated + + + 0, 717 + + + + + + DevExpress.XtraBars.Ribbon.RibbonStatusBar, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + 373, 511 + + + frmDoctypeBusinessEntities + + + DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 0, 0 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJIZWFkZXJBbmRGb290ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dy + b3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDoj + RDExQzFDO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRINUM0LjUsNCw0LDQuNSw0LDV2MjJjMCww + LjUsMC41LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVY1QzI4LDQuNSwyNy41LDQsMjcsNHogTTIyLDIw + bC0yLDJsLTQtNGwtNCw0ICBsLTItMmw0LTRsLTQtNGwyLTJsNCw0bDQtNGwyLDJsLTQsNEwyMiwyMHoi + IGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L + + + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Inherit + + + 12, 511 + + + Start + + + 8 + + + Tile + + + LayoutControl1 + + + 0, 0 + + + 3, 2, 3, 2 + + + Center + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAF4CAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlByZXZpb3VzVmlldyI+DQogICAgPHBhdGggZD0i + TTE2LDJDOC4zLDIsMiw4LjMsMiwxNnM2LjMsMTQsMTQsMTRzMTQtNi4zLDE0LTE0UzIzLjcsMiwxNiwy + eiBNMjQsMThoLTh2NmwtOC04bDgtOHY2aDhWMTh6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9z + dmc+Cw== + + + + 11 + + + 10 + + + -1 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + -1 + + + + + + 3, 2, 3, 2 + + + GridControlDoctypesNonRelated + + + btnAddDoctype + + + 373, 12 + + + -1 + + + DevExpress.XtraEditors.SimpleButton, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DevExpress.XtraEditors.SimpleButton, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + + + + 373, 471 + + + btnRemoveDoctype + + + Business Entities + + + 2 + + + GridViewBusinessEntities + + + 3, 2, 3, 2 + + + 1099, 24 + + + + + + 12, 471 + + + 0, 0 + + + + + + RibbonControl1 + + + + + + Root + + + 12, 12 + + + Default + + + SimpleButton2 + + + 1099, 158 + + + 0, 0 + + + DevExpress.XtraBars.Ribbon.RibbonForm, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + -1 + + + Dokumentart entfernen + + + LayoutControlItem5 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + 1 + + + 4 + + + + + + 7 + + + GridControlRelatedDoctypes + + + Fill + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPage1 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + DevExpress.XtraEditors.SimpleButton, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPage2 + + + + + + DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Default + + + Top, Left + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + 1075, 36 + + + 1099, 741 + + + 10 + + + $this + + + Center + + + SimpleButton1 + + + 0, 158 + + + 0 + + + LayoutControlItem1 + + + LayoutControl1 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + 8 + + + DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + + + + sd + + + 3, 2, 3, 2 + + + GridControlBusinessEntities + + + LayoutControl1 + + + 1075, 36 + + + BarButtonItem1 + + + LayoutControlItem4 + + + + + + LayoutControl1 + + + + + + 357, 455 + + + Tile + + + GridViewRelatedDoctypes + + + Non related Doctypes + + + + + + True + + + de-DE + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.vb b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.vb new file mode 100644 index 0000000..3f89d8c --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_DoctypeBE.vb @@ -0,0 +1,133 @@ +Public Class frmAdmin_DoctypeBE + Dim SELECTED_BEID As Integer + Private SELECTED_FREE_DoctypeID As Integer + Private SELECTED_ID2DELETE As Integer + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + Me.Close() + End Sub + + Private Sub frmDoctypeBusinessEntities_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + Dim oSQL = "Select Guid As ID,TITLE As BusinessEntity from TBIDB_BUSINESS_ENTITY" + Dim oDT As DataTable = My.DatabaseIDB.GetDatatable(oSQL) + GridControlBusinessEntities.DataSource = oDT + Catch ex As Exception + ShowErrorMessage("Unexpected error in LoadingForm", ex) + + End Try + End Sub + + Private Sub GridViewBusinessEntities_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewBusinessEntities.FocusedRowChanged + Dim oBEID = GridViewBusinessEntities.GetFocusedRowCellValue(GridViewBusinessEntities.Columns("ID")) + SELECTED_BEID = oBEID + LoadFreeDoctypes() + LoadRelatedDoctypes() + End Sub + + Sub LoadRelatedDoctypes() + Dim oDT = GetRelatedDoctypesByBEID(SELECTED_BEID) + If Not IsNothing(oDT) Then + GridControlRelatedDoctypes.DataSource = oDT + End If + End Sub + Sub LoadFreeDoctypes() + Dim oDT = GetAvailableDoctypesByBEID(SELECTED_BEID) + If Not IsNothing(oDT) Then + GridControlDoctypesNonRelated.DataSource = oDT + End If + End Sub + + Private Function GetRelatedDoctypesByBEID(beID As Integer) As DataTable + Try + Dim dt As DataTable + Dim oSQL = $"select ID,Doctype from VWIDB_DOCTYPE_BUSINESS_ENTITY WHERE BE_ID = {beID} and LANG_CODE = '{My.Application.User.Language}'" + dt = My.DatabaseIDB.GetDatatable(oSQL) + Return dt + Catch ex As Exception + ShowErrorMessage($"Error in GetAvailableAttributesByBEID with groupId {beID}", ex) + + Return Nothing + End Try + End Function + Private Function GetAvailableDoctypesByBEID(beID As Integer) As DataTable + Try + Dim dt As DataTable + Dim oSQL = $"select Doctype_ID as DoctypeID,Doctype from VWIDB_DOCTYPE_LANGUAGE where LANG_CODE = '{My.Application.User.Language}' AND Doctype_ID NOT IN (SELECT DOCTYPE_ID FROM TBIDB_DOCTYPE_BE WHERE BE_ID = {beID})" + dt = My.DatabaseIDB.GetDatatable(oSQL) + Return dt + Catch ex As Exception + ShowErrorMessage($"Error in GetAvailableAttributesByBEID with groupId {beID}", ex) + + Return Nothing + End Try + End Function + Private Sub ShowErrorMessage(errorText As String, ex As Exception) + MsgBox(errorText & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Critical, "BE Relations") + End Sub + + Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles btnAddDoctype.Click + SELECTED_FREE_DoctypeID = 0 + Get_SelectedFree_DoctypeID() + If SELECTED_FREE_DoctypeID <> 0 Then + If AddDoctype2BE(SELECTED_FREE_DoctypeID, SELECTED_BEID) Then + LoadFreeDoctypes() + LoadRelatedDoctypes() + Show_bsiInfo("Doctype Added") + End If + Else + Show_bsiInfo("Error in Doctype Add - No DoctypeID") + End If + + End Sub + Sub Show_bsiInfo(pInfo As String) + bsiInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + bsiInfo.Caption = pInfo & " - " & Now.ToString + End Sub + + Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles btnRemoveDoctype.Click + SELECTED_ID2DELETE = 0 + GET_SelectedID2Delete() + If SELECTED_ID2DELETE <> 0 Then + If DeleteDoctypefromBE(SELECTED_ID2DELETE) Then + LoadFreeDoctypes() + LoadRelatedDoctypes() + SELECTED_ID2DELETE = 0 + Show_bsiInfo("Doctype Removed") + End If + Else + + Show_bsiInfo("Error in Remove Doctype - No ID") + End If + + End Sub + Public Function AddDoctype2BE(Doctype_ID As Integer, BeId As Integer) As Boolean + Try + Dim oSQL = $"INSERT INTO TBIDB_DOCTYPE_BE (BE_ID,DOCTYPE_ID,ADDED_WHO) + VALUES ({BeId},{Doctype_ID},'{My.Application.User.UserName}') + " + Return My.DatabaseIDB.ExecuteNonQuery(oSQL) + Catch ex As Exception + ShowErrorMessage($"Error in AddAttr2BE", ex) + Return False + End Try + End Function + Public Function DeleteDoctypefromBE(ID As Integer) As Boolean + Try + Dim oSQL = $"DELETE FROM TBIDB_DOCTYPE_BE WHERE GUID = {ID}" + Return My.DatabaseIDB.ExecuteNonQuery(oSQL) + Catch ex As Exception + ShowErrorMessage($"Error in DeleteAttrfromBE", ex) + Return False + End Try + End Function + + Private Sub Get_SelectedFree_DoctypeID() + Dim oID = GridViewDoctypesNonRelated.GetFocusedRowCellValue(GridViewDoctypesNonRelated.Columns("DoctypeID")) + SELECTED_FREE_DoctypeID = oID + End Sub + + Private Sub GET_SelectedID2Delete() + Dim oID = GridViewRelatedDoctypes.GetFocusedRowCellValue(GridViewRelatedDoctypes.Columns("ID")) + SELECTED_ID2DELETE = oID + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb new file mode 100644 index 0000000..53553c1 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb @@ -0,0 +1,484 @@ +Imports DigitalData.GUIs.Common.Base + + +Partial Class frmAdmin_SourceSQL + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Form overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.TBZF_ADMIN_SOURCE_SQLBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() + Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit() + Me.MemoEdit1 = New DevExpress.XtraEditors.MemoEdit() + Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit7 = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit9 = New DevExpress.XtraEditors.TextEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TBZF_ADMIN_SOURCE_SQLTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBZF_ADMIN_SOURCE_SQLTableAdapter() + Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() + Me.DxValidationProvider1 = New DevExpress.XtraEditors.DXErrorProvider.DXValidationProvider(Me.components) + CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBZF_ADMIN_SOURCE_SQLBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MemoEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit9.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DxValidationProvider1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl + ' + Me.RibbonControl.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified + Me.RibbonControl.ExpandCollapseItem.Id = 0 + Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.RibbonControl.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.labelStatus}) + Me.RibbonControl.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl.MaxItemId = 5 + Me.RibbonControl.Name = "RibbonControl" + Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl.ShowToolbarCustomizeItem = False + Me.RibbonControl.Size = New System.Drawing.Size(768, 63) + Me.RibbonControl.StatusBar = Me.RibbonStatusBar + Me.RibbonControl.Toolbar.ShowCustomizeItem = False + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Speichern und Schließen" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.markcomplete1 + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Speichern" + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save7 + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Löschen" + Me.BarButtonItem3.Id = 3 + Me.BarButtonItem3.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.delete + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'labelStatus + ' + Me.labelStatus.Caption = "labelStatus" + Me.labelStatus.Id = 4 + Me.labelStatus.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.about4 + Me.labelStatus.Name = "labelStatus" + Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonStatusBar + ' + Me.RibbonStatusBar.ItemLinks.Add(Me.labelStatus) + Me.RibbonStatusBar.Location = New System.Drawing.Point(0, 583) + Me.RibbonStatusBar.Name = "RibbonStatusBar" + Me.RibbonStatusBar.Ribbon = Me.RibbonControl + Me.RibbonStatusBar.Size = New System.Drawing.Size(768, 24) + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.TextEdit1) + Me.LayoutControl1.Controls.Add(Me.TextEdit2) + Me.LayoutControl1.Controls.Add(Me.TextEdit3) + Me.LayoutControl1.Controls.Add(Me.TextEdit5) + Me.LayoutControl1.Controls.Add(Me.MemoEdit1) + Me.LayoutControl1.Controls.Add(Me.txtAddedWho) + Me.LayoutControl1.Controls.Add(Me.TextEdit7) + Me.LayoutControl1.Controls.Add(Me.txtChangedWho) + Me.LayoutControl1.Controls.Add(Me.TextEdit9) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 63) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(816, 316, 650, 400) + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(768, 520) + Me.LayoutControl1.TabIndex = 2 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'TextEdit1 + ' + Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "GUID", True)) + Me.TextEdit1.Location = New System.Drawing.Point(114, 20) + Me.TextEdit1.MenuManager = Me.RibbonControl + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Properties.ReadOnly = True + Me.TextEdit1.Size = New System.Drawing.Size(634, 20) + Me.TextEdit1.StyleController = Me.LayoutControl1 + Me.TextEdit1.TabIndex = 4 + ' + 'TBZF_ADMIN_SOURCE_SQLBindingSource + ' + Me.TBZF_ADMIN_SOURCE_SQLBindingSource.DataMember = "TBZF_ADMIN_SOURCE_SQL" + Me.TBZF_ADMIN_SOURCE_SQLBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'DSIDB_Stammdaten + ' + Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten" + Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TextEdit2 + ' + Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "ENTITY_TITLE", True)) + Me.TextEdit2.Location = New System.Drawing.Point(114, 60) + Me.TextEdit2.MenuManager = Me.RibbonControl + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.Size = New System.Drawing.Size(634, 20) + Me.TextEdit2.StyleController = Me.LayoutControl1 + Me.TextEdit2.TabIndex = 5 + ' + 'TextEdit3 + ' + Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "PK_COLUMN", True)) + Me.TextEdit3.Location = New System.Drawing.Point(114, 100) + Me.TextEdit3.MenuManager = Me.RibbonControl + Me.TextEdit3.Name = "TextEdit3" + Me.TextEdit3.Size = New System.Drawing.Size(634, 20) + Me.TextEdit3.StyleController = Me.LayoutControl1 + Me.TextEdit3.TabIndex = 6 + ' + 'TextEdit5 + ' + Me.TextEdit5.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "SCOPE", True)) + Me.TextEdit5.Location = New System.Drawing.Point(114, 140) + Me.TextEdit5.MenuManager = Me.RibbonControl + Me.TextEdit5.Name = "TextEdit5" + Me.TextEdit5.Size = New System.Drawing.Size(634, 20) + Me.TextEdit5.StyleController = Me.LayoutControl1 + Me.TextEdit5.TabIndex = 8 + ' + 'MemoEdit1 + ' + Me.MemoEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "SQL_COMMAND", True)) + Me.MemoEdit1.Location = New System.Drawing.Point(114, 180) + Me.MemoEdit1.MenuManager = Me.RibbonControl + Me.MemoEdit1.Name = "MemoEdit1" + Me.MemoEdit1.Properties.Appearance.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MemoEdit1.Properties.Appearance.Options.UseFont = True + Me.MemoEdit1.Size = New System.Drawing.Size(634, 147) + Me.MemoEdit1.StyleController = Me.LayoutControl1 + Me.MemoEdit1.TabIndex = 9 + ' + 'txtAddedWho + ' + Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "ADDED_WHO", True)) + Me.txtAddedWho.Location = New System.Drawing.Point(114, 347) + Me.txtAddedWho.MenuManager = Me.RibbonControl + Me.txtAddedWho.Name = "txtAddedWho" + Me.txtAddedWho.Properties.ReadOnly = True + Me.txtAddedWho.Size = New System.Drawing.Size(260, 20) + Me.txtAddedWho.StyleController = Me.LayoutControl1 + Me.txtAddedWho.TabIndex = 10 + ' + 'TextEdit7 + ' + Me.TextEdit7.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "ADDED_WHEN", True)) + Me.TextEdit7.Location = New System.Drawing.Point(488, 347) + Me.TextEdit7.MenuManager = Me.RibbonControl + Me.TextEdit7.Name = "TextEdit7" + Me.TextEdit7.Properties.ReadOnly = True + Me.TextEdit7.Size = New System.Drawing.Size(260, 20) + Me.TextEdit7.StyleController = Me.LayoutControl1 + Me.TextEdit7.TabIndex = 11 + ' + 'txtChangedWho + ' + Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "CHANGED_WHO", True)) + Me.txtChangedWho.Location = New System.Drawing.Point(114, 387) + Me.txtChangedWho.MenuManager = Me.RibbonControl + Me.txtChangedWho.Name = "txtChangedWho" + Me.txtChangedWho.Properties.ReadOnly = True + Me.txtChangedWho.Size = New System.Drawing.Size(260, 20) + Me.txtChangedWho.StyleController = Me.LayoutControl1 + Me.txtChangedWho.TabIndex = 12 + ' + 'TextEdit9 + ' + Me.TextEdit9.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBZF_ADMIN_SOURCE_SQLBindingSource, "CHANGED_WHEN", True)) + Me.TextEdit9.Location = New System.Drawing.Point(488, 387) + Me.TextEdit9.MenuManager = Me.RibbonControl + Me.TextEdit9.Name = "TextEdit9" + Me.TextEdit9.Properties.ReadOnly = True + Me.TextEdit9.Size = New System.Drawing.Size(260, 20) + Me.TextEdit9.StyleController = Me.LayoutControl1 + Me.TextEdit9.TabIndex = 13 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.EmptySpaceItem1, Me.LayoutControlItem7, Me.LayoutControlItem9, Me.LayoutControlItem8, Me.LayoutControlItem10}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(768, 520) + Me.Root.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.TextEdit1 + 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(748, 40) + Me.LayoutControlItem1.Text = "GUID" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.TextEdit2 + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 40) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem2.Size = New System.Drawing.Size(748, 40) + Me.LayoutControlItem2.Text = "Entity Title" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.TextEdit3 + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 80) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem3.Size = New System.Drawing.Size(748, 40) + Me.LayoutControlItem3.Text = "Primary Key" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.TextEdit5 + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 120) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem5.Size = New System.Drawing.Size(748, 40) + Me.LayoutControlItem5.Text = "Scope" + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.MemoEdit1 + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 160) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem6.Size = New System.Drawing.Size(748, 167) + Me.LayoutControlItem6.Text = "SQL Command" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(82, 13) + ' + 'EmptySpaceItem1 + ' + Me.EmptySpaceItem1.AllowHotTrack = False + Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 407) + Me.EmptySpaceItem1.Name = "EmptySpaceItem1" + Me.EmptySpaceItem1.Size = New System.Drawing.Size(748, 93) + Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.txtAddedWho + Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 327) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem7.Size = New System.Drawing.Size(374, 40) + Me.LayoutControlItem7.Text = "Erstellt Wer" + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.Control = Me.txtChangedWho + Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 367) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem9.Size = New System.Drawing.Size(374, 40) + Me.LayoutControlItem9.Text = "Geändert Wer" + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.TextEdit7 + Me.LayoutControlItem8.Location = New System.Drawing.Point(374, 327) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem8.Size = New System.Drawing.Size(374, 40) + Me.LayoutControlItem8.Text = "Erstellt Wann" + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem10 + ' + Me.LayoutControlItem10.Control = Me.TextEdit9 + Me.LayoutControlItem10.Location = New System.Drawing.Point(374, 367) + Me.LayoutControlItem10.Name = "LayoutControlItem10" + Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem10.Size = New System.Drawing.Size(374, 40) + Me.LayoutControlItem10.Text = "Geändert Wann" + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(82, 13) + ' + 'TBZF_ADMIN_SOURCE_SQLTableAdapter + ' + Me.TBZF_ADMIN_SOURCE_SQLTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOG_USERTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing + Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Me.TBZF_ADMIN_SOURCE_SQLTableAdapter + Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.VWIDB_BE_ATTRIBUTETableAdapter = Nothing + ' + 'frmAdmin_SourceSQL + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(768, 607) + Me.Controls.Add(Me.LayoutControl1) + Me.Controls.Add(Me.RibbonStatusBar) + Me.Controls.Add(Me.RibbonControl) + Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.managedatasource1 + Me.Name = "frmAdmin_SourceSQL" + Me.Ribbon = Me.RibbonControl + Me.StatusBar = Me.RibbonStatusBar + Me.Text = "Source SQL" + CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBZF_ADMIN_SOURCE_SQLBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MemoEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit9.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DxValidationProvider1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit5 As DevExpress.XtraEditors.TextEdit + Friend WithEvents MemoEdit1 As DevExpress.XtraEditors.MemoEdit + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten + Friend WithEvents TBZF_ADMIN_SOURCE_SQLBindingSource As BindingSource + Friend WithEvents TBZF_ADMIN_SOURCE_SQLTableAdapter As DSIDB_StammdatenTableAdapters.TBZF_ADMIN_SOURCE_SQLTableAdapter + Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents txtAddedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit7 As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit9 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem + Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents DxValidationProvider1 As DevExpress.XtraEditors.DXErrorProvider.DXValidationProvider +End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.resx b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.resx new file mode 100644 index 0000000..9db89a3 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 177, 17 + + + 17, 17 + + + 457, 17 + + + 731, 17 + + + 904, 17 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb new file mode 100644 index 0000000..a7db961 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb @@ -0,0 +1,160 @@ +Imports DevExpress.XtraEditors.DXErrorProvider +Imports DevExpress.XtraLayout +Imports DigitalData.GUIs.Common + +Public Class frmAdmin_SourceSQL + Implements IAdminForm + + Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey + + Public Property HasChanges As Boolean Implements IAdminForm.HasChanges + + Public Property IsInsert As Boolean Implements IAdminForm.IsInsert + + Private Pages As ClassDetailPageManager + Private FormHelper As FormHelper + + Public Sub New(PrimaryKey As Integer) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + FormHelper = New FormHelper(My.LogConfig, Me) + Me.PrimaryKey = PrimaryKey + End Sub + + Private Sub frmAdmin_SourceSQL_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + Pages = New ClassDetailPageManager(My.LogConfig, Me, New List(Of LayoutControl) From {LayoutControl1}) + Pages.Add(New ClassDetailPageManager.PrimaryPage(IsInsert) With { + .Name = "Source SQL", + .AddedWhoEdit = txtAddedWho, + .ChangedWhoEdit = txtChangedWho, + .BindingSource = TBZF_ADMIN_SOURCE_SQLBindingSource, + .DataTable = DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL, + .IsInsert = IsInsert, + .TabPage = Nothing + }) + + TBZF_ADMIN_SOURCE_SQLTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString + + If IsInsert Then + TBZF_ADMIN_SOURCE_SQLBindingSource.AddNew() + Else + + TBZF_ADMIN_SOURCE_SQLTableAdapter.Fill(DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL, PrimaryKey) + End If + + ValidationHelper() + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "frmAdmin_SourceSQL_Load") + End Try + End Sub + + Public Sub ValidationHelper() + Dim oTable As DataTable = DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL + Dim oProvider As DXValidationProvider = DxValidationProvider1 + Dim oRootControl As Control = LayoutControl1 + Dim oControls As List(Of Control) = oRootControl.Controls. + OfType(Of Control). + ToList() + + Dim oBoundControls = ListBoundControls(oControls) + + Console.WriteLine(oBoundControls.Count) + + For Each oControl As Control In oBoundControls + Dim oBinding As Binding = oControl.DataBindings.Item(0) + Next + End Sub + + + Public Function ListBoundControls(Controls As List(Of Control)) As List(Of Control) + Dim oControlList As New List(Of Control) + + For Each oControl As Control In Controls + If oControl.DataBindings IsNot Nothing AndAlso oControl.DataBindings.Count > 0 Then + oControlList.Add(oControl) + End If + + If oControl.Controls IsNot Nothing AndAlso oControl.Controls.Count > 0 Then + Dim oControls As New List(Of Control) + oControls.AddRange(oControl.Controls.OfType(Of Control)) + + oControlList.AddRange(ListBoundControls(oControls)) + End If + Next + + Return oControlList + End Function + + Public Function SaveData() As Boolean + Try + TBZF_ADMIN_SOURCE_SQLBindingSource.EndEdit() + + If DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL.GetChanges() IsNot Nothing Then + HasChanges = True + + If IsInsert Then + txtAddedWho.EditValue = My.Application.User.UserName + Else + txtChangedWho.EditValue = My.Application.User.UserName + End If + + TBZF_ADMIN_SOURCE_SQLBindingSource.EndEdit() + TBZF_ADMIN_SOURCE_SQLTableAdapter.Update(DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL) + End If + + Return True + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "SaveData") + Return False + End Try + End Function + + Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData + Try + TBZF_ADMIN_SOURCE_SQLTableAdapter.Delete(PrimaryKey) + Return True + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "DeleteData") + Return False + End Try + End Function + + + + Private Sub ResetMessages() + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End Sub + + Private Sub ShowStatus(Message As String) + labelStatus.Caption = Message + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + ResetMessages() + + If SaveData() And HasChanges Then + ShowStatus("Attribute gespeichert!") + End If + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + ResetMessages() + + If SaveData() Then + Close() + End If + End Sub + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + If MsgBox($"Wollen Sie den SourceSQL [{PrimaryKey}] wirklich löschen?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then + If DeleteData() Then + Close() + End If + End If + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb new file mode 100644 index 0000000..480daed --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb @@ -0,0 +1,954 @@ +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid +Imports DigitalData.GUIs.Common.Base + + +Partial Class frmAdmin_Start + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_Start)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() + Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() + Me.labelError = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonItemAddAttribute = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItemRefreshAttribute = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem10 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem12 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem13 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem14 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem15 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem16 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem17 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem18 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem19 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem20 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem21 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem22 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem23 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem24 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem25 = New DevExpress.XtraBars.BarButtonItem() + Me.btnAddRecord = New DevExpress.XtraBars.BarButtonItem() + Me.btnEditRecord = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem26 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem27 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.TreeListMenu = New DevExpress.XtraTreeList.TreeList() + Me.TreeListColumn1 = New DevExpress.XtraTreeList.Columns.TreeListColumn() + Me.MainTreeImages = New DevExpress.Utils.SvgImageCollection(Me.components) + Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager(Me.components) + Me.DockPanel1 = New DevExpress.XtraBars.Docking.DockPanel() + Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer() + Me.TBIDB_ATTRIBUTEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() + Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() + Me.TBIDB_ATTRIBUTE_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.IDBImages = New DevExpress.Utils.SvgImageCollection(Me.components) + Me.GLOBIXImages = New DevExpress.Utils.SvgImageCollection(Me.components) + Me.CWImages = New DevExpress.Utils.SvgImageCollection(Me.components) + Me.Panel1 = New System.Windows.Forms.Panel() + Me.labelTitle = New System.Windows.Forms.Label() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.ActiveImages = New DevExpress.Utils.SvgImageCollection(Me.components) + Me.TypeImages = New DevExpress.Utils.SvgImageCollection(Me.components) + Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup6 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup7 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup8 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup9 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup10 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup11 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup12 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup13 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup14 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup15 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup16 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup17 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup18 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup19 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.GridMain = New DevExpress.XtraGrid.GridControl() + Me.ViewMain = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.RibbonPageGroupAttributes = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPage_IDB = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonGroup_ClipboardWatcher_Process = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroup_ClipboardWatcher_Window = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroup_ClipboardWatcher_Control = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonGroup_ClipboardWatcher_DataSearch = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + 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.btnSecondServiceConnection = 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() + CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.DockPanel1.SuspendLayout() + Me.DockPanel1_Container.SuspendLayout() + CType(Me.TBIDB_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBIDB_ATTRIBUTE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.IDBImages, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GLOBIXImages, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CWImages, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + CType(Me.ActiveImages, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TypeImages, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridMain, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ViewMain, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + '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.BarButtonItem26, Me.BarButtonItem27}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 39 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.Size = New System.Drawing.Size(1077, 158) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Neues Profil" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Aktualisieren" + Me.BarButtonItem3.Id = 3 + Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem3.Name = "BarButtonItem3" + Me.BarButtonItem3.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'BarButtonItem4 + ' + Me.BarButtonItem4.Caption = "Löschen" + Me.BarButtonItem4.Id = 4 + Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem4.Name = "BarButtonItem4" + Me.BarButtonItem4.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'BarButtonItem5 + ' + Me.BarButtonItem5.Caption = "Profil kopieren" + Me.BarButtonItem5.Id = 5 + Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem5.Name = "BarButtonItem5" + Me.BarButtonItem5.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'labelStatus + ' + Me.labelStatus.Caption = "labelStatus" + Me.labelStatus.Id = 6 + Me.labelStatus.ImageOptions.SvgImage = CType(resources.GetObject("labelStatus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.labelStatus.Name = "labelStatus" + Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' + 'labelError + ' + Me.labelError.Caption = "labelError" + Me.labelError.Id = 7 + Me.labelError.ImageOptions.SvgImage = CType(resources.GetObject("labelError.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.labelError.Name = "labelError" + Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + Me.labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' + 'BarButtonItemAddAttribute + ' + Me.BarButtonItemAddAttribute.Caption = "Neues Attribut" + Me.BarButtonItemAddAttribute.Id = 9 + Me.BarButtonItemAddAttribute.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_addcircled1 + Me.BarButtonItemAddAttribute.Name = "BarButtonItemAddAttribute" + ' + 'BarButtonItemRefreshAttribute + ' + Me.BarButtonItemRefreshAttribute.Caption = "Aktualisieren" + Me.BarButtonItemRefreshAttribute.Id = 10 + Me.BarButtonItemRefreshAttribute.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemRefreshAttribute.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItemRefreshAttribute.Name = "BarButtonItemRefreshAttribute" + Me.BarButtonItemRefreshAttribute.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'BarButtonItem6 + ' + Me.BarButtonItem6.Caption = "Neues Attribut" + Me.BarButtonItem6.Id = 11 + Me.BarButtonItem6.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_addcircled + Me.BarButtonItem6.Name = "BarButtonItem6" + ' + 'BarButtonItem7 + ' + Me.BarButtonItem7.Caption = "Bearbeiten" + Me.BarButtonItem7.Id = 12 + Me.BarButtonItem7.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_edit + Me.BarButtonItem7.Name = "BarButtonItem7" + ' + 'BarButtonItem8 + ' + Me.BarButtonItem8.Caption = "Löschen" + Me.BarButtonItem8.Id = 13 + Me.BarButtonItem8.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_deletecircled + Me.BarButtonItem8.Name = "BarButtonItem8" + Me.BarButtonItem8.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'BarButtonItem9 + ' + Me.BarButtonItem9.Caption = "Übersichtsdaten neu laden" + Me.BarButtonItem9.Id = 14 + Me.BarButtonItem9.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.updatedataextract + Me.BarButtonItem9.Name = "BarButtonItem9" + ' + 'BarButtonItem10 + ' + Me.BarButtonItem10.Caption = "Bearbeiten" + Me.BarButtonItem10.Id = 15 + Me.BarButtonItem10.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_edit1 + Me.BarButtonItem10.Name = "BarButtonItem10" + Me.BarButtonItem10.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'BarButtonItem12 + ' + Me.BarButtonItem12.Caption = "Neue Suche" + Me.BarButtonItem12.Id = 17 + Me.BarButtonItem12.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_addcircled3 + Me.BarButtonItem12.Name = "BarButtonItem12" + ' + 'BarButtonItem13 + ' + Me.BarButtonItem13.Caption = "Neue Suche" + Me.BarButtonItem13.Id = 18 + Me.BarButtonItem13.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_addcircled4 + Me.BarButtonItem13.Name = "BarButtonItem13" + ' + 'BarButtonItem14 + ' + Me.BarButtonItem14.Caption = "Suche löschen" + Me.BarButtonItem14.Id = 19 + Me.BarButtonItem14.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_deletecircled2 + Me.BarButtonItem14.Name = "BarButtonItem14" + ' + 'BarButtonItem15 + ' + Me.BarButtonItem15.Caption = "Suche Löschen" + Me.BarButtonItem15.Id = 20 + Me.BarButtonItem15.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_deletecircled1 + Me.BarButtonItem15.Name = "BarButtonItem15" + ' + 'BarButtonItem16 + ' + Me.BarButtonItem16.Caption = "Zuordnen" + Me.BarButtonItem16.Id = 21 + Me.BarButtonItem16.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.doublenext + Me.BarButtonItem16.Name = "BarButtonItem16" + ' + 'BarButtonItem17 + ' + Me.BarButtonItem17.Caption = "Speichern" + Me.BarButtonItem17.Id = 22 + Me.BarButtonItem17.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save4 + Me.BarButtonItem17.Name = "BarButtonItem17" + ' + 'BarButtonItem18 + ' + Me.BarButtonItem18.Caption = "Zuordnung löschen" + Me.BarButtonItem18.Id = 23 + Me.BarButtonItem18.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_deletecircled3 + Me.BarButtonItem18.Name = "BarButtonItem18" + ' + 'BarButtonItem19 + ' + Me.BarButtonItem19.Caption = "BarButtonItem19" + Me.BarButtonItem19.Id = 24 + Me.BarButtonItem19.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.definednameuseinformula + Me.BarButtonItem19.Name = "BarButtonItem19" + ' + 'BarButtonItem20 + ' + Me.BarButtonItem20.Caption = "Zuordnung" + Me.BarButtonItem20.Id = 25 + Me.BarButtonItem20.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.doublenext1 + Me.BarButtonItem20.Name = "BarButtonItem20" + ' + 'BarButtonItem21 + ' + Me.BarButtonItem21.Caption = "Speichern" + Me.BarButtonItem21.Id = 26 + Me.BarButtonItem21.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save5 + Me.BarButtonItem21.Name = "BarButtonItem21" + ' + 'BarButtonItem22 + ' + Me.BarButtonItem22.Caption = "Zuordnung löschen" + Me.BarButtonItem22.Id = 27 + Me.BarButtonItem22.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_deletecircled4 + Me.BarButtonItem22.Name = "BarButtonItem22" + ' + 'BarButtonItem23 + ' + Me.BarButtonItem23.Caption = "BarButtonItem23" + Me.BarButtonItem23.Id = 28 + Me.BarButtonItem23.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.renamedatasource + Me.BarButtonItem23.Name = "BarButtonItem23" + ' + 'BarButtonItem24 + ' + Me.BarButtonItem24.Caption = "Zuordnen" + Me.BarButtonItem24.Id = 29 + Me.BarButtonItem24.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.doublenext2 + Me.BarButtonItem24.Name = "BarButtonItem24" + ' + 'BarButtonItem25 + ' + Me.BarButtonItem25.Caption = "Zuordnung löschen" + Me.BarButtonItem25.Id = 30 + Me.BarButtonItem25.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_deletecircled5 + Me.BarButtonItem25.Name = "BarButtonItem25" + ' + 'btnAddRecord + ' + Me.btnAddRecord.Caption = "Hinzufügen" + Me.btnAddRecord.Id = 31 + Me.btnAddRecord.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_add + Me.btnAddRecord.Name = "btnAddRecord" + ' + 'btnEditRecord + ' + Me.btnEditRecord.Caption = "Bearbeiten" + Me.btnEditRecord.Id = 32 + Me.btnEditRecord.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_edit2 + Me.btnEditRecord.Name = "btnEditRecord" + ' + '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" + ' + 'BarButtonItem27 + ' + Me.BarButtonItem27.Caption = "Active Directory Import" + Me.BarButtonItem27.Id = 35 + Me.BarButtonItem27.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.text1 + Me.BarButtonItem27.Name = "BarButtonItem27" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Start" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem27) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem9) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "Daten" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.Enabled = False + Me.RibbonPageGroup1.ItemLinks.Add(Me.btnAddRecord) + Me.RibbonPageGroup1.ItemLinks.Add(Me.btnEditRecord) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Datensätze" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 652) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1077, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'TreeListMenu + ' + Me.TreeListMenu.Appearance.FocusedCell.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.TreeListMenu.Appearance.FocusedCell.Options.UseBackColor = True + Me.TreeListMenu.Appearance.FocusedRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.TreeListMenu.Appearance.FocusedRow.Options.UseBackColor = True + Me.TreeListMenu.Columns.AddRange(New DevExpress.XtraTreeList.Columns.TreeListColumn() {Me.TreeListColumn1}) + Me.TreeListMenu.Dock = System.Windows.Forms.DockStyle.Fill + Me.TreeListMenu.Location = New System.Drawing.Point(0, 0) + Me.TreeListMenu.MenuManager = Me.RibbonControl1 + Me.TreeListMenu.Name = "TreeListMenu" + Me.TreeListMenu.BeginUnboundLoad() + Me.TreeListMenu.AppendNode(New Object() {"Configurations IM"}, -1, "") + Me.TreeListMenu.AppendNode(New Object() {"Attribute"}, 0, 2, 2, -1, "IDB_ATTRIBUTES") + Me.TreeListMenu.AppendNode(New Object() {"Relation Business Entity"}, 1, 9, 9, -1, "ATTRIBUTE_RELATIONS") + Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_BUSINESS_ENTITIES") + Me.TreeListMenu.AppendNode(New Object() {"Doctypes"}, 0, 10, 10, -1, "DOCTYPE_DEF") + Me.TreeListMenu.AppendNode(New Object() {"Configurations"}, 4, 10, 10, -1, "IDB_DOCTYPE_CONFIG") + Me.TreeListMenu.AppendNode(New Object() {"Relation Business Entity"}, 4, 9, 9, -1, "DOCTYPE_BE") + Me.TreeListMenu.AppendNode(New Object() {"Object Stores"}, 0, "IDB_OBJECT_STORES") + Me.TreeListMenu.AppendNode(New Object() {"File FLOW"}, -1, 6, 6, -1, "") + Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 8, 4, 4, -1, "GI_PROFILES") + Me.TreeListMenu.AppendNode(New Object() {"Profile Relations"}, 9, 9, 9, -1, "GI_RELATIONS") + Me.TreeListMenu.AppendNode(New Object() {"Search FLOW"}, -1, 7, 7, -1, "") + Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 11, 4, 4, -1, "CW_PROFILES") + Me.TreeListMenu.AppendNode(New Object() {"Administration"}, -1) + Me.TreeListMenu.AppendNode(New Object() {"Source SQL"}, 13, 3, 3, -1, "META_SOURCE_SQL") + Me.TreeListMenu.AppendNode(New Object() {"User Management"}, -1, 11, 11, -1) + Me.TreeListMenu.AppendNode(New Object() {"User List"}, 15, 5, 5, -1, "USERS_USERLIST") + Me.TreeListMenu.AppendNode(New Object() {"Group List"}, 15, 12, 12, -1, "USERS_GROUPLIST") + Me.TreeListMenu.AppendNode(New Object() {"User Relations"}, 17, 9, 9, -1, "USERS_USER_GROUP_RELATIONS") + Me.TreeListMenu.AppendNode(New Object() {"Common SQLs"}, -1, 3, 3, -1, "TBDIB_COMMON_SQL") + Me.TreeListMenu.EndUnboundLoad() + Me.TreeListMenu.OptionsBehavior.Editable = False + Me.TreeListMenu.OptionsView.ShowColumns = False + Me.TreeListMenu.OptionsView.ShowHorzLines = False + Me.TreeListMenu.OptionsView.ShowIndicator = False + Me.TreeListMenu.OptionsView.ShowVertLines = False + Me.TreeListMenu.SelectImageList = Me.MainTreeImages + Me.TreeListMenu.Size = New System.Drawing.Size(193, 465) + Me.TreeListMenu.TabIndex = 8 + ' + 'TreeListColumn1 + ' + Me.TreeListColumn1.Caption = "TreeListColumn1" + Me.TreeListColumn1.FieldName = "TreeListColumn1" + Me.TreeListColumn1.Name = "TreeListColumn1" + Me.TreeListColumn1.Visible = True + Me.TreeListColumn1.VisibleIndex = 0 + ' + 'MainTreeImages + ' + Me.MainTreeImages.Add("shopping_box", "image://svgimages/icon builder/shopping_box.svg") + Me.MainTreeImages.Add("travel_hotel", "image://svgimages/icon builder/travel_hotel.svg") + Me.MainTreeImages.Add("bo_appearance", "image://svgimages/business objects/bo_appearance.svg") + Me.MainTreeImages.Add("managedatasource", "image://svgimages/spreadsheet/managedatasource.svg") + Me.MainTreeImages.Add("grandtotals", "image://svgimages/dashboards/grandtotals.svg") + Me.MainTreeImages.Add("allowuserstoeditranges", "image://svgimages/spreadsheet/allowuserstoeditranges.svg") + 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") + Me.MainTreeImages.Add("bo_state", "image://svgimages/business objects/bo_state.svg") + Me.MainTreeImages.Add("user", "image://svgimages/icon builder/actions_user.svg") + Me.MainTreeImages.Add("group", "image://svgimages/richedit/reviewers.svg") + Me.MainTreeImages.Add("module", "image://svgimages/icon builder/actions_window.svg") + ' + 'DockManager1 + ' + Me.DockManager1.Form = Me + Me.DockManager1.RootPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.DockPanel1}) + Me.DockManager1.TopZIndexControls.AddRange(New String() {"DevExpress.XtraBars.BarDockControl", "DevExpress.XtraBars.StandaloneBarDockControl", "System.Windows.Forms.StatusBar", "System.Windows.Forms.MenuStrip", "System.Windows.Forms.StatusStrip", "DevExpress.XtraBars.Ribbon.RibbonStatusBar", "DevExpress.XtraBars.Ribbon.RibbonControl", "DevExpress.XtraBars.Navigation.OfficeNavigationBar", "DevExpress.XtraBars.Navigation.TileNavPane", "DevExpress.XtraBars.TabFormControl", "DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl", "DevExpress.XtraBars.ToolbarForm.ToolbarFormControl"}) + ' + 'DockPanel1 + ' + Me.DockPanel1.Controls.Add(Me.DockPanel1_Container) + Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left + Me.DockPanel1.ID = New System.Guid("ce81b5b5-eff5-4006-8018-548aa8413799") + Me.DockPanel1.Location = New System.Drawing.Point(0, 158) + Me.DockPanel1.Name = "DockPanel1" + Me.DockPanel1.OriginalSize = New System.Drawing.Size(200, 200) + Me.DockPanel1.Size = New System.Drawing.Size(200, 494) + Me.DockPanel1.Text = "Übersicht" + ' + 'DockPanel1_Container + ' + Me.DockPanel1_Container.Controls.Add(Me.TreeListMenu) + Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 26) + Me.DockPanel1_Container.Name = "DockPanel1_Container" + Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 465) + Me.DockPanel1_Container.TabIndex = 0 + ' + 'TBIDB_ATTRIBUTEBindingSource + ' + Me.TBIDB_ATTRIBUTEBindingSource.DataMember = "TBIDB_ATTRIBUTE" + Me.TBIDB_ATTRIBUTEBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'DSIDB_Stammdaten + ' + Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten" + Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOG_USERTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_DOCTYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_LANGUAGETableAdapter = 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 + ' + Me.TBIDB_ATTRIBUTE_TYPEBindingSource.DataMember = "TBIDB_ATTRIBUTE_TYPE" + Me.TBIDB_ATTRIBUTE_TYPEBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'IDBImages + ' + Me.IDBImages.Add("travel_hotel", "image://svgimages/icon builder/travel_hotel.svg") + Me.IDBImages.Add("bo_appearance", "image://svgimages/business objects/bo_appearance.svg") + ' + 'GLOBIXImages + ' + Me.GLOBIXImages.Add("bo_document", "image://svgimages/business objects/bo_document.svg") + Me.GLOBIXImages.Add("calculatenow", "image://svgimages/spreadsheet/calculatenow.svg") + Me.GLOBIXImages.Add("calculationoptions", "image://svgimages/spreadsheet/calculationoptions.svg") + ' + 'CWImages + ' + Me.CWImages.Add("detailed", "image://svgimages/outlook inspired/detailed.svg") + Me.CWImages.Add("bo_unknown", "image://svgimages/business objects/bo_unknown.svg") + Me.CWImages.Add("bo_appointment", "image://svgimages/business objects/bo_appointment.svg") + Me.CWImages.Add("editnames", "image://svgimages/dashboards/editnames.svg") + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.labelTitle) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(200, 158) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(877, 40) + Me.Panel1.TabIndex = 8 + Me.Panel1.TabStop = True + ' + 'labelTitle + ' + Me.labelTitle.Dock = System.Windows.Forms.DockStyle.Fill + Me.labelTitle.Font = New System.Drawing.Font("Segoe UI Semilight", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.labelTitle.Location = New System.Drawing.Point(0, 0) + Me.labelTitle.Name = "labelTitle" + Me.labelTitle.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0) + Me.labelTitle.Size = New System.Drawing.Size(877, 40) + Me.labelTitle.TabIndex = 0 + Me.labelTitle.Text = "labelTitle" + Me.labelTitle.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Speichern" + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'ActiveImages + ' + Me.ActiveImages.Add("actions_checkcircled", "image://svgimages/icon builder/actions_checkcircled.svg") + Me.ActiveImages.Add("paymentunpaid", "image://svgimages/outlook inspired/paymentunpaid.svg") + ' + 'TypeImages + ' + Me.TypeImages.Add("detailed", "image://svgimages/outlook inspired/detailed.svg") + Me.TypeImages.Add("bo_unknown", "image://svgimages/business objects/bo_unknown.svg") + Me.TypeImages.Add("bo_appointment", "image://svgimages/business objects/bo_appointment.svg") + Me.TypeImages.Add("editnames", "image://svgimages/dashboards/editnames.svg") + Me.TypeImages.Add("bo_appearance", "image://svgimages/business objects/bo_appearance.svg") + Me.TypeImages.Add("travel_hotel", "image://svgimages/icon builder/travel_hotel.svg") + Me.TypeImages.Add("travel_map", "image://svgimages/icon builder/travel_map.svg") + ' + 'BarButtonItem11 + ' + Me.BarButtonItem11.Caption = "Neue Dokumenten Suche" + Me.BarButtonItem11.Id = 16 + Me.BarButtonItem11.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_addcircled2 + Me.BarButtonItem11.Name = "BarButtonItem11" + ' + 'RibbonPageGroup3 + ' + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem17) + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonPageGroup3.Name = "RibbonPageGroup3" + Me.RibbonPageGroup3.Text = "Prozess-Zuordnung" + ' + 'RibbonPageGroup4 + ' + Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem17) + Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonPageGroup4.Name = "RibbonPageGroup4" + Me.RibbonPageGroup4.Text = "Prozess-Zuordnung" + ' + 'RibbonPageGroup5 + ' + Me.RibbonPageGroup5.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup5.ItemLinks.Add(Me.BarButtonItem17) + Me.RibbonPageGroup5.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup5.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonPageGroup5.Name = "RibbonPageGroup5" + Me.RibbonPageGroup5.Text = "Prozess-Zuordnung" + ' + 'RibbonPageGroup6 + ' + Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonItem17) + Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonPageGroup6.Name = "RibbonPageGroup6" + Me.RibbonPageGroup6.Text = "Prozess-Zuordnung" + ' + 'RibbonPageGroup7 + ' + Me.RibbonPageGroup7.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup7.ItemLinks.Add(Me.BarButtonItem17) + Me.RibbonPageGroup7.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup7.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonPageGroup7.Name = "RibbonPageGroup7" + Me.RibbonPageGroup7.Text = "Prozess-Zuordnung" + ' + 'RibbonPageGroup8 + ' + Me.RibbonPageGroup8.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup8.ItemLinks.Add(Me.BarButtonItem17) + Me.RibbonPageGroup8.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup8.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonPageGroup8.Name = "RibbonPageGroup8" + Me.RibbonPageGroup8.Text = "Prozess-Zuordnung" + ' + 'RibbonPageGroup9 + ' + Me.RibbonPageGroup9.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup9.ItemLinks.Add(Me.BarButtonItem17) + Me.RibbonPageGroup9.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup9.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonPageGroup9.Name = "RibbonPageGroup9" + Me.RibbonPageGroup9.Text = "Prozess-Zuordnung" + ' + 'RibbonPageGroup10 + ' + Me.RibbonPageGroup10.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup10.ItemLinks.Add(Me.BarButtonItem17) + Me.RibbonPageGroup10.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup10.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonPageGroup10.Name = "RibbonPageGroup10" + Me.RibbonPageGroup10.Text = "Prozess-Zuordnung" + ' + 'RibbonPageGroup11 + ' + Me.RibbonPageGroup11.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup11.ItemLinks.Add(Me.BarButtonItem17) + Me.RibbonPageGroup11.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup11.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonPageGroup11.Name = "RibbonPageGroup11" + Me.RibbonPageGroup11.Text = "Prozess-Zuordnung" + ' + 'RibbonPageGroup12 + ' + Me.RibbonPageGroup12.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup12.ItemLinks.Add(Me.BarButtonItem17) + Me.RibbonPageGroup12.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup12.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonPageGroup12.Name = "RibbonPageGroup12" + Me.RibbonPageGroup12.Text = "Prozess-Zuordnung" + ' + 'RibbonPageGroup13 + ' + Me.RibbonPageGroup13.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup13.ItemLinks.Add(Me.BarButtonItem17) + Me.RibbonPageGroup13.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup13.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonPageGroup13.Name = "RibbonPageGroup13" + Me.RibbonPageGroup13.Text = "Prozess-Zuordnung" + ' + 'RibbonPageGroup14 + ' + Me.RibbonPageGroup14.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup14.ItemLinks.Add(Me.BarButtonItem17) + Me.RibbonPageGroup14.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup14.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonPageGroup14.Name = "RibbonPageGroup14" + Me.RibbonPageGroup14.Text = "Prozess-Zuordnung" + ' + 'RibbonPageGroup15 + ' + Me.RibbonPageGroup15.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup15.ItemLinks.Add(Me.BarButtonItem17) + Me.RibbonPageGroup15.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup15.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonPageGroup15.Name = "RibbonPageGroup15" + Me.RibbonPageGroup15.Text = "Prozess-Zuordnung" + ' + 'RibbonPageGroup16 + ' + Me.RibbonPageGroup16.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup16.ItemLinks.Add(Me.BarButtonItem17) + Me.RibbonPageGroup16.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup16.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonPageGroup16.Name = "RibbonPageGroup16" + Me.RibbonPageGroup16.Text = "Prozess-Zuordnung" + ' + 'RibbonPageGroup17 + ' + Me.RibbonPageGroup17.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup17.ItemLinks.Add(Me.BarButtonItem17) + Me.RibbonPageGroup17.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup17.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonPageGroup17.Name = "RibbonPageGroup17" + Me.RibbonPageGroup17.Text = "Prozess-Zuordnung" + ' + 'RibbonPageGroup18 + ' + Me.RibbonPageGroup18.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup18.ItemLinks.Add(Me.BarButtonItem17) + Me.RibbonPageGroup18.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup18.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonPageGroup18.Name = "RibbonPageGroup18" + Me.RibbonPageGroup18.Text = "Prozess-Zuordnung" + ' + 'RibbonPageGroup19 + ' + Me.RibbonPageGroup19.ItemLinks.Add(Me.BarButtonItem16) + Me.RibbonPageGroup19.ItemLinks.Add(Me.BarButtonItem17) + Me.RibbonPageGroup19.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroup19.ItemLinks.Add(Me.BarButtonItem19) + Me.RibbonPageGroup19.Name = "RibbonPageGroup19" + Me.RibbonPageGroup19.Text = "Prozess-Zuordnung" + ' + 'GridMain + ' + Me.GridMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridMain.Location = New System.Drawing.Point(200, 198) + Me.GridMain.MainView = Me.ViewMain + Me.GridMain.MenuManager = Me.RibbonControl1 + Me.GridMain.Name = "GridMain" + Me.GridMain.Size = New System.Drawing.Size(877, 454) + Me.GridMain.TabIndex = 12 + Me.GridMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewMain}) + ' + 'ViewMain + ' + Me.ViewMain.GridControl = Me.GridMain + Me.ViewMain.Name = "ViewMain" + Me.ViewMain.OptionsSelection.EnableAppearanceFocusedCell = False + ' + 'RibbonPageGroupAttributes + ' + Me.RibbonPageGroupAttributes.Name = "RibbonPageGroupAttributes" + Me.RibbonPageGroupAttributes.Text = "Attribute" + ' + 'RibbonPage_IDB + ' + Me.RibbonPage_IDB.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupAttributes}) + Me.RibbonPage_IDB.Name = "RibbonPage_IDB" + Me.RibbonPage_IDB.Text = "IDB Administration" + ' + 'RibbonGroup_ClipboardWatcher_Process + ' + Me.RibbonGroup_ClipboardWatcher_Process.Name = "RibbonGroup_ClipboardWatcher_Process" + Me.RibbonGroup_ClipboardWatcher_Process.Text = "Prozess-Zuordnung" + ' + 'RibbonGroup_ClipboardWatcher_Window + ' + Me.RibbonGroup_ClipboardWatcher_Window.Name = "RibbonGroup_ClipboardWatcher_Window" + Me.RibbonGroup_ClipboardWatcher_Window.Text = "Fenster-Zuordnung" + ' + 'RibbonGroup_ClipboardWatcher_Control + ' + Me.RibbonGroup_ClipboardWatcher_Control.Name = "RibbonGroup_ClipboardWatcher_Control" + Me.RibbonGroup_ClipboardWatcher_Control.Text = "Feld-Zuordnung" + ' + 'RibbonGroup_ClipboardWatcher_DataSearch + ' + Me.RibbonGroup_ClipboardWatcher_DataSearch.Name = "RibbonGroup_ClipboardWatcher_DataSearch" + Me.RibbonGroup_ClipboardWatcher_DataSearch.Text = "Daten-Suchen" + ' + 'RibbonGroup_ClipboardWatcher_DocSearch + ' + Me.RibbonGroup_ClipboardWatcher_DocSearch.Name = "RibbonGroup_ClipboardWatcher_DocSearch" + Me.RibbonGroup_ClipboardWatcher_DocSearch.Text = "Dokument-Suchen" + ' + 'RibbonGroup_ClipboardWatcher_Profile + ' + Me.RibbonGroup_ClipboardWatcher_Profile.Name = "RibbonGroup_ClipboardWatcher_Profile" + Me.RibbonGroup_ClipboardWatcher_Profile.Text = "Profil-Verwaltung" + ' + 'RibbonPage_ClipboardWatcher + ' + Me.RibbonPage_ClipboardWatcher.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonGroup_ClipboardWatcher_Profile, Me.RibbonGroup_ClipboardWatcher_DocSearch, Me.RibbonGroup_ClipboardWatcher_DataSearch, Me.RibbonGroup_ClipboardWatcher_Control, Me.RibbonGroup_ClipboardWatcher_Window, Me.RibbonGroup_ClipboardWatcher_Process}) + Me.RibbonPage_ClipboardWatcher.Name = "RibbonPage_ClipboardWatcher" + Me.RibbonPage_ClipboardWatcher.Text = "Clipboard Watcher" + ' + 'btnSecondServiceConnection + ' + Me.btnSecondServiceConnection.Caption = "Dienstkonfiguration umschalten" + Me.btnSecondServiceConnection.Id = 38 + Me.btnSecondServiceConnection.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.switchrowcolumns + Me.btnSecondServiceConnection.Name = "btnSecondServiceConnection" + ' + 'frmAdmin_Start + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1077, 676) + Me.Controls.Add(Me.GridMain) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.DockPanel1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_options + Me.Name = "frmAdmin_Start" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Administration - ZooFlow" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TreeListMenu, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MainTreeImages, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit() + Me.DockPanel1.ResumeLayout(False) + Me.DockPanel1_Container.ResumeLayout(False) + CType(Me.TBIDB_ATTRIBUTEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBIDB_ATTRIBUTE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.IDBImages, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GLOBIXImages, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CWImages, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + CType(Me.ActiveImages, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TypeImages, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridMain, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ViewMain, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents TreeListMenu As DevExpress.XtraTreeList.TreeList + Friend WithEvents TreeListColumn1 As DevExpress.XtraTreeList.Columns.TreeListColumn + Friend WithEvents MainTreeImages As DevExpress.Utils.SvgImageCollection + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents DockPanel1 As DevExpress.XtraBars.Docking.DockPanel + Friend WithEvents DockPanel1_Container As DevExpress.XtraBars.Docking.ControlContainer + Friend WithEvents DockManager1 As DevExpress.XtraBars.Docking.DockManager + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem + Friend WithEvents labelError As DevExpress.XtraBars.BarStaticItem + Friend WithEvents TBIDB_ATTRIBUTEBindingSource As BindingSource + Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten + Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents DELETEDCheckBox As CheckBox + Friend WithEvents DELETED_WHOTextBox As TextBox + Friend WithEvents DELETED_WHENTextBox As TextBox + Friend WithEvents TBIDB_ATTRIBUTE_TYPEBindingSource As BindingSource + Friend WithEvents BarButtonItemAddAttribute As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItemRefreshAttribute As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents CWImages As DevExpress.Utils.SvgImageCollection + Friend WithEvents GLOBIXImages As DevExpress.Utils.SvgImageCollection + Friend WithEvents Panel1 As Panel + Friend WithEvents labelTitle As Label + Friend WithEvents IDBImages As DevExpress.Utils.SvgImageCollection + Friend WithEvents BarButtonItem10 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents ActiveImages As DevExpress.Utils.SvgImageCollection + Friend WithEvents TypeImages As DevExpress.Utils.SvgImageCollection + Friend WithEvents BarButtonItem12 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem13 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem14 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem11 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem15 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem16 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem17 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem18 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem19 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem20 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem21 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem22 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem23 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup5 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup6 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup7 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup8 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup9 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup10 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup11 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup12 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup13 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup14 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup15 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup16 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup17 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup18 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup19 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarButtonItem24 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem25 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents GridMain As GridControl + Friend WithEvents ViewMain As GridView + Friend WithEvents btnAddRecord As DevExpress.XtraBars.BarButtonItem + Friend WithEvents btnEditRecord As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroupAttributes As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPage_IDB As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonGroup_ClipboardWatcher_Process As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroup_ClipboardWatcher_Window As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroup_ClipboardWatcher_Control As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonGroup_ClipboardWatcher_DataSearch As DevExpress.XtraBars.Ribbon.RibbonPageGroup + 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 BarButtonItem27 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents btnSecondServiceConnection As DevExpress.XtraBars.BarButtonItem +End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.resx b/GUIs.ZooFlow/Administration/frmAdmin_Start.resx new file mode 100644 index 0000000..b3dc977 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.resx @@ -0,0 +1,328 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZENpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0xNiw0 + QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHogTTI0 + LDE4aC02djZoLTR2LTZIOHYtNGg2VjhoNHY2aDZWMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N + Cjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAC4DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlJlZnJlc2hfMV8iPg0KICAgIDxwYXRoIGQ9Ik0yNC41 + LDcuNUMyMi4zLDUuMywxOS4zLDQsMTYsNEMxMC4xLDQsNS4xLDguMyw0LjIsMTRoNC4xYzAuOS0zLjQs + NC02LDcuNy02YzIuMiwwLDQuMiwwLjksNS42LDIuNEwxOCwxNCAgIGg1LjdoNC4xSDI4VjRMMjQuNSw3 + LjV6IiBjbGFzcz0iR3JlZW4iIC8+DQogICAgPHBhdGggZD0iTTE2LjIsMjRjLTIuMiwwLTQuMi0wLjkt + NS42LTIuNGwzLjYtMy42SDguNEg0LjRINC4ydjEwbDMuNS0zLjVjMi4yLDIuMiw1LjIsMy41LDguNSwz + LjUgICBDMjIuMSwyOCwyNywyMy43LDI4LDE4aC00LjFDMjMsMjEuNCwxOS45LDI0LDE2LjIsMjR6IiBj + bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkRlbGV0ZUNpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0x + Niw0QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHog + TTIzLjEsMjAuMmwtMi44LDIuOEwxNiwxOC44bC00LjIsNC4yICAgbC0yLjgtMi44bDQuMi00LjJsLTQu + Mi00LjJsMi44LTIuOGw0LjIsNC4ybDQuMi00LjJsMi44LDIuOEwxOC44LDE2TDIzLjEsMjAuMnoiIGNs + YXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iRHVwbGljYXRlIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3IDAg + MCAzMiAzMiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmxhY2t7ZmlsbDojNzI3MjcyO30K + PC9zdHlsZT4NCiAgPHBhdGggZD0iTTIxLDJIMTFjLTAuNSwwLTEsMC41LTEsMXY1SDVDNC41LDgsNCw4 + LjUsNCw5djIwYzAsMC41LDAuNSwxLDEsMWgxNmMwLjUsMCwxLTAuNSwxLTF2LTVoNWMwLjUsMCwxLTAu + NSwxLTEgIFY5TDIxLDJ6IE0yMCwyOEg2VjEwaDh2NWMwLDAuNSwwLjUsMSwxLDFoNVYyOHogTTI2LDIy + aC00di03bC03LTdoLTNWNGg4djVjMCwwLjUsMC41LDEsMSwxaDVWMjJ6IiBjbGFzcz0iQmxhY2siIC8+ + DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKMCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkluZm8iPg0KICAgIDxwYXRoIGQ9Ik0xNiwyQzguMywy + LDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYsMnogTTE2LDZjMS4x + LDAsMiwwLjksMiwyYzAsMS4xLTAuOSwyLTIsMiAgIHMtMi0wLjktMi0yQzE0LDYuOSwxNC45LDYsMTYs + NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg + PC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAF8CAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + UmVke2ZpbGw6I0QxMUMxQzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuR3JlZW57ZmlsbDojMDM5 + QzIzO30KPC9zdHlsZT4NCiAgPGcgaWQ9Ildhcm5pbmdDaXJjbGVkMSI+DQogICAgPHBhdGggZD0iTTE2 + LDJDOC4zLDIsMiw4LjMsMiwxNnM2LjMsMTQsMTQsMTRzMTQtNi4zLDE0LTE0UzIzLjcsMiwxNiwyeiBN + MTYsMjRjLTEuMSwwLTItMC45LTItMmMwLTEuMSwwLjktMiwyLTIgICBzMiwwLjksMiwyQzE4LDIzLjEs + MTcuMSwyNCwxNiwyNHogTTE4LDE4aC00VjhoNFYxOHoiIGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwv + c3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAC4DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlJlZnJlc2hfMV8iPg0KICAgIDxwYXRoIGQ9Ik0yNC41 + LDcuNUMyMi4zLDUuMywxOS4zLDQsMTYsNEMxMC4xLDQsNS4xLDguMyw0LjIsMTRoNC4xYzAuOS0zLjQs + NC02LDcuNy02YzIuMiwwLDQuMiwwLjksNS42LDIuNEwxOCwxNCAgIGg1LjdoNC4xSDI4VjRMMjQuNSw3 + LjV6IiBjbGFzcz0iR3JlZW4iIC8+DQogICAgPHBhdGggZD0iTTE2LjIsMjRjLTIuMiwwLTQuMi0wLjkt + NS42LTIuNGwzLjYtMy42SDguNEg0LjRINC4ydjEwbDMuNS0zLjVjMi4yLDIuMiw1LjIsMy41LDguNSwz + LjUgICBDMjIuMSwyOCwyNywyMy43LDI4LDE4aC00LjFDMjMsMjEuNCwxOS45LDI0LDE2LjIsMjR6IiBj + bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHcDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + Qmx1ZXtmaWxsOiMxMTc3RDc7fQoJLnN0MHtvcGFjaXR5OjAuNTt9Cjwvc3R5bGU+DQogIDxnIGlkPSJN + YW5hZ2VfUmVsYXRpb25zIj4NCiAgICA8ZyBjbGFzcz0ic3QwIj4NCiAgICAgIDxwYXRoIGQ9Ik0zMSwz + MmgtOGMtMC41LDAtMS0wLjUtMS0xdi04YzAtMC41LDAuNS0xLDEtMWg4YzAuNSwwLDEsMC41LDEsMXY4 + QzMyLDMxLjUsMzEuNSwzMiwzMSwzMnogTTMyLDlWMSAgICBjMC0wLjYtMC41LTEtMS0xaC04Yy0wLjUs + MC0xLDAuNC0xLDF2OGMwLDAuNiwwLjUsMSwxLDFoOEMzMS41LDEwLDMyLDkuNiwzMiw5eiIgY2xhc3M9 + IkJsYWNrIiAvPg0KICAgIDwvZz4NCiAgICA8cGF0aCBkPSJNMTEsMjJIMWMtMC42LDAtMS0wLjUtMS0x + VjExYzAtMC42LDAuNC0xLDEtMWgxMGMwLjYsMCwxLDAuNCwxLDF2MTBDMTIsMjEuNSwxMS42LDIyLDEx + LDIyeiIgY2xhc3M9IkJsdWUiIC8+DQogICAgPHBhdGggZD0iTTIwLDJ2NmwtMi4zLTIuM2wtNCw0bC0x + LjQtMS40bDQtNEwxNCwySDIweiBNMTcuNywyNi4zbC00LTRsLTEuNCwxLjRsNCw0TDE0LDMwaDZ2LTZM + MTcuNywyNi4zeiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + 122, 17 + + + 396, 17 + + + 172 + + + 691, 17 + + + 531, 17 + + + 1043, 17 + + + 17, 56 + + + 1216, 17 + + + 264, 17 + + + 17, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iU2F2ZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5 + bGU+DQogIDxwYXRoIGQ9Ik0yNyw0aC0zdjEwSDhWNEg1QzQuNCw0LDQsNC40LDQsNXYyMmMwLDAuNiww + LjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjVDMjgsNC40LDI3LjYsNCwyNyw0eiBNMjQsMjRIOHYt + NiAgaDE2VjI0eiBNMTAsNHY4aDEwVjRIMTB6IE0xNCwxMGgtMlY2aDJWMTB6IiBjbGFzcz0iQmxhY2si + IC8+DQo8L3N2Zz4L + + + + 919, 17 + + + 277, 56 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb new file mode 100644 index 0000000..77c6884 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb @@ -0,0 +1,285 @@ +Imports DevExpress.Utils +Imports DevExpress.XtraEditors.Controls +Imports DevExpress.XtraEditors.Repository +Imports DevExpress.XtraGrid.Columns +Imports DevExpress.XtraGrid.Views.Grid +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Language.Utils +Imports DigitalData.GUIs.ZooFlow.Administration.ClassConstants +Imports DevExpress.XtraGrid +Imports DevExpress.XtraBars +Imports DigitalData.Modules.Language +Imports DigitalData.Controls.SQLConfig +Imports DigitalData.GUIs.Common + +Public Class frmAdmin_Start + Private CurrentModule As String + Private CurrentPage As String + Private CurrentItem As ClassDetailForm.DetailData + Private FormHelper As FormHelper + Private Logger As Logger + + Private DetailForm As ClassDetailForm + + Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load + FormHelper = New FormHelper(My.LogConfig, Me) + Logger = My.LogConfig.GetLogger() + DetailForm = New ClassDetailForm(My.LogConfig) + AddHandler DetailForm.DetailFormClosed, AddressOf DetailForm_Closed + + DetailForm.LoadData() + TreeListMenu.ExpandAll() + End Sub + + Private Sub DetailForm_Closed(sender As Object, e As IAdminForm) + If e.HasChanges And CurrentPage IsNot Nothing Then + DetailForm.LoadData() + + Dim oKey = $"{CurrentPage}-OVERVIEW" + + If DetailForm.DetailDataList.ContainsKey(oKey) Then + Dim oDetailData = DetailForm.DetailDataList.Item(oKey) + + Load_GridData(oDetailData) + Else + Dim oResult = FormHelper.ShowWarningMessage($"Could not load data for Page [{oKey}] because it does not exist!", "Error") + + End If + End If + End Sub + + Private Function Handle_LoadPage(Page As String) As Boolean + If DetailForm.DetailSettingsList.ContainsKey(Page) Then + Dim oNode = DetailForm.DetailSettingsList.Item(Page) + CurrentModule = oNode.Module + labelTitle.Text = oNode.GridTitle + btnAddRecord.Caption = oNode.NewRecordTitle + If btnAddRecord.Caption = "" Then + btnAddRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Else + btnAddRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End If + Else + MsgBox($"Tag [{Page}] not found! Exiting." & vbNewLine & + $"Check the [ENTITY_TITLE] Column in Table [TBZF_ADMIN_SOURCE_SQL]. It must match with the Tag [{Page}] of the corresponding Tree List nodes!", MsgBoxStyle.Critical, Text) + + Return False + End If + + ' This dictionary can contain the same entity multiple times to save + ' OVERVIEW, INSERT, UPDATE, etc. data records, so we specifically look for the overview key + Dim oKey = $"{Page}-OVERVIEW" + + If DetailForm.DetailDataList.ContainsKey(oKey) Then + + Dim oItem = DetailForm.DetailDataList.Item(oKey) + Load_GridData(oItem) + Load_GridLayout(oItem) + CurrentItem = oItem + Else + MsgBox($"Page [{Page}] not found in AdminItems! Exiting." & vbNewLine & + "Check your definitions in the TreeList NodeEditor and in SourceSQL", MsgBoxStyle.Critical, Text) + Return False + End If + + Return True + End Function + + Private Sub TreeListMenu_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeListMenu.FocusedNodeChanged + Try + If e.Node Is Nothing OrElse e.Node.Tag Is Nothing OrElse e.Node.Tag = String.Empty Then + RibbonPageGroup1.Enabled = False + labelTitle.Text = "Start" + Exit Sub + End If + + If Handle_LoadPage(e.Node.Tag.ToString) Then + RibbonPageGroup1.Enabled = True + CurrentPage = e.Node.Tag.ToString + End If + + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "TreeListMenu_FocusedNodeChanged") + End Try + End Sub + + Private Sub Style_ActiveColumn(ActiveColumn As GridColumn) + Dim oActiveEditor As New RepositoryItemImageComboBox With { + .SmallImages = ActiveImages, + .GlyphAlignment = HorzAlignment.Center + } + oActiveEditor.Buttons.Clear() + oActiveEditor.Items.AddRange(New List(Of ImageComboBoxItem) From { + New ImageComboBoxItem("Active", True, 0), + New ImageComboBoxItem("Inactive", False, 1) + }) + + With ActiveColumn + .Caption = " " + .Name = "columnActive" + .Visible = True + .VisibleIndex = 0 + .ColumnEdit = oActiveEditor + .MaxWidth = 30 + .MinWidth = 30 + .Image = ActiveImages.GetImage(0) + .OptionsColumn.AllowEdit = False + End With + End Sub + + Private Sub Load_GridData(Source As ClassDetailForm.DetailData) + If Source Is Nothing OrElse Source.SQLResult Is Nothing Then + Exit Sub + End If + + ViewMain.ShowLoadingPanel() + Source.SQLResult = My.DatabaseECM.GetDatatable(Source.SQLCommand) + GridMain.DataSource = Source.SQLResult + ViewMain.HideLoadingPanel() + End Sub + + Private Sub Load_GridLayout(Source As ClassDetailForm.DetailData) + If Source Is Nothing OrElse Source.SQLResult Is Nothing Then + Exit Sub + End If + + ViewMain.ShowLoadingPanel() + GridMain.ForceInitialize() + ViewMain.PopulateColumns() + + If ViewMain.Columns.Item(COLUMN_NAME_ACTIVE) Is Nothing Then + Dim oActiveColumn = New GridColumn() With {.FieldName = COLUMN_NAME_ACTIVE} + ViewMain.Columns.Add(oActiveColumn) + Style_ActiveColumn(oActiveColumn) + Else + Style_ActiveColumn(ViewMain.Columns.Item(COLUMN_NAME_ACTIVE)) + End If + + With ViewMain.Appearance.EvenRow + .BackColor = Color.Snow + .Options.UseBackColor = True + End With + + With ViewMain.Appearance.FocusedCell + .BackColor = Color.Gold + .Options.UseBackColor = True + End With + + With ViewMain.OptionsBehavior + .Editable = False + .ReadOnly = True + End With + + With ViewMain.OptionsView + .ShowAutoFilterRow = True + .EnableAppearanceEvenRow = True + .ShowIndicator = False + .ShowHorizontalLines = DefaultBoolean.True + .ShowVerticalLines = DefaultBoolean.True + End With + + With ViewMain.OptionsClipboard + .CopyColumnHeaders = DefaultBoolean.False + End With + + With ViewMain.OptionsFind + .AlwaysVisible = True + End With + + AddHandler ViewMain.KeyDown, AddressOf GridView1_KeyDown + + ViewMain.BestFitColumns() + ViewMain.HideLoadingPanel() + End Sub + + Public Sub GridView1_KeyDown(sender As GridView, e As KeyEventArgs) + Dim oView As GridView = sender + If e.Control AndAlso e.KeyCode = Keys.C And e.Modifiers = Keys.Control Then + Dim oCellValue = oView.GetRowCellValue(oView.FocusedRowHandle, oView.FocusedColumn) + If oCellValue IsNot Nothing AndAlso oCellValue.ToString() <> String.Empty Then + Clipboard.SetText(oCellValue.ToString) + End If + e.Handled = True + End If + End Sub + + Private Sub GridView1_RowClick(sender As Object, e As RowClickEventArgs) Handles ViewMain.RowClick + Try + If e.Clicks = 2 And e.Button = MouseButtons.Left Then + Dim oPrimaryKey = Get_PrimaryKey(e.RowHandle) + + If oPrimaryKey IsNot Nothing Then + DetailForm.Handle_OpenDetail(oPrimaryKey, CurrentPage, False) + Else + Throw New ArgumentNullException("PrimaryKey") + End If + End If + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "GridView1_RowClick") + End Try + End Sub + + Private Function Get_PrimaryKey(RowHandle As Integer) + Try + Dim oView As GridView = ViewMain + Dim oRowView As DataRowView = oView.GetRow(RowHandle) + + If oRowView Is Nothing Then + Return Nothing + End If + + Dim oItem As ClassDetailForm.DetailData = CurrentItem + Dim oGuid = oRowView.Row.ItemEx(oItem.PrimaryKey, -1) + + Return oGuid + Catch ex As Exception + Logger.Error(ex) + Return Nothing + End Try + End Function + + Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick + DetailForm.LoadData() + ShowStatus("Source SQL neu geladen") + End Sub + + Private Sub ShowStatus(v As String) + labelStatus.Caption = v + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End Sub + + Private Sub ResetStatus() + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End Sub + + Private Sub btnAddRecord_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnAddRecord.ItemClick + Try + DetailForm.Handle_OpenDetail(Nothing, CurrentPage, True) + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "btnAddRecord_ItemClick") + End Try + End Sub + + Private Sub btnEditRecord_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnEditRecord.ItemClick + Try + Dim oIsRelationPage = DetailForm.TestPageIsRelation(CurrentPage) + + If ViewMain.FocusedRowHandle = GridControl.InvalidRowHandle And Not oIsRelationPage Then + Exit Sub + End If + + Dim oPrimaryKey = Get_PrimaryKey(ViewMain.FocusedRowHandle) + + If oPrimaryKey IsNot Nothing Or oIsRelationPage Then + DetailForm.Handle_OpenDetail(oPrimaryKey, CurrentPage, False) + End If + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub + + Private Sub BarButtonItem27_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem27.ItemClick + Dim oForm As New frmAdmin_UserImport() + oForm.ShowDialog() + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/App.config b/GUIs.ZooFlow/App.config new file mode 100644 index 0000000..f909033 --- /dev/null +++ b/GUIs.ZooFlow/App.config @@ -0,0 +1,136 @@ + + + + +
+
+ + + + + + + + + + True + + + DEV + + + + + Skin/Office 2019 Colorful + + + Custom/Digital Data Palette + + + + + + + + + + + + + + + + + + + + + UseSegoeUI + + + + + + System + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/ApplicationEvents.vb b/GUIs.ZooFlow/ApplicationEvents.vb new file mode 100644 index 0000000..ab34438 --- /dev/null +++ b/GUIs.ZooFlow/ApplicationEvents.vb @@ -0,0 +1,117 @@ +Imports System.IO.Path +Imports System.Runtime +Imports DigitalData.Modules.Config +Imports DigitalData.Modules.EDMI.API +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Logging.LogConfig +Imports Microsoft.VisualBasic.ApplicationServices + +Namespace My + ' Für MyApplication sind folgende Ereignisse verfügbar: + ' Startup: Wird beim Starten der Anwendung noch vor dem Erstellen des Startformulars ausgelöst. + ' Shutdown: Wird nach dem Schließen aller Anwendungsformulare ausgelöst. Dieses Ereignis wird nicht ausgelöst, wenn die Anwendung mit einem Fehler beendet wird. + ' UnhandledException: Wird bei einem Ausnahmefehler ausgelöst. + ' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn die Anwendung bereits aktiv ist. + ' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst. + Partial Friend Class MyApplication + Private Logger As Logger + + Private ReadOnly CommonAppDataPath As String = Windows.Forms.Application.CommonAppDataPath + Private ReadOnly StartupPath As String = Windows.Forms.Application.StartupPath + + Private ReadOnly Property Prefix + Get + Return My.Settings.UserConfig_Prefix + End Get + End Property + + Private ReadOnly Property HasPrefix + Get + Return TypeOf Prefix Is String AndAlso Prefix.Length > 0 + End Get + End Property + + Public ReadOnly Property UserAppDataPath As String + Get + If HasPrefix Then + Return Combine(Windows.Forms.Application.UserAppDataPath, Prefix) + Else + Return Windows.Forms.Application.UserAppDataPath + End If + End Get + End Property + + Public ReadOnly Property LocalUserConfigPath As String + Get + If HasPrefix Then + Return Combine(Windows.Forms.Application.LocalUserAppDataPath, Prefix) + Else + Return Windows.Forms.Application.LocalUserAppDataPath + End If + End Get + End Property + + Public Sub App_Startup() Handles Me.Startup + Dim oLogConfig As New LogConfig(LogPath:=PathType.CustomPath, + CustomLogPath:=Combine(LocalUserConfigPath, "Log"), + CompanyName:="Digital Data", + ProductName:="ZooFlow", + FileKeepRangeInDays:=30) With {.Debug = True} + + ' System Config files like Service Url will be saved in %LocalAppdata% so they will remain on the machine + Dim oConfigManager As New ConfigManager(Of SystemConfig)(oLogConfig, UserAppDataPath, CommonAppDataPath, StartupPath) + + ' Layout files will be saved in %Appdata% (Roaming) so they will be syncronized with the user profile + Dim oUIConfigPath = IO.Path.Combine(UserAppDataPath, ClassConstants.FOLDER_NAME_LAYOUT) + Dim oUIConfigAlternatePath = IO.Path.Combine(UserAppDataPath, ClassConstants.FOLDER_NAME_LAYOUT) + Dim oUIConfigManager As New ConfigManager(Of UIConfig)(oLogConfig, oUIConfigPath, oUIConfigPath, oUIConfigAlternatePath) + + LogConfig = oLogConfig + LogConfig.Debug = True + + SystemConfigManager = oConfigManager + UIConfigManager = oUIConfigManager + + Logger = LogConfig.GetLogger() + Logger.Debug("Starting ZooFlow...") + + ProfileOptimization.SetProfileRoot("E:\Zooflow") + ProfileOptimization.StartProfile("Startup.Profile") + + If oConfigManager.Config.AppServerConfig <> String.Empty Then + Try + Dim oSplit() As String = oConfigManager.Config.AppServerConfig.ToString.Split(":"c) + Dim oAppServerAddress As String = oSplit(0) + Dim oAppServerPort As Integer = 9000 + If oSplit.Length = 2 Then + oAppServerPort = oSplit(1) + End If + + My.Application.Service.Client = New Client(LogConfig, oAppServerAddress, oAppServerPort) + If Not IsNothing(My.Application.Service.Client) Then + My.Application.Service.Client.Connect() + End If + Catch ex As Exception + Logger.Warn($"Could not initialize the AppServer: {ex.Message}") + End Try + End If + + Dim oCommandLineArgs As New ClassCommandlineArgs(LogConfig) + Dim oArgs = Environment.GetCommandLineArgs().Skip(1).ToList() + oCommandLineArgs.Parse(oArgs) + + CommandLineFunction = oCommandLineArgs.FunctionName + CommandLineArguments = oCommandLineArgs.FunctionArgs + End Sub + + Public Sub App_Shutdown(sender As Object, e As EventArgs) Handles Me.Shutdown + Logger.Debug("Shutting down Zooflow..") + End Sub + + Private Sub MyApplication_UnhandledException(sender As Object, e As UnhandledExceptionEventArgs) Handles Me.UnhandledException + Logger.Warn("Unhandled exception occurred: [{0}]", e.Exception.Message) + Logger.Error(e.Exception) + End Sub + + End Class +End Namespace \ No newline at end of file diff --git a/GUIs.ZooFlow/ClassCommandlineArgs.vb b/GUIs.ZooFlow/ClassCommandlineArgs.vb new file mode 100644 index 0000000..65a4617 --- /dev/null +++ b/GUIs.ZooFlow/ClassCommandlineArgs.vb @@ -0,0 +1,61 @@ +Imports System.Text.RegularExpressions +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Base + +''' +''' Parses Commandline Arguments. Used to jump to a specific point in the application. +''' +''' Example: --start-search=id#7~doctype#ARE +''' +Public Class ClassCommandlineArgs + Inherits BaseClass + + Private CommandLineArgTypes As New List(Of String) From { + "show-profile", + "start-search" + } + Private CommandLineArgTypeString As String = String.Join("|", CommandLineArgTypes) + Private CommandLineArgRegex As String = $"(?:-{{2}}(?:({CommandLineArgTypeString})+)=([a-zA-Z0-9~|]+)\s*)+" + Private CommandLineArgParameterRegex As String = "(?:~{0,1}([\w\d-]+|[\w\d-]+))+" + + Public FunctionName As String + Public FunctionArgs As New Dictionary(Of String, String) + + Public Sub New(pLogConfig As LogConfig) + MyBase.New(pLogConfig) + End Sub + + Public Sub Parse(Args As List(Of String)) + Dim oRegex = New Regex(CommandLineArgRegex) + Dim oArgRegex = New Regex(CommandLineArgParameterRegex) + + Logger.Debug("Application started with {0} arguments", Args.Count) + + For Each oArg In Args + Dim oMatch = oRegex.Match(oArg) + Dim oGroups = oMatch.Groups + + If oMatch.Success = False Then + Logger.Warn("The Argument [{0}] did not match the required format and was discarded!", oArg) + Continue For + End If + + Dim oParamName As String = oGroups.Item(1).Value.Replace("--", "") + Dim oParamValue As String = oGroups.Item(2).Value + + If oArgRegex.IsMatch(oParamValue) Then + FunctionName = oParamName + + For Each oValue As String In oParamValue.Split("~"c) + Dim oValueArray = oValue.Split("|"c).ToList + FunctionArgs.Add(oValueArray.Item(0), oValueArray.Item(1)) + Next + Else + Throw New ArgumentException($"Parameters did not match the required format!", "pValue") + End If + + Next + End Sub + + +End Class diff --git a/GUIs.ZooFlow/ClassConstants.vb b/GUIs.ZooFlow/ClassConstants.vb new file mode 100644 index 0000000..b2b3831 --- /dev/null +++ b/GUIs.ZooFlow/ClassConstants.vb @@ -0,0 +1,70 @@ +Public Class ClassConstants + Public Const SERVICE_MAX_MESSAGE_SIZE = 2147483647 + Public Const SERVICE_MAX_BUFFER_SIZE = 2147483647 + Public Const SERVICE_MAX_ARRAY_LENGTH = 2147483647 + Public Const SERVICE_MAX_STRING_LENGTH = 2147483647 + Public Const SERVICE_MAX_CONNECTIONS = 10000 + Public Const SERVICE_OPEN_TIMEOUT = 3 + + Public Const USER_CATALOG_APPLICATION_THEME = "APPLICATION_THEME" + Public Const USER_CATALOG_QUICKSEARCH1_TITLE = "QUICKSEARCH1_TITLE" + Public Const USER_CATALOG_QUICKSEARCH1_POS = "QUICKSEARCH1_POS" + Public Const USER_CATALOG_GLOBIX_DROPAREA = "GLOBIX_DROPAREA" + Public Const USER_AD_ROOT_PATH = "ACTIVE_DIRECTORY_ROOT" + + Public Const FOLDER_NAME_LAYOUT = "Layout" + + Public Const MODULE_CLIPBOARDWATCHER = "CW" + Public Const MODULE_GLOBAL_INDEXER = "GLOBIX" + Public Const MODULE_ZOOFLOW = "ZOOFLOW" + Public Const MODULE_PROCESS_MANAGER = "PM" + Public Const MODULE_USER = "USER" + + Public Const ATTR_TYPE_STRING = "VARCHAR" + Public Const ATTR_TYPE_INTEGER = "BIG INTEGER" + Public Const ATTR_TYPE_DATE = "DATE" + Public Const ATTR_TYPE_BOOLEAN = "BIT" + + Public Const VECTORSEPARATOR = "╚" + Public Const SERVICE_ADDRESS_SEPARATOR = ":" + + Public Const HOTKEY_TOGGLE_WATCHER As Integer = 354522017 + Public Const HOTKEY_TRIGGER_WATCHER As Integer = 354523017 + + Public Const NOTIFICATION_DELAY = 2500 + + Public Const SQLCMD_FLOW_SEARCH_LOWER_LIMIT = "FLOW_SEARCH_ATTRIBUTE_GROUP" + Public Const SQLCMD_FLOW_SEARCH_CATEGORIES = "FLOW_SEARCH_CATEGORIES" + Public Const SQLCMD_FLOW_SEARCH_TILE = "FLOW_SEARCH_PER_TILE" + + Public Const SQLCMD_FLOW_SEARCH_BASE = "FLOW_SEARCH_SQL_BASE" + Public Const SQLCMD_AHW_LAYOUT_SELECT = "AHWF_CMD_LAYOUT_SELECT" + Public Const SQLCMD_AHW_USR_SELECT = "AHWF_CMD_USR_SELECT" + Public Const SQLCMD_RECENT_FILES_USER = "RECENT_FILES_USER" + + Public Const RESULTLIST_COL_ADDED_WHEN_DE = "Erstellt wann" + Public Const RESULTLIST_COL_CHANGED_WHEN_DE = "Geändert wann" + Public Const RESULTLIST_COL_ADDED_WHEN_EN = "Created when" + Public Const RESULTLIST_COL_CHANGED_WHEN_EN = "Changed when" + + Public Const IDB_VECTOR_TYPE_INTEGER = 9 + Public Const IDB_VECTOR_TYPE_STRING = 8 + + Public Const IDB_ADDED_WHEN_String_German = "Erstellt Wann" + Public Const IDB_ADDED_WHEN_String_Englisch = "Added when" + + Public Const WM_WINDOWPOSCHANGING As Integer = &H46 + + Public Const TEXT_MISSING_INPUT = "Bitte vervollständigen Sie die Eingaben!" + Public Const TITLE_MISSING_INPUT = "Fehlende Eingaben" + + Class DropType + Public Const DROP_TYPE_FILESYSTEM = "|DROPFROMFSYSTEM|" + Public Const DROP_TYPE_MESSAGE = "|OUTLOOK_MESSAGE|" + Public Const DROP_TYPE_ATTACHMENT = "|OUTLOOK_ATTACHMENT|" + Public Const DROP_TYPE_MESSAGE_ATTACHMENT = "|ATTMNTEXTRACTED|" + Public Const DROP_TYPE_FOLDERWATCH_MESSAGE = "|FW_MSGONLY|" + Public Const DROP_TYPE_FOLDERWATCH_FILE = "|FW_SIMPLEINDEXER|" + End Class + +End Class diff --git a/GUIs.ZooFlow/ClassControlCreator.vb b/GUIs.ZooFlow/ClassControlCreator.vb new file mode 100644 index 0000000..d0a327e --- /dev/null +++ b/GUIs.ZooFlow/ClassControlCreator.vb @@ -0,0 +1,414 @@ +Imports DevExpress.XtraEditors +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraTab +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Language + +Public Class ClassControlCreator + + Private Const DEFAULT_TEXT = "Bezeichnung definieren" + + Private Const DEFAULT_FONT_SIZE As Integer = 10 + Private Const DEFAULT_FONT_FAMILY As String = "Arial" + Private Const DEFAULT_FONT_STYLE As FontStyle = FontStyle.Regular + Private Const DEFAULT_COLOR As Integer = 0 + Private Const DEFAULT_WIDTH As Integer = 170 + Private Const DEFAULT_HEIGHT As Integer = 20 + Private Const DEFAULT_WIDTH_GRIDVIEW As Integer = 150 + Private Const DEFAULT_HEIGHT_GRIDVIEW As Integer = 150 + + + Public Const PREFIX_TEXTBOX = "TXT" + Public Const PREFIX_LABEL = "LBL" + Public Const PREFIX_CHECKBOX = "CHK" + Public Const PREFIX_COMBOBOX = "CMB" + Public Const PREFIX_DATETIMEPICKER = "DTP" + Public Const PREFIX_DATAGRIDVIEW = "DGV" + Public Const PREFIX_LOOKUP = "LU" + Public Const PREFIX_GRIDCONTROL = "GRID" + Public Const PREFIX_LINE = "LINE" + Public Const PREFIX_BUTTON = "BTN" + + Public Shared GridTables As New Dictionary(Of String, DataTable) + + Private Logger As Logger + Private Property Form As frmSearchStart + Private Property TabPage As XtraTabPage + Public Class ControlMeta + Public Property IndexName As String + Public Property IndexType As String + Public Property MultipleValues As Boolean = False + End Class + + ''' + ''' Standard Eigenschaften für alle Controls + ''' + Private Class ControlDBProps + Public Guid As Integer + Public Name As String + Public Location As Point + Public [Font] As Font + Public [Color] As Color + End Class + + Public Class ControlMetadata + Public Guid As Integer + Public AttributeID As Integer + Public DependingAttributeID As Integer + Public Multiselect As Boolean + Public AttributeTitle As String + Public AttributeType As String + Public SourceSQL As String + Public DTSource As DataTable + Public MinValue As String + Public MaxValue As String + End Class + + Private Shared Function TransformDataRow(pRow As DataRow, pXPosition As Integer, pYPosition As Integer) As ControlDBProps + Dim oxPos As Integer = pXPosition + Dim oYPos As Integer = pYPosition + Dim oGuid As Integer = pRow.Item("GUID") + Dim oName As String = pRow.Item("ATTRIBUTE_TITLE") + Dim oLocation As New Point(oxPos, oYPos) + Return New ControlDBProps() With { + .Guid = oGuid, + .Name = oName, + .Location = oLocation + } + End Function + Public Function CreateBaseControl(pControl As Control, pAttributeRow As DataRow, pXPosition As Integer, pYPosition As Integer) As Control + Try + Dim props As ControlDBProps = TransformDataRow(pAttributeRow, pXPosition, pYPosition) + Dim oSourceSQL As String = pAttributeRow.Item("SOURCE_SQL").ToString + oSourceSQL = oSourceSQL.Replace("@USER_LANGUAGE", My.Application.User.Language) + oSourceSQL = oSourceSQL.Replace("@pUSER_ID", My.Application.User.UserId) + oSourceSQL = oSourceSQL.Replace("@RESULT_TITLE", pAttributeRow.Item("ATTRIBUTE_TITLE").ToString) + 'oSourceSQL = oSourceSQL & " ORDER BY T.TERM_VALUE" + Dim oDTSource As DataTable + 'If pAttributeRow.Item("DEPENDING_ATTRIBUTE1") = 0 Then + If Utils.NotNull(oSourceSQL, String.Empty) <> String.Empty Then + oDTSource = My.DatabaseIDB.GetDatatable(oSourceSQL) + End If + 'End If + + Dim oMinValue As String = "" + Dim oMaxValue As String = "" + + If Not IsNothing(oDTSource) Then + oDTSource.DefaultView.Sort = pAttributeRow.Item("ATTRIBUTE_TITLE").ToString '"ColumnName ASC" + oDTSource = oDTSource.DefaultView.ToTable + oMinValue = oDTSource.Rows(0).Item(0) + oMaxValue = oDTSource.Rows(oDTSource.Rows.Count - 1).Item(0) + End If + + Dim oMetadata = New ControlMetadata() With { + .Guid = CType(pAttributeRow.Item("GUID"), Integer), + .AttributeID = CType(pAttributeRow.Item("ATTRIBUTE_ID"), Integer), + .DTSource = CType(oDTSource, DataTable), + .AttributeTitle = CType(pAttributeRow.Item("ATTRIBUTE_TITLE"), String), + .Multiselect = CType(pAttributeRow.Item("MULTISELECT"), Boolean), + .SourceSQL = oSourceSQL, + .MinValue = oMinValue, + .MaxValue = oMaxValue + } + + pControl.Tag = oMetadata + pControl.Name = props.Name + pControl.Location = props.Location + pControl.Font = props.Font + pControl.ForeColor = props.Color + + + Return pControl + Catch ex As Exception + Logger.Error(ex) + End Try + + End Function + + Public Sub New(pTabPage As XtraTabPage, pForm As frmSearchStart) + Me.Form = pForm + Me.TabPage = pTabPage + Logger = My.LogConfig.GetLogger() + End Sub + + Public Function CreateExistingCheckbox(pAttributeRow As DataRow, pXPosition As Integer, pYPosition As Integer) As CheckBox + Dim oCheckBox As CheckBox = CType(CreateBaseControl(New CheckBox(), pAttributeRow, pXPosition, pYPosition), CheckBox) + + oCheckBox.AutoSize = True + Try + oCheckBox.Text = pAttributeRow.Item("ATTRIBUTE_TITLE").ToString + Catch ex As Exception + oCheckBox.Text = "NO CAPTION AVAILABLE" + End Try + oCheckBox.CheckState = CheckState.Indeterminate + + Return oCheckBox + End Function + Public Function CreateExistingDatepicker(pAttributeRow As DataRow, pXPosition As Integer, pYPosition As Integer) As DateEdit + Dim oDateControl As DateEdit = CType(CreateBaseControl(New DateEdit(), pAttributeRow, pXPosition, pYPosition), DateEdit) + + oDateControl.Size = New Size(100, 20) + oDateControl.Properties.HighlightTodayCell = True + oDateControl.Properties.ShowWeekNumbers = True + oDateControl.Properties.ShowClear = True + Try + Dim oMinDate As Date = DirectCast(oDateControl.Tag, ControlMetadata).MinValue + oDateControl.Properties.MinValue = oMinDate + Catch ex As Exception + + End Try + Try + Dim oMaxDate As Date = DirectCast(oDateControl.Tag, ControlMetadata).MaxValue + oDateControl.Properties.MaxValue = oMaxDate + Catch ex As Exception + + End Try + + Return oDateControl + End Function + Public Function CreateExistingGridControl(pAttributeRow As DataRow, pXPosition As Integer, pYPosition As Integer) As GridControl + Dim oWatch1 As New Watch("Creating Base Control") + + Dim oMyNewGridControl As GridControl = CreateBaseControl(New GridControl(), pAttributeRow, pXPosition, pYPosition) + Dim oDatatable As New DataTable + Dim oView As GridView + + oWatch1.Stop() + oWatch1 = New Watch("Configuring Grid") + + oMyNewGridControl.ForceInitialize() + oMyNewGridControl.ContextMenu = Nothing + oMyNewGridControl.Size = New Size(CInt(pAttributeRow.Item("WIDTH")), DEFAULT_HEIGHT_GRIDVIEW) + 'oMyNewGridControl.Size = New Size(CInt(pAttributeRow.Item("WIDTH")), CInt(pAttributeRow.Item("HEIGHT"))) + + oView = CType(oMyNewGridControl.MainView, GridView) + oView.Appearance.EvenRow.BackColor = Color.WhiteSmoke ' Color.FromArgb(255, 214, 49) + oView.OptionsBehavior.Editable = False + oView.OptionsBehavior.ReadOnly = True + oView.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.False + oView.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.False + oView.OptionsView.NewItemRowPosition = NewItemRowPosition.None + oView.OptionsView.ShowAutoFilterRow = True + oView.OptionsView.EnableAppearanceEvenRow = True + oView.OptionsView.ShowGroupPanel = False + + If CType(pAttributeRow.Item("MULTISELECT"), Boolean) Then + oView.OptionsSelection.MultiSelect = True + oView.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect + oView.OptionsSelection.CheckBoxSelectorColumnWidth = 20 + oMyNewGridControl.Size = New Size(CInt(pAttributeRow.Item("WIDTH") + 50), DEFAULT_HEIGHT_GRIDVIEW) + + End If + + oWatch1.Stop() + oWatch1 = New Watch("Loading Datasource") + + ' Add and configure navigator to delete rows + 'oMyNewGridControl.UseEmbeddedNavigator = True + 'With oMyNewGridControl.EmbeddedNavigator.Buttons + ' .CancelEdit.Visible = False + ' .Edit.Visible = False + ' .EndEdit.Visible = False + ' .First.Visible = False + ' .Last.Visible = False + ' .Next.Visible = False + ' .NextPage.Visible = False + ' .PrevPage.Visible = False + ' .Prev.Visible = False + + 'End With + + GridTables.Clear() + + Dim oDTSource As DataTable = DirectCast(oMyNewGridControl.Tag, ControlMetadata).DTSource + + oMyNewGridControl.DataSource = oDTSource + oView.PopulateColumns() + oView.FocusInvalidRow() + + 'oMyNewGridControl.RefreshDataSource() + 'oMyNewGridControl.ForceInitialize() + + oWatch1.Stop() + + Return oMyNewGridControl + End Function + + Public Sub DeselectGridControl(BaseControl As Control) + Try + DirectCast(DirectCast(BaseControl, GridControl).MainView, GridView).FocusInvalidRow() + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub + + Public Function AddCheckBox(pIndexname As String, y As Integer, pVorbelegung As String, pCaption As String) As CheckBox + Try + Dim oValue As Boolean = False + Dim oCheckbox As New CheckBox With { + .Name = "chk" & pIndexname, + .Size = New Size(100, 27), + .Location = New Point(11, y), + .Tag = New ControlMeta() With { + .IndexName = pIndexname, + .IndexType = "BOOLEAN" + } + } + + If pCaption <> "" Then + oCheckbox.Text = pCaption + oCheckbox.Size = New Size(CInt(pCaption.Length * 15), 27) + End If + + If Boolean.TryParse(pVorbelegung, oValue) = False Then + If pVorbelegung = "1" Or pVorbelegung = "0" Then + oCheckbox.Checked = CBool(pVorbelegung) + Else + oCheckbox.Checked = False + End If + Else + oCheckbox.Checked = oValue + End If + + AddHandler oCheckbox.CheckedChanged, AddressOf Checkbox_CheckedChanged + + Return oCheckbox + Catch ex As Exception + Logger.Info("Unhandled Exception in AddCheckBox: " & ex.Message) + Logger.Error(ex.Message) + Return Nothing + End Try + End Function + + Public Sub Checkbox_CheckedChanged(sender As CheckBox, e As EventArgs) + 'PrepareDependingControl(sender) + End Sub + + Function AddCombobox(indexname As String, y As Integer) As ComboBoxEdit + Dim oCombobox As New ComboBoxEdit + oCombobox.Name = "cmb" & indexname + oCombobox.AutoSize = True + oCombobox.Size = New Size(300, 27) + oCombobox.Location = New Point(11, y) + + oCombobox.Tag = New ControlMeta() With { + .IndexName = indexname + } + + + AddHandler oCombobox.SelectedIndexChanged, AddressOf OncmbSIndexChanged + AddHandler oCombobox.GotFocus, AddressOf OncmbGotFocus + AddHandler oCombobox.LostFocus, AddressOf OncmbLostFocus + Return oCombobox + End Function + + Public Sub OncmbGotFocus(sender As Object, e As System.EventArgs) + Dim oCombobox As ComboBoxEdit = CType(sender, ComboBoxEdit) + oCombobox.BackColor = Color.Lime + End Sub + + Public Sub OncmbLostFocus(sender As Object, e As System.EventArgs) + Dim oCombobox As ComboBoxEdit = CType(sender, ComboBoxEdit) + oCombobox.BackColor = Color.White + End Sub + + Public Sub OncmbSIndexChanged(sender As System.Object, e As System.EventArgs) + If Form.DataLoaded = False Then + Exit Sub + End If + + Dim oCombobox As ComboBoxEdit = CType(sender, ComboBoxEdit) + If oCombobox.SelectedIndex <> -1 Then + If oCombobox.Text.Length > 15 Then + Dim g As Graphics = oCombobox.CreateGraphics + oCombobox.Width = CInt(g.MeasureString(oCombobox.Text, oCombobox.Font).Width + 30) + g.Dispose() + End If + + SendKeys.Send("{TAB}") + End If + End Sub + + Public Function AddTextBox(pAttrName As String, y As Integer, text As String, pAttrDataType As String) As DevExpress.XtraEditors.TextEdit + Dim oEdit As New TextEdit With { + .Name = "txt" & pAttrName, + .Size = New Size(260, 27), + .Location = New Point(11, y), + .Tag = New ControlMeta() With { + .IndexName = pAttrName, + .IndexType = pAttrDataType + } + } + + Select Case pAttrDataType + Case "INTEGER" + oEdit.Properties.Mask.MaskType = Mask.MaskType.Numeric + oEdit.Properties.Mask.EditMask = "d" + Console.WriteLine() + End Select + + If text IsNot Nothing Then + oEdit.Text = text + oEdit.SelectAll() + End If + + AddHandler oEdit.GotFocus, AddressOf OnTextBoxFocus + AddHandler oEdit.LostFocus, AddressOf OnTextBoxLostFocus + AddHandler oEdit.KeyUp, AddressOf OnTextBoxKeyUp + AddHandler oEdit.TextChanged, AddressOf OnTextBoxTextChanged + + Return oEdit + End Function + + Public Sub OnTextBoxFocus(sender As Object, e As EventArgs) + Dim oTextbox As TextEdit = CType(sender, TextEdit) + oTextbox.BackColor = Color.Lime + oTextbox.SelectAll() + End Sub + + Public Sub OnTextBoxTextChanged(sender As Object, e As EventArgs) + Dim oTextbox As TextEdit = CType(sender, TextEdit) + Using oGraphics As Graphics = oTextbox.CreateGraphics() + oTextbox.Width = CInt(oGraphics.MeasureString(oTextbox.Text, oTextbox.Font).Width + 15) + End Using + End Sub + + Public Sub OnTextBoxLostFocus(sender As Object, e As EventArgs) + Dim oTextbox As TextEdit = CType(sender, TextEdit) + oTextbox.BackColor = Color.White + End Sub + + Public Sub OnTextBoxKeyUp(sender As Object, e As KeyEventArgs) + Dim oTextbox As TextEdit = CType(sender, TextEdit) + + If oTextbox.Text = String.Empty Then + Exit Sub + End If + + If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Or e.KeyCode = Keys.Tab Then + 'PrepareDependingControl(oTextbox) + End If + + If (e.KeyCode = Keys.Return) Then + SendKeys.Send("{TAB}") + End If + End Sub + + + Public Function AddDateTimePicker(indexname As String, y As Integer, DataType As String) As DateEdit + Dim oPicker As New DateEdit With { + .Name = "dtp" & indexname, + .Size = New Size(260, 27), + .Location = New Point(11, y), + .Tag = New ControlMeta() With { + .IndexName = indexname, + .IndexType = DataType + } + } + oPicker.Properties.AppearanceFocused.BackColor = Color.Lime + + Return oPicker + End Function +End Class diff --git a/GUIs.ZooFlow/ClassDragDrop.vb b/GUIs.ZooFlow/ClassDragDrop.vb new file mode 100644 index 0000000..0f14cb4 --- /dev/null +++ b/GUIs.ZooFlow/ClassDragDrop.vb @@ -0,0 +1,120 @@ +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraGrid.Views.Grid.ViewInfo +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Base +Imports DigitalData.GUIs.Common + +Public Class ClassDragDrop + Inherits BaseClass + + Public Enum ResultType + PrimaryKey + RowHandle + End Enum + + Private downHitInfo As GridHitInfo = Nothing + Private SelectedResultType As ResultType + + Public Sub New(LogConfig As LogConfig) + MyBase.New(LogConfig) + SelectedResultType = ResultType.PrimaryKey + End Sub + + Public Sub New(LogConfig As LogConfig, pResultType As ResultType) + MyBase.New(LogConfig) + SelectedResultType = pResultType + End Sub + + Public Sub AddGridView(view As GridView) + AddHandler view.MouseDown, AddressOf View_MouseDown + AddHandler view.MouseMove, AddressOf View_MouseMove + AddHandler view.GridControl.DragOver, AddressOf GridControl_DragOver + End Sub + + Private Sub View_MouseDown(sender As Object, e As MouseEventArgs) + Dim view As GridView = sender + downHitInfo = Nothing + Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y)) + + If Control.ModifierKeys <> Keys.None Then + Return + End If + + If e.Button = MouseButtons.Left And hitInfo.RowHandle >= 0 Then + downHitInfo = hitInfo + End If + End Sub + + Private Sub View_MouseMove(sender As Object, e As MouseEventArgs) + Try + Dim view As GridView = sender + Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y)) + + If e.Button = MouseButtons.Left And Not IsNothing(downHitInfo) Then + Dim dragSize As Size = SystemInformation.DragSize + Dim dragRect As New Rectangle(New Point(downHitInfo.HitPoint.X - dragSize.Width / 2, downHitInfo.HitPoint.Y - dragSize.Height / 2), dragSize) + + ' DragRect ist ein kleines Rechteck, dessen Mitte der Punkt ist, wo die Maus geklickt wurde. + ' Es soll verhindern, dass durch schnelles Klicken unbeabsichtigt Drag'n'Drop Operationen initiiert werden + ' Siehe: https://msdn.microsoft.com/en-us/library/system.windows.forms.systeminformation.dragsize(v=vs.110).aspx + If Not dragRect.Contains(New Point(e.X, e.Y)) Then + ' dragDropData enhält eine einzelne Row oder den kompletten View, + ' jenachdem, wie die Drag'n'Drop Operation gestartet wurde. + Dim dragDropData As String + + ' Wenn keine Zeile markiert ist + If downHitInfo.RowHandle < 0 Then + Exit Sub + End If + + ' Wenn zwar eine Zeile markiert ist, aber keine über die Checkbox angehakt wurde, + ' wird die markierte Zeile übergeben. + ' Wenn 1 oder n Zeilen über die Checkbox angehakt wurde, werden diese übergeben + Dim row As DataRow = view.GetDataRow(downHitInfo.RowHandle) + Dim source As String = view.GridControl.Name + + If Not IsNothing(row) Then + Try + Dim oKey As String + + Select Case SelectedResultType + Case ResultType.RowHandle + oKey = downHitInfo.RowHandle + Case Else + oKey = row.Item("GUID") + End Select + + dragDropData = $"{oKey}|{source}" + + view.GridControl.DoDragDrop(dragDropData, DragDropEffects.Move) + downHitInfo = Nothing + + DevExpress.Utils.DXMouseEventArgs.GetMouseArgs(e).Handled = True + Catch ex As Exception + Logger.Error(ex) + End Try + End If + End If + End If + Catch ex As Exception + Logger.Error(ex) + MsgBox(ex.Message, MsgBoxStyle.Critical, "View_MouseMove") + End Try + End Sub + + Private Sub GridControl_DragOver(sender As Object, e As DragEventArgs) + If e.Data.GetDataPresent(DataFormats.Text) Then + Dim data As String = e.Data.GetData(DataFormats.Text) + Dim source = data.Split("|")(1) + + Dim grid As GridControl = sender + + If grid.Name <> source Then + e.Effect = DragDropEffects.Move + End If + Else + e.Effect = DragDropEffects.None + End If + End Sub +End Class diff --git a/GUIs.ZooFlow/ClassInit.vb b/GUIs.ZooFlow/ClassInit.vb new file mode 100644 index 0000000..1a86254 --- /dev/null +++ b/GUIs.ZooFlow/ClassInit.vb @@ -0,0 +1,475 @@ +Imports System.ComponentModel +Imports System.Threading +Imports System.Globalization +Imports DevExpress.XtraSplashScreen +Imports DigitalData.Modules.Database +Imports DigitalData.Modules.Language.Utils +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.EDMI.API +Imports DigitalData.GUIs.ZooFlow.ClassConstants +Imports DigitalData.GUIs.ZooFlow.ClassInitLoader +Imports DigitalData.Controls.SQLConfig +Imports System.Data.SqlClient +Imports DigitalData.Modules +Imports DevExpress.LookAndFeel +Imports DigitalData.Modules.Language +Imports DigitalData.GUIs.Common + +Public Class ClassInit + Inherits Base.BaseClass + + Private ReadOnly _MainForm As frmFlowForm + Private ReadOnly _Database As DatabaseWithFallback + Private ReadOnly _FormHelper As FormHelper + Private _Loader As ClassInitLoader + + Public Event Completed As EventHandler + + Public Sub New(LogConfig As LogConfig, ParentForm As frmFlowForm) + MyBase.New(LogConfig) + _MainForm = ParentForm + _FormHelper = New FormHelper(LogConfig, ParentForm) + End Sub + + Public Sub InitializeApplication() + _Loader = New ClassInitLoader(LogConfig) + + ' === Init Schritte definieren + _Loader.AddStep("Initializing Base", AddressOf InitializeBase, True) + _Loader.AddStep("Initializing EDMI Service", AddressOf InitializeService, True) + _Loader.AddStep("Initializing Database", AddressOf InitializeDatabaseWithFallback, True) + _Loader.AddStep("Initializing User", AddressOf InitializeUser, True) + _Loader.AddStep("Initializing BasicCatalogues", AddressOf InitializeBasicsfromDB, True) + _Loader.AddStep("Initializing Language", AddressOf InitializeLanguage, False) + _Loader.AddStep("Initializing 3rd-party licenses", AddressOf Initialize3rdParty, False) + _Loader.AddStep("Initializing Basic Config", AddressOf InitBasicConfig, False) + ' === Init Schritte definieren + + AddHandler _Loader.ProgressChanged, AddressOf ProgressChanged + AddHandler _Loader.InitCompleted, AddressOf InitCompleted + + _Loader.Run() + End Sub + + Private Sub InitCompleted(sender As Object, e As RunWorkerCompletedEventArgs) + If Not IsNothing(e.Error) Then + Dim oMessageStart = $"Beim Initialisieren des Programms ist folgender Fehler aufgetreten:" + Dim oMessageEnd = "Das Program wird nun beendet" + Dim oMessage1 = $"{vbNewLine}{vbNewLine}{e.Error.Message}" + Dim oMessage2 = "" + + If TypeOf e.Error Is InitException Then + Dim oException As InitException = DirectCast(e.Error, InitException) + oMessage2 = $"{vbNewLine}{vbNewLine}Details: {oException?.InnerException?.Message}" + End If + + Dim oMessage = $"{oMessageStart}{oMessage1}{oMessage2}{oMessageEnd}" + + MsgBox(oMessage, MsgBoxStyle.Critical, _MainForm.Text) + Application.ExitThread() + Else + ' Copy back state from MyApplication Helper to My.Application + Dim oMyApplication As My.MyApplication = DirectCast(e.Result, My.MyApplication) + + My.Application.Settings = oMyApplication.Settings + My.Application.User = oMyApplication.User + My.Application.Modules = oMyApplication.Modules + My.Application.ModulesActive = oMyApplication.ModulesActive + My.Application.ClipboardWatcher = oMyApplication.ClipboardWatcher + + RaiseEvent Completed(sender, Nothing) + End If + End Sub + + +#Region "=== Init Steps ===" + Private Sub InitializeBase(MyApplication As My.MyApplication) + End Sub + + Private Sub InitializeDatabase(MyApplication As My.MyApplication) + 'Dim oConnectionString = MSSQLServer.DecryptConnectionString(My.SystemConfig.ConnectionString) + 'My.DatabaseECM = New MSSQLServer(My.LogConfig, oConnectionString) + + 'If My.DatabaseECM.DBInitialized = False Then + ' Logger.Warn("Could not initialize DD_ECM-Database!") + ' Throw New InitException("Could not initialize ECM-Database!") + + 'Else + ' Dim oSQl = "SELECT * FROM TBDD_CONNECTION WHERE BEZEICHNUNG = 'IDB' AND AKTIV = 1" + ' Dim oDatatable As DataTable = My.DatabaseECM.GetDatatable(oSQl) + + ' If IsNothing(oDatatable) OrElse oDatatable.Rows.Count = 0 Then + + ' Dim oForm As New frmSQLConfig(My.LogConfig) With {.FormTitle = "IDB Datenbank"} + ' Dim oResult = oForm.ShowDialog() + + ' If oResult = DialogResult.OK Then + ' Dim oConnectionStringSaved = SaveConnectionString(oForm.ConnectionString) + + ' If oConnectionStringSaved = False Then + ' Throw New InitException("Fehler beim Laden der IDB Verbindungsdaten!") + ' End If + + ' oDatatable = My.Database.GetDatatableECM(oSQl) + ' End If + + ' End If + + ' If oDatatable.Rows.Count > 1 Then + ' Logger.Warn("Multiple IDB connection entries in TBDD_CONNECTION found!") + ' Throw New InitException("Fehler beim Laden der IDB Verbindungsdaten!") + ' End If + + ' Dim oDataRow As DataRow = oDatatable.Rows.Item(0) + ' Dim oConString = My.DatabaseECM.GetConnectionString( + ' oDataRow.Item("SERVER").ToString, + ' oDataRow.Item("DATENBANK").ToString, + ' oDataRow.Item("USERNAME").ToString, + ' oDataRow.Item("PASSWORD").ToString + ' ) + + ' Dim oDecryptedConnectionString = MSSQLServer.DecryptConnectionString(oConString) + ' My.DatabaseIDB = New MSSQLServer(My.LogConfig, oDecryptedConnectionString) + 'End If + + 'If My.DatabaseIDB.DBInitialized = False Then + ' Logger.Warn("Could not initialize IDB-Database!") + ' Throw New InitException("Could not initialize IDB-Database!") + 'End If + End Sub + Private Sub InitializeService(MyApplication As My.MyApplication) + Try + If My.SystemConfig.AppServerConfig = String.Empty Then + Dim oForm As New frmServiceConfig() + Dim oResult = oForm.ShowDialog() + + If oResult <> DialogResult.OK Then + Throw New InitException("Could not initialize IDB-Service!") + End If + + My.SystemConfig.AppServerConfig = oForm.ServiceAddress + My.SystemConfigManager.Save() + End If + + ' These Properties need to be set directly on + My.Application.Service.Address = My.SystemConfig.AppServerConfig + MyApplication.Service.Address = My.SystemConfig.AppServerConfig + + Dim oClient = New Client(LogConfig, My.SystemConfig.AppServerConfig) + MyApplication.Service.Client = oClient + My.Application.Service.Client = oClient + + If oClient Is Nothing Then + Throw New InitException("Could not initialize IDB-Service!") + End If + + Dim oConnectionResult = My.Application.Service.Client.Connect() + If oConnectionResult = False Then + Throw New InitException("Could not connect to Service!") + End If + Catch ex As Exception + Logger.Error(ex) + Throw New InitException("Error in InitializeService", ex) + End Try + End Sub + Private Sub InitializeDatabaseWithFallback(MyApplication As My.MyApplication) + Try + Logger.Debug("Loading client config..") + Dim oClientConfig = My.Application.Service.Client.ClientConfig + + Logger.Debug("Establishing ECM connection..") + Dim oECMConnectionString = oClientConfig.ConnectionStringECM + My.DatabaseECM = New MSSQLServer(My.LogConfig, oECMConnectionString) + + Logger.Debug("Establishing IDB connection..") + Dim oIDBConnectionString = oClientConfig.ConnectionStringIDB + My.DatabaseIDB = New MSSQLServer(My.LogConfig, oIDBConnectionString) + + Logger.Debug("Establishing Database connection with fallback..") + My.Database = New DatabaseWithFallback(LogConfig, My.Application.Service.Client, My.DatabaseECM, My.DatabaseIDB) + Catch ex As Exception + Logger.Error(ex) + Throw New InitException("Error in InitializeDatabaseWithFallback!", ex) + End Try + End Sub + Private Sub InitializeUser(MyApplication As My.MyApplication) + Try + Dim oSql As String = My.Queries.Common.FNDD_MODULE_INIT(Environment.UserName) + Dim oDatatable As DataTable = My.Database.GetDatatableECM(oSql) + + If oDatatable Is Nothing Then + Throw New InitException("Benutzer konnte nicht geladen werden!") + End If + + If oDatatable.Rows.Count <= 1 Then + Throw New InitException("Benutzer konnte nicht gefunden werden!") + End If + + For Each oRow As DataRow In oDatatable.Rows + Dim oType As String = oRow.ItemEx("TYPE", "") + + Select Case oType + Case MODULE_USER + HandleUserInfo(MyApplication, oRow) + + Case MODULE_CLIPBOARDWATCHER + HandleModuleInfo(MyApplication, oType, oRow) + + Case MODULE_GLOBAL_INDEXER + HandleModuleInfo(MyApplication, oType, oRow) + + Case MODULE_ZOOFLOW + HandleModuleInfo(MyApplication, oType, oRow) + Case MODULE_PROCESS_MANAGER + HandleModuleInfo(MyApplication, oType, oRow) + End Select + Next + + Catch ex As InitException + Logger.Error(ex) + Throw ex + + Catch ex As Exception + Logger.Error(ex) + Throw New InitException($"Unexpected error while initializing user!", ex) + End Try + End Sub + Private Sub InitializeBasicsfromDB(MyApplication As My.MyApplication) + Try + Dim oSql As String = My.Queries.Common.IDB_CATALOG() + Dim oDatatable As DataTable = My.Database.GetDatatableIDB(oSql) + For Each oRow As DataRow In oDatatable.Rows + Dim oCAT_TITLE As String = oRow.Item("CAT_TITLE") + Logger.Debug($"IDB_CATALOG_STRING: {oRow.Item("CAT_STRING")}") + + Next + + Catch ex As InitException + Logger.Error(ex) + Throw ex + + Catch ex As Exception + Logger.Error(ex) + Throw New InitException($"Unexpected error while initializing basics from DB!", ex) + End Try + End Sub + Private Sub InitializeLanguage(MyApplication As My.MyApplication) + Dim oLanguage = MyApplication.User.Language + Dim oDateFormat = MyApplication.User.DateFormat + Dim oCultureInfo As New CultureInfo(oLanguage) + oCultureInfo.DateTimeFormat.ShortDatePattern = oDateFormat + Thread.CurrentThread.CurrentCulture = oCultureInfo + Thread.CurrentThread.CurrentUICulture = oCultureInfo + CultureInfo.DefaultThreadCurrentCulture = oCultureInfo + CultureInfo.DefaultThreadCurrentUICulture = oCultureInfo + End Sub + Private Sub Initialize3rdParty(MyApplication As My.MyApplication) + Try + Dim oSql = "Select LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'" + Dim oDatatable As DataTable = My.Database.GetDatatable("TBDD_3RD_PARTY_MODULES", oSql, EDMI.API.Constants.DatabaseType.ECM, "NAME = 'GDPICTURE'") + + If oDatatable.Rows.Count = 0 Then + Throw New InitException("Konfiguration 3RD_PARTY_MODULES konnte nicht geladen werden!") + End If + + Dim oRow As DataRow = oDatatable.Rows.Item(0) + + MyApplication.Settings.GdPictureKey = NotNull(oRow.Item("LICENSE"), String.Empty) + Catch ex As Exception + Logger.Error(ex) + Throw New InitException("Error Initialize3rdParty!", ex) + End Try + End Sub + Private Sub InitBasicConfig(MyApplication As My.MyApplication) + Try + Dim oSql As String + + oSql = "Select * FROM TBIDB_COMMON_SQL WHERE ACTIVE = 1" + My.Tables.DTIDB_COMMON_SQL = My.Database.GetDatatable("TBIDB_COMMON_SQL", oSql, EDMI.API.Constants.DatabaseType.IDB) + + For Each oRow As DataRow In My.Tables.DTIDB_COMMON_SQL.Rows + Dim oTITLE = oRow.Item("TITLE").ToString + Dim oBaseSQL = oRow.Item("SQL_COMMAND").ToString + oBaseSQL = oBaseSQL.Replace("@USER_ID", My.Application.User.UserId) + oBaseSQL = oBaseSQL.Replace("@USERID", My.Application.User.UserId) + oBaseSQL = oBaseSQL.Replace("@USRID", My.Application.User.UserId) + oBaseSQL = oBaseSQL.Replace("@USRNAME", My.Application.User.UserName) + oBaseSQL = oBaseSQL.Replace("@UserName", My.Application.User.UserName) + oBaseSQL = oBaseSQL.Replace("@LANG_CODE_SHORT", Right(My.Application.User.Language, 2)) + oBaseSQL = oBaseSQL.Replace("@LANG_CODE", My.Application.User.Language) + oBaseSQL = oBaseSQL.Replace("{#INT#USERNAME}", My.Application.User.UserName) + + If oTITLE = SQLCMD_FLOW_SEARCH_BASE Then + SQL_FLOW_SEARCH_BASE = oBaseSQL + ElseIf oTITLE = SQLCMD_AHW_LAYOUT_SELECT Then + SQL_AHW_LAYOUT_SELECT = oBaseSQL + ElseIf oTITLE = SQLCMD_AHW_USR_SELECT Then + SQL_AHW_USR_SELECT = oBaseSQL + ElseIf oTITLE = SQLCMD_RECENT_FILES_USER Then + SQL_RECENT_FILES_USER = oBaseSQL + End If + Next + + oSql = $"SELECT * FROM TBIDB_CATALOG_USER WHERE USR_ID = {My.Application.User.UserId}" + My.Tables.DTIDB_CATALOG_USER = My.Database.GetDatatable("TBIDB_CATALOG_USER", oSql, EDMI.API.Constants.DatabaseType.IDB, $"USR_ID = {My.Application.User.UserId}") + + For Each oRow As DataRow In My.Tables.DTIDB_CATALOG_USER.Rows + If oRow.Item("CAT_TITLE") = ClassConstants.USER_CATALOG_APPLICATION_THEME Then + Dim oThemeName As String = oRow.ItemEx("CAT_STRING", "Digital Data") + + If oThemeName.Contains("|") Then + Dim oSkin = oThemeName.Split("|").ElementAt(0) + Dim oPalette = oThemeName.Split("|").ElementAt(1) + + MyApplication.Skin = oSkin + MyApplication.Palette = oPalette + Else + MyApplication.Skin = oThemeName + MyApplication.Palette = "" + End If + ElseIf oRow.Item("CAT_TITLE") = ClassConstants.USER_CATALOG_GLOBIX_DROPAREA Then + My.Application.GlobixDropAreaStyle = oRow.Item("CAT_STRING") + End If + Next + + oSql = $"Select * From VWIDB_BE_ATTRIBUTE Where LANG_CODE = '{MyApplication.User.Language}'" + My.Tables.DTIDB_ATTRIBUTE = My.Database.GetDatatable("VWIDB_BE_ATTRIBUTE", oSql, EDMI.API.Constants.DatabaseType.IDB, $"LANG_CODE = '{MyApplication.User.Language}'") + + + If SQL_FLOW_SEARCH_BASE = "" Then + Logger.Warn($"ATTENTION: NO DocResultBaseSearch - Check if entry {SQLCMD_FLOW_SEARCH_BASE} exists in TBIDB_COMMON_SQL") + End If + + Catch ex As Exception + Logger.Error(ex) + Throw New InitException("Error in InitBasicData", ex) + End Try + End Sub + +#End Region + + Private Function SetupDatabase() As Boolean + 'If My.SystemConfig.ConnectionString = String.Empty Then + ' Dim oConnectionString = My.SystemConfig.ConnectionString + ' Dim oForm As New frmSQLConfig(My.LogConfig) With { + ' .ConnectionString = oConnectionString, + ' .FormTitle = "ECM Datenbank" + ' } + ' Dim oResult = oForm.ShowDialog() + + ' If oResult = DialogResult.OK Then + ' My.SystemConfig.ConnectionString = oForm.ConnectionString + ' My.SystemConfigManager.Save() + + ' Return True + ' Else + ' Return False + ' End If + 'End If + + Return True + End Function + + Private Function SaveConnectionString(pConnectionString As String) As Boolean + Try + Dim oBuilder As New SqlConnectionStringBuilder(pConnectionString) + Dim oSql = $" + INSERT INTO TBDD_CONNECTION + (BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER) + VALUES ('IDB', 'MS-SQLServer', '{oBuilder.DataSource}', '{oBuilder.InitialCatalog}', '{oBuilder.UserID}', '{oBuilder.Password}', 'Created by Zooflow', 1, '{Environment.UserName}')" + + Return My.Database.ExecuteNonQueryECM(oSql) + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + + Private Sub ProgressChanged(sender As Object, Progress As InitProgress) + SplashScreenManager.Default.SendCommand(frmSplash.SplashScreenCommand.SetProgress, Progress.CurrentPercent) + SplashScreenManager.Default.SendCommand(frmSplash.SplashScreenCommand.SetActionName, Progress.CurrentStep.Name) + End Sub + + Private Sub HandleUserInfo(MyApplication As My.MyApplication, Row As DataRow) + Dim oValue As Object = Row.Item("VALUE") + Dim oName As String = Row.Item("NAME").ToString + + Select Case oName + Case "USER_ID" + MyApplication.User.UserId = CInt(oValue) + Case "USER_PRENAME" + MyApplication.User.GivenName = NotNull(oValue.ToString, String.Empty) + Case "USER_SURNAME" + MyApplication.User.Surname = NotNull(oValue.ToString, String.Empty) + Case "USER_SHORTNAME" + MyApplication.User.ShortName = NotNull(oValue.ToString, String.Empty) + Case "USER_EMAIL" + MyApplication.User.Email = NotNull(oValue.ToString, String.Empty) + Case "USER_DATE_FORMAT" + MyApplication.User.DateFormat = NotNull(oValue.ToString, "dd.MM.yyyy") + Case "USER_LANGUAGE" + MyApplication.User.Language = NotNull(oValue.ToString, "de-DE") + Case "USER_LANGUAGEID" + MyApplication.User.LanguageId = CShort(oValue) + End Select + End Sub + Private Sub HandleModuleInfo(MyApplication As My.MyApplication, ModuleName As String, Row As DataRow) + Dim oValue As Object = Row.Item("VALUE") + Dim oName As String = Row.Item("NAME").ToString + + If Not MyApplication.Modules.ContainsKey(ModuleName) Then + MyApplication.Modules.Item(ModuleName) = New DigitalData.Modules.ZooFlow.State.ModuleState() + End If + + Select Case oName + Case "MODULE_ACCESS" + If CBool(oValue) Then + SyncLock MyApplication.ModulesActive + MyApplication.ModulesActive.Add(ModuleName) + End SyncLock + End If + MyApplication.Modules.Item(ModuleName).HasAccess = CBool(oValue) + + Case "IS_ADMIN" + MyApplication.Modules.Item(ModuleName).IsAdmin = CBool(oValue) + + Case "USER_COUNT_LOGGED_IN" + MyApplication.Modules.Item(ModuleName).LoggedIn = CInt(oValue) + 1 + + Case "RESULT" + Dim oLines = oValue.ToString.Split("|"c) + Logger.Debug("Access Result for Module {0}", ModuleName) + For Each oLine In oLines + Logger.Debug(oLine.Trim) + Next + Case "WORKING_MODE" + Dim oLines = oValue.ToString.Split("|"c) + Logger.Debug("WORKING_MODEs for Module {0}", ModuleName) + For Each oLine In oLines + Logger.Debug(oLine.Trim) + If oLine = "NO_BASICCONF" Then + MyApplication.User.HideBasicConfig = True + + ElseIf oLine.StartsWith("SEARCH_STRING_ATTRID") Then + Try + Dim oResult = oLine.Replace("SEARCH_STRING_ATTRID=", "") + MyApplication.Search.SelectInStringAttributeIds = oResult + Catch ex As Exception + MyApplication.Search.SelectInStringAttributeIds = "" + End Try + ElseIf oLine.StartsWith("SEARCH_INT_ATTRID") Then + Try + Dim oResult = oLine.Replace("SEARCH_INT_ATTRID=", "") + + MyApplication.Search.SelectInIntegerAttributeIds = oResult + Catch ex As Exception + MyApplication.Search.SelectInIntegerAttributeIds = "" + End Try + Else + Logger.Info($"Wrong WorkingMode: {oLine}") + End If + Next + + End Select + End Sub +End Class diff --git a/GUIs.ZooFlow/ClassInitLoader.vb b/GUIs.ZooFlow/ClassInitLoader.vb new file mode 100644 index 0000000..99386c6 --- /dev/null +++ b/GUIs.ZooFlow/ClassInitLoader.vb @@ -0,0 +1,117 @@ +Imports System.ComponentModel +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Base + +Public Class ClassInitLoader + Inherits BaseClass + + Private _Worker As BackgroundWorker + Private _CurrentStep As InitStep + + Public Steps As New List(Of InitStep) + Public Event ProgressChanged As EventHandler(Of InitProgress) + Public Event InitCompleted As EventHandler(Of RunWorkerCompletedEventArgs) + + Public Sub New(LogConfig As LogConfig) + MyBase.New(LogConfig) + End Sub + + Public Sub AddStep(Name As String, Action As Action(Of Object), Optional Fatal As Boolean = False) + Steps.Add(New InitStep() With { + .Name = Name, + .Action = Action, + .Fatal = Fatal + }) + End Sub + + Public Function Run() As Boolean + _Worker = New BackgroundWorker With { + .WorkerReportsProgress = True + } + + AddHandler _Worker.DoWork, AddressOf DoWork + AddHandler _Worker.ProgressChanged, Sub(sender As Object, e As ProgressChangedEventArgs) + Dim oProgress As New InitProgress() With { + .CurrentStep = _CurrentStep, + .CurrentPercent = e.ProgressPercentage + } + RaiseEvent ProgressChanged(sender, oProgress) + End Sub + AddHandler _Worker.RunWorkerCompleted, Sub(sender As Object, e As RunWorkerCompletedEventArgs) + RaiseEvent InitCompleted(sender, e) + End Sub + + _Worker.RunWorkerAsync(My.Application) + + Return True + End Function + + Private Sub DoWork(sender As Object, e As DoWorkEventArgs) + Dim oMyApplication As My.MyApplication = DirectCast(e.Argument, My.MyApplication) + Dim oStepCounter = 0 + + For Each oStep In Steps + _CurrentStep = oStep + + Try + oStep.Action.Invoke(oMyApplication) + + My.Application.Settings = oMyApplication.Settings + My.Application.User = oMyApplication.User + My.Application.Modules = oMyApplication.Modules + My.Application.ModulesActive = oMyApplication.ModulesActive + My.Application.ClipboardWatcher = oMyApplication.ClipboardWatcher + + Catch ex As Exception + Logger.Error(ex) + Logger.Warn("Init Step '{0}' failed!", oStep.Name) + + If oStep.Fatal Then + Logger.Warn("Fatal error in '{0}'. Init will be aborted!", oStep.Name) + Throw ex + End If + End Try + + oStepCounter += 1 + + Dim oPercentComplete As Integer = Math.Truncate(oStepCounter / Steps.Count * 100) + _Worker.ReportProgress(oPercentComplete) + + Threading.Thread.Sleep(100) + Next + + e.Result = oMyApplication + End Sub + + Public Class InitProgress + Public CurrentStep As InitStep + Public CurrentPercent As Integer + End Class + + Public Class InitStep + ''' + ''' Human Readable Name of init step + ''' + Public Name As String + ''' + ''' The function to execute + ''' + Public Action As Action(Of Object) + ''' + ''' Should init be aborted if this step fails? + ''' + Public Fatal As Boolean + End Class + + Public Class InitException + Inherits ApplicationException + + Public Sub New(Message As String, InnerException As Exception) + MyBase.New(Message, InnerException) + End Sub + + Public Sub New(Message As String) + MyBase.New(Message) + End Sub + End Class +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/ClassModules.vb b/GUIs.ZooFlow/ClassModules.vb new file mode 100644 index 0000000..48aec36 --- /dev/null +++ b/GUIs.ZooFlow/ClassModules.vb @@ -0,0 +1,116 @@ +Imports DigitalData.Modules.Base +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Base.ECM +Imports Microsoft.Win32 + +Public Class ClassModules + Inherits BaseClass + + Private Const PM_REGNODE = "Process Manager" + Private Const PM_EXENAME = "DD_ProcessManager.exe" + + Private Const CW_REGNODE = "Clipboard Watcher" + Private Const CW_EXENAME = "DD_Clipboard_Watcher.exe" + + Private Const GLOBIX_REGNODE = "Global Indexer" + Private Const GLOBIX_EXENAME = "Global_Indexer.exe" + + Private Const REGNODE_MANUFACTURER = "Digital Data" + Private Const REGPATH_BASE = "SOFTWARE\\WOW6432Node" + + Private Config As SystemConfig + + Public Sub New(pLogConfig As LogConfig, pConfig As SystemConfig) + MyBase.New(pLogConfig) + Config = pConfig + End Sub + + Public Function GetProductProgramPath(pProduct As Product) As String + Dim oApplicationName As String = Nothing + Dim oPath = GetProductPath(pProduct) + + If oPath Is Nothing Then + Return Nothing + End If + + Select Case pProduct + Case Product.GlobalIndexer + oApplicationName = GLOBIX_EXENAME + + Case Product.ClipboardWatcher + oApplicationName = CW_EXENAME + + Case Product.ProcessManager + oApplicationName = PM_EXENAME + + End Select + + If oApplicationName Is Nothing Then + Return Nothing + End If + + Return IO.Path.Combine(oPath, oApplicationName) + End Function + + Public Function GetProductPath(pProduct As Product) As String + Select Case pProduct + Case Product.ProcessManager + Return GetProductPathFor(pProduct, PM_REGNODE) + + Case Product.GlobalIndexer + Return GetProductPathFor(pProduct, GLOBIX_REGNODE) + + Case Product.ClipboardWatcher + Return GetProductPathFor(pProduct, CW_REGNODE) + + Case Else + Return Nothing + End Select + End Function + + Private Function GetProductPathFor(pProduct As Product, pSubKey As String) As String + Dim oPathFromConfig = GetProductPathFromConfig(pProduct) + + If oPathFromConfig IsNot Nothing Then + Return oPathFromConfig + Else + Return GetProductPathFromRegistryFor(pSubKey) + End If + End Function + + Private Function GetProductPathFromConfig(pProduct As Product) + Select Case pProduct + Case Product.ProcessManager + Return Config.ProductPaths.ProcessManagerPath + + Case Product.GlobalIndexer + Return Config.ProductPaths.GlobalIndexerPath + + Case Product.ClipboardWatcher + Return Config.ProductPaths.ClipboardWatcherPath + + Case Else + Return Nothing + End Select + End Function + + Private Function GetProductPathFromRegistryFor(pSubKey As String) As String + Try + Dim oPathParts As New List(Of String) From {REGPATH_BASE, REGNODE_MANUFACTURER, pSubKey} + Dim oRegistryPath = String.Join("\\", oPathParts) + Dim oRoot = Registry.LocalMachine + Dim oProduct = oRoot.OpenSubKey(oRegistryPath, RegistryKeyPermissionCheck.ReadSubTree) + + If oProduct Is Nothing Then + Return Nothing + End If + + Return oProduct.GetValue("Path") + Catch ex As Exception + Logger.Warn("Could not read [Process Manager] path from registry!") + Logger.Error(ex) + Return Nothing + End Try + End Function + +End Class diff --git a/GUIs.ZooFlow/ClassWindowLayout.vb b/GUIs.ZooFlow/ClassWindowLayout.vb new file mode 100644 index 0000000..6012d44 --- /dev/null +++ b/GUIs.ZooFlow/ClassWindowLayout.vb @@ -0,0 +1,208 @@ +Imports System.Xml +Imports System.IO +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Base +Public Class ClassWindowLayout + Inherits BaseClass + + Private _FileName As String + Private _Reader As XmlReader + Private _Settings As XmlWriterSettings + + Public Sub New(pLogConfig As LogConfig) + MyBase.New(pLogConfig) + + _Settings = New XmlWriterSettings With { + .Encoding = Text.Encoding.UTF8, + .Indent = True + } + End Sub + + Public Sub LoadFormLocationSize(ByRef pForm As Form, Optional pLoadSize As Boolean = True) + Try + Dim oPath, oAlternatePath As String + + oPath = Path.Combine(Application.UserAppDataPath(), pForm.Name & "-Layout.xml") + oAlternatePath = oPath.Replace("frm", "frmfrm") + + If File.Exists(oAlternatePath) Then + Dim oNewFilename = Path.GetFileName(oPath) + + Try + My.Computer.FileSystem.RenameFile(oAlternatePath, oNewFilename) + Catch ex As Exception + Logger.Error(ex) + My.Computer.FileSystem.DeleteFile(oAlternatePath) + + End Try + + oPath = Path.Combine(Application.UserAppDataPath(), pForm.Name & "-Layout.xml") + End If + _FileName = oPath + + Dim settings As List(Of ClassSetting) + settings = Load() + + If settings.Count = 0 Then + settings.Add(New ClassSetting("PositionX", pForm.Location.X)) + settings.Add(New ClassSetting("PositionY", pForm.Location.Y)) + settings.Add(New ClassSetting("Width", pForm.Size.Width)) + settings.Add(New ClassSetting("Height", pForm.Size.Height)) + Save(settings) + End If + Dim x, y, w, h As Integer + For Each s As ClassSetting In settings + 'MsgBox(s._name & vbNewLine & s._value) + Select Case s._name + Case "PositionX" + x = Integer.Parse(s._value) + Case "PositionY" + y = Integer.Parse(s._value) + Case "Width" + w = Integer.Parse(s._value) + Case "Height" + h = Integer.Parse(s._value) + End Select + Next + Dim screenWidth As Integer = Screen.PrimaryScreen.Bounds.Width + Dim screenHeight As Integer = Screen.PrimaryScreen.Bounds.Height + If x = 5000 Then + pForm.WindowState = FormWindowState.Maximized + Else + + Dim rect As New Rectangle(x, y, 0, 0) + If IsVisibleOnAnyScreen(rect) Then + If x >= 0 And y >= 0 Then + pForm.Location = New Point(x, y) + End If + If w > 0 And h > 0 And pLoadSize = True Then + pForm.Size = New Size(w, h) + End If + End If + ' form.Size = New Size(310, 190) + + + End If + Catch notFoundEx As System.IO.FileNotFoundException + + Catch ex As Exception + MsgBox("Error while loading Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Function IsVisibleOnAnyScreen(rect As Rectangle) As Boolean + Try + Dim result As Boolean = False + For Each Screen As Screen In Screen.AllScreens + If Screen.WorkingArea.IntersectsWith(rect) Then + result = True + End If + Next + If result = False Then + Logger.Info(">> Saved layout is not fitting to Resolution. Default is loaded.") + End If + Return result + Catch ex As Exception + Logger.Info("Error in IsVisibleOnAnyScreen: " & ex.Message) + Logger.Error(ex.Message) + Return False + End Try + End Function + + + Public Sub SaveFormLocationSize(ByRef form As Form) + Try + Dim _path As String + _path = Path.Combine(Application.UserAppDataPath(), form.Name & "-Layout.xml") + + Dim settings As List(Of ClassSetting) = New List(Of ClassSetting) + Dim width As Integer + Dim height As Integer + Dim x As Integer + Dim y As Integer + If form.WindowState = FormWindowState.Maximized Then + width = 5000 + height = 5000 + x = 5000 + y = 5000 + Else + width = form.Size.Width + height = form.Size.Height + x = form.Location.X + y = form.Location.Y + End If + + settings.Add(New ClassSetting("PositionX", x)) + settings.Add(New ClassSetting("PositionY", y)) + settings.Add(New ClassSetting("Width", width)) + settings.Add(New ClassSetting("Height", height)) + + Save(settings) + Catch notFoundEx As System.IO.FileNotFoundException + + Catch ex As Exception + MsgBox("Error while saving Window Positions:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + + End Sub + + Public Sub Save(settings As System.Collections.Generic.List(Of ClassSetting)) + Try + Dim w = XmlWriter.Create(_FileName, _Settings) + + w.WriteStartDocument() + w.WriteStartElement("Settings") + + For Each setting As ClassSetting In settings + w.WriteStartElement("Setting") + w.WriteAttributeString("name", setting._name) + w.WriteAttributeString("value", setting._value.ToString()) + w.WriteEndElement() + Next + + w.WriteEndElement() + w.WriteEndDocument() + + w.Dispose() + w.Close() + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub + + Public Function Load() As List(Of ClassSetting) + Dim Result As List(Of ClassSetting) = New List(Of ClassSetting)() + + If Not File.Exists(_FileName) Then + Return Result + End If + + _Reader = XmlReader.Create(_FileName) + + While _Reader.Read() + If _Reader.IsStartElement() Then + If _Reader.Name = "Setting" Then + Dim name As String = _Reader("name") + Dim value As Integer = Integer.Parse(_Reader("value")) + Dim setting As ClassSetting = New ClassSetting(name, value) + Result.Add(setting) + End If + End If + End While + + _Reader.Dispose() + _Reader.Close() + + Return Result + End Function + + Public Class ClassSetting + Public _name As String + Public _value As Integer + + Public Sub New(name As String, value As Integer) + _name = name + _value = value + End Sub + End Class +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Config/SystemConfig.vb b/GUIs.ZooFlow/Config/SystemConfig.vb new file mode 100644 index 0000000..aed1cb3 --- /dev/null +++ b/GUIs.ZooFlow/Config/SystemConfig.vb @@ -0,0 +1,43 @@ +Imports System.Xml.Serialization +Imports DigitalData.Modules.Config.ConfigAttributes + +''' +''' --- User Config for EDMI --- +''' +''' All settings are simple properties that should have a default value where possible +''' +''' More complex properties (for example, ServiceConnection) are built from simple ones, +''' should be readonly and have an `XmlIgnore` Attribute to prevent them from being saved to the config file. +''' +''' They can make saving and loading complex properties more easy. +''' +''' The config is loaded with `ConfigManager` which is initialized in ApplicationEvents +''' to ensure that the config is loaded before any of the forms (that might need a config) +''' +''' The config object can be accessed in two ways: +''' +''' - My.ConfigManager.Config +''' - My.Config (which simply points to My.ConfigManager.Config) +''' +''' After changing a config value, My.ConfigManager.Save() must be called to persist the change in the config file +''' +Public Class SystemConfig + ' === Service Configuration === + + Public Property AppServerConfig As String = String.Empty + + ' === Logging Configuration + Public Property LogDebug As Boolean = False + + ' === User Configuration === + Public Property UserLanguage As String = "de-DE" + + ' === Product Configuration === + Public Property ProductPaths As New ClassProductPaths + + Public Class ClassProductPaths + Public ProcessManagerPath As String + Public GlobalIndexerPath As String + Public ClipboardWatcherPath As String + End Class +End Class diff --git a/GUIs.ZooFlow/Config/UIConfig.vb b/GUIs.ZooFlow/Config/UIConfig.vb new file mode 100644 index 0000000..7e59e34 --- /dev/null +++ b/GUIs.ZooFlow/Config/UIConfig.vb @@ -0,0 +1,28 @@ +Public Class UIConfig + Public Property FlowForm As New FlowFormConfig + Public Property SearchForm As New SearchFormConfig + Public Property Globix As New GlobixConfig + + Public Property SidebarScreen As String + Public Property SidebarOrientation As String + + Public Class FlowFormConfig + Public Property Location As New Point(0, 0) + End Class + Public Class SearchFormConfig + Public Property Location As New Point(0, 0) + Public Property Size As New Size(0, 0) + Public Property OpenSearchInSameWindow As Boolean = False + End Class + Public Class GlobixConfig + Public Property FilePreview As Boolean = True + Public Property SplitterDistanceViewer As Integer = 500 + Public Property ProfilePreselection As Boolean = False + Public Property ShowIndexResult As Boolean = True + Public Property DeleteOriginalFile As Boolean = False + Public Property TopMost As Boolean = True + Public Property FolderWatchScanStarted As Boolean = False + Public Property FolderWatchStarted As Boolean = False + Public Property ShowSuccessMessageBox As Boolean = True + End Class +End Class diff --git a/GUIs.ZooFlow/DBCW_Stammdaten.Designer.vb b/GUIs.ZooFlow/DBCW_Stammdaten.Designer.vb new file mode 100644 index 0000000..abc6699 --- /dev/null +++ b/GUIs.ZooFlow/DBCW_Stammdaten.Designer.vb @@ -0,0 +1,5461 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class DBCW_Stammdaten + Inherits Global.System.Data.DataSet + + Private tableTBCW_PROFILES As TBCW_PROFILESDataTable + + Private tableTBCW_PROF_DOC_SEARCH As TBCW_PROF_DOC_SEARCHDataTable + + Private tableTBCW_PROF_DATA_SEARCH As TBCW_PROF_DATA_SEARCHDataTable + + Private tableTBLOCAL_SEARCH_POSITION As TBLOCAL_SEARCH_POSITIONDataTable + + Private tableTBLOCAL_PROFILE_TYPE As TBLOCAL_PROFILE_TYPEDataTable + + Private relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF As Global.System.Data.DataRelation + + Private relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF As Global.System.Data.DataRelation + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("TBCW_PROFILES")) Is Nothing) Then + MyBase.Tables.Add(New TBCW_PROFILESDataTable(ds.Tables("TBCW_PROFILES"))) + End If + If (Not (ds.Tables("TBCW_PROF_DOC_SEARCH")) Is Nothing) Then + MyBase.Tables.Add(New TBCW_PROF_DOC_SEARCHDataTable(ds.Tables("TBCW_PROF_DOC_SEARCH"))) + End If + If (Not (ds.Tables("TBCW_PROF_DATA_SEARCH")) Is Nothing) Then + MyBase.Tables.Add(New TBCW_PROF_DATA_SEARCHDataTable(ds.Tables("TBCW_PROF_DATA_SEARCH"))) + End If + If (Not (ds.Tables("TBLOCAL_SEARCH_POSITION")) Is Nothing) Then + MyBase.Tables.Add(New TBLOCAL_SEARCH_POSITIONDataTable(ds.Tables("TBLOCAL_SEARCH_POSITION"))) + End If + If (Not (ds.Tables("TBLOCAL_PROFILE_TYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBLOCAL_PROFILE_TYPEDataTable(ds.Tables("TBLOCAL_PROFILE_TYPE"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property TBCW_PROFILES() As TBCW_PROFILESDataTable + Get + Return Me.tableTBCW_PROFILES + End Get + End Property + + _ + Public ReadOnly Property TBCW_PROF_DOC_SEARCH() As TBCW_PROF_DOC_SEARCHDataTable + Get + Return Me.tableTBCW_PROF_DOC_SEARCH + End Get + End Property + + _ + Public ReadOnly Property TBCW_PROF_DATA_SEARCH() As TBCW_PROF_DATA_SEARCHDataTable + Get + Return Me.tableTBCW_PROF_DATA_SEARCH + End Get + End Property + + _ + Public ReadOnly Property TBLOCAL_SEARCH_POSITION() As TBLOCAL_SEARCH_POSITIONDataTable + Get + Return Me.tableTBLOCAL_SEARCH_POSITION + End Get + End Property + + _ + Public ReadOnly Property TBLOCAL_PROFILE_TYPE() As TBLOCAL_PROFILE_TYPEDataTable + Get + Return Me.tableTBLOCAL_PROFILE_TYPE + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As DBCW_Stammdaten = CType(MyBase.Clone,DBCW_Stammdaten) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("TBCW_PROFILES")) Is Nothing) Then + MyBase.Tables.Add(New TBCW_PROFILESDataTable(ds.Tables("TBCW_PROFILES"))) + End If + If (Not (ds.Tables("TBCW_PROF_DOC_SEARCH")) Is Nothing) Then + MyBase.Tables.Add(New TBCW_PROF_DOC_SEARCHDataTable(ds.Tables("TBCW_PROF_DOC_SEARCH"))) + End If + If (Not (ds.Tables("TBCW_PROF_DATA_SEARCH")) Is Nothing) Then + MyBase.Tables.Add(New TBCW_PROF_DATA_SEARCHDataTable(ds.Tables("TBCW_PROF_DATA_SEARCH"))) + End If + If (Not (ds.Tables("TBLOCAL_SEARCH_POSITION")) Is Nothing) Then + MyBase.Tables.Add(New TBLOCAL_SEARCH_POSITIONDataTable(ds.Tables("TBLOCAL_SEARCH_POSITION"))) + End If + If (Not (ds.Tables("TBLOCAL_PROFILE_TYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBLOCAL_PROFILE_TYPEDataTable(ds.Tables("TBLOCAL_PROFILE_TYPE"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableTBCW_PROFILES = CType(MyBase.Tables("TBCW_PROFILES"),TBCW_PROFILESDataTable) + If (initTable = true) Then + If (Not (Me.tableTBCW_PROFILES) Is Nothing) Then + Me.tableTBCW_PROFILES.InitVars + End If + End If + Me.tableTBCW_PROF_DOC_SEARCH = CType(MyBase.Tables("TBCW_PROF_DOC_SEARCH"),TBCW_PROF_DOC_SEARCHDataTable) + If (initTable = true) Then + If (Not (Me.tableTBCW_PROF_DOC_SEARCH) Is Nothing) Then + Me.tableTBCW_PROF_DOC_SEARCH.InitVars + End If + End If + Me.tableTBCW_PROF_DATA_SEARCH = CType(MyBase.Tables("TBCW_PROF_DATA_SEARCH"),TBCW_PROF_DATA_SEARCHDataTable) + If (initTable = true) Then + If (Not (Me.tableTBCW_PROF_DATA_SEARCH) Is Nothing) Then + Me.tableTBCW_PROF_DATA_SEARCH.InitVars + End If + End If + Me.tableTBLOCAL_SEARCH_POSITION = CType(MyBase.Tables("TBLOCAL_SEARCH_POSITION"),TBLOCAL_SEARCH_POSITIONDataTable) + If (initTable = true) Then + If (Not (Me.tableTBLOCAL_SEARCH_POSITION) Is Nothing) Then + Me.tableTBLOCAL_SEARCH_POSITION.InitVars + End If + End If + Me.tableTBLOCAL_PROFILE_TYPE = CType(MyBase.Tables("TBLOCAL_PROFILE_TYPE"),TBLOCAL_PROFILE_TYPEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBLOCAL_PROFILE_TYPE) Is Nothing) Then + Me.tableTBLOCAL_PROFILE_TYPE.InitVars + End If + End If + Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF = Me.Relations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF") + Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF = Me.Relations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF") + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DBCW_Stammdaten" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DBCW_Stammdaten.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableTBCW_PROFILES = New TBCW_PROFILESDataTable() + MyBase.Tables.Add(Me.tableTBCW_PROFILES) + Me.tableTBCW_PROF_DOC_SEARCH = New TBCW_PROF_DOC_SEARCHDataTable() + MyBase.Tables.Add(Me.tableTBCW_PROF_DOC_SEARCH) + Me.tableTBCW_PROF_DATA_SEARCH = New TBCW_PROF_DATA_SEARCHDataTable() + MyBase.Tables.Add(Me.tableTBCW_PROF_DATA_SEARCH) + Me.tableTBLOCAL_SEARCH_POSITION = New TBLOCAL_SEARCH_POSITIONDataTable() + MyBase.Tables.Add(Me.tableTBLOCAL_SEARCH_POSITION) + Me.tableTBLOCAL_PROFILE_TYPE = New TBLOCAL_PROFILE_TYPEDataTable() + MyBase.Tables.Add(Me.tableTBLOCAL_PROFILE_TYPE) + Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF = New Global.System.Data.DataRelation("FK_TBCW_PROF_DOC_SEARCH_PROF_IF", New Global.System.Data.DataColumn() {Me.tableTBCW_PROFILES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF) + Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF = New Global.System.Data.DataRelation("FK_TBCW_PROF_DATA_SEARCH_PROF_IF", New Global.System.Data.DataColumn() {Me.tableTBCW_PROFILES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF) + End Sub + + _ + Private Function ShouldSerializeTBCW_PROFILES() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBCW_PROF_DOC_SEARCH() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBCW_PROF_DATA_SEARCH() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBLOCAL_SEARCH_POSITION() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBLOCAL_PROFILE_TYPE() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As DBCW_Stammdaten = New DBCW_Stammdaten() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub TBCW_PROFILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROFILESRowChangeEvent) + + _ + Public Delegate Sub TBCW_PROF_DOC_SEARCHRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_DOC_SEARCHRowChangeEvent) + + _ + Public Delegate Sub TBCW_PROF_DATA_SEARCHRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_DATA_SEARCHRowChangeEvent) + + _ + Public Delegate Sub TBLOCAL_SEARCH_POSITIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBLOCAL_SEARCH_POSITIONRowChangeEvent) + + _ + Public Delegate Sub TBLOCAL_PROFILE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBLOCAL_PROFILE_TYPERowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBCW_PROFILESDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_PROFILESRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnREGEX_EXPRESSION As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnPROFILE_TYPE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBCW_PROFILES" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property REGEX_EXPRESSIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREGEX_EXPRESSION + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property PROFILE_TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROFILE_TYPE + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROFILESRow + Get + Return CType(Me.Rows(index),TBCW_PROFILESRow) + End Get + End Property + + _ + Public Event TBCW_PROFILESRowChanging As TBCW_PROFILESRowChangeEventHandler + + _ + Public Event TBCW_PROFILESRowChanged As TBCW_PROFILESRowChangeEventHandler + + _ + Public Event TBCW_PROFILESRowDeleting As TBCW_PROFILESRowChangeEventHandler + + _ + Public Event TBCW_PROFILESRowDeleted As TBCW_PROFILESRowChangeEventHandler + + _ + Public Overloads Sub AddTBCW_PROFILESRow(ByVal row As TBCW_PROFILESRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBCW_PROFILESRow(ByVal NAME As String, ByVal COMMENT As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ACTIVE As Boolean, ByVal PROFILE_TYPE As Short) As TBCW_PROFILESRow + Dim rowTBCW_PROFILESRow As TBCW_PROFILESRow = CType(Me.NewRow,TBCW_PROFILESRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE} + rowTBCW_PROFILESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCW_PROFILESRow) + Return rowTBCW_PROFILESRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROFILESRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROFILESRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBCW_PROFILESDataTable = CType(MyBase.Clone,TBCW_PROFILESDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBCW_PROFILESDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnREGEX_EXPRESSION = MyBase.Columns("REGEX_EXPRESSION") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnPROFILE_TYPE = MyBase.Columns("PROFILE_TYPE") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnREGEX_EXPRESSION = New Global.System.Data.DataColumn("REGEX_EXPRESSION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnREGEX_EXPRESSION) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnPROFILE_TYPE = New Global.System.Data.DataColumn("PROFILE_TYPE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_TYPE) + 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.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 100 + Me.columnCOMMENT.MaxLength = 500 + Me.columnREGEX_EXPRESSION.AllowDBNull = False + Me.columnREGEX_EXPRESSION.MaxLength = 100 + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnACTIVE.AllowDBNull = False + Me.columnPROFILE_TYPE.AllowDBNull = False + End Sub + + + Public Function NewTBCW_PROFILESRow() As TBCW_PROFILESRow + Return CType(Me.NewRow, TBCW_PROFILESRow) + End Function + + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBCW_PROFILESRow(builder) + End Function + + + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBCW_PROFILESRow) + End Function + + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBCW_PROFILESRowChangedEvent) Is Nothing) Then + RaiseEvent TBCW_PROFILESRowChanged(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row, TBCW_PROFILESRow), e.Action)) + End If + End Sub + + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBCW_PROFILESRowChangingEvent) Is Nothing) Then + RaiseEvent TBCW_PROFILESRowChanging(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row, TBCW_PROFILESRow), e.Action)) + End If + End Sub + + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBCW_PROFILESRowDeletedEvent) Is Nothing) Then + RaiseEvent TBCW_PROFILESRowDeleted(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row, TBCW_PROFILESRow), e.Action)) + End If + End Sub + + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBCW_PROFILESRowDeletingEvent) Is Nothing) Then + RaiseEvent TBCW_PROFILESRowDeleting(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row, TBCW_PROFILESRow), e.Action)) + End If + End Sub + + + Public Sub RemoveTBCW_PROFILESRow(ByVal row As TBCW_PROFILESRow) + Me.Rows.Remove(row) + End Sub + + + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DBCW_Stammdaten = New DBCW_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBCW_PROFILESDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close() + End If + If (Not (s2) Is Nothing) Then + s2.Close() + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + + Partial Public Class TBCW_PROF_DOC_SEARCHDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DOC_SEARCHRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPROFILE_ID As Global.System.Data.DataColumn + + Private columnCONN_ID As Global.System.Data.DataColumn + + Private columnSQL_COMMAND As Global.System.Data.DataColumn + + Private columnTAB_INDEX As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnTAB_TITLE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnCOUNT_COMMAND As Global.System.Data.DataColumn + + + Public Sub New() + MyBase.New + Me.TableName = "TBCW_PROF_DOC_SEARCH" + Me.BeginInit() + Me.InitClass() + Me.EndInit() + End Sub + + + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars() + End Sub + + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + + Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROFILE_ID + End Get + End Property + + + Public ReadOnly Property CONN_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONN_ID + End Get + End Property + + + Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_COMMAND + End Get + End Property + + + Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTAB_INDEX + End Get + End Property + + + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + + Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTAB_TITLE + End Get + End Property + + + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + + Public ReadOnly Property COUNT_COMMANDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOUNT_COMMAND + End Get + End Property + + + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_DOC_SEARCHRow + Get + Return CType(Me.Rows(index), TBCW_PROF_DOC_SEARCHRow) + End Get + End Property + + + Public Event TBCW_PROF_DOC_SEARCHRowChanging As TBCW_PROF_DOC_SEARCHRowChangeEventHandler + + + Public Event TBCW_PROF_DOC_SEARCHRowChanged As TBCW_PROF_DOC_SEARCHRowChangeEventHandler + + + Public Event TBCW_PROF_DOC_SEARCHRowDeleting As TBCW_PROF_DOC_SEARCHRowChangeEventHandler + + + Public Event TBCW_PROF_DOC_SEARCHRowDeleted As TBCW_PROF_DOC_SEARCHRowChangeEventHandler + + + Public Overloads Sub AddTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow) + Me.Rows.Add(row) + End Sub + + + Public Overloads Function AddTBCW_PROF_DOC_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COUNT_COMMAND As String) As TBCW_PROF_DOC_SEARCHRow + Dim rowTBCW_PROF_DOC_SEARCHRow As TBCW_PROF_DOC_SEARCHRow = CType(Me.NewRow, TBCW_PROF_DOC_SEARCHRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND} + If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF) Is Nothing) Then + columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF(0) + End If + rowTBCW_PROF_DOC_SEARCHRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCW_PROF_DOC_SEARCHRow) + Return rowTBCW_PROF_DOC_SEARCHRow + End Function + + + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DOC_SEARCHRow + Return CType(Me.Rows.Find(New Object() {GUID}), TBCW_PROF_DOC_SEARCHRow) + End Function + + + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBCW_PROF_DOC_SEARCHDataTable = CType(MyBase.Clone, TBCW_PROF_DOC_SEARCHDataTable) + cln.InitVars() + Return cln + End Function + + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBCW_PROF_DOC_SEARCHDataTable() + End Function + + + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") + Me.columnCONN_ID = MyBase.Columns("CONN_ID") + Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") + Me.columnTAB_INDEX = MyBase.Columns("TAB_INDEX") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnTAB_TITLE = MyBase.Columns("TAB_TITLE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnCOUNT_COMMAND = MyBase.Columns("COUNT_COMMAND") + End Sub + + + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_ID) + Me.columnCONN_ID = New Global.System.Data.DataColumn("CONN_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONN_ID) + Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_COMMAND) + Me.columnTAB_INDEX = New Global.System.Data.DataColumn("TAB_INDEX", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTAB_INDEX) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnTAB_TITLE = New Global.System.Data.DataColumn("TAB_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTAB_TITLE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOUNT_COMMAND) + 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.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnPROFILE_ID.AllowDBNull = False + Me.columnCONN_ID.AllowDBNull = False + Me.columnSQL_COMMAND.AllowDBNull = False + Me.columnSQL_COMMAND.MaxLength = 2147483647 + Me.columnTAB_INDEX.AllowDBNull = False + Me.columnACTIVE.AllowDBNull = False + Me.columnTAB_TITLE.AllowDBNull = False + Me.columnTAB_TITLE.MaxLength = 100 + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnCOUNT_COMMAND.AllowDBNull = False + Me.columnCOUNT_COMMAND.MaxLength = 2147483647 + End Sub + + + Public Function NewTBCW_PROF_DOC_SEARCHRow() As TBCW_PROF_DOC_SEARCHRow + Return CType(Me.NewRow, TBCW_PROF_DOC_SEARCHRow) + End Function + + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBCW_PROF_DOC_SEARCHRow(builder) + End Function + + + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBCW_PROF_DOC_SEARCHRow) + End Function + + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DOC_SEARCHRowChanged(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row, TBCW_PROF_DOC_SEARCHRow), e.Action)) + End If + End Sub + + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DOC_SEARCHRowChanging(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row, TBCW_PROF_DOC_SEARCHRow), e.Action)) + End If + End Sub + + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBCW_PROF_DOC_SEARCHRowDeletedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleted(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row, TBCW_PROF_DOC_SEARCHRow), e.Action)) + End If + End Sub + + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBCW_PROF_DOC_SEARCHRowDeletingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleting(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row, TBCW_PROF_DOC_SEARCHRow), e.Action)) + End If + End Sub + + + Public Sub RemoveTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow) + Me.Rows.Remove(row) + End Sub + + + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DBCW_Stammdaten = New DBCW_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBCW_PROF_DOC_SEARCHDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close() + End If + If (Not (s2) Is Nothing) Then + s2.Close() + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + + Partial Public Class TBCW_PROF_DATA_SEARCHDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DATA_SEARCHRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPROFILE_ID As Global.System.Data.DataColumn + + Private columnCONN_ID As Global.System.Data.DataColumn + + Private columnSQL_COMMAND As Global.System.Data.DataColumn + + Private columnTAB_INDEX As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnTAB_TITLE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnCOUNT_COMMAND As Global.System.Data.DataColumn + + + Public Sub New() + MyBase.New + Me.TableName = "TBCW_PROF_DATA_SEARCH" + Me.BeginInit() + Me.InitClass() + Me.EndInit() + End Sub + + + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars() + End Sub + + + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + + Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROFILE_ID + End Get + End Property + + + Public ReadOnly Property CONN_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONN_ID + End Get + End Property + + + Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_COMMAND + End Get + End Property + + + Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTAB_INDEX + End Get + End Property + + + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + + Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTAB_TITLE + End Get + End Property + + + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + + Public ReadOnly Property COUNT_COMMANDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOUNT_COMMAND + End Get + End Property + + + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_DATA_SEARCHRow + Get + Return CType(Me.Rows(index), TBCW_PROF_DATA_SEARCHRow) + End Get + End Property + + + Public Event TBCW_PROF_DATA_SEARCHRowChanging As TBCW_PROF_DATA_SEARCHRowChangeEventHandler + + + Public Event TBCW_PROF_DATA_SEARCHRowChanged As TBCW_PROF_DATA_SEARCHRowChangeEventHandler + + + Public Event TBCW_PROF_DATA_SEARCHRowDeleting As TBCW_PROF_DATA_SEARCHRowChangeEventHandler + + + Public Event TBCW_PROF_DATA_SEARCHRowDeleted As TBCW_PROF_DATA_SEARCHRowChangeEventHandler + + + Public Overloads Sub AddTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow) + Me.Rows.Add(row) + End Sub + + + Public Overloads Function AddTBCW_PROF_DATA_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COUNT_COMMAND As String) As TBCW_PROF_DATA_SEARCHRow + Dim rowTBCW_PROF_DATA_SEARCHRow As TBCW_PROF_DATA_SEARCHRow = CType(Me.NewRow, TBCW_PROF_DATA_SEARCHRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND} + If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF) Is Nothing) Then + columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF(0) + End If + rowTBCW_PROF_DATA_SEARCHRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCW_PROF_DATA_SEARCHRow) + Return rowTBCW_PROF_DATA_SEARCHRow + End Function + + + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DATA_SEARCHRow + Return CType(Me.Rows.Find(New Object() {GUID}), TBCW_PROF_DATA_SEARCHRow) + End Function + + + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBCW_PROF_DATA_SEARCHDataTable = CType(MyBase.Clone, TBCW_PROF_DATA_SEARCHDataTable) + cln.InitVars() + Return cln + End Function + + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBCW_PROF_DATA_SEARCHDataTable() + End Function + + + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") + Me.columnCONN_ID = MyBase.Columns("CONN_ID") + Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") + Me.columnTAB_INDEX = MyBase.Columns("TAB_INDEX") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnTAB_TITLE = MyBase.Columns("TAB_TITLE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnCOUNT_COMMAND = MyBase.Columns("COUNT_COMMAND") + End Sub + + + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_ID) + Me.columnCONN_ID = New Global.System.Data.DataColumn("CONN_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONN_ID) + Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_COMMAND) + Me.columnTAB_INDEX = New Global.System.Data.DataColumn("TAB_INDEX", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTAB_INDEX) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnTAB_TITLE = New Global.System.Data.DataColumn("TAB_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTAB_TITLE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOUNT_COMMAND) + 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.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnPROFILE_ID.AllowDBNull = False + Me.columnCONN_ID.AllowDBNull = False + Me.columnSQL_COMMAND.AllowDBNull = False + Me.columnSQL_COMMAND.MaxLength = 2147483647 + Me.columnTAB_INDEX.AllowDBNull = False + Me.columnACTIVE.AllowDBNull = False + Me.columnTAB_TITLE.AllowDBNull = False + Me.columnTAB_TITLE.MaxLength = 100 + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnCOUNT_COMMAND.AllowDBNull = False + Me.columnCOUNT_COMMAND.MaxLength = 2147483647 + End Sub + + + Public Function NewTBCW_PROF_DATA_SEARCHRow() As TBCW_PROF_DATA_SEARCHRow + Return CType(Me.NewRow, TBCW_PROF_DATA_SEARCHRow) + End Function + + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBCW_PROF_DATA_SEARCHRow(builder) + End Function + + + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBCW_PROF_DATA_SEARCHRow) + End Function + + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DATA_SEARCHRowChanged(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row, TBCW_PROF_DATA_SEARCHRow), e.Action)) + End If + End Sub + + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DATA_SEARCHRowChanging(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row, TBCW_PROF_DATA_SEARCHRow), e.Action)) + End If + End Sub + + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleted(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row, TBCW_PROF_DATA_SEARCHRow), e.Action)) + End If + End Sub + + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleting(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row, TBCW_PROF_DATA_SEARCHRow), e.Action)) + End If + End Sub + + + Public Sub RemoveTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow) + Me.Rows.Remove(row) + End Sub + + + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DBCW_Stammdaten = New DBCW_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBCW_PROF_DATA_SEARCHDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close() + End If + If (Not (s2) Is Nothing) Then + s2.Close() + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + + Partial Public Class TBLOCAL_SEARCH_POSITIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBLOCAL_SEARCH_POSITIONRow) + + Private columnID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + + Public Sub New() + MyBase.New + Me.TableName = "TBLOCAL_SEARCH_POSITION" + Me.BeginInit() + Me.InitClass() + Me.EndInit() + End Sub + + + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars() + End Sub + + + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnID + End Get + End Property + + + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBLOCAL_SEARCH_POSITIONRow + Get + Return CType(Me.Rows(index), TBLOCAL_SEARCH_POSITIONRow) + End Get + End Property + + + Public Event TBLOCAL_SEARCH_POSITIONRowChanging As TBLOCAL_SEARCH_POSITIONRowChangeEventHandler + + + Public Event TBLOCAL_SEARCH_POSITIONRowChanged As TBLOCAL_SEARCH_POSITIONRowChangeEventHandler + + + Public Event TBLOCAL_SEARCH_POSITIONRowDeleting As TBLOCAL_SEARCH_POSITIONRowChangeEventHandler + + + Public Event TBLOCAL_SEARCH_POSITIONRowDeleted As TBLOCAL_SEARCH_POSITIONRowChangeEventHandler + + + Public Overloads Sub AddTBLOCAL_SEARCH_POSITIONRow(ByVal row As TBLOCAL_SEARCH_POSITIONRow) + Me.Rows.Add(row) + End Sub + + + Public Overloads Function AddTBLOCAL_SEARCH_POSITIONRow(ByVal ID As String, ByVal NAME As String) As TBLOCAL_SEARCH_POSITIONRow + Dim rowTBLOCAL_SEARCH_POSITIONRow As TBLOCAL_SEARCH_POSITIONRow = CType(Me.NewRow, TBLOCAL_SEARCH_POSITIONRow) + Dim columnValuesArray() As Object = New Object() {ID, NAME} + rowTBLOCAL_SEARCH_POSITIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBLOCAL_SEARCH_POSITIONRow) + Return rowTBLOCAL_SEARCH_POSITIONRow + End Function + + + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBLOCAL_SEARCH_POSITIONDataTable = CType(MyBase.Clone, TBLOCAL_SEARCH_POSITIONDataTable) + cln.InitVars() + Return cln + End Function + + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBLOCAL_SEARCH_POSITIONDataTable() + End Function + + + Friend Sub InitVars() + Me.columnID = MyBase.Columns("ID") + Me.columnNAME = MyBase.Columns("NAME") + End Sub + + + Private Sub InitClass() + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + End Sub + + + Public Function NewTBLOCAL_SEARCH_POSITIONRow() As TBLOCAL_SEARCH_POSITIONRow + Return CType(Me.NewRow, TBLOCAL_SEARCH_POSITIONRow) + End Function + + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBLOCAL_SEARCH_POSITIONRow(builder) + End Function + + + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBLOCAL_SEARCH_POSITIONRow) + End Function + + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBLOCAL_SEARCH_POSITIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBLOCAL_SEARCH_POSITIONRowChanged(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row, TBLOCAL_SEARCH_POSITIONRow), e.Action)) + End If + End Sub + + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBLOCAL_SEARCH_POSITIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBLOCAL_SEARCH_POSITIONRowChanging(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row, TBLOCAL_SEARCH_POSITIONRow), e.Action)) + End If + End Sub + + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBLOCAL_SEARCH_POSITIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBLOCAL_SEARCH_POSITIONRowDeleted(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row, TBLOCAL_SEARCH_POSITIONRow), e.Action)) + End If + End Sub + + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBLOCAL_SEARCH_POSITIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBLOCAL_SEARCH_POSITIONRowDeleting(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row, TBLOCAL_SEARCH_POSITIONRow), e.Action)) + End If + End Sub + + + Public Sub RemoveTBLOCAL_SEARCH_POSITIONRow(ByVal row As TBLOCAL_SEARCH_POSITIONRow) + Me.Rows.Remove(row) + End Sub + + + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DBCW_Stammdaten = New DBCW_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBLOCAL_SEARCH_POSITIONDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close() + End If + If (Not (s2) Is Nothing) Then + s2.Close() + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + + Partial Public Class TBLOCAL_PROFILE_TYPEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBLOCAL_PROFILE_TYPERow) + + Private columnID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + + Public Sub New() + MyBase.New + Me.TableName = "TBLOCAL_PROFILE_TYPE" + Me.BeginInit() + Me.InitClass() + Me.EndInit() + End Sub + + + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars() + End Sub + + + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnID + End Get + End Property + + + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + + Default Public ReadOnly Property Item(ByVal index As Integer) As TBLOCAL_PROFILE_TYPERow + Get + Return CType(Me.Rows(index), TBLOCAL_PROFILE_TYPERow) + End Get + End Property + + + Public Event TBLOCAL_PROFILE_TYPERowChanging As TBLOCAL_PROFILE_TYPERowChangeEventHandler + + + Public Event TBLOCAL_PROFILE_TYPERowChanged As TBLOCAL_PROFILE_TYPERowChangeEventHandler + + + Public Event TBLOCAL_PROFILE_TYPERowDeleting As TBLOCAL_PROFILE_TYPERowChangeEventHandler + + + Public Event TBLOCAL_PROFILE_TYPERowDeleted As TBLOCAL_PROFILE_TYPERowChangeEventHandler + + + Public Overloads Sub AddTBLOCAL_PROFILE_TYPERow(ByVal row As TBLOCAL_PROFILE_TYPERow) + Me.Rows.Add(row) + End Sub + + + Public Overloads Function AddTBLOCAL_PROFILE_TYPERow(ByVal ID As String, ByVal NAME As String) As TBLOCAL_PROFILE_TYPERow + Dim rowTBLOCAL_PROFILE_TYPERow As TBLOCAL_PROFILE_TYPERow = CType(Me.NewRow, TBLOCAL_PROFILE_TYPERow) + Dim columnValuesArray() As Object = New Object() {ID, NAME} + rowTBLOCAL_PROFILE_TYPERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBLOCAL_PROFILE_TYPERow) + Return rowTBLOCAL_PROFILE_TYPERow + End Function + + + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBLOCAL_PROFILE_TYPEDataTable = CType(MyBase.Clone, TBLOCAL_PROFILE_TYPEDataTable) + cln.InitVars() + Return cln + End Function + + + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBLOCAL_PROFILE_TYPEDataTable() + End Function + + + Friend Sub InitVars() + Me.columnID = MyBase.Columns("ID") + Me.columnNAME = MyBase.Columns("NAME") + End Sub + + + Private Sub InitClass() + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + End Sub + + + Public Function NewTBLOCAL_PROFILE_TYPERow() As TBLOCAL_PROFILE_TYPERow + Return CType(Me.NewRow, TBLOCAL_PROFILE_TYPERow) + End Function + + + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBLOCAL_PROFILE_TYPERow(builder) + End Function + + + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBLOCAL_PROFILE_TYPERow) + End Function + + + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBLOCAL_PROFILE_TYPERowChangedEvent) Is Nothing) Then + RaiseEvent TBLOCAL_PROFILE_TYPERowChanged(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row, TBLOCAL_PROFILE_TYPERow), e.Action)) + End If + End Sub + + + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBLOCAL_PROFILE_TYPERowChangingEvent) Is Nothing) Then + RaiseEvent TBLOCAL_PROFILE_TYPERowChanging(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row, TBLOCAL_PROFILE_TYPERow), e.Action)) + End If + End Sub + + + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBLOCAL_PROFILE_TYPERowDeletedEvent) Is Nothing) Then + RaiseEvent TBLOCAL_PROFILE_TYPERowDeleted(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row, TBLOCAL_PROFILE_TYPERow), e.Action)) + End If + End Sub + + + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBLOCAL_PROFILE_TYPERowDeletingEvent) Is Nothing) Then + RaiseEvent TBLOCAL_PROFILE_TYPERowDeleting(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row, TBLOCAL_PROFILE_TYPERow), e.Action)) + End If + End Sub + + + Public Sub RemoveTBLOCAL_PROFILE_TYPERow(ByVal row As TBLOCAL_PROFILE_TYPERow) + Me.Rows.Remove(row) + End Sub + + + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DBCW_Stammdaten = New DBCW_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBLOCAL_PROFILE_TYPEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close() + End If + If (Not (s2) Is Nothing) Then + s2.Close() + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_PROFILESRow + Inherits Global.System.Data.DataRow + + Private tableTBCW_PROFILES As TBCW_PROFILESDataTable + + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_PROFILES = CType(Me.Table, TBCW_PROFILESDataTable) + End Sub + + + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROFILES.GUIDColumn), Integer) + End Get + Set + Me(Me.tableTBCW_PROFILES.GUIDColumn) = Value + End Set + End Property + + + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBCW_PROFILES.NAMEColumn), String) + End Get + Set + Me(Me.tableTBCW_PROFILES.NAMEColumn) = Value + End Set + End Property + + + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROFILES.COMMENTColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBCW_PROFILES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROFILES.COMMENTColumn) = Value + End Set + End Property + + + Public Property REGEX_EXPRESSION() As String + Get + Return CType(Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn), String) + End Get + Set + Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn) = Value + End Set + End Property + + + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBCW_PROFILES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn) = Value + End Set + End Property + + + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROFILES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = Value + End Set + End Property + + + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROFILES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = Value + End Set + End Property + + + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROFILES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = Value + End Set + End Property + + + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBCW_PROFILES.ACTIVEColumn), Boolean) + End Get + Set + Me(Me.tableTBCW_PROFILES.ACTIVEColumn) = Value + End Set + End Property + + + Public Property PROFILE_TYPE() As Short + Get + Return CType(Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn), Short) + End Get + Set + Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn) = Value + End Set + End Property + + + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROFILES.COMMENTColumn) + End Function + + + Public Sub SetCOMMENTNull() + Me(Me.tableTBCW_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROFILES.ADDED_WHOColumn) + End Function + + + Public Sub SetADDED_WHONull() + Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROFILES.ADDED_WHENColumn) + End Function + + + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) + End Function + + + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) + End Function + + + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + + Public Function GetTBCW_PROF_DOC_SEARCHRows() As TBCW_PROF_DOC_SEARCHRow() + If (Me.Table.ChildRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF") Is Nothing) Then + Return New TBCW_PROF_DOC_SEARCHRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")), TBCW_PROF_DOC_SEARCHRow()) + End If + End Function + + + Public Function GetTBCW_PROF_DATA_SEARCHRows() As TBCW_PROF_DATA_SEARCHRow() + If (Me.Table.ChildRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF") Is Nothing) Then + Return New TBCW_PROF_DATA_SEARCHRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")), TBCW_PROF_DATA_SEARCHRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_PROF_DOC_SEARCHRow + Inherits Global.System.Data.DataRow + + Private tableTBCW_PROF_DOC_SEARCH As TBCW_PROF_DOC_SEARCHDataTable + + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_PROF_DOC_SEARCH = CType(Me.Table, TBCW_PROF_DOC_SEARCHDataTable) + End Sub + + + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.GUIDColumn), Integer) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.GUIDColumn) = Value + End Set + End Property + + + Public Property PROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn), Integer) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn) = Value + End Set + End Property + + + Public Property CONN_ID() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CONN_IDColumn), Byte) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.CONN_IDColumn) = Value + End Set + End Property + + + Public Property SQL_COMMAND() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.SQL_COMMANDColumn), String) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.SQL_COMMANDColumn) = Value + End Set + End Property + + + Public Property TAB_INDEX() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_INDEXColumn), Byte) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_INDEXColumn) = Value + End Set + End Property + + + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ACTIVEColumn), Boolean) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.ACTIVEColumn) = Value + End Set + End Property + + + Public Property TAB_TITLE() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_TITLEColumn), String) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_TITLEColumn) = Value + End Set + End Property + + + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn) = Value + End Set + End Property + + + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) = Value + End Set + End Property + + + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) = Value + End Set + End Property + + + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = Value + End Set + End Property + + + Public Property COUNT_COMMAND() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn), String) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) = Value + End Set + End Property + + + Public Property TBCW_PROFILESRow() As TBCW_PROFILESRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")), TBCW_PROFILESRow) + End Get + Set + Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")) + End Set + End Property + + + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn) + End Function + + + Public Sub SetADDED_WHONull() + Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) + End Function + + + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) + End Function + + + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) + End Function + + + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_PROF_DATA_SEARCHRow + Inherits Global.System.Data.DataRow + + Private tableTBCW_PROF_DATA_SEARCH As TBCW_PROF_DATA_SEARCHDataTable + + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_PROF_DATA_SEARCH = CType(Me.Table, TBCW_PROF_DATA_SEARCHDataTable) + End Sub + + + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.GUIDColumn), Integer) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.GUIDColumn) = Value + End Set + End Property + + + Public Property PROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn), Integer) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn) = Value + End Set + End Property + + + Public Property CONN_ID() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CONN_IDColumn), Byte) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.CONN_IDColumn) = Value + End Set + End Property + + + Public Property SQL_COMMAND() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.SQL_COMMANDColumn), String) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.SQL_COMMANDColumn) = Value + End Set + End Property + + + Public Property TAB_INDEX() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_INDEXColumn), Byte) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_INDEXColumn) = Value + End Set + End Property + + + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ACTIVEColumn), Boolean) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.ACTIVEColumn) = Value + End Set + End Property + + + Public Property TAB_TITLE() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_TITLEColumn), String) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_TITLEColumn) = Value + End Set + End Property + + + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn) = Value + End Set + End Property + + + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) = Value + End Set + End Property + + + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) = Value + End Set + End Property + + + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) = Value + End Set + End Property + + + Public Property COUNT_COMMAND() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.COUNT_COMMANDColumn), String) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.COUNT_COMMANDColumn) = Value + End Set + End Property + + + Public Property TBCW_PROFILESRow() As TBCW_PROFILESRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")), TBCW_PROFILESRow) + End Get + Set + Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")) + End Set + End Property + + + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn) + End Function + + + Public Sub SetADDED_WHONull() + Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) + End Function + + + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) + End Function + + + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) + End Function + + + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBLOCAL_SEARCH_POSITIONRow + Inherits Global.System.Data.DataRow + + Private tableTBLOCAL_SEARCH_POSITION As TBLOCAL_SEARCH_POSITIONDataTable + + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBLOCAL_SEARCH_POSITION = CType(Me.Table, TBLOCAL_SEARCH_POSITIONDataTable) + End Sub + + + Public Property ID() As String + Get + Try + Return CType(Me(Me.tableTBLOCAL_SEARCH_POSITION.IDColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBLOCAL_SEARCH_POSITION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBLOCAL_SEARCH_POSITION.IDColumn) = Value + End Set + End Property + + + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBLOCAL_SEARCH_POSITION.NAMEColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBLOCAL_SEARCH_POSITION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBLOCAL_SEARCH_POSITION.NAMEColumn) = Value + End Set + End Property + + + Public Function IsIDNull() As Boolean + Return Me.IsNull(Me.tableTBLOCAL_SEARCH_POSITION.IDColumn) + End Function + + + Public Sub SetIDNull() + Me(Me.tableTBLOCAL_SEARCH_POSITION.IDColumn) = Global.System.Convert.DBNull + End Sub + + + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBLOCAL_SEARCH_POSITION.NAMEColumn) + End Function + + + Public Sub SetNAMENull() + Me(Me.tableTBLOCAL_SEARCH_POSITION.NAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBLOCAL_PROFILE_TYPERow + Inherits Global.System.Data.DataRow + + Private tableTBLOCAL_PROFILE_TYPE As TBLOCAL_PROFILE_TYPEDataTable + + + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBLOCAL_PROFILE_TYPE = CType(Me.Table, TBLOCAL_PROFILE_TYPEDataTable) + End Sub + + + Public Property ID() As String + Get + Try + Return CType(Me(Me.tableTBLOCAL_PROFILE_TYPE.IDColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBLOCAL_PROFILE_TYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBLOCAL_PROFILE_TYPE.IDColumn) = Value + End Set + End Property + + + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBLOCAL_PROFILE_TYPE.NAMEColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBLOCAL_PROFILE_TYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBLOCAL_PROFILE_TYPE.NAMEColumn) = Value + End Set + End Property + + + Public Function IsIDNull() As Boolean + Return Me.IsNull(Me.tableTBLOCAL_PROFILE_TYPE.IDColumn) + End Function + + + Public Sub SetIDNull() + Me(Me.tableTBLOCAL_PROFILE_TYPE.IDColumn) = Global.System.Convert.DBNull + End Sub + + + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBLOCAL_PROFILE_TYPE.NAMEColumn) + End Function + + + Public Sub SetNAMENull() + Me(Me.tableTBLOCAL_PROFILE_TYPE.NAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + + Public Class TBCW_PROFILESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCW_PROFILESRow + + Private eventAction As Global.System.Data.DataRowAction + + + Public Sub New(ByVal row As TBCW_PROFILESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + + Public ReadOnly Property Row() As TBCW_PROFILESRow + Get + Return Me.eventRow + End Get + End Property + + + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + + Public Class TBCW_PROF_DOC_SEARCHRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCW_PROF_DOC_SEARCHRow + + Private eventAction As Global.System.Data.DataRowAction + + + Public Sub New(ByVal row As TBCW_PROF_DOC_SEARCHRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + + Public ReadOnly Property Row() As TBCW_PROF_DOC_SEARCHRow + Get + Return Me.eventRow + End Get + End Property + + + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + + Public Class TBCW_PROF_DATA_SEARCHRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCW_PROF_DATA_SEARCHRow + + Private eventAction As Global.System.Data.DataRowAction + + + Public Sub New(ByVal row As TBCW_PROF_DATA_SEARCHRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + + Public ReadOnly Property Row() As TBCW_PROF_DATA_SEARCHRow + Get + Return Me.eventRow + End Get + End Property + + + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + + Public Class TBLOCAL_SEARCH_POSITIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBLOCAL_SEARCH_POSITIONRow + + Private eventAction As Global.System.Data.DataRowAction + + + Public Sub New(ByVal row As TBLOCAL_SEARCH_POSITIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + + Public ReadOnly Property Row() As TBLOCAL_SEARCH_POSITIONRow + Get + Return Me.eventRow + End Get + End Property + + + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + + Public Class TBLOCAL_PROFILE_TYPERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBLOCAL_PROFILE_TYPERow + + Private eventAction As Global.System.Data.DataRowAction + + + Public Sub New(ByVal row As TBLOCAL_PROFILE_TYPERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + + Public ReadOnly Property Row() As TBLOCAL_PROFILE_TYPERow + Get + Return Me.eventRow + End Get + End Property + + + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace DBCW_StammdatenTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + + Partial Public Class TBCW_PROFILESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + + Public Sub New() + MyBase.New + Me.ClearBeforeFill = True + End Sub + + + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter() + End If + Return Me._adapter + End Get + End Property + + + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection() + End If + Return Me._connection + End Get + Set + Me._connection = Value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = Value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = Value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = Value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = Value + End If + i = (i + 1) + Loop + End Set + End Property + + + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = Value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection() + End If + Return Me._commandCollection + End Get + End Property + + + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = Value + End Set + End Property + + + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBCW_PROFILES" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("REGEX_EXPRESSION", "REGEX_EXPRESSION") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("PROFILE_TYPE", "PROFILE_TYPE") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[TBCW_PROFILES] WHERE (([GUID] = @Original_GUID) AND ([NAME] = " & + "@Original_NAME) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] =" & + " @Original_COMMENT)) AND ([REGEX_EXPRESSION] = @Original_REGEX_EXPRESSION) AND (" & + "[ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN]" & + " IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = " & + "1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@" & + "IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Origin" & + "al_CHANGED_WHEN)) AND ([ACTIVE] = @Original_ACTIVE) AND ([PROFILE_TYPE] = @Origi" & + "nal_PROFILE_TYPE))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[TBCW_PROFILES] ([NAME], [COMMENT], [REGEX_EXPRESSION], [ADDED_" & + "WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [ACTIVE], [PROFILE_TYPE]) VAL" & + "UES (@NAME, @COMMENT, @REGEX_EXPRESSION, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, " & + "@CHANGED_WHEN, @ACTIVE, @PROFILE_TYPE);" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, NAME, COMMENT, REGEX_EXPRE" & + "SSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FR" & + "OM TBCW_PROFILES WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, 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("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, 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("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", 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 [dbo].[TBCW_PROFILES] SET [NAME] = @NAME, [COMMENT] = @COMMENT, [REGEX_EXP" & + "RESSION] = @REGEX_EXPRESSION, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WH" & + "EN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [ACTIVE] = @AC" & + "TIVE, [PROFILE_TYPE] = @PROFILE_TYPE WHERE (([GUID] = @Original_GUID) AND ([NAME" & + "] = @Original_NAME) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMEN" & + "T] = @Original_COMMENT)) AND ([REGEX_EXPRESSION] = @Original_REGEX_EXPRESSION) A" & + "ND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_W" & + "HEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WH" & + "O = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND" & + " ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Or" & + "iginal_CHANGED_WHEN)) AND ([ACTIVE] = @Original_ACTIVE) AND ([PROFILE_TYPE] = @O" & + "riginal_PROFILE_TYPE));" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO" & + ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES" & + " WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, 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("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, 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("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", 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, 0, 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("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", 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.Current, False, Nothing, "", "", "")) + End Sub + + + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString + End Sub + + + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO," & + " CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM dbo.TBCW_PROFILES 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, "", "", "")) + End Sub + + + Public Overridable Overloads Function Fill(ByVal dataTable As DBCW_Stammdaten.TBCW_PROFILESDataTable, ByVal GUID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + + Public Overridable Overloads Function GetData(ByVal GUID As Integer) As DBCW_Stammdaten.TBCW_PROFILESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID, Integer) + Dim dataTable As DBCW_Stammdaten.TBCW_PROFILESDataTable = New DBCW_Stammdaten.TBCW_PROFILESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + + Public Overridable Overloads Function Update(ByVal dataTable As DBCW_Stammdaten.TBCW_PROFILESDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + + Public Overridable Overloads Function Update(ByVal dataSet As DBCW_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBCW_PROFILES") + End Function + + + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + + Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_COMMENT As String, ByVal Original_REGEX_EXPRESSION As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_ACTIVE As Boolean, ByVal Original_PROFILE_TYPE As Short) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) + If (Original_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_NAME") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME, String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_COMMENT, String) + End If + If (Original_REGEX_EXPRESSION Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_REGEX_EXPRESSION") + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_REGEX_EXPRESSION, String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO, String) + End If + If (Original_ADDED_WHEN.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHEN.Value, Date) + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHO, String) + End If + If (Original_CHANGED_WHEN.HasValue = True) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0, Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHEN.Value, Date) + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_ACTIVE, Boolean) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_PROFILE_TYPE, Short) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close() + End If + End Try + End Function + + + Public Overridable Overloads Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal ACTIVE As Boolean, ByVal PROFILE_TYPE As Short) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME, String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT, String) + End If + If (REGEX_EXPRESSION Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(REGEX_EXPRESSION, String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO, String) + End If + If (ADDED_WHEN.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN.Value, Date) + Else + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO, String) + End If + If (CHANGED_WHEN.HasValue = True) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value, Date) + Else + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ACTIVE, Boolean) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(PROFILE_TYPE, Short) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close() + End If + End Try + End Function + + + Public Overridable Overloads Function Update( + ByVal NAME As String, + ByVal COMMENT As String, + ByVal REGEX_EXPRESSION As String, + ByVal ADDED_WHO As String, + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), + ByVal CHANGED_WHO As String, + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), + ByVal ACTIVE As Boolean, + ByVal PROFILE_TYPE As Short, + ByVal Original_GUID As Integer, + ByVal Original_NAME As String, + ByVal Original_COMMENT As String, + ByVal Original_REGEX_EXPRESSION As String, + ByVal Original_ADDED_WHO As String, + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), + ByVal Original_CHANGED_WHO As String, + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), + ByVal Original_ACTIVE As Boolean, + ByVal Original_PROFILE_TYPE As Short, + ByVal GUID As Integer) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME, String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT, String) + End If + If (REGEX_EXPRESSION Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(REGEX_EXPRESSION, String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO, String) + End If + If (ADDED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value, Date) + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO, String) + End If + If (CHANGED_WHEN.HasValue = True) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value, Date) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ACTIVE, Boolean) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(PROFILE_TYPE, Short) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID, Integer) + If (Original_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_NAME, String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_COMMENT,String) + End If + If (Original_REGEX_EXPRESSION Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_REGEX_EXPRESSION") + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_REGEX_EXPRESSION,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ACTIVE,Boolean) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_PROFILE_TYPE,Short) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal NAME As String, _ + ByVal COMMENT As String, _ + ByVal REGEX_EXPRESSION As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal ACTIVE As Boolean, _ + ByVal PROFILE_TYPE As Short, _ + ByVal Original_GUID As Integer, _ + ByVal Original_NAME As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_REGEX_EXPRESSION As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_PROFILE_TYPE As Short) As Integer + Return Me.Update(NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE, Original_GUID, Original_NAME, Original_COMMENT, Original_REGEX_EXPRESSION, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_ACTIVE, Original_PROFILE_TYPE, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBCW_PROF_DOC_SEARCHTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBCW_PROF_DOC_SEARCH" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") + tableMapping.ColumnMappings.Add("CONN_ID", "CONN_ID") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("TAB_INDEX", "TAB_INDEX") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("TAB_TITLE", "TAB_TITLE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("COUNT_COMMAND", "COUNT_COMMAND") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBCW_PROF_DOC_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFILE"& _ + "_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX"& _ + "] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @O"& _ + "riginal_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_W"& _ + "HEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND "& _ + "((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Origin"& _ + "al_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ("& _ + "[CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBCW_PROF_DOC_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB_"& _ + "INDEX], [ACTIVE], [TAB_TITLE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGE"& _ + "D_WHEN], [COUNT_COMMAND]) VALUES (@PROFILE_ID, @CONN_ID, @SQL_COMMAND, @TAB_INDE"& _ + "X, @ACTIVE, @TAB_TITLE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @C"& _ + "OUNT_COMMAND);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE"& _ + ", TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FRO"& _ + "M TBCW_PROF_DOC_SEARCH WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", 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 [TBCW_PROF_DOC_SEARCH] SET [PROFILE_ID] = @PROFILE_ID, [CONN_ID] = @CONN_I"& _ + "D, [SQL_COMMAND] = @SQL_COMMAND, [TAB_INDEX] = @TAB_INDEX, [ACTIVE] = @ACTIVE, ["& _ + "TAB_TITLE] = @TAB_TITLE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, ["& _ + "CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COUNT_COMMAND] = @"& _ + "COUNT_COMMAND WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PRO"& _ + "FILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_IN"& _ + "DEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) A"& _ + "ND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_W"& _ + "HEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WH"& _ + "O = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND"& _ + " ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Or"& _ + "iginal_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDE"& _ + "X, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_CO"& _ + "MMAND FROM TBCW_PROF_DOC_SEARCH WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", 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, 0, 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("@Original_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBCW_PROF_DOC_SEARCH.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROF_DOC_SEARCH WHERE "& _ + "PROFILE_ID = @PROFILE_ID" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DBCW_Stammdaten.TBCW_PROF_DOC_SEARCHDataTable, ByVal PROFILE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal PROFILE_ID As Integer) As DBCW_Stammdaten.TBCW_PROF_DOC_SEARCHDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim dataTable As DBCW_Stammdaten.TBCW_PROF_DOC_SEARCHDataTable = New DBCW_Stammdaten.TBCW_PROF_DOC_SEARCHDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DBCW_Stammdaten.TBCW_PROF_DOC_SEARCHDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DBCW_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBCW_PROF_DOC_SEARCH") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_PROFILE_ID As Integer, ByVal Original_CONN_ID As Byte, ByVal Original_TAB_INDEX As Byte, ByVal Original_ACTIVE As Boolean, ByVal Original_TAB_TITLE As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_PROFILE_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CONN_ID,Byte) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_TAB_INDEX,Byte) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ACTIVE,Boolean) + If (Original_TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TAB_TITLE") + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_TAB_TITLE,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal PROFILE_ID As Integer, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal COUNT_COMMAND As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(CONN_ID,Byte) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SQL_COMMAND,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TAB_TITLE") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(TAB_TITLE,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (COUNT_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("COUNT_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(COUNT_COMMAND,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal PROFILE_ID As Integer, _ + ByVal CONN_ID As Byte, _ + ByVal SQL_COMMAND As String, _ + ByVal TAB_INDEX As Byte, _ + ByVal ACTIVE As Boolean, _ + ByVal TAB_TITLE As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal COUNT_COMMAND As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_PROFILE_ID As Integer, _ + ByVal Original_CONN_ID As Byte, _ + ByVal Original_TAB_INDEX As Byte, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_TAB_TITLE As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CONN_ID,Byte) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SQL_COMMAND,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TAB_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TAB_TITLE,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (COUNT_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("COUNT_COMMAND") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(COUNT_COMMAND,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CONN_ID,Byte) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_TAB_INDEX,Byte) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ACTIVE,Boolean) + If (Original_TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TAB_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_TAB_TITLE,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal PROFILE_ID As Integer, _ + ByVal CONN_ID As Byte, _ + ByVal SQL_COMMAND As String, _ + ByVal TAB_INDEX As Byte, _ + ByVal ACTIVE As Boolean, _ + ByVal TAB_TITLE As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal COUNT_COMMAND As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_PROFILE_ID As Integer, _ + ByVal Original_CONN_ID As Byte, _ + ByVal Original_TAB_INDEX As Byte, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_TAB_TITLE As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND, Original_GUID, Original_PROFILE_ID, Original_CONN_ID, Original_TAB_INDEX, Original_ACTIVE, Original_TAB_TITLE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBCW_PROF_DATA_SEARCHTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBCW_PROF_DATA_SEARCH" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") + tableMapping.ColumnMappings.Add("CONN_ID", "CONN_ID") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("TAB_INDEX", "TAB_INDEX") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("TAB_TITLE", "TAB_TITLE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("COUNT_COMMAND", "COUNT_COMMAND") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBCW_PROF_DATA_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFIL"& _ + "E_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDE"& _ + "X] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @"& _ + "Original_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_"& _ + "WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND"& _ + " ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Origi"& _ + "nal_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR "& _ + "([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBCW_PROF_DATA_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB"& _ + "_INDEX], [ACTIVE], [TAB_TITLE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANG"& _ + "ED_WHEN], [COUNT_COMMAND]) VALUES (@PROFILE_ID, @CONN_ID, @SQL_COMMAND, @TAB_IND"& _ + "EX, @ACTIVE, @TAB_TITLE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @"& _ + "COUNT_COMMAND);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIV"& _ + "E, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FR"& _ + "OM TBCW_PROF_DATA_SEARCH WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", 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 [TBCW_PROF_DATA_SEARCH] SET [PROFILE_ID] = @PROFILE_ID, [CONN_ID] = @CONN_"& _ + "ID, [SQL_COMMAND] = @SQL_COMMAND, [TAB_INDEX] = @TAB_INDEX, [ACTIVE] = @ACTIVE, "& _ + "[TAB_TITLE] = @TAB_TITLE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, "& _ + "[CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COUNT_COMMAND] = "& _ + "@COUNT_COMMAND WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PR"& _ + "OFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_I"& _ + "NDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) "& _ + "AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_"& _ + "WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_W"& _ + "HO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AN"& _ + "D ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @O"& _ + "riginal_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_IND"& _ + "EX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_C"& _ + "OMMAND FROM TBCW_PROF_DATA_SEARCH WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", 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, 0, 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("@Original_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITL"& _ + "E, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBCW_PROF_DATA_SEARCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_ID = @PROFILE_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DBCW_Stammdaten.TBCW_PROF_DATA_SEARCHDataTable, ByVal PROFILE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal PROFILE_ID As Integer) As DBCW_Stammdaten.TBCW_PROF_DATA_SEARCHDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim dataTable As DBCW_Stammdaten.TBCW_PROF_DATA_SEARCHDataTable = New DBCW_Stammdaten.TBCW_PROF_DATA_SEARCHDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DBCW_Stammdaten.TBCW_PROF_DATA_SEARCHDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DBCW_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBCW_PROF_DATA_SEARCH") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_PROFILE_ID As Integer, ByVal Original_CONN_ID As Byte, ByVal Original_TAB_INDEX As Byte, ByVal Original_ACTIVE As Boolean, ByVal Original_TAB_TITLE As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_PROFILE_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CONN_ID,Byte) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_TAB_INDEX,Byte) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ACTIVE,Boolean) + If (Original_TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TAB_TITLE") + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_TAB_TITLE,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal PROFILE_ID As Integer, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal COUNT_COMMAND As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(CONN_ID,Byte) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SQL_COMMAND,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TAB_TITLE") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(TAB_TITLE,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (COUNT_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("COUNT_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(COUNT_COMMAND,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal PROFILE_ID As Integer, _ + ByVal CONN_ID As Byte, _ + ByVal SQL_COMMAND As String, _ + ByVal TAB_INDEX As Byte, _ + ByVal ACTIVE As Boolean, _ + ByVal TAB_TITLE As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal COUNT_COMMAND As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_PROFILE_ID As Integer, _ + ByVal Original_CONN_ID As Byte, _ + ByVal Original_TAB_INDEX As Byte, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_TAB_TITLE As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CONN_ID,Byte) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SQL_COMMAND,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TAB_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TAB_TITLE,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (COUNT_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("COUNT_COMMAND") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(COUNT_COMMAND,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CONN_ID,Byte) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_TAB_INDEX,Byte) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ACTIVE,Boolean) + If (Original_TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TAB_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_TAB_TITLE,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal PROFILE_ID As Integer, _ + ByVal CONN_ID As Byte, _ + ByVal SQL_COMMAND As String, _ + ByVal TAB_INDEX As Byte, _ + ByVal ACTIVE As Boolean, _ + ByVal TAB_TITLE As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal COUNT_COMMAND As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_PROFILE_ID As Integer, _ + ByVal Original_CONN_ID As Byte, _ + ByVal Original_TAB_INDEX As Byte, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_TAB_TITLE As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND, Original_GUID, Original_PROFILE_ID, Original_CONN_ID, Original_TAB_INDEX, Original_ACTIVE, Original_TAB_TITLE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tBCW_PROFILESTableAdapter As TBCW_PROFILESTableAdapter + + Private _tBCW_PROF_DOC_SEARCHTableAdapter As TBCW_PROF_DOC_SEARCHTableAdapter + + Private _tBCW_PROF_DATA_SEARCHTableAdapter As TBCW_PROF_DATA_SEARCHTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property TBCW_PROFILESTableAdapter() As TBCW_PROFILESTableAdapter + Get + Return Me._tBCW_PROFILESTableAdapter + End Get + Set + Me._tBCW_PROFILESTableAdapter = value + End Set + End Property + + _ + Public Property TBCW_PROF_DOC_SEARCHTableAdapter() As TBCW_PROF_DOC_SEARCHTableAdapter + Get + Return Me._tBCW_PROF_DOC_SEARCHTableAdapter + End Get + Set + Me._tBCW_PROF_DOC_SEARCHTableAdapter = value + End Set + End Property + + _ + Public Property TBCW_PROF_DATA_SEARCHTableAdapter() As TBCW_PROF_DATA_SEARCHTableAdapter + Get + Return Me._tBCW_PROF_DATA_SEARCHTableAdapter + End Get + Set + Me._tBCW_PROF_DATA_SEARCHTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBCW_PROFILESTableAdapter.Connection) Is Nothing)) Then + Return Me._tBCW_PROFILESTableAdapter.Connection + End If + If ((Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection) Is Nothing)) Then + Return Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection + End If + If ((Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection) Is Nothing)) Then + Return Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As DBCW_Stammdaten, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBCW_PROFILESTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DOC_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DATA_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As DBCW_Stammdaten, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBCW_PROFILESTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DOC_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DATA_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As DBCW_Stammdaten, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DATA_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DOC_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBCW_PROFILESTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As DBCW_Stammdaten) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROFILESTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ + "t.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBCW_PROFILESTableAdapter, Me._tBCW_PROFILESTableAdapter.Connection) + Me._tBCW_PROFILESTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROFILESTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBCW_PROFILESTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBCW_PROFILESTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROFILESTableAdapter.Adapter) + End If + End If + If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBCW_PROF_DOC_SEARCHTableAdapter, Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection) + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBCW_PROF_DOC_SEARCHTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROF_DOC_SEARCHTableAdapter.Adapter) + End If + End If + If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBCW_PROF_DATA_SEARCHTableAdapter, Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection) + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBCW_PROF_DATA_SEARCHTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROF_DATA_SEARCHTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then + Me._tBCW_PROFILESTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROFILESTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROFILESTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROF_DOC_SEARCHTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROF_DATA_SEARCHTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/GUIs.ZooFlow/DBCW_Stammdaten.vb b/GUIs.ZooFlow/DBCW_Stammdaten.vb new file mode 100644 index 0000000..217af0c --- /dev/null +++ b/GUIs.ZooFlow/DBCW_Stammdaten.vb @@ -0,0 +1,8 @@ +Partial Class DBCW_Stammdaten +End Class + +Namespace DBCW_StammdatenTableAdapters + + Partial Public Class TBCW_PROFILESTableAdapter + End Class +End Namespace diff --git a/GUIs.ZooFlow/DBCW_Stammdaten.xsc b/GUIs.ZooFlow/DBCW_Stammdaten.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/GUIs.ZooFlow/DBCW_Stammdaten.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DBCW_Stammdaten.xsd b/GUIs.ZooFlow/DBCW_Stammdaten.xsd new file mode 100644 index 0000000..78e58ec --- /dev/null +++ b/GUIs.ZooFlow/DBCW_Stammdaten.xsd @@ -0,0 +1,500 @@ + + + + + + + + + + + + + + + + DELETE FROM [dbo].[TBCW_PROFILES] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([REGEX_EXPRESSION] = @Original_REGEX_EXPRESSION) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([ACTIVE] = @Original_ACTIVE) AND ([PROFILE_TYPE] = @Original_PROFILE_TYPE)) + + + + + + + + + + + + + + + + + + + + + INSERT INTO [dbo].[TBCW_PROFILES] ([NAME], [COMMENT], [REGEX_EXPRESSION], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [ACTIVE], [PROFILE_TYPE]) VALUES (@NAME, @COMMENT, @REGEX_EXPRESSION, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @ACTIVE, @PROFILE_TYPE); +SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM dbo.TBCW_PROFILES WHERE GUID = @GUID + + + + + + + + UPDATE [dbo].[TBCW_PROFILES] SET [NAME] = @NAME, [COMMENT] = @COMMENT, [REGEX_EXPRESSION] = @REGEX_EXPRESSION, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [ACTIVE] = @ACTIVE, [PROFILE_TYPE] = @PROFILE_TYPE WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([REGEX_EXPRESSION] = @Original_REGEX_EXPRESSION) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([ACTIVE] = @Original_ACTIVE) AND ([PROFILE_TYPE] = @Original_PROFILE_TYPE)); +SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBCW_PROF_DOC_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + + + INSERT INTO [TBCW_PROF_DOC_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB_INDEX], [ACTIVE], [TAB_TITLE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [COUNT_COMMAND]) VALUES (@PROFILE_ID, @CONN_ID, @SQL_COMMAND, @TAB_INDEX, @ACTIVE, @TAB_TITLE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @COUNT_COMMAND); +SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + SELECT TBCW_PROF_DOC_SEARCH.* +FROM TBCW_PROF_DOC_SEARCH WHERE PROFILE_ID = @PROFILE_ID + + + + + + + + UPDATE [TBCW_PROF_DOC_SEARCH] SET [PROFILE_ID] = @PROFILE_ID, [CONN_ID] = @CONN_ID, [SQL_COMMAND] = @SQL_COMMAND, [TAB_INDEX] = @TAB_INDEX, [ACTIVE] = @ACTIVE, [TAB_TITLE] = @TAB_TITLE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COUNT_COMMAND] = @COUNT_COMMAND WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBCW_PROF_DATA_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + + + INSERT INTO [TBCW_PROF_DATA_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB_INDEX], [ACTIVE], [TAB_TITLE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [COUNT_COMMAND]) VALUES (@PROFILE_ID, @CONN_ID, @SQL_COMMAND, @TAB_INDEX, @ACTIVE, @TAB_TITLE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @COUNT_COMMAND); +SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND +FROM TBCW_PROF_DATA_SEARCH +WHERE (PROFILE_ID = @PROFILE_ID) + + + + + + + + UPDATE [TBCW_PROF_DATA_SEARCH] SET [PROFILE_ID] = @PROFILE_ID, [CONN_ID] = @CONN_ID, [SQL_COMMAND] = @SQL_COMMAND, [TAB_INDEX] = @TAB_INDEX, [ACTIVE] = @ACTIVE, [TAB_TITLE] = @TAB_TITLE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COUNT_COMMAND] = @COUNT_COMMAND WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DBCW_Stammdaten.xss b/GUIs.ZooFlow/DBCW_Stammdaten.xss new file mode 100644 index 0000000..bf55cef --- /dev/null +++ b/GUIs.ZooFlow/DBCW_Stammdaten.xss @@ -0,0 +1,41 @@ + + + + + + + + + + + + + + + 285 + 78 + + + 429 + 78 + + + + + + + 285 + 107 + + + 828 + 107 + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DSDD_Stammdaten.Designer.vb b/GUIs.ZooFlow/DSDD_Stammdaten.Designer.vb new file mode 100644 index 0000000..356cea7 --- /dev/null +++ b/GUIs.ZooFlow/DSDD_Stammdaten.Designer.vb @@ -0,0 +1,4874 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class DSDD_Stammdaten + Inherits Global.System.Data.DataSet + + Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable + + Private tableTBDD_USER As TBDD_USERDataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("TBDD_CONNECTION")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION"))) + End If + If (Not (ds.Tables("TBDD_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_USERDataTable(ds.Tables("TBDD_USER"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable + Get + Return Me.tableTBDD_CONNECTION + End Get + End Property + + _ + Public ReadOnly Property TBDD_USER() As TBDD_USERDataTable + Get + Return Me.tableTBDD_USER + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As DSDD_Stammdaten = CType(MyBase.Clone,DSDD_Stammdaten) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("TBDD_CONNECTION")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION"))) + End If + If (Not (ds.Tables("TBDD_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_USERDataTable(ds.Tables("TBDD_USER"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableTBDD_CONNECTION = CType(MyBase.Tables("TBDD_CONNECTION"),TBDD_CONNECTIONDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_CONNECTION) Is Nothing) Then + Me.tableTBDD_CONNECTION.InitVars + End If + End If + Me.tableTBDD_USER = CType(MyBase.Tables("TBDD_USER"),TBDD_USERDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_USER) Is Nothing) Then + Me.tableTBDD_USER.InitVars + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DSDD_Stammdaten" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DSDD_Stammdaten.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableTBDD_CONNECTION = New TBDD_CONNECTIONDataTable() + MyBase.Tables.Add(Me.tableTBDD_CONNECTION) + Me.tableTBDD_USER = New TBDD_USERDataTable() + MyBase.Tables.Add(Me.tableTBDD_USER) + End Sub + + _ + Private Function ShouldSerializeTBDD_CONNECTION() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_USER() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As DSDD_Stammdaten = New DSDD_Stammdaten() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent) + + _ + Public Delegate Sub TBDD_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USERRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_CONNECTIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_CONNECTIONRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnSQL_PROVIDER As Global.System.Data.DataColumn + + Private columnSERVER As Global.System.Data.DataColumn + + Private columnDATENBANK As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnPASSWORD As Global.System.Data.DataColumn + + Private columnBEMERKUNG As Global.System.Data.DataColumn + + Private columnAKTIV As Global.System.Data.DataColumn + + Private columnERSTELLTWER As Global.System.Data.DataColumn + + Private columnERSTELLTWANN As Global.System.Data.DataColumn + + Private columnGEANDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnSYS_CONNECTION As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_CONNECTION" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_PROVIDER + End Get + End Property + + _ + Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERVER + End Get + End Property + + _ + Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATENBANK + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPASSWORD + End Get + End Property + + _ + Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEMERKUNG + End Get + End Property + + _ + Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAKTIV + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWER + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWANN + End Get + End Property + + _ + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEANDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property SYS_CONNECTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSYS_CONNECTION + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CONNECTIONRow + Get + Return CType(Me.Rows(index),TBDD_CONNECTIONRow) + End Get + End Property + + _ + Public Event TBDD_CONNECTIONRowChanging As TBDD_CONNECTIONRowChangeEventHandler + + _ + Public Event TBDD_CONNECTIONRowChanged As TBDD_CONNECTIONRowChangeEventHandler + + _ + Public Event TBDD_CONNECTIONRowDeleting As TBDD_CONNECTIONRowChangeEventHandler + + _ + Public Event TBDD_CONNECTIONRowDeleted As TBDD_CONNECTIONRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal SYS_CONNECTION As Boolean) As TBDD_CONNECTIONRow + Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow,TBDD_CONNECTIONRow) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION} + rowTBDD_CONNECTIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_CONNECTIONRow) + Return rowTBDD_CONNECTIONRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Short) As TBDD_CONNECTIONRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CONNECTIONRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone,TBDD_CONNECTIONDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_CONNECTIONDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") + Me.columnSERVER = MyBase.Columns("SERVER") + Me.columnDATENBANK = MyBase.Columns("DATENBANK") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnPASSWORD = MyBase.Columns("PASSWORD") + Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") + Me.columnAKTIV = MyBase.Columns("AKTIV") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnSYS_CONNECTION = MyBase.Columns("SYS_CONNECTION") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_PROVIDER) + Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERVER) + Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATENBANK) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPASSWORD) + Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEMERKUNG) + Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAKTIV) + Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + 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.columnSYS_CONNECTION = New Global.System.Data.DataColumn("SYS_CONNECTION", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSYS_CONNECTION) + 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.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnSQL_PROVIDER.MaxLength = 50 + Me.columnSERVER.MaxLength = 150 + Me.columnDATENBANK.MaxLength = 100 + Me.columnUSERNAME.MaxLength = 100 + Me.columnPASSWORD.MaxLength = 100 + Me.columnBEMERKUNG.MaxLength = 400 + Me.columnAKTIV.AllowDBNull = false + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnGEANDERTWER.MaxLength = 50 + Me.columnSYS_CONNECTION.AllowDBNull = false + End Sub + + _ + Public Function NewTBDD_CONNECTIONRow() As TBDD_CONNECTIONRow + Return CType(Me.NewRow,TBDD_CONNECTIONRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_CONNECTIONRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_CONNECTIONRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_CONNECTIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowChanged(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_CONNECTIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowChanging(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_CONNECTIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowDeleted(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_CONNECTIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowDeleting(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSDD_Stammdaten = New DSDD_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_CONNECTIONDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_USERRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPRENAME As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnSHORTNAME As Global.System.Data.DataColumn + + Private columnEMAIL As Global.System.Data.DataColumn + + Private columnLANGUAGE As Global.System.Data.DataColumn + + Private columnGENERAL_VIEWER As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnWAN_ENVIRONMENT As Global.System.Data.DataColumn + + Private columnUSERID_FK_INT_ECM As Global.System.Data.DataColumn + + Private columnATTR_CHAR1 As Global.System.Data.DataColumn + + Private columnATTR_CHAR2 As Global.System.Data.DataColumn + + Private columnATTR_CHAR3 As Global.System.Data.DataColumn + + Private columnATTR_CHAR4 As Global.System.Data.DataColumn + + Private columnATTR_CHAR5 As Global.System.Data.DataColumn + + Private columnATTR_CHAR6 As Global.System.Data.DataColumn + + Private columnATTR_CHAR7 As Global.System.Data.DataColumn + + Private columnATTR_CHAR8 As Global.System.Data.DataColumn + + Private columnATTR_CHAR9 As Global.System.Data.DataColumn + + Private columnATTR_CHAR10 As Global.System.Data.DataColumn + + Private columnATTR_CHAR11 As Global.System.Data.DataColumn + + Private columnATTR_CHAR12 As Global.System.Data.DataColumn + + Private columnATTR_CHAR13 As Global.System.Data.DataColumn + + Private columnATTR_CHAR14 As Global.System.Data.DataColumn + + Private columnATTR_CHAR15 As Global.System.Data.DataColumn + + Private columnATTR_BIT1 As Global.System.Data.DataColumn + + Private columnATTR_BIT2 As Global.System.Data.DataColumn + + Private columnATTR_BIT3 As Global.System.Data.DataColumn + + Private columnATTR_BIT4 As Global.System.Data.DataColumn + + Private columnDELETED As Global.System.Data.DataColumn + + Private columnDELETED_WHEN As Global.System.Data.DataColumn + + Private columnDELETED_WHO As Global.System.Data.DataColumn + + Private columnDATE_FORMAT As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_USER" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPRENAME + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSHORTNAME + End Get + End Property + + _ + Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL + End Get + End Property + + _ + Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLANGUAGE + End Get + End Property + + _ + Public ReadOnly Property GENERAL_VIEWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGENERAL_VIEWER + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property WAN_ENVIRONMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWAN_ENVIRONMENT + End Get + End Property + + _ + Public ReadOnly Property USERID_FK_INT_ECMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERID_FK_INT_ECM + End Get + End Property + + _ + Public ReadOnly Property ATTR_CHAR1Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_CHAR1 + End Get + End Property + + _ + Public ReadOnly Property ATTR_CHAR2Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_CHAR2 + End Get + End Property + + _ + Public ReadOnly Property ATTR_CHAR3Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_CHAR3 + End Get + End Property + + _ + Public ReadOnly Property ATTR_CHAR4Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_CHAR4 + End Get + End Property + + _ + Public ReadOnly Property ATTR_CHAR5Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_CHAR5 + End Get + End Property + + _ + Public ReadOnly Property ATTR_CHAR6Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_CHAR6 + End Get + End Property + + _ + Public ReadOnly Property ATTR_CHAR7Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_CHAR7 + End Get + End Property + + _ + Public ReadOnly Property ATTR_CHAR8Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_CHAR8 + End Get + End Property + + _ + Public ReadOnly Property ATTR_CHAR9Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_CHAR9 + End Get + End Property + + _ + Public ReadOnly Property ATTR_CHAR10Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_CHAR10 + End Get + End Property + + _ + Public ReadOnly Property ATTR_CHAR11Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_CHAR11 + End Get + End Property + + _ + Public ReadOnly Property ATTR_CHAR12Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_CHAR12 + End Get + End Property + + _ + Public ReadOnly Property ATTR_CHAR13Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_CHAR13 + End Get + End Property + + _ + Public ReadOnly Property ATTR_CHAR14Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_CHAR14 + End Get + End Property + + _ + Public ReadOnly Property ATTR_CHAR15Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_CHAR15 + End Get + End Property + + _ + Public ReadOnly Property ATTR_BIT1Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_BIT1 + End Get + End Property + + _ + Public ReadOnly Property ATTR_BIT2Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_BIT2 + End Get + End Property + + _ + Public ReadOnly Property ATTR_BIT3Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_BIT3 + End Get + End Property + + _ + Public ReadOnly Property ATTR_BIT4Column() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_BIT4 + End Get + End Property + + _ + Public ReadOnly Property DELETEDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDELETED + End Get + End Property + + _ + Public ReadOnly Property DELETED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDELETED_WHEN + End Get + End Property + + _ + Public ReadOnly Property DELETED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDELETED_WHO + End Get + End Property + + _ + Public ReadOnly Property DATE_FORMATColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATE_FORMAT + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USERRow + Get + Return CType(Me.Rows(index),TBDD_USERRow) + End Get + End Property + + _ + Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler + + _ + Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler + + _ + Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler + + _ + Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_USERRow( _ + ByVal PRENAME As String, _ + ByVal NAME As String, _ + ByVal USERNAME As String, _ + ByVal SHORTNAME As String, _ + ByVal EMAIL As String, _ + ByVal LANGUAGE As String, _ + ByVal GENERAL_VIEWER As String, _ + ByVal COMMENT As String, _ + ByVal WAN_ENVIRONMENT As Boolean, _ + ByVal USERID_FK_INT_ECM As Integer, _ + ByVal ATTR_CHAR1 As String, _ + ByVal ATTR_CHAR2 As String, _ + ByVal ATTR_CHAR3 As String, _ + ByVal ATTR_CHAR4 As String, _ + ByVal ATTR_CHAR5 As String, _ + ByVal ATTR_CHAR6 As String, _ + ByVal ATTR_CHAR7 As String, _ + ByVal ATTR_CHAR8 As String, _ + ByVal ATTR_CHAR9 As String, _ + ByVal ATTR_CHAR10 As String, _ + ByVal ATTR_CHAR11 As String, _ + ByVal ATTR_CHAR12 As String, _ + ByVal ATTR_CHAR13 As String, _ + ByVal ATTR_CHAR14 As String, _ + ByVal ATTR_CHAR15 As String, _ + ByVal ATTR_BIT1 As Boolean, _ + ByVal ATTR_BIT2 As Boolean, _ + ByVal ATTR_BIT3 As Boolean, _ + ByVal ATTR_BIT4 As Boolean, _ + ByVal DELETED As Boolean, _ + ByVal DELETED_WHEN As Date, _ + ByVal DELETED_WHO As Date, _ + ByVal DATE_FORMAT As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date) As TBDD_USERRow + Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, SHORTNAME, EMAIL, LANGUAGE, GENERAL_VIEWER, COMMENT, WAN_ENVIRONMENT, USERID_FK_INT_ECM, ATTR_CHAR1, ATTR_CHAR2, ATTR_CHAR3, ATTR_CHAR4, ATTR_CHAR5, ATTR_CHAR6, ATTR_CHAR7, ATTR_CHAR8, ATTR_CHAR9, ATTR_CHAR10, ATTR_CHAR11, ATTR_CHAR12, ATTR_CHAR13, ATTR_CHAR14, ATTR_CHAR15, ATTR_BIT1, ATTR_BIT2, ATTR_BIT3, ATTR_BIT4, DELETED, DELETED_WHEN, DELETED_WHO, DATE_FORMAT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBDD_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_USERRow) + Return rowTBDD_USERRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USERRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_USERDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPRENAME = MyBase.Columns("PRENAME") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") + Me.columnEMAIL = MyBase.Columns("EMAIL") + Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") + Me.columnGENERAL_VIEWER = MyBase.Columns("GENERAL_VIEWER") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnWAN_ENVIRONMENT = MyBase.Columns("WAN_ENVIRONMENT") + Me.columnUSERID_FK_INT_ECM = MyBase.Columns("USERID_FK_INT_ECM") + Me.columnATTR_CHAR1 = MyBase.Columns("ATTR_CHAR1") + Me.columnATTR_CHAR2 = MyBase.Columns("ATTR_CHAR2") + Me.columnATTR_CHAR3 = MyBase.Columns("ATTR_CHAR3") + Me.columnATTR_CHAR4 = MyBase.Columns("ATTR_CHAR4") + Me.columnATTR_CHAR5 = MyBase.Columns("ATTR_CHAR5") + Me.columnATTR_CHAR6 = MyBase.Columns("ATTR_CHAR6") + Me.columnATTR_CHAR7 = MyBase.Columns("ATTR_CHAR7") + Me.columnATTR_CHAR8 = MyBase.Columns("ATTR_CHAR8") + Me.columnATTR_CHAR9 = MyBase.Columns("ATTR_CHAR9") + Me.columnATTR_CHAR10 = MyBase.Columns("ATTR_CHAR10") + Me.columnATTR_CHAR11 = MyBase.Columns("ATTR_CHAR11") + Me.columnATTR_CHAR12 = MyBase.Columns("ATTR_CHAR12") + Me.columnATTR_CHAR13 = MyBase.Columns("ATTR_CHAR13") + Me.columnATTR_CHAR14 = MyBase.Columns("ATTR_CHAR14") + Me.columnATTR_CHAR15 = MyBase.Columns("ATTR_CHAR15") + Me.columnATTR_BIT1 = MyBase.Columns("ATTR_BIT1") + Me.columnATTR_BIT2 = MyBase.Columns("ATTR_BIT2") + Me.columnATTR_BIT3 = MyBase.Columns("ATTR_BIT3") + Me.columnATTR_BIT4 = MyBase.Columns("ATTR_BIT4") + Me.columnDELETED = MyBase.Columns("DELETED") + Me.columnDELETED_WHEN = MyBase.Columns("DELETED_WHEN") + Me.columnDELETED_WHO = MyBase.Columns("DELETED_WHO") + Me.columnDATE_FORMAT = MyBase.Columns("DATE_FORMAT") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRENAME) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnSHORTNAME = New Global.System.Data.DataColumn("SHORTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSHORTNAME) + Me.columnEMAIL = New Global.System.Data.DataColumn("EMAIL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL) + Me.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLANGUAGE) + Me.columnGENERAL_VIEWER = New Global.System.Data.DataColumn("GENERAL_VIEWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGENERAL_VIEWER) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnWAN_ENVIRONMENT = New Global.System.Data.DataColumn("WAN_ENVIRONMENT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWAN_ENVIRONMENT) + Me.columnUSERID_FK_INT_ECM = New Global.System.Data.DataColumn("USERID_FK_INT_ECM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERID_FK_INT_ECM) + Me.columnATTR_CHAR1 = New Global.System.Data.DataColumn("ATTR_CHAR1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_CHAR1) + Me.columnATTR_CHAR2 = New Global.System.Data.DataColumn("ATTR_CHAR2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_CHAR2) + Me.columnATTR_CHAR3 = New Global.System.Data.DataColumn("ATTR_CHAR3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_CHAR3) + Me.columnATTR_CHAR4 = New Global.System.Data.DataColumn("ATTR_CHAR4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_CHAR4) + Me.columnATTR_CHAR5 = New Global.System.Data.DataColumn("ATTR_CHAR5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_CHAR5) + Me.columnATTR_CHAR6 = New Global.System.Data.DataColumn("ATTR_CHAR6", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_CHAR6) + Me.columnATTR_CHAR7 = New Global.System.Data.DataColumn("ATTR_CHAR7", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_CHAR7) + Me.columnATTR_CHAR8 = New Global.System.Data.DataColumn("ATTR_CHAR8", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_CHAR8) + Me.columnATTR_CHAR9 = New Global.System.Data.DataColumn("ATTR_CHAR9", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_CHAR9) + Me.columnATTR_CHAR10 = New Global.System.Data.DataColumn("ATTR_CHAR10", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_CHAR10) + Me.columnATTR_CHAR11 = New Global.System.Data.DataColumn("ATTR_CHAR11", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_CHAR11) + Me.columnATTR_CHAR12 = New Global.System.Data.DataColumn("ATTR_CHAR12", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_CHAR12) + Me.columnATTR_CHAR13 = New Global.System.Data.DataColumn("ATTR_CHAR13", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_CHAR13) + Me.columnATTR_CHAR14 = New Global.System.Data.DataColumn("ATTR_CHAR14", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_CHAR14) + Me.columnATTR_CHAR15 = New Global.System.Data.DataColumn("ATTR_CHAR15", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_CHAR15) + Me.columnATTR_BIT1 = New Global.System.Data.DataColumn("ATTR_BIT1", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_BIT1) + Me.columnATTR_BIT2 = New Global.System.Data.DataColumn("ATTR_BIT2", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_BIT2) + Me.columnATTR_BIT3 = New Global.System.Data.DataColumn("ATTR_BIT3", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_BIT3) + Me.columnATTR_BIT4 = New Global.System.Data.DataColumn("ATTR_BIT4", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_BIT4) + Me.columnDELETED = New Global.System.Data.DataColumn("DELETED", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDELETED) + Me.columnDELETED_WHEN = New Global.System.Data.DataColumn("DELETED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDELETED_WHEN) + Me.columnDELETED_WHO = New Global.System.Data.DataColumn("DELETED_WHO", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDELETED_WHO) + Me.columnDATE_FORMAT = New Global.System.Data.DataColumn("DATE_FORMAT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATE_FORMAT) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + 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.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnPRENAME.MaxLength = 50 + Me.columnNAME.MaxLength = 50 + Me.columnUSERNAME.AllowDBNull = false + Me.columnUSERNAME.MaxLength = 50 + Me.columnSHORTNAME.MaxLength = 30 + Me.columnEMAIL.MaxLength = 100 + Me.columnLANGUAGE.AllowDBNull = false + Me.columnLANGUAGE.MaxLength = 5 + Me.columnGENERAL_VIEWER.AllowDBNull = false + Me.columnGENERAL_VIEWER.MaxLength = 30 + Me.columnCOMMENT.MaxLength = 500 + Me.columnWAN_ENVIRONMENT.AllowDBNull = false + Me.columnUSERID_FK_INT_ECM.AllowDBNull = false + Me.columnATTR_CHAR1.MaxLength = 250 + Me.columnATTR_CHAR2.MaxLength = 250 + Me.columnATTR_CHAR3.MaxLength = 250 + Me.columnATTR_CHAR4.MaxLength = 250 + Me.columnATTR_CHAR5.MaxLength = 250 + Me.columnATTR_CHAR6.MaxLength = 250 + Me.columnATTR_CHAR7.MaxLength = 250 + Me.columnATTR_CHAR8.MaxLength = 250 + Me.columnATTR_CHAR9.MaxLength = 250 + Me.columnATTR_CHAR10.MaxLength = 250 + Me.columnATTR_CHAR11.MaxLength = 250 + Me.columnATTR_CHAR12.MaxLength = 250 + Me.columnATTR_CHAR13.MaxLength = 250 + Me.columnATTR_CHAR14.MaxLength = 250 + Me.columnATTR_CHAR15.MaxLength = 250 + Me.columnATTR_BIT1.AllowDBNull = false + Me.columnATTR_BIT2.AllowDBNull = false + Me.columnATTR_BIT3.AllowDBNull = false + Me.columnATTR_BIT4.AllowDBNull = false + Me.columnDELETED.AllowDBNull = false + Me.columnDATE_FORMAT.AllowDBNull = false + Me.columnDATE_FORMAT.MaxLength = 10 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_USERRow() As TBDD_USERRow + Return CType(Me.NewRow,TBDD_USERRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_USERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_USERRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowChanged(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowChanging(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowDeleted(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowDeleting(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSDD_Stammdaten = New DSDD_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_USERDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_CONNECTIONRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable) + End Sub + + _ + Public Property GUID() As Short + Get + Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) + End Get + Set + Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property SQL_PROVIDER() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value + End Set + End Property + + _ + Public Property SERVER() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value + End Set + End Property + + _ + Public Property DATENBANK() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property PASSWORD() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value + End Set + End Property + + _ + Public Property BEMERKUNG() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value + End Set + End Property + + _ + Public Property AKTIV() As Boolean + Get + Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWER() As String + Get + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) + End Get + Set + Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value + End Set + End Property + + _ + Public Property GEANDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property SYS_CONNECTION() As Boolean + Get + Return CType(Me(Me.tableTBDD_CONNECTION.SYS_CONNECTIONColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_CONNECTION.SYS_CONNECTIONColumn) = value + End Set + End Property + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) + End Function + + _ + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSQL_PROVIDERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) + End Function + + _ + Public Sub SetSQL_PROVIDERNull() + Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERVERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) + End Function + + _ + Public Sub SetSERVERNull() + Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATENBANKNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) + End Function + + _ + Public Sub SetDATENBANKNull() + Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) + End Function + + _ + Public Sub SetUSERNAMENull() + Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPASSWORDNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) + End Function + + _ + Public Sub SetPASSWORDNull() + Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBEMERKUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) + End Function + + _ + Public Sub SetBEMERKUNGNull() + Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) + End Function + + _ + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_USERRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_USER As TBDD_USERDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_USER.GUIDColumn) = value + End Set + End Property + + _ + Public Property PRENAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.PRENAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.PRENAMEColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.NAMEColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_USER.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property SHORTNAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.SHORTNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORTNAME in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.SHORTNAMEColumn) = value + End Set + End Property + + _ + Public Property EMAIL() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.EMAILColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.EMAILColumn) = value + End Set + End Property + + _ + Public Property LANGUAGE() As String + Get + Return CType(Me(Me.tableTBDD_USER.LANGUAGEColumn),String) + End Get + Set + Me(Me.tableTBDD_USER.LANGUAGEColumn) = value + End Set + End Property + + _ + Public Property GENERAL_VIEWER() As String + Get + Return CType(Me(Me.tableTBDD_USER.GENERAL_VIEWERColumn),String) + End Get + Set + Me(Me.tableTBDD_USER.GENERAL_VIEWERColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.COMMENTColumn) = value + End Set + End Property + + _ + Public Property WAN_ENVIRONMENT() As Boolean + Get + Return CType(Me(Me.tableTBDD_USER.WAN_ENVIRONMENTColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_USER.WAN_ENVIRONMENTColumn) = value + End Set + End Property + + _ + Public Property USERID_FK_INT_ECM() As Integer + Get + Return CType(Me(Me.tableTBDD_USER.USERID_FK_INT_ECMColumn),Integer) + End Get + Set + Me(Me.tableTBDD_USER.USERID_FK_INT_ECMColumn) = value + End Set + End Property + + _ + Public Property ATTR_CHAR1() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR1 in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ATTR_CHAR1Column) = value + End Set + End Property + + _ + Public Property ATTR_CHAR2() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR2 in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ATTR_CHAR2Column) = value + End Set + End Property + + _ + Public Property ATTR_CHAR3() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR3 in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ATTR_CHAR3Column) = value + End Set + End Property + + _ + Public Property ATTR_CHAR4() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR4Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR4 in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ATTR_CHAR4Column) = value + End Set + End Property + + _ + Public Property ATTR_CHAR5() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR5Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR5 in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ATTR_CHAR5Column) = value + End Set + End Property + + _ + Public Property ATTR_CHAR6() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR6Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR6 in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ATTR_CHAR6Column) = value + End Set + End Property + + _ + Public Property ATTR_CHAR7() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR7Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR7 in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ATTR_CHAR7Column) = value + End Set + End Property + + _ + Public Property ATTR_CHAR8() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR8Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR8 in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ATTR_CHAR8Column) = value + End Set + End Property + + _ + Public Property ATTR_CHAR9() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR9Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR9 in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ATTR_CHAR9Column) = value + End Set + End Property + + _ + Public Property ATTR_CHAR10() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR10Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR10 in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ATTR_CHAR10Column) = value + End Set + End Property + + _ + Public Property ATTR_CHAR11() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR11Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR11 in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ATTR_CHAR11Column) = value + End Set + End Property + + _ + Public Property ATTR_CHAR12() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR12Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR12 in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ATTR_CHAR12Column) = value + End Set + End Property + + _ + Public Property ATTR_CHAR13() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR13Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR13 in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ATTR_CHAR13Column) = value + End Set + End Property + + _ + Public Property ATTR_CHAR14() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR14Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR14 in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ATTR_CHAR14Column) = value + End Set + End Property + + _ + Public Property ATTR_CHAR15() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR15Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR15 in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ATTR_CHAR15Column) = value + End Set + End Property + + _ + Public Property ATTR_BIT1() As Boolean + Get + Return CType(Me(Me.tableTBDD_USER.ATTR_BIT1Column),Boolean) + End Get + Set + Me(Me.tableTBDD_USER.ATTR_BIT1Column) = value + End Set + End Property + + _ + Public Property ATTR_BIT2() As Boolean + Get + Return CType(Me(Me.tableTBDD_USER.ATTR_BIT2Column),Boolean) + End Get + Set + Me(Me.tableTBDD_USER.ATTR_BIT2Column) = value + End Set + End Property + + _ + Public Property ATTR_BIT3() As Boolean + Get + Return CType(Me(Me.tableTBDD_USER.ATTR_BIT3Column),Boolean) + End Get + Set + Me(Me.tableTBDD_USER.ATTR_BIT3Column) = value + End Set + End Property + + _ + Public Property ATTR_BIT4() As Boolean + Get + Return CType(Me(Me.tableTBDD_USER.ATTR_BIT4Column),Boolean) + End Get + Set + Me(Me.tableTBDD_USER.ATTR_BIT4Column) = value + End Set + End Property + + _ + Public Property DELETED() As Boolean + Get + Return CType(Me(Me.tableTBDD_USER.DELETEDColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_USER.DELETEDColumn) = value + End Set + End Property + + _ + Public Property DELETED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.DELETED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DELETED_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.DELETED_WHENColumn) = value + End Set + End Property + + _ + Public Property DELETED_WHO() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.DELETED_WHOColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DELETED_WHO in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.DELETED_WHOColumn) = value + End Set + End Property + + _ + Public Property DATE_FORMAT() As String + Get + Return CType(Me(Me.tableTBDD_USER.DATE_FORMATColumn),String) + End Get + Set + Me(Me.tableTBDD_USER.DATE_FORMATColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsPRENAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn) + End Function + + _ + Public Sub SetPRENAMENull() + Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSHORTNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.SHORTNAMEColumn) + End Function + + _ + Public Sub SetSHORTNAMENull() + Me(Me.tableTBDD_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAILNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn) + End Function + + _ + Public Sub SetEMAILNull() + Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_USER.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_CHAR1Null() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR1Column) + End Function + + _ + Public Sub SetATTR_CHAR1Null() + Me(Me.tableTBDD_USER.ATTR_CHAR1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_CHAR2Null() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR2Column) + End Function + + _ + Public Sub SetATTR_CHAR2Null() + Me(Me.tableTBDD_USER.ATTR_CHAR2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_CHAR3Null() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR3Column) + End Function + + _ + Public Sub SetATTR_CHAR3Null() + Me(Me.tableTBDD_USER.ATTR_CHAR3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_CHAR4Null() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR4Column) + End Function + + _ + Public Sub SetATTR_CHAR4Null() + Me(Me.tableTBDD_USER.ATTR_CHAR4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_CHAR5Null() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR5Column) + End Function + + _ + Public Sub SetATTR_CHAR5Null() + Me(Me.tableTBDD_USER.ATTR_CHAR5Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_CHAR6Null() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR6Column) + End Function + + _ + Public Sub SetATTR_CHAR6Null() + Me(Me.tableTBDD_USER.ATTR_CHAR6Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_CHAR7Null() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR7Column) + End Function + + _ + Public Sub SetATTR_CHAR7Null() + Me(Me.tableTBDD_USER.ATTR_CHAR7Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_CHAR8Null() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR8Column) + End Function + + _ + Public Sub SetATTR_CHAR8Null() + Me(Me.tableTBDD_USER.ATTR_CHAR8Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_CHAR9Null() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR9Column) + End Function + + _ + Public Sub SetATTR_CHAR9Null() + Me(Me.tableTBDD_USER.ATTR_CHAR9Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_CHAR10Null() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR10Column) + End Function + + _ + Public Sub SetATTR_CHAR10Null() + Me(Me.tableTBDD_USER.ATTR_CHAR10Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_CHAR11Null() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR11Column) + End Function + + _ + Public Sub SetATTR_CHAR11Null() + Me(Me.tableTBDD_USER.ATTR_CHAR11Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_CHAR12Null() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR12Column) + End Function + + _ + Public Sub SetATTR_CHAR12Null() + Me(Me.tableTBDD_USER.ATTR_CHAR12Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_CHAR13Null() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR13Column) + End Function + + _ + Public Sub SetATTR_CHAR13Null() + Me(Me.tableTBDD_USER.ATTR_CHAR13Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_CHAR14Null() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR14Column) + End Function + + _ + Public Sub SetATTR_CHAR14Null() + Me(Me.tableTBDD_USER.ATTR_CHAR14Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_CHAR15Null() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR15Column) + End Function + + _ + Public Sub SetATTR_CHAR15Null() + Me(Me.tableTBDD_USER.ATTR_CHAR15Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDELETED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.DELETED_WHENColumn) + End Function + + _ + Public Sub SetDELETED_WHENNull() + Me(Me.tableTBDD_USER.DELETED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDELETED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.DELETED_WHOColumn) + End Function + + _ + Public Sub SetDELETED_WHONull() + Me(Me.tableTBDD_USER.DELETED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_CONNECTIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_CONNECTIONRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_CONNECTIONRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_USERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_USERRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace DSDD_StammdatenTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_CONNECTIONTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_CONNECTION" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") + tableMapping.ColumnMappings.Add("SERVER", "SERVER") + tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") + tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") + tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("SYS_CONNECTION", "SYS_CONNECTION") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_CONNECTION] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_BEZE"& _ + "ICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICHNUNG"& _ + ")) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER]"& _ + " = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR (["& _ + "SERVER] = @Original_SERVER)) AND ((@IsNull_DATENBANK = 1 AND [DATENBANK] IS NULL"& _ + ") OR ([DATENBANK] = @Original_DATENBANK)) AND ((@IsNull_USERNAME = 1 AND [USERNA"& _ + "ME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AN"& _ + "D [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_BEMERK"& _ + "UNG = 1 AND [BEMERKUNG] IS NULL) OR ([BEMERKUNG] = @Original_BEMERKUNG)) AND ([A"& _ + "KTIV] = @Original_AKTIV) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ((@IsNu"& _ + "ll_ERSTELLTWANN = 1 AND [ERSTELLTWANN] IS NULL) OR ([ERSTELLTWANN] = @Original_E"& _ + "RSTELLTWANN)) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEAN"& _ + "DERTWER] = @Original_GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDER"& _ + "TWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)) AND ([SYS_CONNEC"& _ + "TION] = @Original_SYS_CONNECTION))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEZEICHNUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_PROVIDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERVER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DATENBANK", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATENBANK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_USERNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PASSWORD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEMERKUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ERSTELLTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEANDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SYS_CONNECTION", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SYS_CONNECTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_CONNECTION] ([BEZEICHNUNG], [SQL_PROVIDER], [SERVER], [DATENBAN"& _ + "K], [USERNAME], [PASSWORD], [BEMERKUNG], [AKTIV], [ERSTELLTWER], [ERSTELLTWANN],"& _ + " [GEANDERTWER], [GEAENDERTWANN], [SYS_CONNECTION]) VALUES (@BEZEICHNUNG, @SQL_PR"& _ + "OVIDER, @SERVER, @DATENBANK, @USERNAME, @PASSWORD, @BEMERKUNG, @AKTIV, @ERSTELLT"& _ + "WER, @ERSTELLTWANN, @GEANDERTWER, @GEAENDERTWANN, @SYS_CONNECTION);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ + ", BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, A"& _ + "KTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION FROM"& _ + " TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" + 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, 0, 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("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SYS_CONNECTION", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SYS_CONNECTION", 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_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, SQL_"& _ + "PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @"& _ + "USERNAME, PASSWORD = @PASSWORD, BEMERKUNG = @BEMERKUNG, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " AKTIV = @AKTIV, ERSTELLTWER = @ERSTELLTWER, ERSTELLTWANN = @ERSTELLTWANN, GEA"& _ + "NDERTWER = @GEANDERTWER, GEAENDERTWANN = @GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " SYS_CONNECTION = @SYS_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SE"& _ + "LECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEM"& _ + "ERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNEC"& _ + "TION FROM TBDD_CONNECTION 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, 100, 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("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SYS_CONNECTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SYS_CONNECTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, 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.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT * FROM TBDD_CONNECTION" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSDD_Stammdaten.TBDD_CONNECTIONDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DSDD_Stammdaten.TBDD_CONNECTIONDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSDD_Stammdaten.TBDD_CONNECTIONDataTable = New DSDD_Stammdaten.TBDD_CONNECTIONDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSDD_Stammdaten.TBDD_CONNECTIONDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSDD_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_USERTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_USER" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") + tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") + tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") + tableMapping.ColumnMappings.Add("GENERAL_VIEWER", "GENERAL_VIEWER") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("WAN_ENVIRONMENT", "WAN_ENVIRONMENT") + tableMapping.ColumnMappings.Add("USERID_FK_INT_ECM", "USERID_FK_INT_ECM") + tableMapping.ColumnMappings.Add("ATTR_CHAR1", "ATTR_CHAR1") + tableMapping.ColumnMappings.Add("ATTR_CHAR2", "ATTR_CHAR2") + tableMapping.ColumnMappings.Add("ATTR_CHAR3", "ATTR_CHAR3") + tableMapping.ColumnMappings.Add("ATTR_CHAR4", "ATTR_CHAR4") + tableMapping.ColumnMappings.Add("ATTR_CHAR5", "ATTR_CHAR5") + tableMapping.ColumnMappings.Add("ATTR_CHAR6", "ATTR_CHAR6") + tableMapping.ColumnMappings.Add("ATTR_CHAR7", "ATTR_CHAR7") + tableMapping.ColumnMappings.Add("ATTR_CHAR8", "ATTR_CHAR8") + tableMapping.ColumnMappings.Add("ATTR_CHAR9", "ATTR_CHAR9") + tableMapping.ColumnMappings.Add("ATTR_CHAR10", "ATTR_CHAR10") + tableMapping.ColumnMappings.Add("ATTR_CHAR11", "ATTR_CHAR11") + tableMapping.ColumnMappings.Add("ATTR_CHAR12", "ATTR_CHAR12") + tableMapping.ColumnMappings.Add("ATTR_CHAR13", "ATTR_CHAR13") + tableMapping.ColumnMappings.Add("ATTR_CHAR14", "ATTR_CHAR14") + tableMapping.ColumnMappings.Add("ATTR_CHAR15", "ATTR_CHAR15") + tableMapping.ColumnMappings.Add("ATTR_BIT1", "ATTR_BIT1") + tableMapping.ColumnMappings.Add("ATTR_BIT2", "ATTR_BIT2") + tableMapping.ColumnMappings.Add("ATTR_BIT3", "ATTR_BIT3") + tableMapping.ColumnMappings.Add("ATTR_BIT4", "ATTR_BIT4") + tableMapping.ColumnMappings.Add("DELETED", "DELETED") + tableMapping.ColumnMappings.Add("DELETED_WHEN", "DELETED_WHEN") + tableMapping.ColumnMappings.Add("DELETED_WHO", "DELETED_WHO") + tableMapping.ColumnMappings.Add("DATE_FORMAT", "DATE_FORMAT") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_USER] ([PRENAME], [NAME], [USERNAME], [SHORTNAME], [EMAIL], [LA"& _ + "NGUAGE], [GENERAL_VIEWER], [COMMENT], [WAN_ENVIRONMENT], [USERID_FK_INT_ECM], [A"& _ + "TTR_CHAR1], [ATTR_CHAR2], [ATTR_CHAR3], [ATTR_CHAR4], [ATTR_CHAR5], [ATTR_CHAR6]"& _ + ", [ATTR_CHAR7], [ATTR_CHAR8], [ATTR_CHAR9], [ATTR_CHAR10], [ATTR_CHAR11], [ATTR_"& _ + "CHAR12], [ATTR_CHAR13], [ATTR_CHAR14], [ATTR_CHAR15], [ATTR_BIT1], [ATTR_BIT2], "& _ + "[ATTR_BIT3], [ATTR_BIT4], [DELETED], [DELETED_WHEN], [DELETED_WHO], [DATE_FORMAT"& _ + "], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@PRENAME, @"& _ + "NAME, @USERNAME, @SHORTNAME, @EMAIL, @LANGUAGE, @GENERAL_VIEWER, @COMMENT, @WAN_"& _ + "ENVIRONMENT, @USERID_FK_INT_ECM, @ATTR_CHAR1, @ATTR_CHAR2, @ATTR_CHAR3, @ATTR_CH"& _ + "AR4, @ATTR_CHAR5, @ATTR_CHAR6, @ATTR_CHAR7, @ATTR_CHAR8, @ATTR_CHAR9, @ATTR_CHAR"& _ + "10, @ATTR_CHAR11, @ATTR_CHAR12, @ATTR_CHAR13, @ATTR_CHAR14, @ATTR_CHAR15, @ATTR_"& _ + "BIT1, @ATTR_BIT2, @ATTR_BIT3, @ATTR_BIT4, @DELETED, @DELETED_WHEN, @DELETED_WHO,"& _ + " @DATE_FORMAT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _ + "ID, PRENAME, NAME, USERNAME, SHORTNAME, EMAIL, LANGUAGE, GENERAL_VIEWER, COMMENT"& _ + ", WAN_ENVIRONMENT, USERID_FK_INT_ECM, ATTR_CHAR1, ATTR_CHAR2, ATTR_CHAR3, ATTR_C"& _ + "HAR4, ATTR_CHAR5, ATTR_CHAR6, ATTR_CHAR7, ATTR_CHAR8, ATTR_CHAR9, ATTR_CHAR10, A"& _ + "TTR_CHAR11, ATTR_CHAR12, ATTR_CHAR13, ATTR_CHAR14, ATTR_CHAR15, ATTR_BIT1, ATTR_"& _ + "BIT2, ATTR_BIT3, ATTR_BIT4, DELETED, DELETED_WHEN, DELETED_WHO, DATE_FORMAT, ADD"& _ + "ED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = SCOPE"& _ + "_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, 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("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GENERAL_VIEWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GENERAL_VIEWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, 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("@WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERID_FK_INT_ECM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERID_FK_INT_ECM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR13", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR14", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR15", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_BIT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_BIT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETED_WHO", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATE_FORMAT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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_USER] SET [PRENAME] = @PRENAME, [NAME] = @NAME, [USERNAME] = @USERNA"& _ + "ME, [SHORTNAME] = @SHORTNAME, [EMAIL] = @EMAIL, [LANGUAGE] = @LANGUAGE, [GENERAL"& _ + "_VIEWER] = @GENERAL_VIEWER, [COMMENT] = @COMMENT, [WAN_ENVIRONMENT] = @WAN_ENVIR"& _ + "ONMENT, [USERID_FK_INT_ECM] = @USERID_FK_INT_ECM, [ATTR_CHAR1] = @ATTR_CHAR1, [A"& _ + "TTR_CHAR2] = @ATTR_CHAR2, [ATTR_CHAR3] = @ATTR_CHAR3, [ATTR_CHAR4] = @ATTR_CHAR4"& _ + ", [ATTR_CHAR5] = @ATTR_CHAR5, [ATTR_CHAR6] = @ATTR_CHAR6, [ATTR_CHAR7] = @ATTR_C"& _ + "HAR7, [ATTR_CHAR8] = @ATTR_CHAR8, [ATTR_CHAR9] = @ATTR_CHAR9, [ATTR_CHAR10] = @A"& _ + "TTR_CHAR10, [ATTR_CHAR11] = @ATTR_CHAR11, [ATTR_CHAR12] = @ATTR_CHAR12, [ATTR_CH"& _ + "AR13] = @ATTR_CHAR13, [ATTR_CHAR14] = @ATTR_CHAR14, [ATTR_CHAR15] = @ATTR_CHAR15"& _ + ", [ATTR_BIT1] = @ATTR_BIT1, [ATTR_BIT2] = @ATTR_BIT2, [ATTR_BIT3] = @ATTR_BIT3, "& _ + "[ATTR_BIT4] = @ATTR_BIT4, [DELETED] = @DELETED, [DELETED_WHEN] = @DELETED_WHEN, "& _ + "[DELETED_WHO] = @DELETED_WHO, [DATE_FORMAT] = @DATE_FORMAT, [ADDED_WHO] = @ADDED"& _ + "_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] ="& _ + " @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_PRENAME = 1 AND [P"& _ + "RENAME] IS NULL) OR ([PRENAME] = @Original_PRENAME)) AND ((@IsNull_NAME = 1 AND "& _ + "[NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([USERNAME] = @Original_USERNA"& _ + "ME) AND ((@IsNull_SHORTNAME = 1 AND [SHORTNAME] IS NULL) OR ([SHORTNAME] = @Orig"& _ + "inal_SHORTNAME)) AND ((@IsNull_EMAIL = 1 AND [EMAIL] IS NULL) OR ([EMAIL] = @Ori"& _ + "ginal_EMAIL)) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([GENERAL_VIEWER] = @Ori"& _ + "ginal_GENERAL_VIEWER) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMM"& _ + "ENT] = @Original_COMMENT)) AND ([WAN_ENVIRONMENT] = @Original_WAN_ENVIRONMENT) A"& _ + "ND ([USERID_FK_INT_ECM] = @Original_USERID_FK_INT_ECM) AND ((@IsNull_ATTR_CHAR1 "& _ + "= 1 AND [ATTR_CHAR1] IS NULL) OR ([ATTR_CHAR1] = @Original_ATTR_CHAR1)) AND ((@I"& _ + "sNull_ATTR_CHAR2 = 1 AND [ATTR_CHAR2] IS NULL) OR ([ATTR_CHAR2] = @Original_ATTR"& _ + "_CHAR2)) AND ((@IsNull_ATTR_CHAR3 = 1 AND [ATTR_CHAR3] IS NULL) OR ([ATTR_CHAR3]"& _ + " = @Original_ATTR_CHAR3)) AND ((@IsNull_ATTR_CHAR4 = 1 AND [ATTR_CHAR4] IS NULL)"& _ + " OR ([ATTR_CHAR4] = @Original_ATTR_CHAR4)) AND ((@IsNull_ATTR_CHAR5 = 1 AND [ATT"& _ + "R_CHAR5] IS NULL) OR ([ATTR_CHAR5] = @Original_ATTR_CHAR5)) AND ((@IsNull_ATTR_C"& _ + "HAR6 = 1 AND [ATTR_CHAR6] IS NULL) OR ([ATTR_CHAR6] = @Original_ATTR_CHAR6)) AND"& _ + " ((@IsNull_ATTR_CHAR7 = 1 AND [ATTR_CHAR7] IS NULL) OR ([ATTR_CHAR7] = @Original"& _ + "_ATTR_CHAR7)) AND ((@IsNull_ATTR_CHAR8 = 1 AND [ATTR_CHAR8] IS NULL) OR ([ATTR_C"& _ + "HAR8] = @Original_ATTR_CHAR8)) AND ((@IsNull_ATTR_CHAR9 = 1 AND [ATTR_CHAR9] IS "& _ + "NULL) OR ([ATTR_CHAR9] = @Original_ATTR_CHAR9)) AND ((@IsNull_ATTR_CHAR10 = 1 AN"& _ + "D [ATTR_CHAR10] IS NULL) OR ([ATTR_CHAR10] = @Original_ATTR_CHAR10)) AND ((@IsNu"& _ + "ll_ATTR_CHAR11 = 1 AND [ATTR_CHAR11] IS NULL) OR ([ATTR_CHAR11] = @Original_ATTR"& _ + "_CHAR11)) AND ((@IsNull_ATTR_CHAR12 = 1 AND [ATTR_CHAR12] IS NULL) OR ([ATTR_CHA"& _ + "R12] = @Original_ATTR_CHAR12)) AND ((@IsNull_ATTR_CHAR13 = 1 AND [ATTR_CHAR13] I"& _ + "S NULL) OR ([ATTR_CHAR13] = @Original_ATTR_CHAR13)) AND ((@IsNull_ATTR_CHAR14 = "& _ + "1 AND [ATTR_CHAR14] IS NULL) OR ([ATTR_CHAR14] = @Original_ATTR_CHAR14)) AND ((@"& _ + "IsNull_ATTR_CHAR15 = 1 AND [ATTR_CHAR15] IS NULL) OR ([ATTR_CHAR15] = @Original_"& _ + "ATTR_CHAR15)) AND ([ATTR_BIT1] = @Original_ATTR_BIT1) AND ([ATTR_BIT2] = @Origin"& _ + "al_ATTR_BIT2) AND ([ATTR_BIT3] = @Original_ATTR_BIT3) AND ([ATTR_BIT4] = @Origin"& _ + "al_ATTR_BIT4) AND ([DELETED] = @Original_DELETED) AND ((@IsNull_DELETED_WHEN = 1"& _ + " AND [DELETED_WHEN] IS NULL) OR ([DELETED_WHEN] = @Original_DELETED_WHEN)) AND ("& _ + "(@IsNull_DELETED_WHO = 1 AND [DELETED_WHO] IS NULL) OR ([DELETED_WHO] = @Origina"& _ + "l_DELETED_WHO)) AND ([DATE_FORMAT] = @Original_DATE_FORMAT) AND ([ADDED_WHO] = @"& _ + "Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR (["& _ + "ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_"& _ + "WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_"& _ + "WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN"& _ + ")));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, SHORTNAME, EMAIL, LANGUAGE, GENERAL_"& _ + "VIEWER, COMMENT, WAN_ENVIRONMENT, USERID_FK_INT_ECM, ATTR_CHAR1, ATTR_CHAR2, ATT"& _ + "R_CHAR3, ATTR_CHAR4, ATTR_CHAR5, ATTR_CHAR6, ATTR_CHAR7, ATTR_CHAR8, ATTR_CHAR9,"& _ + " ATTR_CHAR10, ATTR_CHAR11, ATTR_CHAR12, ATTR_CHAR13, ATTR_CHAR14, ATTR_CHAR15, A"& _ + "TTR_BIT1, ATTR_BIT2, ATTR_BIT3, ATTR_BIT4, DELETED, DELETED_WHEN, DELETED_WHO, D"& _ + "ATE_FORMAT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHER"& _ + "E (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, 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("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GENERAL_VIEWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GENERAL_VIEWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, 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("@WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERID_FK_INT_ECM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERID_FK_INT_ECM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR11", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR12", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR13", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR14", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_CHAR15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR15", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_BIT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTR_BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_BIT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETED_WHO", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATE_FORMAT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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, 0, 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("@IsNull_PRENAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRENAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORTNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORTNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EMAIL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GENERAL_VIEWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GENERAL_VIEWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERID_FK_INT_ECM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERID_FK_INT_ECM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ATTR_CHAR1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_CHAR1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ATTR_CHAR2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_CHAR2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ATTR_CHAR3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_CHAR3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ATTR_CHAR4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_CHAR4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ATTR_CHAR5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_CHAR5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ATTR_CHAR6", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR6", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_CHAR6", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR6", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ATTR_CHAR7", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR7", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_CHAR7", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR7", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ATTR_CHAR8", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR8", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_CHAR8", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR8", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ATTR_CHAR9", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR9", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_CHAR9", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR9", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ATTR_CHAR10", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR10", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_CHAR10", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR10", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ATTR_CHAR11", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR11", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_CHAR11", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR11", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ATTR_CHAR12", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR12", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_CHAR12", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR12", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ATTR_CHAR13", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR13", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_CHAR13", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR13", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ATTR_CHAR14", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR14", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_CHAR14", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR14", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ATTR_CHAR15", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR15", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_CHAR15", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_CHAR15", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_BIT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_BIT2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_BIT3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ATTR_BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_BIT4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DELETED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETED", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DELETED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DELETED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DELETED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DELETED_WHO", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATE_FORMAT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT * FROM TBDD_USER WHERE GUID = @USER_ID" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSDD_Stammdaten.TBDD_USERDataTable, ByVal USER_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal USER_ID As Integer) As DSDD_Stammdaten.TBDD_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) + Dim dataTable As DSDD_Stammdaten.TBDD_USERDataTable = New DSDD_Stammdaten.TBDD_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSDD_Stammdaten.TBDD_USERDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSDD_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_USER") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal PRENAME As String, _ + ByVal NAME As String, _ + ByVal USERNAME As String, _ + ByVal SHORTNAME As String, _ + ByVal EMAIL As String, _ + ByVal LANGUAGE As String, _ + ByVal GENERAL_VIEWER As String, _ + ByVal COMMENT As String, _ + ByVal WAN_ENVIRONMENT As Boolean, _ + ByVal USERID_FK_INT_ECM As Integer, _ + ByVal ATTR_CHAR1 As String, _ + ByVal ATTR_CHAR2 As String, _ + ByVal ATTR_CHAR3 As String, _ + ByVal ATTR_CHAR4 As String, _ + ByVal ATTR_CHAR5 As String, _ + ByVal ATTR_CHAR6 As String, _ + ByVal ATTR_CHAR7 As String, _ + ByVal ATTR_CHAR8 As String, _ + ByVal ATTR_CHAR9 As String, _ + ByVal ATTR_CHAR10 As String, _ + ByVal ATTR_CHAR11 As String, _ + ByVal ATTR_CHAR12 As String, _ + ByVal ATTR_CHAR13 As String, _ + ByVal ATTR_CHAR14 As String, _ + ByVal ATTR_CHAR15 As String, _ + ByVal ATTR_BIT1 As Boolean, _ + ByVal ATTR_BIT2 As Boolean, _ + ByVal ATTR_BIT3 As Boolean, _ + ByVal ATTR_BIT4 As Boolean, _ + ByVal DELETED As Boolean, _ + ByVal DELETED_WHEN As Global.System.Nullable(Of Date), _ + ByVal DELETED_WHO As Global.System.Nullable(Of Date), _ + ByVal DATE_FORMAT As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (PRENAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String) + End If + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) + End If + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String) + End If + If (SHORTNAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(SHORTNAME,String) + End If + If (EMAIL Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(EMAIL,String) + End If + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE,String) + End If + If (GENERAL_VIEWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("GENERAL_VIEWER") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(GENERAL_VIEWER,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(COMMENT,String) + End If + Me.Adapter.InsertCommand.Parameters(8).Value = CType(WAN_ENVIRONMENT,Boolean) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(USERID_FK_INT_ECM,Integer) + If (ATTR_CHAR1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(ATTR_CHAR1,String) + End If + If (ATTR_CHAR2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(ATTR_CHAR2,String) + End If + If (ATTR_CHAR3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(ATTR_CHAR3,String) + End If + If (ATTR_CHAR4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(ATTR_CHAR4,String) + End If + If (ATTR_CHAR5 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(ATTR_CHAR5,String) + End If + If (ATTR_CHAR6 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(ATTR_CHAR6,String) + End If + If (ATTR_CHAR7 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(16).Value = CType(ATTR_CHAR7,String) + End If + If (ATTR_CHAR8 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(17).Value = CType(ATTR_CHAR8,String) + End If + If (ATTR_CHAR9 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(18).Value = CType(ATTR_CHAR9,String) + End If + If (ATTR_CHAR10 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(19).Value = CType(ATTR_CHAR10,String) + End If + If (ATTR_CHAR11 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(20).Value = CType(ATTR_CHAR11,String) + End If + If (ATTR_CHAR12 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(21).Value = CType(ATTR_CHAR12,String) + End If + If (ATTR_CHAR13 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(22).Value = CType(ATTR_CHAR13,String) + End If + If (ATTR_CHAR14 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(23).Value = CType(ATTR_CHAR14,String) + End If + If (ATTR_CHAR15 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(24).Value = CType(ATTR_CHAR15,String) + End If + Me.Adapter.InsertCommand.Parameters(25).Value = CType(ATTR_BIT1,Boolean) + Me.Adapter.InsertCommand.Parameters(26).Value = CType(ATTR_BIT2,Boolean) + Me.Adapter.InsertCommand.Parameters(27).Value = CType(ATTR_BIT3,Boolean) + Me.Adapter.InsertCommand.Parameters(28).Value = CType(ATTR_BIT4,Boolean) + Me.Adapter.InsertCommand.Parameters(29).Value = CType(DELETED,Boolean) + If (DELETED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(30).Value = CType(DELETED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value + End If + If (DELETED_WHO.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(31).Value = CType(DELETED_WHO.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value + End If + If (DATE_FORMAT Is Nothing) Then + Throw New Global.System.ArgumentNullException("DATE_FORMAT") + Else + Me.Adapter.InsertCommand.Parameters(32).Value = CType(DATE_FORMAT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(33).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(34).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(35).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(36).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal PRENAME As String, _ + ByVal NAME As String, _ + ByVal USERNAME As String, _ + ByVal SHORTNAME As String, _ + ByVal EMAIL As String, _ + ByVal LANGUAGE As String, _ + ByVal GENERAL_VIEWER As String, _ + ByVal COMMENT As String, _ + ByVal WAN_ENVIRONMENT As Boolean, _ + ByVal USERID_FK_INT_ECM As Integer, _ + ByVal ATTR_CHAR1 As String, _ + ByVal ATTR_CHAR2 As String, _ + ByVal ATTR_CHAR3 As String, _ + ByVal ATTR_CHAR4 As String, _ + ByVal ATTR_CHAR5 As String, _ + ByVal ATTR_CHAR6 As String, _ + ByVal ATTR_CHAR7 As String, _ + ByVal ATTR_CHAR8 As String, _ + ByVal ATTR_CHAR9 As String, _ + ByVal ATTR_CHAR10 As String, _ + ByVal ATTR_CHAR11 As String, _ + ByVal ATTR_CHAR12 As String, _ + ByVal ATTR_CHAR13 As String, _ + ByVal ATTR_CHAR14 As String, _ + ByVal ATTR_CHAR15 As String, _ + ByVal ATTR_BIT1 As Boolean, _ + ByVal ATTR_BIT2 As Boolean, _ + ByVal ATTR_BIT3 As Boolean, _ + ByVal ATTR_BIT4 As Boolean, _ + ByVal DELETED As Boolean, _ + ByVal DELETED_WHEN As Global.System.Nullable(Of Date), _ + ByVal DELETED_WHO As Global.System.Nullable(Of Date), _ + ByVal DATE_FORMAT As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_PRENAME As String, _ + ByVal Original_NAME As String, _ + ByVal Original_USERNAME As String, _ + ByVal Original_SHORTNAME As String, _ + ByVal Original_EMAIL As String, _ + ByVal Original_LANGUAGE As String, _ + ByVal Original_GENERAL_VIEWER As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_WAN_ENVIRONMENT As Boolean, _ + ByVal Original_USERID_FK_INT_ECM As Integer, _ + ByVal Original_ATTR_CHAR1 As String, _ + ByVal Original_ATTR_CHAR2 As String, _ + ByVal Original_ATTR_CHAR3 As String, _ + ByVal Original_ATTR_CHAR4 As String, _ + ByVal Original_ATTR_CHAR5 As String, _ + ByVal Original_ATTR_CHAR6 As String, _ + ByVal Original_ATTR_CHAR7 As String, _ + ByVal Original_ATTR_CHAR8 As String, _ + ByVal Original_ATTR_CHAR9 As String, _ + ByVal Original_ATTR_CHAR10 As String, _ + ByVal Original_ATTR_CHAR11 As String, _ + ByVal Original_ATTR_CHAR12 As String, _ + ByVal Original_ATTR_CHAR13 As String, _ + ByVal Original_ATTR_CHAR14 As String, _ + ByVal Original_ATTR_CHAR15 As String, _ + ByVal Original_ATTR_BIT1 As Boolean, _ + ByVal Original_ATTR_BIT2 As Boolean, _ + ByVal Original_ATTR_BIT3 As Boolean, _ + ByVal Original_ATTR_BIT4 As Boolean, _ + ByVal Original_DELETED As Boolean, _ + ByVal Original_DELETED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_DELETED_WHO As Global.System.Nullable(Of Date), _ + ByVal Original_DATE_FORMAT As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + If (PRENAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME,String) + End If + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) + End If + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME,String) + End If + If (SHORTNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SHORTNAME,String) + End If + If (EMAIL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL,String) + End If + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE,String) + End If + If (GENERAL_VIEWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("GENERAL_VIEWER") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GENERAL_VIEWER,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(WAN_ENVIRONMENT,Boolean) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(USERID_FK_INT_ECM,Integer) + If (ATTR_CHAR1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ATTR_CHAR1,String) + End If + If (ATTR_CHAR2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ATTR_CHAR2,String) + End If + If (ATTR_CHAR3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ATTR_CHAR3,String) + End If + If (ATTR_CHAR4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(ATTR_CHAR4,String) + End If + If (ATTR_CHAR5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(ATTR_CHAR5,String) + End If + If (ATTR_CHAR6 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(ATTR_CHAR6,String) + End If + If (ATTR_CHAR7 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(ATTR_CHAR7,String) + End If + If (ATTR_CHAR8 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(ATTR_CHAR8,String) + End If + If (ATTR_CHAR9 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(ATTR_CHAR9,String) + End If + If (ATTR_CHAR10 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(ATTR_CHAR10,String) + End If + If (ATTR_CHAR11 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(ATTR_CHAR11,String) + End If + If (ATTR_CHAR12 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(ATTR_CHAR12,String) + End If + If (ATTR_CHAR13 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(ATTR_CHAR13,String) + End If + If (ATTR_CHAR14 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(ATTR_CHAR14,String) + End If + If (ATTR_CHAR15 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(ATTR_CHAR15,String) + End If + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(ATTR_BIT1,Boolean) + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(ATTR_BIT2,Boolean) + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(ATTR_BIT3,Boolean) + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(ATTR_BIT4,Boolean) + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(DELETED,Boolean) + If (DELETED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(DELETED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value + End If + If (DELETED_WHO.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(DELETED_WHO.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + End If + If (DATE_FORMAT Is Nothing) Then + Throw New Global.System.ArgumentNullException("DATE_FORMAT") + Else + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(DATE_FORMAT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_GUID,Integer) + If (Original_PRENAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_PRENAME,String) + End If + If (Original_NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_NAME,String) + End If + If (Original_USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_USERNAME") + Else + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_USERNAME,String) + End If + If (Original_SHORTNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_SHORTNAME,String) + End If + If (Original_EMAIL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_EMAIL,String) + End If + If (Original_LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LANGUAGE") + Else + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_LANGUAGE,String) + End If + If (Original_GENERAL_VIEWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_GENERAL_VIEWER") + Else + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_GENERAL_VIEWER,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_WAN_ENVIRONMENT,Boolean) + Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_USERID_FK_INT_ECM,Integer) + If (Original_ATTR_CHAR1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_ATTR_CHAR1,String) + End If + If (Original_ATTR_CHAR2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_ATTR_CHAR2,String) + End If + If (Original_ATTR_CHAR3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_ATTR_CHAR3,String) + End If + If (Original_ATTR_CHAR4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(59).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(59).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Original_ATTR_CHAR4,String) + End If + If (Original_ATTR_CHAR5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(61).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(61).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Original_ATTR_CHAR5,String) + End If + If (Original_ATTR_CHAR6 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(63).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(63).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Original_ATTR_CHAR6,String) + End If + If (Original_ATTR_CHAR7 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(65).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(65).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Original_ATTR_CHAR7,String) + End If + If (Original_ATTR_CHAR8 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(67).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(67).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Original_ATTR_CHAR8,String) + End If + If (Original_ATTR_CHAR9 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(69).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(69).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Original_ATTR_CHAR9,String) + End If + If (Original_ATTR_CHAR10 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(71).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(71).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Original_ATTR_CHAR10,String) + End If + If (Original_ATTR_CHAR11 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(73).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(73).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Original_ATTR_CHAR11,String) + End If + If (Original_ATTR_CHAR12 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(75).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(75).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Original_ATTR_CHAR12,String) + End If + If (Original_ATTR_CHAR13 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(77).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(77).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_ATTR_CHAR13,String) + End If + If (Original_ATTR_CHAR14 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(79).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(79).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Original_ATTR_CHAR14,String) + End If + If (Original_ATTR_CHAR15 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(81).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(81).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Original_ATTR_CHAR15,String) + End If + Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Original_ATTR_BIT1,Boolean) + Me.Adapter.UpdateCommand.Parameters(84).Value = CType(Original_ATTR_BIT2,Boolean) + Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Original_ATTR_BIT3,Boolean) + Me.Adapter.UpdateCommand.Parameters(86).Value = CType(Original_ATTR_BIT4,Boolean) + Me.Adapter.UpdateCommand.Parameters(87).Value = CType(Original_DELETED,Boolean) + If (Original_DELETED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(88).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(89).Value = CType(Original_DELETED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(88).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value + End If + If (Original_DELETED_WHO.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(90).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(91).Value = CType(Original_DELETED_WHO.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(90).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value + End If + If (Original_DATE_FORMAT Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_DATE_FORMAT") + Else + Me.Adapter.UpdateCommand.Parameters(92).Value = CType(Original_DATE_FORMAT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(93).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(94).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(95).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(94).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(96).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(96).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(97).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(98).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(99).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(98).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(100).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal PRENAME As String, _ + ByVal NAME As String, _ + ByVal USERNAME As String, _ + ByVal SHORTNAME As String, _ + ByVal EMAIL As String, _ + ByVal LANGUAGE As String, _ + ByVal GENERAL_VIEWER As String, _ + ByVal COMMENT As String, _ + ByVal WAN_ENVIRONMENT As Boolean, _ + ByVal USERID_FK_INT_ECM As Integer, _ + ByVal ATTR_CHAR1 As String, _ + ByVal ATTR_CHAR2 As String, _ + ByVal ATTR_CHAR3 As String, _ + ByVal ATTR_CHAR4 As String, _ + ByVal ATTR_CHAR5 As String, _ + ByVal ATTR_CHAR6 As String, _ + ByVal ATTR_CHAR7 As String, _ + ByVal ATTR_CHAR8 As String, _ + ByVal ATTR_CHAR9 As String, _ + ByVal ATTR_CHAR10 As String, _ + ByVal ATTR_CHAR11 As String, _ + ByVal ATTR_CHAR12 As String, _ + ByVal ATTR_CHAR13 As String, _ + ByVal ATTR_CHAR14 As String, _ + ByVal ATTR_CHAR15 As String, _ + ByVal ATTR_BIT1 As Boolean, _ + ByVal ATTR_BIT2 As Boolean, _ + ByVal ATTR_BIT3 As Boolean, _ + ByVal ATTR_BIT4 As Boolean, _ + ByVal DELETED As Boolean, _ + ByVal DELETED_WHEN As Global.System.Nullable(Of Date), _ + ByVal DELETED_WHO As Global.System.Nullable(Of Date), _ + ByVal DATE_FORMAT As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_PRENAME As String, _ + ByVal Original_NAME As String, _ + ByVal Original_USERNAME As String, _ + ByVal Original_SHORTNAME As String, _ + ByVal Original_EMAIL As String, _ + ByVal Original_LANGUAGE As String, _ + ByVal Original_GENERAL_VIEWER As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_WAN_ENVIRONMENT As Boolean, _ + ByVal Original_USERID_FK_INT_ECM As Integer, _ + ByVal Original_ATTR_CHAR1 As String, _ + ByVal Original_ATTR_CHAR2 As String, _ + ByVal Original_ATTR_CHAR3 As String, _ + ByVal Original_ATTR_CHAR4 As String, _ + ByVal Original_ATTR_CHAR5 As String, _ + ByVal Original_ATTR_CHAR6 As String, _ + ByVal Original_ATTR_CHAR7 As String, _ + ByVal Original_ATTR_CHAR8 As String, _ + ByVal Original_ATTR_CHAR9 As String, _ + ByVal Original_ATTR_CHAR10 As String, _ + ByVal Original_ATTR_CHAR11 As String, _ + ByVal Original_ATTR_CHAR12 As String, _ + ByVal Original_ATTR_CHAR13 As String, _ + ByVal Original_ATTR_CHAR14 As String, _ + ByVal Original_ATTR_CHAR15 As String, _ + ByVal Original_ATTR_BIT1 As Boolean, _ + ByVal Original_ATTR_BIT2 As Boolean, _ + ByVal Original_ATTR_BIT3 As Boolean, _ + ByVal Original_ATTR_BIT4 As Boolean, _ + ByVal Original_DELETED As Boolean, _ + ByVal Original_DELETED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_DELETED_WHO As Global.System.Nullable(Of Date), _ + ByVal Original_DATE_FORMAT As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(PRENAME, NAME, USERNAME, SHORTNAME, EMAIL, LANGUAGE, GENERAL_VIEWER, COMMENT, WAN_ENVIRONMENT, USERID_FK_INT_ECM, ATTR_CHAR1, ATTR_CHAR2, ATTR_CHAR3, ATTR_CHAR4, ATTR_CHAR5, ATTR_CHAR6, ATTR_CHAR7, ATTR_CHAR8, ATTR_CHAR9, ATTR_CHAR10, ATTR_CHAR11, ATTR_CHAR12, ATTR_CHAR13, ATTR_CHAR14, ATTR_CHAR15, ATTR_BIT1, ATTR_BIT2, ATTR_BIT3, ATTR_BIT4, DELETED, DELETED_WHEN, DELETED_WHO, DATE_FORMAT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_PRENAME, Original_NAME, Original_USERNAME, Original_SHORTNAME, Original_EMAIL, Original_LANGUAGE, Original_GENERAL_VIEWER, Original_COMMENT, Original_WAN_ENVIRONMENT, Original_USERID_FK_INT_ECM, Original_ATTR_CHAR1, Original_ATTR_CHAR2, Original_ATTR_CHAR3, Original_ATTR_CHAR4, Original_ATTR_CHAR5, Original_ATTR_CHAR6, Original_ATTR_CHAR7, Original_ATTR_CHAR8, Original_ATTR_CHAR9, Original_ATTR_CHAR10, Original_ATTR_CHAR11, Original_ATTR_CHAR12, Original_ATTR_CHAR13, Original_ATTR_CHAR14, Original_ATTR_CHAR15, Original_ATTR_BIT1, Original_ATTR_BIT2, Original_ATTR_BIT3, Original_ATTR_BIT4, Original_DELETED, Original_DELETED_WHEN, Original_DELETED_WHO, Original_DATE_FORMAT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tBDD_CONNECTIONTableAdapter As TBDD_CONNECTIONTableAdapter + + Private _tBDD_USERTableAdapter As TBDD_USERTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property TBDD_CONNECTIONTableAdapter() As TBDD_CONNECTIONTableAdapter + Get + Return Me._tBDD_CONNECTIONTableAdapter + End Get + Set + Me._tBDD_CONNECTIONTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_USERTableAdapter() As TBDD_USERTableAdapter + Get + Return Me._tBDD_USERTableAdapter + End Get + Set + Me._tBDD_USERTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_CONNECTIONTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_CONNECTIONTableAdapter.Connection + End If + If ((Not (Me._tBDD_USERTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_USERTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_USERTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As DSDD_Stammdaten, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_USERTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As DSDD_Stammdaten, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_USERTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As DSDD_Stammdaten, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_USERTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As DSDD_Stammdaten) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_CONNECTIONTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_USERTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_USERTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ + "t.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_CONNECTIONTableAdapter, Me._tBDD_CONNECTIONTableAdapter.Connection) + Me._tBDD_CONNECTIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_CONNECTIONTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_CONNECTIONTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_USERTableAdapter, Me._tBDD_USERTableAdapter.Connection) + Me._tBDD_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_USERTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Me._tBDD_CONNECTIONTableAdapter.Connection = CType(revertConnections(Me._tBDD_CONNECTIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_CONNECTIONTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Me._tBDD_USERTableAdapter.Connection = CType(revertConnections(Me._tBDD_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_USERTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/GUIs.ZooFlow/DSDD_Stammdaten.xsc b/GUIs.ZooFlow/DSDD_Stammdaten.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/GUIs.ZooFlow/DSDD_Stammdaten.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DSDD_Stammdaten.xsd b/GUIs.ZooFlow/DSDD_Stammdaten.xsd new file mode 100644 index 0000000..d92d2f4 --- /dev/null +++ b/GUIs.ZooFlow/DSDD_Stammdaten.xsd @@ -0,0 +1,630 @@ + + + + + + + + + + + + + + + + DELETE FROM [TBDD_CONNECTION] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_BEZEICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICHNUNG)) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] = @Original_SERVER)) AND ((@IsNull_DATENBANK = 1 AND [DATENBANK] IS NULL) OR ([DATENBANK] = @Original_DATENBANK)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_BEMERKUNG = 1 AND [BEMERKUNG] IS NULL) OR ([BEMERKUNG] = @Original_BEMERKUNG)) AND ([AKTIV] = @Original_AKTIV) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ((@IsNull_ERSTELLTWANN = 1 AND [ERSTELLTWANN] IS NULL) OR ([ERSTELLTWANN] = @Original_ERSTELLTWANN)) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERTWER] = @Original_GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)) AND ([SYS_CONNECTION] = @Original_SYS_CONNECTION)) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO [TBDD_CONNECTION] ([BEZEICHNUNG], [SQL_PROVIDER], [SERVER], [DATENBANK], [USERNAME], [PASSWORD], [BEMERKUNG], [AKTIV], [ERSTELLTWER], [ERSTELLTWANN], [GEANDERTWER], [GEAENDERTWANN], [SYS_CONNECTION]) VALUES (@BEZEICHNUNG, @SQL_PROVIDER, @SERVER, @DATENBANK, @USERNAME, @PASSWORD, @BEMERKUNG, @AKTIV, @ERSTELLTWER, @ERSTELLTWANN, @GEANDERTWER, @GEAENDERTWANN, @SYS_CONNECTION); +SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + + + SELECT * FROM TBDD_CONNECTION + + + + + + UPDATE TBDD_CONNECTION +SET BEZEICHNUNG = @BEZEICHNUNG, SQL_PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @USERNAME, PASSWORD = @PASSWORD, BEMERKUNG = @BEMERKUNG, + AKTIV = @AKTIV, ERSTELLTWER = @ERSTELLTWER, ERSTELLTWANN = @ERSTELLTWANN, GEANDERTWER = @GEANDERTWER, GEAENDERTWANN = @GEAENDERTWANN, + SYS_CONNECTION = @SYS_CONNECTION +WHERE (GUID = @Original_GUID); +SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION FROM TBDD_CONNECTION WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBDD_USER +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO [TBDD_USER] ([PRENAME], [NAME], [USERNAME], [SHORTNAME], [EMAIL], [LANGUAGE], [GENERAL_VIEWER], [COMMENT], [WAN_ENVIRONMENT], [USERID_FK_INT_ECM], [ATTR_CHAR1], [ATTR_CHAR2], [ATTR_CHAR3], [ATTR_CHAR4], [ATTR_CHAR5], [ATTR_CHAR6], [ATTR_CHAR7], [ATTR_CHAR8], [ATTR_CHAR9], [ATTR_CHAR10], [ATTR_CHAR11], [ATTR_CHAR12], [ATTR_CHAR13], [ATTR_CHAR14], [ATTR_CHAR15], [ATTR_BIT1], [ATTR_BIT2], [ATTR_BIT3], [ATTR_BIT4], [DELETED], [DELETED_WHEN], [DELETED_WHO], [DATE_FORMAT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@PRENAME, @NAME, @USERNAME, @SHORTNAME, @EMAIL, @LANGUAGE, @GENERAL_VIEWER, @COMMENT, @WAN_ENVIRONMENT, @USERID_FK_INT_ECM, @ATTR_CHAR1, @ATTR_CHAR2, @ATTR_CHAR3, @ATTR_CHAR4, @ATTR_CHAR5, @ATTR_CHAR6, @ATTR_CHAR7, @ATTR_CHAR8, @ATTR_CHAR9, @ATTR_CHAR10, @ATTR_CHAR11, @ATTR_CHAR12, @ATTR_CHAR13, @ATTR_CHAR14, @ATTR_CHAR15, @ATTR_BIT1, @ATTR_BIT2, @ATTR_BIT3, @ATTR_BIT4, @DELETED, @DELETED_WHEN, @DELETED_WHO, @DATE_FORMAT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, PRENAME, NAME, USERNAME, SHORTNAME, EMAIL, LANGUAGE, GENERAL_VIEWER, COMMENT, WAN_ENVIRONMENT, USERID_FK_INT_ECM, ATTR_CHAR1, ATTR_CHAR2, ATTR_CHAR3, ATTR_CHAR4, ATTR_CHAR5, ATTR_CHAR6, ATTR_CHAR7, ATTR_CHAR8, ATTR_CHAR9, ATTR_CHAR10, ATTR_CHAR11, ATTR_CHAR12, ATTR_CHAR13, ATTR_CHAR14, ATTR_CHAR15, ATTR_BIT1, ATTR_BIT2, ATTR_BIT3, ATTR_BIT4, DELETED, DELETED_WHEN, DELETED_WHO, DATE_FORMAT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT * FROM TBDD_USER WHERE GUID = @USER_ID + + + + + + + + UPDATE [TBDD_USER] SET [PRENAME] = @PRENAME, [NAME] = @NAME, [USERNAME] = @USERNAME, [SHORTNAME] = @SHORTNAME, [EMAIL] = @EMAIL, [LANGUAGE] = @LANGUAGE, [GENERAL_VIEWER] = @GENERAL_VIEWER, [COMMENT] = @COMMENT, [WAN_ENVIRONMENT] = @WAN_ENVIRONMENT, [USERID_FK_INT_ECM] = @USERID_FK_INT_ECM, [ATTR_CHAR1] = @ATTR_CHAR1, [ATTR_CHAR2] = @ATTR_CHAR2, [ATTR_CHAR3] = @ATTR_CHAR3, [ATTR_CHAR4] = @ATTR_CHAR4, [ATTR_CHAR5] = @ATTR_CHAR5, [ATTR_CHAR6] = @ATTR_CHAR6, [ATTR_CHAR7] = @ATTR_CHAR7, [ATTR_CHAR8] = @ATTR_CHAR8, [ATTR_CHAR9] = @ATTR_CHAR9, [ATTR_CHAR10] = @ATTR_CHAR10, [ATTR_CHAR11] = @ATTR_CHAR11, [ATTR_CHAR12] = @ATTR_CHAR12, [ATTR_CHAR13] = @ATTR_CHAR13, [ATTR_CHAR14] = @ATTR_CHAR14, [ATTR_CHAR15] = @ATTR_CHAR15, [ATTR_BIT1] = @ATTR_BIT1, [ATTR_BIT2] = @ATTR_BIT2, [ATTR_BIT3] = @ATTR_BIT3, [ATTR_BIT4] = @ATTR_BIT4, [DELETED] = @DELETED, [DELETED_WHEN] = @DELETED_WHEN, [DELETED_WHO] = @DELETED_WHO, [DATE_FORMAT] = @DATE_FORMAT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_PRENAME = 1 AND [PRENAME] IS NULL) OR ([PRENAME] = @Original_PRENAME)) AND ((@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([USERNAME] = @Original_USERNAME) AND ((@IsNull_SHORTNAME = 1 AND [SHORTNAME] IS NULL) OR ([SHORTNAME] = @Original_SHORTNAME)) AND ((@IsNull_EMAIL = 1 AND [EMAIL] IS NULL) OR ([EMAIL] = @Original_EMAIL)) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([GENERAL_VIEWER] = @Original_GENERAL_VIEWER) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([WAN_ENVIRONMENT] = @Original_WAN_ENVIRONMENT) AND ([USERID_FK_INT_ECM] = @Original_USERID_FK_INT_ECM) AND ((@IsNull_ATTR_CHAR1 = 1 AND [ATTR_CHAR1] IS NULL) OR ([ATTR_CHAR1] = @Original_ATTR_CHAR1)) AND ((@IsNull_ATTR_CHAR2 = 1 AND [ATTR_CHAR2] IS NULL) OR ([ATTR_CHAR2] = @Original_ATTR_CHAR2)) AND ((@IsNull_ATTR_CHAR3 = 1 AND [ATTR_CHAR3] IS NULL) OR ([ATTR_CHAR3] = @Original_ATTR_CHAR3)) AND ((@IsNull_ATTR_CHAR4 = 1 AND [ATTR_CHAR4] IS NULL) OR ([ATTR_CHAR4] = @Original_ATTR_CHAR4)) AND ((@IsNull_ATTR_CHAR5 = 1 AND [ATTR_CHAR5] IS NULL) OR ([ATTR_CHAR5] = @Original_ATTR_CHAR5)) AND ((@IsNull_ATTR_CHAR6 = 1 AND [ATTR_CHAR6] IS NULL) OR ([ATTR_CHAR6] = @Original_ATTR_CHAR6)) AND ((@IsNull_ATTR_CHAR7 = 1 AND [ATTR_CHAR7] IS NULL) OR ([ATTR_CHAR7] = @Original_ATTR_CHAR7)) AND ((@IsNull_ATTR_CHAR8 = 1 AND [ATTR_CHAR8] IS NULL) OR ([ATTR_CHAR8] = @Original_ATTR_CHAR8)) AND ((@IsNull_ATTR_CHAR9 = 1 AND [ATTR_CHAR9] IS NULL) OR ([ATTR_CHAR9] = @Original_ATTR_CHAR9)) AND ((@IsNull_ATTR_CHAR10 = 1 AND [ATTR_CHAR10] IS NULL) OR ([ATTR_CHAR10] = @Original_ATTR_CHAR10)) AND ((@IsNull_ATTR_CHAR11 = 1 AND [ATTR_CHAR11] IS NULL) OR ([ATTR_CHAR11] = @Original_ATTR_CHAR11)) AND ((@IsNull_ATTR_CHAR12 = 1 AND [ATTR_CHAR12] IS NULL) OR ([ATTR_CHAR12] = @Original_ATTR_CHAR12)) AND ((@IsNull_ATTR_CHAR13 = 1 AND [ATTR_CHAR13] IS NULL) OR ([ATTR_CHAR13] = @Original_ATTR_CHAR13)) AND ((@IsNull_ATTR_CHAR14 = 1 AND [ATTR_CHAR14] IS NULL) OR ([ATTR_CHAR14] = @Original_ATTR_CHAR14)) AND ((@IsNull_ATTR_CHAR15 = 1 AND [ATTR_CHAR15] IS NULL) OR ([ATTR_CHAR15] = @Original_ATTR_CHAR15)) AND ([ATTR_BIT1] = @Original_ATTR_BIT1) AND ([ATTR_BIT2] = @Original_ATTR_BIT2) AND ([ATTR_BIT3] = @Original_ATTR_BIT3) AND ([ATTR_BIT4] = @Original_ATTR_BIT4) AND ([DELETED] = @Original_DELETED) AND ((@IsNull_DELETED_WHEN = 1 AND [DELETED_WHEN] IS NULL) OR ([DELETED_WHEN] = @Original_DELETED_WHEN)) AND ((@IsNull_DELETED_WHO = 1 AND [DELETED_WHO] IS NULL) OR ([DELETED_WHO] = @Original_DELETED_WHO)) AND ([DATE_FORMAT] = @Original_DATE_FORMAT) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, PRENAME, NAME, USERNAME, SHORTNAME, EMAIL, LANGUAGE, GENERAL_VIEWER, COMMENT, WAN_ENVIRONMENT, USERID_FK_INT_ECM, ATTR_CHAR1, ATTR_CHAR2, ATTR_CHAR3, ATTR_CHAR4, ATTR_CHAR5, ATTR_CHAR6, ATTR_CHAR7, ATTR_CHAR8, ATTR_CHAR9, ATTR_CHAR10, ATTR_CHAR11, ATTR_CHAR12, ATTR_CHAR13, ATTR_CHAR14, ATTR_CHAR15, ATTR_BIT1, ATTR_BIT2, ATTR_BIT3, ATTR_BIT4, DELETED, DELETED_WHEN, DELETED_WHO, DATE_FORMAT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DSDD_Stammdaten.xss b/GUIs.ZooFlow/DSDD_Stammdaten.xss new file mode 100644 index 0000000..67b01e1 --- /dev/null +++ b/GUIs.ZooFlow/DSDD_Stammdaten.xss @@ -0,0 +1,13 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb new file mode 100644 index 0000000..fd5484d --- /dev/null +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb @@ -0,0 +1,16542 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class DSIDB_Stammdaten + Inherits Global.System.Data.DataSet + + Private tableTBIDB_BUSINESS_ENTITY As TBIDB_BUSINESS_ENTITYDataTable + + Private tableTBIDB_ATTRIBUTE As TBIDB_ATTRIBUTEDataTable + + Private tableTBIDB_ATTRIBUTE_TYPE As TBIDB_ATTRIBUTE_TYPEDataTable + + Private tableVWIDB_BE_ATTRIBUTE As VWIDB_BE_ATTRIBUTEDataTable + + Private tableTBZF_ADMIN_SOURCE_SQL As TBZF_ADMIN_SOURCE_SQLDataTable + + Private tableTBIDB_OBJECT_STORE As TBIDB_OBJECT_STOREDataTable + + Private tableTBIDB_CATALOG As TBIDB_CATALOGDataTable + + Private tableTBWH_ATTRIBUTE_TYPE As TBWH_ATTRIBUTE_TYPEDataTable + + Private tableVWIDB_OBJECT_STORE As VWIDB_OBJECT_STOREDataTable + + Private tableVWIDB_DOCTYPES_DE As VWIDB_DOCTYPES_DEDataTable + + Private tableTBIDB_DOCTYPE_HANDLING As TBIDB_DOCTYPE_HANDLINGDataTable + + Private tableTBIDB_CATALOG_USER As TBIDB_CATALOG_USERDataTable + + Private tableTBIDB_LANGUAGE As TBIDB_LANGUAGEDataTable + + Private tableVWIDB_DOCTYPE_LANGUAGE As VWIDB_DOCTYPE_LANGUAGEDataTable + + Private tableTBIDB_DOCTYPE As TBIDB_DOCTYPEDataTable + + Private tableTBIDB_COMMON_SQL As TBIDB_COMMON_SQLDataTable + + Private relationFK_TYP_ID As Global.System.Data.DataRelation + + Private relationFK_OS_CAT_ID As Global.System.Data.DataRelation + + Private relationFK_TBIDB_DOCTYPE_HANDLING_CHNGACT As Global.System.Data.DataRelation + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("TBIDB_BUSINESS_ENTITY")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_BUSINESS_ENTITYDataTable(ds.Tables("TBIDB_BUSINESS_ENTITY"))) + End If + If (Not (ds.Tables("TBIDB_ATTRIBUTE")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_ATTRIBUTEDataTable(ds.Tables("TBIDB_ATTRIBUTE"))) + End If + If (Not (ds.Tables("TBIDB_ATTRIBUTE_TYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_ATTRIBUTE_TYPEDataTable(ds.Tables("TBIDB_ATTRIBUTE_TYPE"))) + End If + If (Not (ds.Tables("VWIDB_BE_ATTRIBUTE")) Is Nothing) Then + MyBase.Tables.Add(New VWIDB_BE_ATTRIBUTEDataTable(ds.Tables("VWIDB_BE_ATTRIBUTE"))) + End If + If (Not (ds.Tables("TBZF_ADMIN_SOURCE_SQL")) Is Nothing) Then + MyBase.Tables.Add(New TBZF_ADMIN_SOURCE_SQLDataTable(ds.Tables("TBZF_ADMIN_SOURCE_SQL"))) + End If + If (Not (ds.Tables("TBIDB_OBJECT_STORE")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_OBJECT_STOREDataTable(ds.Tables("TBIDB_OBJECT_STORE"))) + End If + If (Not (ds.Tables("TBIDB_CATALOG")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_CATALOGDataTable(ds.Tables("TBIDB_CATALOG"))) + End If + If (Not (ds.Tables("TBWH_ATTRIBUTE_TYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_ATTRIBUTE_TYPEDataTable(ds.Tables("TBWH_ATTRIBUTE_TYPE"))) + End If + If (Not (ds.Tables("VWIDB_OBJECT_STORE")) Is Nothing) Then + MyBase.Tables.Add(New VWIDB_OBJECT_STOREDataTable(ds.Tables("VWIDB_OBJECT_STORE"))) + End If + If (Not (ds.Tables("VWIDB_DOCTYPES_DE")) Is Nothing) Then + MyBase.Tables.Add(New VWIDB_DOCTYPES_DEDataTable(ds.Tables("VWIDB_DOCTYPES_DE"))) + End If + If (Not (ds.Tables("TBIDB_DOCTYPE_HANDLING")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_DOCTYPE_HANDLINGDataTable(ds.Tables("TBIDB_DOCTYPE_HANDLING"))) + End If + If (Not (ds.Tables("TBIDB_CATALOG_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_CATALOG_USERDataTable(ds.Tables("TBIDB_CATALOG_USER"))) + End If + If (Not (ds.Tables("TBIDB_LANGUAGE")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_LANGUAGEDataTable(ds.Tables("TBIDB_LANGUAGE"))) + End If + If (Not (ds.Tables("VWIDB_DOCTYPE_LANGUAGE")) Is Nothing) Then + MyBase.Tables.Add(New VWIDB_DOCTYPE_LANGUAGEDataTable(ds.Tables("VWIDB_DOCTYPE_LANGUAGE"))) + End If + If (Not (ds.Tables("TBIDB_DOCTYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_DOCTYPEDataTable(ds.Tables("TBIDB_DOCTYPE"))) + End If + If (Not (ds.Tables("TBIDB_COMMON_SQL")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_COMMON_SQLDataTable(ds.Tables("TBIDB_COMMON_SQL"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property TBIDB_BUSINESS_ENTITY() As TBIDB_BUSINESS_ENTITYDataTable + Get + Return Me.tableTBIDB_BUSINESS_ENTITY + End Get + End Property + + _ + Public ReadOnly Property TBIDB_ATTRIBUTE() As TBIDB_ATTRIBUTEDataTable + Get + Return Me.tableTBIDB_ATTRIBUTE + End Get + End Property + + _ + Public ReadOnly Property TBIDB_ATTRIBUTE_TYPE() As TBIDB_ATTRIBUTE_TYPEDataTable + Get + Return Me.tableTBIDB_ATTRIBUTE_TYPE + End Get + End Property + + _ + Public ReadOnly Property VWIDB_BE_ATTRIBUTE() As VWIDB_BE_ATTRIBUTEDataTable + Get + Return Me.tableVWIDB_BE_ATTRIBUTE + End Get + End Property + + _ + Public ReadOnly Property TBZF_ADMIN_SOURCE_SQL() As TBZF_ADMIN_SOURCE_SQLDataTable + Get + Return Me.tableTBZF_ADMIN_SOURCE_SQL + End Get + End Property + + _ + Public ReadOnly Property TBIDB_OBJECT_STORE() As TBIDB_OBJECT_STOREDataTable + Get + Return Me.tableTBIDB_OBJECT_STORE + End Get + End Property + + _ + Public ReadOnly Property TBIDB_CATALOG() As TBIDB_CATALOGDataTable + Get + Return Me.tableTBIDB_CATALOG + End Get + End Property + + _ + Public ReadOnly Property TBWH_ATTRIBUTE_TYPE() As TBWH_ATTRIBUTE_TYPEDataTable + Get + Return Me.tableTBWH_ATTRIBUTE_TYPE + End Get + End Property + + _ + Public ReadOnly Property VWIDB_OBJECT_STORE() As VWIDB_OBJECT_STOREDataTable + Get + Return Me.tableVWIDB_OBJECT_STORE + End Get + End Property + + _ + Public ReadOnly Property VWIDB_DOCTYPES_DE() As VWIDB_DOCTYPES_DEDataTable + Get + Return Me.tableVWIDB_DOCTYPES_DE + End Get + End Property + + _ + Public ReadOnly Property TBIDB_DOCTYPE_HANDLING() As TBIDB_DOCTYPE_HANDLINGDataTable + Get + Return Me.tableTBIDB_DOCTYPE_HANDLING + End Get + End Property + + _ + Public ReadOnly Property TBIDB_CATALOG_USER() As TBIDB_CATALOG_USERDataTable + Get + Return Me.tableTBIDB_CATALOG_USER + End Get + End Property + + _ + Public ReadOnly Property TBIDB_LANGUAGE() As TBIDB_LANGUAGEDataTable + Get + Return Me.tableTBIDB_LANGUAGE + End Get + End Property + + _ + Public ReadOnly Property VWIDB_DOCTYPE_LANGUAGE() As VWIDB_DOCTYPE_LANGUAGEDataTable + Get + Return Me.tableVWIDB_DOCTYPE_LANGUAGE + End Get + End Property + + _ + Public ReadOnly Property TBIDB_DOCTYPE() As TBIDB_DOCTYPEDataTable + Get + Return Me.tableTBIDB_DOCTYPE + End Get + End Property + + _ + Public ReadOnly Property TBIDB_COMMON_SQL() As TBIDB_COMMON_SQLDataTable + Get + Return Me.tableTBIDB_COMMON_SQL + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As DSIDB_Stammdaten = CType(MyBase.Clone,DSIDB_Stammdaten) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("TBIDB_BUSINESS_ENTITY")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_BUSINESS_ENTITYDataTable(ds.Tables("TBIDB_BUSINESS_ENTITY"))) + End If + If (Not (ds.Tables("TBIDB_ATTRIBUTE")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_ATTRIBUTEDataTable(ds.Tables("TBIDB_ATTRIBUTE"))) + End If + If (Not (ds.Tables("TBIDB_ATTRIBUTE_TYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_ATTRIBUTE_TYPEDataTable(ds.Tables("TBIDB_ATTRIBUTE_TYPE"))) + End If + If (Not (ds.Tables("VWIDB_BE_ATTRIBUTE")) Is Nothing) Then + MyBase.Tables.Add(New VWIDB_BE_ATTRIBUTEDataTable(ds.Tables("VWIDB_BE_ATTRIBUTE"))) + End If + If (Not (ds.Tables("TBZF_ADMIN_SOURCE_SQL")) Is Nothing) Then + MyBase.Tables.Add(New TBZF_ADMIN_SOURCE_SQLDataTable(ds.Tables("TBZF_ADMIN_SOURCE_SQL"))) + End If + If (Not (ds.Tables("TBIDB_OBJECT_STORE")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_OBJECT_STOREDataTable(ds.Tables("TBIDB_OBJECT_STORE"))) + End If + If (Not (ds.Tables("TBIDB_CATALOG")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_CATALOGDataTable(ds.Tables("TBIDB_CATALOG"))) + End If + If (Not (ds.Tables("TBWH_ATTRIBUTE_TYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_ATTRIBUTE_TYPEDataTable(ds.Tables("TBWH_ATTRIBUTE_TYPE"))) + End If + If (Not (ds.Tables("VWIDB_OBJECT_STORE")) Is Nothing) Then + MyBase.Tables.Add(New VWIDB_OBJECT_STOREDataTable(ds.Tables("VWIDB_OBJECT_STORE"))) + End If + If (Not (ds.Tables("VWIDB_DOCTYPES_DE")) Is Nothing) Then + MyBase.Tables.Add(New VWIDB_DOCTYPES_DEDataTable(ds.Tables("VWIDB_DOCTYPES_DE"))) + End If + If (Not (ds.Tables("TBIDB_DOCTYPE_HANDLING")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_DOCTYPE_HANDLINGDataTable(ds.Tables("TBIDB_DOCTYPE_HANDLING"))) + End If + If (Not (ds.Tables("TBIDB_CATALOG_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_CATALOG_USERDataTable(ds.Tables("TBIDB_CATALOG_USER"))) + End If + If (Not (ds.Tables("TBIDB_LANGUAGE")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_LANGUAGEDataTable(ds.Tables("TBIDB_LANGUAGE"))) + End If + If (Not (ds.Tables("VWIDB_DOCTYPE_LANGUAGE")) Is Nothing) Then + MyBase.Tables.Add(New VWIDB_DOCTYPE_LANGUAGEDataTable(ds.Tables("VWIDB_DOCTYPE_LANGUAGE"))) + End If + If (Not (ds.Tables("TBIDB_DOCTYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_DOCTYPEDataTable(ds.Tables("TBIDB_DOCTYPE"))) + End If + If (Not (ds.Tables("TBIDB_COMMON_SQL")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_COMMON_SQLDataTable(ds.Tables("TBIDB_COMMON_SQL"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableTBIDB_BUSINESS_ENTITY = CType(MyBase.Tables("TBIDB_BUSINESS_ENTITY"),TBIDB_BUSINESS_ENTITYDataTable) + If (initTable = true) Then + If (Not (Me.tableTBIDB_BUSINESS_ENTITY) Is Nothing) Then + Me.tableTBIDB_BUSINESS_ENTITY.InitVars + End If + End If + Me.tableTBIDB_ATTRIBUTE = CType(MyBase.Tables("TBIDB_ATTRIBUTE"),TBIDB_ATTRIBUTEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBIDB_ATTRIBUTE) Is Nothing) Then + Me.tableTBIDB_ATTRIBUTE.InitVars + End If + End If + Me.tableTBIDB_ATTRIBUTE_TYPE = CType(MyBase.Tables("TBIDB_ATTRIBUTE_TYPE"),TBIDB_ATTRIBUTE_TYPEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBIDB_ATTRIBUTE_TYPE) Is Nothing) Then + Me.tableTBIDB_ATTRIBUTE_TYPE.InitVars + End If + End If + Me.tableVWIDB_BE_ATTRIBUTE = CType(MyBase.Tables("VWIDB_BE_ATTRIBUTE"),VWIDB_BE_ATTRIBUTEDataTable) + If (initTable = true) Then + If (Not (Me.tableVWIDB_BE_ATTRIBUTE) Is Nothing) Then + Me.tableVWIDB_BE_ATTRIBUTE.InitVars + End If + End If + Me.tableTBZF_ADMIN_SOURCE_SQL = CType(MyBase.Tables("TBZF_ADMIN_SOURCE_SQL"),TBZF_ADMIN_SOURCE_SQLDataTable) + If (initTable = true) Then + If (Not (Me.tableTBZF_ADMIN_SOURCE_SQL) Is Nothing) Then + Me.tableTBZF_ADMIN_SOURCE_SQL.InitVars + End If + End If + Me.tableTBIDB_OBJECT_STORE = CType(MyBase.Tables("TBIDB_OBJECT_STORE"),TBIDB_OBJECT_STOREDataTable) + If (initTable = true) Then + If (Not (Me.tableTBIDB_OBJECT_STORE) Is Nothing) Then + Me.tableTBIDB_OBJECT_STORE.InitVars + End If + End If + Me.tableTBIDB_CATALOG = CType(MyBase.Tables("TBIDB_CATALOG"),TBIDB_CATALOGDataTable) + If (initTable = true) Then + If (Not (Me.tableTBIDB_CATALOG) Is Nothing) Then + Me.tableTBIDB_CATALOG.InitVars + End If + End If + Me.tableTBWH_ATTRIBUTE_TYPE = CType(MyBase.Tables("TBWH_ATTRIBUTE_TYPE"),TBWH_ATTRIBUTE_TYPEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBWH_ATTRIBUTE_TYPE) Is Nothing) Then + Me.tableTBWH_ATTRIBUTE_TYPE.InitVars + End If + End If + Me.tableVWIDB_OBJECT_STORE = CType(MyBase.Tables("VWIDB_OBJECT_STORE"),VWIDB_OBJECT_STOREDataTable) + If (initTable = true) Then + If (Not (Me.tableVWIDB_OBJECT_STORE) Is Nothing) Then + Me.tableVWIDB_OBJECT_STORE.InitVars + End If + End If + Me.tableVWIDB_DOCTYPES_DE = CType(MyBase.Tables("VWIDB_DOCTYPES_DE"),VWIDB_DOCTYPES_DEDataTable) + If (initTable = true) Then + If (Not (Me.tableVWIDB_DOCTYPES_DE) Is Nothing) Then + Me.tableVWIDB_DOCTYPES_DE.InitVars + End If + End If + Me.tableTBIDB_DOCTYPE_HANDLING = CType(MyBase.Tables("TBIDB_DOCTYPE_HANDLING"),TBIDB_DOCTYPE_HANDLINGDataTable) + If (initTable = true) Then + If (Not (Me.tableTBIDB_DOCTYPE_HANDLING) Is Nothing) Then + Me.tableTBIDB_DOCTYPE_HANDLING.InitVars + End If + End If + Me.tableTBIDB_CATALOG_USER = CType(MyBase.Tables("TBIDB_CATALOG_USER"),TBIDB_CATALOG_USERDataTable) + If (initTable = true) Then + If (Not (Me.tableTBIDB_CATALOG_USER) Is Nothing) Then + Me.tableTBIDB_CATALOG_USER.InitVars + End If + End If + Me.tableTBIDB_LANGUAGE = CType(MyBase.Tables("TBIDB_LANGUAGE"),TBIDB_LANGUAGEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBIDB_LANGUAGE) Is Nothing) Then + Me.tableTBIDB_LANGUAGE.InitVars + End If + End If + Me.tableVWIDB_DOCTYPE_LANGUAGE = CType(MyBase.Tables("VWIDB_DOCTYPE_LANGUAGE"),VWIDB_DOCTYPE_LANGUAGEDataTable) + If (initTable = true) Then + If (Not (Me.tableVWIDB_DOCTYPE_LANGUAGE) Is Nothing) Then + Me.tableVWIDB_DOCTYPE_LANGUAGE.InitVars + End If + End If + Me.tableTBIDB_DOCTYPE = CType(MyBase.Tables("TBIDB_DOCTYPE"),TBIDB_DOCTYPEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBIDB_DOCTYPE) Is Nothing) Then + Me.tableTBIDB_DOCTYPE.InitVars + End If + End If + Me.tableTBIDB_COMMON_SQL = CType(MyBase.Tables("TBIDB_COMMON_SQL"),TBIDB_COMMON_SQLDataTable) + If (initTable = true) Then + If (Not (Me.tableTBIDB_COMMON_SQL) Is Nothing) Then + Me.tableTBIDB_COMMON_SQL.InitVars + End If + End If + Me.relationFK_TYP_ID = Me.Relations("FK_TYP_ID") + Me.relationFK_OS_CAT_ID = Me.Relations("FK_OS_CAT_ID") + Me.relationFK_TBIDB_DOCTYPE_HANDLING_CHNGACT = Me.Relations("FK_TBIDB_DOCTYPE_HANDLING_CHNGACT") + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DSIDB_Stammdaten" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DSIDB_Stammdaten.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableTBIDB_BUSINESS_ENTITY = New TBIDB_BUSINESS_ENTITYDataTable() + MyBase.Tables.Add(Me.tableTBIDB_BUSINESS_ENTITY) + Me.tableTBIDB_ATTRIBUTE = New TBIDB_ATTRIBUTEDataTable() + MyBase.Tables.Add(Me.tableTBIDB_ATTRIBUTE) + Me.tableTBIDB_ATTRIBUTE_TYPE = New TBIDB_ATTRIBUTE_TYPEDataTable() + MyBase.Tables.Add(Me.tableTBIDB_ATTRIBUTE_TYPE) + Me.tableVWIDB_BE_ATTRIBUTE = New VWIDB_BE_ATTRIBUTEDataTable() + MyBase.Tables.Add(Me.tableVWIDB_BE_ATTRIBUTE) + Me.tableTBZF_ADMIN_SOURCE_SQL = New TBZF_ADMIN_SOURCE_SQLDataTable() + MyBase.Tables.Add(Me.tableTBZF_ADMIN_SOURCE_SQL) + Me.tableTBIDB_OBJECT_STORE = New TBIDB_OBJECT_STOREDataTable() + MyBase.Tables.Add(Me.tableTBIDB_OBJECT_STORE) + Me.tableTBIDB_CATALOG = New TBIDB_CATALOGDataTable() + MyBase.Tables.Add(Me.tableTBIDB_CATALOG) + Me.tableTBWH_ATTRIBUTE_TYPE = New TBWH_ATTRIBUTE_TYPEDataTable() + MyBase.Tables.Add(Me.tableTBWH_ATTRIBUTE_TYPE) + Me.tableVWIDB_OBJECT_STORE = New VWIDB_OBJECT_STOREDataTable() + MyBase.Tables.Add(Me.tableVWIDB_OBJECT_STORE) + Me.tableVWIDB_DOCTYPES_DE = New VWIDB_DOCTYPES_DEDataTable() + MyBase.Tables.Add(Me.tableVWIDB_DOCTYPES_DE) + Me.tableTBIDB_DOCTYPE_HANDLING = New TBIDB_DOCTYPE_HANDLINGDataTable() + MyBase.Tables.Add(Me.tableTBIDB_DOCTYPE_HANDLING) + Me.tableTBIDB_CATALOG_USER = New TBIDB_CATALOG_USERDataTable() + MyBase.Tables.Add(Me.tableTBIDB_CATALOG_USER) + Me.tableTBIDB_LANGUAGE = New TBIDB_LANGUAGEDataTable() + MyBase.Tables.Add(Me.tableTBIDB_LANGUAGE) + Me.tableVWIDB_DOCTYPE_LANGUAGE = New VWIDB_DOCTYPE_LANGUAGEDataTable() + MyBase.Tables.Add(Me.tableVWIDB_DOCTYPE_LANGUAGE) + Me.tableTBIDB_DOCTYPE = New TBIDB_DOCTYPEDataTable() + MyBase.Tables.Add(Me.tableTBIDB_DOCTYPE) + Me.tableTBIDB_COMMON_SQL = New TBIDB_COMMON_SQLDataTable() + MyBase.Tables.Add(Me.tableTBIDB_COMMON_SQL) + Me.relationFK_TYP_ID = New Global.System.Data.DataRelation("FK_TYP_ID", New Global.System.Data.DataColumn() {Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TYP_ID) + Me.relationFK_OS_CAT_ID = New Global.System.Data.DataRelation("FK_OS_CAT_ID", New Global.System.Data.DataColumn() {Me.tableTBIDB_CATALOG.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBIDB_OBJECT_STORE.CAT_IDColumn}, false) + Me.Relations.Add(Me.relationFK_OS_CAT_ID) + Me.relationFK_TBIDB_DOCTYPE_HANDLING_CHNGACT = New Global.System.Data.DataRelation("FK_TBIDB_DOCTYPE_HANDLING_CHNGACT", New Global.System.Data.DataColumn() {Me.tableTBIDB_CATALOG.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBIDB_DOCTYPE_HANDLING.CHANGED_ACTIONColumn}, false) + Me.Relations.Add(Me.relationFK_TBIDB_DOCTYPE_HANDLING_CHNGACT) + End Sub + + _ + Private Function ShouldSerializeTBIDB_BUSINESS_ENTITY() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBIDB_ATTRIBUTE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBIDB_ATTRIBUTE_TYPE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWIDB_BE_ATTRIBUTE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBZF_ADMIN_SOURCE_SQL() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBIDB_OBJECT_STORE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBIDB_CATALOG() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBWH_ATTRIBUTE_TYPE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWIDB_OBJECT_STORE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWIDB_DOCTYPES_DE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBIDB_DOCTYPE_HANDLING() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBIDB_CATALOG_USER() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBIDB_LANGUAGE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWIDB_DOCTYPE_LANGUAGE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBIDB_DOCTYPE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBIDB_COMMON_SQL() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub TBIDB_BUSINESS_ENTITYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_BUSINESS_ENTITYRowChangeEvent) + + _ + Public Delegate Sub TBIDB_ATTRIBUTERowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_ATTRIBUTERowChangeEvent) + + _ + Public Delegate Sub TBIDB_ATTRIBUTE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_ATTRIBUTE_TYPERowChangeEvent) + + _ + Public Delegate Sub VWIDB_BE_ATTRIBUTERowChangeEventHandler(ByVal sender As Object, ByVal e As VWIDB_BE_ATTRIBUTERowChangeEvent) + + _ + Public Delegate Sub TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler(ByVal sender As Object, ByVal e As TBZF_ADMIN_SOURCE_SQLRowChangeEvent) + + _ + Public Delegate Sub TBIDB_OBJECT_STORERowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_OBJECT_STORERowChangeEvent) + + _ + Public Delegate Sub TBIDB_CATALOGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_CATALOGRowChangeEvent) + + _ + Public Delegate Sub TBWH_ATTRIBUTE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_ATTRIBUTE_TYPERowChangeEvent) + + _ + Public Delegate Sub VWIDB_OBJECT_STORERowChangeEventHandler(ByVal sender As Object, ByVal e As VWIDB_OBJECT_STORERowChangeEvent) + + _ + Public Delegate Sub VWIDB_DOCTYPES_DERowChangeEventHandler(ByVal sender As Object, ByVal e As VWIDB_DOCTYPES_DERowChangeEvent) + + _ + Public Delegate Sub TBIDB_DOCTYPE_HANDLINGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_DOCTYPE_HANDLINGRowChangeEvent) + + _ + Public Delegate Sub TBIDB_CATALOG_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_CATALOG_USERRowChangeEvent) + + _ + Public Delegate Sub TBIDB_LANGUAGERowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_LANGUAGERowChangeEvent) + + _ + Public Delegate Sub VWIDB_DOCTYPE_LANGUAGERowChangeEventHandler(ByVal sender As Object, ByVal e As VWIDB_DOCTYPE_LANGUAGERowChangeEvent) + + _ + Public Delegate Sub TBIDB_DOCTYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_DOCTYPERowChangeEvent) + + _ + Public Delegate Sub TBIDB_COMMON_SQLRowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_COMMON_SQLRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBIDB_BUSINESS_ENTITYDataTable + Inherits Global.System.Data.TypedTableBase(Of TBIDB_BUSINESS_ENTITYRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPARENT_ENT_ID As Global.System.Data.DataColumn + + Private columnTITLE As Global.System.Data.DataColumn + + Private columnINHERITS_ATTRIBUTES As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBIDB_BUSINESS_ENTITY" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PARENT_ENT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARENT_ENT_ID + End Get + End Property + + _ + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTITLE + End Get + End Property + + _ + Public ReadOnly Property INHERITS_ATTRIBUTESColumn() As Global.System.Data.DataColumn + Get + Return Me.columnINHERITS_ATTRIBUTES + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBIDB_BUSINESS_ENTITYRow + Get + Return CType(Me.Rows(index),TBIDB_BUSINESS_ENTITYRow) + End Get + End Property + + _ + Public Event TBIDB_BUSINESS_ENTITYRowChanging As TBIDB_BUSINESS_ENTITYRowChangeEventHandler + + _ + Public Event TBIDB_BUSINESS_ENTITYRowChanged As TBIDB_BUSINESS_ENTITYRowChangeEventHandler + + _ + Public Event TBIDB_BUSINESS_ENTITYRowDeleting As TBIDB_BUSINESS_ENTITYRowChangeEventHandler + + _ + Public Event TBIDB_BUSINESS_ENTITYRowDeleted As TBIDB_BUSINESS_ENTITYRowChangeEventHandler + + _ + Public Overloads Sub AddTBIDB_BUSINESS_ENTITYRow(ByVal row As TBIDB_BUSINESS_ENTITYRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBIDB_BUSINESS_ENTITYRow(ByVal PARENT_ENT_ID As Integer, ByVal TITLE As String, ByVal INHERITS_ATTRIBUTES As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBIDB_BUSINESS_ENTITYRow + Dim rowTBIDB_BUSINESS_ENTITYRow As TBIDB_BUSINESS_ENTITYRow = CType(Me.NewRow,TBIDB_BUSINESS_ENTITYRow) + Dim columnValuesArray() As Object = New Object() {Nothing, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBIDB_BUSINESS_ENTITYRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBIDB_BUSINESS_ENTITYRow) + Return rowTBIDB_BUSINESS_ENTITYRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBIDB_BUSINESS_ENTITYRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_BUSINESS_ENTITYRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBIDB_BUSINESS_ENTITYDataTable = CType(MyBase.Clone,TBIDB_BUSINESS_ENTITYDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBIDB_BUSINESS_ENTITYDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPARENT_ENT_ID = MyBase.Columns("PARENT_ENT_ID") + Me.columnTITLE = MyBase.Columns("TITLE") + Me.columnINHERITS_ATTRIBUTES = MyBase.Columns("INHERITS_ATTRIBUTES") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPARENT_ENT_ID = New Global.System.Data.DataColumn("PARENT_ENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARENT_ENT_ID) + Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + Me.columnINHERITS_ATTRIBUTES = New Global.System.Data.DataColumn("INHERITS_ATTRIBUTES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnINHERITS_ATTRIBUTES) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + 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.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnPARENT_ENT_ID.AllowDBNull = false + Me.columnPARENT_ENT_ID.DefaultValue = CType(0,Integer) + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 500 + Me.columnINHERITS_ATTRIBUTES.AllowDBNull = false + Me.columnINHERITS_ATTRIBUTES.DefaultValue = CType(false,Boolean) + Me.columnCOMMENT.MaxLength = 1000 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 30 + Me.columnCHANGED_WHO.MaxLength = 30 + End Sub + + _ + Public Function NewTBIDB_BUSINESS_ENTITYRow() As TBIDB_BUSINESS_ENTITYRow + Return CType(Me.NewRow,TBIDB_BUSINESS_ENTITYRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBIDB_BUSINESS_ENTITYRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBIDB_BUSINESS_ENTITYRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBIDB_BUSINESS_ENTITYRowChangedEvent) Is Nothing) Then + RaiseEvent TBIDB_BUSINESS_ENTITYRowChanged(Me, New TBIDB_BUSINESS_ENTITYRowChangeEvent(CType(e.Row,TBIDB_BUSINESS_ENTITYRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBIDB_BUSINESS_ENTITYRowChangingEvent) Is Nothing) Then + RaiseEvent TBIDB_BUSINESS_ENTITYRowChanging(Me, New TBIDB_BUSINESS_ENTITYRowChangeEvent(CType(e.Row,TBIDB_BUSINESS_ENTITYRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBIDB_BUSINESS_ENTITYRowDeletedEvent) Is Nothing) Then + RaiseEvent TBIDB_BUSINESS_ENTITYRowDeleted(Me, New TBIDB_BUSINESS_ENTITYRowChangeEvent(CType(e.Row,TBIDB_BUSINESS_ENTITYRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBIDB_BUSINESS_ENTITYRowDeletingEvent) Is Nothing) Then + RaiseEvent TBIDB_BUSINESS_ENTITYRowDeleting(Me, New TBIDB_BUSINESS_ENTITYRowChangeEvent(CType(e.Row,TBIDB_BUSINESS_ENTITYRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBIDB_BUSINESS_ENTITYRow(ByVal row As TBIDB_BUSINESS_ENTITYRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBIDB_BUSINESS_ENTITYDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBIDB_ATTRIBUTEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBIDB_ATTRIBUTERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnTITLE As Global.System.Data.DataColumn + + Private columnTYP_ID As Global.System.Data.DataColumn + + Private columnMULTI_CONTEXT As Global.System.Data.DataColumn + + Private columnVIEW_SEQUENCE As Global.System.Data.DataColumn + + Private columnVIEW_VISIBLE As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnDELETED As Global.System.Data.DataColumn + + Private columnDELETED_WHO As Global.System.Data.DataColumn + + Private columnDELETED_WHEN As Global.System.Data.DataColumn + + Private columnATTR_TYPE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBIDB_ATTRIBUTE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTITLE + End Get + End Property + + _ + Public ReadOnly Property TYP_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTYP_ID + End Get + End Property + + _ + Public ReadOnly Property MULTI_CONTEXTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMULTI_CONTEXT + End Get + End Property + + _ + Public ReadOnly Property VIEW_SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVIEW_SEQUENCE + End Get + End Property + + _ + Public ReadOnly Property VIEW_VISIBLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVIEW_VISIBLE + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property DELETEDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDELETED + End Get + End Property + + _ + Public ReadOnly Property DELETED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDELETED_WHO + End Get + End Property + + _ + Public ReadOnly Property DELETED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDELETED_WHEN + End Get + End Property + + _ + Public ReadOnly Property ATTR_TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_TYPE + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBIDB_ATTRIBUTERow + Get + Return CType(Me.Rows(index),TBIDB_ATTRIBUTERow) + End Get + End Property + + _ + Public Event TBIDB_ATTRIBUTERowChanging As TBIDB_ATTRIBUTERowChangeEventHandler + + _ + Public Event TBIDB_ATTRIBUTERowChanged As TBIDB_ATTRIBUTERowChangeEventHandler + + _ + Public Event TBIDB_ATTRIBUTERowDeleting As TBIDB_ATTRIBUTERowChangeEventHandler + + _ + Public Event TBIDB_ATTRIBUTERowDeleted As TBIDB_ATTRIBUTERowChangeEventHandler + + _ + Public Overloads Sub AddTBIDB_ATTRIBUTERow(ByVal row As TBIDB_ATTRIBUTERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBIDB_ATTRIBUTERow(ByVal TITLE As String, ByVal parentTBIDB_ATTRIBUTE_TYPERowByFK_TYP_ID As TBIDB_ATTRIBUTE_TYPERow, ByVal MULTI_CONTEXT As Boolean, ByVal VIEW_SEQUENCE As Integer, ByVal VIEW_VISIBLE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal DELETED As Boolean, ByVal DELETED_WHO As String, ByVal DELETED_WHEN As Date, ByVal ATTR_TYPE As String) As TBIDB_ATTRIBUTERow + Dim rowTBIDB_ATTRIBUTERow As TBIDB_ATTRIBUTERow = CType(Me.NewRow,TBIDB_ATTRIBUTERow) + Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, Nothing, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN, ATTR_TYPE} + If (Not (parentTBIDB_ATTRIBUTE_TYPERowByFK_TYP_ID) Is Nothing) Then + columnValuesArray(2) = parentTBIDB_ATTRIBUTE_TYPERowByFK_TYP_ID(0) + End If + rowTBIDB_ATTRIBUTERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBIDB_ATTRIBUTERow) + Return rowTBIDB_ATTRIBUTERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBIDB_ATTRIBUTERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_ATTRIBUTERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBIDB_ATTRIBUTEDataTable = CType(MyBase.Clone,TBIDB_ATTRIBUTEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBIDB_ATTRIBUTEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnTITLE = MyBase.Columns("TITLE") + Me.columnTYP_ID = MyBase.Columns("TYP_ID") + Me.columnMULTI_CONTEXT = MyBase.Columns("MULTI_CONTEXT") + Me.columnVIEW_SEQUENCE = MyBase.Columns("VIEW_SEQUENCE") + Me.columnVIEW_VISIBLE = MyBase.Columns("VIEW_VISIBLE") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnDELETED = MyBase.Columns("DELETED") + Me.columnDELETED_WHO = MyBase.Columns("DELETED_WHO") + Me.columnDELETED_WHEN = MyBase.Columns("DELETED_WHEN") + Me.columnATTR_TYPE = MyBase.Columns("ATTR_TYPE") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + Me.columnTYP_ID = New Global.System.Data.DataColumn("TYP_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTYP_ID) + Me.columnMULTI_CONTEXT = New Global.System.Data.DataColumn("MULTI_CONTEXT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMULTI_CONTEXT) + Me.columnVIEW_SEQUENCE = New Global.System.Data.DataColumn("VIEW_SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVIEW_SEQUENCE) + Me.columnVIEW_VISIBLE = New Global.System.Data.DataColumn("VIEW_VISIBLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVIEW_VISIBLE) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnDELETED = New Global.System.Data.DataColumn("DELETED", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDELETED) + Me.columnDELETED_WHO = New Global.System.Data.DataColumn("DELETED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDELETED_WHO) + Me.columnDELETED_WHEN = New Global.System.Data.DataColumn("DELETED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDELETED_WHEN) + Me.columnATTR_TYPE = New Global.System.Data.DataColumn("ATTR_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_TYPE) + 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.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 100 + Me.columnTYP_ID.AllowDBNull = false + Me.columnMULTI_CONTEXT.AllowDBNull = false + Me.columnMULTI_CONTEXT.DefaultValue = CType(false,Boolean) + Me.columnVIEW_SEQUENCE.AllowDBNull = false + Me.columnVIEW_VISIBLE.AllowDBNull = false + Me.columnCOMMENT.MaxLength = 1000 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 30 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 30 + Me.columnDELETED.AllowDBNull = false + Me.columnDELETED_WHO.MaxLength = 100 + Me.columnATTR_TYPE.AllowDBNull = false + Me.columnATTR_TYPE.MaxLength = 100 + End Sub + + _ + Public Function NewTBIDB_ATTRIBUTERow() As TBIDB_ATTRIBUTERow + Return CType(Me.NewRow,TBIDB_ATTRIBUTERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBIDB_ATTRIBUTERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBIDB_ATTRIBUTERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBIDB_ATTRIBUTERowChangedEvent) Is Nothing) Then + RaiseEvent TBIDB_ATTRIBUTERowChanged(Me, New TBIDB_ATTRIBUTERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBIDB_ATTRIBUTERowChangingEvent) Is Nothing) Then + RaiseEvent TBIDB_ATTRIBUTERowChanging(Me, New TBIDB_ATTRIBUTERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBIDB_ATTRIBUTERowDeletedEvent) Is Nothing) Then + RaiseEvent TBIDB_ATTRIBUTERowDeleted(Me, New TBIDB_ATTRIBUTERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBIDB_ATTRIBUTERowDeletingEvent) Is Nothing) Then + RaiseEvent TBIDB_ATTRIBUTERowDeleting(Me, New TBIDB_ATTRIBUTERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBIDB_ATTRIBUTERow(ByVal row As TBIDB_ATTRIBUTERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBIDB_ATTRIBUTEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBIDB_ATTRIBUTE_TYPEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBIDB_ATTRIBUTE_TYPERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME_TYPE As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnBIT1 As Global.System.Data.DataColumn + + Private columnBIT2 As Global.System.Data.DataColumn + + Private columnBIT3 As Global.System.Data.DataColumn + + Private columnBIT4 As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBIDB_ATTRIBUTE_TYPE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property NAME_TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME_TYPE + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property BIT1Column() As Global.System.Data.DataColumn + Get + Return Me.columnBIT1 + End Get + End Property + + _ + Public ReadOnly Property BIT2Column() As Global.System.Data.DataColumn + Get + Return Me.columnBIT2 + End Get + End Property + + _ + Public ReadOnly Property BIT3Column() As Global.System.Data.DataColumn + Get + Return Me.columnBIT3 + End Get + End Property + + _ + Public ReadOnly Property BIT4Column() As Global.System.Data.DataColumn + Get + Return Me.columnBIT4 + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBIDB_ATTRIBUTE_TYPERow + Get + Return CType(Me.Rows(index),TBIDB_ATTRIBUTE_TYPERow) + End Get + End Property + + _ + Public Event TBIDB_ATTRIBUTE_TYPERowChanging As TBIDB_ATTRIBUTE_TYPERowChangeEventHandler + + _ + Public Event TBIDB_ATTRIBUTE_TYPERowChanged As TBIDB_ATTRIBUTE_TYPERowChangeEventHandler + + _ + Public Event TBIDB_ATTRIBUTE_TYPERowDeleting As TBIDB_ATTRIBUTE_TYPERowChangeEventHandler + + _ + Public Event TBIDB_ATTRIBUTE_TYPERowDeleted As TBIDB_ATTRIBUTE_TYPERowChangeEventHandler + + _ + Public Overloads Sub AddTBIDB_ATTRIBUTE_TYPERow(ByVal row As TBIDB_ATTRIBUTE_TYPERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBIDB_ATTRIBUTE_TYPERow(ByVal GUID As Byte, ByVal NAME_TYPE As String, ByVal COMMENT As String, ByVal BIT1 As Boolean, ByVal BIT2 As Boolean, ByVal BIT3 As Boolean, ByVal BIT4 As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBIDB_ATTRIBUTE_TYPERow + Dim rowTBIDB_ATTRIBUTE_TYPERow As TBIDB_ATTRIBUTE_TYPERow = CType(Me.NewRow,TBIDB_ATTRIBUTE_TYPERow) + Dim columnValuesArray() As Object = New Object() {GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBIDB_ATTRIBUTE_TYPERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBIDB_ATTRIBUTE_TYPERow) + Return rowTBIDB_ATTRIBUTE_TYPERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Byte) As TBIDB_ATTRIBUTE_TYPERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_ATTRIBUTE_TYPERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBIDB_ATTRIBUTE_TYPEDataTable = CType(MyBase.Clone,TBIDB_ATTRIBUTE_TYPEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBIDB_ATTRIBUTE_TYPEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME_TYPE = MyBase.Columns("NAME_TYPE") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnBIT1 = MyBase.Columns("BIT1") + Me.columnBIT2 = MyBase.Columns("BIT2") + Me.columnBIT3 = MyBase.Columns("BIT3") + Me.columnBIT4 = MyBase.Columns("BIT4") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME_TYPE = New Global.System.Data.DataColumn("NAME_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME_TYPE) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnBIT1 = New Global.System.Data.DataColumn("BIT1", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBIT1) + Me.columnBIT2 = New Global.System.Data.DataColumn("BIT2", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBIT2) + Me.columnBIT3 = New Global.System.Data.DataColumn("BIT3", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBIT3) + Me.columnBIT4 = New Global.System.Data.DataColumn("BIT4", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBIT4) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnNAME_TYPE.AllowDBNull = false + Me.columnNAME_TYPE.MaxLength = 100 + Me.columnCOMMENT.MaxLength = 500 + Me.columnBIT1.AllowDBNull = false + Me.columnBIT2.AllowDBNull = false + Me.columnBIT3.AllowDBNull = false + Me.columnBIT4.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 30 + Me.columnCHANGED_WHO.MaxLength = 30 + End Sub + + _ + Public Function NewTBIDB_ATTRIBUTE_TYPERow() As TBIDB_ATTRIBUTE_TYPERow + Return CType(Me.NewRow,TBIDB_ATTRIBUTE_TYPERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBIDB_ATTRIBUTE_TYPERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBIDB_ATTRIBUTE_TYPERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBIDB_ATTRIBUTE_TYPERowChangedEvent) Is Nothing) Then + RaiseEvent TBIDB_ATTRIBUTE_TYPERowChanged(Me, New TBIDB_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTE_TYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBIDB_ATTRIBUTE_TYPERowChangingEvent) Is Nothing) Then + RaiseEvent TBIDB_ATTRIBUTE_TYPERowChanging(Me, New TBIDB_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTE_TYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBIDB_ATTRIBUTE_TYPERowDeletedEvent) Is Nothing) Then + RaiseEvent TBIDB_ATTRIBUTE_TYPERowDeleted(Me, New TBIDB_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTE_TYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBIDB_ATTRIBUTE_TYPERowDeletingEvent) Is Nothing) Then + RaiseEvent TBIDB_ATTRIBUTE_TYPERowDeleting(Me, New TBIDB_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTE_TYPERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBIDB_ATTRIBUTE_TYPERow(ByVal row As TBIDB_ATTRIBUTE_TYPERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBIDB_ATTRIBUTE_TYPEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWIDB_BE_ATTRIBUTEDataTable + Inherits Global.System.Data.TypedTableBase(Of VWIDB_BE_ATTRIBUTERow) + + Private columnBE_ID As Global.System.Data.DataColumn + + Private columnBE As Global.System.Data.DataColumn + + Private columnATTR_ID As Global.System.Data.DataColumn + + Private columnATTR_TITLE As Global.System.Data.DataColumn + + Private columnTYP_ID As Global.System.Data.DataColumn + + Private columnTYPE_ID As Global.System.Data.DataColumn + + Private columnTYPE_NAME As Global.System.Data.DataColumn + + Private columnVIEW_VISIBLE As Global.System.Data.DataColumn + + Private columnVIEW_SEQUENCE As Global.System.Data.DataColumn + + Private columnLANG_ID As Global.System.Data.DataColumn + + Private columnLANG_CODE As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnSYS_ATTRIBUTE As Global.System.Data.DataColumn + + Private columnMULTI_CONTEXT As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWIDB_BE_ATTRIBUTE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property BE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBE_ID + End Get + End Property + + _ + Public ReadOnly Property BEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBE + End Get + End Property + + _ + Public ReadOnly Property ATTR_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_ID + End Get + End Property + + _ + Public ReadOnly Property ATTR_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnATTR_TITLE + End Get + End Property + + _ + Public ReadOnly Property TYP_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTYP_ID + End Get + End Property + + _ + Public ReadOnly Property TYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property TYPE_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTYPE_NAME + End Get + End Property + + _ + Public ReadOnly Property VIEW_VISIBLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVIEW_VISIBLE + End Get + End Property + + _ + Public ReadOnly Property VIEW_SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVIEW_SEQUENCE + End Get + End Property + + _ + Public ReadOnly Property LANG_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLANG_ID + End Get + End Property + + _ + Public ReadOnly Property LANG_CODEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLANG_CODE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property SYS_ATTRIBUTEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSYS_ATTRIBUTE + End Get + End Property + + _ + Public ReadOnly Property MULTI_CONTEXTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMULTI_CONTEXT + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWIDB_BE_ATTRIBUTERow + Get + Return CType(Me.Rows(index),VWIDB_BE_ATTRIBUTERow) + End Get + End Property + + _ + Public Event VWIDB_BE_ATTRIBUTERowChanging As VWIDB_BE_ATTRIBUTERowChangeEventHandler + + _ + Public Event VWIDB_BE_ATTRIBUTERowChanged As VWIDB_BE_ATTRIBUTERowChangeEventHandler + + _ + Public Event VWIDB_BE_ATTRIBUTERowDeleting As VWIDB_BE_ATTRIBUTERowChangeEventHandler + + _ + Public Event VWIDB_BE_ATTRIBUTERowDeleted As VWIDB_BE_ATTRIBUTERowChangeEventHandler + + _ + Public Overloads Sub AddVWIDB_BE_ATTRIBUTERow(ByVal row As VWIDB_BE_ATTRIBUTERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWIDB_BE_ATTRIBUTERow( _ + ByVal BE_ID As Integer, _ + ByVal BE As String, _ + ByVal ATTR_ID As Integer, _ + ByVal ATTR_TITLE As String, _ + ByVal TYP_ID As Byte, _ + ByVal TYPE_ID As Byte, _ + ByVal TYPE_NAME As String, _ + ByVal VIEW_VISIBLE As Boolean, _ + ByVal VIEW_SEQUENCE As Integer, _ + ByVal LANG_ID As Byte, _ + ByVal LANG_CODE As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal ADDED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal SYS_ATTRIBUTE As Boolean, _ + ByVal MULTI_CONTEXT As Boolean) As VWIDB_BE_ATTRIBUTERow + Dim rowVWIDB_BE_ATTRIBUTERow As VWIDB_BE_ATTRIBUTERow = CType(Me.NewRow,VWIDB_BE_ATTRIBUTERow) + Dim columnValuesArray() As Object = New Object() {BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VISIBLE, VIEW_SEQUENCE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, SYS_ATTRIBUTE, MULTI_CONTEXT} + rowVWIDB_BE_ATTRIBUTERow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWIDB_BE_ATTRIBUTERow) + Return rowVWIDB_BE_ATTRIBUTERow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWIDB_BE_ATTRIBUTEDataTable = CType(MyBase.Clone,VWIDB_BE_ATTRIBUTEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWIDB_BE_ATTRIBUTEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnBE_ID = MyBase.Columns("BE_ID") + Me.columnBE = MyBase.Columns("BE") + Me.columnATTR_ID = MyBase.Columns("ATTR_ID") + Me.columnATTR_TITLE = MyBase.Columns("ATTR_TITLE") + Me.columnTYP_ID = MyBase.Columns("TYP_ID") + Me.columnTYPE_ID = MyBase.Columns("TYPE_ID") + Me.columnTYPE_NAME = MyBase.Columns("TYPE_NAME") + Me.columnVIEW_VISIBLE = MyBase.Columns("VIEW_VISIBLE") + Me.columnVIEW_SEQUENCE = MyBase.Columns("VIEW_SEQUENCE") + Me.columnLANG_ID = MyBase.Columns("LANG_ID") + Me.columnLANG_CODE = MyBase.Columns("LANG_CODE") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnSYS_ATTRIBUTE = MyBase.Columns("SYS_ATTRIBUTE") + Me.columnMULTI_CONTEXT = MyBase.Columns("MULTI_CONTEXT") + End Sub + + _ + Private Sub InitClass() + Me.columnBE_ID = New Global.System.Data.DataColumn("BE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBE_ID) + Me.columnBE = New Global.System.Data.DataColumn("BE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBE) + Me.columnATTR_ID = New Global.System.Data.DataColumn("ATTR_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_ID) + Me.columnATTR_TITLE = New Global.System.Data.DataColumn("ATTR_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnATTR_TITLE) + Me.columnTYP_ID = New Global.System.Data.DataColumn("TYP_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTYP_ID) + Me.columnTYPE_ID = New Global.System.Data.DataColumn("TYPE_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTYPE_ID) + Me.columnTYPE_NAME = New Global.System.Data.DataColumn("TYPE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTYPE_NAME) + Me.columnVIEW_VISIBLE = New Global.System.Data.DataColumn("VIEW_VISIBLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVIEW_VISIBLE) + Me.columnVIEW_SEQUENCE = New Global.System.Data.DataColumn("VIEW_SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVIEW_SEQUENCE) + Me.columnLANG_ID = New Global.System.Data.DataColumn("LANG_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLANG_ID) + Me.columnLANG_CODE = New Global.System.Data.DataColumn("LANG_CODE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLANG_CODE) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnSYS_ATTRIBUTE = New Global.System.Data.DataColumn("SYS_ATTRIBUTE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSYS_ATTRIBUTE) + Me.columnMULTI_CONTEXT = New Global.System.Data.DataColumn("MULTI_CONTEXT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMULTI_CONTEXT) + Me.columnBE.MaxLength = 500 + Me.columnATTR_TITLE.MaxLength = 900 + Me.columnTYPE_NAME.MaxLength = 100 + Me.columnVIEW_VISIBLE.DefaultValue = CType(true,Boolean) + Me.columnVIEW_SEQUENCE.AllowDBNull = false + Me.columnVIEW_SEQUENCE.DefaultValue = CType(1,Integer) + Me.columnLANG_ID.AllowDBNull = false + Me.columnLANG_ID.DefaultValue = CType(1,Byte) + Me.columnLANG_CODE.AllowDBNull = false + Me.columnLANG_CODE.DefaultValue = CType("de-DE",String) + Me.columnLANG_CODE.MaxLength = 10 + Me.columnADDED_WHO.DefaultValue = CType("",String) + Me.columnADDED_WHO.MaxLength = 30 + Me.columnCHANGED_WHO.MaxLength = 30 + Me.columnSYS_ATTRIBUTE.AllowDBNull = false + Me.columnSYS_ATTRIBUTE.DefaultValue = CType(false,Boolean) + Me.columnMULTI_CONTEXT.AllowDBNull = false + Me.columnMULTI_CONTEXT.DefaultValue = CType(false,Boolean) + End Sub + + _ + Public Function NewVWIDB_BE_ATTRIBUTERow() As VWIDB_BE_ATTRIBUTERow + Return CType(Me.NewRow,VWIDB_BE_ATTRIBUTERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWIDB_BE_ATTRIBUTERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWIDB_BE_ATTRIBUTERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWIDB_BE_ATTRIBUTERowChangedEvent) Is Nothing) Then + RaiseEvent VWIDB_BE_ATTRIBUTERowChanged(Me, New VWIDB_BE_ATTRIBUTERowChangeEvent(CType(e.Row,VWIDB_BE_ATTRIBUTERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWIDB_BE_ATTRIBUTERowChangingEvent) Is Nothing) Then + RaiseEvent VWIDB_BE_ATTRIBUTERowChanging(Me, New VWIDB_BE_ATTRIBUTERowChangeEvent(CType(e.Row,VWIDB_BE_ATTRIBUTERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWIDB_BE_ATTRIBUTERowDeletedEvent) Is Nothing) Then + RaiseEvent VWIDB_BE_ATTRIBUTERowDeleted(Me, New VWIDB_BE_ATTRIBUTERowChangeEvent(CType(e.Row,VWIDB_BE_ATTRIBUTERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWIDB_BE_ATTRIBUTERowDeletingEvent) Is Nothing) Then + RaiseEvent VWIDB_BE_ATTRIBUTERowDeleting(Me, New VWIDB_BE_ATTRIBUTERowChangeEvent(CType(e.Row,VWIDB_BE_ATTRIBUTERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWIDB_BE_ATTRIBUTERow(ByVal row As VWIDB_BE_ATTRIBUTERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWIDB_BE_ATTRIBUTEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBZF_ADMIN_SOURCE_SQLDataTable + Inherits Global.System.Data.TypedTableBase(Of TBZF_ADMIN_SOURCE_SQLRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPARENT_ID As Global.System.Data.DataColumn + + Private columnENTITY_TITLE As Global.System.Data.DataColumn + + Private columnSCOPE As Global.System.Data.DataColumn + + Private columnPK_COLUMN As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnSQL_COMMAND As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBZF_ADMIN_SOURCE_SQL" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARENT_ID + End Get + End Property + + _ + Public ReadOnly Property ENTITY_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnENTITY_TITLE + End Get + End Property + + _ + Public ReadOnly Property SCOPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSCOPE + End Get + End Property + + _ + Public ReadOnly Property PK_COLUMNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPK_COLUMN + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_COMMAND + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBZF_ADMIN_SOURCE_SQLRow + Get + Return CType(Me.Rows(index),TBZF_ADMIN_SOURCE_SQLRow) + End Get + End Property + + _ + Public Event TBZF_ADMIN_SOURCE_SQLRowChanging As TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler + + _ + Public Event TBZF_ADMIN_SOURCE_SQLRowChanged As TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler + + _ + Public Event TBZF_ADMIN_SOURCE_SQLRowDeleting As TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler + + _ + Public Event TBZF_ADMIN_SOURCE_SQLRowDeleted As TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler + + _ + Public Overloads Sub AddTBZF_ADMIN_SOURCE_SQLRow(ByVal row As TBZF_ADMIN_SOURCE_SQLRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBZF_ADMIN_SOURCE_SQLRow(ByVal PARENT_ID As Integer, ByVal ENTITY_TITLE As String, ByVal SCOPE As String, ByVal PK_COLUMN As String, ByVal COMMENT As String, ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBZF_ADMIN_SOURCE_SQLRow + Dim rowTBZF_ADMIN_SOURCE_SQLRow As TBZF_ADMIN_SOURCE_SQLRow = CType(Me.NewRow,TBZF_ADMIN_SOURCE_SQLRow) + Dim columnValuesArray() As Object = New Object() {Nothing, PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBZF_ADMIN_SOURCE_SQLRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBZF_ADMIN_SOURCE_SQLRow) + Return rowTBZF_ADMIN_SOURCE_SQLRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBZF_ADMIN_SOURCE_SQLRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBZF_ADMIN_SOURCE_SQLRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBZF_ADMIN_SOURCE_SQLDataTable = CType(MyBase.Clone,TBZF_ADMIN_SOURCE_SQLDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBZF_ADMIN_SOURCE_SQLDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") + Me.columnENTITY_TITLE = MyBase.Columns("ENTITY_TITLE") + Me.columnSCOPE = MyBase.Columns("SCOPE") + Me.columnPK_COLUMN = MyBase.Columns("PK_COLUMN") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPARENT_ID = New Global.System.Data.DataColumn("PARENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARENT_ID) + Me.columnENTITY_TITLE = New Global.System.Data.DataColumn("ENTITY_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnENTITY_TITLE) + Me.columnSCOPE = New Global.System.Data.DataColumn("SCOPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCOPE) + Me.columnPK_COLUMN = New Global.System.Data.DataColumn("PK_COLUMN", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPK_COLUMN) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_COMMAND) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + 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.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnPARENT_ID.DefaultValue = CType(0,Integer) + Me.columnENTITY_TITLE.AllowDBNull = false + Me.columnENTITY_TITLE.DefaultValue = CType("Unbenannt",String) + Me.columnENTITY_TITLE.MaxLength = 100 + Me.columnSCOPE.AllowDBNull = false + Me.columnSCOPE.MaxLength = 100 + Me.columnPK_COLUMN.AllowDBNull = false + Me.columnPK_COLUMN.MaxLength = 100 + Me.columnCOMMENT.MaxLength = 500 + Me.columnSQL_COMMAND.AllowDBNull = false + Me.columnSQL_COMMAND.MaxLength = 2147483647 + Me.columnADDED_WHO.MaxLength = 30 + Me.columnCHANGED_WHO.MaxLength = 30 + End Sub + + _ + Public Function NewTBZF_ADMIN_SOURCE_SQLRow() As TBZF_ADMIN_SOURCE_SQLRow + Return CType(Me.NewRow,TBZF_ADMIN_SOURCE_SQLRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBZF_ADMIN_SOURCE_SQLRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBZF_ADMIN_SOURCE_SQLRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBZF_ADMIN_SOURCE_SQLRowChangedEvent) Is Nothing) Then + RaiseEvent TBZF_ADMIN_SOURCE_SQLRowChanged(Me, New TBZF_ADMIN_SOURCE_SQLRowChangeEvent(CType(e.Row,TBZF_ADMIN_SOURCE_SQLRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBZF_ADMIN_SOURCE_SQLRowChangingEvent) Is Nothing) Then + RaiseEvent TBZF_ADMIN_SOURCE_SQLRowChanging(Me, New TBZF_ADMIN_SOURCE_SQLRowChangeEvent(CType(e.Row,TBZF_ADMIN_SOURCE_SQLRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBZF_ADMIN_SOURCE_SQLRowDeletedEvent) Is Nothing) Then + RaiseEvent TBZF_ADMIN_SOURCE_SQLRowDeleted(Me, New TBZF_ADMIN_SOURCE_SQLRowChangeEvent(CType(e.Row,TBZF_ADMIN_SOURCE_SQLRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBZF_ADMIN_SOURCE_SQLRowDeletingEvent) Is Nothing) Then + RaiseEvent TBZF_ADMIN_SOURCE_SQLRowDeleting(Me, New TBZF_ADMIN_SOURCE_SQLRowChangeEvent(CType(e.Row,TBZF_ADMIN_SOURCE_SQLRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBZF_ADMIN_SOURCE_SQLRow(ByVal row As TBZF_ADMIN_SOURCE_SQLRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBZF_ADMIN_SOURCE_SQLDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBIDB_OBJECT_STOREDataTable + Inherits Global.System.Data.TypedTableBase(Of TBIDB_OBJECT_STORERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnOBJECT_TITLE As Global.System.Data.DataColumn + + Private columnCAT_ID As Global.System.Data.DataColumn + + Private columnOBJ_PATH As Global.System.Data.DataColumn + + Private columnIS_ARCHIVE As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnCAT_TITLE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBIDB_OBJECT_STORE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property OBJECT_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOBJECT_TITLE + End Get + End Property + + _ + Public ReadOnly Property CAT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCAT_ID + End Get + End Property + + _ + Public ReadOnly Property OBJ_PATHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOBJ_PATH + End Get + End Property + + _ + Public ReadOnly Property IS_ARCHIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIS_ARCHIVE + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CAT_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCAT_TITLE + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBIDB_OBJECT_STORERow + Get + Return CType(Me.Rows(index),TBIDB_OBJECT_STORERow) + End Get + End Property + + _ + Public Event TBIDB_OBJECT_STORERowChanging As TBIDB_OBJECT_STORERowChangeEventHandler + + _ + Public Event TBIDB_OBJECT_STORERowChanged As TBIDB_OBJECT_STORERowChangeEventHandler + + _ + Public Event TBIDB_OBJECT_STORERowDeleting As TBIDB_OBJECT_STORERowChangeEventHandler + + _ + Public Event TBIDB_OBJECT_STORERowDeleted As TBIDB_OBJECT_STORERowChangeEventHandler + + _ + Public Overloads Sub AddTBIDB_OBJECT_STORERow(ByVal row As TBIDB_OBJECT_STORERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBIDB_OBJECT_STORERow(ByVal OBJECT_TITLE As String, ByVal parentTBIDB_CATALOGRowByFK_OS_CAT_ID As TBIDB_CATALOGRow, ByVal OBJ_PATH As String, ByVal IS_ARCHIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal CAT_TITLE As String) As TBIDB_OBJECT_STORERow + Dim rowTBIDB_OBJECT_STORERow As TBIDB_OBJECT_STORERow = CType(Me.NewRow,TBIDB_OBJECT_STORERow) + Dim columnValuesArray() As Object = New Object() {Nothing, OBJECT_TITLE, Nothing, OBJ_PATH, IS_ARCHIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, CAT_TITLE} + If (Not (parentTBIDB_CATALOGRowByFK_OS_CAT_ID) Is Nothing) Then + columnValuesArray(2) = parentTBIDB_CATALOGRowByFK_OS_CAT_ID(0) + End If + rowTBIDB_OBJECT_STORERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBIDB_OBJECT_STORERow) + Return rowTBIDB_OBJECT_STORERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBIDB_OBJECT_STORERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_OBJECT_STORERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBIDB_OBJECT_STOREDataTable = CType(MyBase.Clone,TBIDB_OBJECT_STOREDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBIDB_OBJECT_STOREDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnOBJECT_TITLE = MyBase.Columns("OBJECT_TITLE") + Me.columnCAT_ID = MyBase.Columns("CAT_ID") + Me.columnOBJ_PATH = MyBase.Columns("OBJ_PATH") + Me.columnIS_ARCHIVE = MyBase.Columns("IS_ARCHIVE") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnCAT_TITLE = MyBase.Columns("CAT_TITLE") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnOBJECT_TITLE = New Global.System.Data.DataColumn("OBJECT_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOBJECT_TITLE) + Me.columnCAT_ID = New Global.System.Data.DataColumn("CAT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCAT_ID) + Me.columnOBJ_PATH = New Global.System.Data.DataColumn("OBJ_PATH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOBJ_PATH) + Me.columnIS_ARCHIVE = New Global.System.Data.DataColumn("IS_ARCHIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIS_ARCHIVE) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnCAT_TITLE = New Global.System.Data.DataColumn("CAT_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCAT_TITLE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnOBJECT_TITLE.AllowDBNull = false + Me.columnOBJECT_TITLE.MaxLength = 250 + Me.columnCAT_ID.AllowDBNull = false + Me.columnCAT_ID.DefaultValue = CType(0,Integer) + Me.columnOBJ_PATH.AllowDBNull = false + Me.columnOBJ_PATH.DefaultValue = CType("",String) + Me.columnOBJ_PATH.MaxLength = 250 + Me.columnIS_ARCHIVE.AllowDBNull = false + Me.columnIS_ARCHIVE.DefaultValue = CType(false,Boolean) + Me.columnCOMMENT.MaxLength = 500 + Me.columnADDED_WHO.MaxLength = 30 + Me.columnCHANGED_WHO.MaxLength = 30 + Me.columnCAT_TITLE.MaxLength = 100 + End Sub + + _ + Public Function NewTBIDB_OBJECT_STORERow() As TBIDB_OBJECT_STORERow + Return CType(Me.NewRow,TBIDB_OBJECT_STORERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBIDB_OBJECT_STORERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBIDB_OBJECT_STORERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBIDB_OBJECT_STORERowChangedEvent) Is Nothing) Then + RaiseEvent TBIDB_OBJECT_STORERowChanged(Me, New TBIDB_OBJECT_STORERowChangeEvent(CType(e.Row,TBIDB_OBJECT_STORERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBIDB_OBJECT_STORERowChangingEvent) Is Nothing) Then + RaiseEvent TBIDB_OBJECT_STORERowChanging(Me, New TBIDB_OBJECT_STORERowChangeEvent(CType(e.Row,TBIDB_OBJECT_STORERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBIDB_OBJECT_STORERowDeletedEvent) Is Nothing) Then + RaiseEvent TBIDB_OBJECT_STORERowDeleted(Me, New TBIDB_OBJECT_STORERowChangeEvent(CType(e.Row,TBIDB_OBJECT_STORERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBIDB_OBJECT_STORERowDeletingEvent) Is Nothing) Then + RaiseEvent TBIDB_OBJECT_STORERowDeleting(Me, New TBIDB_OBJECT_STORERowChangeEvent(CType(e.Row,TBIDB_OBJECT_STORERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBIDB_OBJECT_STORERow(ByVal row As TBIDB_OBJECT_STORERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBIDB_OBJECT_STOREDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBIDB_CATALOGDataTable + Inherits Global.System.Data.TypedTableBase(Of TBIDB_CATALOGRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnCAT_TITLE As Global.System.Data.DataColumn + + Private columnCAT_STRING As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBIDB_CATALOG" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property CAT_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCAT_TITLE + End Get + End Property + + _ + Public ReadOnly Property CAT_STRINGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCAT_STRING + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBIDB_CATALOGRow + Get + Return CType(Me.Rows(index),TBIDB_CATALOGRow) + End Get + End Property + + _ + Public Event TBIDB_CATALOGRowChanging As TBIDB_CATALOGRowChangeEventHandler + + _ + Public Event TBIDB_CATALOGRowChanged As TBIDB_CATALOGRowChangeEventHandler + + _ + Public Event TBIDB_CATALOGRowDeleting As TBIDB_CATALOGRowChangeEventHandler + + _ + Public Event TBIDB_CATALOGRowDeleted As TBIDB_CATALOGRowChangeEventHandler + + _ + Public Overloads Sub AddTBIDB_CATALOGRow(ByVal row As TBIDB_CATALOGRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBIDB_CATALOGRow(ByVal CAT_TITLE As String, ByVal CAT_STRING As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBIDB_CATALOGRow + Dim rowTBIDB_CATALOGRow As TBIDB_CATALOGRow = CType(Me.NewRow,TBIDB_CATALOGRow) + Dim columnValuesArray() As Object = New Object() {Nothing, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBIDB_CATALOGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBIDB_CATALOGRow) + Return rowTBIDB_CATALOGRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBIDB_CATALOGRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_CATALOGRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBIDB_CATALOGDataTable = CType(MyBase.Clone,TBIDB_CATALOGDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBIDB_CATALOGDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnCAT_TITLE = MyBase.Columns("CAT_TITLE") + Me.columnCAT_STRING = MyBase.Columns("CAT_STRING") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnCAT_TITLE = New Global.System.Data.DataColumn("CAT_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCAT_TITLE) + Me.columnCAT_STRING = New Global.System.Data.DataColumn("CAT_STRING", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCAT_STRING) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnCAT_TITLE.AllowDBNull = false + Me.columnCAT_TITLE.MaxLength = 100 + Me.columnCAT_STRING.AllowDBNull = false + Me.columnCAT_STRING.MaxLength = 900 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 30 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 30 + End Sub + + _ + Public Function NewTBIDB_CATALOGRow() As TBIDB_CATALOGRow + Return CType(Me.NewRow,TBIDB_CATALOGRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBIDB_CATALOGRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBIDB_CATALOGRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBIDB_CATALOGRowChangedEvent) Is Nothing) Then + RaiseEvent TBIDB_CATALOGRowChanged(Me, New TBIDB_CATALOGRowChangeEvent(CType(e.Row,TBIDB_CATALOGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBIDB_CATALOGRowChangingEvent) Is Nothing) Then + RaiseEvent TBIDB_CATALOGRowChanging(Me, New TBIDB_CATALOGRowChangeEvent(CType(e.Row,TBIDB_CATALOGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBIDB_CATALOGRowDeletedEvent) Is Nothing) Then + RaiseEvent TBIDB_CATALOGRowDeleted(Me, New TBIDB_CATALOGRowChangeEvent(CType(e.Row,TBIDB_CATALOGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBIDB_CATALOGRowDeletingEvent) Is Nothing) Then + RaiseEvent TBIDB_CATALOGRowDeleting(Me, New TBIDB_CATALOGRowChangeEvent(CType(e.Row,TBIDB_CATALOGRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBIDB_CATALOGRow(ByVal row As TBIDB_CATALOGRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBIDB_CATALOGDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWH_ATTRIBUTE_TYPEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_ATTRIBUTE_TYPERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME_TYPE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWH_ATTRIBUTE_TYPE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property NAME_TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME_TYPE + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_ATTRIBUTE_TYPERow + Get + Return CType(Me.Rows(index),TBWH_ATTRIBUTE_TYPERow) + End Get + End Property + + _ + Public Event TBWH_ATTRIBUTE_TYPERowChanging As TBWH_ATTRIBUTE_TYPERowChangeEventHandler + + _ + Public Event TBWH_ATTRIBUTE_TYPERowChanged As TBWH_ATTRIBUTE_TYPERowChangeEventHandler + + _ + Public Event TBWH_ATTRIBUTE_TYPERowDeleting As TBWH_ATTRIBUTE_TYPERowChangeEventHandler + + _ + Public Event TBWH_ATTRIBUTE_TYPERowDeleted As TBWH_ATTRIBUTE_TYPERowChangeEventHandler + + _ + Public Overloads Sub AddTBWH_ATTRIBUTE_TYPERow(ByVal row As TBWH_ATTRIBUTE_TYPERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWH_ATTRIBUTE_TYPERow(ByVal GUID As Byte, ByVal NAME_TYPE As String) As TBWH_ATTRIBUTE_TYPERow + Dim rowTBWH_ATTRIBUTE_TYPERow As TBWH_ATTRIBUTE_TYPERow = CType(Me.NewRow,TBWH_ATTRIBUTE_TYPERow) + Dim columnValuesArray() As Object = New Object() {GUID, NAME_TYPE} + rowTBWH_ATTRIBUTE_TYPERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_ATTRIBUTE_TYPERow) + Return rowTBWH_ATTRIBUTE_TYPERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Byte) As TBWH_ATTRIBUTE_TYPERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_ATTRIBUTE_TYPERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_ATTRIBUTE_TYPEDataTable = CType(MyBase.Clone,TBWH_ATTRIBUTE_TYPEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_ATTRIBUTE_TYPEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME_TYPE = MyBase.Columns("NAME_TYPE") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME_TYPE = New Global.System.Data.DataColumn("NAME_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME_TYPE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnNAME_TYPE.AllowDBNull = false + Me.columnNAME_TYPE.MaxLength = 100 + End Sub + + _ + Public Function NewTBWH_ATTRIBUTE_TYPERow() As TBWH_ATTRIBUTE_TYPERow + Return CType(Me.NewRow,TBWH_ATTRIBUTE_TYPERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_ATTRIBUTE_TYPERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_ATTRIBUTE_TYPERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_ATTRIBUTE_TYPERowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_ATTRIBUTE_TYPERowChanged(Me, New TBWH_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBWH_ATTRIBUTE_TYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_ATTRIBUTE_TYPERowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_ATTRIBUTE_TYPERowChanging(Me, New TBWH_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBWH_ATTRIBUTE_TYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_ATTRIBUTE_TYPERowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_ATTRIBUTE_TYPERowDeleted(Me, New TBWH_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBWH_ATTRIBUTE_TYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_ATTRIBUTE_TYPERowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_ATTRIBUTE_TYPERowDeleting(Me, New TBWH_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBWH_ATTRIBUTE_TYPERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_ATTRIBUTE_TYPERow(ByVal row As TBWH_ATTRIBUTE_TYPERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_ATTRIBUTE_TYPEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWIDB_OBJECT_STOREDataTable + Inherits Global.System.Data.TypedTableBase(Of VWIDB_OBJECT_STORERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnObjectstore As Global.System.Data.DataColumn + + Private columnArchive As Global.System.Data.DataColumn + + Private columnREL_PATH As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWIDB_OBJECT_STORE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property ObjectstoreColumn() As Global.System.Data.DataColumn + Get + Return Me.columnObjectstore + End Get + End Property + + _ + Public ReadOnly Property ArchiveColumn() As Global.System.Data.DataColumn + Get + Return Me.columnArchive + End Get + End Property + + _ + Public ReadOnly Property REL_PATHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREL_PATH + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWIDB_OBJECT_STORERow + Get + Return CType(Me.Rows(index),VWIDB_OBJECT_STORERow) + End Get + End Property + + _ + Public Event VWIDB_OBJECT_STORERowChanging As VWIDB_OBJECT_STORERowChangeEventHandler + + _ + Public Event VWIDB_OBJECT_STORERowChanged As VWIDB_OBJECT_STORERowChangeEventHandler + + _ + Public Event VWIDB_OBJECT_STORERowDeleting As VWIDB_OBJECT_STORERowChangeEventHandler + + _ + Public Event VWIDB_OBJECT_STORERowDeleted As VWIDB_OBJECT_STORERowChangeEventHandler + + _ + Public Overloads Sub AddVWIDB_OBJECT_STORERow(ByVal row As VWIDB_OBJECT_STORERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWIDB_OBJECT_STORERow(ByVal GUID As Integer, ByVal Objectstore As String, ByVal Archive As Boolean, ByVal REL_PATH As String, ByVal ADDED_WHEN As Date, ByVal ADDED_WHO As String, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As VWIDB_OBJECT_STORERow + Dim rowVWIDB_OBJECT_STORERow As VWIDB_OBJECT_STORERow = CType(Me.NewRow,VWIDB_OBJECT_STORERow) + Dim columnValuesArray() As Object = New Object() {GUID, Objectstore, Archive, REL_PATH, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN} + rowVWIDB_OBJECT_STORERow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWIDB_OBJECT_STORERow) + Return rowVWIDB_OBJECT_STORERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As VWIDB_OBJECT_STORERow + Return CType(Me.Rows.Find(New Object() {GUID}),VWIDB_OBJECT_STORERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWIDB_OBJECT_STOREDataTable = CType(MyBase.Clone,VWIDB_OBJECT_STOREDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWIDB_OBJECT_STOREDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnObjectstore = MyBase.Columns("Objectstore") + Me.columnArchive = MyBase.Columns("Archive") + Me.columnREL_PATH = MyBase.Columns("REL_PATH") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnObjectstore = New Global.System.Data.DataColumn("Objectstore", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnObjectstore) + Me.columnArchive = New Global.System.Data.DataColumn("Archive", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnArchive) + Me.columnREL_PATH = New Global.System.Data.DataColumn("REL_PATH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnREL_PATH) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnObjectstore.AllowDBNull = false + Me.columnObjectstore.MaxLength = 250 + Me.columnArchive.AllowDBNull = false + Me.columnREL_PATH.AllowDBNull = false + Me.columnREL_PATH.MaxLength = 900 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 30 + Me.columnCHANGED_WHO.MaxLength = 30 + End Sub + + _ + Public Function NewVWIDB_OBJECT_STORERow() As VWIDB_OBJECT_STORERow + Return CType(Me.NewRow,VWIDB_OBJECT_STORERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWIDB_OBJECT_STORERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWIDB_OBJECT_STORERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWIDB_OBJECT_STORERowChangedEvent) Is Nothing) Then + RaiseEvent VWIDB_OBJECT_STORERowChanged(Me, New VWIDB_OBJECT_STORERowChangeEvent(CType(e.Row,VWIDB_OBJECT_STORERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWIDB_OBJECT_STORERowChangingEvent) Is Nothing) Then + RaiseEvent VWIDB_OBJECT_STORERowChanging(Me, New VWIDB_OBJECT_STORERowChangeEvent(CType(e.Row,VWIDB_OBJECT_STORERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWIDB_OBJECT_STORERowDeletedEvent) Is Nothing) Then + RaiseEvent VWIDB_OBJECT_STORERowDeleted(Me, New VWIDB_OBJECT_STORERowChangeEvent(CType(e.Row,VWIDB_OBJECT_STORERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWIDB_OBJECT_STORERowDeletingEvent) Is Nothing) Then + RaiseEvent VWIDB_OBJECT_STORERowDeleting(Me, New VWIDB_OBJECT_STORERowChangeEvent(CType(e.Row,VWIDB_OBJECT_STORERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWIDB_OBJECT_STORERow(ByVal row As VWIDB_OBJECT_STORERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWIDB_OBJECT_STOREDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWIDB_DOCTYPES_DEDataTable + Inherits Global.System.Data.TypedTableBase(Of VWIDB_DOCTYPES_DERow) + + Private columnDoctype As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWIDB_DOCTYPES_DE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property DoctypeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDoctype + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWIDB_DOCTYPES_DERow + Get + Return CType(Me.Rows(index),VWIDB_DOCTYPES_DERow) + End Get + End Property + + _ + Public Event VWIDB_DOCTYPES_DERowChanging As VWIDB_DOCTYPES_DERowChangeEventHandler + + _ + Public Event VWIDB_DOCTYPES_DERowChanged As VWIDB_DOCTYPES_DERowChangeEventHandler + + _ + Public Event VWIDB_DOCTYPES_DERowDeleting As VWIDB_DOCTYPES_DERowChangeEventHandler + + _ + Public Event VWIDB_DOCTYPES_DERowDeleted As VWIDB_DOCTYPES_DERowChangeEventHandler + + _ + Public Overloads Sub AddVWIDB_DOCTYPES_DERow(ByVal row As VWIDB_DOCTYPES_DERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWIDB_DOCTYPES_DERow(ByVal Doctype As String) As VWIDB_DOCTYPES_DERow + Dim rowVWIDB_DOCTYPES_DERow As VWIDB_DOCTYPES_DERow = CType(Me.NewRow,VWIDB_DOCTYPES_DERow) + Dim columnValuesArray() As Object = New Object() {Doctype} + rowVWIDB_DOCTYPES_DERow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWIDB_DOCTYPES_DERow) + Return rowVWIDB_DOCTYPES_DERow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWIDB_DOCTYPES_DEDataTable = CType(MyBase.Clone,VWIDB_DOCTYPES_DEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWIDB_DOCTYPES_DEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnDoctype = MyBase.Columns("Doctype") + End Sub + + _ + Private Sub InitClass() + Me.columnDoctype = New Global.System.Data.DataColumn("Doctype", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDoctype) + Me.columnDoctype.AllowDBNull = false + Me.columnDoctype.MaxLength = 900 + End Sub + + _ + Public Function NewVWIDB_DOCTYPES_DERow() As VWIDB_DOCTYPES_DERow + Return CType(Me.NewRow,VWIDB_DOCTYPES_DERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWIDB_DOCTYPES_DERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWIDB_DOCTYPES_DERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWIDB_DOCTYPES_DERowChangedEvent) Is Nothing) Then + RaiseEvent VWIDB_DOCTYPES_DERowChanged(Me, New VWIDB_DOCTYPES_DERowChangeEvent(CType(e.Row,VWIDB_DOCTYPES_DERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWIDB_DOCTYPES_DERowChangingEvent) Is Nothing) Then + RaiseEvent VWIDB_DOCTYPES_DERowChanging(Me, New VWIDB_DOCTYPES_DERowChangeEvent(CType(e.Row,VWIDB_DOCTYPES_DERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWIDB_DOCTYPES_DERowDeletedEvent) Is Nothing) Then + RaiseEvent VWIDB_DOCTYPES_DERowDeleted(Me, New VWIDB_DOCTYPES_DERowChangeEvent(CType(e.Row,VWIDB_DOCTYPES_DERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWIDB_DOCTYPES_DERowDeletingEvent) Is Nothing) Then + RaiseEvent VWIDB_DOCTYPES_DERowDeleting(Me, New VWIDB_DOCTYPES_DERowChangeEvent(CType(e.Row,VWIDB_DOCTYPES_DERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWIDB_DOCTYPES_DERow(ByVal row As VWIDB_DOCTYPES_DERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWIDB_DOCTYPES_DEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBIDB_DOCTYPE_HANDLINGDataTable + Inherits Global.System.Data.TypedTableBase(Of TBIDB_DOCTYPE_HANDLINGRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnDOCTYPE As Global.System.Data.DataColumn + + Private columnCHANGED_ACTION As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBIDB_DOCTYPE_HANDLING" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property DOCTYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOCTYPE + End Get + End Property + + _ + Public ReadOnly Property CHANGED_ACTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_ACTION + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBIDB_DOCTYPE_HANDLINGRow + Get + Return CType(Me.Rows(index),TBIDB_DOCTYPE_HANDLINGRow) + End Get + End Property + + _ + Public Event TBIDB_DOCTYPE_HANDLINGRowChanging As TBIDB_DOCTYPE_HANDLINGRowChangeEventHandler + + _ + Public Event TBIDB_DOCTYPE_HANDLINGRowChanged As TBIDB_DOCTYPE_HANDLINGRowChangeEventHandler + + _ + Public Event TBIDB_DOCTYPE_HANDLINGRowDeleting As TBIDB_DOCTYPE_HANDLINGRowChangeEventHandler + + _ + Public Event TBIDB_DOCTYPE_HANDLINGRowDeleted As TBIDB_DOCTYPE_HANDLINGRowChangeEventHandler + + _ + Public Overloads Sub AddTBIDB_DOCTYPE_HANDLINGRow(ByVal row As TBIDB_DOCTYPE_HANDLINGRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBIDB_DOCTYPE_HANDLINGRow(ByVal DOCTYPE As String, ByVal parentTBIDB_CATALOGRowByFK_TBIDB_DOCTYPE_HANDLING_CHNGACT As TBIDB_CATALOGRow, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBIDB_DOCTYPE_HANDLINGRow + Dim rowTBIDB_DOCTYPE_HANDLINGRow As TBIDB_DOCTYPE_HANDLINGRow = CType(Me.NewRow,TBIDB_DOCTYPE_HANDLINGRow) + Dim columnValuesArray() As Object = New Object() {Nothing, DOCTYPE, Nothing, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBIDB_CATALOGRowByFK_TBIDB_DOCTYPE_HANDLING_CHNGACT) Is Nothing) Then + columnValuesArray(2) = parentTBIDB_CATALOGRowByFK_TBIDB_DOCTYPE_HANDLING_CHNGACT(0) + End If + rowTBIDB_DOCTYPE_HANDLINGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBIDB_DOCTYPE_HANDLINGRow) + Return rowTBIDB_DOCTYPE_HANDLINGRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBIDB_DOCTYPE_HANDLINGRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_DOCTYPE_HANDLINGRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBIDB_DOCTYPE_HANDLINGDataTable = CType(MyBase.Clone,TBIDB_DOCTYPE_HANDLINGDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBIDB_DOCTYPE_HANDLINGDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnDOCTYPE = MyBase.Columns("DOCTYPE") + Me.columnCHANGED_ACTION = MyBase.Columns("CHANGED_ACTION") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnDOCTYPE = New Global.System.Data.DataColumn("DOCTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOCTYPE) + Me.columnCHANGED_ACTION = New Global.System.Data.DataColumn("CHANGED_ACTION", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_ACTION) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + 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.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnDOCTYPE.AllowDBNull = false + Me.columnDOCTYPE.MaxLength = 100 + Me.columnCHANGED_ACTION.AllowDBNull = false + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(true,Boolean) + Me.columnCOMMENT.MaxLength = 1000 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 30 + Me.columnCHANGED_WHO.MaxLength = 30 + End Sub + + _ + Public Function NewTBIDB_DOCTYPE_HANDLINGRow() As TBIDB_DOCTYPE_HANDLINGRow + Return CType(Me.NewRow,TBIDB_DOCTYPE_HANDLINGRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBIDB_DOCTYPE_HANDLINGRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBIDB_DOCTYPE_HANDLINGRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBIDB_DOCTYPE_HANDLINGRowChangedEvent) Is Nothing) Then + RaiseEvent TBIDB_DOCTYPE_HANDLINGRowChanged(Me, New TBIDB_DOCTYPE_HANDLINGRowChangeEvent(CType(e.Row,TBIDB_DOCTYPE_HANDLINGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBIDB_DOCTYPE_HANDLINGRowChangingEvent) Is Nothing) Then + RaiseEvent TBIDB_DOCTYPE_HANDLINGRowChanging(Me, New TBIDB_DOCTYPE_HANDLINGRowChangeEvent(CType(e.Row,TBIDB_DOCTYPE_HANDLINGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBIDB_DOCTYPE_HANDLINGRowDeletedEvent) Is Nothing) Then + RaiseEvent TBIDB_DOCTYPE_HANDLINGRowDeleted(Me, New TBIDB_DOCTYPE_HANDLINGRowChangeEvent(CType(e.Row,TBIDB_DOCTYPE_HANDLINGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBIDB_DOCTYPE_HANDLINGRowDeletingEvent) Is Nothing) Then + RaiseEvent TBIDB_DOCTYPE_HANDLINGRowDeleting(Me, New TBIDB_DOCTYPE_HANDLINGRowChangeEvent(CType(e.Row,TBIDB_DOCTYPE_HANDLINGRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBIDB_DOCTYPE_HANDLINGRow(ByVal row As TBIDB_DOCTYPE_HANDLINGRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBIDB_DOCTYPE_HANDLINGDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBIDB_CATALOG_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBIDB_CATALOG_USERRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnCAT_TITLE As Global.System.Data.DataColumn + + Private columnCAT_STRING As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBIDB_CATALOG_USER" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property CAT_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCAT_TITLE + End Get + End Property + + _ + Public ReadOnly Property CAT_STRINGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCAT_STRING + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBIDB_CATALOG_USERRow + Get + Return CType(Me.Rows(index),TBIDB_CATALOG_USERRow) + End Get + End Property + + _ + Public Event TBIDB_CATALOG_USERRowChanging As TBIDB_CATALOG_USERRowChangeEventHandler + + _ + Public Event TBIDB_CATALOG_USERRowChanged As TBIDB_CATALOG_USERRowChangeEventHandler + + _ + Public Event TBIDB_CATALOG_USERRowDeleting As TBIDB_CATALOG_USERRowChangeEventHandler + + _ + Public Event TBIDB_CATALOG_USERRowDeleted As TBIDB_CATALOG_USERRowChangeEventHandler + + _ + Public Overloads Sub AddTBIDB_CATALOG_USERRow(ByVal row As TBIDB_CATALOG_USERRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBIDB_CATALOG_USERRow(ByVal CAT_TITLE As String, ByVal CAT_STRING As String) As TBIDB_CATALOG_USERRow + Dim rowTBIDB_CATALOG_USERRow As TBIDB_CATALOG_USERRow = CType(Me.NewRow,TBIDB_CATALOG_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, CAT_TITLE, CAT_STRING} + rowTBIDB_CATALOG_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBIDB_CATALOG_USERRow) + Return rowTBIDB_CATALOG_USERRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBIDB_CATALOG_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_CATALOG_USERRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBIDB_CATALOG_USERDataTable = CType(MyBase.Clone,TBIDB_CATALOG_USERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBIDB_CATALOG_USERDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnCAT_TITLE = MyBase.Columns("CAT_TITLE") + Me.columnCAT_STRING = MyBase.Columns("CAT_STRING") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnCAT_TITLE = New Global.System.Data.DataColumn("CAT_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCAT_TITLE) + Me.columnCAT_STRING = New Global.System.Data.DataColumn("CAT_STRING", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCAT_STRING) + 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.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnCAT_TITLE.AllowDBNull = false + Me.columnCAT_TITLE.MaxLength = 100 + Me.columnCAT_STRING.AllowDBNull = false + Me.columnCAT_STRING.MaxLength = 900 + End Sub + + _ + Public Function NewTBIDB_CATALOG_USERRow() As TBIDB_CATALOG_USERRow + Return CType(Me.NewRow,TBIDB_CATALOG_USERRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBIDB_CATALOG_USERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBIDB_CATALOG_USERRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBIDB_CATALOG_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBIDB_CATALOG_USERRowChanged(Me, New TBIDB_CATALOG_USERRowChangeEvent(CType(e.Row,TBIDB_CATALOG_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBIDB_CATALOG_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBIDB_CATALOG_USERRowChanging(Me, New TBIDB_CATALOG_USERRowChangeEvent(CType(e.Row,TBIDB_CATALOG_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBIDB_CATALOG_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBIDB_CATALOG_USERRowDeleted(Me, New TBIDB_CATALOG_USERRowChangeEvent(CType(e.Row,TBIDB_CATALOG_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBIDB_CATALOG_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBIDB_CATALOG_USERRowDeleting(Me, New TBIDB_CATALOG_USERRowChangeEvent(CType(e.Row,TBIDB_CATALOG_USERRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBIDB_CATALOG_USERRow(ByVal row As TBIDB_CATALOG_USERRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBIDB_CATALOG_USERDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBIDB_LANGUAGEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBIDB_LANGUAGERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnLANG_CODE As Global.System.Data.DataColumn + + Private columnCREATE_DEFAULT_ENTRY As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBIDB_LANGUAGE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property LANG_CODEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLANG_CODE + End Get + End Property + + _ + Public ReadOnly Property CREATE_DEFAULT_ENTRYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCREATE_DEFAULT_ENTRY + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBIDB_LANGUAGERow + Get + Return CType(Me.Rows(index),TBIDB_LANGUAGERow) + End Get + End Property + + _ + Public Event TBIDB_LANGUAGERowChanging As TBIDB_LANGUAGERowChangeEventHandler + + _ + Public Event TBIDB_LANGUAGERowChanged As TBIDB_LANGUAGERowChangeEventHandler + + _ + Public Event TBIDB_LANGUAGERowDeleting As TBIDB_LANGUAGERowChangeEventHandler + + _ + Public Event TBIDB_LANGUAGERowDeleted As TBIDB_LANGUAGERowChangeEventHandler + + _ + Public Overloads Sub AddTBIDB_LANGUAGERow(ByVal row As TBIDB_LANGUAGERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBIDB_LANGUAGERow(ByVal GUID As Byte, ByVal LANG_CODE As String, ByVal CREATE_DEFAULT_ENTRY As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBIDB_LANGUAGERow + Dim rowTBIDB_LANGUAGERow As TBIDB_LANGUAGERow = CType(Me.NewRow,TBIDB_LANGUAGERow) + Dim columnValuesArray() As Object = New Object() {GUID, LANG_CODE, CREATE_DEFAULT_ENTRY, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBIDB_LANGUAGERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBIDB_LANGUAGERow) + Return rowTBIDB_LANGUAGERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Byte) As TBIDB_LANGUAGERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_LANGUAGERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBIDB_LANGUAGEDataTable = CType(MyBase.Clone,TBIDB_LANGUAGEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBIDB_LANGUAGEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnLANG_CODE = MyBase.Columns("LANG_CODE") + Me.columnCREATE_DEFAULT_ENTRY = MyBase.Columns("CREATE_DEFAULT_ENTRY") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnLANG_CODE = New Global.System.Data.DataColumn("LANG_CODE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLANG_CODE) + Me.columnCREATE_DEFAULT_ENTRY = New Global.System.Data.DataColumn("CREATE_DEFAULT_ENTRY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCREATE_DEFAULT_ENTRY) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnLANG_CODE.AllowDBNull = false + Me.columnLANG_CODE.MaxLength = 10 + Me.columnCREATE_DEFAULT_ENTRY.AllowDBNull = false + Me.columnCOMMENT.MaxLength = 1000 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 30 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 30 + End Sub + + _ + Public Function NewTBIDB_LANGUAGERow() As TBIDB_LANGUAGERow + Return CType(Me.NewRow,TBIDB_LANGUAGERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBIDB_LANGUAGERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBIDB_LANGUAGERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBIDB_LANGUAGERowChangedEvent) Is Nothing) Then + RaiseEvent TBIDB_LANGUAGERowChanged(Me, New TBIDB_LANGUAGERowChangeEvent(CType(e.Row,TBIDB_LANGUAGERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBIDB_LANGUAGERowChangingEvent) Is Nothing) Then + RaiseEvent TBIDB_LANGUAGERowChanging(Me, New TBIDB_LANGUAGERowChangeEvent(CType(e.Row,TBIDB_LANGUAGERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBIDB_LANGUAGERowDeletedEvent) Is Nothing) Then + RaiseEvent TBIDB_LANGUAGERowDeleted(Me, New TBIDB_LANGUAGERowChangeEvent(CType(e.Row,TBIDB_LANGUAGERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBIDB_LANGUAGERowDeletingEvent) Is Nothing) Then + RaiseEvent TBIDB_LANGUAGERowDeleting(Me, New TBIDB_LANGUAGERowChangeEvent(CType(e.Row,TBIDB_LANGUAGERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBIDB_LANGUAGERow(ByVal row As TBIDB_LANGUAGERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBIDB_LANGUAGEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWIDB_DOCTYPE_LANGUAGEDataTable + Inherits Global.System.Data.TypedTableBase(Of VWIDB_DOCTYPE_LANGUAGERow) + + Private columnID As Global.System.Data.DataColumn + + Private columnSystemTitle As Global.System.Data.DataColumn + + Private columnDoctype As Global.System.Data.DataColumn + + Private columnLanguage As Global.System.Data.DataColumn + + Private columnAdded_When As Global.System.Data.DataColumn + + Private columnChanged_When As Global.System.Data.DataColumn + + Private columnDoctype_ID As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWIDB_DOCTYPE_LANGUAGE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnID + End Get + End Property + + _ + Public ReadOnly Property SystemTitleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSystemTitle + End Get + End Property + + _ + Public ReadOnly Property DoctypeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDoctype + End Get + End Property + + _ + Public ReadOnly Property LanguageColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLanguage + End Get + End Property + + _ + Public ReadOnly Property Added_WhenColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAdded_When + End Get + End Property + + _ + Public ReadOnly Property Changed_WhenColumn() As Global.System.Data.DataColumn + Get + Return Me.columnChanged_When + End Get + End Property + + _ + Public ReadOnly Property Doctype_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDoctype_ID + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWIDB_DOCTYPE_LANGUAGERow + Get + Return CType(Me.Rows(index),VWIDB_DOCTYPE_LANGUAGERow) + End Get + End Property + + _ + Public Event VWIDB_DOCTYPE_LANGUAGERowChanging As VWIDB_DOCTYPE_LANGUAGERowChangeEventHandler + + _ + Public Event VWIDB_DOCTYPE_LANGUAGERowChanged As VWIDB_DOCTYPE_LANGUAGERowChangeEventHandler + + _ + Public Event VWIDB_DOCTYPE_LANGUAGERowDeleting As VWIDB_DOCTYPE_LANGUAGERowChangeEventHandler + + _ + Public Event VWIDB_DOCTYPE_LANGUAGERowDeleted As VWIDB_DOCTYPE_LANGUAGERowChangeEventHandler + + _ + Public Overloads Sub AddVWIDB_DOCTYPE_LANGUAGERow(ByVal row As VWIDB_DOCTYPE_LANGUAGERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWIDB_DOCTYPE_LANGUAGERow(ByVal ID As Long, ByVal SystemTitle As String, ByVal Doctype As String, ByVal Language As String, ByVal Added_When As Date, ByVal Changed_When As Date, ByVal Doctype_ID As Long) As VWIDB_DOCTYPE_LANGUAGERow + Dim rowVWIDB_DOCTYPE_LANGUAGERow As VWIDB_DOCTYPE_LANGUAGERow = CType(Me.NewRow,VWIDB_DOCTYPE_LANGUAGERow) + Dim columnValuesArray() As Object = New Object() {ID, SystemTitle, Doctype, Language, Added_When, Changed_When, Doctype_ID} + rowVWIDB_DOCTYPE_LANGUAGERow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWIDB_DOCTYPE_LANGUAGERow) + Return rowVWIDB_DOCTYPE_LANGUAGERow + End Function + + _ + Public Function FindByID(ByVal ID As Long) As VWIDB_DOCTYPE_LANGUAGERow + Return CType(Me.Rows.Find(New Object() {ID}),VWIDB_DOCTYPE_LANGUAGERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWIDB_DOCTYPE_LANGUAGEDataTable = CType(MyBase.Clone,VWIDB_DOCTYPE_LANGUAGEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWIDB_DOCTYPE_LANGUAGEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnID = MyBase.Columns("ID") + Me.columnSystemTitle = MyBase.Columns("SystemTitle") + Me.columnDoctype = MyBase.Columns("Doctype") + Me.columnLanguage = MyBase.Columns("Language") + Me.columnAdded_When = MyBase.Columns("Added When") + Me.columnChanged_When = MyBase.Columns("Changed When") + Me.columnDoctype_ID = MyBase.Columns("Doctype_ID") + End Sub + + _ + Private Sub InitClass() + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnSystemTitle = New Global.System.Data.DataColumn("SystemTitle", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSystemTitle) + Me.columnDoctype = New Global.System.Data.DataColumn("Doctype", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDoctype) + Me.columnLanguage = New Global.System.Data.DataColumn("Language", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLanguage) + Me.columnAdded_When = New Global.System.Data.DataColumn("Added When", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAdded_When) + Me.columnChanged_When = New Global.System.Data.DataColumn("Changed When", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnChanged_When) + Me.columnDoctype_ID = New Global.System.Data.DataColumn("Doctype_ID", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDoctype_ID) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) + Me.columnID.AllowDBNull = false + Me.columnID.Unique = true + Me.columnSystemTitle.AllowDBNull = false + Me.columnSystemTitle.MaxLength = 100 + Me.columnDoctype.AllowDBNull = false + Me.columnDoctype.MaxLength = 900 + Me.columnLanguage.AllowDBNull = false + Me.columnLanguage.MaxLength = 10 + Me.columnAdded_When.AllowDBNull = false + Me.columnDoctype_ID.AllowDBNull = false + End Sub + + _ + Public Function NewVWIDB_DOCTYPE_LANGUAGERow() As VWIDB_DOCTYPE_LANGUAGERow + Return CType(Me.NewRow,VWIDB_DOCTYPE_LANGUAGERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWIDB_DOCTYPE_LANGUAGERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWIDB_DOCTYPE_LANGUAGERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWIDB_DOCTYPE_LANGUAGERowChangedEvent) Is Nothing) Then + RaiseEvent VWIDB_DOCTYPE_LANGUAGERowChanged(Me, New VWIDB_DOCTYPE_LANGUAGERowChangeEvent(CType(e.Row,VWIDB_DOCTYPE_LANGUAGERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWIDB_DOCTYPE_LANGUAGERowChangingEvent) Is Nothing) Then + RaiseEvent VWIDB_DOCTYPE_LANGUAGERowChanging(Me, New VWIDB_DOCTYPE_LANGUAGERowChangeEvent(CType(e.Row,VWIDB_DOCTYPE_LANGUAGERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWIDB_DOCTYPE_LANGUAGERowDeletedEvent) Is Nothing) Then + RaiseEvent VWIDB_DOCTYPE_LANGUAGERowDeleted(Me, New VWIDB_DOCTYPE_LANGUAGERowChangeEvent(CType(e.Row,VWIDB_DOCTYPE_LANGUAGERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWIDB_DOCTYPE_LANGUAGERowDeletingEvent) Is Nothing) Then + RaiseEvent VWIDB_DOCTYPE_LANGUAGERowDeleting(Me, New VWIDB_DOCTYPE_LANGUAGERowChangeEvent(CType(e.Row,VWIDB_DOCTYPE_LANGUAGERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWIDB_DOCTYPE_LANGUAGERow(ByVal row As VWIDB_DOCTYPE_LANGUAGERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWIDB_DOCTYPE_LANGUAGEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBIDB_DOCTYPEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBIDB_DOCTYPERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnTITLE As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBIDB_DOCTYPE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTITLE + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBIDB_DOCTYPERow + Get + Return CType(Me.Rows(index),TBIDB_DOCTYPERow) + End Get + End Property + + _ + Public Event TBIDB_DOCTYPERowChanging As TBIDB_DOCTYPERowChangeEventHandler + + _ + Public Event TBIDB_DOCTYPERowChanged As TBIDB_DOCTYPERowChangeEventHandler + + _ + Public Event TBIDB_DOCTYPERowDeleting As TBIDB_DOCTYPERowChangeEventHandler + + _ + Public Event TBIDB_DOCTYPERowDeleted As TBIDB_DOCTYPERowChangeEventHandler + + _ + Public Overloads Sub AddTBIDB_DOCTYPERow(ByVal row As TBIDB_DOCTYPERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBIDB_DOCTYPERow(ByVal TITLE As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBIDB_DOCTYPERow + Dim rowTBIDB_DOCTYPERow As TBIDB_DOCTYPERow = CType(Me.NewRow,TBIDB_DOCTYPERow) + Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBIDB_DOCTYPERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBIDB_DOCTYPERow) + Return rowTBIDB_DOCTYPERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Long) As TBIDB_DOCTYPERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_DOCTYPERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBIDB_DOCTYPEDataTable = CType(MyBase.Clone,TBIDB_DOCTYPEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBIDB_DOCTYPEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnTITLE = MyBase.Columns("TITLE") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + 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.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 100 + Me.columnCOMMENT.MaxLength = 500 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 100 + Me.columnCHANGED_WHO.MaxLength = 100 + End Sub + + _ + Public Function NewTBIDB_DOCTYPERow() As TBIDB_DOCTYPERow + Return CType(Me.NewRow,TBIDB_DOCTYPERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBIDB_DOCTYPERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBIDB_DOCTYPERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBIDB_DOCTYPERowChangedEvent) Is Nothing) Then + RaiseEvent TBIDB_DOCTYPERowChanged(Me, New TBIDB_DOCTYPERowChangeEvent(CType(e.Row,TBIDB_DOCTYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBIDB_DOCTYPERowChangingEvent) Is Nothing) Then + RaiseEvent TBIDB_DOCTYPERowChanging(Me, New TBIDB_DOCTYPERowChangeEvent(CType(e.Row,TBIDB_DOCTYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBIDB_DOCTYPERowDeletedEvent) Is Nothing) Then + RaiseEvent TBIDB_DOCTYPERowDeleted(Me, New TBIDB_DOCTYPERowChangeEvent(CType(e.Row,TBIDB_DOCTYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBIDB_DOCTYPERowDeletingEvent) Is Nothing) Then + RaiseEvent TBIDB_DOCTYPERowDeleting(Me, New TBIDB_DOCTYPERowChangeEvent(CType(e.Row,TBIDB_DOCTYPERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBIDB_DOCTYPERow(ByVal row As TBIDB_DOCTYPERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBIDB_DOCTYPEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBIDB_COMMON_SQLDataTable + Inherits Global.System.Data.TypedTableBase(Of TBIDB_COMMON_SQLRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnTITLE As Global.System.Data.DataColumn + + Private columnSQL_COMMAND As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBIDB_COMMON_SQL" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTITLE + End Get + End Property + + _ + Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_COMMAND + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBIDB_COMMON_SQLRow + Get + Return CType(Me.Rows(index),TBIDB_COMMON_SQLRow) + End Get + End Property + + _ + Public Event TBIDB_COMMON_SQLRowChanging As TBIDB_COMMON_SQLRowChangeEventHandler + + _ + Public Event TBIDB_COMMON_SQLRowChanged As TBIDB_COMMON_SQLRowChangeEventHandler + + _ + Public Event TBIDB_COMMON_SQLRowDeleting As TBIDB_COMMON_SQLRowChangeEventHandler + + _ + Public Event TBIDB_COMMON_SQLRowDeleted As TBIDB_COMMON_SQLRowChangeEventHandler + + _ + Public Overloads Sub AddTBIDB_COMMON_SQLRow(ByVal row As TBIDB_COMMON_SQLRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBIDB_COMMON_SQLRow(ByVal TITLE As String, ByVal SQL_COMMAND As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBIDB_COMMON_SQLRow + Dim rowTBIDB_COMMON_SQLRow As TBIDB_COMMON_SQLRow = CType(Me.NewRow,TBIDB_COMMON_SQLRow) + Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, SQL_COMMAND, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBIDB_COMMON_SQLRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBIDB_COMMON_SQLRow) + Return rowTBIDB_COMMON_SQLRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBIDB_COMMON_SQLRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_COMMON_SQLRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBIDB_COMMON_SQLDataTable = CType(MyBase.Clone,TBIDB_COMMON_SQLDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBIDB_COMMON_SQLDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnTITLE = MyBase.Columns("TITLE") + Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_COMMAND) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + 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.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 200 + Me.columnSQL_COMMAND.MaxLength = 2147483647 + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(true,Boolean) + Me.columnADDED_WHO.MaxLength = 100 + Me.columnCHANGED_WHO.MaxLength = 100 + End Sub + + _ + Public Function NewTBIDB_COMMON_SQLRow() As TBIDB_COMMON_SQLRow + Return CType(Me.NewRow,TBIDB_COMMON_SQLRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBIDB_COMMON_SQLRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBIDB_COMMON_SQLRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBIDB_COMMON_SQLRowChangedEvent) Is Nothing) Then + RaiseEvent TBIDB_COMMON_SQLRowChanged(Me, New TBIDB_COMMON_SQLRowChangeEvent(CType(e.Row,TBIDB_COMMON_SQLRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBIDB_COMMON_SQLRowChangingEvent) Is Nothing) Then + RaiseEvent TBIDB_COMMON_SQLRowChanging(Me, New TBIDB_COMMON_SQLRowChangeEvent(CType(e.Row,TBIDB_COMMON_SQLRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBIDB_COMMON_SQLRowDeletedEvent) Is Nothing) Then + RaiseEvent TBIDB_COMMON_SQLRowDeleted(Me, New TBIDB_COMMON_SQLRowChangeEvent(CType(e.Row,TBIDB_COMMON_SQLRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBIDB_COMMON_SQLRowDeletingEvent) Is Nothing) Then + RaiseEvent TBIDB_COMMON_SQLRowDeleting(Me, New TBIDB_COMMON_SQLRowChangeEvent(CType(e.Row,TBIDB_COMMON_SQLRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBIDB_COMMON_SQLRow(ByVal row As TBIDB_COMMON_SQLRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBIDB_COMMON_SQLDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBIDB_BUSINESS_ENTITYRow + Inherits Global.System.Data.DataRow + + Private tableTBIDB_BUSINESS_ENTITY As TBIDB_BUSINESS_ENTITYDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIDB_BUSINESS_ENTITY = CType(Me.Table,TBIDB_BUSINESS_ENTITYDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBIDB_BUSINESS_ENTITY.GUIDColumn) = value + End Set + End Property + + _ + Public Property PARENT_ENT_ID() As Integer + Get + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.PARENT_ENT_IDColumn),Integer) + End Get + Set + Me(Me.tableTBIDB_BUSINESS_ENTITY.PARENT_ENT_IDColumn) = value + End Set + End Property + + _ + Public Property TITLE() As String + Get + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.TITLEColumn),String) + End Get + Set + Me(Me.tableTBIDB_BUSINESS_ENTITY.TITLEColumn) = value + End Set + End Property + + _ + Public Property INHERITS_ATTRIBUTES() As Boolean + Get + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.INHERITS_ATTRIBUTESColumn),Boolean) + End Get + Set + Me(Me.tableTBIDB_BUSINESS_ENTITY.INHERITS_ATTRIBUTESColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBIDB_ATTRIBUTERow + Inherits Global.System.Data.DataRow + + Private tableTBIDB_ATTRIBUTE As TBIDB_ATTRIBUTEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIDB_ATTRIBUTE = CType(Me.Table,TBIDB_ATTRIBUTEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE.GUIDColumn) = value + End Set + End Property + + _ + Public Property TITLE() As String + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.TITLEColumn),String) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE.TITLEColumn) = value + End Set + End Property + + _ + Public Property TYP_ID() As Byte + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn),Byte) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn) = value + End Set + End Property + + _ + Public Property MULTI_CONTEXT() As Boolean + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.MULTI_CONTEXTColumn),Boolean) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE.MULTI_CONTEXTColumn) = value + End Set + End Property + + _ + Public Property VIEW_SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.VIEW_SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE.VIEW_SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property VIEW_VISIBLE() As Boolean + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.VIEW_VISIBLEColumn),Boolean) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE.VIEW_VISIBLEColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property DELETED() As Boolean + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETEDColumn),Boolean) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE.DELETEDColumn) = value + End Set + End Property + + _ + Public Property DELETED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DELETED_WHO in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) = value + End Set + End Property + + _ + Public Property DELETED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DELETED_WHEN in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) = value + End Set + End Property + + _ + Public Property ATTR_TYPE() As String + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn),String) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn) = value + End Set + End Property + + _ + Public Property TBIDB_ATTRIBUTE_TYPERow() As TBIDB_ATTRIBUTE_TYPERow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TYP_ID")),TBIDB_ATTRIBUTE_TYPERow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TYP_ID")) + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDELETED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) + End Function + + _ + Public Sub SetDELETED_WHONull() + Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDELETED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) + End Function + + _ + Public Sub SetDELETED_WHENNull() + Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBIDB_ATTRIBUTE_TYPERow + Inherits Global.System.Data.DataRow + + Private tableTBIDB_ATTRIBUTE_TYPE As TBIDB_ATTRIBUTE_TYPEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIDB_ATTRIBUTE_TYPE = CType(Me.Table,TBIDB_ATTRIBUTE_TYPEDataTable) + End Sub + + _ + Public Property GUID() As Byte + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn),Byte) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME_TYPE() As String + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.NAME_TYPEColumn),String) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.NAME_TYPEColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) = value + End Set + End Property + + _ + Public Property BIT1() As Boolean + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT1Column),Boolean) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT1Column) = value + End Set + End Property + + _ + Public Property BIT2() As Boolean + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT2Column),Boolean) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT2Column) = value + End Set + End Property + + _ + Public Property BIT3() As Boolean + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT3Column),Boolean) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT3Column) = value + End Set + End Property + + _ + Public Property BIT4() As Boolean + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT4Column),Boolean) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT4Column) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBIDB_ATTRIBUTERows() As TBIDB_ATTRIBUTERow() + If (Me.Table.ChildRelations("FK_TYP_ID") Is Nothing) Then + Return New TBIDB_ATTRIBUTERow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TYP_ID")),TBIDB_ATTRIBUTERow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWIDB_BE_ATTRIBUTERow + Inherits Global.System.Data.DataRow + + Private tableVWIDB_BE_ATTRIBUTE As VWIDB_BE_ATTRIBUTEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWIDB_BE_ATTRIBUTE = CType(Me.Table,VWIDB_BE_ATTRIBUTEDataTable) + End Sub + + _ + Public Property BE_ID() As Integer + Get + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BE_ID in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn) = value + End Set + End Property + + _ + Public Property BE() As String + Get + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BE in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn) = value + End Set + End Property + + _ + Public Property ATTR_ID() As Integer + Get + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_ID in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn) = value + End Set + End Property + + _ + Public Property ATTR_TITLE() As String + Get + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_TITLE in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn) = value + End Set + End Property + + _ + Public Property TYP_ID() As Byte + Get + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn),Byte) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYP_ID in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn) = value + End Set + End Property + + _ + Public Property TYPE_ID() As Byte + Get + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn),Byte) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYPE_ID in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn) = value + End Set + End Property + + _ + Public Property TYPE_NAME() As String + Get + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYPE_NAME in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn) = value + End Set + End Property + + _ + Public Property VIEW_VISIBLE() As Boolean + Get + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_VISIBLEColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VIEW_VISIBLE in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_VISIBLEColumn) = value + End Set + End Property + + _ + Public Property VIEW_SEQUENCE() As Integer + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property LANG_ID() As Byte + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_IDColumn),Byte) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_IDColumn) = value + End Set + End Property + + _ + Public Property LANG_CODE() As String + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_CODEColumn),String) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.LANG_CODEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWIDB_BE_ATTRIBUTE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property SYS_ATTRIBUTE() As Boolean + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.SYS_ATTRIBUTEColumn),Boolean) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.SYS_ATTRIBUTEColumn) = value + End Set + End Property + + _ + Public Property MULTI_CONTEXT() As Boolean + Get + Return CType(Me(Me.tableVWIDB_BE_ATTRIBUTE.MULTI_CONTEXTColumn),Boolean) + End Get + Set + Me(Me.tableVWIDB_BE_ATTRIBUTE.MULTI_CONTEXTColumn) = value + End Set + End Property + + _ + Public Function IsBE_IDNull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn) + End Function + + _ + Public Sub SetBE_IDNull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.BE_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBENull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn) + End Function + + _ + Public Sub SetBENull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.BEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_IDNull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn) + End Function + + _ + Public Sub SetATTR_IDNull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsATTR_TITLENull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn) + End Function + + _ + Public Sub SetATTR_TITLENull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.ATTR_TITLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTYP_IDNull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn) + End Function + + _ + Public Sub SetTYP_IDNull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.TYP_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTYPE_IDNull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn) + End Function + + _ + Public Sub SetTYPE_IDNull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTYPE_NAMENull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn) + End Function + + _ + Public Sub SetTYPE_NAMENull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.TYPE_NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVIEW_VISIBLENull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_VISIBLEColumn) + End Function + + _ + Public Sub SetVIEW_VISIBLENull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.VIEW_VISIBLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWIDB_BE_ATTRIBUTE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBZF_ADMIN_SOURCE_SQLRow + Inherits Global.System.Data.DataRow + + Private tableTBZF_ADMIN_SOURCE_SQL As TBZF_ADMIN_SOURCE_SQLDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBZF_ADMIN_SOURCE_SQL = CType(Me.Table,TBZF_ADMIN_SOURCE_SQLDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.GUIDColumn) = value + End Set + End Property + + _ + Public Property PARENT_ID() As Integer + Get + Try + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARENT_ID in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn) = value + End Set + End Property + + _ + Public Property ENTITY_TITLE() As String + Get + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ENTITY_TITLEColumn),String) + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ENTITY_TITLEColumn) = value + End Set + End Property + + _ + Public Property SCOPE() As String + Get + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SCOPEColumn),String) + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SCOPEColumn) = value + End Set + End Property + + _ + Public Property PK_COLUMN() As String + Get + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PK_COLUMNColumn),String) + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PK_COLUMNColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn) = value + End Set + End Property + + _ + Public Property SQL_COMMAND() As String + Get + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SQL_COMMANDColumn),String) + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SQL_COMMANDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsPARENT_IDNull() As Boolean + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn) + End Function + + _ + Public Sub SetPARENT_IDNull() + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBIDB_OBJECT_STORERow + Inherits Global.System.Data.DataRow + + Private tableTBIDB_OBJECT_STORE As TBIDB_OBJECT_STOREDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIDB_OBJECT_STORE = CType(Me.Table,TBIDB_OBJECT_STOREDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.GUIDColumn) = value + End Set + End Property + + _ + Public Property OBJECT_TITLE() As String + Get + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.OBJECT_TITLEColumn),String) + End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.OBJECT_TITLEColumn) = value + End Set + End Property + + _ + Public Property CAT_ID() As Integer + Get + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.CAT_IDColumn),Integer) + End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.CAT_IDColumn) = value + End Set + End Property + + _ + Public Property OBJ_PATH() As String + Get + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.OBJ_PATHColumn),String) + End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.OBJ_PATHColumn) = value + End Set + End Property + + _ + Public Property IS_ARCHIVE() As Boolean + Get + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.IS_ARCHIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.IS_ARCHIVEColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property CAT_TITLE() As String + Get + Try + Return CType(Me(Me.tableTBIDB_OBJECT_STORE.CAT_TITLEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CAT_TITLE in Tabelle TBIDB_OBJECT_STORE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_OBJECT_STORE.CAT_TITLEColumn) = value + End Set + End Property + + _ + Public Property TBIDB_CATALOGRow() As TBIDB_CATALOGRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_OS_CAT_ID")),TBIDB_CATALOGRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_OS_CAT_ID")) + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBIDB_OBJECT_STORE.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBIDB_OBJECT_STORE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBIDB_OBJECT_STORE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCAT_TITLENull() As Boolean + Return Me.IsNull(Me.tableTBIDB_OBJECT_STORE.CAT_TITLEColumn) + End Function + + _ + Public Sub SetCAT_TITLENull() + Me(Me.tableTBIDB_OBJECT_STORE.CAT_TITLEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBIDB_CATALOGRow + Inherits Global.System.Data.DataRow + + Private tableTBIDB_CATALOG As TBIDB_CATALOGDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIDB_CATALOG = CType(Me.Table,TBIDB_CATALOGDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBIDB_CATALOG.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBIDB_CATALOG.GUIDColumn) = value + End Set + End Property + + _ + Public Property CAT_TITLE() As String + Get + Return CType(Me(Me.tableTBIDB_CATALOG.CAT_TITLEColumn),String) + End Get + Set + Me(Me.tableTBIDB_CATALOG.CAT_TITLEColumn) = value + End Set + End Property + + _ + Public Property CAT_STRING() As String + Get + Return CType(Me(Me.tableTBIDB_CATALOG.CAT_STRINGColumn),String) + End Get + Set + Me(Me.tableTBIDB_CATALOG.CAT_STRINGColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBIDB_CATALOG.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBIDB_CATALOG.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBIDB_CATALOG.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBIDB_CATALOG.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBIDB_CATALOG.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_CATALOG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_CATALOG.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_CATALOG.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_CATALOG ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_CATALOG.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_CATALOG.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBIDB_CATALOG.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_CATALOG.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBIDB_CATALOG.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBIDB_OBJECT_STORERows() As TBIDB_OBJECT_STORERow() + If (Me.Table.ChildRelations("FK_OS_CAT_ID") Is Nothing) Then + Return New TBIDB_OBJECT_STORERow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_OS_CAT_ID")),TBIDB_OBJECT_STORERow()) + End If + End Function + + _ + Public Function GetTBIDB_DOCTYPE_HANDLINGRows() As TBIDB_DOCTYPE_HANDLINGRow() + If (Me.Table.ChildRelations("FK_TBIDB_DOCTYPE_HANDLING_CHNGACT") Is Nothing) Then + Return New TBIDB_DOCTYPE_HANDLINGRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBIDB_DOCTYPE_HANDLING_CHNGACT")),TBIDB_DOCTYPE_HANDLINGRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_ATTRIBUTE_TYPERow + Inherits Global.System.Data.DataRow + + Private tableTBWH_ATTRIBUTE_TYPE As TBWH_ATTRIBUTE_TYPEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_ATTRIBUTE_TYPE = CType(Me.Table,TBWH_ATTRIBUTE_TYPEDataTable) + End Sub + + _ + Public Property GUID() As Byte + Get + Return CType(Me(Me.tableTBWH_ATTRIBUTE_TYPE.GUIDColumn),Byte) + End Get + Set + Me(Me.tableTBWH_ATTRIBUTE_TYPE.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME_TYPE() As String + Get + Return CType(Me(Me.tableTBWH_ATTRIBUTE_TYPE.NAME_TYPEColumn),String) + End Get + Set + Me(Me.tableTBWH_ATTRIBUTE_TYPE.NAME_TYPEColumn) = value + End Set + End Property + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWIDB_OBJECT_STORERow + Inherits Global.System.Data.DataRow + + Private tableVWIDB_OBJECT_STORE As VWIDB_OBJECT_STOREDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWIDB_OBJECT_STORE = CType(Me.Table,VWIDB_OBJECT_STOREDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWIDB_OBJECT_STORE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableVWIDB_OBJECT_STORE.GUIDColumn) = value + End Set + End Property + + _ + Public Property Objectstore() As String + Get + Return CType(Me(Me.tableVWIDB_OBJECT_STORE.ObjectstoreColumn),String) + End Get + Set + Me(Me.tableVWIDB_OBJECT_STORE.ObjectstoreColumn) = value + End Set + End Property + + _ + Public Property Archive() As Boolean + Get + Return CType(Me(Me.tableVWIDB_OBJECT_STORE.ArchiveColumn),Boolean) + End Get + Set + Me(Me.tableVWIDB_OBJECT_STORE.ArchiveColumn) = value + End Set + End Property + + _ + Public Property REL_PATH() As String + Get + Return CType(Me(Me.tableVWIDB_OBJECT_STORE.REL_PATHColumn),String) + End Get + Set + Me(Me.tableVWIDB_OBJECT_STORE.REL_PATHColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableVWIDB_OBJECT_STORE.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableVWIDB_OBJECT_STORE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableVWIDB_OBJECT_STORE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableVWIDB_OBJECT_STORE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWIDB_OBJECT_STORE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWIDB_OBJECT_STORE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWIDB_OBJECT_STORE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWIDB_DOCTYPES_DERow + Inherits Global.System.Data.DataRow + + Private tableVWIDB_DOCTYPES_DE As VWIDB_DOCTYPES_DEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWIDB_DOCTYPES_DE = CType(Me.Table,VWIDB_DOCTYPES_DEDataTable) + End Sub + + _ + Public Property Doctype() As String + Get + Return CType(Me(Me.tableVWIDB_DOCTYPES_DE.DoctypeColumn),String) + End Get + Set + Me(Me.tableVWIDB_DOCTYPES_DE.DoctypeColumn) = value + End Set + End Property + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBIDB_DOCTYPE_HANDLINGRow + Inherits Global.System.Data.DataRow + + Private tableTBIDB_DOCTYPE_HANDLING As TBIDB_DOCTYPE_HANDLINGDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIDB_DOCTYPE_HANDLING = CType(Me.Table,TBIDB_DOCTYPE_HANDLINGDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBIDB_DOCTYPE_HANDLING.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBIDB_DOCTYPE_HANDLING.GUIDColumn) = value + End Set + End Property + + _ + Public Property DOCTYPE() As String + Get + Return CType(Me(Me.tableTBIDB_DOCTYPE_HANDLING.DOCTYPEColumn),String) + End Get + Set + Me(Me.tableTBIDB_DOCTYPE_HANDLING.DOCTYPEColumn) = value + End Set + End Property + + _ + Public Property CHANGED_ACTION() As Integer + Get + Return CType(Me(Me.tableTBIDB_DOCTYPE_HANDLING.CHANGED_ACTIONColumn),Integer) + End Get + Set + Me(Me.tableTBIDB_DOCTYPE_HANDLING.CHANGED_ACTIONColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBIDB_DOCTYPE_HANDLING.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBIDB_DOCTYPE_HANDLING.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBIDB_DOCTYPE_HANDLING.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_DOCTYPE_HANDLING ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_DOCTYPE_HANDLING.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBIDB_DOCTYPE_HANDLING.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBIDB_DOCTYPE_HANDLING.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_DOCTYPE_HANDLING.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_DOCTYPE_HANDLING ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_DOCTYPE_HANDLING.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBIDB_DOCTYPE_HANDLING.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_DOCTYPE_HANDLING ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_DOCTYPE_HANDLING.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_DOCTYPE_HANDLING.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_DOCTYPE_HANDLING ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_DOCTYPE_HANDLING.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBIDB_CATALOGRow() As TBIDB_CATALOGRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBIDB_DOCTYPE_HANDLING_CHNGACT")),TBIDB_CATALOGRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBIDB_DOCTYPE_HANDLING_CHNGACT")) + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_DOCTYPE_HANDLING.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBIDB_DOCTYPE_HANDLING.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_DOCTYPE_HANDLING.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBIDB_DOCTYPE_HANDLING.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_DOCTYPE_HANDLING.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBIDB_DOCTYPE_HANDLING.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_DOCTYPE_HANDLING.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBIDB_DOCTYPE_HANDLING.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBIDB_CATALOG_USERRow + Inherits Global.System.Data.DataRow + + Private tableTBIDB_CATALOG_USER As TBIDB_CATALOG_USERDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIDB_CATALOG_USER = CType(Me.Table,TBIDB_CATALOG_USERDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBIDB_CATALOG_USER.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBIDB_CATALOG_USER.GUIDColumn) = value + End Set + End Property + + _ + Public Property CAT_TITLE() As String + Get + Return CType(Me(Me.tableTBIDB_CATALOG_USER.CAT_TITLEColumn),String) + End Get + Set + Me(Me.tableTBIDB_CATALOG_USER.CAT_TITLEColumn) = value + End Set + End Property + + _ + Public Property CAT_STRING() As String + Get + Return CType(Me(Me.tableTBIDB_CATALOG_USER.CAT_STRINGColumn),String) + End Get + Set + Me(Me.tableTBIDB_CATALOG_USER.CAT_STRINGColumn) = value + End Set + End Property + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBIDB_LANGUAGERow + Inherits Global.System.Data.DataRow + + Private tableTBIDB_LANGUAGE As TBIDB_LANGUAGEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIDB_LANGUAGE = CType(Me.Table,TBIDB_LANGUAGEDataTable) + End Sub + + _ + Public Property GUID() As Byte + Get + Return CType(Me(Me.tableTBIDB_LANGUAGE.GUIDColumn),Byte) + End Get + Set + Me(Me.tableTBIDB_LANGUAGE.GUIDColumn) = value + End Set + End Property + + _ + Public Property LANG_CODE() As String + Get + Return CType(Me(Me.tableTBIDB_LANGUAGE.LANG_CODEColumn),String) + End Get + Set + Me(Me.tableTBIDB_LANGUAGE.LANG_CODEColumn) = value + End Set + End Property + + _ + Public Property CREATE_DEFAULT_ENTRY() As Boolean + Get + Return CType(Me(Me.tableTBIDB_LANGUAGE.CREATE_DEFAULT_ENTRYColumn),Boolean) + End Get + Set + Me(Me.tableTBIDB_LANGUAGE.CREATE_DEFAULT_ENTRYColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBIDB_LANGUAGE.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_LANGUAGE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_LANGUAGE.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBIDB_LANGUAGE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBIDB_LANGUAGE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBIDB_LANGUAGE.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBIDB_LANGUAGE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBIDB_LANGUAGE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_LANGUAGE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_LANGUAGE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_LANGUAGE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_LANGUAGE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_LANGUAGE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_LANGUAGE.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBIDB_LANGUAGE.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_LANGUAGE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBIDB_LANGUAGE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_LANGUAGE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBIDB_LANGUAGE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWIDB_DOCTYPE_LANGUAGERow + Inherits Global.System.Data.DataRow + + Private tableVWIDB_DOCTYPE_LANGUAGE As VWIDB_DOCTYPE_LANGUAGEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWIDB_DOCTYPE_LANGUAGE = CType(Me.Table,VWIDB_DOCTYPE_LANGUAGEDataTable) + End Sub + + _ + Public Property ID() As Long + Get + Return CType(Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.IDColumn),Long) + End Get + Set + Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.IDColumn) = value + End Set + End Property + + _ + Public Property SystemTitle() As String + Get + Return CType(Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.SystemTitleColumn),String) + End Get + Set + Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.SystemTitleColumn) = value + End Set + End Property + + _ + Public Property Doctype() As String + Get + Return CType(Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.DoctypeColumn),String) + End Get + Set + Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.DoctypeColumn) = value + End Set + End Property + + _ + Public Property Language() As String + Get + Return CType(Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.LanguageColumn),String) + End Get + Set + Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.LanguageColumn) = value + End Set + End Property + + _ + Public Property Added_When() As Date + Get + Return CType(Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.Added_WhenColumn),Date) + End Get + Set + Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.Added_WhenColumn) = value + End Set + End Property + + _ + Public Property Changed_When() As Date + Get + Try + Return CType(Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.Changed_WhenColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Changed When in Tabelle VWIDB_DOCTYPE_LANGUAGE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.Changed_WhenColumn) = value + End Set + End Property + + _ + Public Property Doctype_ID() As Long + Get + Return CType(Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.Doctype_IDColumn),Long) + End Get + Set + Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.Doctype_IDColumn) = value + End Set + End Property + + _ + Public Function IsChanged_WhenNull() As Boolean + Return Me.IsNull(Me.tableVWIDB_DOCTYPE_LANGUAGE.Changed_WhenColumn) + End Function + + _ + Public Sub SetChanged_WhenNull() + Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.Changed_WhenColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBIDB_DOCTYPERow + Inherits Global.System.Data.DataRow + + Private tableTBIDB_DOCTYPE As TBIDB_DOCTYPEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIDB_DOCTYPE = CType(Me.Table,TBIDB_DOCTYPEDataTable) + End Sub + + _ + Public Property GUID() As Long + Get + Return CType(Me(Me.tableTBIDB_DOCTYPE.GUIDColumn),Long) + End Get + Set + Me(Me.tableTBIDB_DOCTYPE.GUIDColumn) = value + End Set + End Property + + _ + Public Property TITLE() As String + Get + Return CType(Me(Me.tableTBIDB_DOCTYPE.TITLEColumn),String) + End Get + Set + Me(Me.tableTBIDB_DOCTYPE.TITLEColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBIDB_DOCTYPE.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_DOCTYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_DOCTYPE.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBIDB_DOCTYPE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBIDB_DOCTYPE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_DOCTYPE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_DOCTYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_DOCTYPE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBIDB_DOCTYPE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_DOCTYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_DOCTYPE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_DOCTYPE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_DOCTYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_DOCTYPE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_DOCTYPE.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBIDB_DOCTYPE.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_DOCTYPE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBIDB_DOCTYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_DOCTYPE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBIDB_DOCTYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_DOCTYPE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBIDB_DOCTYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBIDB_COMMON_SQLRow + Inherits Global.System.Data.DataRow + + Private tableTBIDB_COMMON_SQL As TBIDB_COMMON_SQLDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIDB_COMMON_SQL = CType(Me.Table,TBIDB_COMMON_SQLDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBIDB_COMMON_SQL.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBIDB_COMMON_SQL.GUIDColumn) = value + End Set + End Property + + _ + Public Property TITLE() As String + Get + Return CType(Me(Me.tableTBIDB_COMMON_SQL.TITLEColumn),String) + End Get + Set + Me(Me.tableTBIDB_COMMON_SQL.TITLEColumn) = value + End Set + End Property + + _ + Public Property SQL_COMMAND() As String + Get + Try + Return CType(Me(Me.tableTBIDB_COMMON_SQL.SQL_COMMANDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_COMMAND in Tabelle TBIDB_COMMON_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_COMMON_SQL.SQL_COMMANDColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBIDB_COMMON_SQL.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBIDB_COMMON_SQL.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBIDB_COMMON_SQL.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBIDB_COMMON_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_COMMON_SQL.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_COMMON_SQL.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_COMMON_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_COMMON_SQL.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBIDB_COMMON_SQL.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_COMMON_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_COMMON_SQL.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_COMMON_SQL.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_COMMON_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_COMMON_SQL.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsSQL_COMMANDNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_COMMON_SQL.SQL_COMMANDColumn) + End Function + + _ + Public Sub SetSQL_COMMANDNull() + Me(Me.tableTBIDB_COMMON_SQL.SQL_COMMANDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_COMMON_SQL.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBIDB_COMMON_SQL.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_COMMON_SQL.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBIDB_COMMON_SQL.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_COMMON_SQL.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBIDB_COMMON_SQL.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_COMMON_SQL.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBIDB_COMMON_SQL.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBIDB_BUSINESS_ENTITYRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIDB_BUSINESS_ENTITYRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBIDB_BUSINESS_ENTITYRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBIDB_BUSINESS_ENTITYRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBIDB_ATTRIBUTERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIDB_ATTRIBUTERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBIDB_ATTRIBUTERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBIDB_ATTRIBUTERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBIDB_ATTRIBUTE_TYPERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIDB_ATTRIBUTE_TYPERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBIDB_ATTRIBUTE_TYPERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBIDB_ATTRIBUTE_TYPERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWIDB_BE_ATTRIBUTERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWIDB_BE_ATTRIBUTERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWIDB_BE_ATTRIBUTERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWIDB_BE_ATTRIBUTERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBZF_ADMIN_SOURCE_SQLRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBZF_ADMIN_SOURCE_SQLRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBZF_ADMIN_SOURCE_SQLRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBZF_ADMIN_SOURCE_SQLRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBIDB_OBJECT_STORERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIDB_OBJECT_STORERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBIDB_OBJECT_STORERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBIDB_OBJECT_STORERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBIDB_CATALOGRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIDB_CATALOGRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBIDB_CATALOGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBIDB_CATALOGRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_ATTRIBUTE_TYPERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_ATTRIBUTE_TYPERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_ATTRIBUTE_TYPERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_ATTRIBUTE_TYPERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWIDB_OBJECT_STORERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWIDB_OBJECT_STORERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWIDB_OBJECT_STORERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWIDB_OBJECT_STORERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWIDB_DOCTYPES_DERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWIDB_DOCTYPES_DERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWIDB_DOCTYPES_DERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWIDB_DOCTYPES_DERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBIDB_DOCTYPE_HANDLINGRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIDB_DOCTYPE_HANDLINGRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBIDB_DOCTYPE_HANDLINGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBIDB_DOCTYPE_HANDLINGRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBIDB_CATALOG_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIDB_CATALOG_USERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBIDB_CATALOG_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBIDB_CATALOG_USERRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBIDB_LANGUAGERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIDB_LANGUAGERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBIDB_LANGUAGERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBIDB_LANGUAGERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWIDB_DOCTYPE_LANGUAGERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWIDB_DOCTYPE_LANGUAGERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWIDB_DOCTYPE_LANGUAGERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWIDB_DOCTYPE_LANGUAGERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBIDB_DOCTYPERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIDB_DOCTYPERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBIDB_DOCTYPERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBIDB_DOCTYPERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBIDB_COMMON_SQLRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIDB_COMMON_SQLRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBIDB_COMMON_SQLRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBIDB_COMMON_SQLRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace DSIDB_StammdatenTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIDB_BUSINESS_ENTITYTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBIDB_BUSINESS_ENTITY" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PARENT_ENT_ID", "PARENT_ENT_ID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("INHERITS_ATTRIBUTES", "INHERITS_ATTRIBUTES") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBIDB_BUSINESS_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_BUSINESS_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PARENT_ENT_ID, TITLE"& _ + ", INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PARENT_ENT_ID,@TITLE"& _ + ",@INHERITS_ATTRIBUTES,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ENT_ID, TITLE,"& _ + " INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ + "FROM TBIDB_BUSINESS_ENTITY WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INHERITS_ATTRIBUTES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "INHERITS_ATTRIBUTES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_BUSINESS_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PARENT_ENT_ID = @PARENT_EN"& _ + "T_ID, TITLE = @TITLE, INHERITS_ATTRIBUTES = @INHERITS_ATTRIBUTES, COMMENT = @COM"& _ + "MENT, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _ + "T GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHE"& _ + "N, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_BUSINESS_ENTITY WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INHERITS_ATTRIBUTES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "INHERITS_ATTRIBUTES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO"& _ + ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_BUSINESS_ENTITY"&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, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable, ByVal GUID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + Dim dataTable As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable = New DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITYDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBIDB_BUSINESS_ENTITY") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal PARENT_ENT_ID As Integer, ByVal TITLE As String, ByVal INHERITS_ATTRIBUTES As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PARENT_ENT_ID,Integer) + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(TITLE,String) + End If + Me.Adapter.InsertCommand.Parameters(2).Value = CType(INHERITS_ATTRIBUTES,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal PARENT_ENT_ID As Integer, ByVal TITLE As String, ByVal INHERITS_ATTRIBUTES As Boolean, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PARENT_ENT_ID,Integer) + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TITLE,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(INHERITS_ATTRIBUTES,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIDB_ATTRIBUTETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBIDB_ATTRIBUTE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("TYP_ID", "TYP_ID") + tableMapping.ColumnMappings.Add("MULTI_CONTEXT", "MULTI_CONTEXT") + tableMapping.ColumnMappings.Add("VIEW_SEQUENCE", "VIEW_SEQUENCE") + tableMapping.ColumnMappings.Add("VIEW_VISIBLE", "VIEW_VISIBLE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("DELETED", "DELETED") + tableMapping.ColumnMappings.Add("DELETED_WHO", "DELETED_WHO") + tableMapping.ColumnMappings.Add("DELETED_WHEN", "DELETED_WHEN") + tableMapping.ColumnMappings.Add("ATTR_TYPE", "ATTR_TYPE") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, TYP_ID, MULTI_CONTE"& _ + "XT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@TYP"& _ + "_ID,@MULTI_CONTEXT,@VIEW_SEQUENCE,@VIEW_VISIBLE,@COMMENT,@ADDED_WHO)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTI_CONTEXT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTI_CONTEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, TYP_ID = @TYP_ID"& _ + ", MULTI_CONTEXT = @MULTI_CONTEXT, VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE ="& _ + " @VIEW_VISIBLE, COMMENT = @COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTI_CONTEXT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTI_CONTEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBIDB_ATTRIBUTE.GUID, TBIDB_ATTRIBUTE.TITLE, TBIDB_ATTRIBUTE.TYP_ID"& _ + ", TBIDB_ATTRIBUTE.MULTI_CONTEXT, TBIDB_ATTRIBUTE.VIEW_SEQUENCE, TBIDB_ATTRIBUTE."& _ + "VIEW_VISIBLE, TBIDB_ATTRIBUTE.COMMENT,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBIDB_ATTRIBUT"& _ + "E.ADDED_WHO, TBIDB_ATTRIBUTE.ADDED_WHEN, TBIDB_ATTRIBUTE.CHANGED_WHO, TBIDB_ATTR"& _ + "IBUTE.CHANGED_WHEN, TBIDB_ATTRIBUTE.DELETED, TBIDB_ATTRIBUTE.DELETED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBIDB_ATTRIBUTE.DELETED_WHEN, TBIDB_ATTRIBUTE_TYPE.NAME_TYP"& _ + "E AS ATTR_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_ATTRIBUTE INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBIDB_ATTRIBUTE_TYPE ON TBIDB_ATTRIBUTE.TYP_ID = TBIDB_ATTRIBUTE_TYPE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE TBIDB_ATTRIBUTE.GUID = @GUID" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable, ByVal GUID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + Dim dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable = New DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBIDB_ATTRIBUTE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIDB_ATTRIBUTE_TYPETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBIDB_ATTRIBUTE_TYPE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME_TYPE", "NAME_TYPE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("BIT1", "BIT1") + tableMapping.ColumnMappings.Add("BIT2", "BIT2") + tableMapping.ColumnMappings.Add("BIT3", "BIT3") + tableMapping.ColumnMappings.Add("BIT4", "BIT4") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBIDB_ATTRIBUTE_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBIDB_ATTRIBUTE_TYPE] ([NAME_TYPE], [COMMENT], [BIT1], [BIT2], [BIT3"& _ + "], [BIT4], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@NA"& _ + "ME_TYPE, @COMMENT, @BIT1, @BIT2, @BIT3, @BIT4, @ADDED_WHO, @ADDED_WHEN, @CHANGED"& _ + "_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, "& _ + "ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_ATTRIBUTE_TYPE WHERE"& _ + " (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, 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("@BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBIDB_ATTRIBUTE_TYPE] SET [NAME_TYPE] = @NAME_TYPE, [COMMENT] = @COMMENT,"& _ + " [BIT1] = @BIT1, [BIT2] = @BIT2, [BIT3] = @BIT3, [BIT4] = @BIT4, [ADDED_WHO] = @"& _ + "ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WH"& _ + "EN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([NAME_TYPE] = @Origina"& _ + "l_NAME_TYPE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @O"& _ + "riginal_COMMENT)) AND ([BIT1] = @Original_BIT1) AND ([BIT2] = @Original_BIT2) AN"& _ + "D ([BIT3] = @Original_BIT3) AND ([BIT4] = @Original_BIT4) AND ([ADDED_WHO] = @Or"& _ + "iginal_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGE"& _ + "D_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO))"& _ + " AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] ="& _ + " @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, "& _ + "BIT4, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_ATTRIBUTE_TYPE"& _ + " WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, 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("@BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 0, 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("@Original_NAME_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBIDB_ATTRIBUTE_TYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_ATTRIBUTE_TYPE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable = New DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBIDB_ATTRIBUTE_TYPE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Byte) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal NAME_TYPE As String, ByVal COMMENT As String, ByVal BIT1 As Boolean, ByVal BIT2 As Boolean, ByVal BIT3 As Boolean, ByVal BIT4 As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (NAME_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME_TYPE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME_TYPE,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) + End If + Me.Adapter.InsertCommand.Parameters(2).Value = CType(BIT1,Boolean) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(BIT2,Boolean) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(BIT3,Boolean) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(BIT4,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal NAME_TYPE As String, _ + ByVal COMMENT As String, _ + ByVal BIT1 As Boolean, _ + ByVal BIT2 As Boolean, _ + ByVal BIT3 As Boolean, _ + ByVal BIT4 As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Byte, _ + ByVal Original_NAME_TYPE As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_BIT1 As Boolean, _ + ByVal Original_BIT2 As Boolean, _ + ByVal Original_BIT3 As Boolean, _ + ByVal Original_BIT4 As Boolean, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Byte) As Integer + If (NAME_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME_TYPE,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(BIT1,Boolean) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(BIT2,Boolean) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BIT3,Boolean) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(BIT4,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Byte) + If (Original_NAME_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_NAME_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_NAME_TYPE,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_BIT1,Boolean) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_BIT2,Boolean) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_BIT3,Boolean) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_BIT4,Boolean) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal NAME_TYPE As String, _ + ByVal COMMENT As String, _ + ByVal BIT1 As Boolean, _ + ByVal BIT2 As Boolean, _ + ByVal BIT3 As Boolean, _ + ByVal BIT4 As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Byte, _ + ByVal Original_NAME_TYPE As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_BIT1 As Boolean, _ + ByVal Original_BIT2 As Boolean, _ + ByVal Original_BIT3 As Boolean, _ + ByVal Original_BIT4 As Boolean, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_NAME_TYPE, Original_COMMENT, Original_BIT1, Original_BIT2, Original_BIT3, Original_BIT4, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWIDB_BE_ATTRIBUTETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWIDB_BE_ATTRIBUTE" + tableMapping.ColumnMappings.Add("BE_ID", "BE_ID") + tableMapping.ColumnMappings.Add("BE", "BE") + tableMapping.ColumnMappings.Add("ATTR_ID", "ATTR_ID") + tableMapping.ColumnMappings.Add("ATTR_TITLE", "ATTR_TITLE") + tableMapping.ColumnMappings.Add("TYP_ID", "TYP_ID") + tableMapping.ColumnMappings.Add("TYPE_ID", "TYPE_ID") + tableMapping.ColumnMappings.Add("TYPE_NAME", "TYPE_NAME") + tableMapping.ColumnMappings.Add("VIEW_VISIBLE", "VIEW_VISIBLE") + tableMapping.ColumnMappings.Add("VIEW_SEQUENCE", "VIEW_SEQUENCE") + tableMapping.ColumnMappings.Add("LANG_ID", "LANG_ID") + tableMapping.ColumnMappings.Add("LANG_CODE", "LANG_CODE") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("SYS_ATTRIBUTE", "SYS_ATTRIBUTE") + tableMapping.ColumnMappings.Add("MULTI_CONTEXT", "MULTI_CONTEXT") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, TYP_ID, VIEW_SEQUEN"& _ + "CE, VIEW_VISIBLE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@TYP_ID,@VIEW_SEQUENCE,@VIEW"& _ + "_VISIBLE,@ADDED_WHO)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, TYP_ID = @TYP_ID"& _ + ", VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE = @VIEW_VISIBLE, COMMENT = @COMME"& _ + "NT, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VI"& _ + "SIBLE, VIEW_SEQUENCE, SYS_ATTRIBUTE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, "& _ + "CHANGED_WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" MULTI_CONTEXT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " VWIDB_BE_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (LANG_CODE = @LANG_CODE) AND (SYS_ATTRIBUT"& _ + "E = 0)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANG_CODE", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_CODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT GUID, BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, V"& _ + "IEW_VISIBLE, MULTI_CONTEXT, VIEW_SEQUENCE, SYS_ATTRIBUTE, DEFAULT_SEARCH_ATTRIBU"& _ + "TE, LANG_ID, LANG_CODE, ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ADDED_WHO, CHANGE"& _ + "D_WHEN, CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_BE_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (ATTR_ID ="& _ + " @ATTRIBUTE_ID) AND (LANG_ID = @LANGUAGE_ID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ATTRIBUTE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ATTR_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable, ByVal LANG_CODE As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (LANG_CODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANG_CODE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANG_CODE,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal LANG_CODE As String) As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (LANG_CODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANG_CODE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANG_CODE,String) + End If + Dim dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable = New DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByAttributeId(ByVal dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable, ByVal ATTRIBUTE_ID As Global.System.Nullable(Of Integer), ByVal LANGUAGE_ID As Byte) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (ATTRIBUTE_ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ATTRIBUTE_ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(LANGUAGE_ID,Byte) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByAttributeId(ByVal ATTRIBUTE_ID As Global.System.Nullable(Of Integer), ByVal LANGUAGE_ID As Byte) As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (ATTRIBUTE_ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ATTRIBUTE_ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(LANGUAGE_ID,Byte) + Dim dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable = New DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "VWIDB_BE_ATTRIBUTE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBZF_ADMIN_SOURCE_SQLTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBZF_ADMIN_SOURCE_SQL" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") + tableMapping.ColumnMappings.Add("ENTITY_TITLE", "ENTITY_TITLE") + tableMapping.ColumnMappings.Add("SCOPE", "SCOPE") + tableMapping.ColumnMappings.Add("PK_COLUMN", "PK_COLUMN") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBZF_ADMIN_SOURCE_SQL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBZF_ADMIN_SOURCE_SQL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PARENT_ID, ENTITY_TI"& _ + "TLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ + " CHANGED_WHEN)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PARENT_ID,@ENTITY_TITLE,@SCOPE,@PK_COLUMN,@COMME"& _ + "NT,@SQL_COMMAND,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUI"& _ + "D, PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, A"& _ + "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = SC"& _ + "OPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCOPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SCOPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PK_COLUMN", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PK_COLUMN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, 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("@SQL_COMMAND", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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 TBZF_ADMIN_SOURCE_SQL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PARENT_ID = @PARENT_ID, EN"& _ + "TITY_TITLE = @ENTITY_TITLE, SCOPE = @SCOPE, PK_COLUMN = @PK_COLUMN, COMMENT = @C"& _ + "OMMENT, SQL_COMMAND = @SQL_COMMAND, ADDED_WHO = @ADDED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHA"& _ + "NGED_WHEN"&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, PARENT_ID, ENT"& _ + "ITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGE"& _ + "D_WHO, CHANGED_WHEN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCOPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SCOPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PK_COLUMN", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PK_COLUMN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, 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("@SQL_COMMAND", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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 + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADD"& _ + "ED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBZF_ADMIN_SOURCE_SQL 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, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable, ByVal GUID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + Dim dataTable As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable = New DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQLDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBZF_ADMIN_SOURCE_SQL") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal PARENT_ID As Integer, ByVal ENTITY_TITLE As String, ByVal SCOPE As String, ByVal PK_COLUMN As String, ByVal COMMENT As String, ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PARENT_ID,Integer) + If (ENTITY_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("ENTITY_TITLE") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ENTITY_TITLE,String) + End If + If (SCOPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("SCOPE") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SCOPE,String) + End If + If (PK_COLUMN Is Nothing) Then + Throw New Global.System.ArgumentNullException("PK_COLUMN") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(PK_COLUMN,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) + End If + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_COMMAND,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal PARENT_ID As Integer, ByVal ENTITY_TITLE As String, ByVal SCOPE As String, ByVal PK_COLUMN As String, ByVal COMMENT As String, ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PARENT_ID,Integer) + If (ENTITY_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("ENTITY_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ENTITY_TITLE,String) + End If + If (SCOPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("SCOPE") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SCOPE,String) + End If + If (PK_COLUMN Is Nothing) Then + Throw New Global.System.ArgumentNullException("PK_COLUMN") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(PK_COLUMN,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) + End If + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_COMMAND,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIDB_OBJECT_STORETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBIDB_OBJECT_STORE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("OBJECT_TITLE", "OBJECT_TITLE") + tableMapping.ColumnMappings.Add("CAT_ID", "CAT_ID") + tableMapping.ColumnMappings.Add("OBJ_PATH", "OBJ_PATH") + tableMapping.ColumnMappings.Add("IS_ARCHIVE", "IS_ARCHIVE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("CAT_TITLE", "CAT_TITLE") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBIDB_OBJECT_STORE] WHERE (([GUID] = @Original_GUID) AND ([OBJECT_TI"& _ + "TLE] = @Original_OBJECT_TITLE) AND ([CAT_ID] = @Original_CAT_ID) AND ([OBJ_PATH]"& _ + " = @Original_OBJ_PATH) AND ([IS_ARCHIVE] = @Original_IS_ARCHIVE) AND ((@IsNull_C"& _ + "OMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ADDE"& _ + "D_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@I"& _ + "sNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_C"& _ + "HANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHA"& _ + "NGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OBJECT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OBJ_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJ_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IS_ARCHIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ARCHIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_OBJECT_STORE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (OBJECT_TITLE, CAT_ID, O"& _ + "BJ_PATH, IS_ARCHIVE, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@OBJECT_TITLE,@CAT_ID,@"& _ + "OBJ_PATH,@IS_ARCHIVE,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJECT_TITLE, CAT_ID, "& _ + "OBJ_PATH, IS_ARCHIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ + "FROM TBIDB_OBJECT_STORE WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TITLE", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJ_PATH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJ_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_ARCHIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ARCHIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_OBJECT_STORE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET OBJECT_TITLE = @OBJECT_TITLE,"& _ + " CAT_ID = @CAT_ID, OBJ_PATH = @OBJ_PATH, IS_ARCHIVE = @IS_ARCHIVE, COMMENT = @CO"& _ + "MMENT, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _ + "T GUID, OBJECT_TITLE, CAT_ID, OBJ_PATH, IS_ARCHIVE, COMMENT, ADDED_WHO, ADDED_WH"& _ + "EN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_OBJECT_STORE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TITLE", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJ_PATH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJ_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_ARCHIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ARCHIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBIDB_OBJECT_STORE.GUID, TBIDB_OBJECT_STORE.OBJECT_TITLE, TBIDB_OBJ"& _ + "ECT_STORE.CAT_ID, TBIDB_OBJECT_STORE.OBJ_PATH, TBIDB_OBJECT_STORE.IS_ARCHIVE, TB"& _ + "IDB_OBJECT_STORE.COMMENT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBIDB_OBJECT_STORE.ADDED_WH"& _ + "O, TBIDB_OBJECT_STORE.ADDED_WHEN, TBIDB_OBJECT_STORE.CHANGED_WHO, TBIDB_OBJECT_S"& _ + "TORE.CHANGED_WHEN, TBIDB_CATALOG.CAT_TITLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_OBJECT_STORE I"& _ + "NNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBIDB_CATALOG ON TBIDB_OBJECT_STORE.CAT_ID ="& _ + " TBIDB_CATALOG.GUID" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable = New DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_OBJECT_STOREDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBIDB_OBJECT_STORE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_OBJECT_TITLE As String, ByVal Original_CAT_ID As Integer, ByVal Original_OBJ_PATH As String, ByVal Original_IS_ARCHIVE As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_OBJECT_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_OBJECT_TITLE") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_OBJECT_TITLE,String) + End If + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CAT_ID,Integer) + If (Original_OBJ_PATH Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_OBJ_PATH") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_OBJ_PATH,String) + End If + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_IS_ARCHIVE,Boolean) + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_COMMENT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal OBJECT_TITLE As String, ByVal CAT_ID As Integer, ByVal OBJ_PATH As String, ByVal IS_ARCHIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer + If (OBJECT_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECT_TITLE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(OBJECT_TITLE,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(CAT_ID,Integer) + If (OBJ_PATH Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJ_PATH") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(OBJ_PATH,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(IS_ARCHIVE,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal OBJECT_TITLE As String, ByVal CAT_ID As Integer, ByVal OBJ_PATH As String, ByVal IS_ARCHIVE As Boolean, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (OBJECT_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECT_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OBJECT_TITLE,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CAT_ID,Integer) + If (OBJ_PATH Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJ_PATH") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(OBJ_PATH,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(IS_ARCHIVE,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIDB_CATALOGTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBIDB_CATALOG" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("CAT_TITLE", "CAT_TITLE") + tableMapping.ColumnMappings.Add("CAT_STRING", "CAT_STRING") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBIDB_CATALOG] WHERE (([GUID] = @Original_GUID) AND ([CAT_TITLE] = @"& _ + "Original_CAT_TITLE) AND ([CAT_STRING] = @Original_CAT_STRING) AND ([ADDED_WHO] ="& _ + " @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CH"& _ + "ANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_W"& _ + "HO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHE"& _ + "N] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAT_STRING", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_STRING", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_CATALOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CAT_TITLE, CAT_STRING, ADDED"& _ + "_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CAT_TITLE,@CAT_STRING,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CAT_TI"& _ + "TLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_CAT"& _ + "ALOG WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_STRING", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_STRING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_CATALOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CAT_TITLE = @CAT_TITLE, CAT_STRING"& _ + " = @CAT_STRING, ADDED_WHO = @ADDED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_"& _ + "WHEN FROM TBIDB_CATALOG WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_STRING", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_STRING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.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 + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ + "ANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_CATALOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", 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() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ + "ANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_CATALOG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (CAT_TITLE like 'DOCTYPE"& _ + "_CHANGED%')" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_CATALOGDataTable, ByVal ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal ID As Integer) As DSIDB_Stammdaten.TBIDB_CATALOGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Dim dataTable As DSIDB_Stammdaten.TBIDB_CATALOGDataTable = New DSIDB_Stammdaten.TBIDB_CATALOGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByDOCTYPE_CHANGED(ByVal dataTable As DSIDB_Stammdaten.TBIDB_CATALOGDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByDOCTYPE_CHANGED() As DSIDB_Stammdaten.TBIDB_CATALOGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Dim dataTable As DSIDB_Stammdaten.TBIDB_CATALOGDataTable = New DSIDB_Stammdaten.TBIDB_CATALOGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_CATALOGDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBIDB_CATALOG") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_CAT_TITLE As String, ByVal Original_CAT_STRING As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_CAT_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_CAT_TITLE") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CAT_TITLE,String) + End If + If (Original_CAT_STRING Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_CAT_STRING") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CAT_STRING,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal CAT_TITLE As String, ByVal CAT_STRING As String, ByVal ADDED_WHO As String) As Integer + If (CAT_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("CAT_TITLE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(CAT_TITLE,String) + End If + If (CAT_STRING Is Nothing) Then + Throw New Global.System.ArgumentNullException("CAT_STRING") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(CAT_STRING,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal CAT_TITLE As String, ByVal CAT_STRING As String, ByVal ADDED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (CAT_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("CAT_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CAT_TITLE,String) + End If + If (CAT_STRING Is Nothing) Then + Throw New Global.System.ArgumentNullException("CAT_STRING") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CAT_STRING,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBWH_ATTRIBUTE_TYPETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBWH_ATTRIBUTE_TYPE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME_TYPE", "NAME_TYPE") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, NAME_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_ATTRIBUTE_TYPE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPEDataTable = New DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWIDB_OBJECT_STORETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWIDB_OBJECT_STORE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("Objectstore", "Objectstore") + tableMapping.ColumnMappings.Add("Archive", "Archive") + tableMapping.ColumnMappings.Add("REL_PATH", "REL_PATH") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT * FROM VWIDB_OBJECT_STORE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.VWIDB_OBJECT_STOREDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.VWIDB_OBJECT_STOREDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSIDB_Stammdaten.VWIDB_OBJECT_STOREDataTable = New DSIDB_Stammdaten.VWIDB_OBJECT_STOREDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWIDB_DOCTYPES_DETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWIDB_DOCTYPES_DE" + tableMapping.ColumnMappings.Add("Doctype", "Doctype") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT * FROM VWIDB_DOCTYPES_DE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.VWIDB_DOCTYPES_DEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.VWIDB_DOCTYPES_DEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSIDB_Stammdaten.VWIDB_DOCTYPES_DEDataTable = New DSIDB_Stammdaten.VWIDB_DOCTYPES_DEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIDB_DOCTYPE_HANDLINGTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBIDB_DOCTYPE_HANDLING" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("DOCTYPE", "DOCTYPE") + tableMapping.ColumnMappings.Add("CHANGED_ACTION", "CHANGED_ACTION") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBIDB_DOCTYPE_HANDLING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_DOCTYPE_HANDLING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE, CHANGED_AC"& _ + "TION, ACTIVE, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE,@CHANGED_ACTION,@ACTI"& _ + "VE,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT"& _ + ", ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_DOCTYPE_HANDLING W"& _ + "HERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_ACTION", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_ACTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_DOCTYPE_HANDLING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE = @DOCTYPE, CHANG"& _ + "ED_ACTION = @CHANGED_ACTION, ACTIVE = @ACTIVE, COMMENT = @COMMENT, CHANGED_WHO ="& _ + " @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE, CHA"& _ + "NGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN F"& _ + "ROM TBIDB_DOCTYPE_HANDLING WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_ACTION", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_ACTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WH"& _ + "EN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_DOCTYPE_HANDLING"&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, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLINGDataTable, ByVal GUID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLINGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + Dim dataTable As DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLINGDataTable = New DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLINGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLINGDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBIDB_DOCTYPE_HANDLING") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal DOCTYPE As String, ByVal CHANGED_ACTION As Integer, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer + If (DOCTYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("DOCTYPE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(CHANGED_ACTION,Integer) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ACTIVE,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal DOCTYPE As String, ByVal CHANGED_ACTION As Integer, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (DOCTYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("DOCTYPE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_ACTION,Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ACTIVE,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIDB_CATALOG_USERTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBIDB_CATALOG_USER" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("CAT_TITLE", "CAT_TITLE") + tableMapping.ColumnMappings.Add("CAT_STRING", "CAT_STRING") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBIDB_CATALOG_USER] WHERE (([GUID] = @Original_GUID) AND ([CAT_TITLE"& _ + "] = @Original_CAT_TITLE) AND ([CAT_STRING] = @Original_CAT_STRING))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAT_STRING", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_STRING", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_CATALOG_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CAT_TITLE = @CAT_TITLE, CAT_S"& _ + "TRING = @CAT_STRING"&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, CAT_TI"& _ + "TLE, CAT_STRING FROM TBIDB_CATALOG_USER WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAT_STRING", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "CAT_STRING", 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 + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, CAT_TITLE, CAT_STRING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_CATALOG_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WH"& _ + "ERE (USR_ID = @USR_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USR_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USR_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_CATALOG_USERDataTable, ByVal USR_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USR_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal USR_ID As Integer) As DSIDB_Stammdaten.TBIDB_CATALOG_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USR_ID,Integer) + Dim dataTable As DSIDB_Stammdaten.TBIDB_CATALOG_USERDataTable = New DSIDB_Stammdaten.TBIDB_CATALOG_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_CATALOG_USERDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBIDB_CATALOG_USER") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_CAT_TITLE As String, ByVal Original_CAT_STRING As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_CAT_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_CAT_TITLE") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CAT_TITLE,String) + End If + If (Original_CAT_STRING Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_CAT_STRING") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CAT_STRING,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal CAT_TITLE As String, ByVal CAT_STRING As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (CAT_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("CAT_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CAT_TITLE,String) + End If + If (CAT_STRING Is Nothing) Then + Throw New Global.System.ArgumentNullException("CAT_STRING") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CAT_STRING,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIDB_LANGUAGETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBIDB_LANGUAGE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("LANG_CODE", "LANG_CODE") + tableMapping.ColumnMappings.Add("CREATE_DEFAULT_ENTRY", "CREATE_DEFAULT_ENTRY") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBIDB_LANGUAGE] WHERE (([GUID] = @Original_GUID) AND ([LANG_CODE] = "& _ + "@Original_LANG_CODE) AND ([CREATE_DEFAULT_ENTRY] = @Original_CREATE_DEFAULT_ENTR"& _ + "Y) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_CO"& _ + "MMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_AD"& _ + "DED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_"& _ + "WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN]"& _ + " IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANG_CODE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_CODE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CREATE_DEFAULT_ENTRY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CREATE_DEFAULT_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBIDB_LANGUAGE] ([LANG_CODE], [CREATE_DEFAULT_ENTRY], [COMMENT], [AD"& _ + "DED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@LANG_CODE, @CREA"& _ + "TE_DEFAULT_ENTRY, @COMMENT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN"& _ + ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LANG_CODE, CREATE_DEFAULT_ENTRY, COMMENT, ADDED_WHO, ADDED_WHEN"& _ + ", CHANGED_WHO, CHANGED_WHEN FROM TBIDB_LANGUAGE WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANG_CODE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_CODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CREATE_DEFAULT_ENTRY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CREATE_DEFAULT_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBIDB_LANGUAGE] SET [LANG_CODE] = @LANG_CODE, [CREATE_DEFAULT_ENTRY] = @C"& _ + "REATE_DEFAULT_ENTRY, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN"& _ + "] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WH"& _ + "ERE (([GUID] = @Original_GUID) AND ([LANG_CODE] = @Original_LANG_CODE) AND ([CRE"& _ + "ATE_DEFAULT_ENTRY] = @Original_CREATE_DEFAULT_ENTRY) AND ((@IsNull_COMMENT = 1 A"& _ + "ND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ADDED_WHO] = @Or"& _ + "iginal_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGE"& _ + "D_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO))"& _ + " AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] ="& _ + " @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LANG_CODE, CREATE_DEFAULT_ENTRY, COMME"& _ + "NT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_LANGUAGE WHERE ("& _ + "GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANG_CODE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_CODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CREATE_DEFAULT_ENTRY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CREATE_DEFAULT_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, 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("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 0, 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("@Original_LANG_CODE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANG_CODE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CREATE_DEFAULT_ENTRY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CREATE_DEFAULT_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBIDB_LANGUAGE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_LANGUAGE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_LANGUAGEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.TBIDB_LANGUAGEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSIDB_Stammdaten.TBIDB_LANGUAGEDataTable = New DSIDB_Stammdaten.TBIDB_LANGUAGEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_LANGUAGEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBIDB_LANGUAGE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Byte, ByVal Original_LANG_CODE As String, ByVal Original_CREATE_DEFAULT_ENTRY As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) + If (Original_LANG_CODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LANG_CODE") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_LANG_CODE,String) + End If + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CREATE_DEFAULT_ENTRY,Boolean) + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_COMMENT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal LANG_CODE As String, ByVal CREATE_DEFAULT_ENTRY As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (LANG_CODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANG_CODE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(LANG_CODE,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(CREATE_DEFAULT_ENTRY,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal LANG_CODE As String, _ + ByVal CREATE_DEFAULT_ENTRY As Boolean, _ + ByVal COMMENT As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Byte, _ + ByVal Original_LANG_CODE As String, _ + ByVal Original_CREATE_DEFAULT_ENTRY As Boolean, _ + ByVal Original_COMMENT As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Byte) As Integer + If (LANG_CODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANG_CODE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LANG_CODE,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CREATE_DEFAULT_ENTRY,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Byte) + If (Original_LANG_CODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LANG_CODE") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_LANG_CODE,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_CREATE_DEFAULT_ENTRY,Boolean) + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_COMMENT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal LANG_CODE As String, ByVal CREATE_DEFAULT_ENTRY As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Byte, ByVal Original_LANG_CODE As String, ByVal Original_CREATE_DEFAULT_ENTRY As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(LANG_CODE, CREATE_DEFAULT_ENTRY, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_LANG_CODE, Original_CREATE_DEFAULT_ENTRY, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWIDB_DOCTYPE_LANGUAGETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWIDB_DOCTYPE_LANGUAGE" + tableMapping.ColumnMappings.Add("ID", "ID") + tableMapping.ColumnMappings.Add("SystemTitle", "SystemTitle") + tableMapping.ColumnMappings.Add("Doctype", "Doctype") + tableMapping.ColumnMappings.Add("Language", "Language") + tableMapping.ColumnMappings.Add("Added When", "Added When") + tableMapping.ColumnMappings.Add("Changed When", "Changed When") + tableMapping.ColumnMappings.Add("Doctype_ID", "Doctype_ID") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT ID, SYS_TITLE AS SystemTitle, Doctype, LANG_CODE AS Language, ADDED"& _ + "_WHEN AS [Added When], CHANGED_WHEN AS [Changed When], Doctype_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " VWIDB_DOCTYPE_LANGUAGE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT ID, SYS_TITLE AS SystemTitle, Doctype, LANG_CODE AS Language, ADDED"& _ + "_WHEN AS [Added When], CHANGED_WHEN AS [Changed When], Doctype_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " VWIDB_DOCTYPE_LANGUAGE WHERE LANG_CODE = @LANG_CODE" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANG_CODE", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "Language", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGEDataTable = New DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByLanguage(ByVal dataTable As DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGEDataTable, ByVal LANG_CODE As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (LANG_CODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANG_CODE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANG_CODE,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByLanguage(ByVal LANG_CODE As String) As DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (LANG_CODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANG_CODE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANG_CODE,String) + End If + Dim dataTable As DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGEDataTable = New DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIDB_DOCTYPETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBIDB_DOCTYPE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBIDB_DOCTYPE] WHERE (([GUID] = @Original_GUID) AND ([TITLE] = @Orig"& _ + "inal_TITLE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Or"& _ + "iginal_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHE"& _ + "N = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (("& _ + "@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original"& _ + "_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([C"& _ + "HANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.BigInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBIDB_DOCTYPE] ([TITLE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHAN"& _ + "GED_WHO], [CHANGED_WHEN]) VALUES (@TITLE, @COMMENT, @ADDED_WHO, @ADDED_WHEN, @CH"& _ + "ANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, "& _ + "CHANGED_WHO, CHANGED_WHEN FROM TBIDB_DOCTYPE WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBIDB_DOCTYPE] SET [TITLE] = @TITLE, [COMMENT] = @COMMENT, [ADDED_WHO] = "& _ + "@ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_W"& _ + "HEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([TITLE] = @Original_T"& _ + "ITLE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original"& _ + "_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 "& _ + "AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNul"& _ + "l_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANG"& _ + "ED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED"& _ + "_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADD"& _ + "ED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_DOCTYPE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, 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("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.BigInt, 0, 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("@Original_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.BigInt, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBConnectionStringDEFAULT + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBIDB_DOCTYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_DOCTYPE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_DOCTYPEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.TBIDB_DOCTYPEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSIDB_Stammdaten.TBIDB_DOCTYPEDataTable = New DSIDB_Stammdaten.TBIDB_DOCTYPEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_DOCTYPEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBIDB_DOCTYPE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Long, ByVal Original_TITLE As String, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Long) + If (Original_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TITLE") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_TITLE,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_COMMENT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Long, ByVal Original_TITLE As String, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Long) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Long) + If (Original_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_TITLE,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_COMMENT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(GUID,Long) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Long, ByVal Original_TITLE As String, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_TITLE, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIDB_COMMON_SQLTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBIDB_COMMON_SQL" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [IDB].[dbo].[TBIDB_COMMON_SQL] WHERE (([GUID] = @Original_GUID) AND ("& _ + "[TITLE] = @Original_TITLE) AND ([ACTIVE] = @Original_ACTIVE) AND ((@IsNull_ADDED"& _ + "_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND (("& _ + "@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_AD"& _ + "DED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED"& _ + "_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN"& _ + "] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [IDB].[dbo].[TBIDB_COMMON_SQL] ([TITLE], [SQL_COMMAND], [ACTIVE], [AD"& _ + "DED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@TITLE, @SQL_COMM"& _ + "AND, @ACTIVE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUI"& _ + "D, TITLE, SQL_COMMAND, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ + "FROM IDB.dbo.TBIDB_COMMON_SQL WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", 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 IDB.dbo.TBIDB_COMMON_SQL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, SQL_COM"& _ + "MAND = @SQL_COMMAND, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + "(GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE, SQL_COMMAND, ACTIVE, ADDED_WHO, A"& _ + "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM IDB.dbo.TBIDB_COMMON_SQL WHERE (GUID ="& _ + " @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, TITLE, SQL_COMMAND, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WH"& _ + "O, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM IDB.dbo.TBIDB_COMMON_SQL" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_COMMON_SQLDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DSIDB_Stammdaten.TBIDB_COMMON_SQLDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSIDB_Stammdaten.TBIDB_COMMON_SQLDataTable = New DSIDB_Stammdaten.TBIDB_COMMON_SQLDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_COMMON_SQLDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBIDB_COMMON_SQL") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_TITLE As String, ByVal Original_ACTIVE As Boolean, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Date) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TITLE") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_TITLE,String) + End If + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ACTIVE,Boolean) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_CHANGED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_CHANGED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHEN,Date) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal SQL_COMMAND As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_COMMAND,String) + End If + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ACTIVE,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("CHANGED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN,Date) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal SQL_COMMAND As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (SQL_COMMAND Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_COMMAND,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ACTIVE,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tBIDB_BUSINESS_ENTITYTableAdapter As TBIDB_BUSINESS_ENTITYTableAdapter + + Private _tBIDB_ATTRIBUTETableAdapter As TBIDB_ATTRIBUTETableAdapter + + Private _tBIDB_ATTRIBUTE_TYPETableAdapter As TBIDB_ATTRIBUTE_TYPETableAdapter + + Private _vWIDB_BE_ATTRIBUTETableAdapter As VWIDB_BE_ATTRIBUTETableAdapter + + Private _tBZF_ADMIN_SOURCE_SQLTableAdapter As TBZF_ADMIN_SOURCE_SQLTableAdapter + + Private _tBIDB_OBJECT_STORETableAdapter As TBIDB_OBJECT_STORETableAdapter + + Private _tBIDB_CATALOGTableAdapter As TBIDB_CATALOGTableAdapter + + Private _tBIDB_DOCTYPE_HANDLINGTableAdapter As TBIDB_DOCTYPE_HANDLINGTableAdapter + + Private _tBIDB_CATALOG_USERTableAdapter As TBIDB_CATALOG_USERTableAdapter + + Private _tBIDB_LANGUAGETableAdapter As TBIDB_LANGUAGETableAdapter + + Private _tBIDB_DOCTYPETableAdapter As TBIDB_DOCTYPETableAdapter + + Private _tBIDB_COMMON_SQLTableAdapter As TBIDB_COMMON_SQLTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property TBIDB_BUSINESS_ENTITYTableAdapter() As TBIDB_BUSINESS_ENTITYTableAdapter + Get + Return Me._tBIDB_BUSINESS_ENTITYTableAdapter + End Get + Set + Me._tBIDB_BUSINESS_ENTITYTableAdapter = value + End Set + End Property + + _ + Public Property TBIDB_ATTRIBUTETableAdapter() As TBIDB_ATTRIBUTETableAdapter + Get + Return Me._tBIDB_ATTRIBUTETableAdapter + End Get + Set + Me._tBIDB_ATTRIBUTETableAdapter = value + End Set + End Property + + _ + Public Property TBIDB_ATTRIBUTE_TYPETableAdapter() As TBIDB_ATTRIBUTE_TYPETableAdapter + Get + Return Me._tBIDB_ATTRIBUTE_TYPETableAdapter + End Get + Set + Me._tBIDB_ATTRIBUTE_TYPETableAdapter = value + End Set + End Property + + _ + Public Property VWIDB_BE_ATTRIBUTETableAdapter() As VWIDB_BE_ATTRIBUTETableAdapter + Get + Return Me._vWIDB_BE_ATTRIBUTETableAdapter + End Get + Set + Me._vWIDB_BE_ATTRIBUTETableAdapter = value + End Set + End Property + + _ + Public Property TBZF_ADMIN_SOURCE_SQLTableAdapter() As TBZF_ADMIN_SOURCE_SQLTableAdapter + Get + Return Me._tBZF_ADMIN_SOURCE_SQLTableAdapter + End Get + Set + Me._tBZF_ADMIN_SOURCE_SQLTableAdapter = value + End Set + End Property + + _ + Public Property TBIDB_OBJECT_STORETableAdapter() As TBIDB_OBJECT_STORETableAdapter + Get + Return Me._tBIDB_OBJECT_STORETableAdapter + End Get + Set + Me._tBIDB_OBJECT_STORETableAdapter = value + End Set + End Property + + _ + Public Property TBIDB_CATALOGTableAdapter() As TBIDB_CATALOGTableAdapter + Get + Return Me._tBIDB_CATALOGTableAdapter + End Get + Set + Me._tBIDB_CATALOGTableAdapter = value + End Set + End Property + + _ + Public Property TBIDB_DOCTYPE_HANDLINGTableAdapter() As TBIDB_DOCTYPE_HANDLINGTableAdapter + Get + Return Me._tBIDB_DOCTYPE_HANDLINGTableAdapter + End Get + Set + Me._tBIDB_DOCTYPE_HANDLINGTableAdapter = value + End Set + End Property + + _ + Public Property TBIDB_CATALOG_USERTableAdapter() As TBIDB_CATALOG_USERTableAdapter + Get + Return Me._tBIDB_CATALOG_USERTableAdapter + End Get + Set + Me._tBIDB_CATALOG_USERTableAdapter = value + End Set + End Property + + _ + Public Property TBIDB_LANGUAGETableAdapter() As TBIDB_LANGUAGETableAdapter + Get + Return Me._tBIDB_LANGUAGETableAdapter + End Get + Set + Me._tBIDB_LANGUAGETableAdapter = value + End Set + End Property + + _ + Public Property TBIDB_DOCTYPETableAdapter() As TBIDB_DOCTYPETableAdapter + Get + Return Me._tBIDB_DOCTYPETableAdapter + End Get + Set + Me._tBIDB_DOCTYPETableAdapter = value + End Set + End Property + + _ + Public Property TBIDB_COMMON_SQLTableAdapter() As TBIDB_COMMON_SQLTableAdapter + Get + Return Me._tBIDB_COMMON_SQLTableAdapter + End Get + Set + Me._tBIDB_COMMON_SQLTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter.Connection) Is Nothing)) Then + Return Me._tBIDB_BUSINESS_ENTITYTableAdapter.Connection + End If + If ((Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBIDB_ATTRIBUTETableAdapter.Connection) Is Nothing)) Then + Return Me._tBIDB_ATTRIBUTETableAdapter.Connection + End If + If ((Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection) Is Nothing)) Then + Return Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection + End If + If ((Not (Me._vWIDB_BE_ATTRIBUTETableAdapter) Is Nothing) _ + AndAlso (Not (Me._vWIDB_BE_ATTRIBUTETableAdapter.Connection) Is Nothing)) Then + Return Me._vWIDB_BE_ATTRIBUTETableAdapter.Connection + End If + If ((Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Connection) Is Nothing)) Then + Return Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Connection + End If + If ((Not (Me._tBIDB_OBJECT_STORETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBIDB_OBJECT_STORETableAdapter.Connection) Is Nothing)) Then + Return Me._tBIDB_OBJECT_STORETableAdapter.Connection + End If + If ((Not (Me._tBIDB_CATALOGTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBIDB_CATALOGTableAdapter.Connection) Is Nothing)) Then + Return Me._tBIDB_CATALOGTableAdapter.Connection + End If + If ((Not (Me._tBIDB_DOCTYPE_HANDLINGTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBIDB_DOCTYPE_HANDLINGTableAdapter.Connection) Is Nothing)) Then + Return Me._tBIDB_DOCTYPE_HANDLINGTableAdapter.Connection + End If + If ((Not (Me._tBIDB_CATALOG_USERTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBIDB_CATALOG_USERTableAdapter.Connection) Is Nothing)) Then + Return Me._tBIDB_CATALOG_USERTableAdapter.Connection + End If + If ((Not (Me._tBIDB_LANGUAGETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBIDB_LANGUAGETableAdapter.Connection) Is Nothing)) Then + Return Me._tBIDB_LANGUAGETableAdapter.Connection + End If + If ((Not (Me._tBIDB_DOCTYPETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBIDB_DOCTYPETableAdapter.Connection) Is Nothing)) Then + Return Me._tBIDB_DOCTYPETableAdapter.Connection + End If + If ((Not (Me._tBIDB_COMMON_SQLTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBIDB_COMMON_SQLTableAdapter.Connection) Is Nothing)) Then + Return Me._tBIDB_COMMON_SQLTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._vWIDB_BE_ATTRIBUTETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBIDB_OBJECT_STORETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBIDB_CATALOGTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBIDB_DOCTYPE_HANDLINGTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBIDB_CATALOG_USERTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBIDB_LANGUAGETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBIDB_DOCTYPETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBIDB_COMMON_SQLTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As DSIDB_Stammdaten, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE_TYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBIDB_CATALOGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_CATALOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBIDB_CATALOGTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_BUSINESS_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBIDB_BUSINESS_ENTITYTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._vWIDB_BE_ATTRIBUTETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.VWIDB_BE_ATTRIBUTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._vWIDB_BE_ATTRIBUTETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBIDB_ATTRIBUTETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBZF_ADMIN_SOURCE_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBIDB_OBJECT_STORETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_OBJECT_STORE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBIDB_OBJECT_STORETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBIDB_DOCTYPE_HANDLINGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_DOCTYPE_HANDLING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBIDB_DOCTYPE_HANDLINGTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBIDB_CATALOG_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_CATALOG_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBIDB_CATALOG_USERTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBIDB_LANGUAGETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_LANGUAGE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBIDB_LANGUAGETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBIDB_DOCTYPETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_DOCTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBIDB_DOCTYPETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBIDB_COMMON_SQLTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_COMMON_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBIDB_COMMON_SQLTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As DSIDB_Stammdaten, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE_TYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBIDB_CATALOGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_CATALOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBIDB_CATALOGTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_BUSINESS_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBIDB_BUSINESS_ENTITYTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._vWIDB_BE_ATTRIBUTETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.VWIDB_BE_ATTRIBUTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._vWIDB_BE_ATTRIBUTETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBIDB_ATTRIBUTETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBZF_ADMIN_SOURCE_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBIDB_OBJECT_STORETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_OBJECT_STORE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBIDB_OBJECT_STORETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBIDB_DOCTYPE_HANDLINGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_DOCTYPE_HANDLING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBIDB_DOCTYPE_HANDLINGTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBIDB_CATALOG_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_CATALOG_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBIDB_CATALOG_USERTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBIDB_LANGUAGETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_LANGUAGE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBIDB_LANGUAGETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBIDB_DOCTYPETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_DOCTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBIDB_DOCTYPETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBIDB_COMMON_SQLTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_COMMON_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBIDB_COMMON_SQLTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As DSIDB_Stammdaten, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBIDB_COMMON_SQLTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_COMMON_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBIDB_COMMON_SQLTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBIDB_DOCTYPETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_DOCTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBIDB_DOCTYPETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBIDB_LANGUAGETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_LANGUAGE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBIDB_LANGUAGETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBIDB_CATALOG_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_CATALOG_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBIDB_CATALOG_USERTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBIDB_DOCTYPE_HANDLINGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_DOCTYPE_HANDLING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBIDB_DOCTYPE_HANDLINGTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBIDB_OBJECT_STORETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_OBJECT_STORE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBIDB_OBJECT_STORETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBZF_ADMIN_SOURCE_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBIDB_ATTRIBUTETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._vWIDB_BE_ATTRIBUTETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.VWIDB_BE_ATTRIBUTE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._vWIDB_BE_ATTRIBUTETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_BUSINESS_ENTITY.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBIDB_BUSINESS_ENTITYTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBIDB_CATALOGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_CATALOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBIDB_CATALOGTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_ATTRIBUTE_TYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As DSIDB_Stammdaten) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_BUSINESS_ENTITYTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_ATTRIBUTETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._vWIDB_BE_ATTRIBUTETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._vWIDB_BE_ATTRIBUTETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBIDB_OBJECT_STORETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_OBJECT_STORETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBIDB_CATALOGTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_CATALOGTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBIDB_DOCTYPE_HANDLINGTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_DOCTYPE_HANDLINGTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBIDB_CATALOG_USERTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_CATALOG_USERTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBIDB_LANGUAGETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_LANGUAGETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBIDB_DOCTYPETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_DOCTYPETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBIDB_COMMON_SQLTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_COMMON_SQLTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ + "t.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBIDB_BUSINESS_ENTITYTableAdapter, Me._tBIDB_BUSINESS_ENTITYTableAdapter.Connection) + Me._tBIDB_BUSINESS_ENTITYTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_BUSINESS_ENTITYTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBIDB_BUSINESS_ENTITYTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBIDB_BUSINESS_ENTITYTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_BUSINESS_ENTITYTableAdapter.Adapter) + End If + End If + If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBIDB_ATTRIBUTETableAdapter, Me._tBIDB_ATTRIBUTETableAdapter.Connection) + Me._tBIDB_ATTRIBUTETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_ATTRIBUTETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBIDB_ATTRIBUTETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBIDB_ATTRIBUTETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_ATTRIBUTETableAdapter.Adapter) + End If + End If + If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBIDB_ATTRIBUTE_TYPETableAdapter, Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection) + Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Adapter) + End If + End If + If (Not (Me._vWIDB_BE_ATTRIBUTETableAdapter) Is Nothing) Then + revertConnections.Add(Me._vWIDB_BE_ATTRIBUTETableAdapter, Me._vWIDB_BE_ATTRIBUTETableAdapter.Connection) + Me._vWIDB_BE_ATTRIBUTETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._vWIDB_BE_ATTRIBUTETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._vWIDB_BE_ATTRIBUTETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._vWIDB_BE_ATTRIBUTETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._vWIDB_BE_ATTRIBUTETableAdapter.Adapter) + End If + End If + If (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBZF_ADMIN_SOURCE_SQLTableAdapter, Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Connection) + Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Adapter) + End If + End If + If (Not (Me._tBIDB_OBJECT_STORETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBIDB_OBJECT_STORETableAdapter, Me._tBIDB_OBJECT_STORETableAdapter.Connection) + Me._tBIDB_OBJECT_STORETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_OBJECT_STORETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBIDB_OBJECT_STORETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBIDB_OBJECT_STORETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_OBJECT_STORETableAdapter.Adapter) + End If + End If + If (Not (Me._tBIDB_CATALOGTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBIDB_CATALOGTableAdapter, Me._tBIDB_CATALOGTableAdapter.Connection) + Me._tBIDB_CATALOGTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_CATALOGTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBIDB_CATALOGTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBIDB_CATALOGTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_CATALOGTableAdapter.Adapter) + End If + End If + If (Not (Me._tBIDB_DOCTYPE_HANDLINGTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBIDB_DOCTYPE_HANDLINGTableAdapter, Me._tBIDB_DOCTYPE_HANDLINGTableAdapter.Connection) + Me._tBIDB_DOCTYPE_HANDLINGTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_DOCTYPE_HANDLINGTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBIDB_DOCTYPE_HANDLINGTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBIDB_DOCTYPE_HANDLINGTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_DOCTYPE_HANDLINGTableAdapter.Adapter) + End If + End If + If (Not (Me._tBIDB_CATALOG_USERTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBIDB_CATALOG_USERTableAdapter, Me._tBIDB_CATALOG_USERTableAdapter.Connection) + Me._tBIDB_CATALOG_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_CATALOG_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBIDB_CATALOG_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBIDB_CATALOG_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_CATALOG_USERTableAdapter.Adapter) + End If + End If + If (Not (Me._tBIDB_LANGUAGETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBIDB_LANGUAGETableAdapter, Me._tBIDB_LANGUAGETableAdapter.Connection) + Me._tBIDB_LANGUAGETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_LANGUAGETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBIDB_LANGUAGETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBIDB_LANGUAGETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_LANGUAGETableAdapter.Adapter) + End If + End If + If (Not (Me._tBIDB_DOCTYPETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBIDB_DOCTYPETableAdapter, Me._tBIDB_DOCTYPETableAdapter.Connection) + Me._tBIDB_DOCTYPETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_DOCTYPETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBIDB_DOCTYPETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBIDB_DOCTYPETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_DOCTYPETableAdapter.Adapter) + End If + End If + If (Not (Me._tBIDB_COMMON_SQLTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBIDB_COMMON_SQLTableAdapter, Me._tBIDB_COMMON_SQLTableAdapter.Connection) + Me._tBIDB_COMMON_SQLTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_COMMON_SQLTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBIDB_COMMON_SQLTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBIDB_COMMON_SQLTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_COMMON_SQLTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._tBIDB_BUSINESS_ENTITYTableAdapter) Is Nothing) Then + Me._tBIDB_BUSINESS_ENTITYTableAdapter.Connection = CType(revertConnections(Me._tBIDB_BUSINESS_ENTITYTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_BUSINESS_ENTITYTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBIDB_ATTRIBUTETableAdapter) Is Nothing) Then + Me._tBIDB_ATTRIBUTETableAdapter.Connection = CType(revertConnections(Me._tBIDB_ATTRIBUTETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_ATTRIBUTETableAdapter.Transaction = Nothing + End If + If (Not (Me._tBIDB_ATTRIBUTE_TYPETableAdapter) Is Nothing) Then + Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Connection = CType(revertConnections(Me._tBIDB_ATTRIBUTE_TYPETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_ATTRIBUTE_TYPETableAdapter.Transaction = Nothing + End If + If (Not (Me._vWIDB_BE_ATTRIBUTETableAdapter) Is Nothing) Then + Me._vWIDB_BE_ATTRIBUTETableAdapter.Connection = CType(revertConnections(Me._vWIDB_BE_ATTRIBUTETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._vWIDB_BE_ATTRIBUTETableAdapter.Transaction = Nothing + End If + If (Not (Me._tBZF_ADMIN_SOURCE_SQLTableAdapter) Is Nothing) Then + Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Connection = CType(revertConnections(Me._tBZF_ADMIN_SOURCE_SQLTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBZF_ADMIN_SOURCE_SQLTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBIDB_OBJECT_STORETableAdapter) Is Nothing) Then + Me._tBIDB_OBJECT_STORETableAdapter.Connection = CType(revertConnections(Me._tBIDB_OBJECT_STORETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_OBJECT_STORETableAdapter.Transaction = Nothing + End If + If (Not (Me._tBIDB_CATALOGTableAdapter) Is Nothing) Then + Me._tBIDB_CATALOGTableAdapter.Connection = CType(revertConnections(Me._tBIDB_CATALOGTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_CATALOGTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBIDB_DOCTYPE_HANDLINGTableAdapter) Is Nothing) Then + Me._tBIDB_DOCTYPE_HANDLINGTableAdapter.Connection = CType(revertConnections(Me._tBIDB_DOCTYPE_HANDLINGTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_DOCTYPE_HANDLINGTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBIDB_CATALOG_USERTableAdapter) Is Nothing) Then + Me._tBIDB_CATALOG_USERTableAdapter.Connection = CType(revertConnections(Me._tBIDB_CATALOG_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_CATALOG_USERTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBIDB_LANGUAGETableAdapter) Is Nothing) Then + Me._tBIDB_LANGUAGETableAdapter.Connection = CType(revertConnections(Me._tBIDB_LANGUAGETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_LANGUAGETableAdapter.Transaction = Nothing + End If + If (Not (Me._tBIDB_DOCTYPETableAdapter) Is Nothing) Then + Me._tBIDB_DOCTYPETableAdapter.Connection = CType(revertConnections(Me._tBIDB_DOCTYPETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_DOCTYPETableAdapter.Transaction = Nothing + End If + If (Not (Me._tBIDB_COMMON_SQLTableAdapter) Is Nothing) Then + Me._tBIDB_COMMON_SQLTableAdapter.Connection = CType(revertConnections(Me._tBIDB_COMMON_SQLTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_COMMON_SQLTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.vb b/GUIs.ZooFlow/DSIDB_Stammdaten.vb new file mode 100644 index 0000000..1320717 --- /dev/null +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.vb @@ -0,0 +1,7 @@ +Partial Class DSIDB_Stammdaten +End Class + +Namespace DSIDB_StammdatenTableAdapters + Partial Public Class TBZF_ADMIN_SOURCE_SQLTableAdapter + End Class +End Namespace diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.xsc b/GUIs.ZooFlow/DSIDB_Stammdaten.xsc new file mode 100644 index 0000000..1734aea --- /dev/null +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xsc @@ -0,0 +1,72 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.xsd b/GUIs.ZooFlow/DSIDB_Stammdaten.xsd new file mode 100644 index 0000000..338b4c6 --- /dev/null +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xsd @@ -0,0 +1,1702 @@ + + + + + + + + + + + + + + + + + DELETE FROM TBIDB_BUSINESS_ENTITY +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBIDB_BUSINESS_ENTITY + (PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO) +VALUES (@PARENT_ENT_ID,@TITLE,@INHERITS_ATTRIBUTES,@COMMENT,@ADDED_WHO); +SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_BUSINESS_ENTITY WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBIDB_BUSINESS_ENTITY +WHERE GUID = @GUID + + + + + + + + UPDATE TBIDB_BUSINESS_ENTITY +SET PARENT_ENT_ID = @PARENT_ENT_ID, TITLE = @TITLE, INHERITS_ATTRIBUTES = @INHERITS_ATTRIBUTES, COMMENT = @COMMENT, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_BUSINESS_ENTITY WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO TBIDB_ATTRIBUTE + (TITLE, TYP_ID, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO) +VALUES (@TITLE,@TYP_ID,@MULTI_CONTEXT,@VIEW_SEQUENCE,@VIEW_VISIBLE,@COMMENT,@ADDED_WHO) + + + + + + + + + + + + + + SELECT TBIDB_ATTRIBUTE.GUID, TBIDB_ATTRIBUTE.TITLE, TBIDB_ATTRIBUTE.TYP_ID, TBIDB_ATTRIBUTE.MULTI_CONTEXT, TBIDB_ATTRIBUTE.VIEW_SEQUENCE, TBIDB_ATTRIBUTE.VIEW_VISIBLE, TBIDB_ATTRIBUTE.COMMENT, + TBIDB_ATTRIBUTE.ADDED_WHO, TBIDB_ATTRIBUTE.ADDED_WHEN, TBIDB_ATTRIBUTE.CHANGED_WHO, TBIDB_ATTRIBUTE.CHANGED_WHEN, TBIDB_ATTRIBUTE.DELETED, TBIDB_ATTRIBUTE.DELETED_WHO, + TBIDB_ATTRIBUTE.DELETED_WHEN, TBIDB_ATTRIBUTE_TYPE.NAME_TYPE AS ATTR_TYPE +FROM TBIDB_ATTRIBUTE INNER JOIN + TBIDB_ATTRIBUTE_TYPE ON TBIDB_ATTRIBUTE.TYP_ID = TBIDB_ATTRIBUTE_TYPE.GUID +WHERE TBIDB_ATTRIBUTE.GUID = @GUID + + + + + + + + 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) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBIDB_ATTRIBUTE_TYPE +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO [TBIDB_ATTRIBUTE_TYPE] ([NAME_TYPE], [COMMENT], [BIT1], [BIT2], [BIT3], [BIT4], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@NAME_TYPE, @COMMENT, @BIT1, @BIT2, @BIT3, @BIT4, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_ATTRIBUTE_TYPE WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + SELECT TBIDB_ATTRIBUTE_TYPE.* +FROM TBIDB_ATTRIBUTE_TYPE + + + + + + UPDATE [TBIDB_ATTRIBUTE_TYPE] SET [NAME_TYPE] = @NAME_TYPE, [COMMENT] = @COMMENT, [BIT1] = @BIT1, [BIT2] = @BIT2, [BIT3] = @BIT3, [BIT4] = @BIT4, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([NAME_TYPE] = @Original_NAME_TYPE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([BIT1] = @Original_BIT1) AND ([BIT2] = @Original_BIT2) AND ([BIT3] = @Original_BIT3) AND ([BIT4] = @Original_BIT4) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_ATTRIBUTE_TYPE WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO TBIDB_ATTRIBUTE + (TITLE, TYP_ID, VIEW_SEQUENCE, VIEW_VISIBLE, ADDED_WHO) +VALUES (@TITLE,@TYP_ID,@VIEW_SEQUENCE,@VIEW_VISIBLE,@ADDED_WHO) + + + + + + + + + + + + SELECT BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VISIBLE, VIEW_SEQUENCE, SYS_ATTRIBUTE, LANG_ID, LANG_CODE, ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, + MULTI_CONTEXT +FROM VWIDB_BE_ATTRIBUTE +WHERE (LANG_CODE = @LANG_CODE) AND (SYS_ATTRIBUTE = 0) + + + + + + + + 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) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, BE_ID, BE, ATTR_ID, ATTR_TITLE, TYP_ID, TYPE_ID, TYPE_NAME, VIEW_VISIBLE, MULTI_CONTEXT, VIEW_SEQUENCE, SYS_ATTRIBUTE, DEFAULT_SEARCH_ATTRIBUTE, LANG_ID, LANG_CODE, ADDED_WHEN, + ADDED_WHO, CHANGED_WHEN, CHANGED_WHO +FROM VWIDB_BE_ATTRIBUTE +WHERE (ATTR_ID = @ATTRIBUTE_ID) AND (LANG_ID = @LANGUAGE_ID) + + + + + + + + + + + + + + + DELETE FROM TBZF_ADMIN_SOURCE_SQL +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBZF_ADMIN_SOURCE_SQL + (PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN) +VALUES (@PARENT_ID,@ENTITY_TITLE,@SCOPE,@PK_COLUMN,@COMMENT,@SQL_COMMAND,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN); +SELECT GUID, PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + SELECT GUID, PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = @GUID) + + + + + + + + UPDATE TBZF_ADMIN_SOURCE_SQL +SET PARENT_ID = @PARENT_ID, ENTITY_TITLE = @ENTITY_TITLE, SCOPE = @SCOPE, PK_COLUMN = @PK_COLUMN, COMMENT = @COMMENT, SQL_COMMAND = @SQL_COMMAND, ADDED_WHO = @ADDED_WHO, + ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN +WHERE (GUID = @Original_GUID); +SELECT GUID, PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBIDB_OBJECT_STORE] WHERE (([GUID] = @Original_GUID) AND ([OBJECT_TITLE] = @Original_OBJECT_TITLE) AND ([CAT_ID] = @Original_CAT_ID) AND ([OBJ_PATH] = @Original_OBJ_PATH) AND ([IS_ARCHIVE] = @Original_IS_ARCHIVE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + + + INSERT INTO TBIDB_OBJECT_STORE + (OBJECT_TITLE, CAT_ID, OBJ_PATH, IS_ARCHIVE, COMMENT, ADDED_WHO) +VALUES (@OBJECT_TITLE,@CAT_ID,@OBJ_PATH,@IS_ARCHIVE,@COMMENT,@ADDED_WHO); +SELECT GUID, OBJECT_TITLE, CAT_ID, OBJ_PATH, IS_ARCHIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_OBJECT_STORE WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + SELECT TBIDB_OBJECT_STORE.GUID, TBIDB_OBJECT_STORE.OBJECT_TITLE, TBIDB_OBJECT_STORE.CAT_ID, TBIDB_OBJECT_STORE.OBJ_PATH, TBIDB_OBJECT_STORE.IS_ARCHIVE, TBIDB_OBJECT_STORE.COMMENT, + TBIDB_OBJECT_STORE.ADDED_WHO, TBIDB_OBJECT_STORE.ADDED_WHEN, TBIDB_OBJECT_STORE.CHANGED_WHO, TBIDB_OBJECT_STORE.CHANGED_WHEN, TBIDB_CATALOG.CAT_TITLE +FROM TBIDB_OBJECT_STORE INNER JOIN + TBIDB_CATALOG ON TBIDB_OBJECT_STORE.CAT_ID = TBIDB_CATALOG.GUID + + + + + + UPDATE TBIDB_OBJECT_STORE +SET OBJECT_TITLE = @OBJECT_TITLE, CAT_ID = @CAT_ID, OBJ_PATH = @OBJ_PATH, IS_ARCHIVE = @IS_ARCHIVE, COMMENT = @COMMENT, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, OBJECT_TITLE, CAT_ID, OBJ_PATH, IS_ARCHIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_OBJECT_STORE WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBIDB_CATALOG] WHERE (([GUID] = @Original_GUID) AND ([CAT_TITLE] = @Original_CAT_TITLE) AND ([CAT_STRING] = @Original_CAT_STRING) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + INSERT INTO TBIDB_CATALOG + (CAT_TITLE, CAT_STRING, ADDED_WHO) +VALUES (@CAT_TITLE,@CAT_STRING,@ADDED_WHO); +SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_CATALOG WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBIDB_CATALOG +WHERE (GUID = @ID) + + + + + + + + UPDATE TBIDB_CATALOG +SET CAT_TITLE = @CAT_TITLE, CAT_STRING = @CAT_STRING, ADDED_WHO = @ADDED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_CATALOG WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, CAT_TITLE, CAT_STRING, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBIDB_CATALOG +WHERE (CAT_TITLE like 'DOCTYPE_CHANGED%') + + + + + + + + + + + + SELECT GUID, NAME_TYPE +FROM TBIDB_ATTRIBUTE_TYPE + + + + + + + + + + + + + + + + + SELECT * FROM VWIDB_OBJECT_STORE + + + + + + + + + + + + + + + + + + + + + + + SELECT * FROM VWIDB_DOCTYPES_DE + + + + + + + + + + + + + + + + DELETE FROM TBIDB_DOCTYPE_HANDLING +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBIDB_DOCTYPE_HANDLING + (DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO) +VALUES (@DOCTYPE,@CHANGED_ACTION,@ACTIVE,@COMMENT,@ADDED_WHO); +SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_DOCTYPE_HANDLING WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBIDB_DOCTYPE_HANDLING +WHERE (GUID = @GUID) + + + + + + + + UPDATE TBIDB_DOCTYPE_HANDLING +SET DOCTYPE = @DOCTYPE, CHANGED_ACTION = @CHANGED_ACTION, ACTIVE = @ACTIVE, COMMENT = @COMMENT, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, DOCTYPE, CHANGED_ACTION, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_DOCTYPE_HANDLING WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBIDB_CATALOG_USER] WHERE (([GUID] = @Original_GUID) AND ([CAT_TITLE] = @Original_CAT_TITLE) AND ([CAT_STRING] = @Original_CAT_STRING)) + + + + + + + + + + SELECT GUID, CAT_TITLE, CAT_STRING +FROM TBIDB_CATALOG_USER +WHERE (USR_ID = @USR_ID) + + + + + + + + UPDATE TBIDB_CATALOG_USER +SET CAT_TITLE = @CAT_TITLE, CAT_STRING = @CAT_STRING +WHERE (GUID = @Original_GUID); +SELECT GUID, CAT_TITLE, CAT_STRING FROM TBIDB_CATALOG_USER WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBIDB_LANGUAGE] WHERE (([GUID] = @Original_GUID) AND ([LANG_CODE] = @Original_LANG_CODE) AND ([CREATE_DEFAULT_ENTRY] = @Original_CREATE_DEFAULT_ENTRY) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + INSERT INTO [TBIDB_LANGUAGE] ([LANG_CODE], [CREATE_DEFAULT_ENTRY], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@LANG_CODE, @CREATE_DEFAULT_ENTRY, @COMMENT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, LANG_CODE, CREATE_DEFAULT_ENTRY, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_LANGUAGE WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + SELECT TBIDB_LANGUAGE.* +FROM TBIDB_LANGUAGE + + + + + + UPDATE [TBIDB_LANGUAGE] SET [LANG_CODE] = @LANG_CODE, [CREATE_DEFAULT_ENTRY] = @CREATE_DEFAULT_ENTRY, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([LANG_CODE] = @Original_LANG_CODE) AND ([CREATE_DEFAULT_ENTRY] = @Original_CREATE_DEFAULT_ENTRY) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, LANG_CODE, CREATE_DEFAULT_ENTRY, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_LANGUAGE WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT ID, SYS_TITLE AS SystemTitle, Doctype, LANG_CODE AS Language, ADDED_WHEN AS [Added When], CHANGED_WHEN AS [Changed When], Doctype_ID +FROM VWIDB_DOCTYPE_LANGUAGE + + + + + + + + + + + + + + + + + + + SELECT ID, SYS_TITLE AS SystemTitle, Doctype, LANG_CODE AS Language, ADDED_WHEN AS [Added When], CHANGED_WHEN AS [Changed When], Doctype_ID +FROM VWIDB_DOCTYPE_LANGUAGE WHERE LANG_CODE = @LANG_CODE + + + + + + + + + + + + + + DELETE FROM [TBIDB_DOCTYPE] WHERE (([GUID] = @Original_GUID) AND ([TITLE] = @Original_TITLE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + INSERT INTO [TBIDB_DOCTYPE] ([TITLE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@TITLE, @COMMENT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_DOCTYPE WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + SELECT TBIDB_DOCTYPE.* +FROM TBIDB_DOCTYPE + + + + + + UPDATE [TBIDB_DOCTYPE] SET [TITLE] = @TITLE, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([TITLE] = @Original_TITLE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBIDB_DOCTYPE WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [IDB].[dbo].[TBIDB_COMMON_SQL] WHERE (([GUID] = @Original_GUID) AND ([TITLE] = @Original_TITLE) AND ([ACTIVE] = @Original_ACTIVE) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + INSERT INTO [IDB].[dbo].[TBIDB_COMMON_SQL] ([TITLE], [SQL_COMMAND], [ACTIVE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@TITLE, @SQL_COMMAND, @ACTIVE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, TITLE, SQL_COMMAND, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM IDB.dbo.TBIDB_COMMON_SQL WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + SELECT GUID, TITLE, SQL_COMMAND, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM IDB.dbo.TBIDB_COMMON_SQL + + + + + + UPDATE IDB.dbo.TBIDB_COMMON_SQL +SET TITLE = @TITLE, SQL_COMMAND = @SQL_COMMAND, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, TITLE, SQL_COMMAND, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM IDB.dbo.TBIDB_COMMON_SQL WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.xss b/GUIs.ZooFlow/DSIDB_Stammdaten.xss new file mode 100644 index 0000000..9bc73e1 --- /dev/null +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xss @@ -0,0 +1,68 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + 677 + 95 + + + 610 + 95 + + + + + + + 896 + 467 + + + 747 + 467 + + + + + + + 913 + 629 + + + 913 + 747 + + + 634 + 747 + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Events/OnFlowFormInteractionEvent.vb b/GUIs.ZooFlow/Events/OnFlowFormInteractionEvent.vb new file mode 100644 index 0000000..ea200de --- /dev/null +++ b/GUIs.ZooFlow/Events/OnFlowFormInteractionEvent.vb @@ -0,0 +1,11 @@ +Public Class OnFlowFormInteractionEvent + Public Enum FlowFormInteraction + Click + End Enum + + Public ReadOnly Property Interaction As FlowFormInteraction + + Public Sub New(Interaction As FlowFormInteraction) + _Interaction = Interaction + End Sub +End Class diff --git a/GUIs.ZooFlow/Events/OnFlowFormStateChangedEvent.vb b/GUIs.ZooFlow/Events/OnFlowFormStateChangedEvent.vb new file mode 100644 index 0000000..bfaf90d --- /dev/null +++ b/GUIs.ZooFlow/Events/OnFlowFormStateChangedEvent.vb @@ -0,0 +1,13 @@ +Public Class OnFlowFormStateChangedEvent + Public Enum FlowFormState + [Default] + HasSearchResults + HasFileDropped + End Enum + + Public ReadOnly Property State As FlowFormState + + Public Sub New(State As FlowFormState) + _State = State + End Sub +End Class diff --git a/GUIs.ZooFlow/Modules/ClipboardWatcher/ClassProfileLoader.vb b/GUIs.ZooFlow/Modules/ClipboardWatcher/ClassProfileLoader.vb new file mode 100644 index 0000000..f6f4643 --- /dev/null +++ b/GUIs.ZooFlow/Modules/ClipboardWatcher/ClassProfileLoader.vb @@ -0,0 +1,49 @@ +Imports DigitalData.Modules.EDMI.API +Imports DigitalData.Modules.Logging + +Namespace ClipboardWatcher + Public Class ClassProfileLoader + Private ReadOnly LogConfig As LogConfig + Private ReadOnly Logger As Logger + Private ReadOnly Database As DatabaseWithFallback + + Public Sub New(LogConfig As LogConfig, Database As DatabaseWithFallback) + Me.LogConfig = LogConfig + Me.Logger = LogConfig.GetLogger() + Me.Database = Database + End Sub + + Public Function LoadProfiles() As Boolean + Try + Dim oUserId = My.Application.User.UserId + Dim oWhereClause = $"T1.USER_ID = {oUserId} OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {oUserId}))" + + Dim oProfileSQL As String = $"SELECT DISTINCT GUID, NAME,REGEX_EXPRESSION,COMMENT,PROC_NAME,PROFILE_TYPE FROM VWCW_USER_PROFILE T1 WHERE {oWhereClause}" + Dim oProcessSQL As String = $"SELECT DISTINCT T.GUID, T.PROFILE_ID,T.PROC_NAME FROM TBCW_PROFILE_PROCESS T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.GUID AND ({oWhereClause})" + Dim oWindowSQL As String = $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_WINDOW T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.GUID AND ({oWhereClause})" + Dim oControlSQL As String = $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_CONTROL T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.GUID AND ({oWhereClause})" + + Dim oUserProfiles = Database.GetDatatable("VWCW_USER_PROFILE", oProfileSQL, Constants.DatabaseType.ECM) + Dim oProfileProcesses = Database.GetDatatable("VWCW_PROFILE_REL_WINDOW", oProcessSQL, Constants.DatabaseType.ECM) + Dim oProfileWindows = Database.GetDatatable("VWCW_PROFILE_REL_WINDOW", oWindowSQL, Constants.DatabaseType.ECM) + Dim oProfileControls = Database.GetDatatable("VWCW_PROFILE_REL_CONTROL", oControlSQL, Constants.DatabaseType.ECM) + + My.Application.ClipboardWatcher.UserProfiles = oUserProfiles + My.Application.ClipboardWatcher.ProfileProcesses = oProfileProcesses + My.Application.ClipboardWatcher.ProfileWindows = oProfileWindows + My.Application.ClipboardWatcher.ProfileControls = oProfileControls + My.Application.ClipboardWatcher.MonitoringActive = True + + Return True + + Catch ex As Exception + Logger.Error(ex) + + Return False + + End Try + End Function + End Class + +End Namespace + diff --git a/GUIs.ZooFlow/Modules/ClipboardWatcher/State.vb b/GUIs.ZooFlow/Modules/ClipboardWatcher/State.vb new file mode 100644 index 0000000..9971e47 --- /dev/null +++ b/GUIs.ZooFlow/Modules/ClipboardWatcher/State.vb @@ -0,0 +1,18 @@ +Imports DigitalData.Modules.ZooFlow.Params + +Namespace ClipboardWatcher + Public Class State + Public Property UserProfiles As DataTable = Nothing + Public Property ProfileProcesses As DataTable = Nothing + Public Property ProfileWindows As DataTable = Nothing + Public Property ProfileControls As DataTable = Nothing + + Public MatchTreeView As TreeView = New TreeView() + + Public Property CurrentMatchingProfiles As List(Of ProfileData) = New List(Of ProfileData) + Public Property CurrentProfilesWithResults As List(Of ProfileData) = New List(Of ProfileData) + Public Property CurrentClipboardContents As String = String.Empty + + Public Property MonitoringActive As Boolean = False + End Class +End Namespace \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/ClipboardWatcher/Watcher.vb b/GUIs.ZooFlow/Modules/ClipboardWatcher/Watcher.vb new file mode 100644 index 0000000..fe958c3 --- /dev/null +++ b/GUIs.ZooFlow/Modules/ClipboardWatcher/Watcher.vb @@ -0,0 +1,65 @@ +Imports System.Runtime.InteropServices +Imports DigitalData.Modules.Windows + +Namespace ClipboardWatcher + Public Class Watcher + Inherits NativeWindow + Implements IDisposable + + Public Event ClipboardChanged As EventHandler(Of IDataObject) + Public Shared Singleton As New Watcher + + Private _Handle As IntPtr + + Private Sub New() + MyBase.CreateHandle(New CreateParams) + _Handle = NativeMethods.SetClipboardViewer(Handle) + End Sub + + Protected Overrides Sub WndProc(ByRef m As Message) + Select Case m.Msg + Case NativeMethods.WM_DRAWCLIPBOARD + Dim oData As IDataObject = Clipboard.GetDataObject + RaiseEvent ClipboardChanged(Me, oData) + End Select + MyBase.WndProc(m) + End Sub + +#Region "IDisposable Support" + ' Für diese Klasse ist korrekte Ressourcenbereinigung besonders wichtig, da + ' mit systemübergreifenden Ressourcen gearbeitet wird + + ' So ermitteln Sie überflüssige Aufrufe + Private _DisposedValue As Boolean = False + + Protected Overridable Sub Dispose(ByVal pDisposing As Boolean) + If Not _DisposedValue Then + If pDisposing Then + ' TODO: Verwaltete Ressourcen freigeben, wenn sie explizit + ' aufgerufen werden + End If + MyBase.DestroyHandle() + Dim H As IntPtr = NativeMethods.SetClipboardViewer(_Handle) + End If + _DisposedValue = True + End Sub + + ' Dieser Code wird von Visual Basic hinzugefügt, um das Dispose-Muster + ' richtig zu implementieren. + Public Sub Dispose() Implements IDisposable.Dispose + ' Sie sollten diesen Code nicht ändern, sondern stattdessen ihren + ' Bereinigungscode oben in + ' Dispose(ByVal disposing As Boolean) einfügen. + Dispose(True) + System.GC.SuppressFinalize(Me) + End Sub + + Protected Overrides Sub Finalize() + MyBase.Finalize() + Dispose(False) + End Sub +#End Region + End Class + +End Namespace + diff --git a/GUIs.ZooFlow/Modules/Globix/ClassExclusions.vb b/GUIs.ZooFlow/Modules/Globix/ClassExclusions.vb new file mode 100644 index 0000000..ecc0d43 --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/ClassExclusions.vb @@ -0,0 +1,59 @@ +Public Class ClassExclusions + + Public Property FileExclusionPath As String = IO.Path.Combine(My.Application.UserAppDataPath, "FileExclusions.xml") + + Public Function Load() As Boolean + Dim rowresult As String = "" + Try + 'if file doesn't exist, create the file with its default xml table + If Not IO.File.Exists(FileExclusionPath) Then + My.Application.Globix.DTEXCLUDE_FILES = CreateExclusionTable() + My.Application.Globix.DTEXCLUDE_FILES.WriteXml(FileExclusionPath) + End If + My.Application.Globix.DTEXCLUDE_FILES = GetTablefromXML(FileExclusionPath) + + Return True + Catch ex As Exception + MsgBox("Error in ModuleUserSavings-LoadFileExclusion" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + Private Function CreateExclusionTable() As DataTable + Try + Dim oMyExclusions As New DataTable With { + .TableName = "TBEXCLUSION" + } + + ' Create two columns, ID and Name. + oMyExclusions.Columns.Add("FILE_CONTAIN", GetType(System.String)) + Dim newRow As DataRow = oMyExclusions.NewRow() + newRow("FILE_CONTAIN") = "Thumbs" + oMyExclusions.Rows.Add(newRow) + Dim newRow1 As DataRow = oMyExclusions.NewRow() + newRow1("FILE_CONTAIN") = "\~$" + oMyExclusions.Rows.Add(newRow1) + Dim newRow2 As DataRow = oMyExclusions.NewRow() + newRow2("FILE_CONTAIN") = ".db" + oMyExclusions.Rows.Add(newRow2) + Dim newRow3 As DataRow = oMyExclusions.NewRow() + newRow3("FILE_CONTAIN") = "desktop.ini" + oMyExclusions.Rows.Add(newRow3) + oMyExclusions.AcceptChanges() + Return oMyExclusions + Catch ex As Exception + MsgBox("Error in CreateExclusionTable" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return Nothing + End Try + End Function + + Private Function GetTablefromXML(FileExclusionPath As String) As DataTable + Try + Dim DS As New DataSet + DS.ReadXml(FileExclusionPath) + Return DS.Tables(0) + Catch ex As Exception + MsgBox("Error in GetTablefromXML" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return Nothing + End Try + End Function +End Class diff --git a/GUIs.ZooFlow/Modules/Globix/ClassFilehandle.vb b/GUIs.ZooFlow/Modules/Globix/ClassFilehandle.vb new file mode 100644 index 0000000..f2815a2 --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/ClassFilehandle.vb @@ -0,0 +1,193 @@ +Option Explicit On + +Imports System.Text.RegularExpressions +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Base +Imports DigitalData.Modules.Language +Imports DigitalData.Modules.Filesystem +Imports DigitalData.Modules.Messaging +Imports Limilabs.Mail +Imports DigitalData.GUIs.Common + +Public Class ClassFilehandle + Inherits BaseClass + + Private ReadOnly FileEx As File + Private ReadOnly Email As Email2 + Private ReadOnly UserFiles As ClassUserFiles + Private ReadOnly TempFiles As New List(Of String) + + Public Sub New(pLogConfig As LogConfig) + MyBase.New(pLogConfig) + Email = New Email2(pLogConfig) + FileEx = New File(pLogConfig) + UserFiles = New ClassUserFiles(pLogConfig) + End Sub + + Public Sub ClearTempFiles() + For Each oFile In TempFiles + Try + IO.File.Delete(oFile) + Logger.Debug("Temp file [{0}] was deleted.", oFile) + Catch ex As Exception + Logger.Warn("Temp file [{0}] could not be deleted", oFile) + Logger.Error(ex) + End Try + Next + Email.Clear_TempFiles() + TempFiles.Clear() + End Sub + + Public Function CheckDuplicateFiles(Filepath As String, ModuleTitle As String) + Dim oFileInfo As New IO.FileInfo(Filepath) + Dim oFilename As String = oFileInfo.Name + Dim oFileExists As Date = UserFiles.FileExistsinDropTable(Filepath) + + If oFileExists.Equals(Date.MinValue) Then + Return True + Else + 'Dim oResult As DialogResult + Dim oDate As String = oFileExists.ToString("d") + ' Dim oBoxTitle = $"GLOBIX - {ModuleTitle}" + + Dim ofrmDuplicate As New frmFileflow_Duplicate(oFilename, oDate) + + 'Dim oBoxOptions = MsgBoxStyle.Question Or MsgBoxStyle.YesNo + ofrmDuplicate.ShowDialog() + + If ofrmDuplicate.DialogResult = DialogResult.Yes Then + Return True + End If + End If + + Return False + End Function + + Public Function Decide_FileHandle(pFilepath As String, pHandletype As String) As Boolean + Try + Dim oTempFilePath = pFilepath + + Dim oInboxRegex As New Regex("\.INBOX\d+$") + + If oInboxRegex.IsMatch(oTempFilePath) Then + Logger.Info("Renaming INBOX file to EML") + + Try + Dim oInfo As New IO.FileInfo(oTempFilePath) + Logger.Info("Old Name: {0}", oInfo.Name) + Dim oNewName = $"{oInfo.Name}.eml" + Logger.Info("New Name: {0}", oNewName) + Dim oTempDirectory = IO.Path.GetTempPath() + Dim oNewPath = IO.Path.Combine(oTempDirectory, oNewName) + + IO.File.Copy(oInfo.FullName, oNewPath) + + TempFiles.Add(oNewPath) + + oTempFilePath = oNewPath + Catch ex As Exception + Logger.Error(ex) + End Try + End If + + If oTempFilePath.ToUpper.EndsWith(".MSG") Or oTempFilePath.ToUpper.EndsWith(".EML") Then + My.Application.Globix.CurrMessageID = "" + Dim oMail As IMail = Email.Load_Email(oTempFilePath) + If oMail.Attachments.Count > 0 Then + Dim oTitle As String + Dim oMessage As String + + If My.Application.User.Language = "de-DE" Then + oTitle = "Nachfrage zur Indexierung:" + oMessage = "Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?" + Else + oTitle = "Question about Indexing:" + oMessage = "Attention: This Email contains Attachments!" & vbNewLine & "Do you want to extract the attachments and index them seperately?" + End If + Dim oResult As DialogResult + + ' Weird hack to force messagebox to be topmost + ' https://stackoverflow.com/questions/1220882/keep-messagebox-show-on-top-of-other-application-using-c-sharp + oResult = MessageBox.Show(oMessage, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly) + + + If oResult = MsgBoxResult.Yes Then + Dim oIsFolderWatch = pHandletype.StartsWith("|FW") + Return Save_EmailAndAttachmentsToDisk(oTempFilePath, oIsFolderWatch) + End If + End If + End If + + If oTempFilePath.ToUpper.EndsWith(".LNK") Then + Dim oMSG As String + If My.Application.User.Language = "de-DE" Then + oMSG = "Verknüpfungen können nicht abgelegt werden!" + Else + oMSG = "Shortcuts cannot be droppped!" + End If + MsgBox(oMSG, MsgBoxStyle.Information, "Index Load") + + Return False + End If + + Return UserFiles.Insert_GI_File(oTempFilePath, pHandletype) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Decide_FileHandle") + + Return False + End Try + End Function + + Private Function Save_EmailAndAttachmentsToDisk(pEmailFilePath As String, Optional pFolderWatch As Boolean = False) As Boolean + Try + Dim oMessageOnlyMarker As String = "|MSGONLY|" + Dim oExtractedAttachmentMarker As String = "|ATTMNTEXTRACTED|" + If pFolderWatch = True Then + oMessageOnlyMarker = "|FW_MSGONLY|" + oExtractedAttachmentMarker = "|FW_ATTMNTEXTRACTED|" + End If + Dim oSuccess As Boolean = False + + Logger.Info("Converting file to Eml if needed: [{0}]", pEmailFilePath) + Dim oEmail As IMail = Email.Load_Email(pEmailFilePath) + + If oEmail.MessageID IsNot Nothing Then + My.Application.Globix.CurrMessageID = oEmail.MessageID + Else + Logger.Info("Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!") + My.Application.Globix.CurrMessageID = Guid.NewGuid.ToString() + End If + + Dim oEmailFilePathWithoutAttachments = Email.Remove_AttachmentsFromEmail(pEmailFilePath, "_excl_attachments") + + TempFiles.Add(oEmailFilePathWithoutAttachments) + + If UserFiles.Insert_GI_File(oEmailFilePathWithoutAttachments, oMessageOnlyMarker) = True Then + oSuccess = True + + Dim oAttachments As List(Of String) = Email.Save_AttachmentsToDisk(pEmailFilePath) + + Logger.Debug("Saved [{0}] attachments to disk.", oAttachments.Count) + + For Each oAttachment In oAttachments + TempFiles.Add(oAttachment) + + Logger.Debug("Saved attachment [{0}].", oAttachment) + oSuccess = UserFiles.Insert_GI_File(oAttachment, oExtractedAttachmentMarker) + + If oSuccess = False Then + Logger.Warn("Saving attachment to disk failed: [{0}]", oAttachment) + Exit For + End If + Next + End If + + Return oSuccess + Catch ex As Exception + Logger.Warn("Saving email to disk failed (Email_Decay)") + Logger.Error(ex) + + Return False + End Try + End Function +End Class diff --git a/GUIs.ZooFlow/Modules/Globix/ClassFolderwatcher.vb b/GUIs.ZooFlow/Modules/Globix/ClassFolderwatcher.vb new file mode 100644 index 0000000..701554f --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/ClassFolderwatcher.vb @@ -0,0 +1,184 @@ +Imports System.IO +Imports DigitalData.GUIs.Common +Imports DigitalData.Modules.Base +Imports DigitalData.Modules.Logging + +Public Class ClassFolderwatcher + Inherits BaseClass + + Public Shared FWFolderWatcher As FileSystemWatcher + Public Shared FWScan As FileSystemWatcher + + Private ReadOnly FileHandle As ClassFilehandle + + Public Sub New(pLogConfig As LogConfig) + MyBase.New(pLogConfig) + FileHandle = New ClassFilehandle(pLogConfig) + End Sub + + Public Function Restart_FolderWatch() As Boolean + If Directory.Exists(My.Application.Globix.CurrentFolderWatchPath) Then + Try + If FWFolderWatcher.EnableRaisingEvents = True Then + 'Gestartet also Stoppen + FWFolderWatcher.EnableRaisingEvents = False + My.Application.Globix.Folderwatchstarted = False + + FWFolderWatcher = StartFolderwatcherForPath(My.Application.Globix.CurrentFolderWatchPath) + My.Application.Globix.Folderwatchstarted = True + My.UIConfig.Globix.FolderWatchStarted = True + My.UIConfigManager.Save() + End If + Return True + Catch ex As Exception + Logger.Info($"Error in Restart_FolderWatch: {ex.Message}") + Logger.Error(ex.Message) + Return False + End Try + Else + Logger.Info($"Attention: Check the fodlerwatchinit-Module...My.Application.Globix.CurrentFolderWatchPath is not existing [{My.Application.Globix.CurrentFolderWatchPath}]") + Return False + End If + + End Function + Public Sub Restart_FolderWatchSCAN() + Try + If FWScan.EnableRaisingEvents = True Then + 'Gestartet also Stoppen + FWScan.EnableRaisingEvents = False + + 'FolderWatch neu instanzieren + FWScan = StartFolderwatcherForPath(My.Application.Globix.CURRENT_SCAN_FOLDERWATCH) + + My.UIConfig.Globix.FolderWatchScanStarted = True + My.UIConfigManager.Save() + End If + Catch ex As Exception + Logger.Info($"Error in Restart_FolderWatchSCAN: {ex.Message}") + Logger.Error(ex.Message) + End Try + End Sub + Public Function StartStop_FolderWatch() + Try + If FWFolderWatcher Is Nothing Then 'OrElse FWFolderWatcher.EnableRaisingEvents = False + ' Folderwatch neu instanzieren + FWFolderWatcher = StartFolderwatcherForPath(My.Application.Globix.CurrentFolderWatchPath) + My.Application.Globix.Folderwatchstarted = True + My.UIConfig.Globix.FolderWatchStarted = True + My.UIConfigManager.Save() + Logger.Info("Folderwatch successfully started!") + Return 1 + End If + + If FWFolderWatcher.EnableRaisingEvents = True Then + 'Gestartet also Stoppen + FWFolderWatcher.EnableRaisingEvents = False + My.Application.Globix.Folderwatchstarted = False + Logger.Info("Folderwatch stopped!") + My.UIConfig.Globix.FolderWatchStarted = False + My.UIConfigManager.Save() + Return 0 + End If + Catch ex As Exception + Logger.Error(ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Folder Watch") + + End Try + End Function + Public Function StartStop_FolderWatchSCAN() As Integer + Try + If FWScan Is Nothing Then + FWScan = New FileSystemWatcher(My.Application.Globix.CURRENT_SCAN_FOLDERWATCH, "*.*") + Logger.Info(" >> FolderWatch Scan Gestartet") + FWScan.IncludeSubdirectories = False + FWScan.EnableRaisingEvents = True + AddHandler FWScan.Created, AddressOf OnCreated + My.UIConfig.Globix.FolderWatchScanStarted = True + My.UIConfigManager.Save() + Return 1 + End If + If FWScan.EnableRaisingEvents = False Then + ' Dim watcher As New FileSystemWatcher() + ' watcher.Path = CURRENT_FOLDERWATCH + FWScan = New System.IO.FileSystemWatcher(My.Application.Globix.CURRENT_SCAN_FOLDERWATCH, "*.*") + Logger.Info(" >> FolderWatch Scan Gestartet") + FWScan.IncludeSubdirectories = False + FWScan.EnableRaisingEvents = True + AddHandler FWScan.Created, AddressOf OnCreated + My.UIConfig.Globix.FolderWatchScanStarted = True + My.UIConfigManager.Save() + Return 1 + Else + 'Gestartet also Stoppen + FWScan.EnableRaisingEvents = False + Logger.Info(" >> FolderWatch Scan gestoppt") + 'SaveConfigValue("FWSCAN_started", "False") + My.UIConfig.Globix.FolderWatchScanStarted = False + My.UIConfigManager.Save() + Return 0 + End If + + Catch ex As Exception + Logger.Error(ex.Message) + MsgBox("Error in StartStop_FolderWatchSCAN:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return 99 + End Try + End Function + Public Function Stop_FWSCAN() + If FWFolderWatcher.EnableRaisingEvents = True Then + 'Gestartet also Stoppen + FWFolderWatcher.EnableRaisingEvents = False + My.Application.Globix.Folderwatchstarted = False + Logger.Info(" >> FolderWatch gestoppt") + 'SaveConfigValue("my.Application.Globix.Folderwatchstarted", "False") + My.UIConfig.Globix.FolderWatchStarted = True + My.UIConfigManager.Save() + Return True + Else + Return False + End If + End Function + + Private Function StartFolderwatcherForPath(pPath As String) As FileSystemWatcher + Logger.Debug("Folder Watcher starting up for Path [{0}]", pPath) + Dim oWatcher = New FileSystemWatcher(pPath, "*.*") With { + .IncludeSubdirectories = False, + .EnableRaisingEvents = True + } + AddHandler oWatcher.Created, AddressOf OnCreated + Logger.Debug("Folder Watcher started for Path [{0}]", pPath) + Return oWatcher + End Function + + Private Sub OnCreated(source As Object, e As FileSystemEventArgs) + Try + If Not IsNothing(My.Application.Globix.DTEXCLUDE_FILES) Then + For Each row As DataRow In My.Application.Globix.DTEXCLUDE_FILES.Rows + Dim content As String = row.Item(0).ToString.ToLower + If e.FullPath.ToLower.Contains(content) Then + Exit Sub + End If + Next + End If + + + Dim handleType As String + If e.FullPath.ToLower.EndsWith(".msg") Then + handleType = "|FW_OUTLOOK_MESSAGE|" + Else + handleType = "|FW_SIMPLEINDEXER|" + End If + 'Die Datei übergeben + Logger.Info(">> OnCreated-File:" & e.FullPath) + + If FileHandle.Decide_FileHandle(e.FullPath, handleType) = True Then + My.Application.Globix.NEW_FILES = True + End If + + Catch ex As Exception + Logger.Error(ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in folder_watch_Created") + End Try + + End Sub +End Class diff --git a/GUIs.ZooFlow/Modules/Globix/ClassUserFiles.vb b/GUIs.ZooFlow/Modules/Globix/ClassUserFiles.vb new file mode 100644 index 0000000..e89e25b --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/ClassUserFiles.vb @@ -0,0 +1,71 @@ +Imports DigitalData.Modules.Base +Imports DigitalData.Modules.Filesystem +Imports DigitalData.Modules.Logging +Imports System.IO +Imports File = DigitalData.Modules.Filesystem.File + +Public Class ClassUserFiles + Inherits BaseClass + Private Property FILESYSTEM As File + Public Sub New(pLogConfig As LogConfig) + MyBase.New(pLogConfig) + FILESYSTEM = New File(pLogConfig) + End Sub + + Public Function Insert_GI_File(filename As String, handleType As String) As Boolean + Try + filename = filename.Replace("'", "''") + + Dim oHash As String = String.Empty + + If IO.File.Exists(filename) Then + If (filename.ToUpper.EndsWith(".MSG") Or filename.ToUpper.EndsWith(".EML")) And (handleType = "|OUTLOOK_MESSAGE|" Or handleType = "|MSGONLY|") Then + oHash = FILESYSTEM.GetChecksumFromString(filename) + Else + oHash = FILESYSTEM.GetChecksum(filename) + End If + End If + + Dim filename_only As String = Path.GetFileName(filename) + Dim ins As String = $"INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK, HANDLE_TYPE, FILENAME_ONLY, FILE_HASH) VALUES ('{filename}','{Environment.UserName}','{handleType}','{filename_only}', '{oHash}')" + Return My.DatabaseECM.ExecuteNonQuery(ins) + + Catch ex As Exception + Return False + End Try + End Function + + Public Function FileExistsinDropTable(Filename As String) As Date + Dim oSQL As String + Dim oHash As String + Dim oFilesystem As New DigitalData.Modules.Filesystem.File(My.LogConfig) + + Try + My.Application.Globix.DOCUMENT_ID = 0 + If Filename.Contains("'") Then + Filename = Filename.Replace("'", "''") + End If + + Try + oHash = oFilesystem.GetChecksum(Filename) + Catch ex As Exception + oHash = "" + End Try + + oSQL = $"SELECT A.* FROM TBIDB_FILE_OBJECT A INNER JOIN TBIDB_OBJECT B ON A.IDB_OBJ_ID = B.IDB_OBJ_ID + WHERE A.FILE_HASH = '{oHash}' AND B.DELETED = 0 ORDER BY A.ADDED_WHEN" + Dim oResult As DataTable = My.DatabaseIDB.GetDatatable(oSQL) + + If oResult.Rows.Count = 0 Then + Return Nothing + Else + Dim oFirstRow As DataRow = oResult.Rows.Item(0) + My.Application.Globix.DOCUMENT_ID = oFirstRow.Item("IDB_OBJ_ID") + Return oFirstRow.Item("ADDED_WHEN") + End If + Catch ex As Exception + MsgBox("Error in FileExistsinDropTable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & oSQL, MsgBoxStyle.Critical) + Return Nothing + End Try + End Function +End Class diff --git a/GUIs.ZooFlow/Modules/Globix/ClassValidator.vb b/GUIs.ZooFlow/Modules/Globix/ClassValidator.vb new file mode 100644 index 0000000..85806b0 --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/ClassValidator.vb @@ -0,0 +1,268 @@ +Imports DevExpress.XtraEditors +Imports DigitalData.Controls.LookupGrid +Imports DigitalData.GUIs.ZooFlow.Globix.Models +Imports DigitalData.GUIs.GlobalIndexer.ControlCreator +Imports DigitalData.Modules.EDMI.API +Imports DigitalData.Modules.EDMI.API.EDMIServiceReference +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Base +Imports DigitalData.GUIs.Common + +Public Class ClassValidator + Inherits BaseClass + + Private ReadOnly Client As Client + Private ReadOnly ManualIndexes As List(Of ManualIndex) + + Public Sub New(pLogConfig As LogConfig, pClient As Client, pManualIndexes As List(Of ManualIndex)) + MyBase.New(pLogConfig) + Client = pClient + ManualIndexes = pManualIndexes + End Sub + + Public Function GetControlMeta(pControl As Control) As ControlMeta + Dim oMeta As ControlMeta = Nothing + If TypeOf pControl.Tag Is ControlMeta Then + oMeta = DirectCast(pControl.Tag, ControlMeta) + End If + Return oMeta + End Function + + + Function ValidateControls(pPanel As Panel, pDocType As DocType) As Boolean + Try + Logger.Debug("Starting [ValidateControls]") + Dim result As Boolean = True + + For Each oControl As Control In pPanel.Controls + Dim oMeta As ControlMeta = GetControlMeta(oControl) + + ' Labels do not need to validated + If TypeOf oControl Is Label Then + Continue For + End If + + ' ========================= TEXT BOX ========================= + If oMeta.ControlType = "txt" Then + Dim oTextBox As DevExpress.XtraEditors.TextEdit = oControl + If oTextBox.Text = "" Then + Dim oIndexName = GetIndexName(oTextBox, "txt") + Dim oOptional = TestIsIndexOptional(pDocType, oIndexName) + + If oOptional = False Then + ShowValidationMessage() + oTextBox.Focus() + Return False + End If + End If + End If + + ' ========================= LOOKUP ========================= + If oMeta.ControlType = "cmbMulti" Then + Dim oLookup = DirectCast(oControl, LookupControl3) + Dim oValues As List(Of String) = oLookup.Properties.SelectedValues + + If oValues.Count = 0 Then + Dim oIndexName = GetIndexName(oLookup, "cmbMulti") + Dim oOptional = TestIsIndexOptional(pDocType, oIndexName) + + If oOptional = False Then + ShowValidationMessage() + oLookup.Focus() + Return False + End If + End If + + End If + If oMeta.ControlType = "cmbSingle" Then + Dim cmbSingle As TextBox = oControl + + If cmbSingle.Text = "" Then + Dim oIndexName = GetIndexName(cmbSingle, "cmbSingle") + Dim oOptional = TestIsIndexOptional(pDocType, oIndexName) + + If oOptional = False Then + ShowValidationMessage() + cmbSingle.Focus() + Return False + End If + End If + End If + + If oMeta.ControlType = "cmb" Then + Dim cmb As Windows.Forms.ComboBox = oControl + If cmb.Text = "" Then + Dim oIndexName = GetIndexName(cmb, "cmb") + Dim oOptional = TestIsIndexOptional(pDocType, oIndexName) + + If oOptional = False Then + ShowValidationMessage() + cmb.Focus() + Return False + End If + End If + End If + + ' ========================= DATE PICKER ========================= + If oMeta.ControlType = "dtp" Then + Dim dtp As DevExpress.XtraEditors.DateEdit = oControl + Dim oIndexName As String = GetIndexName(dtp, "dtp") + + If dtp.Text = String.Empty Then + Dim oOptional = TestIsIndexOptional(pDocType, oIndexName) + + If oOptional = False Then + ShowValidationMessage() + dtp.Focus() + Return False + End If + End If + End If + + ' ========================= CHECK BOX ========================= + If oMeta.ControlType = "chk" Then + 'TODO: Implement Itermediate state and then validation for checkbox + Dim chk As CheckEdit = oControl + 'result = True + End If + Next + + Return True + Catch ex As Exception + Logger.Warn("Unvorhergesehener Fehler in ValidateControls") + Logger.Error(ex.Message) + Return False + End Try + End Function + + Function GetControlValues(pPanel As Panel) As List(Of UserAttributeValue) + Dim oAttributeValues As New List(Of UserAttributeValue) + + For Each oControl As Control In pPanel.Controls + Dim oMeta As ControlMeta = GetControlMeta(oControl) + + ' Labels do not have values + If TypeOf oControl Is Label Then + Continue For + End If + + ' ========================= TEXTBOX ========================= + If oMeta.ControlType = "txt" Then + Dim oTextBox As DevExpress.XtraEditors.TextEdit = oControl + Dim oIndexName = GetIndexName(oTextBox, "txt") + + ' TODO: What to do when value is emmpty? send an empty value or skip the control? + 'If oTextBox.Text = "" Then + 'End If + + oAttributeValues.Add(New UserAttributeValue With { + .Name = oIndexName, + .Values = WrapIndexValue(oTextBox.Text), + .ControlName = oTextBox.Name + }) + End If + + ' ========================= LOOKUP ========================= + If oMeta.ControlType = "cmbMulti" Then + Dim oLookup = DirectCast(oControl, LookupControl3) + Dim oValues As List(Of String) = oLookup.Properties.SelectedValues + Dim oIndexName = GetIndexName(oLookup, "cmbMulti") + + If oValues.Count = 0 Then + End If + + oAttributeValues.Add(New UserAttributeValue With { + .Name = oIndexName, + .Values = WrapIndexValue(oValues), + .ControlName = oLookup.Name + }) + + + End If + + If oMeta.ControlType = "cmbSingle" Then + Dim cmbSingle As TextBox = oControl + Dim oIndexName = GetIndexName(cmbSingle, "cmbSingle") + + If cmbSingle.Text = "" Then + End If + + oAttributeValues.Add(New UserAttributeValue With { + .Name = oIndexName, + .Values = WrapIndexValue(cmbSingle.Text), + .ControlName = cmbSingle.Name + }) + End If + + If oMeta.ControlType = "cmb" Then + Dim cmb As ComboBox = oControl + Dim oIndexName = GetIndexName(cmb, "cmb") + + If cmb.Text = "" Then + End If + + oAttributeValues.Add(New UserAttributeValue With { + .Name = oIndexName, + .Values = WrapIndexValue(cmb.Text), + .ControlName = cmb.Name + }) + End If + + ' ========================= DATE PICKER ========================= + If oMeta.ControlType = "dtp" Then + Dim dtp As DevExpress.XtraEditors.DateEdit = oControl + Dim oIndexName As String = GetIndexName(dtp, "dtp") + + oAttributeValues.Add(New UserAttributeValue With { + .Name = oIndexName, + .Values = WrapIndexValue(dtp.EditValue.ToString), + .ControlName = dtp.Name + }) + End If + + ' ========================= CHECK BOX ========================= + If oMeta.ControlType = "chk" Then + Dim chk As CheckEdit = oControl + Dim oIndexName As String = GetIndexName(chk, "chk") + + + oAttributeValues.Add(New UserAttributeValue With { + .Name = oIndexName, + .Values = WrapIndexValue(chk.Checked.ToString), + .ControlName = chk.Name + }) + End If + Next + + Return oAttributeValues + End Function + + Private Function GetIndexName(pControl As Control, pPrefix As String) As String + Dim oIndexName = Replace(pControl.Name, pPrefix, "") + Return oIndexName + End Function + + Private Function WrapIndexValue(pValue As String) As String() + Return New List(Of String) From {pValue}.ToArray + End Function + + Private Function WrapIndexValue(pValues As List(Of String)) As String() + Return pValues.ToArray + End Function + + Private Function TestIsIndexOptional(pDocType As DocType, pIndexName As String) As Boolean + Dim oIsOptional As Boolean = ManualIndexes. + Where(Function(index) index.DocTypeId = pDocType.Guid And index.Name = pIndexName). + Select(Function(index) index.IsOptional). + FirstOrDefault() + + Return oIsOptional + End Function + + Private Sub ShowValidationMessage() + 'MsgBox(ClassConstants.TEXT_MISSING_INPUT, MsgBoxStyle.Exclamation, ClassConstants.TITLE_MISSING_INPUT) + Dim oMsgBox As New frmDialog(ClassConstants.TEXT_MISSING_INPUT, ClassConstants.TITLE_MISSING_INPUT, frmDialog.DialogType.Warning) + oMsgBox.ShowDialog() + + End Sub +End Class diff --git a/GUIs.ZooFlow/Modules/Globix/GlobixDataset.Designer.vb b/GUIs.ZooFlow/Modules/Globix/GlobixDataset.Designer.vb new file mode 100644 index 0000000..5057ba9 --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/GlobixDataset.Designer.vb @@ -0,0 +1,6512 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class GlobixDataset + Inherits Global.System.Data.DataSet + + Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable + + Private tableTBDD_INDEX_MAN As TBDD_INDEX_MANDataTable + + Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable + + Private tableTBGI_REGEX_DOCTYPE As TBGI_REGEX_DOCTYPEDataTable + + Private tableTBTEMP_INDEXRESULTS As TBTEMP_INDEXRESULTSDataTable + + Private relationFK_TBDD_INDEX_MAN_DAID As Global.System.Data.DataRelation + + Private relationFK_TBDD_INDEX_AUTOM_DOCID As Global.System.Data.DataRelation + + Private relationFK_TBGI_REGEX_DOCTYPE_DTID As Global.System.Data.DataRelation + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("TBDD_DOKUMENTART")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_DOKUMENTARTDataTable(ds.Tables("TBDD_DOKUMENTART"))) + End If + If (Not (ds.Tables("TBDD_INDEX_MAN")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_INDEX_MANDataTable(ds.Tables("TBDD_INDEX_MAN"))) + End If + If (Not (ds.Tables("TBDD_INDEX_AUTOM")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_INDEX_AUTOMDataTable(ds.Tables("TBDD_INDEX_AUTOM"))) + End If + If (Not (ds.Tables("TBGI_REGEX_DOCTYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBGI_REGEX_DOCTYPEDataTable(ds.Tables("TBGI_REGEX_DOCTYPE"))) + End If + If (Not (ds.Tables("TBTEMP_INDEXRESULTS")) Is Nothing) Then + MyBase.Tables.Add(New TBTEMP_INDEXRESULTSDataTable(ds.Tables("TBTEMP_INDEXRESULTS"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property TBDD_DOKUMENTART() As TBDD_DOKUMENTARTDataTable + Get + Return Me.tableTBDD_DOKUMENTART + End Get + End Property + + _ + Public ReadOnly Property TBDD_INDEX_MAN() As TBDD_INDEX_MANDataTable + Get + Return Me.tableTBDD_INDEX_MAN + End Get + End Property + + _ + Public ReadOnly Property TBDD_INDEX_AUTOM() As TBDD_INDEX_AUTOMDataTable + Get + Return Me.tableTBDD_INDEX_AUTOM + End Get + End Property + + _ + Public ReadOnly Property TBGI_REGEX_DOCTYPE() As TBGI_REGEX_DOCTYPEDataTable + Get + Return Me.tableTBGI_REGEX_DOCTYPE + End Get + End Property + + _ + Public ReadOnly Property TBTEMP_INDEXRESULTS() As TBTEMP_INDEXRESULTSDataTable + Get + Return Me.tableTBTEMP_INDEXRESULTS + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As GlobixDataset = CType(MyBase.Clone,GlobixDataset) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("TBDD_DOKUMENTART")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_DOKUMENTARTDataTable(ds.Tables("TBDD_DOKUMENTART"))) + End If + If (Not (ds.Tables("TBDD_INDEX_MAN")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_INDEX_MANDataTable(ds.Tables("TBDD_INDEX_MAN"))) + End If + If (Not (ds.Tables("TBDD_INDEX_AUTOM")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_INDEX_AUTOMDataTable(ds.Tables("TBDD_INDEX_AUTOM"))) + End If + If (Not (ds.Tables("TBGI_REGEX_DOCTYPE")) Is Nothing) Then + MyBase.Tables.Add(New TBGI_REGEX_DOCTYPEDataTable(ds.Tables("TBGI_REGEX_DOCTYPE"))) + End If + If (Not (ds.Tables("TBTEMP_INDEXRESULTS")) Is Nothing) Then + MyBase.Tables.Add(New TBTEMP_INDEXRESULTSDataTable(ds.Tables("TBTEMP_INDEXRESULTS"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableTBDD_DOKUMENTART = CType(MyBase.Tables("TBDD_DOKUMENTART"),TBDD_DOKUMENTARTDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_DOKUMENTART) Is Nothing) Then + Me.tableTBDD_DOKUMENTART.InitVars + End If + End If + Me.tableTBDD_INDEX_MAN = CType(MyBase.Tables("TBDD_INDEX_MAN"),TBDD_INDEX_MANDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_INDEX_MAN) Is Nothing) Then + Me.tableTBDD_INDEX_MAN.InitVars + End If + End If + Me.tableTBDD_INDEX_AUTOM = CType(MyBase.Tables("TBDD_INDEX_AUTOM"),TBDD_INDEX_AUTOMDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_INDEX_AUTOM) Is Nothing) Then + Me.tableTBDD_INDEX_AUTOM.InitVars + End If + End If + Me.tableTBGI_REGEX_DOCTYPE = CType(MyBase.Tables("TBGI_REGEX_DOCTYPE"),TBGI_REGEX_DOCTYPEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBGI_REGEX_DOCTYPE) Is Nothing) Then + Me.tableTBGI_REGEX_DOCTYPE.InitVars + End If + End If + Me.tableTBTEMP_INDEXRESULTS = CType(MyBase.Tables("TBTEMP_INDEXRESULTS"),TBTEMP_INDEXRESULTSDataTable) + If (initTable = true) Then + If (Not (Me.tableTBTEMP_INDEXRESULTS) Is Nothing) Then + Me.tableTBTEMP_INDEXRESULTS.InitVars + End If + End If + Me.relationFK_TBDD_INDEX_MAN_DAID = Me.Relations("FK_TBDD_INDEX_MAN_DAID") + Me.relationFK_TBDD_INDEX_AUTOM_DOCID = Me.Relations("FK_TBDD_INDEX_AUTOM_DOCID") + Me.relationFK_TBGI_REGEX_DOCTYPE_DTID = Me.Relations("FK_TBGI_REGEX_DOCTYPE_DTID") + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "GlobixDataset" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/GlobixDataset.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableTBDD_DOKUMENTART = New TBDD_DOKUMENTARTDataTable() + MyBase.Tables.Add(Me.tableTBDD_DOKUMENTART) + Me.tableTBDD_INDEX_MAN = New TBDD_INDEX_MANDataTable() + MyBase.Tables.Add(Me.tableTBDD_INDEX_MAN) + Me.tableTBDD_INDEX_AUTOM = New TBDD_INDEX_AUTOMDataTable() + MyBase.Tables.Add(Me.tableTBDD_INDEX_AUTOM) + Me.tableTBGI_REGEX_DOCTYPE = New TBGI_REGEX_DOCTYPEDataTable() + MyBase.Tables.Add(Me.tableTBGI_REGEX_DOCTYPE) + Me.tableTBTEMP_INDEXRESULTS = New TBTEMP_INDEXRESULTSDataTable() + MyBase.Tables.Add(Me.tableTBTEMP_INDEXRESULTS) + Me.relationFK_TBDD_INDEX_MAN_DAID = New Global.System.Data.DataRelation("FK_TBDD_INDEX_MAN_DAID", New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN.DOK_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_INDEX_MAN_DAID) + Me.relationFK_TBDD_INDEX_AUTOM_DOCID = New Global.System.Data.DataRelation("FK_TBDD_INDEX_AUTOM_DOCID", New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_INDEX_AUTOM_DOCID) + Me.relationFK_TBGI_REGEX_DOCTYPE_DTID = New Global.System.Data.DataRelation("FK_TBGI_REGEX_DOCTYPE_DTID", New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBGI_REGEX_DOCTYPE_DTID) + End Sub + + _ + Private Function ShouldSerializeTBDD_DOKUMENTART() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_INDEX_MAN() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_INDEX_AUTOM() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBGI_REGEX_DOCTYPE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBTEMP_INDEXRESULTS() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As GlobixDataset = New GlobixDataset() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub TBDD_DOKUMENTARTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_DOKUMENTARTRowChangeEvent) + + _ + Public Delegate Sub TBDD_INDEX_MANRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_MANRowChangeEvent) + + _ + Public Delegate Sub TBDD_INDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_AUTOMRowChangeEvent) + + _ + Public Delegate Sub TBGI_REGEX_DOCTYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_REGEX_DOCTYPERowChangeEvent) + + _ + Public Delegate Sub TBTEMP_INDEXRESULTSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBTEMP_INDEXRESULTSRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_DOKUMENTARTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_DOKUMENTARTRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnOBJEKTTYP As Global.System.Data.DataColumn + + Private columnEINGANGSART_ID As Global.System.Data.DataColumn + + Private columnKURZNAME As Global.System.Data.DataColumn + + Private columnZIEL_PFAD As Global.System.Data.DataColumn + + Private columnBESCHREIBUNG As Global.System.Data.DataColumn + + Private columnWINDREAM_DIRECT As Global.System.Data.DataColumn + + Private columnFOLDER_FOR_INDEX As Global.System.Data.DataColumn + + Private columnDUPLICATE_HANDLING As Global.System.Data.DataColumn + + Private columnAKTIV As Global.System.Data.DataColumn + + Private columnLANGUAGE As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnNAMENKONVENTION As Global.System.Data.DataColumn + + Private columnERSTELLTWER As Global.System.Data.DataColumn + + Private columnERSTELLTWANN As Global.System.Data.DataColumn + + Private columnGEANDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnIDB_OBJECT_STORE_ID As Global.System.Data.DataColumn + + Private columnIDB_DOCTYPE_ID As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_DOKUMENTART" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property OBJEKTTYPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOBJEKTTYP + End Get + End Property + + _ + Public ReadOnly Property EINGANGSART_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEINGANGSART_ID + End Get + End Property + + _ + Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKURZNAME + End Get + End Property + + _ + Public ReadOnly Property ZIEL_PFADColumn() As Global.System.Data.DataColumn + Get + Return Me.columnZIEL_PFAD + End Get + End Property + + _ + Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESCHREIBUNG + End Get + End Property + + _ + Public ReadOnly Property WINDREAM_DIRECTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWINDREAM_DIRECT + End Get + End Property + + _ + Public ReadOnly Property FOLDER_FOR_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLDER_FOR_INDEX + End Get + End Property + + _ + Public ReadOnly Property DUPLICATE_HANDLINGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDUPLICATE_HANDLING + End Get + End Property + + _ + Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAKTIV + End Get + End Property + + _ + Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLANGUAGE + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property NAMENKONVENTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAMENKONVENTION + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWER + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWANN + End Get + End Property + + _ + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEANDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property IDB_OBJECT_STORE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDB_OBJECT_STORE_ID + End Get + End Property + + _ + Public ReadOnly Property IDB_DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDB_DOCTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_DOKUMENTARTRow + Get + Return CType(Me.Rows(index),TBDD_DOKUMENTARTRow) + End Get + End Property + + _ + Public Event TBDD_DOKUMENTARTRowChanging As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Event TBDD_DOKUMENTARTRowChanged As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Event TBDD_DOKUMENTARTRowDeleting As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Event TBDD_DOKUMENTARTRowDeleted As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_DOKUMENTARTRow( _ + ByVal BEZEICHNUNG As String, _ + ByVal OBJEKTTYP As String, _ + ByVal EINGANGSART_ID As Byte, _ + ByVal KURZNAME As String, _ + ByVal ZIEL_PFAD As String, _ + ByVal BESCHREIBUNG As String, _ + ByVal WINDREAM_DIRECT As Boolean, _ + ByVal FOLDER_FOR_INDEX As String, _ + ByVal DUPLICATE_HANDLING As String, _ + ByVal AKTIV As Boolean, _ + ByVal LANGUAGE As String, _ + ByVal SEQUENCE As Integer, _ + ByVal NAMENKONVENTION As String, _ + ByVal ERSTELLTWER As String, _ + ByVal ERSTELLTWANN As Date, _ + ByVal GEANDERTWER As String, _ + ByVal GEAENDERTWANN As Date, _ + ByVal IDB_OBJECT_STORE_ID As Integer, _ + ByVal IDB_DOCTYPE_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_OBJECT_STORE_ID, IDB_DOCTYPE_ID} + rowTBDD_DOKUMENTARTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_DOKUMENTARTRow) + Return rowTBDD_DOKUMENTARTRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_DOKUMENTARTRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_DOKUMENTARTRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_DOKUMENTARTDataTable = CType(MyBase.Clone,TBDD_DOKUMENTARTDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_DOKUMENTARTDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnOBJEKTTYP = MyBase.Columns("OBJEKTTYP") + Me.columnEINGANGSART_ID = MyBase.Columns("EINGANGSART_ID") + Me.columnKURZNAME = MyBase.Columns("KURZNAME") + Me.columnZIEL_PFAD = MyBase.Columns("ZIEL_PFAD") + Me.columnBESCHREIBUNG = MyBase.Columns("BESCHREIBUNG") + Me.columnWINDREAM_DIRECT = MyBase.Columns("WINDREAM_DIRECT") + Me.columnFOLDER_FOR_INDEX = MyBase.Columns("FOLDER_FOR_INDEX") + Me.columnDUPLICATE_HANDLING = MyBase.Columns("DUPLICATE_HANDLING") + Me.columnAKTIV = MyBase.Columns("AKTIV") + Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnNAMENKONVENTION = MyBase.Columns("NAMENKONVENTION") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnIDB_OBJECT_STORE_ID = MyBase.Columns("IDB_OBJECT_STORE_ID") + Me.columnIDB_DOCTYPE_ID = MyBase.Columns("IDB_DOCTYPE_ID") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnOBJEKTTYP = New Global.System.Data.DataColumn("OBJEKTTYP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOBJEKTTYP) + Me.columnEINGANGSART_ID = New Global.System.Data.DataColumn("EINGANGSART_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEINGANGSART_ID) + Me.columnKURZNAME = New Global.System.Data.DataColumn("KURZNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKURZNAME) + Me.columnZIEL_PFAD = New Global.System.Data.DataColumn("ZIEL_PFAD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnZIEL_PFAD) + Me.columnBESCHREIBUNG = New Global.System.Data.DataColumn("BESCHREIBUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESCHREIBUNG) + Me.columnWINDREAM_DIRECT = New Global.System.Data.DataColumn("WINDREAM_DIRECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWINDREAM_DIRECT) + Me.columnFOLDER_FOR_INDEX = New Global.System.Data.DataColumn("FOLDER_FOR_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLDER_FOR_INDEX) + Me.columnDUPLICATE_HANDLING = New Global.System.Data.DataColumn("DUPLICATE_HANDLING", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDUPLICATE_HANDLING) + Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAKTIV) + Me.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLANGUAGE) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnNAMENKONVENTION = New Global.System.Data.DataColumn("NAMENKONVENTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAMENKONVENTION) + Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + 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_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.columnIDB_DOCTYPE_ID = New Global.System.Data.DataColumn("IDB_DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDB_DOCTYPE_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.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 50 + Me.columnOBJEKTTYP.AllowDBNull = false + Me.columnOBJEKTTYP.DefaultValue = CType("IDB_DRIVEN",String) + 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(false,Boolean) + Me.columnFOLDER_FOR_INDEX.AllowDBNull = false + Me.columnFOLDER_FOR_INDEX.MaxLength = 500 + Me.columnDUPLICATE_HANDLING.AllowDBNull = false + Me.columnDUPLICATE_HANDLING.DefaultValue = CType("Default",String) + Me.columnDUPLICATE_HANDLING.MaxLength = 30 + Me.columnAKTIV.AllowDBNull = false + Me.columnAKTIV.DefaultValue = CType(false,Boolean) + Me.columnLANGUAGE.AllowDBNull = false + Me.columnLANGUAGE.DefaultValue = CType("de-DE",String) + Me.columnLANGUAGE.MaxLength = 5 + Me.columnSEQUENCE.AllowDBNull = false + Me.columnSEQUENCE.DefaultValue = CType(1,Integer) + Me.columnNAMENKONVENTION.AllowDBNull = false + Me.columnNAMENKONVENTION.MaxLength = 500 + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnGEANDERTWER.MaxLength = 50 + Me.columnIDB_OBJECT_STORE_ID.DefaultValue = CType(1,Integer) + Me.columnIDB_DOCTYPE_ID.AllowDBNull = false + End Sub + + _ + Public Function NewTBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow + Return CType(Me.NewRow,TBDD_DOKUMENTARTRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_DOKUMENTARTRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_DOKUMENTARTRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_DOKUMENTARTRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowChanged(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_DOKUMENTARTRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowChanging(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_DOKUMENTARTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowDeleted(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_DOKUMENTARTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowDeleting(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As GlobixDataset = New GlobixDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_DOKUMENTARTDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_INDEX_MANDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_INDEX_MANRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnDOK_ID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnWD_INDEX As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnDATATYPE As Global.System.Data.DataColumn + + Private columnSUGGESTION As Global.System.Data.DataColumn + + Private columnDEFAULT_VALUE As Global.System.Data.DataColumn + + Private columnCONNECTION_ID As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnSQL_RESULT As Global.System.Data.DataColumn + + Private columnSQL_CHECK As Global.System.Data.DataColumn + + Private columnOPTIONAL As Global.System.Data.DataColumn + + Private columnSAVE_VALUE As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnMULTISELECT As Global.System.Data.DataColumn + + Private columnVKT_ADD_ITEM As Global.System.Data.DataColumn + + Private columnVKT_PREVENT_MULTIPLE_VALUES As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_INDEX_MAN" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property DOK_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOK_ID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property WD_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWD_INDEX + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property DATATYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATATYPE + End Get + End Property + + _ + Public ReadOnly Property SUGGESTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUGGESTION + End Get + End Property + + _ + Public ReadOnly Property DEFAULT_VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEFAULT_VALUE + End Get + End Property + + _ + Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONNECTION_ID + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_RESULT + End Get + End Property + + _ + Public ReadOnly Property SQL_CHECKColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_CHECK + End Get + End Property + + _ + Public ReadOnly Property OPTIONALColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOPTIONAL + End Get + End Property + + _ + Public ReadOnly Property SAVE_VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSAVE_VALUE + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property MULTISELECTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMULTISELECT + End Get + End Property + + _ + Public ReadOnly Property VKT_ADD_ITEMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVKT_ADD_ITEM + End Get + End Property + + _ + Public ReadOnly Property VKT_PREVENT_MULTIPLE_VALUESColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVKT_PREVENT_MULTIPLE_VALUES + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_INDEX_MANRow + Get + Return CType(Me.Rows(index),TBDD_INDEX_MANRow) + End Get + End Property + + _ + Public Event TBDD_INDEX_MANRowChanging As TBDD_INDEX_MANRowChangeEventHandler + + _ + Public Event TBDD_INDEX_MANRowChanged As TBDD_INDEX_MANRowChangeEventHandler + + _ + Public Event TBDD_INDEX_MANRowDeleting As TBDD_INDEX_MANRowChangeEventHandler + + _ + Public Event TBDD_INDEX_MANRowDeleted As TBDD_INDEX_MANRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_INDEX_MANRow(ByVal row As TBDD_INDEX_MANRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_INDEX_MANRow( _ + ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID As TBDD_DOKUMENTARTRow, _ + ByVal NAME As String, _ + 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 Short, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_RESULT As String, _ + ByVal SQL_CHECK As String, _ + ByVal _OPTIONAL As Boolean, _ + ByVal SAVE_VALUE As Boolean, _ + ByVal ACTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal MULTISELECT As Boolean, _ + ByVal VKT_ADD_ITEM As Boolean, _ + ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean) As TBDD_INDEX_MANRow + Dim rowTBDD_INDEX_MANRow As TBDD_INDEX_MANRow = CType(Me.NewRow,TBDD_INDEX_MANRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, 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} + If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID(0) + End If + rowTBDD_INDEX_MANRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_INDEX_MANRow) + Return rowTBDD_INDEX_MANRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_MANRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_MANRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_INDEX_MANDataTable = CType(MyBase.Clone,TBDD_INDEX_MANDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_INDEX_MANDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnDOK_ID = MyBase.Columns("DOK_ID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnWD_INDEX = MyBase.Columns("WD_INDEX") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnDATATYPE = MyBase.Columns("DATATYPE") + Me.columnSUGGESTION = MyBase.Columns("SUGGESTION") + Me.columnDEFAULT_VALUE = MyBase.Columns("DEFAULT_VALUE") + Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT") + Me.columnSQL_CHECK = MyBase.Columns("SQL_CHECK") + Me.columnOPTIONAL = MyBase.Columns("OPTIONAL") + Me.columnSAVE_VALUE = MyBase.Columns("SAVE_VALUE") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnMULTISELECT = MyBase.Columns("MULTISELECT") + Me.columnVKT_ADD_ITEM = MyBase.Columns("VKT_ADD_ITEM") + Me.columnVKT_PREVENT_MULTIPLE_VALUES = MyBase.Columns("VKT_PREVENT_MULTIPLE_VALUES") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnDOK_ID = New Global.System.Data.DataColumn("DOK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOK_ID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnWD_INDEX = New Global.System.Data.DataColumn("WD_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWD_INDEX) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnDATATYPE = New Global.System.Data.DataColumn("DATATYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATATYPE) + Me.columnSUGGESTION = New Global.System.Data.DataColumn("SUGGESTION", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUGGESTION) + Me.columnDEFAULT_VALUE = New Global.System.Data.DataColumn("DEFAULT_VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDEFAULT_VALUE) + Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONNECTION_ID) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnSQL_RESULT = New Global.System.Data.DataColumn("SQL_RESULT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_RESULT) + Me.columnSQL_CHECK = New Global.System.Data.DataColumn("SQL_CHECK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_CHECK) + Me.columnOPTIONAL = New Global.System.Data.DataColumn("OPTIONAL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me.columnOPTIONAL.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "OPTIONALColumn") + Me.columnOPTIONAL.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnOPTIONAL") + Me.columnOPTIONAL.ExtendedProperties.Add("Generator_UserColumnName", "OPTIONAL") + MyBase.Columns.Add(Me.columnOPTIONAL) + Me.columnSAVE_VALUE = New Global.System.Data.DataColumn("SAVE_VALUE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSAVE_VALUE) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnMULTISELECT = New Global.System.Data.DataColumn("MULTISELECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMULTISELECT) + Me.columnVKT_ADD_ITEM = New Global.System.Data.DataColumn("VKT_ADD_ITEM", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVKT_ADD_ITEM) + Me.columnVKT_PREVENT_MULTIPLE_VALUES = New Global.System.Data.DataColumn("VKT_PREVENT_MULTIPLE_VALUES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVKT_PREVENT_MULTIPLE_VALUES) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnDOK_ID.AllowDBNull = false + Me.columnNAME.AllowDBNull = false + 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 + Me.columnVKT_PREVENT_MULTIPLE_VALUES.DefaultValue = CType(false,Boolean) + End Sub + + _ + Public Function NewTBDD_INDEX_MANRow() As TBDD_INDEX_MANRow + Return CType(Me.NewRow,TBDD_INDEX_MANRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_INDEX_MANRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_INDEX_MANRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_INDEX_MANRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_MANRowChanged(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_INDEX_MANRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_MANRowChanging(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_INDEX_MANRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_MANRowDeleted(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_INDEX_MANRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_MANRowDeleting(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_INDEX_MANRow(ByVal row As TBDD_INDEX_MANRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As GlobixDataset = New GlobixDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_INDEX_MANDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_INDEX_AUTOMDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_INDEX_AUTOMRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnDOCTYPE_ID As Global.System.Data.DataColumn + + Private columnENTITY_ID As Global.System.Data.DataColumn + + Private columnINDEXNAME As Global.System.Data.DataColumn + + Private columnVALUE As Global.System.Data.DataColumn + + Private columnCONNECTION_ID As Global.System.Data.DataColumn + + Private columnSQL_RESULT As Global.System.Data.DataColumn + + Private columnSQL_ACTIVE As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_INDEX_AUTOM" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOCTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnENTITY_ID + End Get + End Property + + _ + Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnINDEXNAME + End Get + End Property + + _ + Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVALUE + End Get + End Property + + _ + Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONNECTION_ID + End Get + End Property + + _ + Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_RESULT + End Get + End Property + + _ + Public ReadOnly Property SQL_ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_ACTIVE + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_INDEX_AUTOMRow + Get + Return CType(Me.Rows(index),TBDD_INDEX_AUTOMRow) + End Get + End Property + + _ + Public Event TBDD_INDEX_AUTOMRowChanging As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Event TBDD_INDEX_AUTOMRowChanged As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Event TBDD_INDEX_AUTOMRowDeleting As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Event TBDD_INDEX_AUTOMRowDeleted As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal ENTITY_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_INDEX_AUTOMRow + Dim rowTBDD_INDEX_AUTOMRow As TBDD_INDEX_AUTOMRow = CType(Me.NewRow,TBDD_INDEX_AUTOMRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID(0) + End If + rowTBDD_INDEX_AUTOMRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_INDEX_AUTOMRow) + Return rowTBDD_INDEX_AUTOMRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_AUTOMRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_AUTOMRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_INDEX_AUTOMDataTable = CType(MyBase.Clone,TBDD_INDEX_AUTOMDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_INDEX_AUTOMDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") + Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") + Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") + Me.columnVALUE = MyBase.Columns("VALUE") + Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") + Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT") + Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOCTYPE_ID) + Me.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnENTITY_ID) + Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnINDEXNAME) + Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVALUE) + Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONNECTION_ID) + Me.columnSQL_RESULT = New Global.System.Data.DataColumn("SQL_RESULT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_RESULT) + Me.columnSQL_ACTIVE = New Global.System.Data.DataColumn("SQL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_ACTIVE) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + 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) + Me.columnSEQUENCE.AllowDBNull = false + Me.columnSEQUENCE.DefaultValue = CType(1,Byte) + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_INDEX_AUTOMRow() As TBDD_INDEX_AUTOMRow + Return CType(Me.NewRow,TBDD_INDEX_AUTOMRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_INDEX_AUTOMRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_INDEX_AUTOMRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_INDEX_AUTOMRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowChanged(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_INDEX_AUTOMRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowChanging(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_INDEX_AUTOMRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowDeleted(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_INDEX_AUTOMRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowDeleting(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As GlobixDataset = New GlobixDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_INDEX_AUTOMDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBGI_REGEX_DOCTYPEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBGI_REGEX_DOCTYPERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnREGEX As Global.System.Data.DataColumn + + Private columnDOCTYPE_ID As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBGI_REGEX_DOCTYPE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property REGEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREGEX + End Get + End Property + + _ + Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOCTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBGI_REGEX_DOCTYPERow + Get + Return CType(Me.Rows(index),TBGI_REGEX_DOCTYPERow) + End Get + End Property + + _ + Public Event TBGI_REGEX_DOCTYPERowChanging As TBGI_REGEX_DOCTYPERowChangeEventHandler + + _ + Public Event TBGI_REGEX_DOCTYPERowChanged As TBGI_REGEX_DOCTYPERowChangeEventHandler + + _ + Public Event TBGI_REGEX_DOCTYPERowDeleting As TBGI_REGEX_DOCTYPERowChangeEventHandler + + _ + Public Event TBGI_REGEX_DOCTYPERowDeleted As TBGI_REGEX_DOCTYPERowChangeEventHandler + + _ + Public Overloads Sub AddTBGI_REGEX_DOCTYPERow(ByVal row As TBGI_REGEX_DOCTYPERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBGI_REGEX_DOCTYPERow(ByVal REGEX As String, ByVal parentTBDD_DOKUMENTARTRowByFK_TBGI_REGEX_DOCTYPE_DTID As TBDD_DOKUMENTARTRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBGI_REGEX_DOCTYPERow + Dim rowTBGI_REGEX_DOCTYPERow As TBGI_REGEX_DOCTYPERow = CType(Me.NewRow,TBGI_REGEX_DOCTYPERow) + Dim columnValuesArray() As Object = New Object() {Nothing, REGEX, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBDD_DOKUMENTARTRowByFK_TBGI_REGEX_DOCTYPE_DTID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_DOKUMENTARTRowByFK_TBGI_REGEX_DOCTYPE_DTID(0) + End If + rowTBGI_REGEX_DOCTYPERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBGI_REGEX_DOCTYPERow) + Return rowTBGI_REGEX_DOCTYPERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBGI_REGEX_DOCTYPERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBGI_REGEX_DOCTYPERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBGI_REGEX_DOCTYPEDataTable = CType(MyBase.Clone,TBGI_REGEX_DOCTYPEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBGI_REGEX_DOCTYPEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnREGEX = MyBase.Columns("REGEX") + Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnREGEX = New Global.System.Data.DataColumn("REGEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnREGEX) + Me.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOCTYPE_ID) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + 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.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnREGEX.AllowDBNull = false + Me.columnREGEX.MaxLength = 500 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBGI_REGEX_DOCTYPERow() As TBGI_REGEX_DOCTYPERow + Return CType(Me.NewRow,TBGI_REGEX_DOCTYPERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBGI_REGEX_DOCTYPERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBGI_REGEX_DOCTYPERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBGI_REGEX_DOCTYPERowChangedEvent) Is Nothing) Then + RaiseEvent TBGI_REGEX_DOCTYPERowChanged(Me, New TBGI_REGEX_DOCTYPERowChangeEvent(CType(e.Row,TBGI_REGEX_DOCTYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBGI_REGEX_DOCTYPERowChangingEvent) Is Nothing) Then + RaiseEvent TBGI_REGEX_DOCTYPERowChanging(Me, New TBGI_REGEX_DOCTYPERowChangeEvent(CType(e.Row,TBGI_REGEX_DOCTYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBGI_REGEX_DOCTYPERowDeletedEvent) Is Nothing) Then + RaiseEvent TBGI_REGEX_DOCTYPERowDeleted(Me, New TBGI_REGEX_DOCTYPERowChangeEvent(CType(e.Row,TBGI_REGEX_DOCTYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBGI_REGEX_DOCTYPERowDeletingEvent) Is Nothing) Then + RaiseEvent TBGI_REGEX_DOCTYPERowDeleting(Me, New TBGI_REGEX_DOCTYPERowChangeEvent(CType(e.Row,TBGI_REGEX_DOCTYPERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBGI_REGEX_DOCTYPERow(ByVal row As TBGI_REGEX_DOCTYPERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As GlobixDataset = New GlobixDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBGI_REGEX_DOCTYPEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBTEMP_INDEXRESULTSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBTEMP_INDEXRESULTSRow) + + Private columnIndexname As Global.System.Data.DataColumn + + Private columnValue As Global.System.Data.DataColumn + + Private columnDokumentart As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBTEMP_INDEXRESULTS" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property IndexnameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIndexname + End Get + End Property + + _ + Public ReadOnly Property ValueColumn() As Global.System.Data.DataColumn + Get + Return Me.columnValue + End Get + End Property + + _ + Public ReadOnly Property DokumentartColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDokumentart + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBTEMP_INDEXRESULTSRow + Get + Return CType(Me.Rows(index),TBTEMP_INDEXRESULTSRow) + End Get + End Property + + _ + Public Event TBTEMP_INDEXRESULTSRowChanging As TBTEMP_INDEXRESULTSRowChangeEventHandler + + _ + Public Event TBTEMP_INDEXRESULTSRowChanged As TBTEMP_INDEXRESULTSRowChangeEventHandler + + _ + Public Event TBTEMP_INDEXRESULTSRowDeleting As TBTEMP_INDEXRESULTSRowChangeEventHandler + + _ + Public Event TBTEMP_INDEXRESULTSRowDeleted As TBTEMP_INDEXRESULTSRowChangeEventHandler + + _ + Public Overloads Sub AddTBTEMP_INDEXRESULTSRow(ByVal row As TBTEMP_INDEXRESULTSRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBTEMP_INDEXRESULTSRow(ByVal Indexname As String, ByVal Value As String, ByVal Dokumentart As String) As TBTEMP_INDEXRESULTSRow + Dim rowTBTEMP_INDEXRESULTSRow As TBTEMP_INDEXRESULTSRow = CType(Me.NewRow,TBTEMP_INDEXRESULTSRow) + Dim columnValuesArray() As Object = New Object() {Indexname, Value, Dokumentart} + rowTBTEMP_INDEXRESULTSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBTEMP_INDEXRESULTSRow) + Return rowTBTEMP_INDEXRESULTSRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBTEMP_INDEXRESULTSDataTable = CType(MyBase.Clone,TBTEMP_INDEXRESULTSDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBTEMP_INDEXRESULTSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnIndexname = MyBase.Columns("Indexname") + Me.columnValue = MyBase.Columns("Value") + Me.columnDokumentart = MyBase.Columns("Dokumentart") + End Sub + + _ + Private Sub InitClass() + Me.columnIndexname = New Global.System.Data.DataColumn("Indexname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIndexname) + Me.columnValue = New Global.System.Data.DataColumn("Value", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnValue) + Me.columnDokumentart = New Global.System.Data.DataColumn("Dokumentart", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDokumentart) + End Sub + + _ + Public Function NewTBTEMP_INDEXRESULTSRow() As TBTEMP_INDEXRESULTSRow + Return CType(Me.NewRow,TBTEMP_INDEXRESULTSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBTEMP_INDEXRESULTSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBTEMP_INDEXRESULTSRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBTEMP_INDEXRESULTSRowChangedEvent) Is Nothing) Then + RaiseEvent TBTEMP_INDEXRESULTSRowChanged(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBTEMP_INDEXRESULTSRowChangingEvent) Is Nothing) Then + RaiseEvent TBTEMP_INDEXRESULTSRowChanging(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBTEMP_INDEXRESULTSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBTEMP_INDEXRESULTSRowDeleted(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBTEMP_INDEXRESULTSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBTEMP_INDEXRESULTSRowDeleting(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBTEMP_INDEXRESULTSRow(ByVal row As TBTEMP_INDEXRESULTSRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As GlobixDataset = New GlobixDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBTEMP_INDEXRESULTSDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_DOKUMENTARTRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_DOKUMENTART = CType(Me.Table,TBDD_DOKUMENTARTDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property OBJEKTTYP() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = value + End Set + End Property + + _ + Public Property EINGANGSART_ID() As Byte + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn),Byte) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn) = value + End Set + End Property + + _ + Public Property KURZNAME() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn) = value + End Set + End Property + + _ + Public Property ZIEL_PFAD() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn) = value + End Set + End Property + + _ + Public Property BESCHREIBUNG() As String + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESCHREIBUNG in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = value + End Set + End Property + + _ + Public Property WINDREAM_DIRECT() As Boolean + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn) = value + End Set + End Property + + _ + Public Property FOLDER_FOR_INDEX() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn) = value + End Set + End Property + + _ + Public Property DUPLICATE_HANDLING() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn) = value + End Set + End Property + + _ + Public Property AKTIV() As Boolean + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn) = value + End Set + End Property + + _ + Public Property LANGUAGE() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.LANGUAGEColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.LANGUAGEColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property NAMENKONVENTION() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWER() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = value + End Set + End Property + + _ + Public Property GEANDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property IDB_OBJECT_STORE_ID() As Integer + Get + 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_OBJECT_STORE_IDColumn) = value + End Set + End Property + + _ + Public Property IDB_DOCTYPE_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.IDB_DOCTYPE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.IDB_DOCTYPE_IDColumn) = value + End Set + End Property + + _ + Public Function IsBESCHREIBUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) + End Function + + _ + Public Sub SetBESCHREIBUNGNull() + Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) + End Function + + _ + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIDB_OBJECT_STORE_IDNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.IDB_OBJECT_STORE_IDColumn) + End Function + + _ + Public Sub SetIDB_OBJECT_STORE_IDNull() + Me(Me.tableTBDD_DOKUMENTART.IDB_OBJECT_STORE_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_INDEX_MANRows() As TBDD_INDEX_MANRow() + If (Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_DAID") Is Nothing) Then + Return New TBDD_INDEX_MANRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_DAID")),TBDD_INDEX_MANRow()) + End If + End Function + + _ + Public Function GetTBDD_INDEX_AUTOMRows() As TBDD_INDEX_AUTOMRow() + If (Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID") Is Nothing) Then + Return New TBDD_INDEX_AUTOMRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_INDEX_AUTOMRow()) + End If + End Function + + _ + Public Function GetTBGI_REGEX_DOCTYPERows() As TBGI_REGEX_DOCTYPERow() + If (Me.Table.ChildRelations("FK_TBGI_REGEX_DOCTYPE_DTID") Is Nothing) Then + Return New TBGI_REGEX_DOCTYPERow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBGI_REGEX_DOCTYPE_DTID")),TBGI_REGEX_DOCTYPERow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_INDEX_MANRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_INDEX_MAN As TBDD_INDEX_MANDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_INDEX_MAN = CType(Me.Table,TBDD_INDEX_MANDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.GUIDColumn) = value + End Set + End Property + + _ + Public Property DOK_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.DOK_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.DOK_IDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.NAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.NAMEColumn) = value + End Set + End Property + + _ + Public Property WD_INDEX() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WD_INDEX in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn) = value + End Set + End Property + + _ + Public Property DATATYPE() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATATYPE in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) = value + End Set + End Property + + _ + Public Property SUGGESTION() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SUGGESTIONColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SUGGESTIONColumn) = value + End Set + End Property + + _ + Public Property DEFAULT_VALUE() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.DEFAULT_VALUEColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.DEFAULT_VALUEColumn) = value + End Set + End Property + + _ + Public Property CONNECTION_ID() As Short + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property SQL_RESULT() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SQL_RESULTColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SQL_RESULTColumn) = value + End Set + End Property + + _ + Public Property SQL_CHECK() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SQL_CHECKColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SQL_CHECKColumn) = value + End Set + End Property + + _ + Public Property _OPTIONAL() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.OPTIONALColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.OPTIONALColumn) = value + End Set + End Property + + _ + Public Property SAVE_VALUE() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SAVE_VALUEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SAVE_VALUEColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property MULTISELECT() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn) = value + End Set + End Property + + _ + Public Property VKT_ADD_ITEM() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.VKT_ADD_ITEMColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.VKT_ADD_ITEMColumn) = value + End Set + End Property + + _ + Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.VKT_PREVENT_MULTIPLE_VALUESColumn) = value + End Set + End Property + + _ + Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_DAID")),TBDD_DOKUMENTARTRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_DAID")) + End Set + End Property + + _ + Public Function IsWD_INDEXNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) + End Function + + _ + Public Sub SetWD_INDEXNull() + Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATATYPENull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) + End Function + + _ + Public Sub SetDATATYPENull() + Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCONNECTION_IDNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) + End Function + + _ + Public Sub SetCONNECTION_IDNull() + Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_INDEX_AUTOMRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_INDEX_AUTOM = CType(Me.Table,TBDD_INDEX_AUTOMDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn) = value + End Set + End Property + + _ + Public Property DOCTYPE_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn) = value + End Set + End Property + + _ + Public Property ENTITY_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ENTITY_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ENTITY_IDColumn) = value + End Set + End Property + + _ + Public Property INDEXNAME() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn) = value + End Set + End Property + + _ + Public Property VALUE() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = value + End Set + End Property + + _ + Public Property CONNECTION_ID() As Short + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn),Short) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = value + End Set + End Property + + _ + Public Property SQL_RESULT() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) = value + End Set + End Property + + _ + Public Property SQL_ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Byte + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SEQUENCEColumn),Byte) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_DOKUMENTARTRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")) + End Set + End Property + + _ + Public Function IsVALUENull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) + End Function + + _ + Public Sub SetVALUENull() + Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBGI_REGEX_DOCTYPERow + Inherits Global.System.Data.DataRow + + Private tableTBGI_REGEX_DOCTYPE As TBGI_REGEX_DOCTYPEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBGI_REGEX_DOCTYPE = CType(Me.Table,TBGI_REGEX_DOCTYPEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBGI_REGEX_DOCTYPE.GUIDColumn) = value + End Set + End Property + + _ + Public Property REGEX() As String + Get + Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.REGEXColumn),String) + End Get + Set + Me(Me.tableTBGI_REGEX_DOCTYPE.REGEXColumn) = value + End Set + End Property + + _ + Public Property DOCTYPE_ID() As Integer + Get + Try + Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DOCTYPE_ID in Tabelle TBGI_REGEX_DOCTYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBGI_REGEX_DOCTYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBGI_REGEX_DOCTYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBGI_REGEX_DOCTYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBGI_REGEX_DOCTYPE_DTID")),TBDD_DOKUMENTARTRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBGI_REGEX_DOCTYPE_DTID")) + End Set + End Property + + _ + Public Function IsDOCTYPE_IDNull() As Boolean + Return Me.IsNull(Me.tableTBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn) + End Function + + _ + Public Sub SetDOCTYPE_IDNull() + Me(Me.tableTBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBTEMP_INDEXRESULTSRow + Inherits Global.System.Data.DataRow + + Private tableTBTEMP_INDEXRESULTS As TBTEMP_INDEXRESULTSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBTEMP_INDEXRESULTS = CType(Me.Table,TBTEMP_INDEXRESULTSDataTable) + End Sub + + _ + Public Property Indexname() As String + Get + Try + Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexname in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) = value + End Set + End Property + + _ + Public Property Value() As String + Get + Try + Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Value in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) = value + End Set + End Property + + _ + Public Property Dokumentart() As String + Get + Try + Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Dokumentart in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) = value + End Set + End Property + + _ + Public Function IsIndexnameNull() As Boolean + Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) + End Function + + _ + Public Sub SetIndexnameNull() + Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsValueNull() As Boolean + Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) + End Function + + _ + Public Sub SetValueNull() + Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDokumentartNull() As Boolean + Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) + End Function + + _ + Public Sub SetDokumentartNull() + Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_DOKUMENTARTRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_DOKUMENTARTRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_DOKUMENTARTRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_DOKUMENTARTRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_INDEX_MANRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_INDEX_MANRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_INDEX_MANRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_INDEX_MANRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_INDEX_AUTOMRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_INDEX_AUTOMRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_INDEX_AUTOMRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_INDEX_AUTOMRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBGI_REGEX_DOCTYPERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBGI_REGEX_DOCTYPERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBGI_REGEX_DOCTYPERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBGI_REGEX_DOCTYPERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBTEMP_INDEXRESULTSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBTEMP_INDEXRESULTSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBTEMP_INDEXRESULTSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBTEMP_INDEXRESULTSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace GlobixDatasetTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_DOKUMENTARTTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_DOKUMENTART" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("OBJEKTTYP", "OBJEKTTYP") + tableMapping.ColumnMappings.Add("EINGANGSART_ID", "EINGANGSART_ID") + tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") + tableMapping.ColumnMappings.Add("ZIEL_PFAD", "ZIEL_PFAD") + tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") + tableMapping.ColumnMappings.Add("WINDREAM_DIRECT", "WINDREAM_DIRECT") + tableMapping.ColumnMappings.Add("FOLDER_FOR_INDEX", "FOLDER_FOR_INDEX") + tableMapping.ColumnMappings.Add("DUPLICATE_HANDLING", "DUPLICATE_HANDLING") + tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") + tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("NAMENKONVENTION", "NAMENKONVENTION") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("IDB_OBJECT_STORE_ID", "IDB_OBJECT_STORE_ID") + tableMapping.ColumnMappings.Add("IDB_DOCTYPE_ID", "IDB_DOCTYPE_ID") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO 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_DOCTYPE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@EINGANGSART_ID,"& _ + "@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTT"& _ + "YP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING,@IDB_DOCTYPE"& _ + "_ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, OBJEKTTYP, EINGANGSART_ID, KURZNAME, ZIEL_P"& _ + "FAD, BESCHREIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV,"& _ + " LANGUAGE, SEQUENCE, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GE"& _ + "AENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTITY())" + 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, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + 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_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDB_DOCTYPE_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"& _ + "GANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BES"& _ + "CHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVE"& _ + "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_DOCTYPE_ID = @IDB_DOCTYPE_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, BESCHR"& _ + "EIBUNG, WINDREAM_DIRECT, FOLDER_FOR_INDEX, DUPLICATE_HANDLING, AKTIV, LANGUAGE, "& _ + "SEQUENCE, NAMENKONVENTION, ERSTELLTWER, 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, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + 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_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDB_DOCTYPE_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 + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + 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_OBJECT_STORE_ID, IDB_DOCTYPE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBDD_DOKUMENTART"&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() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT TBDD_DOKUMENTART.GUID, TBDD_DOKUMENTART.BEZEICHNUNG, TBDD_DOKUMENTA"& _ + "RT.OBJEKTTYP, TBDD_DOKUMENTART.EINGANGSART_ID, TBDD_DOKUMENTART.KURZNAME, TBDD_D"& _ + "OKUMENTART.ZIEL_PFAD, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTART.BESCHREIBUNG, "& _ + "TBDD_DOKUMENTART.WINDREAM_DIRECT, TBDD_DOKUMENTART.FOLDER_FOR_INDEX, TBDD_DOKUME"& _ + "NTART.DUPLICATE_HANDLING, TBDD_DOKUMENTART.AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBD"& _ + "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_OBJECT_STORE_ID, TBDD_DOKUMENTART.IDB_DOCTYPE_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_DOKUMENTART_MODULE.DOKART_ID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_MODULES ON TBDD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODUL"& _ + "ES.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_DOKUME"& _ + "NTART.BEZEICHNUNG" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable, ByVal GUID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal GUID As Integer) As GlobixDataset.TBDD_DOKUMENTARTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + Dim dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable = New GlobixDataset.TBDD_DOKUMENTARTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillAllDoctypes(ByVal dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataDoctypes() As GlobixDataset.TBDD_DOKUMENTARTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Dim dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable = New GlobixDataset.TBDD_DOKUMENTARTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As GlobixDataset.TBDD_DOKUMENTARTDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As GlobixDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_DOKUMENTART") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + 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_DOCTYPE_ID As Integer) 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 (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") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(AKTIV,Boolean) + If (NAMENKONVENTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAMENKONVENTION") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) + End If + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ERSTELLTWER,String) + End If + If (OBJEKTTYP Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJEKTTYP") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(OBJEKTTYP,String) + End If + Me.Adapter.InsertCommand.Parameters(9).Value = CType(WINDREAM_DIRECT,Boolean) + If (FOLDER_FOR_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLDER_FOR_INDEX") + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String) + End If + Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEQUENCE,Integer) + If (DUPLICATE_HANDLING Is Nothing) Then + Throw New Global.System.ArgumentNullException("DUPLICATE_HANDLING") + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String) + End If + Me.Adapter.InsertCommand.Parameters(13).Value = CType(IDB_DOCTYPE_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 + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + 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_DOCTYPE_ID As Integer, _ + 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 (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") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(AKTIV,Boolean) + If (NAMENKONVENTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAMENKONVENTION") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) + End If + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GEANDERTWER,String) + End If + If (OBJEKTTYP Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJEKTTYP") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(OBJEKTTYP,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(WINDREAM_DIRECT,Boolean) + If (FOLDER_FOR_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLDER_FOR_INDEX") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEQUENCE,Integer) + If (DUPLICATE_HANDLING Is Nothing) Then + Throw New Global.System.ArgumentNullException("DUPLICATE_HANDLING") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String) + End If + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(IDB_DOCTYPE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_INDEX_MANTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_INDEX_MAN" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("DOK_ID", "DOK_ID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("WD_INDEX", "WD_INDEX") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("DATATYPE", "DATATYPE") + tableMapping.ColumnMappings.Add("SUGGESTION", "SUGGESTION") + tableMapping.ColumnMappings.Add("DEFAULT_VALUE", "DEFAULT_VALUE") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") + tableMapping.ColumnMappings.Add("SQL_CHECK", "SQL_CHECK") + tableMapping.ColumnMappings.Add("OPTIONAL", "OPTIONAL") + tableMapping.ColumnMappings.Add("SAVE_VALUE", "SAVE_VALUE") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("MULTISELECT", "MULTISELECT") + tableMapping.ColumnMappings.Add("VKT_ADD_ITEM", "VKT_ADD_ITEM") + tableMapping.ColumnMappings.Add("VKT_PREVENT_MULTIPLE_VALUES", "VKT_PREVENT_MULTIPLE_VALUES") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOK_ID, NAME, WD_INDEX, COM"& _ + "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, "&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("@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, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_CHECK", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_CHECK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SAVE_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SAVE_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTISELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_ADD_ITEM", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_ADD_ITEM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", 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_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 = 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("@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, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_CHECK", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_CHECK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SAVE_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SAVE_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTISELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_ADD_ITEM", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_ADD_ITEM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", 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 + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAUL"& _ + "T_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, OPTIONAL, SAVE_VALUE, A"& _ + "CTIVE, ADDED_WHO, ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO, CHANGED_WH"& _ + "EN, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD"& _ + "_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = @DOKID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As GlobixDataset.TBDD_INDEX_MANDataTable, ByVal DOKID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal DOKID As Integer) As GlobixDataset.TBDD_INDEX_MANDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKID,Integer) + Dim dataTable As GlobixDataset.TBDD_INDEX_MANDataTable = New GlobixDataset.TBDD_INDEX_MANDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As GlobixDataset.TBDD_INDEX_MANDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As GlobixDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_INDEX_MAN") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal DOK_ID As Integer, _ + ByVal NAME As String, _ + ByVal WD_INDEX As String, _ + ByVal COMMENT As String, _ + ByVal DATATYPE As String, _ + ByVal DEFAULT_VALUE As String, _ + ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_RESULT As String, _ + ByVal SQL_CHECK As String, _ + ByVal _OPTIONAL As Boolean, _ + ByVal SAVE_VALUE As Boolean, _ + ByVal ACTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal MULTISELECT As Boolean, _ + ByVal VKT_ADD_ITEM As Boolean, _ + ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOK_ID,Integer) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) + End If + If (WD_INDEX Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_INDEX,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) + End If + If (DATATYPE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(DATATYPE,String) + End If + If (DEFAULT_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("DEFAULT_VALUE") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(DEFAULT_VALUE,String) + End If + If (CONNECTION_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CONNECTION_ID.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + 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(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(9).Value = CType(SQL_CHECK,String) + End If + 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(13).Value = CType(ADDED_WHO,String) + End If + 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 + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal DOK_ID As Integer, _ + ByVal NAME As String, _ + ByVal WD_INDEX As String, _ + ByVal COMMENT As String, _ + ByVal DATATYPE As String, _ + ByVal DEFAULT_VALUE As String, _ + ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_RESULT As String, _ + ByVal SQL_CHECK As String, _ + ByVal _OPTIONAL As Boolean, _ + ByVal SAVE_VALUE As Boolean, _ + ByVal ACTIVE As Boolean, _ + ByVal CHANGED_WHO As String, _ + ByVal MULTISELECT As Boolean, _ + ByVal VKT_ADD_ITEM As Boolean, _ + ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, _ + ByVal Original_GUID As Integer, _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOK_ID,Integer) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) + End If + If (WD_INDEX Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_INDEX,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) + End If + If (DATATYPE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DATATYPE,String) + End If + If (DEFAULT_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("DEFAULT_VALUE") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(DEFAULT_VALUE,String) + End If + If (CONNECTION_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CONNECTION_ID.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + 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(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(9).Value = CType(SQL_CHECK,String) + End If + 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(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(CHANGED_WHO,String) + End If + 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 + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_INDEX_AUTOMTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_INDEX_AUTOM" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") + tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") + tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") + tableMapping.ColumnMappings.Add("VALUE", "VALUE") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") + tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, ENTITY_ID, IN"& _ + "DEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE"& _ + ", ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE_ID,@ENTITY_ID,@INDEXNAME,@VALUE,@CONNECTIO"& _ + "N_ID,@SQL_RESULT,@SQL_ACTIVE,@COMMENT,@ACTIVE,@SEQUENCE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _ + "ID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTI"& _ + "VE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ + "FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "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("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, 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("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 1, 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("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE_ID = @DOCTYPE_ID, ENTIT"& _ + "Y_ID = @ENTITY_ID, INDEXNAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONN"& _ + "ECTION_ID, SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " COMMENT = @COMMENT, ACTIVE = @ACTIVE, SEQUENCE = @SEQUENCE, CHANGED_WH"& _ + "O = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_I"& _ + "D, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, "& _ + "ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_IND"& _ + "EX_AUTOM 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("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "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("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, 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("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 1, 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("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_R"& _ + "ESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO"& _ + ", CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DO"& _ + "KID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As GlobixDataset.TBDD_INDEX_AUTOMDataTable, ByVal DOKID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal DOKID As Integer) As GlobixDataset.TBDD_INDEX_AUTOMDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKID,Integer) + Dim dataTable As GlobixDataset.TBDD_INDEX_AUTOMDataTable = New GlobixDataset.TBDD_INDEX_AUTOMDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As GlobixDataset.TBDD_INDEX_AUTOMDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As GlobixDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_INDEX_AUTOM") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal ENTITY_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(INDEXNAME,String) + End If + If (VALUE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(VALUE,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(CONNECTION_ID,Short) + If (SQL_RESULT Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RESULT") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_RESULT,String) + End If + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SQL_ACTIVE,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(COMMENT,String) + End If + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ACTIVE,Boolean) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(SEQUENCE,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal DOCTYPE_ID As Integer, ByVal ENTITY_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Integer, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(INDEXNAME,String) + End If + If (VALUE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(VALUE,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CONNECTION_ID,Short) + If (SQL_RESULT Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RESULT") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_RESULT,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SQL_ACTIVE,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ACTIVE,Boolean) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SEQUENCE,Integer) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBGI_REGEX_DOCTYPETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBGI_REGEX_DOCTYPE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("REGEX", "REGEX") + tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBGI_REGEX_DOCTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBGI_REGEX_DOCTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (REGEX, DOCTYPE_ID, ADDE"& _ + "D_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@REGEX,@DOCTYPE_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, REGEX, DOC"& _ + "TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_REGEX_DOCTYP"& _ + "E WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBGI_REGEX_DOCTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET REGEX = @REGEX, DOCTYPE_ID = "& _ + "@DOCTYPE_ID, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE"& _ + "N FROM TBGI_REGEX_DOCTYPE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ + "D_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGI_REGEX_DOCTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @DOCTYPEID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPEID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As GlobixDataset.TBGI_REGEX_DOCTYPEDataTable, ByVal DOCTYPEID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPEID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal DOCTYPEID As Integer) As GlobixDataset.TBGI_REGEX_DOCTYPEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPEID,Integer) + Dim dataTable As GlobixDataset.TBGI_REGEX_DOCTYPEDataTable = New GlobixDataset.TBGI_REGEX_DOCTYPEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As GlobixDataset.TBGI_REGEX_DOCTYPEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As GlobixDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBGI_REGEX_DOCTYPE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal REGEX As String, ByVal DOCTYPE_ID As Global.System.Nullable(Of Integer), ByVal ADDED_WHO As String) As Integer + If (REGEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(REGEX,String) + End If + If (DOCTYPE_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(1).Value = CType(DOCTYPE_ID.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal REGEX As String, ByVal DOCTYPE_ID As Global.System.Nullable(Of Integer), ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (REGEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(REGEX,String) + End If + If (DOCTYPE_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DOCTYPE_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tBDD_DOKUMENTARTTableAdapter As TBDD_DOKUMENTARTTableAdapter + + Private _tBDD_INDEX_MANTableAdapter As TBDD_INDEX_MANTableAdapter + + Private _tBDD_INDEX_AUTOMTableAdapter As TBDD_INDEX_AUTOMTableAdapter + + Private _tBGI_REGEX_DOCTYPETableAdapter As TBGI_REGEX_DOCTYPETableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property TBDD_DOKUMENTARTTableAdapter() As TBDD_DOKUMENTARTTableAdapter + Get + Return Me._tBDD_DOKUMENTARTTableAdapter + End Get + Set + Me._tBDD_DOKUMENTARTTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_INDEX_MANTableAdapter() As TBDD_INDEX_MANTableAdapter + Get + Return Me._tBDD_INDEX_MANTableAdapter + End Get + Set + Me._tBDD_INDEX_MANTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_INDEX_AUTOMTableAdapter() As TBDD_INDEX_AUTOMTableAdapter + Get + Return Me._tBDD_INDEX_AUTOMTableAdapter + End Get + Set + Me._tBDD_INDEX_AUTOMTableAdapter = value + End Set + End Property + + _ + Public Property TBGI_REGEX_DOCTYPETableAdapter() As TBGI_REGEX_DOCTYPETableAdapter + Get + Return Me._tBGI_REGEX_DOCTYPETableAdapter + End Get + Set + Me._tBGI_REGEX_DOCTYPETableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_DOKUMENTARTTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_DOKUMENTARTTableAdapter.Connection + End If + If ((Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_INDEX_MANTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_INDEX_MANTableAdapter.Connection + End If + If ((Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_INDEX_AUTOMTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_INDEX_AUTOMTableAdapter.Connection + End If + If ((Not (Me._tBGI_REGEX_DOCTYPETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBGI_REGEX_DOCTYPETableAdapter.Connection) Is Nothing)) Then + Return Me._tBGI_REGEX_DOCTYPETableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBGI_REGEX_DOCTYPETableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As GlobixDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBGI_REGEX_DOCTYPETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBGI_REGEX_DOCTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBGI_REGEX_DOCTYPETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As GlobixDataset, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBGI_REGEX_DOCTYPETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBGI_REGEX_DOCTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBGI_REGEX_DOCTYPETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As GlobixDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBGI_REGEX_DOCTYPETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBGI_REGEX_DOCTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBGI_REGEX_DOCTYPETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As GlobixDataset) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_DOKUMENTARTTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_INDEX_MANTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_INDEX_AUTOMTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBGI_REGEX_DOCTYPETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBGI_REGEX_DOCTYPETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ + "t.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_DOKUMENTARTTableAdapter, Me._tBDD_DOKUMENTARTTableAdapter.Connection) + Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_DOKUMENTARTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_DOKUMENTARTTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_DOKUMENTARTTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_DOKUMENTARTTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_INDEX_MANTableAdapter, Me._tBDD_INDEX_MANTableAdapter.Connection) + Me._tBDD_INDEX_MANTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_INDEX_MANTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_INDEX_MANTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_INDEX_MANTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_INDEX_MANTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_INDEX_AUTOMTableAdapter, Me._tBDD_INDEX_AUTOMTableAdapter.Connection) + Me._tBDD_INDEX_AUTOMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_INDEX_AUTOMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_INDEX_AUTOMTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_INDEX_AUTOMTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_INDEX_AUTOMTableAdapter.Adapter) + End If + End If + If (Not (Me._tBGI_REGEX_DOCTYPETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBGI_REGEX_DOCTYPETableAdapter, Me._tBGI_REGEX_DOCTYPETableAdapter.Connection) + Me._tBGI_REGEX_DOCTYPETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBGI_REGEX_DOCTYPETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBGI_REGEX_DOCTYPETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBGI_REGEX_DOCTYPETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBGI_REGEX_DOCTYPETableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(revertConnections(Me._tBDD_DOKUMENTARTTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_DOKUMENTARTTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + Me._tBDD_INDEX_MANTableAdapter.Connection = CType(revertConnections(Me._tBDD_INDEX_MANTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_INDEX_MANTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Me._tBDD_INDEX_AUTOMTableAdapter.Connection = CType(revertConnections(Me._tBDD_INDEX_AUTOMTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_INDEX_AUTOMTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBGI_REGEX_DOCTYPETableAdapter) Is Nothing) Then + Me._tBGI_REGEX_DOCTYPETableAdapter.Connection = CType(revertConnections(Me._tBGI_REGEX_DOCTYPETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBGI_REGEX_DOCTYPETableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/GUIs.ZooFlow/Modules/Globix/GlobixDataset.xsc b/GUIs.ZooFlow/Modules/Globix/GlobixDataset.xsc new file mode 100644 index 0000000..b07705c --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/GlobixDataset.xsc @@ -0,0 +1,102 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/Globix/GlobixDataset.xsd b/GUIs.ZooFlow/Modules/Globix/GlobixDataset.xsd new file mode 100644 index 0000000..335665d --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/GlobixDataset.xsd @@ -0,0 +1,699 @@ + + + + + + + + + + + + + + + + DELETE FROM TBDD_DOKUMENTART +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_DOKUMENTART + (BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJEKTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, DUPLICATE_HANDLING, + IDB_DOCTYPE_ID) +VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING,@IDB_DOCTYPE_ID); +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()) + + + + + + + + + + + + + + + + + + + + + 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_OBJECT_STORE_ID, IDB_DOCTYPE_ID +FROM TBDD_DOKUMENTART +WHERE (GUID = @GUID) + + + + + + + + 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_DOCTYPE_ID = @IDB_DOCTYPE_ID +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) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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_OBJECT_STORE_ID, TBDD_DOKUMENTART.IDB_DOCTYPE_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 +WHERE (TBDD_MODULES.SHORT_NAME = 'GLOBIX') +ORDER BY TBDD_DOKUMENTART.BEZEICHNUNG + + + + + + + + + + + + DELETE FROM TBDD_INDEX_MAN +WHERE (GUID = @Original_GUID) + + + + + + + + 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, + 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 + + + + + + + + + + + + + + + + + + + + + + + + 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 (DOK_ID = @DOKID) +ORDER BY SEQUENCE + + + + + + + + UPDATE TBDD_INDEX_MAN +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 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBDD_INDEX_AUTOM +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_INDEX_AUTOM + (DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO) +VALUES (@DOCTYPE_ID,@ENTITY_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@SQL_RESULT,@SQL_ACTIVE,@COMMENT,@ACTIVE,@SEQUENCE,@ADDED_WHO); +SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE + + + + + + + + + + + + + + + + + + SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBDD_INDEX_AUTOM +WHERE (DOCTYPE_ID = @DOKID) +ORDER BY SEQUENCE + + + + + + + + UPDATE TBDD_INDEX_AUTOM +SET DOCTYPE_ID = @DOCTYPE_ID, ENTITY_ID = @ENTITY_ID, INDEXNAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, + COMMENT = @COMMENT, ACTIVE = @ACTIVE, SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, DOCTYPE_ID, ENTITY_ID, INDEXNAME, VALUE, CONNECTION_ID, SQL_RESULT, SQL_ACTIVE, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID) ORDER BY SEQUENCE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBGI_REGEX_DOCTYPE +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBGI_REGEX_DOCTYPE + (REGEX, DOCTYPE_ID, ADDED_WHO) +VALUES (@REGEX,@DOCTYPE_ID,@ADDED_WHO); +SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_REGEX_DOCTYPE WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBGI_REGEX_DOCTYPE +WHERE (GUID = @DOCTYPEID) + + + + + + + + UPDATE TBGI_REGEX_DOCTYPE +SET REGEX = @REGEX, DOCTYPE_ID = @DOCTYPE_ID, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_REGEX_DOCTYPE WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/Globix/GlobixDataset.xss b/GUIs.ZooFlow/Modules/Globix/GlobixDataset.xss new file mode 100644 index 0000000..9eeab3a --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/GlobixDataset.xss @@ -0,0 +1,57 @@ + + + + + + + + + + + + + + + 540 + 303 + + + 618 + 303 + + + + + + + 540 + 247 + + + 1037 + 247 + + + + + + + 279 + 389 + + + 279 + 517 + + + 213 + 517 + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/Globix/Models/DocumentType.vb b/GUIs.ZooFlow/Modules/Globix/Models/DocumentType.vb new file mode 100644 index 0000000..bc8f904 --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/Models/DocumentType.vb @@ -0,0 +1,13 @@ +Namespace Globix.Models + Public Class DocType + Public Property Guid + Public Property Name + Public Property ObjectStore + Public Property IDB_DoctypeID As Integer + Public Property BusinessEntity + + Public Overrides Function ToString() As String + Return Name + End Function + End Class +End Namespace \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/Globix/Models/ManualIndex.vb b/GUIs.ZooFlow/Modules/Globix/Models/ManualIndex.vb new file mode 100644 index 0000000..a856ee2 --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/Models/ManualIndex.vb @@ -0,0 +1,34 @@ +Namespace Globix.Models + Public Class ManualIndex + Public Property Id As Integer + + Public Property DocTypeName As String + Public Property DocTypeId As Integer + ''' + ''' WD_INDEX, Name of the Attribute + ''' + Public Property Name As String + ''' + ''' INDEXNAME, Internal Name for Admin + ''' + Public Property InternalName As String + ''' + ''' COMMENT, Caption in Index Form + ''' + Public Property LabelCaption As String + Public Property DataType As String + Public Property Sequence As Integer + + Public Property SQLSuggestion As String + Public Property SQLCommand As String + Public Property SQLConnection As Integer + + Public Property DefaultValue As String + + Public Property IsOptional As Boolean + Public Property IsMultiselect As Boolean + Public Property AllowAddingItems As Boolean + Public Property PreventMultleValue As Boolean + End Class + +End Namespace \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/Globix/Models/WorkFile.vb b/GUIs.ZooFlow/Modules/Globix/Models/WorkFile.vb new file mode 100644 index 0000000..8baf66a --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/Models/WorkFile.vb @@ -0,0 +1,17 @@ +Namespace Globix.Models + Public Class WorkFile + Public FilePath As String + Public Id As Integer + Public IsAttachment As Boolean = False + Public HotfolderFile As Boolean = False + + Public Sub New(pId As Integer) + Id = pId + End Sub + + Public Overrides Function ToString() As String + Return FilePath + End Function + End Class + +End Namespace \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/Globix/State.vb b/GUIs.ZooFlow/Modules/Globix/State.vb new file mode 100644 index 0000000..b55341c --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/State.vb @@ -0,0 +1,26 @@ +Imports System.IO + +Namespace Globix + + Public Class State + Public Property DTACTUAL_FILES As DataTable + Public Property TEMP_FILES As List(Of String) = New List(Of String) + Public Property CurrMessageID As String + Public Property CurrentFolderWatchPath As String + Public Property CURRENT_SCAN_FOLDERWATCH As String + Public Property CurrentWorkfile As Models.WorkFile + Public Property INDEXING_ACTIVE As Boolean = False + Public Property NEW_FILES As Boolean = False + Public Property ABORT_INDEXING As Boolean = False + Public Property CURRENT_ISATTACHMENT As Boolean = False + Public Property DeleteOriginalFile As Boolean = False + Public Property CURRENT_LASTDOCTYPE As String + Public Property MULTIINDEXING_ACTIVE As Boolean = False + Public Property Folderwatchstarted As Boolean = False + Public Property ScanFolderwatchstarted As Boolean = False + Public Property DTEXCLUDE_FILES As DataTable + Public Property DOCUMENT_ID As Long + + End Class +End Namespace + diff --git a/GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.Designer.vb b/GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.Designer.vb new file mode 100644 index 0000000..804d4cc --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.Designer.vb @@ -0,0 +1,216 @@ + _ +Partial Class frmFileflow_Duplicate + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFileflow_Duplicate)) + Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.LabelControlMessage = New DevExpress.XtraEditors.LabelControl() + Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit() + Me.SimpleButton5 = New DevExpress.XtraEditors.SimpleButton() + Me.SimpleButton4 = New DevExpress.XtraEditors.SimpleButton() + Me.SimpleButton3 = New DevExpress.XtraEditors.SimpleButton() + Me.GroupControl1 = New DevExpress.XtraEditors.GroupControl() + Me.PanelControl1 = New DevExpress.XtraEditors.PanelControl() + Me.pnlHeader = New DevExpress.XtraEditors.PanelControl() + CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupControl1.SuspendLayout() + CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.PanelControl1.SuspendLayout() + CType(Me.pnlHeader, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'SimpleButton2 + ' + Me.SimpleButton2.Appearance.BackColor = System.Drawing.SystemColors.Control + Me.SimpleButton2.Appearance.BorderColor = System.Drawing.Color.Black + Me.SimpleButton2.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SimpleButton2.Appearance.Options.UseBackColor = True + Me.SimpleButton2.Appearance.Options.UseBorderColor = True + Me.SimpleButton2.Appearance.Options.UseFont = True + Me.SimpleButton2.DialogResult = System.Windows.Forms.DialogResult.No + Me.SimpleButton2.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton2.Location = New System.Drawing.Point(562, 2) + Me.SimpleButton2.Name = "SimpleButton2" + Me.SimpleButton2.Size = New System.Drawing.Size(100, 41) + Me.SimpleButton2.TabIndex = 3 + Me.SimpleButton2.Text = "Nein" + ' + 'SimpleButton1 + ' + Me.SimpleButton1.Appearance.BackColor = System.Drawing.SystemColors.Control + Me.SimpleButton1.Appearance.BorderColor = System.Drawing.Color.Black + Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SimpleButton1.Appearance.Options.UseBackColor = True + Me.SimpleButton1.Appearance.Options.UseBorderColor = True + Me.SimpleButton1.Appearance.Options.UseFont = True + Me.SimpleButton1.DialogResult = System.Windows.Forms.DialogResult.Yes + Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton1.Location = New System.Drawing.Point(455, 2) + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.Size = New System.Drawing.Size(101, 40) + Me.SimpleButton1.TabIndex = 2 + Me.SimpleButton1.Text = "Ja" + ' + 'LabelControlMessage + ' + Me.LabelControlMessage.Appearance.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LabelControlMessage.Appearance.ForeColor = System.Drawing.Color.Black + Me.LabelControlMessage.Appearance.Options.UseFont = True + Me.LabelControlMessage.Appearance.Options.UseForeColor = True + Me.LabelControlMessage.LineVisible = True + Me.LabelControlMessage.Location = New System.Drawing.Point(118, 46) + Me.LabelControlMessage.Name = "LabelControlMessage" + Me.LabelControlMessage.Size = New System.Drawing.Size(121, 17) + Me.LabelControlMessage.TabIndex = 1 + Me.LabelControlMessage.Text = "msgfrom_LoadForm" + ' + 'PictureEdit1 + ' + Me.PictureEdit1.EditValue = CType(resources.GetObject("PictureEdit1.EditValue"), Object) + Me.PictureEdit1.Location = New System.Drawing.Point(12, 46) + Me.PictureEdit1.Name = "PictureEdit1" + Me.PictureEdit1.Properties.Appearance.BackColor = System.Drawing.Color.Transparent + Me.PictureEdit1.Properties.Appearance.Options.UseBackColor = True + Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto] + Me.PictureEdit1.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom + Me.PictureEdit1.Size = New System.Drawing.Size(100, 96) + Me.PictureEdit1.TabIndex = 0 + ' + 'SimpleButton5 + ' + Me.SimpleButton5.Appearance.BackColor = System.Drawing.Color.WhiteSmoke + Me.SimpleButton5.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SimpleButton5.Appearance.ForeColor = System.Drawing.Color.Black + Me.SimpleButton5.Appearance.Options.UseBackColor = True + Me.SimpleButton5.Appearance.Options.UseFont = True + Me.SimpleButton5.Appearance.Options.UseForeColor = True + Me.SimpleButton5.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton5.Location = New System.Drawing.Point(249, 85) + Me.SimpleButton5.Name = "SimpleButton5" + Me.SimpleButton5.Size = New System.Drawing.Size(143, 42) + Me.SimpleButton5.TabIndex = 6 + Me.SimpleButton5.Text = "... nur von mir" + ' + 'SimpleButton4 + ' + Me.SimpleButton4.Appearance.BackColor = System.Drawing.Color.Wheat + Me.SimpleButton4.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SimpleButton4.Appearance.ForeColor = System.Drawing.Color.Black + Me.SimpleButton4.Appearance.Options.UseBackColor = True + Me.SimpleButton4.Appearance.Options.UseFont = True + Me.SimpleButton4.Appearance.Options.UseForeColor = True + Me.SimpleButton4.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.bo_appointment1 + Me.SimpleButton4.Location = New System.Drawing.Point(20, 85) + Me.SimpleButton4.Name = "SimpleButton4" + Me.SimpleButton4.Size = New System.Drawing.Size(223, 42) + Me.SimpleButton4.TabIndex = 5 + Me.SimpleButton4.Text = "Alle Dateien von heute" + ' + 'SimpleButton3 + ' + Me.SimpleButton3.Appearance.BackColor = System.Drawing.Color.WhiteSmoke + Me.SimpleButton3.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SimpleButton3.Appearance.ForeColor = System.Drawing.Color.Black + Me.SimpleButton3.Appearance.Options.UseBackColor = True + Me.SimpleButton3.Appearance.Options.UseFont = True + Me.SimpleButton3.Appearance.Options.UseForeColor = True + Me.SimpleButton3.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton3.Location = New System.Drawing.Point(20, 37) + Me.SimpleButton3.Name = "SimpleButton3" + Me.SimpleButton3.Size = New System.Drawing.Size(372, 42) + Me.SimpleButton3.TabIndex = 4 + Me.SimpleButton3.Text = "Vorhandene Datei anzeigen" + ' + 'GroupControl1 + ' + Me.GroupControl1.Controls.Add(Me.SimpleButton3) + Me.GroupControl1.Controls.Add(Me.SimpleButton5) + Me.GroupControl1.Controls.Add(Me.SimpleButton4) + Me.GroupControl1.Location = New System.Drawing.Point(12, 185) + Me.GroupControl1.Name = "GroupControl1" + Me.GroupControl1.Size = New System.Drawing.Size(669, 138) + Me.GroupControl1.TabIndex = 7 + Me.GroupControl1.Text = "Dateisuchen" + ' + 'PanelControl1 + ' + Me.PanelControl1.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(230, Byte), Integer), CType(CType(230, Byte), Integer), CType(CType(230, Byte), Integer)) + Me.PanelControl1.Appearance.Options.UseBackColor = True + Me.PanelControl1.Controls.Add(Me.SimpleButton2) + Me.PanelControl1.Controls.Add(Me.SimpleButton1) + Me.PanelControl1.Location = New System.Drawing.Point(12, 133) + Me.PanelControl1.Name = "PanelControl1" + Me.PanelControl1.Size = New System.Drawing.Size(669, 46) + Me.PanelControl1.TabIndex = 8 + ' + 'pnlHeader + ' + Me.pnlHeader.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(19, Byte), Integer)) + Me.pnlHeader.Appearance.Options.UseBackColor = True + Me.pnlHeader.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnlHeader.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlHeader.Location = New System.Drawing.Point(0, 0) + Me.pnlHeader.Name = "pnlHeader" + Me.pnlHeader.Size = New System.Drawing.Size(686, 40) + Me.pnlHeader.TabIndex = 9 + ' + 'frmFileflow_Duplicate + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 21.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) + Me.ClientSize = New System.Drawing.Size(686, 335) + Me.Controls.Add(Me.pnlHeader) + Me.Controls.Add(Me.PanelControl1) + Me.Controls.Add(Me.GroupControl1) + Me.Controls.Add(Me.PictureEdit1) + Me.Controls.Add(Me.LabelControlMessage) + Me.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Name = "frmFileflow_Duplicate" + Me.Text = "frmGlobix_Duplicate" + Me.TopMost = True + CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupControl1.ResumeLayout(False) + CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.PanelControl1.ResumeLayout(False) + CType(Me.pnlHeader, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents LabelControlMessage As DevExpress.XtraEditors.LabelControl + Friend WithEvents PictureEdit1 As DevExpress.XtraEditors.PictureEdit + Friend WithEvents SimpleButton5 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents SimpleButton4 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents SimpleButton3 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents GroupControl1 As DevExpress.XtraEditors.GroupControl + Friend WithEvents PanelControl1 As DevExpress.XtraEditors.PanelControl + Friend WithEvents pnlHeader As DevExpress.XtraEditors.PanelControl +End Class diff --git a/GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.resx b/GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.resx new file mode 100644 index 0000000..27721dc --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.resx @@ -0,0 +1,231 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANcBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQo8L3N0 + eWxlPg0KICA8cGF0aCBkPSJNMTYsMkM4LjMsMiwyLDguMywyLDE2czYuMywxNCwxNCwxNHMxNC02LjMs + MTQtMTRTMjMuNywyLDE2LDJ6IE0yMywyMGwtMywzbC00LTRsLTQsNGwtMy0zbDQtNGwtNC00bDMtM2w0 + LDQgIGw0LTRsMywzbC00LDRMMjMsMjB6IiBjbGFzcz0iUmVkIiAvPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrQ2lyY2xlZCI+DQogICAgPHBhdGggZD0iTTE2 + LDRDOS40LDQsNCw5LjQsNCwxNmMwLDYuNiw1LjQsMTIsMTIsMTJzMTItNS40LDEyLTEyQzI4LDkuNCwy + Mi42LDQsMTYsNHogTTE0LDIybC02LTZsMi0ybDQsNGw4LThsMiwyICAgTDE0LDIyeiIgY2xhc3M9Ikdy + ZWVuIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABkEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk + aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp + c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41 + O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7 + ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp + c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJBdHRlbnRpb24iPg0K + ICAgIDxwYXRoIGQ9Ik0xNS4xLDIuNUwyLjEsMjYuNUMxLjgsMjcuMiwyLjMsMjgsMy4xLDI4aDI1Ljlj + MC44LDAsMS4zLTAuOCwwLjktMS41TDE2LjksMi41ICAgQzE2LjUsMS44LDE1LjUsMS44LDE1LjEsMi41 + eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgICA8cGF0aCBkPSJNMTYsMjBjMS4xLDAsMiwwLjksMiwycy0w + LjksMi0yLDJzLTItMC45LTItMlMxNC45LDIwLDE2LDIweiBNMTQsMTBoNHY4aC00VjEweiIgY2xhc3M9 + IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAL8FAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iTWVldGluZyI+DQogICAgPHJlY3Qg + eD0iMTAiIHk9IjE0IiB3aWR0aD0iNCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJSZWQi + IC8+DQogICAgPGcgY2xhc3M9InN0MCI+DQogICAgICA8cGF0aCBkPSJNMTQsMjRoLTR2LTRoNFYyNHog + TTIwLDIwaC00djRoNFYyMHogTTI2LDhoLTR2NGg0Vjh6IE0yMCwxNGgtNHY0aDRWMTR6IE0yMCw4aC00 + djRoNFY4eiBNMTQsOGgtNHY0aDRWOHogICAgIE04LDhINHY0aDRWOHogTTgsMTRINHY0aDRWMTR6IE04 + LDIwSDR2NGg0VjIweiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDwvZz4NCiAgICA8cGF0aCBkPSJNMTgu + NiwyNkgyVjZoMjZ2Ni40YzAuOSwwLjMsMS41LDAuOCwyLDEuM1YzYzAtMC42LTAuNC0xLTEtMUgxQzAu + NCwyLDAsMi40LDAsM3YyNGMwLDAuNiwwLjQsMSwxLDFoMTcuMSAgIEMxOC4xLDI3LjIsMTguMywyNi41 + LDE4LjYsMjZ6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBhdGggZD0iTTMyLDI5LjFWMzBIMjB2LTAu + OWMwLTQsMi4zLTMuMywzLjYtNC42YzAuNSwwLjgsMS4zLDEuNSwyLjQsMS41YzEuMSwwLDEuOS0wLjYs + Mi41LTEuNCAgIEMyOS44LDI1LjgsMzIsMjUuMSwzMiwyOS4xeiBNMjIuOSwyMC44djAuMWMwLjQsMS41 + LDEuMywzLjEsMy4xLDMuMXMyLjgtMS42LDMuMi0zLjF2LTAuMWMwLjcsMCwwLjQtMC43LDAuNi0xczAu + My0wLjUsMC4yLTAuOSAgIGMtMC4xLTAuMy0wLjMtMC4yLTAuNC0wLjJjMS4yLTMuMS0wLjctMi45LTAu + Ny0yLjlTMjguNywxNCwyNS4yLDE0Yy0zLjIsMC0zLjYsMi41LTIuOSw0LjdjMCwwLjEtMC4yLDAuMS0w + LjMsMC4yICAgYy0wLjEsMC40LDAuMSwwLjYsMC4zLDAuOVMyMi4yLDIwLjgsMjIuOSwyMC44eiIgY2xh + c3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOMCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlNpbmdsZVBhZ2VWaWV3Ij4NCiAgICA8cGF0aCBk + PSJNMjcsMEgzQzIuNCwwLDIsMC40LDIsMXYyOGMwLDAuNiwwLjQsMSwxLDFoMjRjMC42LDAsMS0wLjQs + MS0xVjFDMjgsMC40LDI3LjYsMCwyNywweiBNMjYsMjhINFYyaDIyVjI4eiIgY2xhc3M9IkJsYWNrIiAv + Pg0KICAgIDxwYXRoIGQ9Ik0yMiw4SDhWNmgxNFY4eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYy + aDE0VjE0eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsdWUiIC8+ + DQogIDwvZz4NCjwvc3ZnPgs= + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.vb b/GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.vb new file mode 100644 index 0000000..650f83b --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.vb @@ -0,0 +1,64 @@ +Imports System.Threading.Tasks +Imports DigitalData.Modules.ZooFlow +Public Class frmFileflow_Duplicate + Dim omessagetext As String + Private Search As Search.SearchRunner + Private Property Environment As Environment + Public Sub New(pFilename As String, pDate As String) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + If My.Application.User.Language = "de-DE" Then + omessagetext = $"Die Datei [{pFilename}] wurde bereits" & vbNewLine & "am [{pDate}] verarbeitet." & vbNewLine & "Wollen Sie die gleiche Datei noch einmal verarbeiten?" + Else + omessagetext = $"The file [{pFilename}] has already been processed at [{pDate}]. Do you want to process the same file again?" + End If + Environment = My.Application.GetEnvironment() + + Search = New Search.SearchRunner(My.LogConfig, Environment, "FlowSearch") With { + .BaseSearchSQL = SQL_FLOW_SEARCH_BASE + } + End Sub + + Private Async Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click + Await GetResult("DOCID") + + End Sub + Private Async Function GetResult(oVariant As String) As Task + Dim oSql As String + Try + If oVariant = "DOCID" Then + oSql = My.Queries.Common.DOCRESULT_DocID(My.Application.Globix.DOCUMENT_ID) + ElseIf oVariant = "TODAY" Then + oSql = My.Queries.Common.DOCRESULT_TODAY + ElseIf oVariant = "TODAY_ME" Then + oSql = My.Queries.Common.DOCRESULT_TODAY_ME + End If + If oSql IsNot Nothing Then + Dim oResultDT = Await My.Database.GetDatatableIDBAsync(oSql) + If Not IsNothing(oResultDT) Then + Search.RunWithDataTable(oResultDT, "FileFlow Duplicate File") + End If + + End If + + Catch ex As Exception + MsgBox("Unexpected error in getResult: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Function + + Private Async Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles SimpleButton4.Click + Await GetResult("TODAY") + End Sub + + Private Async Sub SimpleButton5_Click(sender As Object, e As EventArgs) Handles SimpleButton5.Click + Await GetResult("TODAY_ME") + End Sub + + Private Sub frmFileflow_Duplicate_Load(sender As Object, e As EventArgs) Handles Me.Load + LabelControlMessage.Text = omessagetext + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobixBasicConfig.Designer.vb b/GUIs.ZooFlow/Modules/Globix/frmGlobixBasicConfig.Designer.vb new file mode 100644 index 0000000..dd71666 --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobixBasicConfig.Designer.vb @@ -0,0 +1,422 @@ + _ +Partial Class frmGlobixBasicConfig + Inherits DevExpress.XtraEditors.XtraForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGlobixBasicConfig)) + Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.DataGridView1 = New System.Windows.Forms.DataGridView() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit() + Me.ToggleSwitchDropArea = New DevExpress.XtraEditors.ToggleSwitch() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.ToggleSwitchHotfolder = New DevExpress.XtraEditors.ToggleSwitch() + Me.ToggleSwitchScanfolder = New DevExpress.XtraEditors.ToggleSwitch() + Me.btnScanfolder = New DevExpress.XtraEditors.SimpleButton() + Me.TextEditScanfolder = New DevExpress.XtraEditors.TextEdit() + Me.btnHotfolder = New DevExpress.XtraEditors.SimpleButton() + Me.TextEditHotfolder = New DevExpress.XtraEditors.TextEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.tsinfo = New System.Windows.Forms.ToolStripStatusLabel() + CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchDropArea.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchHotfolder.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchScanfolder.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditScanfolder.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditHotfolder.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'OpenFileDialog1 + ' + Me.OpenFileDialog1.FileName = "OpenFileDialog1" + ' + 'DataGridView1 + ' + DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua + Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + Me.DataGridView1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView1.Location = New System.Drawing.Point(24, 171) + Me.DataGridView1.Name = "DataGridView1" + Me.DataGridView1.Size = New System.Drawing.Size(312, 453) + Me.DataGridView1.TabIndex = 7 + ' + 'LayoutControl1 + ' + Me.LayoutControl1.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.LayoutControl1.Controls.Add(Me.PictureEdit1) + Me.LayoutControl1.Controls.Add(Me.ToggleSwitchDropArea) + Me.LayoutControl1.Controls.Add(Me.SimpleButton1) + Me.LayoutControl1.Controls.Add(Me.ToggleSwitchHotfolder) + Me.LayoutControl1.Controls.Add(Me.ToggleSwitchScanfolder) + Me.LayoutControl1.Controls.Add(Me.DataGridView1) + Me.LayoutControl1.Controls.Add(Me.btnScanfolder) + Me.LayoutControl1.Controls.Add(Me.TextEditScanfolder) + Me.LayoutControl1.Controls.Add(Me.btnHotfolder) + Me.LayoutControl1.Controls.Add(Me.TextEditHotfolder) + Me.LayoutControl1.Location = New System.Drawing.Point(0, -9) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(1030, 688) + Me.LayoutControl1.TabIndex = 17 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'PictureEdit1 + ' + Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP3 + Me.PictureEdit1.Location = New System.Drawing.Point(364, 194) + Me.PictureEdit1.Name = "PictureEdit1" + Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto] + Me.PictureEdit1.Size = New System.Drawing.Size(642, 430) + Me.PictureEdit1.StyleController = Me.LayoutControl1 + Me.PictureEdit1.TabIndex = 11 + ' + 'ToggleSwitchDropArea + ' + Me.ToggleSwitchDropArea.Location = New System.Drawing.Point(364, 171) + Me.ToggleSwitchDropArea.Name = "ToggleSwitchDropArea" + Me.ToggleSwitchDropArea.Properties.OffText = "Progressiv" + Me.ToggleSwitchDropArea.Properties.OnText = "Gemässigt" + Me.ToggleSwitchDropArea.Size = New System.Drawing.Size(642, 19) + Me.ToggleSwitchDropArea.StyleController = Me.LayoutControl1 + Me.ToggleSwitchDropArea.TabIndex = 10 + ' + 'SimpleButton1 + ' + Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton1.Location = New System.Drawing.Point(12, 640) + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.Size = New System.Drawing.Size(336, 36) + Me.SimpleButton1.StyleController = Me.LayoutControl1 + Me.SimpleButton1.TabIndex = 8 + Me.SimpleButton1.Text = "Speichern" + ' + 'ToggleSwitchHotfolder + ' + Me.ToggleSwitchHotfolder.Location = New System.Drawing.Point(12, 52) + Me.ToggleSwitchHotfolder.Name = "ToggleSwitchHotfolder" + Me.ToggleSwitchHotfolder.Properties.OffText = "Überwachung starten" + Me.ToggleSwitchHotfolder.Properties.OnText = "Überwachung aktiv" + Me.ToggleSwitchHotfolder.Size = New System.Drawing.Size(1006, 19) + Me.ToggleSwitchHotfolder.StyleController = Me.LayoutControl1 + Me.ToggleSwitchHotfolder.TabIndex = 3 + ' + 'ToggleSwitchScanfolder + ' + Me.ToggleSwitchScanfolder.Location = New System.Drawing.Point(12, 115) + Me.ToggleSwitchScanfolder.Name = "ToggleSwitchScanfolder" + Me.ToggleSwitchScanfolder.Properties.OffText = "Scanfolder überwachen" + Me.ToggleSwitchScanfolder.Properties.OnText = "Überwachung aktiv" + Me.ToggleSwitchScanfolder.Size = New System.Drawing.Size(1006, 19) + Me.ToggleSwitchScanfolder.StyleController = Me.LayoutControl1 + Me.ToggleSwitchScanfolder.TabIndex = 6 + ' + 'btnScanfolder + ' + Me.btnScanfolder.Location = New System.Drawing.Point(963, 75) + Me.btnScanfolder.Name = "btnScanfolder" + Me.btnScanfolder.Size = New System.Drawing.Size(55, 22) + Me.btnScanfolder.StyleController = Me.LayoutControl1 + Me.btnScanfolder.TabIndex = 5 + Me.btnScanfolder.Text = "..." + ' + 'TextEditScanfolder + ' + Me.TextEditScanfolder.Location = New System.Drawing.Point(104, 83) + Me.TextEditScanfolder.Name = "TextEditScanfolder" + Me.TextEditScanfolder.Size = New System.Drawing.Size(847, 20) + Me.TextEditScanfolder.StyleController = Me.LayoutControl1 + Me.TextEditScanfolder.TabIndex = 4 + ' + 'btnHotfolder + ' + Me.btnHotfolder.Location = New System.Drawing.Point(963, 12) + Me.btnHotfolder.Name = "btnHotfolder" + Me.btnHotfolder.Size = New System.Drawing.Size(55, 22) + Me.btnHotfolder.StyleController = Me.LayoutControl1 + Me.btnHotfolder.TabIndex = 2 + Me.btnHotfolder.Text = "..." + ' + 'TextEditHotfolder + ' + Me.TextEditHotfolder.Location = New System.Drawing.Point(104, 20) + Me.TextEditHotfolder.Name = "TextEditHotfolder" + Me.TextEditHotfolder.Size = New System.Drawing.Size(847, 20) + Me.TextEditHotfolder.StyleController = Me.LayoutControl1 + Me.TextEditHotfolder.TabIndex = 0 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.EmptySpaceItem1, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.LayoutControlGroup1, Me.LayoutControlGroup2}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(1030, 688) + Me.Root.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.TextEditHotfolder + 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(951, 40) + Me.LayoutControlItem1.Text = "Ihr Hotfolder" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(72, 13) + ' + 'EmptySpaceItem1 + ' + Me.EmptySpaceItem1.AllowHotTrack = False + Me.EmptySpaceItem1.Location = New System.Drawing.Point(340, 628) + Me.EmptySpaceItem1.Name = "EmptySpaceItem1" + Me.EmptySpaceItem1.Size = New System.Drawing.Size(670, 40) + Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.btnHotfolder + Me.LayoutControlItem2.Location = New System.Drawing.Point(951, 0) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Size = New System.Drawing.Size(59, 40) + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem2.TextVisible = False + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.TextEditScanfolder + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 63) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem4.Size = New System.Drawing.Size(951, 40) + Me.LayoutControlItem4.Text = "Ihr Scanfolder" + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(72, 13) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.btnScanfolder + Me.LayoutControlItem5.Location = New System.Drawing.Point(951, 63) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Size = New System.Drawing.Size(59, 40) + Me.LayoutControlItem5.Text = "..." + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem5.TextVisible = False + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.ToggleSwitchScanfolder + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 103) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Size = New System.Drawing.Size(1010, 23) + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem6.TextVisible = False + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.ToggleSwitchHotfolder + Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 40) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Size = New System.Drawing.Size(1010, 23) + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem7.TextVisible = False + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.SimpleButton1 + Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 628) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Size = New System.Drawing.Size(340, 40) + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem8.TextVisible = False + ' + 'LayoutControlGroup1 + ' + Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem3}) + Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 126) + Me.LayoutControlGroup1.Name = "LayoutControlGroup1" + Me.LayoutControlGroup1.Size = New System.Drawing.Size(340, 502) + Me.LayoutControlGroup1.Text = "Blacklist Folderwatch-Files" + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.AppearanceItemCaption.Options.UseTextOptions = True + Me.LayoutControlItem3.AppearanceItemCaption.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Center + Me.LayoutControlItem3.Control = Me.DataGridView1 + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Size = New System.Drawing.Size(316, 457) + Me.LayoutControlItem3.Text = "Blacklist Folderwatchfiles" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem3.TextVisible = False + ' + 'LayoutControlGroup2 + ' + Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem11}) + Me.LayoutControlGroup2.Location = New System.Drawing.Point(340, 126) + Me.LayoutControlGroup2.Name = "LayoutControlGroup2" + Me.LayoutControlGroup2.Size = New System.Drawing.Size(670, 502) + Me.LayoutControlGroup2.Text = "Darstellung Drop-Area" + ' + 'LayoutControlItem10 + ' + Me.LayoutControlItem10.Control = Me.ToggleSwitchDropArea + Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem10.Name = "LayoutControlItem10" + Me.LayoutControlItem10.Size = New System.Drawing.Size(646, 23) + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem10.TextVisible = False + ' + 'LayoutControlItem11 + ' + Me.LayoutControlItem11.AppearanceItemCaption.Options.UseTextOptions = True + Me.LayoutControlItem11.AppearanceItemCaption.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Center + Me.LayoutControlItem11.Control = Me.PictureEdit1 + Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 23) + Me.LayoutControlItem11.Name = "LayoutControlItem11" + Me.LayoutControlItem11.Size = New System.Drawing.Size(646, 434) + Me.LayoutControlItem11.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.AutoSize + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem11.TextToControlDistance = 0 + Me.LayoutControlItem11.TextVisible = False + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsinfo}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 674) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1032, 22) + Me.StatusStrip1.TabIndex = 18 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'tsinfo + ' + Me.tsinfo.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.StatusAnnotations_Information_16xLG_color + Me.tsinfo.Name = "tsinfo" + Me.tsinfo.Size = New System.Drawing.Size(16, 17) + ' + 'frmGlobixBasicConfig + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1032, 696) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.LayoutControl1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D + Me.IconOptions.SvgImage = CType(resources.GetObject("frmGlobixBasicConfig.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmGlobixBasicConfig" + Me.Text = "Basiskonfiguration File Flow" + Me.TopMost = True + CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchDropArea.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchHotfolder.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchScanfolder.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditScanfolder.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditHotfolder.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents OpenFileDialog1 As OpenFileDialog + Friend WithEvents DataGridView1 As DataGridView + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents ToggleSwitchHotfolder As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents ToggleSwitchScanfolder As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents btnScanfolder As DevExpress.XtraEditors.SimpleButton + Friend WithEvents TextEditScanfolder As DevExpress.XtraEditors.TextEdit + Friend WithEvents btnHotfolder As DevExpress.XtraEditors.SimpleButton + Friend WithEvents TextEditHotfolder As DevExpress.XtraEditors.TextEdit + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents StatusStrip1 As StatusStrip + Friend WithEvents tsinfo As ToolStripStatusLabel + Friend WithEvents ToggleSwitchDropArea As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents PictureEdit1 As DevExpress.XtraEditors.PictureEdit + Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup +End Class diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobixBasicConfig.resx b/GUIs.ZooFlow/Modules/Globix/frmGlobixBasicConfig.resx new file mode 100644 index 0000000..7747cb3 --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobixBasicConfig.resx @@ -0,0 +1,179 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzczNzM3NDt9Cgku + WWVsbG93e2ZpbGw6I0ZDQjAxQjt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5CbHVle2ZpbGw6IzM4 + N0NCNzt9CgkuUmVke2ZpbGw6I0QwMjEyNzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tk + aXNwbGF5Om5vbmU7ZmlsbDojNzM3Mzc0O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRoLTN2MTBI + OFY0SDVDNC40LDQsNCw0LjQsNCw1djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTFW + NUMyOCw0LjQsMjcuNiw0LDI3LDR6IE0yNCwyNEg4di02ICBoMTZWMjR6IE0xMCw0djhoMTBWNEgxMHog + TTE0LDEwaC0yVjZoMlYxMHoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs= + + + + 159, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPMFAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iVmlld1NldHRpbmdzXzFfIj4NCiAgICA8cGF0aCBkPSJNMzIsOVY3bC0yLjUtMC42 + QzI5LjQsNiwyOS4yLDUuNiwyOSw1LjJsMS41LTIuMWwtMS42LTEuNkwyNi44LDNjLTAuNC0wLjItMC44 + LTAuNC0xLjItMC41TDI1LDBoLTIgICBsLTAuNiwyLjVDMjIsMi42LDIxLjYsMi44LDIxLjIsM2wtMi0x + LjVsLTEuNywxLjdsMS41LDJjLTAuMiwwLjQtMC40LDAuOC0wLjUsMS4yTDE2LDd2MmwyLjUsMC42YzAu + MSwwLjQsMC4zLDAuOCwwLjUsMS4yICAgbC0xLjUsMi4xbDEuNiwxLjZsMi4xLTEuNWMwLjQsMC4yLDAu + OCwwLjQsMS4yLDAuNUwyMywxNmgybDAuNi0yLjVjMC40LTAuMSwwLjgtMC4zLDEuMi0wLjVsMi4xLDEu + NWwxLjYtMS42TDI5LDEwLjggICBjMC4yLTAuNCwwLjQtMC44LDAuNS0xLjJMMzIsOXogTTI0LDEwYy0x + LjEsMC0yLTAuOS0yLTJjMC0xLjEsMC45LTIsMi0yczIsMC45LDIsMkMyNiw5LjEsMjUuMSwxMCwyNCwx + MHogTTE4LDIxICAgYzAtMC4zLDAtMC42LTAuMS0wLjhsMi4xLTEuOGwtMC44LTEuOWwtMi43LDAuMmMt + MC4zLTAuNC0wLjctMC44LTEuMi0xLjJsMC4yLTIuN0wxMy42LDEybC0xLjgsMi4xQzExLjYsMTQsMTEu + MywxNCwxMSwxNCAgIHMtMC42LDAtMC44LDAuMUw4LjQsMTJsLTEuOSwwLjhsMC4yLDIuN2MtMC40LDAu + My0wLjgsMC43LTEuMiwxLjJsLTIuNy0wLjJMMiwxOC40bDIuMSwxLjhDNCwyMC40LDQsMjAuNyw0LDIx + czAsMC42LDAuMSwwLjggICBMMiwyMy42bDAuOCwxLjlsMi43LTAuMmMwLjMsMC40LDAuNywwLjgsMS4y + LDEuMmwtMC4yLDIuN0w4LjQsMzBsMS44LTIuMWMwLjMsMCwwLjUsMC4xLDAuOCwwLjFzMC42LDAsMC44 + LTAuMWwxLjgsMi4xbDEuOS0wLjggICBsLTAuMi0yLjdjMC40LTAuMywwLjgtMC43LDEuMi0xLjJsMi43 + LDAuMmwwLjgtMS45bC0yLjEtMS44QzE4LDIxLjYsMTgsMjEuMywxOCwyMXogTTExLDI0Yy0xLjcsMC0z + LTEuMy0zLTNzMS4zLTMsMy0zczMsMS4zLDMsMyAgIFMxMi43LDI0LDExLDI0eiIgY2xhc3M9IkJsYWNr + IiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobixBasicConfig.vb b/GUIs.ZooFlow/Modules/Globix/frmGlobixBasicConfig.vb new file mode 100644 index 0000000..13fa237 --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobixBasicConfig.vb @@ -0,0 +1,215 @@ +Imports DevExpress.XtraEditors +Imports DigitalData.GUIs.Common +Imports DigitalData.Modules.Logging + +Public Class frmGlobixBasicConfig + Private Logger As Logger + Private FormLoading As Boolean = False + Private FolderWatcher As ClassFolderwatcher + Private ReadOnly FileExclusions As New ClassExclusions() + + Public Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + + + Sub CheckFolder(pMypath As String, FOLDER_TYPE As String) + Try + If pMypath = "" Then + My.DatabaseECM.ExecuteNonQuery("DELETE FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & My.Application.User.UserId & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'") + If FOLDER_TYPE = "SCAN" Then + My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = "" + My.UIConfig.Globix.FolderWatchScanStarted = False + My.UIConfigManager.Save() + Else + My.Application.Globix.Folderwatchstarted = False + 'SaveConfigValue("FW_started", "False") + My.UIConfig.Globix.FolderWatchStarted = False + My.UIConfigManager.Save() + My.Application.Globix.CurrentFolderWatchPath = "" + End If + + Exit Sub + End If + Try + If (Not System.IO.Directory.Exists(pMypath)) Then + System.IO.Directory.CreateDirectory(pMypath) + End If + Catch ex As Exception + Logger.Info(">> Unexpected error in CheckFolder: " & pMypath) + Logger.Error(ex.Message) + Logger.Info(" >> " & ex.Message) + Dim otext As String + + If My.Application.User.Language = "de-DE" Then + otext = "Unexpected error in ECheckFolder: " & pMypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message + Else + otext = "Error in creating Hotfolder: " & pMypath & vbNewLine & "Please check the rights!" & vbNewLine & ex.Message + End If + MsgBox("No Match- There might be an error in the RegEx!", MsgBoxStyle.Exclamation) + Exit Sub + End Try + + Dim folderwatch = My.DatabaseECM.GetScalarValue("SELECT COALESCE(MAX(GUID),999999) FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & My.Application.User.UserId & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'") + Dim oSql As String + If folderwatch = 999999 Then + oSql = "INSERT INTO TBGI_FOLDERWATCH_USER (USER_ID, FOLDER_PATH, FOLDER_TYPE, ADDED_WHO) VALUES (" & My.Application.User.UserId & ",'" & pMypath & "','" & FOLDER_TYPE & "','" & My.Application.User.UserName & "')" + Else + oSql = "UPDATE TBGI_FOLDERWATCH_USER SET FOLDER_PATH = '" & pMypath & "', CHANGED_WHO = '" & My.Application.User.UserName & "' where GUID = " & folderwatch + End If + If My.DatabaseECM.ExecuteNonQuery(oSql) Then + folderwatch = My.DatabaseECM.GetScalarValue("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & My.Application.User.UserId & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'") + + If FOLDER_TYPE = "SCAN" Then + My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = pMypath + Me.TextEditScanfolder.Text = My.Application.Globix.CURRENT_SCAN_FOLDERWATCH + Else + My.Application.Globix.CurrentFolderWatchPath = pMypath + Me.TextEditHotfolder.Text = My.Application.Globix.CurrentFolderWatchPath + End If + Else + Logger.Error($"Unexpected error in Adding Folder to TBGI_FOLDERWATCH_USER [{oSql}]") + End If + If My.Application.Globix.Folderwatchstarted = True And FOLDER_TYPE = "DEFAULT" Then + FolderWatcher.Restart_FolderWatch() + End If + If My.UIConfig.Globix.FolderWatchScanStarted = True And FOLDER_TYPE = "SCAN" Then + FolderWatcher.Restart_FolderWatchSCAN() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CheckFolder:") + End Try + + End Sub + + Private Sub frmGlobixBasicConfig_Load(sender As Object, e As EventArgs) Handles Me.Load + Logger = My.LogConfig.GetLogger() + FolderWatcher = New ClassFolderwatcher(My.LogConfig) + Try + FormLoading = True + If My.Application.Globix.Folderwatchstarted = True Then + ToggleSwitchHotfolder.IsOn = True + Else + ToggleSwitchHotfolder.IsOn = False + End If + + If My.Application.Globix.ScanFolderwatchstarted = True Then + ToggleSwitchScanfolder.IsOn = True + Else + ToggleSwitchScanfolder.IsOn = False + End If + + Me.TextEditHotfolder.Text = My.Application.Globix.CurrentFolderWatchPath + Me.TextEditScanfolder.Text = My.Application.Globix.CURRENT_SCAN_FOLDERWATCH + + + FormLoading = False + Me.DataGridView1.DataSource = My.Application.Globix.DTEXCLUDE_FILES + If My.Application.GlobixDropAreaStyle = "PROGRESSIVE" Then + Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP3 + ToggleSwitchDropArea.IsOn = False + Else + Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP2 + ToggleSwitchDropArea.IsOn = True + End If + Catch ex As Exception + + End Try + End Sub + + + Sub CheckFWHF_State() + FolderWatcher.StartStop_FolderWatch() + End Sub + + + + Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click + + My.Application.Globix.DTEXCLUDE_FILES.AcceptChanges() + My.Application.Globix.DTEXCLUDE_FILES.WriteXml(FileExclusions.FileExclusionPath) + MsgBox("Changes saved.", MsgBoxStyle.Information) + End Sub + + + Private Sub btnScanfolder_Click(sender As Object, e As EventArgs) Handles btnScanfolder.Click + Dim fbdialog As New FolderBrowserDialog + If TextEditScanfolder.Text <> "" Then + fbdialog.SelectedPath = TextEditScanfolder.Text + End If + If fbdialog.ShowDialog() = DialogResult.OK Then + CheckFolder(fbdialog.SelectedPath, "SCAN") + End If + End Sub + Private Sub ToggleSwitchHotfolder_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchHotfolder.Toggled + Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch) + If FormLoading = True Then + Exit Sub + End If + If oToggle.IsOn Then + If My.Application.Globix.CurrentFolderWatchPath <> "" Then + CheckFWHF_State() + Else + ToggleSwitchHotfolder.IsOn = False + End If + Else + CheckFWHF_State() + End If + End Sub + + Private Sub ToggleSwitch1_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchScanfolder.Toggled + Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch) + If FormLoading = True Then + Exit Sub + End If + If oToggle.IsOn Then + If My.Application.Globix.CURRENT_SCAN_FOLDERWATCH <> "" Then + FolderWatcher.StartStop_FolderWatchSCAN() + Else + ToggleSwitchScanfolder.IsOn = False + End If + Else + FolderWatcher.StartStop_FolderWatchSCAN() + End If + + End Sub + + Private Sub btnHotfolder_Click(sender As Object, e As EventArgs) Handles btnHotfolder.Click + Dim fbdialog As New FolderBrowserDialog + If TextEditHotfolder.Text <> "" Then + fbdialog.SelectedPath = TextEditHotfolder.Text + End If + If fbdialog.ShowDialog() = DialogResult.OK Then + CheckFolder(fbdialog.SelectedPath, "DEFAULT") + End If + End Sub + + Private Sub ToggleSwitch1_Toggled_1(sender As Object, e As EventArgs) Handles ToggleSwitchDropArea.Toggled + Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch) + If oToggle.IsOn Then + Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP2 + Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = 'ALTERNATIVE' + WHERE USR_ID = {My.Application.User.UserId} AND CAT_TITLE = '{ClassConstants.USER_CATALOG_GLOBIX_DROPAREA}'" + If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then + My.Application.GlobixDropAreaStyle = "ALTERNATIVE" + tsinfo.Text = "DropArea-Theme saved!" + End If + Else + Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW_DROP3 + Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = 'PROGRESSIVE' + WHERE USR_ID = {My.Application.User.UserId} AND CAT_TITLE = '{ClassConstants.USER_CATALOG_GLOBIX_DROPAREA}'" + If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then + My.Application.GlobixDropAreaStyle = "PROGRESSIVE" + tsinfo.Text = "DropArea-Theme saved to progressive!" + End If + End If + End Sub + + +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobixMissingInput.Designer.vb b/GUIs.ZooFlow/Modules/Globix/frmGlobixMissingInput.Designer.vb new file mode 100644 index 0000000..da14dde --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobixMissingInput.Designer.vb @@ -0,0 +1,205 @@ + _ +Partial Class frmGlobixMissingInput + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + 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.btnAccept = New System.Windows.Forms.Button() + Me.txtSearchtext = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.txtInput = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.lblMissingElementName = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + 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.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.Size = New System.Drawing.Size(607, 66) + 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 = "RibbonPage1" + ' + '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, 389) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(607, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'btnAccept + ' + Me.btnAccept.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnAccept.Font = New System.Drawing.Font("Tahoma", 9.75!) + Me.btnAccept.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.action_add_16xLG + Me.btnAccept.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAccept.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.btnAccept.Location = New System.Drawing.Point(12, 348) + Me.btnAccept.Name = "btnAccept" + Me.btnAccept.Size = New System.Drawing.Size(583, 35) + Me.btnAccept.TabIndex = 9 + Me.btnAccept.Text = "OK - Apply manual Input" + Me.btnAccept.UseVisualStyleBackColor = True + ' + 'txtSearchtext + ' + Me.txtSearchtext.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtSearchtext.Location = New System.Drawing.Point(12, 204) + Me.txtSearchtext.Multiline = True + Me.txtSearchtext.Name = "txtSearchtext" + Me.txtSearchtext.ReadOnly = True + Me.txtSearchtext.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.txtSearchtext.Size = New System.Drawing.Size(580, 138) + Me.txtSearchtext.TabIndex = 13 + Me.txtSearchtext.TabStop = False + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.Label3.Location = New System.Drawing.Point(9, 188) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(88, 13) + Me.Label3.TabIndex = 12 + Me.Label3.Text = "Evaluation-Text:" + ' + 'txtInput + ' + Me.txtInput.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtInput.Font = New System.Drawing.Font("Tahoma", 12.0!) + Me.txtInput.Location = New System.Drawing.Point(12, 145) + Me.txtInput.Name = "txtInput" + Me.txtInput.Size = New System.Drawing.Size(580, 27) + Me.txtInput.TabIndex = 7 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Tahoma", 9.75!) + Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.Label2.Location = New System.Drawing.Point(9, 126) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(193, 16) + Me.Label2.TabIndex = 11 + Me.Label2.Text = "Please input the value manually:" + ' + 'lblMissingElementName + ' + Me.lblMissingElementName.AutoSize = True + Me.lblMissingElementName.Font = New System.Drawing.Font("Tahoma", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle)) + Me.lblMissingElementName.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.lblMissingElementName.Location = New System.Drawing.Point(274, 102) + Me.lblMissingElementName.Name = "lblMissingElementName" + Me.lblMissingElementName.Size = New System.Drawing.Size(50, 16) + Me.lblMissingElementName.TabIndex = 10 + Me.lblMissingElementName.Text = "Label2" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.75!) + Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.Label1.Location = New System.Drawing.Point(9, 102) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(259, 16) + Me.Label1.TabIndex = 8 + Me.Label1.Text = "No Content found for the following element:" + ' + 'frmGlobixMissingInput + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(607, 411) + Me.Controls.Add(Me.btnAccept) + Me.Controls.Add(Me.txtSearchtext) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.txtInput) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.lblMissingElementName) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmGlobixMissingInput" + Me.Ribbon = Me.RibbonControl1 + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Fehlende Eingabe" + Me.TopMost = True + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents btnAccept As Button + Friend WithEvents txtSearchtext As TextBox + Friend WithEvents Label3 As Label + Friend WithEvents txtInput As TextBox + Friend WithEvents Label2 As Label + Friend WithEvents lblMissingElementName As Label + Friend WithEvents Label1 As Label +End Class diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobixMissingInput.resx b/GUIs.ZooFlow/Modules/Globix/frmGlobixMissingInput.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobixMissingInput.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobixMissingInput.vb b/GUIs.ZooFlow/Modules/Globix/frmGlobixMissingInput.vb new file mode 100644 index 0000000..3658495 --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobixMissingInput.vb @@ -0,0 +1,18 @@ +Public Class frmGlobixMissingInput + Private Sub frmGlobixMissingInput_Load(sender As Object, e As EventArgs) Handles Me.Load + Me.lblMissingElementName.Text = CURR_MISSING_PATTERN_NAME + Me.txtSearchtext.Text = CURR_MISSING_SEARCH_STRING + Me.txtInput.Text = "" + End Sub + + Private Sub frmGlobixMissingInput_Shown(sender As Object, e As EventArgs) Handles Me.Shown + Me.txtInput.Focus() + End Sub + + Private Sub btnAccept_Click(sender As Object, e As EventArgs) Handles btnAccept.Click + If txtInput.Text <> String.Empty Then + CURR_MISSING_MANUAL_VALUE = txtInput.Text + Me.Close() + End If + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobixNameconvention.Designer.vb b/GUIs.ZooFlow/Modules/Globix/frmGlobixNameconvention.Designer.vb new file mode 100644 index 0000000..0f744bd --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobixNameconvention.Designer.vb @@ -0,0 +1,276 @@ + _ +Partial Class frmGlobixNameconvention + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + 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 diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobixNameconvention.resx b/GUIs.ZooFlow/Modules/Globix/frmGlobixNameconvention.resx new file mode 100644 index 0000000..3415bf5 --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobixNameconvention.resx @@ -0,0 +1,219 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAD0DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRGVsZXRlIj4N + CiAgICA8Zz4NCiAgICAgIDxwYXRoIGQ9Ik0xOC44LDE2bDYuOS02LjljMC40LTAuNCwwLjQtMSwwLTEu + NGwtMS40LTEuNGMtMC40LTAuNC0xLTAuNC0xLjQsMEwxNiwxMy4yTDkuMSw2LjNjLTAuNC0wLjQtMS0w + LjQtMS40LDAgICAgTDYuMyw3LjdjLTAuNCwwLjQtMC40LDEsMCwxLjRsNi45LDYuOWwtNi45LDYuOWMt + MC40LDAuNC0wLjQsMSwwLDEuNGwxLjQsMS40YzAuNCwwLjQsMSwwLjQsMS40LDBsNi45LTYuOWw2Ljks + Ni45ICAgIGMwLjQsMC40LDEsMC40LDEuNCwwbDEuNC0xLjRjMC40LTAuNCwwLjQtMSwwLTEuNEwxOC44 + LDE2eiIgY2xhc3M9IlJlZCIgLz4NCiAgICA8L2c+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOsCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iRXhwb3J0Ij4NCiAgICA8cGF0aCBkPSJNMTAsMTJINlY2aDRWMTJ6IE0yMiwxMnY2 + djljMCwwLjYtMC40LDEtMSwxSDFjLTAuNiwwLTEtMC40LTEtMVY3YzAtMC42LDAuNC0xLDEtMWgzdjho + MTR2LTJIMjJ6IE0xOCwxOEg0ICAgdjZoMTRWMTh6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBvbHln + b24gcG9pbnRzPSIxNiwxMCAyNCwxMCAyNCwxNCAzMiw4IDI0LDIgMjQsNiAxNiw2ICAiIGNsYXNzPSJH + cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJIZWFkZXJBbmRGb290ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dy + b3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDoj + RDExQzFDO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRINUM0LjUsNCw0LDQuNSw0LDV2MjJjMCww + LjUsMC41LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVY1QzI4LDQuNSwyNy41LDQsMjcsNHogTTIyLDIw + bC0yLDJsLTQtNGwtNCw0ICBsLTItMmw0LTRsLTQtNGwyLTJsNCw0bDQtNGwyLDJsLTQsNEwyMiwyMHoi + IGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobixNameconvention.vb b/GUIs.ZooFlow/Modules/Globix/frmGlobixNameconvention.vb new file mode 100644 index 0000000..b1c772e --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobixNameconvention.vb @@ -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 \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.Designer.vb b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.Designer.vb new file mode 100644 index 0000000..8bb759b --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.Designer.vb @@ -0,0 +1,416 @@ +Imports DevExpress.XtraEditors + + +Partial Class frmGlobix_Index + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGlobix_Index)) + Dim EditorButtonImageOptions1 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() + Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject2 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject3 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.SkipItem = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() + Me.checkItemTopMost = New DevExpress.XtraBars.BarCheckItem() + Me.SourceDeleteItem = New DevExpress.XtraBars.BarCheckItem() + Me.checkItemPreselection = New DevExpress.XtraBars.BarCheckItem() + Me.PreviewItem = New DevExpress.XtraBars.BarCheckItem() + Me.labelFilePath = New DevExpress.XtraBars.BarStaticItem() + Me.labelError = New DevExpress.XtraBars.BarStaticItem() + Me.labelNotice = New DevExpress.XtraBars.BarStaticItem() + Me.chkMultiindexing = New DevExpress.XtraBars.BarCheckItem() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarHeaderItem1 = New DevExpress.XtraBars.BarHeaderItem() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + 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.BarCheckItem2 = New DevExpress.XtraBars.BarCheckItem() + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.pnlIndex = New System.Windows.Forms.Panel() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.cmbDocType = New DevExpress.XtraEditors.ComboBoxEdit() + Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer() + Me.GlobixDataset = New DigitalData.GUIs.ZooFlow.GlobixDataset() + Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components) + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.Panel1.SuspendLayout() + CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.Panel2.SuspendLayout() + Me.SplitContainerControl1.SuspendLayout() + Me.Panel3.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.cmbDocType.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GlobixDataset, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem2, Me.BarButtonItem3, Me.SkipItem, Me.BarButtonItem5, Me.checkItemTopMost, Me.SourceDeleteItem, Me.checkItemPreselection, Me.PreviewItem, Me.labelFilePath, Me.labelError, Me.labelNotice, Me.chkMultiindexing, Me.BarButtonItem1, Me.BarHeaderItem1, Me.BarButtonItem4}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 17 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.Size = New System.Drawing.Size(1033, 67) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Profilauswahl merken" + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Dateivorschau aktiv" + Me.BarButtonItem3.Id = 3 + Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'SkipItem + ' + Me.SkipItem.Caption = "Datei überspringen" + Me.SkipItem.Id = 4 + Me.SkipItem.ImageOptions.SvgImage = CType(resources.GetObject("SkipItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SkipItem.Name = "SkipItem" + ' + 'BarButtonItem5 + ' + Me.BarButtonItem5.Caption = "Andere Fenster überdecken" + Me.BarButtonItem5.Id = 5 + Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem5.Name = "BarButtonItem5" + ' + 'checkItemTopMost + ' + Me.checkItemTopMost.Caption = "Andere Fenster überdecken" + Me.checkItemTopMost.Id = 6 + Me.checkItemTopMost.ImageOptions.SvgImage = CType(resources.GetObject("checkItemTopMost.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.checkItemTopMost.Name = "checkItemTopMost" + ' + 'SourceDeleteItem + ' + Me.SourceDeleteItem.Caption = "Ursprungsdatei löschen" + Me.SourceDeleteItem.Id = 7 + Me.SourceDeleteItem.ImageOptions.SvgImage = CType(resources.GetObject("SourceDeleteItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SourceDeleteItem.Name = "SourceDeleteItem" + ' + 'checkItemPreselection + ' + Me.checkItemPreselection.Caption = "Profilauswahl merken" + Me.checkItemPreselection.Id = 8 + Me.checkItemPreselection.ImageOptions.SvgImage = CType(resources.GetObject("checkItemPreselection.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.checkItemPreselection.Name = "checkItemPreselection" + ' + 'PreviewItem + ' + Me.PreviewItem.Caption = "Dateivorschau aktiv" + Me.PreviewItem.Id = 9 + Me.PreviewItem.ImageOptions.SvgImage = CType(resources.GetObject("PreviewItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.PreviewItem.Name = "PreviewItem" + ' + 'labelFilePath + ' + Me.labelFilePath.Caption = "labelFilePath" + Me.labelFilePath.Id = 10 + Me.labelFilePath.ImageOptions.SvgImage = CType(resources.GetObject("labelFilePath.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.labelFilePath.Name = "labelFilePath" + Me.labelFilePath.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'labelError + ' + Me.labelError.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right + Me.labelError.Caption = "labelError" + Me.labelError.Id = 11 + Me.labelError.ImageOptions.SvgImage = CType(resources.GetObject("labelError.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.labelError.Name = "labelError" + Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + Me.labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'labelNotice + ' + Me.labelNotice.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right + Me.labelNotice.Caption = "labelNotice" + Me.labelNotice.Id = 12 + Me.labelNotice.ImageOptions.SvgImage = CType(resources.GetObject("labelNotice.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.labelNotice.Name = "labelNotice" + Me.labelNotice.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + Me.labelNotice.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'chkMultiindexing + ' + Me.chkMultiindexing.Caption = "Multi Indexing" + Me.chkMultiindexing.Id = 13 + Me.chkMultiindexing.ImageOptions.SvgImage = CType(resources.GetObject("chkMultiindexing.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.chkMultiindexing.ItemInMenuAppearance.Pressed.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.chkMultiindexing.ItemInMenuAppearance.Pressed.Options.UseBackColor = True + Me.chkMultiindexing.Name = "chkMultiindexing" + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "fester text" + Me.BarButtonItem1.Id = 14 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + Me.BarButtonItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'BarHeaderItem1 + ' + Me.BarHeaderItem1.Caption = "BarHeaderItem1" + Me.BarHeaderItem1.Id = 15 + Me.BarHeaderItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarHeaderItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarHeaderItem1.Name = "BarHeaderItem1" + Me.BarHeaderItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'BarButtonItem4 + ' + Me.BarButtonItem4.Caption = "BarButtonItem4" + Me.BarButtonItem4.Id = 16 + Me.BarButtonItem4.Name = "BarButtonItem4" + ' + '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.ItemLinks.Add(Me.SourceDeleteItem) + Me.RibbonPageGroup1.ItemLinks.Add(Me.checkItemPreselection) + Me.RibbonPageGroup1.ItemLinks.Add(Me.SkipItem) + Me.RibbonPageGroup1.ItemLinks.Add(Me.PreviewItem) + Me.RibbonPageGroup1.ItemLinks.Add(Me.chkMultiindexing) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem4) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Indexierung" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageGroup2.ItemLinks.Add(Me.checkItemTopMost) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "Fenster" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelFilePath) + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError) + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelNotice) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 634) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1033, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'BarCheckItem2 + ' + Me.BarCheckItem2.Caption = "Ursprungsdatei löschen" + Me.BarCheckItem2.Id = 7 + Me.BarCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarCheckItem2.Name = "BarCheckItem2" + ' + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 + Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 67) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + ' + 'SplitContainerControl1.Panel1 + ' + Me.SplitContainerControl1.Panel1.Controls.Add(Me.pnlIndex) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.Panel3) + Me.SplitContainerControl1.Panel1.Controls.Add(Me.Panel1) + Me.SplitContainerControl1.Panel1.Text = "Panel1" + ' + 'SplitContainerControl1.Panel2 + ' + Me.SplitContainerControl1.Panel2.Controls.Add(Me.DocumentViewer1) + Me.SplitContainerControl1.Panel2.Text = "Panel2" + Me.SplitContainerControl1.Size = New System.Drawing.Size(1033, 567) + Me.SplitContainerControl1.SplitterPosition = 522 + Me.SplitContainerControl1.TabIndex = 2 + ' + 'pnlIndex + ' + Me.pnlIndex.BackColor = System.Drawing.Color.FromArgb(CType(CType(74, Byte), Integer), CType(CType(115, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.pnlIndex.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlIndex.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.pnlIndex.ForeColor = System.Drawing.SystemColors.ControlText + Me.pnlIndex.Location = New System.Drawing.Point(0, 33) + Me.pnlIndex.Name = "pnlIndex" + Me.pnlIndex.Size = New System.Drawing.Size(522, 459) + Me.pnlIndex.TabIndex = 3 + ' + 'Panel3 + ' + Me.Panel3.Controls.Add(Me.SimpleButton1) + Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel3.Location = New System.Drawing.Point(0, 492) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(522, 75) + Me.Panel3.TabIndex = 2 + ' + 'SimpleButton1 + ' + Me.SimpleButton1.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer)) + Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SimpleButton1.Appearance.Options.UseBackColor = True + Me.SimpleButton1.Appearance.Options.UseFont = True + Me.SimpleButton1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SimpleButton1.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleRight + Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton1.Location = New System.Drawing.Point(0, 0) + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.Size = New System.Drawing.Size(522, 75) + Me.SimpleButton1.TabIndex = 2 + Me.SimpleButton1.Text = "Verarbeite Datei" + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.Silver + Me.Panel1.Controls.Add(Me.cmbDocType) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(522, 33) + Me.Panel1.TabIndex = 0 + ' + 'cmbDocType + ' + Me.cmbDocType.Dock = System.Windows.Forms.DockStyle.Top + Me.cmbDocType.Location = New System.Drawing.Point(0, 0) + Me.cmbDocType.MenuManager = Me.RibbonControl1 + Me.cmbDocType.Name = "cmbDocType" + SerializableAppearanceObject1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) + SerializableAppearanceObject1.Options.UseBackColor = True + Me.cmbDocType.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo, "", 20, True, True, False, EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "", Nothing, Nothing, DevExpress.Utils.ToolTipAnchor.[Default])}) + Me.cmbDocType.Properties.ButtonsStyle = DevExpress.XtraEditors.Controls.BorderStyles.UltraFlat + Me.cmbDocType.Properties.NullText = "Bitte wählen Sie ein Profil" + Me.cmbDocType.Properties.Padding = New System.Windows.Forms.Padding(5) + Me.cmbDocType.Size = New System.Drawing.Size(522, 30) + Me.cmbDocType.TabIndex = 4 + ' + 'DocumentViewer1 + ' + Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.DocumentViewer1.FileLoaded = False + Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0) + Me.DocumentViewer1.Name = "DocumentViewer1" + Me.DocumentViewer1.Size = New System.Drawing.Size(501, 567) + Me.DocumentViewer1.TabIndex = 0 + ' + 'GlobixDataset + ' + Me.GlobixDataset.DataSetName = "GlobixDataset" + Me.GlobixDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'SvgImageCollection1 + ' + Me.SvgImageCollection1.Add("check", "image://svgimages/icon builder/actions_checkcircled.svg") + ' + 'frmGlobix_Index + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1033, 656) + Me.Controls.Add(Me.SplitContainerControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_G_DevExpress + Me.Name = "frmGlobix_Index" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "FileFlow" + Me.TopMost = True + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.Panel1.ResumeLayout(False) + CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.Panel2.ResumeLayout(False) + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + Me.Panel3.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + CType(Me.cmbDocType.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GlobixDataset, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents SkipItem As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents checkItemTopMost As DevExpress.XtraBars.BarCheckItem + Friend WithEvents SourceDeleteItem As DevExpress.XtraBars.BarCheckItem + Friend WithEvents checkItemPreselection As DevExpress.XtraBars.BarCheckItem + Friend WithEvents PreviewItem As DevExpress.XtraBars.BarCheckItem + Friend WithEvents BarCheckItem2 As DevExpress.XtraBars.BarCheckItem + Friend WithEvents labelFilePath As DevExpress.XtraBars.BarStaticItem + Friend WithEvents labelError As DevExpress.XtraBars.BarStaticItem + Friend WithEvents labelNotice As DevExpress.XtraBars.BarStaticItem + Friend WithEvents chkMultiindexing As DevExpress.XtraBars.BarCheckItem + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents Panel1 As Panel + Friend WithEvents DocumentViewer1 As Controls.DocumentViewer.DocumentViewer + Friend WithEvents BarHeaderItem1 As DevExpress.XtraBars.BarHeaderItem + Friend WithEvents pnlIndex As Panel + Friend WithEvents Panel3 As Panel + Friend WithEvents GlobixDataset As GlobixDataset + Friend WithEvents cmbDocType As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents SimpleButton1 As SimpleButton + Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection + Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem +End Class diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.resx b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.resx new file mode 100644 index 0000000..fcb0d70 --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.resx @@ -0,0 +1,546 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcFAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku + QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC + MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSXRlbVR5cGVD + aGVja2VkIj4NCiAgICA8Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lk + dGg9IjEwIiBoZWlnaHQ9IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8 + cmVjdCB4PSIyMCIgeT0iMjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNz + PSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMw + LDAuNSwwLjUsMSwxLDFoMTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHog + TTE0LDMwSDRWMjAgICAgIGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0i + TTE0LDEwLjhWMTRINFY0aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwx + aDEyYzAuNSwwLDEtMC41LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwv + Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lkdGg9IjEwIiBoZWlnaHQ9 + IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0i + MjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJCbGFjayIgLz4NCiAg + ICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMwLDAuNSwwLjUsMSwxLDFo + MTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHogTTE0LDMwSDRWMjAgICAg + IGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE0LDEwLjhWMTRINFY0 + aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwxaDEyYzAuNSwwLDEtMC41 + LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwvZz4NCiAgICA8L2c+DQog + ICAgPHBvbHlnb24gcG9pbnRzPSI2LDUgNiw4IDEwLDEyIDE4LDQgMTgsMSAxMCw5ICAiIGNsYXNzPSJH + cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIsDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + Qmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9CgkuWWVsbG93e2ZpbGw6I0ZG + QjExNTt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iUHJldmlldyI+ + DQogICAgPHBhdGggZD0iTTIxLjQsMjhIMThsMCwwbDAsMEg2VjRoMTR2NWMwLDAuNiwwLjQsMSwxLDFo + NXYxMy40bDIsMlY5bC03LTdINUM0LjQsMiw0LDIuNCw0LDN2MjZjMCwwLjYsMC40LDEsMSwxaDE4LjQg + ICBMMjEuNCwyOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICA8cGF0aCBkPSJNMTgsMTRjMy4zLDAsNiwy + LjcsNiw2YzAsMS4yLTAuNCwyLjMtMSwzLjNsNC42LDQuNmMwLjUsMC41LDAuNSwxLjMsMCwxLjdjLTAu + NSwwLjUtMS4zLDAuNS0xLjcsMEwyMS4zLDI1ICAgYy0wLjksMC42LTIuMSwxLTMuMywxYy0zLjMsMC02 + LTIuNy02LTZDMTIsMTYuNywxNC43LDE0LDE4LDE0eiBNMTgsMjRjMi4yLDAsNC0xLjgsNC00cy0xLjgt + NC00LTRzLTQsMS44LTQsNFMxNS44LDI0LDE4LDI0eiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCjwv + c3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPYCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDI1 + IDI1IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiM2NDYzNjM7fS5jbHMtMntmaWxsOiNhNTI0MzE7fS5j + bHMtM3tmaWxsOm5vbmU7c3Ryb2tlOiM2NDYzNjM7c3Ryb2tlLXdpZHRoOjJweDt9PC9zdHlsZT4NCiAg + PC9kZWZzPg0KICA8cGF0aCBkPSJNMTguNjExNiwyMy41NDY0SDBWMy41OEgxOC42MTE2Wk0xLjk2Mzks + MjEuNTgyNkgxNi42NDc3VjUuNTQzM0gxLjk2MzlaIiBjbGFzcz0iY2xzLTEiIC8+DQogIDxwb2x5bGlu + ZSBwb2ludHM9IjIwLjIwNiAyMy41NDcgMjUgMTguNzUzIDIwLjIwNiAxMy45NTkiIGNsYXNzPSJjbHMt + MiIgLz4NCiAgPGxpbmUgeDE9IjQuMDQzOCIgeTE9IjEwLjE3MDkiIHgyPSIxNC41NjgiIHkyPSIxMC4x + NzA5IiBjbGFzcz0iY2xzLTMiIC8+DQogIDxsaW5lIHgxPSI0LjA0MzgiIHkxPSIxNC4wOTg2IiB4Mj0i + MTQuNTY4IiB5Mj0iMTQuMDk4NiIgY2xhc3M9ImNscy0zIiAvPg0KICA8bGluZSB4MT0iNC4wNDM4IiB5 + MT0iMTguMDI2MyIgeDI9IjE0LjU2OCIgeTI9IjE4LjAyNjMiIGNsYXNzPSJjbHMtMyIgLz4NCiAgPHJl + Y3QgeD0iMTAuNDA1NiIgeT0iMS40NTMzIiB3aWR0aD0iMTMuNzQ3IiBoZWlnaHQ9IjYuMjE2NiIgcng9 + IjAiIHJ5PSIwIiBjbGFzcz0iY2xzLTIiIC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEMEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iV2luZG93cyI+DQogICAgPHBhdGggZD0iTTE4LDE4LjFWMTZoMnYwLjlDMTkuMywx + Ny4yLDE4LjYsMTcuNiwxOCwxOC4xeiBNMTQuNywyNkgyVjE2SDB2MTFjMCwwLjUsMC41LDEsMSwxaDE1 + LjEgICBDMTUuNSwyNy4zLDE1LjEsMjYuNiwxNC43LDI2eiBNMjQsMThjNS43LDAsOCw2LDgsNnMtMi4z + LDYtOCw2Yy01LjcsMC04LTYtOC02UzE4LjMsMTgsMjQsMTggTTI0LDIwYy0zLjMsMC01LjEsMi43LTUu + OCw0ICAgYzAuNywxLjMsMi41LDQsNS44LDRjMy4zLDAsNS4xLTIuNyw1LjgtNEMyOS4xLDIyLjcsMjcu + MywyMCwyNCwyMEwyNCwyMHogTTI0LDIyYy0xLjEsMC0yLDAuOS0yLDJzMC45LDIsMiwyYzEuMSwwLDIt + MC45LDItMiAgIFMyNS4xLDIyLDI0LDIyeiBNMjYsMTYuMlY4aDJ2OC45QzI3LjQsMTYuNiwyNi43LDE2 + LjQsMjYsMTYuMnogTTEwLDhIOHYyaDJWOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICA8cGF0aCBkPSJN + MCwxNnYtNWMwLTAuNSwwLjUtMSwxLTFoMThjMC41LDAsMSwwLjUsMSwxdjVIMHogTTI4LDhWM2MwLTAu + NS0wLjUtMS0xLTFIOUM4LjUsMiw4LDIuNSw4LDN2NUgyOHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+ + DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGgFAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDI1 + IDI1IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiM2NDYzNjM7fS5jbHMtMntmaWxsOiNhNTI0MzE7fTwv + c3R5bGU+DQogIDwvZGVmcz4NCiAgPHBhdGggZD0iTTE5LjQ0LDEzLjA4SDUuMzU1M1YxLjUyM0gxOS40 + NFpNNy4xOTc3LDExLjE0ODJoMTAuNFYzLjQ1NDZINy4xOTc3WiIgY2xhc3M9ImNscy0xIiAvPg0KICA8 + cGF0aCBkPSJNMTcuMDY4MiwyMy40NzdjLTQuMTE2NiwwLTcuMzI1NS00LjIxNTEtNy40Ni00LjM5NDhs + LS40NzE0LS42Mjg3LjQ3MTQtLjYyODhjLjEzNDktLjE4LDMuMzQzOC00LjM5NDMsNy40Ni00LjM5NDNz + Ny4zMjU1LDQuMjE0Niw3LjQ2LDQuMzk0M0wyNSwxOC40NTM1bC0uNDcxNC42Mjg3QzI0LjM5MzcsMTku + MjYxOSwyMS4xODQ4LDIzLjQ3NywxNy4wNjgyLDIzLjQ3N1ptLTUuNDkyMS01LjAyMzVjLjk2MjYsMS4w + NDY2LDMuMTAwOSwzLjAyODcsNS40OTIxLDMuMDI4N1MyMS41OTc3LDE5LjUsMjIuNTYsMTguNDUzNWMt + Ljk2MjYtMS4wNDYxLTMuMTAxLTMuMDI4My01LjQ5MjEtMy4wMjgzUzEyLjUzODcsMTcuNDA3NCwxMS41 + NzYxLDE4LjQ1MzVaIiBjbGFzcz0iY2xzLTEiIC8+DQogIDxwYXRoIGQ9Ik0xOS42NTMsMTguNDUzNWEy + LjY5ODgsMi42OTg4LDAsMCwwLTIuNTg1My0yLjc5OTIsMi40MjUxLDIuNDI1MSwwLDAsMC0xLjM1OTUu + NDIyNSwxLjM1OSwxLjM1OSwwLDAsMSwuMjYzOS44MDYsMS4yNjEsMS4yNjEsMCwwLDEtMS4yMDczLDEu + MzA4MSwxLjEwMTcsMS4xMDE3LDAsMCwxLS4yNjctLjAzNDhjLS4wMDkyLjA5NzctLjAxNDYuMTk3MS0u + MDE0Ni4yOTc0YTIuNjk4MSwyLjY5ODEsMCwwLDAsMi41ODQ1LDIuNzk5MSwyLjY5ODcsMi42OTg3LDAs + MCwwLDIuNTg1My0yLjc5OTEiIGNsYXNzPSJjbHMtMSIgLz4NCiAgPHBhdGggZD0iTTkuNjA3OCwxOS4w + ODIybC0uNDcxNC0uNjI4Ny4yMjA5LS4yOTQ3SDEuODQyNHYtNy45NDZIMTIuMjQxOHY1LjA0MzRhMTAu + NjIyNywxMC42MjI3LDAsMCwxLDEuODQyNC0xLjExNDJWOC4yMThIMFYyMC4xNTM2SDEwLjU0MjhBMTIu + Mzc4MywxMi4zNzgzLDAsMCwxLDkuNjA3OCwxOS4wODIyWiIgY2xhc3M9ImNscy0xIiAvPg0KICA8cmVj + dCB4PSI1LjM1NTMiIHk9IjEuNTIzIiB3aWR0aD0iMTQuMDg0MiIgaGVpZ2h0PSI1Ljk2MjciIHJ4PSIw + IiByeT0iMCIgY2xhc3M9ImNscy0yIiAvPg0KICA8cmVjdCB4PSIwIiB5PSI4LjIxOCIgd2lkdGg9IjE0 + LjA5OTQiIGhlaWdodD0iNS45NjI3IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJjbHMtMiIgLz4NCjwvc3Zn + Pgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFkCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDI1 + IDI1IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiM2NDYzNjM7fS5jbHMtMntmaWxsOiNhNTI0MzE7fTwv + c3R5bGU+DQogIDwvZGVmcz4NCiAgPHBvbHlnb24gcG9pbnRzPSIxMi4wNjEgMjEuMjMgMy4zNTUgMjEu + MjMgMy4zNTUgMi43MyAxOS44NTUgMi43MyAxOS44NTUgMTMuMjk3IDIxLjg1NSAxMS4yNjIgMjEuODU1 + IDAuNzMgMS4zNTUgMC43MyAxLjM1NSAyMy4yMyAxMC4wOTYgMjMuMjMgMTIuMDYxIDIxLjIzIiBjbGFz + cz0iY2xzLTEiIC8+DQogIDxwb2x5Z29uIHBvaW50cz0iMjMuNjQ1IDE1LjExMSAyMi4yMzEgMTMuNjk3 + IDE4LjM1OCAxNy41NjkgMTQuNDg2IDEzLjY5NiAxMy4wNzEgMTUuMTEgMTYuOTQ0IDE4Ljk4MyAxMy4w + NzIgMjIuODU1IDE0LjQ4NiAyNC4yNjkgMTguMzU4IDIwLjM5NyAyMi4yMzEgMjQuMjcgMjMuNjQ1IDIy + Ljg1NiAxOS43NzIgMTguOTgzIDIzLjY0NSAxNS4xMTEiIGNsYXNzPSJjbHMtMiIgLz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDI1 + IDI1IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiM2NDYzNjM7fS5jbHMtMntmaWxsOiNhNTI0MzE7fTwv + c3R5bGU+DQogIDwvZGVmcz4NCiAgPHBhdGggZD0iTTIyLjc1LDIzLjIzSDIuMjVWLjczaDIwLjVabS0x + OC41LTJoMTYuNVYyLjczSDQuMjVaIiBjbGFzcz0iY2xzLTEiIC8+DQogIDxwYXRoIGQ9Ik0xNy44NTg2 + LDE4LjcxNjdoLTJhMy4zNTg5LDMuMzU4OSwwLDEsMC02LjcxNzgsMGgtMmE1LjM1ODksNS4zNTg5LDAs + MSwxLDEwLjcxNzgsMFoiIGNsYXNzPSJjbHMtMiIgLz4NCiAgPHBhdGggZD0iTTEyLjUsMTIuMzgyN2E0 + LjA3LDQuMDcsMCwxLDEsMi44NzY5LTEuMTkxOUE0LjA0MzksNC4wNDM5LDAsMCwxLDEyLjUsMTIuMzgy + N1ptMC02LjEzOTFhMi4wNywyLjA3LDAsMCwwLTEuNDYzOSwzLjUzMzIsMi4xMjA1LDIuMTIwNSwwLDAs + MCwyLjkyNjgsMGgwQTIuMDcsMi4wNywwLDAsMCwxMi41LDYuMjQzNloiIGNsYXNzPSJjbHMtMiIgLz4N + Cjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIUDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDI1 + IDI1IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiM2NDYzNjM7fS5jbHMtMntmaWxsOiNhNTI0MzE7fTwv + c3R5bGU+DQogIDwvZGVmcz4NCiAgPHBvbHlnb24gcG9pbnRzPSIyMC43MDcgMjMuMjMgMjAuNzA3IDIx + LjgzMSAxOS4wMDYgMjAuMTE5IDE5LjAwNiAyMS4yMyAxNy4yOTEgMjEuMjMgMTkuMjc4IDIzLjIzIDIw + LjcwNyAyMy4yMyIgY2xhc3M9ImNscy0xIiAvPg0KICA8cG9seWdvbiBwb2ludHM9IjE0LjQ3MyAyMS4y + MyA0Ljk3MyAyMS4yMyA0Ljk3MyAyLjczIDExLjk4OSAyLjczIDExLjk4OSA5LjQ0NyAxOS4wMDYgOS40 + NDcgMTkuMDA2IDE3LjI4IDIwLjcwNyAxOC45OTMgMjAuNzA3IDkuNDQ3IDExLjk4OSAwLjczIDMuMjcy + IDAuNzMgMy4yNzIgMjMuMjMgMTYuNDU5IDIzLjIzIDE0LjQ3MyAyMS4yMyIgY2xhc3M9ImNscy0xIiAv + Pg0KICA8cmVjdCB4PSIxNy40Mjg0IiB5PSIxNy4yNzk5IiB3aWR0aD0iMS45OTk4IiBoZWlnaHQ9Ijcu + MzUyOSIgcng9IjAiIHJ5PSIwIiBjbGFzcz0iY2xzLTIiIHRyYW5zZm9ybT0idHJhbnNsYXRlKC05LjQx + NDQsIDE5LjA3Mikgcm90YXRlKC00NC44MDA5LCAwLCAwKSIgLz4NCiAgPHBhdGggZD0iTTEyLjg0MTYs + MjAuMzgwOWE0Ljk5NzgsNC45OTc4LDAsMSwxLDMuNTM1Ni0xLjQ2MjRBNC45ODQ3LDQuOTg0NywwLDAs + MSwxMi44NDE2LDIwLjM4MDlabTAtNy45OTYxYTIuOTk4MywyLjk5ODMsMCwxLDAsMi4xMjE2Ljg3NjlB + Mi45OSwyLjk5LDAsMCwwLDEyLjg0MTYsMTIuMzg0OFoiIGNsYXNzPSJjbHMtMiIgLz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOMCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlNpbmdsZVBhZ2VWaWV3Ij4NCiAgICA8cGF0aCBk + PSJNMjcsMEgzQzIuNCwwLDIsMC40LDIsMXYyOGMwLDAuNiwwLjQsMSwxLDFoMjRjMC42LDAsMS0wLjQs + MS0xVjFDMjgsMC40LDI3LjYsMCwyNywweiBNMjYsMjhINFYyaDIyVjI4eiIgY2xhc3M9IkJsYWNrIiAv + Pg0KICAgIDxwYXRoIGQ9Ik0yMiw4SDhWNmgxNFY4eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYy + aDE0VjE0eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsdWUiIC8+ + DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABIDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSGlnaEltcG9ydGFuY2UiPg0KICAg + IDxwYXRoIGQ9Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMy + My43LDIsMTYsMnogTTE2LDI0Yy0xLjEsMC0yLTAuOS0yLTJzMC45LTIsMi0yczIsMC45LDIsMiAgIFMx + Ny4xLDI0LDE2LDI0eiBNMTgsMThoLTRWOGg0VjE4eiIgY2xhc3M9IlJlZCIgLz4NCiAgPC9nPg0KPC9z + dmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9 + Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs + MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs + NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg + PC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcFAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku + QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC + MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSXRlbVR5cGVD + aGVja2VkIj4NCiAgICA8Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lk + dGg9IjEwIiBoZWlnaHQ9IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8 + cmVjdCB4PSIyMCIgeT0iMjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNz + PSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMw + LDAuNSwwLjUsMSwxLDFoMTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHog + TTE0LDMwSDRWMjAgICAgIGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0i + TTE0LDEwLjhWMTRINFY0aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwx + aDEyYzAuNSwwLDEtMC41LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwv + Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lkdGg9IjEwIiBoZWlnaHQ9 + IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0i + MjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJCbGFjayIgLz4NCiAg + ICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMwLDAuNSwwLjUsMSwxLDFo + MTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHogTTE0LDMwSDRWMjAgICAg + IGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE0LDEwLjhWMTRINFY0 + aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwxaDEyYzAuNSwwLDEtMC41 + LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwvZz4NCiAgICA8L2c+DQog + ICAgPHBvbHlnb24gcG9pbnRzPSI2LDUgNiw4IDEwLDEyIDE4LDQgMTgsMSAxMCw5ICAiIGNsYXNzPSJH + cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIgJAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDk0 + LjEzNzcgNDguOTI1IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8x + Ij4NCiAgPGRlZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiMxZDFkMWI7fS5jbHMtMntmaWxsOiNh + NTI0MzE7fS5jbHMtMywuY2xzLTR7ZmlsbDpub25lO3N0cm9rZTojMWQxZDFiO3N0cm9rZS13aWR0aDoy + cHg7fS5jbHMtM3tzdHJva2UtbWl0ZXJsaW1pdDoxMDt9PC9zdHlsZT4NCiAgPC9kZWZzPg0KICA8cGF0 + aCBkPSJNNDYuNjU0OCwyNy4yMDY5aC0yLjU1OWwtMS40NDksNC45OTVoLS4wMjVsLTEuMzI3LTQuOTk1 + aC0xLjcwNmwtMS4zMjgsNC45OTVoLS4wMjRsLTEuNDUtNC45OTVoLTIuNTU4bDIuODAyLDguNzcxaDIu + MzE0bDEuMDg1LTQuNjI5aC4wMjRsMS4wODQsNC42MjloMi4zMTVabS0xNC44NjIsNC4zODZhMi4yMDQ3 + LDIuMjA0NywwLDEsMS00LjM4NSwwLDIuMjA0OCwyLjIwNDgsMCwxLDEsNC4zODUsMG0yLjQzNiwwYTQu + NjI5LDQuNjI5LDAsMSwwLTQuNjI5LDQuNjI5LDQuNTUxMSw0LjU1MTEsMCwwLDAsNC42MjktNC42Mjlt + LTkuNjIzLDIuMTkzaC0yLjgwMnYtNi41NzloLTIuNDM2djguNzcxaDQuOTk0Wk0xOC4zOTI4LDI5LjRs + LS4yNDQtMi4xOTNoLTUuMjM4djguNzcxaDIuNDM2di0zLjQxMWgyLjY4MXYtMi4wNzFoLTIuNjgxVjI5 + LjRaIiBjbGFzcz0iY2xzLTEiIC8+DQogIDxwYXRoIGQ9Ik00Ni4wNDUsMjMuNjMzNUg0M3YtMS4yMTho + Mi42OHYtMi4wNzFINDN2LTEuMDk2aDMuMDQ1bC0uMjQ0LTIuMTkzSDQwLjU2M3Y4Ljc3MWg1LjIzOFpt + LTYuNjM5LDB2LTMuMTY3SDM1LjUwOGwtLjI0NCwxLjk0OUgzNi45N3YuNzMxYTIuMDc4LDIuMDc4LDAs + MCwxLTEuNzA2LjczMSwyLjIzMjcsMi4yMzI3LDAsMCwxLTIuMTkzLTIuNDM3LDIuMjUsMi4yNSwwLDAs + MSwyLjE5My0yLjQzNiwyLjU1LDIuNTUsMCwwLDEsMS45NDkuOTc1bDEuNDYyLTEuNzA2YTQuMDg4OCw0 + LjA4ODgsMCwwLDAtMy40MTEtMS40NjIsNC40ODI5LDQuNDgyOSwwLDAsMC00LjYyOSw0LjY0Miw0LjQy + MzgsNC40MjM4LDAsMCwwLDQuMzg2LDQuNjE3LDQuNjkzNCw0LjY5MzQsMCwwLDAsNC4zODUtMi40Mzdt + LTEyLjI1My0xLjA5NkgyNS43MTVsLjcwNy0yLjQzN2guMDI0Wm0zLjU0NSwzLjI4OS0zLjA0Ni04Ljc3 + MUgyNS4yMTZsLTMuMDQ1LDguNzcxaDIuNTU4bC40MTQtMS4zNGgyLjU4MmwuNDE1LDEuMzRabS04LjUy + Ny0yLjE5M0gxOS4zNjl2LTYuNTc4SDE2LjkzMnY4Ljc3MWg0Ljk5NVptLTguNzQ3LS43NjdhLjc4Njku + Nzg2OSwwLDAsMS0uNzY3Ljg3N2gtLjk2M1YyMS45OWguODUzYS44NzMuODczLDAsMCwxLC44NzcuODc3 + bS0uMjE5LTMuMDdhLjcyODEuNzI4MSwwLDAsMS0uNzY4Ljc2N2gtLjc0M3YtMS41MzVoLjc0M2EuNzQy + NS43NDI1LDAsMCwxLC43NjguNzY4bTIuNzUzLDMuMzVhMi4zNTE2LDIuMzUxNiwwLDAsMC0xLjQzOC0y + LjEzMnYtLjAyNGExLjY1NTQsMS42NTU0LDAsMCwwLC45NTEtMS43NDJjMC0xLjI0My0xLjA5Ny0yLjE5 + My0yLjY4LTIuMTkzSDkuMjU4djguNzcxaDMuODk4YTIuNjI1NSwyLjYyNTUsMCwwLDAsMi44MDItMi42 + OG0tMTAuOTc2LS42MDlIMy41NDVsLjcwNi0yLjQzN2guMDI1Wm0zLjU0NSwzLjI4OS0zLjA0Ni04Ljc3 + MUgzLjA0NUwwLDI1LjgyNjVIMi41NThsLjQxNC0xLjM0SDUuNTU1bC40MTQsMS4zNFoiIGNsYXNzPSJj + bHMtMiIgLz4NCiAgPHBvbHlnb24gcG9pbnRzPSI1Mi4zNzIgNDguOTI2IDk0LjEzOCAyNC40NjMgNTIu + MzcyIDAgNTIuMzcyIDQ4LjkyNiIgY2xhc3M9ImNscy0yIiAvPg0KICA8cGF0aCBkPSJNNTcuOTUxMSwy + MC45MzE4YTEzLjgxLDEzLjgxLDAsMCwwLDEuMzM3LDUuODMxLDExLjYyLDExLjYyLDAsMCwwLDYuMDE4 + LDUuNzU4Yy4xMTYuMDUxLjIyNy41NTQuMzA5LjY0OGExLjY3NjgsMS42NzY4LDAsMCwwLDIuNTA0LjAx + MmMuMDkyLS4xMDQuMjE5LS42MTMuMzQ5LS42NjlhMTEuNjEzNCwxMS42MTM0LDAsMCwwLDUuNDU1LTQu + NzU1LDEzLjU0ODMsMTMuNTQ4MywwLDAsMCwxLjg2OS02LjgyNVoiIGNsYXNzPSJjbHMtMyIgLz4NCiAg + PHBhdGggZD0iTTc3LjEwNDgsMTguMDE4Yy0uMDA0LS41MTMtLjAxLS40MjMuMDA2LS45MTlhNS42MzA5 + LDUuNjMwOSwwLDAsMC0uODc1LTMuMjg4LDYuNDExMiw2LjQxMTIsMCwwLDAtNS4xMTctMy4wMzljLS44 + Ni0uMDczLTcuNjAyLS4wNDMtOC4zMzUtLjA0MWE3LjU0ODEsNy41NDgxLDAsMCwwLTIuMjUxLjMzOCw2 + LjE4MjIsNi4xODIyLDAsMCwwLTQuNDEyLDUuNTc2Yy0uMDExLjY1Ni0uMDA4LjcxNy0uMDA2LDEuMzcz + WiIgY2xhc3M9ImNscy0zIiAvPg0KICA8cGF0aCBkPSJNNjcuMTEzNSw4Ljg2NzRzLS4xMTctNS4wOTgs + My4wMTEtNS41NjIiIGNsYXNzPSJjbHMtNCIgLz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIgJAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDk0 + LjEzNzcgNDguOTI1IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8x + Ij4NCiAgPGRlZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiMxZDFkMWI7fS5jbHMtMntmaWxsOiNh + NTI0MzE7fS5jbHMtMywuY2xzLTR7ZmlsbDpub25lO3N0cm9rZTojMWQxZDFiO3N0cm9rZS13aWR0aDoy + cHg7fS5jbHMtM3tzdHJva2UtbWl0ZXJsaW1pdDoxMDt9PC9zdHlsZT4NCiAgPC9kZWZzPg0KICA8cGF0 + aCBkPSJNNDYuNjU0OCwyNy4yMDY5aC0yLjU1OWwtMS40NDksNC45OTVoLS4wMjVsLTEuMzI3LTQuOTk1 + aC0xLjcwNmwtMS4zMjgsNC45OTVoLS4wMjRsLTEuNDUtNC45OTVoLTIuNTU4bDIuODAyLDguNzcxaDIu + MzE0bDEuMDg1LTQuNjI5aC4wMjRsMS4wODQsNC42MjloMi4zMTVabS0xNC44NjIsNC4zODZhMi4yMDQ3 + LDIuMjA0NywwLDEsMS00LjM4NSwwLDIuMjA0OCwyLjIwNDgsMCwxLDEsNC4zODUsMG0yLjQzNiwwYTQu + NjI5LDQuNjI5LDAsMSwwLTQuNjI5LDQuNjI5LDQuNTUxMSw0LjU1MTEsMCwwLDAsNC42MjktNC42Mjlt + LTkuNjIzLDIuMTkzaC0yLjgwMnYtNi41NzloLTIuNDM2djguNzcxaDQuOTk0Wk0xOC4zOTI4LDI5LjRs + LS4yNDQtMi4xOTNoLTUuMjM4djguNzcxaDIuNDM2di0zLjQxMWgyLjY4MXYtMi4wNzFoLTIuNjgxVjI5 + LjRaIiBjbGFzcz0iY2xzLTEiIC8+DQogIDxwYXRoIGQ9Ik00Ni4wNDUsMjMuNjMzNUg0M3YtMS4yMTho + Mi42OHYtMi4wNzFINDN2LTEuMDk2aDMuMDQ1bC0uMjQ0LTIuMTkzSDQwLjU2M3Y4Ljc3MWg1LjIzOFpt + LTYuNjM5LDB2LTMuMTY3SDM1LjUwOGwtLjI0NCwxLjk0OUgzNi45N3YuNzMxYTIuMDc4LDIuMDc4LDAs + MCwxLTEuNzA2LjczMSwyLjIzMjcsMi4yMzI3LDAsMCwxLTIuMTkzLTIuNDM3LDIuMjUsMi4yNSwwLDAs + MSwyLjE5My0yLjQzNiwyLjU1LDIuNTUsMCwwLDEsMS45NDkuOTc1bDEuNDYyLTEuNzA2YTQuMDg4OCw0 + LjA4ODgsMCwwLDAtMy40MTEtMS40NjIsNC40ODI5LDQuNDgyOSwwLDAsMC00LjYyOSw0LjY0Miw0LjQy + MzgsNC40MjM4LDAsMCwwLDQuMzg2LDQuNjE3LDQuNjkzNCw0LjY5MzQsMCwwLDAsNC4zODUtMi40Mzdt + LTEyLjI1My0xLjA5NkgyNS43MTVsLjcwNy0yLjQzN2guMDI0Wm0zLjU0NSwzLjI4OS0zLjA0Ni04Ljc3 + MUgyNS4yMTZsLTMuMDQ1LDguNzcxaDIuNTU4bC40MTQtMS4zNGgyLjU4MmwuNDE1LDEuMzRabS04LjUy + Ny0yLjE5M0gxOS4zNjl2LTYuNTc4SDE2LjkzMnY4Ljc3MWg0Ljk5NVptLTguNzQ3LS43NjdhLjc4Njku + Nzg2OSwwLDAsMS0uNzY3Ljg3N2gtLjk2M1YyMS45OWguODUzYS44NzMuODczLDAsMCwxLC44NzcuODc3 + bS0uMjE5LTMuMDdhLjcyODEuNzI4MSwwLDAsMS0uNzY4Ljc2N2gtLjc0M3YtMS41MzVoLjc0M2EuNzQy + NS43NDI1LDAsMCwxLC43NjguNzY4bTIuNzUzLDMuMzVhMi4zNTE2LDIuMzUxNiwwLDAsMC0xLjQzOC0y + LjEzMnYtLjAyNGExLjY1NTQsMS42NTU0LDAsMCwwLC45NTEtMS43NDJjMC0xLjI0My0xLjA5Ny0yLjE5 + My0yLjY4LTIuMTkzSDkuMjU4djguNzcxaDMuODk4YTIuNjI1NSwyLjYyNTUsMCwwLDAsMi44MDItMi42 + OG0tMTAuOTc2LS42MDlIMy41NDVsLjcwNi0yLjQzN2guMDI1Wm0zLjU0NSwzLjI4OS0zLjA0Ni04Ljc3 + MUgzLjA0NUwwLDI1LjgyNjVIMi41NThsLjQxNC0xLjM0SDUuNTU1bC40MTQsMS4zNFoiIGNsYXNzPSJj + bHMtMiIgLz4NCiAgPHBvbHlnb24gcG9pbnRzPSI1Mi4zNzIgNDguOTI2IDk0LjEzOCAyNC40NjMgNTIu + MzcyIDAgNTIuMzcyIDQ4LjkyNiIgY2xhc3M9ImNscy0yIiAvPg0KICA8cGF0aCBkPSJNNTcuOTUxMSwy + MC45MzE4YTEzLjgxLDEzLjgxLDAsMCwwLDEuMzM3LDUuODMxLDExLjYyLDExLjYyLDAsMCwwLDYuMDE4 + LDUuNzU4Yy4xMTYuMDUxLjIyNy41NTQuMzA5LjY0OGExLjY3NjgsMS42NzY4LDAsMCwwLDIuNTA0LjAx + MmMuMDkyLS4xMDQuMjE5LS42MTMuMzQ5LS42NjlhMTEuNjEzNCwxMS42MTM0LDAsMCwwLDUuNDU1LTQu + NzU1LDEzLjU0ODMsMTMuNTQ4MywwLDAsMCwxLjg2OS02LjgyNVoiIGNsYXNzPSJjbHMtMyIgLz4NCiAg + PHBhdGggZD0iTTc3LjEwNDgsMTguMDE4Yy0uMDA0LS41MTMtLjAxLS40MjMuMDA2LS45MTlhNS42MzA5 + LDUuNjMwOSwwLDAsMC0uODc1LTMuMjg4LDYuNDExMiw2LjQxMTIsMCwwLDAtNS4xMTctMy4wMzljLS44 + Ni0uMDczLTcuNjAyLS4wNDMtOC4zMzUtLjA0MWE3LjU0ODEsNy41NDgxLDAsMCwwLTIuMjUxLjMzOCw2 + LjE4MjIsNi4xODIyLDAsMCwwLTQuNDEyLDUuNTc2Yy0uMDExLjY1Ni0uMDA4LjcxNy0uMDA2LDEuMzcz + WiIgY2xhc3M9ImNscy0zIiAvPg0KICA8cGF0aCBkPSJNNjcuMTEzNSw4Ljg2NzRzLS4xMTctNS4wOTgs + My4wMTEtNS41NjIiIGNsYXNzPSJjbHMtNCIgLz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPECAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iRGVsZXRlTGlzdCI+DQogICAgPHBhdGggZD0iTTYsMjZWNGgxOHYxMy4ybDItMlYz + YzAtMC42LTAuNC0xLTEtMUg1QzQuNCwyLDQsMi40LDQsM3YyNGMwLDAuNiwwLjQsMSwxLDFoOC4ybDIt + Mkg2eiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxwb2x5Z29uIHBvaW50cz0iMjgsMjAgMjYsMTggMjIs + MjIgMTgsMTggMTYsMjAgMjAsMjQgMTYsMjggMTgsMzAgMjIsMjYgMjYsMzAgMjgsMjggMjQsMjQgICIg + Y2xhc3M9IlJlZCIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHgCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwv + c3R5bGU+DQogIDxwYXRoIGQ9Ik0xNiw2SDh2OGg4VjZ6IE0xMiwxMmgtMlY4aDJWMTJ6IiBjbGFzcz0i + QmxhY2siIC8+DQogIDxwYXRoIGQ9Ik0yMiw2djEwSDZWNkgzQzIuNCw2LDIsNi40LDIsN3YyMmMwLDAu + NiwwLjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjE4di0yVjdjMC0wLjYtMC40LTEtMS0xSDIyeiBN + MjIsMjZINiAgdi02aDE2VjI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8cGF0aCBkPSJNMjgsMkg3QzYu + NCwyLDYsMi40LDYsM3YxaDIydjIyaDFjMC42LDAsMS0wLjQsMS0xVjRWM2MwLTAuNi0wLjQtMS0xLTFI + Mjh6IiBjbGFzcz0iQmxhY2siIC8+DQo8L3N2Zz4L + + + + 17, 17 + + + 144, 17 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb new file mode 100644 index 0000000..bde2be0 --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb @@ -0,0 +1,916 @@ +Option Explicit On + +Imports System.IO +Imports System.Text.RegularExpressions +Imports DevExpress.XtraEditors.Controls +Imports DigitalData.Controls.LookupGrid +Imports DigitalData.GUIs.GlobalIndexer +Imports DigitalData.GUIs.ZooFlow.Globix.Models +Imports DigitalData.Modules.Database +Imports DigitalData.Modules.EDMI.API +Imports DigitalData.Modules.EDMI.API.EDMIServiceReference +Imports DigitalData.Modules.EDMI.API.Constants.DatabaseType +Imports DigitalData.Modules.Language +Imports DigitalData.Modules.Language.Utils +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Patterns +Imports DevExpress.XtraEditors +Imports DevExpress.XtraSplashScreen +Imports DigitalData.GUIs.Common +Public Class frmGlobix_Index +#Region "+++++ Variablen ++++++" + Private ReadOnly LogConfig As LogConfig + Private ReadOnly Logger As Logger + + Private Property CancelAttempts As Integer = 0 + + Private Const MAX_CANCEL_ATTEMPTS = 2 + Private Const TEXT_MISSING_INPUT = "Bitte vervollständigen Sie die Eingaben!" + + Private Property MultifileCount As Integer + Public Property FormLoaded As Boolean = False + Public Property DropType As String + + + Public Property ManualIndexes As List(Of ManualIndex) + Public Property DocTypes As List(Of DocType) + Public Property SelectedDocType As DocType + + Private Property WindowLocation As ClassWindowLayout + Private Property Database As DatabaseWithFallback + Private Property Patterns2 As Patterns2 + Private ReadOnly FormHelper As FormHelper + + Private Property OverlayHandle As IOverlaySplashScreenHandle + Public Property oSuccess As Boolean = False + + 'Public Class ControlMeta + ' Public Property IndexName As String + ' Public Property IndexType As String + ' Public Property MultipleValues As Boolean = False + 'End Class + +#End Region + + Public Sub New(pLogConfig As LogConfig) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Logger = pLogConfig.GetLogger() + LogConfig = pLogConfig + + Database = New DatabaseWithFallback(pLogConfig, My.Application.Service.Client, My.DatabaseECM, My.DatabaseIDB) + WindowLocation = New ClassWindowLayout(pLogConfig) + Patterns2 = New Patterns2(pLogConfig) + FormHelper = New FormHelper(pLogConfig, Me) + + Localizer.Active = New LookupGridLocalizer() + End Sub + + Private Sub frmGlobix_Index_Load(sender As Object, e As EventArgs) Handles MyBase.Load + ColorizeInactiveIcon = DevExpress.Utils.DefaultBoolean.True + + ' Abbruchzähler zurücksetzen + CancelAttempts = 0 + + ' Show Loading Overlay + OverlayHandle = SplashScreenManager.ShowOverlayForm(Me) + + My.Application.Globix.INDEXING_ACTIVE = True + End Sub + + Private Async Sub frmGlobix_Index_Shown(sender As Object, e As EventArgs) Handles Me.Shown + Cursor = Cursors.Default + + checkItemTopMost.Checked = My.UIConfig.Globix.TopMost + TopMost = My.UIConfig.Globix.TopMost + BringToFront() + Focus() + + Try + DocumentViewer1.Init(LogConfig, My.Application.Settings.GdPictureKey) + Catch ex As Exception + Logger.Error(ex) + End Try + + Try + Refresh_Dokart() + pnlIndex.Controls.Clear() + + My.Application.Globix.CURRENT_ISATTACHMENT = False + Dim oSql = $"SELECT HANDLE_TYPE FROM TBGI_FILES_USER WHERE GUID = {My.Application.Globix.CurrentWorkfile.Id}" + DropType = Await My.Database.GetScalarValueECMAsync(oSql) + + My.Application.Globix.DeleteOriginalFile = My.UIConfig.Globix.DeleteOriginalFile + SplitContainerControl1.SplitterPosition = My.UIConfig.Globix.SplitterDistanceViewer + SourceDeleteItem.Enabled = True + SourceDeleteItem.Checked = My.UIConfig.Globix.DeleteOriginalFile + + If DropType Is Nothing Then + Logger.Debug("File with Id [{0}] was not found in TBGI_FILES_USER. Exiting.", My.Application.Globix.CurrentWorkfile.Id) + CancelAttempts = MAX_CANCEL_ATTEMPTS + Close() + Exit Sub + End If + + SetDropType(DropType) + + + labelFilePath.Caption = My.Application.Globix.CurrentWorkfile.FilePath + WindowLocation.LoadFormLocationSize(Me) + + + SetFilePreview(My.UIConfig.Globix.FilePreview) + + + MultifileCount = Await My.Database.GetScalarValueECMAsync("SELECT COUNT(*) FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & My.Application.Globix.CurrentWorkfile.Id & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')") + My.Application.Globix.MULTIINDEXING_ACTIVE = False + + If MultifileCount > 0 Then + If My.Application.User.Language = "de-DE" Then + chkMultiindexing.Caption = $"Alle nachfolgenden Dateien (#{MultifileCount}) identisch indexieren" + Else + chkMultiindexing.Caption = "All following files (#{MultifileCount}) will be indexed identically" + End If + + chkMultiindexing.Checked = False + chkMultiindexing.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + + Else + chkMultiindexing.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + + End If + If My.UIConfig.Globix.DeleteOriginalFile Then + SourceDeleteItem.Checked = True + End If + ' Letzte Auswahl merken überschreibt die automatische selektion + If My.UIConfig.Globix.ProfilePreselection Then + checkItemPreselection.Checked = True + + If My.Application.Globix.CURRENT_LASTDOCTYPE <> "" Then + Dim oFoundDocType = cmbDocType.Properties.Items. + Cast(Of DocType)(). + Where(Function(dt) dt.Name = My.Application.Globix.CURRENT_LASTDOCTYPE). + FirstOrDefault() + If oFoundDocType IsNot Nothing Then + cmbDocType.SelectedItem = oFoundDocType + End If + + + End If + Else + oSql = "SELECT DISTINCT T1.DOCTYPE as DocType, T.* FROM TBGI_REGEX_DOCTYPE T, VWGI_DOCTYPE_USER T1 WHERE T.DOCTYPE_ID = T1.DOCTYPE_ID" + Dim oRegexDoctypeTable = Database.GetDatatable("DTTBGI_REGEX_DOCTYPE", oSql, ECM) + + For Each oRoW As DataRow In oRegexDoctypeTable.Rows + Dim oOnlyFilename = Path.GetFileName(My.Application.Globix.CurrentWorkfile.FilePath) + If Regex.IsMatch(oOnlyFilename, oRoW.Item("Regex")) Then + + Logger.Debug("There is a match on REGEX_DOCTYPE: [{0}]", oRoW.Item("DOCTYPE")) + Logger.Debug("Regex: [{0}], FileName: [{1}]", oRoW.Item("Regex"), oOnlyFilename) + Dim oFoundDocType = cmbDocType.Properties.Items. + Cast(Of DocType)(). + Where(Function(dt) dt.Name = My.Application.Globix.CURRENT_LASTDOCTYPE). + FirstOrDefault() + + If oFoundDocType IsNot Nothing Then + cmbDocType.SelectedItem = oFoundDocType + End If + Exit For + End If + Next + End If + + + Catch ex As Exception + Logger.Warn("Unexpected error DTTBGI_REGEX_DOCTYPE - ErrorMessage: " & vbNewLine & ex.Message) + Me.Visible = False + FormHelper.ShowErrorMessage(ex, "Laden des Formulars") + Me.Visible = True + Finally + SplashScreenManager.CloseOverlayForm(OverlayHandle) + FormLoaded = True + End Try + End Sub + + + Public Sub SetDropType(pDropType As String) + If pDropType Is Nothing Then + Logger.Debug("File with Id [{0}] was not found in TBGI_FILES_USER. Exiting.", My.Application.Globix.CurrentWorkfile.Id) + CancelAttempts = MAX_CANCEL_ATTEMPTS + Close() + Else + If pDropType.StartsWith("|FW") Then + ' Eine Datei aus FolderWatch wird IMMER gelöscht, egal wie die Einstellung in der Config lautet + My.Application.Globix.DeleteOriginalFile = True + SourceDeleteItem.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ElseIf pDropType.Contains("|OUTLOOK_MESSAGE|") Then + ' Eine (DragDrop)-Outlook Nachricht wird NIE gelöscht, egal wie die Einstellung in der Config lautet + My.Application.Globix.DeleteOriginalFile = False + SourceDeleteItem.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Else + SourceDeleteItem.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End If + + If pDropType = "|DROPFROMFSYSTEM|" Then + If My.Application.User.Language <> "de-DE" Then + Me.Text = "Storage-Flow of dropped file" + Else + Me.Text = "Ablage-Flow - Dropped File" + End If + ElseIf pDropType = "|OUTLOOK_MESSAGE|" Or pDropType = "|FW_MSGONLY|" Then + Select Case pDropType + Case "|FW_MSGONLY|" + Logger.Info(".msg-file from folderwatch") + If My.Application.User.Language <> "de-DE" Then + Me.Text = "Storage-Flow - msg-File (without Attachments) - from Folderwatch" + Else + Me.Text = "Ablage-Flow - msg-Datei (ohne Anhang) - aus Folderwatch" + End If + Case "|OUTLOOK_MESSAGE|" + Logger.Info(".msg-file through dragdrop") + If My.Application.User.Language <> "de-DE" Then + Me.Text = "Storage-Flow - msg-File (without Attachments)" + Else + Me.Text = "Ablage-Flow - msg-Datei (ohne Anhang)" + End If + End Select + + ElseIf pDropType = "|MSGONLY|" Then + If My.Application.User.Language = "de-DE" Then + Me.Text = "Ablage-Flow der msg-Datei (ohne Anhang)" + Else + Me.Text = "Storage-Flow of msg-File (without Attachments)" + End If + ElseIf pDropType = "|ATTMNTEXTRACTED|" Or pDropType = "|OUTLOOK_ATTACHMENT|" Then + My.Application.Globix.CURRENT_ISATTACHMENT = True + + If My.Application.User.Language = "de-DE" Then + Me.Text = "Ablage-Flow eines Email-Attachments" + Else + Me.Text = "Storage-Flow of email-Attachment" + End If + ElseIf pDropType = "|FW_SIMPLEINDEXER|" Then + + If My.Application.User.Language = "de-DE" Then + Me.Text = "Ablage-Flow einer Folderwatch-Datei" + Else + Me.Text = "Storage-Flow of Folderwatch-File" + End If + End If + End If + End Sub + + Private Sub SetFilePreview(ShowPreview As Boolean) + If ShowPreview Then + SplitContainerControl1.Collapsed = False + PreviewFile() + PreviewItem.Checked = True + Else + SplitContainerControl1.Collapsed = True + PreviewItem.Checked = False + End If + End Sub + Sub PreviewFile() + Try + DocumentViewer1.LoadFile(My.Application.Globix.CurrentWorkfile.FilePath) + Catch ex As Exception + Me.Visible = False + FormHelper.ShowErrorMessage(ex, "Laden der Vorschau") + Me.Visible = True + End Try + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SourceDeleteItem.ItemClick + If SourceDeleteItem.Visibility <> DevExpress.XtraBars.BarItemVisibility.Never Then + My.Application.Globix.DeleteOriginalFile = SourceDeleteItem.Checked + My.UIConfig.Globix.DeleteOriginalFile = SourceDeleteItem.Checked + My.SystemConfigManager.Save() + End If + End Sub + + Private Sub SkipItem_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SkipItem.ItemClick + My.Database.ExecuteNonQueryECM($"DELETE FROM TBGI_FILES_USER WHERE GUID = {My.Application.Globix.CurrentWorkfile.Id}") + CancelAttempts = MAX_CANCEL_ATTEMPTS + Close() + End Sub + + Private Sub BarCheckItem3_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles chkMultiindexing.CheckedChanged + If chkMultiindexing.Checked Then + chkMultiindexing.Caption = "Active" + Else + chkMultiindexing.Caption = "Inactive" + End If + End Sub + + + Private Sub checkItemPreselection_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkItemPreselection.CheckedChanged + My.UIConfig.Globix.ProfilePreselection = checkItemPreselection.Checked + My.SystemConfigManager.Save() + End Sub + Sub Refresh_Dokart() + Try + Dim oDocTypes As New List(Of DocType) + Dim oSql = String.Format($"SELECT A.DOCTYPE_ID,A.USERNAME,DL.Doctype,A.OBJECT_ST_NAME, DL.Doctype_ID as IDBDoctype_ID,DL.LANG_CODE,A.SEQUENCE FROM VWGI_DOCTYPE_USER A INNER JOIN TBDD_DOKUMENTART DT ON A.DOCTYPE_ID = DT.GUID +INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_ID WHERE A.AKTIV = 1 AND A.USERNAME = '{My.Application.User.UserName}' AND DL.LANG_CODE = '{My.Application.User.Language}' ORDER BY A.SEQUENCE") + Dim oTable = Database.GetDatatable("VWGI_DOCTYPE_USER", oSql, ECM, + pSortByColumn:="SEQUENCE", + pFilterExpression:=$"AKTIV = 1 AND USERNAME = '{My.Application.User.UserName}' AND LANG_CODE = '{My.Application.User.Language}'") + + For Each oRow As DataRow In oTable.Rows + Dim oDocType = New DocType With { + .Guid = oRow.Item("DOCTYPE_ID"), + .Name = oRow.Item("Doctype"), + .ObjectStore = oRow.Item("OBJECT_ST_NAME"), + .IDB_DoctypeID = oRow.Item("IDBDoctype_ID") + } + + oDocTypes.Add(oDocType) + cmbDocType.Properties.Items.Add(oDocType) + Next + + DocTypes = oDocTypes + Catch ex As Exception + Me.Visible = False + FormHelper.ShowErrorMessage(ex, "Laden des Profils") + Me.Visible = True + End Try + End Sub + + + Private Sub ComboBoxEdit1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbDocType.SelectedIndexChanged + If cmbDocType.SelectedIndex <> -1 And FormLoaded = True Then + Dim oSelectedItem As DocType = cmbDocType.SelectedItem + + ClearNotice() + ClearError() + + pnlIndex.Controls.Clear() + + SelectedDocType = oSelectedItem + 'My.Application.Globix.CURRENT_DOCTYPE_DuplicateHandling = My.Application.Globix.CURR_DT_DOCTYPE.Rows(0).Item("DUPLICATE_HANDLING").ToString + + ManualIndexes = Refresh_IndexeMan(oSelectedItem.Guid) + LoadIndexe_Man(ManualIndexes) + + End If + End Sub + Private Function Refresh_IndexeMan(dokartid As Integer) As List(Of ManualIndex) + Dim oSql + Try + oSql = $"SELECT + T1.BEZEICHNUNG AS DOKUMENTART, T.* + FROM TBDD_INDEX_MAN T, + TBDD_DOKUMENTART T1 + WHERE T.DOK_ID = T1.GUID AND + T.DOK_ID = {dokartid} + ORDER BY T.SEQUENCE" + + Dim oTable = My.Database.GetDatatable("VWDDINDEX_MAN", oSql, ECM, + pSortByColumn:="SEQUENCE", + pFilterExpression:=$"DOK_ID = {dokartid}") + + Dim oManualIndexes As New List(Of ManualIndex) + + For Each oRow As DataRow In oTable.Rows + Dim oIndex As New ManualIndex With { + .Id = oRow.ItemEx(Of Integer)("GUID"), + .DocTypeId = oRow.ItemEx(Of Integer)("DOK_ID"), + .DocTypeName = oRow.ItemEx(Of String)("DOKUMENTART"), + .Name = oRow.ItemEx(Of String)("WD_INDEX"), + .InternalName = oRow.ItemEx(Of String)("INDEXNAME"), + .LabelCaption = oRow.ItemEx(Of String)("COMMENT"), + .DataType = oRow.ItemEx(Of String)("DATATYPE"), + .Sequence = oRow.ItemEx("SEQUENCE", 0), + .SQLCommand = oRow.ItemEx("SQL_RESULT", String.Empty), + .SQLConnection = oRow.ItemEx("CONNECTION_ID", 0), + .SQLSuggestion = oRow.ItemEx("SUGGESTION", String.Empty), + .DefaultValue = oRow.ItemEx("DEFAULT_VALUE", String.Empty), + .IsOptional = oRow.ItemEx(Of Integer)("OPTIONAL", False), + .IsMultiselect = oRow.ItemEx("MULTISELECT", False) + } + + oManualIndexes.Add(oIndex) + Next + + Return oManualIndexes + Catch ex As Exception + Logger.Error(ex) + Me.Visible = False + FormHelper.ShowErrorMessage(ex, "Unexpected error in Refresh_IndexeMan:") + Me.Visible = True + Return Nothing + + End Try + End Function + + Private Sub LoadIndexe_Man(pManualIndexes As List(Of ManualIndex)) + Try + Dim oScreen As New DigitalData.Modules.Windows.Screen() + Dim oDpiScale = oScreen.GetScreenScaling(Me) + + Dim oControlCount As Integer = 1 + Dim oLabelPosition As Integer = 11 * oDpiScale + Dim oControlPosition As Integer = 33 * oDpiScale + + Dim oControls As New ControlCreator(LogConfig, pnlIndex, Me) With { + .OnControlChanged = AddressOf PrepareDependingControl, + .OnLookupData = AddressOf GetLookupData + } + + pnlIndex.Visible = True + + Logger.Info("Loading Indicies for Screen Scaling Factor [{0}]", oDpiScale) + + If pManualIndexes Is Nothing OrElse pManualIndexes.Count = 0 Then + ShowError("Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDocType.Text & " definiert") + Logger.Info(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDocType.Text & " definiert") + End If + + For Each oIndex As ManualIndex In pManualIndexes + Dim MultiSelect As Boolean = oIndex.IsMultiselect + Dim AddNewItems As Boolean = oIndex.AllowAddingItems + Dim PreventDuplicates As Boolean = oIndex.PreventMultleValue + Dim oControlName As String = oIndex.Name + Dim oConnectionId = oIndex.SQLConnection + Dim oDataType = oIndex.DataType + + If oDataType <> "BOOLEAN" Then + Dim oLabel = oControls.AddLabel(oControlName, oIndex.LabelCaption, oLabelPosition, oControlCount) + pnlIndex.Controls.Add(oLabel) + End If + + 'Dim oDefaultValue = Check_HistoryValues(oControlName, oIndex.DocTypeName) + 'If oDefaultValue Is Nothing Then + ' 'oDefaultValue = GetPlaceholderValue(oIndex.DefaultValue, My.Application.Globix.CURRENT_WORKFILE) + 'End If + Dim oDefaultValue = GetPlaceholderValue(oIndex.DefaultValue, My.Application.Globix.CurrentWorkfile.FilePath) + Dim oControl As Control = Nothing + Dim oHasSqlCommand = (oConnectionId > 0 And oIndex.SQLCommand.Length > 0) + Dim oNeedsLookup As Boolean = oHasSqlCommand Or MultiSelect = True + + Select Case oIndex.DataType + Case "BOOLEAN" + Dim oCheckbox = oControls.AddCheckBox(oControlName, oControlPosition, oDefaultValue, oIndex.LabelCaption) + oControl = oCheckbox + + Case "INTEGER" + If oNeedsLookup Then + oControl = oControls.AddLookupControl(oControlName, oControlPosition, MultiSelect, oDataType, oIndex.SQLCommand, oConnectionId, oDefaultValue, AddNewItems, PreventDuplicates) + Else + oControl = oControls.AddTextBox(oControlName, oControlPosition, oDefaultValue, oDataType) + End If + + Case "VARCHAR" + If oNeedsLookup Then + oControl = oControls.AddLookupControl(oControlName, oControlPosition, MultiSelect, oDataType, oIndex.SQLCommand, oConnectionId, oDefaultValue, AddNewItems, PreventDuplicates) + Else + oControl = oControls.AddTextBox(oControlName, oControlPosition, oDefaultValue, oDataType) + End If + + Case "DATE" + oControl = oControls.AddDateTimePicker(oControlName, oControlPosition, oDataType) + + Case Else + Dim omsg As String + If My.Application.User.Language = "de-DE" Then + omsg = "Bitte überprüfen Sie den Datentyp des hinterlegten Indexwertes!" + Else + omsg = "Please check Datatype of Indexvalue!" + End If + Me.Visible = False + Dim oResult = FormHelper.ShowWarningMessage(omsg, "Index Load") + Me.Visible = True + Logger.Warn("DataType [{0}] not implemented!", oIndex.DataType) + End Select + + If Not IsNothing(oControl) Then + pnlIndex.Controls.Add(oControl) + End If + + oControlCount += 1 + oLabelPosition += 50 * oDpiScale + oControlPosition += 50 * oDpiScale + 'make y as height in fom + Next + Dim oPanelHeight = oControlPosition - 30 + + If pnlIndex.Height < oPanelHeight Then + If (Height - 315) < oPanelHeight Then + Height = (Height - 315) + oPanelHeight + End If + pnlIndex.Height = oPanelHeight + End If + + SendKeys.Send("{TAB}") + Catch ex As Exception + Logger.Error(ex) + Me.Visible = False + FormHelper.ShowErrorMessage(ex, "Unexpected error in LoadIndexe_Man:") + Me.Visible = True + End Try + End Sub + Private Sub PrepareDependingControl(pControl As Control) + If TypeOf pControl Is Label Then + Exit Sub + End If + + Try + Dim oMeta = DirectCast(pControl.Tag, ControlCreator.ControlMeta) + Dim oIndexName As String = oMeta.IndexName + Dim oSQL = $"SELECT * FROM TBDD_INDEX_MAN WHERE SQL_RESULT LIKE '%{oIndexName}%' AND DOK_ID = {SelectedDocType.Guid}" + Dim oDatatable As DataTable = My.Database.GetDatatableECM(oSQL) + + If Not IsNothing(oDatatable) Then + Logger.Debug("Found [{0}] depending controls for [{1}]", oDatatable.Rows.Count, pControl.Name) + + For Each oRow As DataRow In oDatatable.Rows + Dim oControlName As String = NotNull(oRow.Item("NAME"), "") + Dim oConnectionId As Integer = NotNull(oRow.Item("CONNECTION_ID"), -1) + Dim oControlSql As String = NotNull(oRow.Item("SQL_RESULT"), "") + + If oConnectionId = -1 Or oControlSql = String.Empty Then + Logger.Warn("Missing SQL Query or ConnectionId for Control [{0}]! Continuing.", oControlName) + Continue For + End If + + oControlSql = Patterns2.ReplaceInternalValues(oControlSql) + oControlSql = Patterns2.ReplaceUserValues(oControlSql, My.Application.User) + oControlSql = Patterns2.ReplaceControlValues(oControlSql, pnlIndex) + + Logger.Debug("Setting new value for [{0}]", oControlName) + SetDependingControlResult(oControlName, oControlSql, oConnectionId) + Next + End If + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub + Private Sub SetDependingControlResult(IndexName As String, pSqlCommand As String, SqlConnectionId As Integer) + Try + If pSqlCommand Is Nothing OrElse pSqlCommand = String.Empty Then + Logger.Warn("New Value for Index [{0}] could not be set. Supplied SQL is empty.") + Exit Sub + End If + + Dim oDatatable As DataTable = My.Database.GetDatatable(pSqlCommand, SqlConnectionId) + Dim oFoundControl As Control = Nothing + + For Each oControl As Control In pnlIndex.Controls + If TypeOf oControl Is Label Then + Continue For + End If + + Dim oMeta = DirectCast(oControl.Tag, ControlCreator.ControlMeta) + Dim oIndex As String = oMeta.IndexName + + If oIndex = IndexName Then + oFoundControl = oControl + Exit For + End If + Next + + If oFoundControl Is Nothing Then + Logger.Warn("Depending Control for Index [{0}] not found!", IndexName) + End If + + If oDatatable Is Nothing Then + Logger.Warn("Error in SQL Command: {0}", pSqlCommand) + End If + + Select Case oFoundControl.GetType.Name + Case GetType(DevExpress.XtraEditors.TextEdit).Name + If oDatatable.Rows.Count > 0 Then + Dim oFirstRow As DataRow = oDatatable.Rows.Item(0) + + If oFirstRow.ItemArray.Length > 0 Then + Dim oValue = oFirstRow.Item(0).ToString() + + Logger.Debug("Setting Value for TextEdit [{0}]: [{1}]", oFoundControl.Name, oValue) + DirectCast(oFoundControl, DevExpress.XtraEditors.TextEdit).Text = oValue + End If + End If + Case GetType(LookupControl3).Name + Logger.Debug("Setting Value for LookupControl [{0}]: [{1}]", oFoundControl.Name, "DATATABLE") + DirectCast(oFoundControl, LookupControl3).Properties.DataSource = oDatatable + Case GetType(Windows.Forms.ComboBox).Name + Logger.Debug("Setting Value for Combobox [{0}]: [{1}]", oFoundControl.Name, "DATATABLE") + DirectCast(oFoundControl, Windows.Forms.ComboBox).DataSource = oDatatable + Case Else + Logger.Debug("Could not set depending control result for [{0}]", oFoundControl.GetType.Name) + End Select + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub + Private Function GetLookupData(pLookup As LookupControl3, pSQLCommand As String, pConnectionId As Integer) + + Dim oConnectionString = Database.GetConnectionString(pConnectionId) + 'Dim oConnectionString = GetConnectionString(pConnectionId) + oConnectionString = MSSQLServer.DecryptConnectionString(oConnectionString) + + If oConnectionString IsNot Nothing And pSQLCommand.Length > 0 Then + Logger.Debug("Connection String (redacted): [{0}]", oConnectionString.Substring(0, 30)) + + If Patterns2.HasComplexPatterns(pSQLCommand) Then + Logger.Debug(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False) + Return Nothing + Else + pSQLCommand = Patterns2.ReplaceInternalValues(pSQLCommand) + pSQLCommand = Patterns2.ReplaceUserValues(pSQLCommand, My.Application.User) + + Dim oDatatable = My.Database.GetDatatable(pSQLCommand, pConnectionId) + Return oDatatable + End If + Else + Logger.Warn("Connection String for control [{0}] is empty!", pLookup.Name) + Return Nothing + End If + End Function + Function GetPlaceholderValue(InputValue As String, FileName As String) As String + Dim oResult As String = InputValue + Dim oFileInfo As New FileInfo(FileName) + + Dim oPatterns As New Modules.Patterns.Patterns2(My.LogConfig) + oResult = oPatterns.ReplaceInternalValues(oResult) + oResult = oPatterns.ReplaceFileValues(oResult, oFileInfo) + oResult = oPatterns.ReplaceUserValues(oResult, My.Application.User) + + Return oResult + End Function + + Sub ShowError(text As String) + labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + labelError.Caption = text + End Sub + + Sub ClearError() + labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + labelError.Caption = String.Empty + End Sub + + Sub ShowNotice(text As String) + labelNotice.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + labelNotice.Caption = text + End Sub + + Sub ClearNotice() + labelNotice.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + labelNotice.Caption = String.Empty + End Sub + + Private Sub frmGlobix_Index_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + If File.Exists(My.Application.Globix.CurrentWorkfile.FilePath) Then + Dim oMsg As String, oTitle As String + Select Case CancelAttempts + Case 0 + + If My.Application.User.Language = "de-DE" Then + oMsg = "Bitte indexieren Sie die Datei vollständig!" & vbNewLine & "(Abbruch 1 des Indexierungsvorgangs)" + oTitle = "Fehlende Eingaben" + Else + oMsg = "Please Index file completely" & vbNewLine & "(Abort 1 of Indexdialog)" + oTitle = "Missung Input" + End If + Me.TopMost = False + Me.Visible = False + Dim oResult = FormHelper.ShowWarningMessage(oMsg, oTitle) + Me.Visible = True + CancelAttempts += 1 + e.Cancel = True + Case 1 + + If My.Application.User.Language = "de-DE" Then + oMsg = "Sie brechen nun zum zweiten Mal den Indexierungsvorgang ab!" & vbNewLine & "Wollen Sie die Indexierung aller Dateien abbrechen?" + oTitle = "Fehlende Eingaben" + Else + oMsg = "You abort the indexdialog for the 2nd time!" & vbNewLine & "Do You want to abort indexing?" + oTitle = "Missung Input" + End If + Me.Visible = False + Dim oResult = FormHelper.ShowQuestionMessage(oMsg, oTitle) + Me.Visible = True + If oResult = DialogResult.Yes Then + Dim containsfw_file As Boolean = False + Try + My.Application.Globix.ABORT_INDEXING = True + Dim sql As String = $"SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND USER@WORK = '{My.Application.User.UserName}'" + Dim DT As DataTable = My.Database.GetDatatableECM(sql) + + Dim anz = DT.Rows.Count + For Each Filerow As DataRow In DT.Rows + Dim filestring As String = Filerow.Item("FILENAME2WORK") + Dim handletype As String = Filerow.Item("HANDLE_TYPE") + + If handletype = "|MSGONLY|" Or handletype = "|ATTMNTEXTRACTED|" Then + Try + System.IO.File.Delete(filestring) + Catch ex As Exception + + End Try + + ElseIf handletype.StartsWith("|FW") Then + containsfw_file = True + End If + Next + 'Zuerst die Daten des Ablaufs löschen + If My.Database.ExecuteNonQueryECM($"DELETE FROM TBGI_FILES_USER WHERE USER@WORK = '{My.Application.User.UserName}'") = True Then + If containsfw_file = True Then + Me.Visible = False + If My.Application.User.Language = "de-DE" Then + FormHelper.ShowInfoMessage("Der Indexierungsprozess beinhaltete (auch) Dateien per Folderwatch!" & vbNewLine & "Diese Dateien wurden nicht gelöscht und verbleiben im Folderwatch-Verzeichnis!" & vbNewLine & "Bitte verschieben Sie die Dateien ggfls.", "Hinweis") + Else + FormHelper.ShowInfoMessage("The Indexingprocess contained (also) files from folderwatch!" & vbNewLine & "These files weren't deleted and will stay in the folderwatch-folder!" & vbNewLine & "Please move these files manually.", "Attention") + End If + Me.Visible = True + End If + End If + + + Catch ex As Exception + Logger.Error(ex) + Me.Visible = False + FormHelper.ShowErrorMessage(ex, "Unexpected Error in Abort Indexing") + Me.Visible = True + End Try + + Try + My.Application.Globix.INDEXING_ACTIVE = False + + DocumentViewer1.CloseDocument() + DocumentViewer1.Done() + WindowLocation.SaveFormLocationSize(Me) + My.Settings.Save() + Catch ex As Exception + Logger.Info(" - Unexpected error in Schliessen des Formulares - Fehler: " & vbNewLine & ex.Message) + Logger.Error(ex.Message) + Me.Visible = False + FormHelper.ShowErrorMessage(ex, "Unexpected error in FormClosing:") + Me.Visible = True + End Try + + e.Cancel = False + Else + e.Cancel = True + End If + Case Else + Try + My.Application.Globix.INDEXING_ACTIVE = False + + DocumentViewer1.CloseDocument() + DocumentViewer1.Done() + WindowLocation.SaveFormLocationSize(Me) + My.Settings.Save() + Catch ex As Exception + Logger.Warn(" - Unexpected error in Schliessen des Formulares2 - Fehler: " & vbNewLine & ex.Message) + Logger.Error(ex) + Me.Visible = False + FormHelper.ShowErrorMessage(ex, "Unexpected error in FormClosing2:") + Me.Visible = True + End Try + End Select + Else + My.Application.Globix.INDEXING_ACTIVE = False + End If + End Sub + + Private Async Function GlobixFlowNew(pDocType As DocType) As Threading.Tasks.Task(Of Boolean) + Try + ClearError() + ClearNotice() + Cursor = Cursors.WaitCursor + + Logger.Info("Validating user values") + + Dim oValidator As New ClassValidator(My.LogConfig, My.Application.Service.Client, ManualIndexes) + If oValidator.ValidateControls(pnlIndex, pDocType) = False Then + Return False + End If + + Logger.Info("Collecting user values") + + Dim oValues = oValidator.GetControlValues(pnlIndex) + + Logger.Info("Preparing method parameters") + + Dim oFilePath As String = My.Application.Globix.CurrentWorkfile.FilePath + Dim oObjectStore As String = SelectedDocType.ObjectStore + Dim oIDBDoctypeId As Long = SelectedDocType.IDB_DoctypeID + Dim oObjectKind As String = "DOC" + Dim oProfileId As Integer = SelectedDocType.Guid + Dim oAttributes As List(Of UserAttributeValue) = oValues + Dim oOptions As New Options.ImportFileOptions + + Logger.Debug("FilePath: [{0}]", oFilePath) + Logger.Debug("ObjectStore: [{0}]", oObjectStore) + Logger.Debug("ObjectKind: [{0}]", oObjectKind) + Logger.Debug("ProfileId: [{0}]", oProfileId) + Logger.Debug("IDB DoctypeId: [{0}]", oIDBDoctypeId) + + Logger.Info("Running Import") + + Dim oResult = Await My.Application.Service.Client.Globix_ImportFileAsync( + oFilePath, oProfileId, oAttributes, oObjectStore, oObjectKind, oIDBDoctypeId, oOptions) + + Logger.Info("Import result: [{0}]", oResult.OK) + Logger.Info("Imported file got ObjectId [{0}]", oResult.ObjectId) + + If oResult.OK Then + Return True + Else + Logger.Warn("Import failed with message: [{0}] and details [{1}]", oResult.ErrorMessage, oResult.ErrorDetails) + Dim oMsg As String, oTitle As String + If My.Application.User.Language = "de-DE" Then + oMsg = $"Die Datei wurde nicht verarbeitet.{vbNewLine}{vbNewLine}Fehler: {oResult.ErrorMessage}" + oTitle = "Achtung" + Else + oMsg = $"Unexpected Error in FileFlow{vbNewLine}{vbNewLine}Fehler: {oResult.ErrorMessage}" + oTitle = "Attention" + End If + FormHelper.ShowWarningMessage(oMsg, oTitle) + + Return False + End If + + Catch ex As Exception + Logger.Error(ex) + Me.TopMost = False + FormHelper.ShowErrorMessage(ex, Text) + Return False + + Finally + Cursor = Cursors.Default + + End Try + End Function + + Private Async Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click + Dim oDokart As DocType = cmbDocType.SelectedItem + + If oDokart Is Nothing Then + Exit Sub + End If + + Logger.Info("Importing file with DocumentType [{0}]", oDokart.Name) + Dim oResult = Await GlobixFlowNew(oDokart) + If oResult = True Then + oSuccess = True + Dim oDEL As String = "DELETE FROM TBGI_FILES_USER WHERE GUID = " & My.Application.Globix.CurrentWorkfile.Id + My.DatabaseECM.ExecuteNonQuery(oDEL) + DocumentViewer1.CloseDocument() + DocumentViewer1.Done() + CancelAttempts = MAX_CANCEL_ATTEMPTS + + If My.Application.Globix.DeleteOriginalFile = True Or My.Application.Globix.CurrentWorkfile.HotfolderFile = True Then + Logger.Info("File [" & My.Application.Globix.CurrentWorkfile.FilePath & "] will be deleted...") + Try + System.IO.File.Delete(My.Application.Globix.CurrentWorkfile.FilePath) + Catch ex As Exception + Logger.Error(ex) + End Try + Logger.Info("File [" & My.Application.Globix.CurrentWorkfile.FilePath & "] has been deleted.") + End If + Close() + End If + End Sub + + + + Private Sub PreviewItem_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles PreviewItem.CheckedChanged + If FormLoaded Then + SetFilePreview(PreviewItem.Checked) + End If + End Sub + + Private Sub checkItemTopMost_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkItemTopMost.CheckedChanged + If FormLoaded Then + My.UIConfig.Globix.TopMost = checkItemTopMost.Checked + My.UIConfigManager.Save() + End If + End Sub + + Private Function GetMessageBoxArgs() As XtraMessageBoxArgs + Dim oArgs As New XtraMessageBoxArgs With { + .LookAndFeel = LookAndFeel, + .Text = "Die Datei wurde erfolgreich verarbeitet!", + .Caption = Text, + .DoNotShowAgainCheckBoxVisible = True + } + AddHandler oArgs.Closed, AddressOf MessageboxClosed + AddHandler oArgs.Load, AddressOf MessageboxLoad + Return oArgs + End Function + + Private Sub MessageboxClosed(sender As Object, e As XtraMessageBoxClosedArgs) + Dim oShowMessageBoxNextTime = e.Visible + My.UIConfig.Globix.ShowSuccessMessageBox = oShowMessageBoxNextTime + My.UIConfigManager.Save() + End Sub + + Private Sub MessageboxLoad(sender As Object, e As XtraMessageBoxLoadArgs) + e.Visible = My.UIConfig.Globix.ShowSuccessMessageBox + End Sub + + +End Class diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobix_IndexFileList.Designer.vb b/GUIs.ZooFlow/Modules/Globix/frmGlobix_IndexFileList.Designer.vb new file mode 100644 index 0000000..cb6d91b --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobix_IndexFileList.Designer.vb @@ -0,0 +1,156 @@ + _ +Partial Class frmGlobix_IndexFileList + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGlobix_IndexFileList)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.CheckedListBox1 = New System.Windows.Forms.CheckedListBox() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 5 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.Size = New System.Drawing.Size(617, 157) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Alle auswählen" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + Me.BarButtonItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Alle abwählen" + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem2.Name = "BarButtonItem2" + Me.BarButtonItem2.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Starte Indexierung" + Me.BarButtonItem3.Id = 3 + Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'BarButtonItem4 + ' + Me.BarButtonItem4.Caption = "Abbrechen" + Me.BarButtonItem4.Id = 4 + Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem4.Name = "BarButtonItem4" + Me.BarButtonItem4.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Start" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem4) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "Indexierung" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Auswählen" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 375) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(617, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'CheckedListBox1 + ' + Me.CheckedListBox1.Dock = System.Windows.Forms.DockStyle.Fill + Me.CheckedListBox1.FormattingEnabled = True + Me.CheckedListBox1.Location = New System.Drawing.Point(0, 157) + Me.CheckedListBox1.Name = "CheckedListBox1" + Me.CheckedListBox1.Size = New System.Drawing.Size(617, 218) + Me.CheckedListBox1.TabIndex = 2 + ' + 'frmGlobix_IndexFileList + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(617, 397) + Me.Controls.Add(Me.CheckedListBox1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = CType(resources.GetObject("frmGlobix_IndexFileList.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmGlobix_IndexFileList" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Zu indexierende Dateien:" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents CheckedListBox1 As CheckedListBox +End Class diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobix_IndexFileList.resx b/GUIs.ZooFlow/Modules/Globix/frmGlobix_IndexFileList.resx new file mode 100644 index 0000000..3a75c00 --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobix_IndexFileList.resx @@ -0,0 +1,251 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk + aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp + c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41 + O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7 + ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp + c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJTZWN1cml0eV94NUZf + UGVybWlzc2lvbl94NUZfT2JqZWN0Ij4NCiAgICA8cG9seWdvbiBwb2ludHM9IjAsNCAyNCw0IDI0LDgg + MTQsMTggMTQsMjYgMTAsMzAgMTAsMTggMCw4ICAiIGNsYXNzPSJZZWxsb3ciIC8+DQogICAgPHBhdGgg + ZD0iTTI0LDE0Yy00LjQsMC04LDMuNi04LDhzMy42LDgsOCw4czgtMy42LDgtOFMyOC40LDE0LDI0LDE0 + eiBNMjIuNSwyNkwxOSwyMi41bDEuNS0xLjVsMiwybDUtNWwxLjUsMS41ICAgTDIyLjUsMjZ6IiBjbGFz + cz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJfRmlsdGVyIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3 + IDAgMCAzMiAzMiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuWWVsbG93e2ZpbGw6I0ZGQjEx + NTt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cjwvc3R5bGU+DQogIDxwb2x5Z29uIHBvaW50cz0iNCwyIDI4 + LDIgMjgsNiAxOCwxNiAxOCwyNiAxNCwzMCAxNCwxNiA0LDYgIiBjbGFzcz0iWWVsbG93IiAvPg0KICA8 + cG9seWdvbiBwb2ludHM9IjMyLDIwIDMwLDE4IDI2LDIyIDIyLDE4IDIwLDIwIDI0LDI0IDIwLDI4IDIy + LDMwIDI2LDI2IDMwLDMwIDMyLDI4IDI4LDI0ICIgY2xhc3M9IlJlZCIgLz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANoCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iR2V0dGluZ1N0YXJ0ZWQiPg0KICAg + IDxwYXRoIGQ9Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMy + My43LDIsMTYsMnogTTEyLDIyVjEwbDEwLDZMMTIsMjJ6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N + Cjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAM0DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQ2xvc2UiPg0KICAgIDxwYXRoIGQ9 + Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs + MnogTTIzLjcsMjEuN2MwLjQsMC40LDAuNCwxLDAsMS40bC0wLjYsMC42ICAgYy0wLjQsMC40LTEsMC40 + LTEuNCwwTDE2LDE4bC01LjcsNS43Yy0wLjQsMC40LTEsMC40LTEuNCwwbC0wLjYtMC42Yy0wLjQtMC40 + LTAuNC0xLDAtMS40TDE0LDE2bC01LjctNS43Yy0wLjQtMC40LTAuNC0xLDAtMS40ICAgbDAuNi0wLjZj + MC40LTAuNCwxLTAuNCwxLjQsMEwxNiwxNGw1LjctNS43YzAuNC0wLjQsMS0wLjQsMS40LDBsMC42LDAu + NmMwLjQsMC40LDAuNCwxLDAsMS40TDE4LDE2TDIzLjcsMjEuN3oiIGNsYXNzPSJSZWQiIC8+DQogIDwv + Zz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANYIAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGlzdE51bWJlcnMiIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpuZXcg + MCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDojRDExQzFDO30K + CS5CbGFja3tmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8cGF0aCBkPSJNMzAsOEgxMlY2aDE4Vjh6 + IE0zMCwxOEgxMnYtMmgxOFYxOHogTTMwLDI4SDEydi0yaDE4VjI4eiIgY2xhc3M9IkJsYWNrIiAvPg0K + ICA8cGF0aCBkPSJNNiwydjhINFY1LjNsLTIsMFYzLjdsMC4yLDBjMC4yLDAsMC41LDAsMC43LTAuMWMw + LjMsMCwwLjUtMC4xLDAuNy0wLjNjMC4yLTAuMSwwLjQtMC4zLDAuNS0wLjUgIGMwLjEtMC4yLDAuMi0w + LjQsMC4zLTAuN2wwLTAuMUg2eiBNOCwyMHYtMS42SDQuNkM0LjcsMTguMiw0LjksMTguMSw1LDE4YzAu + Mi0wLjIsMC41LTAuNCwwLjctMC41YzAuMy0wLjIsMC41LTAuMywwLjgtMC41ICBjMC4zLTAuMiwwLjUt + MC40LDAuNy0wLjZjMC4yLTAuMiwwLjQtMC41LDAuNS0wLjhjMC4xLTAuMywwLjItMC42LDAuMi0xYzAt + MC40LTAuMS0wLjctMC4yLTEuMWMtMC4xLTAuMy0wLjQtMC42LTAuNi0wLjggIGMtMC4zLTAuMi0wLjUt + MC40LTAuOS0wLjVjLTAuMy0wLjEtMC43LTAuMi0xLTAuMmMtMC41LDAtMC45LDAuMS0xLjMsMC4yYy0w + LjQsMC4yLTAuNywwLjQtMC45LDAuN2MtMC4yLDAuMy0wLjQsMC42LTAuNSwxICBjLTAuMSwwLjQtMC4y + LDAuOC0wLjIsMS4zbDAsMC4xaDEuOHYtMC4xYzAtMC4yLDAtMC40LDAuMS0wLjZjMC0wLjIsMC4xLTAu + NCwwLjItMC41YzAuMS0wLjEsMC4yLTAuMywwLjMtMC40ICBjMC4xLTAuMSwwLjMtMC4xLDAuNS0wLjFj + MC4zLDAsMC41LDAuMSwwLjcsMC4zYzAuMiwwLjIsMC4zLDAuNCwwLjMsMC44YzAsMC4yLDAsMC40LTAu + MSwwLjVjLTAuMSwwLjItMC4yLDAuMy0wLjQsMC41ICBjLTAuMSwwLjEtMC4zLDAuMy0wLjUsMC40Yy0w + LjIsMC4xLTAuNCwwLjItMC41LDAuNEM0LjMsMTYuNiw0LDE2LjgsMy43LDE3Yy0wLjMsMC4yLTAuNiww + LjUtMC44LDAuN2MtMC4yLDAuMy0wLjQsMC42LTAuNSwwLjkgIGMtMC4xLDAuMy0wLjIsMC43LTAuMiwx + LjJWMjBIOHogTTYuMSwyOS44YzAuMy0wLjEsMC43LTAuMywwLjktMC41YzAuMy0wLjIsMC41LTAuNSww + LjYtMC44QzcuOSwyOC4yLDgsMjcuOCw4LDI3LjQgIGMwLTAuNS0wLjEtMC45LTAuNC0xLjJjLTAuMi0w + LjItMC40LTAuNC0wLjctMC41YzAuMi0wLjEsMC40LTAuMywwLjUtMC41YzAuMi0wLjMsMC4zLTAuNiww + LjMtMWMwLTAuNC0wLjEtMC43LTAuMi0xICBjLTAuMi0wLjMtMC40LTAuNS0wLjYtMC43Yy0wLjItMC4y + LTAuNS0wLjMtMC44LTAuNEM1LjcsMjIsNS40LDIyLDUuMSwyMmMtMC40LDAtMC44LDAuMS0xLjEsMC4y + Yy0wLjMsMC4xLTAuNiwwLjMtMC45LDAuNiAgYy0wLjIsMC4yLTAuNCwwLjUtMC42LDAuOWMtMC4xLDAu + My0wLjIsMC43LTAuMiwxLjFsMCwwLjFoMS43bDAtMC4xYzAtMC4zLDAuMS0wLjYsMC4zLTAuOWMwLjIt + MC4yLDAuNC0wLjMsMC44LTAuMyAgYzAuMiwwLDAuNSwwLjEsMC42LDAuMkM1LjksMjMuOSw2LDI0LjEs + NiwyNC40YzAsMC4yLDAsMC4zLTAuMSwwLjRDNS44LDI0LjksNS42LDI1LDUuNSwyNWMtMC4xLDAuMS0w + LjMsMC4xLTAuNSwwLjEgIGMtMC4xLDAtMC4yLDAtMC4zLDBjLTAuMSwwLTAuMiwwLTAuMiwwbC0wLjIs + MHYxLjRoMC4xYzAuMiwwLDAuNCwwLDAuNiwwYzAuMiwwLDAuNCwwLDAuNSwwLjFjMC4xLDAuMSwwLjMs + MC4xLDAuNCwwLjMgIGMwLjEsMC4xLDAuMSwwLjMsMC4xLDAuNmMwLDAuMy0wLjEsMC42LTAuMywwLjdj + LTAuMiwwLjItMC41LDAuMy0wLjgsMC4zYy0wLjIsMC0wLjQsMC0wLjUtMC4xYy0wLjEtMC4xLTAuMy0w + LjItMC40LTAuMyAgQzQuMSwyOCw0LDI3LjgsNCwyNy43Yy0wLjEtMC4yLTAuMS0wLjMtMC4xLTAuNWww + LTAuMUgyLjJsMCwwLjFjMCwwLjQsMC4xLDAuOSwwLjIsMS4yYzAuMSwwLjQsMC4zLDAuNywwLjYsMC45 + ICBjMC4zLDAuMiwwLjYsMC40LDAuOSwwLjZDNC4yLDI5LjksNC42LDMwLDUuMSwzMEM1LjQsMzAsNS44 + LDI5LjksNi4xLDI5Ljh6IiBjbGFzcz0iUmVkIiAvPg0KPC9zdmc+Cw== + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobix_IndexFileList.vb b/GUIs.ZooFlow/Modules/Globix/frmGlobix_IndexFileList.vb new file mode 100644 index 0000000..96c37e5 --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobix_IndexFileList.vb @@ -0,0 +1,17 @@ +Public Class frmGlobix_IndexFileList + Private Sub frmGlobixIndexFileList_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + Dim oSQL = $"Select * From TBGI_FILES_USER Where WORKED = 0 And (UPPER([USER@WORK]) = UPPER('{My.Application.User.UserName}'))" + Dim oDT As DataTable = My.DatabaseECM.GetDatatable(oSQL) + If oDT.Rows.Count > 0 Then + CheckedListBox1.DataSource = oDT + CheckedListBox1.DisplayMember = oDT.Columns("FILENAME_ONLY").ColumnName + CheckedListBox1.ValueMember = oDT.Columns(0).ColumnName + + End If + Catch ex As Exception + MsgBox("Unexpected error while loading data: " & ex.Message, vbCritical) + End Try + End Sub +End Class + diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobix_Result.Designer.vb b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Result.Designer.vb new file mode 100644 index 0000000..ac1d953 --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Result.Designer.vb @@ -0,0 +1,223 @@ + _ +Partial Class frmGlobix_Result + Inherits DevExpress.XtraEditors.XtraForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGlobix_Result)) + Me.LabelControl4 = New DevExpress.XtraEditors.LabelControl() + Me.LabelControl3 = New DevExpress.XtraEditors.LabelControl() + Me.LabelControl2 = New DevExpress.XtraEditors.LabelControl() + Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl() + Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit() + Me.PictureEdit2 = New DevExpress.XtraEditors.PictureEdit() + Me.PictureEdit3 = New DevExpress.XtraEditors.PictureEdit() + Me.PictureEdit4 = New DevExpress.XtraEditors.PictureEdit() + Me.PictureEdit5 = New DevExpress.XtraEditors.PictureEdit() + Me.SimpleButton3 = New DevExpress.XtraEditors.SimpleButton() + CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'LabelControl4 + ' + Me.LabelControl4.Appearance.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LabelControl4.Appearance.ForeColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.LabelControl4.Appearance.Options.UseFont = True + Me.LabelControl4.Appearance.Options.UseForeColor = True + Me.LabelControl4.Appearance.Options.UseTextOptions = True + Me.LabelControl4.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.LabelControl4.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.LabelControl4.ImageOptions.Alignment = System.Drawing.ContentAlignment.MiddleLeft + Me.LabelControl4.Location = New System.Drawing.Point(106, 159) + Me.LabelControl4.Name = "LabelControl4" + Me.LabelControl4.Size = New System.Drawing.Size(374, 32) + Me.LabelControl4.TabIndex = 9 + Me.LabelControl4.Text = "Virtuelle Ordner erzeugt" + ' + 'LabelControl3 + ' + Me.LabelControl3.Appearance.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LabelControl3.Appearance.ForeColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.LabelControl3.Appearance.Options.UseFont = True + Me.LabelControl3.Appearance.Options.UseForeColor = True + Me.LabelControl3.Appearance.Options.UseTextOptions = True + Me.LabelControl3.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.LabelControl3.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.LabelControl3.ImageOptions.Alignment = System.Drawing.ContentAlignment.MiddleLeft + Me.LabelControl3.Location = New System.Drawing.Point(106, 121) + Me.LabelControl3.Name = "LabelControl3" + Me.LabelControl3.Size = New System.Drawing.Size(374, 32) + Me.LabelControl3.TabIndex = 8 + Me.LabelControl3.Text = "Namenkonvention angewendet" + ' + 'LabelControl2 + ' + Me.LabelControl2.Appearance.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LabelControl2.Appearance.ForeColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.LabelControl2.Appearance.Options.UseFont = True + Me.LabelControl2.Appearance.Options.UseForeColor = True + Me.LabelControl2.Appearance.Options.UseTextOptions = True + Me.LabelControl2.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.LabelControl2.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.LabelControl2.ImageOptions.Alignment = System.Drawing.ContentAlignment.MiddleLeft + Me.LabelControl2.Location = New System.Drawing.Point(106, 83) + Me.LabelControl2.Name = "LabelControl2" + Me.LabelControl2.Size = New System.Drawing.Size(374, 32) + Me.LabelControl2.TabIndex = 7 + Me.LabelControl2.Text = "Automatische Attribute gefüllt" + ' + 'LabelControl1 + ' + Me.LabelControl1.Appearance.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LabelControl1.Appearance.ForeColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.LabelControl1.Appearance.Options.UseFont = True + Me.LabelControl1.Appearance.Options.UseForeColor = True + Me.LabelControl1.Appearance.Options.UseTextOptions = True + Me.LabelControl1.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.LabelControl1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.LabelControl1.ImageOptions.Alignment = System.Drawing.ContentAlignment.MiddleLeft + Me.LabelControl1.Location = New System.Drawing.Point(106, 45) + Me.LabelControl1.Name = "LabelControl1" + Me.LabelControl1.Size = New System.Drawing.Size(374, 32) + Me.LabelControl1.TabIndex = 6 + Me.LabelControl1.Text = "Datei in ZooFlow importiert" + ' + 'PictureEdit1 + ' + Me.PictureEdit1.EditValue = CType(resources.GetObject("PictureEdit1.EditValue"), Object) + Me.PictureEdit1.Location = New System.Drawing.Point(515, 45) + Me.PictureEdit1.Name = "PictureEdit1" + Me.PictureEdit1.Properties.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer)) + Me.PictureEdit1.Properties.Appearance.Options.UseBackColor = True + Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto] + Me.PictureEdit1.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom + Me.PictureEdit1.Size = New System.Drawing.Size(185, 146) + Me.PictureEdit1.TabIndex = 10 + ' + 'PictureEdit2 + ' + Me.PictureEdit2.EditValue = CType(resources.GetObject("PictureEdit2.EditValue"), Object) + Me.PictureEdit2.Location = New System.Drawing.Point(52, 45) + Me.PictureEdit2.Name = "PictureEdit2" + Me.PictureEdit2.Properties.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer)) + Me.PictureEdit2.Properties.Appearance.Options.UseBackColor = True + Me.PictureEdit2.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto] + Me.PictureEdit2.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom + Me.PictureEdit2.Size = New System.Drawing.Size(39, 32) + Me.PictureEdit2.TabIndex = 11 + ' + 'PictureEdit3 + ' + Me.PictureEdit3.EditValue = CType(resources.GetObject("PictureEdit3.EditValue"), Object) + Me.PictureEdit3.Location = New System.Drawing.Point(52, 83) + Me.PictureEdit3.Name = "PictureEdit3" + Me.PictureEdit3.Properties.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer)) + Me.PictureEdit3.Properties.Appearance.Options.UseBackColor = True + Me.PictureEdit3.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto] + Me.PictureEdit3.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom + Me.PictureEdit3.Size = New System.Drawing.Size(39, 32) + Me.PictureEdit3.TabIndex = 12 + ' + 'PictureEdit4 + ' + Me.PictureEdit4.EditValue = CType(resources.GetObject("PictureEdit4.EditValue"), Object) + Me.PictureEdit4.Location = New System.Drawing.Point(52, 121) + Me.PictureEdit4.Name = "PictureEdit4" + Me.PictureEdit4.Properties.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer)) + Me.PictureEdit4.Properties.Appearance.Options.UseBackColor = True + Me.PictureEdit4.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto] + Me.PictureEdit4.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom + Me.PictureEdit4.Size = New System.Drawing.Size(39, 32) + Me.PictureEdit4.TabIndex = 13 + ' + 'PictureEdit5 + ' + Me.PictureEdit5.EditValue = CType(resources.GetObject("PictureEdit5.EditValue"), Object) + Me.PictureEdit5.Location = New System.Drawing.Point(52, 159) + Me.PictureEdit5.Name = "PictureEdit5" + Me.PictureEdit5.Properties.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer)) + Me.PictureEdit5.Properties.Appearance.Options.UseBackColor = True + Me.PictureEdit5.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto] + Me.PictureEdit5.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom + Me.PictureEdit5.Size = New System.Drawing.Size(39, 32) + Me.PictureEdit5.TabIndex = 14 + ' + 'SimpleButton3 + ' + Me.SimpleButton3.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer)) + Me.SimpleButton3.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SimpleButton3.Appearance.ForeColor = System.Drawing.Color.Black + Me.SimpleButton3.Appearance.Options.UseBackColor = True + Me.SimpleButton3.Appearance.Options.UseFont = True + Me.SimpleButton3.Appearance.Options.UseForeColor = True + Me.SimpleButton3.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton3.Location = New System.Drawing.Point(515, 197) + Me.SimpleButton3.Name = "SimpleButton3" + Me.SimpleButton3.Size = New System.Drawing.Size(185, 42) + Me.SimpleButton3.TabIndex = 4 + Me.SimpleButton3.Text = "Datei anzeigen" + ' + 'frmGlobix_Result + ' + Me.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer)) + Me.Appearance.Options.UseBackColor = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(764, 252) + Me.Controls.Add(Me.SimpleButton3) + Me.Controls.Add(Me.PictureEdit5) + Me.Controls.Add(Me.PictureEdit4) + Me.Controls.Add(Me.PictureEdit3) + Me.Controls.Add(Me.PictureEdit2) + Me.Controls.Add(Me.PictureEdit1) + Me.Controls.Add(Me.LabelControl4) + Me.Controls.Add(Me.LabelControl3) + Me.Controls.Add(Me.LabelControl2) + Me.Controls.Add(Me.LabelControl1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "frmGlobix_Result" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "frmGlobix_Result" + Me.TopMost = True + CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents LabelControl4 As DevExpress.XtraEditors.LabelControl + Friend WithEvents LabelControl3 As DevExpress.XtraEditors.LabelControl + Friend WithEvents LabelControl2 As DevExpress.XtraEditors.LabelControl + Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl + Friend WithEvents PictureEdit1 As DevExpress.XtraEditors.PictureEdit + Friend WithEvents PictureEdit2 As DevExpress.XtraEditors.PictureEdit + Friend WithEvents PictureEdit3 As DevExpress.XtraEditors.PictureEdit + Friend WithEvents PictureEdit4 As DevExpress.XtraEditors.PictureEdit + Friend WithEvents PictureEdit5 As DevExpress.XtraEditors.PictureEdit + Friend WithEvents SimpleButton3 As DevExpress.XtraEditors.SimpleButton +End Class diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobix_Result.resx b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Result.resx new file mode 100644 index 0000000..a4bc32e --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Result.resx @@ -0,0 +1,546 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL + EwAACxMBAJqcGAAATUlJREFUeF7t3QvcbVO9//GdSwgnKtf+p07RhdLRSZIkt4PTiVQqt1NCinQ5KE51 + yD3UvyS5hZBKosupgwrFkaROfxGVOqUoRO4hdP7f795r22uv/Xv2s9Z61hxzjDE/39fr/Xp5bc/zzLHm + HHOMueYcc4xZhJDss6isJH8vm8q2spvsK4fKcXKW/Id8Uy6TH8t1cqPcLnf1uU/+d4D/rf9n/Dv+Xf8N + /y3/Tf9tb8Pb+qR42y6Dy+IyuWwvEJfVZSaEEELIFHmSuGN/lewpR8hn5dtyjdwqj8pgh507l9ll92fw + Z/FnOlz8Gf1Z/Zn92QkhhJAqs4g8TTaR3eVIOU+ulnsl6jy7xPvA++Jc8b7xPtpYvM+87wghhJCs485q + NdlK9pcz5IcS3W7HcLzvvA+9L71PvW+9j7kwIIQQ0kqWkHXEz779/P0KoaNPx/va+9zjEHwMXiQ+JoQQ + QsjE4m+bz5Nd5WTxgLiHJeqY0J6/iI/NSeJj5WPGnQJCCCFDZ1nZQg4Wj3r3iPiow0H+fOx8DA8SH9Nl + hBBCCJmd5cXPlo+WK4Vv9/XysfUx9rH2mwg+9oQQQjqSpWRz8YjzH0mJr9hhMnzsXQdcF1wnXDcIIYRU + FD8P3kculAck6gyAP4vriOvKGkIIIaSweES4v9EdI7+UqLEHpuO64zrkusRbBoQQkmn8PPfN8mVhgh1M + muvUl+RNspwQQghpMSvIW+UC8WtgUcMNTJrr2vniOQhcBwkhhCTIU2QPuVgekaiBBlJxHbxIXCddNwkh + hEwwS8sO8nXhmz5y5brpOuq66jpLCCFkjHg52X8SLz3LNLsojeus667rMEsjE0LIEHmWeNnYmyRqWIHS + /E4OE9dtQgghffEUrbvIZfJXiRpRoHSu25fKzsIjAkJIp+MJeo4V5ttH19wprvtrCiGEdCKPl+3F34Si + hhHomu+KzwmfG4QQUl1WkUPkNokaQaDrfG74HPG5QgghxeeFcro8JFGjB2B+Pld8zvjcIYSQorKIvFou + kaiBAzAcn0M+l3xOEUJItvEzTI/mv16ixgzAeHxO+dxinAAhJKv4NT4vocq7+0CzfI75XPM5RwghrcWr + oh0kfqUpaqwANMPn3IeElQkJIUnjpXcPFt7fB9rlCwFfhPucJISQxvIk8WtKdPxAXnxO+qKcCwFCyESz + rBwgd0vU+ADIgy8EPiBMNUwImVGWkHfLrRI1NgDy5HPW567PYUIIGTpevtQLlvxGosYFQBl8DvtcZkli + Qsi02UKukagxAVCmn4jPbUIIWSDPlwskajwA1OF88SqchBAya2U5SR6RqMEAUBef6yfKSkII6WAWF88o + xsh+oJt87rsNcFtACOlINhfm6wdgbgs2EUJIxXmafFGiRgBAt7ltcBtBCKkovsW3n9wv0YkPAOY24n3C + YwFCKsj64leAopMdACJXy0uFEFJgvErYCfKoRCc4ACyM245PCSsOElJQtpU/SHRSA8Aofi9uUwghGWdF + OUeikxgAZsJti9sYQkhm2Un+KNGJCwCT4DZmOyGEZJBV5GsSnawA0AS3OW57CCEt5fVyh0QnKAA06XZh + bAAhieNRuWdIdFICQEpui3hTgJAE2VhulOhEBIA2uE1y20QIaSCPl6PlrxKdgADQJs8bcJS4rSKETCir + y1USnXQAkJMfyGpCCJlhdpR7JDrRACBHXmp4ByGEjJFl5HSJTi50l9/Dvk4uki/IsXKIeF33XeV1spls + IC+Q54hXeFtentjzBBnM0jL3/5t/5xmylnhOeP9N/21vw9vyNr1tl8Fl8ZKyzEOBQaeJ6xYhZMisKW7k + oxMK9bpPvHDTV+QYea+8Ubyg099KCSu0uYwuq8vssvszfEK+KtfKAxJ9dtTLbdkaQgiZJr5t5o4gOpFQ + h9/JhfIx2V1eIU+VLuRx4guEjcSf3fvA++ImifYV6nCvbC+EkCAeOXucRCcPyvSgePDmybKn+Fa6b6+T + ON43vnPgfeV95n3nfRjtW5TJbRxvCRDSFz9vZZR/2fwKlG9xf1reJmvLYkJmFu9D70vv01PE+5glrsvm + twR8F4iQzse3f2+T6ERBvvws+7viwXCbC9/s08X72vvc+/5SYVxBedzmue0jpLN5p/xFohMEefFxcmdz + gLjhWlJIHvGx8DHxsfEx4pwqw0PiNpCQTsXPwE6V6KRAPn4mftVtK1lWSBnxsfIx87HzMYyOLfLhRzuM + CyCdiJfQ/L5EJwLa5W+OF8u/CjOZ1RMfS89d4GPL3YE8XSErCyHVxpOq+BWw6ARAO/x60tnyBuE5fv3x + Mfb8BF8UH/uoTqAdbhvdRhJSXbYWGpw8eJpSL2G6jSwlpJvxsX+NnCmuE1FdQVqe9txtJSHVxLcfH5Go + wiMNv09+nmwrDOAjg3GdcN1wHWHugXa5rfRjOEKKzqLyKYkqOZrnpZP9qp7nr19OCBkmriuuM647LL/d + HredbkMJKS5ecMXzn0cVG83ys0S/I85APjLTuA4dJozdaYfb0GjxKkKyzQrCSP+0Hhbfvt1SFhFCJhnX + Kdct1zHXtagOohluS92mEpJ9VpcbJKrImDwvIvMh6cpiOqT9/B9xnWMBo3TcprptJSTbrCtM65vGd8Sv + 7jHfPmkrrnuugx4rENVRTJbb1hcLIdllE7lLooqLyfDUoafLC4WQnOI66brpOhrVXUyG21i3tYRkE7+3 + +meJKixm7k75sHgWRUJyjuvokcKXgebcL8wVQLLIjsI7/s34vewnvMJHSovr7P7iOhzVbcyMB2K67SWk + tewlvCc8eb+RtwsT9pDS49kGXZdvlKiuY3xue98hhCTPvhJVSozv1/I2YWUwUltcp123Xcejuo/x7S2E + JMv7JaqIGM9v5a1Cx09qj+v47uI6H50LGI/bZEIaj9//jSogRvdH8dU7t/pJ1+I677rvcyA6NzC6A4WQ + xuIpQaOKh9F45bUD5G+EkC7H58BB4lXwonMFo3EbTcjEc7hEFQ7D88jdE2QlIePHI8yfI68Qr2Dnwaj+ + 9vMx+Yx8RTxR0lXyE/EAtFvEr6bZfTJ4bPxvc/+/f9YDMf27PxD/Lf/N08Tb8La8TW/bZXBZeFNjZvE5 + caIwzfDMua0mZGLhtv/MnS/PEzJ93Jm+SLaTD8jJcoH8VO6VaP/mwGVzGV1Wl9nPZd8o/ixcIAwXnyM+ + V6L9i+HxOIBMJP8mUQXDcK6XzYUsmBXFs5q9U46XS6XmZ8L+bJfIx8XL7Xrq7KWFLJgtxOdOtB8xHLfd + hIyd90pUsTA9P+ffRxYXMmvWyrKNHCxfExaSmeNR8UIv54jHhXgfeV+ROeeOzyGfS9G+w/S8/wgZOX7G + GVUoLJwn5/Cc6F1uxL1IzEvEo7zdsfHK1+i8z7zvvA+9L7u86JPPpTOEScfGw2RBZKTsJJxso/uZeFBY + 17KorC9+5u3n3zk/py+V96n3rfex97X3edeykfgci/YPpua2nGmDyVDxIhOMxB3NA+Lbt0tIV+JvZW+W + L8gdEu0XNMf7/PPiY9Clu00+xzzA7UGJ9gtibtO3EkKmjK+w3ZlFFQgxvyL2bKk9vgW9gfgVox8Jd4jy + 4WPhY+Jj42PUhccFPud87kX7AzGv2Oo2npAFso4wGcfwfEvWz9YeJ7XG07a+SjymgeVdy+Fj5WP2z1Lz + 9NI+93wO8shpeB5Q6ddSCXksq8utElUYLOhb8gypMR557VewTpU7Jfr8KIePoY+lj2mtb6T4XPQ5GX1+ + LMgTXdXafpERs4L4NaSoomB+/qbhRXtq+9bvAWWbyUnC3Oz18rH1Md5UahtE6HPS5yZ3A4ZznSwvpMPx + JCRXSlRBML/L5JlSU/wtwHOH3yzRZ0a9fMwPldq+Cfoc9bkafWbM72JhBdKOxt8A/kOiioF5/iKejraW + b0w+4V8vvmXqSWiiz4zucB34prhO1NIZ+Fz1OetzN/rMmMdjRWoex0SmiG8FRhUC8/jRyIulhnjBmqPk + Nok+K+C64TriulJDPNXyryT6rJjHa72QDsXTQ0YVAfN45rFlpOQsIq8Wzz/Pa3sYluuK64zrjutQyfFy + w5+T6HNiDh9vzydBOhBPBvGIRBUBcwYR/YuUHK8854s8BndiplyH3iOlr2a4s0TLQGOOh2RjIRVnbWGU + 7NS8lOsaUmpWEd/CZfEUTJrnFjhSXMdKjc9tj36PPh9mzfqTrCmkwni60N9JdOAxa9ZZUurSrJ7HwWM6 + fBUffTZgUjwFr+ua61yJ8TnOI4Gp/Y90eSGzKrOkfF+iA9517jT3lBLjwVpnCo90kJrnlnfdK3XAoM95 + LphjV0iX1jWpPp4JLDrQXec16deT0uJG13cs6PjRNtfBz0qJFwI+95kDI+Y+g1SQd0p0gLvue7KqlJSn + y2lCx4/c+I7Ap+VpUlLcBvgbb/SZum4vIQXHKz+xtO+C3FCVNOnJivJxYQlU5M511HXVU4yXErcFbhOi + z9NlnkjpFUIKjL8tMunL/PzNuaSrWo/d2F8Y1Y/SuM7uJ67DpcR3S7m7Nj/3Ie5LSEHxAI6rJDqgXeXX + mLw8agnx1JzbyW8k+ixAKVyHXZdLmW7Wy1+z9PX83JcwKLCgHC/RgeyqG2UtKSH/IDyTRG1cp18oJcRt + Ba9Mz+84IQVkR4kOYFf59ccSnkc+WT4l3IJErVy3Xcdd13OP2wxenZ6f+xaScZ4nzPQ3z1flCZJzfGt0 + N7ldos8A1MZ1fVfJ/bGA2w63IdFn6CL3LSXPlFp1vHDN9RIduC7ye6y5L+HraTcvlaj8QO1c93PvUPyG + gOc5iMrfRe5jSl8krcp4XefogHXREZLztwsPqDlEmIkMXedzwOdCzoPM3Ja4TYnK30WfEZJRdpLoQHWN + l7XMfVpfr1F+rUTlB7rK54TPjZzjVRFZVnuOHYRkkGcJ74nPmfAo50EqS8lHhEF+QMznhs8Rnyu5xuvm + cw7P6XNWE9Ji/HyK9/3nzD62teSadYTxGcBwfK74nMk1bmt4fDdr1g9kcSEtxVfL0YHpkvtlc8kxHoT4 + 7+IpNaOyA4j5nPG5k+tA3i3EbU9U9i45SkgL2US6/jzKJ6D3Q455hjChDzAzPod8LuUYtz1dvwh4VDYW + kjBPlN9KdEC64h55ueSY7YVxGcBk+FzyOZVj3Aa5LYrK3RWe7tl9EkmUMyU6EF3hE259yS1LyykSlRnA + zPjc8jmWW9wWdf0i4AwhCfJ6iQ5AV/iWW47f/D2hyXUSlRnAZPgcy3HyILdJXX8csK2QBrOKdHnKWJ9g + OT5v8u1JpmAG0vC5luMjgU2lyxcBfxT3UaShfE2iHd8FftXPI29zil/D/KRE5QXQrGPF52BOcRvltioq + bxecJ6SBeOalaId3gSfeeLXklJXkMonKCyANn4MrSk7ZRro8WdBrhUwwruBdvfXvVx3fJDnFU5ayXjiQ + B5+LL5ac4hkDu/qa9s2ynJAJ5YsS7egueLfkFE83/IBEZQXQDp+TuU0F/q8SlbULThYygbxOoh3cBQdL + TtlfWAwEyJPPTa8smNNKoC5PVNba+VhsJGQG8W2UP0i0g2vnd35zOZE90Og0icoJIC9nyRMkh7gNO1Wi + ctbu55Lzwk7Z53iJdmzt/lMWkxziGa4ukqicAPL0fVlBcojbsvMlKmftDhcyRl4qnmc52qk18+qGy0gO + +T/yE4nKCSBvN8jqkkPcpnVx5VYv0/73QkaIrxi72PHcKH69Lod4OVJG+gNlu01eIjlkZXEbF5WzZr7w + yeWObhHZT6IdWTPPpb2W5BCv8sXMfkAd3Lbksmqo27gurhuwt5Ah8jTp2nSSnjTjnySHeMKhhyQqJ4Ay + +ZzeWnKI27quTRTkPs19G5km50q0A2v2LskhnryjyzN4ATXzuZ3LpGJu86Iy1uwcIQvJZhLtuJrlMmHE + nsI7/kDdfI77XM8hbvuiMtYsl0cx2cWDJH4q0U6r1eWyhLSd9widP9ANPtdzmGHUbd/3JCpjrdzHMSAw + yD4S7bBaeb7oVaXt7CtR+QDUzed+23Eb6LYwKl+tGBA4EK+hfJdEO6tGXi5zPWk775WofAC6wW1A21lf + urSE8J3iPo/0cpJEO6pW75C249v+UdkAdEsOjwP2kqhstTpOiLKmeLakaCfV6LPSdhjwB2AutwV7SNvx + GgZR+WrkPs99X+fTpTmiPQCk7Wl+dxE6fwD93CbsLG3GbeP1EpWvRu77Op0tJdoxNfLMes+VNrOt8J4/ + gIjbBi+/3mbcRt4nUflq5D6wk1lErpFop9RoV2kznmOBGf4ALIzbiE2lzbitjMpWox+L+8LOxbeboh1S + I89u2Ga8sA9z+wMYhtsKtxltpkszwnoG1k7l8dKVVaG8ot6Tpa08U26RqGwAEPmDuO1oK24zuzI/wG/E + fWJn0pV5oB+VNm+nPUV+LlHZAGBh3Ha0+eXFbafb0KhstcllPZjG45Get0q0E2pztLSVpeQKicoFAMNw + G+K2pK24DY3KVRvfpW37DbEk+XeJdkBt/lvamuf/cXK2ROUCgFF4FTu3KW3EbagHykXlqs0Hpeo8Sbow + 5a/Xfl5D2srBEpULAMZxuLQVt6VuU6Ny1cRTBC8v1aYrHVObs2rtJEz0A2CS3Ka4bWkrblOjctXGfWSV + 8ZXN3RJ96Jp8S9q6XbauPCBRuQBgJty2tPV6oNtUt61RuWriO+RV3gU4SKIPXBO/P/t30kZWEr9yGJUL + ACbBbYzbmjbyDOnCfCYfkqqynHTh2X9bq/z5HdL/kqhMQCoX/u///u+sqSjMRFmHy2RxaSNuY6My1cRj + AZ4o1eRAiT5oTb4rbd3699KSUZmAFDxKez3ZIOr451L+QTz3+SnC3aqyHSttxNPmuq2NylQT95lVZFn5 + k0QfshZ+NvZsaSM7SlQmIJX1ow5/YRQ/S/biVJfL4N9DGXaQNvIceVCiMtXiDnHfWXz2kegD1qStqzW/ + HsMc/2jbP0Sd/DD8u/Ja6cq0rzVx29PWCqdduKu8txQdP5u+SaIPV4ufSRvzOC8tXVo7G3nyVK0j3wEY + pPhC4EgZ/PvI23Xitih1PEGQ296oTLXwY7Ki1wjYRaIPVgu/G7uRtJGTJSoTkNIdUYc+DsUXAZv0/i7K + cZK0kY2l9jlP3iJFxoM1av+Geoa0Ed8yjcoDpPZA1JmPS/EgQV8IsIhVWbaRNnKmROWphe+wuC8tLq+R + 6APV4h5ZRVJnVbldojIBqf0h6shnSvFFAJNalcNtktum1HEbXPs4qFdLcan9VQ0PbkwdXwl2YTYslOPy + qAOfBMUXATf0toP8tTULau0Dzb8jRcUnbvRBavFTaWNwxr4SlQdoy0In/5kphTEBZWlj5LrbYt8qj8pT + C/epxeR0iT5ELfycMnXWltrffUV5zoo67klRvL7Fm3rbQv7cRrmtSh23yVF5auE+tYisLDVP+Xm+pM5S + 4rsOUXmANn006rgnSfG3n9q/VNTEbZXbrNRx2xyVpwa+sHLfmn1qXvL3YVlTUucjEpUHaNveUac9aYov + ArqwJnwtjpbUcdvsNjoqTw2yXyrYkzPcIlHha+A591PHc6w/IlF5gLa9Ieqwm6B8sG+7yJvbrJdI6nxK + ovLUwH2r+9hss71EBa+BXzVZQVLGB5tb/8jZhlFn3QRlA7m7t13k71pJ3WHV/lqg+9hsU/OrfwdJ6hwi + UVmAXIy9DsA4FK9CN1gG5KuN29Zuq6Oy1MB9bJZ5nkQFroFXM1xOUsb7k/XTkTM/k5/xOgCjUDz19mA5 + kC+3YanHTbmt9pr6UXlq0MY4tGlT85X5ByRlPJnGZRKVBcjFDVEn3STFY2KYJrgsl0rqCYJqHi/yCckq + Xg3qLokKW7o/yjKSMrtJVBYgJxdFnXTTlMP6yoAy7Cop47X03XZHZSmd+9o2VmCcMjtLVNAavFdS5ily + h0RlAXJyStRBN03ZrK8MKIPXCnDbljLvk6gsNXCfm01qHfz3B3mCpMwJEpUFyM2+UQfdNKX2qcZr5Vf0 + Usbfkmt9LT2bwYDPllrXZH63pMwL5VGJygLkZsuog26a4guAK3plQDnctrmNSxm34VFZSuc+dzVpPR+W + qICl+50sKaniQTI0aihJ0lcA+yksjFWmyyXlgEC34TdJVJbS+TXxVrOo3CxR4Uq3h6RMzZMooU5tXgD4 + bYDB8qAMqSez2VOicpTOfa/74NbySokKVjo/+085g5UXzrhRorIAOfIMlW1eADAOoFxu61IuFuS7ALdK + VJbSuQ9uLZ+TqFCl209SxvMMROUActXoMsDTUbgAKJtH6KfMARKVo3RnSSvxu/E1rs7lucb/RlLFr8bU + OocC6rV71DGnovgCgAGz5fJMfSlfC/S2auyv7pNW5gTYUaIClc6DGlPm4xKVA8hZ0imAI0qtE710xcck + ZY6XqByl20GS5+sSFaZknrd6ZUmVpwnz/aNErT3/n0thSuCyPShuA1PlOVLjXSP3xUnj2yl/kagwJTtD + UuY0icoB5KzVAYBzKVf2yoNynSop81WJylEy98VPlmSp9bWKF0mqPFcekagcQM4+GnXIqSnf6isTyvSw + uC1MlZdLVI7SJX1t/TsSFaJkXrEqZTx6MyoHkLsdog45NeUbfWVCuT4rKVPjnaOLJElWlBq/ub5OUqXW + Z1Hohg2iDjk1xY3eYNlQHvcnbhNT5fUSlaNk3odJ3qrYXaIClMxTRaacUelMicoB5M6TuKwTdcipKZ5W + drB8KFPK8VeLSY3TA3sZ+cZzoUQbL9mBkirPEp79o1THR51xG5Rr+sqFsnkswOqSKh+SqBwl+09pNMtL + baP/XfGeKqlyskTlAErwyqgzboPiBbsGy4dynSip4ja/ti9ifqXcfXRjebNEGy7ZuZIqq4rffY3KAZSg + 9df/zOWQGmd26zK3jSnnYTlPonKUzH10Y3FnGW20ZJtLqhwlURmAEnxZcroAGCwfypdyJtYtJCpDyb4k + jeTxcq9EGy2VBzQtIinyRPE6A1E5gBJsF3XGbVC4AKhTyrVY3PbXtgrrPeK+euLxN+VogyU7WFJlb4nK + AJQii2//5rL0lQt1eY+kivuAqAwl+0eZeD4h0cZK9VdZTVLErxj+j0TlAErgiavWizrjNii1zkaKWbN+ + JanuzLoPcF8QlaNUXmBu4vFBiTZWqu9KqrxGojIApchi8p+5lFP6yob6bCOp4r4gKkOpfikTzZoSbahk + b5FUqXHqZHSHG8jcbv/zCmDdLpZU2VWiMpRsousr1Pb82q+beFBeitR48YRueVPUEbdF4fl//XxbPtX0 + wE+S2ua3+VeZWM6XaCOlSvnu/7ESlQEogb/9bxZ1xG1RXtkrG+rm16ZTxbPoRWUo1cRmBVxSaptwI9XC + P0vLXRKVASjBa6NOuE3KR/vKh3rdKotLiuwsURlK5T57Iq8DbiLRBkrlDtkXNSnixRmiMgAl8Hr72Tz7 + N5dHant3G1Pzyn0pspzUNkur++4Z5wiJ/nipvBJfqnxPojIAJdgw6oTbpPD8v1u+KanyNYnKUKrDZcb5 + kUR/vFSpXi/xKMxo+0AJDpGsvv2bclivfOiGR+UZkiL/IlEZSnWVzCheWcgHIPrjJbpPlpIU8ZzWURmA + 3Hmd/aze+zfF3/79XHiwvKibL0ZTxFMQPyBRGUrkvtuPNsbOVhL94VJ9UVLEM//dLFEZgNxl983fFN+9 + Gywr6ue21G1qitS2QqD78LHzEYn+aKneKClS4ypT6AZ/y85myt+5euW6UAbLi25ItWrr9hJtv1RHy9j5 + gUR/tEQPSarJfz4jURmAnL1Wcv32v16vjOgmt6kp4j6ipkmBrpSxsqw8LNEfLdG3JUU8xoBlf1EaL66T + a+fvb/+nyWCZ0R0pX9++SKIylMh9+DIycmq7jZ1qicltJdo+kKtdZN2o882BskGvnOi2VBO41Tb1/ViP + Tw6V6I+VanVJEQ80jLYP5MZ3qjaSLL/5m7KOfF4Gy47uSTWI+1kSbb9UB8vI8Sxg0R8r0fWSIr7971cN + ozIAOfE5kW3HP5eyYa+8QMrXuG+QqAwlGnkypUWkpjnsj5EUYd1/lOB02STqcHOi+Nk/6/6jX6qJ3Gpa + xM19ufv0ofM8if5QqV4lKXKWRNsHcrGXZDfJT0Txs8vB8qPbUk3l/mqJtl8qL0s/dDwoKPojJRp7FOSI + 8apVrPyHXHmGM99Oz/62v7mcwrN/DLpTFpOmU9tbcO7Th85JEv2REl0qKVLbqomoxzVSRMc/l8vbKzsw + aGNJkcsk2n6JTpSh8/8k+iMlOkBShDXKkaNzpcTO3+MUBj8LYJ6hNkUOlGj7JfqxDBVPtlDTTEh+hzhF + fiHR9oG2ePKcbN/vn4qyWa/8QOTnkiI1vYHiPv3xMm383m30B0r0ZxnqQ88wnmMg2j7Qli9LiZ3/ulLT + K8hoRop5XZYQ9yHR9kvkO2vT5q0S/XKJLpYUeYdE2wfa4EVzirrtP5fCnP8YhqeuTpFLJNp+iXaVaXOc + RL9cooMkRb4i0faB1DyByYZR55o7xd9Qanr/Gs3xHa4UcR8Sbb9E7tunzRUS/XKJ/Cyx6fiVFF7/Qy62 + iTrXEijM+odhuc1N8TrglhJtv0SXy0KzqNwv0S+X5lFJsfzv+hJtH0jtECn11r+//XvGzsHPBEzlpdJ0 + 3Ie4L4m2X5p7ZaEzAtY0mO2nkiIflGj7QEpFzO0/FZe99zmAYb1fUuQ6ibZfomfKlNlaol8qkecQTxEP + uIq2D6S0ZdSxlkLx3YvBzwQszAWSIqdKtP0SLXRa/P0l+qUS7S5Nx8+gfFsl2j6Qiu92lf7tn/MIo3Kd + STEOwH1JtP0S7SdTxgstRL9UorWl6fDKEnKwUdSxlkLZoe+zAKPwvBFNx31JtO0SfUamzA8l+qXSPCRe + nKfp7CPR9oFU/ihFvvZnir/9e62Cwc8FDGNvaTruS9ynRNsvjfv4MB4dWMsbAFdJinxRou0DqZwWdayl + UHiLBjNxtqRILV+O75PHyQJ5ukS/UCKvZpgiN0q0fSCVraOOtRTKEX2fBRiV2+AUqWmF3L+VBbKpRD9c + ohTTRK4q0baBVLxcKYP/0HWrSNNxnxJtu0Thcspvk+iHS5RigohtJNo2kMpuUcdaCmWTvs8CjMttcdOp + 6VGV1/tZIEdK9MMlSjED4MESbRtI4Q4p9tu/KR/rfRZgJlKs+eI+Jdp2idzXL5BzJfrh0vxWUuTrEm0f + SOHoqFMtheLb/7f2PgswE26LU+QmibZfmnNkgVwt0Q+XxjPzpUgtlQFlKv3df6b+xaS4LU6Rb0q0/dL8 + WBaIXw+Ifrg0vq3YdFaUaNtACt+Q0m//ex73wc8FjGsFaTq1PLK6R+bLUyT6wRKFAxwmHC8zHG0bSGG9 + qFMtiXJ83+cBZspvsTWdmqYEXk4eS01THYavOEw475Ro20DTil71by7Fa5MPfjZgXG6Tm477lmjbJXqB + PJatJPqhEoWTHEw4J0i0baBpb4g61NIofoth8LMB4/IdpabjviXadonmWxXwHRL9UGkekHCawwnnUom2 + DzSp+Ff/5lIe7n0mYBLcJjcd9y3uY6Ltl2YPeSy1TMfpRUVSxAuwRNsHmvT+qDMtkXJn3+cCZsptcop4 + 6e1o+6U5TB5LLcsAf0WajgdPRNsGmuTVyNaJOtMSKbU0pMjHfAPbGspXJdp2ac6Qx3KxRD9UmmOk6awj + 0baBJh0UdaSlUryOweBnBGbCbXPTcR8Tbbs0F8ljuVaiHyrNvtJ0tpNo20CTqvn2b8oufZ8NmIQ3StNx + HxNtuzTzPS6vZUpOd85N54MSbRtoytFSxeC/uRTPpeHHGh5Udbf4Ga6XdvVrjp6p7Moevy54iZwvnq78 + LDlFTpZjp+GJW+byNzfr///HyYlyunh6VE+w5G15m972z+VXcrN4zILLO3hskA9PLtV0avkCeIvMzqLy + V4l+qDQvk6bzaYm2DTSlqs6/VD4OA3zL2avEbSm+o+HB1H5G7PENvqDhgiEtXxQ2Hfcx0bZL86i475+9 + lnL0AyVKMQfABRJtG2iCv6VyAVAgxe9a+0JhJ/GdC159bJbb5qZT01wAK8vsGYGi/1mixaXpMHoZKVX1 + 7L/LlHVlL2ESpGa4bW467mOibZdoLZk9h3L0P0uT6j3QeyXaPjBpnt2Mb/+VUTz+oZbl13PitjlFapkH + ZhOZ9fq+fyhZiqu/J0q0bWDS/C1x3agDQfkUjx84RAaPO2bGbXTTqeUu8Btk9up50f8szXek6TxXom0D + k3ZY1HGgHorHB+zZO96YDLfRTcd9TbTt0rxdZr237x9K9jlpOi+XaNvAJPkWI7f+O8DHWbgImBy30U3n + CxJtuzT/JrPnBI7+Z2n8Xm/TqeVxCfLGt/8OUXwRUEs73LbXSdP5pETbLs2HZfZrRtH/LI2fpzUdj+CN + tg1Myq+Fb/8d42MuZ8tgfcBo3EY3nUMl2nZpvKz97PdTo/9Zmn2k6Rwo0baBSalivX+MTvFFwNW9eoDx + HCBNp5bpgN33z15BL/qfpdlVms7HJdo2MAn/IXz77zBlo15dwHg87XPT2U2ibZfmPJn1rb5/KFmKZz+f + kWjbwCSsH3UK6A7FdwHe16sPGN1p0nTc10TbLo37/tkLX0T/szSeXKPp1HK3BPnxQia89w9VAx4FzMCX + pem4r4m2XRovyT3rh33/ULL1pOl4pbBo28BMeNU5bv3jMa4PvbqB0biNbjovlWjbpXHfP+sXff9QshdJ + 06nlYgl52SDqBNBdii8APKBtsK5g4WZ3ag3HfU207dL4i8fs146i/1ma1aTpsBAQJs2Dlvj2jwUor5Ra + 5p1P5VppOqtLtO3S/Epm/anvH0r2NGk63mHRtoFxXCV0/piSwl2A0czu1BrO30m07dK476/mAmB5aTpc + jWOSNo8afWAuZcO++oLp3SpNx31NtO3ScAEwYmrZV2ifv9nx7R8L5Toi58hg/UFsdqfWcLgAyBAXACiF + 37+l88dQlC179QbT4wJgeLP31SN9/1CyRaXp1LKv0B7folwnauiBiOK7APfLYF3Cgh6QprOURNsuzZ8l + /B8lSpFou8AomOwHI1M8TfRgXUIsRaLtlij8xxKlSLRdYFge0MWtf4xMOb5XhzC9FIm2W6LwH0uUItF2 + gWF4fne+/WMsypm9eoTppUi03RKF/1iiFIm2C0znOOGbP8ameMKowXqFBd0jKRJtu0QMAhwhDALEqE4W + pvrF2BQPAvy8DNYtLCjFWwBVDQLkNcDhw2uAGMUhwjd/zIjrUK8+YXq3S9NhHoAMcQGQtyvk7eLGzNbv + +++mbSRHSsqZHPcSOn/MiOuQ8Px/eCmmAuYCIEMpLgCYCnh0fn1pE2m9M3QZZHfxKliD5ZyU34k/74ZR + GYBhKb5I3kEG6ximxgXA8Kq6AGAxoPx4utvNosatTcp28lUZLO9MfVl43o+JUHzBOljHsHDXSdOpajEg + lgMePiwHPLwPSra3wF02mdTxvFq2FW75YyJcl+ROGaxrWLgfStOpajngX/T9Q8leJE3HlSvaNuZ3kWS/ + 0p3yql55p/NQ8G92mbxL6PgxMa5PcrYM1jdML8UFgPuaaNul8aPQajq19aTpXCLRtjG/Ipa5VdzQDvN+ + tQcRzp7Fr2fduf8d/V1gJhSPUxmsgxiO2+im81KJtl2a2RdLl/f9Q8k2k6bzFYm2jXnulmI6Rpe1V+6F + oaNHEorbsanuOGF6HofTdHyMom2XxncwZy9NGv3P0rxOms5nJNo25vl81LDlSvEFwMO9sk+FCwA0zvVM + WPRnZk6TpuO+Jtp2adz3V/OtdldpOh+XaNuYZ6+occuZMt3bHRtFvwdMksKt/5nzI72ms5tE2y7NeTLr + rL5/KNk+0nQOlGjbmGenqHHLmTLdYzDuAKBxyoV9dQ7j8avHTWdfibZdGvf9sxcqif5naTztatPx7G7R + tjHP7lHjljPlx33lj3ABgMYptbyS3Sa30U3nUIm2XZoTZNZhff9QsmOl6bxeom1jnhIvAK7qK3+ECwA0 + TvlDX53DeFKMBfukRNsuzYdl1nv7/qFkn5Om83KJto15uAAAxqD4S8xg3cNo3EY3nS9ItO3S/JvMemvf + P5TsO9J0nivRtjEPFwDAGBTPNTFY9zAat9FNx31NtO3SeHG2am5re1rXpvNEibaNebgAAMbgeia1zMvS + FrfRTaeWKeHfILM27fuHknmlvhS5V6LtYw4uAIAxKdwFGJ/b5hSpZVVYr1o66wV9/1C6xaXpsCDQwnEB + AIzJdU2+0at3GE2Ku8DuY6Jtl2gtmbVK3z+U7m+l6Vwg0bYxBxcAwAwoXtdksA5iem6bm477mGjbJVpZ + Zi0mf+39Q+leJk3n0xJtG3NwAQDMgOLFpmqZnyUlt81Nx31MtO3SuM9fVGbnVol+qDTbSdPxOvfRtjEH + FwDADLnOCfMCjOb90nTcx0TbLs0t8liuleiHSuMpGptOLRWgKVwAABOgrN9XBzG9N0rTqWUa4GvksVws + 0Q+V5hhpOutItG3MwQUAMAGud+LV7QbrI2Jum5uO+5ho26W5SB7LmRL9UGm8smHTWU6ibWMOLgCACXHd + 66uHWDi3zU3nqxJtuzRnyGM5QqIfKs18tzUaTC3vgTaBCwBgQhQ/BmBA4PRSzQNTy2vgXgPosbxDoh8q + zQPyOGk6l0q0fXABAEyU619fXUTMbXLTcd/iPibafmn2kMeylUQ/VKIUcwF4GcVo2+ACAJgoxa8FfqtX + FxE7XppOTXMAvEoey9oS/VCJNpKm806Jtg0uAICJU1gpcOHcJjedjSXadok8A/BjeYpEP1Si3aTpbCbR + tsEFADBxSi0DtZviNrnp7C7Rtku0vMyX+yX6wdJ8TJrOihJtG1wAABPl+ifn9uoiYitI03HfEm27NPfI + Arlaoh8uzYWSIjdJtP2u4wIAmCBlg766iAW5LU6Rb0q0/dL8WBZILVeYv5UU+bpE2+86LgCACVE8uU0t + r2k3xW1xitType9LskCOkuiHS/REaTqHSLTtruMCAJgQhZlHp3ewNB33KdG2S3SkLJC3SfTDJXqpNJ1t + JNp213EBAEyA4kmAahmb1SS3xU2npnUZ3ioLZFOJfrhEe0rTWUmibXcdFwDADCmbyCW9+oeFc1vcdNyn + RNsukV9nXCBPl+iHS3SSpMjPJdp+l3EBAMyA4lfavtGre1g4t8Ep4j4l2n6JwsnyFpFabje5QU+Rz0i0 + /S7jAgAYk+uanN2rd5ie2+AUma6NKMV9MuV0+T+U6JdK86AsLk3Hz1Ki7XcZFwDAGJT1hBH/o0kx8Zv7 + kock2n5p3MdPmZpmm/p7aTprSLTtLuMCABiR65i8vVffMDy3wU2npqnyF3rHZH+JfqlEnrax6fhWyh0S + bb+ruAAARqTwut/o3PamWP21pimA95Mps7VEv1SiUyRFmBBoflwAACNw/ZJbe3UNw/uapMipEm2/RPOt + AjiY1SX6pRL9VFKkprsmk8AFADACpaZXzFJa6LfZCeY6ibZfomfKlFlUankT4FFJMSPgyyTafldxAQAM + yXVLft2rZxhNignf3Ie4L4m2X5p7xW/7LTTfl+iXS5RiicjF5C6Jtt9FXAAAQ3Ld6qtnGJ7bXLe9TWcL + ibZfostl2hwn0S+X6CBJka9ItP0u4gIAGJLrltTyDTOlL0uKuA+Jtl8i9+3TpqZ32y+WFHmHRNvvIi4A + gBEoPAIYXYrp3p2apmMeas6Eml5H8XiGx0vTqWnw5ExxAQCMQPlYX13DcNzmNp0l5M8Sbb9Evts0bZaU + hyX6AyXaQFLkFxJtv2u4AABGoGzeV9cwvVTz/28o0fZL9BcZ+svw/5Poj5ToAEmR/yvR9ruGCwBgBIrv + urLs7/A+IilyoETbL5H79KFT08pH35UU8fKd0fa7hgsAYETKiX31DQvntjZFLpNo+yVy/Ro6u0j0R0rk + Wx/LSNPxghG8DsgFADAyZcu++oap3SkpXv9bVmp6FO4+feg8X6I/UqqFTn84wZwh0fa7hAsAYESuY3JD + r75haqdLitQ0Lb6tKUPHswXdLdEfKtExkiK+0Ii23yVcAABjUN7VV+cQ+2dJkWMl2n6JfGd62hkAB/Mt + if5Yia6XFPEoyz9JVIau4AIAGIPimUt9i3uw/mEOt60pXut2/KZBVIYSfVNGzqES/bFSpXhv1DlNou13 + BRcAwJiUI/rqHeaXaoXXZ0m0/VIdIiOntkEp75EU6fpgHi4AgDEp6/XVO8zP8/KnyL9KtP1SjbXfahsF + +W1JEb8NcLtEZegCLgCAMbmuya29eod53KamGP3vXCRRGUrkPnzst+B+INEfLdFDkmJ5YKemeRRGxQUA + MAPK8X11D3O4TU0R9xF+dTwqQ4mulLHzUYn+aKneKCnyjxJtvwu4AABmQNmur+5hjk0lRWrb90fL2NlK + oj9aqi9KiiwqN0tUhtpxAQDMgOL1SwbrYJe5LXWbmiLnSVSGUrkPHzvLS01rVd8nS0mKfFiiMtSOCwBg + BpR1++oexhzFPkb+Rh6QqAwlct+9nMwoP5Loj5dqG0mR50q0/dpxAQDMgLJDX93rOndiz5AU+ReJylAq + t2szTm3vpZ4pqfI9icpQMy4AgDG5rsmFvXqHMSexGTNfk6gMpTpcZpzaVrnztIhLSorsJlEZasYFADAm + hef/83u9pIhvlT8oURlKNZFVE91Z1rZW9eskRZaWrq0QyAUAMAbXM7miV+cwZz6EVFP/7ixRGUrlPnsJ + mUgukGgjpTpXUqWmRSWGwQUAMCLXMfFgt8G612UzeoVtxPynRGUolT/PxLK3RBsplW/1pJoU6HkSlaFW + XAAAI1D87vlre3UNc/xVniMp8iSpafIf83TGE4vXEo42UrK3SKp8R6Iy1IgLAGBIip/5+9v/YJ3ruksk + VXaVqAwlW0Mmmv+RaEOl+q6kymskKkONuAAAhqD4fX86/1iq17Ud9wVRGUr1S5l4PiHRxkrlW0yrSYp4 + FqvaLqCmwgUAMASFEf+xX8kikiLuA9wXROUo1TEy8Wwu0cZKdrCkSm3jKKbCBQCwEIqX/PUz/9rerpqU + iT6/nibuA6IylMxr0Uw8fqXgXok2WKobJdWVpgcd3i1ROWrCBQAwBdclWb9Xr7Agt5GekjdF3Pa7D4jK + USr30Y29OunX56KNlqyRq6UpcpREZagJFwBAQNnQdalXpxDzGiqpUuNd7S9JY3mzRBstWco5AVaV2mab + GsQFADBA8bd+vvkvnNvGlSVValv5z9xHNxavDljb+5IPizvmVDlZonLUggsAYIDrUF99QuxESZWnitv+ + qBylct/sPrrR1LhQxYGSKs+WRyQqRw24AAD6KB7097teXULMnfHqkiofkqgcJXPf3Hh2l2jjJfPJ6Vf1 + UsUrEkblqAEXAEAf5aC+uoTYGZIqi8lNEpWjZF58rvGsKDV+g021QJDjKS69znVUjtJxAQD0uO7I1b16 + hJj7k1TT/jpeYTAqR8m8D58iSVLj1LYpZwZ0zpKoHKXjAgDoURj4N73PSspcKVE5SnaRJMueEhWidC+S + VHmu1HgnhQsAoEfxdL+D9Qnz+Nm/28JUeblE5SjdHpIsvtVQ29sAlvI5lHOaROUoGRcAQI/CBcDCnSop + 81WJylEy98VPlqT5hkSFKdlDkvI91KeJtxmVpVRcAAA9CvP9T83v/bsNTBW/gVXj2KuvS/LsKFFhSpdy + Jirn4xKVo1RcAAA9ChcAU3PblzKfkqgcpdtBkmcZqXExi5RzUTt+nFLTGgFcAAA9Co8AYndKslHrirdV + Y391n7gvbiWfk6hQpdtPUuYDEpWjRFwAAD2uO331CPPsLylzgETlKJ3fJmstr5SoUKX7g3j1w1RZSmpZ + lYoLAKDHdaevHmEOt3Vu81JlSblVorKUzn1wa/HseTdLVLDSJX2tQtleonKUhgsAoEfxNMCD9anr3Nal + TK2vrbvvTTmDbRgPmosKVzpPD+wrx1R5nFwhUVlKwgUA0OO601ePMGvW98RtXaq4Da9x2l87VFqPJ3H4 + q0QFLN27JGXcWJT+mgoXAECP605fPeo6t20vlJR5t0RlKZ373NUki3ga3aiQpfNYgCdIynhJzKgspeAC + AOhRNuurR113vKSM2+5bJCpL6VJPXb/Q7CxRIWuwr6SMX1f5k0RlKQEXAECPcnpfPeqyOyTla3/O+yQq + Sw3c52YTv4d4l0QFLd0fJfV7lm+VqCwl4AIAEGVDqXXVz1ElWaq2L8uK2+6oLKVzX7u0ZJVjJSpsDfye + fsp4kMxlEpUld7tFjWHOlOv7yh/hAgAjcZ0Rr9A2WJe6yG1ZyoF/zgclKksNPiHZ5XkSFbYGviW/nKTM + 86XEdQLeEzWIOVN+1Ff+CBcAGJriV/+27dWdrnMbtqakjNtqzzQYlacGqffn0LlUogLX4EOSOodJVJac + lXgB8OO+8kfWiX4PiChM/zvPIZI6B0lUlhpkNfhvMLVMZhO5V1IPYvFshNdJVJ5cvS9qFHOmTDcL47rR + 7wGDFC/+4zXuB+tQF/1UUs6o6ng1V7fVUXlqkHoSpZHig13raxd2nKSObyc+IlF5cvT5qGHMleJntdM9 + auERAKbleiKeQGyw/nSR26yXSOq4jY7KUwP3rakvqEbOwRIVvga+sm/j+ctHJSpPjryyYTEdpjLMehav + FV+IcSGAkOuGTDeYtEs+Iqnjtrnmuy/uW7OPb8GUOHhtWOdL6njhjJIeBRwQNZK5UdaRC3tlHoYvbi6R + 98t24kZ/tujvoxt6deDXMlhfusq3/lMu9jM3bpuj8tTgQXHfWkTOkOhD1GILSZ21xZUgKk9uPOlH1gPn + FDfab5DBso/jV/Jl8ZKjHv3tCwsuDDpA8bv+dP7zuI1yW5U6W0pUnlp4Qqli4sYv+hC18BXu4pI6npUw + Kk+OvI+y7AAVj9J2Jz1Y5knzBEMny04y96KANwoq0DuWm0utk82Max9JnceL25uoPLVwfSsqta4PMFcb + FX0R+bZE5cnRz8VzoWdzIeCyyCYyWNZUPEjsNNlLfCEy+2IkKivypLjj9/EbPLZd9y1JPeGP47Y4Kk8t + viPF5TUSfZha+HnwKpI6T5XbJSpTrnxr3B3vBlGDmkJv+3a2DJavbR645LkIThGvQOmBib5jwIVBZpT1 + 5RwZPIZd5zZpVUkdt8H3SFSmWrxaiou/rdY+Krat5zIelR6VJ3dniQfQvUf8Lcqfo0lvEm/rSLlSojLl + 7AbxnTSvoranZHU3pUu838V1yuM9Bo8T5uybNnKmROWphQd/uy8tMrtI9KFq4TWZN5I28mmJyoS63S++ + sL5cPLbAdwv8GIELgwYoc8du1Px++Ux5nEsb2VjcBkdlqsVbpNh4cMZNEn2wWvxM/DlTxysU1j7wBcPz + qnNXizsqv93gTou5C8ak+KLKt/tLnI47JV+MtrEynSfEcdsblakWHi/URt8y0dQ+QMMOlDbyHPFYhKhM + gP1BrhA/t/aKnX4E40cjvnMwd1zEY6LOsCt6+8Cdvses1D6IeRI85e4a0kbc5kZlqsneUny8LrNX04s+ + YC0ekGdLG/Fgy9pvgyGNW8V3lbx8qydI8hgXjz/wgi4e9e47C36D4rF5DvpFnWpOBssr/jy+IPq8+O4J + c/iPZkdpI25rS5kTZVyeS8V9ZxWpeXWmufyqRhuvwDiHS1QmIJW7o043J4rvhgyWG+NpY10UxwPiunB3 + pq27yo3kSdKFW9XvkDayqHxTojIBwCT9l7T1bNptbFSmmtwpy0lV6cJgGr+P+nfSRp4sv5GoXAAwCR6Y + tpK0EbetNS/1O9eHpLq4g6p9wgZrazYs50Xi8QhRuQBgJty2vFjaiNtUt61RuWpylywvVeZQiT50bfaQ + tuJ3wxkUCGCS3Ka4bWkrblOjctWmiCV/x43HAvgKJ/rgNfFkLW29HuO4EkXlAoBxeKBxW3Fb6jY1KldN + /OzffWTV+XeJPnxtfiSerKKN+HYZ85UDmAS3JW091nQb+t8Slas2H5Tq4xnsbpNoB9TmaGkrS8n3JSoX + AAzDk0i5LWkrbkOjctXGc3C4b+xE3i3RTqiNp2fdVNrKCvILicoGAAvj5byfIm3Fbafb0KhstfEqoJ2J + 3yG9UaIdURu/NtPmc53V5BaJygYAEbcZz5S24rfGal9HZi6/vl38nP+jZmeJdkaNzpU241d3uvD+LICZ + c1vh6Z7bjNvMqGw1cl/YuSwmXVrNbldpM/8oD0lUNgAwtxGbSZtxWxmVrUY/kWLX+59ptpRop9TIV9XP + lTbjxU8ekah8ALrNbcO20mbcRnbpbqX7wE7nfIl2TI2ulbZHevrqmomCAPRzm/AWaTNuG6+TqHw1ct/X + +awpXVqG87PSdrygBhcBAMxtQZuzl86N28aofDVyn+e+jyinSLSTapXDyfYeicoGoFvcFrSdLqzy1+9E + Ib2sIl1YLniuB2U9aTvvk6h8ALrhvdJ23Ba6TYzKVyNPh+8+j/RlH4l2Vq1ulhwqwb4SlQ9A3Xzut51V + xW1hVL5aua8jA/FECF16LdAul7bWC+iPbwEyJgDoBp/rOdz2d9vnNjAqY63cx/kVeBLE76pHO61mJ0sO + 2Uu4CADq5nPcz9tziNu+qIw1a3Nq+CJynkQ7rmbufHOIXwNingCgTj63c5l1zm1eVMaafUnINHma/Fmi + HVgrn5j/JDnkNcKMgUBdfE5vIznEbV3XvmjcL+7byBDZT6KdWLN7ZC3JIZuIK2xUTgBluU98TucQt3Fu + 66Jy1oyBfyNkcfEcydGOrJlXhVpJcshL5DaJygmgDD6HfS7nkJWlK6vA9rtKGPg3Yl4mXVkLut8PpO3p + gudmdblBonICyJvPXZ/DOcRtmjvCqJw184x/awsZIydItFNr9w3J5YpxBfm+ROUEkCefsz53c4jbsi6t + +dLvCCFjZjn5g0Q7tnaeHvlxkkOeIGdLVE4Aefm8+JzNIW7DTpWonLX7uSwlZAZ5nUQ7twsOklziE/lw + Ya4AIE8+Nw+TXL44OAdLVNba+VhsJGQCOUeindwF75acsqN0ad5uoAQPiM/NnNLlBcdymeCtinhk/O0S + 7eja+UryTZJT1pXfSVReAGn5XPQ5mVPeLF29W/h78eNrMsHsINHO7gKPJH215BS/0vNfEpUXQBo+B3N5 + dXhu3FZ1eUbR1wppIF+TaId3gW/xbSE5xQs4fUqi8gJo1nHiczCnuI3q8iPCLwtpKF4+9w6JdnwXeHa+ + jSW3+O6MZxuLygxgsnyubS+5pesziP5RWOe/4bxeop3fFT7BXi65ZQ25TqIyA5gMn2M+13KL26SuTx++ + rZAE+axEB6ArPJf2+pJblpbTJCozgJnxueVzLLe4Leri/P79zhCSKB5h+VuJDkRX+ITL8U6A49uTd0tU + bgCj8bmU4y1/Z0Ppeufv9Q2eKCRhNpWuT0rjW265rPI1mNWEKYSBmfE55HMpx7Bq6Jz1anIcl9WJfESi + g9IlPgE3lxzjOcAPkL9IVHYAMZ8zPndyXUXObU7XO387SkhL8SswXVxhapBfu9lacs2L5XqJyg5gfj5X + fM7kGrc1D0lU9i7xyq1eup60mGdJ159BmSfe+BfJNV4U46PS5QlCgIXxueFzJOcFZDwrKefwnHEZuT6a + 6Vzc8UUHqWs8JuJdknNeKtdKVH6gq3xO+NzIOV6XpOvjruby3Ccko5wu0YHqIq9BndOKYINZQg4Vxgag + 63wO+FzwOZFr3Ja4TYnK30WfEZJZlhGeM8/zaVlUcs6acplE5Qdq57rvcyDneJxV1+dd6ec+xn0NyTDP + l3slOnBd9FV5guQcf7t4q3R1tUd0j+v6bpLzXTrHbYfbkOgzdJH7ltwv2Dofr4kdHbyu8nvEK0juebJ4 + YSG/Vxt9DqB0HjznOu66nnvcZjCPx/zct5ACcoJEB7CrPGviWlJC1pErJPocQKlcp18kJcRtxe8k+hxd + 5ZUXSSHxgBrmB5jfXfLPUkJ8a9SjbH8j0WcBSuE67Gl8c7/dPzevErcV0WfpKvclOQ/SJEGeLrdJdEC7 + yrcg3yGlZEnZX1hXAKVxnXXddR0uJe8U3vGfn/sQ9yWkwHiO5oclOrBddrJ4dG8pWVE+Lp7xMPo8QC5c + R11XSxh3MzduC/zWUPR5usyvaL5CSMHxVW10cLvue7KKlBRfiXtJVL6lIDf+ouG6Wdq3xVXFbUH0mbrO + fQepIKxRH7tJXiKl5blylvDGANrmi1HXxedIaVlP3AZEn6vrThVSSfwcjldaYl7UYw8pMW50PUkJdwSQ + muvcmVJix+/sKSzoE/MbGwz6qyy+3c2rLVNzR7q0lBgvCHWS0KChaX7G77q2upQYn+O+YxF9Nsya9T+y + spAKs7YwU+DUfiprSKnxRZ7X5+atAUya65TrVmnjZvrjc/s6iT4fZs36kzxPSMXZSrhlPDVfIOW8rPAw + WU72lV9J9BmBYd0grkuuUyVnZ7lPos+IOXcPNxHSgfiEjioB5vGKV6UverGIvFoukegzAlNxnXHdcR0q + OX8jn5PoM2IOL3H8ZiEdip/jRZUB8/xCPDVvDfEiHsfKnRJ9VsB1w3WklgVf1pVfSvRZMc+HhHQsXir3 + 6xJVCMzjyTA+ILkvLTxsfFdjV7lcos+L7nFdcJ0odRDsYHyu+pz1uRt9XsxzhpQyTTOZcHzCXylRxcD8 + vHb5M6WmeFDUkfJ7iT4z6uVj7mPvOSVqis9Rn6vRZ8b8/JinpBlRSQPxNLMe6BNVEMzPAwTfJrVdMfsb + 02biKZK9Vnv02VE+H1sfYx/rWu5ozY3PSZ+bvOU0HL8NsbwQMvudXhYOGt635RlSYxaXLcUzgTFeoHw+ + hj6WW4iPbY3xuehzMvr8WNAtUmv7RcaMB7vdI1GFwYL8TcMrC9b8/My3B708qmd8Y4nUcvhY+Zj52NV8 + i9fnns9BvvUPz/M51DKwmUw4G8kDElUcxL4jz5ba42+PG8gR8iPxq0PR/kB6PhY+Jj42PkaLSe3xFMQ+ + 96L9gZjbdrfxhEyZrYUlhEfj6VEPkC7Nn+0Z4fzu8Nlyh0T7Bc3xPv+C+BiUPDvfqPE5dqCwNPZo3KZ7 + EjhCps1Owje80f1Murh+tgeUvUz86tUFwi3ZyfM+9b71Pva+rm0Q3zDxt1efY9H+wdTclrtNJ2To7CVR + ZcLC+WTzLIJdXlDDt6C9zPLeco6wCNXofived96H3pdduK0/VXwunS58KRmPx0kQMnLeK1GFwvQ82GYf + qXXk9ahxI/4aOVj+Q26WaL91zaPi13DPFT9G2kZYjW1OfO74HGJxq/F52ndCxs77JapYGM71srmQBeM5 + KDaVd8rxcpnUPA/BH8UD144Rz7znqWprmX1v0vE543Mn2o8Yzr8JITPOQRJVMAzvG1LLHOtNxyvP+VWl + 7cTPvD15zYXiyUtyHl/gsrmMflbvMrvs/gz+LKWvppcqXo72PyXavxie22xCJpbDJapoGJ5H4vqbrr/5 + kvHjGcz8GpgHXG4rHq/ikeEfE4+/+Ir4m/ZV8hO5UTz5id+Ptz/L4LHxv839//5Z/45/13/DU6Z+SbyA + 1mHi5/Ieff/P4ufzzxI6+JllJTlBeANp5txWEzLxcBEwGX6m6ee9ywohXY6X6/XFG8/5J8MXqIQ0lg9J + VPEwulvl3bKkENKluM77TorHRUTnBkbntpmQxuNnm1EFxHj8ytdbhZW5SO1xHXddd52PzgWMx4O1CUkW + v14SVUSM79eyu3AhQGqL67RX63Mdj+o+xudXJQlJHg++YnKOyXMj+XbhQoCUHk/d67r8G4nqOsbntpdJ + fkir2VEekaiCYmY8WY6fky4jhJQU11l/M/29RHUbM+O3Jdz2EtJ6vIAQqwg2x2u6e3RvlxZ9IWXGddRv + C7nORnUZM3e/uM0lJJtsIn6HOqqwmIyHxHOiv1AIySmuk66brqNR3cVkuI11W0tIdvGkKLdJVHExWZ6c + 5rXS5UViSLtx3XMddF2M6igmy22rp48mJNusLl7cJKrAmDyvtOeJVFYVQlLkqeI6xyqP6bhNddtKSPZZ + Qb4vUUVGMzwoyCvK/aMsIoRMMq5TXqDHdYzpetNyW+o2lZBi8gT5qkQVGs3yPPaHyGpCyEziOuS65DoV + 1TU0y22o21JCisui8imJKjaa5/eEvSjOLsJiNWTYuK54ueLvCvN8tMdtp9tQQoqOZw1kroB2PSjniVfP + Y+0BMhjXCdcN1xHXlagOIQ23lZ7/g5Bq4vdW75OowiMtr7x2hmwjSwnpZnzsXQdcF1iNLw/3Cu/4kyqz + ljByOC9ucM6WN8gThdQdH2Mfax9zH/uoTqAdbhvdRhJSbfy6Gm8I5OkvcrG8SxhAWE98LN8jPrY+xtGx + R7vcJjLTJ+lEvMjNqRKdCMjHz+RY2UqWFVJGfKx8zHzsfAyjY4t8nCIs/EU6F3/T5BtJGXycLpV/lw2F + gYT5xMfiFeJj42PEOVUGT5v8TiGks9lImD64PF78ya+J+R1xTz7E+IF08b72Pve+9zFgIa7yuM3zRRsh + nc/T5CqJThSU4VG5Vnw7822ytiwuZGbxPvS+9D71YzPvY+/r6BigDD8Qt3mEkF78DIxJg+ri98l9YXey + 7CkvFe4UTB3vG+8j7yvvsx8K7+TX5TjheT8hU2RHYb6Auvl1pwvlY7K7+FaoF5jpQh4nfyv+zP7s3gfe + F7weWze3adsLIWSarCnXS3QioV5uJH8iX5FjxDNIvlHWF3eaJTxScBldVpfZZX+v+LN4TvdrhOf13XOd + rCGEkCGzjHiGsuiEQnf9UXxx6HfaPZnNJ8WD4fYRz1//OtlUNpAXyHPEz1uXF99it2hxFf/b3P/vufD9 + O38nnpjFt+X9N/23vQ1vy9v0tl0Gl8VlctmiMqO7ThO3ZYSQMeJHAvdIdHIBQI48tbLbLkLIDLO68JYA + gBK4rWImTUImGI+c/YiwPCmAHLltOkoY5U9IQ9lEfivRCQgAbbhRNhZCSMPxIK0zJToRASAlD1Z2m0QI + SZjXyx0SnZQA0KTbZVshhLQUL6H5NYlOUABogtsclu8lJJPsJNwNANAkz/WwgxBCMsuKco5EJy4AzITb + FrcxhJCM4+dyt0h0EgPAKH4vPOsnpKB4VO4JwrwBAMbhZZePF0b4E1JovCiLF5iJTnAAiFwtbjsIIYXH + K7TtL/dLdLIDgLmN2E9KWHmSEDJCvMLbuRKd+AC67YviNoIQUnE2Fy/fGjUCALrFbcFmQgjpSHyLz+u6 + e9nOqFEAUDef+24DuN1PSEezspwkj0jUSACoi8/1E8XnPiGEzFpLLpCowQBQh/Pl+UIIIQtkS7lGosYD + QJl8Tm8hhBCy0CwqO8tvJGpMAJTB57DPZZ/ThBAydJaQd8utEjUuAPLkc9bnrs9hQggZO8vKAcIbA0De + 7pIPis9ZQgiZWJ4khwgXAkBe3PH73FxeCCGksbiROVjc6ESNEYA0fA4eJHT8hJCkcaPjxudOiRonAM3w + Oedzj5X6CCGtZhnZV26WqLECMBk3iWfv8zlHCCHZ5PGyq/xMosYLwHg8X/8u4nOMEEKyzSKyjVwiUWMG + YDg+h14tPqcIIaSovFBOl4ckauAAzM/nis8ZnzuEEFJ8VhG/pnSbRI0e0HU+N3yO+FwhhJDq4meYO8il + EjWCQNf4XNheeL5PCOlMniefFOYTQNf4Nb5jxecAIYR0Nn6lyW8PXCZ/lajBBErnuu06/hbhNT5CCBnI + s+QI8fvOUSMKlMZ1+TBx3SaEEDJNvHzpP8lZcp9EDSuQK9dZ113XYZbiJYSQMbO0eODg1+UvEjW4QNtc + N11HXVddZwkhhEwwT5E95GJ5RKKGGEjFdfAicZ103SSEEJIgK8hb5QLhzgBScV07X3YT10FCCCEtxisT + vknOlXslariBcblOnSOuY6zARwghmWYJ2VyOkV9K1KAD03HdcR1yXXKdIoQQUljWkr3Ft23/LFFjD7hu + uI64rjBBDyGEVBZ/k9tUPiw/lEcl6gxQPx971wHPO7GJ8C2fEEI6FI8d2EqOlh8IbxbU62G5Unysfcx9 + 7AkhhJDZWVa2kIPlm8I6BeXysfMxPEh8TH1sCSGEkKGyiPh5sNcqOEl+LLxymB8fEx+bE8THysfMx44Q + QgiZWPyseB3xe+DHyRVyv0QdEybP0+x6n3vf+xi8SHh+TwghpJX42+ZqsrXsL2fKj4QLg/F533kfel96 + n/q5vfcx3+wJIYRkH3dWTxePMt9djpLz5GphkaM5+8D7wvvE+8b7yPvK+4yOnhBCSLV5kqwtr5I95XD5 + rHxbrpFbpcRXFV1ml92fwZ/Fn8mfzZ/Rn/XvxZ+dEEIIIVPEy8muLL5Q2Ey2FT/73lcOlU+KO9ivyYVy + mXhA3HVyo9wuHhE/VzQZkv+t/2f8O/5d/w3/Lf9N/21vw9vyNr1tl8FlcZlcNpdxJWEJXEKyzqxZ/x/Z + GZosdPDg4wAAAABJRU5ErkJggg== + + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrIj4NCiAgICA8cG9seWdvbiBwb2ludHM9IjI3 + LDUgMTEsMjEgNSwxNSAyLDE4IDExLDI3IDMwLDggICIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8 + L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrIj4NCiAgICA8cG9seWdvbiBwb2ludHM9IjI3 + LDUgMTEsMjEgNSwxNSAyLDE4IDExLDI3IDMwLDggICIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8 + L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrIj4NCiAgICA8cG9seWdvbiBwb2ludHM9IjI3 + LDUgMTEsMjEgNSwxNSAyLDE4IDExLDI3IDMwLDggICIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8 + L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrIj4NCiAgICA8cG9seWdvbiBwb2ludHM9IjI3 + LDUgMTEsMjEgNSwxNSAyLDE4IDExLDI3IDMwLDggICIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8 + L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOMCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlNpbmdsZVBhZ2VWaWV3Ij4NCiAgICA8cGF0aCBk + PSJNMjcsMEgzQzIuNCwwLDIsMC40LDIsMXYyOGMwLDAuNiwwLjQsMSwxLDFoMjRjMC42LDAsMS0wLjQs + MS0xVjFDMjgsMC40LDI3LjYsMCwyNywweiBNMjYsMjhINFYyaDIyVjI4eiIgY2xhc3M9IkJsYWNrIiAv + Pg0KICAgIDxwYXRoIGQ9Ik0yMiw4SDhWNmgxNFY4eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYy + aDE0VjE0eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsdWUiIC8+ + DQogIDwvZz4NCjwvc3ZnPgs= + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobix_Result.vb b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Result.vb new file mode 100644 index 0000000..13f949e --- /dev/null +++ b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Result.vb @@ -0,0 +1,46 @@ +Imports System.Threading.Tasks +Imports DigitalData.Modules.ZooFlow +Public Class frmGlobix_Result + Private Search As Search.SearchRunner + Private Property Environment As Environment + Public Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Environment = My.Application.GetEnvironment() + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Search = New Search.SearchRunner(My.LogConfig, Environment, "FlowSearch") With { + .BaseSearchSQL = SQL_FLOW_SEARCH_BASE + } + End Sub + + Private Sub PictureEdit1_EditValueChanged(sender As Object, e As EventArgs) Handles PictureEdit1.EditValueChanged + Close() + End Sub + Private Async Function GetResult(oVariant As String) As Task + Dim oSql As String + Try + If oVariant = "DOCID" Then + oSql = My.Queries.Common.DOCRESULT_DocID(My.Application.Globix.DOCUMENT_ID) + ElseIf oVariant = "TODAY" Then + oSql = My.Queries.Common.DOCRESULT_TODAY + ElseIf oVariant = "TODAY_ME" Then + oSql = My.Queries.Common.DOCRESULT_TODAY_ME + End If + If oSql IsNot Nothing Then + Dim oResultDT = Await My.Database.GetDatatableIDBAsync(oSql) + If Not IsNothing(oResultDT) Then + Search.RunWithDataTable(oResultDT, "FileFlow Duplicate File") + End If + + End If + + Catch ex As Exception + MsgBox("Unexpected error in getResult: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Function + + Private Async Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click + Await GetResult("DOCID") + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/My Project/Application.Designer.vb b/GUIs.ZooFlow/My Project/Application.Designer.vb new file mode 100644 index 0000000..03a3d16 --- /dev/null +++ b/GUIs.ZooFlow/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten + ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer. + ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im + ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.DigitalData.GUIs.ZooFlow.frmFlowForm + End Sub + End Class +End Namespace diff --git a/GUIs.ZooFlow/My Project/Application.myapp b/GUIs.ZooFlow/My Project/Application.myapp new file mode 100644 index 0000000..1118210 --- /dev/null +++ b/GUIs.ZooFlow/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + frmFlowForm + false + 0 + true + 0 + true + \ No newline at end of file diff --git a/GUIs.ZooFlow/My Project/AssemblyInfo.vb b/GUIs.ZooFlow/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..e00d7f6 --- /dev/null +++ b/GUIs.ZooFlow/My Project/AssemblyInfo.vb @@ -0,0 +1,36 @@ +Imports System.Reflection +Imports System.Runtime.CompilerServices +Imports System.Runtime.InteropServices + +' General Information about an assembly is controlled through the following +' set of attributes. Change these attribute values to modify the information +' associated with an assembly. + + + + + + + + + +' Setting ComVisible to false makes the types in this assembly not visible +' to COM components. If you need to access a type in this assembly from +' COM, set the ComVisible attribute to true on that type. + + +' The following GUID is for the ID of the typelib if this project is exposed to COM + + +' Version information for an assembly consists of the following four values: +' +' Major Version +' Minor Version +' Build Number +' Revision +' +' You can specify all the values or you can default the Build and Revision Numbers +' by using the '*' as shown below: +' [assembly: AssemblyVersion("1.0.*")] + + diff --git a/GUIs.ZooFlow/My Project/DataSources/ZooFlow.State.ClassUserState.datasource b/GUIs.ZooFlow/My Project/DataSources/ZooFlow.State.ClassUserState.datasource new file mode 100644 index 0000000..b0c5d49 --- /dev/null +++ b/GUIs.ZooFlow/My Project/DataSources/ZooFlow.State.ClassUserState.datasource @@ -0,0 +1,10 @@ + + + + DigitalData.GUIs.ZooFlow.State.ClassUserState, DigitalData.GUIs.ZooFlow, Version=0.0.1.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/GUIs.ZooFlow/My Project/Resources.Designer.vb b/GUIs.ZooFlow/My Project/Resources.Designer.vb new file mode 100644 index 0000000..3bcb7fc --- /dev/null +++ b/GUIs.ZooFlow/My Project/Resources.Designer.vb @@ -0,0 +1,1883 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DigitalData.GUIs.ZooFlow.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property _1_LOGO_ZOO_FLOW() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("1_LOGO_ZOO_FLOW", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property _1_LOGO_ZOO_FLOW_DROP2() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("1_LOGO_ZOO_FLOW_DROP2", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property _1_LOGO_ZOO_FLOW_DROP3() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("1_LOGO_ZOO_FLOW_DROP3", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property _1_LOGO_ZOO_FLOW1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("1_LOGO_ZOO_FLOW1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property _2_LUPE_AKTIV_ZOO() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("2_LUPE_AKTIV_ZOO", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property _2_LUPE_INAKTIV_ZOO() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("2_LUPE_INAKTIV_ZOO", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property _2_ZOO_FLOW_Abo() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("2_ZOO_FLOW_Abo", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property _2_ZOO_FLOW_Abo_MouseOver() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("2_ZOO_FLOW_Abo_MouseOver", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property _3_PERSON_AKTIV_ZOO() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("3_PERSON_AKTIV_ZOO", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property _3_PERSON_INAKTIV_ZOO() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("3_PERSON_INAKTIV_ZOO", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property _4_GLOBIX_AKTIV_ZOO() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("4_GLOBIX_AKTIV_ZOO", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property _4_GLOBIX_INAKTIV_ZOO() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("4_GLOBIX_INAKTIV_ZOO", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property _new() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("new", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property about() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("about", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property about1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("about1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property about2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("about2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property about3() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("about3", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property about4() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("about4", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property action_add_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("action_add_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property action_add_16xMD() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("action_add_16xMD", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_add() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_add", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_add1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_add1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_addcircled() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_addcircled", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_addcircled1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_addcircled1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_addcircled2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_addcircled2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_addcircled3() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_addcircled3", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_addcircled4() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_addcircled4", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_addcircled5() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_addcircled5", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_calendar() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_calendar", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_calendar1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_calendar1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_check() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_check", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_check1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_check1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_check2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_check2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_check3() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_check3", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_check4() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_check4", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_check5() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_check5", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_database() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_database", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_deletecircled() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_deletecircled", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_deletecircled1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_deletecircled1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_deletecircled2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_deletecircled2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_deletecircled3() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_deletecircled3", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_deletecircled4() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_deletecircled4", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_deletecircled5() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_deletecircled5", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_deletecircled6() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_deletecircled6", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_edit() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_edit", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_edit1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_edit1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_edit2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_edit2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_options() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_options", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_refresh() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_refresh", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_send() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_send", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_send1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_send1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_send2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_send2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_user() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_user", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_window() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_window", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property alignhorizontalcenter() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("alignhorizontalcenter", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property alignverticalcenter() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("alignverticalcenter", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property allowuserstoeditranges() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("allowuserstoeditranges", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property bell_delete() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("bell_delete", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property bell_go() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("bell_go", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property bo_appearance() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("bo_appearance", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property bo_appearance1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("bo_appearance1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property bo_appointment() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("bo_appointment", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property bo_appointment1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("bo_appointment1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property bo_attention() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("bo_attention", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property bo_category() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("bo_category", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property bo_category1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("bo_category1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property bo_document() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("bo_document", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property bo_security_permission_action() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("bo_security_permission_action", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property bo_validation() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("bo_validation", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property bo_validation1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("bo_validation1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property cancel() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("cancel", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Checked_outforEdit_13297() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Checked-outforEdit_13297", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Checked_outforEdit_Color_13297() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Checked-outforEdit_Color_13297", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Close_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Close_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property columnheaders() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("columnheaders", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Compare_RefreshScriptPreview() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Compare_RefreshScriptPreview", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property crossdatasourcefiltering() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("crossdatasourcefiltering", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property CW_GEFUNDEN_klein() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("CW_GEFUNDEN_klein", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property CW_klein() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("CW_klein", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property DD_Icons_ICO_PMANAGER_128px() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("DD_Icons_ICO_PMANAGER_128px", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property DD_Icons_ICO_PMANAGER_256px() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("DD_Icons_ICO_PMANAGER_256px", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property definednameuseinformula() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("definednameuseinformula", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property definednameuseinformula1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("definednameuseinformula1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property definednameuseinformula2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("definednameuseinformula2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property definednameuseinformula3() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("definednameuseinformula3", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property del() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("del", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property del1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("del1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property del2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("del2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property del3() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("del3", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property del4() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("del4", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property del5() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("del5", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property delete() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("delete", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property delete1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("delete1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property deletetable() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("deletetable", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property documentproperties() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("documentproperties", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property doublenext() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("doublenext", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property doublenext1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("doublenext1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property doublenext2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("doublenext2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Editdatasetwithdesigner_8449() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Editdatasetwithdesigner_8449", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property editdatasource() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("editdatasource", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property editdatasource1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("editdatasource1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property editnames() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("editnames", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property editquery() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("editquery", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property enablesearch() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("enablesearch", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Flow() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Flow", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property FLOW_Sidebar_Search_aktiv() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("FLOW_Sidebar_Search_aktiv", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property FLOW_Sidebar_Search_aktiv1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("FLOW_Sidebar_Search_aktiv1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property FLOW_Sidebar_Search_inaktiv() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("FLOW_Sidebar_Search_inaktiv", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property FLOW_Sidebar_Search_inaktiv1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("FLOW_Sidebar_Search_inaktiv1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property FLOW_Sidebar_Task_aktiv() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("FLOW_Sidebar_Task_aktiv", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property FLOW_Sidebar_Task_aktiv1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("FLOW_Sidebar_Task_aktiv1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property FLOW_Sidebar_Task_inaktiv() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("FLOW_Sidebar_Task_inaktiv", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property FLOW_Sidebar_Task_inaktiv1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("FLOW_Sidebar_Task_inaktiv1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property gear_32xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("gear_32xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property GLOBIX_short() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("GLOBIX_short", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Hamburger_icon_svg() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Hamburger_icon.svg", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property highimportance() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("highimportance", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property insertsheet() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("insertsheet", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property link() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("link", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property link1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("link1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property link2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("link2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property link3() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("link3", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property managedatasource() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("managedatasource", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property managedatasource1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("managedatasource1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property managedatasource2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("managedatasource2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property managedatasource3() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("managedatasource3", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property markcomplete() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("markcomplete", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property markcomplete1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("markcomplete1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property new1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("new1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property new2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("new2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property new3() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("new3", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property new4() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("new4", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property nextview() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("nextview", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property open2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("open2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property pagesetup() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("pagesetup", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property pagesetup1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("pagesetup1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property previousview() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("previousview", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property properties() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("properties", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property refresh_16xMD() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("refresh_16xMD", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property renamedatasource() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("renamedatasource", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property save() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("save", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property save_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("save_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property save1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("save1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property save2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("save2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property save3() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("save3", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property save4() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("save4", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property save5() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("save5", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property save6() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("save6", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property save7() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("save7", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property save8() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("save8", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property save9() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("save9", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property scatterchartlabeloptions() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("scatterchartlabeloptions", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property servermode() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("servermode", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property singlepageview() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("singlepageview", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property StatusAnnotations_Information_16xLG_color() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("StatusAnnotations_Information_16xLG_color", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property StatusAnnotations_Stop_16xLG_color() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("StatusAnnotations_Stop_16xLG_color", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property StatusAnnotations_Stop_32xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("StatusAnnotations_Stop_32xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property switchrowcolumns() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("switchrowcolumns", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property text() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("text", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property text1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("text1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property undo() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("undo", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property unlink() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("unlink", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property unlink1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("unlink1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property updatedataextract() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("updatedataextract", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property viewmergeddata() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("viewmergeddata", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property viewmergeddata1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("viewmergeddata1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property windows() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("windows", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ZOO_FLOW__sysicon_256() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ZOO_FLOW_ sysicon_256", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ZooFlow_25() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ZooFlow-25", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property ZooFlow_CW_DevExpress() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("ZooFlow_CW_DevExpress", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ZOOFLOW_DEFAULT() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ZOOFLOW_DEFAULT", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ZOOFLOW_DRAG_NORMAL() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ZOOFLOW_DRAG_NORMAL", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ZOOFLOW_DRAG_PROGRESSIVE() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ZOOFLOW_DRAG_PROGRESSIVE", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ZooFlow_drop() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ZooFlow_drop", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ZooFlow_drop_drag() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ZooFlow_drop_drag", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ZooFlow_g_64___Kopie() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ZooFlow_g-64 - Kopie", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property ZooFlow_G_DevExpress() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("ZooFlow_G_DevExpress", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property ZooFlow_PM_DevExpress() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("ZooFlow_PM_DevExpress", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property ZooFlow_Sidebar_individuelle_suche() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("ZooFlow_Sidebar_individuelle_suche", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property ZooFlow_Sidebar_TOP() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("ZooFlow_Sidebar_TOP", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property ZooFlow_Sidebar_TOP_Drop() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("ZooFlow_Sidebar_TOP_Drop", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ZooflowTitle() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ZooflowTitle", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + End Module +End Namespace diff --git a/GUIs.ZooFlow/My Project/Resources.resx b/GUIs.ZooFlow/My Project/Resources.resx new file mode 100644 index 0000000..430607e --- /dev/null +++ b/GUIs.ZooFlow/My Project/Resources.resx @@ -0,0 +1,667 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + ..\Resources\actions_addcircled5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\CW_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\actions_send2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_send.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\about3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\managedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_addcircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_refresh.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_deletecircled2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\action_add_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\StatusAnnotations_Stop_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\allowuserstoeditranges.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\DD_Icons_ICO_PMANAGER_128px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\del1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\delete1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_edit.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\save1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\1_LOGO_ZOO_FLOW_DROP3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ZOO_FLOW_ sysicon_256.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ZooFlow_CW_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\link2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\editnames.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\FLOW_Sidebar_Task_inaktiv.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\3_PERSON_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\DD_Icons_ICO_PMANAGER_256px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ZOOFLOW_DRAG_NORMAL.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ZooFlow_Sidebar_individuelle_suche.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\editquery.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\about2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\FLOW_Sidebar_Search_inaktiv1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bo_appearance1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\text.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bo_security_permission_action.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\viewmergeddata.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_check6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\2_LUPE_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\actions_addcircled2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\scatterchartlabeloptions.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bell_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\del2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\Flow.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\nextview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\del4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_deletecircled1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\link1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\enablesearch.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bo_category1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\ZooflowTitle.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\FLOW_Sidebar_Task_aktiv.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\crossdatasourcefiltering.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_add.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\gear_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\deletetable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\3_PERSON_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\link3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\FLOW_Sidebar_Search_aktiv1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_deletecircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\save7.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\text1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\insertsheet.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_check5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_check3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\save5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\updatedataextract.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\previousview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\highimportance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\markcomplete1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bo_appointment1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_options.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\new.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bo_appearance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\4_GLOBIX_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ZooFlow_g-64 - Kopie.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\documentproperties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\1_LOGO_ZOO_FLOW.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\about1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\pagesetup1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\2_LUPE_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\markcomplete.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\new4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\ZooFlow_G_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\save6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\delete.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\doublenext.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\ZOOFLOW_DEFAULT.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\actions_check2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\doublenext1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\ZooFlow_drop.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\GLOBIX_short.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Hamburger_icon.svg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\link.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_database.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\windows.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\viewmergeddata1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\save4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\Close_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\managedatasource1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\pagesetup.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\cancel.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ZooFlow_drop_drag.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\FLOW_Sidebar_Task_aktiv1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_deletecircled6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\Editdatasetwithdesigner_8449.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\1_LOGO_ZOO_FLOW_DROP2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\definednameuseinformula1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\CW_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\actions_user.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\open2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_send1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\editdatasource1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\del5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_edit1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\new1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\ZooFlow_Sidebar_TOP_Drop.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\alignhorizontalcenter.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\FLOW_Sidebar_Search_aktiv.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\save3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\ZooFlow-25.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\actions_edit2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\FLOW_Sidebar_Search_inaktiv.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_add1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\managedatasource2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\alignverticalcenter.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_check1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\doublenext2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\properties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\new3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_check.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\editdatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\StatusAnnotations_Stop_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\actions_calendar1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bo_category.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_deletecircled5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\4_GLOBIX_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ZOOFLOW_DRAG_PROGRESSIVE.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Compare_RefreshScriptPreview.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\renamedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_addcircled4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\save9.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\save2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bo_validation1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_deletecircled3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\ZooFlow_Sidebar_TOP.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\definednameuseinformula2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_calendar.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bo_appointment.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bo_validation.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\new2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\FLOW_Sidebar_Task_inaktiv1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_addcircled1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\ZooFlow_PM_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\StatusAnnotations_Information_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\del.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\unlink1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\managedatasource3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\2_ZOO_FLOW_Abo_MouseOver.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Checked-outforEdit_Color_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\about4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\undo.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\switchrowcolumns.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bo_document.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_addcircled3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\save8.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\servermode.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_deletecircled4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bo_attention.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\definednameuseinformula3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\unlink.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\1_LOGO_ZOO_FLOW1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\actions_window.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\definednameuseinformula.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\del3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\columnheaders.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + \ No newline at end of file diff --git a/GUIs.ZooFlow/My Project/Resources.resx.bak b/GUIs.ZooFlow/My Project/Resources.resx.bak new file mode 100644 index 0000000..ec3eb74 --- /dev/null +++ b/GUIs.ZooFlow/My Project/Resources.resx.bak @@ -0,0 +1,460 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + ..\Resources\actions_addcircled2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_database.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\save5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\StatusAnnotations_Stop_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ZooflowTitle.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\delete.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bo_appointment.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\doublenext2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\doublenext1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\Checked-outforEdit_Color_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\definednameuseinformula.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\gear_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\DD_Icons_ICO_PMANAGER_128px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ZooFlow_PM_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bell_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\bo_attention.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\about2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\renamedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_check5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\editdatasource1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_window.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\pagesetup.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\ZOO_FLOW_ sysicon_256.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\actions_deletecircled3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\2_ZOO_FLOW_Abo_MouseOver.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\definednameuseinformula2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\CW_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\actions_check2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\definednameuseinformula1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\markcomplete.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_check3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\1_LOGO_ZOO_FLOW_DROP3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\actions_addcircled3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_add.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\markcomplete1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\editdatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\updatedataextract.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\save1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_options.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\save2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\del1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\1_LOGO_ZOO_FLOW.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\CW_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\actions_check.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\2_LUPE_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\actions_check1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\editnames.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_addcircled5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\about1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\save7.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\deletetable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\documentproperties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_deletecircled5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\4_GLOBIX_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\about4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\DD_Icons_ICO_PMANAGER_256px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\save4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\ZooFlow-25.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\insertsheet.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\ZooFlow_CW_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_edit.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_edit2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\managedatasource1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\managedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\ZooFlow_g-64 - Kopie.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Editdatasetwithdesigner_8449.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\about3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\doublenext.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_add1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\del3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_check6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_deletecircled2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\4_GLOBIX_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\del4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_addcircled4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bo_document.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\pagesetup1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\save6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_deletecircled4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\1_LOGO_ZOO_FLOW_DROP2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ZooFlow_G_DevExpress.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\definednameuseinformula3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\1_LOGO_ZOO_FLOW1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\StatusAnnotations_Stop_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\actions_deletecircled1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\editquery.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\3_PERSON_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\actions_edit1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bo_appearance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_addcircled1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\crossdatasourcefiltering.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\Flow.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\save3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_deletecircled6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\bo_appearance1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\3_PERSON_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\highimportance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\2_LUPE_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\actions_addcircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\del2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\windows.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_deletecircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\del.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\GLOBIX_short.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\actions_send.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + \ No newline at end of file diff --git a/GUIs.ZooFlow/My Project/Settings.Designer.vb b/GUIs.ZooFlow/My Project/Settings.Designer.vb new file mode 100644 index 0000000..82aecba --- /dev/null +++ b/GUIs.ZooFlow/My Project/Settings.Designer.vb @@ -0,0 +1,111 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + + + _ +Partial Friend NotInheritable Class Settings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As Settings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New Settings()),Settings) + +#Region "Automatische My.Settings-Speicherfunktion" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As Settings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + + _ + Public ReadOnly Property IDBConnectionStringDEFAULT() As String + Get + Return CType(Me("IDBConnectionStringDEFAULT"),String) + End Get + End Property + + _ + Public ReadOnly Property UseAppConfigConString() As Boolean + Get + Return CType(Me("UseAppConfigConString"),Boolean) + End Get + End Property + + _ + Public ReadOnly Property DD_ECMConnectionString() As String + Get + Return CType(Me("DD_ECMConnectionString"),String) + End Get + End Property + + _ + Public ReadOnly Property UserConfig_Prefix() As String + Get + Return CType(Me("UserConfig_Prefix"),String) + End Get + End Property +End Class + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.DigitalData.GUIs.ZooFlow.Settings + Get + Return Global.DigitalData.GUIs.ZooFlow.Settings.Default + End Get + End Property + End Module +End Namespace diff --git a/GUIs.ZooFlow/My Project/Settings.settings b/GUIs.ZooFlow/My Project/Settings.settings new file mode 100644 index 0000000..4564a6e --- /dev/null +++ b/GUIs.ZooFlow/My Project/Settings.settings @@ -0,0 +1,28 @@ + + + + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=IDB;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> + <ProviderName>System.Data.SqlClient</ProviderName> +</SerializableConnectionString> + Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=IDB;Persist Security Info=True;User ID=sa;Password=dd + + + True + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> + <ProviderName>System.Data.SqlClient</ProviderName> +</SerializableConnectionString> + Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd + + + DEV + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/My Project/licenses.licx b/GUIs.ZooFlow/My Project/licenses.licx new file mode 100644 index 0000000..951b8c4 --- /dev/null +++ b/GUIs.ZooFlow/My Project/licenses.licx @@ -0,0 +1,12 @@ +DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/GUIs.ZooFlow/My Project/licenses.licx.bak b/GUIs.ZooFlow/My Project/licenses.licx.bak new file mode 100644 index 0000000..aff6ebd --- /dev/null +++ b/GUIs.ZooFlow/My Project/licenses.licx.bak @@ -0,0 +1,22 @@ +DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemDateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/GUIs.ZooFlow/MyApplication.vb b/GUIs.ZooFlow/MyApplication.vb new file mode 100644 index 0000000..9ae3daf --- /dev/null +++ b/GUIs.ZooFlow/MyApplication.vb @@ -0,0 +1,81 @@ +Imports DigitalData.Modules.Config +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Database +Imports DigitalData.Modules.ZooFlow +Imports DigitalData.Modules.EDMI.API + +Namespace My + ''' + ''' Extends the My Namespace + ''' Example: My.LogConfig + ''' + + Module Extension + Property SystemConfigManager As ConfigManager(Of SystemConfig) + ReadOnly Property SystemConfig As SystemConfig + Get + Return SystemConfigManager.Config + End Get + End Property + + Property UIConfigManager As ConfigManager(Of UIConfig) + ReadOnly Property UIConfig As UIConfig + Get + Return UIConfigManager.Config + End Get + End Property + + Property LogConfig As LogConfig + +#Region "Database" + Property Database As DatabaseWithFallback + Property DatabaseECM As MSSQLServer + Property DatabaseIDB As MSSQLServer + + Property Tables As New ClassTables + Property Queries As New ClassQueries +#End Region + + End Module + + ''' + ''' Extends the My.Application Namespace to hold Application State + ''' Example: My.Application.User + ''' + Partial Friend Class MyApplication + Public Property Skin As String = "" + Public Property Palette As String = "" + Public Property GlobixDropAreaStyle As String = "PROGRESSIVE" + + Public Property Settings As New State.SettingsState + Public Property User As New State.UserState + Public Property Service As New State.ServiceState + Public Property Modules As New Dictionary(Of String, State.ModuleState) + Public Property ModulesActive As New List(Of String) + Public Property ClipboardWatcher As New ClipboardWatcher.State + Public Property Globix As New Globix.State + Public Property Search As New Search.State + + Public CommandLineFunction As String + Public CommandLineArguments As New Dictionary(Of String, String) + + Public Function GetEnvironment() As Environment + Return New Environment With { + .Database = My.DatabaseECM, + .DatabaseIDB = My.DatabaseIDB, + .Modules = My.Application.Modules, + .Service = My.Application.Service, + .Settings = My.Application.Settings, + .User = My.Application.User + } + End Function + Public Function GetAdHocWorkflow(pObjectID As Long) As AdHocWorkflow + Return New AdHocWorkflow With { + .AHWF_CMD_LAYOUT_SELECT = SQL_AHW_LAYOUT_SELECT, + .AHWF_CMD_USR_SELECT = SQL_AHW_USR_SELECT, + .OBJECT_ID = pObjectID + } + End Function + End Class +End Namespace + diff --git a/GUIs.ZooFlow/MyDataset.Designer.vb b/GUIs.ZooFlow/MyDataset.Designer.vb new file mode 100644 index 0000000..0ddc085 --- /dev/null +++ b/GUIs.ZooFlow/MyDataset.Designer.vb @@ -0,0 +1,2709 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class DSClipboardWatcher + Inherits Global.System.Data.DataSet + + Private tableVWCW_USER_PROFILE As VWCW_USER_PROFILEDataTable + + Private tableTBCW_PROFILES As TBCW_PROFILESDataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("VWCW_USER_PROFILE")) Is Nothing) Then + MyBase.Tables.Add(New VWCW_USER_PROFILEDataTable(ds.Tables("VWCW_USER_PROFILE"))) + End If + If (Not (ds.Tables("TBCW_PROFILES")) Is Nothing) Then + MyBase.Tables.Add(New TBCW_PROFILESDataTable(ds.Tables("TBCW_PROFILES"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property VWCW_USER_PROFILE() As VWCW_USER_PROFILEDataTable + Get + Return Me.tableVWCW_USER_PROFILE + End Get + End Property + + _ + Public ReadOnly Property TBCW_PROFILES() As TBCW_PROFILESDataTable + Get + Return Me.tableTBCW_PROFILES + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As DSClipboardWatcher = CType(MyBase.Clone,DSClipboardWatcher) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("VWCW_USER_PROFILE")) Is Nothing) Then + MyBase.Tables.Add(New VWCW_USER_PROFILEDataTable(ds.Tables("VWCW_USER_PROFILE"))) + End If + If (Not (ds.Tables("TBCW_PROFILES")) Is Nothing) Then + MyBase.Tables.Add(New TBCW_PROFILESDataTable(ds.Tables("TBCW_PROFILES"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableVWCW_USER_PROFILE = CType(MyBase.Tables("VWCW_USER_PROFILE"),VWCW_USER_PROFILEDataTable) + If (initTable = true) Then + If (Not (Me.tableVWCW_USER_PROFILE) Is Nothing) Then + Me.tableVWCW_USER_PROFILE.InitVars + End If + End If + Me.tableTBCW_PROFILES = CType(MyBase.Tables("TBCW_PROFILES"),TBCW_PROFILESDataTable) + If (initTable = true) Then + If (Not (Me.tableTBCW_PROFILES) Is Nothing) Then + Me.tableTBCW_PROFILES.InitVars + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DSClipboardWatcher" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DSClipboardWatcher.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableVWCW_USER_PROFILE = New VWCW_USER_PROFILEDataTable() + MyBase.Tables.Add(Me.tableVWCW_USER_PROFILE) + Me.tableTBCW_PROFILES = New TBCW_PROFILESDataTable() + MyBase.Tables.Add(Me.tableTBCW_PROFILES) + End Sub + + _ + Private Function ShouldSerializeVWCW_USER_PROFILE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBCW_PROFILES() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As DSClipboardWatcher = New DSClipboardWatcher() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub VWCW_USER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As VWCW_USER_PROFILERowChangeEvent) + + _ + Public Delegate Sub TBCW_PROFILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROFILESRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWCW_USER_PROFILEDataTable + Inherits Global.System.Data.TypedTableBase(Of VWCW_USER_PROFILERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnREGEX_EXPRESSION As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnPROFILE_TYPE As Global.System.Data.DataColumn + + Private columnPROC_NAME As Global.System.Data.DataColumn + + Private columnUSER_ID As Global.System.Data.DataColumn + + Private columnGROUP_ID As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWCW_USER_PROFILE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property REGEX_EXPRESSIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREGEX_EXPRESSION + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property PROFILE_TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROFILE_TYPE + End Get + End Property + + _ + Public ReadOnly Property PROC_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROC_NAME + End Get + End Property + + _ + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_ID + End Get + End Property + + _ + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP_ID + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWCW_USER_PROFILERow + Get + Return CType(Me.Rows(index),VWCW_USER_PROFILERow) + End Get + End Property + + _ + Public Event VWCW_USER_PROFILERowChanging As VWCW_USER_PROFILERowChangeEventHandler + + _ + Public Event VWCW_USER_PROFILERowChanged As VWCW_USER_PROFILERowChangeEventHandler + + _ + Public Event VWCW_USER_PROFILERowDeleting As VWCW_USER_PROFILERowChangeEventHandler + + _ + Public Event VWCW_USER_PROFILERowDeleted As VWCW_USER_PROFILERowChangeEventHandler + + _ + Public Overloads Sub AddVWCW_USER_PROFILERow(ByVal row As VWCW_USER_PROFILERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWCW_USER_PROFILERow(ByVal GUID As Integer, ByVal NAME As String, ByVal REGEX_EXPRESSION As String, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal PROFILE_TYPE As Short, ByVal PROC_NAME As String, ByVal USER_ID As Integer, ByVal GROUP_ID As Integer) As VWCW_USER_PROFILERow + Dim rowVWCW_USER_PROFILERow As VWCW_USER_PROFILERow = CType(Me.NewRow,VWCW_USER_PROFILERow) + Dim columnValuesArray() As Object = New Object() {GUID, NAME, REGEX_EXPRESSION, COMMENT, ACTIVE, PROFILE_TYPE, PROC_NAME, USER_ID, GROUP_ID} + rowVWCW_USER_PROFILERow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWCW_USER_PROFILERow) + Return rowVWCW_USER_PROFILERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As VWCW_USER_PROFILERow + Return CType(Me.Rows.Find(New Object() {GUID}),VWCW_USER_PROFILERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWCW_USER_PROFILEDataTable = CType(MyBase.Clone,VWCW_USER_PROFILEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWCW_USER_PROFILEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnREGEX_EXPRESSION = MyBase.Columns("REGEX_EXPRESSION") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnPROFILE_TYPE = MyBase.Columns("PROFILE_TYPE") + Me.columnPROC_NAME = MyBase.Columns("PROC_NAME") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnREGEX_EXPRESSION = New Global.System.Data.DataColumn("REGEX_EXPRESSION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnREGEX_EXPRESSION) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnPROFILE_TYPE = New Global.System.Data.DataColumn("PROFILE_TYPE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_TYPE) + Me.columnPROC_NAME = New Global.System.Data.DataColumn("PROC_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROC_NAME) + Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_ID) + Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP_ID) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 100 + Me.columnREGEX_EXPRESSION.AllowDBNull = false + Me.columnREGEX_EXPRESSION.MaxLength = 100 + Me.columnCOMMENT.MaxLength = 500 + Me.columnACTIVE.AllowDBNull = false + Me.columnPROFILE_TYPE.AllowDBNull = false + Me.columnPROC_NAME.MaxLength = 100 + End Sub + + _ + Public Function NewVWCW_USER_PROFILERow() As VWCW_USER_PROFILERow + Return CType(Me.NewRow,VWCW_USER_PROFILERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWCW_USER_PROFILERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWCW_USER_PROFILERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWCW_USER_PROFILERowChangedEvent) Is Nothing) Then + RaiseEvent VWCW_USER_PROFILERowChanged(Me, New VWCW_USER_PROFILERowChangeEvent(CType(e.Row,VWCW_USER_PROFILERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWCW_USER_PROFILERowChangingEvent) Is Nothing) Then + RaiseEvent VWCW_USER_PROFILERowChanging(Me, New VWCW_USER_PROFILERowChangeEvent(CType(e.Row,VWCW_USER_PROFILERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWCW_USER_PROFILERowDeletedEvent) Is Nothing) Then + RaiseEvent VWCW_USER_PROFILERowDeleted(Me, New VWCW_USER_PROFILERowChangeEvent(CType(e.Row,VWCW_USER_PROFILERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWCW_USER_PROFILERowDeletingEvent) Is Nothing) Then + RaiseEvent VWCW_USER_PROFILERowDeleting(Me, New VWCW_USER_PROFILERowChangeEvent(CType(e.Row,VWCW_USER_PROFILERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWCW_USER_PROFILERow(ByVal row As VWCW_USER_PROFILERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSClipboardWatcher = New DSClipboardWatcher() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWCW_USER_PROFILEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBCW_PROFILESDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_PROFILESRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnREGEX_EXPRESSION As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnPROFILE_TYPE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBCW_PROFILES" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property REGEX_EXPRESSIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREGEX_EXPRESSION + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property PROFILE_TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROFILE_TYPE + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROFILESRow + Get + Return CType(Me.Rows(index),TBCW_PROFILESRow) + End Get + End Property + + _ + Public Event TBCW_PROFILESRowChanging As TBCW_PROFILESRowChangeEventHandler + + _ + Public Event TBCW_PROFILESRowChanged As TBCW_PROFILESRowChangeEventHandler + + _ + Public Event TBCW_PROFILESRowDeleting As TBCW_PROFILESRowChangeEventHandler + + _ + Public Event TBCW_PROFILESRowDeleted As TBCW_PROFILESRowChangeEventHandler + + _ + Public Overloads Sub AddTBCW_PROFILESRow(ByVal row As TBCW_PROFILESRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBCW_PROFILESRow(ByVal NAME As String, ByVal COMMENT As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ACTIVE As Boolean, ByVal PROFILE_TYPE As Short) As TBCW_PROFILESRow + Dim rowTBCW_PROFILESRow As TBCW_PROFILESRow = CType(Me.NewRow,TBCW_PROFILESRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE} + rowTBCW_PROFILESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCW_PROFILESRow) + Return rowTBCW_PROFILESRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROFILESRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROFILESRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBCW_PROFILESDataTable = CType(MyBase.Clone,TBCW_PROFILESDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBCW_PROFILESDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnREGEX_EXPRESSION = MyBase.Columns("REGEX_EXPRESSION") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnPROFILE_TYPE = MyBase.Columns("PROFILE_TYPE") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnREGEX_EXPRESSION = New Global.System.Data.DataColumn("REGEX_EXPRESSION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnREGEX_EXPRESSION) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnPROFILE_TYPE = New Global.System.Data.DataColumn("PROFILE_TYPE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_TYPE) + 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.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 100 + Me.columnCOMMENT.MaxLength = 500 + Me.columnREGEX_EXPRESSION.AllowDBNull = false + Me.columnREGEX_EXPRESSION.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnACTIVE.AllowDBNull = false + Me.columnPROFILE_TYPE.AllowDBNull = false + End Sub + + _ + Public Function NewTBCW_PROFILESRow() As TBCW_PROFILESRow + Return CType(Me.NewRow,TBCW_PROFILESRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBCW_PROFILESRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBCW_PROFILESRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBCW_PROFILESRowChangedEvent) Is Nothing) Then + RaiseEvent TBCW_PROFILESRowChanged(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBCW_PROFILESRowChangingEvent) Is Nothing) Then + RaiseEvent TBCW_PROFILESRowChanging(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBCW_PROFILESRowDeletedEvent) Is Nothing) Then + RaiseEvent TBCW_PROFILESRowDeleted(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBCW_PROFILESRowDeletingEvent) Is Nothing) Then + RaiseEvent TBCW_PROFILESRowDeleting(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBCW_PROFILESRow(ByVal row As TBCW_PROFILESRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DSClipboardWatcher = New DSClipboardWatcher() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBCW_PROFILESDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWCW_USER_PROFILERow + Inherits Global.System.Data.DataRow + + Private tableVWCW_USER_PROFILE As VWCW_USER_PROFILEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWCW_USER_PROFILE = CType(Me.Table,VWCW_USER_PROFILEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWCW_USER_PROFILE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableVWCW_USER_PROFILE.NAMEColumn),String) + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.NAMEColumn) = value + End Set + End Property + + _ + Public Property REGEX_EXPRESSION() As String + Get + Return CType(Me(Me.tableVWCW_USER_PROFILE.REGEX_EXPRESSIONColumn),String) + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.REGEX_EXPRESSIONColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableVWCW_USER_PROFILE.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWCW_USER_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableVWCW_USER_PROFILE.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property PROFILE_TYPE() As Short + Get + Return CType(Me(Me.tableVWCW_USER_PROFILE.PROFILE_TYPEColumn),Short) + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.PROFILE_TYPEColumn) = value + End Set + End Property + + _ + Public Property PROC_NAME() As String + Get + Try + Return CType(Me(Me.tableVWCW_USER_PROFILE.PROC_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PROC_NAME in Tabelle VWCW_USER_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.PROC_NAMEColumn) = value + End Set + End Property + + _ + Public Property USER_ID() As Integer + Get + Try + Return CType(Me(Me.tableVWCW_USER_PROFILE.USER_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_ID in Tabelle VWCW_USER_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.USER_IDColumn) = value + End Set + End Property + + _ + Public Property GROUP_ID() As Integer + Get + Try + Return CType(Me(Me.tableVWCW_USER_PROFILE.GROUP_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GROUP_ID in Tabelle VWCW_USER_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWCW_USER_PROFILE.GROUP_IDColumn) = value + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableVWCW_USER_PROFILE.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableVWCW_USER_PROFILE.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPROC_NAMENull() As Boolean + Return Me.IsNull(Me.tableVWCW_USER_PROFILE.PROC_NAMEColumn) + End Function + + _ + Public Sub SetPROC_NAMENull() + Me(Me.tableVWCW_USER_PROFILE.PROC_NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSER_IDNull() As Boolean + Return Me.IsNull(Me.tableVWCW_USER_PROFILE.USER_IDColumn) + End Function + + _ + Public Sub SetUSER_IDNull() + Me(Me.tableVWCW_USER_PROFILE.USER_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGROUP_IDNull() As Boolean + Return Me.IsNull(Me.tableVWCW_USER_PROFILE.GROUP_IDColumn) + End Function + + _ + Public Sub SetGROUP_IDNull() + Me(Me.tableVWCW_USER_PROFILE.GROUP_IDColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_PROFILESRow + Inherits Global.System.Data.DataRow + + Private tableTBCW_PROFILES As TBCW_PROFILESDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_PROFILES = CType(Me.Table,TBCW_PROFILESDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROFILES.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROFILES.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBCW_PROFILES.NAMEColumn),String) + End Get + Set + Me(Me.tableTBCW_PROFILES.NAMEColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROFILES.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBCW_PROFILES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROFILES.COMMENTColumn) = value + End Set + End Property + + _ + Public Property REGEX_EXPRESSION() As String + Get + Return CType(Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn),String) + End Get + Set + Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROFILES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROFILES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROFILES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBCW_PROFILES.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBCW_PROFILES.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property PROFILE_TYPE() As Short + Get + Return CType(Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn),Short) + End Get + Set + Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn) = value + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROFILES.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBCW_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROFILES.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWCW_USER_PROFILERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWCW_USER_PROFILERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWCW_USER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWCW_USER_PROFILERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBCW_PROFILESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCW_PROFILESRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBCW_PROFILESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBCW_PROFILESRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace DSClipboardWatcherTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWCW_USER_PROFILETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWCW_USER_PROFILE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("REGEX_EXPRESSION", "REGEX_EXPRESSION") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("PROFILE_TYPE", "PROFILE_TYPE") + tableMapping.ColumnMappings.Add("PROC_NAME", "PROC_NAME") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, REGEX_EXPRESSION, COMMENT, ACTIVE, PROFILE_TYPE, PROC_NAME, US"& _ + "ER_ID, GROUP_ID FROM dbo.VWCW_USER_PROFILE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSClipboardWatcher.VWCW_USER_PROFILEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DSClipboardWatcher.VWCW_USER_PROFILEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSClipboardWatcher.VWCW_USER_PROFILEDataTable = New DSClipboardWatcher.VWCW_USER_PROFILEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBCW_PROFILESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBCW_PROFILES" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("REGEX_EXPRESSION", "REGEX_EXPRESSION") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("PROFILE_TYPE", "PROFILE_TYPE") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[TBCW_PROFILES] WHERE (([GUID] = @Original_GUID) AND ([NAME] = "& _ + "@Original_NAME) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] ="& _ + " @Original_COMMENT)) AND ([REGEX_EXPRESSION] = @Original_REGEX_EXPRESSION) AND ("& _ + "[ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN]"& _ + " IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = "& _ + "1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@"& _ + "IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Origin"& _ + "al_CHANGED_WHEN)) AND ([ACTIVE] = @Original_ACTIVE) AND ([PROFILE_TYPE] = @Origi"& _ + "nal_PROFILE_TYPE))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[TBCW_PROFILES] ([NAME], [COMMENT], [REGEX_EXPRESSION], [ADDED_"& _ + "WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [ACTIVE], [PROFILE_TYPE]) VAL"& _ + "UES (@NAME, @COMMENT, @REGEX_EXPRESSION, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, "& _ + "@CHANGED_WHEN, @ACTIVE, @PROFILE_TYPE);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, COMMENT, REGEX_EXPRE"& _ + "SSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FR"& _ + "OM TBCW_PROFILES WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, 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("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, 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("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", 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 [dbo].[TBCW_PROFILES] SET [NAME] = @NAME, [COMMENT] = @COMMENT, [REGEX_EXP"& _ + "RESSION] = @REGEX_EXPRESSION, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WH"& _ + "EN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [ACTIVE] = @AC"& _ + "TIVE, [PROFILE_TYPE] = @PROFILE_TYPE WHERE (([GUID] = @Original_GUID) AND ([NAME"& _ + "] = @Original_NAME) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMEN"& _ + "T] = @Original_COMMENT)) AND ([REGEX_EXPRESSION] = @Original_REGEX_EXPRESSION) A"& _ + "ND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_W"& _ + "HEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WH"& _ + "O = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND"& _ + " ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Or"& _ + "iginal_CHANGED_WHEN)) AND ([ACTIVE] = @Original_ACTIVE) AND ([PROFILE_TYPE] = @O"& _ + "riginal_PROFILE_TYPE));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO"& _ + ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES"& _ + " WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, 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("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, 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("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", 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, 0, 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("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", 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.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ + " CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM dbo.TBCW_PROFILES" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSClipboardWatcher.TBCW_PROFILESDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DSClipboardWatcher.TBCW_PROFILESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSClipboardWatcher.TBCW_PROFILESDataTable = New DSClipboardWatcher.TBCW_PROFILESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSClipboardWatcher.TBCW_PROFILESDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSClipboardWatcher) As Integer + Return Me.Adapter.Update(dataSet, "TBCW_PROFILES") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_COMMENT As String, ByVal Original_REGEX_EXPRESSION As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_ACTIVE As Boolean, ByVal Original_PROFILE_TYPE As Short) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_NAME") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_COMMENT,String) + End If + If (Original_REGEX_EXPRESSION Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_REGEX_EXPRESSION") + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_REGEX_EXPRESSION,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_ACTIVE,Boolean) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_PROFILE_TYPE,Short) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal ACTIVE As Boolean, ByVal PROFILE_TYPE As Short) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) + End If + If (REGEX_EXPRESSION Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(REGEX_EXPRESSION,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ACTIVE,Boolean) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(PROFILE_TYPE,Short) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal NAME As String, _ + ByVal COMMENT As String, _ + ByVal REGEX_EXPRESSION As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal ACTIVE As Boolean, _ + ByVal PROFILE_TYPE As Short, _ + ByVal Original_GUID As Integer, _ + ByVal Original_NAME As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_REGEX_EXPRESSION As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_PROFILE_TYPE As Short, _ + ByVal GUID As Integer) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT,String) + End If + If (REGEX_EXPRESSION Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(REGEX_EXPRESSION,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ACTIVE,Boolean) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(PROFILE_TYPE,Short) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) + If (Original_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_NAME,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_COMMENT,String) + End If + If (Original_REGEX_EXPRESSION Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_REGEX_EXPRESSION") + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_REGEX_EXPRESSION,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ACTIVE,Boolean) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_PROFILE_TYPE,Short) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal NAME As String, _ + ByVal COMMENT As String, _ + ByVal REGEX_EXPRESSION As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal ACTIVE As Boolean, _ + ByVal PROFILE_TYPE As Short, _ + ByVal Original_GUID As Integer, _ + ByVal Original_NAME As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_REGEX_EXPRESSION As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_PROFILE_TYPE As Short) As Integer + Return Me.Update(NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE, Original_GUID, Original_NAME, Original_COMMENT, Original_REGEX_EXPRESSION, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_ACTIVE, Original_PROFILE_TYPE, Original_GUID) + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tBCW_PROFILESTableAdapter As TBCW_PROFILESTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property TBCW_PROFILESTableAdapter() As TBCW_PROFILESTableAdapter + Get + Return Me._tBCW_PROFILESTableAdapter + End Get + Set + Me._tBCW_PROFILESTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBCW_PROFILESTableAdapter.Connection) Is Nothing)) Then + Return Me._tBCW_PROFILESTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As DSClipboardWatcher, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBCW_PROFILESTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As DSClipboardWatcher, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBCW_PROFILESTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As DSClipboardWatcher, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBCW_PROFILESTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As DSClipboardWatcher) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROFILESTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ + "t.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBCW_PROFILESTableAdapter, Me._tBCW_PROFILESTableAdapter.Connection) + Me._tBCW_PROFILESTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROFILESTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBCW_PROFILESTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBCW_PROFILESTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROFILESTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then + Me._tBCW_PROFILESTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROFILESTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROFILESTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/GUIs.ZooFlow/MyDataset.vb b/GUIs.ZooFlow/MyDataset.vb new file mode 100644 index 0000000..98e3433 --- /dev/null +++ b/GUIs.ZooFlow/MyDataset.vb @@ -0,0 +1,2 @@ +Partial Class MyDataset +End Class diff --git a/GUIs.ZooFlow/MyDataset.xsc b/GUIs.ZooFlow/MyDataset.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/GUIs.ZooFlow/MyDataset.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/MyDataset.xsd b/GUIs.ZooFlow/MyDataset.xsd new file mode 100644 index 0000000..a04aae1 --- /dev/null +++ b/GUIs.ZooFlow/MyDataset.xsd @@ -0,0 +1,233 @@ + + + + + + + + + + + + + + + SELECT GUID, NAME, REGEX_EXPRESSION, COMMENT, ACTIVE, PROFILE_TYPE, PROC_NAME, USER_ID, GROUP_ID FROM dbo.VWCW_USER_PROFILE + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [dbo].[TBCW_PROFILES] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([REGEX_EXPRESSION] = @Original_REGEX_EXPRESSION) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([ACTIVE] = @Original_ACTIVE) AND ([PROFILE_TYPE] = @Original_PROFILE_TYPE)) + + + + + + + + + + + + + + + + + + + + + INSERT INTO [dbo].[TBCW_PROFILES] ([NAME], [COMMENT], [REGEX_EXPRESSION], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [ACTIVE], [PROFILE_TYPE]) VALUES (@NAME, @COMMENT, @REGEX_EXPRESSION, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @ACTIVE, @PROFILE_TYPE); +SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM dbo.TBCW_PROFILES + + + + + + UPDATE [dbo].[TBCW_PROFILES] SET [NAME] = @NAME, [COMMENT] = @COMMENT, [REGEX_EXPRESSION] = @REGEX_EXPRESSION, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [ACTIVE] = @ACTIVE, [PROFILE_TYPE] = @PROFILE_TYPE WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([REGEX_EXPRESSION] = @Original_REGEX_EXPRESSION) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([ACTIVE] = @Original_ACTIVE) AND ([PROFILE_TYPE] = @Original_PROFILE_TYPE)); +SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/MyDataset.xss b/GUIs.ZooFlow/MyDataset.xss new file mode 100644 index 0000000..1ef7d67 --- /dev/null +++ b/GUIs.ZooFlow/MyDataset.xss @@ -0,0 +1,13 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Queries/ClassClipboardWatcherQueries.vb b/GUIs.ZooFlow/Queries/ClassClipboardWatcherQueries.vb new file mode 100644 index 0000000..530df86 --- /dev/null +++ b/GUIs.ZooFlow/Queries/ClassClipboardWatcherQueries.vb @@ -0,0 +1,34 @@ +Public Class ClassClipboardWatcherQueries + Private Function ProfileWhereClause(UserId As Integer) As String + Return $"T1.USER_ID = {UserId} OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {UserId}))" + End Function + + Public Function VWCW_USER_PROFILE(UserId As Integer) As String + Dim oWhereClause = ProfileWhereClause(UserId) + Return $"SELECT DISTINCT GUID, NAME,REGEX_EXPRESSION,COMMENT,PROC_NAME,PROFILE_TYPE FROM VWCW_USER_PROFILE T1 WHERE {oWhereClause}" + End Function + + Public Function VWCW_PROFILE_REL_WINDOW(UserId As Integer) As String + Dim oWhereClause = ProfileWhereClause(UserId) + Return $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_WINDOW T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.GUID AND ({oWhereClause})" + End Function + + Public Function VWCW_PROFILE_REL_CONTROL(UserId As Integer) As String + Dim oWhereClause = ProfileWhereClause(UserId) + Return $"SELECT DISTINCT T.* FROM VWCW_PROFILE_REL_CONTROL T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.GUID AND ({oWhereClause})" + End Function + + Public Function TBCW_PROFILE_PROCESS(UserId As Integer) As String + Dim oWhereClause = ProfileWhereClause(UserId) + Return $"SELECT DISTINCT T.GUID, T.PROFILE_ID,T.PROC_NAME FROM TBCW_PROFILE_PROCESS T, VWCW_USER_PROFILE T1 WHERE T.PROFILE_ID = T1.GUID AND ({oWhereClause})" + End Function + + Public Function TBCW_PROF_DATA_SEARCH(ProfileId As Integer) As String + Return $"SELECT COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {ProfileId}" + End Function + + Public Function TBCW_PROF_DOC_SEARCH(ProfileId As Integer) As String + Return $"SELECT COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {ProfileId}" + End Function + +End Class diff --git a/GUIs.ZooFlow/Queries/ClassCommonQueries.vb b/GUIs.ZooFlow/Queries/ClassCommonQueries.vb new file mode 100644 index 0000000..0cb5585 --- /dev/null +++ b/GUIs.ZooFlow/Queries/ClassCommonQueries.vb @@ -0,0 +1,25 @@ +Public Class ClassCommonQueries + Public Function FNDD_CHECK_USER_MODULE(Username As String, Optional ClientId As Integer = 1) As String + Return String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','ZF',{1})", Username, ClientId) + End Function + + Public Function FNDD_MODULE_INIT(Username As String) As String + Return String.Format("SELECT * FROM [dbo].[FNZF_GET_MODULE_INFO] ('{0}')", Username) + End Function + + Public Function FNIDB_GET_SEARCH_PROFILES(UserId As Integer, UserLanguage As String) As String + Return String.Format("SELECT * FROM [dbo].[FNIDB_GET_SEARCH_PROFILES] ({0},'{1}')", UserId, UserLanguage) + End Function + Public Function IDB_CATALOG() As String + Return String.Format("SELECT * FROM TBIDB_CATALOG") + End Function + Public Function DOCRESULT_TODAY() As String + Return $"SELECT * FROM VWIDB_DOCRESULT_{IIf(My.Application.User.Language = "de-DE", "DE", "EN")} WHERE CONVERT(DATE,[Added when]) = CONVERT(DATE,GetDate())" + End Function + Public Function DOCRESULT_DocID(DocID As Long) As String + Return $"SELECT * FROM VWIDB_DOCRESULT_{IIf(My.Application.User.Language = "de-DE", "DE", "EN")} WHERE DocID = {DocID}" + End Function + Public Function DOCRESULT_TODAY_ME() As String + Return $"SELECT * FROM VWIDB_DOCRESULT_{IIf(My.Application.User.Language = "de-DE", "DE", "EN")} WHERE CONVERT(DATE,[Added when]) = CONVERT(DATE,GetDate()) AND [Added who] = '{My.Application.User.UserName}'" + End Function +End Class diff --git a/GUIs.ZooFlow/Queries/ClassQueries.vb b/GUIs.ZooFlow/Queries/ClassQueries.vb new file mode 100644 index 0000000..0324957 --- /dev/null +++ b/GUIs.ZooFlow/Queries/ClassQueries.vb @@ -0,0 +1,4 @@ +Public Class ClassQueries + Public Property Common As New ClassCommonQueries + Public Property ClipboardWatcher As New ClassClipboardWatcherQueries +End Class diff --git a/GUIs.ZooFlow/Queries/ClassTables.vb b/GUIs.ZooFlow/Queries/ClassTables.vb new file mode 100644 index 0000000..93d3e2f --- /dev/null +++ b/GUIs.ZooFlow/Queries/ClassTables.vb @@ -0,0 +1,8 @@ +Public Class ClassTables + Property DTIDB_ATTRIBUTE As DataTable + Property DTIDB_CATALOG_USER As DataTable + Property DTIDB_COMMON_SQL As DataTable + Property DTIDB_FILESTORE As DataTable + Property DTIDB_DOC_DATA As DataTable + Property DTDD_CONNECTION As DataTable +End Class diff --git a/GUIs.ZooFlow/Resources/0_ZOO_FLOW_Hintergrund.png b/GUIs.ZooFlow/Resources/0_ZOO_FLOW_Hintergrund.png new file mode 100644 index 0000000..ee589ec Binary files /dev/null and b/GUIs.ZooFlow/Resources/0_ZOO_FLOW_Hintergrund.png differ diff --git a/GUIs.ZooFlow/Resources/1_LOGO_ZOO_FLOW.png b/GUIs.ZooFlow/Resources/1_LOGO_ZOO_FLOW.png new file mode 100644 index 0000000..b5852fe Binary files /dev/null and b/GUIs.ZooFlow/Resources/1_LOGO_ZOO_FLOW.png differ diff --git a/GUIs.ZooFlow/Resources/1_LOGO_ZOO_FLOW1.png b/GUIs.ZooFlow/Resources/1_LOGO_ZOO_FLOW1.png new file mode 100644 index 0000000..b5852fe Binary files /dev/null and b/GUIs.ZooFlow/Resources/1_LOGO_ZOO_FLOW1.png differ diff --git a/GUIs.ZooFlow/Resources/1_LOGO_ZOO_FLOW_DROP2.png b/GUIs.ZooFlow/Resources/1_LOGO_ZOO_FLOW_DROP2.png new file mode 100644 index 0000000..b4c1e32 Binary files /dev/null and b/GUIs.ZooFlow/Resources/1_LOGO_ZOO_FLOW_DROP2.png differ diff --git a/GUIs.ZooFlow/Resources/1_LOGO_ZOO_FLOW_DROP3.png b/GUIs.ZooFlow/Resources/1_LOGO_ZOO_FLOW_DROP3.png new file mode 100644 index 0000000..eab4213 Binary files /dev/null and b/GUIs.ZooFlow/Resources/1_LOGO_ZOO_FLOW_DROP3.png differ diff --git a/GUIs.ZooFlow/Resources/1_ZOO_FLOW_Person.png b/GUIs.ZooFlow/Resources/1_ZOO_FLOW_Person.png new file mode 100644 index 0000000..25e5b89 Binary files /dev/null and b/GUIs.ZooFlow/Resources/1_ZOO_FLOW_Person.png differ diff --git a/GUIs.ZooFlow/Resources/2_LUPE_AKTIV_ZOO.png b/GUIs.ZooFlow/Resources/2_LUPE_AKTIV_ZOO.png new file mode 100644 index 0000000..d4fa9ed Binary files /dev/null and b/GUIs.ZooFlow/Resources/2_LUPE_AKTIV_ZOO.png differ diff --git a/GUIs.ZooFlow/Resources/2_LUPE_INAKTIV_ZOO.png b/GUIs.ZooFlow/Resources/2_LUPE_INAKTIV_ZOO.png new file mode 100644 index 0000000..0ee94be Binary files /dev/null and b/GUIs.ZooFlow/Resources/2_LUPE_INAKTIV_ZOO.png differ diff --git a/GUIs.ZooFlow/Resources/2_ZOO_FLOW_Abo.png b/GUIs.ZooFlow/Resources/2_ZOO_FLOW_Abo.png new file mode 100644 index 0000000..53f4462 Binary files /dev/null and b/GUIs.ZooFlow/Resources/2_ZOO_FLOW_Abo.png differ diff --git a/GUIs.ZooFlow/Resources/2_ZOO_FLOW_Abo_MouseOver.png b/GUIs.ZooFlow/Resources/2_ZOO_FLOW_Abo_MouseOver.png new file mode 100644 index 0000000..4a5f464 Binary files /dev/null and b/GUIs.ZooFlow/Resources/2_ZOO_FLOW_Abo_MouseOver.png differ diff --git a/GUIs.ZooFlow/Resources/3_PERSON_AKTIV_ZOO.png b/GUIs.ZooFlow/Resources/3_PERSON_AKTIV_ZOO.png new file mode 100644 index 0000000..7726fe3 Binary files /dev/null and b/GUIs.ZooFlow/Resources/3_PERSON_AKTIV_ZOO.png differ diff --git a/GUIs.ZooFlow/Resources/3_PERSON_INAKTIV_ZOO.png b/GUIs.ZooFlow/Resources/3_PERSON_INAKTIV_ZOO.png new file mode 100644 index 0000000..87ac04b Binary files /dev/null and b/GUIs.ZooFlow/Resources/3_PERSON_INAKTIV_ZOO.png differ diff --git a/GUIs.ZooFlow/Resources/4_GLOBIX_AKTIV_ZOO.png b/GUIs.ZooFlow/Resources/4_GLOBIX_AKTIV_ZOO.png new file mode 100644 index 0000000..9f31e76 Binary files /dev/null and b/GUIs.ZooFlow/Resources/4_GLOBIX_AKTIV_ZOO.png differ diff --git a/GUIs.ZooFlow/Resources/4_GLOBIX_INAKTIV_ZOO.png b/GUIs.ZooFlow/Resources/4_GLOBIX_INAKTIV_ZOO.png new file mode 100644 index 0000000..1c959ab Binary files /dev/null and b/GUIs.ZooFlow/Resources/4_GLOBIX_INAKTIV_ZOO.png differ diff --git a/GUIs.ZooFlow/Resources/CW_GEFUNDEN_klein.png b/GUIs.ZooFlow/Resources/CW_GEFUNDEN_klein.png new file mode 100644 index 0000000..e544b92 Binary files /dev/null and b/GUIs.ZooFlow/Resources/CW_GEFUNDEN_klein.png differ diff --git a/GUIs.ZooFlow/Resources/CW_hatwas_klein.png b/GUIs.ZooFlow/Resources/CW_hatwas_klein.png new file mode 100644 index 0000000..1aef128 Binary files /dev/null and b/GUIs.ZooFlow/Resources/CW_hatwas_klein.png differ diff --git a/GUIs.ZooFlow/Resources/CW_klein.png b/GUIs.ZooFlow/Resources/CW_klein.png new file mode 100644 index 0000000..251710c Binary files /dev/null and b/GUIs.ZooFlow/Resources/CW_klein.png differ diff --git a/GUIs.ZooFlow/Resources/CW_wartet_klein.png b/GUIs.ZooFlow/Resources/CW_wartet_klein.png new file mode 100644 index 0000000..adab6cc Binary files /dev/null and b/GUIs.ZooFlow/Resources/CW_wartet_klein.png differ diff --git a/GUIs.ZooFlow/Resources/Checked-outforEdit_13297.png b/GUIs.ZooFlow/Resources/Checked-outforEdit_13297.png new file mode 100644 index 0000000..2214df2 Binary files /dev/null and b/GUIs.ZooFlow/Resources/Checked-outforEdit_13297.png differ diff --git a/GUIs.ZooFlow/Resources/Checked-outforEdit_Color_13297.png b/GUIs.ZooFlow/Resources/Checked-outforEdit_Color_13297.png new file mode 100644 index 0000000..1ca507e Binary files /dev/null and b/GUIs.ZooFlow/Resources/Checked-outforEdit_Color_13297.png differ diff --git a/GUIs.ZooFlow/Resources/Close_16xLG.png b/GUIs.ZooFlow/Resources/Close_16xLG.png new file mode 100644 index 0000000..a9ae49f Binary files /dev/null and b/GUIs.ZooFlow/Resources/Close_16xLG.png differ diff --git a/GUIs.ZooFlow/Resources/Compare_RefreshScriptPreview.png b/GUIs.ZooFlow/Resources/Compare_RefreshScriptPreview.png new file mode 100644 index 0000000..4a84cd8 Binary files /dev/null and b/GUIs.ZooFlow/Resources/Compare_RefreshScriptPreview.png differ diff --git a/GUIs.ZooFlow/Resources/DD_Icons_ICO_PMANAGER_128px.png b/GUIs.ZooFlow/Resources/DD_Icons_ICO_PMANAGER_128px.png new file mode 100644 index 0000000..00b2ae0 Binary files /dev/null and b/GUIs.ZooFlow/Resources/DD_Icons_ICO_PMANAGER_128px.png differ diff --git a/GUIs.ZooFlow/Resources/DD_Icons_ICO_PMANAGER_256px.png b/GUIs.ZooFlow/Resources/DD_Icons_ICO_PMANAGER_256px.png new file mode 100644 index 0000000..00b9cb7 Binary files /dev/null and b/GUIs.ZooFlow/Resources/DD_Icons_ICO_PMANAGER_256px.png differ diff --git a/GUIs.ZooFlow/Resources/Datasource_16x16.png b/GUIs.ZooFlow/Resources/Datasource_16x16.png new file mode 100644 index 0000000..3ac3370 Binary files /dev/null and b/GUIs.ZooFlow/Resources/Datasource_16x16.png differ diff --git a/GUIs.ZooFlow/Resources/Editdatasetwithdesigner_8449.png b/GUIs.ZooFlow/Resources/Editdatasetwithdesigner_8449.png new file mode 100644 index 0000000..426607d Binary files /dev/null and b/GUIs.ZooFlow/Resources/Editdatasetwithdesigner_8449.png differ diff --git a/GUIs.ZooFlow/Resources/FLOW_Sidebar_Search_aktiv.svg b/GUIs.ZooFlow/Resources/FLOW_Sidebar_Search_aktiv.svg new file mode 100644 index 0000000..368e2bf --- /dev/null +++ b/GUIs.ZooFlow/Resources/FLOW_Sidebar_Search_aktiv.svg @@ -0,0 +1,43 @@ + + + + + + + + + + + + + + + + diff --git a/GUIs.ZooFlow/Resources/FLOW_Sidebar_Search_aktiv1.svg b/GUIs.ZooFlow/Resources/FLOW_Sidebar_Search_aktiv1.svg new file mode 100644 index 0000000..38ce5f7 --- /dev/null +++ b/GUIs.ZooFlow/Resources/FLOW_Sidebar_Search_aktiv1.svg @@ -0,0 +1,42 @@ + + + + + + + + + + + + + + + + diff --git a/GUIs.ZooFlow/Resources/FLOW_Sidebar_Search_inaktiv.svg b/GUIs.ZooFlow/Resources/FLOW_Sidebar_Search_inaktiv.svg new file mode 100644 index 0000000..3e0acb1 --- /dev/null +++ b/GUIs.ZooFlow/Resources/FLOW_Sidebar_Search_inaktiv.svg @@ -0,0 +1,63 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/GUIs.ZooFlow/Resources/FLOW_Sidebar_Search_inaktiv1.svg b/GUIs.ZooFlow/Resources/FLOW_Sidebar_Search_inaktiv1.svg new file mode 100644 index 0000000..28d329d --- /dev/null +++ b/GUIs.ZooFlow/Resources/FLOW_Sidebar_Search_inaktiv1.svg @@ -0,0 +1,62 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/GUIs.ZooFlow/Resources/FLOW_Sidebar_Task_aktiv.svg b/GUIs.ZooFlow/Resources/FLOW_Sidebar_Task_aktiv.svg new file mode 100644 index 0000000..739de61 --- /dev/null +++ b/GUIs.ZooFlow/Resources/FLOW_Sidebar_Task_aktiv.svg @@ -0,0 +1,36 @@ + + + + + + + + + + + + + + + + diff --git a/GUIs.ZooFlow/Resources/FLOW_Sidebar_Task_aktiv1.svg b/GUIs.ZooFlow/Resources/FLOW_Sidebar_Task_aktiv1.svg new file mode 100644 index 0000000..fd014cb --- /dev/null +++ b/GUIs.ZooFlow/Resources/FLOW_Sidebar_Task_aktiv1.svg @@ -0,0 +1,35 @@ + + + + + + + + + + + + + + + + diff --git a/GUIs.ZooFlow/Resources/FLOW_Sidebar_Task_inaktiv.svg b/GUIs.ZooFlow/Resources/FLOW_Sidebar_Task_inaktiv.svg new file mode 100644 index 0000000..0fd1051 --- /dev/null +++ b/GUIs.ZooFlow/Resources/FLOW_Sidebar_Task_inaktiv.svg @@ -0,0 +1,56 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/GUIs.ZooFlow/Resources/FLOW_Sidebar_Task_inaktiv1.svg b/GUIs.ZooFlow/Resources/FLOW_Sidebar_Task_inaktiv1.svg new file mode 100644 index 0000000..3e0c336 --- /dev/null +++ b/GUIs.ZooFlow/Resources/FLOW_Sidebar_Task_inaktiv1.svg @@ -0,0 +1,55 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/GUIs.ZooFlow/Resources/Flow.PNG b/GUIs.ZooFlow/Resources/Flow.PNG new file mode 100644 index 0000000..fec6259 Binary files /dev/null and b/GUIs.ZooFlow/Resources/Flow.PNG differ diff --git a/GUIs.ZooFlow/Resources/GLOBIX_short.png b/GUIs.ZooFlow/Resources/GLOBIX_short.png new file mode 100644 index 0000000..c0fde1f Binary files /dev/null and b/GUIs.ZooFlow/Resources/GLOBIX_short.png differ diff --git a/GUIs.ZooFlow/Resources/Hamburger_icon.svg.png b/GUIs.ZooFlow/Resources/Hamburger_icon.svg.png new file mode 100644 index 0000000..449ec29 Binary files /dev/null and b/GUIs.ZooFlow/Resources/Hamburger_icon.svg.png differ diff --git a/GUIs.ZooFlow/Resources/StatusAnnotations_Information_16xLG_color.png b/GUIs.ZooFlow/Resources/StatusAnnotations_Information_16xLG_color.png new file mode 100644 index 0000000..fc631e2 Binary files /dev/null and b/GUIs.ZooFlow/Resources/StatusAnnotations_Information_16xLG_color.png differ diff --git a/GUIs.ZooFlow/Resources/StatusAnnotations_Stop_16xLG_color.png b/GUIs.ZooFlow/Resources/StatusAnnotations_Stop_16xLG_color.png new file mode 100644 index 0000000..ada5c44 Binary files /dev/null and b/GUIs.ZooFlow/Resources/StatusAnnotations_Stop_16xLG_color.png differ diff --git a/GUIs.ZooFlow/Resources/StatusAnnotations_Stop_32xLG.png b/GUIs.ZooFlow/Resources/StatusAnnotations_Stop_32xLG.png new file mode 100644 index 0000000..7b3c655 Binary files /dev/null and b/GUIs.ZooFlow/Resources/StatusAnnotations_Stop_32xLG.png differ diff --git a/GUIs.ZooFlow/Resources/ZOOFLOW_DEFAULT.png b/GUIs.ZooFlow/Resources/ZOOFLOW_DEFAULT.png new file mode 100644 index 0000000..8e7472d Binary files /dev/null and b/GUIs.ZooFlow/Resources/ZOOFLOW_DEFAULT.png differ diff --git a/GUIs.ZooFlow/Resources/ZOOFLOW_DRAG_NORMAL.png b/GUIs.ZooFlow/Resources/ZOOFLOW_DRAG_NORMAL.png new file mode 100644 index 0000000..281e62c Binary files /dev/null and b/GUIs.ZooFlow/Resources/ZOOFLOW_DRAG_NORMAL.png differ diff --git a/GUIs.ZooFlow/Resources/ZOOFLOW_DRAG_PROGRESSIVE.png b/GUIs.ZooFlow/Resources/ZOOFLOW_DRAG_PROGRESSIVE.png new file mode 100644 index 0000000..bb04cba Binary files /dev/null and b/GUIs.ZooFlow/Resources/ZOOFLOW_DRAG_PROGRESSIVE.png differ diff --git a/GUIs.ZooFlow/Resources/ZOO_FLOW_ sysicon_256.png b/GUIs.ZooFlow/Resources/ZOO_FLOW_ sysicon_256.png new file mode 100644 index 0000000..ac8496b Binary files /dev/null and b/GUIs.ZooFlow/Resources/ZOO_FLOW_ sysicon_256.png differ diff --git a/GUIs.ZooFlow/Resources/ZooFlow-25.png b/GUIs.ZooFlow/Resources/ZooFlow-25.png new file mode 100644 index 0000000..86bbdf5 Binary files /dev/null and b/GUIs.ZooFlow/Resources/ZooFlow-25.png differ diff --git a/GUIs.ZooFlow/Resources/ZooFlow_CW_DevExpress.svg b/GUIs.ZooFlow/Resources/ZooFlow_CW_DevExpress.svg new file mode 100644 index 0000000..14bd1ca --- /dev/null +++ b/GUIs.ZooFlow/Resources/ZooFlow_CW_DevExpress.svg @@ -0,0 +1,73 @@ + + + +image/svg+xml + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/ZooFlow_G_DevExpress.svg b/GUIs.ZooFlow/Resources/ZooFlow_G_DevExpress.svg new file mode 100644 index 0000000..d76650e --- /dev/null +++ b/GUIs.ZooFlow/Resources/ZooFlow_G_DevExpress.svg @@ -0,0 +1,73 @@ + + + +image/svg+xml + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/ZooFlow_PM_DevExpress.svg b/GUIs.ZooFlow/Resources/ZooFlow_PM_DevExpress.svg new file mode 100644 index 0000000..f3b3846 --- /dev/null +++ b/GUIs.ZooFlow/Resources/ZooFlow_PM_DevExpress.svg @@ -0,0 +1,73 @@ + + + +image/svg+xml + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/ZooFlow_Sidebar_TOP.svg b/GUIs.ZooFlow/Resources/ZooFlow_Sidebar_TOP.svg new file mode 100644 index 0000000..cf1014f --- /dev/null +++ b/GUIs.ZooFlow/Resources/ZooFlow_Sidebar_TOP.svg @@ -0,0 +1,118 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/GUIs.ZooFlow/Resources/ZooFlow_Sidebar_TOP_Drop.svg b/GUIs.ZooFlow/Resources/ZooFlow_Sidebar_TOP_Drop.svg new file mode 100644 index 0000000..d6bec7c --- /dev/null +++ b/GUIs.ZooFlow/Resources/ZooFlow_Sidebar_TOP_Drop.svg @@ -0,0 +1,145 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/GUIs.ZooFlow/Resources/ZooFlow_Sidebar_individuelle_suche.svg b/GUIs.ZooFlow/Resources/ZooFlow_Sidebar_individuelle_suche.svg new file mode 100644 index 0000000..b17768b --- /dev/null +++ b/GUIs.ZooFlow/Resources/ZooFlow_Sidebar_individuelle_suche.svg @@ -0,0 +1,22 @@ + + + + + + + + + + + + + + + diff --git a/GUIs.ZooFlow/Resources/ZooFlow_drop.png b/GUIs.ZooFlow/Resources/ZooFlow_drop.png new file mode 100644 index 0000000..499d168 Binary files /dev/null and b/GUIs.ZooFlow/Resources/ZooFlow_drop.png differ diff --git a/GUIs.ZooFlow/Resources/ZooFlow_drop_drag.png b/GUIs.ZooFlow/Resources/ZooFlow_drop_drag.png new file mode 100644 index 0000000..c017fad Binary files /dev/null and b/GUIs.ZooFlow/Resources/ZooFlow_drop_drag.png differ diff --git a/GUIs.ZooFlow/Resources/ZooFlow_g-64 - Kopie.png b/GUIs.ZooFlow/Resources/ZooFlow_g-64 - Kopie.png new file mode 100644 index 0000000..b5db70a Binary files /dev/null and b/GUIs.ZooFlow/Resources/ZooFlow_g-64 - Kopie.png differ diff --git a/GUIs.ZooFlow/Resources/ZooFlow_g-64.png b/GUIs.ZooFlow/Resources/ZooFlow_g-64.png new file mode 100644 index 0000000..b5db70a Binary files /dev/null and b/GUIs.ZooFlow/Resources/ZooFlow_g-64.png differ diff --git a/GUIs.ZooFlow/Resources/ZooflowTitle.png b/GUIs.ZooFlow/Resources/ZooflowTitle.png new file mode 100644 index 0000000..1994045 Binary files /dev/null and b/GUIs.ZooFlow/Resources/ZooflowTitle.png differ diff --git a/GUIs.ZooFlow/Resources/about.svg b/GUIs.ZooFlow/Resources/about.svg new file mode 100644 index 0000000..1f67213 --- /dev/null +++ b/GUIs.ZooFlow/Resources/about.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/about1.svg b/GUIs.ZooFlow/Resources/about1.svg new file mode 100644 index 0000000..1f67213 --- /dev/null +++ b/GUIs.ZooFlow/Resources/about1.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/about2.svg b/GUIs.ZooFlow/Resources/about2.svg new file mode 100644 index 0000000..1f67213 --- /dev/null +++ b/GUIs.ZooFlow/Resources/about2.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/about3.svg b/GUIs.ZooFlow/Resources/about3.svg new file mode 100644 index 0000000..1f67213 --- /dev/null +++ b/GUIs.ZooFlow/Resources/about3.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/about4.svg b/GUIs.ZooFlow/Resources/about4.svg new file mode 100644 index 0000000..1f67213 --- /dev/null +++ b/GUIs.ZooFlow/Resources/about4.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/action_add_16xLG.png b/GUIs.ZooFlow/Resources/action_add_16xLG.png new file mode 100644 index 0000000..92db8eb Binary files /dev/null and b/GUIs.ZooFlow/Resources/action_add_16xLG.png differ diff --git a/GUIs.ZooFlow/Resources/action_add_16xMD.png b/GUIs.ZooFlow/Resources/action_add_16xMD.png new file mode 100644 index 0000000..d1ad503 Binary files /dev/null and b/GUIs.ZooFlow/Resources/action_add_16xMD.png differ diff --git a/GUIs.ZooFlow/Resources/actions_add.svg b/GUIs.ZooFlow/Resources/actions_add.svg new file mode 100644 index 0000000..0f7c9b6 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_add.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_add1.svg b/GUIs.ZooFlow/Resources/actions_add1.svg new file mode 100644 index 0000000..0f7c9b6 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_add1.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_addcircled.svg b/GUIs.ZooFlow/Resources/actions_addcircled.svg new file mode 100644 index 0000000..0c97b24 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_addcircled.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_addcircled1.svg b/GUIs.ZooFlow/Resources/actions_addcircled1.svg new file mode 100644 index 0000000..0c97b24 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_addcircled1.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_addcircled2.svg b/GUIs.ZooFlow/Resources/actions_addcircled2.svg new file mode 100644 index 0000000..0c97b24 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_addcircled2.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_addcircled3.svg b/GUIs.ZooFlow/Resources/actions_addcircled3.svg new file mode 100644 index 0000000..0c97b24 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_addcircled3.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_addcircled4.svg b/GUIs.ZooFlow/Resources/actions_addcircled4.svg new file mode 100644 index 0000000..0c97b24 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_addcircled4.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_addcircled5.svg b/GUIs.ZooFlow/Resources/actions_addcircled5.svg new file mode 100644 index 0000000..0c97b24 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_addcircled5.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_calendar.svg b/GUIs.ZooFlow/Resources/actions_calendar.svg new file mode 100644 index 0000000..dc313d6 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_calendar.svg @@ -0,0 +1,26 @@ + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_calendar1.svg b/GUIs.ZooFlow/Resources/actions_calendar1.svg new file mode 100644 index 0000000..dc313d6 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_calendar1.svg @@ -0,0 +1,26 @@ + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_check.svg b/GUIs.ZooFlow/Resources/actions_check.svg new file mode 100644 index 0000000..35c6802 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_check.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_check1.svg b/GUIs.ZooFlow/Resources/actions_check1.svg new file mode 100644 index 0000000..35c6802 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_check1.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_check2.svg b/GUIs.ZooFlow/Resources/actions_check2.svg new file mode 100644 index 0000000..35c6802 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_check2.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_check3.svg b/GUIs.ZooFlow/Resources/actions_check3.svg new file mode 100644 index 0000000..35c6802 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_check3.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_check4.svg b/GUIs.ZooFlow/Resources/actions_check4.svg new file mode 100644 index 0000000..35c6802 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_check4.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_check5.svg b/GUIs.ZooFlow/Resources/actions_check5.svg new file mode 100644 index 0000000..35c6802 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_check5.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_check6.svg b/GUIs.ZooFlow/Resources/actions_check6.svg new file mode 100644 index 0000000..35c6802 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_check6.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_database.svg b/GUIs.ZooFlow/Resources/actions_database.svg new file mode 100644 index 0000000..af7a23c --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_database.svg @@ -0,0 +1,17 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_deletecircled.svg b/GUIs.ZooFlow/Resources/actions_deletecircled.svg new file mode 100644 index 0000000..d8c9bb3 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_deletecircled.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_deletecircled1.svg b/GUIs.ZooFlow/Resources/actions_deletecircled1.svg new file mode 100644 index 0000000..d8c9bb3 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_deletecircled1.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_deletecircled2.svg b/GUIs.ZooFlow/Resources/actions_deletecircled2.svg new file mode 100644 index 0000000..d8c9bb3 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_deletecircled2.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_deletecircled3.svg b/GUIs.ZooFlow/Resources/actions_deletecircled3.svg new file mode 100644 index 0000000..d8c9bb3 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_deletecircled3.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_deletecircled4.svg b/GUIs.ZooFlow/Resources/actions_deletecircled4.svg new file mode 100644 index 0000000..d8c9bb3 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_deletecircled4.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_deletecircled5.svg b/GUIs.ZooFlow/Resources/actions_deletecircled5.svg new file mode 100644 index 0000000..d8c9bb3 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_deletecircled5.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_deletecircled6.svg b/GUIs.ZooFlow/Resources/actions_deletecircled6.svg new file mode 100644 index 0000000..d8c9bb3 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_deletecircled6.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_edit.svg b/GUIs.ZooFlow/Resources/actions_edit.svg new file mode 100644 index 0000000..89aa31c --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_edit.svg @@ -0,0 +1,17 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_edit1.svg b/GUIs.ZooFlow/Resources/actions_edit1.svg new file mode 100644 index 0000000..89aa31c --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_edit1.svg @@ -0,0 +1,17 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_edit2.svg b/GUIs.ZooFlow/Resources/actions_edit2.svg new file mode 100644 index 0000000..89aa31c --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_edit2.svg @@ -0,0 +1,17 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_options.svg b/GUIs.ZooFlow/Resources/actions_options.svg new file mode 100644 index 0000000..9dd5622 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_options.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_refresh.svg b/GUIs.ZooFlow/Resources/actions_refresh.svg new file mode 100644 index 0000000..86a9ccb --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_refresh.svg @@ -0,0 +1,16 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_send.svg b/GUIs.ZooFlow/Resources/actions_send.svg new file mode 100644 index 0000000..c0372ba --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_send.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_send1.svg b/GUIs.ZooFlow/Resources/actions_send1.svg new file mode 100644 index 0000000..c0372ba --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_send1.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_send2.svg b/GUIs.ZooFlow/Resources/actions_send2.svg new file mode 100644 index 0000000..c0372ba --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_send2.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_user.svg b/GUIs.ZooFlow/Resources/actions_user.svg new file mode 100644 index 0000000..8c18304 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_user.svg @@ -0,0 +1,16 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_window.svg b/GUIs.ZooFlow/Resources/actions_window.svg new file mode 100644 index 0000000..a857a5e --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_window.svg @@ -0,0 +1,16 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/alignhorizontalcenter.svg b/GUIs.ZooFlow/Resources/alignhorizontalcenter.svg new file mode 100644 index 0000000..e66da96 --- /dev/null +++ b/GUIs.ZooFlow/Resources/alignhorizontalcenter.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/alignverticalcenter.svg b/GUIs.ZooFlow/Resources/alignverticalcenter.svg new file mode 100644 index 0000000..6abf52b --- /dev/null +++ b/GUIs.ZooFlow/Resources/alignverticalcenter.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/allowuserstoeditranges.svg b/GUIs.ZooFlow/Resources/allowuserstoeditranges.svg new file mode 100644 index 0000000..6497af9 --- /dev/null +++ b/GUIs.ZooFlow/Resources/allowuserstoeditranges.svg @@ -0,0 +1,13 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/bell_delete.png b/GUIs.ZooFlow/Resources/bell_delete.png new file mode 100644 index 0000000..23907bb Binary files /dev/null and b/GUIs.ZooFlow/Resources/bell_delete.png differ diff --git a/GUIs.ZooFlow/Resources/bell_go.png b/GUIs.ZooFlow/Resources/bell_go.png new file mode 100644 index 0000000..b89bb34 Binary files /dev/null and b/GUIs.ZooFlow/Resources/bell_go.png differ diff --git a/GUIs.ZooFlow/Resources/bo_appearance.svg b/GUIs.ZooFlow/Resources/bo_appearance.svg new file mode 100644 index 0000000..76c4cb8 --- /dev/null +++ b/GUIs.ZooFlow/Resources/bo_appearance.svg @@ -0,0 +1,30 @@ + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/bo_appearance1.svg b/GUIs.ZooFlow/Resources/bo_appearance1.svg new file mode 100644 index 0000000..76c4cb8 --- /dev/null +++ b/GUIs.ZooFlow/Resources/bo_appearance1.svg @@ -0,0 +1,30 @@ + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/bo_appointment.svg b/GUIs.ZooFlow/Resources/bo_appointment.svg new file mode 100644 index 0000000..f208bfc --- /dev/null +++ b/GUIs.ZooFlow/Resources/bo_appointment.svg @@ -0,0 +1,29 @@ + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/bo_appointment1.svg b/GUIs.ZooFlow/Resources/bo_appointment1.svg new file mode 100644 index 0000000..f208bfc --- /dev/null +++ b/GUIs.ZooFlow/Resources/bo_appointment1.svg @@ -0,0 +1,29 @@ + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/bo_attention.svg b/GUIs.ZooFlow/Resources/bo_attention.svg new file mode 100644 index 0000000..16cbf17 --- /dev/null +++ b/GUIs.ZooFlow/Resources/bo_attention.svg @@ -0,0 +1,26 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/bo_category.svg b/GUIs.ZooFlow/Resources/bo_category.svg new file mode 100644 index 0000000..9dc9c0d --- /dev/null +++ b/GUIs.ZooFlow/Resources/bo_category.svg @@ -0,0 +1,30 @@ + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/bo_category1.svg b/GUIs.ZooFlow/Resources/bo_category1.svg new file mode 100644 index 0000000..9dc9c0d --- /dev/null +++ b/GUIs.ZooFlow/Resources/bo_category1.svg @@ -0,0 +1,30 @@ + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/bo_document.svg b/GUIs.ZooFlow/Resources/bo_document.svg new file mode 100644 index 0000000..b3b7afa --- /dev/null +++ b/GUIs.ZooFlow/Resources/bo_document.svg @@ -0,0 +1,26 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/bo_security_permission_action.svg b/GUIs.ZooFlow/Resources/bo_security_permission_action.svg new file mode 100644 index 0000000..a6defff --- /dev/null +++ b/GUIs.ZooFlow/Resources/bo_security_permission_action.svg @@ -0,0 +1,8 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/bo_validation.svg b/GUIs.ZooFlow/Resources/bo_validation.svg new file mode 100644 index 0000000..70bcd63 --- /dev/null +++ b/GUIs.ZooFlow/Resources/bo_validation.svg @@ -0,0 +1,27 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/bo_validation1.svg b/GUIs.ZooFlow/Resources/bo_validation1.svg new file mode 100644 index 0000000..70bcd63 --- /dev/null +++ b/GUIs.ZooFlow/Resources/bo_validation1.svg @@ -0,0 +1,27 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/cancel.svg b/GUIs.ZooFlow/Resources/cancel.svg new file mode 100644 index 0000000..8bd80aa --- /dev/null +++ b/GUIs.ZooFlow/Resources/cancel.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/columnheaders.svg b/GUIs.ZooFlow/Resources/columnheaders.svg new file mode 100644 index 0000000..3539a81 --- /dev/null +++ b/GUIs.ZooFlow/Resources/columnheaders.svg @@ -0,0 +1,22 @@ + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/crossdatasourcefiltering.svg b/GUIs.ZooFlow/Resources/crossdatasourcefiltering.svg new file mode 100644 index 0000000..42b2b6b --- /dev/null +++ b/GUIs.ZooFlow/Resources/crossdatasourcefiltering.svg @@ -0,0 +1,18 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/definednameuseinformula.svg b/GUIs.ZooFlow/Resources/definednameuseinformula.svg new file mode 100644 index 0000000..0d27a20 --- /dev/null +++ b/GUIs.ZooFlow/Resources/definednameuseinformula.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/definednameuseinformula1.svg b/GUIs.ZooFlow/Resources/definednameuseinformula1.svg new file mode 100644 index 0000000..0d27a20 --- /dev/null +++ b/GUIs.ZooFlow/Resources/definednameuseinformula1.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/definednameuseinformula2.svg b/GUIs.ZooFlow/Resources/definednameuseinformula2.svg new file mode 100644 index 0000000..0d27a20 --- /dev/null +++ b/GUIs.ZooFlow/Resources/definednameuseinformula2.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/definednameuseinformula3.svg b/GUIs.ZooFlow/Resources/definednameuseinformula3.svg new file mode 100644 index 0000000..0d27a20 --- /dev/null +++ b/GUIs.ZooFlow/Resources/definednameuseinformula3.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/del.svg b/GUIs.ZooFlow/Resources/del.svg new file mode 100644 index 0000000..3ac92fc --- /dev/null +++ b/GUIs.ZooFlow/Resources/del.svg @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/del1.svg b/GUIs.ZooFlow/Resources/del1.svg new file mode 100644 index 0000000..3ac92fc --- /dev/null +++ b/GUIs.ZooFlow/Resources/del1.svg @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/del2.svg b/GUIs.ZooFlow/Resources/del2.svg new file mode 100644 index 0000000..3ac92fc --- /dev/null +++ b/GUIs.ZooFlow/Resources/del2.svg @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/del3.svg b/GUIs.ZooFlow/Resources/del3.svg new file mode 100644 index 0000000..3ac92fc --- /dev/null +++ b/GUIs.ZooFlow/Resources/del3.svg @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/del4.svg b/GUIs.ZooFlow/Resources/del4.svg new file mode 100644 index 0000000..3ac92fc --- /dev/null +++ b/GUIs.ZooFlow/Resources/del4.svg @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/del5.svg b/GUIs.ZooFlow/Resources/del5.svg new file mode 100644 index 0000000..950dcb5 --- /dev/null +++ b/GUIs.ZooFlow/Resources/del5.svg @@ -0,0 +1,16 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/delete.svg b/GUIs.ZooFlow/Resources/delete.svg new file mode 100644 index 0000000..c3f8451 --- /dev/null +++ b/GUIs.ZooFlow/Resources/delete.svg @@ -0,0 +1,18 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/delete1.svg b/GUIs.ZooFlow/Resources/delete1.svg new file mode 100644 index 0000000..41674ad --- /dev/null +++ b/GUIs.ZooFlow/Resources/delete1.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/deletetable.svg b/GUIs.ZooFlow/Resources/deletetable.svg new file mode 100644 index 0000000..4ec3769 --- /dev/null +++ b/GUIs.ZooFlow/Resources/deletetable.svg @@ -0,0 +1,14 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/documentproperties.svg b/GUIs.ZooFlow/Resources/documentproperties.svg new file mode 100644 index 0000000..a0e861c --- /dev/null +++ b/GUIs.ZooFlow/Resources/documentproperties.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/doublenext.svg b/GUIs.ZooFlow/Resources/doublenext.svg new file mode 100644 index 0000000..3276e32 --- /dev/null +++ b/GUIs.ZooFlow/Resources/doublenext.svg @@ -0,0 +1,11 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/doublenext1.svg b/GUIs.ZooFlow/Resources/doublenext1.svg new file mode 100644 index 0000000..3276e32 --- /dev/null +++ b/GUIs.ZooFlow/Resources/doublenext1.svg @@ -0,0 +1,11 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/doublenext2.svg b/GUIs.ZooFlow/Resources/doublenext2.svg new file mode 100644 index 0000000..3276e32 --- /dev/null +++ b/GUIs.ZooFlow/Resources/doublenext2.svg @@ -0,0 +1,11 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/editdatasource.svg b/GUIs.ZooFlow/Resources/editdatasource.svg new file mode 100644 index 0000000..6e46621 --- /dev/null +++ b/GUIs.ZooFlow/Resources/editdatasource.svg @@ -0,0 +1,17 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/editdatasource1.svg b/GUIs.ZooFlow/Resources/editdatasource1.svg new file mode 100644 index 0000000..6e46621 --- /dev/null +++ b/GUIs.ZooFlow/Resources/editdatasource1.svg @@ -0,0 +1,17 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/editnames.svg b/GUIs.ZooFlow/Resources/editnames.svg new file mode 100644 index 0000000..ae89a8e --- /dev/null +++ b/GUIs.ZooFlow/Resources/editnames.svg @@ -0,0 +1,20 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/editquery.svg b/GUIs.ZooFlow/Resources/editquery.svg new file mode 100644 index 0000000..54e75cd --- /dev/null +++ b/GUIs.ZooFlow/Resources/editquery.svg @@ -0,0 +1,23 @@ + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/enablesearch.svg b/GUIs.ZooFlow/Resources/enablesearch.svg new file mode 100644 index 0000000..5e41594 --- /dev/null +++ b/GUIs.ZooFlow/Resources/enablesearch.svg @@ -0,0 +1,17 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/gear_32xLG.png b/GUIs.ZooFlow/Resources/gear_32xLG.png new file mode 100644 index 0000000..eb7b43c Binary files /dev/null and b/GUIs.ZooFlow/Resources/gear_32xLG.png differ diff --git a/GUIs.ZooFlow/Resources/highimportance.svg b/GUIs.ZooFlow/Resources/highimportance.svg new file mode 100644 index 0000000..7f7764c --- /dev/null +++ b/GUIs.ZooFlow/Resources/highimportance.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/insertsheet.svg b/GUIs.ZooFlow/Resources/insertsheet.svg new file mode 100644 index 0000000..37d8fda --- /dev/null +++ b/GUIs.ZooFlow/Resources/insertsheet.svg @@ -0,0 +1,12 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/link.svg b/GUIs.ZooFlow/Resources/link.svg new file mode 100644 index 0000000..c26123d --- /dev/null +++ b/GUIs.ZooFlow/Resources/link.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/link1.svg b/GUIs.ZooFlow/Resources/link1.svg new file mode 100644 index 0000000..c26123d --- /dev/null +++ b/GUIs.ZooFlow/Resources/link1.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/link2.svg b/GUIs.ZooFlow/Resources/link2.svg new file mode 100644 index 0000000..c26123d --- /dev/null +++ b/GUIs.ZooFlow/Resources/link2.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/link3.svg b/GUIs.ZooFlow/Resources/link3.svg new file mode 100644 index 0000000..c26123d --- /dev/null +++ b/GUIs.ZooFlow/Resources/link3.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/managedatasource.svg b/GUIs.ZooFlow/Resources/managedatasource.svg new file mode 100644 index 0000000..d08be54 --- /dev/null +++ b/GUIs.ZooFlow/Resources/managedatasource.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/managedatasource1.svg b/GUIs.ZooFlow/Resources/managedatasource1.svg new file mode 100644 index 0000000..d08be54 --- /dev/null +++ b/GUIs.ZooFlow/Resources/managedatasource1.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/managedatasource2.svg b/GUIs.ZooFlow/Resources/managedatasource2.svg new file mode 100644 index 0000000..d08be54 --- /dev/null +++ b/GUIs.ZooFlow/Resources/managedatasource2.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/managedatasource3.svg b/GUIs.ZooFlow/Resources/managedatasource3.svg new file mode 100644 index 0000000..d08be54 --- /dev/null +++ b/GUIs.ZooFlow/Resources/managedatasource3.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/markcomplete.svg b/GUIs.ZooFlow/Resources/markcomplete.svg new file mode 100644 index 0000000..6a4b15a --- /dev/null +++ b/GUIs.ZooFlow/Resources/markcomplete.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/markcomplete1.svg b/GUIs.ZooFlow/Resources/markcomplete1.svg new file mode 100644 index 0000000..6a4b15a --- /dev/null +++ b/GUIs.ZooFlow/Resources/markcomplete1.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/new.svg b/GUIs.ZooFlow/Resources/new.svg new file mode 100644 index 0000000..4a85a96 --- /dev/null +++ b/GUIs.ZooFlow/Resources/new.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/new1.svg b/GUIs.ZooFlow/Resources/new1.svg new file mode 100644 index 0000000..4a85a96 --- /dev/null +++ b/GUIs.ZooFlow/Resources/new1.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/new2.svg b/GUIs.ZooFlow/Resources/new2.svg new file mode 100644 index 0000000..4a85a96 --- /dev/null +++ b/GUIs.ZooFlow/Resources/new2.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/new3.svg b/GUIs.ZooFlow/Resources/new3.svg new file mode 100644 index 0000000..4a85a96 --- /dev/null +++ b/GUIs.ZooFlow/Resources/new3.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/new4.svg b/GUIs.ZooFlow/Resources/new4.svg new file mode 100644 index 0000000..4a85a96 --- /dev/null +++ b/GUIs.ZooFlow/Resources/new4.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/nextview.svg b/GUIs.ZooFlow/Resources/nextview.svg new file mode 100644 index 0000000..22bd23d --- /dev/null +++ b/GUIs.ZooFlow/Resources/nextview.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/open2.svg b/GUIs.ZooFlow/Resources/open2.svg new file mode 100644 index 0000000..04ab349 --- /dev/null +++ b/GUIs.ZooFlow/Resources/open2.svg @@ -0,0 +1,13 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/pagesetup.svg b/GUIs.ZooFlow/Resources/pagesetup.svg new file mode 100644 index 0000000..4c4accb --- /dev/null +++ b/GUIs.ZooFlow/Resources/pagesetup.svg @@ -0,0 +1,18 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/pagesetup1.svg b/GUIs.ZooFlow/Resources/pagesetup1.svg new file mode 100644 index 0000000..4c4accb --- /dev/null +++ b/GUIs.ZooFlow/Resources/pagesetup1.svg @@ -0,0 +1,18 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/previousview.svg b/GUIs.ZooFlow/Resources/previousview.svg new file mode 100644 index 0000000..c1a97e0 --- /dev/null +++ b/GUIs.ZooFlow/Resources/previousview.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/properties.svg b/GUIs.ZooFlow/Resources/properties.svg new file mode 100644 index 0000000..aea76a6 --- /dev/null +++ b/GUIs.ZooFlow/Resources/properties.svg @@ -0,0 +1,17 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/refresh_16xMD.png b/GUIs.ZooFlow/Resources/refresh_16xMD.png new file mode 100644 index 0000000..8612d8c Binary files /dev/null and b/GUIs.ZooFlow/Resources/refresh_16xMD.png differ diff --git a/GUIs.ZooFlow/Resources/renamedatasource.svg b/GUIs.ZooFlow/Resources/renamedatasource.svg new file mode 100644 index 0000000..6e229b9 --- /dev/null +++ b/GUIs.ZooFlow/Resources/renamedatasource.svg @@ -0,0 +1,20 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/save.svg b/GUIs.ZooFlow/Resources/save.svg new file mode 100644 index 0000000..fb4f9a1 --- /dev/null +++ b/GUIs.ZooFlow/Resources/save.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/save1.svg b/GUIs.ZooFlow/Resources/save1.svg new file mode 100644 index 0000000..fb4f9a1 --- /dev/null +++ b/GUIs.ZooFlow/Resources/save1.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/save2.svg b/GUIs.ZooFlow/Resources/save2.svg new file mode 100644 index 0000000..fb4f9a1 --- /dev/null +++ b/GUIs.ZooFlow/Resources/save2.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/save3.svg b/GUIs.ZooFlow/Resources/save3.svg new file mode 100644 index 0000000..fb4f9a1 --- /dev/null +++ b/GUIs.ZooFlow/Resources/save3.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/save4.svg b/GUIs.ZooFlow/Resources/save4.svg new file mode 100644 index 0000000..fb4f9a1 --- /dev/null +++ b/GUIs.ZooFlow/Resources/save4.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/save5.svg b/GUIs.ZooFlow/Resources/save5.svg new file mode 100644 index 0000000..fb4f9a1 --- /dev/null +++ b/GUIs.ZooFlow/Resources/save5.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/save6.svg b/GUIs.ZooFlow/Resources/save6.svg new file mode 100644 index 0000000..fb4f9a1 --- /dev/null +++ b/GUIs.ZooFlow/Resources/save6.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/save7.svg b/GUIs.ZooFlow/Resources/save7.svg new file mode 100644 index 0000000..fb4f9a1 --- /dev/null +++ b/GUIs.ZooFlow/Resources/save7.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/save8.svg b/GUIs.ZooFlow/Resources/save8.svg new file mode 100644 index 0000000..b09d6ee --- /dev/null +++ b/GUIs.ZooFlow/Resources/save8.svg @@ -0,0 +1,16 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/save9.svg b/GUIs.ZooFlow/Resources/save9.svg new file mode 100644 index 0000000..b09d6ee --- /dev/null +++ b/GUIs.ZooFlow/Resources/save9.svg @@ -0,0 +1,16 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/save_16xLG.png b/GUIs.ZooFlow/Resources/save_16xLG.png new file mode 100644 index 0000000..199d45b Binary files /dev/null and b/GUIs.ZooFlow/Resources/save_16xLG.png differ diff --git a/GUIs.ZooFlow/Resources/scatterchartlabeloptions.svg b/GUIs.ZooFlow/Resources/scatterchartlabeloptions.svg new file mode 100644 index 0000000..6a587d1 --- /dev/null +++ b/GUIs.ZooFlow/Resources/scatterchartlabeloptions.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/servermode.svg b/GUIs.ZooFlow/Resources/servermode.svg new file mode 100644 index 0000000..ea5d3ac --- /dev/null +++ b/GUIs.ZooFlow/Resources/servermode.svg @@ -0,0 +1,19 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/singlepageview.svg b/GUIs.ZooFlow/Resources/singlepageview.svg new file mode 100644 index 0000000..9664a18 --- /dev/null +++ b/GUIs.ZooFlow/Resources/singlepageview.svg @@ -0,0 +1,16 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/switchrowcolumns.svg b/GUIs.ZooFlow/Resources/switchrowcolumns.svg new file mode 100644 index 0000000..e1edea5 --- /dev/null +++ b/GUIs.ZooFlow/Resources/switchrowcolumns.svg @@ -0,0 +1,12 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/text.svg b/GUIs.ZooFlow/Resources/text.svg new file mode 100644 index 0000000..0c60d19 --- /dev/null +++ b/GUIs.ZooFlow/Resources/text.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/text1.svg b/GUIs.ZooFlow/Resources/text1.svg new file mode 100644 index 0000000..0c60d19 --- /dev/null +++ b/GUIs.ZooFlow/Resources/text1.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/undo.svg b/GUIs.ZooFlow/Resources/undo.svg new file mode 100644 index 0000000..791f759 --- /dev/null +++ b/GUIs.ZooFlow/Resources/undo.svg @@ -0,0 +1,19 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/unlink.svg b/GUIs.ZooFlow/Resources/unlink.svg new file mode 100644 index 0000000..448a01b --- /dev/null +++ b/GUIs.ZooFlow/Resources/unlink.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/unlink1.svg b/GUIs.ZooFlow/Resources/unlink1.svg new file mode 100644 index 0000000..448a01b --- /dev/null +++ b/GUIs.ZooFlow/Resources/unlink1.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/updatedataextract.svg b/GUIs.ZooFlow/Resources/updatedataextract.svg new file mode 100644 index 0000000..e7dda03 --- /dev/null +++ b/GUIs.ZooFlow/Resources/updatedataextract.svg @@ -0,0 +1,16 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/viewmergeddata.svg b/GUIs.ZooFlow/Resources/viewmergeddata.svg new file mode 100644 index 0000000..fb703d3 --- /dev/null +++ b/GUIs.ZooFlow/Resources/viewmergeddata.svg @@ -0,0 +1,11 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/viewmergeddata1.svg b/GUIs.ZooFlow/Resources/viewmergeddata1.svg new file mode 100644 index 0000000..fb703d3 --- /dev/null +++ b/GUIs.ZooFlow/Resources/viewmergeddata1.svg @@ -0,0 +1,11 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/windows.svg b/GUIs.ZooFlow/Resources/windows.svg new file mode 100644 index 0000000..955f6c5 --- /dev/null +++ b/GUIs.ZooFlow/Resources/windows.svg @@ -0,0 +1,18 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/Old/frmFlowSearch.Designer.vb b/GUIs.ZooFlow/Search/Old/frmFlowSearch.Designer.vb new file mode 100644 index 0000000..f48db85 --- /dev/null +++ b/GUIs.ZooFlow/Search/Old/frmFlowSearch.Designer.vb @@ -0,0 +1,526 @@ + +Partial Class frmFlowSearch + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowSearch)) + Dim TileItemElement1 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement() + Dim TileItemElement2 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement() + Me.CheckButton1 = New DevExpress.XtraEditors.CheckButton() + Me.txtSearchTerm = New System.Windows.Forms.TextBox() + Me.lblFoundResult = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.TileControlMatch = New DevExpress.XtraEditors.TileControl() + Me.TileGroup2 = New DevExpress.XtraEditors.TileGroup() + Me.TileItem1 = New DevExpress.XtraEditors.TileItem() + Me.TileItem2 = New DevExpress.XtraEditors.TileItem() + Me.TileGroup3 = New DevExpress.XtraEditors.TileGroup() + Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarStaticInfoItem = New DevExpress.XtraBars.BarStaticItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager(Me.components) + Me.panelContainer1 = New DevExpress.XtraBars.Docking.DockPanel() + Me.DockPanel1 = New DevExpress.XtraBars.Docking.DockPanel() + Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer() + Me.Label3 = New System.Windows.Forms.Label() + Me.CheckedListBoxCategories = New DevExpress.XtraEditors.CheckedListBoxControl() + Me.ToggleSwitchLastMonth = New DevExpress.XtraEditors.ToggleSwitch() + Me.ToggleSwitchMonth = New DevExpress.XtraEditors.ToggleSwitch() + Me.ToggleSwitchLastYear = New DevExpress.XtraEditors.ToggleSwitch() + Me.ToggleSwitchCurrentYear = New DevExpress.XtraEditors.ToggleSwitch() + Me.ToggleSwitchYesterday = New DevExpress.XtraEditors.ToggleSwitch() + Me.cmbAttributeDate = New System.Windows.Forms.ComboBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.ToggleSwitchToday = New DevExpress.XtraEditors.ToggleSwitch() + Me.DockPanel3 = New DevExpress.XtraBars.Docking.DockPanel() + Me.DockPanel3_Container = New DevExpress.XtraBars.Docking.ControlContainer() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Panel3 = New System.Windows.Forms.Panel() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.panelContainer1.SuspendLayout() + Me.DockPanel1.SuspendLayout() + Me.DockPanel1_Container.SuspendLayout() + CType(Me.CheckedListBoxCategories, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchLastMonth.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchMonth.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchLastYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchCurrentYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchYesterday.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchToday.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.DockPanel3.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.Panel3.SuspendLayout() + Me.SuspendLayout() + ' + 'CheckButton1 + ' + Me.CheckButton1.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer)) + Me.CheckButton1.Appearance.Options.UseBackColor = True + Me.CheckButton1.ImageOptions.SvgImage = CType(resources.GetObject("CheckButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.CheckButton1.Location = New System.Drawing.Point(6, 6) + Me.CheckButton1.Name = "CheckButton1" + Me.CheckButton1.Size = New System.Drawing.Size(110, 45) + Me.CheckButton1.TabIndex = 5 + Me.CheckButton1.Text = "Zeige Alles" + ' + 'txtSearchTerm + ' + Me.txtSearchTerm.BackColor = System.Drawing.Color.White + Me.txtSearchTerm.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSearchTerm.Location = New System.Drawing.Point(124, 6) + Me.txtSearchTerm.Name = "txtSearchTerm" + Me.txtSearchTerm.Size = New System.Drawing.Size(167, 23) + Me.txtSearchTerm.TabIndex = 0 + ' + 'lblFoundResult + ' + Me.lblFoundResult.AutoSize = True + Me.lblFoundResult.BackColor = System.Drawing.Color.Transparent + Me.lblFoundResult.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFoundResult.ForeColor = System.Drawing.Color.White + Me.lblFoundResult.Location = New System.Drawing.Point(122, 32) + Me.lblFoundResult.Name = "lblFoundResult" + Me.lblFoundResult.Size = New System.Drawing.Size(53, 19) + Me.lblFoundResult.TabIndex = 3 + Me.lblFoundResult.Text = "Found" + Me.lblFoundResult.Visible = False + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.ForeColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(297, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(43, 16) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "finden" + ' + 'Panel2 + ' + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel2.Location = New System.Drawing.Point(202, 625) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(1035, 18) + Me.Panel2.TabIndex = 1 + ' + 'TileControlMatch + ' + Me.TileControlMatch.AppearanceGroupText.ForeColor = System.Drawing.Color.White + Me.TileControlMatch.AppearanceGroupText.Options.UseForeColor = True + Me.TileControlMatch.AppearanceText.ForeColor = System.Drawing.Color.Yellow + Me.TileControlMatch.AppearanceText.Options.UseForeColor = True + Me.TileControlMatch.BackColor = System.Drawing.Color.WhiteSmoke + Me.TileControlMatch.Dock = System.Windows.Forms.DockStyle.Fill + Me.TileControlMatch.Groups.Add(Me.TileGroup2) + Me.TileControlMatch.Groups.Add(Me.TileGroup3) + Me.TileControlMatch.Location = New System.Drawing.Point(0, 0) + Me.TileControlMatch.MaxId = 2 + Me.TileControlMatch.Name = "TileControlMatch" + Me.TileControlMatch.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar + Me.TileControlMatch.ShowGroupText = True + Me.TileControlMatch.Size = New System.Drawing.Size(1035, 418) + Me.TileControlMatch.TabIndex = 2 + Me.TileControlMatch.TabStop = False + Me.TileControlMatch.Text = "TileControl1" + Me.TileControlMatch.ToolTipController = Me.ToolTipController1 + ' + 'TileGroup2 + ' + Me.TileGroup2.Items.Add(Me.TileItem1) + Me.TileGroup2.Items.Add(Me.TileItem2) + Me.TileGroup2.Name = "TileGroup2" + Me.TileGroup2.Text = "Attribut1" + ' + 'TileItem1 + ' + Me.TileItem1.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.TileItem1.AppearanceItem.Normal.Options.UseBackColor = True + TileItemElement1.Text = "TileItem1" + Me.TileItem1.Elements.Add(TileItemElement1) + Me.TileItem1.Id = 0 + Me.TileItem1.ItemSize = DevExpress.XtraEditors.TileItemSize.Wide + Me.TileItem1.Name = "TileItem1" + ' + 'TileItem2 + ' + Me.TileItem2.AppearanceItem.Normal.BackColor = System.Drawing.Color.White + Me.TileItem2.AppearanceItem.Normal.Options.UseBackColor = True + TileItemElement2.Text = "TileItem2" + Me.TileItem2.Elements.Add(TileItemElement2) + Me.TileItem2.Id = 1 + Me.TileItem2.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium + Me.TileItem2.Name = "TileItem2" + ' + 'TileGroup3 + ' + Me.TileGroup3.Name = "TileGroup3" + Me.TileGroup3.Text = "Attribut2" + ' + 'ToolTipController1 + ' + Me.ToolTipController1.Appearance.BorderColor = System.Drawing.Color.Red + Me.ToolTipController1.Appearance.Options.UseBorderColor = True + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarStaticInfoItem}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 14 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.MacOffice + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.Size = New System.Drawing.Size(1237, 141) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False + ' + 'BarStaticInfoItem + ' + Me.BarStaticInfoItem.Id = 13 + Me.BarStaticInfoItem.Name = "BarStaticInfoItem" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Start" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticInfoItem) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 643) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1237, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'DockManager1 + ' + Me.DockManager1.Form = Me + Me.DockManager1.RootPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.panelContainer1}) + Me.DockManager1.TopZIndexControls.AddRange(New String() {"DevExpress.XtraBars.BarDockControl", "DevExpress.XtraBars.StandaloneBarDockControl", "System.Windows.Forms.StatusBar", "System.Windows.Forms.MenuStrip", "System.Windows.Forms.StatusStrip", "DevExpress.XtraBars.Ribbon.RibbonStatusBar", "DevExpress.XtraBars.Ribbon.RibbonControl", "DevExpress.XtraBars.Navigation.OfficeNavigationBar", "DevExpress.XtraBars.Navigation.TileNavPane", "DevExpress.XtraBars.TabFormControl", "DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl", "DevExpress.XtraBars.ToolbarForm.ToolbarFormControl"}) + ' + 'panelContainer1 + ' + Me.panelContainer1.ActiveChild = Me.DockPanel1 + Me.panelContainer1.Controls.Add(Me.DockPanel1) + Me.panelContainer1.Controls.Add(Me.DockPanel3) + Me.panelContainer1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left + Me.panelContainer1.ID = New System.Guid("2c41e5f4-f976-4b22-a22e-afe12cfdaa3d") + Me.panelContainer1.Location = New System.Drawing.Point(0, 141) + Me.panelContainer1.Name = "panelContainer1" + Me.panelContainer1.OriginalSize = New System.Drawing.Size(202, 200) + Me.panelContainer1.Size = New System.Drawing.Size(202, 502) + Me.panelContainer1.Tabbed = True + Me.panelContainer1.Text = "panelContainer1" + ' + 'DockPanel1 + ' + Me.DockPanel1.Appearance.BackColor = System.Drawing.Color.DarkGray + Me.DockPanel1.Appearance.Options.UseBackColor = True + Me.DockPanel1.Controls.Add(Me.DockPanel1_Container) + Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill + Me.DockPanel1.Font = New System.Drawing.Font("Calibri", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.DockPanel1.ID = New System.Guid("1ff5d42b-085b-405c-85c0-e49f75099dd0") + Me.DockPanel1.Location = New System.Drawing.Point(3, 26) + Me.DockPanel1.Name = "DockPanel1" + Me.DockPanel1.Options.AllowFloating = False + Me.DockPanel1.Options.ShowCloseButton = False + Me.DockPanel1.Options.ShowMaximizeButton = False + Me.DockPanel1.OriginalSize = New System.Drawing.Size(195, 419) + Me.DockPanel1.Size = New System.Drawing.Size(195, 447) + Me.DockPanel1.Text = "Einschränkungen" + ' + 'DockPanel1_Container + ' + Me.DockPanel1_Container.Controls.Add(Me.Label3) + Me.DockPanel1_Container.Controls.Add(Me.CheckedListBoxCategories) + Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchLastMonth) + Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchMonth) + Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchLastYear) + Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchCurrentYear) + Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchYesterday) + Me.DockPanel1_Container.Controls.Add(Me.cmbAttributeDate) + Me.DockPanel1_Container.Controls.Add(Me.Label2) + Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchToday) + Me.DockPanel1_Container.Location = New System.Drawing.Point(0, 0) + Me.DockPanel1_Container.Name = "DockPanel1_Container" + Me.DockPanel1_Container.Size = New System.Drawing.Size(195, 447) + Me.DockPanel1_Container.TabIndex = 0 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.ForeColor = System.Drawing.Color.White + Me.Label3.Location = New System.Drawing.Point(9, 197) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(75, 17) + Me.Label3.TabIndex = 16 + Me.Label3.Text = "Kategorien:" + ' + 'CheckedListBoxCategories + ' + Me.CheckedListBoxCategories.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.CheckedListBoxCategories.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CheckedListBoxCategories.Appearance.Options.UseFont = True + Me.CheckedListBoxCategories.CheckOnClick = True + Me.CheckedListBoxCategories.Location = New System.Drawing.Point(12, 217) + Me.CheckedListBoxCategories.Name = "CheckedListBoxCategories" + Me.CheckedListBoxCategories.Size = New System.Drawing.Size(174, 227) + Me.CheckedListBoxCategories.TabIndex = 15 + ' + 'ToggleSwitchLastMonth + ' + Me.ToggleSwitchLastMonth.Location = New System.Drawing.Point(12, 175) + Me.ToggleSwitchLastMonth.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchLastMonth.Name = "ToggleSwitchLastMonth" + Me.ToggleSwitchLastMonth.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToggleSwitchLastMonth.Properties.Appearance.ForeColor = System.Drawing.Color.White + Me.ToggleSwitchLastMonth.Properties.Appearance.Options.UseFont = True + Me.ToggleSwitchLastMonth.Properties.Appearance.Options.UseForeColor = True + Me.ToggleSwitchLastMonth.Properties.OffText = "Letzter Monat" + Me.ToggleSwitchLastMonth.Properties.OnText = "Letzter Monat" + Me.ToggleSwitchLastMonth.Size = New System.Drawing.Size(151, 19) + Me.ToggleSwitchLastMonth.TabIndex = 14 + ' + 'ToggleSwitchMonth + ' + Me.ToggleSwitchMonth.Location = New System.Drawing.Point(12, 150) + Me.ToggleSwitchMonth.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchMonth.Name = "ToggleSwitchMonth" + Me.ToggleSwitchMonth.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToggleSwitchMonth.Properties.Appearance.ForeColor = System.Drawing.Color.White + Me.ToggleSwitchMonth.Properties.Appearance.Options.UseFont = True + Me.ToggleSwitchMonth.Properties.Appearance.Options.UseForeColor = True + Me.ToggleSwitchMonth.Properties.OffText = "Aktueller Monat" + Me.ToggleSwitchMonth.Properties.OnText = "Aktueller Monat" + Me.ToggleSwitchMonth.Size = New System.Drawing.Size(174, 19) + Me.ToggleSwitchMonth.TabIndex = 13 + ' + 'ToggleSwitchLastYear + ' + Me.ToggleSwitchLastYear.Location = New System.Drawing.Point(12, 125) + Me.ToggleSwitchLastYear.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchLastYear.Name = "ToggleSwitchLastYear" + Me.ToggleSwitchLastYear.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToggleSwitchLastYear.Properties.Appearance.ForeColor = System.Drawing.Color.White + Me.ToggleSwitchLastYear.Properties.Appearance.Options.UseFont = True + Me.ToggleSwitchLastYear.Properties.Appearance.Options.UseForeColor = True + Me.ToggleSwitchLastYear.Properties.OffText = "Letztes Jahr" + Me.ToggleSwitchLastYear.Properties.OnText = "Letztes Jahr" + Me.ToggleSwitchLastYear.Size = New System.Drawing.Size(151, 19) + Me.ToggleSwitchLastYear.TabIndex = 5 + ' + 'ToggleSwitchCurrentYear + ' + Me.ToggleSwitchCurrentYear.Location = New System.Drawing.Point(12, 100) + Me.ToggleSwitchCurrentYear.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchCurrentYear.Name = "ToggleSwitchCurrentYear" + Me.ToggleSwitchCurrentYear.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToggleSwitchCurrentYear.Properties.Appearance.ForeColor = System.Drawing.Color.White + Me.ToggleSwitchCurrentYear.Properties.Appearance.Options.UseFont = True + Me.ToggleSwitchCurrentYear.Properties.Appearance.Options.UseForeColor = True + Me.ToggleSwitchCurrentYear.Properties.OffText = "Aktuelles Jahr" + Me.ToggleSwitchCurrentYear.Properties.OnText = "Aktuelles Jahr" + Me.ToggleSwitchCurrentYear.Size = New System.Drawing.Size(151, 19) + Me.ToggleSwitchCurrentYear.TabIndex = 4 + ' + 'ToggleSwitchYesterday + ' + Me.ToggleSwitchYesterday.Location = New System.Drawing.Point(12, 75) + Me.ToggleSwitchYesterday.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchYesterday.Name = "ToggleSwitchYesterday" + Me.ToggleSwitchYesterday.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToggleSwitchYesterday.Properties.Appearance.ForeColor = System.Drawing.Color.White + Me.ToggleSwitchYesterday.Properties.Appearance.Options.UseFont = True + Me.ToggleSwitchYesterday.Properties.Appearance.Options.UseForeColor = True + Me.ToggleSwitchYesterday.Properties.OffText = "Gestern" + Me.ToggleSwitchYesterday.Properties.OnText = "Gestern" + Me.ToggleSwitchYesterday.Size = New System.Drawing.Size(115, 19) + Me.ToggleSwitchYesterday.TabIndex = 3 + ' + 'cmbAttributeDate + ' + Me.cmbAttributeDate.FormattingEnabled = True + Me.cmbAttributeDate.Location = New System.Drawing.Point(12, 25) + Me.cmbAttributeDate.Name = "cmbAttributeDate" + Me.cmbAttributeDate.Size = New System.Drawing.Size(174, 21) + Me.cmbAttributeDate.TabIndex = 1 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.ForeColor = System.Drawing.Color.White + Me.Label2.Location = New System.Drawing.Point(9, 7) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(135, 15) + Me.Label2.TabIndex = 0 + Me.Label2.Text = "Datum-Attribut wählen:" + ' + 'ToggleSwitchToday + ' + Me.ToggleSwitchToday.Location = New System.Drawing.Point(12, 50) + Me.ToggleSwitchToday.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchToday.Name = "ToggleSwitchToday" + Me.ToggleSwitchToday.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToggleSwitchToday.Properties.Appearance.ForeColor = System.Drawing.Color.White + Me.ToggleSwitchToday.Properties.Appearance.Options.UseFont = True + Me.ToggleSwitchToday.Properties.Appearance.Options.UseForeColor = True + Me.ToggleSwitchToday.Properties.OffText = "Heute" + Me.ToggleSwitchToday.Properties.OnText = "Heute" + Me.ToggleSwitchToday.Size = New System.Drawing.Size(102, 19) + Me.ToggleSwitchToday.TabIndex = 2 + ' + 'DockPanel3 + ' + Me.DockPanel3.Appearance.BackColor = System.Drawing.Color.DarkGray + Me.DockPanel3.Appearance.Options.UseBackColor = True + Me.DockPanel3.Controls.Add(Me.DockPanel3_Container) + Me.DockPanel3.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill + Me.DockPanel3.ID = New System.Guid("08fbe6c7-4310-499d-bd16-beeb37a1d906") + Me.DockPanel3.Location = New System.Drawing.Point(3, 26) + Me.DockPanel3.Name = "DockPanel3" + Me.DockPanel3.Options.AllowFloating = False + Me.DockPanel3.OriginalSize = New System.Drawing.Size(195, 419) + Me.DockPanel3.Size = New System.Drawing.Size(195, 447) + Me.DockPanel3.Text = "Attribute" + ' + 'DockPanel3_Container + ' + Me.DockPanel3_Container.Location = New System.Drawing.Point(0, 0) + Me.DockPanel3_Container.Name = "DockPanel3_Container" + Me.DockPanel3_Container.Size = New System.Drawing.Size(195, 447) + Me.DockPanel3_Container.TabIndex = 0 + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke + Me.Panel1.Controls.Add(Me.CheckButton1) + Me.Panel1.Controls.Add(Me.txtSearchTerm) + Me.Panel1.Controls.Add(Me.lblFoundResult) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(202, 141) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1035, 66) + Me.Panel1.TabIndex = 0 + ' + 'Panel3 + ' + Me.Panel3.BackColor = System.Drawing.Color.Transparent + Me.Panel3.Controls.Add(Me.TileControlMatch) + Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel3.Location = New System.Drawing.Point(202, 207) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(1035, 418) + Me.Panel3.TabIndex = 9 + ' + 'frmFlowSearch + ' + Me.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.Appearance.Options.UseBackColor = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1237, 667) + Me.Controls.Add(Me.Panel3) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.Panel2) + Me.Controls.Add(Me.panelContainer1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = CType(resources.GetObject("frmFlowSearch.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.KeyPreview = True + Me.Name = "frmFlowSearch" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "FlowSearch" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit() + Me.panelContainer1.ResumeLayout(False) + Me.DockPanel1.ResumeLayout(False) + Me.DockPanel1_Container.ResumeLayout(False) + Me.DockPanel1_Container.PerformLayout() + CType(Me.CheckedListBoxCategories, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchLastMonth.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchMonth.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchLastYear.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchCurrentYear.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchYesterday.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchToday.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.DockPanel3.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.Panel3.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents txtSearchTerm As TextBox + Friend WithEvents Label1 As Label + Friend WithEvents lblFoundResult As Label + Friend WithEvents Panel2 As Panel + Friend WithEvents TileControlMatch As DevExpress.XtraEditors.TileControl + Friend WithEvents TileGroup2 As DevExpress.XtraEditors.TileGroup + Friend WithEvents TileItem1 As DevExpress.XtraEditors.TileItem + Friend WithEvents TileItem2 As DevExpress.XtraEditors.TileItem + Friend WithEvents TileGroup3 As DevExpress.XtraEditors.TileGroup + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents CheckButton1 As DevExpress.XtraEditors.CheckButton + Friend WithEvents ToolTipController1 As DevExpress.Utils.ToolTipController + Friend WithEvents DockManager1 As DevExpress.XtraBars.Docking.DockManager + Friend WithEvents DockPanel1 As DevExpress.XtraBars.Docking.DockPanel + Friend WithEvents DockPanel1_Container As DevExpress.XtraBars.Docking.ControlContainer + Friend WithEvents Label2 As Label + Friend WithEvents panelContainer1 As DevExpress.XtraBars.Docking.DockPanel + Friend WithEvents DockPanel3 As DevExpress.XtraBars.Docking.DockPanel + Friend WithEvents DockPanel3_Container As DevExpress.XtraBars.Docking.ControlContainer + Friend WithEvents Panel3 As Panel + Friend WithEvents Panel1 As Panel + Friend WithEvents cmbAttributeDate As ComboBox + Friend WithEvents ToggleSwitchToday As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents ToggleSwitchYesterday As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents ToggleSwitchLastYear As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents ToggleSwitchCurrentYear As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents ToggleSwitchLastMonth As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents ToggleSwitchMonth As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents CheckedListBoxCategories As DevExpress.XtraEditors.CheckedListBoxControl + Friend WithEvents Label3 As Label + Friend WithEvents BarStaticInfoItem As DevExpress.XtraBars.BarStaticItem +End Class diff --git a/GUIs.ZooFlow/Search/Old/frmFlowSearch.resx b/GUIs.ZooFlow/Search/Old/frmFlowSearch.resx new file mode 100644 index 0000000..832ddf7 --- /dev/null +++ b/GUIs.ZooFlow/Search/Old/frmFlowSearch.resx @@ -0,0 +1,179 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iQmFyY29kZSI+DQogICAgPHBhdGggZD0iTTI5LDRIMUMwLjUsNCwwLDQuNSwwLDV2 + MjJjMCwwLjUsMC41LDEsMSwxaDI4YzAuNSwwLDEtMC41LDEtMVY1QzMwLDQuNSwyOS41LDQsMjksNHog + TTI4LDI2SDJWNmgyNlYyNnogICAgTTYsMjRINFY4aDJWMjR6IE0xMCwyMEg4VjhoMlYyMHogTTE0LDI0 + aC0yVjhoMlYyNHogTTE4LDIwaC0yVjhoMlYyMHogTTIyLDIwaC0yVjhoMlYyMHogTTI2LDI0aC0yVjho + MlYyNHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + + 17, 17 + + + 170, 17 + + + True + + + True + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFsEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk + aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp + c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41 + O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7 + ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp + c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJTdGF0ZU1hY2hpbmUi + Pg0KICAgIDxwYXRoIGQ9Ik0xNiw2aC0yTDQsMjJsMiwyaDE4bDItMkwxNiw2eiBNMjMuMiwyMkg2Ljhs + LTAuMy0wLjNMMTUsOC4ybDguNSwxMy41TDIzLjIsMjJ6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBh + dGggZD0iTTUsMjhjLTIuOCwwLTUtMi4yLTUtNXMyLjItNSw1LTVzNSwyLjIsNSw1UzcuOCwyOCw1LDI4 + eiBNMzAsMjNjMC0yLjgtMi4yLTUtNS01cy01LDIuMi01LDVzMi4yLDUsNSw1ICAgUzMwLDI1LjgsMzAs + MjN6IE0yMCw3YzAtMi44LTIuMi01LTUtNXMtNSwyLjItNSw1czIuMiw1LDUsNVMyMCw5LjgsMjAsN3oi + IGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/Old/frmFlowSearch.vb b/GUIs.ZooFlow/Search/Old/frmFlowSearch.vb new file mode 100644 index 0000000..5eff9c8 --- /dev/null +++ b/GUIs.ZooFlow/Search/Old/frmFlowSearch.vb @@ -0,0 +1,562 @@ +Imports DevExpress.XtraEditors +Imports DevExpress.XtraSplashScreen +Imports DevExpress.XtraBars +Imports DevExpress.Utils +Imports DigitalData.GUIs.Common +Imports DigitalData.GUIs.ZooFlow.ClassConstants +Imports DigitalData.Modules.EDMI.API +Imports DigitalData.Modules.EDMI.API.Constants +Imports DigitalData.Modules.Logging + +Public Class frmFlowSearch + Private Logger As Logger + Private FontLargeBold As New Font("Segoe UI", 10, FontStyle.Bold) + Private FontLargeNormal As New Font("Segoe UI", 10) + Private SecondaryFontBold As New Font("Segoe UI", 8, FontStyle.Bold) + Private SecondaryFont As New Font("Segoe UI", 8) + Private oLastAttribute As String = "" + Private oAttributeCount As Integer = 1 + Private BaseSearchCommand As String + Private LastSearchForm As frmDocumentResultList + Private Database As DatabaseWithFallback + Private EventtoggleChange As Boolean = False + Private Language_Term_Object As String + Private LIMITATION_DATE As Boolean = False + Private TOGGLE_Change As Boolean = False + Private CATEGORIES_SELECTED As String = "" + Private SEARCH_FACT_DATE As String = "MONTH(OBJ.ADDED_WHEN) <> 13" + Private SEARCH_FACT_DATE_ATTRIBUTE = "ADDED_WHEN" + + Public Sub New(pBaseSearchSql As String) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + BaseSearchCommand = pBaseSearchSql + Logger = My.LogConfig.GetLogger() + Database = New DatabaseWithFallback(My.LogConfig, My.Application.Service.Client, My.DatabaseECM, My.DatabaseIDB) + If My.Application.User.Language = "de-DE" Then + Language_Term_Object = "Objekte" + Else + Language_Term_Object = "objects" + End If + End Sub + Private Sub frmFlowSearch_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + RibbonControl1.Minimized = True + TileControlMatch.Groups.Clear() + Dim oSQL = "select DISTINCT TERM_VALUE AS CATEGORY ,ATTRIBUTE_ID from VWIDB_CATEGORIES_PER_OBJECT_AND_LANGUAGE WHERE LANGUAGE_ID = @LANGUAGE_ID ORDER BY TERM_VALUE" + + + 'Dim oDTCategory As DataTable = ASorDB.GetDatatable("IDB", $"SELECT 'NONE' as CATEGORY", "VWIDB_CATEGORIES_PER_OBJECT_AND_LANGUAGE", "", "CATEGORY") + Dim oDTCategory As DataTable = Database.GetDatatable("VWIDB_CATEGORIES_PER_OBJECT_AND_LANGUAGE", "SELECT 'NONE' as CATEGORY", DatabaseType.IDB, "", "CATEGORY") + + If Not IsNothing(oDTCategory) Then + CheckedListBoxCategories.DataSource = oDTCategory + CheckedListBoxCategories.DisplayMember = "CATEGORY" + End If + If My.Application.User.Language = "de-DE" Then + cmbAttributeDate.Items.Add(IDB_ADDED_WHEN_String_German) + Else + cmbAttributeDate.Items.Add(IDB_ADDED_WHEN_String_Englisch) + End If + 'Dim oDT As DataTable = ASorDB.GetDatatable("IDB", $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE TYPE_ID = 5 AND LANG_ID = {My.Application.User.LanguageID}", "VWIDB_BE_ATTRIBUTE", $"TYPE_ID = 5 AND LANG_ID = {My.Application.User.LanguageID}") + Dim oDT As DataTable = Database.GetDatatable("VWIDB_BE_ATTRIBUTE", $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE TYPE_ID = 5 AND LANG_ID = {My.Application.User.LanguageId}", DatabaseType.IDB, $"TYPE_ID = 5 AND LANG_ID = {My.Application.User.LanguageId}") + + For Each oRow As DataRow In oDT.Rows + cmbAttributeDate.Items.Add(oRow.Item("ATTR_TITLE")) + Next + 'Dim editor As BarEditItem = BarEditItemDate + ' editor = TryCast(BarEditItemDate, ComboBoxEdit) + If My.Application.User.Language = "de-DE" Then + cmbAttributeDate.SelectedIndex = 0 + ' BarEditItemDate.EditValue = "Erstellt Wann" + Else + cmbAttributeDate.SelectedIndex = 1 + ' BarEditItemDate.EditValue = "Added when" + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical) + Logger.Error(ex) + End Try + + End Sub + + Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearchTerm.TextChanged + + End Sub + Sub Reset_Form() + TileControlMatch.Groups.Clear() + lblFoundResult.Visible = False + End Sub + Sub SearchContent() + Try + If txtSearchTerm.Text = String.Empty Then + Exit Sub + End If + GET_SELECTED_CATEGORIES() + + Dim oSearchValue = Trim(txtSearchTerm.Text) + oLastAttribute = "" + Dim oSQL = BaseSearchCommand.Replace("@SEARCH_STRING", oSearchValue) + + + If SEARCH_FACT_DATE_ATTRIBUTE = "ADDED_WHEN" Then + oSQL = oSQL.Replace("MONTH(OBJ.ADDED_WHEN) <> 13", SEARCH_FACT_DATE) + Else + oSQL = oSQL.Replace("MONTH(OBJ.ADDED_WHEN) <> 13", SEARCH_FACT_DATE) + oSQL = oSQL.Replace("--INNER JOIN VWIDB_GROUP_DATA_DATE", "INNER JOIN VWIDB_GROUP_DATA_DATE") + End If + If CATEGORIES_SELECTED <> String.Empty Then + oSQL = oSQL.Replace("--AND ATTR_TERM.TERM_VALUE IN ('')", $"AND ATTR_TERM.TERM_VALUE IN ({CATEGORIES_SELECTED})") + End If + + Dim oResultCountAttributes As Integer = 0 + TileControlMatch.Groups.Clear() + + Dim oResultsfromSearchDT As DataTable = My.DatabaseIDB.GetDatatable(oSQL) + If Not IsNothing(oResultsfromSearchDT) Then + + Dim oView As DataView = New DataView(oResultsfromSearchDT) + Dim oDTDistinctValues As DataTable = oView.ToTable(True, "ATTRIBUTE", "ATTR_ID") + Dim oGroups = oResultsfromSearchDT.AsEnumerable().GroupBy(Function(row) row.Field(Of String)("ATTRIBUTE")) + Dim oNewTable As New DataTable + oNewTable.Columns.Add("ATTRIBUTE") + oNewTable.Columns.Add("COUNT", Type.GetType("System.Int32")) + For Each oGroup In oGroups + oNewTable.Rows.Add(oGroup.Key, oGroup.Sum(Function(row) row.Field(Of Int32)("COUNT_OBJ"))) + Next + If Not IsNothing(oNewTable) Then + Dim oAttrCount As Integer = 0 + + For Each orow As DataRow In oNewTable.Rows + oAttrCount += 1 + oResultCountAttributes += orow.Item(1) + Next + lblFoundResult.Text = GetResultString(oResultCountAttributes, oAttrCount, oSearchValue) + TileControlMatch.Text = GetResultString(oResultCountAttributes, oAttrCount, oSearchValue) + lblFoundResult.Visible = True + End If + oNewTable.DefaultView.Sort = "COUNT ASC" + oNewTable = oNewTable.DefaultView.ToTable + + '#### CREATE THE GROUPS FOR EACH ATTRIBUTE #### + Dim oCountGroup As Int16 = 0 + For Each oGroupRow As DataRow In oNewTable.Rows + oCountGroup += 1 + Dim oGroup As New TileGroup + oGroup.Text = $"[{oCountGroup}] {oGroupRow.Item(0).ToString} ({oGroupRow.Item(1).ToString} {Language_Term_Object})" + oGroup.Tag = oGroupRow.Item(0) + oGroup.Visible = True + For Each oitemRow As DataRow In oResultsfromSearchDT.Rows + If oitemRow.Item("ATTRIBUTE") = oGroupRow.Item(0) Then + Dim oItem = CreateTile(oitemRow.Item("TERM_VALUE"), oitemRow.Item("COUNT_OBJ"), oGroupRow.Item(0).ToString, oitemRow.Item("ATTR_ID"), oitemRow.Item("TERM_GUID")) + If Not IsNothing(oItem) Then + oGroup.Items.Add(oItem) + End If + End If + Next + TileControlMatch.Groups.Add(oGroup) + + Next + + 'Wenn weniger als 45 Belege gefunden wurden wird direkt die Suche ausgeführt + If oResultCountAttributes > 0 And oResultCountAttributes <= 45 Then + StartSearch_Full(oSearchValue, "") + Else + If oResultsfromSearchDT.Rows.Count = 0 Then + Reset_Form() + lblFoundResult.Text = "No Results" + lblFoundResult.Visible = True + End If + End If + + Else + lblFoundResult.Text = "Result from DB Is Nothing..Check SQL" + lblFoundResult.Visible = True + End If + Catch ex As Exception + Logger.Error(ex) + lblFoundResult.Text = $"Unexpected Error in SearchContent {ex.Message}" + lblFoundResult.Visible = True + End Try + + + End Sub + Private Function StartSearch_Full(pSearchValue As String, pOptAttribute As String) As Boolean + Dim oHandle As IOverlaySplashScreenHandle = Nothing + Dim oItemsFound As Boolean = False + Dim oSearchData = My.Application.Search + + Try + oHandle = SplashScreenManager.ShowOverlayForm(Me) + + Dim oEXECSQL = $"EXEC PRFLOW_SEARCH_GET_RESULT '{pSearchValue}','{SEARCH_FACT_DATE}', {My.Application.User.UserId},'{oSearchData.SelectInStringAttributeIds}','{oSearchData.SelectInIntegerAttributeIds}',{My.Application.User.LanguageId},'{pOptAttribute}'" + Dim oDTOBJECT_RESULT As DataTable = My.DatabaseIDB.GetDatatable(oEXECSQL) + If Not IsNothing(oDTOBJECT_RESULT) Then + If oDTOBJECT_RESULT.Rows.Count = 0 Then + lblFoundResult.Text = "No Results" + lblFoundResult.Visible = True + Return False + End If + oItemsFound = True + OpenResultForm(oDTOBJECT_RESULT) + Else + BarStaticInfoItem.Caption = "Check PRFLOW_SEARCH_GET_RESULT: Nothing" + BarStaticInfoItem.ItemAppearance.Normal.BackColor = Color.Orange + Return False + End If + + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, Text) + Finally + SplashScreenManager.CloseOverlayForm(oHandle) + + End Try + Return oItemsFound + End Function + Private Sub OpenResultForm(pDTRESULT As DataTable) + Try + Dim oEnvironment As New Modules.ZooFlow.Environment() With { + .User = My.Application.User, + .Modules = My.Application.Modules, + .Database = My.DatabaseECM, + .DatabaseIDB = My.DatabaseIDB, + .Settings = My.Application.Settings, + .Service = My.Application.Service + } + Dim oShortGuid = Guid.NewGuid() + Dim oWindowGuid = $"FLOWSEARCH-{My.User.Name}" + Dim oParams = New DocumentResultList.Params() With { + .WindowGuid = oWindowGuid, + .Results = New List(Of DocumentResultList.DocumentResult) From { + New DocumentResultList.DocumentResult() With { + .Title = "FlowSearchResult", + .Datatable = pDTRESULT + } + } + } + Dim oForm As New frmDocumentResultList(My.LogConfig, oEnvironment, oParams) + oForm.Show() + + LastSearchForm = oForm + + ' Position Result Window below this window + LastSearchForm.Location = GetResultFormLocation() + LastSearchForm.Size = GetResultFormSize() + + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub + + Private Function GetResultFormLocation() As Point + Return Location + End Function + + Private Function GetResultFormSize() As Size + Return Size + End Function + Private Function GetResultString(CountObjects As Integer, CountAttribute As Integer, SearchContent As String) As String + Dim oResultString = $"wurden {CountObjects} Objekte" ' IIf(CountAttribute = 1, $"wurden {CountObjects} Objekte", $"wurden {CountObjects} Objekte in {CountAttribute} Attributen") + Dim oProfileString = IIf(CountAttribute = 1, "[einem] Attribut", $"[{CountAttribute}] Attributen") + Dim oBase = "Es {0} in {1} für Ihre Suche nach '{2}' gefunden:" + + Return String.Format(oBase, oResultString, oProfileString, SearchContent) + End Function + Private Function CreateTile(pTermValue As String, pCount_Obj As String, pAttribute As String, pAttributeID As String, pTermGuid As Long) As TileItem + Try + Dim oItem As New TileItem() With {.Tag = $"{pTermGuid}|{pAttributeID}"} + + If oLastAttribute <> pAttribute Then + oAttributeCount = 1 + oLastAttribute = pAttribute + oItem.ItemSize = TileItemSize.Wide + oItem.AppearanceItem.Normal.BackColor = Color.FromArgb(165, 36, 49) ' GELB 255, 214, 47) + Else + oItem.ItemSize = TileItemSize.Medium + oItem.AppearanceItem.Normal.BackColor = Color.White + End If + oAttributeCount += 1 + + oItem.Elements.Clear() + + Dim oNameElement = New TileItemElement With { + .Text = pTermValue, + .TextAlignment = TileItemContentAlignment.TopLeft + } + Select Case oItem.ItemSize + Case TileItemSize.Wide + oNameElement.Appearance.Normal.Font = FontLargeBold + oNameElement.Appearance.Normal.ForeColor = Color.White + Case Else + oNameElement.Appearance.Normal.Font = SecondaryFontBold + oNameElement.Appearance.Normal.ForeColor = Color.FromArgb(165, 36, 49) + End Select + + 'oNameElement.Appearance.Normal.ForeColor = Color.Black + oItem.Elements.Add(oNameElement) + + 'Dim oCommentElement = New TileItemElement With { + ' .Text = "Anzahl Objekte: " & pCount_Obj, + ' .TextAlignment = TileItemContentAlignment.MiddleLeft + '} + + 'Select Case oItem.ItemSize + ' Case TileItemSize.Wide + ' oCommentElement.Appearance.Normal.Font = FontLargeNormal + ' Case Else + ' oCommentElement.Appearance.Normal.Font = SecondaryFont + 'End Select + + 'oCommentElement.Appearance.Normal.ForeColor = Color.Black + 'oItem.Elements.Add(oCommentElement) + + Dim oCountElement = New TileItemElement With { + .Text = "Anzahl Objekte: " & pCount_Obj, + .TextAlignment = TileItemContentAlignment.BottomRight + } + Select Case oItem.ItemSize + Case TileItemSize.Wide + oCountElement.Appearance.Normal.Font = FontLargeNormal + oCountElement.Appearance.Normal.ForeColor = Color.White + Case Else + oCountElement.Appearance.Normal.Font = SecondaryFont + oCountElement.Appearance.Normal.ForeColor = Color.FromArgb(165, 36, 49) + End Select + oItem.Elements.Add(oCountElement) + + Return oItem + Catch ex As Exception + Logger.Error(ex) + Return Nothing + End Try + + End Function + + Private Sub txtSearch_GotFocus(sender As Object, e As EventArgs) Handles txtSearchTerm.GotFocus + Label1.Visible = True + Dim oTEXTBOX As TextBox = CType(sender, TextBox) + oTEXTBOX.BackColor = Color.FromArgb(255, 214, 47) + + + End Sub + Private Sub txtSearchTerm_Leave(sender As Object, e As EventArgs) Handles txtSearchTerm.Leave + Dim oTEXTBOX As TextBox = CType(sender, TextBox) + oTEXTBOX.BackColor = Color.White + End Sub + Sub GET_SELECTED_CATEGORIES() + CATEGORIES_SELECTED = "" + Dim i As Integer = 0 + For Each item As Object In CheckedListBoxCategories.CheckedItems + Dim row As DataRowView = TryCast(item, DataRowView) + Dim oItem = $"'{row("CATEGORY")}'" + If i = 0 Then + CATEGORIES_SELECTED = oItem + End If + If Not CATEGORIES_SELECTED.StartsWith(oItem) Then + CATEGORIES_SELECTED &= String.Format(",{0}", oItem) + End If + + i += 1 + Next item + End Sub + + Private Sub TileControlMatch_ItemClick(sender As Object, e As TileItemEventArgs) Handles TileControlMatch.ItemClick + Try + Dim oItem As TileItem = e.Item + Dim oItemTag = oItem.Tag + Dim oHandle As IOverlaySplashScreenHandle = Nothing + Dim oItemsFound As Boolean = False + Dim oSearchData = My.Application.Search + Dim oSplit = oItem.Tag.ToString.Split("|") + Try + oHandle = SplashScreenManager.ShowOverlayForm(Me) + + 'Dim oDT As DataTable = ASorDB.GetDatatable("IDB", $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = {oSplit(1)} AND LANG_ID = {My.Application.User.LanguageID}", "VWIDB_BE_ATTRIBUTE", $"ATTR_ID = {oSplit(1)} AND LANG_ID = {My.Application.User.LanguageID}") + Dim oDT As DataTable = Database.GetDatatable("VWIDB_BE_ATTRIBUTE", $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = {oSplit(1)} AND LANG_ID = {My.Application.User.LanguageId}", DatabaseType.IDB, $"ATTR_ID = {oSplit(1)} AND LANG_ID = {My.Application.User.LanguageId}") + + Dim oType = oDT.Rows(0).Item("TYPE_NAME") + Dim oEXECSQL = $"EXEC PRFLOW_SEARCH_GET_RESULT_PER_TILE {oSplit(0)},{My.Application.User.UserId},'{oType}',{oSplit(1)},'{My.Application.User.Language}'" + Dim oDTOBJECT_RESULT As DataTable = My.DatabaseIDB.GetDatatable(oEXECSQL) + If Not IsNothing(oDTOBJECT_RESULT) Then + oItemsFound = True + OpenResultForm(oDTOBJECT_RESULT) + End If + + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, Text) + Finally + SplashScreenManager.CloseOverlayForm(oHandle) + + End Try + Catch ex As Exception + MsgBox($"Error while loading Searches: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text) + Logger.Error(ex) + End Try + End Sub + Private Function GET_DATE_LIMITATION(pInput As String) As String + Try + If SEARCH_FACT_DATE_ATTRIBUTE = "ADDED_WHEN" Then + Return pInput.Replace("@ATTRIBUTE", "OBJ.ADDED_WHEN") + Else + Dim oSTR = $"GRPDATE.[{SEARCH_FACT_DATE_ATTRIBUTE}]" + Return pInput.Replace("@ATTRIBUTE", oSTR) + End If + Catch ex As Exception + Return pInput + Logger.Error(ex) + End Try + End Function + + + Sub Start_FlowSearch(Optional AllOver As Boolean = False) + If txtSearchTerm.Text <> String.Empty Or AllOver = True Then + SearchContent() + End If + End Sub + + Private Sub btnFindAll_Click(sender As Object, e As EventArgs) + + End Sub + + Private Sub CheckButton1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckButton1.CheckedChanged + If LIMITATION_DATE = True Then + Dim result As MsgBoxResult + If My.Application.User.Language = "de-DE" Then + result = MessageBox.Show("Wollen Sie wirklich eine Suche über alle Objekte starten?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + Else + result = MessageBox.Show("Do You really want to start a search without limitation?", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + End If + If result = MsgBoxResult.No Then + Exit Sub + End If + End If + StartSearch_Full("", "") + CheckButton1.Checked = True + End Sub + + Private Sub TileControlMatch_Click(sender As Object, ByVal e As MouseEventArgs) Handles TileControlMatch.Click + Dim tc As TileControl = TryCast(sender, TileControl) + Dim hi = tc.CalcHitInfo(e.Location) + If hi.HitTest = DevExpress.XtraEditors.TileControlHitTest.GroupCaption Then + Console.WriteLine(hi.GroupInfo.Group.Tag) + StartSearch_Full(RTrim(LTrim(txtSearchTerm.Text)), hi.GroupInfo.Group.Tag) + End If + End Sub + + Private Sub cmbAttributeDate_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbAttributeDate.SelectedIndexChanged + If cmbAttributeDate.SelectedIndex <> -1 Then + Try + + Dim oEditValue As String = cmbAttributeDate.SelectedItem.ToString + + If oEditValue = IDB_ADDED_WHEN_String_German Or oEditValue = IDB_ADDED_WHEN_String_Englisch Then + SEARCH_FACT_DATE_ATTRIBUTE = "ADDED_WHEN" + Else + SEARCH_FACT_DATE_ATTRIBUTE = oEditValue + SEARCH_FACT_DATE = $"MONTH(GRPDATE.[{SEARCH_FACT_DATE_ATTRIBUTE}]) <> 13" + End If + SearchContent() + Catch ex As Exception + Logger.Error(ex) + End Try + End If + End Sub + + Private Sub DockManager1_StartDocking(sender As Object, e As Docking.DockPanelCancelEventArgs) Handles DockManager1.StartDocking + e.Cancel = True + End Sub + + + + Private Sub ToggleSwitchDate_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchToday.Toggled, ToggleSwitchYesterday.Toggled, ToggleSwitchCurrentYear.Toggled, ToggleSwitchLastYear.Toggled, + ToggleSwitchLastMonth.Toggled, ToggleSwitchMonth.Toggled + If TOGGLE_Change = True Then + Exit Sub + End If + Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch) + + If oToggle.IsOn Then + TOGGLE_Change = True + LIMITATION_DATE = True + Dim oWHENDATE As String + Select Case oToggle.Name + Case "ToggleSwitchCurrentYear" + ToggleSwitchLastYear.IsOn = False + ToggleSwitchMonth.IsOn = False + ToggleSwitchLastMonth.IsOn = False + ToggleSwitchToday.IsOn = False + ToggleSwitchYesterday.IsOn = False + oWHENDATE = GET_DATE_LIMITATION("YEAR(@ATTRIBUTE) = YEAR(GETDATE())") + Case "ToggleSwitchLastYear" + ToggleSwitchCurrentYear.IsOn = False + ToggleSwitchMonth.IsOn = False + ToggleSwitchLastMonth.IsOn = False + ToggleSwitchToday.IsOn = False + ToggleSwitchYesterday.IsOn = False + oWHENDATE = GET_DATE_LIMITATION("YEAR(@ATTRIBUTE) = (YEAR(GETDATE()) -1)") + Case "ToggleSwitchMonth" + ToggleSwitchCurrentYear.IsOn = False + ToggleSwitchLastYear.IsOn = False + ToggleSwitchToday.IsOn = False + ToggleSwitchYesterday.IsOn = False + ToggleSwitchLastMonth.IsOn = False + oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = MONTH(GETDATE())") + Case "ToggleSwitchLastMonth" + ToggleSwitchCurrentYear.IsOn = False + ToggleSwitchLastYear.IsOn = False + ToggleSwitchMonth.IsOn = False + ToggleSwitchToday.IsOn = False + ToggleSwitchYesterday.IsOn = False + Dim currentDate As DateTime = DateTime.Now + If currentDate.Month = 1 Then + oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = 12 " & vbNewLine & "AND YEAR(@ATTRIBUTE) = (YEAR(GETDATE()) -1)") + Else + oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = (MONTH(GETDATE()) -1)") + End If + Case "ToggleSwitchToday" + ToggleSwitchCurrentYear.IsOn = False + ToggleSwitchLastYear.IsOn = False + ToggleSwitchMonth.IsOn = False + ToggleSwitchYesterday.IsOn = False + oWHENDATE = GET_DATE_LIMITATION("convert(DATE,@ATTRIBUTE) = convert(DATE,GETDATE())") + Case "ToggleSwitchYesterday" + ToggleSwitchCurrentYear.IsOn = False + ToggleSwitchLastYear.IsOn = False + ToggleSwitchMonth.IsOn = False + ToggleSwitchToday.IsOn = False + oWHENDATE = GET_DATE_LIMITATION("convert(DATE,@ATTRIBUTE) = convert(DATE,GETDATE()-1)") + End Select + SEARCH_FACT_DATE = oWHENDATE + TOGGLE_Change = False + Else + If ToggleSwitchToday.IsOn = False And ToggleSwitchYesterday.IsOn = False And ToggleSwitchCurrentYear.IsOn = False And ToggleSwitchLastYear.IsOn = False And ToggleSwitchLastMonth.IsOn = False And ToggleSwitchMonth.IsOn = False Then + LIMITATION_DATE = False + + End If + End If + Start_FlowSearch() + End Sub + + Private Sub txtSearchTerm_KeyUp(sender As Object, e As KeyEventArgs) Handles txtSearchTerm.KeyUp + If e.KeyCode = Keys.Return Then + Try + If txtSearchTerm.Text = String.Empty Then + Reset_Form() + Exit Sub + End If + lblFoundResult.Visible = False + Start_FlowSearch() + + Catch ex As Exception + lblFoundResult.Text = "Unexpected error in FlowSearch - Check Your log" + lblFoundResult.Visible = True + Logger.Error(ex) + End Try + End If + + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/Old/frmFlowSearch1.Designer.vb b/GUIs.ZooFlow/Search/Old/frmFlowSearch1.Designer.vb new file mode 100644 index 0000000..f688db9 --- /dev/null +++ b/GUIs.ZooFlow/Search/Old/frmFlowSearch1.Designer.vb @@ -0,0 +1,520 @@ + +Partial Class frmFlowSearch1 + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowSearch1)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonStartSearch = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonReset = New DevExpress.XtraBars.BarButtonItem() + Me.bsiStatus = New DevExpress.XtraBars.BarStaticItem() + Me.BarSubItem1 = New DevExpress.XtraBars.BarSubItem() + Me.BarListItem1 = New DevExpress.XtraBars.BarListItem() + Me.BarToggleSwitchItemTerm = New DevExpress.XtraBars.BarToggleSwitchItem() + Me.BarToggleSwitchItemFulltext = New DevExpress.XtraBars.BarToggleSwitchItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager(Me.components) + Me.DockPanel1 = New DevExpress.XtraBars.Docking.DockPanel() + Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.DateEditTill = New DevExpress.XtraEditors.DateEdit() + Me.ToggleSwitchMonth_Last = New DevExpress.XtraEditors.ToggleSwitch() + Me.ToggleSwitchDateto = New DevExpress.XtraEditors.ToggleSwitch() + Me.lblDatefrom = New DevExpress.XtraEditors.LabelControl() + Me.DateEditFrom = New DevExpress.XtraEditors.DateEdit() + Me.ToggleSwitchMonth = New DevExpress.XtraEditors.ToggleSwitch() + Me.ToggleSwitchTomorrow = New DevExpress.XtraEditors.ToggleSwitch() + Me.ToggleSwitchToday = New DevExpress.XtraEditors.ToggleSwitch() + Me.ToggleSwitchLastWeek = New DevExpress.XtraEditors.ToggleSwitch() + Me.ToggleSwitchYesterday = New DevExpress.XtraEditors.ToggleSwitch() + Me.ToggleSwitchYear_Last = New DevExpress.XtraEditors.ToggleSwitch() + Me.ToggleSwitchYear = New DevExpress.XtraEditors.ToggleSwitch() + Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + Me.Label1 = New System.Windows.Forms.Label() + Me.cmbLimitationDateAttr = New System.Windows.Forms.ComboBox() + Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit() + Me.TextEditSearch = New DevExpress.XtraEditors.TextEdit() + Me.AdornerUIManager1 = New DevExpress.Utils.VisualEffects.AdornerUIManager(Me.components) + Me.Guide1 = New DevExpress.Utils.VisualEffects.Guide() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.DockPanel1.SuspendLayout() + Me.DockPanel1_Container.SuspendLayout() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + CType(Me.DateEditTill.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DateEditTill.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchMonth_Last.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchDateto.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DateEditFrom.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DateEditFrom.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchMonth.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchTomorrow.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchToday.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchLastWeek.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchYesterday.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEditSearch.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.AdornerUIManager1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green + 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.BarButtonStartSearch, Me.BarButtonReset, Me.bsiStatus, Me.BarSubItem1, Me.BarListItem1, Me.BarToggleSwitchItemTerm, Me.BarToggleSwitchItemFulltext}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 8 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.Size = New System.Drawing.Size(767, 89) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonStartSearch + ' + Me.BarButtonStartSearch.Caption = "Suche starten" + Me.BarButtonStartSearch.Id = 1 + Me.BarButtonStartSearch.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonStartSearch.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonStartSearch.Name = "BarButtonStartSearch" + ' + 'BarButtonReset + ' + Me.BarButtonReset.Caption = "Suche zurücksetzen" + Me.BarButtonReset.Id = 2 + Me.BarButtonReset.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonReset.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonReset.Name = "BarButtonReset" + ' + 'bsiStatus + ' + Me.bsiStatus.Id = 3 + Me.bsiStatus.ImageOptions.SvgImage = CType(resources.GetObject("bsiStatus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bsiStatus.Name = "bsiStatus" + Me.bsiStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'BarSubItem1 + ' + Me.BarSubItem1.Caption = "BarSubItem1" + Me.BarSubItem1.Id = 4 + Me.BarSubItem1.Name = "BarSubItem1" + ' + 'BarListItem1 + ' + Me.BarListItem1.Caption = "Vorlagen" + Me.BarListItem1.Id = 5 + Me.BarListItem1.Name = "BarListItem1" + ' + 'BarToggleSwitchItemTerm + ' + Me.BarToggleSwitchItemTerm.BindableChecked = True + Me.BarToggleSwitchItemTerm.Caption = "Suche nach Begriff" + Me.BarToggleSwitchItemTerm.Checked = True + Me.BarToggleSwitchItemTerm.Id = 6 + Me.BarToggleSwitchItemTerm.Name = "BarToggleSwitchItemTerm" + ' + 'BarToggleSwitchItemFulltext + ' + Me.BarToggleSwitchItemFulltext.Caption = "Suche Volltext" + Me.BarToggleSwitchItemFulltext.Enabled = False + Me.BarToggleSwitchItemFulltext.Id = 7 + Me.BarToggleSwitchItemFulltext.Name = "BarToggleSwitchItemFulltext" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Suche" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonStartSearch) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonReset) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "Suchfunktionen" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.AllowTextClipping = False + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemTerm) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemFulltext) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Suchvarianten" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiStatus) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 503) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(767, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'DockManager1 + ' + Me.DockManager1.DockingOptions.ShowCaptionImage = True + Me.DockManager1.Form = Me + Me.DockManager1.RootPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.DockPanel1}) + Me.DockManager1.TopZIndexControls.AddRange(New String() {"DevExpress.XtraBars.BarDockControl", "DevExpress.XtraBars.StandaloneBarDockControl", "System.Windows.Forms.MenuStrip", "System.Windows.Forms.StatusStrip", "System.Windows.Forms.StatusBar", "DevExpress.XtraBars.Ribbon.RibbonStatusBar", "DevExpress.XtraBars.Ribbon.RibbonControl", "DevExpress.XtraBars.Navigation.OfficeNavigationBar", "DevExpress.XtraBars.Navigation.TileNavPane", "DevExpress.XtraBars.TabFormControl", "DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl", "DevExpress.XtraBars.ToolbarForm.ToolbarFormControl"}) + ' + 'DockPanel1 + ' + Me.DockPanel1.Appearance.Options.UseImage = True + Me.DockPanel1.Controls.Add(Me.DockPanel1_Container) + Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left + Me.DockPanel1.ID = New System.Guid("404a591d-3a18-4984-8b8d-d8ac23bfc3db") + Me.DockPanel1.ImageOptions.SvgImage = CType(resources.GetObject("DockPanel1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.DockPanel1.Location = New System.Drawing.Point(0, 89) + Me.DockPanel1.Name = "DockPanel1" + Me.DockPanel1.OriginalSize = New System.Drawing.Size(193, 200) + Me.DockPanel1.Size = New System.Drawing.Size(193, 414) + Me.DockPanel1.Text = "Datum" + ' + 'DockPanel1_Container + ' + Me.DockPanel1_Container.Controls.Add(Me.XtraTabControl1) + Me.DockPanel1_Container.Controls.Add(Me.Label1) + Me.DockPanel1_Container.Controls.Add(Me.cmbLimitationDateAttr) + Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 40) + Me.DockPanel1_Container.Name = "DockPanel1_Container" + Me.DockPanel1_Container.Size = New System.Drawing.Size(186, 371) + Me.DockPanel1_Container.TabIndex = 0 + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.XtraTabControl1.HeaderLocation = DevExpress.XtraTab.TabHeaderLocation.Bottom + Me.XtraTabControl1.Location = New System.Drawing.Point(6, 58) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True] + Me.XtraTabControl1.Size = New System.Drawing.Size(171, 310) + Me.XtraTabControl1.TabIndex = 10 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.Appearance.PageClient.BackColor = System.Drawing.Color.Lavender + Me.XtraTabPage1.Appearance.PageClient.Options.UseBackColor = True + Me.XtraTabPage1.Controls.Add(Me.DateEditTill) + Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchMonth_Last) + Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchDateto) + Me.XtraTabPage1.Controls.Add(Me.lblDatefrom) + Me.XtraTabPage1.Controls.Add(Me.DateEditFrom) + Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchMonth) + Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchTomorrow) + Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchToday) + Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchLastWeek) + Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYesterday) + Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYear_Last) + Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYear) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(169, 285) + Me.XtraTabPage1.Text = "Standard" + ' + 'DateEditTill + ' + Me.DateEditTill.EditValue = Nothing + Me.DateEditTill.Location = New System.Drawing.Point(3, 260) + Me.DateEditTill.MenuManager = Me.RibbonControl1 + Me.DateEditTill.Name = "DateEditTill" + Me.DateEditTill.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.DateEditTill.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.DateEditTill.Size = New System.Drawing.Size(117, 20) + Me.DateEditTill.TabIndex = 2 + ' + 'ToggleSwitchMonth_Last + ' + Me.ToggleSwitchMonth_Last.Location = New System.Drawing.Point(3, 155) + Me.ToggleSwitchMonth_Last.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchMonth_Last.Name = "ToggleSwitchMonth_Last" + Me.ToggleSwitchMonth_Last.Properties.OffText = "Letzter Monat" + Me.ToggleSwitchMonth_Last.Properties.OnText = "Letzter Monat" + Me.ToggleSwitchMonth_Last.Size = New System.Drawing.Size(195, 19) + Me.ToggleSwitchMonth_Last.TabIndex = 9 + ' + 'ToggleSwitchDateto + ' + Me.ToggleSwitchDateto.Location = New System.Drawing.Point(3, 235) + Me.ToggleSwitchDateto.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchDateto.Name = "ToggleSwitchDateto" + Me.ToggleSwitchDateto.Properties.OffText = "Datum bis" + Me.ToggleSwitchDateto.Properties.OnText = "Datum bis" + Me.ToggleSwitchDateto.Size = New System.Drawing.Size(122, 19) + Me.ToggleSwitchDateto.TabIndex = 0 + ' + 'lblDatefrom + ' + Me.lblDatefrom.Location = New System.Drawing.Point(2, 190) + Me.lblDatefrom.Name = "lblDatefrom" + Me.lblDatefrom.Size = New System.Drawing.Size(34, 13) + Me.lblDatefrom.TabIndex = 3 + Me.lblDatefrom.Text = "Datum" + ' + 'DateEditFrom + ' + Me.DateEditFrom.EditValue = Nothing + Me.DateEditFrom.Location = New System.Drawing.Point(3, 209) + Me.DateEditFrom.MenuManager = Me.RibbonControl1 + Me.DateEditFrom.Name = "DateEditFrom" + Me.DateEditFrom.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.DateEditFrom.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.DateEditFrom.Properties.CalendarView = DevExpress.XtraEditors.Repository.CalendarView.ClassicNew + Me.DateEditFrom.Properties.VistaDisplayMode = DevExpress.Utils.DefaultBoolean.[False] + Me.DateEditFrom.Size = New System.Drawing.Size(117, 20) + Me.DateEditFrom.TabIndex = 1 + ' + 'ToggleSwitchMonth + ' + Me.ToggleSwitchMonth.Location = New System.Drawing.Point(3, 130) + Me.ToggleSwitchMonth.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchMonth.Name = "ToggleSwitchMonth" + Me.ToggleSwitchMonth.Properties.OffText = "Dieser Monat" + Me.ToggleSwitchMonth.Properties.OnText = "Dieser Monat" + Me.ToggleSwitchMonth.Size = New System.Drawing.Size(195, 19) + Me.ToggleSwitchMonth.TabIndex = 8 + ' + 'ToggleSwitchTomorrow + ' + Me.ToggleSwitchTomorrow.Location = New System.Drawing.Point(104, 28) + Me.ToggleSwitchTomorrow.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchTomorrow.Name = "ToggleSwitchTomorrow" + Me.ToggleSwitchTomorrow.Properties.OffText = "Morgen" + Me.ToggleSwitchTomorrow.Properties.OnText = "Morgen" + Me.ToggleSwitchTomorrow.Size = New System.Drawing.Size(95, 19) + Me.ToggleSwitchTomorrow.TabIndex = 7 + Me.ToggleSwitchTomorrow.Visible = False + ' + 'ToggleSwitchToday + ' + Me.ToggleSwitchToday.Location = New System.Drawing.Point(3, 3) + Me.ToggleSwitchToday.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchToday.Name = "ToggleSwitchToday" + Me.ToggleSwitchToday.Properties.OffText = "Heute" + Me.ToggleSwitchToday.Properties.OnText = "Heute" + Me.ToggleSwitchToday.Size = New System.Drawing.Size(95, 19) + Me.ToggleSwitchToday.TabIndex = 2 + ' + 'ToggleSwitchLastWeek + ' + Me.ToggleSwitchLastWeek.Location = New System.Drawing.Point(3, 53) + Me.ToggleSwitchLastWeek.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchLastWeek.Name = "ToggleSwitchLastWeek" + Me.ToggleSwitchLastWeek.Properties.OffText = "Letzten 7 Tage" + Me.ToggleSwitchLastWeek.Properties.OnText = "Letzten 7 Tage" + Me.ToggleSwitchLastWeek.Size = New System.Drawing.Size(195, 19) + Me.ToggleSwitchLastWeek.TabIndex = 6 + ' + 'ToggleSwitchYesterday + ' + Me.ToggleSwitchYesterday.Location = New System.Drawing.Point(3, 28) + Me.ToggleSwitchYesterday.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchYesterday.Name = "ToggleSwitchYesterday" + Me.ToggleSwitchYesterday.Properties.OffText = "Gestern" + Me.ToggleSwitchYesterday.Properties.OnText = "Gestern" + Me.ToggleSwitchYesterday.Size = New System.Drawing.Size(95, 19) + Me.ToggleSwitchYesterday.TabIndex = 3 + ' + 'ToggleSwitchYear_Last + ' + Me.ToggleSwitchYear_Last.Location = New System.Drawing.Point(3, 105) + Me.ToggleSwitchYear_Last.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchYear_Last.Name = "ToggleSwitchYear_Last" + Me.ToggleSwitchYear_Last.Properties.OffText = "Letztes Jahr" + Me.ToggleSwitchYear_Last.Properties.OnText = "Letztes Jahr" + Me.ToggleSwitchYear_Last.Size = New System.Drawing.Size(195, 19) + Me.ToggleSwitchYear_Last.TabIndex = 5 + ' + 'ToggleSwitchYear + ' + Me.ToggleSwitchYear.Location = New System.Drawing.Point(3, 80) + Me.ToggleSwitchYear.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchYear.Name = "ToggleSwitchYear" + Me.ToggleSwitchYear.Properties.OffText = "Dieses Jahr" + Me.ToggleSwitchYear.Properties.OnText = "Dieses Jahr" + Me.ToggleSwitchYear.Size = New System.Drawing.Size(195, 19) + Me.ToggleSwitchYear.TabIndex = 4 + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(169, 285) + Me.XtraTabPage2.Text = "...tbd" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(4, 8) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(47, 13) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Attribut" + ' + 'cmbLimitationDateAttr + ' + Me.cmbLimitationDateAttr.FormattingEnabled = True + Me.cmbLimitationDateAttr.Location = New System.Drawing.Point(6, 24) + Me.cmbLimitationDateAttr.Name = "cmbLimitationDateAttr" + Me.cmbLimitationDateAttr.Size = New System.Drawing.Size(171, 21) + Me.cmbLimitationDateAttr.TabIndex = 1 + ' + 'PictureEdit1 + ' + Me.PictureEdit1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_CW_DevExpress + Me.PictureEdit1.Location = New System.Drawing.Point(540, 139) + Me.PictureEdit1.MenuManager = Me.RibbonControl1 + Me.PictureEdit1.Name = "PictureEdit1" + Me.PictureEdit1.Properties.Appearance.BackColor = System.Drawing.SystemColors.Control + Me.PictureEdit1.Properties.Appearance.Options.UseBackColor = True + Me.PictureEdit1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.PictureEdit1.Properties.PictureAlignment = System.Drawing.ContentAlignment.BottomRight + Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto] + Me.PictureEdit1.Properties.ZoomPercent = 300.0R + Me.PictureEdit1.Size = New System.Drawing.Size(215, 202) + Me.PictureEdit1.TabIndex = 8 + ' + 'TextEditSearch + ' + Me.TextEditSearch.Location = New System.Drawing.Point(199, 95) + Me.TextEditSearch.MenuManager = Me.RibbonControl1 + Me.TextEditSearch.Name = "TextEditSearch" + Me.TextEditSearch.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 18.0!) + Me.TextEditSearch.Properties.Appearance.Options.UseFont = True + Me.TextEditSearch.Size = New System.Drawing.Size(556, 38) + Me.TextEditSearch.TabIndex = 20 + ' + 'AdornerUIManager1 + ' + Me.AdornerUIManager1.Elements.Add(Me.Guide1) + Me.AdornerUIManager1.Owner = Me + ' + 'Guide1 + ' + Me.Guide1.Appearances.Hovered.BackColor = System.Drawing.Color.Fuchsia + Me.Guide1.Appearances.Hovered.Options.UseBackColor = True + Me.Guide1.Appearances.Normal.BackColor = System.Drawing.Color.Red + Me.Guide1.Appearances.Normal.Options.UseBackColor = True + Me.Guide1.Appearances.Pressed.BackColor = System.Drawing.Color.Blue + Me.Guide1.Appearances.Pressed.Options.UseBackColor = True + Me.Guide1.TargetElement = Me.TextEditSearch + ' + 'frmFlowSearch1 + ' + Me.Appearance.BackColor = System.Drawing.SystemColors.Control + Me.Appearance.Options.UseBackColor = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(767, 527) + Me.Controls.Add(Me.TextEditSearch) + Me.Controls.Add(Me.PictureEdit1) + Me.Controls.Add(Me.DockPanel1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = CType(resources.GetObject("frmFlowSearch1.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.Name = "frmFlowSearch1" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Flowsearch" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit() + Me.DockPanel1.ResumeLayout(False) + Me.DockPanel1_Container.ResumeLayout(False) + Me.DockPanel1_Container.PerformLayout() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPage1.ResumeLayout(False) + Me.XtraTabPage1.PerformLayout() + CType(Me.DateEditTill.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DateEditTill.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchMonth_Last.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchDateto.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DateEditFrom.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DateEditFrom.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchMonth.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchTomorrow.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchToday.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchLastWeek.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchYesterday.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEditSearch.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.AdornerUIManager1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents DockManager1 As DevExpress.XtraBars.Docking.DockManager + Friend WithEvents DockPanel1 As DevExpress.XtraBars.Docking.DockPanel + Friend WithEvents DockPanel1_Container As DevExpress.XtraBars.Docking.ControlContainer + Friend WithEvents cmbLimitationDateAttr As ComboBox + Friend WithEvents Label1 As Label + Friend WithEvents ToggleSwitchToday As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents ToggleSwitchYear_Last As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents ToggleSwitchYesterday As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents ToggleSwitchLastWeek As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents ToggleSwitchTomorrow As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents ToggleSwitchMonth_Last As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents ToggleSwitchMonth As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents BarButtonStartSearch As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonReset As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bsiStatus As DevExpress.XtraBars.BarStaticItem + Friend WithEvents ToggleSwitchYear As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents BarSubItem1 As DevExpress.XtraBars.BarSubItem + Friend WithEvents BarListItem1 As DevExpress.XtraBars.BarListItem + Friend WithEvents PictureEdit1 As DevExpress.XtraEditors.PictureEdit + Friend WithEvents BarToggleSwitchItemTerm As DevExpress.XtraBars.BarToggleSwitchItem + Friend WithEvents BarToggleSwitchItemFulltext As DevExpress.XtraBars.BarToggleSwitchItem + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents lblDatefrom As DevExpress.XtraEditors.LabelControl + Friend WithEvents DateEditTill As DevExpress.XtraEditors.DateEdit + Friend WithEvents DateEditFrom As DevExpress.XtraEditors.DateEdit + Friend WithEvents ToggleSwitchDateto As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents TextEditSearch As DevExpress.XtraEditors.TextEdit + Friend WithEvents AdornerUIManager1 As DevExpress.Utils.VisualEffects.AdornerUIManager + Friend WithEvents Guide1 As DevExpress.Utils.VisualEffects.Guide +End Class diff --git a/GUIs.ZooFlow/Search/Old/frmFlowSearch1.resx b/GUIs.ZooFlow/Search/Old/frmFlowSearch1.resx new file mode 100644 index 0000000..c62bf59 --- /dev/null +++ b/GUIs.ZooFlow/Search/Old/frmFlowSearch1.resx @@ -0,0 +1,231 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALoBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KPC9z + dHlsZT4NCiAgPHBhdGggZD0iTTguOSw0LjFDOC40LDMuOCw4LDQuMSw4LDQuN3YyMi42YzAsMC43LDAu + NCwwLjksMC45LDAuNWwxNi43LTExLjNjMC41LTAuMywwLjUtMC45LDAtMS4yTDguOSw0LjF6IiBjbGFz + cz0iQmx1ZSIgLz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAL4BAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KPC9z + dHlsZT4NCiAgPHBhdGggZD0iTTIxLDEwSDEwbDYtNmgtNmwtOCw4bDgsOGg2bC02LTZoMTFjMi44LDAs + NSwyLjIsNSw1cy0yLjIsNS01LDVoLTV2NGg1YzUsMCw5LTQsOS05QzMwLDE0LDI2LDEwLDIxLDEweiIg + Y2xhc3M9IkJsdWUiIC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9 + Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs + MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs + NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg + PC9nPg0KPC9zdmc+Cw== + + + + 17, 17 + + + 58 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANgDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iQV9EYXRlX09jY3VyaW5nIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6 + bmV3IDAgMCAzMiAzMiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmxhY2t7ZmlsbDojNzI3 + MjcyO30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI4LDh2MThINFY4SDJ2MTljMCwwLjYsMC40LDEs + MSwxaDI2YzAuNiwwLDEtMC40LDEtMVY4SDI4eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8cGF0aCBkPSJN + MzAsM3Y1SDJWM2MwLTAuNiwwLjQtMSwxLTFoMjZDMjkuNiwyLDMwLDIuNCwzMCwzeiBNMTIsMThIOHY0 + aDRWMTh6IiBjbGFzcz0iUmVkIiAvPg0KICA8ZyBjbGFzcz0ic3QwIj4NCiAgICA8cmVjdCB4PSI4IiB5 + PSIxMiIgd2lkdGg9IjQiIGhlaWdodD0iNCIgcng9IjAiIHJ5PSIwIiBjbGFzcz0iQmxhY2siIC8+DQog + ICAgPHJlY3QgeD0iMTQiIHk9IjEyIiB3aWR0aD0iNCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNs + YXNzPSJCbGFjayIgLz4NCiAgICA8cmVjdCB4PSIyMCIgeT0iMTIiIHdpZHRoPSI0IiBoZWlnaHQ9IjQi + IHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxyZWN0IHg9IjE0IiB5PSIxOCIgd2lk + dGg9IjQiIGhlaWdodD0iNCIgcng9IjAiIHJ5PSIwIiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHJlY3Qg + eD0iMjAiIHk9IjE4IiB3aWR0aD0iNCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJCbGFj + ayIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFQEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku + QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC + MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRW5hYmxlU2Vh + cmNoIj4NCiAgICA8cGF0aCBkPSJNMTQuNSwxNy44QzEwLjgsMTcuMSw4LDEzLjksOCwxMGMwLTQuNCwz + LjYtOCw4LThzOCwzLjYsOCw4YzAsMS41LTAuNCwyLjgtMS4xLDRjMCwwLDAuMSwwLDAuMSwwICAgYzAu + NywwLDEuNCwwLjEsMi4xLDAuMmMwLjYtMS4zLDAuOS0yLjcsMC45LTQuMmMwLTUuNS00LjUtMTAtMTAt + MTBDMTAuNSwwLDYsNC41LDYsMTBjMCwyLjEsMC43LDQuMSwxLjgsNS43bC03LjUsNy42ICAgYy0wLjQs + MC4zLTAuNCwwLjksMCwxLjNsMS4yLDEuMmMwLjMsMC4zLDAuOSwwLjMsMS4yLDBsNy42LTcuNmMwLjks + MC42LDEuOSwxLjEsMi45LDEuNEMxMy42LDE5LDE0LDE4LjQsMTQuNSwxNy44eiIgY2xhc3M9IkJsdWUi + IC8+DQogICAgPHBhdGggZD0iTTIzLDE2Yy00LjQsMC04LjEsMy05LDdjMC45LDQsNC42LDcsOSw3YzQu + NCwwLDguMS0zLDktN0MzMS4xLDE5LDI3LjQsMTYsMjMsMTZ6IE0yMywyOGMtMy4zLDAtNi4xLTItNy01 + ICAgYzAuOS0zLDMuNy01LDctNXM2LjEsMiw3LDVDMjkuMSwyNiwyNi4zLDI4LDIzLDI4eiBNMjMsMjZj + LTEuNywwLTMtMS4zLTMtM3MxLjMtMywzLTNzMywxLjMsMywzUzI0LjcsMjYsMjMsMjZ6IiBjbGFzcz0i + QmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + 152, 17 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/Old/frmFlowSearch1.vb b/GUIs.ZooFlow/Search/Old/frmFlowSearch1.vb new file mode 100644 index 0000000..2ff03ab --- /dev/null +++ b/GUIs.ZooFlow/Search/Old/frmFlowSearch1.vb @@ -0,0 +1,265 @@ +Imports DevExpress.XtraEditors +Imports DevExpress.XtraSplashScreen +Imports DigitalData.GUIs.Common +Imports DigitalData.GUIs.ZooFlow.ClassConstants +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.ZooFlow + +Public Class frmFlowSearch1 + Private Environment As Environment + Private Logger As Logger + Private SearchRunner As Search.SearchRunner + + Private Property BaseSearchSQL As String + Private Property TogglesDate As List(Of ToggleSwitch) + Private Property TogglesDateChanging As Boolean = False + + Private Sub ResetTogglesDate() + ResetTogglesDate(Nothing) + End Sub + + Private Sub ResetTogglesDate(pExcludeToggle As ToggleSwitch) + TogglesDateChanging = True + + For Each oToggle As ToggleSwitch In TogglesDate + If pExcludeToggle IsNot Nothing Then + If oToggle.Name = pExcludeToggle.Name Then + Continue For + End If + End If + oToggle.IsOn = False + Next + + TogglesDateChanging = False + End Sub + + Private Sub ToggleSwitchToday_Toggled(sender As Object, e As EventArgs) Handles _ + ToggleSwitchToday.Toggled, + ToggleSwitchYesterday.Toggled, + ToggleSwitchYear.Toggled, + ToggleSwitchYear_Last.Toggled, + ToggleSwitchMonth_Last.Toggled, + ToggleSwitchMonth.Toggled, + ToggleSwitchLastWeek.Toggled, + ToggleSwitchTomorrow.Toggled + + If TogglesDateChanging = True Then + Exit Sub + End If + + Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch) + + If oToggle.IsOn Then + TogglesDateChanging = True + + Select Case oToggle.Name + Case "ToggleSwitchTomorrow" + ResetTogglesDate(ToggleSwitchTomorrow) + SearchRunner.SetDateConstraint(SearchRunner.DateConstraint.Tomorrow) + + Case "ToggleSwitchYear" + ResetTogglesDate(ToggleSwitchYear) + SearchRunner.SetDateConstraint(SearchRunner.DateConstraint.CurrentYear) + + Case "ToggleSwitchYear_Last" + ResetTogglesDate(ToggleSwitchYear_Last) + SearchRunner.SetDateConstraint(SearchRunner.DateConstraint.Today) + + Case "ToggleSwitchMonth" + ResetTogglesDate(ToggleSwitchMonth) + SearchRunner.SetDateConstraint(SearchRunner.DateConstraint.CurrentMonth) + + Case "ToggleSwitchMonth_Last" + ResetTogglesDate(ToggleSwitchMonth_Last) + SearchRunner.SetDateConstraint(SearchRunner.DateConstraint.LastMonth) + + Case "ToggleSwitchToday" + ResetTogglesDate(ToggleSwitchToday) + SearchRunner.SetDateConstraint(SearchRunner.DateConstraint.Today) + + Case "ToggleSwitchYesterday" + ResetTogglesDate(ToggleSwitchYesterday) + SearchRunner.SetDateConstraint(SearchRunner.DateConstraint.Yesterday) + + Case "ToggleSwitchLastWeek" + ResetTogglesDate(ToggleSwitchLastWeek) + SearchRunner.SetDateConstraint(SearchRunner.DateConstraint.Last7Days) + + End Select + TogglesDateChanging = False + + Else + If ToggleSwitchToday.IsOn = False And ToggleSwitchYesterday.IsOn = False And ToggleSwitchYear.IsOn = False And ToggleSwitchYear_Last.IsOn = False And + ToggleSwitchMonth_Last.IsOn = False And ToggleSwitchMonth.IsOn = False And ToggleSwitchLastWeek.IsOn = False And ToggleSwitchTomorrow.IsOn = False Then + SearchRunner.SetDateConstraint() + End If + End If + End Sub + + + + Private Sub cmbLimitationDateAttr_SelectedValueChanged(sender As Object, e As EventArgs) Handles cmbLimitationDateAttr.SelectedValueChanged + If cmbLimitationDateAttr.SelectedIndex <> -1 Then + Try + + Dim oEditValue As String = cmbLimitationDateAttr.SelectedItem.ToString + + If oEditValue = IDB_ADDED_WHEN_String_German Or oEditValue = IDB_ADDED_WHEN_String_Englisch Then + SearchRunner.SetDateAttribute() + Else + SearchRunner.SetDateAttribute(oEditValue) + End If + Catch ex As Exception + Logger.Error(ex) + End Try + End If + End Sub + + Private Sub frmFlowSearch1_Load(sender As Object, e As EventArgs) Handles Me.Load + Logger = My.LogConfig.GetLogger() + SearchRunner = New Search.SearchRunner(My.LogConfig, My.Application.GetEnvironment, "FlowSearch") + + Try + If My.Application.User.Language = "de-DE" Then + cmbLimitationDateAttr.Items.Add(IDB_ADDED_WHEN_String_German) + Else + cmbLimitationDateAttr.Items.Add(IDB_ADDED_WHEN_String_Englisch) + End If + + For Each oRow As DataRow In My.Tables.DTIDB_ATTRIBUTE.Rows + If CBool(oRow.Item("SYS_ATTRIBUTE")) = False And (oRow.Item("TYP_ID") = 5 Or oRow.Item("TYP_ID") = 6) Then + cmbLimitationDateAttr.Items.Add(oRow.Item("ATTR_TITLE")) + End If + + Next + Environment = My.Application.GetEnvironment + 'Dim editor As BarEditItem = BarEditItemDate + ' editor = TryCast(BarEditItemDate, ComboBoxEdit) + If My.Application.User.Language = "de-DE" Then + cmbLimitationDateAttr.SelectedIndex = 0 + ' BarEditItemDate.EditValue = "Erstellt Wann" + Else + cmbLimitationDateAttr.SelectedIndex = 1 + ' BarEditItemDate.EditValue = "Added When" + End If + + For Each oRow As DataRow In My.Tables.DTIDB_COMMON_SQL.Rows + If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH_BASE Then + BaseSearchSQL = oRow.Item("SQL_COMMAND") + BaseSearchSQL = BaseSearchSQL.Replace("@USER_ID", My.Application.User.UserId) + BaseSearchSQL = BaseSearchSQL.Replace("@LANG_CODE", My.Application.User.Language) + End If + Next + + SearchRunner.BaseSearchSQL = BaseSearchSQL + + + Dim osql = $"EXEC PRIDB_SEARCH_AUTOSUGGEST '{My.Application.User.Language}',{My.Application.User.UserId}" + Dim oDTSuggest As DataTable + oDTSuggest = My.Database.GetDatatableIDB(osql) + Dim collection As AutoCompleteStringCollection = New AutoCompleteStringCollection + For Each orow As DataRow In oDTSuggest.Rows + collection.Add(orow.Item("TERM")) + Next + + TextEditSearch.MaskBox.AutoCompleteSource = AutoCompleteSource.CustomSource + TextEditSearch.MaskBox.AutoCompleteMode = AutoCompleteMode.SuggestAppend + TextEditSearch.MaskBox.AutoCompleteCustomSource = collection + + TogglesDate = New List(Of ToggleSwitch) From { + ToggleSwitchTomorrow, + ToggleSwitchToday, + ToggleSwitchYesterday, + ToggleSwitchYear, + ToggleSwitchYear_Last, + ToggleSwitchMonth, + ToggleSwitchMonth_Last, + ToggleSwitchLastWeek + } + + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical) + Logger.Error(ex) + End Try + BringToFront() + End Sub + + Private Sub Form_NeedsRefresh(sender As Object, e As Integer) + + End Sub + + Private Sub BarButtonReset_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonReset.ItemClick + TextEditSearch.Text = "" + ResetTogglesDate() + ToggleSwitchDateto.IsOn = False + SearchRunner.ExplicitDate = False + End Sub + + Private Sub ToggleSwitch1_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchDateto.Toggled + Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch) + + If oToggle.IsOn Then + DateEditTill.Enabled = True + lblDatefrom.Text = "Datum von" + Else + DateEditTill.Enabled = False + lblDatefrom.Text = "Datum" + End If + End Sub + + Private Sub DateEdit1_EditValueChanged(sender As Object, e As EventArgs) Handles DateEditFrom.EditValueChanged + Dim oDateFrom = DateEditFrom.EditValue + If Not IsNothing(oDateFrom) Then + ResetTogglesDate() + SearchRunner.ExplicitDate = True + End If + End Sub + + Private Async Sub SimpleButton1_Click(sender As Object, e As EventArgs) + RunSearch() + End Sub + Private Async Sub RunSearch() + 'Dim oHandle = SplashScreenManager.ShowOverlayForm(Me) + + 'Try + ' Dim oResult = Await SearchRunner.RunWithSearchTerm(TextEditSearch.Text, DateEditFrom.EditValue, DateEditTill.EditValue) + ' If oResult.OK = False Then + ' bsiStatus.Caption = oResult.ErrorMessage + ' End If + 'Catch ex As Exception + ' Logger.Error(ex) + 'Finally + ' SplashScreenManager.CloseOverlayForm(oHandle) + 'End Try + End Sub + + Private Sub TextEditSearch_KeyUp(sender As Object, e As KeyEventArgs) Handles TextEditSearch.KeyUp + If e.KeyCode = Keys.Return Then + If TextEditSearch.Text = String.Empty Then + Return + End If + + RunSearch() + End If + End Sub + + Private Sub PictureEdit1_Click(sender As Object, e As EventArgs) Handles PictureEdit1.Click + RunSearch() + End Sub + + Private Async Function BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) As Threading.Tasks.Task Handles BarButtonStartSearch.ItemClick + 'Dim oHandle = SplashScreenManager.ShowOverlayForm(Me) + + 'Try + ' Dim oResult = Await SearchRunner.RunWithSearchTerm(TextEditSearch.Text, DateEditFrom.EditValue, DateEditTill.EditValue) + ' If oResult.OK = False Then + ' bsiStatus.Caption = oResult.ErrorMessage + ' End If + 'Catch ex As Exception + ' Logger.Error(ex) + 'Finally + ' SplashScreenManager.CloseOverlayForm(oHandle) + 'End Try + End Function +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/Old/frmSearchPredefined.Designer.vb b/GUIs.ZooFlow/Search/Old/frmSearchPredefined.Designer.vb new file mode 100644 index 0000000..02515e2 --- /dev/null +++ b/GUIs.ZooFlow/Search/Old/frmSearchPredefined.Designer.vb @@ -0,0 +1,247 @@ + _ +Partial Class frmSearchPredefined + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSearchPredefined)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.ViewMain = New DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView() + Me.gridBand1 = New DevExpress.XtraGrid.Views.BandedGrid.GridBand() + Me.BandedGridColumn2 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.BandedGridColumn3 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.BandedGridColumn4 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.BandedGridColumn5 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.BandedGridColumn6 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.RepositoryItemDateEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemDateEdit() + Me.BandedGridColumn1 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.SvgImageCollection = New DevExpress.Utils.SvgImageCollection(Me.components) + CType(Me.RibbonControl1,System.ComponentModel.ISupportInitialize).BeginInit + CType(Me.GridControl1,System.ComponentModel.ISupportInitialize).BeginInit + CType(Me.ViewMain,System.ComponentModel.ISupportInitialize).BeginInit + CType(Me.RepositoryItemDateEdit1,System.ComponentModel.ISupportInitialize).BeginInit + CType(Me.RepositoryItemDateEdit1.CalendarTimeProperties,System.ComponentModel.ISupportInitialize).BeginInit + CType(Me.SvgImageCollection,System.ComponentModel.ISupportInitialize).BeginInit + Me.SuspendLayout + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 2 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.Size = New System.Drawing.Size(564, 159) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Neue Suche" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + '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.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Suchfunktionen" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "RibbonPageGroup2" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 611) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(564, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'GridControl1 + ' + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl1.Location = New System.Drawing.Point(0, 159) + Me.GridControl1.MainView = Me.ViewMain + Me.GridControl1.MenuManager = Me.RibbonControl1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemDateEdit1}) + Me.GridControl1.Size = New System.Drawing.Size(564, 452) + Me.GridControl1.TabIndex = 2 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewMain}) + ' + 'ViewMain + ' + Me.ViewMain.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.gridBand1}) + Me.ViewMain.Columns.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() {Me.BandedGridColumn1, Me.BandedGridColumn2, Me.BandedGridColumn3, Me.BandedGridColumn4, Me.BandedGridColumn5, Me.BandedGridColumn6}) + Me.ViewMain.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFullFocus + Me.ViewMain.GridControl = Me.GridControl1 + Me.ViewMain.Name = "ViewMain" + Me.ViewMain.OptionsBehavior.Editable = false + Me.ViewMain.OptionsBehavior.ReadOnly = true + Me.ViewMain.OptionsView.ShowBands = false + Me.ViewMain.OptionsView.ShowGroupPanel = false + Me.ViewMain.OptionsView.ShowIndicator = false + Me.ViewMain.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False] + Me.ViewMain.RowSeparatorHeight = 10 + ' + 'gridBand1 + ' + Me.gridBand1.Caption = "gridBand1" + Me.gridBand1.Columns.Add(Me.BandedGridColumn2) + Me.gridBand1.Columns.Add(Me.BandedGridColumn3) + Me.gridBand1.Columns.Add(Me.BandedGridColumn4) + Me.gridBand1.Columns.Add(Me.BandedGridColumn5) + Me.gridBand1.Columns.Add(Me.BandedGridColumn6) + Me.gridBand1.Name = "gridBand1" + Me.gridBand1.VisibleIndex = 0 + Me.gridBand1.Width = 336 + ' + 'BandedGridColumn2 + ' + Me.BandedGridColumn2.Caption = "Title" + Me.BandedGridColumn2.FieldName = "Title" + Me.BandedGridColumn2.Name = "BandedGridColumn2" + Me.BandedGridColumn2.Visible = true + Me.BandedGridColumn2.Width = 336 + ' + 'BandedGridColumn3 + ' + Me.BandedGridColumn3.Caption = "Results" + Me.BandedGridColumn3.FieldName = "Results" + Me.BandedGridColumn3.Name = "BandedGridColumn3" + Me.BandedGridColumn3.RowIndex = 1 + Me.BandedGridColumn3.Visible = true + Me.BandedGridColumn3.Width = 84 + ' + 'BandedGridColumn4 + ' + Me.BandedGridColumn4.Caption = "Changes" + Me.BandedGridColumn4.FieldName = "Changes" + Me.BandedGridColumn4.Name = "BandedGridColumn4" + Me.BandedGridColumn4.RowIndex = 1 + Me.BandedGridColumn4.Visible = true + Me.BandedGridColumn4.Width = 84 + ' + 'BandedGridColumn5 + ' + Me.BandedGridColumn5.Caption = "Overdue" + Me.BandedGridColumn5.FieldName = "Overdue" + Me.BandedGridColumn5.Name = "BandedGridColumn5" + Me.BandedGridColumn5.RowIndex = 1 + Me.BandedGridColumn5.Visible = true + Me.BandedGridColumn5.Width = 84 + ' + 'BandedGridColumn6 + ' + Me.BandedGridColumn6.Caption = "LastChange" + Me.BandedGridColumn6.ColumnEdit = Me.RepositoryItemDateEdit1 + Me.BandedGridColumn6.FieldName = "LastChange" + Me.BandedGridColumn6.Name = "BandedGridColumn6" + Me.BandedGridColumn6.RowIndex = 1 + Me.BandedGridColumn6.Visible = true + Me.BandedGridColumn6.Width = 84 + ' + 'RepositoryItemDateEdit1 + ' + Me.RepositoryItemDateEdit1.AutoHeight = false + Me.RepositoryItemDateEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemDateEdit1.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemDateEdit1.Name = "RepositoryItemDateEdit1" + ' + 'BandedGridColumn1 + ' + Me.BandedGridColumn1.Caption = "UserID" + Me.BandedGridColumn1.FieldName = "UserID" + Me.BandedGridColumn1.Name = "BandedGridColumn1" + Me.BandedGridColumn1.Visible = true + ' + 'SvgImageCollection + ' + Me.SvgImageCollection.Add("green_arrow_up", "image://svgimages/icon builder/actions_arrow4up.svg") + Me.SvgImageCollection.Add("warning", "image://svgimages/outlook inspired/highimportance.svg") + ' + 'frmPreSearch + ' + Me.AllowFormGlass = DevExpress.Utils.DefaultBoolean.[True] + Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(564, 633) + Me.Controls.Add(Me.GridControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = CType(resources.GetObject("frmPreSearch.IconOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage) + Me.Name = "frmPreSearch" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Vordefinierte Suchen" + CType(Me.RibbonControl1,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.GridControl1,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.ViewMain,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.RepositoryItemDateEdit1.CalendarTimeProperties,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.RepositoryItemDateEdit1,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.SvgImageCollection,System.ComponentModel.ISupportInitialize).EndInit + Me.ResumeLayout(false) + Me.PerformLayout + +End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents ViewMain As DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView + Friend WithEvents SvgImageCollection As DevExpress.Utils.SvgImageCollection + Friend WithEvents BandedGridColumn2 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents BandedGridColumn3 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents BandedGridColumn4 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents BandedGridColumn5 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents BandedGridColumn1 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents gridBand1 As DevExpress.XtraGrid.Views.BandedGrid.GridBand + Friend WithEvents BandedGridColumn6 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents RepositoryItemDateEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemDateEdit +End Class diff --git a/GUIs.ZooFlow/Search/Old/frmSearchPredefined.resx b/GUIs.ZooFlow/Search/Old/frmSearchPredefined.resx new file mode 100644 index 0000000..9b39f39 --- /dev/null +++ b/GUIs.ZooFlow/Search/Old/frmSearchPredefined.resx @@ -0,0 +1,170 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFQEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku + QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC + MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRW5hYmxlU2Vh + cmNoIj4NCiAgICA8cGF0aCBkPSJNMTQuNSwxNy44QzEwLjgsMTcuMSw4LDEzLjksOCwxMGMwLTQuNCwz + LjYtOCw4LThzOCwzLjYsOCw4YzAsMS41LTAuNCwyLjgtMS4xLDRjMCwwLDAuMSwwLDAuMSwwICAgYzAu + NywwLDEuNCwwLjEsMi4xLDAuMmMwLjYtMS4zLDAuOS0yLjcsMC45LTQuMmMwLTUuNS00LjUtMTAtMTAt + MTBDMTAuNSwwLDYsNC41LDYsMTBjMCwyLjEsMC43LDQuMSwxLjgsNS43bC03LjUsNy42ICAgYy0wLjQs + MC4zLTAuNCwwLjksMCwxLjNsMS4yLDEuMmMwLjMsMC4zLDAuOSwwLjMsMS4yLDBsNy42LTcuNmMwLjks + MC42LDEuOSwxLjEsMi45LDEuNEMxMy42LDE5LDE0LDE4LjQsMTQuNSwxNy44eiIgY2xhc3M9IkJsdWUi + IC8+DQogICAgPHBhdGggZD0iTTIzLDE2Yy00LjQsMC04LjEsMy05LDdjMC45LDQsNC42LDcsOSw3YzQu + NCwwLDguMS0zLDktN0MzMS4xLDE5LDI3LjQsMTYsMjMsMTZ6IE0yMywyOGMtMy4zLDAtNi4xLTItNy01 + ICAgYzAuOS0zLDMuNy01LDctNXM2LjEsMiw3LDVDMjkuMSwyNiwyNi4zLDI4LDIzLDI4eiBNMjMsMjZj + LTEuNywwLTMtMS4zLTMtM3MxLjMtMywzLTNzMywxLjMsMywzUzI0LjcsMjYsMjMsMjZ6IiBjbGFzcz0i + QmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + 17, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iRmluZCIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5 + bGU+DQogIDxwYXRoIGQ9Ik0yOS41LDE5LjdMMjkuNSwxOS43TDI5LjUsMTkuN0MyOS41LDE5LjcsMjku + NSwxOS43LDI5LjUsMTkuN0wyMy44LDZsMCwwYy0wLjQtMS4yLTEuNS0yLTIuOC0yICBjLTEuNywwLTMs + MS4zLTMsM3YzaC00VjdjMC0xLjctMS4zLTMtMy0zQzkuNyw0LDguNiw0LjksOC4yLDZsMCwwTDIuNSwx + OS43YzAsMCwwLDAsMCwwbDAsMGgwQzIuMiwyMC40LDIsMjEuMiwyLDIyICBjMCwzLjMsMi43LDYsNiw2 + czYtMi43LDYtNnYtNGg0djRjMCwzLjMsMi43LDYsNiw2czYtMi43LDYtNkMzMCwyMS4yLDI5LjgsMjAu + NCwyOS41LDE5Ljd6IE04LDI2Yy0yLjIsMC00LTEuOC00LTRzMS44LTQsNC00ICBzNCwxLjgsNCw0UzEw + LjIsMjYsOCwyNnogTTI0LDI2Yy0yLjIsMC00LTEuOC00LTRzMS44LTQsNC00czQsMS44LDQsNFMyNi4y + LDI2LDI0LDI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KPC9zdmc+Cw== + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/Old/frmSearchPredefined.vb b/GUIs.ZooFlow/Search/Old/frmSearchPredefined.vb new file mode 100644 index 0000000..fd6ad5b --- /dev/null +++ b/GUIs.ZooFlow/Search/Old/frmSearchPredefined.vb @@ -0,0 +1,100 @@ +Imports DevExpress.XtraEditors +Imports DevExpress.XtraGrid +Imports DevExpress.XtraBars.Ribbon +Imports DigitalData.Modules.Logging +Public Class frmSearchPredefined + Private Logger As Logger + Public Sub New() + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Logger = My.LogConfig.GetLogger() + End Sub + Private Sub frmPreSearch_Load(sender As Object, e As EventArgs) Handles Me.Load + GridControl1.DataSource = LoadSearches() + + Dim oChangesColumn = ViewMain.Columns.Item("Changes") + Dim oOverdueColumn = ViewMain.Columns.Item("Overdue") + Dim oResultsColumn = ViewMain.Columns.Item("Results") + Dim oTitleColumn = ViewMain.Columns.Item("Title") + Dim oUserIdColumn = ViewMain.Columns.Item("UserID") + Dim oLastChangeColumn = ViewMain.Columns.Item("LastChange") + + Dim oChangesRule = GetChangesFormatRule() + oChangesRule.Column = oChangesColumn + + Dim oOverdueRule = GetOverdueFormatRule() + oOverdueRule.Column = oOverdueColumn + + Dim oResultsRule = GetResultsFormatRule() + oResultsRule.Column = oResultsColumn + + ViewMain.FormatRules.AddRange({oChangesRule, oResultsRule, oOverdueRule}) + + oTitleColumn.AppearanceCell.FontStyleDelta = FontStyle.Bold + oTitleColumn.AppearanceCell.FontSizeDelta = 1 + End Sub + + Private Function GetResultsFormatRule() As GridFormatRule + Dim gridFormatRule As New GridFormatRule() + Dim formatConditionRuleDataBar As New FormatConditionRuleDataBar With { + .PredefinedName = "Yellow", + .AutomaticType = FormatConditionAutomaticType.ZeroBased + } + gridFormatRule.Rule = formatConditionRuleDataBar + + Return gridFormatRule + End Function + + Private Function GetOverdueFormatRule() As GridFormatRule + Dim oFormatRule As New GridFormatRule() + Dim oRule As New FormatConditionRuleIconSet With { + .IconSet = New FormatConditionIconSet() + } + Dim oIconSet As FormatConditioniconset = oRule.IconSet + oIconSet.ValueType = FormatConditionValueType.Number + + Dim oIcon1 As New FormatConditioniconseticon() With { + .Icon = SvgImageCollection.GetImage("warning"), + .Value = 0, + .ValueComparison = FormatConditionComparisonType.Greater + } + + oIconSet.Icons.AddRange({oIcon1}) + + oFormatRule.Rule = oRule + + Return oFormatRule + End Function + + Private Function GetChangesFormatRule() As GridFormatRule + Dim oFormatRule As New GridFormatRule() + Dim oRule As New FormatConditionRuleIconSet With { + .IconSet = New FormatConditionIconSet() + } + Dim oIconSet As FormatConditioniconset = oRule.IconSet + oIconSet.ValueType = FormatConditionValueType.Number + + Dim oIcon1 As New FormatConditioniconseticon() With { + .Icon = SvgImageCollection.GetImage("green_arrow_up"), + .Value = 2, + .ValueComparison = FormatConditionComparisonType.Greater + } + + oIconSet.Icons.AddRange({oIcon1}) + + oFormatRule.Rule = oRule + + Return oFormatRule + End Function + + Private Function LoadSearches() As DataTable + Dim oSQL = $"SELECT * FROM VWIDB_SEARCH_LANDING" + Dim oDTLanding As DataTable = My.DatabaseIDB.GetDatatable(oSQL) + Return oDTLanding + End Function + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/Old/frmSearchStart.Designer.vb b/GUIs.ZooFlow/Search/Old/frmSearchStart.Designer.vb new file mode 100644 index 0000000..c1e9f8f --- /dev/null +++ b/GUIs.ZooFlow/Search/Old/frmSearchStart.Designer.vb @@ -0,0 +1,578 @@ + +Partial Class frmSearchStart + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim SplashScreenManager As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, Nothing, true, true) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSearchStart)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonNewSearch = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonSaveSearch = New DevExpress.XtraBars.BarButtonItem() + Me.BarHeaderItem1 = New DevExpress.XtraBars.BarHeaderItem() + Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem() + Me.RepositoryItemRadioGroup1 = New DevExpress.XtraEditors.Repository.RepositoryItemRadioGroup() + Me.BarButtonClearSearch = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.BarEditItem2 = New DevExpress.XtraBars.BarEditItem() + Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() + Me.BarStaticItemInfo = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonStartSearch = New DevExpress.XtraBars.BarButtonItem() + Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem() + Me.txtFilterFrom = New DevExpress.XtraBars.BarEditItem() + Me.RepositoryItemDateEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemDateEdit() + Me.txtFilterTo = New DevExpress.XtraBars.BarEditItem() + Me.RepositoryItemDateEdit2 = New DevExpress.XtraEditors.Repository.RepositoryItemDateEdit() + Me.cmbFilterTimeframe = New DevExpress.XtraBars.BarEditItem() + Me.RepositoryItemComboBox2 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() + Me.BarCheckboxOpenSearchInSameWindow = New DevExpress.XtraBars.BarCheckItem() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroupFunctions = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroupProfiles = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroupFilter = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroupSettings = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RepositoryItemTextEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit() + Me.RepositoryItemTimeSpanEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTimeSpanEdit() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.pnlProfileChoose = New System.Windows.Forms.Panel() + Me.cmbProfile = New System.Windows.Forms.ComboBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPage5 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPage6 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPage7 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPage8 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPage9 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPage10 = New DevExpress.XtraTab.XtraTabPage() + Me.ContextMenuStripSearchTerms = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.tsmOperator = New System.Windows.Forms.ToolStripMenuItem() + Me.BracketLeftToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.KlammerRechtsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.KlammerEntfernenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SplitContainerControlSearch = New DevExpress.XtraEditors.SplitContainerControl() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemRadioGroup1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemDateEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemDateEdit1.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemDateEdit2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemDateEdit2.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemComboBox2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemTimeSpanEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlProfileChoose.SuspendLayout() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.ContextMenuStripSearchTerms.SuspendLayout() + CType(Me.SplitContainerControlSearch, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControlSearch.SuspendLayout() + Me.SuspendLayout() + ' + 'SplashScreenManager + ' + SplashScreenManager.ClosingDelay = 500 + ' + 'RibbonControl1 + ' + Me.RibbonControl1.AutoSizeItems = True + Me.RibbonControl1.CaptionBarItemLinks.Add(Me.BarButtonItem2) + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.BarButtonItem2, Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonNewSearch, Me.BarButtonSaveSearch, Me.BarHeaderItem1, Me.BarEditItem1, Me.BarButtonClearSearch, Me.BarButtonItem3, Me.BarEditItem2, Me.BarStaticItemInfo, Me.BarButtonStartSearch, Me.BarStaticItem1, Me.txtFilterFrom, Me.txtFilterTo, Me.cmbFilterTimeframe, Me.BarCheckboxOpenSearchInSameWindow, Me.BarButtonItem1, Me.BarButtonItem4}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 25 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemRadioGroup1, Me.RepositoryItemComboBox1, Me.RepositoryItemTextEdit1, Me.RepositoryItemDateEdit1, Me.RepositoryItemDateEdit2, Me.RepositoryItemComboBox2, Me.RepositoryItemTimeSpanEdit1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowItemCaptionsInCaptionBar = True + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.Size = New System.Drawing.Size(1020, 132) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Fenster wiederherstellen" + Me.BarButtonItem2.Id = 23 + Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem2.Name = "BarButtonItem2" + Me.BarButtonItem2.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'BarButtonNewSearch + ' + Me.BarButtonNewSearch.Caption = "Neue Suche" + Me.BarButtonNewSearch.Id = 1 + Me.BarButtonNewSearch.ImageOptions.Image = CType(resources.GetObject("BarButtonNewSearch.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonNewSearch.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonNewSearch.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonNewSearch.Name = "BarButtonNewSearch" + ' + 'BarButtonSaveSearch + ' + Me.BarButtonSaveSearch.Caption = "Suchprofil speichern" + Me.BarButtonSaveSearch.Id = 2 + Me.BarButtonSaveSearch.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonSaveSearch.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonSaveSearch.Name = "BarButtonSaveSearch" + ' + 'BarHeaderItem1 + ' + Me.BarHeaderItem1.Caption = "BarHeaderItem1" + Me.BarHeaderItem1.Id = 3 + Me.BarHeaderItem1.Name = "BarHeaderItem1" + ' + 'BarEditItem1 + ' + Me.BarEditItem1.Caption = "BarEditItem1" + Me.BarEditItem1.Edit = Me.RepositoryItemRadioGroup1 + Me.BarEditItem1.Id = 4 + Me.BarEditItem1.Name = "BarEditItem1" + ' + 'RepositoryItemRadioGroup1 + ' + Me.RepositoryItemRadioGroup1.Name = "RepositoryItemRadioGroup1" + ' + 'BarButtonClearSearch + ' + Me.BarButtonClearSearch.Caption = "Suche leeren" + Me.BarButtonClearSearch.Id = 5 + Me.BarButtonClearSearch.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonClearSearch.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonClearSearch.Name = "BarButtonClearSearch" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "BarButtonItem3" + Me.BarButtonItem3.Id = 6 + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'BarEditItem2 + ' + Me.BarEditItem2.Edit = Me.RepositoryItemComboBox1 + Me.BarEditItem2.EditWidth = 100 + Me.BarEditItem2.Id = 7 + Me.BarEditItem2.Name = "BarEditItem2" + ' + 'RepositoryItemComboBox1 + ' + Me.RepositoryItemComboBox1.AutoHeight = False + Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1" + ' + 'BarStaticItemInfo + ' + Me.BarStaticItemInfo.Id = 8 + Me.BarStaticItemInfo.Name = "BarStaticItemInfo" + ' + 'BarButtonStartSearch + ' + Me.BarButtonStartSearch.Caption = "Finden (F5)" + Me.BarButtonStartSearch.Id = 9 + Me.BarButtonStartSearch.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonStartSearch.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonStartSearch.Name = "BarButtonStartSearch" + ' + 'BarStaticItem1 + ' + Me.BarStaticItem1.Caption = "Suchen" + Me.BarStaticItem1.Id = 12 + Me.BarStaticItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarStaticItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarStaticItem1.Name = "BarStaticItem1" + Me.BarStaticItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'txtFilterFrom + ' + Me.txtFilterFrom.Caption = "Von" + Me.txtFilterFrom.Edit = Me.RepositoryItemDateEdit1 + Me.txtFilterFrom.EditWidth = 100 + Me.txtFilterFrom.Id = 15 + Me.txtFilterFrom.Name = "txtFilterFrom" + ' + 'RepositoryItemDateEdit1 + ' + Me.RepositoryItemDateEdit1.AutoHeight = False + Me.RepositoryItemDateEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemDateEdit1.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemDateEdit1.Name = "RepositoryItemDateEdit1" + Me.RepositoryItemDateEdit1.NullDate = "" + ' + 'txtFilterTo + ' + Me.txtFilterTo.Caption = "Bis" + Me.txtFilterTo.Edit = Me.RepositoryItemDateEdit2 + Me.txtFilterTo.EditWidth = 100 + Me.txtFilterTo.Id = 16 + Me.txtFilterTo.Name = "txtFilterTo" + ' + 'RepositoryItemDateEdit2 + ' + Me.RepositoryItemDateEdit2.AutoHeight = False + Me.RepositoryItemDateEdit2.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemDateEdit2.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemDateEdit2.Name = "RepositoryItemDateEdit2" + Me.RepositoryItemDateEdit2.NullDate = "" + ' + 'cmbFilterTimeframe + ' + Me.cmbFilterTimeframe.Caption = "Zeitraum" + Me.cmbFilterTimeframe.Edit = Me.RepositoryItemComboBox2 + Me.cmbFilterTimeframe.EditWidth = 100 + Me.cmbFilterTimeframe.Id = 17 + Me.cmbFilterTimeframe.Name = "cmbFilterTimeframe" + ' + 'RepositoryItemComboBox2 + ' + Me.RepositoryItemComboBox2.AutoHeight = False + Me.RepositoryItemComboBox2.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemComboBox2.Name = "RepositoryItemComboBox2" + ' + 'BarCheckboxOpenSearchInSameWindow + ' + Me.BarCheckboxOpenSearchInSameWindow.Caption = "Ergebnis in gleichem Fenster öffnen" + Me.BarCheckboxOpenSearchInSameWindow.Id = 21 + Me.BarCheckboxOpenSearchInSameWindow.ImageOptions.SvgImage = CType(resources.GetObject("BarCheckboxOpenSearchInSameWindow.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarCheckboxOpenSearchInSameWindow.Name = "BarCheckboxOpenSearchInSameWindow" + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Fenster wiederherstellen" + Me.BarButtonItem1.Id = 22 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem4 + ' + Me.BarButtonItem4.Caption = "BarButtonItem4" + Me.BarButtonItem4.Id = 24 + Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem4.Name = "BarButtonItem4" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroupFunctions, Me.RibbonPageGroupProfiles, Me.RibbonPageGroupFilter, Me.RibbonPageGroupSettings, Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Start" + ' + 'RibbonPageGroupFunctions + ' + Me.RibbonPageGroupFunctions.ItemLinks.Add(Me.BarButtonNewSearch) + Me.RibbonPageGroupFunctions.ItemLinks.Add(Me.BarButtonClearSearch) + Me.RibbonPageGroupFunctions.ItemLinks.Add(Me.BarButtonSaveSearch) + Me.RibbonPageGroupFunctions.Name = "RibbonPageGroupFunctions" + Me.RibbonPageGroupFunctions.Text = "Suchfunktionen" + ' + 'RibbonPageGroupProfiles + ' + Me.RibbonPageGroupProfiles.ItemLinks.Add(Me.BarEditItem2) + Me.RibbonPageGroupProfiles.Name = "RibbonPageGroupProfiles" + Me.RibbonPageGroupProfiles.Text = "Auswahl Suche" + ' + 'RibbonPageGroupFilter + ' + Me.RibbonPageGroupFilter.ItemLinks.Add(Me.cmbFilterTimeframe) + Me.RibbonPageGroupFilter.ItemLinks.Add(Me.txtFilterFrom) + Me.RibbonPageGroupFilter.ItemLinks.Add(Me.txtFilterTo) + Me.RibbonPageGroupFilter.Name = "RibbonPageGroupFilter" + Me.RibbonPageGroupFilter.Text = "Filter" + ' + 'RibbonPageGroupSettings + ' + Me.RibbonPageGroupSettings.ItemLinks.Add(Me.BarCheckboxOpenSearchInSameWindow) + Me.RibbonPageGroupSettings.Name = "RibbonPageGroupSettings" + Me.RibbonPageGroupSettings.Text = "Sucheinstellungen" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonStartSearch) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RepositoryItemTextEdit1 + ' + Me.RepositoryItemTextEdit1.AutoHeight = False + Me.RepositoryItemTextEdit1.Name = "RepositoryItemTextEdit1" + ' + 'RepositoryItemTimeSpanEdit1 + ' + Me.RepositoryItemTimeSpanEdit1.AutoHeight = False + Me.RepositoryItemTimeSpanEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemTimeSpanEdit1.Name = "RepositoryItemTimeSpanEdit1" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemInfo) + Me.RibbonStatusBar1.ItemLinks.Add(Me.BarButtonItem4) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 453) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1020, 24) + ' + 'pnlProfileChoose + ' + Me.pnlProfileChoose.BackColor = System.Drawing.Color.Transparent + Me.pnlProfileChoose.Controls.Add(Me.cmbProfile) + Me.pnlProfileChoose.Controls.Add(Me.Label1) + Me.pnlProfileChoose.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlProfileChoose.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.pnlProfileChoose.Location = New System.Drawing.Point(0, 132) + Me.pnlProfileChoose.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3) + Me.pnlProfileChoose.Name = "pnlProfileChoose" + Me.pnlProfileChoose.Size = New System.Drawing.Size(1020, 57) + Me.pnlProfileChoose.TabIndex = 5 + ' + 'cmbProfile + ' + Me.cmbProfile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmbProfile.DisplayMember = "DOKART_ID" + Me.cmbProfile.FormattingEnabled = True + Me.cmbProfile.Location = New System.Drawing.Point(3, 23) + Me.cmbProfile.Name = "cmbProfile" + Me.cmbProfile.Size = New System.Drawing.Size(1015, 21) + Me.cmbProfile.TabIndex = 2 + Me.cmbProfile.ValueMember = "DOKART_ID" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.Label1.Location = New System.Drawing.Point(3, 3) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(131, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Bitte wählen Sie ein Profil:" + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.HeaderLocation = DevExpress.XtraTab.TabHeaderLocation.Bottom + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl1.MultiLine = DevExpress.Utils.DefaultBoolean.[False] + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.Size = New System.Drawing.Size(1020, 264) + Me.XtraTabControl1.TabIndex = 12 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2, Me.XtraTabPage3, Me.XtraTabPage4, Me.XtraTabPage5, Me.XtraTabPage6, Me.XtraTabPage7, Me.XtraTabPage8, Me.XtraTabPage9, Me.XtraTabPage10}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(1018, 239) + Me.XtraTabPage1.Text = "Search#1" + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(1018, 239) + Me.XtraTabPage2.Text = "Search#2" + ' + 'XtraTabPage3 + ' + Me.XtraTabPage3.Name = "XtraTabPage3" + Me.XtraTabPage3.Size = New System.Drawing.Size(1018, 239) + Me.XtraTabPage3.Text = "Search#3" + ' + 'XtraTabPage4 + ' + Me.XtraTabPage4.Name = "XtraTabPage4" + Me.XtraTabPage4.Size = New System.Drawing.Size(1018, 239) + Me.XtraTabPage4.Text = "Search#4" + ' + 'XtraTabPage5 + ' + Me.XtraTabPage5.Name = "XtraTabPage5" + Me.XtraTabPage5.Size = New System.Drawing.Size(1018, 239) + Me.XtraTabPage5.Text = "Search#5" + ' + 'XtraTabPage6 + ' + Me.XtraTabPage6.Name = "XtraTabPage6" + Me.XtraTabPage6.Size = New System.Drawing.Size(1018, 239) + Me.XtraTabPage6.Text = "Search#6" + ' + 'XtraTabPage7 + ' + Me.XtraTabPage7.Name = "XtraTabPage7" + Me.XtraTabPage7.Size = New System.Drawing.Size(1018, 239) + Me.XtraTabPage7.Text = "Search#7" + ' + 'XtraTabPage8 + ' + Me.XtraTabPage8.Name = "XtraTabPage8" + Me.XtraTabPage8.Size = New System.Drawing.Size(1018, 239) + Me.XtraTabPage8.Text = "Search#8" + ' + 'XtraTabPage9 + ' + Me.XtraTabPage9.Name = "XtraTabPage9" + Me.XtraTabPage9.Size = New System.Drawing.Size(1018, 239) + Me.XtraTabPage9.Text = "Search#9" + ' + 'XtraTabPage10 + ' + Me.XtraTabPage10.Name = "XtraTabPage10" + Me.XtraTabPage10.Size = New System.Drawing.Size(1018, 239) + Me.XtraTabPage10.Text = "Search#10" + ' + 'ContextMenuStripSearchTerms + ' + Me.ContextMenuStripSearchTerms.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmOperator, Me.BracketLeftToolStripMenuItem, Me.KlammerRechtsToolStripMenuItem, Me.KlammerEntfernenToolStripMenuItem}) + Me.ContextMenuStripSearchTerms.Name = "ContextMenuStripSearchTerms" + Me.ContextMenuStripSearchTerms.Size = New System.Drawing.Size(177, 92) + ' + 'tsmOperator + ' + Me.tsmOperator.Name = "tsmOperator" + Me.tsmOperator.Size = New System.Drawing.Size(176, 22) + Me.tsmOperator.Text = "Operator = oder" + ' + 'BracketLeftToolStripMenuItem + ' + Me.BracketLeftToolStripMenuItem.Name = "BracketLeftToolStripMenuItem" + Me.BracketLeftToolStripMenuItem.Size = New System.Drawing.Size(176, 22) + Me.BracketLeftToolStripMenuItem.Text = "Klammer links (" + ' + 'KlammerRechtsToolStripMenuItem + ' + Me.KlammerRechtsToolStripMenuItem.Name = "KlammerRechtsToolStripMenuItem" + Me.KlammerRechtsToolStripMenuItem.Size = New System.Drawing.Size(176, 22) + Me.KlammerRechtsToolStripMenuItem.Text = "Klammer rechts )" + ' + 'KlammerEntfernenToolStripMenuItem + ' + Me.KlammerEntfernenToolStripMenuItem.Name = "KlammerEntfernenToolStripMenuItem" + Me.KlammerEntfernenToolStripMenuItem.Size = New System.Drawing.Size(176, 22) + Me.KlammerEntfernenToolStripMenuItem.Text = "Klammer entfernen" + ' + 'SplitContainerControlSearch + ' + Me.SplitContainerControlSearch.Collapsed = True + Me.SplitContainerControlSearch.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 + Me.SplitContainerControlSearch.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControlSearch.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.Panel2 + Me.SplitContainerControlSearch.Location = New System.Drawing.Point(0, 189) + Me.SplitContainerControlSearch.Name = "SplitContainerControlSearch" + Me.SplitContainerControlSearch.Panel1.Controls.Add(Me.XtraTabControl1) + Me.SplitContainerControlSearch.Panel1.Text = "Panel1" + Me.SplitContainerControlSearch.Panel2.Text = "Panel2" + Me.SplitContainerControlSearch.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Panel1 + Me.SplitContainerControlSearch.Size = New System.Drawing.Size(1020, 264) + Me.SplitContainerControlSearch.SplitterPosition = 310 + Me.SplitContainerControlSearch.TabIndex = 16 + ' + 'frmSearchStart + ' + Me.AllowFormGlass = DevExpress.Utils.DefaultBoolean.[True] + Me.Appearance.Options.UseFont = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1020, 477) + Me.Controls.Add(Me.SplitContainerControlSearch) + Me.Controls.Add(Me.pnlProfileChoose) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZOO_FLOW__sysicon_256 + Me.IconOptions.SvgImageColorizationMode = DevExpress.Utils.SvgImageColorizationMode.Full + Me.KeyPreview = True + Me.Name = "frmSearchStart" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "ZooFlow Suche" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemRadioGroup1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemDateEdit1.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemDateEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemDateEdit2.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemDateEdit2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemComboBox2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemTimeSpanEdit1, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlProfileChoose.ResumeLayout(False) + Me.pnlProfileChoose.PerformLayout() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.ContextMenuStripSearchTerms.ResumeLayout(False) + CType(Me.SplitContainerControlSearch, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControlSearch.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 RibbonPageGroupFunctions As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents pnlProfileChoose As Panel + Friend WithEvents cmbProfile As ComboBox + Friend WithEvents Label1 As Label + Friend WithEvents BarButtonNewSearch As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonSaveSearch As DevExpress.XtraBars.BarButtonItem + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage4 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage5 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage6 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage7 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage8 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage9 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage10 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents BarHeaderItem1 As DevExpress.XtraBars.BarHeaderItem + Friend WithEvents BarEditItem1 As DevExpress.XtraBars.BarEditItem + Friend WithEvents RepositoryItemRadioGroup1 As DevExpress.XtraEditors.Repository.RepositoryItemRadioGroup + Friend WithEvents BarButtonClearSearch As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents SplitContainerControlSearch As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents BarEditItem2 As DevExpress.XtraBars.BarEditItem + Friend WithEvents RepositoryItemComboBox1 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox + Friend WithEvents RibbonPageGroupProfiles As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarStaticItemInfo As DevExpress.XtraBars.BarStaticItem + Friend WithEvents ContextMenuStripSearchTerms As ContextMenuStrip + Friend WithEvents tsmOperator As ToolStripMenuItem + Friend WithEvents BracketLeftToolStripMenuItem As ToolStripMenuItem + Friend WithEvents KlammerRechtsToolStripMenuItem As ToolStripMenuItem + Friend WithEvents KlammerEntfernenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents BarButtonStartSearch As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroupFilter As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem + Friend WithEvents RepositoryItemTextEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemTextEdit + Friend WithEvents txtFilterFrom As DevExpress.XtraBars.BarEditItem + Friend WithEvents RepositoryItemDateEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemDateEdit + Friend WithEvents txtFilterTo As DevExpress.XtraBars.BarEditItem + Friend WithEvents RepositoryItemDateEdit2 As DevExpress.XtraEditors.Repository.RepositoryItemDateEdit + Friend WithEvents cmbFilterTimeframe As DevExpress.XtraBars.BarEditItem + Friend WithEvents RepositoryItemComboBox2 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox + Friend WithEvents RepositoryItemTimeSpanEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemTimeSpanEdit + Friend WithEvents BarCheckboxOpenSearchInSameWindow As DevExpress.XtraBars.BarCheckItem + Friend WithEvents RibbonPageGroupSettings As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem +End Class diff --git a/GUIs.ZooFlow/Search/Old/frmSearchStart.resx b/GUIs.ZooFlow/Search/Old/frmSearchStart.resx new file mode 100644 index 0000000..09d90fb --- /dev/null +++ b/GUIs.ZooFlow/Search/Old/frmSearchStart.resx @@ -0,0 +1,294 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACECAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iRmlsbF9Eb3duIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3IDAg + MCAzMiAzMiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJ + LkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgkuc3Qwe29wYWNpdHk6MC41O30KPC9zdHlsZT4NCiAgPGcgY2xh + c3M9InN0MCI+DQogICAgPHBhdGggZD0iTTI4LDEwdjIwSDJWMTBoMTB2Nkg3LjNMMTUsMjcuNkwyMi43 + LDE2SDE4di02SDI4eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQogIDxwYXRoIGQ9Ik0yOCw4SDJW + MmgyNlY4eiBNMTQsMTB2OGgtM2w0LDZsNC02aC0zdi04SDE0eiIgY2xhc3M9IkJsdWUiIC8+DQo8L3N2 + Zz4L + + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAEFkZDtQbHVzO0JhcnM7UmliYm9u + O5UGMy8AAABgSURBVDhP3YxRCoAwDEN3QS/lqbxdtNKUTDJEHAh+vNGl6WsAXmFDsqwbkphtx4bkR4Kc + bceGRAUjzofFp0wVFPEnWrzk1e0CJfMS6I7ME4w4Sp1Ad8SGhII4/kZwD9oOmV+r+RzWkL4AAAAASUVO + RK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAbdEVYdFRpdGxlAEFkZDtQbHVzO0JhcnM7UmliYm9u + O5UGMy8AAACPSURBVFhH7c5RCoQwDEVRN+imXJW7i82HIOlFHhKiSD4Owp1p+xYzexXGShgrYayEsRJG + xbrtdhV/V2FU9IAe0AP+PSBeniW+46bg6HCG+I6bgqPDGeI7bgqODmeI77gpqJTLFRgVNGB8b13PnzAq + xoXfG/AERkUPoAHji/+9g1HRA7JgrISxEsZKGOvYcgB55Y6E3tOuXgAAAABJRU5ErkJggg== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIYBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDI1 + IDI1IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiM3MDZmNmY7fTwvc3R5bGU+DQogIDwvZGVmcz4NCiAg + PHBhdGggZD0iTTE5LjgzMzMsMS41VjkuOTM4Mkg1LjE2NjdWMS41SDEuNXYyMmgyMlYxLjVabTAsMTgu + NTMyOEg1LjE2Njd2LTYuNTVIMTkuODMzM1oiIGNsYXNzPSJjbHMtMSIgLz4NCiAgPHBhdGggZD0iTTYu + NzgzNywxLjVWOC4wNWg4LjQzODJWMS41Wk05LjUyMjYsNi44MTA1SDguMDA1OVYyLjczOTJIOS41MjI2 + WiIgY2xhc3M9ImNscy0xIiAvPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOgBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDI1 + IDI1IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiNhNTI0MzE7fS5jbHMtMntmaWxsOiM2NDYzNjM7fTwv + c3R5bGU+DQogIDwvZGVmcz4NCiAgPHBhdGggZD0iTTEzLjk5MywxOC41ODE5bDguODQxLTguODQxYTIu + Mjc0MiwyLjI3NDIsMCwwLDAsMC0zLjIxNmwtNC4zNTktNC4zNTlhMi4yNzQyLDIuMjc0MiwwLDAsMC0z + LjIxNiwwbC04Ljg0MSw4Ljg0MVoiIGNsYXNzPSJjbHMtMSIgLz4NCiAgPHBhdGggZD0iTTUuNjQyLDEx + Ljc4MzFsLTMuNDc2LDMuNDc2YTIuMjc0MiwyLjI3NDIsMCwwLDAsMCwzLjIxNmw0LjM1OSw0LjM1OWEy + LjI3NDIsMi4yNzQyLDAsMCwwLDMuMjE2LDBsMy40NzYtMy40NzZaIiBjbGFzcz0iY2xzLTIiIC8+DQo8 + L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALcBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTmV4dCIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KPC9zdHls + ZT4NCiAgPHBhdGggZD0iTTguOSw0LjFDOC40LDMuOCw4LDQuMSw4LDQuNnYyMC43YzAsMC42LDAuNCww + LjgsMC45LDAuNWwxNi44LTEwLjNjMC41LTAuMywwLjUtMC44LDAtMS4xTDguOSw0LjF6IiBjbGFzcz0i + Qmx1ZSIgLz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iRmluZCIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5 + bGU+DQogIDxwYXRoIGQ9Ik0yOS41LDE5LjdMMjkuNSwxOS43TDI5LjUsMTkuN0MyOS41LDE5LjcsMjku + NSwxOS43LDI5LjUsMTkuN0wyMy44LDZsMCwwYy0wLjQtMS4yLTEuNS0yLTIuOC0yICBjLTEuNywwLTMs + MS4zLTMsM3YzaC00VjdjMC0xLjctMS4zLTMtMy0zQzkuNyw0LDguNiw0LjksOC4yLDZsMCwwTDIuNSwx + OS43YzAsMCwwLDAsMCwwbDAsMGgwQzIuMiwyMC40LDIsMjEuMiwyLDIyICBjMCwzLjMsMi43LDYsNiw2 + czYtMi43LDYtNnYtNGg0djRjMCwzLjMsMi43LDYsNiw2czYtMi43LDYtNkMzMCwyMS4yLDI5LjgsMjAu + NCwyOS41LDE5Ljd6IE04LDI2Yy0yLjIsMC00LTEuOC00LTRzMS44LTQsNC00ICBzNCwxLjgsNCw0UzEw + LjIsMjYsOCwyNnogTTI0LDI2Yy0yLjIsMC00LTEuOC00LTRzMS44LTQsNC00czQsMS44LDQsNFMyNi4y + LDI2LDI0LDI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGgFAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgdmlld0JveD0iMCAwIDI1 + IDI1IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIGlkPSJFYmVuZV8xIj4NCiAgPGRl + ZnM+DQogICAgPHN0eWxlPi5jbHMtMXtmaWxsOiM2NDYzNjM7fS5jbHMtMntmaWxsOiNhNTI0MzE7fTwv + c3R5bGU+DQogIDwvZGVmcz4NCiAgPHBhdGggZD0iTTE5LjQ0LDEzLjA4SDUuMzU1M1YxLjUyM0gxOS40 + NFpNNy4xOTc3LDExLjE0ODJoMTAuNFYzLjQ1NDZINy4xOTc3WiIgY2xhc3M9ImNscy0xIiAvPg0KICA8 + cGF0aCBkPSJNMTcuMDY4MiwyMy40NzdjLTQuMTE2NiwwLTcuMzI1NS00LjIxNTEtNy40Ni00LjM5NDhs + LS40NzE0LS42Mjg3LjQ3MTQtLjYyODhjLjEzNDktLjE4LDMuMzQzOC00LjM5NDMsNy40Ni00LjM5NDNz + Ny4zMjU1LDQuMjE0Niw3LjQ2LDQuMzk0M0wyNSwxOC40NTM1bC0uNDcxNC42Mjg3QzI0LjM5MzcsMTku + MjYxOSwyMS4xODQ4LDIzLjQ3NywxNy4wNjgyLDIzLjQ3N1ptLTUuNDkyMS01LjAyMzVjLjk2MjYsMS4w + NDY2LDMuMTAwOSwzLjAyODcsNS40OTIxLDMuMDI4N1MyMS41OTc3LDE5LjUsMjIuNTYsMTguNDUzNWMt + Ljk2MjYtMS4wNDYxLTMuMTAxLTMuMDI4My01LjQ5MjEtMy4wMjgzUzEyLjUzODcsMTcuNDA3NCwxMS41 + NzYxLDE4LjQ1MzVaIiBjbGFzcz0iY2xzLTEiIC8+DQogIDxwYXRoIGQ9Ik0xOS42NTMsMTguNDUzNWEy + LjY5ODgsMi42OTg4LDAsMCwwLTIuNTg1My0yLjc5OTIsMi40MjUxLDIuNDI1MSwwLDAsMC0xLjM1OTUu + NDIyNSwxLjM1OSwxLjM1OSwwLDAsMSwuMjYzOS44MDYsMS4yNjEsMS4yNjEsMCwwLDEtMS4yMDczLDEu + MzA4MSwxLjEwMTcsMS4xMDE3LDAsMCwxLS4yNjctLjAzNDhjLS4wMDkyLjA5NzctLjAxNDYuMTk3MS0u + MDE0Ni4yOTc0YTIuNjk4MSwyLjY5ODEsMCwwLDAsMi41ODQ1LDIuNzk5MSwyLjY5ODcsMi42OTg3LDAs + MCwwLDIuNTg1My0yLjc5OTEiIGNsYXNzPSJjbHMtMSIgLz4NCiAgPHBhdGggZD0iTTkuNjA3OCwxOS4w + ODIybC0uNDcxNC0uNjI4Ny4yMjA5LS4yOTQ3SDEuODQyNHYtNy45NDZIMTIuMjQxOHY1LjA0MzRhMTAu + NjIyNywxMC42MjI3LDAsMCwxLDEuODQyNC0xLjExNDJWOC4yMThIMFYyMC4xNTM2SDEwLjU0MjhBMTIu + Mzc4MywxMi4zNzgzLDAsMCwxLDkuNjA3OCwxOS4wODIyWiIgY2xhc3M9ImNscy0xIiAvPg0KICA8cmVj + dCB4PSI1LjM1NTMiIHk9IjEuNTIzIiB3aWR0aD0iMTQuMDg0MiIgaGVpZ2h0PSI1Ljk2MjciIHJ4PSIw + IiByeT0iMCIgY2xhc3M9ImNscy0yIiAvPg0KICA8cmVjdCB4PSIwIiB5PSI4LjIxOCIgd2lkdGg9IjE0 + LjA5OTQiIGhlaWdodD0iNS45NjI3IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJjbHMtMiIgLz4NCjwvc3Zn + Pgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACECAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iRmlsbF9Eb3duIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3IDAg + MCAzMiAzMiI+DQogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJ + LkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgkuc3Qwe29wYWNpdHk6MC41O30KPC9zdHlsZT4NCiAgPGcgY2xh + c3M9InN0MCI+DQogICAgPHBhdGggZD0iTTI4LDEwdjIwSDJWMTBoMTB2Nkg3LjNMMTUsMjcuNkwyMi43 + LDE2SDE4di02SDI4eiIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+DQogIDxwYXRoIGQ9Ik0yOCw4SDJW + MmgyNlY4eiBNMTQsMTB2OGgtM2w0LDZsNC02aC0zdi04SDE0eiIgY2xhc3M9IkJsdWUiIC8+DQo8L3N2 + Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAIcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iRm9yd2FyZF8xXyI+DQogICAgPHBhdGggZD0iTTE2LDJDOC4zLDIsMiw4LjMsMiwx + NnM2LjMsMTQsMTQsMTRzMTQtNi4zLDE0LTE0UzIzLjcsMiwxNiwyeiBNMTYsMjR2LTZIOHYtNGg4Vjhs + OCw4TDE2LDI0eiIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + 189, 17 + + + 73 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/Old/frmSearchStart.vb b/GUIs.ZooFlow/Search/Old/frmSearchStart.vb new file mode 100644 index 0000000..86bfe33 --- /dev/null +++ b/GUIs.ZooFlow/Search/Old/frmSearchStart.vb @@ -0,0 +1,1059 @@ +Option Explicit On + +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Language +Imports DevExpress.XtraTab +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraEditors +Imports DevExpress.XtraSplashScreen +Imports DigitalData.GUIs.Common +Imports DigitalData.GUIs.ZooFlow.ClassConstants +Imports DigitalData.GUIs.ZooFlow.Search.SearchFilter +Imports System.Threading.Tasks + + +Public Class frmSearchStart + Private Logger As Logger + + ' Constants + Private Const DEFAULT_X As Integer = 10 + Private Const DEFAULT_Y As Integer = 10 + + ' Runtime Variables + Private SelectedTabIndex As Integer + Private SelectedTab As XtraTabPage + Private HeightBeforeMinimizing As Integer = 600 + + Private SEARCH_ID As Integer = 0 + Private SEARCH_SQL As String + Private SEARCH_TITLE As String + Private SEARCH_COUNT As Integer = 0 + + Public DataLoaded As Boolean = False + + Private DatatableAttributes As DataTable + Private DatatableAttributeLinks As DataTable + Private DatatableSearchProfiles As DataTable + + Private DatatableStartSearchResult As DataTable + Private DatatableSearchResultSoFar As DataTable + + Private LastSearchForm As frmDocumentResultList + Private ChangedDateControls As List(Of String) + Private clsControls As ClassControlCreator + + Private StopWatch As Watch + + Public Sub New(ByVal pDTSearchProfiles As DataTable, Optional ByVal pRunSearch As Boolean = False) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + StopWatch = New Watch(Name) + + DatatableSearchProfiles = pDTSearchProfiles + Logger = My.LogConfig.GetLogger() + Dim oSearchTerms As New DataTable + + ' Create four typed columns in the DataTable. + oSearchTerms.Columns.Add("BracketLeft", GetType(String)) + oSearchTerms.Columns.Add("AttrID", GetType(Integer)) + oSearchTerms.Columns.Add("AttrTitle", GetType(String)) + oSearchTerms.Columns.Add("Criteria", GetType(String)) + oSearchTerms.Columns.Add("SearchTerm", GetType(String)) + oSearchTerms.Columns.Add("BracketRight", GetType(String)) + oSearchTerms.Columns.Add("Operator", GetType(String)) + + End Sub + + Private Async Sub frmSearchStart_Load(sender As Object, e As EventArgs) Handles Me.Load + Dim oHandle As IOverlaySplashScreenHandle = Nothing + + Try + oHandle = SplashScreenManager.ShowOverlayForm(Me) + + Dim oWatch As New Watch("Setting up Form") + + pnlProfileChoose.Visible = False + For Each oTab As XtraTabPage In XtraTabControl1.TabPages + oTab.PageVisible = False + Next + + RepositoryItemComboBox2.Items.AddRange(DefaultFilters) + + BarCheckboxOpenSearchInSameWindow.Checked = My.UIConfig.SearchForm.OpenSearchInSameWindow + + If DatatableSearchProfiles.Rows.Count > 1 Then + cmbProfile.DataSource = DatatableSearchProfiles + cmbProfile.ValueMember = DatatableSearchProfiles.Columns("SEARCH_PROFILE_ID").ColumnName + cmbProfile.DisplayMember = DatatableSearchProfiles.Columns("TITLE").ColumnName + cmbProfile.AutoCompleteMode = AutoCompleteMode.Suggest + cmbProfile.AutoCompleteSource = AutoCompleteSource.ListItems + cmbProfile.SelectedIndex = -1 + SelectedTabIndex = -1 + + pnlProfileChoose.Visible = True + For Each oRow As DataRow In DatatableSearchProfiles.Rows + RepositoryItemComboBox1.Items.Add(oRow.Item("TITLE")) + Next + + oWatch.Stop() + Else + pnlProfileChoose.Visible = False + RibbonPageGroupProfiles.Visible = False + SelectedTabIndex = 0 + SelectedTab = XtraTabControl1.TabPages.First + SelectedTab.PageVisible = True + SelectedTab.Text = DatatableSearchProfiles.Rows(0).Item("TITLE") + + SEARCH_ID = DatatableSearchProfiles.Rows(0).Item("SEARCH_PROFILE_ID") + SEARCH_SQL = DatatableSearchProfiles.Rows(0).Item("RESULT_SQL") + SEARCH_TITLE = DatatableSearchProfiles.Rows(0).Item("TITLE") + + oWatch.Stop() + oWatch = New Watch("Loading Attributes") + Await Load_Search_Attributes() + oWatch.Stop() + BarButtonNewSearch.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End If + SEARCH_COUNT = DatatableSearchProfiles.Rows.Count + SplitContainerControlSearch.Collapsed = True + + If My.UIConfig.SearchForm.Size.Height > 0 And My.UIConfig.SearchForm.Size.Width > 0 Then + Size = My.UIConfig.SearchForm.Size + End If + + If My.UIConfig.SearchForm.Location.X > 0 And My.UIConfig.SearchForm.Location.Y > 0 Then + Location = My.UIConfig.SearchForm.Location + End If + + Catch ex As Exception + Logger.Error(ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error while loading ProfileSearches:") + Finally + SplashScreenManager.CloseOverlayForm(oHandle) + StopWatch.Stop() + End Try + End Sub + + Async Function Load_Search_Attributes() As Task + Try + DataLoaded = False + + Dim oWatch1 As New Watch("Getting data from Database") + Dim oSQL = $"SELECT * FROM VWIDB_SEARCH_PROFILE_ATTRIBUTES WHERE SEARCH_PROFIL_ID = {SEARCH_ID} ORDER BY [SEQUENCE]" + Dim oDT As DataTable = Await My.DatabaseIDB.GetDatatableAsync(oSQL) + oSQL = $"SELECT * FROM VWIDB_SEARCH_ATTRIBUTES_LINKS WHERE SEARCH_PROFIL_ID = {SEARCH_ID} ORDER BY DEP_ATTR_ID" + Dim oDT1 As DataTable = Await My.DatabaseIDB.GetDatatableAsync(oSQL) + oWatch1.Stop() + + Dim oWatch2 As New Watch("Procesing Dataset") + DatatableAttributes = Nothing + DatatableAttributes = oDT.Clone() + oDT.Select("", "SEQUENCE").CopyToDataTable(DatatableAttributes, LoadOption.PreserveChanges) + DatatableAttributeLinks = Nothing + DatatableAttributeLinks = oDT1.Clone() + oDT1.Select("", "DEP_ATTR_ID").CopyToDataTable(DatatableAttributeLinks, LoadOption.PreserveChanges) + oWatch2.Stop() + + Dim oControlCount As Integer = 1 + Dim oControlRow As Integer = 0 + clsControls = New ClassControlCreator(SelectedTab, Me) + + Dim YActControlHeight As Integer = 0 + Dim XActControlWidth As Integer = 0 + + For Each oAttributeRow As DataRow In DatatableAttributes.Rows + Dim oXPosition As Integer + Dim oYPositionControl As Integer + Dim oYPositionLabel As Integer + Dim oMyLastGridView As GridView + Dim oSingleResult As Boolean = False + Dim oAttributeTitle As String = oAttributeRow.Item("ATTRIBUTE_TITLE").ToString + Dim oAttriID As Integer = CInt(oAttributeRow.Item("ATTRIBUTE_ID")) + Dim oAttributeType As String = oAttributeRow.Item("ATTRIBUTE_TYPE").ToString + + Dim oWatch3 As New Watch($"Loading Attribute: {oAttributeTitle}") + + Dim oWatch4 As New Watch($"Calculating Position") + + If oControlCount = 1 Or oControlCount = 5 Or oControlCount = 9 Then + oControlRow += 1 + End If + + If oControlRow = 1 Then + If oControlCount = 1 Then + oXPosition = 10 + oYPositionLabel = 10 + oYPositionControl = oYPositionLabel + 20 + End If + ElseIf oControlRow = 2 Then + If oControlCount = 5 Then + oXPosition = 10 + oYPositionLabel = YActControlHeight + 10 + oYPositionControl = oYPositionLabel + 20 + + End If + ElseIf oControlRow = 3 Then + If oControlCount = 9 Then + oXPosition = 10 + End If + End If + + oWatch4.Stop() + oWatch4 = New Watch("Creating Label") + + 'Dim oControlHeight As Integer = CInt(oAttributeRow.Item("HEIGHT")) + Dim oControlHeight As Integer = 150 + Dim oControlWidth As Integer = CInt(oAttributeRow.Item("WIDTH")) + 'Dim oControlWidth As Integer = 150 + + If CBool(oAttributeRow.Item("MULTISELECT")) = True Then + oControlWidth += 50 + End If + + addLabel(oAttributeTitle, oXPosition, oYPositionLabel) + + 'Nun das Control mit dem entsprechenden Abstand und der Größe + Dim oCalcHeight As Integer + Dim oCalcWidth As Integer + If oAttributeType = ATTR_TYPE_STRING Or oAttributeType = ATTR_TYPE_INTEGER Then + oCalcHeight = oControlHeight + oYPositionControl + oCalcWidth = oControlWidth + ElseIf (oAttributeType = ATTR_TYPE_DATE Or oAttributeType = ATTR_TYPE_BOOLEAN) Then + oCalcHeight = 20 + oYPositionControl + oCalcWidth = 100 + End If + If oCalcHeight > YActControlHeight Then + YActControlHeight = oCalcHeight + End If + + oWatch4.Stop() + oWatch4 = New Watch("Creating Control") + + Dim oMyControl As Control = Nothing + If oAttributeType = ATTR_TYPE_STRING Or oAttributeType = ATTR_TYPE_INTEGER Then + oMyControl = clsControls.CreateExistingGridControl(oAttributeRow, oXPosition, oYPositionControl) + Dim oGrid As GridControl = CType(oMyControl, GridControl) + + Dim oDataSource As DataTable = CType(oGrid.DataSource, DataTable) + If Not IsNothing(oDataSource) AndAlso oDataSource.Rows.Count = 1 Then + oSingleResult = True + End If + + Dim oView As GridView = CType(oGrid.MainView, GridView) + + oMyLastGridView = oView + oView.FocusInvalidRow() + 'Prüfen ob für dieses Grid eine Abhängigkeit definiert ist? + For Each oROW As DataRow In DatatableAttributeLinks.Rows + If CInt(oROW.Item("LINKED_ATTR_ID")) = oAttriID Then + If CBool(oAttributeRow.Item("MULTISELECT")) = True Then + AddHandler oView.SelectionChanged, AddressOf SelectionChanged + Else + AddHandler oView.FocusedRowChanged, AddressOf FocusedRowChanged + End If + + + End If + Next + + ElseIf oAttributeType = ATTR_TYPE_DATE Then + oMyControl = clsControls.CreateExistingDatepicker(oAttributeRow, oXPosition, oYPositionControl) + Dim myDTP As DateEdit = CType(oMyControl, DateEdit) + AddHandler myDTP.DisableCalendarDate, AddressOf DisableCalendarDate + AddHandler myDTP.DateTimeChanged, AddressOf CalendarChanged 'CalendarChanged + ElseIf oAttributeType = ATTR_TYPE_BOOLEAN Then + oMyControl = clsControls.CreateExistingCheckbox(oAttributeRow, oXPosition, oYPositionControl) + Dim myCheckBox As CheckBox = CType(oMyControl, CheckBox) + AddHandler myCheckBox.CheckedChanged, AddressOf CheckBox_CheckedChanged + End If + + oWatch4.Stop() + oWatch4 = New Watch("Adding Control to Panel") + + oControlCount += 1 + + If oMyControl IsNot Nothing Then + SelectedTab.Controls.Add(oMyControl) + + If oAttributeType = ATTR_TYPE_STRING Or oAttributeType = ATTR_TYPE_INTEGER Then + clsControls.DeselectGridControl(oMyControl) + End If + End If + + oXPosition += oControlWidth + 20 + + oWatch4.Stop() + oWatch3.Stop() + Next + + oSQL = $"SELECT [dbo].[FNIDB_SEARCH_GET_FILTER_SQL] ({SEARCH_ID},{My.Application.User.UserId},'{My.Application.User.Language}')" + Dim oREsult = My.DatabaseIDB.GetScalarValue(oSQL) + If Not IsNothing(oREsult) Then + DatatableStartSearchResult = My.DatabaseIDB.GetDatatable(oREsult) + + End If + + Catch ex As Exception + Logger.Warn("Unexpected error in Load_Search_Attributes - Error: " & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Search_Attributes:") + Finally + DataLoaded = True + End Try + End Function + + Private Function FilterbyAttribute(Attribute2Filter As String, pFilter As String, TermColumn As String) As DataTable + Try + Dim oDV As DataView = New DataView(DatatableStartSearchResult, pFilter, "", DataViewRowState.OriginalRows) + Dim oDT As DataTable = oDV.ToTable(True, TermColumn) + Return oDT + Catch ex As Exception + Logger.Error(ex.Message) + Return Nothing + End Try + End Function + Private Function RenewResultSoFar(pFilter As String) As DataTable + Try + Dim oDT2Filter As DataTable + ' If DatatableSearchResultSoFar Is Nothing Then + oDT2Filter = DatatableStartSearchResult.Copy() + ' Else + 'oDT2Filter = DatatableSearchResultSoFar + ' End If + Dim oDV As DataView = New DataView(oDT2Filter, pFilter, "", DataViewRowState.OriginalRows) + Dim oDT As DataTable = oDV.ToTable(True) + DatatableSearchResultSoFar = oDT + Display_InfoItem("FindResusult so far: " & DatatableSearchResultSoFar.Rows.Count.ToString, Color.Yellow) + Return DatatableSearchResultSoFar + Catch ex As Exception + Logger.Error(ex.Message) + Return Nothing + End Try + End Function + Sub addLabel(pAttrName As String, pXPos As Integer, ylbl As Integer) + Dim lbl As New Label With { + .Name = "lbl" & pAttrName, + .AutoSize = True, + .Text = pAttrName, + .Location = New Point(pXPos, ylbl) + } + + SelectedTab.Controls.Add(lbl) + End Sub + + + Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged + SelectedTab = XtraTabControl1.SelectedTabPage + End Sub + Private Sub ClearSearchCriteria() + Dim oSQL = $"DELETE FROM TBIDB_USER_SEARCH_CRITERIA WHERE SEARCH_PROFIL_ID = {SEARCH_ID} AND USERID = {My.Application.User.UserId}" + My.DatabaseIDB.ExecuteNonQuery(oSQL) + + + End Sub + + Private Sub ClearSelectedControls() + ChangedDateControls = Nothing + End Sub + Private Sub ClearAllRestrictedData() + Dim osql = $"DELETE FROM TBIDB_SEARCH_RESTRICTIONS_INPUT WHERE SEARCH_ID = {SEARCH_ID} and USR_ID = {My.Application.User.UserId}" + My.DatabaseIDB.ExecuteNonQuery(osql) + osql = $"DELETE FROM TBIDB_SEARCH_RESTRICTIONS_OBJECTS WHERE SEARCH_ID = {SEARCH_ID} AND USR_ID = {My.Application.User.UserId}" + My.DatabaseIDB.ExecuteNonQuery(osql) + End Sub + Private Sub ClearRestrictedDataAttr(pAttrID As Integer) + Dim osql = $"DELETE FROM TBIDB_SEARCH_RESTRICTIONS_INPUT WHERE SEARCH_ID = {SEARCH_ID} and USR_ID = {My.Application.User.UserId} AND RESTR_ATTR_ID = {pAttrID}" + My.DatabaseIDB.ExecuteNonQuery(osql) + End Sub + + Private Sub RenewSearchAttributes() + ClearSearchCriteria() + ClearAllRestrictedData() + + For Each oControl As Control In SelectedTab.Controls + Dim octrlType = oControl.GetType.ToString + Dim oAttrID As Integer + Dim oAttrTitle As String + Select Case oControl.GetType.FullName + Case GetType(GridControl).FullName + Dim oMyGridControl As GridControl = CType(oControl, GridControl) + Dim oMyGridView As GridView = CType(oMyGridControl.MainView, GridView) + Dim oSelectedRows As Integer() = oMyGridView.GetSelectedRows() + If oSelectedRows.Count = 0 Then + Continue For + End If + + oAttrID = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttributeID + oAttrTitle = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttributeTitle + For Each oRowHandle As Integer In oSelectedRows + Dim oResult = oMyGridView.GetRowCellValue(oRowHandle, oMyGridView.Columns(0).FieldName) + Dim oInsert = $"EXEC PRIDB_NEW_USER_SEARCH_CRITERIA {SEARCH_ID.ToString},{My.Application.User.UserId.ToString},{oAttrID.ToString},'{oResult}','{My.Application.User.UserName}'" + My.DatabaseIDB.ExecuteNonQuery(oInsert) + Next + Case GetType(DateEdit).FullName + ' MsgBox("Date") + Dim oDateEdit As DateEdit = CType(oControl, DateEdit) + If ChangedDateControls Is Nothing Then + Continue For + End If + If ChangedDateControls.Count = 0 Then + Continue For + End If + For Each oName As String In ChangedDateControls + If oDateEdit.Name = oName Then + If Not IsNothing(oDateEdit.EditValue) Then + oAttrID = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttributeID + oAttrTitle = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttributeTitle + Dim oldValue As Date + Dim validDate As Boolean = False + Dim oDateValue As Date = DirectCast(oDateEdit.EditValue, Date) + Try + validDate = Date.TryParse(oDateEdit.OldEditValue, oldValue) + Catch ex As Exception + oldValue = Date.MinValue + End Try + + If Not validDate Then + oldValue = Date.MinValue + End If + + If oldValue = oDateEdit.EditValue Then + Exit Sub + End If + Dim dateString = oDateValue.ToString("yyyy-MM-dd") 'hh:mm:ss.fff + Dim omydate = oDateEdit.EditValue.ToString + Dim oInsert = $"EXEC PRIDB_NEW_USER_SEARCH_CRITERIA {SEARCH_ID.ToString},{My.Application.User.UserId.ToString},{oAttrID.ToString},'{omydate}','{My.Application.User.UserName}'" + My.DatabaseIDB.ExecuteNonQuery(oInsert) + End If + End If + Next + + Case GetType(CheckBox).FullName + Dim myCheckBox As CheckBox = CType(oControl, CheckBox) + If myCheckBox.CheckState <> CheckState.Indeterminate Then + oAttrID = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttributeID + oAttrTitle = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttributeTitle + Dim oInsert = $"EXEC PRIDB_NEW_USER_SEARCH_CRITERIA {SEARCH_ID.ToString},{My.Application.User.UserId.ToString},{oAttrID.ToString},'{myCheckBox.Checked.ToString}','{My.Application.User.UserName}'" + My.DatabaseIDB.ExecuteNonQuery(oInsert) + End If + Case Else + 'MsgBox(oControl.GetType.ToString) + End Select + Next + End Sub + Private Sub Relation2ControlActivated(pToAttributeID As Integer, pAttribute2Filter As String, pFilter As String, pTermColumn As String) + Try + + For Each oControl As Control In SelectedTab.Controls + Dim octrlType = oControl.GetType.ToString + Dim oAttrID As Integer + Dim oAttrTitle As String + If octrlType = "System.Windows.Forms.Label" Then + Continue For + End If + oAttrID = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttributeID + oAttrTitle = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttributeTitle + Select Case oControl.GetType.FullName + Case GetType(GridControl).FullName + Dim oMyGridControl As GridControl = CType(oControl, GridControl) + Dim oMyGridView As GridView = CType(oMyGridControl.MainView, GridView) + + If pToAttributeID = oAttrID Then + + Dim oDTSource As DataTable = FilterbyAttribute(pAttribute2Filter, pFilter, pTermColumn) + + If Not IsNothing(oDTSource) Then + oDTSource.DefaultView.Sort = oAttrTitle '"ColumnName ASC" + oDTSource = oDTSource.DefaultView.ToTable + oMyGridControl.DataSource = oDTSource + oMyGridView.PopulateColumns() + oMyGridView.FocusInvalidRow() + End If + + 'MsgBox("Attribute" & oAttrTitle & " is linked" & vbNewLine & oinString) + Continue For + End If + + + + + + + Case GetType(DateEdit).FullName + ' MsgBox("Date") + Dim oDateEdit As DateEdit = CType(oControl, DateEdit) + + If pToAttributeID = oAttrID Then + + Continue For + End If + + Case GetType(CheckBox).FullName + Dim myCheckBox As CheckBox = CType(oControl, CheckBox) + + + Case Else + 'MsgBox(oControl.GetType.ToString) + End Select + Next + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub + Private Function ReplacePatterns(pInput As String, pAttrTitle As String) As String + Try + Dim oReturn = pInput + oReturn = oReturn.Replace("@USER_LANGUAGE", My.Application.User.Language) + oReturn = oReturn.Replace("@pUSER_ID", My.Application.User.UserId) + oReturn = oReturn.Replace("@RESULT_TITLE", pAttrTitle) + Return oReturn + Catch ex As Exception + Return pInput + Logger.Error(ex) + End Try + End Function + + Private Sub RenewDatasourceControl(pToAttributeID As Integer, pSourceSQL As String) + Try + For Each oControl As Control In SelectedTab.Controls + Dim octrlType = oControl.GetType.ToString + Dim oAttrID As Integer + Dim oAttrTitle As String + If octrlType = "System.Windows.Forms.Label" Then + Continue For + End If + oAttrID = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttributeID + oAttrTitle = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttributeTitle + If pToAttributeID = oAttrID Then + Dim oSourceSQL As String = ReplacePatterns(pSourceSQL, oAttrTitle) + Dim oDTSource As DataTable = My.DatabaseIDB.GetDatatable(oSourceSQL) + If Not IsNothing(oDTSource) Then + oDTSource.DefaultView.Sort = oAttrTitle '"ColumnName ASC" + oDTSource = oDTSource.DefaultView.ToTable + Select Case oControl.GetType.FullName + Case GetType(GridControl).FullName + Dim oMyGridControl As GridControl = CType(oControl, GridControl) + Dim oMyGridView As GridView = CType(oMyGridControl.MainView, GridView) + oMyGridControl.DataSource = oDTSource + oMyGridView.PopulateColumns() + oMyGridView.FocusInvalidRow() + Case GetType(DateEdit).FullName + ' MsgBox("Date") + Dim oDateEdit As DateEdit = CType(oControl, DateEdit) + + Case GetType(CheckBox).FullName + Dim myCheckBox As CheckBox = CType(oControl, CheckBox) + + + Case Else + 'MsgBox(oControl.GetType.ToString) + End Select + + End If + End If + Next + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub + Private Sub Link2ControlActivated(pFromAttributeID As Integer, pToAttributeID As Integer, pListSelected As List(Of String), pSourceSQL As String) + Try + For Each oControl As Control In SelectedTab.Controls + Dim octrlType = oControl.GetType.ToString + Dim oAttrID As Integer + Dim oAttrTitle As String + If octrlType = "System.Windows.Forms.Label" Then + Continue For + End If + oAttrID = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttributeID + oAttrTitle = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttributeTitle + Select Case oControl.GetType.FullName + Case GetType(GridControl).FullName + Dim oMyGridControl As GridControl = CType(oControl, GridControl) + Dim oMyGridView As GridView = CType(oMyGridControl.MainView, GridView) + + If pToAttributeID = oAttrID Then + ClearRestrictedDataAttr(pToAttributeID) + Dim i As Integer = 0 + Dim oinString As String = " in (" + For Each oOBJ_ID As String In pListSelected + Dim oinsert As String = $"INSERT INTO [dbo].[TBIDB_SEARCH_RESTRICTIONS_INPUT] ([SEARCH_ID],[RESTR_ATTR_ID],[SOURCE_ATTR_ID] ,[TERM],[USR_ID]) VALUES ({SEARCH_ID},{pToAttributeID},{pFromAttributeID},'{oOBJ_ID}',{My.Application.User.UserId})" + My.DatabaseIDB.ExecuteNonQuery(oinsert) + If i = 0 Then + oinString += "'" + oOBJ_ID.ToString + "'" + Else + oinString = oinString + ",'" + oOBJ_ID.ToString + "'" + End If + i += 1 + Next + oinString += ")" + Dim oSourceSQL As String = pSourceSQL + oSourceSQL = oSourceSQL.Replace("@USER_LANGUAGE", My.Application.User.Language) + oSourceSQL = oSourceSQL.Replace("@pUSER_ID", My.Application.User.UserId) + oSourceSQL = oSourceSQL.Replace("@RESULT_TITLE", oAttrTitle) + oSourceSQL &= $" Inner Join TBIDB_SEARCH_RESTRICTIONS_OBJECTS T1 ON T.IDB_OBJECT_ID = T1.IDB_OBJ_ID " & + $"WHERE RESTR_ATTR_ID = {pToAttributeID} And SEARCH_ID = {SEARCH_ID} And USR_ID = {My.Application.User.UserId} " + 'oSourceSQL &= " ORDER BY T.TERM_VALUE" + Dim oDTSource As DataTable + + If Utils.NotNull(oSourceSQL, String.Empty) <> String.Empty Then + oDTSource = My.DatabaseIDB.GetDatatable(oSourceSQL) + If Not IsNothing(oDTSource) Then + oDTSource.DefaultView.Sort = oAttrTitle '"ColumnName ASC" + oDTSource = oDTSource.DefaultView.ToTable + oMyGridControl.DataSource = oDTSource + oMyGridView.PopulateColumns() + oMyGridView.FocusInvalidRow() + End If + + + End If + 'MsgBox("Attribute" & oAttrTitle & " is linked" & vbNewLine & oinString) + Continue For + End If + + + + + + + Case GetType(DateEdit).FullName + ' MsgBox("Date") + Dim oDateEdit As DateEdit = CType(oControl, DateEdit) + + If pToAttributeID = oAttrID Then + + Continue For + End If + + Case GetType(CheckBox).FullName + Dim myCheckBox As CheckBox = CType(oControl, CheckBox) + + + Case Else + 'MsgBox(oControl.GetType.ToString) + End Select + Next + Catch ex As Exception + Logger.Error(ex) + End Try + + End Sub + Private Sub SelectionChanged(sender As Object, e As DevExpress.Data.SelectionChangedEventArgs) + Try + If DataLoaded = False Then Exit Sub + + Dim oMyGridView As GridView = DirectCast(sender, GridView) + Dim oMyGridControl As GridControl = oMyGridView.GridControl + Dim oAttrID As Integer + Dim oAttrTitle As String + oAttrID = DirectCast(oMyGridControl.Tag, ClassControlCreator.ControlMetadata).AttributeID + oAttrTitle = DirectCast(oMyGridControl.Tag, ClassControlCreator.ControlMetadata).AttributeTitle + Dim oSelectedRows As Integer() = oMyGridView.GetSelectedRows() + If oSelectedRows.Count = 0 Then + ClearRestrictedDataAttr(oAttrID) + For Each orow As DataRow In DatatableAttributeLinks.Rows + If CInt(orow.Item("LINKED_ATTR_ID")) = oAttrID Then + ' Nun die Controls durchlaufen + RenewDatasourceControl(CInt(orow.Item("DEP_ATTR_ID")), orow.Item("DEP_SOURCE_SQL").ToString) + End If + Next + Exit Sub + End If + Dim oList As New List(Of String) + For Each oRowHandle As Integer In oSelectedRows + Dim oSelectedItem As String = oMyGridView.GetRowCellValue(oRowHandle, oMyGridView.Columns(0).FieldName) + oList.Add("'" + oSelectedItem + "'") + Next + Dim oFilter As String = oAttrTitle + " in (" + String.Join(",", oList) + ")" + RenewResultSoFar(oFilter) + + For Each orow As DataRow In DatatableAttributeLinks.Rows + If CInt(orow.Item("LINKED_ATTR_ID")) = oAttrID Then + ' Nun die Controls durchlaufen + + Relation2ControlActivated(CInt(orow.Item("DEP_ATTR_ID")), oAttrTitle, oFilter, orow.Item("DEP_ATTRIBUTE_TITLE").ToString) + 'Link2ControlActivated(oAttrID, CInt(orow.Item("DEP_ATTR_ID")), oList, orow.Item("DEP_SOURCE_SQL")) + End If + Next + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub + Private Sub FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) + Try + If DataLoaded = False Then Exit Sub + + Dim oMyGridView As GridView = DirectCast(sender, GridView) + Dim oMyGridControl As GridControl = oMyGridView.GridControl + + Dim oSelectedRows As Integer() = oMyGridView.GetSelectedRows() + If oSelectedRows.Count = 0 Then + Exit Sub + End If + Dim oList As New List(Of String) + For Each oRowHandle As Integer In oSelectedRows + Dim oSelectedItem As String = oMyGridView.GetRowCellValue(oRowHandle, oMyGridView.Columns(0).FieldName) + oList.Add(oSelectedItem) + Next + Dim oAttrID As Integer + Dim oAttrTitle As String + oAttrID = DirectCast(oMyGridControl.Tag, ClassControlCreator.ControlMetadata).AttributeID + oAttrTitle = DirectCast(oMyGridControl.Tag, ClassControlCreator.ControlMetadata).AttributeTitle + Dim oFilter As String = oAttrTitle + " = (" + String.Join(",", oList) + ")" + RenewResultSoFar(oFilter) + For Each orow As DataRow In DatatableAttributeLinks.Rows + If CInt(orow.Item("LINKED_ATTR_ID")) = oAttrID Then + ' Nun die Controls durchlaufen + + Relation2ControlActivated(CInt(orow.Item("DEP_ATTR_ID")), oAttrTitle, oFilter, orow.Item("DEP_ATTRIBUTE_TITLE").ToString) + ' Link2ControlActivated(oAttrID, CInt(orow.Item("DEP_ATTR_ID")), oList, orow.Item("DEP_SOURCE_SQL")) + End If + Next + Catch ex As Exception + Logger.Error(ex) + End Try + + + + End Sub + Private Sub CheckBox_CheckedChanged(sender As Object, e As EventArgs) + Try + If DataLoaded = False Then Exit Sub + Dim oCurrentCB As CheckBox = DirectCast(sender, CheckBox) + Dim oChecked = oCurrentCB.Checked + Dim oAttrID = DirectCast(oCurrentCB.Tag, ClassControlCreator.ControlMetadata).AttributeID + Dim oAttrTitle = DirectCast(oCurrentCB.Tag, ClassControlCreator.ControlMetadata).AttributeTitle + 'RenewSearchAttributes() + ' AddSearchAttribute(oAttrID, oAttrTitle, oChecked.ToString) + Catch ex As Exception + Logger.Error(ex) + End Try + + End Sub + Private Sub frmSearchStart_Shown(sender As Object, e As EventArgs) Handles Me.Shown + DataLoaded = True + End Sub + + Private Sub DisableCalendarDate(sender As Object, e As DevExpress.XtraEditors.Calendar.DisableCalendarDateEventArgs) + Dim oDateEdit As DateEdit = DirectCast(sender, DateEdit) + Dim oDTSource As DataTable = DirectCast(oDateEdit.Tag, ClassControlCreator.ControlMetadata).DTSource + If Not IsNothing(oDTSource) Then + If IsValidDate(oDTSource, e.Date) = False Then + e.IsDisabled = True + End If + End If + End Sub + Private Sub CalendarChanged(sender As Object, e As EventArgs) + If DataLoaded = False Then Exit Sub + Dim oDateEdit As DateEdit = CType(sender, DateEdit) + If Not IsNothing(oDateEdit.EditValue) Then + Dim oEditValue = oDateEdit.EditValue.ToString + Dim oList As New List(Of String) From {oDateEdit.Name} + + If Not IsNothing(ChangedDateControls) Then + Dim oFound As Boolean = False + For Each oName As String In ChangedDateControls + If oDateEdit.Name = oName Then + oFound = True + Exit For + End If + Next + If oFound = False Then + ChangedDateControls.Add(oDateEdit.Name) + End If + Else + ChangedDateControls = oList + End If + End If + End Sub + + Public Function IsValidDate(pCheckDT As DataTable, pDate2Check As Date) As Boolean + Dim oIsValid As Boolean = False + For Each oDateRow As DataRow In pCheckDT.Rows + If CDate(oDateRow.Item(0)) = pDate2Check Then + oIsValid = True + End If + Next + Return oIsValid + End Function + + Private Async Sub BarButtonClearSearch_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonClearSearch.ItemClick + Try + ClearSearchCriteria() + ClearSelectedControls() + ClearAllRestrictedData() + Catch ex As Exception + MsgBox("Unexpected Error in Clearing Search Items: " & ex.Message, MsgBoxStyle.Critical) + End Try + SelectedTab.Controls.Clear() + Await Load_Search_Attributes() + End Sub + + Private Async Sub cmbProfile_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbProfile.SelectedIndexChanged + If DataLoaded = False Then Exit Sub + If cmbProfile.SelectedIndex <> -1 Then + If SelectedTabIndex = -1 Then + SelectedTabIndex = 0 + Else + SelectedTabIndex += 1 + End If + SelectedTab = XtraTabControl1.TabPages(SelectedTabIndex) + SelectedTab.PageVisible = True + SEARCH_ID = cmbProfile.SelectedValue + + Dim oDT As New DataTable + Dim oFilter As String = $"SEARCH_PROFILE_ID = {SEARCH_ID}" + Dim oFilteredRows() As DataRow = DatatableSearchProfiles.Select(oFilter) + oDT = DatatableSearchProfiles.Clone + For Each oRow As DataRow In oFilteredRows + SEARCH_SQL = oRow.Item("RESULT_SQL").ToString + SEARCH_TITLE = cmbProfile.Text + Next + SelectedTab.Text = SEARCH_TITLE + Await Load_Search_Attributes() + BarButtonNewSearch.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + XtraTabControl1.SelectedTabPageIndex = SelectedTabIndex + + End If + End Sub + Private Sub BarButtonNewSearch_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonNewSearch.ItemClick + Display_InfoItem("New Search not integrated", Color.Yellow) + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonSaveSearch.ItemClick + Display_InfoItem("Search Save not integrated", Color.Yellow) + End Sub + + Sub Display_InfoItem(pText As String, pBackColor As Color) + Display_InfoItem(pText, pBackColor, Color.Black) + End Sub + + Sub Display_InfoItem(pText As String, pBackColor As Color, pForeColor As Color) + BarStaticItemInfo.Caption = pText + BarStaticItemInfo.ItemAppearance.Normal.BackColor = pBackColor + BarStaticItemInfo.ItemAppearance.Normal.ForeColor = pForeColor + End Sub + + Sub Clear_InfoItem() + BarStaticItemInfo.Caption = String.Empty + BarStaticItemInfo.ItemAppearance.Normal.BackColor = Color.Transparent + End Sub + + Private Sub GridViewSearchTerms_RowDeleted(sender As Object, e As DevExpress.Data.RowDeletedEventArgs) + If DataLoaded = False Then Exit Sub + Dim oCurrentView As GridView = DirectCast(sender, GridView) + Dim oCurrentControl As GridControl = oCurrentView.GridControl + + Dim oRowView As DataRowView = CType(oCurrentView.GetFocusedRow(), DataRowView) + + If IsNothing(oRowView) = False Then + Dim oResult As String = CType(oRowView.Item(0), String) + Dim oAttrID = DirectCast(oCurrentControl.Tag, ClassControlCreator.ControlMetadata).AttributeID + Dim oAttrTitle = DirectCast(oCurrentControl.Tag, ClassControlCreator.ControlMetadata).AttributeTitle + + End If + End Sub + + Private Sub frmSearchStart_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed + My.UIConfig.SearchForm.Location = Me.Location + My.UIConfigManager.Save() + End Sub + + Private Function GetSearchTermForType(pAttrID As Int16, pAttrTitle As String, pCriteria As String, pTerm As String) As String + Dim oSearchTerm As String = "" + + Dim oFilter As String = $"GUID = {pAttrID}" + Dim oFilteredRows() As DataRow = My.Tables.DTIDB_ATTRIBUTE.Select(oFilter) + If oFilteredRows.Length = 1 Then + For Each oRow As DataRow In oFilteredRows + Dim oType As Integer = DirectCast(oRow.Item("TYP_ID"), Integer) + If oType = 1 Or oType = 8 Then + oSearchTerm = $"{pAttrTitle} {pCriteria} '{pTerm.Replace("'", "''")}'" + ElseIf oType = 2 Or oType = 9 Then + oSearchTerm = $"{pAttrTitle} {pCriteria} {pTerm}" + ElseIf oType = 3 Then 'Float + oSearchTerm = $"{pAttrTitle} {pCriteria} Convert(float,'{pTerm.Replace(",", ".")}')" + ElseIf oType = 4 Then 'Decimal + oSearchTerm = $"{pAttrTitle} {pCriteria} Convert(decimal(19,2),'{pTerm.Replace(",", ".")}')" + ElseIf oType = 5 Then 'DATE + oSearchTerm = $"{pAttrTitle} {pCriteria} Convert(date,'{pTerm}')" + ElseIf oType = 7 Then + Dim oBit As Int16 + If CBool(pTerm) = True Then + oBit = 1 + Else + oBit = 0 + End If + oSearchTerm = $"{pAttrTitle} {pCriteria} '{oBit.ToString}'" + + End If + Next + + End If + Return oSearchTerm + End Function + + Private Sub BarButtonStartSearch_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonStartSearch.ItemClick + Prepare_Search() + End Sub + + Private Sub Prepare_Search() + RenewSearchAttributes() + + ' Minimize the search form, but only if results were found + If Start_Search() Then + Hide() + + ' Position Result Window below this window + LastSearchForm.Location = GetResultFormLocation() + LastSearchForm.Size = GetResultFormSize() + + AddHandler LastSearchForm.FormClosed, AddressOf LastSearchForm_FormClosed + End If + End Sub + + Private Sub LastSearchForm_FormClosed(sender As Object, e As EventArgs) + If LastSearchForm.ShouldReturnToPreviousForm = True Then + Show() + LastSearchForm = Nothing + Else + Close() + LastSearchForm = Nothing + End If + End Sub + + Private Function Start_Search() As Boolean + Dim oHandle As IOverlaySplashScreenHandle = Nothing + Dim oItemsFound As Boolean = False + + Try + oHandle = SplashScreenManager.ShowOverlayForm(Me) + Clear_InfoItem() + + Dim oSearchSQL = SEARCH_SQL + + oSearchSQL = oSearchSQL.Replace("@UserID", My.Application.User.UserId.ToString) + oSearchSQL = oSearchSQL.Replace("@User_ID", My.Application.User.UserId.ToString) + oSearchSQL = oSearchSQL.Replace("@UserName", My.Application.User.UserName) + oSearchSQL = oSearchSQL.Replace("@SearchID", SEARCH_ID.ToString) + Dim oEnvironment As New Modules.ZooFlow.Environment() With { + .User = My.Application.User, + .Modules = My.Application.Modules, + .Database = My.DatabaseECM, + .DatabaseIDB = My.DatabaseIDB, + .Settings = My.Application.Settings, + .Service = My.Application.Service + } + Dim oDTSearchResult As DataTable = My.DatabaseIDB.GetDatatable(oSearchSQL) + If oDTSearchResult.Rows.Count > 0 Then + Dim oShortGuid = Guid.NewGuid() + Dim oWindowGuid = $"{SEARCH_ID.ToString}-{My.User.Name}" + Dim oParams = New DocumentResultList.Params() With { + .WindowGuid = oWindowGuid, + .Results = New List(Of DocumentResultList.DocumentResult) From { + New DocumentResultList.DocumentResult() With { + .Title = SelectedTab.Text, + .Datatable = oDTSearchResult + } + } + } + + If My.UIConfig.SearchForm.OpenSearchInSameWindow And LastSearchForm IsNot Nothing Then + LastSearchForm.RefreshResults(oParams.Results) + Else + Dim oForm As New frmDocumentResultList(My.LogConfig, oEnvironment, oParams) + oForm.Show() + + LastSearchForm = oForm + End If + + oItemsFound = True + Else + Display_InfoItem("No results for this searchcombination!", Color.OrangeRed, Color.White) + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, Text) + Finally + SplashScreenManager.CloseOverlayForm(oHandle) + End Try + + Return oItemsFound + End Function + + Private Function GetResultFormLocation() As Point + Return Location + End Function + + Private Function GetResultFormSize() As Size + Return Size + End Function + + Private Sub frmSearchStart_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp + If e.KeyCode = Keys.F2 Then + Prepare_Search() + End If + End Sub + + 'Private Sub MinimizeSearchForm() + ' HeightBeforeMinimizing = Height + ' Height = 200 + + ' BarButtonItem2.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + 'End Sub + + 'Private Sub RestoreSearchForm() + ' Height = HeightBeforeMinimizing + + ' If LastSearchForm IsNot Nothing Then + ' LastSearchForm.Location = GetResultFormLocation() + ' End If + + ' BarButtonItem2.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + 'End Sub + + + + Private Sub cmbFilterTimeframe_EditValueChanged(sender As Object, e As EventArgs) Handles cmbFilterTimeframe.EditValueChanged + Dim oTimeframe As FilterTimeframe = DirectCast(cmbFilterTimeframe.EditValue, FilterTimeframe) + + If oTimeframe.DisableFilter Then + txtFilterFrom.Enabled = False + txtFilterFrom.Reset() + + txtFilterTo.Enabled = False + txtFilterTo.Reset() + Else + txtFilterFrom.Enabled = True + txtFilterFrom.EditValue = oTimeframe.From + + txtFilterTo.Enabled = True + txtFilterTo.EditValue = oTimeframe.[To] + End If + End Sub + + Private Sub BarCheckboxOpenSearchInSameWindow_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckboxOpenSearchInSameWindow.CheckedChanged + My.UIConfig.SearchForm.OpenSearchInSameWindow = BarCheckboxOpenSearchInSameWindow.Checked + My.UIConfigManager.Save() + End Sub + + Private Sub frmSearchStart_ResizeEnd(sender As Object, e As EventArgs) Handles Me.ResizeEnd + My.UIConfig.SearchForm.Location = Location + My.UIConfig.SearchForm.Size = Size + My.UIConfigManager.Save() + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + 'RestoreSearchForm() + End Sub + + Private Sub BarButtonItem2_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + 'RestoreSearchForm() + End Sub + + Private Sub RibbonControl1_MinimizedRibbonHiding(sender As Object, e As DevExpress.XtraBars.Ribbon.MinimizedRibbonEventArgs) Handles RibbonControl1.MinimizedRibbonHiding + + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/SavedSearch.vb b/GUIs.ZooFlow/Search/SavedSearch.vb new file mode 100644 index 0000000..3f69035 --- /dev/null +++ b/GUIs.ZooFlow/Search/SavedSearch.vb @@ -0,0 +1,49 @@ +Imports System.Xml.Serialization +Imports DevExpress.Utils.Svg + +Namespace SavedSearch + Public MustInherit Class SavedSearch + Public Property Name As String + Public Property Description As String + Public Property Image As SvgImage + Public Property Selected As Boolean + Public Overridable Property GroupText As String = "" + + Public ReadOnly Property DisplayName As String + Get + Return Name + End Get + End Property + End Class + + Public Class PredefinedDateSearch + Inherits SavedSearch + + 'Public Property Image As SvgImage + Public Overrides Property GroupText As String = "Vordefiniert" + + Public Property DateConstraint As Search.SearchRunner.DateConstraint + End Class + + Public Class CustomSearch + Inherits SavedSearch + + 'Public Property Image As SvgImage + Public Overrides Property GroupText As String = "Eigene" + + Public Tokens As New List(Of Search.SearchToken.Token) + End Class + + + + + Public Class CustomSearchSerializable + Public Property Name As String + Public Property Description As String + Public Property ImageName As String + Public Property GroupText As String + Public Property Tokens As New List(Of Search.SearchToken.Token) + End Class +End Namespace + + diff --git a/GUIs.ZooFlow/Search/SearchLoader.vb b/GUIs.ZooFlow/Search/SearchLoader.vb new file mode 100644 index 0000000..98616c2 --- /dev/null +++ b/GUIs.ZooFlow/Search/SearchLoader.vb @@ -0,0 +1,216 @@ +Imports System.IO +Imports System.Xml.Serialization +Imports DevExpress.Utils +Imports DevExpress.Utils.Svg +Imports DigitalData.GUIs.ZooFlow.Search.SearchToken +Imports DigitalData.Modules.Base +Imports DigitalData.Modules.Config +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Language +Imports DigitalData.Modules.Database +Imports DigitalData.Modules.ZooFlow.State + +Namespace Search + Public Class SearchLoader + Inherits BaseClass + + Private ReadOnly Images As SvgImageCollection + Private ReadOnly ImageTable As List(Of ImageTableItem) + Private ReadOnly Serializer As XmlSerializer + Private ReadOnly Database As MSSQLServer + Private ReadOnly UserState As UserState + + Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer, pUserState As UserState, pSvgImages As SvgImageCollection) + MyBase.New(pLogConfig) + + Images = pSvgImages + ImageTable = GetImageTable(pSvgImages) + Database = pDatabase + UserState = pUserState + Serializer = New XmlSerializer(GetType(SavedSearch.CustomSearchSerializable)) + End Sub + + Public Sub CreateCustomSearch(pTitle As String, pDescription As String, pTokens As List(Of Token), pImage As String) + Dim oSearch As New SavedSearch.CustomSearch With { + .Name = pTitle, + .Description = pDescription, + .Tokens = pTokens, + .Image = Images.Item(pImage) + } + + Try + Dim oBuffer As Byte() = SerializeSearch(oSearch) + Dim oBase64 = System.Convert.ToBase64String(oBuffer) + + If Database.ExecuteNonQuery( + $"INSERT INTO TBIDB_SEARCH_DEFINITION (TITLE, DESCRIPTION, XML_VALUE, SYS_SEARCH, ADDED_WHO) + VALUES ('{pTitle}', '{pDescription}', '{oBase64}', 0, '{UserState.UserName}')" + ) = True Then + Dim oSearchId = Database.GetScalarValue("SELECT MAX(GUID) FROM TBIDB_SEARCH_DEFINITION") + Database.ExecuteNonQuery( + $"INSERT INTO TBIDB_SEARCH_DEF_RELATIONS (SEARCH_ID, USR_ID, ADDED_WHO) + VALUES ({oSearchId}, {UserState.UserId}, '{UserState.UserName}')") + End If + Catch ex As Exception + Logger.Warn("Custom Search could not be saved!") + Logger.Error(ex) + End Try + End Sub + + Public Function LoadSearches() As List(Of SavedSearch.SavedSearch) + Dim oSearches As New List(Of SavedSearch.SavedSearch) + Dim oCustomSearches = LoadCustomSearches() + Dim oPredefinedSearches = LoadPredefinedSearches() + + Return oSearches. + Concat(oCustomSearches). + Concat(oPredefinedSearches). + ToList() + End Function + + Public Function LoadCustomSearches() As List(Of SavedSearch.SavedSearch) + Dim oSearches As New List(Of SavedSearch.SavedSearch) + Dim oSQL As String = $" + SELECT DEF.* + FROM [TBIDB_SEARCH_DEFINITION] DEF + JOIN [TBIDB_SEARCH_DEF_RELATIONS] REL ON REL.SEARCH_ID = DEF.GUID + WHERE REL.USR_ID = {UserState.UserId} + " + Dim oTable = Database.GetDatatable(oSQL) + + For Each oRow As DataRow In oTable.Rows + Dim oBase64 = oRow.Item("XML_VALUE") + Dim oBuffer = System.Convert.FromBase64String(oBase64) + Dim oSearch = DeserializeSearch(oBuffer) + oSearches.Add(oSearch) + Next + + Return oSearches + End Function + + Public Function LoadPredefinedSearches() As List(Of SavedSearch.SavedSearch) + Return New List(Of SavedSearch.SavedSearch) From { + New SavedSearch.PredefinedDateSearch() With { + .Name = "Heute", + .Description = "Dokumente, die heute abgelegt wurden", + .DateConstraint = SearchRunner.DateConstraint.Today, + .Image = Images.Item("today") + }, + New SavedSearch.PredefinedDateSearch() With { + .Name = "Gestern", + .Description = "Dokumente, die gestern abgelegt wurden", + .DateConstraint = SearchRunner.DateConstraint.Yesterday, + .Image = Images.Item("yesterday") + }, + New SavedSearch.PredefinedDateSearch() With { + .Name = "Letzte 7 Tage", + .Description = "Dokumente, die in den letzten 7 Tagen abgelegt wurden", + .DateConstraint = SearchRunner.DateConstraint.Last7Days, + .Image = Images.Item("week") + }, + New SavedSearch.PredefinedDateSearch() With { + .Name = "Dieser Monat", + .Description = "Dokumente, die in diesem Monat abgelegt wurden", + .DateConstraint = SearchRunner.DateConstraint.CurrentMonth, + .Image = Images.Item("month") + }, + New SavedSearch.PredefinedDateSearch() With { + .Name = "Letzter Monat", + .Description = "Dokumente, die im letzten Monat abgelegt wurden", + .DateConstraint = SearchRunner.DateConstraint.LastMonth, + .Image = Images.Item("month") + }, + New SavedSearch.PredefinedDateSearch() With { + .Name = "Dieses Jahr", + .Description = "Dokumente, die in diesem Jahr abgelegt wurden", + .DateConstraint = SearchRunner.DateConstraint.CurrentYear, + .Image = Images.Item("year") + }, + New SavedSearch.PredefinedDateSearch() With { + .Name = "Letztes Jahr", + .Description = "Dokumente, die im letzten Jahr abgelegt wurden", + .DateConstraint = SearchRunner.DateConstraint.LastYear, + .Image = Images.Item("year") + } + } + End Function + + Private Function ConvertSvgImageToString(pImage As SvgImage) As String + Dim oItem = ImageTable.Where(Function(item) item.Image.Equals(pImage)).FirstOrDefault() + If oItem Is Nothing Then + Return Nothing + End If + + Return oItem.Name + End Function + + Private Function ConvertStringToImageName(pName As String) As SvgImage + Dim oItem = ImageTable.Where(Function(item) item.Name.Equals(pName)).FirstOrDefault() + If oItem Is Nothing Then + Return Nothing + End If + + Return oItem.Image + End Function + + Private Function GetImageTable(pImageCollection As SvgImageCollection) As List(Of ImageTableItem) + Dim oList As New List(Of ImageTableItem) + + For Each oImageName In pImageCollection.Keys + Dim oSvgImage = pImageCollection.Item(oImageName) + oList.Add(New ImageTableItem(oImageName, oSvgImage)) + Next + + Return oList + End Function + + Private Function SerializeSearch(pSearch As SavedSearch.CustomSearch) As Byte() + Try + Dim oSearch As New SavedSearch.CustomSearchSerializable With { + .Name = pSearch.Name, + .Description = pSearch.Description, + .GroupText = pSearch.GroupText, + .Tokens = pSearch.Tokens, + .ImageName = ConvertSvgImageToString(pSearch.Image) + } + + Using oStream As New MemoryStream + Serializer.Serialize(oStream, oSearch) + Return oStream.ToArray() + End Using + Catch ex As Exception + Logger.Error(ex) + Return Nothing + End Try + End Function + + Private Function DeserializeSearch(pBytes As Byte()) As SavedSearch.CustomSearch + Try + Using oStream As New MemoryStream(pBytes) + Dim oSearch As SavedSearch.CustomSearchSerializable = Serializer.Deserialize(oStream) + + Return New SavedSearch.CustomSearch With { + .Name = oSearch.Name, + .Description = oSearch.Description, + .GroupText = oSearch.GroupText, + .Tokens = oSearch.Tokens, + .Image = ConvertStringToImageName(oSearch.ImageName) + } + End Using + Catch ex As Exception + Logger.Error(ex) + Return Nothing + End Try + End Function + + Private Class ImageTableItem + Public ReadOnly Name As String + Public ReadOnly Image As SvgImage + + Public Sub New(pName As String, pImage As SvgImage) + Name = pName + Image = pImage + End Sub + End Class + End Class +End Namespace diff --git a/GUIs.ZooFlow/Search/SearchRunner.vb b/GUIs.ZooFlow/Search/SearchRunner.vb new file mode 100644 index 0000000..6b20210 --- /dev/null +++ b/GUIs.ZooFlow/Search/SearchRunner.vb @@ -0,0 +1,445 @@ +Imports DigitalData.GUIs.Common +Imports DigitalData.Modules.Base +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.ZooFlow +Imports System.Threading.Tasks + +Namespace Search + Public Class SearchRunner + Inherits BaseClass + + Private Const SEARCH_FACT_DATE_DEFAULT As String = "ADDED_WHEN" + + Public Const CREATED_TOMORROW As String = "TOMORROW" + Public Const CREATED_TODAY As String = "ECM_CREATED_TODAY" + Public Const CREATED_YESTERDAY As String = "ECM_CREATED_YESTERDAY" + Public Const CREATED_LAST_7_DAYS As String = "ECM_CREATED_LAST7DAYS" + Public Const CREATED_YEAR_CURRENT As String = "ECM_CREATED_YEAR_CURRENT" + Public Const CREATED_YEAR_LAST As String = "ECM_CREATED_YEAR_LAST" + Public Const CREATED_MONTH_CURR As String = "ECM_CREATED_MONTH_CURRENT" + Public Const CREATED_MONTH_LAST As String = "ECM_CREATED_MONTH_LAST" + + Public Enum DateConstraint + Today + Tomorrow + Yesterday + Last7Days + CurrentMonth + LastMonth + CurrentYear + LastYear + Undefined + End Enum + + Public Enum TokenOperator + [And] + [Or] + End Enum + + Public Event NeedsRefresh As EventHandler(Of Integer) + Public Event NeedsNewSavedSearch As EventHandler + Public Event Closed As EventHandler(Of Integer) + + Private Property _ActiveDateConstraint As String = String.Empty + Public ReadOnly Property ActiveDateConstraint As String + Get + Return _ActiveDateConstraint + End Get + End Property + + Private _ActiveSearchTokens As New List(Of SearchToken.Token) + Private _ActiveDateAttribute As String = SEARCH_FACT_DATE_DEFAULT + Private _ActiveTokenOperator As TokenOperator = TokenOperator.And + + Public ReadOnly Property ActiveDateAttribute As String + Get + Return _ActiveDateAttribute + End Get + End Property + + Public ReadOnly Property ActiveTokens As List(Of SearchToken.Token) + Get + Return _ActiveSearchTokens + End Get + End Property + + Public Property BaseSearchSQL As String + Public Property ExplicitDate As Boolean = False + + Private ReadOnly Environment As Environment + Private ReadOnly SearchId As String + Private ReadOnly UserId As Integer + Private ReadOnly UserLanguage As String + + Public Sub New(pLogConfig As LogConfig, pEnvironment As Environment, pSearchId As String) + MyBase.New(pLogConfig) + Environment = pEnvironment + SearchId = pSearchId + UserId = My.Application.User.UserId + UserLanguage = My.Application.User.Language + End Sub + + Public Function RunWithDataTable(pDatatable As DataTable) As SearchResult + Return RunWithDataTable(pDatatable, "Suche") + End Function + + Public Function RunWithDataTable(pDatatable As DataTable, pTitle As String) As SearchResult + Dim oParams = GetParams(pTitle) + oParams.Results.Add(New DocumentResultList.DocumentResult() With { + .Title = pTitle, + .Datatable = pDatatable + }) + + If pDatatable.Rows.Count = 1 Then + oParams.ShowFileList = False + End If + + Dim oForm As New frmDocumentResultList(My.LogConfig, Environment, oParams) + AddEventHandlers(oForm) + oForm.Show() + + Return New SearchResult(pDatatable.Rows.Count) + End Function + + ''' + ''' Only search for Term. Used for sidebar quicksearch. + ''' + Public Async Function RunWithSearchTerm(pSearchTerm As String) As Task(Of SearchResult) + Return Await RunWithSearchOptions(New SearchOptions With {.SearchString = pSearchTerm}) + End Function + + Public Async Function RunWithSearchTerm(pSearchTerm As String, pDateFrom As Date, pDateTo As Date, pSearchTitle As String) As Task(Of SearchResult) + Return Await RunWithSearchOptions(New SearchOptions With { + .SearchString = pSearchTerm, + .SearchTitle = pSearchTitle, + .DateFrom = pDateFrom, + .DateTo = pDateTo + }) + End Function + + Public Async Function RunWithTokens(pTokens As IEnumerable(Of Search.SearchToken.Token)) As Task(Of SearchResult) + Return Await RunWithSearchOptions(New SearchOptions With {.SearchTokens = pTokens}) + End Function + + Public Async Function RunWithTokens(pTokens As IEnumerable(Of Search.SearchToken.Token), pDateFrom As Date, pDateTo As Date, pSearchTitle As String) As Task(Of SearchResult) + If pTokens.Count = 0 And + pDateFrom = Date.MinValue And + pDateTo = Date.MinValue And + _ActiveDateConstraint = String.Empty Then + Return New SearchResult(0) + End If + + Return Await RunWithSearchOptions(New SearchOptions With { + .SearchTokens = pTokens, + .DateFrom = pDateFrom, + .DateTo = pDateTo + }) + End Function + + + 'Public Async Function RunWithSearchTerm(pSearchTerm As String, pDateFrom As Date, pDateTo As Date) As Task(Of SearchResult) + ' Return Await RunWithSearchTerm(pSearchTerm, pDateFrom, pDateTo, Nothing, Nothing) + 'End Function + + Private Async Function RunWithSearchOptions(pOptions As SearchOptions) As Task(Of SearchResult) + Dim oDateConstraint = Await GetDateConstraint(pOptions.DateFrom, pOptions.DateTo) + Dim oWindowTitle = GetResultWindowString(pOptions.SearchString, pOptions.SearchTitle) + Dim oParams = GetParams(oWindowTitle) + Dim oTokens = pOptions.SearchTokens + Dim oSearchTerm = pOptions.SearchString + + Dim oSQL = String.Empty + + If oTokens IsNot Nothing AndAlso oTokens.Count > 0 Then + _ActiveSearchTokens = oTokens + Await InsertSearchTokens(oTokens) + oSQL = $"EXEC PRIDB_SEARCH_GET_TOKEN_RESULT_DOCS {UserId}, '{oDateConstraint}', '{UserLanguage}'" + ElseIf oSearchTerm IsNot Nothing Then + _ActiveSearchTokens.Clear() + oSQL = $"EXEC PRIDB_SEARCH_GET_TEXT_RESULTS {UserId},'{pOptions.SearchString}','{oDateConstraint}', '{UserLanguage}'" + Else + _ActiveSearchTokens.Clear() + oSQL = $"EXEC PRIDB_SEARCH_GET_TEXT_RESULTS {UserId},'{String.Empty}','{oDateConstraint}', '{UserLanguage}'" + End If + + If Await My.Database.ExecuteNonQueryIDBAsync(oSQL) = True Then + Dim oDTDocResult = Await My.Database.GetDatatableIDBAsync(BaseSearchSQL) + + If oDTDocResult Is Nothing Then + Return New SearchResult("Error in Search Query") + End If + + Dim oRowCount = oDTDocResult.Rows.Count + If oRowCount > 0 Then + oParams.Results.Add(New DocumentResultList.DocumentResult() With { + .Title = SearchId, + .Datatable = oDTDocResult + }) + + If oDTDocResult.Rows.Count = 1 Then + oParams.ShowFileList = False + End If + + Dim oForm As New frmDocumentResultList(My.LogConfig, Environment, oParams) + AddEventHandlers(oForm) + oForm.Show() + + Return New SearchResult(oRowCount) + Else + Return New SearchResult(oRowCount) + + End If + Else + Return New SearchResult("Error in Search Function") + + End If + End Function + + Private Sub AddEventHandlers(pForm As frmDocumentResultList) + ' TODO: Implement + 'AddHandler pForm.NeedsRefresh, AddressOf Form_NeedsRefresh + AddHandler pForm.FormClosed, AddressOf Form_Closed + + ' Only setup event if it is actually used + If NeedsNewSavedSearchEvent IsNot Nothing Then + AddHandler pForm.NeedsNewSavedSearch, AddressOf Form_NeedsNewSavedSearch + End If + + ' Only setup event if it is actually used + If NeedsRefreshEvent IsNot Nothing Then + AddHandler pForm.NeedsRefresh, AddressOf Form_NeedsRefresh + End If + End Sub + + Private Sub Form_NeedsNewSavedSearch(sender As Object, e As EventArgs) + RaiseEvent NeedsNewSavedSearch(sender, e) + End Sub + + Private Sub Form_NeedsRefresh(sender As Object, e As Integer) + RaiseEvent NeedsRefresh(sender, e) + End Sub + + Private Async Function GetDateConstraint(pDateFrom As Date, pDateTo As Date) As Task(Of String) + Dim oSimpleDateConstraint = $"{_ActiveDateAttribute}~{_ActiveDateConstraint}" + Dim oExplicitConstraint = Await MaybeSetExplicitDateConstraint(pDateFrom, pDateTo) + + If IsNothing(oExplicitConstraint) Then + Return oSimpleDateConstraint + Else + Return oExplicitConstraint + End If + End Function + + Private Async Function InsertSearchTokens(pTokens As IEnumerable(Of Search.SearchToken.Token)) As Task + Logger.Debug("Deleting previous user tokens..") + Await My.Database.ExecuteNonQueryIDBAsync($"DELETE FROM TBIDB_SEARCH_INPUT_USER WHERE USR_ID = {UserId}") + + If pTokens Is Nothing Then + Logger.Warn("Token Object was nothing!") + Exit Function + End If + + If pTokens.Count = 0 Then + Logger.Warn("Token Object was empty!") + Exit Function + End If + + Dim oOperatorString + + Select Case _ActiveTokenOperator + Case TokenOperator.Or + oOperatorString = "OR" + Case Else + oOperatorString = "AND" + End Select + + + For Each oToken In pTokens + Dim oSQLInsert As String = $" + INSERT INTO [dbo].[TBIDB_SEARCH_INPUT_USER] ([USR_ID], [ATTR_ID], [ATTR_TITLE], [TERM_ID], [OPERATOR]) + VALUES ({UserId}, {oToken.AttributeId}, '{oToken.AttributeTitle}', {oToken.TermId}, '{oOperatorString}')" + + Dim oResult = Await My.Database.ExecuteNonQueryIDBAsync(oSQLInsert) + Logger.Warn("Inserting Tokens failed!") + Next + End Function + + + Private Async Function MaybeSetExplicitDateConstraint(pDateFrom As Date, pDateTo As Date) As Task(Of String) + If pDateFrom.Equals(Date.MinValue) = False Then + ExplicitDate = True + + Dim oDateTo As Date + If pDateTo.Equals(Date.MinValue) Then + oDateTo = pDateFrom + Else + oDateTo = pDateTo + End If + Dim oProc = $"EXEC PRIDB_SEARCH_ADD_USR_DATE {UserId},'{pDateFrom}','{oDateTo}'" + If Await My.Database.ExecuteNonQueryIDBAsync(oProc) = True Then + Return $"{_ActiveDateAttribute}~DATEPART" + Else + Return Nothing + End If + End If + + Return Nothing + End Function + + Private Sub Form_Closed(sender As Object, e As EventArgs) + RaiseEvent Closed(sender, 0) + End Sub + + Private Function GetParams(pWindowTitle As String) As DocumentResultList.Params + Dim oParams = New DocumentResultList.Params() With { + .WindowGuid = SearchId, + .WindowTitle = pWindowTitle, + .OperationModeOverride = Modules.ZooFlow.Constants.OperationMode.ZooFlow, + .ProfileGuid = 35452, + .ColumnNames = New DocumentResultList.ColumnNames With { + .ObjectIdColumn = "DocID" + }, + .ShowBackNavigation = False + } + Return oParams + End Function + + Private Function GetResultWindowString(pSearchContent As String, pWindowTitle As String) As String + Dim oWindowString + + ' This is the default title + If UserLanguage = DigitalData.Modules.ZooFlow.State.UserState.LANG_DE_DE Then + oWindowString = $"Suche" + Else + oWindowString = $"Search" + End If + + ' If a Search String is given, we might take this + If pSearchContent <> String.Empty Then + If UserLanguage = DigitalData.Modules.ZooFlow.State.UserState.LANG_DE_DE Then + Return $"Suche Nach '{pSearchContent}'" + Else + Return $"Search For '{pSearchContent}'" + End If + End If + + ' Window Title overrides everything + If pWindowTitle IsNot Nothing Then + oWindowString = pWindowTitle + End If + + Return oWindowString + End Function + + Public Sub SetDateConstraint() + _ActiveDateConstraint = String.Empty + End Sub + + Public Sub SetDateConstraint(pConstraintName As String) + _ActiveDateConstraint = pConstraintName + End Sub + + Public Sub SetDateConstraint(pConstraint As DateConstraint) + _ActiveDateConstraint = DateConstraintToConstant(pConstraint) + End Sub + + Public Sub SetTokenOperator(pOperator As TokenOperator) + _ActiveTokenOperator = pOperator + End Sub + + Public Function DateConstraintToConstant(pConstraint As DateConstraint) As String + Select Case pConstraint + Case DateConstraint.Today + Return CREATED_TODAY + + Case DateConstraint.Yesterday + Return CREATED_YESTERDAY + + Case DateConstraint.Tomorrow + Return CREATED_TOMORROW + + Case DateConstraint.Last7Days + Return CREATED_LAST_7_DAYS + + Case DateConstraint.CurrentMonth + Return CREATED_MONTH_CURR + + Case DateConstraint.LastMonth + Return CREATED_MONTH_LAST + + Case DateConstraint.CurrentYear + Return CREATED_YEAR_CURRENT + + Case DateConstraint.LastYear + Return CREATED_YEAR_LAST + + Case Else + Return String.Empty + + End Select + End Function + Public Function ConstantToDateConstraint(pConstant As String) As DateConstraint + Select Case pConstant + Case CREATED_TODAY + Return DateConstraint.Today + Case CREATED_YESTERDAY + Return DateConstraint.Yesterday + Case CREATED_TOMORROW + Return DateConstraint.Tomorrow + Case CREATED_LAST_7_DAYS + Return DateConstraint.Last7Days + Case CREATED_MONTH_CURR + Return DateConstraint.CurrentMonth + Case CREATED_MONTH_LAST + Return DateConstraint.LastMonth + Case CREATED_YEAR_CURRENT + Return DateConstraint.CurrentYear + Case CREATED_YEAR_LAST + Return DateConstraint.LastYear + Case Else + Return DateConstraint.Undefined + End Select + End Function + + Public Sub SetDateAttribute(pAttributeName As String) + _ActiveDateAttribute = pAttributeName + End Sub + + Public Sub SetDateAttribute() + _ActiveDateAttribute = SEARCH_FACT_DATE_DEFAULT + End Sub + + Public Class SearchOptions + Public SearchTitle As String + + Public SearchString As String + Public SearchTokens As IEnumerable(Of Search.SearchToken.Token) + + Public DateFrom As Date + Public DateTo As Date + End Class + + Public Class SearchResult + Public OK As Boolean = True + Public Count As Integer = 0 + Public ErrorMessage As String = String.Empty + + ''' + ''' Returns a positive Search Result + ''' + Public Sub New(pCountResults As Integer) + Count = pCountResults + End Sub + + ''' + ''' Returns a failed search result with an error message + ''' + ''' + Public Sub New(pMessage As String) + OK = False + ErrorMessage = pMessage + End Sub + End Class + End Class +End Namespace + diff --git a/GUIs.ZooFlow/Search/SearchToken.vb b/GUIs.ZooFlow/Search/SearchToken.vb new file mode 100644 index 0000000..702f942 --- /dev/null +++ b/GUIs.ZooFlow/Search/SearchToken.vb @@ -0,0 +1,45 @@ +Namespace Search + Public Class SearchToken + + Public Class Token + Public AttributeTitle As String + Public AttributeId As Integer + Public TermValue As String + Public TermId As Integer + End Class + + Public Class ValueOnlyToken + Inherits Token + + Public Overrides Function GetHashCode() As Integer + Return TermId.GetHashCode + End Function + + Public Overrides Function Equals(obj As Object) As Boolean + Return GetHashCode() = DirectCast(obj, ValueOnlyToken).GetHashCode() + End Function + + Public Overrides Function ToString() As String + Return TermValue + End Function + End Class + + Public Class AttributeValueToken + Inherits Token + + Public Overrides Function GetHashCode() As Integer + Return (TermId.GetHashCode & AttributeId.GetHashCode).GetHashCode() + End Function + + Public Overrides Function Equals(obj As Object) As Boolean + Return Me.GetHashCode() = DirectCast(obj, AttributeValueToken).GetHashCode() + End Function + + Public Overrides Function ToString() As String + Return $"{TermValue} ({AttributeTitle})" + End Function + End Class + + End Class + +End Namespace \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/State.vb b/GUIs.ZooFlow/Search/State.vb new file mode 100644 index 0000000..d3c669a --- /dev/null +++ b/GUIs.ZooFlow/Search/State.vb @@ -0,0 +1,6 @@ +Namespace Search + Public Class State + Public Property SelectInStringAttributeIds As String = "" + Public Property SelectInIntegerAttributeIds As String = "" + End Class +End Namespace diff --git a/GUIs.ZooFlow/Search/Test/SearchCriteria.vb b/GUIs.ZooFlow/Search/Test/SearchCriteria.vb new file mode 100644 index 0000000..0a6b436 --- /dev/null +++ b/GUIs.ZooFlow/Search/Test/SearchCriteria.vb @@ -0,0 +1,11 @@ +Namespace Search + Public Class SearchCriteria + Public Property ParenLeft As String = "" + Public Property Key As String + Public Property Value As Object + Public Property ParentRight As String = "" + Public Property JoinOperator As String = "AND" + End Class + + +End Namespace \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/Test/SearchFilter.vb b/GUIs.ZooFlow/Search/Test/SearchFilter.vb new file mode 100644 index 0000000..1848518 --- /dev/null +++ b/GUIs.ZooFlow/Search/Test/SearchFilter.vb @@ -0,0 +1,38 @@ +Namespace Search + Public Class SearchFilter + + Public Shared Property DefaultFilters As New List(Of FilterTimeframe) From { + New FilterTimeframe() With {.Name = "Kein", .DisableFilter = True, .[To] = Nothing}, + New FilterTimeframe() With {.Name = "Eigener", .CustomFilter = True, .[To] = Date.Now, .From = Date.Now}, + New FilterTimeframe() With { + .Name = "letzte 7 Tage", + .From = Date.Now.Subtract(TimeSpan.FromDays(7)) + }, + New FilterTimeframe() With { + .Name = "letzte 14 Tage", + .From = Date.Now.Subtract(TimeSpan.FromDays(14)) + }, + New FilterTimeframe() With { + .Name = "letzte 30 Tage", + .From = Date.Now.Subtract(TimeSpan.FromDays(30)) + }, + New FilterTimeframe() With { + .Name = "aktueller Monat", + .From = New Date(Now.Year, Now.Month, 1) + } + } + + Public Class FilterTimeframe + Public Property Name As String + Public Property From As Date + Public Property [To] As Date = Date.Now + Public Property DisableFilter As Boolean = False + Public Property CustomFilter As Boolean = False + + Public Overrides Function ToString() As String + Return Name.ToString + End Function + End Class + End Class + +End Namespace \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/Test/frmSearchNeu.Designer.vb b/GUIs.ZooFlow/Search/Test/frmSearchNeu.Designer.vb new file mode 100644 index 0000000..d5428ae --- /dev/null +++ b/GUIs.ZooFlow/Search/Test/frmSearchNeu.Designer.vb @@ -0,0 +1,320 @@ +Imports DevExpress.XtraEditors +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid + + +Partial Class frmSearchNeu + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.NavBarControl1 = New DevExpress.XtraNavBar.NavBarControl() + Me.NavBarGroup1 = New DevExpress.XtraNavBar.NavBarGroup() + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.SplitContainerControl2 = New DevExpress.XtraEditors.SplitContainerControl() + Me.SplitContainerControl3 = New DevExpress.XtraEditors.SplitContainerControl() + Me.Button1 = New System.Windows.Forms.Button() + Me.cmbSelect = New DevExpress.XtraEditors.ComboBoxEdit() + Me.SearchControl2 = New DevExpress.XtraEditors.TokenEdit() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colParenLeft = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colAttribute = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colOperator = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colValue = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colParenRight = New DevExpress.XtraGrid.Columns.GridColumn() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.SuspendLayout() + CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl2.SuspendLayout() + CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl3.SuspendLayout() + CType(Me.cmbSelect.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SearchControl2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'NavBarControl1 + ' + Me.NavBarControl1.ActiveGroup = Me.NavBarGroup1 + Me.NavBarControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.NavBarControl1.Groups.AddRange(New DevExpress.XtraNavBar.NavBarGroup() {Me.NavBarGroup1}) + Me.NavBarControl1.Location = New System.Drawing.Point(0, 0) + Me.NavBarControl1.Name = "NavBarControl1" + Me.NavBarControl1.OptionsNavPane.ExpandedWidth = 163 + Me.NavBarControl1.Size = New System.Drawing.Size(163, 193) + Me.NavBarControl1.TabIndex = 4 + Me.NavBarControl1.Text = "NavBarControl1" + ' + 'NavBarGroup1 + ' + Me.NavBarGroup1.Caption = "NavBarGroup1" + Me.NavBarGroup1.Expanded = True + Me.NavBarGroup1.Name = "NavBarGroup1" + ' + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + Me.SplitContainerControl1.Panel1.Controls.Add(Me.NavBarControl1) + Me.SplitContainerControl1.Panel1.Text = "Panel1" + Me.SplitContainerControl1.Panel2.Text = "Panel2" + Me.SplitContainerControl1.Size = New System.Drawing.Size(984, 193) + Me.SplitContainerControl1.SplitterPosition = 163 + Me.SplitContainerControl1.TabIndex = 7 + ' + 'SplitContainerControl2 + ' + Me.SplitContainerControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl2.Horizontal = False + Me.SplitContainerControl2.Location = New System.Drawing.Point(0, 94) + Me.SplitContainerControl2.Name = "SplitContainerControl2" + Me.SplitContainerControl2.Panel1.Controls.Add(Me.SplitContainerControl3) + Me.SplitContainerControl2.Panel1.Text = "Panel1" + Me.SplitContainerControl2.Panel2.Controls.Add(Me.SplitContainerControl1) + Me.SplitContainerControl2.Panel2.Text = "Panel2" + Me.SplitContainerControl2.Size = New System.Drawing.Size(984, 493) + Me.SplitContainerControl2.SplitterPosition = 290 + Me.SplitContainerControl2.TabIndex = 8 + ' + 'SplitContainerControl3 + ' + Me.SplitContainerControl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl3.Horizontal = False + Me.SplitContainerControl3.IsSplitterFixed = True + Me.SplitContainerControl3.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl3.Name = "SplitContainerControl3" + Me.SplitContainerControl3.Panel1.Controls.Add(Me.Button1) + Me.SplitContainerControl3.Panel1.Controls.Add(Me.cmbSelect) + Me.SplitContainerControl3.Panel1.Controls.Add(Me.SearchControl2) + Me.SplitContainerControl3.Panel1.Text = "Panel1" + Me.SplitContainerControl3.Panel2.Controls.Add(Me.GridControl1) + Me.SplitContainerControl3.Panel2.Text = "Panel2" + Me.SplitContainerControl3.Size = New System.Drawing.Size(984, 290) + Me.SplitContainerControl3.SplitterPosition = 55 + Me.SplitContainerControl3.TabIndex = 9 + ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(886, 6) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(95, 44) + Me.Button1.TabIndex = 5 + Me.Button1.Text = "Suchen" + Me.Button1.UseVisualStyleBackColor = True + ' + 'cmbSelect + ' + Me.cmbSelect.Location = New System.Drawing.Point(3, 6) + Me.cmbSelect.Name = "cmbSelect" + Me.cmbSelect.Properties.Appearance.BackColor = System.Drawing.Color.Transparent + Me.cmbSelect.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmbSelect.Properties.Appearance.Options.UseBackColor = True + Me.cmbSelect.Properties.Appearance.Options.UseFont = True + Me.cmbSelect.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Simple + Me.cmbSelect.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmbSelect.Properties.Items.AddRange(New Object() {"Alle", "Belege", "Rechnungen", "Lieferscheine", "Aufträge", "Angebote", "Kunde Schaum", "Kunde medacom"}) + Me.cmbSelect.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.DisableTextEditor + Me.cmbSelect.Size = New System.Drawing.Size(113, 44) + Me.cmbSelect.TabIndex = 4 + ' + 'SearchControl2 + ' + Me.SearchControl2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.SearchControl2.Location = New System.Drawing.Point(115, 6) + Me.SearchControl2.Name = "SearchControl2" + Me.SearchControl2.Properties.Appearance.BackColor = System.Drawing.Color.Transparent + Me.SearchControl2.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SearchControl2.Properties.Appearance.Options.UseBackColor = True + Me.SearchControl2.Properties.Appearance.Options.UseFont = True + Me.SearchControl2.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Simple + Me.SearchControl2.Properties.EditMode = DevExpress.XtraEditors.TokenEditMode.Manual + Me.SearchControl2.Properties.EditValueType = DevExpress.XtraEditors.TokenEditValueType.List + Me.SearchControl2.Properties.PopupFilterMode = DevExpress.XtraEditors.TokenEditPopupFilterMode.Contains + Me.SearchControl2.Properties.Separators.AddRange(New String() {",", "-", "ODER", "OR", "AND", "UND"}) + Me.SearchControl2.Size = New System.Drawing.Size(772, 44) + Me.SearchControl2.TabIndex = 3 + ' + 'GridControl1 + ' + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl1.Location = New System.Drawing.Point(0, 0) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(984, 225) + Me.GridControl1.TabIndex = 8 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'GridView1 + ' + Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colParenLeft, Me.colAttribute, Me.colOperator, Me.colValue, Me.colParenRight}) + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + ' + 'colParenLeft + ' + Me.colParenLeft.Caption = "(" + Me.colParenLeft.FieldName = "ParentLeft" + Me.colParenLeft.Name = "colParenLeft" + Me.colParenLeft.Visible = True + Me.colParenLeft.VisibleIndex = 0 + ' + 'colAttribute + ' + Me.colAttribute.Caption = "Attribut" + Me.colAttribute.FieldName = "Key" + Me.colAttribute.Name = "colAttribute" + Me.colAttribute.Visible = True + Me.colAttribute.VisibleIndex = 1 + ' + 'colOperator + ' + Me.colOperator.Caption = "Operand" + Me.colOperator.FieldName = "Op" + Me.colOperator.Name = "colOperator" + Me.colOperator.Visible = True + Me.colOperator.VisibleIndex = 2 + ' + 'colValue + ' + Me.colValue.Caption = "Wert" + Me.colValue.FieldName = "Value" + Me.colValue.Name = "colValue" + Me.colValue.Visible = True + Me.colValue.VisibleIndex = 3 + ' + 'colParenRight + ' + Me.colParenRight.Caption = ")" + Me.colParenRight.FieldName = "ParenRight" + Me.colParenRight.Name = "colParenRight" + Me.colParenRight.Visible = True + Me.colParenRight.VisibleIndex = 4 + ' + 'RibbonControl1 + ' + Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 2 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.Size = New System.Drawing.Size(984, 94) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "BarButtonItem1" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + 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, 587) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(984, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'frmSearchNeu + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(984, 609) + Me.Controls.Add(Me.SplitContainerControl2) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmSearchNeu" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "frmSearchNeu" + CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl2.ResumeLayout(False) + CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl3.ResumeLayout(False) + CType(Me.cmbSelect.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SearchControl2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents NavBarControl1 As DevExpress.XtraNavBar.NavBarControl + Friend WithEvents NavBarGroup1 As DevExpress.XtraNavBar.NavBarGroup + Friend WithEvents SplitContainerControl1 As SplitContainerControl + Friend WithEvents SplitContainerControl2 As SplitContainerControl + Friend WithEvents SplitContainerControl3 As SplitContainerControl + Friend WithEvents GridControl1 As GridControl + Friend WithEvents GridView1 As GridView + 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 BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents colParenLeft As Columns.GridColumn + Friend WithEvents colAttribute As Columns.GridColumn + Friend WithEvents colOperator As Columns.GridColumn + Friend WithEvents colValue As Columns.GridColumn + Friend WithEvents colParenRight As Columns.GridColumn + Friend WithEvents Button1 As Button + Friend WithEvents cmbSelect As ComboBoxEdit + Friend WithEvents SearchControl2 As TokenEdit +End Class diff --git a/GUIs.ZooFlow/Search/Test/frmSearchNeu.resx b/GUIs.ZooFlow/Search/Test/frmSearchNeu.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/GUIs.ZooFlow/Search/Test/frmSearchNeu.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/Test/frmSearchNeu.vb b/GUIs.ZooFlow/Search/Test/frmSearchNeu.vb new file mode 100644 index 0000000..01c9012 --- /dev/null +++ b/GUIs.ZooFlow/Search/Test/frmSearchNeu.vb @@ -0,0 +1,121 @@ +Imports System.Collections +Imports System.ComponentModel +Imports DevExpress.XtraEditors +Imports DigitalData.GUIs.ZooFlow.Search +Imports DigitalData.GUIs.ZooFlow.Search.SearchToken +Imports DigitalData.Modules.EDMI.API + +Public Class frmSearchNeu + Private Database As DatabaseWithFallback + + Private TokenListDefault As New Dictionary(Of String, Object) + Private TokenListOperands As New Dictionary(Of String, Object) + Private TokenListAttrValues As New Dictionary(Of String, Object) + + + + Private Sub XtraForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Database = New DatabaseWithFallback(My.LogConfig, My.Application.Service.Client, My.DatabaseECM, My.DatabaseIDB) + + 'Dim oTokens = Search.GetAttributeTokens() + 'AddTokens(SearchControl2, oTokens) + + 'GridControl1.DataSource = Search.Query + 'cmbSelect.SelectedIndex = 0 + End Sub + + Private Sub SetTokens(Editor As TokenEdit, Tokens As Dictionary(Of String, Object)) + Editor.Properties.Tokens.Clear() + AddTokens(Editor, Tokens) + End Sub + + Private Sub AddTokens(Editor As TokenEdit, Tokens As Dictionary(Of String, Object)) + For Each oToken In Tokens + Dim oTokenEditToken = New TokenEditToken With { + .Description = oToken.Key, + .Value = oToken.Value + } + Editor.Properties.Tokens.Add(oTokenEditToken) + Next + End Sub + + Private Sub SearchControl2_Properties_TokenAdded(sender As Object, e As DevExpress.XtraEditors.TokenEditTokenAddedEventArgs) Handles SearchControl2.Properties.TokenAdded + Dim oEditor As TokenEdit = sender + SetNewTokens(oEditor) + End Sub + + Private Sub SearchControl2_Properties_TokenRemoved(sender As Object, e As TokenEditTokenRemovedEventArgs) Handles SearchControl2.Properties.TokenRemoved + Dim oEditor As TokenEdit = sender + SetNewTokens(oEditor) + End Sub + + Private Sub SetNewTokens(pEditor As TokenEdit) + 'Dim oLastToken = pEditor.GetTokenList().LastOrDefault() + 'pEditor.Properties.BeginUpdate() + + 'If oLastToken IsNot Nothing Then + ' Select Case oLastToken.Value.GetType + + ' Case GetType(AttributeKeyToken) + ' ' After the attribute key comes an operator + ' SetTokens(pEditor, Search.GetOperatorTokens(GetType(String))) + ' Search.InputMode = InputMode.Operator + + ' Case GetType(AttributeOperatorToken) + ' ' After the attribute operator comes a value + ' SetTokens(pEditor, TokenListAttrValues) + ' Search.InputMode = InputMode.Value + + ' Case GetType(AttributeValueToken) + ' ' After the attribute value comes another value + ' SetTokens(pEditor, TokenListAttrValues) + ' Search.InputMode = InputMode.Value + + ' Case Else + ' SetTokens(pEditor, TokenListDefault) + ' Search.InputMode = InputMode.Default + + ' End Select + 'Else + ' SetTokens(pEditor, TokenListDefault) + ' Search.InputMode = InputMode.Default + 'End If + + 'pEditor.Properties.EndUpdate() + End Sub + + Private Sub SearchControl2_CustomDrawTokenGlyph(sender As Object, e As TokenEditCustomDrawTokenGlyphEventArgs) Handles SearchControl2.CustomDrawTokenGlyph + '' Set Background according to token type + 'Select Case e.Value.GetType() + ' Case GetType(AttributeKeyToken) + ' e.Graphics.FillRectangle(New SolidBrush(ColorTranslator.FromHtml("#F87171")), e.Bounds) + + ' Case GetType(AttributeOperatorToken) + ' e.Graphics.FillRectangle(New SolidBrush(ColorTranslator.FromHtml("#34D399")), e.Bounds) + + ' Case GetType(AttributeValueToken) + ' e.Graphics.FillRectangle(New SolidBrush(ColorTranslator.FromHtml("#60A5FA")), e.Bounds) + ' Case Else + 'End Select + + '' Draw the glyph on top + '' This fixes: https://supportcenter.devexpress.com/ticket/details/t215578/tokenedit-glyph-is-not-visible-when-customdrawtokentext-is-used + 'e.DefaultDraw() + End Sub + + Private Sub SearchControl2_KeyUp(sender As Object, e As KeyEventArgs) Handles SearchControl2.KeyUp + 'If Search.InputMode = InputMode.Value And e.KeyCode = Keys.Enter And SearchControl2.IsPopupOpen Then + ' Search.Query.Add(New SearchCriteria With { + ' .ParenLeft = False, + ' .Key = "test", + ' .Op = OperatorToken.Equals, + ' .Value = "test", + ' .ParentRight = False + ' }) + 'End If + End Sub + + Private Sub RibbonControl1_Click(sender As Object, e As EventArgs) Handles RibbonControl1.Click + + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/TokenEditEx.vb b/GUIs.ZooFlow/Search/TokenEditEx.vb new file mode 100644 index 0000000..27ef7d9 --- /dev/null +++ b/GUIs.ZooFlow/Search/TokenEditEx.vb @@ -0,0 +1,89 @@ +Imports System.ComponentModel +Imports DevExpress.XtraEditors +Imports DevExpress.XtraEditors.Drawing +Imports DevExpress.XtraEditors.Registrator +Imports DevExpress.XtraEditors.Repository +Imports DevExpress.XtraEditors.ViewInfo + +Public Class RepositoryItemTokenEditEx + Inherits RepositoryItemTokenEdit + + ' The unique name for the custom editor + Public Const CustomEditName As String = "TokenEditEx" + + Shared Sub New() + RegisterTokenEditEx() + End Sub + + ' Return the unique name + Public Overrides ReadOnly Property EditorTypeName() As String + Get + Return CustomEditName + End Get + End Property + + Public Shared Sub RegisterTokenEditEx() + EditorRegistrationInfo.Default.Editors.Add( + New EditorClassInfo(CustomEditName, + GetType(TokenEditEx), + GetType(RepositoryItemTokenEditEx), + GetType(TokenEditViewInfoEx), + New TokenEditPainter, + True)) + End Sub +End Class + +Public Class TokenEditViewInfoEx + Inherits TokenEditViewInfo + + Const InnerMargin = 3 + + Public Sub New(item As RepositoryItem) + MyBase.New(item) + End Sub + + Protected Overrides ReadOnly Property IndentBetweenItems As Integer + Get + Return InnerMargin + End Get + End Property + + Protected Overrides ReadOnly Property ContentRectMargin As Integer + Get + Return InnerMargin + End Get + End Property + + Protected Overrides ReadOnly Property IndentBetweenRows As Integer + Get + Return InnerMargin + End Get + End Property + + +End Class + + + +Public Class TokenEditEx + Inherits TokenEdit + + Shared Sub New() + RepositoryItemTokenEditEx.RegisterTokenEditEx() + End Sub + + + + Public Overrides ReadOnly Property EditorTypeName() As String + Get + Return RepositoryItemTokenEditEx.CustomEditName + End Get + End Property + + + Public Shadows ReadOnly Property Properties As RepositoryItemTokenEditEx + Get + Return TryCast(MyBase.Properties, RepositoryItemTokenEditEx) + End Get + End Property +End Class diff --git a/GUIs.ZooFlow/Search/frmEditSearch.Designer.vb b/GUIs.ZooFlow/Search/frmEditSearch.Designer.vb new file mode 100644 index 0000000..60b93e3 --- /dev/null +++ b/GUIs.ZooFlow/Search/frmEditSearch.Designer.vb @@ -0,0 +1,232 @@ + _ +Partial Class frmEditSearch + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.ImageComboBoxEdit1 = New DevExpress.XtraEditors.ImageComboBoxEdit() + Me.TextEdit2 = New DevExpress.XtraEditors.MemoEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components) + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ImageComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green + Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 2 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowDisplayOptionsMenuButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.Size = New System.Drawing.Size(422, 63) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Speichern" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 301) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(422, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.TextEdit1) + Me.LayoutControl1.Controls.Add(Me.ImageComboBoxEdit1) + Me.LayoutControl1.Controls.Add(Me.TextEdit2) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 63) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(422, 238) + Me.LayoutControl1.TabIndex = 2 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'TextEdit1 + ' + Me.TextEdit1.Location = New System.Drawing.Point(96, 20) + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Size = New System.Drawing.Size(306, 20) + Me.TextEdit1.StyleController = Me.LayoutControl1 + Me.TextEdit1.TabIndex = 4 + ' + 'ImageComboBoxEdit1 + ' + Me.ImageComboBoxEdit1.Location = New System.Drawing.Point(96, 198) + Me.ImageComboBoxEdit1.MenuManager = Me.RibbonControl1 + Me.ImageComboBoxEdit1.Name = "ImageComboBoxEdit1" + Me.ImageComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.ImageComboBoxEdit1.Size = New System.Drawing.Size(306, 20) + Me.ImageComboBoxEdit1.StyleController = Me.LayoutControl1 + Me.ImageComboBoxEdit1.TabIndex = 6 + ' + 'TextEdit2 + ' + Me.TextEdit2.Location = New System.Drawing.Point(96, 60) + Me.TextEdit2.MenuManager = Me.RibbonControl1 + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.Size = New System.Drawing.Size(306, 118) + Me.TextEdit2.StyleController = Me.LayoutControl1 + Me.TextEdit2.TabIndex = 5 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(422, 238) + Me.Root.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.TextEdit1 + 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(402, 40) + Me.LayoutControlItem1.Text = "Titel" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(64, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.TextEdit2 + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 40) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem2.Size = New System.Drawing.Size(402, 138) + Me.LayoutControlItem2.Text = "Beschreibung" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(64, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.ImageComboBoxEdit1 + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 178) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem3.Size = New System.Drawing.Size(402, 40) + Me.LayoutControlItem3.Text = "Icon" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(64, 13) + ' + 'SvgImageCollection1 + ' + Me.SvgImageCollection1.Add("today", "image://svgimages/scheduling/dayview.svg") + Me.SvgImageCollection1.Add("month", "image://svgimages/scheduling/monthview.svg") + Me.SvgImageCollection1.Add("week", "image://svgimages/scheduling/next7days.svg") + Me.SvgImageCollection1.Add("year", "image://svgimages/scheduling/groupbynone.svg") + Me.SvgImageCollection1.Add("yesterday", "image://svgimages/scheduling/today.svg") + Me.SvgImageCollection1.Add("invoice", "image://svgimages/business objects/bo_invoice.svg") + ' + 'frmEditSearch + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(422, 325) + Me.Controls.Add(Me.LayoutControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmEditSearch" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "frmEditSearch" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ImageComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents ImageComboBoxEdit1 As DevExpress.XtraEditors.ImageComboBoxEdit + Friend WithEvents TextEdit2 As DevExpress.XtraEditors.MemoEdit + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection +End Class diff --git a/GUIs.ZooFlow/Search/frmEditSearch.resx b/GUIs.ZooFlow/Search/frmEditSearch.resx new file mode 100644 index 0000000..f722219 --- /dev/null +++ b/GUIs.ZooFlow/Search/frmEditSearch.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/frmEditSearch.vb b/GUIs.ZooFlow/Search/frmEditSearch.vb new file mode 100644 index 0000000..6877887 --- /dev/null +++ b/GUIs.ZooFlow/Search/frmEditSearch.vb @@ -0,0 +1,48 @@ +Imports DevExpress.Utils +Imports DevExpress.Utils.Svg + +Public Class frmEditSearch + Public ReadOnly Property Images As SvgImageCollection + Get + Return SvgImageCollection1 + End Get + End Property + + Public Property IsNew As Boolean = False + + Public Property Title As String = "" + Public Property Description As String = "" + Public Property ImageString As String = "" + Public Property Image As SvgImage = Nothing + + Private Sub frmEditSearch_Load(sender As Object, e As EventArgs) Handles Me.Load + If IsNew Then + Text = "Neue Suche" + Else + Text = "Suche bearbeiten" + End If + + For Each oImage As SvgImageInfo In Images.ImageInfos + Dim oItem = New DevExpress.XtraEditors.Controls.ImageComboBoxItem(oImage.Name, oImage.Bitmap) + ImageComboBoxEdit1.Properties.Items.Add(oItem) + Next + End Sub + + Private Sub TextEdit1_EditValueChanged(sender As Object, e As EventArgs) Handles TextEdit1.EditValueChanged + Title = TextEdit1.EditValue + End Sub + + Private Sub TextEdit2_EditValueChanged(sender As Object, e As EventArgs) Handles TextEdit2.EditValueChanged + Description = TextEdit2.EditValue + End Sub + + Private Sub ImageComboBoxEdit1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ImageComboBoxEdit1.SelectedIndexChanged + ImageString = ImageComboBoxEdit1.Text + 'Image = ImageComboBoxEdit1.EditValue + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + DialogResult = DialogResult.OK + Close() + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/frmSearchFlow.Designer.vb b/GUIs.ZooFlow/Search/frmSearchFlow.Designer.vb new file mode 100644 index 0000000..a8daaef --- /dev/null +++ b/GUIs.ZooFlow/Search/frmSearchFlow.Designer.vb @@ -0,0 +1,759 @@ + +Partial Class frmSearchFlow + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim ItemTemplate2 As DevExpress.XtraGrid.Views.Tile.ItemTemplate = New DevExpress.XtraGrid.Views.Tile.ItemTemplate() + Dim TableColumnDefinition5 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() + Dim TableColumnDefinition6 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() + Dim TileViewItemElement6 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() + Dim TileViewItemElement7 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() + Dim TableRowDefinition4 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TableColumnDefinition7 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() + Dim TableColumnDefinition8 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition() + Dim TableRowDefinition5 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TableRowDefinition6 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition() + Dim TileViewItemElement8 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() + Dim TileViewItemElement9 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() + Dim TileViewItemElement10 As DevExpress.XtraGrid.Views.Tile.TileViewItemElement = New DevExpress.XtraGrid.Views.Tile.TileViewItemElement() + Me.colName = New DevExpress.XtraGrid.Columns.TileViewColumn() + Me.colImage = New DevExpress.XtraGrid.Columns.TileViewColumn() + Me.colDescription = New DevExpress.XtraGrid.Columns.TileViewColumn() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.lblResults = New DevExpress.XtraBars.BarStaticItem() + Me.chkOperatorAnd = New DevExpress.XtraBars.BarCheckItem() + Me.chkOperatorOr = New DevExpress.XtraBars.BarCheckItem() + Me.chkDatefilter2 = New DevExpress.XtraBars.BarCheckItem() + Me.BarCheckItem4 = New DevExpress.XtraBars.BarCheckItem() + Me.chkSearchEverywhere = New DevExpress.XtraBars.BarCheckItem() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.btnSaveSearch = New DevExpress.XtraBars.BarButtonItem() + Me.chkGridVertical = New DevExpress.XtraBars.BarCheckItem() + Me.chkGridHorizontal = New DevExpress.XtraBars.BarCheckItem() + Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem() + Me.RepositoryItemTrackBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemTrackBar() + Me.BarEditItem2 = New DevExpress.XtraBars.BarEditItem() + Me.RepositoryItemTrackBar2 = New DevExpress.XtraEditors.Repository.RepositoryItemTrackBar() + Me.BarCheckItem1 = New DevExpress.XtraBars.BarCheckItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup5 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RepositoryItemMarqueeProgressBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemMarqueeProgressBar() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.PanelControl1 = New DevExpress.XtraEditors.PanelControl() + Me.PanelControl2 = New DevExpress.XtraEditors.PanelControl() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.txtSearchInput = New DigitalData.GUIs.ZooFlow.TokenEditEx() + Me.GridSearches = New DevExpress.XtraGrid.GridControl() + Me.ViewSearches = New DevExpress.XtraGrid.Views.Tile.TileView() + Me.colGroupText = New DevExpress.XtraGrid.Columns.TileViewColumn() + Me.colSelected = New DevExpress.XtraGrid.Columns.TileViewColumn() + Me.DateEditFrom = New DevExpress.XtraEditors.DateEdit() + Me.DateEditTo = New DevExpress.XtraEditors.DateEdit() + Me.CheckEdit1 = New DevExpress.XtraEditors.ToggleSwitch() + Me.ComboBoxDateAttributes = New DevExpress.XtraEditors.ComboBoxEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlGroupDate2 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlGroup3 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components) + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemTrackBar1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemTrackBar2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemMarqueeProgressBar1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.PanelControl1.SuspendLayout() + CType(Me.PanelControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.PanelControl2.SuspendLayout() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.txtSearchInput.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridSearches, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ViewSearches, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DateEditFrom.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DateEditFrom.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DateEditTo.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DateEditTo.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ComboBoxDateAttributes.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroupDate2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'colName + ' + Me.colName.Caption = "Name" + Me.colName.FieldName = "DisplayName" + Me.colName.Name = "colName" + Me.colName.Visible = True + Me.colName.VisibleIndex = 0 + ' + 'colImage + ' + Me.colImage.Caption = "Image" + Me.colImage.FieldName = "Image" + Me.colImage.Name = "colImage" + Me.colImage.Visible = True + Me.colImage.VisibleIndex = 2 + ' + 'colDescription + ' + Me.colDescription.Caption = "Beschreibung" + Me.colDescription.FieldName = "Description" + Me.colDescription.Name = "colDescription" + Me.colDescription.Visible = True + Me.colDescription.VisibleIndex = 1 + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.lblResults, Me.chkOperatorAnd, Me.chkOperatorOr, Me.chkDatefilter2, Me.BarCheckItem4, Me.chkSearchEverywhere, Me.BarButtonItem1, Me.BarButtonItem2, Me.btnSaveSearch, Me.chkGridVertical, Me.chkGridHorizontal, Me.BarEditItem1, Me.BarEditItem2, Me.BarCheckItem1}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 30 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage3}) + Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemMarqueeProgressBar1, Me.RepositoryItemTrackBar1, Me.RepositoryItemTrackBar2}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowDisplayOptionsMenuButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Show + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.Size = New System.Drawing.Size(954, 160) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False + ' + 'lblResults + ' + Me.lblResults.Caption = "Noch keine Ergebnisse" + Me.lblResults.Id = 2 + Me.lblResults.ItemAppearance.Normal.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblResults.ItemAppearance.Normal.Options.UseFont = True + Me.lblResults.Name = "lblResults" + ' + 'chkOperatorAnd + ' + Me.chkOperatorAnd.BindableChecked = True + Me.chkOperatorAnd.Caption = "UND Verknüpfung" + Me.chkOperatorAnd.Checked = True + Me.chkOperatorAnd.GroupIndex = 1 + Me.chkOperatorAnd.Id = 16 + Me.chkOperatorAnd.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.link3 + Me.chkOperatorAnd.Name = "chkOperatorAnd" + Me.chkOperatorAnd.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'chkOperatorOr + ' + Me.chkOperatorOr.Caption = "ODER Verknüpfung" + Me.chkOperatorOr.GroupIndex = 1 + Me.chkOperatorOr.Id = 17 + Me.chkOperatorOr.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.unlink1 + Me.chkOperatorOr.Name = "chkOperatorOr" + Me.chkOperatorOr.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'chkDatefilter2 + ' + Me.chkDatefilter2.Caption = "Datumsfilter anzeigen" + Me.chkDatefilter2.Id = 18 + Me.chkDatefilter2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_calendar1 + Me.chkDatefilter2.Name = "chkDatefilter2" + ' + 'BarCheckItem4 + ' + Me.BarCheckItem4.Caption = "Volltext durchsuchen" + Me.BarCheckItem4.Enabled = False + Me.BarCheckItem4.Id = 19 + Me.BarCheckItem4.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.viewmergeddata1 + Me.BarCheckItem4.Name = "BarCheckItem4" + ' + 'chkSearchEverywhere + ' + Me.chkSearchEverywhere.Caption = "Prozessübergreifend suchen" + Me.chkSearchEverywhere.Id = 20 + Me.chkSearchEverywhere.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.bo_category1 + Me.chkSearchEverywhere.Name = "chkSearchEverywhere" + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Suchen" + Me.BarButtonItem1.Id = 21 + Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.enablesearch + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Zurücksetzen" + Me.BarButtonItem2.Id = 22 + Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.undo + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'btnSaveSearch + ' + Me.btnSaveSearch.Caption = "Aktuelle Suche speichern" + Me.btnSaveSearch.Id = 23 + Me.btnSaveSearch.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.bo_security_permission_action + Me.btnSaveSearch.Name = "btnSaveSearch" + ' + 'chkGridVertical + ' + Me.chkGridVertical.Caption = "Gruppen vertikal" + Me.chkGridVertical.GroupIndex = 1 + Me.chkGridVertical.Id = 24 + Me.chkGridVertical.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.alignverticalcenter + Me.chkGridVertical.Name = "chkGridVertical" + ' + 'chkGridHorizontal + ' + Me.chkGridHorizontal.Caption = "Gruppen horizontal" + Me.chkGridHorizontal.GroupIndex = 1 + Me.chkGridHorizontal.Id = 25 + Me.chkGridHorizontal.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.alignhorizontalcenter + Me.chkGridHorizontal.Name = "chkGridHorizontal" + ' + 'BarEditItem1 + ' + Me.BarEditItem1.Caption = "Zeilen" + Me.BarEditItem1.Edit = Me.RepositoryItemTrackBar1 + Me.BarEditItem1.Id = 26 + Me.BarEditItem1.Name = "BarEditItem1" + ' + 'RepositoryItemTrackBar1 + ' + Me.RepositoryItemTrackBar1.LabelAppearance.Options.UseTextOptions = True + Me.RepositoryItemTrackBar1.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.RepositoryItemTrackBar1.Maximum = 5 + Me.RepositoryItemTrackBar1.Name = "RepositoryItemTrackBar1" + ' + 'BarEditItem2 + ' + Me.BarEditItem2.Caption = "BarEditItem2" + Me.BarEditItem2.Edit = Me.RepositoryItemTrackBar2 + Me.BarEditItem2.Id = 27 + Me.BarEditItem2.Name = "BarEditItem2" + ' + 'RepositoryItemTrackBar2 + ' + Me.RepositoryItemTrackBar2.LabelAppearance.Options.UseTextOptions = True + Me.RepositoryItemTrackBar2.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.RepositoryItemTrackBar2.Maximum = 5 + Me.RepositoryItemTrackBar2.Name = "RepositoryItemTrackBar2" + ' + 'BarCheckItem1 + ' + Me.BarCheckItem1.Caption = "Kanban Ansicht" + Me.BarCheckItem1.Id = 28 + Me.BarCheckItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.columnheaders + Me.BarCheckItem1.Name = "BarCheckItem1" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup5}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Suche" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Allgemein" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarCheckItem4) + Me.RibbonPageGroup2.ItemLinks.Add(Me.chkSearchEverywhere) + Me.RibbonPageGroup2.ItemLinks.Add(Me.chkDatefilter2) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "Sucheinstellungen" + ' + 'RibbonPageGroup5 + ' + Me.RibbonPageGroup5.Enabled = False + Me.RibbonPageGroup5.ItemLinks.Add(Me.chkOperatorAnd) + Me.RibbonPageGroup5.ItemLinks.Add(Me.chkOperatorOr) + Me.RibbonPageGroup5.Name = "RibbonPageGroup5" + Me.RibbonPageGroup5.Text = "Begriffsverknüpfung" + ' + 'RibbonPage3 + ' + Me.RibbonPage3.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3}) + Me.RibbonPage3.Name = "RibbonPage3" + Me.RibbonPage3.Text = "Layout" + ' + 'RibbonPageGroup3 + ' + Me.RibbonPageGroup3.ItemLinks.Add(Me.chkGridVertical) + Me.RibbonPageGroup3.ItemLinks.Add(Me.chkGridHorizontal) + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarCheckItem1) + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarEditItem1) + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarEditItem2) + Me.RibbonPageGroup3.Name = "RibbonPageGroup3" + Me.RibbonPageGroup3.Text = "RibbonPageGroup3" + ' + 'RepositoryItemMarqueeProgressBar1 + ' + Me.RepositoryItemMarqueeProgressBar1.Name = "RepositoryItemMarqueeProgressBar1" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.BackColor = System.Drawing.Color.Red + Me.RibbonStatusBar1.ItemLinks.Add(Me.lblResults) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 674) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(954, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'PanelControl1 + ' + Me.PanelControl1.Controls.Add(Me.PanelControl2) + Me.PanelControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.PanelControl1.Location = New System.Drawing.Point(0, 160) + Me.PanelControl1.Name = "PanelControl1" + Me.PanelControl1.Padding = New System.Windows.Forms.Padding(30) + Me.PanelControl1.Size = New System.Drawing.Size(954, 514) + Me.PanelControl1.TabIndex = 3 + ' + 'PanelControl2 + ' + Me.PanelControl2.Controls.Add(Me.LayoutControl1) + Me.PanelControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.PanelControl2.Location = New System.Drawing.Point(32, 32) + Me.PanelControl2.Margin = New System.Windows.Forms.Padding(0) + Me.PanelControl2.Name = "PanelControl2" + Me.PanelControl2.Size = New System.Drawing.Size(890, 450) + Me.PanelControl2.TabIndex = 3 + ' + 'LayoutControl1 + ' + Me.LayoutControl1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) + Me.LayoutControl1.Controls.Add(Me.txtSearchInput) + Me.LayoutControl1.Controls.Add(Me.GridSearches) + Me.LayoutControl1.Controls.Add(Me.DateEditFrom) + Me.LayoutControl1.Controls.Add(Me.DateEditTo) + Me.LayoutControl1.Controls.Add(Me.CheckEdit1) + Me.LayoutControl1.Controls.Add(Me.ComboBoxDateAttributes) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(2, 2) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.OptionsView.GroupStyle = DevExpress.Utils.GroupStyle.Title + Me.LayoutControl1.OptionsView.ItemBorderColor = System.Drawing.Color.Transparent + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(886, 446) + Me.LayoutControl1.TabIndex = 0 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'txtSearchInput + ' + Me.txtSearchInput.Location = New System.Drawing.Point(10, 10) + Me.txtSearchInput.MenuManager = Me.RibbonControl1 + Me.txtSearchInput.Name = "txtSearchInput" + Me.txtSearchInput.Properties.Appearance.BackColor = System.Drawing.Color.White + Me.txtSearchInput.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSearchInput.Properties.Appearance.Options.UseBackColor = True + Me.txtSearchInput.Properties.Appearance.Options.UseFont = True + Me.txtSearchInput.Properties.NullText = "Suchbegriff eingeben.." + Me.txtSearchInput.Properties.PopupFilterMode = DevExpress.XtraEditors.TokenEditPopupFilterMode.Contains + Me.txtSearchInput.Properties.Separators.AddRange(New String() {","}) + Me.txtSearchInput.Properties.ShowDropDownOnClick = DevExpress.Utils.DefaultBoolean.[False] + Me.txtSearchInput.Size = New System.Drawing.Size(866, 44) + Me.txtSearchInput.StyleController = Me.LayoutControl1 + Me.txtSearchInput.TabIndex = 4 + ' + 'GridSearches + ' + Me.GridSearches.Location = New System.Drawing.Point(14, 100) + Me.GridSearches.MainView = Me.ViewSearches + Me.GridSearches.MenuManager = Me.RibbonControl1 + Me.GridSearches.Name = "GridSearches" + Me.GridSearches.Size = New System.Drawing.Size(858, 183) + Me.GridSearches.TabIndex = 1 + Me.GridSearches.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewSearches}) + ' + 'ViewSearches + ' + Me.ViewSearches.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName, Me.colDescription, Me.colImage, Me.colGroupText, Me.colSelected}) + Me.ViewSearches.ColumnSet.CheckedColumn = Me.colSelected + Me.ViewSearches.ColumnSet.GroupColumn = Me.colGroupText + Me.ViewSearches.GridControl = Me.GridSearches + Me.ViewSearches.Name = "ViewSearches" + Me.ViewSearches.OptionsTiles.IndentBetweenGroups = 20 + Me.ViewSearches.OptionsTiles.ItemPadding = New System.Windows.Forms.Padding(10, 4, 10, 4) + Me.ViewSearches.OptionsTiles.ItemSize = New System.Drawing.Size(170, 70) + Me.ViewSearches.OptionsTiles.Orientation = System.Windows.Forms.Orientation.Vertical + Me.ViewSearches.OptionsTiles.RowCount = 2 + Me.ViewSearches.OptionsTiles.VerticalContentAlignment = DevExpress.Utils.VertAlignment.Center + Me.ViewSearches.SortInfo.AddRange(New DevExpress.XtraGrid.Columns.GridColumnSortInfo() {New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.colGroupText, DevExpress.Data.ColumnSortOrder.Ascending)}) + TableColumnDefinition5.Length.Value = 35.0R + TableColumnDefinition5.PaddingRight = 5 + TableColumnDefinition6.Length.Value = 129.0R + ItemTemplate2.Columns.Add(TableColumnDefinition5) + ItemTemplate2.Columns.Add(TableColumnDefinition6) + TileViewItemElement6.Column = Me.colName + TileViewItemElement6.ColumnIndex = 1 + TileViewItemElement6.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement6.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze + TileViewItemElement6.Text = "colName" + TileViewItemElement6.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement7.Column = Me.colImage + TileViewItemElement7.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement7.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze + TileViewItemElement7.Text = "colImage" + TileViewItemElement7.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + ItemTemplate2.Elements.Add(TileViewItemElement6) + ItemTemplate2.Elements.Add(TileViewItemElement7) + ItemTemplate2.Name = "DefaultSmall" + TableRowDefinition4.Length.Value = 43.0R + ItemTemplate2.Rows.Add(TableRowDefinition4) + Me.ViewSearches.Templates.Add(ItemTemplate2) + TableColumnDefinition7.Length.Value = 35.0R + TableColumnDefinition7.PaddingRight = 5 + TableColumnDefinition8.Length.Value = 111.0R + Me.ViewSearches.TileColumns.Add(TableColumnDefinition7) + Me.ViewSearches.TileColumns.Add(TableColumnDefinition8) + TableRowDefinition5.Length.Value = 17.0R + TableRowDefinition6.Length.Value = 45.0R + Me.ViewSearches.TileRows.Add(TableRowDefinition5) + Me.ViewSearches.TileRows.Add(TableRowDefinition6) + TileViewItemElement8.Appearance.Normal.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold) + TileViewItemElement8.Appearance.Normal.Options.UseFont = True + TileViewItemElement8.Column = Me.colName + TileViewItemElement8.ColumnIndex = 1 + TileViewItemElement8.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement8.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze + TileViewItemElement8.Text = "colName" + TileViewItemElement8.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement9.Column = Me.colImage + TileViewItemElement9.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement9.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze + TileViewItemElement9.RowIndex = 1 + TileViewItemElement9.Text = "colImage" + TileViewItemElement9.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement10.Column = Me.colDescription + TileViewItemElement10.ColumnIndex = 1 + TileViewItemElement10.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + TileViewItemElement10.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.Squeeze + TileViewItemElement10.RowIndex = 1 + TileViewItemElement10.Text = "colDescription" + TileViewItemElement10.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + Me.ViewSearches.TileTemplate.Add(TileViewItemElement8) + Me.ViewSearches.TileTemplate.Add(TileViewItemElement9) + Me.ViewSearches.TileTemplate.Add(TileViewItemElement10) + ' + 'colGroupText + ' + Me.colGroupText.Caption = "Gruppe" + Me.colGroupText.FieldName = "GroupText" + Me.colGroupText.Name = "colGroupText" + Me.colGroupText.SortMode = DevExpress.XtraGrid.ColumnSortMode.Custom + Me.colGroupText.Visible = True + Me.colGroupText.VisibleIndex = 3 + ' + 'colSelected + ' + Me.colSelected.Caption = "Selected" + Me.colSelected.FieldName = "Selected" + Me.colSelected.Name = "colSelected" + Me.colSelected.Visible = True + Me.colSelected.VisibleIndex = 4 + ' + 'DateEditFrom + ' + Me.DateEditFrom.EditValue = Nothing + Me.DateEditFrom.Location = New System.Drawing.Point(101, 326) + Me.DateEditFrom.MenuManager = Me.RibbonControl1 + Me.DateEditFrom.Name = "DateEditFrom" + Me.DateEditFrom.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.DateEditFrom.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.DateEditFrom.Size = New System.Drawing.Size(778, 20) + Me.DateEditFrom.StyleController = Me.LayoutControl1 + Me.DateEditFrom.TabIndex = 5 + ' + 'DateEditTo + ' + Me.DateEditTo.EditValue = Nothing + Me.DateEditTo.Location = New System.Drawing.Point(101, 379) + Me.DateEditTo.MenuManager = Me.RibbonControl1 + Me.DateEditTo.Name = "DateEditTo" + Me.DateEditTo.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.DateEditTo.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.DateEditTo.Size = New System.Drawing.Size(778, 20) + Me.DateEditTo.StyleController = Me.LayoutControl1 + Me.DateEditTo.TabIndex = 7 + ' + 'CheckEdit1 + ' + Me.CheckEdit1.Location = New System.Drawing.Point(4, 353) + Me.CheckEdit1.MenuManager = Me.RibbonControl1 + Me.CheckEdit1.Name = "CheckEdit1" + Me.CheckEdit1.Properties.OffText = "Datum bis deaktiviert" + Me.CheckEdit1.Properties.OnText = "Datum bis aktiviert" + Me.CheckEdit1.Size = New System.Drawing.Size(878, 19) + Me.CheckEdit1.StyleController = Me.LayoutControl1 + Me.CheckEdit1.TabIndex = 8 + ' + 'ComboBoxDateAttributes + ' + Me.ComboBoxDateAttributes.Location = New System.Drawing.Point(101, 409) + Me.ComboBoxDateAttributes.MenuManager = Me.RibbonControl1 + Me.ComboBoxDateAttributes.Name = "ComboBoxDateAttributes" + Me.ComboBoxDateAttributes.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.ComboBoxDateAttributes.Size = New System.Drawing.Size(778, 20) + Me.ComboBoxDateAttributes.StyleController = Me.LayoutControl1 + Me.ComboBoxDateAttributes.TabIndex = 9 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroupDate2, Me.LayoutControlGroup3, Me.LayoutControlItem7}) + Me.Root.Name = "Root" + Me.Root.Padding = New DevExpress.XtraLayout.Utils.Padding(0, 0, 0, 0) + Me.Root.Size = New System.Drawing.Size(886, 446) + Me.Root.TextVisible = False + ' + 'LayoutControlGroupDate2 + ' + Me.LayoutControlGroupDate2.AppearanceGroup.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(19, Byte), Integer)) + Me.LayoutControlGroupDate2.AppearanceGroup.BorderColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(19, Byte), Integer)) + Me.LayoutControlGroupDate2.AppearanceGroup.Options.UseBackColor = True + Me.LayoutControlGroupDate2.AppearanceGroup.Options.UseBorderColor = True + Me.LayoutControlGroupDate2.BestFitWeight = 0 + Me.LayoutControlGroupDate2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2, Me.LayoutControlItem4, Me.EmptySpaceItem1, Me.LayoutControlItem6, Me.LayoutControlItem8}) + Me.LayoutControlGroupDate2.Location = New System.Drawing.Point(0, 297) + Me.LayoutControlGroupDate2.Name = "LayoutControlGroupDate2" + Me.LayoutControlGroupDate2.Padding = New DevExpress.XtraLayout.Utils.Padding(0, 0, 0, 0) + Me.LayoutControlGroupDate2.Size = New System.Drawing.Size(886, 149) + Me.LayoutControlGroupDate2.Text = "Eigenes Datum" + Me.LayoutControlGroupDate2.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.DateEditFrom + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem2.Size = New System.Drawing.Size(882, 30) + Me.LayoutControlItem2.Text = "Datum Von" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.DateEditTo + Me.LayoutControlItem4.Enabled = False + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 53) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem4.Size = New System.Drawing.Size(882, 30) + Me.LayoutControlItem4.Text = "Datum Bis" + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(82, 13) + ' + 'EmptySpaceItem1 + ' + Me.EmptySpaceItem1.AllowHotTrack = False + Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 113) + Me.EmptySpaceItem1.Name = "EmptySpaceItem1" + Me.EmptySpaceItem1.Size = New System.Drawing.Size(882, 10) + Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.CheckEdit1 + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 30) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Size = New System.Drawing.Size(882, 23) + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem6.TextVisible = False + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.ComboBoxDateAttributes + Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 83) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem8.Size = New System.Drawing.Size(882, 30) + Me.LayoutControlItem8.Text = "Datums Attribut" + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(82, 13) + ' + 'LayoutControlGroup3 + ' + Me.LayoutControlGroup3.AppearanceGroup.BorderColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(19, Byte), Integer)) + Me.LayoutControlGroup3.AppearanceGroup.Options.UseBorderColor = True + Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem3}) + Me.LayoutControlGroup3.Location = New System.Drawing.Point(0, 64) + Me.LayoutControlGroup3.Name = "LayoutControlGroup3" + Me.LayoutControlGroup3.Size = New System.Drawing.Size(886, 233) + Me.LayoutControlGroup3.Text = "Meine Suchen" + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.GridSearches + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Size = New System.Drawing.Size(862, 187) + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem3.TextVisible = False + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.txtSearchInput + Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem7.Size = New System.Drawing.Size(886, 64) + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem7.TextVisible = False + ' + 'SvgImageCollection1 + ' + Me.SvgImageCollection1.Add("today", "image://svgimages/scheduling/dayview.svg") + Me.SvgImageCollection1.Add("month", "image://svgimages/scheduling/monthview.svg") + Me.SvgImageCollection1.Add("week", "image://svgimages/scheduling/next7days.svg") + Me.SvgImageCollection1.Add("year", "image://svgimages/scheduling/groupbynone.svg") + Me.SvgImageCollection1.Add("yesterday", "image://svgimages/scheduling/today.svg") + Me.SvgImageCollection1.Add("invoice", "image://svgimages/business objects/bo_invoice.svg") + ' + 'frmSearchFlow + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(954, 696) + Me.Controls.Add(Me.PanelControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_CW_DevExpress + Me.Name = "frmSearchFlow" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Search Flow" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemTrackBar1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemTrackBar2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemMarqueeProgressBar1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.PanelControl1.ResumeLayout(False) + CType(Me.PanelControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.PanelControl2.ResumeLayout(False) + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.txtSearchInput.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridSearches, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ViewSearches, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DateEditFrom.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DateEditFrom.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DateEditTo.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DateEditTo.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ComboBoxDateAttributes.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroupDate2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents PanelControl1 As DevExpress.XtraEditors.PanelControl + Friend WithEvents PanelControl2 As DevExpress.XtraEditors.PanelControl + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents GridSearches As DevExpress.XtraGrid.GridControl + Friend WithEvents ViewSearches As DevExpress.XtraGrid.Views.Tile.TileView + Friend WithEvents colName As DevExpress.XtraGrid.Columns.TileViewColumn + Friend WithEvents colDescription As DevExpress.XtraGrid.Columns.TileViewColumn + Friend WithEvents DateEditFrom As DevExpress.XtraEditors.DateEdit + Friend WithEvents LayoutControlGroupDate2 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents DateEditTo As DevExpress.XtraEditors.DateEdit + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents LayoutControlGroup3 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents CheckEdit1 As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents lblResults As DevExpress.XtraBars.BarStaticItem + Friend WithEvents RepositoryItemMarqueeProgressBar1 As DevExpress.XtraEditors.Repository.RepositoryItemMarqueeProgressBar + Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection + Friend WithEvents colImage As DevExpress.XtraGrid.Columns.TileViewColumn + Friend WithEvents txtSearchInput As TokenEditEx + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ComboBoxDateAttributes As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents chkOperatorAnd As DevExpress.XtraBars.BarCheckItem + Friend WithEvents chkOperatorOr As DevExpress.XtraBars.BarCheckItem + Friend WithEvents chkDatefilter2 As DevExpress.XtraBars.BarCheckItem + Friend WithEvents BarCheckItem4 As DevExpress.XtraBars.BarCheckItem + Friend WithEvents chkSearchEverywhere As DevExpress.XtraBars.BarCheckItem + Friend WithEvents RibbonPageGroup5 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents colGroupText As DevExpress.XtraGrid.Columns.TileViewColumn + Friend WithEvents btnSaveSearch As DevExpress.XtraBars.BarButtonItem + Friend WithEvents chkGridVertical As DevExpress.XtraBars.BarCheckItem + Friend WithEvents chkGridHorizontal As DevExpress.XtraBars.BarCheckItem + Friend WithEvents RibbonPage3 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarEditItem1 As DevExpress.XtraBars.BarEditItem + Friend WithEvents RepositoryItemTrackBar1 As DevExpress.XtraEditors.Repository.RepositoryItemTrackBar + Friend WithEvents BarEditItem2 As DevExpress.XtraBars.BarEditItem + Friend WithEvents RepositoryItemTrackBar2 As DevExpress.XtraEditors.Repository.RepositoryItemTrackBar + Friend WithEvents BarCheckItem1 As DevExpress.XtraBars.BarCheckItem + Friend WithEvents colSelected As DevExpress.XtraGrid.Columns.TileViewColumn +End Class diff --git a/GUIs.ZooFlow/Search/frmSearchFlow.resx b/GUIs.ZooFlow/Search/frmSearchFlow.resx new file mode 100644 index 0000000..f722219 --- /dev/null +++ b/GUIs.ZooFlow/Search/frmSearchFlow.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Search/frmSearchFlow.vb b/GUIs.ZooFlow/Search/frmSearchFlow.vb new file mode 100644 index 0000000..d6044eb --- /dev/null +++ b/GUIs.ZooFlow/Search/frmSearchFlow.vb @@ -0,0 +1,396 @@ +Imports DevExpress.LookAndFeel +Imports DevExpress.Skins +Imports DevExpress.Utils.Svg +Imports DevExpress.XtraEditors +Imports DevExpress.XtraEditors.Controls +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Tile +Imports DevExpress.XtraSplashScreen +Imports DigitalData.GUIs.ZooFlow.ClassConstants +Imports DigitalData.GUIs.ZooFlow.SavedSearch +Imports DigitalData.GUIs.ZooFlow.Search +Imports DigitalData.GUIs.ZooFlow.Search.SearchToken +Imports DigitalData.Modules.Language +Imports DigitalData.Modules.Logging + +Public Class frmSearchFlow + Private ReadOnly LogConfig As LogConfig = My.LogConfig + Private ReadOnly Logger = My.LogConfig.GetLogger() + Private SearchLoader As SearchLoader + Private SearchRunner As SearchRunner + + Private TokenTable As DataTable = Nothing + Private FormLoading As Boolean = True + + Private ReadOnly TokenListDefault As New Dictionary(Of String, Object) + Private ReadOnly TokenListOperands As New Dictionary(Of String, Object) + Private ReadOnly TokenListAttrValues As New Dictionary(Of String, Object) + + Private Sub frmFlowSearch2_Load(sender As Object, e As EventArgs) Handles MyBase.Load + SearchLoader = New SearchLoader(My.LogConfig, My.DatabaseIDB, My.Application.User, SvgImageCollection1) + + SearchRunner = New SearchRunner(My.LogConfig, My.Application.GetEnvironment, "FlowSearch") With { + .BaseSearchSQL = SQL_FLOW_SEARCH_BASE + } + + AddHandler SearchRunner.NeedsNewSavedSearch, AddressOf SearchRunner_NewSavedSearch + + TokenTable = GetTokenTable() + ComboBoxDateAttributes.Properties.Items.AddRange(LoadDateAttributes()) + ComboBoxDateAttributes.SelectedIndex = 0 + + GridSearches.DataSource = SearchLoader.LoadSearches() + + Dim oTokens = GetTokensFromTable(Of AttributeValueToken)(TokenTable) + AddTokens(txtSearchInput, oTokens) + + ViewSearches.FocusedRowHandle = GridControl.InvalidRowHandle + + FormLoading = False + + + End Sub + + Private Sub SearchRunner_NewSavedSearch(sender As Object, e As EventArgs) + Dim oForm As New frmEditSearch With {.IsNew = True} + + If oForm.ShowDialog() = DialogResult.OK Then + + ' Get active tokens and create the search + Dim oTokens = SearchRunner.ActiveTokens + SearchLoader.CreateCustomSearch(oForm.Title, oForm.Description, oTokens, oForm.ImageString) + + ' Reload the searches + GridSearches.DataSource = SearchLoader.LoadSearches() + + End If + End Sub + + Public Function GetTokenTable() As DataTable + Dim oSQL = $"EXEC PRIDB_SEARCH_AUTOSUGGEST '{My.Application.User.Language}', {My.Application.User.UserId}" + Dim oTable = My.Database.GetDatatableIDB(oSQL) + Return oTable + End Function + + Public Function GetTokensFromTable(Of T As {New, Token})(pTable As DataTable) As List(Of T) + Try + Dim oTokens As New List(Of T) + Dim oTermValueBlackList As New List(Of String) From {"", " "} + + For Each oRow As DataRow In pTable.Rows + Dim oTermValue = oRow.Item("TERM") + Dim oTermId = oRow.ItemEx("TERM_ID", 0) + Dim oAttributeTitle = oRow.Item("ATTR_TITLE") + Dim oAttributeId = oRow.ItemEx("ATTR_ID", 0) + + If oTermValueBlackList.Contains(oTermValue) Then + Continue For + End If + + oTokens.Add(New T() With { + .AttributeId = oAttributeId, + .AttributeTitle = oAttributeTitle, + .TermId = oTermId, + .TermValue = oTermValue + }) + Next + + Return oTokens. + OrderBy(Function(token) token.TermValue). + Distinct(). + ToList() + + Catch ex As Exception + Logger.error(ex) + Return New List(Of T) + End Try + End Function + + Private Function LoadDateAttributes() As List(Of String) + Try + Dim oAttributes = My.Tables.DTIDB_ATTRIBUTE. + AsEnumerable(). + Where(Function(row) CBool(row.Item("SYS_ATTRIBUTE")) = False). + Where(Function(row) row.Item("TYP_ID") = 5 Or row.Item("TYP_ID") = 6). + Select(Function(row) row.Item("ATTR_TITLE")). + Cast(Of String). + ToList() + + If My.Application.User.Language = "de-DE" Then + oAttributes.Add(IDB_ADDED_WHEN_String_German) + Else + oAttributes.Add(IDB_ADDED_WHEN_String_Englisch) + End If + + Return oAttributes + Catch ex As Exception + Logger.error(ex) + Return New List(Of String) + End Try + End Function + + Private Function GetTokens() As IEnumerable(Of Token) + Dim oTokens = txtSearchInput.GetTokenList() + Return oTokens.Select(Of Token)(Function(token) token.Value).ToList() + End Function + + Private Async Sub SearchControl2_KeyUp(sender As Object, e As KeyEventArgs) Handles txtSearchInput.KeyUp + If e.KeyCode = Keys.Enter And txtSearchInput.IsPopupOpen = False Then + Await RunSearch2(GetTokens()) + End If + End Sub + + Private Async Sub TileView1_ItemClick(sender As Object, e As TileViewItemClickEventArgs) Handles ViewSearches.ItemClick + Dim oSearch = ViewSearches.GetRow(ViewSearches.FocusedRowHandle) + + If TypeOf oSearch Is CustomSearch Then + Dim oCustomSearch As CustomSearch = oSearch + Await RunSearch2(oCustomSearch.Tokens) + Else + Await RunSearch2(GetTokens()) + End If + End Sub + + Private Async Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + Await RunSearch2(GetTokens()) + End Sub + + Private Async Function RunSearch2(pTokens As IEnumerable(Of Token)) As Threading.Tasks.Task + Dim oHandle = StartUpdateUI() + Dim oSearchTitle As String = "Suche" + + Try + ' If the user clicked on a Search Tile, it will set the date constraint for this search + Dim oSearch = ViewSearches.GetRow(ViewSearches.FocusedRowHandle) + If oSearch IsNot Nothing AndAlso TypeOf oSearch Is SavedSearch.PredefinedDateSearch Then + Dim oDateSearch As SavedSearch.PredefinedDateSearch = oSearch + oSearchTitle = oDateSearch.DisplayName + SearchRunner.SetDateConstraint(oDateSearch.DateConstraint) + Else + SearchRunner.SetDateConstraint() + End If + + ' If the user selected a custom date range, process it including the 'with end date' toggle + Dim oDateFrom, oDateTo As Date + If chkDatefilter2.Checked Then + oDateFrom = DateEditFrom.EditValue + oDateTo = DateEditTo.EditValue + If CheckEdit1.IsOn = False Then + oDateTo = Nothing + End If + Else + oDateFrom = Nothing + oDateTo = Nothing + End If + + ' Run the actual search + Dim oResult As SearchRunner.SearchResult + If chkSearchEverywhere.Checked Then + Dim oToken = pTokens.First() + oResult = Await SearchRunner.RunWithSearchTerm(oToken.TermValue, oDateFrom, oDateTo, oSearchTitle) + Else + oResult = Await SearchRunner.RunWithTokens(pTokens, oDateFrom, oDateTo, oSearchTitle) + End If + + ' If there was an error, show the message + ' otherwise just show the count of results and color it + ' if none were found + If oResult.OK = False Then + SetStatusBarColor(Color.OrangeRed, Color.White) + lblResults.Caption = oResult.ErrorMessage + + ElseIf oResult.Count = 0 Then + SetStatusBarColor(Color.OrangeRed, Color.White) + lblResults.Caption = $"Keine Ergebnisse" + + Else + lblResults.Caption = $"{oResult.Count} Ergebnisse" + + End If + + ' Reset the clicked tile + ViewSearches.FocusedRowHandle = GridControl.InvalidRowHandle + + Catch ex As Exception + MsgBox(ex.Message) + Finally + StopUpdateUI(oHandle) + End Try + End Function + + Private Function StartUpdateUI() As IOverlaySplashScreenHandle + SetStatusBarColor(Color.FromArgb(255, 240, 240, 240), Color.Black) + Dim oHandle = SplashScreenManager.ShowOverlayForm(LayoutControl1) + Return oHandle + End Function + + Private Sub StopUpdateUI(pHandle As IOverlaySplashScreenHandle) + SplashScreenManager.CloseOverlayForm(pHandle) + End Sub + + Private Sub SetStatusBarColor(pColor As Color, pForeColor As Color) + ' Change color for StatusBarBackground + Dim element As SkinElement = SkinManager.GetSkinElement(SkinProductId.Ribbon, UserLookAndFeel.Default, "StatusBarBackground") + element.Color.SolidImageCenterColor = pColor + element.Color.BackColor = pColor + element.Color.ForeColor = pForeColor + + ' Change color for StatusBarFormBackground + Dim element2 As SkinElement = SkinManager.GetSkinElement(SkinProductId.Ribbon, UserLookAndFeel.Default, "StatusBarFormBackground") + element2.Color.SolidImageCenterColor = pColor + element2.Color.BackColor = pColor + element2.Color.ForeColor = pForeColor + + ' Force update of LookAndFeel + LookAndFeelHelper.ForceDefaultLookAndFeelChanged() + End Sub + + Private Sub CheckEdit1_Properties_EditValueChanged(sender As Object, e As EventArgs) Handles CheckEdit1.Properties.EditValueChanged + DateEditTo.Enabled = CheckEdit1.IsOn + End Sub + + Private Sub SetTokens(pEditor As TokenEdit, Tokens As IEnumerable(Of Token)) + pEditor.Properties.Tokens.Clear() + AddTokens(pEditor, Tokens) + End Sub + + Private Sub ClearTokens(pEditor As TokenEdit) + pEditor.EditValue = Nothing + End Sub + + Private Sub AddTokens(pEditor As TokenEdit, Tokens As IEnumerable(Of Token)) + For Each oToken In Tokens + Dim oTokenEditToken = New TokenEditToken With { + .Description = oToken.ToString, + .Value = oToken + } + pEditor.Properties.Tokens.Add(oTokenEditToken) + Next + End Sub + + Private Sub SearchControl2_CustomDrawTokenGlyph(sender As Object, e As TokenEditCustomDrawTokenGlyphEventArgs) Handles txtSearchInput.CustomDrawTokenGlyph + ' Set Background according to token type + Select Case e.Value.GetType() + Case GetType(AttributeValueToken) + e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(255, 255, 214, 49)), e.Bounds) + + Case GetType(ValueOnlyToken) + e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(255, 255, 214, 49)), e.Bounds) + End Select + + ' Draw the glyph on top + ' This fixes: https://supportcenter.devexpress.com/ticket/details/t215578/tokenedit-glyph-is-not-visible-when-customdrawtokentext-is-used + e.DefaultDraw() + End Sub + + Private Sub ComboBoxDateAttributes_EditValueChanged(sender As Object, e As EventArgs) Handles ComboBoxDateAttributes.EditValueChanged + Dim oEditValue As String = ComboBoxDateAttributes.EditValue + + If oEditValue = IDB_ADDED_WHEN_String_German Or oEditValue = IDB_ADDED_WHEN_String_Englisch Then + SearchRunner.SetDateAttribute() + Else + SearchRunner.SetDateAttribute(oEditValue) + End If + End Sub + + Private Sub TokenEditEx1_Properties_TokenAdding(sender As Object, e As TokenEditTokenAddingEventArgs) Handles txtSearchInput.Properties.TokenAdding + ' Prevent adding more than two tokens for now + If txtSearchInput.GetTokenList.Count >= 2 Then + e.Cancel = True + End If + End Sub + + Private Sub BarCheckItem3_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles chkDatefilter2.CheckedChanged + If chkDatefilter2.Checked Then + LayoutControlGroupDate2.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always + Else + LayoutControlGroupDate2.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never + End If + End Sub + + Private Sub chkSearchEverywhere_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles chkSearchEverywhere.CheckedChanged + Dim oTokens As IEnumerable(Of Token) + + If chkSearchEverywhere.Checked = True Then + ' Create a list of tokens that only contains every term once, + ' without caring about attribute names. + oTokens = GetTokensFromTable(Of ValueOnlyToken)(TokenTable) + RibbonPageGroup5.Enabled = False + Else + ' Create a list of tokens where every term - attribute value is present once. + oTokens = GetTokensFromTable(Of AttributeValueToken)(TokenTable) + RibbonPageGroup5.Enabled = True + End If + + ClearTokens(txtSearchInput) + SetTokens(txtSearchInput, oTokens) + End Sub + + Private Sub chkOperatorAnd_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles chkOperatorAnd.CheckedChanged + If chkOperatorAnd.Checked And FormLoading = False Then + SearchRunner.SetTokenOperator(SearchRunner.TokenOperator.And) + End If + End Sub + + Private Sub chkOperatorOr_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles chkOperatorOr.CheckedChanged + If chkOperatorOr.Checked And FormLoading = False Then + SearchRunner.SetTokenOperator(SearchRunner.TokenOperator.Or) + End If + End Sub + + Private Sub TokenEditEx1_Properties_TokenAdded(sender As Object, e As TokenEditTokenAddedEventArgs) Handles txtSearchInput.Properties.TokenAdded + + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + FormLoading = True + DateEditFrom.EditValue = Nothing + DateEditTo.EditValue = Nothing + CheckEdit1.IsOn = False + ComboBoxDateAttributes.SelectedIndex = 0 + txtSearchInput.EditValue = Nothing + FormLoading = False + End Sub + + Private Sub chkGridVertical_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles chkGridVertical.CheckedChanged + ViewSearches.OptionsTiles.Orientation = Orientation.Vertical + End Sub + + Private Sub chkGridHorizontal_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles chkGridHorizontal.CheckedChanged + ViewSearches.OptionsTiles.Orientation = Orientation.Horizontal + End Sub + + Private Sub BarEditItem1_EditValueChanged(sender As Object, e As EventArgs) Handles BarEditItem1.EditValueChanged + ViewSearches.OptionsTiles.ColumnCount = BarEditItem1.EditValue + End Sub + + Private Sub BarEditItem2_EditValueChanged(sender As Object, e As EventArgs) Handles BarEditItem2.EditValueChanged + ViewSearches.OptionsTiles.RowCount = BarEditItem2.EditValue + End Sub + + Private Sub BarCheckItem1_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckItem1.CheckedChanged + If BarCheckItem1.Checked Then + ViewSearches.OptionsTiles.LayoutMode = TileViewLayoutMode.Kanban + Else + ViewSearches.OptionsTiles.LayoutMode = TileViewLayoutMode.Default + End If + End Sub + + Private Sub ViewSearches_ItemCheckedChanged(sender As Object, e As TileViewItemClickEventArgs) Handles ViewSearches.ItemCheckedChanged + Dim oItem As TileViewItem = e.Item + Dim oSearch As SavedSearch.SavedSearch = ViewSearches.GetRow(oItem.RowHandle) + + If TypeOf oSearch Is CustomSearch Then + 'TODO: show ribbon controls to edit search + End If + End Sub + + Private Sub ViewSearches_CustomColumnSort(sender As Object, e As Views.Base.CustomColumnSortEventArgs) Handles ViewSearches.CustomColumnSort + If TypeOf e.RowObject1 Is CustomSearch Or TypeOf e.RowObject2 Is CustomSearch Then + e.Result = -1 + e.Handled = True + Else + e.Handled = False + End If + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/ZooFlow.vbproj b/GUIs.ZooFlow/ZooFlow.vbproj new file mode 100644 index 0000000..121d7f0 --- /dev/null +++ b/GUIs.ZooFlow/ZooFlow.vbproj @@ -0,0 +1,1153 @@ + + + + Debug + x86 + 8.0.30703 + 2.0 + {D0FB36EB-783D-40E1-B71E-A0B84B2FE567} + WinExe + DigitalData.GUIs.ZooFlow + DigitalData.GUIs.ZooFlow + v4.6.1 + ZooFlow.Program + 512 + On + Binary + Off + On + false + publish\ + true + Disk + false + Foreground + 7 + Days + false + false + true + 0 + 1.0.0.%2a + false + true + + + AnyCPU + true + full + false + bin\Debug\ + true + true + prompt + + + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + + + AnyCPU + pdbonly + true + bin\Release\ + false + true + prompt + + + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + + + WindowsForms + + + DigitalData.GUIs.ZooFlow.My.MyApplication + + + Zooflow.ico + + + + + + + + + + False + + + + + + + + + + + + + + + + + + + + + + ..\..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll + + + ..\..\..\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll + + + ..\..\..\DDMonorepo\Controls.RegexEditor\bin\Debug\DigitalData.Controls.RegexEditor.dll + + + ..\..\..\DDMonorepo\Controls.SnapPanel\bin\Debug\DigitalData.Controls.SnapPanel.dll + + + ..\..\..\DDMonorepo\SQLConfig\bin\Debug\DigitalData.Controls.SQLConfig.dll + + + ..\..\..\DDMonorepo\GUIs.ClipboardWatcher\bin\Debug\DigitalData.GUIs.ClipboardWatcher.dll + + + ..\..\..\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll + + + ..\..\..\DDMonorepo\GUIs.GlobalIndexer\bin\Debug\DigitalData.GUIs.GlobalIndexer.dll + + + ..\..\..\DDMonorepo\Modules.Base\Base\bin\Debug\DigitalData.Modules.Base.dll + + + ..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll + + + ..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll + + + ..\..\..\DDMonorepo\Modules.EDMIAPI\bin\Debug\DigitalData.Modules.EDMI.API.dll + + + ..\..\..\DDMonorepo\Encryption\bin\Debug\DigitalData.Modules.Encryption.dll + + + ..\..\..\DDMonorepo\Modules.Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll + + + ..\..\..\DDMonorepo\Modules.Interfaces\bin\Debug\DigitalData.Modules.Interfaces.dll + + + ..\..\..\DDMonorepo\Modules.Language\bin\Debug\DigitalData.Modules.Language.dll + + + ..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll + + + ..\..\..\DDMonorepo\Modules.Messaging\bin\Debug\DigitalData.Modules.Messaging.dll + + + ..\..\..\DDMonorepo\Modules.Patterns\bin\Debug\DigitalData.Modules.Patterns.dll + + + ..\..\..\DDMonorepo\Windows\bin\Debug\DigitalData.Modules.Windows.dll + + + ..\..\..\DDMonorepo\Modules.ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll + + + P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\22_11_19\Independentsoft.Msg.dll + + + ..\..\..\DDMonorepo\Modules.Messaging\bin\Debug\Mail.dll + + + False + True + C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Outlook\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Outlook.dll + + + ..\packages\NLog.4.7.15\lib\net45\NLog.dll + + + False + P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll + + + + + C:\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.6.1\System.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + frmAdmin_DoctypeBE.vb + + + Form + + + frmAdmin_Doctype.vb + + + Form + + + frmAdmin_DoctypeConfig.vb + + + Form + + + frmAdmin_GlobixRelations.vb + + + Form + + + frmAdmin_ClipboardWatcher.vb + + + Form + + + frmAdmin_IDBAttribute.vb + + + Form + + + frmAdmin_IDBEntity.vb + + + Form + + + frmAdmin_IDBObjectStore.vb + + + Form + + + frmAdmin_IDBBERelations.vb + + + Form + + + + frmAdmin_Globix.vb + + + Form + + + frmAdmin_SourceSQL.vb + + + Form + + + frmAdmin_UserImport.vb + + + Form + + + frmAdmin_User.vb + + + Form + + + frmAdmin_UserGroupRelations.vb + + + Form + + + frmIDBCommonSQL.vb + + + Form + + + frmTreeViewNavi.vb + + + Form + + + frmWaitForm.vb + + + Form + + + + + + + + + + True + True + DBCW_Stammdaten.xsd + + + DBCW_Stammdaten.xsd + + + True + True + DSDD_Stammdaten.xsd + + + DSIDB_Stammdaten.xsd + + + frmConfigBasic.vb + + + Form + + + frmServiceConfig.vb + + + Form + + + frmTest.vb + + + Form + + + + + frmGlobixNameconvention.vb + + + Form + + + frmFileflow_Duplicate.vb + + + Form + + + frmGlobix_Result.vb + + + Form + + + + + + + + True + True + MyDataset.xsd + + + + frmGlobixBasicConfig.vb + + + Form + + + frmGlobixMissingInput.vb + + + Form + + + True + True + GlobixDataset.xsd + + + MyDataset.xsd + + + + frmEditSearch.vb + + + Form + + + + + Component + + + frmFlowSearch.vb + + + Form + + + + + + + + True + True + DSIDB_Stammdaten.xsd + + + + + frmAdmin_Start.vb + + + Form + + + frmFlowForm.vb + + + Form + + + frmGlobix_IndexFileList.vb + + + Form + + + frmGlobix_Index.vb + + + Form + + + frmFlowSearch1.vb + + + Form + + + frmSearchFlow.vb + + + Form + + + frmSearchNeu.vb + + + Form + + + frmSearchPredefined.vb + + + Form + + + frmSearchStart.vb + + + Form + + + + True + True + Resources.resx + + + + + + + + + frmSettings.vb + + + Form + + + frmSplash.vb + + + Form + + + True + Application.myapp + True + + + + + + + + + + + frmAdmin_ClipboardWatcher.vb + + + frmAdmin_DoctypeBE.vb + + + frmAdmin_DoctypeBE.vb + + + frmAdmin_DoctypeBE.vb + + + frmAdmin_Doctype.vb + + + frmAdmin_DoctypeConfig.vb + + + frmAdmin_GlobixRelations.vb + + + frmAdmin_IDBAttribute.vb + + + frmAdmin_IDBEntity.vb + + + frmAdmin_Globix.vb + + + frmAdmin_IDBObjectStore.vb + + + frmAdmin_IDBBERelations.vb + + + frmAdmin_SourceSQL.vb + + + frmAdmin_UserImport.vb + + + frmAdmin_User.vb + + + frmAdmin_UserGroupRelations.vb + + + frmIDBCommonSQL.vb + + + frmTreeViewNavi.vb + + + frmWaitForm.vb + + + frmConfigBasic.vb + + + frmServiceConfig.vb + + + frmTest.vb + + + frmGlobixBasicConfig.vb + + + frmGlobixMissingInput.vb + + + frmGlobixNameconvention.vb + + + frmFileflow_Duplicate.vb + + + frmGlobix_Result.vb + + + frmEditSearch.vb + + + frmFlowSearch.vb + + + frmAdmin_Start.vb + + + frmFlowForm.vb + Designer + + + frmGlobix_IndexFileList.vb + + + frmGlobix_Index.vb + + + frmFlowSearch1.vb + + + frmSearchFlow.vb + + + frmSearchNeu.vb + + + frmSearchPredefined.vb + + + frmSearchStart.vb + + + frmSettings.vb + + + frmSplash.vb + + + + VbMyResourcesResXFileCodeGenerator + My.Resources + Designer + Resources.Designer.vb + + + + DBCW_Stammdaten.xsd + + + Designer + MSDataSetGenerator + DBCW_Stammdaten.Designer.vb + + + DBCW_Stammdaten.xsd + + + DSDD_Stammdaten.xsd + + + Designer + MSDataSetGenerator + DSDD_Stammdaten.Designer.vb + + + DSDD_Stammdaten.xsd + + + MyDataset.xsd + + + Designer + MSDataSetGenerator + MyDataset.Designer.vb + + + MyDataset.xsd + + + DSIDB_Stammdaten.xsd + + + Designer + MSDataSetGenerator + DSIDB_Stammdaten.Designer.vb + + + DSIDB_Stammdaten.xsd + + + GlobixDataset.xsd + + + Designer + MSDataSetGenerator + GlobixDataset.Designer.vb + + + GlobixDataset.xsd + + + SettingsSingleFileGenerator + Settings.Designer.vb + + + True + Settings.settings + True + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + False + Microsoft .NET Framework 4.6.1 %28x86 und x64%29 + true + + + False + .NET Framework 3.5 SP1 + false + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Zooflow.ico b/GUIs.ZooFlow/Zooflow.ico new file mode 100644 index 0000000..d8eb81a Binary files /dev/null and b/GUIs.ZooFlow/Zooflow.ico differ diff --git a/GUIs.ZooFlow/clsPatterns.vb b/GUIs.ZooFlow/clsPatterns.vb new file mode 100644 index 0000000..0c4ebd4 --- /dev/null +++ b/GUIs.ZooFlow/clsPatterns.vb @@ -0,0 +1,484 @@ +Imports System.Text.RegularExpressions +Imports WINDREAMLib +Imports DigitalData.Controls.LookupGrid +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraGrid.Columns +''' +''' 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} +''' +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" + Public Const PATTERN_FILE = "FILE" + ' 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 + + ''' + ''' This value will be valid as any datatype, + ''' and you can easily check against it + ''' + 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} + + ''' + ''' Wraps a pattern-type and -value in the common format: {#type#value} + ''' + 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 \ No newline at end of file diff --git a/GUIs.ZooFlow/frmConfigBasic.Designer.vb b/GUIs.ZooFlow/frmConfigBasic.Designer.vb new file mode 100644 index 0000000..b4ecd85 --- /dev/null +++ b/GUIs.ZooFlow/frmConfigBasic.Designer.vb @@ -0,0 +1,357 @@ + _ +Partial Class frmConfigBasic + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfigBasic)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.bsiInfo = New DevExpress.XtraBars.BarStaticItem() + Me.SkinPaletteRibbonGalleryBarItem1 = New DevExpress.XtraBars.SkinPaletteRibbonGalleryBarItem() + Me.SkinRibbonGalleryBarItem1 = New DevExpress.XtraBars.SkinRibbonGalleryBarItem() + 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.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.ToggleSwitchDebug = New DevExpress.XtraEditors.ToggleSwitch() + Me.Quicksearch1CB_Pos = New DevExpress.XtraEditors.ComboBoxEdit() + Me.Quicksearch1TitleTextBox = New DevExpress.XtraEditors.TextEdit() + Me.ProcessManagerPathTextbox = New DevExpress.XtraEditors.TextEdit() + Me.ADRootPathTextBox = New DevExpress.XtraEditors.TextEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.ToggleSwitchDebug.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Quicksearch1CB_Pos.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Quicksearch1TitleTextBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ProcessManagerPathTextbox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ADRootPathTextBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.bsiInfo, Me.SkinPaletteRibbonGalleryBarItem1, Me.SkinRibbonGalleryBarItem1}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 11 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.Size = New System.Drawing.Size(800, 158) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Appdata Folder" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Log Folder" + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Speichern" + Me.BarButtonItem3.Id = 3 + Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'bsiInfo + ' + Me.bsiInfo.Id = 4 + Me.bsiInfo.ImageOptions.SvgImage = CType(resources.GetObject("bsiInfo.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bsiInfo.Name = "bsiInfo" + Me.bsiInfo.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'SkinPaletteRibbonGalleryBarItem1 + ' + Me.SkinPaletteRibbonGalleryBarItem1.Caption = "SkinPaletteRibbonGalleryBarItem1" + Me.SkinPaletteRibbonGalleryBarItem1.Id = 9 + Me.SkinPaletteRibbonGalleryBarItem1.Name = "SkinPaletteRibbonGalleryBarItem1" + ' + 'SkinRibbonGalleryBarItem1 + ' + Me.SkinRibbonGalleryBarItem1.Caption = "SkinRibbonGalleryBarItem1" + Me.SkinRibbonGalleryBarItem1.Id = 10 + Me.SkinRibbonGalleryBarItem1.Name = "SkinRibbonGalleryBarItem1" + ' + '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.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Schnellzugriffe" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageGroup2.ItemLinks.Add(Me.SkinRibbonGalleryBarItem1) + Me.RibbonPageGroup2.ItemLinks.Add(Me.SkinPaletteRibbonGalleryBarItem1) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "Oberflächen Design" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 426) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.ToggleSwitchDebug) + Me.LayoutControl1.Controls.Add(Me.Quicksearch1CB_Pos) + Me.LayoutControl1.Controls.Add(Me.Quicksearch1TitleTextBox) + Me.LayoutControl1.Controls.Add(Me.ProcessManagerPathTextbox) + Me.LayoutControl1.Controls.Add(Me.ADRootPathTextBox) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 158) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(848, 135, 650, 400) + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(800, 268) + Me.LayoutControl1.TabIndex = 2 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'ToggleSwitchDebug + ' + Me.ToggleSwitchDebug.Location = New System.Drawing.Point(12, 12) + Me.ToggleSwitchDebug.MenuManager = Me.RibbonControl1 + Me.ToggleSwitchDebug.Name = "ToggleSwitchDebug" + Me.ToggleSwitchDebug.Properties.AutoHeight = False + Me.ToggleSwitchDebug.Properties.OffText = "DEBUG not active" + Me.ToggleSwitchDebug.Properties.OnText = "DEBUG is active" + Me.ToggleSwitchDebug.Size = New System.Drawing.Size(776, 46) + Me.ToggleSwitchDebug.StyleController = Me.LayoutControl1 + Me.ToggleSwitchDebug.TabIndex = 8 + ' + 'Quicksearch1CB_Pos + ' + Me.Quicksearch1CB_Pos.Location = New System.Drawing.Point(181, 128) + Me.Quicksearch1CB_Pos.MenuManager = Me.RibbonControl1 + Me.Quicksearch1CB_Pos.Name = "Quicksearch1CB_Pos" + Me.Quicksearch1CB_Pos.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.Quicksearch1CB_Pos.Properties.Items.AddRange(New Object() {"Top", "Bottom"}) + Me.Quicksearch1CB_Pos.Size = New System.Drawing.Size(592, 20) + Me.Quicksearch1CB_Pos.StyleController = Me.LayoutControl1 + Me.Quicksearch1CB_Pos.TabIndex = 7 + ' + 'Quicksearch1TitleTextBox + ' + Me.Quicksearch1TitleTextBox.Location = New System.Drawing.Point(181, 98) + Me.Quicksearch1TitleTextBox.MenuManager = Me.RibbonControl1 + Me.Quicksearch1TitleTextBox.Name = "Quicksearch1TitleTextBox" + Me.Quicksearch1TitleTextBox.Size = New System.Drawing.Size(592, 20) + Me.Quicksearch1TitleTextBox.StyleController = Me.LayoutControl1 + Me.Quicksearch1TitleTextBox.TabIndex = 6 + ' + 'ProcessManagerPathTextbox + ' + Me.ProcessManagerPathTextbox.Location = New System.Drawing.Point(178, 200) + Me.ProcessManagerPathTextbox.MenuManager = Me.RibbonControl1 + Me.ProcessManagerPathTextbox.Name = "ProcessManagerPathTextbox" + Me.ProcessManagerPathTextbox.Size = New System.Drawing.Size(598, 20) + Me.ProcessManagerPathTextbox.StyleController = Me.LayoutControl1 + Me.ProcessManagerPathTextbox.TabIndex = 9 + ' + 'ADRootPathTextBox + ' + Me.ADRootPathTextBox.Location = New System.Drawing.Point(178, 224) + Me.ADRootPathTextBox.MenuManager = Me.RibbonControl1 + Me.ADRootPathTextBox.Name = "ADRootPathTextBox" + Me.ADRootPathTextBox.Size = New System.Drawing.Size(598, 20) + Me.ADRootPathTextBox.StyleController = Me.LayoutControl1 + Me.ADRootPathTextBox.TabIndex = 10 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup1, Me.LayoutControlItem4, Me.LayoutControlGroup2}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(800, 268) + Me.Root.TextVisible = False + ' + 'LayoutControlGroup1 + ' + Me.LayoutControlGroup1.CustomizationFormText = "Schnellsuche 1" + Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem3}) + Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 50) + Me.LayoutControlGroup1.Name = "LayoutControlGroup1" + Me.LayoutControlGroup1.Size = New System.Drawing.Size(780, 105) + Me.LayoutControlGroup1.Text = "Konfiguration Schnellsuche 1" + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.Quicksearch1TitleTextBox + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem1.Size = New System.Drawing.Size(756, 30) + Me.LayoutControlItem1.Text = "Titel der Schnellsuche 1" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(142, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.Quicksearch1CB_Pos + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 30) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(756, 30) + Me.LayoutControlItem3.Text = "Docking der Schnellsuche 1" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(142, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem4.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem4.Control = Me.ToggleSwitchDebug + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Size = New System.Drawing.Size(780, 50) + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem4.TextVisible = False + ' + 'LayoutControlGroup2 + ' + Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2, Me.LayoutControlItem5}) + Me.LayoutControlGroup2.Location = New System.Drawing.Point(0, 155) + Me.LayoutControlGroup2.Name = "LayoutControlGroup2" + Me.LayoutControlGroup2.Size = New System.Drawing.Size(780, 93) + Me.LayoutControlGroup2.Text = "Weitere Einstellungen" + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.ProcessManagerPathTextbox + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Size = New System.Drawing.Size(756, 24) + Me.LayoutControlItem2.Text = "Pfad zum Process Manager" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(142, 13) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.ADRootPathTextBox + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 24) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Size = New System.Drawing.Size(756, 24) + Me.LayoutControlItem5.Text = "Active Directory Root Pfad" + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(142, 13) + ' + 'frmConfigBasic + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.LayoutControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = CType(resources.GetObject("frmConfigBasic.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.Name = "frmConfigBasic" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "User Basic Configuration" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.ToggleSwitchDebug.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Quicksearch1CB_Pos.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Quicksearch1TitleTextBox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ProcessManagerPathTextbox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ADRootPathTextBox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents Quicksearch1CB_Pos As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents Quicksearch1TitleTextBox As DevExpress.XtraEditors.TextEdit + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bsiInfo As DevExpress.XtraBars.BarStaticItem + Friend WithEvents SkinPaletteRibbonGalleryBarItem1 As DevExpress.XtraBars.SkinPaletteRibbonGalleryBarItem + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents SkinRibbonGalleryBarItem1 As DevExpress.XtraBars.SkinRibbonGalleryBarItem + Friend WithEvents ToggleSwitchDebug As DevExpress.XtraEditors.ToggleSwitch + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ProcessManagerPathTextbox As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents ADRootPathTextBox As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem +End Class diff --git a/GUIs.ZooFlow/frmConfigBasic.resx b/GUIs.ZooFlow/frmConfigBasic.resx new file mode 100644 index 0000000..a2c52f8 --- /dev/null +++ b/GUIs.ZooFlow/frmConfigBasic.resx @@ -0,0 +1,228 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAMDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iT3BlbjIiIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpuZXcgMCAwIDMy + IDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5HcmVlbntmaWxsOiMwMzlDMjM7fQoJLlll + bGxvd3tmaWxsOiNGRkIxMTU7fQoJLnN0MHtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBjbGFz + cz0ic3QwIj4NCiAgICA8cGF0aCBkPSJNMTkuMiwxMEgxMlY3YzAtMC42LTAuNC0xLTEtMUgzQzIuNCw2 + LDIsNi41LDIsN3YxOGMwLDAuMiwwLDAuMywwLjEsMC40YzAsMCwwLjEtMC4xLDAuMS0wLjJsNS41LTEw + ICAgQzgsMTQuNSw4LjcsMTQsOS41LDE0aDEzLjdMMTkuMiwxMHoiIGNsYXNzPSJZZWxsb3ciIC8+DQog + IDwvZz4NCiAgPHBhdGggZD0iTTI5LjMsMTZIOS42TDQsMjZoMTkuOGMwLjUsMCwxLjEtMC4yLDEuMy0w + LjZsNC45LTguOUMzMC4xLDE2LjIsMjkuOCwxNiwyOS4zLDE2eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAg + PHBhdGggZD0iTTI4LDhjMC0zLjMtMi43LTYtNi02cy02LDIuNy02LDZjMC0yLjIsMS44LTQsNC00czQs + MS44LDQsNGgtNGw2LDZsNi02SDI4eiIgY2xhc3M9IkdyZWVuIiAvPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAMDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iT3BlbjIiIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpuZXcgMCAwIDMy + IDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5HcmVlbntmaWxsOiMwMzlDMjM7fQoJLlll + bGxvd3tmaWxsOiNGRkIxMTU7fQoJLnN0MHtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBjbGFz + cz0ic3QwIj4NCiAgICA8cGF0aCBkPSJNMTkuMiwxMEgxMlY3YzAtMC42LTAuNC0xLTEtMUgzQzIuNCw2 + LDIsNi41LDIsN3YxOGMwLDAuMiwwLDAuMywwLjEsMC40YzAsMCwwLjEtMC4xLDAuMS0wLjJsNS41LTEw + ICAgQzgsMTQuNSw4LjcsMTQsOS41LDE0aDEzLjdMMTkuMiwxMHoiIGNsYXNzPSJZZWxsb3ciIC8+DQog + IDwvZz4NCiAgPHBhdGggZD0iTTI5LjMsMTZIOS42TDQsMjZoMTkuOGMwLjUsMCwxLjEtMC4yLDEuMy0w + LjZsNC45LTguOUMzMC4xLDE2LjIsMjkuOCwxNiwyOS4zLDE2eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAg + PHBhdGggZD0iTTI4LDhjMC0zLjMtMi43LTYtNi02cy02LDIuNy02LDZjMC0yLjIsMS44LTQsNC00czQs + MS44LDQsNGgtNGw2LDZsNi02SDI4eiIgY2xhc3M9IkdyZWVuIiAvPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzczNzM3NDt9Cgku + WWVsbG93e2ZpbGw6I0ZDQjAxQjt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5CbHVle2ZpbGw6IzM4 + N0NCNzt9CgkuUmVke2ZpbGw6I0QwMjEyNzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tk + aXNwbGF5Om5vbmU7ZmlsbDojNzM3Mzc0O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRoLTN2MTBI + OFY0SDVDNC40LDQsNCw0LjQsNCw1djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTFW + NUMyOCw0LjQsMjcuNiw0LDI3LDR6IE0yNCwyNEg4di02ICBoMTZWMjR6IE0xMCw0djhoMTBWNEgxMHog + TTE0LDEwaC0yVjZoMlYxMHoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9 + Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs + MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs + NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg + PC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJgEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3 + RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm + aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iWS1BeGlzX1NldHRpbmdzIj4N + CiAgICA8cG9seWdvbiBwb2ludHM9IjYsMjYgNiwwIDQsMCA0LDQgMiw0IDIsNiA0LDYgNCwxMCAyLDEw + IDIsMTIgNCwxMiA0LDE2IDIsMTYgMiwxOCA0LDE4IDQsMjIgMiwyMiAyLDI0IDQsMjQgNCwyOCAgICAz + MCwyOCAzMCwyNiAgIiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBhdGggZD0iTTMwLDE0LjR2LTIuOGwt + My0wLjZjLTAuMy0wLjgtMC41LTEuOC0xLjEtMi41bDEuOC0yLjVsLTEuOS0xLjlMMjMuMyw2Yy0wLjct + MC40LTEuNi0wLjgtMi41LTFsLTAuNC0zaC0yLjggICBsLTAuNSwzYy0wLjgsMC4zLTEuOCwwLjUtMi41 + LDFsLTIuNS0xLjhsLTEuOSwxLjlMMTIsOC42Yy0wLjQsMC43LTAuOCwxLjctMS4xLDIuNUw4LDExLjZ2 + Mi44bDMsMC41YzAuMywwLjgsMC41LDEuOCwxLjEsMi41ICAgbC0xLjgsMi41bDEuOSwxLjlsMi41LTEu + OGMwLjcsMC40LDEuNiwwLjgsMi41LDFsMC40LDNoMi44bDAuNi0zYzAuOC0wLjMsMS44LTAuNiwyLjUt + MWwyLjUsMS44bDEuOS0xLjlMMjYsMTcuNCAgIGMwLjQtMC43LDAuOC0xLjYsMS4xLTIuNUwzMCwxNC40 + eiBNMTksMTZjLTEuNywwLTMtMS4zLTMtM3MxLjMtMywzLTNzMywxLjMsMywzUzIwLjcsMTYsMTksMTZ6 + IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/frmConfigBasic.vb b/GUIs.ZooFlow/frmConfigBasic.vb new file mode 100644 index 0000000..abf62ad --- /dev/null +++ b/GUIs.ZooFlow/frmConfigBasic.vb @@ -0,0 +1,169 @@ +Imports DevExpress.XtraEditors +Imports DigitalData.Modules.Language +Imports DigitalData.Modules.Logging + +Public Class frmConfigBasic + Private FormLoaded As Boolean = False + Private Logger As Logger + Dim oFormLoaded As Boolean = False + + Private Sub frmConfigBasic_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Logger = My.LogConfig.GetLogger() + ToggleSwitchDebug.IsOn = My.LogConfig.Debug + + For Each oRow As DataRow In My.Tables.DTIDB_CATALOG_USER.Rows + Dim oId = oRow.Item("GUID") + Dim oTitle As String = oRow.Item("CAT_TITLE") + Dim oValue As String = oRow.ItemEx("CAT_STRING", String.Empty) + + Select Case oTitle + Case ClassConstants.USER_CATALOG_QUICKSEARCH1_TITLE + Quicksearch1TitleTextBox.Text = oValue + Quicksearch1TitleTextBox.Tag = oId + + Case ClassConstants.USER_CATALOG_QUICKSEARCH1_POS + Quicksearch1CB_Pos.EditValue = oValue + Quicksearch1CB_Pos.Tag = oId + + Case ClassConstants.USER_AD_ROOT_PATH + ADRootPathTextBox.EditValue = oValue + ADRootPathTextBox.Tag = oId + + Case ClassConstants.USER_CATALOG_APPLICATION_THEME + Dim oItem = SkinPaletteRibbonGalleryBarItem1.Gallery.GetAllItems(). + Where(Function(item) item.Value = oValue). + FirstOrDefault() + + If Not IsNothing(oItem) Then + SkinPaletteRibbonGalleryBarItem1.Gallery.SetItemCheck(oItem, True) + End If + End Select + Next + + If My.SystemConfig.ProductPaths.ProcessManagerPath IsNot Nothing Then + ProcessManagerPathTextbox.EditValue = My.SystemConfig.ProductPaths.ProcessManagerPath + End If + + oFormLoaded = True + End Sub + + Private Sub frmConfigBasic_Shown(sender As Object, e As EventArgs) Handles Me.Shown + FormLoaded = True + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + Process.Start(My.LogConfig.LogDirectory) + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + Process.Start(Application.LocalUserAppDataPath) + End Sub + + + Private Sub SaveCatalogSetting(pKey As Integer, pValue As String) + Try + Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = '{pValue}' + WHERE GUID = {pKey}" + + If My.DatabaseIDB.ExecuteNonQuery(oUpd) = True Then + bsiInfo.Caption = "Position Quicksearch1 saved!" + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub TextEdit_Leave(sender As Object, e As EventArgs) Handles _ + Quicksearch1TitleTextBox.Leave, + ADRootPathTextBox.Leave, + Quicksearch1CB_Pos.SelectedIndexChanged + + If FormLoaded = False Then + Exit Sub + End If + + Dim oTextbox As BaseEdit = sender + SaveCatalogSetting(oTextbox.Tag, oTextbox.EditValue) + End Sub + + + Private Sub SkinPaletteRibbonGalleryBarItem1_GalleryItemClick(sender As Object, e As DevExpress.XtraBars.Ribbon.GalleryItemClickEventArgs) Handles SkinPaletteRibbonGalleryBarItem1.GalleryItemClick + UpdateThemeSettings() + End Sub + + Private Sub SkinRibbonGalleryBarItem1_GalleryItemClick(sender As Object, e As DevExpress.XtraBars.Ribbon.GalleryItemClickEventArgs) Handles SkinRibbonGalleryBarItem1.GalleryItemClick + Dim oDefaultPalette = SkinPaletteRibbonGalleryBarItem1.Gallery.GetAllItems().FirstOrDefault() + + If oDefaultPalette IsNot Nothing Then + SkinPaletteRibbonGalleryBarItem1.Gallery.FocusedItem = oDefaultPalette + End If + + UpdateThemeSettings() + End Sub + + Private Sub UpdateThemeSettings() + Try + Dim oPalette = SkinPaletteRibbonGalleryBarItem1.Gallery.GetCheckedItem() + Dim oSkin = SkinRibbonGalleryBarItem1.Gallery.GetCheckedItem() + Dim oThemeString = "" + + If oSkin Is Nothing Then + Exit Sub + End If + + oThemeString = oSkin.Value + + If oPalette IsNot Nothing Then + oThemeString &= "|" & oPalette.Value + End If + + Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = '{oThemeString}' + WHERE CAT_TITLE = '{ClassConstants.USER_CATALOG_APPLICATION_THEME}' AND USR_ID = {My.Application.User.UserId}" + If My.Database.ExecuteNonQuery(oUpd, DigitalData.Modules.EDMI.API.Constants.DatabaseType.IDB) = True Then + bsiInfo.Caption = "Application Theme saved!" + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, Text) + End Try + End Sub + + Private Sub ToggleSwitchDebug_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchDebug.Toggled + If oFormLoaded = False Then + Exit Sub + End If + Dim oSwitch As ToggleSwitch = sender + If oSwitch.IsOn Then + My.LogConfig.Debug = True + Else + My.LogConfig.Debug = False + End If + + My.UIConfigManager.Save() + bsiInfo.Caption = "DEBUG saved!" + End Sub + + Private Sub ProcessManagerPathTextbox_Leave(sender As Object, e As EventArgs) Handles ProcessManagerPathTextbox.Leave + Dim oProcessManagerPath As String = Utils.NotNull(ProcessManagerPathTextbox.EditValue, String.Empty) + + If oProcessManagerPath.Length = 0 Then + My.SystemConfig.ProductPaths.ProcessManagerPath = Nothing + My.SystemConfigManager.Save() + + bsiInfo.Caption = "Process Manager path cleared!" + Else + If Not IO.File.Exists(oProcessManagerPath) Then + Logger.Warn($"ProcessManager application path [{oProcessManagerPath}] does not exist!") + + End If + + My.SystemConfig.ProductPaths.ProcessManagerPath = oProcessManagerPath + My.SystemConfigManager.Save() + + bsiInfo.Caption = "Process Manager path saved!" + End If + + + End Sub + + +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/frmFlowForm.Designer.vb b/GUIs.ZooFlow/frmFlowForm.Designer.vb new file mode 100644 index 0000000..2fedcb8 --- /dev/null +++ b/GUIs.ZooFlow/frmFlowForm.Designer.vb @@ -0,0 +1,627 @@ +Imports DevExpress.XtraEditors +Imports DigitalData.GUIs.Common.Base + + +Partial Class frmFlowForm + Inherits XtraForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim SplashScreenManager1 As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, GetType(Global.DigitalData.GUIs.ZooFlow.frmSplash), True, True) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowForm)) + Me.NotifyIcon = New System.Windows.Forms.NotifyIcon(Me.components) + Me.ContextMenuSystray = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.EinblendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.SucheEntwurfToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.PictureBoxSearch = New DevExpress.XtraEditors.SvgImageBox() + Me.PictureBoxPM = New DevExpress.XtraEditors.SvgImageBox() + Me.TimerCheckFolderWatchTable = New System.Windows.Forms.Timer(Me.components) + Me.pnlQuicksearch1 = New System.Windows.Forms.Panel() + Me.txtQuicksearch1 = New DevExpress.XtraEditors.TextEdit() + Me.PictureEditQuicksearch1 = New DevExpress.XtraEditors.PictureEdit() + Me.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components) + Me.Bar3 = New DevExpress.XtraBars.Bar() + Me.BarSubItem1 = New DevExpress.XtraBars.BarSubItem() + Me.btnBasicConfig = New DevExpress.XtraBars.BarButtonItem() + Me.btnGlobixConfig = New DevExpress.XtraBars.BarButtonItem() + Me.btnServiceConfig = New DevExpress.XtraBars.BarButtonItem() + Me.btnRestartZooflow = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitmAusblenden = New DevExpress.XtraBars.BarButtonItem() + Me.btnExitZooflow = New DevExpress.XtraBars.BarButtonItem() + Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() + Me.lblQuicksearch1 = New DevExpress.XtraEditors.LabelControl() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.PictureEdit2 = New DevExpress.XtraEditors.PictureEdit() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.GridControlRecentFiles = New DevExpress.XtraGrid.GridControl() + Me.RecentFilesView = New DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView() + Me.GridBand1 = New DevExpress.XtraGrid.Views.BandedGrid.GridBand() + Me.colPrimary = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.colSecondary = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl() + Me.AdornerUIManager1 = New DevExpress.Utils.VisualEffects.AdornerUIManager(Me.components) + Me.PMTaskBadgeGroup = New DevExpress.Utils.VisualEffects.Badge() + Me.PMTaskBadgeIndividual = New DevExpress.Utils.VisualEffects.Badge() + Me.TimerDisplay = New System.Windows.Forms.Timer(Me.components) + Me.TreeViewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ContextMenuSystray.SuspendLayout() + CType(Me.PictureBoxSearch, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBoxPM, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlQuicksearch1.SuspendLayout() + CType(Me.txtQuicksearch1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureEditQuicksearch1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + CType(Me.PictureEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel2.SuspendLayout() + CType(Me.GridControlRecentFiles, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RecentFilesView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.AdornerUIManager1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'SplashScreenManager1 + ' + SplashScreenManager1.ClosingDelay = 500 + ' + 'NotifyIcon + ' + Me.NotifyIcon.ContextMenuStrip = Me.ContextMenuSystray + Me.NotifyIcon.Icon = CType(resources.GetObject("NotifyIcon.Icon"), System.Drawing.Icon) + Me.NotifyIcon.Text = "ZooFlow by Digital Data" + Me.NotifyIcon.Visible = True + ' + 'ContextMenuSystray + ' + Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EinblendenToolStripMenuItem, Me.ToolStripSeparator1, Me.VerwaltungToolStripMenuItem, Me.ToolStripSeparator3, Me.SucheEntwurfToolStripMenuItem, Me.TestToolStripMenuItem, Me.ToolStripSeparator2, Me.ZooFlowBeendenToolStripMenuItem, Me.TreeViewToolStripMenuItem}) + Me.ContextMenuSystray.Name = "ContextMenuSystray" + Me.ContextMenuSystray.Size = New System.Drawing.Size(181, 176) + ' + 'EinblendenToolStripMenuItem + ' + Me.EinblendenToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.action_add_16xMD + Me.EinblendenToolStripMenuItem.Name = "EinblendenToolStripMenuItem" + Me.EinblendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.EinblendenToolStripMenuItem.Text = "Einblenden" + Me.EinblendenToolStripMenuItem.Visible = False + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6) + ' + 'VerwaltungToolStripMenuItem + ' + Me.VerwaltungToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.gear_32xLG + Me.VerwaltungToolStripMenuItem.Name = "VerwaltungToolStripMenuItem" + Me.VerwaltungToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.VerwaltungToolStripMenuItem.Text = "Verwaltung" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6) + ' + 'SucheEntwurfToolStripMenuItem + ' + Me.SucheEntwurfToolStripMenuItem.Name = "SucheEntwurfToolStripMenuItem" + Me.SucheEntwurfToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.SucheEntwurfToolStripMenuItem.Text = "Suche Entwurf" + ' + 'TestToolStripMenuItem + ' + Me.TestToolStripMenuItem.Name = "TestToolStripMenuItem" + Me.TestToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.TestToolStripMenuItem.Text = "Test" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 6) + ' + 'ZooFlowBeendenToolStripMenuItem + ' + Me.ZooFlowBeendenToolStripMenuItem.Name = "ZooFlowBeendenToolStripMenuItem" + Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden" + ' + 'PictureBoxSearch + ' + Me.PictureBoxSearch.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.PictureBoxSearch.Cursor = System.Windows.Forms.Cursors.Hand + Me.PictureBoxSearch.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox + Me.PictureBoxSearch.Location = New System.Drawing.Point(21, 442) + Me.PictureBoxSearch.Name = "PictureBoxSearch" + Me.PictureBoxSearch.Size = New System.Drawing.Size(158, 50) + Me.PictureBoxSearch.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom + Me.PictureBoxSearch.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.FLOW_Sidebar_Search_inaktiv1 + Me.PictureBoxSearch.TabIndex = 13 + Me.PictureBoxSearch.Text = "X" + Me.ToolTip1.SetToolTip(Me.PictureBoxSearch, "FlowSearch öffnen") + ' + 'PictureBoxPM + ' + Me.PictureBoxPM.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.PictureBoxPM.Cursor = System.Windows.Forms.Cursors.Hand + Me.PictureBoxPM.ItemHitTestType = DevExpress.XtraEditors.ItemHitTestType.BoundingBox + Me.PictureBoxPM.Location = New System.Drawing.Point(21, 6) + Me.PictureBoxPM.Name = "PictureBoxPM" + Me.PictureBoxPM.Size = New System.Drawing.Size(158, 50) + Me.PictureBoxPM.SizeMode = DevExpress.XtraEditors.SvgImageSizeMode.Zoom + Me.PictureBoxPM.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.FLOW_Sidebar_Task_inaktiv1 + Me.PictureBoxPM.TabIndex = 14 + Me.PictureBoxPM.Text = "SvgImageBox1" + Me.PictureBoxPM.Visible = False + ' + 'TimerCheckFolderWatchTable + ' + Me.TimerCheckFolderWatchTable.Interval = 2000 + ' + 'pnlQuicksearch1 + ' + Me.pnlQuicksearch1.BackColor = System.Drawing.Color.White + Me.pnlQuicksearch1.Controls.Add(Me.txtQuicksearch1) + Me.pnlQuicksearch1.Controls.Add(Me.PictureEditQuicksearch1) + Me.pnlQuicksearch1.Controls.Add(Me.lblQuicksearch1) + Me.pnlQuicksearch1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnlQuicksearch1.Location = New System.Drawing.Point(0, 497) + Me.pnlQuicksearch1.Name = "pnlQuicksearch1" + Me.pnlQuicksearch1.Size = New System.Drawing.Size(202, 75) + Me.pnlQuicksearch1.TabIndex = 16 + Me.pnlQuicksearch1.Visible = False + ' + 'txtQuicksearch1 + ' + Me.txtQuicksearch1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtQuicksearch1.EditValue = "" + Me.txtQuicksearch1.Location = New System.Drawing.Point(21, 29) + Me.txtQuicksearch1.Name = "txtQuicksearch1" + Me.txtQuicksearch1.Properties.Appearance.BackColor = System.Drawing.Color.LightGray + Me.txtQuicksearch1.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtQuicksearch1.Properties.Appearance.Options.UseBackColor = True + Me.txtQuicksearch1.Properties.Appearance.Options.UseFont = True + Me.txtQuicksearch1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.txtQuicksearch1.Properties.NullText = "Schnellsuche" + Me.txtQuicksearch1.Size = New System.Drawing.Size(124, 26) + Me.txtQuicksearch1.TabIndex = 1 + ' + 'PictureEditQuicksearch1 + ' + Me.PictureEditQuicksearch1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_Sidebar_individuelle_suche + Me.PictureEditQuicksearch1.Location = New System.Drawing.Point(151, 27) + Me.PictureEditQuicksearch1.MenuManager = Me.BarManager1 + Me.PictureEditQuicksearch1.Name = "PictureEditQuicksearch1" + Me.PictureEditQuicksearch1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.PictureEditQuicksearch1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto] + Me.PictureEditQuicksearch1.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom + Me.PictureEditQuicksearch1.Size = New System.Drawing.Size(28, 28) + Me.PictureEditQuicksearch1.TabIndex = 17 + ' + 'BarManager1 + ' + Me.BarManager1.Bars.AddRange(New DevExpress.XtraBars.Bar() {Me.Bar3}) + Me.BarManager1.DockControls.Add(Me.barDockControlTop) + Me.BarManager1.DockControls.Add(Me.barDockControlBottom) + Me.BarManager1.DockControls.Add(Me.barDockControlLeft) + Me.BarManager1.DockControls.Add(Me.barDockControlRight) + Me.BarManager1.Form = Me + Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.BarSubItem1, Me.btnExitZooflow, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.btnRestartZooflow, Me.btnServiceConfig, Me.btnBasicConfig, Me.btnGlobixConfig, Me.bbtnitmAusblenden}) + Me.BarManager1.MaxItemId = 12 + Me.BarManager1.StatusBar = Me.Bar3 + ' + 'Bar3 + ' + Me.Bar3.BarName = "Statusleiste" + Me.Bar3.CanDockStyle = DevExpress.XtraBars.BarCanDockStyle.Bottom + Me.Bar3.DockCol = 0 + Me.Bar3.DockRow = 0 + Me.Bar3.DockStyle = DevExpress.XtraBars.BarDockStyle.Bottom + Me.Bar3.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem1)}) + Me.Bar3.OptionsBar.AllowQuickCustomization = False + Me.Bar3.OptionsBar.DrawDragBorder = False + Me.Bar3.OptionsBar.UseWholeRow = True + Me.Bar3.Text = "Statusleiste" + ' + 'BarSubItem1 + ' + Me.BarSubItem1.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right + Me.BarSubItem1.Caption = "Menu" + Me.BarSubItem1.Id = 0 + Me.BarSubItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarSubItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.btnBasicConfig), New DevExpress.XtraBars.LinkPersistInfo(Me.btnGlobixConfig), New DevExpress.XtraBars.LinkPersistInfo(Me.btnServiceConfig), New DevExpress.XtraBars.LinkPersistInfo(Me.btnRestartZooflow), New DevExpress.XtraBars.LinkPersistInfo(Me.bbtnitmAusblenden), New DevExpress.XtraBars.LinkPersistInfo(Me.btnExitZooflow)}) + Me.BarSubItem1.Name = "BarSubItem1" + Me.BarSubItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'btnBasicConfig + ' + Me.btnBasicConfig.Caption = "Grundeinstellungen" + Me.btnBasicConfig.Id = 9 + Me.btnBasicConfig.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.properties + Me.btnBasicConfig.Name = "btnBasicConfig" + ' + 'btnGlobixConfig + ' + Me.btnGlobixConfig.Caption = "Grundeinstellungen FileFlow" + Me.btnGlobixConfig.Id = 10 + Me.btnGlobixConfig.ImageOptions.SvgImage = CType(resources.GetObject("btnGlobixConfig.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.btnGlobixConfig.Name = "btnGlobixConfig" + ' + 'btnServiceConfig + ' + Me.btnServiceConfig.Caption = "Dienstkonfiguration" + Me.btnServiceConfig.Id = 7 + Me.btnServiceConfig.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.servermode + Me.btnServiceConfig.Name = "btnServiceConfig" + ' + 'btnRestartZooflow + ' + Me.btnRestartZooflow.Caption = "Zooflow neustarten" + Me.btnRestartZooflow.Id = 6 + Me.btnRestartZooflow.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_refresh + Me.btnRestartZooflow.Name = "btnRestartZooflow" + ' + 'bbtnitmAusblenden + ' + Me.bbtnitmAusblenden.Caption = "Ausblenden" + Me.bbtnitmAusblenden.Id = 11 + Me.bbtnitmAusblenden.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmAusblenden.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bbtnitmAusblenden.Name = "bbtnitmAusblenden" + ' + 'btnExitZooflow + ' + Me.btnExitZooflow.Caption = "Zooflow beenden" + Me.btnExitZooflow.Id = 1 + Me.btnExitZooflow.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.cancel + Me.btnExitZooflow.Name = "btnExitZooflow" + ' + 'barDockControlTop + ' + Me.barDockControlTop.CausesValidation = False + Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) + Me.barDockControlTop.Manager = Me.BarManager1 + Me.barDockControlTop.Size = New System.Drawing.Size(202, 0) + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.Appearance.BackColor = System.Drawing.Color.White + Me.barDockControlBottom.Appearance.Options.UseBackColor = True + Me.barDockControlBottom.CausesValidation = False + Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.barDockControlBottom.Location = New System.Drawing.Point(0, 774) + Me.barDockControlBottom.Manager = Me.BarManager1 + Me.barDockControlBottom.Size = New System.Drawing.Size(202, 26) + ' + 'barDockControlLeft + ' + Me.barDockControlLeft.CausesValidation = False + Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left + Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0) + Me.barDockControlLeft.Manager = Me.BarManager1 + Me.barDockControlLeft.Size = New System.Drawing.Size(0, 774) + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right + Me.barDockControlRight.Location = New System.Drawing.Point(202, 0) + Me.barDockControlRight.Manager = Me.BarManager1 + Me.barDockControlRight.Size = New System.Drawing.Size(0, 774) + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "BarButtonItem2" + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "BarButtonItem3" + Me.BarButtonItem3.Id = 3 + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'BarButtonItem4 + ' + Me.BarButtonItem4.Caption = "BarButtonItem4" + Me.BarButtonItem4.Id = 4 + Me.BarButtonItem4.Name = "BarButtonItem4" + ' + 'BarButtonItem5 + ' + Me.BarButtonItem5.Caption = "BarButtonItem5" + Me.BarButtonItem5.Id = 5 + Me.BarButtonItem5.Name = "BarButtonItem5" + ' + 'lblQuicksearch1 + ' + Me.lblQuicksearch1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblQuicksearch1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblQuicksearch1.Appearance.Options.UseFont = True + Me.lblQuicksearch1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lblQuicksearch1.Location = New System.Drawing.Point(21, 5) + Me.lblQuicksearch1.Name = "lblQuicksearch1" + Me.lblQuicksearch1.Size = New System.Drawing.Size(158, 18) + Me.lblQuicksearch1.TabIndex = 0 + Me.lblQuicksearch1.Text = "Schnellsuche" + ' + 'Panel3 + ' + Me.Panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.Panel3.Location = New System.Drawing.Point(21, 434) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(158, 2) + Me.Panel3.TabIndex = 17 + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.PictureEdit2) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(202, 202) + Me.Panel1.TabIndex = 18 + ' + 'PictureEdit2 + ' + Me.PictureEdit2.Dock = System.Windows.Forms.DockStyle.Fill + Me.PictureEdit2.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_drop + Me.PictureEdit2.Location = New System.Drawing.Point(0, 0) + Me.PictureEdit2.MenuManager = Me.BarManager1 + Me.PictureEdit2.Name = "PictureEdit2" + Me.PictureEdit2.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.PictureEdit2.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto] + Me.PictureEdit2.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom + Me.PictureEdit2.Size = New System.Drawing.Size(202, 202) + Me.PictureEdit2.TabIndex = 18 + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.GridControlRecentFiles) + Me.Panel2.Controls.Add(Me.PictureBoxPM) + Me.Panel2.Controls.Add(Me.LabelControl1) + Me.Panel2.Controls.Add(Me.Panel3) + Me.Panel2.Controls.Add(Me.pnlQuicksearch1) + Me.Panel2.Controls.Add(Me.PictureBoxSearch) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel2.Location = New System.Drawing.Point(0, 202) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(202, 572) + Me.Panel2.TabIndex = 17 + ' + 'GridControlRecentFiles + ' + Me.GridControlRecentFiles.Anchor = System.Windows.Forms.AnchorStyles.Bottom + Me.GridControlRecentFiles.Location = New System.Drawing.Point(21, 246) + Me.GridControlRecentFiles.MainView = Me.RecentFilesView + Me.GridControlRecentFiles.MenuManager = Me.BarManager1 + Me.GridControlRecentFiles.Name = "GridControlRecentFiles" + Me.GridControlRecentFiles.Size = New System.Drawing.Size(158, 182) + Me.GridControlRecentFiles.TabIndex = 18 + Me.GridControlRecentFiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.RecentFilesView}) + ' + 'RecentFilesView + ' + Me.RecentFilesView.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand1}) + Me.RecentFilesView.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Simple + Me.RecentFilesView.Columns.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() {Me.colPrimary, Me.colSecondary}) + Me.RecentFilesView.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.None + Me.RecentFilesView.GridControl = Me.GridControlRecentFiles + Me.RecentFilesView.Name = "RecentFilesView" + Me.RecentFilesView.OptionsBehavior.Editable = False + Me.RecentFilesView.OptionsBehavior.ReadOnly = True + Me.RecentFilesView.OptionsSelection.EnableAppearanceFocusedCell = False + Me.RecentFilesView.OptionsSelection.EnableAppearanceHideSelection = False + Me.RecentFilesView.OptionsView.ColumnAutoWidth = True + Me.RecentFilesView.OptionsView.ShowBands = False + Me.RecentFilesView.OptionsView.ShowColumnHeaders = False + Me.RecentFilesView.OptionsView.ShowGroupPanel = False + Me.RecentFilesView.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[False] + Me.RecentFilesView.OptionsView.ShowIndicator = False + Me.RecentFilesView.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False] + ' + 'GridBand1 + ' + Me.GridBand1.Caption = "GridBand1" + Me.GridBand1.Columns.Add(Me.colPrimary) + Me.GridBand1.Columns.Add(Me.colSecondary) + Me.GridBand1.Name = "GridBand1" + Me.GridBand1.VisibleIndex = 0 + Me.GridBand1.Width = 75 + ' + 'colPrimary + ' + Me.colPrimary.Caption = "Primary" + Me.colPrimary.FieldName = "Primary" + Me.colPrimary.Name = "colPrimary" + Me.colPrimary.Visible = True + ' + 'colSecondary + ' + Me.colSecondary.AppearanceCell.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.colSecondary.AppearanceCell.Options.UseForeColor = True + Me.colSecondary.Caption = "Secondary" + Me.colSecondary.FieldName = "Secondary" + Me.colSecondary.Name = "colSecondary" + Me.colSecondary.RowIndex = 1 + Me.colSecondary.Visible = True + ' + 'LabelControl1 + ' + Me.LabelControl1.Anchor = System.Windows.Forms.AnchorStyles.Bottom + Me.LabelControl1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LabelControl1.Appearance.Options.UseFont = True + Me.LabelControl1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.LabelControl1.Location = New System.Drawing.Point(21, 222) + Me.LabelControl1.Name = "LabelControl1" + Me.LabelControl1.Size = New System.Drawing.Size(158, 18) + Me.LabelControl1.TabIndex = 0 + Me.LabelControl1.Text = "Zuletzt bearbeitet" + ' + 'AdornerUIManager1 + ' + Me.AdornerUIManager1.Elements.Add(Me.PMTaskBadgeGroup) + Me.AdornerUIManager1.Elements.Add(Me.PMTaskBadgeIndividual) + Me.AdornerUIManager1.Owner = Me + ' + 'PMTaskBadgeGroup + ' + Me.PMTaskBadgeGroup.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.PMTaskBadgeGroup.Appearance.Options.UseBackColor = True + Me.PMTaskBadgeGroup.Properties.Location = System.Drawing.ContentAlignment.BottomRight + Me.PMTaskBadgeGroup.Properties.Text = "0" + Me.PMTaskBadgeGroup.TargetElement = Me.PictureBoxPM + Me.PMTaskBadgeGroup.TargetElementRegion = DevExpress.Utils.VisualEffects.TargetElementRegion.Control + Me.PMTaskBadgeGroup.Visible = False + ' + 'PMTaskBadgeIndividual + ' + Me.PMTaskBadgeIndividual.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.PMTaskBadgeIndividual.Appearance.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold) + Me.PMTaskBadgeIndividual.Appearance.ForeColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.PMTaskBadgeIndividual.Appearance.Options.UseBackColor = True + Me.PMTaskBadgeIndividual.Appearance.Options.UseFont = True + Me.PMTaskBadgeIndividual.Appearance.Options.UseForeColor = True + Me.PMTaskBadgeIndividual.Properties.Location = System.Drawing.ContentAlignment.TopRight + Me.PMTaskBadgeIndividual.Properties.PaintStyle = DevExpress.Utils.VisualEffects.BadgePaintStyle.Information + Me.PMTaskBadgeIndividual.Properties.Text = "0" + Me.PMTaskBadgeIndividual.TargetElement = Me.PictureBoxPM + ' + 'TimerDisplay + ' + Me.TimerDisplay.Interval = 60000 + ' + 'TreeViewToolStripMenuItem + ' + Me.TreeViewToolStripMenuItem.Name = "TreeViewToolStripMenuItem" + Me.TreeViewToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.TreeViewToolStripMenuItem.Text = "treeView" + ' + 'frmFlowForm + ' + Me.AllowDrop = True + Me.Appearance.BackColor = System.Drawing.Color.White + Me.Appearance.ForeColor = System.Drawing.SystemColors.ControlText + Me.Appearance.Options.UseBackColor = True + Me.Appearance.Options.UseFont = True + Me.Appearance.Options.UseForeColor = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(202, 800) + Me.Controls.Add(Me.Panel2) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.barDockControlLeft) + Me.Controls.Add(Me.barDockControlRight) + Me.Controls.Add(Me.barDockControlBottom) + Me.Controls.Add(Me.barDockControlTop) + Me.DoubleBuffered = True + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.IconOptions.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZOO_FLOW__sysicon_256 + Me.Name = "frmFlowForm" + Me.Text = "ZooFlow" + Me.TransparencyKey = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.ContextMenuSystray.ResumeLayout(False) + CType(Me.PictureBoxSearch, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBoxPM, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlQuicksearch1.ResumeLayout(False) + CType(Me.txtQuicksearch1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureEditQuicksearch1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + CType(Me.PictureEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel2.ResumeLayout(False) + CType(Me.GridControlRecentFiles, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RecentFilesView, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.AdornerUIManager1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents NotifyIcon As NotifyIcon + Friend WithEvents ContextMenuSystray As ContextMenuStrip + Friend WithEvents VerwaltungToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ZooFlowBeendenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ToolTip1 As ToolTip + Friend WithEvents ToolStripSeparator1 As ToolStripSeparator + Friend WithEvents TimerCheckFolderWatchTable As Timer + Friend WithEvents TestToolStripMenuItem As ToolStripMenuItem + Friend WithEvents PictureBoxSearch As DevExpress.XtraEditors.SvgImageBox + Friend WithEvents PictureBoxPM As DevExpress.XtraEditors.SvgImageBox + Friend WithEvents ToolStripSeparator2 As ToolStripSeparator + Friend WithEvents ToolStripSeparator3 As ToolStripSeparator + Friend WithEvents pnlQuicksearch1 As Panel + Friend WithEvents txtQuicksearch1 As TextEdit + Friend WithEvents lblQuicksearch1 As LabelControl + Friend WithEvents Panel1 As Panel + Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager + Friend WithEvents Bar3 As DevExpress.XtraBars.Bar + Friend WithEvents BarSubItem1 As DevExpress.XtraBars.BarSubItem + Friend WithEvents btnExitZooflow As DevExpress.XtraBars.BarButtonItem + Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents btnRestartZooflow As DevExpress.XtraBars.BarButtonItem + Friend WithEvents btnServiceConfig As DevExpress.XtraBars.BarButtonItem + Friend WithEvents btnBasicConfig As DevExpress.XtraBars.BarButtonItem + Friend WithEvents Panel2 As Panel + Friend WithEvents btnGlobixConfig As DevExpress.XtraBars.BarButtonItem + Friend WithEvents AdornerUIManager1 As DevExpress.Utils.VisualEffects.AdornerUIManager + Friend WithEvents PictureEditQuicksearch1 As PictureEdit + Friend WithEvents PictureEdit2 As PictureEdit + Friend WithEvents Panel3 As Panel + Friend WithEvents bbtnitmAusblenden As DevExpress.XtraBars.BarButtonItem + Friend WithEvents EinblendenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SucheEntwurfToolStripMenuItem As ToolStripMenuItem + Friend WithEvents GridControlRecentFiles As DevExpress.XtraGrid.GridControl + Friend WithEvents RecentFilesView As DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView + Friend WithEvents colSecondary As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents colPrimary As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents GridBand1 As DevExpress.XtraGrid.Views.BandedGrid.GridBand + Friend WithEvents LabelControl1 As LabelControl + Friend WithEvents PMTaskBadgeGroup As DevExpress.Utils.VisualEffects.Badge + Friend WithEvents TimerDisplay As Timer + Friend WithEvents PMTaskBadgeIndividual As DevExpress.Utils.VisualEffects.Badge + Friend WithEvents TreeViewToolStripMenuItem As ToolStripMenuItem +End Class diff --git a/GUIs.ZooFlow/frmFlowForm.resx b/GUIs.ZooFlow/frmFlowForm.resx new file mode 100644 index 0000000..431850b --- /dev/null +++ b/GUIs.ZooFlow/frmFlowForm.resx @@ -0,0 +1,2047 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 196, 17 + + + 304, 17 + + + + + AAABAAYAAAAAAAEAIADPJgAAZgAAAICAAAABACAAKAgBADUnAABAQAAAAQAgAChCAABdLwEAMDAAAAEA + IACoJQAAhXEBACAgAAABACAAqBAAAC2XAQAQEAAAAQAgAGgEAADVpwEAiVBORw0KGgoAAAANSUhEUgAA + AQAAAAEACAYAAABccqhmAAAmlklEQVR42u2df1RVZf7v3zhCxiE9HEfAhC8EqNQoCDnXH+HPssTG0EYX + TaSRy2qtnK8xq2a81qrIplzOzXXRb7pufb2GGiVXv4l5Fc1JQZnUGQNBK1M4A6nlwQkO5qGuTOP94+yN + Bzg/9o9n7+c553xea7GUwzl7f5599ue9P8/neZ7PEwEiaClPz7YCGCf9Ol36N0X6AQArgCydp2kA4JT+ + 3yL9AEC19O+pwqZ6p5oDEuIQwdsAIjDl6dnj4HbqcdKPFcA03nb1oQZuoTgl/bQUNtWf4m0U4R8SAMGQ + nH06bjq73ic4bxpwUxSqSRTEggSAM+Xp2dPhdvjpEO+pbhQ1cHchqgub6qt5GxPOkACYjMcTfh7Cx+ED + UQOgEhQhmA4JgAmUp2fPw02nT+Ztj+C04qYYVPI2JtQhATAIyenlnyG87QlSOuEWg0oSA2MgAWCIFN4X + g5zeCGQxKKVuAjtIAHQijcUXwe34FN6bQyuAUgBlNAdBHyQAGpGy90UAHudtS5izBW4hqOZtSDBCAqCS + 8vTsIgAloKe9aLQCKClsqi/jbUgwQQKgACnML5Z+qG8vNp1wdw9KqXsQGBIAP5SnZ6fA7fRFIMcPNjoB + lMEtBC28jREVEgAvSI5fAurfhwpb4O4etPA2RDRIADzwCPVf4W0LYQivgroGvSABAPXxwwzKEXgQ9gJA + Wf2whUYNEMYCIM3aKwUtyAl3agAUh+vswrATACncLwHwLG9bCKFYB3dE4ORtiJmElQBIC3TKQP18wjud + AIrCaeFRWAiANKxXBgr3CWXUwC0ELbwNMZoBvA0wmvL07GK4y1GR8xNKmQbglHTvhDQhGwFIff1KkOMT + +qgBMC9UcwMhGQFIff0WkPMT+pkGoEW6p0KOkIoAKMNPGEzIjRSEjABI4/plCP4y2oTYNMCdIDzF2xAW + hIQA0PAeYTIhM1wY9DmA8vTsUgC7QM5PmMcQALukey+oCdoIgLL8hCAE9ShBUEYAUn+/GuT8BH+mAaiW + 7smgI+giAKkYZyUo5CfEohPuSKCatyFqCKoIQFq6exjk/IR4DAFwWLpHg4agEYDy9OwSAO/ytoMgAvCu + dK8GBUHRBShPzy4D1ecjgosthU31RbyNCITwAkDOTwQxwouA0AJAzk+EAEKLgJACII3xV4Om9RKhQQOA + 6SLOFRBOAMj5iRBFSBEQcRSgGuT8ROiRBfe9LRRCCYDU5yfnJ0KVLOkeFwZhugCU8CPCCGESg0IIADk/ + EYYIIQI/422ANGuKKvgQ4ca4X9uGR3zYfrmapxFcIwBp3jRN7yXCmSd4bk/GTQCkVX2HeZ2fIARiBq9V + hFwEwGM9P63qIwj3UuLpPOoMmi4ANNGHILzCZaIQj3kAlSDnJ4i+ZMHtG6ZiqgBIRRSpjBdBeGea2YVG + TesCSKW7d5nZOIIIUuabVXLcFAGgpB9BqMK0pKDhAkBJP4LQhClJQTNyACUg5ycItWTB7TuGYmgEQP1+ + gtCNofkAwwRACv1bQP1+gtBDJ4AUo7oCRnYBKkHOTxB6GQID5wcYIgDl6dnFoPF+gmDFNMmnmMO8C1Ce + np0C4BTo6U8QLOkEMK6wqb6F5UGNiADKQM5PEKwZArdvMYWpAEhZfwr9CcIYpkk+xgxmXQDK+hOEKTAd + FWAZAZSAnJ8gjGYIGE4QYhIBSHP96/lcD4IIS7JZrBVgFQGUcr0UBBF+lLI4iG4BkAp7UuKPIMxlmuR7 + utDVBZASf6cAJPO+GgQRhrTCPTfAqfUAeiOAYpDzEwQvkuH2Qc1ojgBo2I8ghEDXsKCeCKAY5PwEwZsh + 0BEFaIoApPn+f+fdcoIgerhDyzoBrRFACe/WEgTRixItH1IdAdDTnyCERXUUoCUCKObdSoIgvFKs9gOq + IgDK/BOE0KgeERio8gTFIOcnCN3YcjIRNWSw7uO0N5zB9Xan/Ks8IlCi9PNqIwAnSACEJCY1GakF83H2 + 7TLPG4IpUTYrMp4ugr1iF67ZW3k3Oah59Hwdk+Mcff5FXNhd5flSZ2FTvVXp5xXnAKR5x+T8gpGUn4dZ + O7fgoQO7MGbJYmQ8XWTYuTKeLsKYJYvx0IFdmLVzC5Ly83g3PyiJslmZHSv2rtF9XxqiZo2Ami5AiYHX + hFCB/CROfXA2ouPjev1tzJLFhjyhY1KTMWbJ4p7fh2WNxbCssej6/bOw791vaOQRatiyxjA7Vszw4d5e + LoHC8mGKIoDy9OzpoDn/3EmYkYvJ69dgwYlDGLNkcT/nl7n7pT8wP7evY0bHx2HMksVYcOIQJq9fg4QZ + ubwvk/BEDr6N2bEstyd4ezlZ8tmAKI0Aigy+JoQPomxWJD34AMY+/YRPh+/LiNxJSJiRi8uHa5nYkDAj + FyNyJwV8X0reLKTkzUKXow2n334XF/YeoKjAC17Cds1YEuJ9/akI7j05/RIwCSgN/XWYcWGIm8SkJiOz + +BmMmDoZkRaL6s93OdpQmTubiS3zavcrFh9Pul0uXDryKRpLN1LS0IPJ69cgJW8Ws+O9PzLH159iAw0J + KukCFJl1YQggbVFBT1IvJW+WJucH3KH5ncuW6rbnzmVLNTk/AERaLEjJm9WTNExbVGDotQsWfITtmrHl + ZPr6U1GgzyoRgGKjLwjhZtbOLZjw8goMyxrL5HhjnnxcV8Y5ymbFmCcfZ2LLsKyxmPDyCszauYXJ8YIZ + P2G7JvzMJygO9Fm/OQCp2Ccl/0yi41wTM+cH3E/gzOf/HSdfeA2Asskn1zuvor2uEQCQ+fy/a45A/LUx + 3NEaUfki9q4MX/me5PL07HH+iocGSgIWm31xwhnHiZMYtXA+02OOWjgfd8y5X7Ujd7tczJ1fbmMwEGWz + Yto762DfvQ/N2yqYHddPuK4Zy4jh/v5cDD9dAb9JwM/L3vvxXz/9dAtzi4OMtuMnmWXU/RFls2LBiUO8 + m2soOyfMFH5kIMpmxX3vb4I1LRUA0FJ1EJ8uX6H5eLacTKQuyEdcTlbPMVkjJ1wdf6vrO/rid2agTwE4 + v2vP6vR5v/rvhlgbZJzZvBWNq0tNOdec/TsNu0l442y2Y9/sBbzN8Etf5/e0/cgzzykezYhJTUbG0sVI + nHoP85A/ELIY2HftkR9c8wub6iu9vddnFyBmxO0LTbWaAABcrKkNWQG4WGN8FKUHX84PANa0VOR9+B6O + v/JG37n3vUjKz0PGokeY5nLUIo++yHMyvty2fTl+710AfI4CDP1FRmjehYLTdjw4+sih1jZ/zi8TabFg + ypuvY/wbL/X7W9qiAsyr3Y8pb77O1fn7Eh0fh7ufXz7jxo0bVm9/9xoBnN+1Z3VkdDSzjUMJ5ZiRa6C2 + 9UaJ83syauF8xI5KR81Tz8KWNQZjlz0plNN74+tDNasALO/7ulcBGJzyb/m8DQ5nLtUeUzT1Npi4VHuM + twleUev8MsOyxiL/0B5DRkqMYJAt9j5vr3vtAtyWOGIkb4PDmbaTobfPqoht0ur8MsHi/ABgGzXS6wKE + fgJw9oMdBbf+fKjaSkEEI6JsViTOmMLbDOYkzpjCdB28XvQ6f7AxMPrWAS0H/txvbng/ARhki32Et7Hh + ii0nE/mH9gjfn9SCHDIbMRFGLeHm/DK3Dvv5or6v9ROAwXckT+dtaDiStqgAsyvKgiqsVEukxYLZFWVc + FwWFq/MDwK3DhvVbNthPAGJHplt5GxpupC0qwISXtc80CzYmvLyCiwiEs/MDwG2Jt8f0HQ7sJQDnduwq + 5m1kuBFuzi/DQwTC2fllWg8e/q3n770EYNBQ2zzeBoYT4er8MmaLgOtbB+8mc+eWIYN/5fl7LwGISbw9 + i7eBItJ99RrzY4a788uYKQLHnnsRzmY77yZzxXL78F94/t5rtt+NGzdu8DZQNLpdLuyeOdfvCraY1GTE + 3zMRjr8cV7RYJGFGLma+s55304Ti0FPLFc0UVHut+2LLycS9mzeEdLI1EBERET1+3/Ofsx/sKBj9yILt + LE7Q5WiD67I73Oo414Tr33+v6HOJ03KF66N52XihH5413rocbbh45C9wnDgJx9Fj/YQjJjUZeR++F9Y3 + oDe6XS5UPfxYP6eOslkRP2US4ieM77WyTs8S3XCPvlo//uTJlAfu2wR4TAXWO/5/peE0zm7b7vWmV4It + J7NX3XkRuFR7LKDzR9msGDF1cs/v0fFxGLVwfk9hD2ezHRdratF2/CTaG85g6sa13J3f2WxH9zVXr9ci + YyxcxTfSYsHUjWuxb/YCJMzIRdzE8X4fCCOmTkaUzarpXmveVoH4X+YwLczJCs+Hpycs54YMtFgWAOgt + ALfExmo6Q7fLhaO/W6l7ocfEN15m1kAWdLtc+Oy1PwV8X9KDD/h1aGtaqvsm5iRuzmY72uoa4DhxEh2n + vwgYNsekJiN27F2InzDe0AIWvq6V0i2zIi0WJD34gOZqPZ8uXwHr/jSuotflaHN/N3+rQ8fnX/aUYvNF + lM0KW9YYxE0cj/i7szWLwqBY613y/3u6AFe/vtB1W1LirWoO1O1y4ZMlywIaHojMlcXCPf3rSzfiyw2b + Ar5Pa8lsI+lytMG+dz+THYLkPQe97ULEG72lz3l0x+RiHWfLynX7jbxnxOjChaqE7Ifv2q9H/3zoLYCH + AGhJACp1En/YcjIxu6JM1zFYc6XhNA4uCFwNV7RknrwhB8sadp6kLSpQtUGJGShNHvoiKT8PU9583XA7 + u10ufFXxX4ZtoZYwI1ftsuTYiIgI5wDAnQBUe8IuR5tu5wfEC/0B4NgflNmUOn8ub1MBuG+u+tKNqMyd + bZjzA+6+c2XubNSXbkS3y6X/gAwQ5Tvwx7kdu7B75lw0ri41rB7i5cO1OLjgcRx9/kV0OdoCvr/1408W + ANI8gFvjht2j9oSn335Xt9GZK4uFy/qf2bxVUdgcZbMKkUS60nAaVQ8/xkSMlfLlhk2oevgxXGk4zbv5 + SMmbpWuV4d2/f9Yw25zNduwvKMLJF14zrRDqhd1V2PfQIzi3Y5ff90UNGTwJkAQgIiJC9RKtC3sP6DJU + xKy/s9muuPinkdtwK+XM5q04uOBxLttuXbO34uCCx3Fm81bel0Hzd6Fn16NAtFQdxJ8fXaq7n6+F6+1O + nHzhNZxYtcZnpBYRMeAXgCQAg4baVO1WeKXhtG5FEzH0P/7CKsXvTX2Qzb57Wjmxao1plYr90bi6FCdW + reFqg5bvguWuR305s3krPl2+gnv58+ZtFfhkyTKvIjBoaGwaIAuAzRaj5sCOz/RVdxEx9D+3Y5ditU7K + z+OWCOt2ubC/oMjQvr5amrdVYH9BEbe8QHR8HJLy81R9JtDwrVZEEWaZ9rpGryIwKDY2BpAE4LbE21UJ + gJ7qriKG/l2ONjS++R+K35+xiF/NlLq1b3EJKwPRXteIurVvcTu/2u9k7NNPMLfhzOatQgmzjDcRGGSL + HQQAAz4ve0/13n96hl2EDP1f+qPicC0mNZlbxZ4Tq9YIeYPJNG+r4NYdGJY1FjGpym5lIyK4lqqDQj35 + +9Je14ijv1vZ67Xvvjg7ZUCkxaJqMzolQwy+EDH0b6k6qErQMpbyiV5aqg4K7fwyzdsq0FJ1kMu5lX43 + qfN+peh9SnE223GyZDWXNqvh8uFa1Jdu7Pn9u8+/vFvJ9uC98DZPWQkihv7dLpeqLy7KZsUdc+433c4u + R1tQ3GAyJ0tW63pQaOWOOfcHHBKMslmZl1w//sIq7gk/pXy5YVPP8K1lxO0JA9QWAdGaABQy9H/lDVVf + nFGJo4B2quiiiMD1dieOv/RH088rrw/wR6C/q+XM5q1C5mT8IU90++nHHyeqjgC0FMcQMfRXstKvL6ML + zd8u8UrDaWF31PHH5cO1XCYKBfqOEmdOZXauLkeb0P1+X1yzt+Lcjl2ItFgGDYiMiUlU8+GOL86qOpmo + ob+SlX59uVhTa/pQl9JpySJitu3dLlfADUjjstmVJWcxG5YXjW/+ByJjLLcPuMU6eKiaD17vvKrqRCKG + /mf+c4um2XONq0tR9fBjpm1zdaXhNJdZfqy4Zm81LQq4VHsMVQ8/5veJnDAjl1kXrsvRFhRJWV9cb3fi + i/+9tV31DkBq+jsihv5XGk7rmjd/zd6KmieWIWFGLnJWGNu+s9uYFGjiytlt2w0dNnU221G3prSnmySv + mbckjoAlcThihg+H5fYEWNNTmeZv7Hv3G37tjObCR/udEWrrALw/MkfR+0Rc5gsAHz0wn+lTNW1RAXKe + +y3z5KDete4iYUTNhG6XC3Vr30LztgqkLSpQvSZeL6zvI040DFDj/GrCOSFDf4Ur/dTQvK0Cu2fODbj6 + Si0Xj/zFzEtjKKzbIi+vlUNwS+JwU53f2WwPBecHgCzVowBKEDH0V7PSTy3y6qujz7/I7JiOE9qnW4sG + y7Ycff5FU5fXeiNQojGYGPj+yJyeflMgLIkjAr5HxKw/ANStKTX8HFGDBzM7ltohSpG5sLsKYFR1h+U1 + 1oqetTCiMRBwP8FYjTWLGPqf27HLlLF0S+JwJscJxc0rnM12JlEhq2ush2Ccl+ELpl0AEUN/tSv9RCAU + t7AKlTaFmjgzEwBRQ38zp9HG353N5Dgd586bYq+ZsGoTq2uslb77KQQ7zARAxND/Uu2xkArXCP64vrnM + 2wSmMBEAEUP/bpcLx55jl5U3k44vvuJtArXJB9e+/Za3CUzRLQDChv4qV/qJRPdVZXspBhOh2KZQQLcA + iBj6X2k4HdTDaLF3ZfA2gdoUJugSAGFD/yBeQQcAkYNVlWgMCkKlTbyTkKzRLACihv5aV/qx4Pr36msl + EOqga8wWzQIgauhv5g45fQmVoS4jCJUhUmu6WBGvXjQJgIihPwB89sZa3iYwwZIQz9sEapMPIi0WXVuR + iYZqARA29BegNhuroa7o+DjFJa6DgZjUZGbLgUUYToyfwraoKE9UC4CIob+RK/2UEmWzIn7CeGbHi79n + Itf2sIRlW+InjOf+BGb5PfNmAIAGpW8WNfQ3Y6WfP5Ly8zDno+0YtVDVFgt+YVm8kjcs2zJq4XzM+Wi7 + 6q3AmLZnqurNtEWlYSAAp5J3ihr6a1npl7aoAKn5c/qVOO+7zLO94YzfyUS2nEzc/cJzhpS8GpE7CVE2 + a9BOZpIxog5/dHwcprz5Oq4segSfvbEWFw8cAoCe8l+WhHhD926Mjo+DLSeTe5eTAU7FNQFFDP21rvSz + JA7HsKyx/R03gMAdemo5Lh+uRZTNivElK5GSN8vQ9iU9+EBQF56U22AUw7LGYnZFGVqqDuJkyep+YmnL + yUTUkMGIvSsDkYNjkDgtl1kEm1FUiE+DXwAwAEBLoDeJGvprXekXO2qk5nPeuWwp8g/tMdz5AWM2sDQb + M9qQkjcL+Yf24M5lS3u93l7XiMuHa/Hlhk1oXF2KI888x/ScvHMReplYutoaUABEDf31rPSLuk3brLR7 + 1qxCdvEzpu0OFB0fh7RFBaacywjSFhWYto16pMWC7OJnMK/Wd7Xea/ZWpluWZTxdZErbjCBhRi4GJycF + HgUQMfTXu9JPa5/92+N/M72twRwF8LC9rc5/TptlgdIxSxYH7XDt2GVP4ocr/3AOAFDt603Chv46Vvrp + Cdvsu/aY3tbo+Dhkriw2/bx6yVxZbNrT35NA3xHrYquT/rTK9DbqJSk/D8OyxmKQLfaMzwhA1NBf70o/ + JcVPfXH5cC2XXW/HLFkMWw67La2Mhte90+VoC9gtvLC7iun2bsOyxgZVNy3KZsXEV18AADjPNzcNAHDK + 2xuFDf11rvTTuixV3hOB135wE994OSiSTlE2K7d7R+l38/d9HzM9b85zvw0agZ72zrqeHNbQX9z52YDC + pnpn3zeJGvqzWOkXO1r7CAAAXNh7wPQNQgHAmpaKSWvZlNY2kklrX+dy73S7XLiw94Ci957dtJXpuSMt + lqAQ6PFvvNQr/zX0royjchegRn5R1NDf2WxnstIvLidL1+evtztx6cinXK7BiNxJmLx+DZdzK2Hy+jXM + J/0o5dKRTxXnhYzYtNSalor73t8krAikLSroNVP1nz/++E/g5loAp/wHEUN/ADj+gv5kS5TNqjkx5Tlr + sLF0I7frkJI3S0gRmLx+jSlzI3yh9js5veE/mdsgqgikLSrAhJdX9Hrt2qVvnMBNATgFCBz6M1rpx2pW + mpnbXntDFgERbrQom5W782vZRv3y4VpDvkPRRCBzZXE/5weAH7/raAY8BEDU0L/L0cZspR/LRSn23fs4 + XRE3KXmzcN/7m7iOQ8ekJuO+9zdxdX5A+3dhRBQAuEUg/9AeJMzI5XZNomxWTHt3g0+fvnHjX58DNwWg + RdjQ/6U/MrsgevqnfRcKNW+r4DIk6Ik1LRV5H77XbwqsGdy5bCnyPnyPe8TY5WjTvF7CqCgAcCcGZ76z + Hpkri02PBhJm5GLOR9v93u/XO68eAyQBKGyqP8X7i/QGyz390n6zgLl99r379R9EJ/IU2Fk7t5jyxEmY + kYtZO7eYOiXaH3q/A6MLyI5ZshhzPtpuylyBmNRkTHt3A2a+sz5griv5/nt3Ah4FQX74rv264RaqgOWe + flE2K0YbIQAVu8y+LD4ZljUWM99Zb5gQyI4/8531hix/1ore7yBjqfHd3uj4OEx4eQXm7N9piBDEpCZj + 8vo1eOjALkVR7g/ftV+PiIhwAtLuwADQ5Whz3DrUlmT41VDIZ/9jHbO18BlPF+meluotErlmb8Wl2mPc + hr68IQtBl6MNX32wE45jf9WcQLXlZCJ+0n/D6N8s4DKtNxCXao/pmheSlJ/HtIhLIKxpqZjw8grkPPdb + /H3fx7Dv3K35u4lJTUZS3izcMXe26m5Yl6OtZ6fWHgH4scP5BQAhBOBS7TFmG3sYndz8ausHigSgy9GG + jvPNpolFdHwcsoufAYqf6Tl3x7nzPbkMz2InUTZrzxTpuInjETtqJGJHpnFx+ku1xxSf+6utH2g+jy0n + s2dKrNlEWiwYtXA+Ri2cj26XC84mOxyf1aPji6/QffV7XGu90CNsnt9N7F0ZiB09EnE5Wbq+G8nXAXgI + wD9drp0AjKveoBCWe/rZcjJx7+YNhtorrw/o+4V0u1xoq29E28n6Xk/h8W+8ZOpTB3CLQXR8nFt8BBzp + kTm3YxdOvvAagJvRR9z4bMRlZ/bLNyiZ9+8LebqyCDmMSIvFe3EaA5F8HQAQ4fmHGzdu3OB9QU6sWsOk + Cs6dy5ZizJOPM/mSrzScxsEFj/s9V3bxM7jScBqOz+rRdvyk35tzzv6d3LPnouFstmPfbN95moQZuYib + OB7xd2djWNZY1Jdu1DwzlPe8Bd5ERET0+H0vAWg/d74jdmS6lZdhgRwtEFE2K5IefACp+XOYKmogu+Rh + HqU5iyibFXM+2i5kv5oHXY427HvoEVXXD1B+vT3xNisunPj+4jfXBieNuE3+vVdNwP/X0fkVgAm8jLPv + 3qcqgy3XeosZPhzWUWncnqpqb8Tr7U4cWf4H3Lt5gxBhKE+6XS4cWf4HVddQa3LYlpMZ1s4PAK5vvv3c + 8/feAtB59f+CowCI+uX0rR7Mgva6RnyyZFlYi0C3y4VPliwzrbru1PV/4t1k7kg+3kOvgiDJs2a8xdvA + cEIWAR7Li3ljtvMDgcuFhQN9fbyXAERERDg7zjc5eRsZToSjCPBwfgD4dPkKtFQd5N18bnx/8Ztr8gQg + mX4lwbra/nGCt6Gi0XcdAGva6xqxe+ZcOJvtvJtqOM5mO3bPnMttU41wFoGrrV/3q4jaTwCuXbjIp+ZV + mHO93Yk/P7o0pG/OlqqD+POjS7nvdhSuIuDNtyO8vbHryj+6b/35UMW7BoU68o5AZiHPKwgl9IzbG0U4 + zQf4Z9cP/4q0RP+s7+teqwJ/f/HSed4Gi4SZzg8AlhHDeTc5LNoUTpFA+7nzXvdV9yoAV1u+3s3b4HBG + b91CERG1TXpE4FLtMe41IZTiy6cjfH3gusv1r8jo6AgQeH9kjmnnirJZseDEId5NNoSdE2Zy7//7Qm13 + wLNLk7myGKMLfi3sfI7urq4bURaL14e9z41Bvvv8bOinpBVgdu2/+CniLC0Op7YpjQS6HG3YX1DUK5/R + uLoUu2fOxZnNW4Uczr3a8vVFX3/zKQDXLn2zg7fh4UjSvdN5mxC2bQskApdqj2HfQ494HcK83u7sEYIT + q9YIMaTb5WjDmc1b8deXX1/p6z1+Q3zqBuhfoKSWebX7Q3aRUJejDZW5s3mbERBv3YEzm7eqLk5ry8lE + 6oJ8JE69x9TvtKXqIC58Ui3X1OgsbKq3+nqv36G+7z4/a0/4ZU6aaZYLiBHrAHwRk5ocss4PuOsSxKQm + 697dyWg+Xb4CWO+uvNztcuHo71ZqGglqr2tEe10jTsItBokPzETitFzmi9a6HG24eOQvcJw46a2QTqW/ + z/oVgM5m+4sJv8zZztRawifx90xkfsxulwtfVfwX4u/OBgBY01N9Jqu6HG1wXXZXi3J8Vm9IYiv+nonC + CwDgFoGOZefR/MFOJolLWQzOvl3GPMlr37vfX3RS6u+zfgUg4zcLK75J/dvmgbfcEs3U4iDCdfFb087F + ct8Cmbq1b2kusOK6+C3zFZqJM6cyKfhiBkZMXDJiFMTPPdpa2FR/yt9nA872O1z41IsA/idzq4l+dJw7 + 77X8lVauNJzW5WzN2yqYFlfpdrnQcY7mmDmb7Uy7Aa6Ll3z9qTTQZwcEegOAMjMuCoFeWWQWE0xY7HzD + 4hhdjjacWLUGu2fOZbbLUzDTfY3tUGF7wxlffyoL9NmAAiBtH77F+MtCAO4QsXlbBSpzZ+PQU8s1z1Jr + qTrIZArz5cO1umw49NRyVObORvO2CmEnAZkN68Syj+u6RfJdvyhd8FMGwLyxMAKA2/kuH67FSdtqZDxd + hNQHZysaJeh2uZjuYNxYuhEjpk5W1DXpcrTBvnc/zr5dRg5vAn7mG5Qp+fzPlLzpw/bLLb+2DX8CgJV3 + g8ORn374EY7a4zi7+T04v/4aA6OjMfjffG/h8OV723FhzwFm57/e0YmBsUMQl+17Pv+l2mNoWP+/8NcV + JXDUHsdPP/zI+7IJS0TkQNwxN4/Jsb6/cBH2/1PZ9+XWwqb6YiWfV7PktwQA1QrgzIXdVbiwuwoxqcnI + WLoYd8y5v9eTmeVuyp40ri7tF4F0u1z4+76PcXbT1qAY2hOF651XmR3LR3eiROnnVc3yK0/PdgIYYsxl + IbSStqgAowsXwpqWiqPPv8hsV6W+JOXnYcqbr8PZbMdX5TuCZjhPRB49X8fkOF5mKPqd+dcXtUU/SgG8 + YuylIdTSvK0CzdsqYMvJNLTU1oXdVdh/4RK3cl6hRLfLxWS410u5ulI1n1cbAVgBtICiAIIQkU4AKUqy + /zJK5gH0IB24jHcrCYLwSpka5wdUCoBEKe9WEgThlVK1H1AtAIVN9S2giUEEIRpbJN9UhZYIAFAxzEAQ + hCmUaPmQJgGQlOZV3i0mCAIA8KqWpz+gPQIA3P2NTt4tJ4gwpxM68nKaBUDKNmo+MUEQTChVm/n3RE8E + ALgFgOaAEgQfWqHzIaxLACTlKeF9FQgiTCnR8/QHVM4E9EV5enY1gGm8rwZBhBE1hU310/UeRG8XQKaY + 66UgiPCjmMVBmAiAVHhwHceLQRDhxLpAxT6VwioCANy5ABoWJAhj6QTDvBszAZCSEUWmXw6CCC+K9Cb+ + PGG+7RclBAnCMJgk/jxh2QWQKQJ1BQiCNZ0wIMJmLgDSnOQSwy8HQYQXJVrn+/vDsJ1/qStAEMxgHvrL + GNEFkJkH6goQhF464fYlQzBMAGhUgCCYwDTr3xcjIwAUNtVXgiYIEYRW1kk+ZBiGCoBECYAGE85DEKFE + A0xIphuWBPSkPD17HIBqUDlxglBCJ4DprKb7+sOMCEBeK1BkxrkIIgQoMsP5AZMEAKB8AEEoxPB+vyem + dAE8ofkBBOETw8b7fWFaBODBPFBSkCD60gADx/t9YXoEAFBSkCD6YFrSry88IgA5KTiPx7kJQkDm8XB+ + gJMAAEBhU301gCd4nZ8gBOEJyRe48DOeLf+w/fKpX9uGRwCYztMOguDEq4VN9aU8DeCSA+hLeXp2GYDH + edtBECaypbCpvoi3EUIIAEAiQIQVQjg/IJAAACQCRFggjPMDggkAAJSnZ58CkMXbDoIwgIbCpvpxvI3w + hNsogB+mgyYKEaFHAwRMdgsXAQBAeXq2Fe6JQhQJEKFAA9wTfZy8DemLkAIgQzkBIgQQqs/fF6EFACAR + IIIaoZ0fCAIBAEgEiKBEeOcHxEwC9kO6kK/ytoMgFPJqMDg/ECQRgEx5enYRgHd520EQfniisKm+jLcR + SgkqAQCA8vTs6QAqQUuJCbHohHtVXzVvQ9QQFF0AT6QLPB00V4AQB3mYr5q3IWoJughARporUAkqL0bw + pQbuJ7+TtyFaCFoBkClPzy4F8CxvO4iwZF1hU30xbyP0EPQCAADl6dnzAJSB8gKEOXTCXbq7krchegkJ + AQB66gyWgaYPE8bSABPr9htN0CUBfSF9IdNBew8QxrEOnIp3GkXIRACeUJeAYEzIhPx9CUkBAGiUgGBG + UGf5AxGyAiBTnp5dDPcuqxQNEGroBFDCu2in0YS8AABAeXp2CtxdAooGCCXUwB3yt/A2xGjCQgBkKDdA + BCBk+/q+CJlRACVIX2wKaKSA6M86ACnh5PxAmEUAnkjzBkpB3YJwpwZAcSgN7akhbAVARlpiXAIgmbct + hKm0wp3kK+NtCE/CXgCAniHDYumH8gOhTSfckV9pqA7tqYEEwAMPIXiFty2EIbwKcvxekAB4QRo2LAHV + IQwVtsAd7rfwNkQ0SAD8IAlBMYAiUNcg2OiEe8i3lBzfNyQACqAcQVBBfXwVkACohEYNhIWy+hogAdCI + VJy0CJQn4M0WAGXBWI9PBEgAdCJ1D4rg7h5QVGAOrXCH+WUU5uuDBIAh0uzCYgDzQLkC1nTCvby7NFxn + 7RkBCYBBSAuP5B8SA23ITl8ZbnP0zYIEwAQkMZgOtxhQN8E/rXA7fTU5vfGQAJiM1E2YDrcY0EIkNzW4 + 6fSneBsTTpAAcEYaTZB/wkUQagBUw+3w1byNCWdIAATDI0IYJ/0Ee5nzBgCnpB96wgsGCUAQIIlCCm6K + ghXiRQs1AJy46ewt5OziQwIQxEhzEMZJv06X/k2RfgC3UOiNIBrgdmwAaJF+AHcIDwCnaCw+ePn/mwpQ + 8ZXpLVAAAAAASUVORK5CYIIoAAAAgAAAAAABAAABACAAAAAAAAAAAQASCwAAEgsAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpQwxJKU0MSSlXDEkpYQxJKWgMSSlwDEkpdgxJKXkMSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKXkMSSl2DEkpcAxJKWgMSSlhDEkpVwxJKU0MSSl + DAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUwMSSlcDEkpagxJKXcMSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl3DEkpagxJKVwMSSlMAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSl + FDEkpVwxJKWoMSSl7zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl7zEkpagxJKVcMSSlFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAxJKUMMSSlZDEkpbwxJKX7MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX7MSSlvDEkpWQxJKUMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKU4MSSloDEkpfcxJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpfcxJKWgMSSl + OAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + ADEkpQQxJKVcMSSl0DEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl0DEkpVwxJKUEAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpQgxJKVwMSSl4DEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpeAxJKVwMSSlCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpQQxJKVgMSSl + 3zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKXfMSSl + YDEkpQQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAxJKU8MSSl0DEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl0DEkpTwAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUUMSSlpDEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpaQxJKUUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAMSSlYDEkpe8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpe8xJKVgAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlFDEkpbAxJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKWwMSSlFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + ADEkpUQxJKXjMSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKXjMSSlRAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKV4MSSl+zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX7MSSleAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUMMSSl + qDEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSlqDEkpQwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlGDEkpcwxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + zDEkpRgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpSgxJKXfMSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl3zEkpSgAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAxJKUoMSSl5zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl5zEkpSgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlPDEkpfMxJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl8zEkpTwAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAADEkpSgxJKXzMSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl8zEkpSgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUoMSSl5zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + 5zEkpSgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAMSSlGDEkpd8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl3zEkpRgAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpQwxJKXMMSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSlzDEkpQwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAMSSlqDEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSlqAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpXgxJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSleAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAxJKVEMSSl+zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX7MSSl + RAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlFDEkpeMxJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKXjMSSlFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAxJKWwMSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKWwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlYDEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKVgAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + ADEkpRQxJKXvMSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpe8xJKUUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlpDEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpaQAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + ADEkpTwxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpTwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUEMSSl0DEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + 0DEkpQQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + ADEkpWAxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSlYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUIMSSl3zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKXfMSSlCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + ADEkpXAxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKVwAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUEMSSl4DEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpeAxJKUEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + ADEkpVwxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/0c7rv+bldP/Qzis/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf9DOKz/m5XT/0c7rv8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf/8/P7///////////////////////////////////////////9cU7f/MSSl/zEkpVwAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSl0DEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/2lgvP+/vOL//Pz+ + //////+vqtv/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/6+q2////////Pz+ + /7+84v9pYLz/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/TEGw//////////////////////////////// + /////////////////3Vtwv8xJKX/MSSl0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + ADEkpTgxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/QDSr/4uEzP/i4fL///////////////////////z8/v9bUbf/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf9bUbf//Pz+///////////////////////i4fL/i4TM/0A0q/8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf9pYbz/////////////////////////////////////////////////kInO/zEkpf8xJKX/MSSl + OAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSloDEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/TUKx/6+r2//6+f3///////////////////// + /////////////////8/N6f8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/8/N6f////////// + ////////////////////////////+vn9/6+r2/9NQrH/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/4R9yf////////////////////////// + //////////////////////+rptr/MSSl/zEkpf8xJKWgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AKun2Bbn5vT96ej1/+no9f/p6PX/6ej1/+no9f/p6PX/6ej1/+no9f/p6PX/6ej1/+no9f/p6PX/6ej1 + /+no9f/p6PX/6ej1/+no9f/p6PX/6ej1/+no9f/p6PX/6ej1/+no9f/p6PX/6ej1/+no9f/p6PX/6ej1 + /+no9f/p6PX/6ej1/2Nauf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf9sY77//////////////////////////////////////////////////////5SOz/+Cesj/lY/R + /5iS0v+YktL/k4zQ/4J6yP+Ujs////////////////////////////////////////////////////// + /2xjvv8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/0o/r/81Kaf/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/nJbU/////////////////////////////////////////////////8rH5v8xJKX/MSSl + /zEkpfcxJKUMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4uHxd/////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////////////////////////dW3C/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zktqP/6+f3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////6+f3/OS2o/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf9TSbT/7u33 + /9jW7f9NQrH/MSSl/zEkpf8xJKX/MSSl/zEkpf89Mar/fnfG/8C84v/39vv///////////////////// + ////////////////////////////+vn9/8rH5v+Hf8r/Qzis/zEkpWQAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAADm5fPY//////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////+Cesj/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/83K6P////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /83K6P8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/U0m0/+7t9/////////////Hw+P9vZr//MSSl/zEkpf9RR7L/r6vb + //f2+/////////////////////////////////////////////////////////////////////////// + ///////6+f3/xcLkzwAAAAAAAAAAAAAAAAAAAAAAAAAAs6/bIv39/v////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////////////////////////////////////////////5iS0v8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/lI3Q//////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////////lI3Q/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/1NJtP/u7ff///// + //////////////////////+jndb/r6rb//z8/v////////////////////////////////////////// + ///////////////////////////////////////////////////////9/f7/s6/bIgAAAAAAAAAAAAAA + AAAAAADg3vB0//////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////p6LY/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf9pYLz///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////9pYLz/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf9TSbT/7u33//////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////l5PN1AAAAAAAAAAAAAAAAAAAAAOjn9MP///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////+2st7/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/ZFu7/+7t9/////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////////////////////////////+7t9/9kW7v/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/U0m0/+7t9/////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////////////////////////////////////////////+jn9MMAAAAAAAAA + AAAAAAD///8E9vb7+/////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////////////9DO6f8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/3lxw//8/P7///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////z8/v95ccP/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/1NJtP/u7ff///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////+fj8/P///wQAAAAAAAAAAMfD5FH///////////////////////// + ///////////////////////////////////////////////////////h4PH/trLe/7ay3v+2st7/trLe + /7ay3v/AveL/1tTs//f2+///////////////////////////////////////////////////////3Nvv + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf95ccP//Pz+//////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////z8/v95ccP/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/a2K+//////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////////////////////////////////////////x8Pk + UQAAAAAAAAAA7u33fP////////////////////////////////////////////////////////////// + //////////////////Tz+v9HO67/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/NSmn/29mv//i4PL///// + ///////////////////////////////////////p6PX/MSSl/zEkpf8xJKX/TkOx/5GKzv9cU7f/MSSl + /zEkpf8xJKX/YFe5//r5/f////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////r5/f9gV7n/MSSl/zEkpf8xJKX/XFO3/5GKzv9OQ7H/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/nZfT//////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////y8fl9AAAAAAAAAADq6fXH//////////////////// + /////////////////////////////////////////////////////////////////7+74v8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/z0xqv/U0uz///////////////////////////////////// + //////8xJKX/MSSl/zEkpf+inNb////////////u7ff/vbnh/4R9yf/r6vb///////////////////// + //////////////////////////////////////////////////r5/f/Z2O3/trLe/5yW1P+cltT/trLe + /9nY7f/6+f3///////////////////////////////////////////////////////////////////// + /+vq9v+Efcn/vbnh/+7t9////////////6Kc1v8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf81Kaf/zMno + //////////////////////////////////////////////////////////////////////////////// + ///////x8fn/xsTl/6+q2/+YktL/q6ba/8C94v/o5/X///////////////////////////////////// + /+rp9ccAAAAAAAAAAPHx+Pb///////////////////////////////////////////////////////// + /////////////////////////////////3Vtwv8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /1FHsv/6+f3//////////////////////////////////////0A0q/8xJKX/OS2o//Hw+P////////// + //////////////////////////////////////////////////////////////////////////////// + /8/N6f94cMP/PTGq/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/z0xqv94cMP/z83p//////////////// + ////////////////////////////////////////////////////////////////////////////8fD4 + /zktqP8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf9DOKz/6+r2//////////////////////////////// + //////////////////////////////////f2+/+rptr/XFK3/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf9SR7L/l5HR/+7t9///////////////////////8fH49gAAAAAxJKUM9/b7//////////////// + ////////////////////////////////////////////////////////////////////////////6+r2 + /0A0q/8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/7Wx3v////////////////////////// + ////////////T0Wx/zEkpf97c8X///////////////////////////////////////////////////// + /////////////////////////////////+Lg8v9oX7z/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/aF+8/+Lg8v////////////////////////////////////////// + ////////////////////////////////////////////e3PF/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf/Ixeb///////////////////////////////////////////////////////////+zr93/Rzuu + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/OS2o/5mT0f/6+f3///// + ////////////xcPkHTEkpTSMhsz///////////////////////////////////////////////////// + ////////////////////////////////////////////r6rb/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/bGO+//////////////////////////////////////9pYbz/MSSl/9bU7P////////// + //////////////////////////////////////////////////////////////////////+2st7/OS2o + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/OS2o + /7ay3v////////////////////////////////////////////////////////////////////////// + ///////W1Oz/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/aF+8//////////////////////////////// + ///////////////////////39vv/dW3C/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/1pQtv/o5/T////////////LyedZMSSlXDEkpf/PzOn///// + //////////////////////////////////////////////////////////////////////////////// + ////////////aF+8/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf81Kaf/+vn9//////////////// + /////////////////3Vtwv9bUbf///////////////////////////////////////////////////// + ////////////////////////////qaTZ/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/6mk2f////////////////////////// + //////////////////////////////////////////////////////9bUbf/MSSl/zEkpf8xJKX/MSSl + /zEkpf/Pzen/////////////////////////////////////////////////9/b7/2Rbu/8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /0c7rv/h4PH//////+rq9XoxJKWEMSSl/01Csf/39vv///////////////////////////////////// + ///////////////////////////////////////////////////////i4PL/OS2o/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf/T0ev/////////////////////////////////gnrI/6+r2/////////// + /////////////////////////////////////////////////////////////////7m13/8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/7m13/////////////////////////////////////////////////////////// + /////////////////6+r2/8xJKX/MSSl/zEkpf8xJKX/WE61//////////////////////////////// + //////////////////z8/v9sY77/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/1BGsv/08/r/+/v9jzEkpaAxJKX/MSSl + /4yGzP////////////////////////////////////////////////////////////////////////// + //////////////////////+fmtT/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/6um2v////////// + //////////////////////+notj/+vn9//////////////////////////////////////////////// + ///////////////////////o5/T/PTGq/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/PTGq/+jn9P////////// + ////////////////////////////////////////////////////////////+vn9/0A0q/8xJKX/MSSl + /zEkpf+oo9j/////////////////////////////////////////////////o53W/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/3hww//r6vbBMSSlwDEkpf8xJKX/MSSl/8/M6f////////////////////////// + //////////////////////////////////////////////////////////////////z8/v9aULb/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/jYbN/////////////////////////////////+rp9f////////// + /////////////////////////////////////////////////////////////////3Vswv8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/dWzC//////////////////////////////////////////////// + ////////////////////////////gXrI/zEkpf8xJKX/MSSl/+Xk8/////////////////////////// + /////////////////+jn9P85Laj/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/7Ov3OQxJKXYMSSl + /zEkpf8xJKX/TUKx//f2+/////////////////////////////////////////////////////////// + /////////////////////////////////9XT7P81Kaf/MSSl/zEkpf8xJKX/MSSl/zEkpf9yasD///// + ////////////////////////////trLe/393xv/u7ff///////////////////////////////////// + ///////////////////////c2u//MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/3Nrv + ////////////////////////////////////////////////////////////7u33/393xv8xJKX/PTGq + /1lPtf+Aecb/////////////////////////////////////////////////i4TM/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/UEWy5DEkpeQxJKX/MSSl/zEkpf8xJKX/jIbM//////////////// + //////////////////////////////////////////////////////////////////////////////// + /5ONz/8xJKX/MSSl/zEkpf8xJKX/MSSl/0c7rv91bcL/aWG8/1xTt/9PRbH/RDmt/zEkpf8xJKX/MSSl + /z0xqv+fmtT/+vn9/////////////////////////////////////////////////46Hzf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf+Oh83///////////////////////////////////// + ////////////+vn9/5+a1P9kW7r/1tTs/+7u9/////////////////////////////////////////// + //////////////////r5/f89Mar/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKXkMSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/z8zp//////////////////////////////////////////////// + ////////////////////////////////////////////9/b7/01Csf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf9nXrv///////////////////// + ////////////////////////////T0Sx/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /09Esf////////////////////////////////////////////////9nXrv/MSSl/2lhvP////////// + ////////////////////////////////////////////////////////////ysfm/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf9NQrH/9/b7 + //////////////////////////////////////////////////////////////////////////////// + ////////////zMno/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/2lhvP///////////////////////////////////////////+7u9/8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/+7u9/////////////////////////// + /////////////////2lhvP8xJKX/aWG8//////////////////////////////////////////////// + //////////////////////+Zk9L/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf+Mhsz///////////////////////////////////// + ////////////////////////////////////////////////////////////g3vI/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/f3fG//////////////// + ////////////////////////////0M7p/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/0M7p////////////////////////////////////////////f3fG/zEkpf9pYbz///// + /////////////////////////////////////////////////////////////////4J6yP8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf/PzOn///////////////////////////////////////////////////////////////////// + ///////////////////////08/r/Qzis/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf+Cesj////////////////////////////////////////////AveL/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf/AveL///////////////////// + //////////////////////+Cesj/MSSl/2lhvP////////////////////////////////////////// + ////////////////////////////aWG8/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/01Csf/39vv///////////////////// + //////////////////////////////////////////////////////////////////////+/u+L/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/4J6yP////////// + /////////////////////////////////8bE5f8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/8bE5f///////////////////////////////////////////4J6yP8xJKX/aWG8 + //////////////////////////////////////////////////////////////////////9vZ7//MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/4yGzP////////////////////////////////////////////////////////// + //////////////////////////////////////9yasH/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/dW3C////////////////////////////////////////////2djt + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/2djt//////////////// + ////////////////////////////dW3C/zEkpf9pYbz///////////////////////////////////// + /////////////////////////////////4R9yf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/NSmn/09Fsf9PRbH/T0Wx/09Fsf9WTLT/MSSl/zEkpf8xJKX/MSSl/8/M6f////////// + //////////////////////////////////////////////////////////////////////////////// + /+vq9v9ANKv/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf9jWrn///// + ///////////////////////////////////////39vv/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf/39vv///////////////////////////////////////////9jWrn/MSSl + /2lhvP//////////////////////////////////////////////////////////////////////p6LY + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf////////////////////////// + /+no9f8xJKX/MSSl/zEkpf8xJKX/TUKx//f2+/////////////////////////////////////////// + /////////////////////////////////////////////////6yn2v8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/NSmn/5aQ0P////////////////////////////////////////// + //////9jWbn/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/Y1m5//////////////// + /////////////////////////////////5aQ0P81Kaf/aWG8//////////////////////////////// + ///////////////////////////////////////f3vD/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/+/v+Pn//////////////////////////zEkpf8xJKX/MSSl/zEkpf8xJKX/jIbM + //////////////////////////////////////////////////////////////////////////////// + /////////////////2FYuf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/2tivv/f3fD///// + /////////////////////////////////////////////////6Wg1/8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf+loNf///////////////////////////////////////////////////// + /9/d8P+Besb/kInO/6um2v/Kx+b/4+Hy//z8/v////////////////////////////////////////// + //////9VS7T/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKXk6+r18v////////////// + ////////////TEGw/zEkpf8xJKX/MSSl/zEkpf8xJKX/z8zp//////////////////////////////// + ////////////////////////////////////////////////////////////4uDy/zktqP8xJKX/MSSl + /zEkpf8xJKX/MSSl/01Csf/Cv+T///////////////////////////////////////////////////// + ////////////9PP6/zktqP8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/OS2o//Tz+v////////// + ///////////////////////////////////////////////////////Cv+T/TUKx/zEkpf8xJKX/QDSr + //z8/v///////////////////////////////////////////6ij2P8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/21kvuzk4/Pg//////////////////////////9mXbv/MSSl/zEkpf8xJKX/MSSl + /zEkpf9NQrH/9/b7//////////////////////////////////////////////////////////////// + ////////////////////////////nJbT/zEkpf8xJKX/MSSl/zEkpf8xJKX/cmnA//////////////// + ////////////////////////////////////////////////////////////nJbT/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf+cltP///////////////////////////////////////////////////// + //////////////////////9yacD/MSSl/zEkpf8xJKX/09Hr//////////////////////////////// + ////////////+vn9/01Csf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf85Laj/0M3p4ufl9Lj///////// + /////////////////4eAyv8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf+Mhsz///////////////////// + ///////////////////////////////////////////////////////////////////////8/P7/V021 + /zEkpf8xJKX/MSSl/zEkpf81Kaf/6Of0//////////////////////////////////////////////// + ///////////////////////6+f3/V021/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/V021//r5/f////////// + ////////////////////////////////////////////////////////////6Of0/zUpp/8xJKX/MSSl + /zEkpf+Oh83/////////////////////////////////////////////////z8zp/zUpp/8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/6ah1//p6PW++vr9h///////////////////////////p6LY/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf/PzOn///////////////////////////////////////////////////// + ///////////////////////////////////////V0+z/NSmn/zEkpf8xJKX/MSSl/zEkpf+VjtD///// + ///////////////////////////////////////////////////////////////////////h4PH/Rzuu + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/0c7rv/h4PH///////////////////////////////////////////////////// + //////////////////////+VjtD/MSSl/zEkpf8xJKX/MSSl/0M4rP/6+f3///////////////////// + ////////////////////////////o57W/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf98dcX///////v7/Y/c2u53//// + ///////////////////////c2+//MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/01Csf/39vv///// + //////////////////////////////////////////////////////////////////////////////// + //////+Pic3/MSSl/zEkpf8xJKX/MSSl/0M4rP/6+f3///////////////////////////////////// + ///////////////////////////////////////U0uz/Rzuu/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf9HO67/1NLs//////////////// + ////////////////////////////////////////////////////////////+vn9/0M4rP8xJKX/MSSl + /zEkpf8xJKX/MSSl/6+r2///////////////////////////////////////////////////////lpDQ + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/eXHD//z8/v//////5uXzecG+4lX///////////////////////////////9LQK//MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/4yGzP////////////////////////////////////////// + //////////////////////////////////////////////////f2+/9NQrH/MSSl/zEkpf8xJKX/MSSl + /7i03/////////////////////////////////////////////////////////////////////////// + ///////o5/T/YVi5/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/YVi5/+jn9P////////////////////////////////////////////////////////// + //////////////////////+4tN//MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/Sj+v//r5/f////////// + ////////////////////////////////////////////trLe/z0xqv8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/NSmn/5qU0f/8/P7////////////LyedZq6fY + Fv///////////////////////////////6yn2v8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /8/M6f////////////////////////////////////////////////////////////////////////// + /////////////////8jF5v8xJKX/MSSl/zEkpf8xJKX/Ylm6//////////////////////////////// + ///////////////////////////////////////////////////////8/P7/rKfa/0c7rv8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/Rzuu/6yn2v/8/P7///////////////////// + /////////////////////////////////////////////////////////////////2JZuv8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/vbnh//////////////////////////////////////////////// + ////////////6+r2/4J7x/81Kaf/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /2hfvP/Y1u3//////////////////////8XD5B0AAAAA7ez29P///////////////////////////Pz+ + /3x1xf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/TUKx//f2+/////////////////////////// + /////////////////////////////////////////////////////////////////4N7yP8xJKX/MSSl + /zEkpf8xJKX/3Nrv//////////////////////////////////////////////////////////////// + ////////////////////////////+vn9/7y44f97dMX/S0Cv/zEkpf8xJKX/MSSl/zEkpf9LQK//e3TF + /7y44f/6+f3///////////////////////////////////////////////////////////////////// + ///////////////////////c2u//MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/2Rbu//8/P7///// + /////////////////////////////////////////////////////////////////+vq9v+emNT/aWC8 + /z0xqv8xJKX/MSSl/zEkpf81Kaf/XFO3/5GKzv/Z1+3////////////////////////////x8fj2AAAA + AAAAAADm5fTB/////////////////////////////////////9PQ6/+XkNH/gnrI/2xkvv9pYbz/aWG8 + /2lhvP9pYbz/t7Te//////////////////////////////////////////////////////////////// + ////////////////////////////8fD4/0M4rP8xJKX/MSSl/zEkpf+Igcr//////+Xk8/+uqtv/eHDD + /0Q5rf/Ixeb///////////////////////////////////////////////////////////////////// + ////////////9/b7/+no9f/p6PX/9/b7//////////////////////////////////////////////// + /////////////////////////////////8jF5v9ANKv/eHDD/66q2//l5PP//////4iByv8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf9HO67/7u33//////////////////////////////////////////////// + /////////////////////////////////////////////////+7u9//p6PX/6ej1//////////////// + /////////////////////////////////+rp9ccAAAAAAAAAAO7t93z///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////////////////////////////////////////sq7d + /zEkpf8xJKX/MSSl/zktqP9PRLH/MSSl/zEkpf8xJKX/MSSl/0A0q//h4PH///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////h4PH/QDSr + /zEkpf8xJKX/MSSl/zEkpf9PRLH/OS2o/zEkpf8xJKX/MSSl/zEkpf8xJKX/NSmn/8zJ6P////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////////////////////////////////////////8vH5 + fQAAAAAAAAAAurffTP////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Qzun/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/0c7rv/h4PH///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////4eDx/0c7rv8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf+Besf///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Hw+RRAAAAAAAAAAAAAAAA9vb7+/////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /9DO6f8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/0c7rv/h4PH///// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////////////////////////////////////////////+Hg8f9HO67/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zUpp/+/u+L///// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////////////////////////////////////////+fj8 + /P///wQAAAAAAAAAAAAAAADm5fTB//////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////////0M7p/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/z0xqv/CvuT///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////CvuT/PTGq/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zUpp/+/u+L///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////r6/bJAAAAAAAAAAAAAAAAAAAAAODe8HT///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////Qzun/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /29nv/////////////////////////////////////////////////////////////////////////// + /////////////////////////////////////////////////////////////////29nv/8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zUpp/+/u+L//////////////////////////////////Pz+//////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /+Xk83UAAAAAAAAAAAAAAAAAAAAAs6/bIv39/v////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////////////////////////////9DO6f8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/p6LY//////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////p6LY/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zUpp/+/u+L///////////////////// + /+vq9v9dVLj/aF+8/9za7/////////////////////////////////////////////////////////// + ////////////////////////////////////////////xsTkKQAAAAAAAAAAAAAAAAAAAAAAAAAA5uXz + 2P////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////0M7p/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf/f3vD///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////f3vD/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zUpp/+/u+L////////////Ixeb/Qzis/zEkpf8xJKX/MSSl/2xjvv+/vOL/+vn9 + ///////////////////////////////////////////////////////////////////////8/P7/ycbn + /4V9ycMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB3b8JmaWG8/2lhvP9pYbz/aWG8/2lhvP9pYbz/aWG8 + /2lhvP9pYbz/aWG8/2lhvP9pYbz/aWG8/2lhvP9pYbz/aWG8/2lhvP9pYbz/aWG8/2lhvP9pYbz/aWG8 + /2lhvP9pYbz/aWG8/2lhvP9pYbz/aWG8/2lhvP9pYbz/aWG8/2lhvP9cU7f/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/Rzyu//////////////////////////////// + ///////////////////////8/P7//////////////////////////////////Pz+//////////////// + //////////////////////////////////////9HPK7/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zUpp/+8uOH/nZfT + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf89Mar/e3TF/9fV7f////////////////////////// + ///////////////////////r6vb/hH3J/0tAr/8xJKX/MSSlZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + ADEkpQwxJKX3MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf95ccP//////////////////////////////////////////////////Pz+/1RKtP89Mar/T0Wx + /09Fsf9PRbH/T0Wx/z0xqv9USrT//Pz+//////////////////////////////////////////////// + /3lxw/8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/k4zQ/////////////////////////////////////////////////8C94v8xJKX/MSSl + /zEkpfcxJKUMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpaAxJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf9vZr//wr/k//z8/v////////// + //////////////////////+sp9r/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf+sp9r///// + /////////////////////////////Pz+/8K/5P9vZr//MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf98dMX///////////////////// + ////////////////////////////pJ7X/zEkpf8xJKX/MSSloAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAMSSlODEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/S0Cv/6Kc1v/u7ff/////////////////8fD4/0A0q/8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/0A0q//x8Pj/////////////////7u33/6Kc1v9LQK//MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/19WuP////////////////////////////////////////////////+HgMr/MSSl + /zEkpf8xJKU4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSl0DEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zUpp/97c8X/09Dr//////+Igsr/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /4iCyv//////09Dr/3tzxf81Kaf/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/RDmt//////////////// + /////////////////////////////////29nv/8xJKX/MSSl0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAxJKVcMSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/VUu0/zUpp/8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/NSmn/1VLtP8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/s67d/7ay3v+2st7/trLe/7ay3v+2st7/trLe/7ay3v+2st7/Rzyu + /zEkpf8xJKVcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpQQxJKXgMSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl4DEkpQQAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpXAxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKVwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSl + CDEkpd8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl3zEkpQgAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlYDEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKVgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAxJKUEMSSl0DEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl0DEkpQQAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKU8MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKU8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAxJKWkMSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSlpAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpRQxJKXvMSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpe8xJKUUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpWAxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSlYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + ADEkpbAxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlFDEkpeMxJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKXjMSSlFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAMSSlRDEkpfsxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + +zEkpUQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSleDEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKV4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlqDEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + qAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUMMSSl + zDEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpcwxJKUMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUYMSSl3zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKXfMSSl + GAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAxJKUoMSSl5zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl5zEkpSgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUoMSSl8zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpfMxJKUoAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAxJKU8MSSl8zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKXzMSSlPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUoMSSl + 5zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl5zEkpSgAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUoMSSl3zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpd8xJKUoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAxJKUYMSSlzDEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKXMMSSlGAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUMMSSlqDEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSlqDEkpQwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSleDEkpfsxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl+zEkpXgAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSl + RDEkpeMxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpeMxJKVEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlFDEkpbAxJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKWwMSSlFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAADEkpWAxJKXvMSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKXvMSSl + YAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpRQxJKWkMSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSlpDEkpRQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKU8MSSl0DEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl0DEkpTwAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAxJKUEMSSlYDEkpd8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl3zEkpWAxJKUEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlCDEkpXAxJKXgMSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl4DEkpXAxJKUIAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpQQxJKVcMSSl0DEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + 0DEkpVwxJKUEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAMSSlODEkpaAxJKX3MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX3MSSloDEkpTgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpQwxJKVkMSSl + vDEkpfsxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpfsxJKW8MSSlZDEkpQwAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlFDEkpVwxJKWoMSSl7zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + 7zEkpagxJKVcMSSlFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlMDEkpXAxJKWoMSSl3DEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpdwxJKWoMSSlcDEkpTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAMSSlDDEkpTQxJKVcMSSlhDEkpaAxJKXAMSSl2DEkpeQxJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpeQxJKXYMSSlwDEkpaAxJKWEMSSlXDEkpTQxJKUMAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAP////////AAAA////////////////8AAAAA///////////////wAAAAAA////// + ////////gAAAAAAB/////////////gAAAAAAAH////////////AAAAAAAAAP///////////AAAAAAAAA + A///////////AAAAAAAAAAD//////////gAAAAAAAAAAf/////////gAAAAAAAAAAB/////////wAAAA + AAAAAAAP////////wAAAAAAAAAAAA////////4AAAAAAAAAAAAH///////8AAAAAAAAAAAAA///////8 + AAAAAAAAAAAAAD//////+AAAAAAAAAAAAAAf//////AAAAAAAAAAAAAAD//////gAAAAAAAAAAAAAAf/ + ////wAAAAAAAAAAAAAAD/////4AAAAAAAAAAAAAAAf////8AAAAAAAAAAAAAAAD////+AAAAAAAAAAAA + AAAAf////AAAAAAAAAAAAAAAAD////wAAAAAAAAAAAAAAAA////4AAAAAAAAAAAAAAAAH///8AAAAAAA + AAAAAAAAAA///+AAAAAAAAAAAAAAAAAH///gAAAAAAAAAAAAAAAAB///wAAAAAAAAAAAAAAAAAP//4AA + AAAAAAAAAAAAAAAB//+AAAAAAAAAAAAAAAAAAf//AAAAAAAAAAAAAAAAAAD//gAAAAAAAAAAAAAAAAAA + f/4AAAAAAAAAAAAAAAAAAH/8AAAAAAAAAAAAAAAAAAA//AAAAAAAAAAAAAAAAAAAP/gAAAAAAAAAAAAA + AAAAAB/4AAAAAAAAAAAAAAAAAAAf+AAAAAAAAAAAAAAAAAAAH/AAAAAAAAAAAAAAAAAAAA/wAAAAAAAA + AAAAAAAAAAAP4AAAAAAAAAAAAAAAAAAAB+AAAAAAAAAAAAAAAAAAAAfgAAAAAAAAAAAAAAAAAAAHwAAA + AAAAAAAAAAAAAAAAA8AAAAAAAAAAAAAAAAAAAAPAAAAAAAAAAAAAAAAAAAADgAAAAAAAAAAAAAAAAAAA + AYAAAAAAAAAAAAAAAAAAAAGAAAAAAAAAAAAAAAAAAAABgAAAAAAAAAAAAAAAAAAAAYAAAAAAAAAAAAAA + AAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAAAAAAAAAAAAAAAABgAAAAAAAAAAAAAAAAAAA + AYAAAAAAAAAAAAAAAAAAAAGAAAAAAAAAAAAAAAAAAAABwAAAAAAAAAAAAAAAAAAAAcAAAAAAAAAAAAAA + AAAAAAPAAAAAAAAAAAAAAAAAAAADwAAAAAAAAAAAAAAAAAAAA+AAAAAAAAAAAAAAAAAAAAfgAAAAAAAA + AAAAAAAAAAAH4AAAAAAAAAAAAAAAAAAAB/AAAAAAAAAAAAAAAAAAAA/wAAAAAAAAAAAAAAAAAAAP+AAA + AAAAAAAAAAAAAAAAH/gAAAAAAAAAAAAAAAAAAB/4AAAAAAAAAAAAAAAAAAAf/AAAAAAAAAAAAAAAAAAA + P/wAAAAAAAAAAAAAAAAAAD/+AAAAAAAAAAAAAAAAAAB//gAAAAAAAAAAAAAAAAAAf/8AAAAAAAAAAAAA + AAAAAP//gAAAAAAAAAAAAAAAAAH//4AAAAAAAAAAAAAAAAAB///AAAAAAAAAAAAAAAAAA///4AAAAAAA + AAAAAAAAAAf//+AAAAAAAAAAAAAAAAAH///wAAAAAAAAAAAAAAAAD///+AAAAAAAAAAAAAAAAB////wA + AAAAAAAAAAAAAAA////8AAAAAAAAAAAAAAAAP////gAAAAAAAAAAAAAAAH////8AAAAAAAAAAAAAAAD/ + ////gAAAAAAAAAAAAAAB/////8AAAAAAAAAAAAAAA//////gAAAAAAAAAAAAAAf/////8AAAAAAAAAAA + AAAP//////gAAAAAAAAAAAAAH//////8AAAAAAAAAAAAAD///////wAAAAAAAAAAAAD///////+AAAAA + AAAAAAAB////////wAAAAAAAAAAAA/////////AAAAAAAAAAAA/////////4AAAAAAAAAAAf//////// + /gAAAAAAAAAAf/////////8AAAAAAAAAAP//////////wAAAAAAAAAP///////////AAAAAAAAAP//// + ///////+AAAAAAAAf////////////4AAAAAAAf/////////////wAAAAAA///////////////wAAAAD/ + ///////////////wAAAP////////KAAAAEAAAACAAAAAAQAgAAAAAAAAQAAAEgsAABILAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpSgxJKVhMSSlkDEkpbcxJKXXMSSl + 7jEkpf8xJKX/MSSl/zEkpf8xJKXuMSSl1zEkpbcxJKWQMSSlYTEkpSgAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpQMxJKVIMSSlmzEkpeUxJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + 5TEkpZsxJKVIMSSlAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlGDEkpYIxJKXlMSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpeUxJKWCMSSlGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUZMSSl + ljEkpfcxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpfcxJKWWMSSl + GQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + ADEkpQUxJKV4MSSl8zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpfMxJKV4MSSlBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAADEkpTExJKXTMSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpdMxJKUxAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpW4xJKX4MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + +DEkpW4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlBjEkpaAxJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSloDEkpQYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlCjEkpbsxJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKW7MSSlCgAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSl + CjEkpcgxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpcgxJKUKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAMSSlBjEkpbsxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSluzEkpQYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpaAxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKWgAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpW4xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpW4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpTExJKX4MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX4MSSlMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + ADEkpQUxJKXTMSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpdMxJKUFAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAxJKV4MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + eAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUZMSSl8zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpfMxJKUZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlljEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSllgAAAAAAAAAAAAAAAAAAAAAAAAAAMSSl + GDEkpfcxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf9RRrP/Nimn/zEkpf8xJKX/MSSl + /zEkpf82Kaf/UUaz/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf9kWrv/mJLS/5iS0v+YktL/mJLS/zwwqvcxJKUYAAAA + AAAAAAAAAAAAAAAAADEkpYIxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/NSin/3Rrwv/Jxuf//v7/ + /46Hzf8xJKX/MSSl/zEkpf8xJKX/jofN//7+///Jxuf/dGvC/zUop/8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/raja//////////////// + //////9aULb/MSSlggAAAAAAAAAAAAAAAKun2AWWj9HnjYbN/42Gzf+Nhs3/jYbN/42Gzf+Nhs3/jYbN + /42Gzf+Nhs3/jYbN/42Gzf+Nhs3/jYbN/42Gzf+Nhs3/PTGq/zEkpf8xJKX/MSSl/zEkpf8xJKX/Rzuu + /+ro9f/////////////////z8vr/XlS4/2Rau/9jWbv/XlS4//Py+v/////////////////q6PX/Rzuu + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zcrqP8yJaX/MSSl/zEkpf8xJKX/MSSl + /8jE5///////////////////////dm3C/zEkpeUxJKUDAAAAAAAAAADl5PNU//////////////////// + /////////////////////////////////////////////////////////////////1ZMtf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zMmpv/x8Pn///////////////////////////////////////////////////// + ////////////8fD5/zMmpv8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zotqf/LyOj/xcLl + /0A1rP85Laj/hX3J/8/M6v/9/f7///////////////////////Dw+P+xrNz/lY/QTQAAAAAAAAAA9fT6 + pf////////////////////////////////////////////////////////////////////////////// + //////9oX73/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/v7vi//////////////////////////////// + /////////////////////////////////7+74v8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zotqf/LyOj////////////o5/X/6un2//////////////////////////////////////////////// + //b1+6UAAAAA////Afj4/O////////////////////////////////////////////////////////// + ////////////////////////////enLE/zEkpf8xJKX/MSSl/zEkpf8xJKX/g3vI//v6/f////////// + ///////////////////////////////////////////////////////7+v3/g3vI/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zotqf/LyOj///////////////////////////////////////////////////// + ///////////////////////5+Pzv////Ad7d7zP/////////////////////////////////////9fT6 + /3lxxP90a8L/dm7D/42Gzf/U0ez//////////////////////4qDy/8xJKX/UEWy/zwwqf8xJKX/gXnH + //7+//////////////////////////////////////////////////////////////////////////// + //7+//+Becf/MSSl/zwwqf9QRbL/MSSl/zEkpf8/M6v/5uX0//////////////////////////////// + /////////////////////////////////////////////////+Hf8TPu7fdv//////////////////// + //////////////////////+Zk9L/MSSl/zEkpf8xJKX/NCem/8fE5v////////////////+cltT/Myam + /+Tj8//7+/3/0M3q//r6/f///////////////////////////9HP6/+Qic7/bWS//21kv/+Qic7/0c/r + ////////////////////////////+vr9/9DN6v/7+/3/5OPz/zMmpv8xJKX/MSSl/11TuP/6+v3///// + ///////////////////////9/f7/wb7k/4Z/yv9qYb7/c2vB/5uU0//h3/L////////////u7fdvsa3c + kP//////////////////////////////////////////+vr9/1RKtP8xJKX/MSSl/zEkpf9hV7n///// + ////////////rqnb/21kv///////////////////////////////////////7ez3/21kv/8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf9tZL//7ez3//////////////////////////////////////9tZL//MSSl + /zEkpf8/M6v/8fH5///////////////////////a2O//V0y1/zEkpf8xJKX/MSSl/zEkpf8xJKX/Myam + /4eAyv/5+fz/9fT6nTEkpbfEweX////////////////////////////////////////////Sz+v/Myam + /zEkpf8xJKX/MiWl//Py+f///////////7254v/CvuT/////////////////////////////////7e33 + /09Esv8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/09Esv/t7ff///////////////////// + ////////////wr7k/zEkpf8xJKX/lo/R///////////////////////X1e3/PjKq/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/amG+//f3+8IxJKXXSDyv//Py+v////////////////////////// + /////////////////4qDy/8xJKX/MSSl/zEkpf/Ny+n////////////k4vP//v7+//////////////// + /////////////////3Jqwf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/cmrB + //////////////////////////////////7+/v9JPa//MSSl/+Ph8v/////////////////5+fz/T0Sy + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf+LhMvpMSSl7jEkpf+Aecf///// + ///////////////////////////////////////19Pr/Sj+w/zEkpf8xJKX/i4TM/7Gs3P+kn9f/hn7K + /3duw//m5PT//////////////////////9rY7v8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf/a2O7//////////////////////+bk9P+qpdn/l5DR/7ax3v////////// + ////////////sKvc/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/OCyo + 8TEkpf8xJKX/MSSl/8TB5f///////////////////////////////////////////8TA5f8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/TEKw//////////////////////+bldP/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/m5XT//////////////////////9MQrD/tLDe + /////////////////////////////////3Fpwf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf9IPK//8/L6//////////////////////////////// + ////////////e3PF/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/1lOtv//////////////////////fXXF + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/311xf////////// + ////////////WU62/7Sw3v////////////////////////////////9TSbP/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/4B5x/////////// + /////////////////////////////////+/u+P9BNaz/MSSl/zEkpf8xJKX/MSSl/zEkpf9WTLX///// + /////////////////4B5x/8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf+Aecf//////////////////////1ZMtf+0sN7/////////////////////////////////VUu0 + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/6Gb1f+notj/o57W + /zEkpf8xJKX/xMHl////////////////////////////////////////////tbHe/zEkpf8xJKX/MSSl + /zEkpf8xJKX/WE61//////////////////////+indb/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/op3W//////////////////////9YTrX/tLDe//////////////// + /////////////////3pyxf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf/29vv6//////////84K6j/MSSl/0g8r//z8vr///////////////////////////////////// + //////9rYr7/MSSl/zEkpf84LKj/l5HR//f2+///////////////////////5uT0/zMmpv8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/Myam/+bk9P//////////////////////9/b7 + /7Sw3v99dcX/lI3Q//7+//////////////////+/u+L/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf9ANKvz9PP65f//////////VEm0/zEkpf8xJKX/gHnH//////////////// + ////////////////////////////5uT0/zsuqf8xJKX/Qjas//n5/P////////////////////////// + //////+HgMr/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/4eAyv////////// + ///////////////////////5+fz/Qjas/zEkpf/Y1e3//////////////////v7+/2BXuf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/oJrU5/n4/L///////////3lxxP8xJKX/MSSl + /zEkpf/EweX///////////////////////////////////////////+modj/MSSl/zEkpf+0sN7///// + ////////////////////////////+Pf8/2Vbu/8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /2Vbu//49/z/////////////////////////////////tLDe/zEkpf8xJKX/h4DK//////////////// + ///////o5/X/Sj+w/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/iYLL//r6/cHz8/qa//// + //////+9ueL/MSSl/zEkpf8xJKX/SDyv//Py+v///////////////////////////////////////f3+ + /15UuP8xJKX/X1W5///////////////////////////////////////5+fz/jojN/zYqp/8xJKX/MSSl + /zEkpf8xJKX/Niqn/46Izf/5+fz//////////////////////////////////////19Vuf8xJKX/MSSl + /zcrqP/t7Pf//////////////////////+3s9/93bsP/MiWl/zEkpf8xJKX/MSSl/zEkpf8/M6v/qaTZ + //7+///19Pqd6un1bf///////////v7//6Ca1f9fVbn/TkOx/01Csf+Zk9H///////////////////// + ///////////////////////c2u//Nimn/zEkpf/Y1u7/5OPz/6+q2//x8fn///////////////////// + ///////t7Pf/sazc/5CJzv+Qic7/sazc/+3s9/////////////////////////////Hx+f+uqdv/5OPz + /9jW7v8xJKX/MSSl/zEkpf9yasH//v7//////////////////////////////////+Lg8v+ppNn/jofN + /5ON0P+7t+H/9fX7////////////7u33b9rY7jL///////////////////////////////////////// + /////////////////////////////////////////////////3lxxP8xJKX/Oi6p/zEkpf8xJKX/Zl28 + //j3/P////////////////////////////////////////////////////////////////////////// + //j3/P9mXbz/MSSl/zEkpf86Lqn/MSSl/zEkpf9GO67/8vL5//////////////////////////////// + /////////////////////////////////////////////////+Hf8TMAAAAA+Pf87/////////////// + //////////////////////////////////////////////////////////////////////+Becf/MSSl + /zEkpf8xJKX/MSSl/zEkpf9lXLv/8O/4//////////////////////////////////////////////// + //////////////////Dv+P9lXLv/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MiWl/6yo2v////////// + //////////////////////////////////////////////////////////////////n5/PH///8BAAAA + APX0+qX///////////////////////////////////////////////////////////////////////// + ////////////gXnH/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/8XC5f////////////////////////// + ///////////////////////////////////////FwuX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8yJaX/rKja////////////0c7r/9HO6v////////////////////////////////////////// + ///////39/unAAAAAAAAAADDv+RQtLDe/7Sw3v+0sN7/tLDe/7Sw3v+0sN7/tLDe/7Sw3v+0sN7/tLDe + /7Sw3v+0sN7/tLDe/7Sw3v+0sN7/tLDe/2Rauv8xJKX/MSSl/zEkpf8xJKX/MSSl/zcqp//39/v///// + //////////////////7+//////////////7+////////////////////////9/f7/zcqp/8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zIlpf+sp9r/paDX/zYpp/8xJKX/Y1q6/6yn2v/19Pv///// + /////////////////9vZ7/+Qis7/aF+9SgAAAAAAAAAAMSSlAzEkpeUxJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf9DN63/zMno//7+/////////////+no9f89Mar/QDSr/0A0q/89Mar/6ej1/////////////v7/ + /8zJ6P9DN63/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/w7/l//////////////////////9xacH/MSSl5TEkpQMAAAAAAAAAAAAAAAAxJKWCMSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf9USbT/p6LY//Tz+v97csX/MSSl/zEkpf8xJKX/MSSl + /3tyxf/08/r/p6LY/1RJtP8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/6ij2f//////////////////////Vky1/zEkpYIAAAAAAAAA + AAAAAAAAAAAAMSSlGDEkpfcxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf86Lqn/MiWl + /zEkpf8xJKX/MSSl/zEkpf8yJaX/Oi6p/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf9RR7P/dGvC/3Rrwv90a8L/dGvC + /zcqp/cxJKUYAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKWWMSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKWWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlGTEkpfMxJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKXzMSSlGQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAxJKV4MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSleAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlBTEkpdMxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + 0zEkpQUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUxMSSl+DEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl+DEkpTEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + ADEkpW4xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpW4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSloDEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpaAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpQYxJKW7MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpbsxJKUGAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSl + CjEkpcgxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpcgxJKUKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAxJKUKMSSluzEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpbsxJKUKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpQYxJKWgMSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpaAxJKUGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + ADEkpW4xJKX4MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl+DEkpW4AAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlMTEkpdMxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl0zEkpTEAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUFMSSleDEkpfMxJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKXzMSSl + eDEkpQUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAxJKUZMSSlljEkpfcxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpfcxJKWWMSSlGQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUYMSSlgjEkpeUxJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl5TEkpYIxJKUYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUDMSSl + SDEkpZsxJKXlMSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpeUxJKWbMSSlSDEkpQMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpSgxJKVhMSSlkDEkpbcxJKXXMSSl7jEkpf8xJKX/MSSl + /zEkpf8xJKXuMSSl1zEkpbcxJKWQMSSlYTEkpSgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAD///8AAP//////8AAAD//////AAAAD/////wAAAAD////8AAAAAD////gAAAAAH///8AAAAAAP + ///AAAAAAAP//4AAAAAAAf//AAAAAAAA//4AAAAAAAB//gAAAAAAAH/8AAAAAAAAP/gAAAAAAAAf8AAA + AAAAAA/wAAAAAAAAD+AAAAAAAAAH4AAAAAAAAAfAAAAAAAAAA8AAAAAAAAADgAAAAAAAAAGAAAAAAAAA + AYAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAAAAAAAgAAAAAAAAAGAAAAAAAAAAYAAAAAAAAABwAAA + AAAAAAPAAAAAAAAAA+AAAAAAAAAH4AAAAAAAAAfwAAAAAAAAD/AAAAAAAAAP+AAAAAAAAB/8AAAAAAAA + P/4AAAAAAAB//gAAAAAAAH//AAAAAAAA//+AAAAAAAH//8AAAAAAA///8AAAAAAP///4AAAAAB////wA + AAAAP////wAAAAD/////wAAAA//////wAAAP//////8AAP///ygAAAAwAAAAYAAAAAEAIAAAAAAAACQA + ABILAAASCwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlAjEkpSQxJKVlMSSlmzEkpcQxJKXlMSSl+jEkpf8xJKX/MSSl + +jEkpeUxJKXEMSSlmzEkpWUxJKUkMSSlAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpRsxJKV7MSSl0zEkpf0xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX9MSSl0zEkpXsxJKUbAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUiMSSlnzEkpfcxJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX3MSSl + nzEkpSIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlDDEkpYUxJKX4MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpfgxJKWFMSSlDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKU0MSSl1jEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl1jEkpTQAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpV0xJKX2MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpfYxJKVdAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUBMSSl + eTEkpf4xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX+MSSleTEkpQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAxJKV5MSSl/jEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/jEkpXkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAADEkpV0xJKX+MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf4xJKVdAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlNDEkpfYxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX2MSSl + NAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUMMSSl1jEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl1jEkpQwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKWFMSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpYUAAAAAAAAAAAAAAAAAAAAAAAAAADEkpSIxJKX4MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpfgxJKUiAAAAAAAAAAAAAAAAAAAA + ADEkpZ8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8yJaX/MSSl/zEkpf8xJKX/MSSl/zIlpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zouqf9LP7D/Sz+w/0s/sP8zJqafAAAA + AAAAAAAAAAAAMSSlGzEkpfcxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/Rzyu/5iS0v/a2O//Qzet/zEkpf8xJKX/Qzet/9rY7/+YktL/Rzyu + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/4qDy/////////// + //////9NQrH3MSSlGwAAAAAAAAAAubXgf6mk2f+ppNn/qaTZ/6mk2f+ppNn/qaTZ/6mk2f+ppNn/qaTZ + /6mk2f+ppNn/enLE/zEkpf8xJKX/MSSl/zEkpf9pYL3/+/v9////////////vbni/4mBy/+Igcv/vbni + ////////////+/v9/2lgvf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8yJaX/Vku1/zEkpf8xJKX/OCuo + /7Ou3f////////////////95ccT/NSinewAAAADCv+ID+fn82v////////////////////////////// + ////////////////////////////urbh/zEkpf8xJKX/MSSl/zEkpf9JPq///f3+//////////////// + /////////////////////////////f3+/0k+r/8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf+TjM///Pz+ + /6ag2P+cltP/7ez3///////////////////////+/v//5OPz2MK/4gPn5vQr/v7///////////////// + ////////////////////////////////////////////zcrp/zEkpf8xJKX/MSSl/zEkpf+Ffcn//Pz+ + /////////////////////////////////////////////Pz+/4V9yf8xJKX/MSSl/zEkpf8xJKX/MSSl + /5KLz//+/v///////////////////////////////////////////////////v7//+rp9Svz8/lu//// + ///////////////////////f3fH/ZFu7/2Rbu/99dcb/29jv////////////3dvw/zEkpf9xaMH/VUu0 + /4R9yf///////////////////////v7///b1+//29fv//v7///////////////////////+Efcn/VUu0 + /3Fowf8xJKX/MSSl/7Cr3P/////////////////////////////////5+fz/9PP6//z8/v////////// + //Tz+m7u7feg////////////////////////////////fnbG/zEkpf8xJKX/Sj+w//j4/P//////6+r2 + /0Y7rv/6+f3///////39/v////////////7+//+2st//W1G3/zgsqP84LKj/W1G3/7ay3//+/v////// + ///////9/f7///////r5/f9DOK3/MSSl/zsuqf/09Pr/////////////////3Nrv/3Vtwv8/M6v/NCem + /0o+r/+Qis7/8vH5//j4/KRdU7jE9/b7////////////////////////////7u33/0Q4rf8xJKX/MSSl + /8rH5///////9/b7/5yW0////////////////////////v7//4mCy/8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf+Jgsv//v7///////////////////////+TjM//MSSl/3BnwP/////////////////Ixef/Oy6p + /zEkpf8xJKX/MSSl/zEkpf8xJKX/U0m0/+Tj880xJKXljofN//////////////////////////////// + /7iz3/8xJKX/MSSl/6Od1v///////////97d8P//////////////////////urbh/zIlpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8yJaX/urbh///////////////////////PzOr/NCim/7+74/////////// + //Lx+f9CNqz/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/2ZdvPAxJKX6NSin/9DN6v////////// + //////////////////7+//9uZr//MSSl/0o/sP9bUbf/T0Sy/z4yq/+uqdv/////////////////Ylm6 + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/Ylm6/////////////////66p2/+0sN3/6+r2 + //39/v///////////6ql2f8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpfoxJKX/MSSl + /1FGs//4+Pz////////////////////////////m5PT/PTGq/zEkpf8xJKX/MSSl/zEkpf+AeMf///// + ///////5+fz/PzOr/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/PzOr//n5/P////////// + /4B4x//HxOb//////////////////////4F5yP8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf80J6b/NSin/zIlpv+Oh83/////////////////////////////////qaTZ/zEkpf8xJKX/MSSl + /zEkpf9+dsb////////////6+v3/QTWs/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/QTWs + //r6/f///////////352xv/HxOb//////////////////////4N8yf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf/n5vT+7ez3/15Uuf81KKf/z8zq/////////////////////////////Pz+ + /2JYuv8xJKX/MSSl/0c8rv++uuL/////////////////a2G+/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/a2G+/////////////////7664v+tqNv/1tTt//r6/f///////////7Ov3v8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zImpvr39vvv/////3tzxf8xJKX/U0iz//f3+/////////// + /////////////////93b8P82Kqf/MSSl/9PQ6///////////////////////x8Tm/zMmpv8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8zJqb/x8Tm///////////////////////T0Ov/MSSl/7ax3/////////// + //f3/P9MQbD/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/3RrwvD5+fzM/////6Kc1v8xJKX/MSSl + /46Hzf////////////////////////////////+ak9L/MSSl/4mBy/////////////////////////// + /6Gb1f8zJqb/MSSl/zEkpf8xJKX/MSSl/zMmpv+hm9X///////////////////////////+Jgcv/MSSl + /2Vbu//////////////////X1e3/RDmt/zEkpf8xJKX/MSSl/zEkpf8xJKX/Zl28/+7t98339vui//// + /+vq9v9LQLD/MSSl/zQnpv/Rzur////////////////////////////5+Pz/Vky1/z0xqv/19fv/+vn9 + //n4/P/////////////////Nyun/dGvC/0o+sP9KPrD/dGvC/83K6f/////////////////4+Pz/+vn9 + //X1+/89Mar/MSSl/0A0q//19Pr/////////////////6+r2/4+Izv9TSbT/Rjqu/19Vuf+ppNn/+vn9 + //j4/KTy8flt///////////6+f3/5uX0/+Hf8f/t7Pf/////////////////////////////////wr/k + /zEkpf9cUrf/QTWs/29mwP/7+/3///////////////////////79/v/+/f7///////////////////// + //v7/f9vZsD/QTWs/1xSt/8xJKX/MSSl/7+74////////////////////////////////////////fz+ + //////////////////Tz+m7m5fMq/v7///////////////////////////////////////////////// + ////////////1NHs/zEkpf8xJKX/MSSl/zEkpf9vZsD/+/v9//////////////////////////////// + ////////////+/v9/29mwP8xJKX/MSSl/zEkpf8xJKX/MSSl/3dvw//7+/3///////////////////// + /////////////////////////////v7//+zr9izCv+ID8O/42vPz+v/z8/r/8/P6//Pz+v/z8/r/8/P6 + //Pz+v/z8/r/8/P6//Pz+v/z8/r/ysjn/zEkpf8xJKX/MSSl/zEkpf9PRLL//v7///////////////// + /////////////////////////////v7//09Esv8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf95ccT/9fT6 + /42Gzf+Ce8j/2dbu//7+/v/////////////////5+Pz/0M3q2MvJ5gQAAAAAOy+pezgsqP84LKj/OCyo + /zgsqP84LKj/OCyo/zgsqP84LKj/OCyo/zgsqP84LKj/Nyqn/zEkpf8xJKX/MSSl/zEkpf9jWbr/8O/4 + ////////////qqXa/29mwP9vZsD/qqXa////////////8O/4/2NZuv8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/Qzet/zEkpf8xJKX/Myam/6eh2P////////////////9rYb7/MSSlewAAAAAAAAAAMSSl + GzEkpfcxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/OSyo/393x//Cv+T/PDCq/zEkpf8xJKX/PDCq/8K/5P9/d8f/OSyo/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/4R8yf/29fv/9vX7//b1+/9JPq/3MSSl + GwAAAAAAAAAAAAAAADEkpZ8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zMnpv85LKj/OSyo + /zksqP8yJaWfAAAAAAAAAAAAAAAAAAAAADEkpSIxJKX4MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpfgxJKUiAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKWFMSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpYUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUMMSSl + 1jEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl1jEkpQwAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAMSSlNDEkpfYxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX2MSSlNAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpV0xJKX+MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf4xJKVdAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKV5MSSl/jEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /jEkpXkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUBMSSl + eTEkpf4xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX+MSSleTEkpQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAADEkpV0xJKX2MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpfYxJKVdAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKU0MSSl1jEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl1jEkpTQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlDDEkpYUxJKX4MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpfgxJKWFMSSlDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAxJKUiMSSlnzEkpfcxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX3MSSlnzEkpSIAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpRsxJKV7MSSl0zEkpf0xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX9MSSl0zEkpXsxJKUbAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlAjEkpSQxJKVlMSSl + mzEkpcQxJKXlMSSl+jEkpf8xJKX/MSSl+jEkpeUxJKXEMSSlmzEkpWUxJKUkMSSlAgAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//wAA//8A + AP/8AAA//wAA//AAAA//AAD/wAAAA/8AAP+AAAAB/wAA/wAAAAD/AAD8AAAAAD8AAPwAAAAAPwAA+AAA + AAAfAADwAAAAAA8AAOAAAAAABwAA4AAAAAAHAADAAAAAAAMAAMAAAAAAAwAAgAAAAAABAACAAAAAAAEA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAgAAAAAABAACAAAAAAAEAAMAAAAAAAwAAwAAAAAADAADgAAAAAAcAAOAAAAAABwAA8AAA + AAAPAAD4AAAAAB8AAPwAAAAAPwAA/AAAAAA/AAD/AAAAAP8AAP+AAAAB/wAA/8AAAAP/AAD/8AAAD/8A + AP/8AAA//wAA//8AAP//AAAoAAAAIAAAAEAAAAABACAAAAAAAAAQAAASCwAAEgsAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpRMxJKVgMSSlojEkpdExJKXxMSSl + /zEkpf8xJKXxMSSl0TEkpaIxJKVgMSSlEwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpSwxJKWkMSSl+TEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX5MSSlpDEkpSwAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpQwxJKWUMSSl/DEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/DEkpZQxJKUMAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUpMSSl2TEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpdkxJKUpAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlNzEkpe4xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpe4xJKU3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpSkxJKXuMSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpe4xJKUpAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUMMSSl + 2TEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpdkxJKUMAAAAAAAAAAAAAAAAAAAA + ADEkpZQxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpZQAAAAAAAAA + AAAAAAAxJKUsMSSl/DEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /DEkpSwAAAAAAAAAADEkpaQxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MiWl + /2hevf+Ffcn/MSSl/zEkpf+Ffcn/aF69/zIlpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/XVK4 + /8zI6f/MyOn/RTmtpAAAAADh4PEWycbn+cbC5v/Gwub/xsLm/8bC5v/Gwub/xsLm/8bC5v89Mar/MSSl + /zEkpf+Vj9D///////z8/v+wq9z/sKvc//z8/v//////lY/Q/zEkpf8xJKX/MSSl/zEkpf9bUbf/WlC3 + /0g9r/+xrN3///////////+UjtD5kYvOFPf2+2X///////////////////////////////////////// + /1FGs/8xJKX/MSSl/5uV0/////////////////////////////////+bldP/MSSl/zEkpf8xJKX/XFK4 + //Lx+f/5+fz/+vr9///////////////////////39/tl+vn8qP///////////////8G+5P9TSLT/cWnB + //Hw+f//////Ylm6/5uV0/+fmdX////////////08/r/v7vj/7+74//08/r///////////+fmdX/m5XT + /zElpf9tZL///v7+////////////7+74/7y34f/Dv+X/9/f8//r6/aizrt3R/////////////////v7+ + /2JZuv8xJKX/oZvW//////+modj/////////////////ysfo/0A0q/8xJKX/MSSl/0A0q//Kx+j///// + ////////////ZFu7/05Dsf/8+/3//////7y44f86Lqn/MSSl/zEkpf9HPK//zsvp1zcqqPHc2vD///// + ////////////393x/zcrqP9vZsD/1dLs/7ez3//5+Pz///////b1+/9BNaz/MSSl/zEkpf8xJKX/MSSl + /0E1rP/29fv///////n4/P+inNb/sq3d///////q6fb/OSyo/zEkpf8xJKX/MSSl/zEkpf9IPa/2MSSl + /1xRt//8/P7/////////////////nJXT/zEkpf8xJKX/MSSl/6mj2f//////xcLm/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/8XC5v//////qaPZ/9rX7v///////////7Gs3f8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf9qYb7/TkKx/52X1P/////////////////7+/3/Vky1/zEkpf8xJKX/q6ba///////Ixef/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/yMXn//////+rptr/2tfu////////////s6/e/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl//r6/feindb/Nyqn/9za8P/////////////////U0ez/Myem/4N7yP/9/f7///// + //n4/P9HPK//MSSl/zEkpf8xJKX/MSSl/0c8r//5+Pz///////39/v+bldP/p6HY///////v7vj/PTGq + /zEkpf8xJKX/MSSl/zEkpf9PRLL2/Pv91s3K6f8xJKX/XFG3//z8/v////////////////+Mhc3/XVO4 + /////////////////9XT7P9KPrD/MSSl/zEkpf9KPrD/1dPs/////////////////11TuP9IPa//+/r9 + ///////HxOf/Qzet/zEkpf8xJKX/U0iz/9nX7tf5+fyn/////7+74/+modj/5eT0//////////////// + //b2+/9EOK3/ioPM/46Hzf/9/f7///////r6/f/Qzer/0M3q//r6/f///////f3+/46Gzf+Kg8z/MSSl + /3duw//////////////////49/z/zcrp/9PQ7P/9/P7/+vr9qPb2+2X///////////////////////// + /////////////////1lPtv8xJKX/MSSl/5OMz/////////////////////////////////+TjM//MSSl + /zEkpf8xJKX/UEWz/+rp9v/z8/r/8/P6///////////////////////4+PxmvbrhFXRswvlzasH/c2rB + /3Nqwf9zasH/c2rB/3Nqwf9zasH/PjKq/zEkpf8xJKX/j4jO///////6+f3/n5nV/5+Z1f/6+f3///// + /4+Izv8xJKX/MSSl/zEkpf8xJKX/UEWy/09Esv8+Mar/paDY////////////hn7K+WZdvBMAAAAAMSSl + pDEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/V021/3duw/8xJKX/MSSl + /3duw/9XTbX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf9XTLX/ubXg/7m14P9CNqykAAAA + AAAAAAAxJKUsMSSl/DEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /DEkpSwAAAAAAAAAAAAAAAAxJKWUMSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKWUAAAAAAAAAAAAAAAAAAAAADEkpQwxJKXZMSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl2TEkpQwAAAAAAAAAAAAAAAAAAAAAAAAAADEkpSkxJKXuMSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpe4xJKUpAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkpTcxJKXuMSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKXuMSSlNwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + ADEkpSkxJKXZMSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl2TEkpSkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAADEkpQwxJKWUMSSl/DEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/DEkpZQxJKUMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxJKUsMSSlpDEkpfkxJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl+TEkpaQxJKUsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMSSlEzEkpWAxJKWiMSSl + 0TEkpfExJKX/MSSl/zEkpfExJKXRMSSlojEkpWAxJKUTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAP/AA///AAD//AAAP/gAAB/wAAAP4AAAB8AAAAPAAAADgAAAAYAAAAEAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABgAAAAcAAAAPAAAAD4AAA + B/AAAA/4AAAf/AAAP/8AAP//wAP/KAAAABAAAAAgAAAAAQAgAAAAAAAABAAAEgsAABILAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAxJKU0MSSlmzEkpdwxJKX7MSSl+zEkpdwxJKWbMSSlNAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAADEkpQoxJKWeMSSl/jEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf4xJKWeMSSl + CgAAAAAAAAAAAAAAADEkpQoxJKXFMSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpcUxJKUKAAAAAAAAAAAxJKWeMSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl + /zEkpf8xJKX/MSSlngAAAAAxJKU0MSSl/jEkpf8xJKX/MSSl/zEkpf8/M6v/Rjqu/0Y6rv8/M6v/MSSl + /zEkpf8xJKX/PDCq/352x/5BNaw05+b0neLh8v/i4fL/4uHy/5WO0P8xJKX/zMjo/+rp9v/q6fb/zMjo + /zEkpf88L6r/qKPZ/7y44v//////0M3qnOzr997/////nZfU/42Gzf/CvuT/zsvp//Lx+f+Jgcv/iYHL + //Lx+f/Oy+n/VEm0//7+/v+5teD/eHDE/7u34d9pX737/v7///f3+/9dUrj/fHPF/+jm9f+LhMz/MSSl + /zEkpf+LhMz/6Ob1/8vI6P/m5fT/Myam/zEkpf83Kqf9lI7Q/ayn2///////ycbn/0Y6rv/p6Pb/jofO + /zEkpf8xJKX/jofO/+no9v/Hw+b/6Of1/zQnpv8xJKX/OCyo/e/u+N98dMb/+Pf8//////+Jgsv/xcLm + //Tz+v+Ris//kYrP//Tz+v/Fwub/U0m0//7+/v/AvOP/gXnI/8O/5d/EweWcubTg/7m04P+5tOD/gnrI + /zEkpf/Ixef/5uT0/+bk9P/Ixef/MSSl/zksqP+fmdX/tbHf///////JxuecMSSlNDEkpf4xJKX/MSSl + /zEkpf8xJKX/Oy6p/0I3rf9CN63/Oy6p/zEkpf8xJKX/MSSl/zouqf91bcP+PjKrNAAAAAAxJKWeMSSl + /zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSlngAAAAAAAAAAMSSl + CjEkpcUxJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX/MSSlxTEkpQoAAAAAAAAA + AAAAAAAxJKUKMSSlnjEkpf4xJKX/MSSl/zEkpf8xJKX/MSSl/zEkpf8xJKX+MSSlnjEkpQoAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAxJKU0MSSlmzEkpdwxJKX7MSSl+zEkpdwxJKWbMSSlNAAAAAAAAAAAAAAA + AAAAAADwDwAAwAMAAIABAACAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAQAAgAEA + AMADAADwDwAA + + + + 468, 17 + + + 567, 17 + + + 781, 17 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMMEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMCAzMCIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iRWJlbmVfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzAgMzAiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLnN0MHtjbGlwLXBhdGg6dXJsKCNTVkdJ + RF8yXyk7ZmlsbDojQTUyNDMxO30KPC9zdHlsZT4NCiAgPGc+DQogICAgPGRlZnM+DQogICAgICA8cmVj + dCB4PSIwIiB5PSIwIiB3aWR0aD0iMzAiIGhlaWdodD0iMzAiIHJ4PSIwIiByeT0iMCIgaWQ9IlNWR0lE + XzFfIiAvPg0KICAgIDwvZGVmcz4NCiAgICA8Y2xpcFBhdGggaWQ9IlNWR0lEXzJfIj4NCiAgICAgIDx1 + c2UgeGxpbms6aHJlZj0iI1NWR0lEXzFfIiBzdHlsZT0ib3ZlcmZsb3c6dmlzaWJsZSIgLz4NCiAgICA8 + L2NsaXBQYXRoPg0KICAgIDxwYXRoIGQ9Ik0xMi4wOSwyMi4wMmMtMy44Ny0xLjYtNS43MS02LjA1LTQu + MTEtOS45MmMxLjYxLTMuODgsNi4wNS01LjcyLDkuOTItNC4xMWMzLjg4LDEuNiw1LjcyLDYuMDUsNC4x + MSw5LjkyICAgQzIwLjQxLDIxLjc4LDE1Ljk3LDIzLjYyLDEyLjA5LDIyLjAyIE0yLjUsMTIuOThjLTAu + MjIsMS4zNi0wLjIxLDIuNzIsMCw0LjA0TDAsMTguNDdsMS45NCw0LjY4bDIuOC0wLjc0ICAgYzAuNzgs + MS4wOSwxLjc0LDIuMDYsMi44NiwyLjg2bC0wLjc0LDIuOEwxMS41MywzMGwxLjQ1LTIuNWMxLjM2LDAu + MjIsMi43MiwwLjIxLDQuMDQsMGwxLjQ1LDIuNWw0LjY4LTEuOTRsLTAuNzUtMi44ICAgYzEuMDktMC43 + OCwyLjA2LTEuNzQsMi44Ni0yLjg2bDIuOCwwLjc0TDMwLDE4LjQ3bC0yLjUtMS40NWMwLjIyLTEuMzYs + MC4yMS0yLjcyLDAtNC4wNEwzMCwxMS41M2wtMS45NC00LjY4bC0yLjgsMC43NSAgIGMtMC43OC0xLjA5 + LTEuNzQtMi4wNi0yLjg2LTIuODZsMC43NS0yLjhMMTguNDcsMGwtMS40NSwyLjVjLTEuMzYtMC4yMi0y + LjcyLTAuMjEtNC4wNCwwTDExLjUzLDBMNi44NSwxLjk0bDAuNzUsMi44ICAgQzYuNTEsNS41Miw1LjU0 + LDYuNDgsNC43Myw3LjU5bC0yLjgtMC43NUwwLDExLjUzTDIuNSwxMi45OHoiIGNsYXNzPSJzdDAiIC8+ + DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iUHJvcGVydGllcyI+DQogICAgPHBhdGggZD0iTTMwLDE4di00bC00LjQtMC43Yy0w + LjItMC44LTAuNS0xLjUtMC45LTIuMWwyLjYtMy42bC0yLjgtMi44bC0zLjYsMi42Yy0wLjctMC40LTEu + NC0wLjctMi4xLTAuOUwxOCwyaC00ICAgbC0wLjcsNC40Yy0wLjgsMC4yLTEuNSwwLjUtMi4xLDAuOUw3 + LjUsNC43TDQuNyw3LjVsMi42LDMuNmMtMC40LDAuNy0wLjcsMS40LTAuOSwyLjFMMiwxNHY0bDQuNCww + LjdjMC4yLDAuOCwwLjUsMS41LDAuOSwyLjEgICBsLTIuNiwzLjZsMi44LDIuOGwzLjYtMi42YzAuNyww + LjQsMS40LDAuNywyLjEsMC45TDE0LDMwaDRsMC43LTQuNGMwLjgtMC4yLDEuNS0wLjUsMi4xLTAuOWwz + LjYsMi42bDIuOC0yLjhsLTIuNi0zLjYgICBjMC40LTAuNywwLjctMS40LDAuOS0yLjFMMzAsMTh6IE0x + NiwyMGMtMi4yLDAtNC0xLjgtNC00YzAtMi4yLDEuOC00LDQtNHM0LDEuOCw0LDRDMjAsMTguMiwxOC4y + LDIwLDE2LDIweiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAIDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLlJlZHtmaWxsOiNEMTFD + MUM7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7Zmls + bDojNzI3MjcyO30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuNzU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iUGF5bWVudFVucGFpZCI+DQogICAgPHBhdGggZD0iTTE2LDJDOC4yLDIsMiw4LjIs + MiwxNnM2LjIsMTQsMTQsMTRzMTQtNi4yLDE0LTE0UzIzLjgsMiwxNiwyeiBNMTYsNmMyLDAsNCwwLjYs + NS42LDEuNkw3LjgsMjEuNCAgIEM2LjYsMjAsNiwxOCw2LDE2QzYsMTAuNCwxMC40LDYsMTYsNnogTTE2 + LDI2Yy0yLDAtNC0wLjYtNS42LTEuNmwxMy44LTEzLjhDMjUuNCwxMiwyNiwxNCwyNiwxNkMyNiwyMS42 + LDIxLjYsMjYsMTYsMjZ6IiBjbGFzcz0iUmVkIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + 906, 17 + + + 1069, 17 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/frmFlowForm.vb b/GUIs.ZooFlow/frmFlowForm.vb new file mode 100644 index 0000000..49e2b57 --- /dev/null +++ b/GUIs.ZooFlow/frmFlowForm.vb @@ -0,0 +1,1306 @@ +Option Explicit On + +Imports System.IO +Imports System.Runtime.InteropServices +Imports DevExpress.XtraSplashScreen +Imports DigitalData.GUIs.ClipboardWatcher +Imports DigitalData.GUIs.ZooFlow.ClassConstants +Imports DigitalData.GUIs.ZooFlow.ClipboardWatcher +Imports DigitalData.Modules +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Language.Utils +Imports DigitalData.Modules.Windows +Imports DigitalData.Modules.ZooFlow +Imports DigitalData.GUIs.Common.Base +Imports DigitalData.GUIs.Common +Imports DigitalData.Modules.Language +Imports DevExpress.LookAndFeel +Imports System.Threading.Tasks +Imports System.Threading + +Public Class frmFlowForm +#Region "Sidebar DllImport" + + Private Shared Function SHAppBarMessage(ByVal dwMessage As Integer, ByRef BarrData As AppDeskBar) As Integer + End Function + + Public Shared Function RegisterWindowMessage(ByVal msg As String) As Integer + End Function +#End Region +#Region "Sidebar Variablen" + Private AppDeskData As AppDeskBar + Private fBarRegistered As Boolean = False + Private Property uCallBack As Integer + + Private Structure RECT + Public left As Integer + Public top As Integer + Public right As Integer + Public bottom As Integer + End Structure + Private Structure AppDeskBar + Public cbSize As Integer + Public hWnd As IntPtr + Public uCallbackMessage As Integer + Public uEdge As Integer + Public rc As RECT + Public lParam As IntPtr + End Structure + Private Enum ABMsg + ABM_NEW = 0 + ABM_REMOVE = 1 + ABM_QUERYPOS = 2 + ABM_SETPOS = 3 + ABM_GETSTATE = 4 + ABM_GETTASKBARPOS = 5 + ABM_ACTIVATE = 6 + ABM_GETAUTOHIDEBAR = 7 + ABM_SETAUTOHIDEBAR = 8 + ABM_WINDOWPOSCHANGED = 9 + ABM_SETSTATE = 10 + End Enum + Public Enum ABEdge + ABE_LEFT = 0 + ABE_TOP + ABE_RIGHT + ABE_BOTTOM + End Enum + Private Enum ABNotify + ABN_STATECHANGE = 0 + ABN_POSCHANGED + ABN_FULLSCREENAPP + ABN_WINDOWARRANGE + End Enum +#End Region +#Region "Sidebar Enum Properties Register" + Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) + Try + If m.Msg = uCallBack Then + Select Case m.WParam.ToInt32() + Case CInt(ABNotify.ABN_POSCHANGED) + ABSetPos(ABEdge.ABE_RIGHT) + End Select + End If + MyBase.WndProc(m) + Catch ex As Exception + End Try + End Sub + Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams + Get + Dim cp As CreateParams = MyBase.CreateParams + cp.Style = cp.Style And Not &HC00000 ' WS_CAPTION + cp.Style = cp.Style And Not &H800000 ' WS_BORDER + cp.ExStyle = &H80 Or &H8 ' WS_EX_TOOLWINDOW | WS_EX_TOPMOST + Return cp + End Get + End Property + + Private Sub ABSetPos(ByVal dockEdge As ABEdge) + Dim abd As New AppDeskBar() + abd.cbSize = Marshal.SizeOf(abd) + abd.hWnd = Me.Handle + abd.uEdge = CInt(dockEdge) + If abd.uEdge = CInt(ABEdge.ABE_LEFT) Or abd.uEdge = CInt(ABEdge.ABE_RIGHT) Then + abd.rc.top = 0 + abd.rc.bottom = SystemInformation.PrimaryMonitorSize.Height + If abd.uEdge = CInt(ABEdge.ABE_LEFT) Then + abd.rc.left = 0 + abd.rc.right = Size.Width + Else + abd.rc.right = SystemInformation.PrimaryMonitorSize.Width + abd.rc.left = abd.rc.right - Size.Width + End If + Else + abd.rc.left = 0 + abd.rc.right = SystemInformation.PrimaryMonitorSize.Width + If abd.uEdge = CInt(ABEdge.ABE_TOP) Then + abd.rc.top = 0 + abd.rc.bottom = Size.Height + Else + abd.rc.bottom = SystemInformation.PrimaryMonitorSize.Height + abd.rc.top = abd.rc.bottom - Size.Height + End If + End If + ' Query the system for an approved size and position. + SHAppBarMessage(CInt(ABMsg.ABM_QUERYPOS), abd) + ' Adjust the rectangle, depending on the edge to which the + ' appbar is anchored. + Select Case abd.uEdge + Case CInt(ABEdge.ABE_LEFT) + abd.rc.right = abd.rc.left + Size.Width + Case CInt(ABEdge.ABE_RIGHT) + abd.rc.left = abd.rc.right - Size.Width + Case CInt(ABEdge.ABE_TOP) + abd.rc.bottom = abd.rc.top + Size.Height + Case CInt(ABEdge.ABE_BOTTOM) + abd.rc.top = abd.rc.bottom - Size.Height + End Select + ' Pass the final bounding rectangle to the system. + SHAppBarMessage(CInt(ABMsg.ABM_SETPOS), abd) + ' Move and size the appbar so that it conforms to the + ' bounding rectangle passed to the system. + + Me.Location = New Point(abd.rc.left, abd.rc.top) + Dim PSBH = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height + Dim TaskBarHeight = PSBH - System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Height + Me.Height = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height - TaskBarHeight + End Sub +#End Region +#Region "Form Variables" + ' Constants + Private Const OPACITY_INITIAL = 0 + Private Const OPACITY_FINAL = 1 + Private Const OPACITY_HIDDEN = 0.65 + Private Const OPACITY_SHOWN = 0.85 + + Private DTIDB_SEARCHES As DataTable + + ' Common Helpers Classes + Private Logger As Logger + Private Init As ClassInit + Private FileEx As Filesystem.File + Private Modules As ClassModules + Private Search As Search.SearchRunner + Private FormHelper As FormHelper + + ' Globix Helper Classes + Private FileDropNew As FileDrop + Private FileHandle As ClassFilehandle + Private FolderWatch As ClassFolderwatcher + + ' ClipboardWatcher Helper Classes + Private ClassWindow As Window + Private ProfileFilter As ProfileFilter + Private ProfileLoader As ClassProfileLoader + Private Property Environment As Environment + + ' Runtime Flags + Private ApplicationLoading As Boolean = True + Private IDBSearchActive As Boolean = False + + ' Runtime Variables + Private ESCHitCount As Integer = 0 + Private IndexForm As frmGlobix_Index + Private ResultForm As frmGlobix_Result + Private AdminForm As frmAdmin_Start + Private InitialOverlayHandle As IOverlaySplashScreenHandle + + Private RunningTask As Task + Private RunningTaskTokenSource As New CancellationTokenSource + Private RunningTaskToken = RunningTaskTokenSource.Token + + ' Events + Public Event ClipboardChanged As EventHandler(Of IDataObject) + Private WithEvents HotkeyClass As Hotkey + Private WithEvents Watcher As Watcher = Watcher.Singleton + +#End Region + + Private Sub frmFlowForm_Load(sender As Object, e As EventArgs) Handles Me.Load + ' === Set Form === + OverlayWindowOptions.Default.DisableInput = False + + ' === Show Splash Screen === + SplashScreenManager.ShowForm(Me, GetType(frmSplash), False, False) + + ' === Initialization === + Init = New ClassInit(My.LogConfig, Me) + AddHandler Init.Completed, Async Sub() Await Init_Completed(sender, e) + Init.InitializeApplication() + + ' === Register Sidebar === + RegisterBar(ABEdge.ABE_RIGHT) + + ' Disable Form until init has completed + Enabled = False + End Sub + + Private Sub frmFlowForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + UnregisterBar() + End Sub + + Private Async Function Init_Completed(sender As Object, e As EventArgs) As Threading.Tasks.Task + Try + ' === Initialization Complete === + ApplicationLoading = False + SplashScreenManager.CloseForm(False) + + ' === Initialize Environment === + Logger = My.LogConfig.GetLogger() + FormHelper = New FormHelper(My.LogConfig, Me) + Environment = My.Application.GetEnvironment() + 'ErrorHandler = New BaseErrorHandler(My.LogConfig, Logger, Me) + Modules = New ClassModules(My.LogConfig, My.SystemConfig) + FileEx = New Filesystem.File(My.LogConfig) + Search = New Search.SearchRunner(My.LogConfig, Environment, "FlowSearch") With { + .BaseSearchSQL = SQL_FLOW_SEARCH_BASE + } + + ' === Initialize Theming === + If My.Application.Palette = "" Then + UserLookAndFeel.Default.SetSkinStyle(My.Application.Skin) + Else + UserLookAndFeel.Default.SetSkinStyle(My.Application.Skin, My.Application.Palette) + End If + + ' === Setup Timers === + ' No timers right now + + ' === Setup Event Handlers === + AddHandler KeyDown, AddressOf frmFlowForm_KeyDown + AddHandler KeyUp, AddressOf frmFlowForm_KeyDown + AddHandler Watcher.ClipboardChanged, AddressOf Watcher_ClipboardChanged + AddHandler Search.Closed, AddressOf SearchRunner_Closed + + PictureBoxSearch.Visible = False + For Each oRow As DataRow In My.Tables.DTIDB_COMMON_SQL.Rows + If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH_BASE Then + IDBSearchActive = True + PictureBoxSearch.Visible = True + End If + Next + + Await Load_Recent_Files() + + If My.Application.ModulesActive.Contains(MODULE_CLIPBOARDWATCHER) Then + Try + ClassWindow = New Window(My.LogConfig) + HotkeyClass = New Hotkey(Me) + + 'Add Toggle Hotkey + HotkeyClass.AddHotKey(Keys.T, Hotkey.ModfierKey.MOD_CONTROL, HOTKEY_TOGGLE_WATCHER) + + ' Add Trigger Hotkey + + 'TODO: Configure Hotkey + Dim oSearchKey As String = "D" + Dim oFunctionKey As String = "CTRL" + + Dim oConverter As New KeysConverter + Dim oObject As Object = oConverter.ConvertFromString(oSearchKey) + Dim oKeyCode As Keys = oObject + + Select Case oFunctionKey + Case "CTRL" + HotkeyClass.AddHotKey(oKeyCode, Hotkey.ModfierKey.MOD_CONTROL, HOTKEY_TRIGGER_WATCHER) + Case "SHIFT" + HotkeyClass.AddHotKey(oKeyCode, Hotkey.ModfierKey.MOD_SHIFT, HOTKEY_TRIGGER_WATCHER) + Case "ALT" + HotkeyClass.AddHotKey(oKeyCode, Hotkey.ModfierKey.MOD_ALT, HOTKEY_TRIGGER_WATCHER) + Case "WIN" + HotkeyClass.AddHotKey(oKeyCode, Hotkey.ModfierKey.MOD_WIN, HOTKEY_TRIGGER_WATCHER) + End Select + + AddHandler HotkeyClass.HotKeyPressed, AddressOf HotkeyClass_HotKeyPressed + + ProfileLoader = New ClassProfileLoader(My.LogConfig, My.Database) + ProfileLoader.LoadProfiles() + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "Init Search FLOW") + End Try + Else + My.Application.ClipboardWatcher.MonitoringActive = False + Logger.Info("Clipboard Watcher Module is not active. Hotkey Monitoring will be disabled!") + End If + + If My.Application.ModulesActive.Contains(MODULE_GLOBAL_INDEXER) Then + FileDropNew = New FileDrop(My.LogConfig, "ZooFlow") + FileHandle = New ClassFilehandle(My.LogConfig) + FolderWatch = New ClassFolderwatcher(My.LogConfig) + + Dim oFileExclusions As New ClassExclusions() + If oFileExclusions.Load() = False Then + Dim oMsg As String + If My.Application.User.Language = "de-DE" Then + oMsg = "Die Ausschlusskriterien für Dateien in Folderwatch konnten nicht angelegt werden!" + Else + oMsg = "File-Exclusions in Folderwatch could not be created!" + End If + + FormHelper.ShowWarningMessage(oMsg, Text) + End If + + Init_Folderwatch() + Folderwatch_CheckFiles() + btnGlobixConfig.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Else + btnGlobixConfig.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End If + + + Dim oProcessManagerPath = Modules.GetProductPath(Base.ECM.Product.ProcessManager) + If oProcessManagerPath IsNot Nothing Then + My.SystemConfig.ProductPaths.ProcessManagerPath = oProcessManagerPath + My.SystemConfigManager.Save() + End If + + ' TODO: This needs an update of the function FNZF_GET_MODULE_INFO + If My.Application.ModulesActive.Contains(MODULE_PROCESS_MANAGER) Then + TimerDisplay.Enabled = True + PictureBoxPM.Visible = True + DISPLAY_TASKS() + End If + + If IsNothing(My.Tables.DTIDB_CATALOG_USER) Then + Exit Function + End If + + Await ConfigureQuicksearch1(False) + + Catch ex As Exception + Logger.Error(ex) + + Finally + Enabled = True + End Try + End Function + + Private Async Sub SearchRunner_Closed(sender As Object, e As Integer) + Await Load_Recent_Files() + End Sub + + Private Async Function Load_Recent_Files() As Task + Try + + Dim AccessedFilesTable = Await My.Database.GetDatatableIDBAsync(SQL_RECENT_FILES_USER) + + GridControlRecentFiles.DataSource = AccessedFilesTable + colPrimary.FieldName = AccessedFilesTable.Columns(1).ColumnName ' "DisplayFileName" + colSecondary.FieldName = AccessedFilesTable.Columns(2).ColumnName '"Changed when" + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "Load_Recent_Files") + End Try + End Function + + Async Function ConfigureQuicksearch1(Reload As Boolean) As Threading.Tasks.Task + If Reload Then + Dim oSQL = $"SELECT * FROM TBIDB_CATALOG_USER WHERE USR_ID = {My.Application.User.UserId}" + My.Tables.DTIDB_CATALOG_USER = Await My.Database.GetDatatableIDBAsync(oSQL) + + End If + For Each oRow As DataRow In My.Tables.DTIDB_CATALOG_USER.Rows + If oRow.Item("CAT_TITLE") = "QUICKSEARCH1_TITLE" Then + pnlQuicksearch1.Visible = True + lblQuicksearch1.Text = oRow.Item("CAT_STRING") + ElseIf oRow.Item("CAT_TITLE") = "QUICKSEARCH1_POS" Then + 'If oRow.Item("CAT_STRING") = "Top" Then + ' pnlQuicksearch1.Dock = DockStyle.Top + 'ElseIf oRow.Item("CAT_STRING") = "Bottom" Then + ' pnlQuicksearch1.Dock = DockStyle.Bottom + 'End If + End If + Next + End Function + Public Sub RegisterBar(ByVal dockEdge As ABEdge) + AppDeskData = New AppDeskBar() + AppDeskData.cbSize = Marshal.SizeOf(AppDeskData) + AppDeskData.hWnd = Me.Handle + If Not fBarRegistered Then + uCallBack = RegisterWindowMessage("AppBarMessage") + AppDeskData.uCallbackMessage = uCallBack + SHAppBarMessage(CInt(ABMsg.ABM_NEW), AppDeskData) 'ToDo: Unsigned Integers not supported + fBarRegistered = True + ABSetPos(ABEdge.ABE_RIGHT) + Else + SHAppBarMessage(CInt(ABMsg.ABM_REMOVE), AppDeskData) + fBarRegistered = False + End If + End Sub + + Public Sub UnregisterBar() + If fBarRegistered Then + fBarRegistered = False + SHAppBarMessage(ABMsg.ABM_REMOVE, AppDeskData) + End If + End Sub + + Public Sub Init_Folderwatch() + Try + Dim oSql As String = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & My.Application.User.UserId + Dim oDT = My.Database.GetDatatable("TBGI_FOLDERWATCH_USER", oSql, EDMI.API.Constants.DatabaseType.ECM, $"FOLDER_TYPE = 'DEFAULT' AND USER_ID = {My.Application.User.UserId}") + + If oDT.Rows.Count = 0 Then + 'Throw New ApplicationException("No Default Path configured for User!") + Logger.Warn("No Default Path configured for User. Skipping.") + Exit Sub + End If + + Dim oFolderWatchPath = oDT.Rows.Item(0).Item("FOLDER_PATH") + oFolderWatchPath = NotNull(oFolderWatchPath, String.Empty).ToString + + If oFolderWatchPath = String.Empty Then + Logger.Info("Init_Folderwatch: folderwatchPath is empty") + My.Application.Globix.Folderwatchstarted = False + My.UIConfig.Globix.FolderWatchStarted = False + My.UIConfigManager.Save() + Else + If Not IO.Directory.Exists(oFolderWatchPath) Then + Logger.Info("Init_Folderwatch: folderwatchPath does not exists or is invalid path") + My.Application.Globix.Folderwatchstarted = False + My.UIConfig.Globix.FolderWatchStarted = False + My.UIConfigManager.Save() + Else + My.Application.Globix.CurrentFolderWatchPath = oFolderWatchPath + FolderWatch.StartStop_FolderWatch() + End If + + End If + + + + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "Init_Folderwatch") + End Try + + Try + Dim oSql As String = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & My.Application.User.UserId + Dim oFolderwatchScanPath = My.Database.GetScalarValueECM(oSql) + + oFolderwatchScanPath = IIf(IsDBNull(oFolderwatchScanPath), "", oFolderwatchScanPath) + + If oFolderwatchScanPath = String.Empty Then + Logger.Info("Init_Folderwatch: folderwatchPath is empty") + My.Application.Globix.ScanFolderwatchstarted = False + My.UIConfig.Globix.FolderWatchScanStarted = False + My.UIConfigManager.Save() + Else + If Not IO.Directory.Exists(oFolderwatchScanPath) Then + Logger.Info("Init_Folderwatch: folderwatchPath does not exists or is invalid path") + My.Application.Globix.ScanFolderwatchstarted = False + My.UIConfig.Globix.FolderWatchScanStarted = False + My.UIConfigManager.Save() + Else + My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = oFolderwatchScanPath + FolderWatch.StartStop_FolderWatchSCAN() + End If + + End If + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "Init_Folderwatch") + End Try + + End Sub + + Private Sub TimerRefreshData_Tick(sender As Object, e As EventArgs) + 'TODO: Refresh Data + End Sub + + Private Sub frmFlowForm_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) + If e.KeyCode = Keys.Escape Then + If RunningTask IsNot Nothing Then + RunningTaskTokenSource.Cancel() + + Else + If ESCHitCount > 0 Then + ExitZooflow() + Else + ESCHitCount += 1 + End If + End If + End If + End Sub + + Sub ExitZooflow() + Dim oMessage = "Wollen sie ZooFlow wirklich beenden?" + If My.Application.User.Language <> "de-DE" Then + oMessage = "Are you sure you want to close ZooFlow?" + End If + Dim oTitle = "Zooflow beenden" + If My.Application.User.Language <> "de-DE" Then + oTitle = "Exit Zooflow" + End If + + Dim oResult = FormHelper.ShowQuestionMessage(oMessage, oTitle) + + If oResult = DialogResult.Yes Then + Close() + Else + ESCHitCount = 0 + End If + End Sub + + Sub Open_FlowSearch() + Cursor = Cursors.WaitCursor + If TheFormIsAlreadyLoaded("frmFlowSearch1") Then + Cursor = Cursors.Default + Exit Sub + End If + + Dim oForm As New frmSearchFlow() + oForm.Show() + oForm.BringToFront() + + Cursor = Cursors.Default + End Sub + + Private Sub PictureBoxSearch1_Click(sender As Object, e As EventArgs) Handles PictureBoxSearch.Click + Open_FlowSearch() + End Sub + + Private Sub ZooFlowBeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZooFlowBeendenToolStripMenuItem.Click + ExitZooflow() + End Sub + + Private Sub VerwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerwaltungToolStripMenuItem.Click + Cursor = Cursors.WaitCursor + AdminForm = New frmAdmin_Start() + AdminForm.Show() + Cursor = Cursors.Default + End Sub + + Private Sub frmFlowForm_DragEnter(sender As Object, e As DragEventArgs) Handles MyBase.DragEnter + If My.Application.GlobixDropAreaStyle = "PROGRESSIVE" Then + 'PictureBoxDragDrop.Image = My.Resources._1_LOGO_ZOO_FLOW_DROP3 + PictureEdit2.Image = My.Resources.ZOOFLOW_DRAG_PROGRESSIVE + Else + 'PictureBoxDragDrop.Image = My.Resources._1_LOGO_ZOO_FLOW_DROP2 + PictureEdit2.Image = My.Resources.ZOOFLOW_DRAG_NORMAL + End If + + e.Effect = DragDropEffects.Copy + Drag_Enter(sender, e) + End Sub + + Private Async Sub frmFlowForm_DragDrop(sender As Object, e As DragEventArgs) Handles MyBase.DragDrop + Await DragDropForm(e) + End Sub + + Private Sub frmFlowForm_DragLeave(sender As Object, e As EventArgs) Handles Me.DragLeave + 'PictureBoxDragDrop.Image = My.Resources._1_LOGO_ZOO_FLOW1 + PictureEdit2.Image = My.Resources.ZOOFLOW_DEFAULT + End Sub + + + Private Function TheFormIsAlreadyLoaded(ByVal pFormName As String) As Boolean + + TheFormIsAlreadyLoaded = False + + For Each frm As Form In Application.OpenForms + If frm.Name.Equals(pFormName) Then + TheFormIsAlreadyLoaded = True + Exit Function + End If + Next + + End Function + + Private Sub NotifyIcon_DoubleClick(sender As Object, e As EventArgs) Handles NotifyIcon.DoubleClick + If Visible = False Then + Visible = True + Else + Visible = False + End If + End Sub + + Sub Drag_Enter(sender As Object, e As DragEventArgs) + If e.Data.GetDataPresent(DataFormats.FileDrop) Then + e.Effect = DragDropEffects.All + + ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then 'handle a message dragged from Outlook + e.Effect = DragDropEffects.Copy + + ElseIf e.Data.GetDataPresent("aryFileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then + e.Effect = DragDropEffects.Copy + + Else + 'otherwise, do not handle + e.Effect = DragDropEffects.None + + End If + End Sub + Async Function DragDropForm(e As DragEventArgs) As Threading.Tasks.Task + If Not My.Application.ModulesActive.Contains(ClassConstants.MODULE_GLOBAL_INDEXER) Then + Exit Function + End If + If TheFormIsAlreadyLoaded("frmIndexFileList") Then + Cursor = Cursors.Default + FormHelper.ShowWarningMessage("Please index the active file first!", "Drag 'n Drop not allowed!") + Exit Function + End If + + PictureEdit2.Image = My.Resources.ZOOFLOW_DEFAULT + + 'Erstmal alles löschen + My.Database.ExecuteNonQueryECM("DELETE FROM TBGI_FILES_USER WHERE USER@WORK = '" & My.Application.User.UserName & "'") + + Dim oDroppedFiles = FileDropNew.GetFiles(e) + If oDroppedFiles.Count > 0 Then + Await Globix_CheckDroppedFiles(oDroppedFiles) + End If + + Await Load_Recent_Files() + End Function + + Private Async Function Globix_CheckDroppedFiles(pDroppedFiles As List(Of FileDrop.DroppedFile)) As Task + Try + Await My.Database.ExecuteNonQueryECMAsync($"DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND USER@WORK = '{My.Application.User.UserName}'") + + For Each oDroppedFile In pDroppedFiles + Logger.Info("Checking Dropped File: [{0}]", oDroppedFile.FilePath) + Dim oDropType = oDroppedFile.DropType + Dim oFileName = oDroppedFile.FilePath + + If FileHandle.CheckDuplicateFiles(oFileName, "Manuelle Ablage") Then + FileHandle.Decide_FileHandle(oFileName, oDropType) + End If + Next + + Dim sql As String = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND USER@WORK = '" & My.Application.User.UserName & "'" + My.Application.Globix.DTACTUAL_FILES = Nothing + My.Application.Globix.DTACTUAL_FILES = Await My.Database.GetDatatableECMAsync(sql) + My.Application.Globix.ABORT_INDEXING = False + + Dim oOnlyFilesFromFilesystem = True + For Each oRow As DataRow In My.Application.Globix.DTACTUAL_FILES.Rows + If oRow.Item("HANDLE_TYPE").ToString <> "|DROPFROMFSYSTEM|" Then + oOnlyFilesFromFilesystem = False + Exit For + End If + Next + + If My.Application.Globix.DTACTUAL_FILES.Rows.Count > 1 And oOnlyFilesFromFilesystem = False Then + frmGlobix_IndexFileList.ShowDialog() + My.Application.Globix.DTACTUAL_FILES = Nothing + My.Application.Globix.DTACTUAL_FILES = My.Database.GetDatatableECM(sql) + End If + + For Each oRow As DataRow In My.Application.Globix.DTACTUAL_FILES.Rows + Dim oFilePath As String = oRow.Item("FILENAME2WORK").ToString + Dim oFileId As Integer = oRow.Item("GUID") + + My.Application.Globix.CurrentWorkfile = New Globix.Models.WorkFile(oFileId) With { + .FilePath = oFilePath + } + + Logger.Info(" CURRENT_WORKFILE: {0}", My.Application.Globix.CurrentWorkfile) + If IO.File.Exists(My.Application.Globix.CurrentWorkfile.FilePath) = True And + My.Application.Globix.DTACTUAL_FILES.Rows.Count > 0 Then + Globix_Open_IndexDialog() + End If + Next + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "Globix_CheckDroppedFiles") + Finally + CleanTempFiles() + Show() + End Try + End Function + + Private Sub CleanTempFiles() + Dim oTempFiles = My.Application.Globix.TEMP_FILES + For Each oFile In oTempFiles + Try + IO.File.Delete(oFile) + Logger.Debug("Temp file [{0}] was deleted.", oFile) + Catch ex As Exception + Logger.Warn("Temp file [{0}] could not be deleted", oFile) + Logger.Error(ex) + End Try + Next + My.Application.Globix.TEMP_FILES.Clear() + + FileHandle.ClearTempFiles() + FileDropNew.RemoveTempDirectory() + End Sub + + Sub Globix_Open_IndexDialog() + Try + IndexForm = New frmGlobix_Index(My.LogConfig) + NotifyIconReset() + AddHandler IndexForm.FormClosed, AddressOf GlobixClosed + IndexForm.ShowDialog() + If IndexForm.oSuccess = True Then + Dim oMessage As String = "Datei erfolgreich importiert!" + If My.Application.User.Language <> "de-DE" Then + oMessage = "File successfully imported!" + End If + NotifyIcon.ShowBalloonTip(15000, "FileFlow", oMessage, ToolTipIcon.Info) + ResultForm = New frmGlobix_Result() + ResultForm.ShowDialog() + End If + Cursor = Cursors.Default + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "Globix_Open_IndexDialog") + End Try + End Sub + Sub NotifyIconReset() + NI_TYPE = "INFO" + NI_MESSAGE = String.Empty + End Sub + Sub GlobixClosed() + Try + If NI_MESSAGE = String.Empty Then + Exit Sub + End If + + Dim oNIType = 1 + Select Case NI_TYPE + Case "INFO" + oNIType = 1 + Case "ERROR" + oNIType = 3 + End Select + NotifyIcon.ShowBalloonTip(30000, NI_TITLE, NI_MESSAGE, oNIType) + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "GlobixClosed") + End Try + End Sub + Sub Folderwatch_CheckFiles() + If My.Application.Globix.CurrentFolderWatchPath = String.Empty Then + My.Application.Globix.Folderwatchstarted = False + End If + + If My.Application.Globix.CURRENT_SCAN_FOLDERWATCH = String.Empty Then + My.UIConfigManager.Config.Globix.FolderWatchScanStarted = False + My.UIConfigManager.Save() + End If + + If My.Application.Globix.CurrentFolderWatchPath <> "" Or My.Application.Globix.CURRENT_SCAN_FOLDERWATCH <> "" Then + Try + If My.UIConfigManager.Config.Globix.FolderWatchScanStarted = True Then + Logger.Info("FWSCAN started - Checking file:" & My.Application.Globix.CURRENT_SCAN_FOLDERWATCH) + Dim fileEntries As String() = Directory.GetFiles(My.Application.Globix.CURRENT_SCAN_FOLDERWATCH) + ' Process the list of files found in the directory. + Dim fileName As String + For Each fileName In fileEntries + Logger.Info("Scanfolder after startup: Checking file:" & fileName) + For Each row As DataRow In My.Application.Globix.DTEXCLUDE_FILES.Rows + Dim content As String = row.Item(0).ToString.ToLower + If fileName.ToLower.Contains(content) Then + Exit Sub + End If + Next + Dim handleType As String + If fileName.ToLower.EndsWith(".msg") Then + handleType = "|FW_OUTLOOK_MESSAGE|" + Else + handleType = "|FW_SIMPLEINDEXER|" + End If + 'Die Datei übergeben + Logger.Info(" Adding file from Scanfolder after startup:" & fileName) + If FileHandle.CheckDuplicateFiles(fileName, "FolderWatch/Scan") Then + FileHandle.Decide_FileHandle(fileName, handleType) + Else + IO.File.Delete(fileName) + + Logger.Info("Scanfolder Startup: File already exists:" & fileName) + End If + Next fileName + + Else + Logger.Info("FWSCAN not started") + End If + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "Folderwatch_CheckFiles") + End Try + + Try + If My.Application.Globix.Folderwatchstarted = True Then + Logger.Info("Folderwatchstarted - Checking file:" & My.Application.Globix.CurrentFolderWatchPath) + Dim fileEntries As String() = Directory.GetFiles(My.Application.Globix.CurrentFolderWatchPath) + ' Process the list of files found in the directory. + Dim fileName As String + For Each fileName In fileEntries + Logger.Info("Folderwach after startup: Checking file:" & fileName) + For Each row As DataRow In My.Application.Globix.DTEXCLUDE_FILES.Rows + Dim content As String = row.Item(0).ToString.ToLower + If fileName.ToLower.Contains(content) Then + Exit Sub + End If + Next + Dim handleType As String + If fileName.ToLower.EndsWith(".msg") Then + handleType = "|FW_OUTLOOK_MESSAGE|" + Else + handleType = "|FW_SIMPLEINDEXER|" + End If + 'Die Datei übergeben + Logger.Info("Adding file from Folderwatch after startup:" & fileName) + If FileHandle.CheckDuplicateFiles(fileName, "FolderWatch/Scan") Then + FileHandle.Decide_FileHandle(fileName, handleType) + Else + Logger.Info("Folderwatch Startup: File already exists:" & fileName) + IO.File.Delete(fileName) + End If + Next fileName + + Else + Logger.Info("Folderwatch not started") + End If + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "Folderwatch_CheckFiles") + End Try + + If TimerCheckFolderWatchTable.Enabled = False Then + TimerCheckFolderWatchTable.Start() + End If + End If + + End Sub + + Private Sub frmFlowForm_ResizeEnd(sender As Object, e As EventArgs) Handles Me.ResizeEnd + My.UIConfig.FlowForm.Location = Location + My.UIConfigManager.Save() + End Sub + + Private Sub TimerFolderwatch_Tick(sender As Object, e As EventArgs) Handles TimerCheckFolderWatchTable.Tick + + Try + ' JenneJ, 11.02.2019: + ' Keine Folderwatch Dateien verarbeiten, wenn gerade Indexiert wird, + ' dadurch würden die Globalen Variablen überschrieben + ' und in Folge die falschen Dateien Indexiert! + If My.Application.Globix.INDEXING_ACTIVE Or My.Application.Globix.MULTIINDEXING_ACTIVE Then + Exit Sub + End If + + If My.Application.Globix.Folderwatchstarted = True Or My.UIConfig.Globix.FolderWatchScanStarted = True Then + 'Prüfen ob alle Files abgearbeitet wurden + Dim sql = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE like '%|FW%' AND USER@WORK = '" & My.Application.User.UserName & "'" + My.Application.Globix.DTACTUAL_FILES = My.Database.GetDatatableECM(sql) + + If My.Application.Globix.DTACTUAL_FILES.Rows.Count > 0 Then + My.Application.Globix.ABORT_INDEXING = False + TimerCheckFolderWatchTable.Enabled = False + For Each row As DataRow In My.Application.Globix.DTACTUAL_FILES.Rows + Dim FILEGUID = row.Item("GUID") + Dim oDel = String.Format("DELETE FROM TBGI_FILES_USER WHERE GUID = {0}", FILEGUID) + If My.Application.Globix.ABORT_INDEXING = True Then + Exit For + End If + Dim FileForWork As String = row.Item(1).ToString + Logger.Info(" In Timer Folderwatch - File: " & FileForWork) + + Dim fileInUse As Boolean = FileEx.TestFileIsLocked(FileForWork) + 'Dim fileInUse As Boolean = FileHandle.IsFileInUse(FileForWork) + Dim fileexists As Boolean = System.IO.File.Exists(FileForWork) + If fileInUse = False Then + If fileexists = True Then + Dim handleType As String + If FileForWork.ToLower.EndsWith(".msg") Then + handleType = "|FW_OUTLOOK_MESSAGE|" + Else + handleType = "|FW_SIMPLEINDEXER|" + End If + If FileHandle.CheckDuplicateFiles(FileForWork, "FolderWatch") Then + My.Application.Globix.CurrentWorkfile = New Globix.Models.WorkFile(row.Item("GUID")) With { + .FilePath = FileForWork, + .HotfolderFile = True + } + Globix_Open_IndexDialog() + Else + My.Database.ExecuteNonQueryECM(oDel) + IO.File.Delete(FileForWork) + Logger.Info("Folderwatch: File has been deleted:" & FileForWork) + End If + + + + + Else + Logger.Info(" File not existing - Row will be deleted!") + + My.Database.ExecuteNonQueryECM(oDel) + End If + Else + Logger.Info(" file '" & row.Item(1).ToString & "' could not be opened exclusively - fileInUse!") + End If + + Next + If TimerCheckFolderWatchTable.Enabled = False Then + TimerCheckFolderWatchTable.Start() + End If + End If + 'tslblFW.Visible = True + Else + 'tslblFW.Visible = False + End If + Catch ex As Exception + If ex.Message.Contains("Sammlung wurde geändert") Or ex.Message.Contains("Enumeration") Then + + Else + FormHelper.ShowErrorMessage(ex, "Drag 'n Drop not allowed!") + End If + + End Try + + End Sub + + Private Sub Watcher_ClipboardChanged(sender As Object, e As IDataObject) + Dim ClipboardContents As String = Clipboard.GetText().Trim() + Dim oState = My.Application.ClipboardWatcher + + oState.CurrentClipboardContents = ClipboardContents + + If oState.MonitoringActive = False Then + Dim oMessage As String = "Clipboard Watcher is not active!" + Logger.Warn(oMessage) + + End If + + If oState.UserProfiles Is Nothing Then + Dim oMessage As String = "User Profiles are empty!" + Logger.Warn(oMessage) + + End If + + If oState.ProfileProcesses Is Nothing OrElse oState.ProfileProcesses.Rows.Count = 0 Then + Dim oMessage As String = "Profile Processes are empty!" + Logger.Warn(oMessage) + + End If + + If oState.ProfileWindows Is Nothing OrElse oState.ProfileWindows.Rows.Count = 0 Then + Dim oMessage As String = "Profile Windows are empty!" + Logger.Warn(oMessage) + + End If + + If oState.ProfileControls Is Nothing OrElse oState.ProfileControls.Rows.Count = 0 Then + Dim oMessage As String = "Profile Processes are empty!" + Logger.Warn(oMessage) + + End If + + Dim oWindowInfo = ClassWindow.GetWindowInfo() + + Try + ' Tree View zurücksetzen + oState.MatchTreeView.Nodes.Clear() + + ProfileFilter = New ProfileFilter(My.LogConfig, + oState.UserProfiles, oState.ProfileProcesses, oState.ProfileWindows, oState.ProfileControls, oState.MatchTreeView) + Catch ex As Exception + Logger.Error(ex) + + End Try + + Try + Dim oProfiles = ProfileFilter.Profiles + Dim oEnvironment = My.Application.GetEnvironment() + + ' Filter by Clipboard Contents + oProfiles = ProfileFilter.FilterProfilesByClipboardRegex(oProfiles, ClipboardContents) + oProfiles = ProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesByClipboardRegex") + + ' Filter by Process Name + oProfiles = ProfileFilter.FilterProfilesByProcess(oProfiles, oWindowInfo.ProcessName) + oProfiles = ProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesByProcess") + + ' Filter by Window Title + oProfiles = ProfileFilter.FilterWindowsByWindowTitleRegex(oProfiles, oWindowInfo.WindowTitle) + oProfiles = ProfileFilter.LogRemainingProfiles(oProfiles, "FilterWindowsByWindowTitleRegex") + + ' Filter by Focused Control + oProfiles = ProfileFilter.FilterProfilesByFocusedControl(oProfiles, ClipboardContents, Handle) + oProfiles = ProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesByFocusedControl") + oState.CurrentMatchingProfiles = oProfiles.ToList() + + ' Filter by Search Results + oProfiles = ProfileFilter.FilterProfilesBySearchResults(oProfiles, oEnvironment.Database, oEnvironment.User, ClipboardContents) + oProfiles = ProfileFilter.LogRemainingProfiles(oProfiles, "FilterProfilesBySearchResults") + + ' Clean up Profiles + oProfiles = ProfileFilter.ClearNotMatchedProfiles(oProfiles) + oProfiles = ProfileFilter.ClearDuplicateProfiles(oProfiles) + oProfiles = ProfileFilter.LogRemainingProfiles(oProfiles, "CleanUp") + + oState.CurrentProfilesWithResults = oProfiles.ToList() + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub + + Private Async Sub HotkeyClass_HotKeyPressed(HotKeyID As String) + Dim oState = My.Application.ClipboardWatcher + + Select Case HotKeyID + Case HOTKEY_TRIGGER_WATCHER + If oState.CurrentClipboardContents = String.Empty Then + Logger.Info("Current Clipboard Contents is empty. Exiting.") + Exit Sub + End If + + If oState.MonitoringActive = False Then + Logger.Info("Monitoring is inactive. Exiting.") + Exit Sub + End If + + If oState.UserProfiles.Rows.Count = 0 Then + NotifyIcon.ShowBalloonTip(NOTIFICATION_DELAY, "ClipboardWatcher", "Es wurden keine Profile für Sie gefunden.", ToolTipIcon.Warning) + + ElseIf oState.CurrentMatchingProfiles.Count = 0 Then + NotifyIcon.ShowBalloonTip(NOTIFICATION_DELAY, "ClipboardWatcher", "Es wurden keine passenden Profile gefunden.", ToolTipIcon.Warning) + + ElseIf oState.CurrentProfilesWithResults.Count = 0 Then + NotifyIcon.ShowBalloonTip(NOTIFICATION_DELAY, "ClipboardWatcher", "Es wurden weder Dokumente noch Daten gefunden!", ToolTipIcon.Warning) + + ElseIf oState.CurrentProfilesWithResults.Count = 1 Then + Dim oProfile = oState.CurrentProfilesWithResults.First() + Dim oProfileSearches As New ProfileSearches(My.LogConfig, My.Application.GetEnvironment(), oState.CurrentClipboardContents) + Dim oFormTitle = GetResultWindowString(oState.CurrentClipboardContents) + + ' For now we assume these are document results instead of data results + Dim oForm = Await oProfileSearches.GetDocResultForm(oProfile, oFormTitle, DigitalData.Modules.ZooFlow.Constants.OperationMode.ZooFlow) + AddHandler oForm.NeedsRefresh, AddressOf ProfileResultForm_NeedsRefresh + oForm.Show() + + Else + + Dim oProfiles = oState.CurrentProfilesWithResults + Dim oEnvironment = My.Application.GetEnvironment() + Dim oParams As New ClipboardWatcherParams With { + .ClipboardContents = oState.CurrentClipboardContents, + .MatchingProfiles = oProfiles, + .MatchTreeView = oState.MatchTreeView, + .OperationModeOverride = DigitalData.Modules.ZooFlow.Constants.OperationMode.ZooFlow + } + + Dim oForm As New frmMatch(My.LogConfig, oEnvironment, oParams) + oForm.Show() + + End If + + Case HOTKEY_TOGGLE_WATCHER + If oState.MonitoringActive = True Then + NotifyIcon.ShowBalloonTip(NOTIFICATION_DELAY, "ClipboardWatcher", "Clipboard-Watcher wurde deaktiviert!", ToolTipIcon.Info) + + Else + NotifyIcon.ShowBalloonTip(NOTIFICATION_DELAY, "ClipboardWatcher", "Clipboard-Watcher wurde aktiviert!", ToolTipIcon.Info) + + End If + + oState.MonitoringActive = Not oState.MonitoringActive + + End Select + End Sub + + Private Async Sub ProfileResultForm_NeedsRefresh(sender As Object, e As Integer) + Dim oThisForm As IResultForm = sender + Dim oState = My.Application.ClipboardWatcher + Dim oProfileSearch As New ProfileSearches(My.LogConfig, Environment, oState.CurrentClipboardContents) + + If TypeOf sender Is frmDocumentResultList Then + Dim oProfileId = e + Dim oSearches = Await oProfileSearch.LoadDocumentSearchesAsync(oProfileId) + Dim oResults = oSearches.Select(Function(search) + Return New DocumentResultList.DocumentResult() With { + .Title = search.TabCaption, + .Datatable = search.DataTable + } + End Function).ToList() + + oThisForm.RefreshResults(oResults) + End If + End Sub + + Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TestToolStripMenuItem.Click + frmtest.Show() + + End Sub + + Private Function GetResultWindowString(SearchContent As String) As String + If SearchContent <> String.Empty Then + If My.Application.User.Language = DigitalData.Modules.ZooFlow.State.UserState.LANG_DE_DE Then + Return $"Suche Nach '{SearchContent}'" + Else + Return $"Search For '{SearchContent}'" + End If + Else + Return String.Empty + End If + End Function + + Private Async Sub TextEdit1_KeyUp(sender As Object, e As KeyEventArgs) Handles txtQuicksearch1.KeyUp + If e.KeyCode = Keys.Return Then + Await CheckQuickSearch1() + End If + End Sub + + Private Async Function CheckQuickSearch1() As Threading.Tasks.Task + Dim oSearchText = txtQuicksearch1.Text + + If oSearchText <> String.Empty Then + Dim oHandle = SplashScreenManager.ShowOverlayForm(Me) + Dim oToken = RunningTaskTokenSource.Token + + Try + Dim oResult = Await Search.RunWithSearchTerm(oSearchText) + If oResult.OK = False Then + NotifyIcon.ShowBalloonTip(20_000, "Info", oResult.ErrorMessage, ToolTipIcon.Info) + End If + + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "CheckQuickSearch1") + Finally + RunningTask = Nothing + SplashScreenManager.CloseOverlayForm(oHandle) + txtQuicksearch1.Text = "" + End Try + End If + End Function + + Private Sub buttonExitZooflow_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnExitZooflow.ItemClick + ExitZooflow() + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnRestartZooflow.ItemClick + Application.Restart() + End Sub + + Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnServiceConfig.ItemClick + Try + Dim oForm As New frmServiceConfig() With { + .ServiceAddress = My.Application.Service.Client.ServerAddress, + .ServiceOnline = My.Application.Service.Client.IsOnline + } + oForm.ShowDialog() + + My.SystemConfig.AppServerConfig = oForm.ServiceAddress + My.SystemConfigManager.Save() + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "Service Config") + End Try + End Sub + + Private Async Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnBasicConfig.ItemClick + frmConfigBasic.ShowDialog() + Await ConfigureQuicksearch1(True) + End Sub + + Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnGlobixConfig.ItemClick + frmGlobixBasicConfig.ShowDialog() + End Sub + + Private Sub PictureBoxSearch_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseEnter + PictureBoxSearch.SvgImage = My.Resources.FLOW_Sidebar_Search_aktiv1 + End Sub + + Private Sub PictureBoxSearch_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseLeave + PictureBoxSearch.SvgImage = My.Resources.FLOW_Sidebar_Search_inaktiv1 + End Sub + + Private Sub PictureBoxPM_Click(sender As Object, e As EventArgs) Handles PictureBoxPM.Click + Try + Dim oProcessManagerPath = Modules.GetProductProgramPath(DigitalData.Modules.Base.ECM.Product.ProcessManager) + + If oProcessManagerPath IsNot Nothing AndAlso IO.File.Exists(oProcessManagerPath) Then + Process.Start(oProcessManagerPath) + Else + NotifyIcon.ShowBalloonTip(30000, NI_TITLE, "Path to TaskFlow not properly configured", 3) + + End If + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "PictureBoxPM_Click") + End Try + End Sub + Private Function PM_Running() As Boolean + + Dim p() As Process + p = Process.GetProcessesByName("DD_ProcessManager") + If p.Count > 0 Then + ' Process is running + Return True + Else + ' Process is not running + Return False + End If + End Function + Private Sub PictureBoxPM_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxPM.MouseEnter + PictureBoxPM.SvgImage = My.Resources.FLOW_Sidebar_Task_aktiv1 + End Sub + + Private Sub PictureBoxPM_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxPM.MouseLeave + PictureBoxPM.SvgImage = My.Resources.FLOW_Sidebar_Task_inaktiv1 + End Sub + + Private Async Sub PictureEditQuicksearch1_Click(sender As Object, e As EventArgs) Handles PictureEditQuicksearch1.Click + Await CheckQuickSearch1() + End Sub + + Private Sub bbtnitmAusblenden_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmAusblenden.ItemClick + UnregisterBar() + EinblendenToolStripMenuItem.Visible = True + Me.Visible = False + End Sub + + Private Sub EinblendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EinblendenToolStripMenuItem.Click + RegisterBar(ABEdge.ABE_RIGHT) + Me.Visible = True + End Sub + + Private Sub SucheEntwurfToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SucheEntwurfToolStripMenuItem.Click + Dim oForm = New frmSearchFlow() + oForm.Show() + End Sub + + Private Sub AdvBandedGridView1_DoubleClick(sender As Object, e As EventArgs) Handles RecentFilesView.DoubleClick + If RecentFilesView.FocusedRowHandle >= 0 Then + Dim oHandle = SplashScreenManager.ShowOverlayForm(Me) + Try + Dim oFile As DataRowView = RecentFilesView.GetRow(RecentFilesView.FocusedRowHandle) + Dim oRow As DataRow = oFile.Row + Dim oObjectId As Long = oRow.Item("DocId") + + Dim oDataSource As DataTable = GridControlRecentFiles.DataSource + Dim oResult = oDataSource.AsEnumerable(). + Where(Function(row) row.Item(0) = oObjectId). + CopyToDataTable() + + Search.RunWithDataTable(oResult, "Suche") + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "Laden eines Dokuments") + Finally + SplashScreenManager.CloseOverlayForm(oHandle) + End Try + End If + End Sub + + Private Sub TimerDisplay_Tick(sender As Object, e As EventArgs) Handles TimerDisplay.Tick + DISPLAY_TASKS() + End Sub + Sub DISPLAY_TASKS() + Try + Dim oSQL = $"SELECT * FROM TBZF_USER_DISPLAY_JOBS WHERE USR_ID = {My.Application.User.UserId}" + Dim oDT As DataTable = My.Database.GetDatatable("TBZF_USER_DISPLAY_JOBS", oSQL, EDMI.API.Constants.DatabaseType.ECM, $"USR_ID = {My.Application.User.UserId}") + If Not IsNothing(oDT) Then + If oDT.Rows.Count > 0 Then + Dim oTooLTip = "TaskFlow " + PMTaskBadgeGroup.Visible = False + + PMTaskBadgeIndividual.Visible = False + For Each oRow As DataRow In oDT.Rows + If oRow.Item("JOB_TITLE") = "PM_INDIVIDUAL_JOB" Then + + PMTaskBadgeIndividual.Properties.Text = oRow.Item("DESCR") + + PMTaskBadgeIndividual.Visible = True + oTooLTip += $"({PMTaskBadgeIndividual.Properties.Text} Individual" + ElseIf oRow.Item("JOB_TITLE") = "PM_GROUP_JOB" Then + PMTaskBadgeGroup.Properties.Text = oRow.Item("DESCR") + oTooLTip += $"- and {PMTaskBadgeGroup.Properties.Text} Group-" + PMTaskBadgeGroup.Visible = True + End If + Next + oTooLTip += $"Tasks)" + PictureBoxPM.ToolTip = oTooLTip + Else + PMTaskBadgeGroup.Visible = False + PMTaskBadgeIndividual.Visible = False + End If + Else + PMTaskBadgeGroup.Visible = False + PMTaskBadgeIndividual.Visible = False + End If + + + Catch ex As Exception + + End Try + End Sub + + Private Sub TreeViewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TreeViewToolStripMenuItem.Click + frmTreeViewNavi.Show() + End Sub +End Class + diff --git a/GUIs.ZooFlow/frmServiceConfig.Designer.vb b/GUIs.ZooFlow/frmServiceConfig.Designer.vb new file mode 100644 index 0000000..b18877f --- /dev/null +++ b/GUIs.ZooFlow/frmServiceConfig.Designer.vb @@ -0,0 +1,222 @@ + _ +Partial Class frmServiceConfig + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.txtServiceAddress = New DevExpress.XtraEditors.TextEdit() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.btnOK = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.txtStatus = New DevExpress.XtraEditors.TextEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.txtServicePort = New DevExpress.XtraEditors.TextEdit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.txtServiceAddress.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtStatus.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.txtServiceAddress) + Me.LayoutControl1.Controls.Add(Me.txtStatus) + Me.LayoutControl1.Controls.Add(Me.txtServicePort) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 63) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(630, 207) + Me.LayoutControl1.TabIndex = 0 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'txtServiceAddress + ' + Me.txtServiceAddress.Location = New System.Drawing.Point(105, 40) + Me.txtServiceAddress.MenuManager = Me.RibbonControl1 + Me.txtServiceAddress.Name = "txtServiceAddress" + Me.txtServiceAddress.Size = New System.Drawing.Size(485, 20) + Me.txtServiceAddress.StyleController = Me.LayoutControl1 + Me.txtServiceAddress.TabIndex = 4 + ' + '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.btnOK}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 2 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.Size = New System.Drawing.Size(630, 63) + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False + ' + 'btnOK + ' + Me.btnOK.Caption = "Verbindung zum Dienst herstellen" + Me.btnOK.Id = 1 + Me.btnOK.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check5 + Me.btnOK.Name = "btnOK" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.btnOK) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'txtStatus + ' + Me.txtStatus.Location = New System.Drawing.Point(105, 100) + Me.txtStatus.MenuManager = Me.RibbonControl1 + Me.txtStatus.Name = "txtStatus" + Me.txtStatus.Properties.ReadOnly = True + Me.txtStatus.Size = New System.Drawing.Size(485, 20) + Me.txtStatus.StyleController = Me.LayoutControl1 + Me.txtStatus.TabIndex = 6 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.EmptySpaceItem1, Me.LayoutControlItem3}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(630, 207) + Me.Root.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.txtServiceAddress + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(30, 30, 30, 5) + Me.LayoutControlItem1.Size = New System.Drawing.Size(610, 55) + Me.LayoutControlItem1.Text = "IP-Adresse" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(53, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.txtServicePort + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 55) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(30, 30, 5, 5) + Me.LayoutControlItem2.Size = New System.Drawing.Size(610, 30) + Me.LayoutControlItem2.Text = "Port" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(53, 13) + ' + 'EmptySpaceItem1 + ' + Me.EmptySpaceItem1.AllowHotTrack = False + Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 115) + Me.EmptySpaceItem1.Name = "EmptySpaceItem1" + Me.EmptySpaceItem1.Size = New System.Drawing.Size(610, 72) + Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.txtStatus + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 85) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(30, 30, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(610, 30) + Me.LayoutControlItem3.Text = "Status" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(53, 13) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'txtServicePort + ' + Me.txtServicePort.EditValue = New Decimal(New Integer() {9000, 0, 0, 0}) + Me.txtServicePort.Location = New System.Drawing.Point(105, 70) + Me.txtServicePort.MenuManager = Me.RibbonControl1 + Me.txtServicePort.Name = "txtServicePort" + Me.txtServicePort.Properties.EditValueChangedFiringMode = DevExpress.XtraEditors.Controls.EditValueChangedFiringMode.Buffered + Me.txtServicePort.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Numeric + Me.txtServicePort.Size = New System.Drawing.Size(485, 20) + Me.txtServicePort.StyleController = Me.LayoutControl1 + Me.txtServicePort.TabIndex = 5 + ' + 'frmServiceConfig + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(630, 270) + Me.Controls.Add(Me.LayoutControl1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmServiceConfig" + Me.Ribbon = Me.RibbonControl1 + Me.Text = "IDB Dienst-Konfiguration" + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.txtServiceAddress.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtStatus.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + 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 RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents btnOK As DevExpress.XtraBars.BarButtonItem + Friend WithEvents txtServiceAddress As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents txtStatus As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents txtServicePort As DevExpress.XtraEditors.TextEdit +End Class diff --git a/GUIs.ZooFlow/frmServiceConfig.resx b/GUIs.ZooFlow/frmServiceConfig.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/GUIs.ZooFlow/frmServiceConfig.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/frmServiceConfig.vb b/GUIs.ZooFlow/frmServiceConfig.vb new file mode 100644 index 0000000..cb4168a --- /dev/null +++ b/GUIs.ZooFlow/frmServiceConfig.vb @@ -0,0 +1,77 @@ +Imports System.ComponentModel +Imports DigitalData.Modules.EDMI.API +Imports DigitalData.Modules.Logging + +Public Class frmServiceConfig + Private Client As Client + Private Logger As Logger + + Private Const STATUS_CONNECTED = "Connection Established" + Private Const STATUS_CONNECTING = "Trying to create connection..." + Private Const STATUS_FAILED = "Connection Failed!" + + Private ConnectionChanged As Boolean = False + + Public Property ServiceAddress As String = "" + Public Property ServiceOnline As Boolean = False + + Private Sub frmServiceConfig_Load(sender As Object, e As EventArgs) Handles Me.Load + Logger = My.LogConfig.GetLogger() + + If ServiceAddress <> String.Empty Then + Dim oAddress = Client.ParseServiceAddress(ServiceAddress) + txtServiceAddress.Text = oAddress.Item1 + txtServicePort.Text = oAddress.Item2 + End If + If ServiceOnline Then + txtStatus.Text = STATUS_CONNECTED + End If + + txtServiceAddress.Focus() + End Sub + + Private Sub btnOK_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnOK.ItemClick + Try + Dim oIPAddress = txtServiceAddress.Text + Dim oPort = Integer.Parse(txtServicePort.Text) + + Client = New Client(My.LogConfig, oIPAddress, oPort) + + txtStatus.Text = STATUS_CONNECTING + Dim oResult = Client.Connect() + + If oResult = True Then + ServiceAddress = $"{oIPAddress}:{oPort}" + ServiceOnline = True + txtStatus.Text = STATUS_CONNECTED + + Else + ServiceAddress = "" + ServiceOnline = True + txtStatus.Text = STATUS_FAILED + ' TODO: Make a connection test that is as elaborate as this one :D + 'Select Case oResult + ' Case ClassService.ConnectionTestResult.NotFound + ' lblStatus.Text = "Dienst konnte nicht gefunden werden. Bitte überprüfen sie Addresse und Port." + ' Case ClassService.ConnectionTestResult.EmptyURI + ' lblStatus.Text = "Bitte tragen Sie eine gültige Dienst Adresse ein." + ' Case ClassService.ConnectionTestResult.Authentication + ' lblStatus.Text = "Authentifizierungsfehler. Prüfen Sie, ob sich Ihr Gerät in der korrekten Domäne befindet." + ' Case Else + ' lblStatus.Text = "Unbekannter Fehler." + 'End Select + End If + Catch ex As Exception + Logger.Error(ex) + MsgBox("Fehler beim Verbindungsaufbau", MsgBoxStyle.Critical, Text) + End Try + End Sub + + Private Sub frmServiceConfig_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing + If ServiceAddress <> "" And ServiceOnline = True Then + DialogResult = DialogResult.OK + Else + DialogResult = DialogResult.Cancel + End If + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/frmSettings.Designer.vb b/GUIs.ZooFlow/frmSettings.Designer.vb new file mode 100644 index 0000000..8b0a001 --- /dev/null +++ b/GUIs.ZooFlow/frmSettings.Designer.vb @@ -0,0 +1,181 @@ + _ +Partial Class frmSettings + Inherits DevExpress.XtraEditors.XtraForm + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim UserIdLabel As System.Windows.Forms.Label + Dim Label1 As System.Windows.Forms.Label + Dim Label2 As System.Windows.Forms.Label + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.PageModules = New DevExpress.XtraTab.XtraTabPage() + Me.txtGivenName = New System.Windows.Forms.TextBox() + Me.UserStateBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.txtUsername = New System.Windows.Forms.TextBox() + Me.txtUserId = New System.Windows.Forms.TextBox() + Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.classModuleStateBindingSource = New System.Windows.Forms.BindingSource(Me.components) + UserIdLabel = New System.Windows.Forms.Label() + Label1 = New System.Windows.Forms.Label() + Label2 = New System.Windows.Forms.Label() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.PageModules.SuspendLayout() + CType(Me.UserStateBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.classModuleStateBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'UserIdLabel + ' + UserIdLabel.AutoSize = True + UserIdLabel.Location = New System.Drawing.Point(15, 24) + UserIdLabel.Name = "UserIdLabel" + UserIdLabel.Size = New System.Drawing.Size(43, 13) + UserIdLabel.TabIndex = 0 + UserIdLabel.Text = "UserId:" + ' + 'Label1 + ' + Label1.AutoSize = True + Label1.Location = New System.Drawing.Point(15, 51) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(59, 13) + Label1.TabIndex = 0 + Label1.Text = "Username:" + ' + 'Label2 + ' + Label2.AutoSize = True + Label2.Location = New System.Drawing.Point(15, 78) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(68, 13) + Label2.TabIndex = 0 + Label2.Text = "Given Name:" + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.PageModules + Me.XtraTabControl1.Size = New System.Drawing.Size(784, 419) + Me.XtraTabControl1.TabIndex = 0 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.PageModules, Me.XtraTabPage2}) + ' + 'PageModules + ' + Me.PageModules.Controls.Add(Me.GridControl1) + Me.PageModules.Controls.Add(Label2) + Me.PageModules.Controls.Add(Label1) + Me.PageModules.Controls.Add(Me.txtGivenName) + Me.PageModules.Controls.Add(Me.txtUsername) + Me.PageModules.Controls.Add(UserIdLabel) + Me.PageModules.Controls.Add(Me.txtUserId) + Me.PageModules.Name = "PageModules" + Me.PageModules.Size = New System.Drawing.Size(778, 391) + Me.PageModules.Text = "Module && Lizenzen" + ' + 'txtGivenName + ' + Me.txtGivenName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.UserStateBindingSource, "GivenName", True)) + Me.txtGivenName.Location = New System.Drawing.Point(89, 75) + Me.txtGivenName.Name = "txtGivenName" + Me.txtGivenName.Size = New System.Drawing.Size(100, 21) + Me.txtGivenName.TabIndex = 1 + ' + 'UserStateBindingSource + ' + Me.UserStateBindingSource.DataSource = GetType(DigitalData.Modules.ZooFlow.State.UserState) + ' + 'txtUsername + ' + Me.txtUsername.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.UserStateBindingSource, "UserName", True)) + Me.txtUsername.Location = New System.Drawing.Point(89, 48) + Me.txtUsername.Name = "txtUsername" + Me.txtUsername.Size = New System.Drawing.Size(100, 21) + Me.txtUsername.TabIndex = 1 + ' + 'txtUserId + ' + Me.txtUserId.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.UserStateBindingSource, "UserId", True)) + Me.txtUserId.Location = New System.Drawing.Point(89, 21) + Me.txtUserId.Name = "txtUserId" + Me.txtUserId.Size = New System.Drawing.Size(100, 21) + Me.txtUserId.TabIndex = 1 + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(778, 391) + Me.XtraTabPage2.Text = "XtraTabPage2" + ' + 'GridControl1 + ' + Me.GridControl1.DataSource = Me.classModuleStateBindingSource + Me.GridControl1.Location = New System.Drawing.Point(324, 48) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(400, 200) + Me.GridControl1.TabIndex = 2 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'GridView1 + ' + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + ' + 'classModuleStateBindingSource + ' + Me.classModuleStateBindingSource.DataSource = GetType(DigitalData.Modules.ZooFlow.State.ModuleState) + ' + 'frmSettings + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(784, 419) + Me.Controls.Add(Me.XtraTabControl1) + Me.Name = "frmSettings" + Me.Text = "frmSettings" + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.PageModules.ResumeLayout(False) + Me.PageModules.PerformLayout() + CType(Me.UserStateBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.classModuleStateBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents PageModules As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents txtUserId As TextBox + Friend WithEvents UserStateBindingSource As BindingSource + Friend WithEvents txtGivenName As TextBox + Friend WithEvents txtUsername As TextBox + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents classModuleStateBindingSource As BindingSource + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView +End Class diff --git a/GUIs.ZooFlow/frmSettings.resx b/GUIs.ZooFlow/frmSettings.resx new file mode 100644 index 0000000..230fdac --- /dev/null +++ b/GUIs.ZooFlow/frmSettings.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + False + + + False + + + 200, 17 + + + 17, 17 + + + 17, 17 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/frmSettings.vb b/GUIs.ZooFlow/frmSettings.vb new file mode 100644 index 0000000..37b47e2 --- /dev/null +++ b/GUIs.ZooFlow/frmSettings.vb @@ -0,0 +1,5 @@ +Public Class frmSettings + Private Sub frmSettings_Load(sender As Object, e As EventArgs) Handles MyBase.Load + UserStateBindingSource.DataSource = My.Application.User + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/frmSplash.Designer.vb b/GUIs.ZooFlow/frmSplash.Designer.vb new file mode 100644 index 0000000..f25d7cc --- /dev/null +++ b/GUIs.ZooFlow/frmSplash.Designer.vb @@ -0,0 +1,144 @@ + _ +Partial Class frmSplash + Inherits DevExpress.XtraSplashScreen.SplashScreen + + 'Form overrides dispose to clean up the component list. + _ + 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 + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSplash)) + Me.labelControl2 = New DevExpress.XtraEditors.LabelControl() + Me.txtActionName = New DevExpress.XtraEditors.LabelControl() + Me.Version = New DevExpress.XtraEditors.LabelControl() + Me.ProgressBarControl1 = New DevExpress.XtraEditors.ProgressBarControl() + Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit() + Me.pictureEdit2 = New DevExpress.XtraEditors.PictureEdit() + Me.PanelControl1 = New DevExpress.XtraEditors.PanelControl() + CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pictureEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.PanelControl1.SuspendLayout() + Me.SuspendLayout() + ' + 'labelControl2 + ' + Me.labelControl2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.labelControl2.Location = New System.Drawing.Point(12, 210) + Me.labelControl2.Name = "labelControl2" + Me.labelControl2.Size = New System.Drawing.Size(50, 13) + Me.labelControl2.TabIndex = 12 + Me.labelControl2.Text = "Starting..." + ' + 'txtActionName + ' + Me.txtActionName.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.txtActionName.Location = New System.Drawing.Point(12, 253) + Me.txtActionName.Name = "txtActionName" + Me.txtActionName.Size = New System.Drawing.Size(48, 13) + Me.txtActionName.TabIndex = 12 + Me.txtActionName.Text = "Loading.." + ' + 'Version + ' + Me.Version.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Version.Location = New System.Drawing.Point(12, 295) + Me.Version.Name = "Version" + Me.Version.Size = New System.Drawing.Size(54, 13) + Me.Version.TabIndex = 12 + Me.Version.Text = "Version {0}" + ' + 'ProgressBarControl1 + ' + Me.ProgressBarControl1.Location = New System.Drawing.Point(9, 229) + Me.ProgressBarControl1.Name = "ProgressBarControl1" + Me.ProgressBarControl1.Properties.EndColor = System.Drawing.Color.Empty + Me.ProgressBarControl1.Properties.LookAndFeel.SkinName = "Office 2019 Colorful" + Me.ProgressBarControl1.Properties.LookAndFeel.UseDefaultLookAndFeel = False + Me.ProgressBarControl1.Properties.StartColor = System.Drawing.Color.Empty + Me.ProgressBarControl1.Size = New System.Drawing.Size(509, 18) + Me.ProgressBarControl1.TabIndex = 15 + ' + 'PictureEdit1 + ' + Me.PictureEdit1.EditValue = CType(resources.GetObject("PictureEdit1.EditValue"), Object) + Me.PictureEdit1.Location = New System.Drawing.Point(244, 253) + Me.PictureEdit1.Name = "PictureEdit1" + Me.PictureEdit1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto] + Me.PictureEdit1.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom + Me.PictureEdit1.Size = New System.Drawing.Size(274, 53) + Me.PictureEdit1.TabIndex = 17 + ' + 'pictureEdit2 + ' + Me.pictureEdit2.Cursor = System.Windows.Forms.Cursors.Default + Me.pictureEdit2.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooflowTitle + Me.pictureEdit2.Location = New System.Drawing.Point(9, 10) + Me.pictureEdit2.Name = "pictureEdit2" + Me.pictureEdit2.Properties.AllowFocused = False + Me.pictureEdit2.Properties.Appearance.BackColor = System.Drawing.Color.Transparent + Me.pictureEdit2.Properties.Appearance.Options.UseBackColor = True + Me.pictureEdit2.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pictureEdit2.Properties.ShowMenu = False + Me.pictureEdit2.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom + Me.pictureEdit2.Size = New System.Drawing.Size(509, 198) + Me.pictureEdit2.TabIndex = 14 + ' + 'PanelControl1 + ' + Me.PanelControl1.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) + Me.PanelControl1.Appearance.Options.UseBackColor = True + Me.PanelControl1.Controls.Add(Me.pictureEdit2) + Me.PanelControl1.Controls.Add(Me.PictureEdit1) + Me.PanelControl1.Controls.Add(Me.labelControl2) + Me.PanelControl1.Controls.Add(Me.ProgressBarControl1) + Me.PanelControl1.Controls.Add(Me.txtActionName) + Me.PanelControl1.Controls.Add(Me.Version) + Me.PanelControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.PanelControl1.Location = New System.Drawing.Point(0, 0) + Me.PanelControl1.Name = "PanelControl1" + Me.PanelControl1.Size = New System.Drawing.Size(533, 320) + Me.PanelControl1.TabIndex = 18 + ' + 'frmSplash + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(533, 320) + Me.Controls.Add(Me.PanelControl1) + Me.Name = "frmSplash" + Me.Text = "Form1" + CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pictureEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.PanelControl1.ResumeLayout(False) + Me.PanelControl1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Private WithEvents labelControl2 As DevExpress.XtraEditors.LabelControl + Private WithEvents txtActionName As DevExpress.XtraEditors.LabelControl + Private WithEvents Version As DevExpress.XtraEditors.LabelControl + Friend WithEvents ProgressBarControl1 As DevExpress.XtraEditors.ProgressBarControl + Private WithEvents pictureEdit2 As DevExpress.XtraEditors.PictureEdit + Friend WithEvents PictureEdit1 As DevExpress.XtraEditors.PictureEdit + Friend WithEvents PanelControl1 As DevExpress.XtraEditors.PanelControl +End Class diff --git a/GUIs.ZooFlow/frmSplash.resx b/GUIs.ZooFlow/frmSplash.resx new file mode 100644 index 0000000..5c024f5 --- /dev/null +++ b/GUIs.ZooFlow/frmSplash.resx @@ -0,0 +1,218 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + iVBORw0KGgoAAAANSUhEUgAAAfEAAABICAYAAADmgMx0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAu + IwAALiMBeKU/dgAAFTpJREFUeF7tncGV5bgNRR3ChDALBzDOwCE4hAlhQpgQHMJsvHcIDsEhOITJoH1f + nVadXyxIIgmQhLq4uKe7RACSKImPBPT//8u3b982SfnXX//2E/zd4GfLfrPZbDZfC3PjZj4I8y/wG/wb + /gvfKvgf/Ad+h1+suJvNZrP5cTnEw1rtjWLKKpL9hJ6XtQ8vxP0ZJMASY0ukW1Gcf0JoHxNveF+yffZ9 + WEvX5Ag/XVsrXg/R1/Msw9NLusyQjqk4xtGknETruIrj9PCTtY8r5FPEyETz+QgjTjdW/FZ0QFrJWYIw + Gu1XgjNKIEPPq4zvgXgaYP54jT8AxQ8ZXIkzvC/Zvuo+vKU81hrwU0bFjNfBH9Y+eiGeBhBrP738bu1n + JTqm4hhnoSyanr1foUskIvl+TFH8w9rHFfhE32uR/God8xX4aFJkxerFPUbroDIMnlpB6qELu+mJlVLE + iaWU+Z+vsQei/fxmHUcLxJgh4rUlhOmUx1oDfpHX+H/WPnoh3hbxeUjQl6zS2W/0df6ntZ8r8NFkxoqV + geb7Fh+N31asXponEiU6qEwrIA18IWJOjFQiTgyllVb1tVaF3X2K7wwRN22T0DQIy77wjyAsZU2sLeLz + 0TM4tezA/qL74L/Wfq7AJ9t1eKVnUhKZYRPuLJsOKpOIH2hl7pq94p9GxPHXoD5r9X2GVrq9NaCvLuJN + JR/so2frwj1jPyDWFvE1hGTGamFfI8b2pjEEe5VMrTgZ+I91zFfgEz2Ou7Nsoy50FN0DF74pRBzfDAJ+ + 0CXk+AztS7ZlrpuJpvsQ++jZugirixNri/haQt9xOMPYbwRNdXHsM+tLk4hjPyLDJlwZmuydLLqEHL/l + Io5fJgE/6EmJfXURbxIp7Edc87C6OLG2iK/n39ZxR0H8Uc9UUwoa+9T6Uh7vFdiPyLAJV5YtfSd/p/kk + 8Vkq4vioBh710bFolj6IRvxRD0cU1f2F7ajZuoj6tMEW8RwMW5ETe9T5Ny0CDP9UlMd7BfYjMmzCdR/o + wJ4g4qL15aLVIp69X6vrvNiOFvHsA2512g3bkRMS14z9gDhbxPMwpO+IO3L8qS7JGb7ZqNYVbEdlVV1Z + ttEXOxKtaltunmUijn32laWovnGwHS3ioz8z76VFxEfN1kXIyo04W8RzEf5dGcY+Iqmqi2M3MisVRVXf + Yzf6XLqzbDq4p4i4qB7EsF0i4tgqjZ6tDn5G1Zuy2I0W8fT3YHnMZ2A78tqH1MWJs0U8F00LlDuINaoe + flBVXsJu9HFEUJXdwm70wqw7y6aDe5KIi9qZ0yoRz76qfEWCczt4YDNaxNN+0ctBecwW2M1Yebjr4sTY + Ip6PsD5UrCJ2NFV1cewyf9HLQVW/Yzcywya6s2w6uKeJeFVqU3aFn4syvgV2+jpV0z8xtzNAbEaLuGmX + jNvaGTYzyijuujgxtojno2pCXQNxZozpNZP/J1yD2qzC6Oxqd5Zt1gWP5nY1js0KEX/SKvzg9ubBZot4 + 3T03erYu3HVxYmwRz0lIPxpxR3BbF8cm8xe9HNwuCrGZVdvvyrLpAJ8o4rcDGTZTRRwb1cJN3wdwKVC0 + D+tL/n5C3UzUZCxmvAvhrosTY4t4Tv60zqUFYsx6nm5XsNg8QVtqRHzWi8pdWbandLTFZTqH9tkiPvJC + Sxx0PqM+d345KaJ9i/iNUNE+801cV10c/y3ieXGVS/Cfdd63dXFsHqEt5XGXYDMjwya6smyP6WiDyzer + aZ8t4iMEVuL94aHm7+M3yC37Xi5XALSPFPEnfBxPXK48aJ95Ht6Bfot4Xlzf5Ib/zPH8biFl+aSjPO4S + bGZk2ERXlm3ERVc8MfrEL9Mgai/sXZTxX6F9xCpM/Xf6MhVtGogj+/g0pU7bsL7kb73Betwzd0S/xa6J + l7UfizsRnzVbF666OP5bxNvRvaf7YFQ27JXuF9yMWCO5rIvTXj5DV0TrhbWPM04zW7TNzLCJ5izb0dFW + sC5eg/P3PyA0fsHpzU7bsPMqoX3ErL/mxRH1r+Xbw+lATNu0vrwC37TiQ6xZs3Xhqovjv0W8nfdJLv/X + wD7yJdauTAt+0df1jqo3u2sgVooxpoRYszOFzdd+SuexfVRq61ToaJsp4qH7gpZvCIsaTE73qbbC1kUZ + vxZ8U4oPcWbP1kV3XRzfLeLtfMpUaRuMmLx1ZVrwGzXOntH8Y0pnECuriM/MsInmaz+t82gbMXM9nQnS + NlPETR8Htx9nOsA24rPp6qsUfXkFvllFfEVdv7suju8W8XbMZ1LbC7sIujIt+IU+p5V0p/5fIU6KMaaE + WDMzbKL52k/rPNpG/KrX8tUjbdEPcfNFxKelVqxroNmlhKdqsoDdFvELiDN7ti666+L4bhFv5/RZoW3E + AqVZHI0YM6j6HvU7iJNOxImzIsMmmrJsUzuP9vCv4Sv3cUDbLBGPHiya60z4XK0E1Q/60gXVz7tSsN9j + WLG7KOPXgm9WEZ89WxfddXF8t4i3cyXiI76psTobJ2Rf+LfgWVyF1MWJk1HEV2TYRFOWbWrn0T7iC1FM + YWL7LBGPXoU1z2zxOR7g5lV2DcTaIn4CMTyzdV0vzwSgd1K2Rbydy+eJ9uhxoKlPZV/4t+B5vkPq4sTJ + KOKea+o5n6Ys2/TOwyZ0f2A+XGyfcl60RX/sqavGhF/3i053EDvFA4ZvRhH3zNbVr56+zfIW8xbx+FVb + 0woXe8995J2AuOvixEgxxrxCHM8E2/OVs01Ztumdh030w2UOIGyfcl6WrQP31y6OgONK8YDhm1HEvbN1 + T9/2vsW8RbydOxGP7tPqT6gIw78Fb5nTXRcnRoox5oAY3nq4d1JXvSib3nnYRH62WSwTcbZH18KaHtxZ + 6LiK43RRxq8F34wi7p2te16K6n2LeYt4O7flKcPHQ3WaGlvv9fT6u+vixMgm4l4R9vZpdZZteudhEz2A + mF9TyPYZIh59Lt1vHI+E49oiboC/d7YuofGKTXMZBZ9U/TgCHVNxjF5qRDz0Bccy/hnYes9V97GnLOiu + ixMjm4i7SgzfY5htlVRrwfTOwyb65TZz9arthZ2LMr5g+9TBkHZlMY6BPxxrn4K2LeIG+Htn60pjelOZ + zXVxfLaIt1Mj4kueE2xd+42IAa66OP4pxpgDYngmZG+TGmN7C9VZtiWdZ/k5WCni0QPFnYiHnlNJub8D + 2lI8YPhmE3HvC0E6H+85NWdv8Nki3k5mETf9K3l7D4d/vb/97aqL459ijBH4ezNsb5qkf4vtrVRl2ZZ0 + nuXn4EcS8csHgfbQcyop93dAW4oHDN9sIu5Nn+qdCu97FT1fDrRFvJ3pIg41+/Rey0NwvP3lqovjn2KM + Efh7M2xvfcG/3nOqyrIt6TzLz4H5Rjfbh58X26cOFLRHDxIfKPd3QFuKBwzfNOKDr3e2Tpj3WGZ7A011 + cey3iLdTI6je1WxJzT695/n2ThH/el84dtXF8U8xxgj8vRm2t+dB/xbbW6nKsi3pPMvPQxlfsP1HFPHo + r639QLm/A9q2iBfg652tv6+g+b93Rd9UF8d+i3g7MwS1pGaf3mfzEJyIe6K7Lo5vJhH3Po9vGVX+9d4P + VVm2JZ1n+Xko4wu2/4gibvmEUe7vgLYt4gX4emfr72Ug/b9oa6WpLo79FvF2soq45dfCIeIRLxx318Xx + zTLGuDNs8Hbd9G+xvYfbLNuSzrP8PJTxBdu3iDdS7u+Ati3iBfh6Z+vvwsv/vROCpro49lvE20kn4mov + 7Ht434fR1kp3XRzfLGOMN8Mm3jIS/BtxfW6zbEs6z/LzUMYXbN8i3ki5vwPatoi/gF/EbP193/p/0dZD + dV0c2y3i7WQU8Yj9vYq4t1zXXRfHN8sY451QE+ZDPNOmgdss25LOs/w8lPEF238oEactQjguKfd5QNsW + 8Rfwi5it/xYcr7ouju0W8XYyirj7uYyOB72//ZBljPFm2D5MZIz2Vm6zbEs6z/JzYJ4k24efF9tninj0 + wPuJcp8HtGV5wLKIuHu2Dq8roIjzqq6LY7tFvJ0aEZ/6drph30wRL+J30bvq4vgtH2Pwi1goffjIM39H + /EDWZZZtSedZfg5+pM+Jv6/OSmjbIp5EfPDzztbFLy/xIgaP6ro4tlvE26kR8dDnBN7vkRLaIq5hKTgR + fdZVF8cvg4hHZMQ+nD9/R5zXZZZtSedZfg5Wirj3KzNLTgdD2raIJxAffELKGkZc066Rqro4dlvE25ku + 4mX8V2iPOL9SxCPGs666OH7Lxxj8IjJsH54F/o7Izlxm2ZZ0nuXnYKWITxsM1VbYhlPu84C2LeLfwSdi + tv7pC4q0rbDpoaoujt0W8XayiXjEvkrBibovmuvi+CwfY/ALfwb5O+I+vMyyTe88bKIHEHOWwvbh58X2 + 6HMxf5FN0LZFPIH44BMxW/808dS2wqaHqro4dlvE26kR8Yj65ztl/Fcs+w5KEY/6aeXmujg+S8cYfKJe + HP5wn/B31E9vn2bZpnceNlMGELZPOS/L1oGZVRC0KdWlczrDitdEuc8D2kLiH5Txa8E3g4hHzNY/TdbY + FtHHVXVx7LaIt1Mj4pZfL1djQdT1+3ROhk0PzXVxfJaOMfhEZNjEB7Hl76hrdZplm9552EQ/XObLYGyf + cl60RQzq75Txa7FitVLGPKBtizhgHzVbV3/qOXglqo9v6+LYbBFv51LEaY9axR5ciXjUuelt9Nd7MCpu + c10cn6VjDD4RGTZR9mfUJxZOs2zTOw+biI8xvGI+XGyfcl60he4HTt9IvcKI00wZ84C2pQ/YAb6rRTxq + tj6S27o4NlvE27kT8ai06cHpapa26DFnBE11ceyXjjH4hC7GBnCaZZveedhEd5a58mD7lPOiLfqzoacf + M7vCiNNMGfOAti3igH3UbH0kt3VxbLaIt3Mn4tGLk6uPm1r22Wiqi2O/bIzBPirDNhpT66Z2Hu3Rs1XC + nu5rlohHf8zs9OW2K4w4zZQxD2jbIg7YZ5+ti9u6ODZbxNs5FXHa9OMh0ffGWYYx+tqNoqkujv1KEX9C + hk2YWbapnUd76L7gqm40S8RHzOJ6PqJhxWmijHlA25cXcWyfMlsXl3Vx2reIt3Ml4tH7EuYYwPYR+xpB + U10c+5Ui/oQMmzCzbNM6j7YRN9/p4EHbtJuC9uhZeFNKHfuQDEcZ94C2LeLPma2Ly7o47VvE2zlbGY+Y + 3J0KIG2hz+Jgqhcj2K4U8Sdk2ISZZRveeWxTqim6bnxwWnehbaaIR8/k9GtCVQ8AdnorNuQmLGMf0LZF + /DmzdXFZF6d9i3g7n0ScbZo8jxCA0+tn2Gamui6O7ZIxBtsnZdjEpyzbkM7jX3WMBgqJ98hZzqnQ0TZT + xKPr4uK2poSNJkhhXzBRxj+gbYv4c2br4rIuTvsW8XbUZ3re9K+yMqFf7FJgih/bo6/baKrr4tiuEvEn + ZdjEpyxbeOdN5PIFMNpnirgebtPPyd0Ponh///cD5T4OaPvSIo7d02br4rQuTlsmMbj9SFwPxH1K7dji + 6fXwg+q6OLarRPxJGTbxKUsT3nkTuav7Tb0psBl1M+g8tNLXwCs0cxxyzcpzOqBtyQNWgu8qEX/abF2c + Ph+0ZRLx0xfGPBD3qSJ+9dXLTxyra8uCS8YYbJ+UYROfsmxPvTHE5c1B+9SbApvwj8/NpjynA9q+uog/ + bbYuruqqmUS868uN7iDuU0X8avJl2Wenqi6O3fQxBrsnZtjEhyxbeOdN4vLFHYHNipsiNL09m/J8Dmj7 + 6iL+tNm6OK2L05ZGxMtji4LYTxTxR1yzRqrq4titGK+fmGETHyZ64Z03icvPwQpsVtwUI15wm0Z5Pge0 + fVkRx+aps3VhPids3yKek9P7UW2F7VOoqotjt2K8fmKGTXxYxIZ33gRuV+ECuxU3hV5we+pq/GoA+coi + /tTZujBTs2zPIuKnX9bkhdhPEz1le6Z92mYyt3VxbFaM10/MsIkPGZsn3hy3q3CB3RLhwfaJq/HLz6XT + 9pVF/KmzdWFOeNm+RTwfl1/wZNg/idu6ODZTxxhsnpxhE+86GN55g7kddA+wXSY82D+pT8Xly0W0f2UR + f+psXZg1VrZnEfGm79dugdhPEvHLlDPtWa5XLzXfeTFbxJ+cYRPvWbbwzhvIk76L90mzvNO3YQ+w+ZIi + Tnv0dVQ/SlyuiH4eP2Wu2JZFFKon5a0odrGvrGiSeJldpD36XF7vtzMiy4K3Yzc2U8cYbKIzbFYfllh+ + vbxn2cI7bxCX9SIL7JcKDz5PmOmlfb/AAt/ZIh59DWvSitHlmE+TNLZlEfHbCWQvxI4eNEeRLtUssIvW + hWwfCY7MsFWVhbCL3Od7lm3ExYpGJ978WVJ8lgsPftG/MRxJlYALbJf3pcB3tohHz9Zvv9hENoWPl0/X + mW1ZRHzIF70IYj9BxKsmMYafhz+tfZRgF/17F5eTFdqnjTG0h2fYrP2UyK7w8/KWwRkROJIuARf4ZRGe + jC9GVQu4wP6rinjkzFncvpSJTfQA86kuzrYsIj7ki14EsbOLeK2AR1+rWsGJ7r/LujjtM0U8OsO25LPw + 8HYPjQgchX5goCmF/gq+WYRHHzvLJORNAi7w+XIiTlv4ew3lPs6wfJ18mDzwdwoRfz2maIifVcQ1MazO + QGAbfR61Ih5d1rl7eW+miIfXw639lMiu8PPyNpaHd14AusmrOuUKYqQQngNirE6tq1+7apD4fUURj56t + V6UxheHr5cN15+8t4muQeCx9twdqBWfEPZLiY6y0R2fYarMq0ffkW5ZtxE3iQUJ3m3KsgTipRFwQR7Pb + 6BuoBvVFd+ryu78Vt4syfi34zhTx6Nl69WeiZVv4evmQfeHvDCJe3R89ED+TiOt6dtX/izgR1Ir4iE/Y + nNbFaZsyxtA24ryqri12I35f4+fwzutAaXOterpT5xbESyE8JcT6GWatyvUxka7V9yvESNGX+M4U8ejJ + 1koR/1AX5+8t4uPRs6eXw7oXJfiOuE63b8MfGL5eTmvHtM0S8RGfGqpaIGE34nr+Gt55F+im1r60wtED + phMKFe5Xvu/LOo4uyvheiKnzHyXmIeJ9QKwUfYlv9ENgijjbR8zWq1ZAAtvoN4PFu5jw/xGDSSvDvuhF + EH+WiGuyp+dDaJ/KtkVlE0ecQ0s93vL3cFoXp23KGENb+PtJ5T7OwFYLODOGgz/MnW3mwUXQhdXs0HsT + K6OhwX/YG7+bzWazyYW5cbMGBFhvsmuVpBm4BPmY4VtoFT88o7HZbDabrHz7y/8B2ZR+2MdMJNcAAAAA + SUVORK5CYII= + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/frmSplash.vb b/GUIs.ZooFlow/frmSplash.vb new file mode 100644 index 0000000..901a809 --- /dev/null +++ b/GUIs.ZooFlow/frmSplash.vb @@ -0,0 +1,31 @@ +Imports DevExpress.LookAndFeel + +Public Class frmSplash + Sub New + InitializeComponent() + End Sub + + Public Overrides Sub ProcessCommand(ByVal cmd As [Enum], ByVal arg As Object) + MyBase.ProcessCommand(cmd, arg) + + Dim oCommand As SplashScreenCommand = CType(cmd, SplashScreenCommand) + Select Case oCommand + Case SplashScreenCommand.SetProgress + Dim oPosition As Integer = CInt(Fix(arg)) + ProgressBarControl1.Position = oPosition + Case SplashScreenCommand.SetActionName + txtActionName.Text = arg.ToString + End Select + End Sub + + Private Sub frmSplash_Load(sender As Object, e As EventArgs) Handles Me.Load + Version.Text = String.Format("Version {0}", My.Application.Info.Version.ToString) + End Sub + + Public Enum SplashScreenCommand + SetProgress + SetActionName + End Enum + + +End Class diff --git a/GUIs.ZooFlow/frmTest.resx b/GUIs.ZooFlow/frmTest.resx new file mode 100644 index 0000000..33c7f67 --- /dev/null +++ b/GUIs.ZooFlow/frmTest.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/frmTreeViewNavi.Designer.vb b/GUIs.ZooFlow/frmTreeViewNavi.Designer.vb new file mode 100644 index 0000000..38bc5e4 --- /dev/null +++ b/GUIs.ZooFlow/frmTreeViewNavi.Designer.vb @@ -0,0 +1,353 @@ + _ +Partial Class frmTreeViewNavi + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTreeViewNavi)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarCheckItemAdminFolderRights = New DevExpress.XtraBars.BarCheckItem() + Me.BarButtonItemAddRelation = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItemRelationDel = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroupRelationsChange = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.TreeList2 = New DevExpress.XtraTreeList.TreeList() + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.GridControlRelations = New DevExpress.XtraGrid.GridControl() + Me.GridViewRelations = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.XtraTabControlRelationScope = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.GridControlFreeUser = New DevExpress.XtraGrid.GridControl() + Me.GridViewFreeUser = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components) + Me.GridControlFreeGroups = New DevExpress.XtraGrid.GridControl() + Me.GridViewFreeGroups = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components) + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TreeList2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.Panel1.SuspendLayout() + CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.Panel2.SuspendLayout() + Me.SplitContainerControl1.SuspendLayout() + CType(Me.GridControlRelations, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewRelations, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControlRelationScope, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControlRelationScope.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + CType(Me.GridControlFreeUser, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewFreeUser, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPage2.SuspendLayout() + CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlFreeGroups, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewFreeGroups, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.EmptyAreaImageOptions.ImagePadding = New System.Windows.Forms.Padding(45, 48, 45, 48) + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarCheckItemAdminFolderRights, Me.BarButtonItemAddRelation, Me.BarButtonItemRelationDel}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.RibbonControl1.MaxItemId = 4 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.OptionsMenuMinWidth = 495 + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.Size = New System.Drawing.Size(1116, 160) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarCheckItemAdminFolderRights + ' + Me.BarCheckItemAdminFolderRights.Caption = "Rechte-Ansicht" + Me.BarCheckItemAdminFolderRights.Id = 1 + Me.BarCheckItemAdminFolderRights.ImageOptions.SvgImage = CType(resources.GetObject("BarCheckItemAdminFolderRights.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarCheckItemAdminFolderRights.Name = "BarCheckItemAdminFolderRights" + ' + 'BarButtonItemAddRelation + ' + Me.BarButtonItemAddRelation.Caption = "Hinzufügen" + Me.BarButtonItemAddRelation.Id = 2 + Me.BarButtonItemAddRelation.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItemAddRelation.Name = "BarButtonItemAddRelation" + ' + 'BarButtonItemRelationDel + ' + Me.BarButtonItemRelationDel.Caption = "Entfernen" + Me.BarButtonItemRelationDel.Id = 3 + Me.BarButtonItemRelationDel.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItemRelationDel.Name = "BarButtonItemRelationDel" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroupRelationsChange}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Start" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.ImageOptions.SvgImage = CType(resources.GetObject("RibbonPageGroup2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarCheckItemAdminFolderRights) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "Einstellungen" + ' + 'RibbonPageGroupRelationsChange + ' + Me.RibbonPageGroupRelationsChange.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageGroupRelationsChange.ItemLinks.Add(Me.BarButtonItemAddRelation) + Me.RibbonPageGroupRelationsChange.ItemLinks.Add(Me.BarButtonItemRelationDel) + Me.RibbonPageGroupRelationsChange.Name = "RibbonPageGroupRelationsChange" + Me.RibbonPageGroupRelationsChange.Text = "Relationen anpassen" + Me.RibbonPageGroupRelationsChange.Visible = False + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 592) + Me.RibbonStatusBar1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1116, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'TreeList2 + ' + Me.TreeList2.Appearance.FocusedRow.BackColor = System.Drawing.Color.Azure + Me.TreeList2.Appearance.FocusedRow.Options.UseBackColor = True + Me.TreeList2.Dock = System.Windows.Forms.DockStyle.Fill + Me.TreeList2.Location = New System.Drawing.Point(0, 0) + Me.TreeList2.MenuManager = Me.RibbonControl1 + Me.TreeList2.Name = "TreeList2" + Me.TreeList2.OptionsBehavior.Editable = False + Me.TreeList2.OptionsFilter.ExpandNodesOnFiltering = True + Me.TreeList2.OptionsView.ShowAutoFilterRow = True + Me.TreeList2.OptionsView.ShowColumns = False + Me.TreeList2.OptionsView.ShowHorzLines = False + Me.TreeList2.OptionsView.ShowIndicator = False + Me.TreeList2.OptionsView.ShowTreeLines = DevExpress.Utils.DefaultBoolean.[False] + Me.TreeList2.OptionsView.ShowVertLines = False + Me.TreeList2.Size = New System.Drawing.Size(412, 432) + Me.TreeList2.StateImageList = Me.SvgImageCollection1 + Me.TreeList2.TabIndex = 5 + ' + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 + Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 160) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + ' + 'SplitContainerControl1.Panel1 + ' + Me.SplitContainerControl1.Panel1.Controls.Add(Me.TreeList2) + Me.SplitContainerControl1.Panel1.Text = "Panel1" + ' + 'SplitContainerControl1.Panel2 + ' + Me.SplitContainerControl1.Panel2.Controls.Add(Me.GridControlRelations) + Me.SplitContainerControl1.Panel2.Controls.Add(Me.XtraTabControlRelationScope) + Me.SplitContainerControl1.Panel2.Text = "Panel2" + Me.SplitContainerControl1.Size = New System.Drawing.Size(1116, 432) + Me.SplitContainerControl1.SplitterPosition = 412 + Me.SplitContainerControl1.TabIndex = 8 + ' + 'GridControlRelations + ' + Me.GridControlRelations.Dock = System.Windows.Forms.DockStyle.Right + Me.GridControlRelations.Location = New System.Drawing.Point(398, 0) + Me.GridControlRelations.MainView = Me.GridViewRelations + Me.GridControlRelations.MenuManager = Me.RibbonControl1 + Me.GridControlRelations.Name = "GridControlRelations" + Me.GridControlRelations.Size = New System.Drawing.Size(296, 432) + Me.GridControlRelations.TabIndex = 2 + Me.GridControlRelations.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewRelations}) + ' + 'GridViewRelations + ' + Me.GridViewRelations.GridControl = Me.GridControlRelations + Me.GridViewRelations.Name = "GridViewRelations" + Me.GridViewRelations.OptionsBehavior.Editable = False + Me.GridViewRelations.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewRelations.OptionsView.ShowAutoFilterRow = True + Me.GridViewRelations.OptionsView.ShowGroupPanel = False + Me.GridViewRelations.OptionsView.ShowViewCaption = True + Me.GridViewRelations.ViewCaption = "..." + ' + 'XtraTabControlRelationScope + ' + Me.XtraTabControlRelationScope.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.XtraTabControlRelationScope.Location = New System.Drawing.Point(68, 0) + Me.XtraTabControlRelationScope.Name = "XtraTabControlRelationScope" + Me.XtraTabControlRelationScope.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControlRelationScope.Size = New System.Drawing.Size(324, 432) + Me.XtraTabControlRelationScope.TabIndex = 1 + Me.XtraTabControlRelationScope.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.Controls.Add(Me.GridControlFreeUser) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(322, 409) + Me.XtraTabPage1.Text = "Freie User" + ' + 'GridControlFreeUser + ' + Me.GridControlFreeUser.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlFreeUser.Location = New System.Drawing.Point(0, 0) + Me.GridControlFreeUser.MainView = Me.GridViewFreeUser + Me.GridControlFreeUser.MenuManager = Me.RibbonControl1 + Me.GridControlFreeUser.Name = "GridControlFreeUser" + Me.GridControlFreeUser.Size = New System.Drawing.Size(322, 409) + Me.GridControlFreeUser.TabIndex = 0 + Me.GridControlFreeUser.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewFreeUser}) + ' + 'GridViewFreeUser + ' + Me.GridViewFreeUser.GridControl = Me.GridControlFreeUser + Me.GridViewFreeUser.Name = "GridViewFreeUser" + Me.GridViewFreeUser.OptionsBehavior.Editable = False + Me.GridViewFreeUser.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewFreeUser.OptionsView.ShowAutoFilterRow = True + Me.GridViewFreeUser.OptionsView.ShowGroupPanel = False + Me.GridViewFreeUser.ViewCaption = "Nicht zugeordnete User" + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.Controls.Add(Me.GridControlFreeGroups) + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(240, 409) + Me.XtraTabPage2.Text = "Freie Gruppen" + ' + 'ImageCollection1 + ' + Me.ImageCollection1.ImageStream = CType(resources.GetObject("ImageCollection1.ImageStream"), DevExpress.Utils.ImageCollectionStreamer) + Me.ImageCollection1.Images.SetKeyName(0, "team_32x32.png") + Me.ImageCollection1.Images.SetKeyName(1, "customer_32x32.png") + ' + 'GridControlFreeGroups + ' + Me.GridControlFreeGroups.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlFreeGroups.Location = New System.Drawing.Point(0, 0) + Me.GridControlFreeGroups.MainView = Me.GridViewFreeGroups + Me.GridControlFreeGroups.MenuManager = Me.RibbonControl1 + Me.GridControlFreeGroups.Name = "GridControlFreeGroups" + Me.GridControlFreeGroups.Size = New System.Drawing.Size(240, 409) + Me.GridControlFreeGroups.TabIndex = 1 + Me.GridControlFreeGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewFreeGroups}) + ' + 'GridViewFreeGroups + ' + Me.GridViewFreeGroups.GridControl = Me.GridControlFreeGroups + Me.GridViewFreeGroups.Name = "GridViewFreeGroups" + Me.GridViewFreeGroups.OptionsBehavior.Editable = False + Me.GridViewFreeGroups.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewFreeGroups.OptionsView.ShowAutoFilterRow = True + Me.GridViewFreeGroups.OptionsView.ShowGroupPanel = False + Me.GridViewFreeGroups.ViewCaption = "Nicht zugeordnete User" + ' + 'SvgImageCollection1 + ' + Me.SvgImageCollection1.Add("open", "image://svgimages/actions/open.svg") + Me.SvgImageCollection1.Add("opened", "image://svgimages/actions/open2.svg") + ' + 'frmTreeViewNavi + ' + Me.Appearance.Options.UseFont = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 21.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1116, 614) + Me.Controls.Add(Me.SplitContainerControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Name = "frmTreeViewNavi" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "frmTreeViewNavi" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TreeList2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1.Panel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.Panel1.ResumeLayout(False) + CType(Me.SplitContainerControl1.Panel2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.Panel2.ResumeLayout(False) + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + CType(Me.GridControlRelations, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewRelations, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControlRelationScope, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControlRelationScope.ResumeLayout(False) + Me.XtraTabPage1.ResumeLayout(False) + CType(Me.GridControlFreeUser, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewFreeUser, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPage2.ResumeLayout(False) + CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlFreeGroups, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewFreeGroups, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents TreeList2 As DevExpress.XtraTreeList.TreeList + Friend WithEvents BarCheckItemAdminFolderRights As DevExpress.XtraBars.BarCheckItem + Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents GridControlFreeUser As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewFreeUser As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents BarButtonItemAddRelation As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItemRelationDel As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroupRelationsChange As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents GridControlRelations As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewRelations As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents XtraTabControlRelationScope As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents ImageCollection1 As DevExpress.Utils.ImageCollection + Friend WithEvents GridControlFreeGroups As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewFreeGroups As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection +End Class diff --git a/GUIs.ZooFlow/frmTreeViewNavi.resx b/GUIs.ZooFlow/frmTreeViewNavi.resx new file mode 100644 index 0000000..2cf7ff0 --- /dev/null +++ b/GUIs.ZooFlow/frmTreeViewNavi.resx @@ -0,0 +1,255 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMgFAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk + aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp + c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41 + O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7 + ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp + c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJVc2VyIj4NCiAgICA8 + cGF0aCBkPSJNMTYuMiwyNkgydi0xLjVjMC03LjUsNS43LTUsOC04LjVjMC44LDEuNSwyLjEsNCw0LDRz + My4yLTIuNSw0LTRjMC43LDEsMS43LDEuNSwyLjcsMS45bDAsMCAgIGMtMC41LDAuOS0wLjcsMi0wLjcs + My4xYzAsMC40LDAsMC43LDAuMSwxLjFMMTYuMiwyNkwxNi4yLDI2eiBNOS4zLDEwLjljMCwwLDAsMC4x + LDAsMC4yYzAuNiwyLjMsMiw0LjksNC43LDQuOXM0LjItMi42LDQuNy00LjkgICBWMTFjMSwwLjEsMC42 + LTEuMSwwLjktMS42QzE5LjgsOC45LDIwLDguNSwxOS45LDhjLTAuMS0wLjQtMC40LTAuNC0wLjUtMC4z + QzIxLjIsMi44LDE4LjMsMywxOC4zLDNTMTgsMCwxMi44LDBDOCwwLDcuNCw0LDguNSw3LjYgICBDOC40 + LDcuNiw4LjEsNy43LDgsNy45QzcuOSw4LjQsOC4yLDguOCw4LjQsOS4zQzguNiw5LjgsOC4zLDExLDku + MywxMC45eiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxwYXRoIGQ9Ik0yNywxNmMtMi44LDAtNSwyLjIt + NSw1YzAsMC42LDAuMSwxLjIsMC4zLDEuN0wxNiwyOXYzaDR2LTJoMnYtMmgybDIuMS0yLjFDMjYuNCwy + NiwyNi43LDI2LDI3LDI2ICAgYzIuOCwwLDUtMi4yLDUtNVMyOS44LDE2LDI3LDE2eiBNMjcsMjJjLTAu + NiwwLTEtMC40LTEtMWMwLTAuNiwwLjQtMSwxLTFzMSwwLjQsMSwxQzI4LDIxLjYsMjcuNiwyMiwyNywy + MnoiIGNsYXNzPSJZZWxsb3ciIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZCI+DQogICAgPHBhdGggZD0iTTI3LDE0aC05VjVj + MC0wLjUtMC41LTEtMS0xaC0yYy0wLjUsMC0xLDAuNS0xLDF2OUg1Yy0wLjUsMC0xLDAuNS0xLDF2MmMw + LDAuNSwwLjUsMSwxLDFoOXY5ICAgYzAsMC41LDAuNSwxLDEsMWgyYzAuNSwwLDEtMC41LDEtMXYtOWg5 + YzAuNSwwLDEtMC41LDEtMXYtMkMyOCwxNC41LDI3LjUsMTQsMjcsMTR6IiBjbGFzcz0iR3JlZW4iIC8+ + DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAD4DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzczNzM3NDt9Cgku + WWVsbG93e2ZpbGw6I0ZDQjAxQjt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5CbHVle2ZpbGw6IzM4 + N0NCNzt9CgkuUmVke2ZpbGw6I0QwMjEyNzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tk + aXNwbGF5Om5vbmU7ZmlsbDojNzM3Mzc0O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTE4LjgsMTZsOC45 + LTguOWMwLjQtMC40LDAuNC0xLDAtMS40bC0xLjQtMS40Yy0wLjQtMC40LTEtMC40LTEuNCwwTDE2LDEz + LjJMNy4xLDQuM2MtMC40LTAuNC0xLTAuNC0xLjQsMCAgTDQuMyw1LjdjLTAuNCwwLjQtMC40LDEsMCwx + LjRsOC45LDguOWwtOC45LDguOWMtMC40LDAuNC0wLjQsMSwwLDEuNGwxLjQsMS40YzAuNCwwLjQsMSww + LjQsMS40LDBsOC45LTguOWw4LjksOC45ICBjMC40LDAuNCwxLDAuNCwxLjQsMGwxLjQtMS40YzAuNC0w + LjQsMC40LTEsMC0xLjRMMTguOCwxNnoiIGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFcFAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iRWRpdFJhbmdlUGVybWlzc2lvbiIgc3R5bGU9ImVuYWJsZS1iYWNrZ3Jv + dW5kOm5ldyAwIDAgMzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxs + OiNGRkIxMTU7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5bGU+DQogIDxwYXRoIGQ9Ik0zMSwy + NGgtMXYtM2MwLTEuNy0xLjMtMy0zLTNoLTJjLTEuNywwLTMsMS4zLTMsM3YzaC0xYy0wLjYsMC0xLDAu + NC0xLDF2NmMwLDAuNiwwLjQsMSwxLDFoMTAgIGMwLjYsMCwxLTAuNCwxLTF2LTZDMzIsMjQuNCwzMS42 + LDI0LDMxLDI0eiBNMjQsMjFjMC0wLjYsMC40LTEsMS0xaDJjMC42LDAsMSwwLjQsMSwxdjNoLTRWMjF6 + IiBjbGFzcz0iWWVsbG93IiAvPg0KICA8cGF0aCBkPSJNMTAsMjJoMTB2MC4yYy0wLjksMC4zLTEuNSwx + LTEuOCwxLjhIMTBWMjJ6IE0yNyw0SDEyLjNjMCwwLDAsMCwwLDBjMCwwLjEsMC4xLDAuMiwwLjEsMC40 + ICBDMTIuNiw1LDEyLjUsNS42LDEyLjMsNkgyNnYxMGgxYzAuMywwLDAuNywwLDEsMC4xVjVDMjgsNC40 + LDI3LjYsNCwyNyw0eiBNMTAsMTh2MmgxMC4xYzAuMi0wLjcsMC41LTEuNCwwLjktMmgtNUgxMHogTTYs + MThINHYxMSAgYzAsMC42LDAuNCwxLDEsMWgxM3YtMkg2VjE4eiBNMTYsMTUuMVYxNmg2di0yaC02LjFD + MTYsMTQuMywxNiwxNC43LDE2LDE1LjF6IE0xNS40LDEySDIydi0yaC04LjZDMTQuMSwxMC40LDE0Ljks + MTEsMTUuNCwxMnoiIGNsYXNzPSJCbGFjayIgLz4NCiAgPHBhdGggZD0iTTMuNyw1LjdDMy42LDUuNCwz + LjQsNS4yLDMuNSw0LjhjMC0wLjEsMC4yLTAuMiwwLjMtMC4yQzMuMSwyLjQsMy44LDAuMiw2LjMsMEM5 + LTAuMiw5LjUsMS44LDkuNSwxLjggIHMxLjQtMC4xLDAuNiwyLjljMC4xLDAsMC4zLDAsMC4zLDAuMmMw + LjEsMC4zLDAsMC42LTAuMiwwLjljLTAuMSwwLjMsMC4xLDEtMC41LDFjMCwwLDAsMC4xLDAsMC4xYy0w + LjMsMS40LTEuMiwzLTIuOCwzICBjLTEuNiwwLTIuNC0xLjYtMi44LTNjMCwwLDAtMC4xLDAtMC4xQzMu + Nyw2LjcsMy45LDYsMy43LDUuN3ogTTkuMyw5LjljLTAuNSwwLjktMS4yLDIuNS0yLjMsMi41Yy0xLjEs + MC0xLjgtMS42LTIuMy0yLjYgIEMzLjQsMTIuMSwwLDEwLjUsMCwxNS4xVjE2aDE0di0wLjlDMTQsMTAu + NSwxMC43LDEyLDkuMyw5Ljl6IiBjbGFzcz0iQmxhY2siIC8+DQo8L3N2Zz4L + + + + 164, 17 + + + 17, 17 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYyMS4yLCBWZXJzaW9uPTIxLjIu + NC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFFT + eXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRv + a2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAAChEZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0 + cmVhbWVyAgAAAAlJbWFnZVNpemUERGF0YQQHE1N5c3RlbS5EcmF3aW5nLlNpemUDAAAAAgIAAAAF/P// + /xNTeXN0ZW0uRHJhd2luZy5TaXplAgAAAAV3aWR0aAZoZWlnaHQAAAgIAwAAABAAAAAQAAAACQUAAAAP + BQAAAK4CAAAClQEAAIlQTkcNChoKAAAADUlIRFIAAAAQAAAAEAgGAAAAH/P/YQAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAE3SURBVDhPxVGxSgQxEE1hqYX+hlgoiKVoIcIlKyKC1vob + sje5g8OPEBQb7SzOJFsd6D+IhaWNdhaCxxX6Zm+yl3VPK8EHbzPz5s0kzKo/RUZhQ1v/Yii8mk6xKXIJ + Y70DR4Z8IVITxobPlCIrTeEy1ZFfS6mO1ISbLkRWW3lYwMvOkwFPUppAU2GSAe947kmS88AuzreYS1sd + saht6Mc4ZaW33ZG01GE6YZsNGRVraWOkJreKIUOxN7Fjb5ckbCyUKSW1ng9mJBxDkz+LJizrGEvaQ3wX + tZIU7rGXRZzPY82PWr3+PP/fq5pRyIN/yysdn2qzkXjBY2bdATdlpzdzfDJY/+6V0gT7+WAWv+yBiy1y + u6yZtj8sG6BzvTROA25dTqf/RJ37FWmpAwv6mNbQIHzS8u9Q6gsOm0I2J72Y/QAAAABJRU5ErkJgghEB + AACJUE5HDQoaCgAAAA1JSERSAAAAEAAAABAIBgAAAB/z/2EAAAAEZ0FNQQAAsY8L/GEFAAAACXBIWXMA + AA7DAAAOwwHHb6hkAAAAs0lEQVQ4T2OgGfBp3D7Nt2nHf2QMlSIOoGsGYZ+mHRug0oQBVgMat3+ASuMH + vs07nbAZAMJQJfgB0KYObJpBGKqEMMCm2adxRwVUmjAAKt6NbgBUinjg07T9PUyzT+NOT6gwcSB01Spm + KJM04F+/XQEY31dBtob0ruSECgPDZPsZqGuaoUKYABj692BOhmFgWPxBFwNhr6ZdmlBtEAC0oRubQnwY + qhUCsCkghKFaBxQwMAAAhULfkC84ZiQAAAAASUVORK5CYIIL + + + + 164, 17 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/frmTreeViewNavi.vb b/GUIs.ZooFlow/frmTreeViewNavi.vb new file mode 100644 index 0000000..96c0337 --- /dev/null +++ b/GUIs.ZooFlow/frmTreeViewNavi.vb @@ -0,0 +1,252 @@ +Imports DevExpress.XtraBars +Imports DevExpress.XtraEditors.Controls +Imports DevExpress.XtraEditors.Repository +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Columns +Imports DevExpress.XtraTreeList +Imports DigitalData.GUIs.ZooFlow.ClassConstants +Public Class frmTreeViewNavi + Dim RightAddActive As Boolean = False + Dim FormShown As Boolean = False + Dim SelectedNodeID As Integer = 0 + Dim selectedNodeCapt As String + Private Sub frmTreeViewNavi_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + Dim oSQL = "select SN_ID ChildID,SN_PARENT_ID ParentID,TERM_VALUE as CAPTION from VWIDB_STRUCTURE_NODES_STRUCTURE" + Dim oDT As DataTable = My.DatabaseIDB.GetDatatable(oSQL) + + TreeList2.Nodes.Clear() + TreeList2.KeyFieldName = oDT.Columns(0).ColumnName + TreeList2.ParentFieldName = oDT.Columns(1).ColumnName + TreeList2.DataSource = oDT + + + If My.Application.Modules.Item(MODULE_ZOOFLOW).IsAdmin Then + RibbonPageGroup2.Visible = True + Else + RibbonPageGroup2.Visible = False + End If + Catch ex As Exception + + End Try + End Sub + + Private Sub TreeList2_GetStateImage(sender As Object, e As DevExpress.XtraTreeList.GetStateImageEventArgs) Handles TreeList2.GetStateImage + If e.Node.Expanded Then + e.NodeImageIndex = 1 + Else + e.NodeImageIndex = 0 + End If + End Sub + + Private Sub TreeList2_SelectionChanged(sender As Object, e As EventArgs) Handles TreeList2.SelectionChanged + + End Sub + Sub Refresh_all() + Refresh_Relations() + If XtraTabControlRelationScope.SelectedTabPageIndex = 0 Then + Refresh_FreeUsers() + GridViewFreeUser.FocusedRowHandle = GridControl.InvalidRowHandle + Else + Refresh_FreeGroups() + GridViewFreeGroups.FocusedRowHandle = GridControl.InvalidRowHandle + End If + GridViewRelations.FocusedRowHandle = GridControl.InvalidRowHandle + + + End Sub + Private Sub BarCheckItemAdminFolderRights_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckItemAdminFolderRights.CheckedChanged + Dim oitm As BarCheckItem = e.Item + RightAddActive = oitm.Checked + SplitContainerControl1.Collapsed = Not RightAddActive + If RightAddActive = True Then + RibbonPageGroupRelationsChange.Visible = True + If SelectedNodeID > 0 Then + Refresh_all() + End If + Else + RibbonPageGroupRelationsChange.Visible = False + End If + End Sub + + + Private Sub Refresh_FreeUsers() + Try + Dim oSQL = $"SELECT GUID as USR_ID, EMAIL FROM DD_ECM.dbo.TBDD_USER USR WHERE GUID NOT IN ( + SELECT ScopeID FROM VWIDB_SN_RELATIONS WHERE Scope = 'USR' AND SN_ID = {SelectedNodeID}) AND USR.ACTIVE = 1 AND LEN(EMAIL) > 0" + Dim oDT As DataTable = My.DatabaseIDB.GetDatatable(oSQL) + If Not IsNothing(oDT) Then + GridViewFreeUser.Columns.Clear() + GridControlFreeUser.DataSource = oDT + GridViewFreeUser.Columns("USR_ID").Visible = False + End If + + Catch ex As Exception + + End Try + End Sub + Private Sub Refresh_FreeGroups() + Try + Dim oSQL = $"SELECT GUID as GroupID, NAME FROM DD_ECM.dbo.TBDD_GROUPS GRP WHERE GUID NOT IN ( + SELECT ScopeID FROM VWIDB_SN_RELATIONS WHERE Scope = 'GRP' AND SN_ID = {SelectedNodeID}) AND GRP.ACTIVE = 1 " + Dim oDT As DataTable = My.DatabaseIDB.GetDatatable(oSQL) + If Not IsNothing(oDT) Then + GridViewFreeGroups.Columns.Clear() + GridControlFreeGroups.DataSource = oDT + GridViewFreeGroups.Columns("GroupID").Visible = False + End If + + Catch ex As Exception + + End Try + End Sub + Private Sub Refresh_Relations() + Try + Dim oSQL = $"SELECT * FROM VWIDB_SN_RELATIONS WHERE SN_ID = {SelectedNodeID}" + Dim oDT As DataTable = My.DatabaseIDB.GetDatatable(oSQL) + If Not IsNothing(oDT) Then + GridViewRelations.Columns.Clear() + Dim columnStateIcon As New DataColumn() + columnStateIcon.DataType = GetType(Image) + columnStateIcon.ColumnName = "ICON" + columnStateIcon.Caption = "" + + oDT.Columns.Add(columnStateIcon) + GridControlRelations.DataSource = oDT + + GridViewRelations.Columns("REL_ID").Visible = False + GridViewRelations.Columns("SN_ID").Visible = False + GridViewRelations.Columns("Scope").Visible = False + GridViewRelations.Columns("ScopeID").Visible = False + GridViewRelations.Columns("NODE_CAPTION").Visible = False + + GridViewRelations.Columns.Item("ICON").MaxWidth = 25 + GridViewRelations.Columns.Item("ICON").MinWidth = 25 + GridViewRelations.Columns.Item("ICON").AppearanceCell.BackColor = Color.White + GridViewRelations.Columns.Item("ICON").Fixed = FixedStyle.Left + GridViewRelations.ViewCaption = $"Relationen für [{selectedNodeCapt}]" + If oDT.Rows.Count > 0 Then + Dim oRowIndex As Integer = 0 + For Each oRow As DataRow In oDT.Rows + Try + Dim oScope = oRow.Item("Scope") + If IsNothing(oScope) Then + Exit Sub + End If + Dim oImageIndex As Integer + oImageIndex = 1 + If oScope.ToString = "GRP" Then + oImageIndex = 0 + End If + GridViewRelations.SetRowCellValue(oRowIndex, "ICON", ImageCollection1.Images(oImageIndex)) + oRowIndex += 1 + Catch ex As Exception + + End Try + Next + End If + End If + + Catch ex As Exception + + End Try + End Sub + + Private Sub frmTreeViewNavi_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown + FormShown = True + SplitContainerControl1.Collapsed = True + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItemAddRelation.ItemClick + Dim oInsert As String + oInsert = $"INSERT INTO [dbo].[TBIDB_STRUCTURE_NODES_RELATIONS] + ([SN_ID]" + If XtraTabControlRelationScope.SelectedTabPageIndex = 0 Then + oInsert &= ",[USR_ID]" + + Else + oInsert &= ",[GRP_ID]" + End If + oInsert &= $",[ADDED_WHO]) VALUES ({SelectedNodeID}, {BarButtonItemRelationDel.Tag},'{My.Application.User.UserName}')" + If My.DatabaseIDB.ExecuteNonQuery(oInsert) = True Then + Refresh_all() + End If + End Sub + + Private Sub GridViewFreeUser_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewFreeUser.FocusedRowChanged + Dim oFocusedUSR = GridViewFreeUser.GetFocusedRowCellValue(GridViewFreeUser.Columns("USR_ID")) + If Not IsNothing(oFocusedUSR) Then + RibbonPageGroupRelationsChange.Enabled = True + BarButtonItemAddRelation.Enabled = True + BarButtonItemRelationDel.Enabled = False + BarButtonItemRelationDel.Tag = oFocusedUSR + GridViewRelations.FocusedRowHandle = GridControl.InvalidRowHandle + Else + RibbonPageGroupRelationsChange.Enabled = False + End If + End Sub + + Private Sub GridViewRelations_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewRelations.FocusedRowChanged + Dim oFocusedRELID = GridViewRelations.GetFocusedRowCellValue(GridViewRelations.Columns("REL_ID")) + If Not IsNothing(oFocusedRELID) Then + RibbonPageGroupRelationsChange.Enabled = True + BarButtonItemAddRelation.Enabled = False + BarButtonItemRelationDel.Enabled = True + BarButtonItemRelationDel.Tag = oFocusedRELID + + Else + RibbonPageGroupRelationsChange.Enabled = False + End If + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItemRelationDel.ItemClick + Dim oDel = $"DELETE FROM TBIDB_STRUCTURE_NODES_RELATIONS WHERE GUID = {BarButtonItemRelationDel.Tag}" + If My.DatabaseIDB.ExecuteNonQuery(oDel) = True Then + Refresh_all() + End If + End Sub + + Private Sub TreeList2_FocusedNodeChanged(sender As Object, e As FocusedNodeChangedEventArgs) Handles TreeList2.FocusedNodeChanged + Try + Dim KeyValue As Object + KeyValue = TreeList2.FocusedNode(TreeList2.KeyFieldName) + If IsNothing(KeyValue) Then + Exit Sub + End If + Dim oNodeCaption = e.Node.GetDisplayText("CAPTION") + + selectedNodeCapt = oNodeCaption + Console.WriteLine($"keyfield: {KeyValue.ToString}") + If IsNumeric(KeyValue) Then + SelectedNodeID = KeyValue + Else + Exit Sub + End If + If RightAddActive Then + Refresh_all() + End If + Catch ex As Exception + + End Try + End Sub + + Private Sub GridViewFreeGroups_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewFreeGroups.FocusedRowChanged + Dim oFocusedGRP = GridViewFreeGroups.GetFocusedRowCellValue(GridViewFreeGroups.Columns("GroupID")) + If Not IsNothing(oFocusedGRP) Then + RibbonPageGroupRelationsChange.Enabled = True + BarButtonItemAddRelation.Enabled = True + BarButtonItemRelationDel.Enabled = False + BarButtonItemRelationDel.Tag = oFocusedGRP + Else + RibbonPageGroupRelationsChange.Enabled = False + End If + End Sub + + Private Sub XtraTabControlRelationScope_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControlRelationScope.SelectedPageChanged + If XtraTabControlRelationScope.SelectedTabPageIndex = 1 Then + Refresh_FreeGroups() + Else + Refresh_FreeUsers() + End If + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/frmWaitForm.Designer.vb b/GUIs.ZooFlow/frmWaitForm.Designer.vb new file mode 100644 index 0000000..1a20c4c --- /dev/null +++ b/GUIs.ZooFlow/frmWaitForm.Designer.vb @@ -0,0 +1,83 @@ + _ +Partial Class frmWaitForm + Inherits DevExpress.XtraWaitForm.WaitForm + + 'Form overrides dispose to clean up the component list. + _ + 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 + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.progressPanel1 = New DevExpress.XtraWaitForm.ProgressPanel() + Me.tableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.tableLayoutPanel1.SuspendLayout() + Me.SuspendLayout() + ' + 'progressPanel1 + ' + Me.progressPanel1.Appearance.BackColor = System.Drawing.Color.Transparent + Me.progressPanel1.Appearance.Options.UseBackColor = True + Me.progressPanel1.AppearanceCaption.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.progressPanel1.AppearanceCaption.Options.UseFont = True + Me.progressPanel1.AppearanceDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) + Me.progressPanel1.AppearanceDescription.Options.UseFont = True + Me.progressPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.progressPanel1.ImageHorzOffset = 20 + Me.progressPanel1.Location = New System.Drawing.Point(0, 17) + Me.progressPanel1.Margin = New System.Windows.Forms.Padding(0, 3, 0, 3) + Me.progressPanel1.Name = "progressPanel1" + Me.progressPanel1.Size = New System.Drawing.Size(246, 39) + Me.progressPanel1.TabIndex = 0 + Me.progressPanel1.Text = "progressPanel1" + ' + 'tableLayoutPanel1 + ' + Me.tableLayoutPanel1.AutoSize = True + Me.tableLayoutPanel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.tableLayoutPanel1.BackColor = System.Drawing.Color.Transparent + Me.tableLayoutPanel1.ColumnCount = 1 + Me.tableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.tableLayoutPanel1.Controls.Add(Me.progressPanel1, 0, 0) + Me.tableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.tableLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.tableLayoutPanel1.Name = "tableLayoutPanel1" + Me.tableLayoutPanel1.Padding = New System.Windows.Forms.Padding(0, 14, 0, 14) + Me.tableLayoutPanel1.RowCount = 1 + Me.tableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.tableLayoutPanel1.Size = New System.Drawing.Size(246, 73) + Me.tableLayoutPanel1.TabIndex = 1 + ' + 'Form1 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.AutoSize = True + Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ClientSize = New System.Drawing.Size(246, 73) + Me.Controls.Add(Me.tableLayoutPanel1) + Me.DoubleBuffered = True + Me.Name = "Form1" + Me.StartPosition = FormStartPosition.Manual + Me.Text = "Form1" + Me.tableLayoutPanel1.ResumeLayout(false) + Me.ResumeLayout(False) + Me.PerformLayout() + End Sub + + Private WithEvents progressPanel1 As DevExpress.XtraWaitForm.ProgressPanel + Private WithEvents tableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel +End Class diff --git a/GUIs.ZooFlow/frmWaitForm.resx b/GUIs.ZooFlow/frmWaitForm.resx new file mode 100644 index 0000000..9d1fc38 --- /dev/null +++ b/GUIs.ZooFlow/frmWaitForm.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/frmWaitForm.vb b/GUIs.ZooFlow/frmWaitForm.vb new file mode 100644 index 0000000..04b65ef --- /dev/null +++ b/GUIs.ZooFlow/frmWaitForm.vb @@ -0,0 +1,24 @@ +Public Class frmWaitForm + Sub New + InitializeComponent() + Me.progressPanel1.AutoHeight = True + End Sub + + Public Overrides Sub SetCaption(ByVal caption As String) + MyBase.SetCaption(caption) + Me.progressPanel1.Caption = caption + End Sub + + Public Overrides Sub SetDescription(ByVal description As String) + MyBase.SetDescription(description) + Me.progressPanel1.Description = description + End Sub + + Public Overrides Sub ProcessCommand(ByVal cmd As System.Enum, ByVal arg As Object) + MyBase.ProcessCommand(cmd, arg) + End Sub + + Public Enum WaitFormCommand + SomeCommandId + End Enum +End Class diff --git a/GUIs.ZooFlow/frmtest.Designer.vb b/GUIs.ZooFlow/frmtest.Designer.vb new file mode 100644 index 0000000..736aad4 --- /dev/null +++ b/GUIs.ZooFlow/frmtest.Designer.vb @@ -0,0 +1,238 @@ + +Partial Class frmtest + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + Private Sub InitializeComponent() + Me.Label2 = New System.Windows.Forms.Label() + Me.txtFile2Import = New System.Windows.Forms.TextBox() + Me.btnOpenFile = New System.Windows.Forms.Button() + Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.btnNewFile = New System.Windows.Forms.Button() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.cmbObjectStoreType = New System.Windows.Forms.ComboBox() + Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() + Me.Label6 = New System.Windows.Forms.Label() + Me.btnImportFile = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtProfileId = New System.Windows.Forms.TextBox() + Me.txtIDB_OBJ_ID = New System.Windows.Forms.TextBox() + Me.txtDoctypeID = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.SuspendLayout() + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(9, 66) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(72, 13) + Me.Label2.TabIndex = 6 + Me.Label2.Text = "FileStoreType" + ' + 'txtFile2Import + ' + Me.txtFile2Import.Location = New System.Drawing.Point(137, 12) + Me.txtFile2Import.Name = "txtFile2Import" + Me.txtFile2Import.Size = New System.Drawing.Size(426, 20) + Me.txtFile2Import.TabIndex = 11 + ' + 'btnOpenFile + ' + Me.btnOpenFile.Location = New System.Drawing.Point(569, 9) + Me.btnOpenFile.Name = "btnOpenFile" + Me.btnOpenFile.Size = New System.Drawing.Size(75, 23) + Me.btnOpenFile.TabIndex = 16 + Me.btnOpenFile.Text = "Select File" + Me.btnOpenFile.UseVisualStyleBackColor = True + ' + 'OpenFileDialog1 + ' + Me.OpenFileDialog1.FileName = "OpenFileDialog1" + ' + 'btnNewFile + ' + Me.btnNewFile.Location = New System.Drawing.Point(12, 142) + Me.btnNewFile.Name = "btnNewFile" + Me.btnNewFile.Size = New System.Drawing.Size(187, 23) + Me.btnNewFile.TabIndex = 17 + Me.btnNewFile.Text = "ImportFile (IDB/FileImporter)" + Me.btnNewFile.UseVisualStyleBackColor = True + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(9, 14) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(48, 13) + Me.Label4.TabIndex = 18 + Me.Label4.Text = "File Path" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(9, 41) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(47, 13) + Me.Label5.TabIndex = 18 + Me.Label5.Text = "ObjectId" + ' + 'cmbObjectStoreType + ' + Me.cmbObjectStoreType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmbObjectStoreType.FormattingEnabled = True + Me.cmbObjectStoreType.Items.AddRange(New Object() {"Work", "Archive"}) + Me.cmbObjectStoreType.Location = New System.Drawing.Point(137, 63) + Me.cmbObjectStoreType.Name = "cmbObjectStoreType" + Me.cmbObjectStoreType.Size = New System.Drawing.Size(121, 21) + Me.cmbObjectStoreType.TabIndex = 19 + ' + 'DateTimePicker1 + ' + Me.DateTimePicker1.Location = New System.Drawing.Point(137, 90) + Me.DateTimePicker1.Name = "DateTimePicker1" + Me.DateTimePicker1.Size = New System.Drawing.Size(200, 20) + Me.DateTimePicker1.TabIndex = 20 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(9, 96) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(30, 13) + Me.Label6.TabIndex = 6 + Me.Label6.Text = "Date" + ' + 'btnImportFile + ' + Me.btnImportFile.Location = New System.Drawing.Point(205, 142) + Me.btnImportFile.Name = "btnImportFile" + Me.btnImportFile.Size = New System.Drawing.Size(187, 23) + Me.btnImportFile.TabIndex = 17 + Me.btnImportFile.Text = "ImportFile (GLOBIX)" + Me.btnImportFile.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(410, 44) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(45, 13) + Me.Label1.TabIndex = 18 + Me.Label1.Text = "ProfileId" + ' + 'txtProfileId + ' + Me.txtProfileId.Location = New System.Drawing.Point(461, 41) + Me.txtProfileId.Name = "txtProfileId" + Me.txtProfileId.Size = New System.Drawing.Size(100, 20) + Me.txtProfileId.TabIndex = 21 + Me.txtProfileId.Text = "1" + ' + 'txtIDB_OBJ_ID + ' + Me.txtIDB_OBJ_ID.Location = New System.Drawing.Point(137, 38) + Me.txtIDB_OBJ_ID.Name = "txtIDB_OBJ_ID" + Me.txtIDB_OBJ_ID.Size = New System.Drawing.Size(100, 20) + Me.txtIDB_OBJ_ID.TabIndex = 9 + ' + 'txtDoctypeID + ' + Me.txtDoctypeID.Location = New System.Drawing.Point(461, 67) + Me.txtDoctypeID.Name = "txtDoctypeID" + Me.txtDoctypeID.Size = New System.Drawing.Size(100, 20) + Me.txtDoctypeID.TabIndex = 22 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(397, 70) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(58, 13) + Me.Label3.TabIndex = 23 + Me.Label3.Text = "DoctypeID" + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(12, 191) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(154, 23) + Me.Button1.TabIndex = 24 + Me.Button1.Text = "AdhocWorkflow" + Me.Button1.UseVisualStyleBackColor = True + ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(172, 194) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(189, 20) + Me.TextBox1.TabIndex = 25 + ' + 'frmtest + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(865, 450) + Me.Controls.Add(Me.TextBox1) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.txtDoctypeID) + Me.Controls.Add(Me.txtProfileId) + Me.Controls.Add(Me.DateTimePicker1) + Me.Controls.Add(Me.cmbObjectStoreType) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.btnImportFile) + Me.Controls.Add(Me.btnNewFile) + Me.Controls.Add(Me.btnOpenFile) + Me.Controls.Add(Me.txtFile2Import) + Me.Controls.Add(Me.txtIDB_OBJ_ID) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.Label2) + Me.Name = "frmtest" + Me.Text = "frmtest" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label2 As Label + Friend WithEvents txtIDB_OBJ_ID As TextBox + Friend WithEvents txtFile2Import As TextBox + Friend WithEvents btnOpenFile As Button + Friend WithEvents OpenFileDialog1 As OpenFileDialog + Friend WithEvents btnNewFile As Button + Friend WithEvents Label4 As Label + Friend WithEvents Label5 As Label + Friend WithEvents cmbObjectStoreType As ComboBox + Friend WithEvents DateTimePicker1 As DateTimePicker + Friend WithEvents Label6 As Label + Friend WithEvents btnImportFile As Button + Friend WithEvents Label1 As Label + Friend WithEvents txtProfileId As TextBox + Friend WithEvents txtDoctypeID As TextBox + Friend WithEvents Label3 As Label + Friend WithEvents Button1 As Button + Friend WithEvents TextBox1 As TextBox +End Class diff --git a/GUIs.ZooFlow/frmtest.vb b/GUIs.ZooFlow/frmtest.vb new file mode 100644 index 0000000..0033f76 --- /dev/null +++ b/GUIs.ZooFlow/frmtest.vb @@ -0,0 +1,86 @@ +Imports DigitalData.Modules.EDMI.API.EDMIServiceReference +Imports DigitalData.Modules.Base.IDB.FileStore +Imports DigitalData.GUIs.Common +Imports DigitalData.Modules.ZooFlow + +Public Class frmtest + Private Property Environment As Environment + Private Property AdHoc_Workflow As AdHocWorkflow + + Private Sub frmtest_Load(sender As Object, e As EventArgs) Handles MyBase.Load + cmbObjectStoreType.SelectedIndex = 0 + Environment = My.Application.GetEnvironment() + + End Sub + + Private Sub btnOpenFile_Click(sender As Object, e As EventArgs) Handles btnOpenFile.Click + If OpenFileDialog1.ShowDialog() = DialogResult.OK Then + txtFile2Import.Text = OpenFileDialog1.FileName + End If + End Sub + + Private Async Sub btnNewFile_Click(sender As Object, e As EventArgs) Handles btnNewFile.Click + Dim oResponse As ImportFileResponse = Await My.Application.Service.Client.ImportFileAsync( + txtFile2Import.Text, + New List(Of UserAttributeValue) From { + New UserAttributeValue With { + .Name = "Attribut String1", + .Values = New List(Of String) From {"Harry"}.ToArray + }, + New UserAttributeValue With { + .Name = "DisplayFileName", + .Values = New List(Of String) From {"DN Textdokument"}.ToArray + } + }, + "Work", + "DOC", + txtDoctypeID.Text + ) + + If oResponse.OK Then + MsgBox("File Imported!", MsgBoxStyle.Information, Text) + txtIDB_OBJ_ID.Text = oResponse.ObjectId + Else + MsgBox("File was not imported. Check the server logs!", MsgBoxStyle.Critical, Text) + End If + End Sub + + Private Async Sub btnImportFile_Click_(sender As Object, e As EventArgs) Handles btnImportFile.Click + Dim oResponse As Globix_ImportFileResponse = Await My.Application.Service.Client.Globix_ImportFileAsync( + txtFile2Import.Text, + txtProfileId.Text, + New List(Of UserAttributeValue) From { + New UserAttributeValue With { + .Name = "Attribut String1", + .Values = New List(Of String) From {"Harry"}.ToArray + }, + New UserAttributeValue With { + .Name = "DisplayFileName", + .Values = New List(Of String) From {"DN Textdokument"}.ToArray + } + }, + "Work", + "DOC", + txtDoctypeID.Text + ) + + If oResponse.OK Then + MsgBox("File Imported!", MsgBoxStyle.Information, Text) + txtIDB_OBJ_ID.Text = oResponse.ObjectId + Else + MsgBox("File was not imported. Check the server logs!", MsgBoxStyle.Critical, Text) + End If + + + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + AdHoc_Workflow = My.Application.GetAdHocWorkflow(TextBox1.Text) + Dim oForm As New frmWorkflow_Adhoc_start(My.LogConfig, Environment, AdHoc_Workflow) + oForm.Show() + oForm.BringToFront() + oForm.Focus() + End Sub + + +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/modCurrent.vb b/GUIs.ZooFlow/modCurrent.vb new file mode 100644 index 0000000..58bb28a --- /dev/null +++ b/GUIs.ZooFlow/modCurrent.vb @@ -0,0 +1,17 @@ +Imports DigitalData.Modules.EDMI.API +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Config + +Module modCurrent + Public Property CURR_MISSING_PATTERN_NAME = "Email To" + Public Property CURR_MISSING_SEARCH_STRING = String.Empty + Public Property CURR_MISSING_MANUAL_VALUE = String.Empty + Public Property NI_TITLE As String = "" + Public Property NI_MESSAGE As String = "" + Public Property NI_TYPE As String = "INFO" + Public Property GLOBIX_JUMP_DOCTYPE_ID As Integer + Public Property SQL_FLOW_SEARCH_BASE As String + Public Property SQL_AHW_LAYOUT_SELECT As String + Public Property SQL_AHW_USR_SELECT As String + Public Property SQL_RECENT_FILES_USER As String +End Module diff --git a/GUIs.ZooFlow/packages.config b/GUIs.ZooFlow/packages.config new file mode 100644 index 0000000..208d98d --- /dev/null +++ b/GUIs.ZooFlow/packages.config @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/Zooflow.sln b/Zooflow.sln new file mode 100644 index 0000000..7681f57 --- /dev/null +++ b/Zooflow.sln @@ -0,0 +1,25 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio Version 16 +VisualStudioVersion = 16.0.31005.135 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ZooFlow", "GUIs.ZooFlow\ZooFlow.vbproj", "{D0FB36EB-783D-40E1-B71E-A0B84B2FE567}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {D0FB36EB-783D-40E1-B71E-A0B84B2FE567}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {D0FB36EB-783D-40E1-B71E-A0B84B2FE567}.Debug|Any CPU.Build.0 = Debug|Any CPU + {D0FB36EB-783D-40E1-B71E-A0B84B2FE567}.Release|Any CPU.ActiveCfg = Release|Any CPU + {D0FB36EB-783D-40E1-B71E-A0B84B2FE567}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {1039426F-0ADF-476F-BF25-B305351D5DBC} + EndGlobalSection +EndGlobal diff --git a/Zooflow/App.config b/Zooflow/App.config new file mode 100644 index 0000000..61d0069 --- /dev/null +++ b/Zooflow/App.config @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/Zooflow/Form1.Designer.vb b/Zooflow/Form1.Designer.vb new file mode 100644 index 0000000..04ef8d0 --- /dev/null +++ b/Zooflow/Form1.Designer.vb @@ -0,0 +1,31 @@ + _ +Partial Class Form1 + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Text = "Form1" + End Sub + +End Class diff --git a/Zooflow/Form1.vb b/Zooflow/Form1.vb new file mode 100644 index 0000000..17d6595 --- /dev/null +++ b/Zooflow/Form1.vb @@ -0,0 +1,3 @@ +Public Class Form1 + +End Class diff --git a/Zooflow/My Project/Application.Designer.vb b/Zooflow/My Project/Application.Designer.vb new file mode 100644 index 0000000..2413d70 --- /dev/null +++ b/Zooflow/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'NOTE: This file is auto-generated; do not modify it directly. To make changes, + ' or if you encounter build errors in this file, go to the Project Designer + ' (go to Project Properties or double-click the My Project node in + ' Solution Explorer), and make changes on the Application tab. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.Zooflow.Form1 + End Sub + End Class +End Namespace diff --git a/Zooflow/My Project/Application.myapp b/Zooflow/My Project/Application.myapp new file mode 100644 index 0000000..1243847 --- /dev/null +++ b/Zooflow/My Project/Application.myapp @@ -0,0 +1,11 @@ + + + true + Form1 + false + 0 + true + 0 + 0 + true + diff --git a/Zooflow/My Project/AssemblyInfo.vb b/Zooflow/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..69451d0 --- /dev/null +++ b/Zooflow/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Allgemeine Informationen über eine Assembly werden über die folgenden +' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, +' die einer Assembly zugeordnet sind. + +' Werte der Assemblyattribute überprüfen + + + + + + + + + + +'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird. + + +' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: +' +' Hauptversion +' Nebenversion +' Buildnummer +' Revision +' +' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden, +' indem Sie "*" wie unten gezeigt eingeben: +' + + + diff --git a/Zooflow/My Project/Resources.Designer.vb b/Zooflow/My Project/Resources.Designer.vb new file mode 100644 index 0000000..83da93a --- /dev/null +++ b/Zooflow/My Project/Resources.Designer.vb @@ -0,0 +1,62 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Zooflow.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set(ByVal value As Global.System.Globalization.CultureInfo) + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/Zooflow/My Project/Resources.resx b/Zooflow/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/Zooflow/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Zooflow/My Project/Settings.Designer.vb b/Zooflow/My Project/Settings.Designer.vb new file mode 100644 index 0000000..da2351e --- /dev/null +++ b/Zooflow/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) + +#Region "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.Zooflow.My.MySettings + Get + Return Global.Zooflow.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/Zooflow/My Project/Settings.settings b/Zooflow/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/Zooflow/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/Zooflow/Zooflow.vbproj b/Zooflow/Zooflow.vbproj new file mode 100644 index 0000000..f6f713d --- /dev/null +++ b/Zooflow/Zooflow.vbproj @@ -0,0 +1,120 @@ + + + + + Debug + AnyCPU + {D581B184-413B-4AB1-B655-2C9E1E0990C8} + WinExe + Zooflow.My.MyApplication + Zooflow + Zooflow + 512 + WindowsForms + v4.6.2 + true + true + + + AnyCPU + true + full + true + true + bin\Debug\ + Zooflow.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + Zooflow.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Form + + + Form1.vb + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + \ No newline at end of file