From 25a1386bc6e228d93d1e1b71835d8ca88c21272e Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Wed, 11 May 2022 16:37:52 +0200 Subject: [PATCH] Common/SQLEditor: Fix bugs, switch to dictionary --- GUIs.Common/Common.vbproj | 3 ++ GUIs.Common/DocumentResultList/Layout.vb | 9 ++++ GUIs.Common/My Project/Resources.Designer.vb | 10 ++++ GUIs.Common/My Project/Resources.resx | 47 +++++++++--------- GUIs.Common/Resources/selectdatamember.svg | 9 ++++ GUIs.Common/SQLEditor/Placeholder.vb | 4 +- GUIs.Common/SQLEditor/Placeholders.vb | 8 ++-- GUIs.Common/frmDocumentResultList.vb | 48 ++++++++++--------- GUIs.Common/frmSQLEditor.Designer.vb | 7 ++- GUIs.Common/frmSQLEditor.vb | 20 +++++--- GUIs.Test.TestGUI/frmStart.vb | 2 +- .../Administration/Globix/frmAdmin_Globix.vb | 20 ++++---- 12 files changed, 115 insertions(+), 72 deletions(-) create mode 100644 GUIs.Common/Resources/selectdatamember.svg diff --git a/GUIs.Common/Common.vbproj b/GUIs.Common/Common.vbproj index 10848d63..b194a6de 100644 --- a/GUIs.Common/Common.vbproj +++ b/GUIs.Common/Common.vbproj @@ -536,5 +536,8 @@ + + + \ No newline at end of file diff --git a/GUIs.Common/DocumentResultList/Layout.vb b/GUIs.Common/DocumentResultList/Layout.vb index 86adb47f..0919fdf3 100644 --- a/GUIs.Common/DocumentResultList/Layout.vb +++ b/GUIs.Common/DocumentResultList/Layout.vb @@ -138,6 +138,15 @@ Namespace DocumentResultList End Sub #End Region +#Region "Resetting Layout" + Public Sub DockManager_ResetLayout(pDockManager As DockManager) + Dim oFile = GetDockmanager_LayoutName() + If IO.File.Exists(oFile) Then + IO.File.Delete(oFile) + End If + End Sub +#End Region + Public Sub SetGroupPanelVisible(pVisible As Boolean) For Each oView In GridViews oView.OptionsView.ShowGroupPanel = pVisible diff --git a/GUIs.Common/My Project/Resources.Designer.vb b/GUIs.Common/My Project/Resources.Designer.vb index 2c7311b0..4d4b2c7c 100644 --- a/GUIs.Common/My Project/Resources.Designer.vb +++ b/GUIs.Common/My Project/Resources.Designer.vb @@ -470,6 +470,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property selectdatamember() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("selectdatamember", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' diff --git a/GUIs.Common/My Project/Resources.resx b/GUIs.Common/My Project/Resources.resx index fcc7bf09..2c33fd80 100644 --- a/GUIs.Common/My Project/Resources.resx +++ b/GUIs.Common/My Project/Resources.resx @@ -121,9 +121,6 @@ ..\Resources\bo_transition.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\groupheader.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - ..\Resources\security_unlock.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -151,9 +148,6 @@ ..\Resources\save2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - ..\Resources\grid.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -163,6 +157,9 @@ ..\Resources\jpg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\autoarrange1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -175,6 +172,9 @@ ..\Resources\copy.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\zoom_more.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\togglefieldcodes1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -190,8 +190,8 @@ ..\Resources\title.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\_page.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\clearpivottable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\singlepageview1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -202,23 +202,26 @@ ..\Resources\Open_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\groupheader.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bo_contract1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\clearall1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\clearpivottable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\_page.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\categorize.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\bo_contract1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\open.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\actions_database3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\columnheaders.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -229,8 +232,8 @@ ..\Resources\actions_user1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\dwg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -256,8 +259,8 @@ ..\Resources\handtool1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\zoom_more.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\open.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -271,7 +274,7 @@ ..\Resources\_blank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\actions_database3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\selectdatamember.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file diff --git a/GUIs.Common/Resources/selectdatamember.svg b/GUIs.Common/Resources/selectdatamember.svg new file mode 100644 index 00000000..126ea856 --- /dev/null +++ b/GUIs.Common/Resources/selectdatamember.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.Common/SQLEditor/Placeholder.vb b/GUIs.Common/SQLEditor/Placeholder.vb index f7776493..17ee398f 100644 --- a/GUIs.Common/SQLEditor/Placeholder.vb +++ b/GUIs.Common/SQLEditor/Placeholder.vb @@ -31,11 +31,11 @@ Namespace SQLEditor FileFlow End Enum - Public Sub New(pTitle As String, pDescription As String, pModule As String, pName As String) + Public Sub New(pTitle As String, pDescription As String, pModule As String, pValue As String) Title = pTitle Description = pDescription - Name = pName + Name = pValue [Module] = pModule End Sub diff --git a/GUIs.Common/SQLEditor/Placeholders.vb b/GUIs.Common/SQLEditor/Placeholders.vb index 273b0be9..70630ec4 100644 --- a/GUIs.Common/SQLEditor/Placeholders.vb +++ b/GUIs.Common/SQLEditor/Placeholders.vb @@ -52,7 +52,7 @@ Namespace SQLEditor Return oGroup1 End Function - Public Function GetManualPlaceholders(pPlaceholders As List(Of String), pPrefix As String) As GalleryItemGroup + Public Function GetManualPlaceholders(pPlaceholders As Dictionary(Of String, String), pPrefix As String) As GalleryItemGroup Dim oImage As SvgImage = My.Resources.handtool Dim oItems As New List(Of GalleryItem)() Dim oPrefix As String = pPrefix @@ -63,7 +63,7 @@ Namespace SQLEditor If pPlaceholders.Count > 0 Then For Each oManualPlaceholder In pPlaceholders - Dim oPlaceholder = New Placeholder(oManualPlaceholder, "Manuelles Attribut", oPrefix, oManualPlaceholder) + Dim oPlaceholder = New Placeholder(oManualPlaceholder.Key, "Manuelles Attribut", oPrefix, oManualPlaceholder.Value) oItems.Add(GetGalleryItem(oPlaceholder, oImage)) Next Else Return Nothing @@ -74,7 +74,7 @@ Namespace SQLEditor Return oGroup1 End Function - Public Function GetAutomaticPlaceholders(pPlaceholders As List(Of String), pPrefix As String) As GalleryItemGroup + Public Function GetAutomaticPlaceholders(pPlaceholders As Dictionary(Of String, String), pPrefix As String) As GalleryItemGroup Dim oImage As SvgImage = My.Resources.autoarrange Dim oItems As New List(Of GalleryItem)() Dim oPrefix As String = pPrefix @@ -85,7 +85,7 @@ Namespace SQLEditor If pPlaceholders.Count > 0 Then For Each oManualPlaceholder In pPlaceholders - Dim oPlaceholder = New Placeholder(oManualPlaceholder, "Automatisches Attribut", oPrefix, oManualPlaceholder) + Dim oPlaceholder = New Placeholder(oManualPlaceholder.Key, "Automatisches Attribut", oPrefix, oManualPlaceholder.Value) oItems.Add(GetGalleryItem(oPlaceholder, oImage)) Next diff --git a/GUIs.Common/frmDocumentResultList.vb b/GUIs.Common/frmDocumentResultList.vb index a47735c9..fd15f654 100644 --- a/GUIs.Common/frmDocumentResultList.vb +++ b/GUIs.Common/frmDocumentResultList.vb @@ -854,19 +854,7 @@ Public Class frmDocumentResultList End Try End Sub - Private Sub BarButtonResetLayout_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonResetGridLayout.ItemClick - If Not IsNothing(_ActiveGrid) Then - Try - Dim oFile = LayoutManager.GetGrid_LayoutName(_ActiveGrid.MainView) - If IO.File.Exists(oFile) Then - IO.File.Delete(oFile) - End If - LoadGridDataAndLayout() - Catch ex As Exception - Logger.Error(ex) - End Try - End If - End Sub + Private Function TestFileExists(pTitle As String) As Boolean If _CurrentDocument Is Nothing Then @@ -1025,6 +1013,29 @@ Public Class frmDocumentResultList End Sub #End Region #Region "Layout" + + Private Sub BarButtonResetLayout_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonResetGridLayout.ItemClick + If Not IsNothing(_ActiveGrid) Then + Try + Dim oFile = LayoutManager.GetGrid_LayoutName(_ActiveGrid.MainView) + If IO.File.Exists(oFile) Then + IO.File.Delete(oFile) + End If + LoadGridDataAndLayout() + Catch ex As Exception + Logger.Error(ex) + End Try + End If + End Sub + + Private Sub BarButtonItem6_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonResetWindowLayout.ItemClick + Try + LayoutManager.DockManager_ResetLayout(DockManager1) + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub + Private Sub SplitContainerControl1_SplitterPositionChanged(sender As Object, e As EventArgs) Handles SplitContainerControl1.SplitterPositionChanged If IsLoading = False Then Config1.Config.SplitContainer1Distance = SplitContainerControl1.SplitterPosition @@ -1057,16 +1068,7 @@ Public Class frmDocumentResultList RaiseEvent NeedsRefresh(Me, Params.ProfileGuid) End Sub - Private Sub BarButtonItem6_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonResetWindowLayout.ItemClick - Try - Dim oFile = LayoutManager.GetDockmanager_LayoutName() - If File.Exists(oFile) Then - File.Delete(oFile) - End If - Catch ex As Exception - Logger.Error(ex) - End Try - End Sub + Private Sub chkGridShowGrouping_CheckedChanged(sender As Object, e As ItemClickEventArgs) Handles chkGridShowGrouping.CheckedChanged diff --git a/GUIs.Common/frmSQLEditor.Designer.vb b/GUIs.Common/frmSQLEditor.Designer.vb index ed02e030..56858458 100644 --- a/GUIs.Common/frmSQLEditor.Designer.vb +++ b/GUIs.Common/frmSQLEditor.Designer.vb @@ -70,8 +70,10 @@ Partial Class frmSQLEditor Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowToolbarCustomizeItem = False Me.RibbonControl1.Size = New System.Drawing.Size(1056, 158) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False ' 'GalleryPlaceholders ' @@ -119,7 +121,7 @@ Partial Class frmSQLEditor Me.GalleryConnection.Gallery.CheckDrawMode = DevExpress.XtraBars.Ribbon.Gallery.CheckDrawMode.ImageAndText Me.GalleryConnection.Gallery.ColumnCount = 4 Me.GalleryConnection.Gallery.ItemCheckMode = DevExpress.XtraBars.Ribbon.Gallery.ItemCheckMode.SingleRadio - Me.GalleryConnection.Gallery.RowCount = 1 + Me.GalleryConnection.Gallery.RowCount = 2 Me.GalleryConnection.Gallery.ShowItemText = True Me.GalleryConnection.Id = 5 Me.GalleryConnection.Name = "GalleryConnection" @@ -183,7 +185,7 @@ Partial Class frmSQLEditor ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroup1}) Me.RibbonPage1.Name = "RibbonPage1" - Me.RibbonPage1.Text = "RibbonPage1" + Me.RibbonPage1.Text = "Start" ' 'RibbonPageGroup3 ' @@ -286,6 +288,7 @@ Partial Class frmSQLEditor Me.Controls.Add(Me.SplitContainerControl1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.selectdatamember Me.KeyPreview = True Me.Name = "frmSQLEditor" Me.Ribbon = Me.RibbonControl1 diff --git a/GUIs.Common/frmSQLEditor.vb b/GUIs.Common/frmSQLEditor.vb index 9a04117b..859c1703 100644 --- a/GUIs.Common/frmSQLEditor.vb +++ b/GUIs.Common/frmSQLEditor.vb @@ -1,4 +1,5 @@ -Imports System.Windows.Forms +Imports System.ComponentModel +Imports System.Windows.Forms Imports DevExpress.XtraBars.Ribbon Imports DevExpress.XtraRichEdit.Services Imports DigitalData.Modules.Database @@ -14,15 +15,16 @@ Public Class frmSQLEditor Private ClearPlaceholdersAfterSuccessfulExecute As Boolean = False Private FormLoading As Boolean = False + Private FormResult As DialogResult = DialogResult.Cancel Public Property SQLCommand As String = "" Public Property SQLConnection As Integer = 0 Public Property LoadClipboardPlaceholders As Boolean = False - Public Property PlaceholdersManual As List(Of String) + Public Property PlaceholdersManual As Dictionary(Of String, String) Public Property PlaceholdersManualPrefix As String - Public Property PlaceholdersAutomatic As List(Of String) + Public Property PlaceholdersAutomatic As Dictionary(Of String, String) Public Property PlaceholdersAutomaticPrefix As String Public Property PlaceholdersWindream As List(Of String) @@ -42,11 +44,11 @@ Public Class frmSQLEditor FormLoading = True Try If PlaceholdersAutomatic Is Nothing Then - PlaceholdersAutomatic = New List(Of String) + PlaceholdersAutomatic = New Dictionary(Of String, String) End If If PlaceholdersManual Is Nothing Then - PlaceholdersManual = New List(Of String) + PlaceholdersManual = New Dictionary(Of String, String) End If If PlaceholdersWindream Is Nothing Then @@ -126,7 +128,7 @@ Public Class frmSQLEditor Private Function LoadConnections() As GalleryItemGroup Try - Dim oSql = "SELECT GUID, Bezeichnung FROM [DD_ECM].[dbo].[TBDD_CONNECTION] WHERE AKTIV = 1" + Dim oSql = "SELECT GUID, Bezeichnung FROM TBDD_CONNECTION WHERE AKTIV = 1" Dim oTable = Database.GetDatatable(oSql) Dim oConnections = New List(Of Connection) @@ -263,6 +265,7 @@ Public Class frmSQLEditor Private Sub btnSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnSave.ItemClick SQLCommand = txtSQLCommand.Text + FormResult = DialogResult.OK Close() End Sub @@ -271,4 +274,9 @@ Public Class frmSQLEditor ExecuteSQL() End If End Sub + + Private Sub frmSQLEditor_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing + DialogResult = FormResult + + End Sub End Class diff --git a/GUIs.Test.TestGUI/frmStart.vb b/GUIs.Test.TestGUI/frmStart.vb index 2ea50988..78ca09a3 100644 --- a/GUIs.Test.TestGUI/frmStart.vb +++ b/GUIs.Test.TestGUI/frmStart.vb @@ -49,7 +49,7 @@ Public Class frmStart Dim oForm As New frmSQLEditor(LogConfig, Database) With { .SQLCommand = "SELECT * FROM TBDD_USER WHERE EMAIL = '{#USER#EMAIL}'", .SQLConnection = 1, - .PlaceholdersAutomatic = New List(Of String) From {"test1", "test2"}, + .PlaceholdersAutomatic = New Dictionary(Of String, String) From {{"Testindex 1", "test 1"}, {"Testindex 2", "test 2"}}, .PlaceholdersAutomaticPrefix = "MAN", .PlaceholdersWindream = New List(Of String) From {"String Index 1", "String Index 2"} } diff --git a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb index 2dea8116..cdc2bd0a 100644 --- a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb +++ b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb @@ -10,8 +10,8 @@ Public Class frmAdmin_Globix Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey Public Property GlobixHelper As ClassGIDatatables - Private AttributesManual As List(Of String) - Private AttributesAutomatic As List(Of String) + Private AttributesManual As new Dictionary(Of String, String) + Private AttributesAutomatic As New Dictionary(Of String, String) Private Pages As ClassDetailPageManager Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False) @@ -120,10 +120,9 @@ Public Class frmAdmin_Globix TBDD_INDEX_MANTableAdapter.Fill(GlobixDataset.TBDD_INDEX_MAN, PrimaryKey) - AttributesManual = GlobixDataset.TBDD_INDEX_MAN. - Cast(Of DataRow). - Select(Of String)(Function(row) row.Item("NAME")). - ToList() + AttributesManual = GlobixDataset.TBDD_INDEX_MAN.Cast(Of DataRow). + ToDictionary(Of String, String)(Function(row) row.Item("NAME"), Function(row) row.Item("WD_INDEX")) + Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load IndexeManuell: ") @@ -138,10 +137,8 @@ Public Class frmAdmin_Globix TBDD_INDEX_AUTOMTableAdapter.Fill(GlobixDataset.TBDD_INDEX_AUTOM, PrimaryKey) - AttributesAutomatic = GlobixDataset.TBDD_INDEX_AUTOM. - Cast(Of DataRow). - Select(Of String)(Function(row) row.Item("NAME")). - ToList() + AttributesAutomatic = GlobixDataset.TBDD_INDEX_AUTOM.Cast(Of DataRow). + ToDictionary(Of String, String)(Function(row) row.Item("NAME"), Function(row) row.Item("WD_INDEX")) Catch ex As Exception MessageBox.Show(ex.Message) @@ -354,8 +351,7 @@ Public Class frmAdmin_Globix Dim oForm2 As New frmSQLEditor(My.LogConfig, My.DatabaseECM) With { .SQLCommand = SQL_RESULTTextBox.Text, .SQLConnection = CONNECTION_IDTextBox.Text, - .PlaceholdersManual = AttributesManual, - .LoadClipboardPlaceholders = True + .PlaceholdersManual = AttributesManual } oForm2.ShowDialog()