This commit is contained in:
SchreiberM 2020-11-05 10:37:14 +01:00
parent 7750fdf6a5
commit 10f660460f
16 changed files with 570 additions and 178 deletions

View File

@ -201,6 +201,7 @@ Public Class ClassControlCreator
If CType(pAttributeRow.Item("MULTISELECT"), Boolean) Then If CType(pAttributeRow.Item("MULTISELECT"), Boolean) Then
oView.OptionsSelection.MultiSelect = True oView.OptionsSelection.MultiSelect = True
oView.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect oView.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect
oView.OptionsSelection.CheckBoxSelectorColumnWidth = 20
oMyNewGridControl.Size = New Size(CInt(pAttributeRow.Item("WIDTH") + 50), CInt(pAttributeRow.Item("HEIGHT"))) oMyNewGridControl.Size = New Size(CInt(pAttributeRow.Item("WIDTH") + 50), CInt(pAttributeRow.Item("HEIGHT")))
End If End If

View File

@ -70,6 +70,36 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property _1_LOGO_ZOO_FLOW_DROP2() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("1_LOGO_ZOO_FLOW_DROP2", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property _1_LOGO_ZOO_FLOW_DROP3() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("1_LOGO_ZOO_FLOW_DROP3", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property _1_LOGO_ZOO_FLOW1() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("1_LOGO_ZOO_FLOW1", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>

View File

@ -130,6 +130,9 @@
<data name="DD_Icons_ICO_PMANAGER_256px" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="DD_Icons_ICO_PMANAGER_256px" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\DD_Icons_ICO_PMANAGER_256px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\DD_Icons_ICO_PMANAGER_256px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="4_GLOBIX_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\4_GLOBIX_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="3_PERSON_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="3_PERSON_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\3_PERSON_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\3_PERSON_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -142,31 +145,37 @@
<data name="3_PERSON_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="3_PERSON_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\3_PERSON_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\3_PERSON_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Checked-outforEdit_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ZOO_FLOW_ sysicon_256" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="ZOO_FLOW_ sysicon_256" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ZOO_FLOW_ sysicon_256.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\ZOO_FLOW_ sysicon_256.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Checked-outforEdit_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="DD_Icons_ICO_PMANAGER_128px" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="DD_Icons_ICO_PMANAGER_128px" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\DD_Icons_ICO_PMANAGER_128px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\DD_Icons_ICO_PMANAGER_128px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="4_GLOBIX_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\4_GLOBIX_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Editdatasetwithdesigner_8449" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Editdatasetwithdesigner_8449" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Editdatasetwithdesigner_8449.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Editdatasetwithdesigner_8449.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Checked-outforEdit_Color_13297" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Checked-outforEdit_Color_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Checked-outforEdit_Color_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Checked-outforEdit_Color_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="1_LOGO_ZOO_FLOW1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1_LOGO_ZOO_FLOW1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="CW_GEFUNDEN_klein" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="CW_GEFUNDEN_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CW_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\CW_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="StatusAnnotations_Stop_16xLG_color" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="StatusAnnotations_Stop_16xLG_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\StatusAnnotations_Stop_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\StatusAnnotations_Stop_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="4_GLOBIX_AKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="1_LOGO_ZOO_FLOW_DROP2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\4_GLOBIX_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\1_LOGO_ZOO_FLOW_DROP2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="4_GLOBIX_INAKTIV_ZOO" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="1_LOGO_ZOO_FLOW_DROP3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\4_GLOBIX_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\1_LOGO_ZOO_FLOW_DROP3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
</root> </root>

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

View File

@ -112,6 +112,12 @@
<Compile Include="frmFlowForm.vb"> <Compile Include="frmFlowForm.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmPreSearch.Designer.vb">
<DependentUpon>frmPreSearch.vb</DependentUpon>
</Compile>
<Compile Include="frmPreSearch.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSearchStart.Designer.vb"> <Compile Include="frmSearchStart.Designer.vb">
<DependentUpon>frmSearchStart.vb</DependentUpon> <DependentUpon>frmSearchStart.vb</DependentUpon>
</Compile> </Compile>
@ -164,6 +170,9 @@
<EmbeddedResource Include="frmFlowForm.resx"> <EmbeddedResource Include="frmFlowForm.resx">
<DependentUpon>frmFlowForm.vb</DependentUpon> <DependentUpon>frmFlowForm.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmPreSearch.resx">
<DependentUpon>frmPreSearch.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSearchStart.resx"> <EmbeddedResource Include="frmSearchStart.resx">
<DependentUpon>frmSearchStart.vb</DependentUpon> <DependentUpon>frmSearchStart.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@ -283,6 +292,15 @@
<ItemGroup> <ItemGroup>
<None Include="Resources\4_GLOBIX_INAKTIV_ZOO.png" /> <None Include="Resources\4_GLOBIX_INAKTIV_ZOO.png" />
</ItemGroup> </ItemGroup>
<ItemGroup>
<None Include="Resources\1_LOGO_ZOO_FLOW1.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\1_LOGO_ZOO_FLOW_DROP2.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\1_LOGO_ZOO_FLOW_DROP3.png" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it. <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets. Other similar extension points exist, see Microsoft.Common.targets.

View File

@ -23,19 +23,19 @@ Partial Class frmFlowForm
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
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(frmFlowForm))
Dim SplashScreenManager As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, Nothing, True, True) Dim SplashScreenManager As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, Nothing, True, True)
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowForm))
Me.NotifyIcon = New System.Windows.Forms.NotifyIcon(Me.components) Me.NotifyIcon = New System.Windows.Forms.NotifyIcon(Me.components)
Me.ContextMenuSystray = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuSystray = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuForm = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuForm = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.AlleAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AlleAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TimerRefreshData = New System.Windows.Forms.Timer(Me.components)
Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PictureBoxGlobix = New System.Windows.Forms.PictureBox() Me.PictureBoxGlobix = New System.Windows.Forms.PictureBox()
Me.PictureBoxPM = New System.Windows.Forms.PictureBox() Me.PictureBoxPM = New System.Windows.Forms.PictureBox()
Me.PictureBoxSearch = New System.Windows.Forms.PictureBox() Me.PictureBoxSearch = New System.Windows.Forms.PictureBox()
Me.TimerRefreshData = New System.Windows.Forms.Timer(Me.components)
Me.ContextMenuSystray.SuspendLayout() Me.ContextMenuSystray.SuspendLayout()
Me.ContextMenuForm.SuspendLayout() Me.ContextMenuForm.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -44,6 +44,10 @@ Partial Class frmFlowForm
CType(Me.PictureBoxSearch, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBoxSearch, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'SplashScreenManager
'
SplashScreenManager.ClosingDelay = 500
'
'NotifyIcon 'NotifyIcon
' '
Me.NotifyIcon.ContextMenuStrip = Me.ContextMenuSystray Me.NotifyIcon.ContextMenuStrip = Me.ContextMenuSystray
@ -84,7 +88,7 @@ Partial Class frmFlowForm
'PictureBox1 'PictureBox1
' '
Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Left Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Left
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image) Me.PictureBox1.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources._1_LOGO_ZOO_FLOW
Me.PictureBox1.Location = New System.Drawing.Point(0, 0) Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(197, 150) Me.PictureBox1.Size = New System.Drawing.Size(197, 150)
@ -126,12 +130,9 @@ Partial Class frmFlowForm
Me.PictureBoxSearch.TabIndex = 3 Me.PictureBoxSearch.TabIndex = 3
Me.PictureBoxSearch.TabStop = False Me.PictureBoxSearch.TabStop = False
' '
'SplashScreenManager
'
SplashScreenManager.ClosingDelay = 500
'
'frmFlowForm 'frmFlowForm
' '
Me.AllowDrop = True
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))

