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

DigitalData.GUIs.Globix added

Browse Source
This commit is contained in:
Jonathan Jenne 2021-03-18 13:19:47 +01:00
parent 25e56fe80f
commit d1efc91b45
8 changed files with 999 additions and 967 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
Global_Indexer/App.config
View File

@ -1,13 +1,54 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<configuration> <configuration>
<configSections> <configSections>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System">
<section name="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
</sectionGroup>
</configSections> </configSections>
<applicationSettings>
<DevExpress.LookAndFeel.Design.AppSettings>
<setting name="DefaultAppSkin" serializeAs="String">
<value>Skin/Office 2019 Colorful</value>
</setting>
<setting name="DefaultPalette" serializeAs="String">
<value>Fire Brick</value>
</setting>
<setting name="TouchUI" serializeAs="String">
<value></value>
</setting>
<setting name="CompactUI" serializeAs="String">
<value></value>
</setting>
<setting name="TouchScaleFactor" serializeAs="String">
<value></value>
</setting>
<setting name="DirectX" serializeAs="String">
<value></value>
</setting>
<setting name="RegisterUserSkins" serializeAs="String">
<value></value>
</setting>
<setting name="RegisterBonusSkins" serializeAs="String">
<value></value>
</setting>
<setting name="FontBehavior" serializeAs="String">
<value></value>
</setting>
<setting name="DefaultAppFont" serializeAs="String">
<value></value>
</setting>
<setting name="DPIAwarenessMode" serializeAs="String">
<value></value>
</setting>
<setting name="CustomPaletteCollection" serializeAs="Xml">
<value />
</setting>
</DevExpress.LookAndFeel.Design.AppSettings>
</applicationSettings>
<connectionStrings> <connectionStrings>
<add name="Global_Indexer.My.MySettings.DD_ECMConnectionString" <add name="Global_Indexer.My.MySettings.DD_ECMConnectionString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient" />
connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" />
</connectionStrings> </connectionStrings>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
</startup> </startup>
</configuration> </configuration>

8
Global_Indexer/ClassControls.vb
View File

@ -75,7 +75,7 @@ Public Class ClassControls
.IndexType = DataType .IndexType = DataType
} }
} }
oControl.Properties.AppearanceFocused.BackColor = Color.Lime oControl.Properties.AppearanceFocused.BackColor = Color.FromArgb(255, 214, 49)
If Not String.IsNullOrEmpty(Vorgabe) Then If Not String.IsNullOrEmpty(Vorgabe) Then
Dim oDefaultValues As New List(Of String) Dim oDefaultValues As New List(Of String)
@ -157,7 +157,7 @@ Public Class ClassControls
Public Sub OncmbGotFocus(sender As System.Object, e As System.EventArgs) Public Sub OncmbGotFocus(sender As System.Object, e As System.EventArgs)
Dim cmb As ComboBox = sender Dim cmb As ComboBox = sender
cmb.BackColor = Color.Lime cmb.BackColor = Color.FromArgb(255, 214, 49)
End Sub End Sub
Public Sub OncmbLostFocus(sender As System.Object, e As System.EventArgs) Public Sub OncmbLostFocus(sender As System.Object, e As System.EventArgs)
@ -333,7 +333,7 @@ Public Class ClassControls
Public Sub OnTextBoxFocus(sender As System.Object, e As System.EventArgs) Public Sub OnTextBoxFocus(sender As System.Object, e As System.EventArgs)
Dim oTextbox As DevExpress.XtraEditors.TextEdit = sender Dim oTextbox As DevExpress.XtraEditors.TextEdit = sender
oTextbox.BackColor = Color.Lime oTextbox.BackColor = Color.FromArgb(255, 214, 49)
oTextbox.SelectAll() oTextbox.SelectAll()
End Sub End Sub
@ -383,7 +383,7 @@ Public Class ClassControls
oPicker.EditValue = Vorgabe oPicker.EditValue = Vorgabe
End If End If
oPicker.Properties.AppearanceFocused.BackColor = Color.Lime oPicker.Properties.AppearanceFocused.BackColor = Color.FromArgb(255, 214, 49)
Return oPicker Return oPicker
End Function End Function

3
Global_Indexer/Global_Indexer.vbproj
View File

@ -157,6 +157,9 @@
<Reference Include="DigitalData.Controls.LookupGrid"> <Reference Include="DigitalData.Controls.LookupGrid">
<HintPath>..\..\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath> <HintPath>..\..\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath>
</Reference> </Reference>
<Reference Include="DigitalData.GUIs.GlobalIndexer">
<HintPath>..\..\DDMonorepo\GUIs.GlobalIndexer\bin\Debug\DigitalData.GUIs.GlobalIndexer.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Config"> <Reference Include="DigitalData.Modules.Config">
<HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath> <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference> </Reference>

153
Global_Indexer/frmIndex.designer.vb generated
View File

