diff --git a/GUIs.ZooFlow/Administration/ClassConstants.vb b/GUIs.ZooFlow/Administration/ClassConstants.vb index 584dca54..d6498a98 100644 --- a/GUIs.ZooFlow/Administration/ClassConstants.vb +++ b/GUIs.ZooFlow/Administration/ClassConstants.vb @@ -15,5 +15,7 @@ Public Const PAGE_META_SOURCE_SQL = "META_SOURCE_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 index 47cdb5f0..44595a9a 100644 --- a/GUIs.ZooFlow/Administration/ClassDetailForm.vb +++ b/GUIs.ZooFlow/Administration/ClassDetailForm.vb @@ -114,7 +114,7 @@ Public Class ClassDetailForm Private Sub Load_CWProfile(PrimaryKey As Integer, IsInsert As Boolean) Try - Dim oForm As New frmAdmin_CWProfile(PrimaryKey) With {.IsInsert = IsInsert} + Dim oForm As New frmAdmin_ClipboardWatcher(PrimaryKey) With {.IsInsert = IsInsert} oForm.ShowDialog() RaiseEvent DetailFormClosed(Me, oForm) diff --git a/GUIs.ZooFlow/Administration/ClassDetailPage.vb b/GUIs.ZooFlow/Administration/ClassDetailPage.vb index 9f085088..1f5bb314 100644 --- a/GUIs.ZooFlow/Administration/ClassDetailPage.vb +++ b/GUIs.ZooFlow/Administration/ClassDetailPage.vb @@ -1,15 +1,37 @@ 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 ClassDetailPages + Private ReadOnly LogConfig As LogConfig + Private ReadOnly Logger As Logger + Private ReadOnly HostForm As IAdminForm + Public Items As New Dictionary(Of String, DetailPage) - Public CurrentPage As 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 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 @@ -17,6 +39,7 @@ Public Class ClassDetailPages Public Class DetailPage Public IsPrimary As Boolean = False + Public IsInsert As Boolean = False Public TabPage As XtraTabPage Public Name As String Public BindingSource As BindingSource @@ -25,7 +48,32 @@ Public Class ClassDetailPages Public ChangedWhoEdit As TextEdit End Class - Public Sub New(LayoutControls As List(Of LayoutControl)) + ''' + ''' 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 @@ -39,21 +87,110 @@ Public Class ClassDetailPages Next End Sub + ''' + ''' Add a new DetailPage or a new PrimaryPage + ''' Public Sub Add(Page As DetailPage) Items.Add(Page.TabPage.Name, Page) + + AddHandler Page.BindingSource.AddingNew, Sub(sender As Object, e As EventArgs) + Page.AddedWhoEdit.EditValue = Environment.UserName + 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 - Private Sub Handle_Validating(sender As Object, e As CancelEventArgs) - Dim oControl As BaseEdit = sender - Dim oBinding As Binding = oControl.DataBindings.Item("EditValue") + ''' + ''' 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() - If TypeOf oBinding.DataSource Is BindingSource Then + Return oItem.Value + Catch ex As Exception + Return Nothing + End Try + 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 + If oPage.IsInsert Then + oPage.AddedWhoEdit.EditValue = My.Application.User.UserName + Else + oPage.ChangedWhoEdit.EditValue = My.Application.User.UserName + End If + + 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 @@ -61,15 +198,12 @@ Public Class ClassDetailPages Dim oColumnName As String = oBinding.BindingMemberInfo.BindingField Dim oColumn As DataColumn = oTable.Columns.Item(oColumnName) - Dim oNullable As Boolean = oColumn.AllowDBNull - - If oNullable = False And NotNull(oControl.EditValue.ToString, String.Empty) = String.Empty Then - Throw New NoNullAllowedException() - End If - End If - - Console.WriteLine() - End Sub + 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 @@ -86,22 +220,20 @@ Public Class ClassDetailPages Exit Sub End If - ' Get the TabPage containing the Layout Control - Do_Handle_Focus(oLayoutControl, oControl) - End Sub - - Private Sub Do_Handle_Focus(LayoutControl As LayoutControl, Control As Control) - If TypeOf LayoutControl.Parent Is XtraTabPage Then - Dim oTabPage As XtraTabPage = LayoutControl.Parent + 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 AnyControl_Focus(Control, oData) + RaiseEvent CurrentPage_Changed(Me, oData) + RaiseEvent AnyControl_Focus(oControl, oData) Else CurrentPage = Nothing - RaiseEvent AnyControl_Focus(Control, Nothing) + + RaiseEvent CurrentPage_Changed(Me, Nothing) + RaiseEvent AnyControl_Focus(oControl, Nothing) End If End If End Sub diff --git a/GUIs.ZooFlow/Administration/IAdminForm.vb b/GUIs.ZooFlow/Administration/IAdminForm.vb index 5c6e32a3..e3eca4d6 100644 --- a/GUIs.ZooFlow/Administration/IAdminForm.vb +++ b/GUIs.ZooFlow/Administration/IAdminForm.vb @@ -3,6 +3,5 @@ Property HasChanges As Boolean Property IsInsert As Boolean - Function SaveData() As Boolean Function DeleteData() As Boolean End Interface diff --git a/GUIs.ZooFlow/Administration/frmAdmin_CWProfile.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.Designer.vb similarity index 61% rename from GUIs.ZooFlow/Administration/frmAdmin_CWProfile.Designer.vb rename to GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.Designer.vb index bf811918..ffc2e946 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_CWProfile.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.Designer.vb @@ -1,7 +1,7 @@ Imports DigitalData.GUIs.Common.Base -Partial Class frmAdmin_CWProfile +Partial Class frmAdmin_ClipboardWatcher Inherits BaseRibbonForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -40,6 +40,16 @@ Partial Class frmAdmin_CWProfile 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() @@ -64,6 +74,8 @@ Partial Class frmAdmin_CWProfile 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() @@ -74,6 +86,7 @@ Partial Class frmAdmin_CWProfile 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() @@ -83,13 +96,17 @@ Partial Class frmAdmin_CWProfile 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.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit() 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() @@ -101,19 +118,44 @@ Partial Class frmAdmin_CWProfile 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.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() - Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + 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() @@ -128,6 +170,8 @@ Partial Class frmAdmin_CWProfile 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() @@ -138,6 +182,7 @@ Partial Class frmAdmin_CWProfile 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() @@ -150,13 +195,17 @@ Partial Class frmAdmin_CWProfile 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.ComboBoxEdit1.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() @@ -168,13 +217,37 @@ Partial Class frmAdmin_CWProfile 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() - CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridControl1, 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() ' @@ -189,7 +262,7 @@ Partial Class frmAdmin_CWProfile 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, 132) + Me.RibbonControl1.Size = New System.Drawing.Size(1328, 131) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.Toolbar.ShowCustomizeItem = False ' @@ -249,10 +322,10 @@ Partial Class frmAdmin_CWProfile ' Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError) - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 674) + 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, 24) + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1328, 22) ' 'RibbonPage2 ' @@ -292,86 +365,88 @@ Partial Class frmAdmin_CWProfile 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, 252) + 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(110, 15) + Me.TextEdit1.Location = New System.Drawing.Point(116, 15) Me.TextEdit1.MenuManager = Me.RibbonControl1 Me.TextEdit1.Name = "TextEdit1" - Me.TextEdit1.Size = New System.Drawing.Size(546, 20) + 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(110, 45) + 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(1201, 20) + 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(110, 75) + 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(1201, 20) + 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(110, 139) + 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(546, 20) + 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(761, 139) + 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(550, 20) + 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(110, 169) + 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(546, 20) + 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(761, 169) + 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(550, 20) + Me.txtChangedWhen.Size = New System.Drawing.Size(544, 20) Me.txtChangedWhen.StyleController = Me.LayoutControlProfile Me.txtChangedWhen.TabIndex = 10 ' @@ -382,30 +457,52 @@ Partial Class frmAdmin_CWProfile Me.CheckEdit1.MenuManager = Me.RibbonControl1 Me.CheckEdit1.Name = "CheckEdit1" Me.CheckEdit1.Properties.Caption = "Aktiv" - Me.CheckEdit1.Size = New System.Drawing.Size(645, 20) + 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(110, 105) + 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(1201, 24) + 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.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, 252) + Me.Root.Size = New System.Drawing.Size(1326, 246) Me.Root.TextVisible = False ' 'LayoutControlItem2 @@ -414,9 +511,9 @@ Partial Class frmAdmin_CWProfile 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(1306, 30) - Me.LayoutControlItem2.Text = "Profil" - Me.LayoutControlItem2.TextSize = New System.Drawing.Size(92, 13) + Me.LayoutControlItem2.Size = New System.Drawing.Size(651, 30) + Me.LayoutControlItem2.Text = "Name" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(98, 13) ' 'LayoutControlItem3 ' @@ -426,7 +523,7 @@ Partial Class frmAdmin_CWProfile 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(92, 13) + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(98, 13) ' 'LayoutControlItem4 ' @@ -436,7 +533,7 @@ Partial Class frmAdmin_CWProfile 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(92, 13) + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(98, 13) ' 'LayoutControlItem6 ' @@ -444,9 +541,9 @@ Partial Class frmAdmin_CWProfile 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, 78) + Me.LayoutControlItem6.Size = New System.Drawing.Size(651, 72) Me.LayoutControlItem6.Text = "Geändert Wer" - Me.LayoutControlItem6.TextSize = New System.Drawing.Size(92, 13) + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(98, 13) ' 'LayoutControlItem5 ' @@ -456,7 +553,7 @@ Partial Class frmAdmin_CWProfile 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(92, 13) + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(98, 13) ' 'LayoutControlItem7 ' @@ -464,9 +561,9 @@ Partial Class frmAdmin_CWProfile 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, 78) + Me.LayoutControlItem7.Size = New System.Drawing.Size(655, 72) Me.LayoutControlItem7.Text = "Geändert Wann" - Me.LayoutControlItem7.TextSize = New System.Drawing.Size(92, 13) + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(98, 13) ' 'LayoutControlItem9 ' @@ -476,7 +573,7 @@ Partial Class frmAdmin_CWProfile 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(92, 13) + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(98, 13) ' 'LayoutControlItem8 ' @@ -496,15 +593,25 @@ Partial Class frmAdmin_CWProfile 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(92, 13) + 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, 132) + 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, 542) + Me.XtraTabControl1.Size = New System.Drawing.Size(1328, 545) Me.XtraTabControl1.TabIndex = 5 Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.PageProfile}) ' @@ -515,17 +622,17 @@ Partial Class frmAdmin_CWProfile 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, 506) + 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, 252) + 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, 254) + 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}) ' @@ -536,7 +643,7 @@ Partial Class frmAdmin_CWProfile 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, 226) + Me.PageDocumentSearch.Size = New System.Drawing.Size(1324, 239) Me.PageDocumentSearch.Tag = "TAB_PAGE_DOCSEARCH" Me.PageDocumentSearch.Text = "Dokument-Suche" ' @@ -545,29 +652,31 @@ Partial Class frmAdmin_CWProfile Me.LayoutControlDocSearch.Controls.Add(Me.TextEdit5) Me.LayoutControlDocSearch.Controls.Add(Me.TextEdit6) Me.LayoutControlDocSearch.Controls.Add(Me.CheckEdit2) - Me.LayoutControlDocSearch.Controls.Add(Me.ComboBoxEdit1) 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, 226) + 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(140, 15) + Me.TextEdit5.Location = New System.Drawing.Point(150, 15) Me.TextEdit5.MenuManager = Me.RibbonControl1 Me.TextEdit5.Name = "TextEdit5" - Me.TextEdit5.Size = New System.Drawing.Size(134, 20) + Me.TextEdit5.Properties.ReadOnly = True + Me.TextEdit5.Size = New System.Drawing.Size(124, 20) Me.TextEdit5.StyleController = Me.LayoutControlDocSearch Me.TextEdit5.TabIndex = 4 ' @@ -579,10 +688,10 @@ Partial Class frmAdmin_CWProfile '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(140, 45) + 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(944, 20) + Me.TextEdit6.Size = New System.Drawing.Size(934, 20) Me.TextEdit6.StyleController = Me.LayoutControlDocSearch Me.TextEdit6.TabIndex = 5 ' @@ -593,25 +702,14 @@ Partial Class frmAdmin_CWProfile Me.CheckEdit2.MenuManager = Me.RibbonControl1 Me.CheckEdit2.Name = "CheckEdit2" Me.CheckEdit2.Properties.Caption = "Aktiv" - Me.CheckEdit2.Size = New System.Drawing.Size(396, 20) + Me.CheckEdit2.Size = New System.Drawing.Size(396, 18) Me.CheckEdit2.StyleController = Me.LayoutControlDocSearch Me.CheckEdit2.TabIndex = 6 ' - 'ComboBoxEdit1 - ' - Me.ComboBoxEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "TAB_INDEX", True)) - Me.ComboBoxEdit1.Location = New System.Drawing.Point(409, 15) - Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1 - Me.ComboBoxEdit1.Name = "ComboBoxEdit1" - Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.ComboBoxEdit1.Size = New System.Drawing.Size(269, 20) - Me.ComboBoxEdit1.StyleController = Me.LayoutControlDocSearch - Me.ComboBoxEdit1.TabIndex = 7 - ' '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(140, 75) + 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 @@ -619,14 +717,14 @@ Partial Class frmAdmin_CWProfile 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(944, 24) + 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(140, 109) + 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 @@ -634,57 +732,106 @@ Partial Class frmAdmin_CWProfile 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(944, 24) + 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(140, 143) + 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(403, 20) + 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(140, 173) + 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(403, 20) + 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(678, 143) + 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(406, 20) + 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(678, 173) + 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(406, 20) + 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.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, 226) + Me.LayoutControlGroup1.Size = New System.Drawing.Size(1099, 239) Me.LayoutControlGroup1.TextVisible = False ' 'LayoutControlItem10 @@ -695,7 +842,7 @@ Partial Class frmAdmin_CWProfile 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(122, 13) + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(132, 13) ' 'LayoutControlItem11 ' @@ -705,17 +852,17 @@ Partial Class frmAdmin_CWProfile 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(122, 13) + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(132, 13) ' 'LayoutControlItem13 ' - Me.LayoutControlItem13.Control = Me.ComboBoxEdit1 + 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(122, 13) + Me.LayoutControlItem13.TextSize = New System.Drawing.Size(132, 13) ' 'LayoutControlItem12 ' @@ -735,7 +882,7 @@ Partial Class frmAdmin_CWProfile 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(122, 13) + Me.LayoutControlItem14.TextSize = New System.Drawing.Size(132, 13) ' 'LayoutControlItem15 ' @@ -745,55 +892,65 @@ Partial Class frmAdmin_CWProfile 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(122, 13) + 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, 128) + 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(122, 13) + 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, 158) + 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, 48) + Me.LayoutControlItem17.Size = New System.Drawing.Size(538, 31) Me.LayoutControlItem17.Text = "Geändert Wer" - Me.LayoutControlItem17.TextSize = New System.Drawing.Size(122, 13) + 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, 128) + 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(122, 13) + 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, 158) + 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, 48) + Me.LayoutControlItem19.Size = New System.Drawing.Size(541, 31) Me.LayoutControlItem19.Text = "Geändert Wann" - Me.LayoutControlItem19.TextSize = New System.Drawing.Size(122, 13) + 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 ' @@ -803,7 +960,7 @@ Partial Class frmAdmin_CWProfile Me.GridControl2.MainView = Me.GridViewDocSearch Me.GridControl2.MenuManager = Me.RibbonControl1 Me.GridControl2.Name = "GridControl2" - Me.GridControl2.Size = New System.Drawing.Size(225, 226) + 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}) ' @@ -827,27 +984,307 @@ Partial Class frmAdmin_CWProfile 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, 226) + 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, 226) + 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.Name = "LayoutControlGroup2" - Me.LayoutControlGroup2.Size = New System.Drawing.Size(1099, 226) + 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 @@ -856,15 +1293,10 @@ Partial Class frmAdmin_CWProfile Me.GridControl1.MainView = Me.GridViewDataSearch Me.GridControl1.MenuManager = Me.RibbonControl1 Me.GridControl1.Name = "GridControl1" - Me.GridControl1.Size = New System.Drawing.Size(225, 226) + 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}) ' - 'TBCW_PROF_DATA_SEARCHBindingSource - ' - Me.TBCW_PROF_DATA_SEARCHBindingSource.DataMember = "TBCW_PROF_DATA_SEARCH" - Me.TBCW_PROF_DATA_SEARCHBindingSource.DataSource = Me.DBCW_Stammdaten - ' 'GridViewDataSearch ' Me.GridViewDataSearch.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colTAB_TITLE}) @@ -883,7 +1315,7 @@ Partial Class frmAdmin_CWProfile 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, 226) + Me.PageApplicationAssignment.Size = New System.Drawing.Size(1324, 239) Me.PageApplicationAssignment.Text = "Anwendungs-Zuordnung" ' 'TBCW_PROF_DOC_SEARCHTableAdapter @@ -894,7 +1326,17 @@ Partial Class frmAdmin_CWProfile ' Me.TBCW_PROF_DATA_SEARCHTableAdapter.ClearBeforeFill = True ' - 'frmAdmin_CWProfile + '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 @@ -902,7 +1344,7 @@ Partial Class frmAdmin_CWProfile Me.Controls.Add(Me.XtraTabControl1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) - Me.Name = "frmAdmin_CWProfile" + Me.Name = "frmAdmin_ClipboardWatcher" Me.Ribbon = Me.RibbonControl1 Me.StatusBar = Me.RibbonStatusBar1 Me.Text = "Clipboard Watcher - Profil" @@ -920,6 +1362,8 @@ Partial Class frmAdmin_CWProfile 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() @@ -930,6 +1374,7 @@ Partial Class frmAdmin_CWProfile 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) @@ -942,13 +1387,17 @@ Partial Class frmAdmin_CWProfile 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.ComboBoxEdit1.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() @@ -960,13 +1409,37 @@ Partial Class frmAdmin_CWProfile 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() - CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridControl1, 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() @@ -1018,7 +1491,6 @@ Partial Class frmAdmin_CWProfile Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents TextEdit6 As DevExpress.XtraEditors.TextEdit Friend WithEvents CheckEdit2 As DevExpress.XtraEditors.CheckEdit - Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.ComboBoxEdit Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem13 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem @@ -1047,4 +1519,37 @@ Partial Class frmAdmin_CWProfile 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_CWProfile.resx b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.resx similarity index 83% rename from GUIs.ZooFlow/Administration/frmAdmin_CWProfile.resx rename to GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.resx index a80e47af..6657b310 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_CWProfile.resx +++ b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.resx @@ -129,9 +129,21 @@ 612, 17 + + 295, 56 + 785, 17 + + 557, 56 + + + 1006, 56 + + + 847, 56 + 1336, 17 @@ -141,4 +153,13 @@ 17, 56 + + 1250, 56 + + + 17, 95 + + + 119 + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_CWProfile.vb b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb similarity index 66% rename from GUIs.ZooFlow/Administration/frmAdmin_CWProfile.vb rename to GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb index edb9cdc1..0d1da274 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_CWProfile.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb @@ -1,5 +1,6 @@ Imports System.ComponentModel Imports DevExpress.XtraEditors +Imports DevExpress.XtraEditors.Controls Imports DevExpress.XtraGrid.Views.Grid Imports DevExpress.XtraLayout Imports DevExpress.XtraTab @@ -8,7 +9,7 @@ Imports DigitalData.Controls.SQLEditor Imports DigitalData.GUIs.Common Imports DigitalData.Modules.Logging -Public Class frmAdmin_CWProfile +Public Class frmAdmin_ClipboardWatcher Implements IAdminForm Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey @@ -23,8 +24,34 @@ Public Class frmAdmin_CWProfile 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 ClassDetailPages + 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) MyBase.New(My.LogConfig) @@ -37,6 +64,8 @@ Public Class frmAdmin_CWProfile End Sub Private Sub frmAdmin_CWProfile_Load(sender As Object, e As EventArgs) Handles Me.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DSDD_Stammdaten.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen. + Me.TBDD_CONNECTIONTableAdapter.Fill(Me.DSDD_Stammdaten.TBDD_CONNECTION) Try TBCW_PROFILESTableAdapter.Connection.ConnectionString = My.Database.CurrentSQLConnectionString TBCW_PROFILESTableAdapter.Fill(DBCW_Stammdaten.TBCW_PROFILES, PrimaryKey) @@ -47,6 +76,9 @@ Public Class frmAdmin_CWProfile TBCW_PROF_DATA_SEARCHTableAdapter.Connection.ConnectionString = My.Database.CurrentSQLConnectionString TBCW_PROF_DATA_SEARCHTableAdapter.Fill(DBCW_Stammdaten.TBCW_PROF_DATA_SEARCH, PrimaryKey) + TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = My.Database.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) @@ -57,10 +89,17 @@ Public Class frmAdmin_CWProfile ' Add Focus Handler to all controls in all LayoutControls Dim oLayoutControls = New List(Of LayoutControl) From {LayoutControlProfile, LayoutControlDocSearch, LayoutControlDataSearch} - Pages = New ClassDetailPages(oLayoutControls) + 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 ClassDetailPages(My.LogConfig, Me, oLayoutControls) Pages.AddRange({ - New ClassDetailPages.DetailPage With { - .IsPrimary = True, + New ClassDetailPages.PrimaryPage(IsInsert) With { .Name = "Profil", .TabPage = PageProfile, .BindingSource = TBCW_PROFILESBindingSource, @@ -80,18 +119,19 @@ Public Class frmAdmin_CWProfile .Name = "Daten-Suche", .TabPage = PageDataSearch, .BindingSource = TBCW_PROF_DATA_SEARCHBindingSource, - .DataTable = DBCW_Stammdaten.TBCW_PROF_DATA_SEARCH + .DataTable = DBCW_Stammdaten.TBCW_PROF_DATA_SEARCH, + .AddedWhoEdit = txtAddedWho11, + .ChangedWhoEdit = txtChangedWho11 } }) - AddHandler Pages.AnyControl_Focus, AddressOf AnyControl_Focus - AddHandler Pages.AnyControl_Changed, AddressOf AnyControl_Changed + AddHandler Pages.CurrentPage_Changed, AddressOf CurrentPage_Changed Catch ex As Exception ShowErrorMessage(ex) End Try End Sub - Private Sub AnyControl_Focus(sender As Object, e As ClassDetailPages.DetailPageEventArgs) + Private Sub CurrentPage_Changed(sender As Object, e As ClassDetailPages.DetailPageEventArgs) If Not IsNothing(e.Page) Then If e.Page.IsPrimary = True Then BarButtonNew.Enabled = False @@ -103,10 +143,6 @@ Public Class frmAdmin_CWProfile End If End Sub - Private Sub AnyControl_Changed(sender As Object, e As ClassDetailPages.DetailPageEventArgs) - - End Sub - Private Sub ResetMessages() labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never End Sub @@ -116,53 +152,26 @@ Public Class frmAdmin_CWProfile labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always End Sub - - - Public Function SaveData() As Boolean Implements IAdminForm.SaveData - If Pages.CurrentPage Is Nothing Then - Return False - End If - - Dim oPage = Pages.CurrentPage - - Try - oPage.BindingSource.EndEdit() - - If oPage.DataTable.GetChanges() IsNot Nothing Then - HasChanges = True - - If IsInsert Then - oPage.AddedWhoEdit.EditValue = My.Application.User.UserName - Else - oPage.ChangedWhoEdit.EditValue = My.Application.User.UserName - End If - - oPage.BindingSource.EndEdit() - Return True - Else - HasChanges = False - End If - - Return False - Catch ex As Exception - ShowErrorMessage(ex) - Return False - End Try - End Function - Private Sub BarButtonSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonSave.ItemClick ResetMessages() - If SaveData() And HasChanges Then - Select Case Pages.CurrentPage.TabPage.Name + If Pages.PrepareSave() = True Then + Dim oPage = Pages.Current + + Select Case oPage.TabPage.Name Case PageProfile.Name - TBCW_PROFILESTableAdapter.Update(Pages.CurrentPage.DataTable) + TBCW_PROFILESTableAdapter.Update(oPage.DataTable) Case PageDocumentSearch.Name - TBCW_PROF_DOC_SEARCHTableAdapter.Update(Pages.CurrentPage.DataTable) + TBCW_PROF_DOC_SEARCHTableAdapter.Update(oPage.DataTable) + + Case PageDataSearch.Name + TBCW_PROF_DATA_SEARCHTableAdapter.Update(oPage.DataTable) End Select - ShowStatus($"{Pages.CurrentPage.Name} gespeichert!") + oPage.IsInsert = False + + ShowStatus($"{oPage.Name} gespeichert!") End If End Sub @@ -171,13 +180,16 @@ Public Class frmAdmin_CWProfile End Function Public Function AddData() As Boolean - If Pages.CurrentPage Is Nothing Then + Dim oPage = Pages.Current + + If Pages.Current Is Nothing Then Return False End If - Dim oPage = Pages.CurrentPage + If oPage.IsPrimary = False Then + oPage.DataTable.Columns.Item("PROFILE_ID").DefaultValue = PrimaryKey + End If - oPage.DataTable.Columns.Item("PROFILE_ID").DefaultValue = PrimaryKey Dim oNewRecord As DataRowView = oPage.BindingSource.AddNew() Return True @@ -223,6 +235,16 @@ Public Class frmAdmin_CWProfile 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_Start.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb index 20bfba87..f48830c4 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb @@ -193,7 +193,6 @@ Public Class frmAdmin_Start End If End Sub - Private Sub GridView1_RowClick(sender As Object, e As RowClickEventArgs) Handles GridView1.RowClick Try If e.Clicks = 2 And e.Button = MouseButtons.Left Then diff --git a/GUIs.ZooFlow/DBCW_Stammdaten.Designer.vb b/GUIs.ZooFlow/DBCW_Stammdaten.Designer.vb index 350e5fc8..0e36e85a 100644 --- a/GUIs.ZooFlow/DBCW_Stammdaten.Designer.vb +++ b/GUIs.ZooFlow/DBCW_Stammdaten.Designer.vb @@ -31,6 +31,10 @@ Partial Public Class DBCW_Stammdaten 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 @@ -73,6 +77,12 @@ Partial Public Class DBCW_Stammdaten 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 @@ -120,6 +130,26 @@ Partial Public Class DBCW_Stammdaten 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 + _ + 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) @@ -355,6 +419,12 @@ Partial Public Class DBCW_Stammdaten _ 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. ''' @@ -610,10 +680,10 @@ Partial Public Class DBCW_Stammdaten Me.columnGUID.Unique = true Me.columnNAME.AllowDBNull = false Me.columnNAME.MaxLength = 100 + Me.columnCOMMENT.AllowDBNull = false 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 @@ -1037,9 +1107,9 @@ Partial Public Class DBCW_Stammdaten Me.columnACTIVE.AllowDBNull = false Me.columnTAB_TITLE.AllowDBNull = false Me.columnTAB_TITLE.MaxLength = 100 - Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnCOUNT_COMMAND.AllowDBNull = false Me.columnCOUNT_COMMAND.MaxLength = 2147483647 End Sub @@ -1460,7 +1530,6 @@ Partial Public Class DBCW_Stammdaten Me.columnACTIVE.AllowDBNull = false Me.columnTAB_TITLE.AllowDBNull = false Me.columnTAB_TITLE.MaxLength = 100 - Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnCOUNT_COMMAND.AllowDBNull = false @@ -1594,6 +1663,536 @@ Partial Public Class DBCW_Stammdaten 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 + + _ + Public Default 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 + + _ + Public Default 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. ''' @@ -1635,11 +2234,7 @@ Partial Public Class DBCW_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 + Return CType(Me(Me.tableTBCW_PROFILES.COMMENTColumn),String) End Get Set Me(Me.tableTBCW_PROFILES.COMMENTColumn) = value @@ -1661,7 +2256,11 @@ Partial Public Class DBCW_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn),String) + 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 @@ -1737,14 +2336,14 @@ Partial Public Class DBCW_Stammdaten _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROFILES.COMMENTColumn) + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROFILES.ADDED_WHOColumn) End Function _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBCW_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull + Public Sub SetADDED_WHONull() + Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn),String) + 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 @@ -1956,11 +2559,7 @@ Partial Public Class DBCW_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COUNT_COMMAND() As String Get - Try - Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COUNT_COMMAND in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn),String) End Get Set Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) = value @@ -1978,6 +2577,18 @@ Partial Public Class DBCW_Stammdaten 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 @@ -2013,18 +2624,6 @@ Partial Public Class DBCW_Stammdaten Public Sub SetCHANGED_WHENNull() Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ - Public Function IsCOUNT_COMMANDNull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) - End Function - - _ - Public Sub SetCOUNT_COMMANDNull() - Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) = Global.System.Convert.DBNull - End Sub End Class ''' @@ -2123,7 +2722,11 @@ Partial Public Class DBCW_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn),String) + 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 @@ -2197,6 +2800,18 @@ Partial Public Class DBCW_Stammdaten 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 @@ -2234,6 +2849,146 @@ Partial Public Class DBCW_Stammdaten 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 ''' @@ -2341,6 +3096,78 @@ Partial Public Class DBCW_Stammdaten 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 @@ -2655,8 +3482,7 @@ Namespace DBCW_StammdatenTableAdapters 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 + Throw New Global.System.ArgumentNullException("Original_COMMENT") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_COMMENT,String) @@ -2667,7 +3493,7 @@ Namespace DBCW_StammdatenTableAdapters 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") + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) End If @@ -2720,7 +3546,7 @@ Namespace DBCW_StammdatenTableAdapters 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 + Throw New Global.System.ArgumentNullException("COMMENT") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) End If @@ -2730,7 +3556,7 @@ Namespace DBCW_StammdatenTableAdapters 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") + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If @@ -2797,7 +3623,7 @@ Namespace DBCW_StammdatenTableAdapters 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 + Throw New Global.System.ArgumentNullException("COMMENT") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT,String) End If @@ -2807,7 +3633,7 @@ Namespace DBCW_StammdatenTableAdapters 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") + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If @@ -2835,8 +3661,7 @@ Namespace DBCW_StammdatenTableAdapters 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 + Throw New Global.System.ArgumentNullException("Original_COMMENT") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_COMMENT,String) @@ -2847,7 +3672,7 @@ Namespace DBCW_StammdatenTableAdapters 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") + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ADDED_WHO,String) End If @@ -3236,7 +4061,7 @@ Namespace DBCW_StammdatenTableAdapters Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_TAB_TITLE,String) End If If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHO,String) End If @@ -3296,7 +4121,7 @@ Namespace DBCW_StammdatenTableAdapters Me.Adapter.InsertCommand.Parameters(5).Value = CType(TAB_TITLE,String) End If If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If @@ -3316,7 +4141,7 @@ Namespace DBCW_StammdatenTableAdapters Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (COUNT_COMMAND Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("COUNT_COMMAND") Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(COUNT_COMMAND,String) End If @@ -3377,7 +4202,7 @@ Namespace DBCW_StammdatenTableAdapters Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TAB_TITLE,String) End If If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If @@ -3397,7 +4222,7 @@ Namespace DBCW_StammdatenTableAdapters Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (COUNT_COMMAND Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("COUNT_COMMAND") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(COUNT_COMMAND,String) End If @@ -3412,7 +4237,7 @@ Namespace DBCW_StammdatenTableAdapters Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_TAB_TITLE,String) End If If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHO,String) End If @@ -3802,7 +4627,7 @@ Namespace DBCW_StammdatenTableAdapters Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_TAB_TITLE,String) End If If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHO,String) End If @@ -3862,7 +4687,7 @@ Namespace DBCW_StammdatenTableAdapters Me.Adapter.InsertCommand.Parameters(5).Value = CType(TAB_TITLE,String) End If If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If @@ -3943,7 +4768,7 @@ Namespace DBCW_StammdatenTableAdapters Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TAB_TITLE,String) End If If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If @@ -3978,7 +4803,7 @@ Namespace DBCW_StammdatenTableAdapters Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_TAB_TITLE,String) End If If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHO,String) End If diff --git a/GUIs.ZooFlow/DBCW_Stammdaten.xsd b/GUIs.ZooFlow/DBCW_Stammdaten.xsd index 082e8626..c535b429 100644 --- a/GUIs.ZooFlow/DBCW_Stammdaten.xsd +++ b/GUIs.ZooFlow/DBCW_Stammdaten.xsd @@ -16,10 +16,10 @@ - - + + - + @@ -37,9 +37,9 @@ SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES WHERE (GUID = SCOPE_IDENTITY()) - + - + @@ -62,9 +62,9 @@ SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES WHERE (GUID = @GUID) - + - + @@ -72,10 +72,10 @@ SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO - - + + - + @@ -117,7 +117,7 @@ SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO - + @@ -138,11 +138,11 @@ SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADD - + - + @@ -166,18 +166,18 @@ SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADD - + - + - + @@ -219,7 +219,7 @@ SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADD - + @@ -240,7 +240,7 @@ SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADD - + @@ -269,7 +269,7 @@ SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADD - + @@ -280,7 +280,7 @@ SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADD - + @@ -317,7 +317,7 @@ SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADD - + @@ -328,7 +328,7 @@ SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADD - + @@ -342,7 +342,7 @@ SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADD - + @@ -363,7 +363,7 @@ SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADD - + @@ -385,55 +385,7 @@ SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADD - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + @@ -459,6 +411,70 @@ SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADD + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -476,8 +492,8 @@ SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADD - - + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DBCW_Stammdaten.xss b/GUIs.ZooFlow/DBCW_Stammdaten.xss index bc0a1bec..bf55cef0 100644 --- a/GUIs.ZooFlow/DBCW_Stammdaten.xss +++ b/GUIs.ZooFlow/DBCW_Stammdaten.xss @@ -6,32 +6,34 @@ --> - - - + + + + + - + 285 - 79 + 78 - 664 - 79 + 429 + 78 - + 285 - 262 + 107 - 673 - 262 + 828 + 107 diff --git a/GUIs.ZooFlow/DSDD_Stammdaten.Designer.vb b/GUIs.ZooFlow/DSDD_Stammdaten.Designer.vb new file mode 100644 index 00000000..b6cab462 --- /dev/null +++ b/GUIs.ZooFlow/DSDD_Stammdaten.Designer.vb @@ -0,0 +1,1835 @@ +'------------------------------------------------------------------------------ +' +' 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 _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 + 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 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 + 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 + 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) + End Sub + + _ + Private Function ShouldSerializeTBDD_CONNECTION() 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) + + ''' + '''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 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 + + ''' + '''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 +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_ECM_TESTConnectionString + 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 + + ''' + '''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 _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 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 + 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 + 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 + 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 + 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_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 + 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 + ' + '---- 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 (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 00000000..05b01991 --- /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 00000000..08eba233 --- /dev/null +++ b/GUIs.ZooFlow/DSDD_Stammdaten.xsd @@ -0,0 +1,207 @@ + + + + + + + + + + + + + + + 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) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ 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 00000000..4a0db595 --- /dev/null +++ b/GUIs.ZooFlow/DSDD_Stammdaten.xss @@ -0,0 +1,12 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/ZooFlow.vbproj b/GUIs.ZooFlow/ZooFlow.vbproj index d5a38f4e..86862a80 100644 --- a/GUIs.ZooFlow/ZooFlow.vbproj +++ b/GUIs.ZooFlow/ZooFlow.vbproj @@ -115,10 +115,10 @@ - - frmAdmin_CWProfile.vb + + frmAdmin_ClipboardWatcher.vb - + Form @@ -162,6 +162,11 @@ DBCW_Stammdaten.xsd + + True + True + DSDD_Stammdaten.xsd + DSIDB_Stammdaten.xsd @@ -306,8 +311,8 @@ - - frmAdmin_CWProfile.vb + + frmAdmin_ClipboardWatcher.vb frmAdmin_IDBAttribute.vb @@ -382,6 +387,17 @@ DBCW_Stammdaten.xsd + + DSDD_Stammdaten.xsd + + + Designer + MSDataSetGenerator + DSDD_Stammdaten.Designer.vb + + + DSDD_Stammdaten.xsd + MyDataset.xsd