View File

@ -118,10 +118,10 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<metadata name="NotifyIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="NotifyIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>189, 17</value>
</metadata> </metadata>
<metadata name="ContextMenuSystray.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuSystray.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>132, 17</value> <value>297, 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="NotifyIcon.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="NotifyIcon.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@ -1957,134 +1957,84 @@
</value> </value>
</data> </data>
<metadata name="ContextMenuForm.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuForm.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value> <value>461, 17</value>
</metadata>
<metadata name="TimerRefreshData.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>615, 17</value>
</metadata> </metadata>
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAMgAAACWCAYAAACb3McZAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAACxIAAAsSAdLdfvwAAApaSURBVHhe7Zo9yzRJFUD9Mf6BTcxNjI02NTI0MttsA0Ew
MDI0EBFBQTBREEwUFzGQVUEQFBMD18RkTUxGzvIWlEXVrY+unp6Z51w4vLvPdFXXdN9Tdbt6PveDz793
E5E6CiISoCAiAQoiEqAgIgEKIhKgICIBCiISoCAiAQoiEqAgIgEKIhKgICIBCiISoCAiAQoiEqAgIgEK
IhKgICIBCiISoCAiAQoiEqAgIgEKIhKgICIBCiISoCAiAQoiEqAgIgEKIhKgICIBCiISoCAiAQoiEqAg
IgEKIhKgICIBCiISoCAiAQoiEqAgIgEKIhKgICIBCiISoCAiAQpyMb/6+ge3f/z6o9vP3/9K9fOSH3/h
i7d/ffzH228//Gb186v45Ve/duvFn777vWrbR0ZBLoAkJ1n+889P3qXO7bOkrx1b8vef/eJdi9vtv59+
evvLj35y++mXvlw99p7wfXqhIBLCLJsneBmsJrV2CVaZVrAK9dqfCaL2YnQSeCQU5E78+69/e5cm7WBF
qbVNkGC96PVxFiNj4xrU2j4yCnInRhKIIIny0ovg/0fb7xSEFYsVj5Kw9nmClbEccys4ttZHgnOxGo0+
k53N0wgymiD3iJVa+vff/s671ucGCV07/ywkKM84BMlfJmySJx0zE7ShbSkLfaaVlmMeQRIFWYgVQbjZ
94gdu1uMtZb4SM5nO+8FfSEKz0/lOR9BEgVZiNXdmFrS7Y5eOdSjJcdVcbUkCrIQj1xiUb/Xzj/Co8mR
4kpJFGQhZgWJtnbPCK7V7EryqHKkuEoSBVmIGUHuLUcKHnZnJBl5j3F17NqAmEFBFqJ8IUcipgfY/O9X
J12ZUIyPcdbevPMdRt7VXBXspB19vlrhpQRhGWYXh12R2sXcIRlvrMt+WVFSMAaOOSIHicpYSXD+PTJu
+oD8PUVrJkaco2UW7Rkv1wD479F3JFH4DNKhlyQkVfSbpB0Pydz8mng7EoDvh9zRLJl+2LgjWufhHLPB
dem93OPeMJGsXCvuXa3Pe/AygkSJtWNmJGrvGFYSKg8Spvd2uYREPFoOtZKOazUTiBFd+xKOzVfckZi9
Pjt5CUFqZU9OT66RoI/dfVPqzCRXCe1XAzGP9MmEcyRxkXx00mpd+3vwEoJES/Cu0qpWvs3Otnm0ngNm
mZ2N8yg3G0a/D9djxzPBjCRXrSIvIUjr4u0qrVoCrj6IUx7V+ltldSUpV97R77MzWZFkJHZNKLO8hCC1
4+FI+ZMiSuYV+Vqr0REo01Y3CvKxjPSBRPm5dzC6Ch4pR1d5ekFIuNrxO0orolVKkFgrD8okQ62/o7CB
MBsIkb7fyEzOtT4rSUfkLEvCe/D0gvD38thdpdVIMiPizLl2rx45o+PgOMqrP3//h5+VLlzDkbZnrB6J
kQmNMTJWxs696W2L7+AlBWkdOxPMaKMXn+NGngNqY93JyBhILiRdidZquoPVMZ398P40gnABuRgl5Yy8
q7Si77zfHhzfi7PKq8TIO5m04bAS5fl2s/IcNXufZnkaQUZAlplypxUrpcSIIGffzJHniCTpbJy9+sHK
yq8gE+worRBspa4dWbnOvpnQi0cWhLHNhoIMsqu0Wt0pUZDjKMhJ7Cqtej9ZieBG9eLsm2mJtZ+XEOTK
0ioxIkhKzrPwIX0/Ty/IrtIqJc4KbvMeZ3VMChKwq7RqJS4JwWc5rALAuTkGsWbGkNqdweg4OO6ZXxQy
Zu6BLwo7cLF2RCtpo59v/OaDD/2pyUb8qclmdpVWUcLyWStY2kdn7DJ2ryIk7Y6xjCTplT9WrLU9m6cU
hJu6mhB59H52ThnSCsZAsqzEs//cfedMPrJyEXzHWvuzeUpBdpVWvYfOaEblcyRZjV03fFUOokz00e/D
5NS7diPQx+hEd/bDeIunE2RXadUrFXrJko6LVple0PZITX9EDuQ/0ieJfSRpZ+RgQqz1cQ+eSpBdpRXJ
0UvMqC7Ok2vk3UMU9DWbaBy/skGQR2tbe3ZVZKKZkZxjR585Uly1esBTCbKrtOpd8N5DbzmjRaXYaNBn
b9sSGY+sWHm0zrMiPNcKUaKyC/EQY2WCa8l8D55GkF2lVa/250b2RCwFyWdEEoBzrD7AE6wOnCNnNRgL
5BK3rsFM2dMK2pdj3zGB7HjmWeEpBNlVWtFHa+ZMS//IecoEoy0ClzdxtpTYHeU4uY6Mk3/zvwPf4WjZ
dmYgWevenclTCHJkBs2Di1zObitJQeLXxlmDJL0iZreSj6x494pyW/oePLwgPC88WswIAveWZGV3bEd5
dWYwtivKLAVZCB6ma2ON2PUM1Yve9nXEo0pylRygIAuxuu14j+Q7Wqc/miRXygEKshArgnCT7xErq1tJ
SxL6Htnlmwn64nqyvVye82o5QEEWorYL1ONeJVZrC3eWXBI2N8pE5RpwrppIvaANbcuJhnOkTZNHkAMU
ZCFq4+wxOuuSIOXOWtp9GwmOrZ1/BRKURO6VbdwjzjsSv/vGt6p9JDhX76XjPXl4Qbhg3IBHojbOHiPb
yb3kHpGk7GMlRtqVO3mzZRfjTOVg9L6IfqPxcD9q5169TyUPL8grwU2LtnzLX9eWMKu2gq3dWvuVGGlX
CrL6HoVxK4j8H6yKPJPkZUlKhB55IlKnk1zRM1FLSs5HWyg/T+1qicdKyGflOaMkT/HJx3+o/paM71Rr
z7lSqVX7jRh/41pyTBor15Tx9crCURTkYrjJJM1ozc2N5/iZ3SoSpgwSMj8mFy/9rZa0ZbtE7RxlMClw
bFluIjrfqwyOi/rnb+nzJDnfI/1tBwryBmgJkv+dFYG/5QLMCJKozfSlzLV+GUttxYra5GNJq3GtzDyC
grwBaoIw49ZWjZwVQVrJnx9Tk4h2tbZpZa3Jw0rKZ/nqk59nBwryBqgJUkat3VmC1MZDu9rf0+pTC0oz
PkvCIVF+nh0oyBvgWQThszJY5aLdOz5L5+yNbQUFeQPUEpISK5Ut+cNwTi3Za0lIP5CeY8ooBamVWK0H
ePpNv0Ko7cbxWfoe5Xl2oCBvgNaMnZKZBKu1GxEkn905DyVRGWWb/NknRXrWqH2WtobpP98aJ/Jt4/wc
u1CQN0BLEGZ8PkvJWdITJG05p6Av+iyDpE7vJfi3TPJc0NrqwrMGweflKpI+a0l+FAV5cUi4PIlTkFiU
J+ULv7xdWe4QJDfJCCk5U6S2NbHoi9WhlINArNS29j6ESALUViiiXKV2oSAvTi9aibUSeXsSuhcIVnvh
WZMoPaPUViiitQoeRUFenDTbt6gl6Ei7GmUfrAy1VQgxKJVaqxfSln3nArAilp/n7XeiIHI30nPIM6Eg
IgEKIhKgICIBCiISoCAiAQoiEqAgIgEKIhKgICIBCiISoCAiAQoiEqAgIgEKIhKgICIBCiISoCAiAQoi
EqAgIgEKIhKgICIBCiISoCAiAQoiEqAgIgEKIhKgICIBCiISoCAiAQoiEqAgIgEKIhKgICIBCiISoCAi
AQoiEqAgIgEKIhKgICIBCiISoCAiAQoiEqAgIgEKItLkvdv/ADiFtAkO7IFaAAAAAElFTkSuQmCC
</value>
</data>
<data name="PictureBoxGlobix.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="PictureBoxGlobix.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAFAAAABQCAYAAACOEfKtAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAAFAAAABQCAYAAACOEfKtAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
YQUAAAAJcEhZcwAACxIAAAsSAdLdfvwAAAPKSURBVHhe7dw9bhRBEIZhH8FHcAQCIWRu4CP4KD6Cj+Aj EgAACxIB0t1+/AAAA8pJREFUeF7t3D1uFEEQhmEfwUdwBAIhZG7gI/goPoKP4CP4FAQEyCIgRIgAiQRZ
+BQEBMgiIESIAIkEWSIgIXBEQLLUJ42l9urd3Zru6p5ZuYInqVl3/Wh/ZntmfbLZbFIDDCY/DCY/DCY/ IiAhcERAstQnjaX26t3dmu7qnlm5giepWXf9aH9me2Z9stlsUgMMJj8MJj8MJj8MJj8MJj8MJj8MJj8M
DCY/DCY/DCY/DCY/DCY/DCY/DI704/2Lc3Nlbs2d2Rygx+ix+ptzWnMkDPZmjV9OQ3gwNKQ5tIbWuqRc Jj8MJj8MjvTj/Ytzc2VuzZ3ZHKDH6LH6m3NacyQM9maNX05DeDA0pDm0hta6pFy9YbAHa/DUXJt7Q4OI
vWGwB2vw1Fybe0ODiKC1leOUaugBg9GmpiKebV7KdU21RMNgFGviwvR8xh2i3BdUWxQMtrKi9XK9mZpY oLWV45Rq6AGD0aamIp5tXsp1TbVEw2AUa+LC9HzGHaLcF1RbFAy2sqL1cr2ZmlgD1dLlZY3BFlbomfk6
A9XS5WWNwRZW6Jn5OhW+JqrpjGpugcFaVqBOSUa+182l2kJPfTBYQ4VNBVLhaxI6RAzOpYKmwqjgNQob Fb4mqumMam6BwVpWoE5JRr7XzaXaQk99MFhDhU0FUuFrEjpEDM6lgqbCqOA1ChsiBuewQvSed0zDe6Sa
IgbnsEL0nndMw3ukmpvfEzHoZQXo03aNHxheqr3p0xmDXpZ8TacqtW6oNy8MelhinSRTQceo+mQbgx6W m98TMehlBejTdo0fGF6qvenTGYNelnxNpyq1bqg3Lwx6WGKdJFNBx6j6ZBuDHpa06hvGn89vuvr18RXm
tOobxp/Pb7r69fEV5j3gnnr0wOAhllDfbamQgzbf33WlIVJeh6rvzhjcxxLpg6P6U5eajtQwQPU0+wMF PeCeevTA4CGWUN9tqZCDNt/fdaUhUl6Hqu/OGNzHEumDo/pTl5qO1DBA9TT7AwWD+1iS6mefbDe7z79v
g/tYkupnn2w3u8+/b3aqVjzeQ39HeZ1mPwsxuI8ladpdKZul46W/X94+ebxH4wBnvxdicBdLoJ1kSuxW dqpWPN5Df0d5nWY/CzG4jyVp2l0pm6Xjpb9f3j55vEfjAGe/F2JwF0ugnWRK7FY2S8dLCwxQZu1sY3AX
NkvHSwsMUGbtbGNwF1tcW+eU1K1slo6XFhrgLfW+CwZ3scWbv7KVzdLx0kIDfKDed8EgsYW1YUAJZymb W1xb55TUrWyWjpcWGuAt9b4LBnexxZu/spXN0vHSQgN8oN53wSCxhbVhQAlnKZul46WFBijujQYMEltU
peOlhQYo7o0GDBJbVJcRKdksZbN0vLTgAK9oBgSDxBZtfv+Tslk6XlpwgO73QQwSW9Rz0fugslk6Xlpw lxEp2Sxls3S8tOAAr2gGBIPEFm1+/5OyWTpeWnCA7vdBDBJb1HPR+6CyWTpeWnCAdzQDgkECSaqUzdLx
gHc0A4JBAkmqlM3S8dLvT6+fPN4jaIDWMs9hGwYJJalRNkvHa2hoOcAGqx+gLagNBEw017EM0Lg2FjC4 0u9Pr5883iNogNYyz2EbBgklqVE2S8draGg5wAarH6AtqA0ETDTXsQzQuDYWMLhNi20tXu1ZDlAgQZVj
TYttLV7tWQ5QIEGVYxngdv+7YJBQkho5wEbPeYDDT6S9Ogywy4n08K9yXh0G2OWr3PDNBK8OA+yymTB8 GeB2/7tgkFCSGjnARs95gMNPpL06DLDLifTwr3JeHQbY5avc8M0Erw4D7LKZMHw7y6vDAOO3s8QWHrqh
O8urwwDjt7PEFh66oeoVPMA+G6piiw/d0vcKHmDXLf2hF5W8ggfY76KSWIJhlzW9AgfY97KmWJKwC+t0 6hU8wD4bqmKLD93S9woeYNct/aEXlbyCB9jvopJYgmGXNb0CB9j3sqZYkrAL63S8RuAAh1xYD7u1g47X
vEbgAIdcWA+7tYOO1wga4JhbO8QShdxcpC37COUtIA0DHHNz0SNLWPVeWA6wh8oBjr29TSxp1Q2W1HSk CBrgmFs7xBKF3FykLfsI5S0gDQMcc3PRI0tY9V5YDrCHygGOvb1NLGnVDZbUdKTKAY6/wVIs8exbfHUD
ygGOv8FSLPHsW3x1A2RPPz+8xLx7LHOLr1jyvMmcgnNYAfkzh1ZWSP7QppUKmgqjgtckbHiCwVoqbCqQ ZE8/P7zEvHssc4uvWPK8yZyCc1gB+TOHVlZI/tCmlQqaCqOC1yRseILBWipsKpAKX4PQ4QkGW1iB+XPX
Cl+D0OEJBltYgflz11ZWqD6d8wfXrazo/Ml/BGsi/+lEK2tIL2sNsuczUmsrR5eXK8Fgb9Zg/uOdKNa4 VlaoPp3zB9etrOj8yX8EayL/6UQra0gvaw2y5zNSaytHl5crwWBv1mD+450o1rhOffJfPz1XGEx+GEx+
Tn3yXz89VxhMfhhMfhhMfhhMfhhMfhhMfhhMfhhMfhhMXpuT/wYXoLxnG1mOAAAAAElFTkSuQmCC GEx+GEx+GEx+GEx+GEx+GEx+GExem5P/BhegvGcbWY4AAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="PictureBoxPM.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="PictureBoxPM.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAGsAAABQCAYAAAAeAotiAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAAGsAAABQCAYAAAAeAotiAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
YQUAAAAJcEhZcwAACxIAAAsSAdLdfvwAAATQSURBVHhe7Z1fahRBEMZzhBwhT/4JMcYb5AgeIUfIDcwR EgAACxIB0t1+/AAABNBJREFUeF7tnV9qFEEQxnOEHCFP/gkxxhvkCB4hR8gNzBFyhBwhTyIisvggIiJB
coQcIU8iIrL4ICIiQUQQQYIivghGBBFBxvo26a1OW7M7M12z29VbDz9CzXZPpr6P7p6pmZ3daJrGMYK4 RBBBgiK+CEYEEUHG+jbprU5bszszXbPb1VsPP0LNdk+mvo/unqmZnd1omsYxgrjRKRMOPj3YJ46cTuzH
0SkTDj492CeOnE7sxyIuCw4uD6JxOnEUi7gsOHCz+uBmGcLNMkSRZk0IbF9noEGqS5FmreSgiqIgXThw Ii4LDi4PonE6cRSLuCw4cLP64GYZws0yRJFmTQhsX2egQapLkWat5KCKoiBdOHCzZNys8nj/8MYmcZ84
s2TcrPJ4//DGJnGfOCImxDnRzAGfox3ao9+mtF9NOFhDs0jgLeKQOCMkQ/qC/WB/W9L/y4WDNTKLxNwn IibEOdHMAZ+jHdqj36a0X004WEOzSOAt4pA4IyRD+oL9YH9b0v/LhYM1MovE3CdOCUlwLbB/1UoHB2tg
TglJcC2wf9VKBwdrYBaJt0dg6pLEHQv8vz3pePrCQcVmkVhYj46vxFsV+P9Z6xoHlZpFAmHKW3SysCxw Fom3R2DqksQdC/y/Pel4+sJBxWaRWFiPjq/EWxX4/1nrGgeVmkUCYcpbdLKwLHAcg6dGDio0i4TBYi+J
HIOnRg4qNIuEwWIvibZqDqXjXQQHlZlFgpwkApXGiXTc8+CgIrMgRCJMqfQyjINKzIIAiSCl09kwDiow tmoOpeNdBAeVmUWCnCQClcaJdNzz4KAisyBEIkyp9DKMg0rMggCJIKXT2TAOKjCLEl/1Gd9QjqV8Ujgw
ixJf9RnfUI6lfFI4MG4WJXyQCGCNAymvGA4Mm0WJomx0ESWezYdHN5uvz7abn692m99nd5vm3b3pX8TY bhYlfJAIYI0DKa8YDgybRYmibHQRJZ7Nh0c3m6/Ptpufr3ab32d3m+bdvelfxNiOz6V+GeD455apOLBt
js+lfhng+OeWqTiwbZZqVeLLZLv5+3ZvalAb+BztpP4ZTKT8AhwYNYsSVJ3+vr/YEc1pA+2l/WTQOh1y lmpV4stku/n7dm9qUBv4HO2k/hlMpPwCHBg1ixJUnf6+v9gRzWkD7aX9ZNA6HXJg0CxKDGUktekP01ts
YNAsSgxlJLXpD9NbbARGz7fnO83np7enn+Mv4nTUoV+6rwyQj1iW4sCmWbiXJCXcG6xBsQlYn9rWJWwP BEbPt+c7zeent6ef4y/idNShX7qvDJCPWJbiwKZZuJckJdwbrEGxCVif2tYlbA/rGEA/5TVM1J0DY2ZR
6xhAP+U1TNSdA2NmUUKqowojpo/4qbnoL7UbiDi6OLBnlupaFY+UrtNaPG2iv9Qmg//WLg7smaV1d3dK QqqjCiOmj/ipuegvtRuIOLo4sGeW6loVj5Su01o8baK/1CaD/9YuDuyZpXV3d0oQHXSd0tAu7ie1yeAs
EB10ndLQLu4ntcngLM2ZA0NmUSK4rpISHMxQ0Yf268i16y4WwZZZ6rc+hoo+tF9Hrt1KYRFsmaX+/MSf zZkDQ2ZRIriukhIczFDRh/bryLXrLhbBllnqtz6Gij60X0eu3UphEWyZpf78xJ83fLLQ9WIX7UIf9Jfa
N3yy0PViF+1CH/SX2mRyGufNItgyS+0sMPDj5Z2Z8L9e74ptUtAu9EF/qU0mF3HeLIIRsygB9fUKnD+5 ZHIa580i2DJL7Sww8OPlnZnwv17vim1S0C70QX+pTSYXcd4sghGzKAH19QqcP7k1E76L+LG5AP2ldgrM
NRO+i/ixuQD9pXYKzNYtFsKOWXimQkoqm7TUhJGTmoA4HlFghJJTzOyZDRbCjllqVYsUnIrH11sBXPzC 1i0Wwo5ZeKZCSiqbtNSEkZOagDgeUWCEklPM7JkNFsKOWWpVixScisfXWwFc/MKg+CI4MK/SocTMAxbC
oPgiODCv0qHEzAMWws2aAuHTKa4NtBvZKOBmLQJFW9y7kkzC9lDcXQKmzVr6rXusUzBnxJOIebhZhjBt zZoC4dMprg20G9ko4GYtAkVb3LuSTML2UNxdAqbNWvqte6xTMGfEk4h5uFmGMG3WUqbBgnCzDOFmLQKl
1lKmwYJwswzhZi0CpSRcP6XXVIixfYTnL9owbdZoF8UAJsR1wnmg3RJMM31RPEq5qc/1VcrI11t2y02A JFw/pddUiLF9hOcv2jBt1mgXxQAmxHXCeaDdEkwzfVE8Srmpz/VVysjXW3bLTYASUC3kQmipcgETMHI+
ElAt5EJoqXIBEzByPj6+NAJ/EUumjlTJsF3IBZSE6i2SVHysS8GgNvB5up5hP1LbDKq4RaJ28xEjJUfw Pr40An8RS6aOVMmwXcgFlITqLZJUfKxLwaA28Hm6nmE/UtsMqrhFonbzESMlR/DUaOU1rIqbj2rrVnwy
1GjlNayKm49q61Z8MoGRIrVZRDzClG9C2r+tDyiR7Adm4lGFivqiqa8N9Isr8kqjq44HZgAlk/0oWjyF gZEitVlEPMKUb0Lav60PKJHsB2biUYWK+qKprw30iyvySqOrjgdmACWT/ShaPIXlrjea+7qiqkfRsh/y
5a43mvu6oqpH0bIf8oynwNwqOvqHfSlMhXU95AkooaxqRhAXSJ/3RXF/ou4c2DQra3ThxCAgfd4Xpf2J jKfA3Co6+od9KUyFdT3kCSihrGpGEBdIn/dFcX+i7hzYNCtrdOHEICB93hel/YmjCnBg0CxAiVn/xmNK
owpwYNAsQIlZ/8ZjSp1f+QlQgst+xc9Y1P1lOkBJqn9NdQXg+Ov/miqgRP0L4HHj0qGE/dUKlqDE/aUl nV/5CVCCy37Fz1jU/WU6QEmqf011BeD46/+aKqBE/QvgcePSoYT91QqWoMT9pSWWgACJIKWy3q8DCkCI
loAAiSClst6vAwpAiESY0vAXbcWQIP4KO0uQMP5ySEuQQP7aVWuQWP5CY2uQeP6qcGuQmChT4STEX8Jv RJjS8BdtxZAg/go7S5Aw/nJIS5BA/tpVa5BY/kJja5B4/qpwa5CYKFPhJMRfwm8JEhjrmv+8hWkK0oUD
CRIY65r/vIVpCtKFAzdLxpBZ/mNnhn7szJFxswzhZhnCzTLEys3yn2vvjmploiviRqdMxI1OiTQb/wD3 N0vGkFn+Y2eGfuzMkXGzDOFmGcLNMsTKzfKfa++OamWiK+JGp0zEjU6JNBv/APe0vJIO+s6vAAAAAElF
tLySDvrOrwAAAABJRU5ErkJggg== TkSuQmCC
</value> </value>
</data> </data>
<data name="PictureBoxSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="PictureBoxSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAGsAAABQCAYAAAAeAotiAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAAGsAAABQCAYAAAAeAotiAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
YQUAAAAJcEhZcwAACxIAAAsSAdLdfvwAAASySURBVHhe7Z1/atRAFMd7hB7Bv6y2tdYb9Ag9gkfoDdwj EgAACxIB0t1+/AAABLJJREFUeF7tnX9q1EAUx3uEHsG/rLa11hv0CD2CR+gN3CP0CD2Cf4mIyCJSREQW
9Ag9gn+JiMgiUkREFhFBBCmKCFJQEUQEie+7Mnmz6Ut2kswm8ybvj88fLzub5n2/nR+ZmWS3iqIwlCAe EUEEKYoIUlARRASJ77syebPpS3aSzCbzJu+Pzx8vO5vmfb+dH5mZZLeKojCUIB400oSDj/eOiJkRxJEv
NNKEg4/3joiZEcSRL+JQcPD/IgojiJkv4lBwYGa1wcxShJmliCTNmhM4PmWgQVWXJM0a5aKSIiFdODCz 4lBw8P8iCiOImS/iUHBgZrXBzFKEmaWIJM2aEzg+ZaBBVZckzRrlopIiIV04MLNkzKz0ePfg+jZxTMyI
ZMys9Hj34Po2cUzMiDlxQRQN4HOUOyXuEtek88aEgwmaRQLDoBMCokuGtGVB4HwbMY6DCZkFMYkzQhI8 OXFBFA3gc5Q7Je4S16TzxoSDCZpFAsOgEwKiS4a0ZUHgfBsxjoMJmQUxiTNCEjwW+AeIOtPBwQTMIvGG
FvgHiDrTwcEEzCLxhjCpSjTTOMjcLBIMfZEk5lDcJ7alawuFg0zNIoEOCfQlkoBD8504lq4zBA4yNIuE MKlKNNM4yNwsEgx9kSTmUNwntqVrC4WDTM0igQ4J9CWSgEPznTiWrjMEDjI0i4TBKA0CScKNyal0vevg
wSgNAknCjcmpdL3r4CAzs0iQsZu9dZxJ190EBxmZBSEqwqQKmufgfoyDTMyi5LUY5ZhLeUhwkIFZlDj6 IDOzSJCxm711nEnX3QQHGZkFISrCpAqa5+B+jINMzKLktRjlmEt5SHCQgVmUOPooSZDUCWoSOVBuFiV8
KEmQ1AlqEjlQbhYlfFQRQBsnUl4+HCg2ixLFtFGKo762HEr5OTjQbRZuOKXktbGQ8nNwoNQsSlB781el VBFAGydSXj4cKDaLEsW0UYqjvrYcSvk5ONBtFm44peS1sZDyc3Cg1CxKUHvzV6VWcw70mrVuKSOIz/Pd
VnMO9Jq1bikjiM/z3eLb8/3i16uDFS7P94uLxzfE72wINOfirD0HCs2ipHqP/r483S3+vKau4u2dRmDc 4tvz/eLXq4MVLs/3i4vHN8TvbAg05+KsPQcKzaKkeo/+vjzdLf68pq7i7Z1GYNyApomjQw50mtW5Vr1/
gKaJo0MOdJrVuVa9f7hT/Hx5IBrTxNdne+L5NsCVm2UOlJlFyWBVV0oyiN+L2ysm/H1zWPx4cWvZHH56 uFP8fHkgGtPE12d74vk2wJWbZQ6UmUXJYFVXSjKI34vbKyb8fXNY/Hhxa9kcfnpycwmMQY3yywE0jdI5
cnMJjEGN8ssBNI3SOSNzRXsO9JnVeQSIvskXHzUMNU0qC2Bc1VyYKpWNyEU1Zw4UmUWJ4L5KSnAtEN4X I3NFew70mdV5BIi+yRcfNQw1TSoLYFzVXJgqlY3IRTVnDhSZRYngvkpKcC0Q3hcdtUkqVwVm+oahn2sy
HbVJKlcFZvqGoZ9rMjgSK/ddLIIuszo3gX4/hSZOKlPHh0c7y+bSfR+DE6lcRFaWUlgEXWZ1mqxFTXBC OBIr910sgi6zOjeBfj+FJk4qU8eHRzvL5tJ9H4MTqVxEVpZSWARdZnWarEVNcEID1DKpXBPor9z325rd
A9QyqVwT6K/c99ua3YGVm2QWQZdZnVZ+/SYQzZhUZh2oXe4cQCoTmXJUyCLoMktKai1+rQjtqyT8pnCA gZWbZBZBl1mdVn79JhDNmFRmHahd7hxAKhOZclTIIugyS0pqLX6tCO2rJPymcIB7r3KzDYugxCxcfCWZ
e69ysw2LoMQsXHwlmWB8s/oMv/3hfJemtCXlbDwLMTGzFNWs0gMWQo9ZnfdWKO2zyqknFmICZikcDYJy YHyz+gy//eF8l6a0JeVsPAsxMbMU1azSAxZCj1md91Yo7bPKqScWYgJmKRwNgnLZn4WYgFlA2X0WmK5Z
2Z+FmIBZQNl9FpiuWX5TCBKfwQDTNQu0nRvEIKI6Nzjg7Pu0zarWEiDNuqOZq1tGQfnL871lHwY2OCpU flMIEp/BANM1C7SdG8Qgojo3OODs+7TNqtYSIM26o5mrW0ZB+cvzvWUfBjY4KlQ9wIiyjA/D6ozoCmqs
PcCIsowPw+qM6ApqrPS3elJ6wEJMzCxHm5ViV9ukzx197t9q0HtTDISEehO6BwM1UjLJJ7JheqebACUw 9Ld6UnrAQkzMLEeblWJX26TPHX3u32rQe1MMhIR6E7oHAzVSMsknsmF6p5sAJTDaIzzV0WQdEQ1TP5E7
2iM81dFkHRENUz+RO9p+9pCa5YhgWBZLJL32X/QFJkjmSPQ0LIvFx87L+jGQhv5NoN+TzhMAjXw4bxZB 2n72kJrliGBYFkskvfZf9AUmSOZI9DQsi8XHzsv6MZCG/k2g35POEwCNfDhvFkGRWYASGXXLdFvDUF46
kVmAEhl1y3Rbw1BeOk8DeWyYAZTMqE0haGMYBibSORq4oj0HyswClFCUrdN9CDWsg1n5bPIElFASD8+F TwN5bJgBlMyoTSFoYxgGJtI5GriiPQfKzAKUUJSt030INayDWfls8gSUUBIPz4UY1rIZzG/7NKDERq9d
GNayGcxv+zSgxEavXaDJsJYDjDwfTACUWDKP/MAwzIK4NS+Y12Hnbq3mHCg1C1CC9jDd8phXOFUoSXtM oMmwlgOMPB9MAJRYMo/8wDDMgrg1L5jXYedureYcKDULUIL2MN3ymFc4VShJe0x1ecwrnDKUaDLNYUem
dXnMK5wylGgyzWFHpvEAuIMStlcraAKJV4RInWm+tMRBAtjrgDRBIvTeq7Fhgpo+Hw4yMwuQIPYKO02Q 8QC4gxK2VytoAolXhEidab60xEEC2OuANEEi9N6rsWGCmj4fDjIzC5Ag9go7TZAw9nJIbZBIYzeL9trV
MPZySG2QSGM3i/ba1TaQWPZCY22QePaqcG2QmPYSfo2QwDDOft5CNQnpwoGZJaPILPuxM0U/dmbImFmK NpBY9kJjbZB49qpwbZCY9hJ+jZDAMM5+3kI1CenCgZklo8gs+7EzRT92ZsiYWYowsxRhZilidLPs59rD
MLMUYWYpYnSz7Ofaw4k6MxGKeNBIE/GgkSLF1j9I9dPGGKWHXgAAAABJRU5ErkJggg== iTozEYp40EgT8aCRIsXWP0j108YYpYdeAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<metadata name="TimerRefreshData.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>622, 17</value>
</metadata>
</root> </root>