@ -24,13 +24,14 @@ Partial Class frmIndex
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmIndex)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmIndex))
Dim EditorButtonImageOptions1 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions()
Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject2 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject3 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.pnlIndex = New System.Windows.Forms.Panel() Me.pnlIndex = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel() Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit()
Me.cmbDokumentart = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.checkMultiindex = New DevExpress.XtraEditors.CheckEdit()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarToggleSwitchItem1 = New DevExpress.XtraBars.BarToggleSwitchItem() Me.BarToggleSwitchItem1 = New DevExpress.XtraBars.BarToggleSwitchItem()
Me.BarToggleSwitchItem2 = New DevExpress.XtraBars.BarToggleSwitchItem() Me.BarToggleSwitchItem2 = New DevExpress.XtraBars.BarToggleSwitchItem()
@ -50,6 +51,8 @@ Partial Class frmIndex
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.checkMultiindex = New DevExpress.XtraEditors.CheckEdit()
Me.btnOK = New DevExpress.XtraEditors.SimpleButton() Me.btnOK = New DevExpress.XtraEditors.SimpleButton()
Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer() Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
Me.MyDataset = New Global_Indexer.MyDataset() Me.MyDataset = New Global_Indexer.MyDataset()
@ -65,10 +68,10 @@ Partial Class frmIndex
Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout() Me.SplitContainer1.SuspendLayout()
Me.Panel1.SuspendLayout() CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
CType(Me.checkMultiindex.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.checkMultiindex.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWDDINDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWDDINDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWINDEX_AUTOMBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWINDEX_AUTOMBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -83,14 +86,12 @@ Partial Class frmIndex
' '
'SplitContainer1.Panel1 'SplitContainer1.Panel1
' '
resources.ApplyResources(Me.SplitContainer1.Panel1, "SplitContainer1.Panel1")
Me.SplitContainer1.Panel1.Controls.Add(Me.pnlIndex) Me.SplitContainer1.Panel1.Controls.Add(Me.pnlIndex)
Me.SplitContainer1.Panel1.Controls.Add(Me.Panel1) Me.SplitContainer1.Panel1.Controls.Add(Me.ComboBoxEdit1)
Me.SplitContainer1.Panel1.Controls.Add(Me.Panel2) Me.SplitContainer1.Panel1.Controls.Add(Me.Panel2)
' '
'SplitContainer1.Panel2 'SplitContainer1.Panel2
' '
resources.ApplyResources(Me.SplitContainer1.Panel2, "SplitContainer1.Panel2")
Me.SplitContainer1.Panel2.Controls.Add(Me.DocumentViewer1) Me.SplitContainer1.Panel2.Controls.Add(Me.DocumentViewer1)
' '
'pnlIndex 'pnlIndex
@ -99,61 +100,23 @@ Partial Class frmIndex
Me.pnlIndex.BackColor = System.Drawing.SystemColors.ControlLight Me.pnlIndex.BackColor = System.Drawing.SystemColors.ControlLight
Me.pnlIndex.Name = "pnlIndex" Me.pnlIndex.Name = "pnlIndex"
' '
'Panel1 'ComboBoxEdit1
' '
resources.ApplyResources(Me.Panel1, "Panel1") resources.ApplyResources(Me.ComboBoxEdit1, "ComboBoxEdit1")
Me.Panel1.BackColor = System.Drawing.Color.Transparent Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1
Me.Panel1.Controls.Add(Me.cmbDokumentart) Me.ComboBoxEdit1.Name = "ComboBoxEdit1"
Me.Panel1.Controls.Add(Me.Label1) SerializableAppearanceObject1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
Me.Panel1.Name = "Panel1" SerializableAppearanceObject1.Options.UseBackColor = True
' Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines), resources.GetString("ComboBoxEdit1.Properties.Buttons1"), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons2"), Integer), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons3"), Boolean), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons4"), Boolean), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons5"), Boolean), EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, resources.GetString("ComboBoxEdit1.Properties.Buttons6"), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons7"), Object), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons8"), DevExpress.Utils.SuperToolTip), CType(resources.GetObject("ComboBoxEdit1.Properties.Buttons9"), DevExpress.Utils.ToolTipAnchor))})
'cmbDokumentart Me.ComboBoxEdit1.Properties.ButtonsStyle = DevExpress.XtraEditors.Controls.BorderStyles.UltraFlat
' Me.ComboBoxEdit1.Properties.NullText = resources.GetString("ComboBoxEdit1.Properties.NullText")
resources.ApplyResources(Me.cmbDokumentart, "cmbDokumentart") Me.ComboBoxEdit1.Properties.Padding = New System.Windows.Forms.Padding(5)
Me.cmbDokumentart.DisplayMember = "DOKART_ID"
Me.cmbDokumentart.FormattingEnabled = True
Me.cmbDokumentart.Name = "cmbDokumentart"
Me.cmbDokumentart.ValueMember = "DOKART_ID"
'
'Label1
'
resources.ApplyResources(Me.Label1, "Label1")
Me.Label1.Name = "Label1"
'
'Panel2
'
resources.ApplyResources(Me.Panel2, "Panel2")
Me.Panel2.BackColor = System.Drawing.Color.Transparent
Me.Panel2.Controls.Add(Me.checkMultiindex)
Me.Panel2.Controls.Add(Me.btnOK)
Me.Panel2.Name = "Panel2"
'
'checkMultiindex
'
resources.ApplyResources(Me.checkMultiindex, "checkMultiindex")
Me.checkMultiindex.MenuManager = Me.RibbonControl1
Me.checkMultiindex.Name = "checkMultiindex"
Me.checkMultiindex.Properties.Appearance.BackColor = System.Drawing.Color.Khaki
Me.checkMultiindex.Properties.Appearance.Font = CType(resources.GetObject("checkMultiindex.Properties.Appearance.Font"), System.Drawing.Font)
Me.checkMultiindex.Properties.Appearance.ForeColor = System.Drawing.Color.DarkRed
Me.checkMultiindex.Properties.Appearance.Options.UseBackColor = True
Me.checkMultiindex.Properties.Appearance.Options.UseFont = True
Me.checkMultiindex.Properties.Appearance.Options.UseForeColor = True
Me.checkMultiindex.Properties.Caption = resources.GetString("checkMultiindex.Properties.Caption")
Me.checkMultiindex.Properties.DisplayValueChecked = resources.GetString("checkMultiindex.Properties.DisplayValueChecked")
Me.checkMultiindex.Properties.DisplayValueGrayed = resources.GetString("checkMultiindex.Properties.DisplayValueGrayed")
Me.checkMultiindex.Properties.DisplayValueUnchecked = resources.GetString("checkMultiindex.Properties.DisplayValueUnchecked")
Me.checkMultiindex.Properties.GlyphVerticalAlignment = CType(resources.GetObject("checkMultiindex.Properties.GlyphVerticalAlignment"), DevExpress.Utils.VertAlignment)
' '
'RibbonControl1 'RibbonControl1
' '
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex"), Integer)
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex"), Integer)
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.RibbonControl1.ExpandCollapseItem.SearchTags = resources.GetString("RibbonControl1.ExpandCollapseItem.SearchTags")
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarToggleSwitchItem1, Me.BarToggleSwitchItem2, Me.checkItemTopMost, Me.checkItemDeleteSource, Me.checkItemPreselection, Me.labelError, Me.BarStaticItem1, Me.BarStaticItem2, Me.labelFilePath, Me.checkItemPreview, Me.labelNotice, Me.BarListItem1, Me.BarStaticItem4, Me.BarButtonItem1}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarToggleSwitchItem1, Me.BarToggleSwitchItem2, Me.checkItemTopMost, Me.checkItemDeleteSource, Me.checkItemPreselection, Me.labelError, Me.BarStaticItem1, Me.BarStaticItem2, Me.labelFilePath, Me.checkItemPreview, Me.labelNotice, Me.BarListItem1, Me.BarStaticItem4, Me.BarButtonItem1})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 22 Me.RibbonControl1.MaxItemId = 22
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
@ -164,28 +127,20 @@ Partial Class frmIndex
' '
resources.ApplyResources(Me.BarToggleSwitchItem1, "BarToggleSwitchItem1") resources.ApplyResources(Me.BarToggleSwitchItem1, "BarToggleSwitchItem1")
Me.BarToggleSwitchItem1.Id = 1 Me.BarToggleSwitchItem1.Id = 1
Me.BarToggleSwitchItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarToggleSwitchItem1.ImageOptions.ImageIndex"), Integer)
Me.BarToggleSwitchItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarToggleSwitchItem1.ImageOptions.LargeImageIndex"), Integer)
Me.BarToggleSwitchItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarToggleSwitchItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarToggleSwitchItem1.Name = "BarToggleSwitchItem1" Me.BarToggleSwitchItem1.Name = "BarToggleSwitchItem1"
' '
'BarToggleSwitchItem2 'BarToggleSwitchItem2
' '
resources.ApplyResources(Me.BarToggleSwitchItem2, "BarToggleSwitchItem2") resources.ApplyResources(Me.BarToggleSwitchItem2, "BarToggleSwitchItem2")
Me.BarToggleSwitchItem2.Id = 2 Me.BarToggleSwitchItem2.Id = 2
Me.BarToggleSwitchItem2.ImageOptions.ImageIndex = CType(resources.GetObject("BarToggleSwitchItem2.ImageOptions.ImageIndex"), Integer)
Me.BarToggleSwitchItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarToggleSwitchItem2.ImageOptions.LargeImageIndex"), Integer)
Me.BarToggleSwitchItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarToggleSwitchItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarToggleSwitchItem2.Name = "BarToggleSwitchItem2" Me.BarToggleSwitchItem2.Name = "BarToggleSwitchItem2"
' '
'checkItemTopMost 'checkItemTopMost
' '
resources.ApplyResources(Me.checkItemTopMost, "checkItemTopMost")
Me.checkItemTopMost.BindableChecked = True Me.checkItemTopMost.BindableChecked = True
resources.ApplyResources(Me.checkItemTopMost, "checkItemTopMost")
Me.checkItemTopMost.Checked = True Me.checkItemTopMost.Checked = True
Me.checkItemTopMost.Id = 5 Me.checkItemTopMost.Id = 5
Me.checkItemTopMost.ImageOptions.ImageIndex = CType(resources.GetObject("checkItemTopMost.ImageOptions.ImageIndex"), Integer)
Me.checkItemTopMost.ImageOptions.LargeImageIndex = CType(resources.GetObject("checkItemTopMost.ImageOptions.LargeImageIndex"), Integer)
Me.checkItemTopMost.ImageOptions.SvgImage = CType(resources.GetObject("checkItemTopMost.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.checkItemTopMost.ImageOptions.SvgImage = CType(resources.GetObject("checkItemTopMost.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.checkItemTopMost.Name = "checkItemTopMost" Me.checkItemTopMost.Name = "checkItemTopMost"
' '
@ -193,8 +148,6 @@ Partial Class frmIndex
' '
resources.ApplyResources(Me.checkItemDeleteSource, "checkItemDeleteSource") resources.ApplyResources(Me.checkItemDeleteSource, "checkItemDeleteSource")
Me.checkItemDeleteSource.Id = 7 Me.checkItemDeleteSource.Id = 7
Me.checkItemDeleteSource.ImageOptions.ImageIndex = CType(resources.GetObject("checkItemDeleteSource.ImageOptions.ImageIndex"), Integer)
Me.checkItemDeleteSource.ImageOptions.LargeImageIndex = CType(resources.GetObject("checkItemDeleteSource.ImageOptions.LargeImageIndex"), Integer)
Me.checkItemDeleteSource.ImageOptions.SvgImage = CType(resources.GetObject("checkItemDeleteSource.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.checkItemDeleteSource.ImageOptions.SvgImage = CType(resources.GetObject("checkItemDeleteSource.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.checkItemDeleteSource.Name = "checkItemDeleteSource" Me.checkItemDeleteSource.Name = "checkItemDeleteSource"
' '
@ -202,8 +155,6 @@ Partial Class frmIndex
' '
resources.ApplyResources(Me.checkItemPreselection, "checkItemPreselection") resources.ApplyResources(Me.checkItemPreselection, "checkItemPreselection")
Me.checkItemPreselection.Id = 9 Me.checkItemPreselection.Id = 9
Me.checkItemPreselection.ImageOptions.ImageIndex = CType(resources.GetObject("checkItemPreselection.ImageOptions.ImageIndex"), Integer)
Me.checkItemPreselection.ImageOptions.LargeImageIndex = CType(resources.GetObject("checkItemPreselection.ImageOptions.LargeImageIndex"), Integer)
Me.checkItemPreselection.ImageOptions.SvgImage = CType(resources.GetObject("checkItemPreselection.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.checkItemPreselection.ImageOptions.SvgImage = CType(resources.GetObject("checkItemPreselection.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.checkItemPreselection.Name = "checkItemPreselection" Me.checkItemPreselection.Name = "checkItemPreselection"
' '
@ -211,8 +162,6 @@ Partial Class frmIndex
' '
resources.ApplyResources(Me.labelError, "labelError") resources.ApplyResources(Me.labelError, "labelError")
Me.labelError.Id = 10 Me.labelError.Id = 10
Me.labelError.ImageOptions.ImageIndex = CType(resources.GetObject("labelError.ImageOptions.ImageIndex"), Integer)
Me.labelError.ImageOptions.LargeImageIndex = CType(resources.GetObject("labelError.ImageOptions.LargeImageIndex"), Integer)
Me.labelError.ImageOptions.SvgImage = CType(resources.GetObject("labelError.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.labelError.ImageOptions.SvgImage = CType(resources.GetObject("labelError.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.labelError.Name = "labelError" Me.labelError.Name = "labelError"
Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph Me.labelError.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
@ -222,26 +171,18 @@ Partial Class frmIndex
' '
resources.ApplyResources(Me.BarStaticItem1, "BarStaticItem1") resources.ApplyResources(Me.BarStaticItem1, "BarStaticItem1")
Me.BarStaticItem1.Id = 12 Me.BarStaticItem1.Id = 12
Me.BarStaticItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarStaticItem1.ImageOptions.ImageIndex"), Integer)
Me.BarStaticItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarStaticItem1.ImageOptions.LargeImageIndex"), Integer)
Me.BarStaticItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarStaticItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarStaticItem1.Name = "BarStaticItem1" Me.BarStaticItem1.Name = "BarStaticItem1"
' '
'BarStaticItem2 'BarStaticItem2
' '
resources.ApplyResources(Me.BarStaticItem2, "BarStaticItem2") resources.ApplyResources(Me.BarStaticItem2, "BarStaticItem2")
Me.BarStaticItem2.Id = 13 Me.BarStaticItem2.Id = 13
Me.BarStaticItem2.ImageOptions.ImageIndex = CType(resources.GetObject("BarStaticItem2.ImageOptions.ImageIndex"), Integer)
Me.BarStaticItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarStaticItem2.ImageOptions.LargeImageIndex"), Integer)
Me.BarStaticItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarStaticItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarStaticItem2.Name = "BarStaticItem2" Me.BarStaticItem2.Name = "BarStaticItem2"
' '
'labelFilePath 'labelFilePath
' '
resources.ApplyResources(Me.labelFilePath, "labelFilePath") resources.ApplyResources(Me.labelFilePath, "labelFilePath")
Me.labelFilePath.Id = 14 Me.labelFilePath.Id = 14
Me.labelFilePath.ImageOptions.ImageIndex = CType(resources.GetObject("labelFilePath.ImageOptions.ImageIndex"), Integer)
Me.labelFilePath.ImageOptions.LargeImageIndex = CType(resources.GetObject("labelFilePath.ImageOptions.LargeImageIndex"), Integer)
Me.labelFilePath.ImageOptions.SvgImage = CType(resources.GetObject("labelFilePath.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.labelFilePath.ImageOptions.SvgImage = CType(resources.GetObject("labelFilePath.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.labelFilePath.Name = "labelFilePath" Me.labelFilePath.Name = "labelFilePath"
Me.labelFilePath.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph Me.labelFilePath.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
@ -250,8 +191,6 @@ Partial Class frmIndex
' '
resources.ApplyResources(Me.checkItemPreview, "checkItemPreview") resources.ApplyResources(Me.checkItemPreview, "checkItemPreview")
Me.checkItemPreview.Id = 16 Me.checkItemPreview.Id = 16
Me.checkItemPreview.ImageOptions.ImageIndex = CType(resources.GetObject("checkItemPreview.ImageOptions.ImageIndex"), Integer)
Me.checkItemPreview.ImageOptions.LargeImageIndex = CType(resources.GetObject("checkItemPreview.ImageOptions.LargeImageIndex"), Integer)
Me.checkItemPreview.ImageOptions.SvgImage = CType(resources.GetObject("checkItemPreview.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.checkItemPreview.ImageOptions.SvgImage = CType(resources.GetObject("checkItemPreview.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.checkItemPreview.Name = "checkItemPreview" Me.checkItemPreview.Name = "checkItemPreview"
' '
@ -259,8 +198,6 @@ Partial Class frmIndex
' '
resources.ApplyResources(Me.labelNotice, "labelNotice") resources.ApplyResources(Me.labelNotice, "labelNotice")
Me.labelNotice.Id = 17 Me.labelNotice.Id = 17
Me.labelNotice.ImageOptions.ImageIndex = CType(resources.GetObject("labelNotice.ImageOptions.ImageIndex"), Integer)
Me.labelNotice.ImageOptions.LargeImageIndex = CType(resources.GetObject("labelNotice.ImageOptions.LargeImageIndex"), Integer)
Me.labelNotice.ImageOptions.SvgImage = CType(resources.GetObject("labelNotice.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.labelNotice.ImageOptions.SvgImage = CType(resources.GetObject("labelNotice.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.labelNotice.Name = "labelNotice" Me.labelNotice.Name = "labelNotice"
Me.labelNotice.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph Me.labelNotice.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
@ -270,26 +207,18 @@ Partial Class frmIndex
' '
resources.ApplyResources(Me.BarListItem1, "BarListItem1") resources.ApplyResources(Me.BarListItem1, "BarListItem1")
Me.BarListItem1.Id = 19 Me.BarListItem1.Id = 19
Me.BarListItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarListItem1.ImageOptions.ImageIndex"), Integer)
Me.BarListItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarListItem1.ImageOptions.LargeImageIndex"), Integer)
Me.BarListItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarListItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarListItem1.Name = "BarListItem1" Me.BarListItem1.Name = "BarListItem1"
' '
'BarStaticItem4 'BarStaticItem4
' '
resources.ApplyResources(Me.BarStaticItem4, "BarStaticItem4") resources.ApplyResources(Me.BarStaticItem4, "BarStaticItem4")
Me.BarStaticItem4.Id = 20 Me.BarStaticItem4.Id = 20
Me.BarStaticItem4.ImageOptions.ImageIndex = CType(resources.GetObject("BarStaticItem4.ImageOptions.ImageIndex"), Integer)
Me.BarStaticItem4.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarStaticItem4.ImageOptions.LargeImageIndex"), Integer)
Me.BarStaticItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarStaticItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarStaticItem4.Name = "BarStaticItem4" Me.BarStaticItem4.Name = "BarStaticItem4"
' '
'BarButtonItem1 'BarButtonItem1
' '
resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1") resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
Me.BarButtonItem1.Id = 21 Me.BarButtonItem1.Id = 21
Me.BarButtonItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.ImageIndex"), Integer)
Me.BarButtonItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImageIndex"), Integer)
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1" Me.BarButtonItem1.Name = "BarButtonItem1"
' '
@ -317,13 +246,34 @@ Partial Class frmIndex
' '
'RibbonStatusBar1 'RibbonStatusBar1
' '
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelFilePath) Me.RibbonStatusBar1.ItemLinks.Add(Me.labelFilePath)
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError) Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError)
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelNotice) Me.RibbonStatusBar1.ItemLinks.Add(Me.labelNotice)
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
' '
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.Transparent
Me.Panel2.Controls.Add(Me.checkMultiindex)
Me.Panel2.Controls.Add(Me.btnOK)
resources.ApplyResources(Me.Panel2, "Panel2")
Me.Panel2.Name = "Panel2"
'
'checkMultiindex
'
resources.ApplyResources(Me.checkMultiindex, "checkMultiindex")
Me.checkMultiindex.MenuManager = Me.RibbonControl1
Me.checkMultiindex.Name = "checkMultiindex"
Me.checkMultiindex.Properties.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
Me.checkMultiindex.Properties.Appearance.Font = CType(resources.GetObject("checkMultiindex.Properties.Appearance.Font"), System.Drawing.Font)
Me.checkMultiindex.Properties.Appearance.ForeColor = System.Drawing.Color.DarkRed
Me.checkMultiindex.Properties.Appearance.Options.UseBackColor = True
Me.checkMultiindex.Properties.Appearance.Options.UseFont = True
Me.checkMultiindex.Properties.Appearance.Options.UseForeColor = True
Me.checkMultiindex.Properties.Caption = resources.GetString("checkMultiindex.Properties.Caption")
'
'btnOK 'btnOK
' '
resources.ApplyResources(Me.btnOK, "btnOK") resources.ApplyResources(Me.btnOK, "btnOK")
@ -385,8 +335,8 @@ Partial Class frmIndex
' '
'frmIndex 'frmIndex
' '
resources.ApplyResources(Me, "$this")
Me.Appearance.Options.UseFont = True Me.Appearance.Options.UseFont = True
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.SplitContainer1) Me.Controls.Add(Me.SplitContainer1)
Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonStatusBar1)
@ -399,11 +349,10 @@ Partial Class frmIndex
Me.SplitContainer1.Panel2.ResumeLayout(False) Me.SplitContainer1.Panel2.ResumeLayout(False)
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False) Me.SplitContainer1.ResumeLayout(False)
Me.Panel1.ResumeLayout(False) CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.PerformLayout() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False) Me.Panel2.ResumeLayout(False)
CType(Me.checkMultiindex.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.checkMultiindex.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWDDINDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWDDINDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWINDEX_AUTOMBindingSource1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWINDEX_AUTOMBindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
@ -413,12 +362,7 @@ Partial Class frmIndex
Me.PerformLayout() Me.PerformLayout()
End Sub End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents cmbDokumentart As System.Windows.Forms.ComboBox
Friend WithEvents VWINDEX_MANBindingSource As System.Windows.Forms.BindingSource Friend WithEvents VWINDEX_MANBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents TBCONNECTIONBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBCONNECTIONBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents VWINDEX_AUTOMBindingSource As System.Windows.Forms.BindingSource Friend WithEvents VWINDEX_AUTOMBindingSource As System.Windows.Forms.BindingSource
@ -459,4 +403,5 @@ Partial Class frmIndex
Friend WithEvents btnOK As DevExpress.XtraEditors.SimpleButton Friend WithEvents btnOK As DevExpress.XtraEditors.SimpleButton
Friend WithEvents checkMultiindex As DevExpress.XtraEditors.CheckEdit Friend WithEvents checkMultiindex As DevExpress.XtraEditors.CheckEdit
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.ComboBoxEdit
End Class End Class

1387
Global_Indexer/frmIndex.resx
View File

File diff suppressed because it is too large Load Diff

249
Global_Indexer/frmIndex.vb
View File

@ -6,6 +6,7 @@ Imports System.Security.AccessControl
Imports System.Security.Principal Imports System.Security.Principal
Imports System.DirectoryServices Imports System.DirectoryServices
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Imports DigitalData.Controls.LookupGrid
Public Class frmIndex Public Class frmIndex
#Region "+++++ Variablen ++++++" #Region "+++++ Variablen ++++++"
@ -42,6 +43,14 @@ Public Class frmIndex
#End Region #End Region
Public Class DocType
Public Property Guid
Public Property Name
Public Overrides Function ToString() As String
Return Name
End Function
End Class
Private Sub ShowErrorMessage(Exception As Exception, MethodTitle As String, Optional MoreInfo As String = "") Private Sub ShowErrorMessage(Exception As Exception, MethodTitle As String, Optional MoreInfo As String = "")
Dim oMessage As String Dim oMessage As String
Dim oMoreInfo As String = IIf(MoreInfo = "", "", "(" & MoreInfo & ")") Dim oMoreInfo As String = IIf(MoreInfo = "", "", "(" & MoreInfo & ")")
@ -1560,7 +1569,16 @@ Public Class frmIndex
checkItemPreselection.Checked = True checkItemPreselection.Checked = True
If CURRENT_LASTDOKART <> "" Then If CURRENT_LASTDOKART <> "" Then
cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_LASTDOKART) Dim oFoundDocType = ComboBoxEdit1.Properties.Items.
Cast(Of DocType)().
Where(Function(dt) dt.Name = CURRENT_LASTDOKART).
FirstOrDefault()
If oFoundDocType IsNot Nothing Then
ComboBoxEdit1.SelectedItem = oFoundDocType
End If
'cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_LASTDOKART)
End If End If
Else Else
If DTTBGI_REGEX_DOCTYPE.Rows.Count > 0 Then If DTTBGI_REGEX_DOCTYPE.Rows.Count > 0 Then
@ -1570,7 +1588,17 @@ Public Class frmIndex
_Logger.Debug("There is a match on REGEX_DOCTYPE: [{0}]", oRoW.Item("DOCTYPE")) _Logger.Debug("There is a match on REGEX_DOCTYPE: [{0}]", oRoW.Item("DOCTYPE"))
_Logger.Debug("Regex: [{0}], FileName: [{1}]", oRoW.Item("Regex"), oOnlyFilename) _Logger.Debug("Regex: [{0}], FileName: [{1}]", oRoW.Item("Regex"), oOnlyFilename)
cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(oRoW.Item("DOCTYPE")) 'cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(oRoW.Item("DOCTYPE"))
Dim oFoundDocType = ComboBoxEdit1.Properties.Items.
Cast(Of DocType)().
Where(Function(dt) dt.Name = CURRENT_LASTDOKART).
FirstOrDefault()
If oFoundDocType IsNot Nothing Then
ComboBoxEdit1.SelectedItem = oFoundDocType
End If
Exit For Exit For
End If End If
Next Next
@ -1585,20 +1613,29 @@ Public Class frmIndex
Dim sql = String.Format("SELECT DISTINCT DOCTYPE_ID, DOCTYPE, SEQUENCE FROM VWGI_DOCTYPE where UPPER(USERNAME) = UPPER('{0}') ORDER BY SEQUENCE", Environment.UserName) Dim sql = String.Format("SELECT DISTINCT DOCTYPE_ID, DOCTYPE, SEQUENCE FROM VWGI_DOCTYPE where UPPER(USERNAME) = UPPER('{0}') ORDER BY SEQUENCE", Environment.UserName)
_Logger.Info("SQL DoctypeList: " & sql) _Logger.Info("SQL DoctypeList: " & sql)
Dim oDoctypes = ClassDatabase.Return_Datatable(sql) Dim oDoctypes = ClassDatabase.Return_Datatable(sql)
cmbDokumentart.DataSource = oDoctypes 'cmbDokumentart.DataSource = oDoctypes
cmbDokumentart.ValueMember = oDoctypes.Columns("DOCTYPE_ID").ColumnName 'cmbDokumentart.ValueMember = oDoctypes.Columns("DOCTYPE_ID").ColumnName
cmbDokumentart.DisplayMember = oDoctypes.Columns("DOCTYPE").ColumnName 'cmbDokumentart.DisplayMember = oDoctypes.Columns("DOCTYPE").ColumnName
cmbDokumentart.AutoCompleteMode = AutoCompleteMode.Suggest 'cmbDokumentart.AutoCompleteMode = AutoCompleteMode.Suggest
cmbDokumentart.AutoCompleteSource = AutoCompleteSource.ListItems 'cmbDokumentart.AutoCompleteSource = AutoCompleteSource.ListItems
cmbDokumentart.SelectedIndex = -1 'cmbDokumentart.SelectedIndex = -1
For Each oRow As DataRow In oDoctypes.Rows
ComboBoxEdit1.Properties.Items.Add(New DocType With {
.Guid = oRow.Item("DOCTYPE_ID"),
.Name = oRow.Item("DOCTYPE")
})
Next
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex, "Refresh_Dokart") ShowErrorMessage(ex, "Refresh_Dokart")
End Try End Try
End Sub End Sub
Private Sub cmbDokumentart_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbDokumentart.SelectedIndexChanged
If cmbDokumentart.SelectedIndex <> -1 And FormLoaded = True Then Private Sub ComboBoxEdit1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBoxEdit1.SelectedIndexChanged
If cmbDokumentart.SelectedValue.GetType.ToString = "System.Int32" Then If ComboBoxEdit1.SelectedIndex <> -1 And FormLoaded = True Then
CURRENT_DOKART_ID = cmbDokumentart.SelectedValue Dim oSelectedItem As DocType = ComboBoxEdit1.SelectedItem
CURRENT_DOKART_ID = oSelectedItem.Guid
'lblhinweis.Visible = False 'lblhinweis.Visible = False
ClearNotice() ClearNotice()
@ -1606,18 +1643,41 @@ Public Class frmIndex
'lblerror.Visible = False 'lblerror.Visible = False
ClearError() ClearError()
pnlIndex.Controls.Clear()
Me.pnlIndex.Controls.Clear() Dim sql As String = "Select WINDREAM_DIRECT, DUPLICATE_HANDLING from TBDD_DOKUMENTART WHERE GUID = " & oSelectedItem.Guid
Dim sql As String = "Select WINDREAM_DIRECT, DUPLICATE_HANDLING from TBDD_DOKUMENTART WHERE GUID = " & cmbDokumentart.SelectedValue
Dim oDoctypes As DataTable = ClassDatabase.Return_Datatable(sql) Dim oDoctypes As DataTable = ClassDatabase.Return_Datatable(sql)
WDDirect = oDoctypes.Rows(0).Item("WINDREAM_DIRECT") WDDirect = oDoctypes.Rows(0).Item("WINDREAM_DIRECT")
CURRENT_DOKART_DUPLICATE_HANDLING = oDoctypes.Rows(0).Item("DUPLICATE_HANDLING") CURRENT_DOKART_DUPLICATE_HANDLING = oDoctypes.Rows(0).Item("DUPLICATE_HANDLING")
Refresh_IndexeMan(cmbDokumentart.SelectedValue) Refresh_IndexeMan(oSelectedItem.Guid)
End If
End If End If
End Sub End Sub
'Private Sub cmbDokumentart_SelectedIndexChanged(sender As System.Object, e As System.EventArgs)
' If cmbDokumentart.SelectedIndex <> -1 And FormLoaded = True Then
' If cmbDokumentart.SelectedValue.GetType.ToString = "System.Int32" Then
' CURRENT_DOKART_ID = cmbDokumentart.SelectedValue
' 'lblhinweis.Visible = False
' ClearNotice()
' 'lblerror.Visible = False
' ClearError()
' Me.pnlIndex.Controls.Clear()
' Dim sql As String = "Select WINDREAM_DIRECT, DUPLICATE_HANDLING from TBDD_DOKUMENTART WHERE GUID = " & cmbDokumentart.SelectedValue
' Dim oDoctypes As DataTable = ClassDatabase.Return_Datatable(sql)
' WDDirect = oDoctypes.Rows(0).Item("WINDREAM_DIRECT")
' CURRENT_DOKART_DUPLICATE_HANDLING = oDoctypes.Rows(0).Item("DUPLICATE_HANDLING")
' Refresh_IndexeMan(cmbDokumentart.SelectedValue)
' End If
' End If
'End Sub
' <STAThread()> _ ' <STAThread()> _
Private Sub Refresh_IndexeMan(dokartid As Integer) Private Sub Refresh_IndexeMan(dokartid As Integer)
Dim sql Dim sql
@ -1656,11 +1716,20 @@ Public Class frmIndex
Dim oControlCount As Integer = 1 Dim oControlCount As Integer = 1
Dim oLabelPosition As Integer = 11 Dim oLabelPosition As Integer = 11
Dim oControlPosition As Integer = 33 Dim oControlPosition As Integer = 33
Dim oControls As New ClassControls(pnlIndex, Me)
Dim oControls As New DigitalData.GUIs.GlobalIndexer.ControlCreator(LOGCONFIG, pnlIndex, Me) With {
.OnControlChanged = AddressOf PrepareDependingControl,
.OnLookupData = AddressOf GetLookupData
}
'Dim oControls As New ClassControls(pnlIndex, Me)
If DT_INDEXEMAN.Rows.Count = 0 Then If DT_INDEXEMAN.Rows.Count = 0 Then
ShowError("Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert") ' ShowError("Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert")
_Logger.Info(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert") '_Logger.Info(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert")
ShowError("Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & ComboBoxEdit1.Text & " definiert")
_Logger.Info(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & ComboBoxEdit1.Text & " definiert")
End If End If
For Each oRow As DataRow In DT_INDEXEMAN.Rows For Each oRow As DataRow In DT_INDEXEMAN.Rows
@ -1671,6 +1740,7 @@ Public Class frmIndex
Dim oControlName As String = oRow.Item("NAME") Dim oControlName As String = oRow.Item("NAME")
Dim oConnectionId = NotNull(oRow.Item("CONNECTION_ID"), 0) Dim oConnectionId = NotNull(oRow.Item("CONNECTION_ID"), 0)
Dim oSQLSuggestion = oRow.Item("SUGGESTION") Dim oSQLSuggestion = oRow.Item("SUGGESTION")
Dim oSQLResult = oRow.Item("SQL_RESULT")
If oDataType <> "BOOLEAN" Then If oDataType <> "BOOLEAN" Then
addLabel(oControlName, oRow.Item("COMMENT").ToString, oLabelPosition, oControlCount) addLabel(oControlName, oRow.Item("COMMENT").ToString, oLabelPosition, oControlCount)
@ -1687,8 +1757,8 @@ Public Class frmIndex
pnlIndex.Controls.Add(chk) pnlIndex.Controls.Add(chk)
End If End If
Case "INTEGER" Case "INTEGER"
If (oSQLSuggestion = True And oRow.Item("SQL_RESULT").ToString.Length > 0) Or MultiSelect = True Then If (oSQLSuggestion = True And oSQLResult.ToString.Length > 0) Or MultiSelect = True Then
Dim oControl = oControls.AddVorschlag_ComboBox(oControlName, oControlPosition, oConnectionId, oRow.Item("SQL_RESULT"), MultiSelect, oDataType, DefaultValue, AddNewItems, PreventDuplicates, oSQLSuggestion) Dim oControl = oControls.AddLookupControl(oControlName, oControlPosition, MultiSelect, oDataType, oSQLResult, oConnectionId, DefaultValue, AddNewItems, PreventDuplicates)
If Not IsNothing(oControl) Then If Not IsNothing(oControl) Then
pnlIndex.Controls.Add(oControl) pnlIndex.Controls.Add(oControl)
End If End If
@ -1700,8 +1770,8 @@ Public Class frmIndex
End If End If
End If End If
Case "VARCHAR" Case "VARCHAR"
If (oSQLSuggestion = True And oRow.Item("SQL_RESULT").ToString.Length > 0) Or MultiSelect = True Then If (oSQLSuggestion = True And oSQLResult.ToString.Length > 0) Or MultiSelect = True Then
Dim oControl = oControls.AddVorschlag_ComboBox(oControlName, oControlPosition, oConnectionId, oRow.Item("SQL_RESULT"), MultiSelect, oDataType, DefaultValue, AddNewItems, PreventDuplicates, oSQLSuggestion) Dim oControl = oControls.AddLookupControl(oControlName, oControlPosition, MultiSelect, oDataType, oSQLResult, oConnectionId, DefaultValue, AddNewItems, PreventDuplicates)
If Not IsNothing(oControl) Then If Not IsNothing(oControl) Then
pnlIndex.Controls.Add(oControl) pnlIndex.Controls.Add(oControl)
End If End If
@ -1720,7 +1790,7 @@ Public Class frmIndex
End If End If
End If End If
Case "DATE" Case "DATE"
Dim oPicker = oControls.AddDateTimePicker(oControlName, oControlPosition, oDataType, DefaultValue) Dim oPicker = oControls.AddDateTimePicker(oControlName, oControlPosition, DefaultValue)
pnlIndex.Controls.Add(oPicker) pnlIndex.Controls.Add(oPicker)
Case Else Case Else
@ -1753,6 +1823,123 @@ Public Class frmIndex
End Try End Try
End Sub End Sub
Private Function GetLookupData(pLookup As LookupControl2, pSQLCommand As String, pConnectionId As Integer)
Dim oConnectionString = ClassFormFunctions.GetConnectionString(pConnectionId)
If oConnectionString IsNot Nothing And pSQLCommand.Length > 0 Then
LOGGER.Debug("Connection String (redacted): [{0}]", oConnectionString.Substring(0, 30))
If ClassPatterns.HasComplexPatterns(pSQLCommand) Then
LOGGER.Debug(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
Return Nothing
Else
pSQLCommand = ClassPatterns.ReplaceInternalValues(pSQLCommand)
pSQLCommand = ClassPatterns.ReplaceUserValues(pSQLCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_DOKART_ID)
Dim oDatatable = ClassDatabase.Return_Datatable_Combined(pSQLCommand, oConnectionString, False)
Return oDatatable
End If
Else
LOGGER.Warn("Connection String for control [{0}] is empty!", pLookup.Name)
Return Nothing
End If
End Function
Private Sub PrepareDependingControl(Control As Control)
If TypeOf Control Is Label Then
Exit Sub
End If
Try
Dim oMeta = DirectCast(Control.Tag, ClassControls.ControlMeta)
Dim oIndexName As String = oMeta.IndexName
Dim oSQL = $"SELECT * FROM TBDD_INDEX_MAN WHERE SQL_RESULT LIKE '%{oIndexName}%'"
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
If Not IsNothing(oDatatable) Then
LOGGER.Debug("Found [{0}] depending controls for [{1}]", oDatatable.Rows.Count, Control.Name)
For Each oRow As DataRow In oDatatable.Rows
Dim oControlName As String = NotNull(oRow.Item("NAME"), "")
Dim oConnectionId As Integer = NotNull(oRow.Item("CONNECTION_ID"), -1)
Dim oControlSql As String = NotNull(oRow.Item("SQL_RESULT"), "")
If oConnectionId = -1 Or oControlSql = String.Empty Then
LOGGER.Warn("Missing SQL Query or ConnectionId for Control [{0}]! Continuing.", oControlName)
Continue For
End If
oControlSql = ClassPatterns.ReplaceUserValues(oControlSql, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_DOKART_ID)
oControlSql = ClassPatterns.ReplaceInternalValues(oControlSql)
oControlSql = ClassPatterns.ReplaceControlValues(oControlSql, pnlIndex)
LOGGER.Debug("Setting new value for [{0}]", oControlName)
SetDependingControlResult(oControlName, oControlSql, oConnectionId)
Next
End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
End Sub
Private Sub SetDependingControlResult(IndexName As String, SqlCommand As String, SqlConnectionId As Integer)
Try
If SqlCommand Is Nothing OrElse SqlCommand = String.Empty Then
LOGGER.Warn("New Value for Index [{0}] could not be set. Supplied SQL is empty.")
Exit Sub
End If
Dim oConnectionString = ClassFormFunctions.GetConnectionString(SqlConnectionId)
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SqlCommand, oConnectionString)
Dim oFoundControl As Control = Nothing
For Each oControl As Control In pnlIndex.Controls
If TypeOf oControl Is Label Then
Continue For
End If
Dim oMeta = DirectCast(oControl.Tag, ClassControls.ControlMeta)
Dim oIndex As String = oMeta.IndexName
If oIndex = IndexName Then
oFoundControl = oControl
Exit For
End If
Next
If oFoundControl Is Nothing Then
LOGGER.Warn("Depending Control for Index [{0}] not found!", IndexName)
End If
If oDatatable Is Nothing Then
LOGGER.Warn("Error in SQL Command: {0}", SqlCommand)
End If
Select Case oFoundControl.GetType.Name
Case GetType(DevExpress.XtraEditors.TextEdit).Name
If oDatatable.Rows.Count > 0 Then
Dim oFirstRow As DataRow = oDatatable.Rows.Item(0)
If oFirstRow.ItemArray.Length > 0 Then
Dim oValue = oFirstRow.Item(0).ToString()
LOGGER.Debug("Setting Value for TextEdit [{0}]: [{1}]", oFoundControl.Name, oValue)
DirectCast(oFoundControl, DevExpress.XtraEditors.TextEdit).Text = oValue
End If
End If
Case GetType(LookupControl2).Name
LOGGER.Debug("Setting Value for LookupControl [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
DirectCast(oFoundControl, LookupControl2).DataSource = oDatatable
Case GetType(ComboBox).Name
LOGGER.Debug("Setting Value for Combobox [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
DirectCast(oFoundControl, ComboBox).DataSource = oDatatable
Case Else
LOGGER.Debug("Could not set depending control result for [{0}]", oFoundControl.GetType.Name)
End Select
Catch ex As Exception
LOGGER.Error(ex)
End Try
End Sub
Function GetPlaceholderValue(InputValue As String, FileName As String, UserShortName As String) As String Function GetPlaceholderValue(InputValue As String, FileName As String, UserShortName As String) As String
Dim oResult As String Dim oResult As String
@ -1959,11 +2146,13 @@ Public Class frmIndex
_Logger.Debug("Manuelle Indexe geladen") _Logger.Debug("Manuelle Indexe geladen")
If MyDataset.VWDDINDEX_MAN.Rows.Count > 0 Then If MyDataset.VWDDINDEX_MAN.Rows.Count > 0 Then
CURRENT_DOKART_ID = Me.cmbDokumentart.SelectedValue Dim oDokart As DocType = ComboBoxEdit1.SelectedItem
If CheckWrite_IndexeMan(Me.cmbDokumentart.SelectedValue) = True Then
CURRENT_DOKART_ID = oDokart.Guid
If CheckWrite_IndexeMan(oDokart.Guid) = True Then
'##### Manuelle Indexe indexiert ##### '##### Manuelle Indexe indexiert #####
_Logger.Info("Datei [" & CURRENT_WORKFILE & "] wird nun indexiert...") _Logger.Info("Datei [" & CURRENT_WORKFILE & "] wird nun indexiert...")
If FillIndexe_Autom(Me.cmbDokumentart.SelectedValue) = True Then If FillIndexe_Autom(oDokart.Guid) = True Then
_Logger.Debug(" ...FillIndexe_Autom durchlaufen") _Logger.Debug(" ...FillIndexe_Autom durchlaufen")
'Den Zielnamen zusammenbauen 'Den Zielnamen zusammenbauen
@ -1976,7 +2165,7 @@ Public Class frmIndex
'Die Datei verschieben 'Die Datei verschieben
If Move_File2_Target() = True Then If Move_File2_Target() = True Then
_Logger.Debug(" ...Move_File2_Target durchlaufen") _Logger.Debug(" ...Move_File2_Target durchlaufen")
CURRENT_LASTDOKART = cmbDokumentart.Text CURRENT_LASTDOKART = oDokart.Name
_Logger.Info("Datei '" & CURRENT_NEWFILENAME & "' erfolgreich erzeugt.") _Logger.Info("Datei '" & CURRENT_NEWFILENAME & "' erfolgreich erzeugt.")
Dim oDEL As String = "DELETE FROM TBGI_FILES_USER WHERE GUID = " & CURRENT_WORKFILE_GUID Dim oDEL As String = "DELETE FROM TBGI_FILES_USER WHERE GUID = " & CURRENT_WORKFILE_GUID
ClassDatabase.Execute_non_Query(oDEL, True) ClassDatabase.Execute_non_Query(oDEL, True)
@ -2513,4 +2702,6 @@ Public Class frmIndex
CONFIG.Config.ProfilePreselection = checkItemPreselection.Checked CONFIG.Config.ProfilePreselection = checkItemPreselection.Checked
CONFIG.Save() CONFIG.Save()
End Sub End Sub
End Class End Class

1
Global_Indexer/frmStart.Designer.vb generated
View File

@ -132,6 +132,7 @@ Partial Class frmStart
Me.LabelControl1.ImageAlignToText = DevExpress.XtraEditors.ImageAlignToText.LeftCenter Me.LabelControl1.ImageAlignToText = DevExpress.XtraEditors.ImageAlignToText.LeftCenter
Me.LabelControl1.ImageOptions.Alignment = System.Drawing.ContentAlignment.MiddleLeft Me.LabelControl1.ImageOptions.Alignment = System.Drawing.ContentAlignment.MiddleLeft
Me.LabelControl1.ImageOptions.SvgImage = Global.Global_Indexer.My.Resources.Resources.trackingchanges_next Me.LabelControl1.ImageOptions.SvgImage = Global.Global_Indexer.My.Resources.Resources.trackingchanges_next
Me.LabelControl1.IndentBetweenImageAndText = 10
Me.LabelControl1.Name = "LabelControl1" Me.LabelControl1.Name = "LabelControl1"
' '
'OpenFileDialog1 'OpenFileDialog1

90
Global_Indexer/frmStart.resx
View File

@ -121,6 +121,37 @@
<value>400, 17</value> <value>400, 17</value>
</metadata> </metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="MenuStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="MenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>294, 24</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="MenuStrip1.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="MenuStrip1.Text" xml:space="preserve">
<value>MenuStrip1</value>
</data>
<data name="&gt;&gt;MenuStrip1.Name" xml:space="preserve">
<value>MenuStrip1</value>
</data>
<data name="&gt;&gt;MenuStrip1.Type" xml:space="preserve">
<value>System.Windows.Forms.MenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;MenuStrip1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;MenuStrip1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="KonfigurationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>108, 20</value>
</data>
<data name="KonfigurationToolStripMenuItem.Text" xml:space="preserve">
<value>Konfiguration</value>
</data>
<data name="AdministrationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="AdministrationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>221, 22</value> <value>221, 22</value>
</data> </data>
@ -148,49 +179,9 @@
<data name="InfoToolStripMenuItem.Text" xml:space="preserve"> <data name="InfoToolStripMenuItem.Text" xml:space="preserve">
<value>Info</value> <value>Info</value>
</data> </data>
<data name="KonfigurationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>108, 20</value>
</data>
<data name="KonfigurationToolStripMenuItem.Text" xml:space="preserve">
<value>Konfiguration</value>
</data>
<data name="MenuStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="MenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>294, 24</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="MenuStrip1.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="MenuStrip1.Text" xml:space="preserve">
<value>MenuStrip1</value>
</data>
<data name="&gt;&gt;MenuStrip1.Name" xml:space="preserve">
<value>MenuStrip1</value>
</data>
<data name="&gt;&gt;MenuStrip1.Type" xml:space="preserve">
<value>System.Windows.Forms.MenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;MenuStrip1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;MenuStrip1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>515, 17</value> <value>515, 17</value>
</metadata> </metadata>
<data name="tslblFW.Size" type="System.Drawing.Size, System.Drawing">
<value>133, 17</value>
</data>
<data name="tslblFW.Text" xml:space="preserve">
<value>FolderWatch ist aktiv</value>
</data>
<data name="tslblFW.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing"> <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 139</value> <value>0, 139</value>
</data> </data>
@ -215,6 +206,15 @@
<data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<data name="tslblFW.Size" type="System.Drawing.Size, System.Drawing">
<value>133, 17</value>
</data>
<data name="tslblFW.Text" xml:space="preserve">
<value>FolderWatch ist aktiv</value>
</data>
<data name="tslblFW.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<metadata name="TimerFolderWatch.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerFolderWatch.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1072, 17</value> <value>1072, 17</value>
</metadata> </metadata>
@ -518,7 +518,7 @@
<value>132, 56</value> <value>132, 56</value>
</metadata> </metadata>
<data name="LabelControl1.Appearance.Font" type="System.Drawing.Font, System.Drawing"> <data name="LabelControl1.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 12pt</value> <value>Segoe UI, 11.25pt</value>
</data> </data>
<assembly alias="DevExpress.XtraEditors.v19.2" name="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <assembly alias="DevExpress.XtraEditors.v19.2" name="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="LabelControl1.AutoSizeMode" type="DevExpress.XtraEditors.LabelAutoSizeMode, DevExpress.XtraEditors.v19.2"> <data name="LabelControl1.AutoSizeMode" type="DevExpress.XtraEditors.LabelAutoSizeMode, DevExpress.XtraEditors.v19.2">
@ -532,10 +532,10 @@
<value>0, 24</value> <value>0, 24</value>
</data> </data>
<data name="LabelControl1.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms"> <data name="LabelControl1.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>15, 10, 15, 10</value> <value>5, 10, 5, 10</value>
</data> </data>
<data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>294, 62</value> <value>294, 60</value>
</data> </data>
<data name="LabelControl1.TabIndex" type="System.Int32, mscorlib"> <data name="LabelControl1.TabIndex" type="System.Int32, mscorlib">
<value>8</value> <value>8</value>
@ -592,10 +592,10 @@
<value>NoControl</value> <value>NoControl</value>
</data> </data>
<data name="btnChoosefiles.Location" type="System.Drawing.Point, System.Drawing"> <data name="btnChoosefiles.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 86</value> <value>0, 84</value>
</data> </data>
<data name="btnChoosefiles.Size" type="System.Drawing.Size, System.Drawing"> <data name="btnChoosefiles.Size" type="System.Drawing.Size, System.Drawing">
<value>294, 53</value> <value>294, 55</value>
</data> </data>
<data name="btnChoosefiles.TabIndex" type="System.Int32, mscorlib"> <data name="btnChoosefiles.TabIndex" type="System.Int32, mscorlib">
<value>9</value> <value>9</value>