View File

@ -143,8 +143,12 @@ Public Class frmFlowForm
End Sub End Sub
Private Sub PictureBoxSearch_Click(sender As Object, e As EventArgs) Handles PictureBoxSearch.Click Private Sub PictureBoxSearch_Click(sender As Object, e As EventArgs) Handles PictureBoxSearch.Click
Cursor = Cursors.WaitCursor
Dim oForm As New frmSearchStart(DTIDB_SEARCHES) Dim oForm As New frmSearchStart(DTIDB_SEARCHES)
oForm.Show() oForm.Show()
Dim oForm2 As New frmPreSearch()
oForm2.Show()
Cursor = Cursors.Default
End Sub End Sub
Private Sub PictureBoxSearch_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseEnter Private Sub PictureBoxSearch_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseEnter
PictureBoxSearch.Image = My.Resources._2_LUPE_AKTIV_ZOO PictureBoxSearch.Image = My.Resources._2_LUPE_AKTIV_ZOO
@ -176,4 +180,8 @@ Public Class frmFlowForm
Private Sub VerwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerwaltungToolStripMenuItem.Click Private Sub VerwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerwaltungToolStripMenuItem.Click
frmAdministrationZooFlow.Show() frmAdministrationZooFlow.Show()
End Sub End Sub
Private Sub PictureBox1_DragEnter(sender As Object, e As DragEventArgs) Handles PictureBox1.DragEnter
PictureBox1.BackgroundImage = My.Resources._1_LOGO_ZOO_FLOW_DROP2
End Sub
End Class End Class

133
GUIs.ZooFlow/frmPreSearch.Designer.vb generated Normal file
View File

@ -0,0 +1,133 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmPreSearch
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPreSearch))
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.TileView1 = New DevExpress.XtraGrid.Views.Tile.TileView()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TileView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 2
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.Size = New System.Drawing.Size(800, 158)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Start"
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Suchfunktionen"
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 426)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 24)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'GridControl1
'
Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControl1.Location = New System.Drawing.Point(0, 158)
Me.GridControl1.MainView = Me.TileView1
Me.GridControl1.MenuManager = Me.RibbonControl1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(800, 268)
Me.GridControl1.TabIndex = 2
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.TileView1})
'
'TileView1
'
Me.TileView1.GridControl = Me.GridControl1
Me.TileView1.Name = "TileView1"
'
'BarButtonItem1
'
Me.BarButtonItem1.Caption = "Neue Suche"
Me.BarButtonItem1.Id = 1
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'frmPreSearch
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.GridControl1)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.Name = "frmPreSearch"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "frmPreSearch"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TileView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents TileView1 As DevExpress.XtraGrid.Views.Tile.TileView
End Class

View File

@ -0,0 +1,147 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFQEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku
QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC
MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRW5hYmxlU2Vh
cmNoIj4NCiAgICA8cGF0aCBkPSJNMTQuNSwxNy44QzEwLjgsMTcuMSw4LDEzLjksOCwxMGMwLTQuNCwz
LjYtOCw4LThzOCwzLjYsOCw4YzAsMS41LTAuNCwyLjgtMS4xLDRjMCwwLDAuMSwwLDAuMSwwICAgYzAu
NywwLDEuNCwwLjEsMi4xLDAuMmMwLjYtMS4zLDAuOS0yLjcsMC45LTQuMmMwLTUuNS00LjUtMTAtMTAt
MTBDMTAuNSwwLDYsNC41LDYsMTBjMCwyLjEsMC43LDQuMSwxLjgsNS43bC03LjUsNy42ICAgYy0wLjQs
MC4zLTAuNCwwLjksMCwxLjNsMS4yLDEuMmMwLjMsMC4zLDAuOSwwLjMsMS4yLDBsNy42LTcuNmMwLjks
MC42LDEuOSwxLjEsMi45LDEuNEMxMy42LDE5LDE0LDE4LjQsMTQuNSwxNy44eiIgY2xhc3M9IkJsdWUi
IC8+DQogICAgPHBhdGggZD0iTTIzLDE2Yy00LjQsMC04LjEsMy05LDdjMC45LDQsNC42LDcsOSw3YzQu
NCwwLDguMS0zLDktN0MzMS4xLDE5LDI3LjQsMTYsMjMsMTZ6IE0yMywyOGMtMy4zLDAtNi4xLTItNy01
ICAgYzAuOS0zLDMuNy01LDctNXM2LjEsMiw3LDVDMjkuMSwyNiwyNi4zLDI4LDIzLDI4eiBNMjMsMjZj
LTEuNywwLTMtMS4zLTMtM3MxLjMtMywzLTNzMywxLjMsMywzUzI0LjcsMjYsMjMsMjZ6IiBjbGFzcz0i
QmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
</root>

View File

@ -0,0 +1,21 @@
Imports DigitalData.Modules.Logging
Public Class frmPreSearch
Private Logger As Logger
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Logger = My.LogConfig.GetLogger()
End Sub
Private Sub frmPreSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Red
Dim oSQL = $"SELECT * FROM VWIDB_SEARCH_LANDING"
Dim oDTLanding As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
GridControl1.DataSource = oDTLanding
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
End Sub
End Class

View File

@ -35,6 +35,7 @@ Partial Class frmSearchStart
Me.BarEditItem2 = New DevExpress.XtraBars.BarEditItem() Me.BarEditItem2 = New DevExpress.XtraBars.BarEditItem()
Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
Me.BarStaticItemInfo = New DevExpress.XtraBars.BarStaticItem() Me.BarStaticItemInfo = New DevExpress.XtraBars.BarStaticItem()
Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@ -83,9 +84,9 @@ Partial Class frmSearchStart
' '
Me.RibbonControl1.AutoSizeItems = True Me.RibbonControl1.AutoSizeItems = True
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItemNewSearch, Me.BarButtonItem2, Me.BarHeaderItem1, Me.BarEditItem1, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarEditItem2, Me.BarStaticItemInfo}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItemNewSearch, Me.BarButtonItem2, Me.BarHeaderItem1, Me.BarEditItem1, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarEditItem2, Me.BarStaticItemInfo, Me.BarButtonItem4})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 9 Me.RibbonControl1.MaxItemId = 10
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})
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemRadioGroup1, Me.RepositoryItemComboBox1}) Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemRadioGroup1, Me.RepositoryItemComboBox1})
@ -102,10 +103,11 @@ Partial Class frmSearchStart
' '
'BarButtonItem2 'BarButtonItem2
' '
Me.BarButtonItem2.Caption = "Suche speichern" Me.BarButtonItem2.Caption = "Suchprofil speichern"
Me.BarButtonItem2.Id = 2 Me.BarButtonItem2.Id = 2
Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem2.Name = "BarButtonItem2" Me.BarButtonItem2.Name = "BarButtonItem2"
Me.BarButtonItem2.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
' '
'BarHeaderItem1 'BarHeaderItem1
' '
@ -156,6 +158,13 @@ Partial Class frmSearchStart
Me.BarStaticItemInfo.Id = 8 Me.BarStaticItemInfo.Id = 8
Me.BarStaticItemInfo.Name = "BarStaticItemInfo" Me.BarStaticItemInfo.Name = "BarStaticItemInfo"
' '
'BarButtonItem4
'
Me.BarButtonItem4.Caption = "Suche starten"
Me.BarButtonItem4.Id = 9
Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem4.Name = "BarButtonItem4"
'
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
@ -164,11 +173,12 @@ Partial Class frmSearchStart
' '
'RibbonPageGroup1 'RibbonPageGroup1
' '
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem4)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItemNewSearch) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItemNewSearch)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Such-Aktionen" Me.RibbonPageGroup1.Text = "Suchfunktionen"
' '
'RibbonPageGroup2 'RibbonPageGroup2
' '
@ -471,4 +481,5 @@ Partial Class frmSearchStart
Friend WithEvents BracketLeftToolStripMenuItem As ToolStripMenuItem Friend WithEvents BracketLeftToolStripMenuItem As ToolStripMenuItem
Friend WithEvents KlammerRechtsToolStripMenuItem As ToolStripMenuItem Friend WithEvents KlammerRechtsToolStripMenuItem As ToolStripMenuItem
Friend WithEvents KlammerEntfernenToolStripMenuItem As ToolStripMenuItem Friend WithEvents KlammerEntfernenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
End Class End Class

View File

@ -187,6 +187,26 @@
NCwyOS41LDE5Ljd6IE04LDI2Yy0yLjIsMC00LTEuOC00LTRzMS44LTQsNC00ICBzNCwxLjgsNCw0UzEw NCwyOS41LDE5Ljd6IE04LDI2Yy0yLjIsMC00LTEuOC00LTRzMS44LTQsNC00ICBzNCwxLjgsNCw0UzEw
LjIsMjYsOCwyNnogTTI0LDI2Yy0yLjIsMC00LTEuOC00LTRzMS44LTQsNC00czQsMS44LDQsNFMyNi4y LjIsMjYsOCwyNnogTTI0LDI2Yy0yLjIsMC00LTEuOC00LTRzMS44LTQsNC00czQsMS44LDQsNFMyNi4y
LDI2LDI0LDI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KPC9zdmc+Cw== LDI2LDI0LDI2eiIgY2xhc3M9IkJsYWNrIiAvPg0KPC9zdmc+Cw==
</value>
</data>
<data name="BarButtonItem4.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANoCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iR2V0dGluZ1N0YXJ0ZWQiPg0KICAg
IDxwYXRoIGQ9Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMy
My43LDIsMTYsMnogTTEyLDIyVjEwbDEwLDZMMTIsMjJ6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N
Cjwvc3ZnPgs=
</value> </value>
</data> </data>
<metadata name="ContextMenuStripSearchTerms.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuStripSearchTerms.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

View File

@ -182,7 +182,7 @@ Public Class frmSearchStart
Dim oXPosition As Integer Dim oXPosition As Integer
Dim oYPositionControl As Integer Dim oYPositionControl As Integer
Dim oYPositionLabel As Integer Dim oYPositionLabel As Integer
Dim oMyLastGridView As DevExpress.XtraGrid.Views.Grid.GridView
Dim oSingleResult As Boolean = False Dim oSingleResult As Boolean = False
Dim oAttriTitle As String = oAttributeRow.Item("ATTRIBUTE_TITLE").ToString Dim oAttriTitle As String = oAttributeRow.Item("ATTRIBUTE_TITLE").ToString
Dim oAttriID As Integer = CInt(oAttributeRow.Item("ATTRIBUTE_ID")) Dim oAttriID As Integer = CInt(oAttributeRow.Item("ATTRIBUTE_ID"))
@ -235,9 +235,6 @@ Public Class frmSearchStart
If oCalcHeight > YActControlHeight Then If oCalcHeight > YActControlHeight Then
YActControlHeight = oCalcHeight YActControlHeight = oCalcHeight
End If End If
Dim oMyControl As Control Dim oMyControl As Control
If oAttriTYPE = "VARCHAR" Or oAttriTYPE = "BIG INTEGER" Then If oAttriTYPE = "VARCHAR" Or oAttriTYPE = "BIG INTEGER" Then
oMyControl = oControls.CreateExistingGridControl(oAttributeRow, oXPosition, oYPositionControl) oMyControl = oControls.CreateExistingGridControl(oAttributeRow, oXPosition, oYPositionControl)
@ -253,7 +250,14 @@ Public Class frmSearchStart
Dim oView As DevExpress.XtraGrid.Views.Grid.GridView Dim oView As DevExpress.XtraGrid.Views.Grid.GridView
oView = CType(myDGV.MainView, GridView) oView = CType(myDGV.MainView, GridView)
AddHandler oView.FocusedRowChanged, AddressOf FocusedRowChanged oMyLastGridView = oView
If CBool(oAttributeRow.Item("MULTISELECT")) = True Then
AddHandler oView.SelectionChanged, AddressOf RenewSearchAttributes
Else
AddHandler oView.FocusedRowChanged, AddressOf FocusedRowChanged
End If
oView.FocusInvalidRow()
ElseIf oAttriTYPE = "DATE" Then ElseIf oAttriTYPE = "DATE" Then
oMyControl = oControls.CreateExistingDatepicker(oAttributeRow, oXPosition, oYPositionControl) oMyControl = oControls.CreateExistingDatepicker(oAttributeRow, oXPosition, oYPositionControl)
@ -267,6 +271,10 @@ Public Class frmSearchStart
oControlCount += 1 oControlCount += 1
TabSelected.Controls.Add(oMyControl) TabSelected.Controls.Add(oMyControl)
If oAttriTYPE = "VARCHAR" Or oAttriTYPE = "BIG INTEGER" Then
oMyLastGridView.FocusInvalidRow()
End If
oXPosition += oControlWidth + 20 oXPosition += oControlWidth + 20
Next Next
@ -307,6 +315,40 @@ Public Class frmSearchStart
Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged
TabSelected = XtraTabControl1.SelectedTabPage TabSelected = XtraTabControl1.SelectedTabPage
End Sub End Sub
Private Sub ClearSearchCriteria()
Dim oSQL = $"DELETE FROM TBIDB_USER_SEARCH_CRITERIA WHERE SEARCH_PROFIL_ID = {PSEARCH_ID} AND USERID = {My.Application.User.UserId}"
My.DatabaseIDB.ExecuteNonQuery(oSQL)
End Sub
Private Sub RenewSearchAttributes()
ClearSearchCriteria()
For Each oControl As Control In TabSelected.Controls
Dim octrlType = oControl.GetType.ToString
Select Case oControl.GetType.ToString
Case "DevExpress.XtraGrid.GridControl"
Dim oMyGridControl As GridControl = CType(oControl, GridControl)
Dim oMyGridView As DevExpress.XtraGrid.Views.Grid.GridView = CType(oMyGridControl.MainView, GridView)
Dim oSelectedRows As Integer() = oMyGridView.GetSelectedRows()
If oSelectedRows.Count = 0 Then
Continue For
End If
Dim oAttrID = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttrID
Dim oAttrTitle = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).AttrTitle
For Each oRowHandle As Integer In oSelectedRows
Dim oResult = oMyGridView.GetRowCellValue(oRowHandle, oMyGridView.Columns(0).FieldName)
Dim oInsert = $"EXEC PRIDB_NEW_USER_SEARCH_CRITERIA {PSEARCH_ID.ToString},{My.Application.User.UserId.ToString},{oAttrID.ToString},'{oResult}','{My.Application.User.UserName}'"
My.DatabaseIDB.ExecuteNonQuery(oInsert)
Next
Case "DevExpress.XtraEditors.DateEdit"
' MsgBox("Date")
End Select
Next
End Sub
Private Sub FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Private Sub FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs)
If DataLoaded = False Then Exit Sub If DataLoaded = False Then Exit Sub
Dim oCurrentView As GridView = DirectCast(sender, GridView) Dim oCurrentView As GridView = DirectCast(sender, GridView)
@ -318,6 +360,7 @@ Public Class frmSearchStart
Dim oResult As String = CType(rowView.Item(0), String) Dim oResult As String = CType(rowView.Item(0), String)
Dim oAttrID = DirectCast(oCurrentControl.Tag, ClassControlCreator.ControlMetadata).AttrID Dim oAttrID = DirectCast(oCurrentControl.Tag, ClassControlCreator.ControlMetadata).AttrID
Dim oAttrTitle = DirectCast(oCurrentControl.Tag, ClassControlCreator.ControlMetadata).AttrTitle Dim oAttrTitle = DirectCast(oCurrentControl.Tag, ClassControlCreator.ControlMetadata).AttrTitle
RenewSearchAttributes()
AddSearchAttribute(oAttrID, oAttrTitle, oResult) AddSearchAttribute(oAttrID, oAttrTitle, oResult)
'For Each oAttributeRow1 As DataRow In oDTAttributes.Rows 'For Each oAttributeRow1 As DataRow In oDTAttributes.Rows
' If CInt(oAttributeRow1.Item("DEPENDING_ATTRIBUTE1")) = oAttrID Then ' If CInt(oAttributeRow1.Item("DEPENDING_ATTRIBUTE1")) = oAttrID Then
@ -391,12 +434,14 @@ Public Class frmSearchStart
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
Try Try
'Clear_token() 'Clear_token()
ClearSearchCriteria()
DTSearchTerms.Clear() DTSearchTerms.Clear()
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Clearing Search Items: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Clearing Search Items: " & ex.Message, MsgBoxStyle.Critical)
End Try End Try
TabSelected.Controls.Clear() TabSelected.Controls.Clear()
Load_Search_Attributes()
End Sub End Sub
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
@ -666,8 +711,41 @@ Public Class frmSearchStart
My.UIConfig.SearchForm.Location = Me.Location My.UIConfig.SearchForm.Location = Me.Location
My.UIConfigManager.Save() My.UIConfigManager.Save()
End Sub End Sub
Private Function GetSearchTermForType(pAttrID As Int16, pAttrTitle As String, pCriteria As String, pTERM As String) As String
Dim oRETURN As String = ""
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click Dim oFilter As String = $"GUID = {pAttrID}"
Dim oFilteredRows() As DataRow = My.DTAttributes.Select(oFilter)
If oFilteredRows.Length = 1 Then
For Each oRow As DataRow In oFilteredRows
Dim oType As Integer = CInt(oRow.Item("TYP_ID"))
If oType = 1 Or oType = 8 Then
oRETURN = $"{pAttrTitle} {pCriteria} '{pTERM.Replace("'", "''")}'"
ElseIf oType = 2 Or oType = 9 Then
oRETURN = $"{pAttrTitle} {pCriteria} {pTERM}"
ElseIf oType = 3 Then 'Float
oRETURN = $"{pAttrTitle} {pCriteria} Convert(float,'{pTERM.Replace(",", ".")}')"
ElseIf oType = 4 Then 'Decimal
oRETURN = $"{pAttrTitle} {pCriteria} Convert(decimal(19,2),'{pTERM.Replace(",", ".")}')"
ElseIf oType = 5 Then 'DATE
oRETURN = $"{pAttrTitle} {pCriteria} Convert(date,'{pTERM}')"
ElseIf oType = 7 Then
Dim oBit As Int16
If CBool(pTERM) = True Then
oBit = 1
Else
oBit = 0
End If
oRETURN = $"{pAttrTitle} {pCriteria} '{oBit.ToString}'"
End If
Next
End If
Return oRETURN
End Function
Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
Try Try
Dim oSEARCH_SQL = SEARCH_SQL Dim oSEARCH_SQL = SEARCH_SQL
Dim oOperator As String Dim oOperator As String
@ -721,40 +799,5 @@ Public Class frmSearchStart
Catch ex As Exception Catch ex As Exception
End Try End Try
End Sub End Sub
Private Function GetSearchTermForType(pAttrID As Int16, pAttrTitle As String, pCriteria As String, pTERM As String) As String
Dim oRETURN As String = ""
Dim oFilter As String = $"GUID = {pAttrID}"
Dim oFilteredRows() As DataRow = My.DTAttributes.Select(oFilter)
If oFilteredRows.Length = 1 Then
For Each oRow As DataRow In oFilteredRows
Dim oType As Integer = CInt(oRow.Item("TYP_ID"))
If oType = 1 Or oType = 8 Then
oRETURN = $"{pAttrTitle} {pCriteria} '{pTERM.Replace("'", "''")}'"
ElseIf oType = 2 Or oType = 9 Then
oRETURN = $"{pAttrTitle} {pCriteria} {pTERM}"
ElseIf oType = 3 Then 'Float
oRETURN = $"{pAttrTitle} {pCriteria} Convert(float,'{pTERM.Replace(",", ".")}')"
ElseIf oType = 4 Then 'Decimal
oRETURN = $"{pAttrTitle} {pCriteria} Convert(decimal(19,2),'{pTERM.Replace(",", ".")}')"
ElseIf oType = 5 Then 'DATE
oRETURN = $"{pAttrTitle} {pCriteria} Convert(date,'{pTERM}')"
ElseIf oType = 7 Then
Dim oBit As Int16
If CBool(pTERM) = True Then
oBit = 1
Else
oBit = 0
End If
oRETURN = $"{pAttrTitle} {pCriteria} '{oBit.ToString}'"
End If
Next
End If
Return oRETURN
End Function
End Class End Class