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
oView.OptionsSelection.MultiSelect = True
oView.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect
oView.OptionsSelection.CheckBoxSelectorColumnWidth = 20
oMyNewGridControl.Size = New Size(CInt(pAttributeRow.Item("WIDTH") + 50), CInt(pAttributeRow.Item("HEIGHT")))
End If

View File

@ -70,6 +70,36 @@ Namespace My.Resources
End Get
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>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

View File

@ -130,6 +130,9 @@
<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>
</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">
<value>..\Resources\3_PERSON_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -142,31 +145,37 @@
<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>
</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">
<value>..\Resources\ZOO_FLOW_ sysicon_256.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</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">
<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 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">
<value>..\Resources\Editdatasetwithdesigner_8449.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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>
</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">
<value>..\Resources\CW_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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>
</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 name="1_LOGO_ZOO_FLOW_DROP2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<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 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 name="1_LOGO_ZOO_FLOW_DROP3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1_LOGO_ZOO_FLOW_DROP3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</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">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmPreSearch.Designer.vb">
<DependentUpon>frmPreSearch.vb</DependentUpon>
</Compile>
<Compile Include="frmPreSearch.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSearchStart.Designer.vb">
<DependentUpon>frmSearchStart.vb</DependentUpon>
</Compile>
@ -164,6 +170,9 @@
<EmbeddedResource Include="frmFlowForm.resx">
<DependentUpon>frmFlowForm.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmPreSearch.resx">
<DependentUpon>frmPreSearch.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSearchStart.resx">
<DependentUpon>frmSearchStart.vb</DependentUpon>
</EmbeddedResource>
@ -283,6 +292,15 @@
<ItemGroup>
<None Include="Resources\4_GLOBIX_INAKTIV_ZOO.png" />
</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" />
<!-- 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.

View File

@ -23,19 +23,19 @@ Partial Class frmFlowForm
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowForm))
Me.NotifyIcon = New System.Windows.Forms.NotifyIcon(Me.components)
Me.ContextMenuSystray = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuForm = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.AlleAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TimerRefreshData = New System.Windows.Forms.Timer(Me.components)
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PictureBoxGlobix = New System.Windows.Forms.PictureBox()
Me.PictureBoxPM = 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.ContextMenuForm.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -44,6 +44,10 @@ Partial Class frmFlowForm
CType(Me.PictureBoxSearch, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'SplashScreenManager
'
SplashScreenManager.ClosingDelay = 500
'
'NotifyIcon
'
Me.NotifyIcon.ContextMenuStrip = Me.ContextMenuSystray
@ -84,7 +88,7 @@ Partial Class frmFlowForm
'PictureBox1
'
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.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(197, 150)
@ -126,12 +130,9 @@ Partial Class frmFlowForm
Me.PictureBoxSearch.TabIndex = 3
Me.PictureBoxSearch.TabStop = False
'
'SplashScreenManager
'
SplashScreenManager.ClosingDelay = 500
'
'frmFlowForm
'
Me.AllowDrop = True
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
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))

View File

@ -118,10 +118,10 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<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 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>
<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">
@ -1957,134 +1957,84 @@
</value>
</data>
<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>
<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">
<value>
iVBORw0KGgoAAAANSUhEUgAAAFAAAABQCAYAAACOEfKtAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAACxIAAAsSAdLdfvwAAAPKSURBVHhe7dw9bhRBEIZhH8FHcAQCIWRu4CP4KD6Cj+Aj
+BQEBMgiIESIAIkEWSIgIXBEQLLUJ42l9urd3Zru6p5ZuYInqVl3/Wh/ZntmfbLZbFIDDCY/DCY/DCY/
DCY/DCY/DCY/DCY/DCY/DCY/DI704/2Lc3Nlbs2d2Rygx+ix+ptzWnMkDPZmjV9OQ3gwNKQ5tIbWuqRc
vWGwB2vw1Fybe0ODiKC1leOUaugBg9GmpiKebV7KdU21RMNgFGviwvR8xh2i3BdUWxQMtrKi9XK9mZpY
A9XS5WWNwRZW6Jn5OhW+JqrpjGpugcFaVqBOSUa+182l2kJPfTBYQ4VNBVLhaxI6RAzOpYKmwqjgNQob
IgbnsEL0nndMw3ukmpvfEzHoZQXo03aNHxheqr3p0xmDXpZ8TacqtW6oNy8MelhinSRTQceo+mQbgx6W
tOobxp/Pb7r69fEV5j3gnnr0wOAhllDfbamQgzbf33WlIVJeh6rvzhjcxxLpg6P6U5eajtQwQPU0+wMF
g/tYkupnn2w3u8+/b3aqVjzeQ39HeZ1mPwsxuI8ladpdKZul46W/X94+ebxH4wBnvxdicBdLoJ1kSuxW
NkvHSwsMUGbtbGNwF1tcW+eU1K1slo6XFhrgLfW+CwZ3scWbv7KVzdLx0kIDfKDed8EgsYW1YUAJZymb
peOlhQYo7o0GDBJbVJcRKdksZbN0vLTgAK9oBgSDxBZtfv+Tslk6XlpwgO73QQwSW9Rz0fugslk6Xlpw
gHc0A4JBAkmqlM3S8dLvT6+fPN4jaIDWMs9hGwYJJalRNkvHa2hoOcAGqx+gLagNBEw017EM0Lg2FjC4
TYttLV7tWQ5QIEGVYxngdv+7YJBQkho5wEbPeYDDT6S9Ogywy4n08K9yXh0G2OWr3PDNBK8OA+yymTB8
O8urwwDjt7PEFh66oeoVPMA+G6piiw/d0vcKHmDXLf2hF5W8ggfY76KSWIJhlzW9AgfY97KmWJKwC+t0
vEbgAIdcWA+7tYOO1wga4JhbO8QShdxcpC37COUtIA0DHHNz0SNLWPVeWA6wh8oBjr29TSxp1Q2W1HSk
ygGOv8FSLPHsW3x1A2RPPz+8xLx7LHOLr1jyvMmcgnNYAfkzh1ZWSP7QppUKmgqjgtckbHiCwVoqbCqQ
Cl+D0OEJBltYgflz11ZWqD6d8wfXrazo/Ml/BGsi/+lEK2tIL2sNsuczUmsrR5eXK8Fgb9Zg/uOdKNa4
Tn3yXz89VxhMfhhMfhhMfhhMfhhMfhhMfhhMfhhMfhhMXpuT/wYXoLxnG1mOAAAAAElFTkSuQmCC
iVBORw0KGgoAAAANSUhEUgAAAFAAAABQCAYAAACOEfKtAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
EgAACxIB0t1+/AAAA8pJREFUeF7t3D1uFEEQhmEfwUdwBAIhZG7gI/goPoKP4CP4FAQEyCIgRIgAiQRZ
IiAhcERAstQnjaX26t3dmu7qnlm5giepWXf9aH9me2Z9stlsUgMMJj8MJj8MJj8MJj8MJj8MJj8MJj8M
Jj8MJj8MjvTj/Ytzc2VuzZ3ZHKDH6LH6m3NacyQM9maNX05DeDA0pDm0hta6pFy9YbAHa/DUXJt7Q4OI
oLWV45Rq6AGD0aamIp5tXsp1TbVEw2AUa+LC9HzGHaLcF1RbFAy2sqL1cr2ZmlgD1dLlZY3BFlbomfk6
Fb4mqumMam6BwVpWoE5JRr7XzaXaQk99MFhDhU0FUuFrEjpEDM6lgqbCqOA1ChsiBuewQvSed0zDe6Sa
m98TMehlBejTdo0fGF6qvenTGYNelnxNpyq1bqg3Lwx6WGKdJFNBx6j6ZBuDHpa06hvGn89vuvr18RXm
PeCeevTA4CGWUN9tqZCDNt/fdaUhUl6Hqu/OGNzHEumDo/pTl5qO1DBA9TT7AwWD+1iS6mefbDe7z79v
dqpWPN5Df0d5nWY/CzG4jyVp2l0pm6Xjpb9f3j55vEfjAGe/F2JwF0ugnWRK7FY2S8dLCwxQZu1sY3AX
W1xb55TUrWyWjpcWGuAt9b4LBnexxZu/spXN0vHSQgN8oN53wSCxhbVhQAlnKZul46WFBijujQYMEltU
lxEp2Sxls3S8tOAAr2gGBIPEFm1+/5OyWTpeWnCA7vdBDBJb1HPR+6CyWTpeWnCAdzQDgkECSaqUzdLx
0u9Pr5883iNogNYyz2EbBgklqVE2S8draGg5wAarH6AtqA0ETDTXsQzQuDYWMLhNi20tXu1ZDlAgQZVj
GeB2/7tgkFCSGjnARs95gMNPpL06DLDLifTwr3JeHQbY5avc8M0Erw4D7LKZMHw7y6vDAOO3s8QWHrqh
6hU8wD4bqmKLD93S9woeYNct/aEXlbyCB9jvopJYgmGXNb0CB9j3sqZYkrAL63S8RuAAh1xYD7u1g47X
CBrgmFs7xBKF3FykLfsI5S0gDQMcc3PRI0tY9V5YDrCHygGOvb1NLGnVDZbUdKTKAY6/wVIs8exbfHUD
ZE8/P7zEvHssc4uvWPK8yZyCc1gB+TOHVlZI/tCmlQqaCqOC1yRseILBWipsKpAKX4PQ4QkGW1iB+XPX
VlaoPp3zB9etrOj8yX8EayL/6UQra0gvaw2y5zNSaytHl5crwWBv1mD+450o1rhOffJfPz1XGEx+GEx+
GEx+GEx+GEx+GEx+GEx+GEx+GExem5P/BhegvGcbWY4AAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBoxPM.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAGsAAABQCAYAAAAeAotiAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAACxIAAAsSAdLdfvwAAATQSURBVHhe7Z1fahRBEMZzhBwhT/4JMcYb5AgeIUfIDcwR
coQcIU8iIrL4ICIiQUQQQYIivghGBBFBxvo26a1OW7M7M12z29VbDz9CzXZPpr6P7p6pmZ3daJrGMYK4
0SkTDj492CeOnE7sxyIuCw4uD6JxOnEUi7gsOHCz+uBmGcLNMkSRZk0IbF9noEGqS5FmreSgiqIgXThw
s2TcrPJ4//DGJnGfOCImxDnRzAGfox3ao9+mtF9NOFhDs0jgLeKQOCMkQ/qC/WB/W9L/y4WDNTKLxNwn
TglJcC2wf9VKBwdrYBaJt0dg6pLEHQv8vz3pePrCQcVmkVhYj46vxFsV+P9Z6xoHlZpFAmHKW3SysCxw
HIOnRg4qNIuEwWIvibZqDqXjXQQHlZlFgpwkApXGiXTc8+CgIrMgRCJMqfQyjINKzIIAiSCl09kwDiow
ixJf9RnfUI6lfFI4MG4WJXyQCGCNAymvGA4Mm0WJomx0ESWezYdHN5uvz7abn692m99nd5vm3b3pX8TY
js+lfhng+OeWqTiwbZZqVeLLZLv5+3ZvalAb+BztpP4ZTKT8AhwYNYsSVJ3+vr/YEc1pA+2l/WTQOh1y
YNAsSgxlJLXpD9NbbARGz7fnO83np7enn+Mv4nTUoV+6rwyQj1iW4sCmWbiXJCXcG6xBsQlYn9rWJWwP
6xhAP+U1TNSdA2NmUUKqowojpo/4qbnoL7UbiDi6OLBnlupaFY+UrtNaPG2iv9Qmg//WLg7smaV1d3dK
EB10ndLQLu4ntcngLM2ZA0NmUSK4rpISHMxQ0Yf268i16y4WwZZZ6rc+hoo+tF9Hrt1KYRFsmaX+/MSf
N3yy0PViF+1CH/SX2mRyGufNItgyS+0sMPDj5Z2Z8L9e74ptUtAu9EF/qU0mF3HeLIIRsygB9fUKnD+5
NRO+i/ixuQD9pXYKzNYtFsKOWXimQkoqm7TUhJGTmoA4HlFghJJTzOyZDRbCjllqVYsUnIrH11sBXPzC
oPgiODCv0qHEzAMWws2aAuHTKa4NtBvZKOBmLQJFW9y7kkzC9lDcXQKmzVr6rXusUzBnxJOIebhZhjBt
1lKmwYJwswzhZi0CpSRcP6XXVIixfYTnL9owbdZoF8UAJsR1wnmg3RJMM31RPEq5qc/1VcrI11t2y02A
ElAt5EJoqXIBEzByPj6+NAJ/EUumjlTJsF3IBZSE6i2SVHysS8GgNvB5up5hP1LbDKq4RaJ28xEjJUfw
1GjlNayKm49q61Z8MoGRIrVZRDzClG9C2r+tDyiR7Adm4lGFivqiqa8N9Isr8kqjq44HZgAlk/0oWjyF
5a43mvu6oqpH0bIf8oynwNwqOvqHfSlMhXU95AkooaxqRhAXSJ/3RXF/ou4c2DQra3ThxCAgfd4Xpf2J
owpwYNAsQIlZ/8ZjSp1f+QlQgst+xc9Y1P1lOkBJqn9NdQXg+Ov/miqgRP0L4HHj0qGE/dUKlqDE/aUl
loAAiSClst6vAwpAiESY0vAXbcWQIP4KO0uQMP5ySEuQQP7aVWuQWP5CY2uQeP6qcGuQmChT4STEX8Jv
CRIY65r/vIVpCtKFAzdLxpBZ/mNnhn7szJFxswzhZhnCzTLEys3yn2vvjmploiviRqdMxI1OiTQb/wD3
tLySDvrOrwAAAABJRU5ErkJggg==
iVBORw0KGgoAAAANSUhEUgAAAGsAAABQCAYAAAAeAotiAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
EgAACxIB0t1+/AAABNBJREFUeF7tnV9qFEEQxnOEHCFP/gkxxhvkCB4hR8gNzBFyhBwhTyIisvggIiJB
RBBBgiK+CEYEEUHG+jbprU5bszszXbPb1VsPP0LNdk+mvo/unqmZnd1omsYxgrjRKRMOPj3YJ46cTuzH
Ii4LDi4PonE6cRSLuCw4cLP64GYZws0yRJFmTQhsX2egQapLkWat5KCKoiBdOHCzZNys8nj/8MYmcZ84
IibEOdHMAZ+jHdqj36a0X004WEOzSOAt4pA4IyRD+oL9YH9b0v/LhYM1MovE3CdOCUlwLbB/1UoHB2tg
Fom3R2DqksQdC/y/Pel4+sJBxWaRWFiPjq/EWxX4/1nrGgeVmkUCYcpbdLKwLHAcg6dGDio0i4TBYi+J
tmoOpeNdBAeVmUWCnCQClcaJdNzz4KAisyBEIkyp9DKMg0rMggCJIKXT2TAOKjCLEl/1Gd9QjqV8Ujgw
bhYlfJAIYI0DKa8YDgybRYmibHQRJZ7Nh0c3m6/Ptpufr3ab32d3m+bdvelfxNiOz6V+GeD455apOLBt
lmpV4stku/n7dm9qUBv4HO2k/hlMpPwCHBg1ixJUnf6+v9gRzWkD7aX9ZNA6HXJg0CxKDGUktekP01ts
BEbPt+c7zeent6ef4y/idNShX7qvDJCPWJbiwKZZuJckJdwbrEGxCVif2tYlbA/rGEA/5TVM1J0DY2ZR
QqqjCiOmj/ipuegvtRuIOLo4sGeW6loVj5Su01o8baK/1CaD/9YuDuyZpXV3d0oQHXSd0tAu7ie1yeAs
zZkDQ2ZRIriukhIczFDRh/bryLXrLhbBllnqtz6Gij60X0eu3UphEWyZpf78xJ83fLLQ9WIX7UIf9Jfa
ZHIa580i2DJL7Sww8OPlnZnwv17vim1S0C70QX+pTSYXcd4sghGzKAH19QqcP7k1E76L+LG5AP2ldgrM
1i0Wwo5ZeKZCSiqbtNSEkZOagDgeUWCEklPM7JkNFsKOWWpVixScisfXWwFc/MKg+CI4MK/SocTMAxbC
zZoC4dMprg20G9ko4GYtAkVb3LuSTML2UNxdAqbNWvqte6xTMGfEk4h5uFmGMG3WUqbBgnCzDOFmLQKl
JFw/pddUiLF9hOcv2jBt1mgXxQAmxHXCeaDdEkwzfVE8Srmpz/VVysjXW3bLTYASUC3kQmipcgETMHI+
Pr40An8RS6aOVMmwXcgFlITqLZJUfKxLwaA28Hm6nmE/UtsMqrhFonbzESMlR/DUaOU1rIqbj2rrVnwy
gZEitVlEPMKUb0Lav60PKJHsB2biUYWK+qKprw30iyvySqOrjgdmACWT/ShaPIXlrjea+7qiqkfRsh/y
jKfA3Co6+od9KUyFdT3kCSihrGpGEBdIn/dFcX+i7hzYNCtrdOHEICB93hel/YmjCnBg0CxAiVn/xmNK
nV/5CVCCy37Fz1jU/WU6QEmqf011BeD46/+aKqBE/QvgcePSoYT91QqWoMT9pSWWgACJIKWy3q8DCkCI
RJjS8BdtxZAg/go7S5Aw/nJIS5BA/tpVa5BY/kJja5B4/qpwa5CYKFPhJMRfwm8JEhjrmv+8hWkK0oUD
N0vGkFn+Y2eGfuzMkXGzDOFmGcLNMsTKzfKfa++OamWiK+JGp0zEjU6JNBv/APe0vJIO+s6vAAAAAElF
TkSuQmCC
</value>
</data>
<data name="PictureBoxSearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAGsAAABQCAYAAAAeAotiAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAACxIAAAsSAdLdfvwAAASySURBVHhe7Z1/atRAFMd7hB7Bv6y2tdYb9Ag9gkfoDdwj
9Ag9gn+JiMgiUkREFhFBBCmKCFJQEUQEie+7Mnmz6Ut2kswm8ybvj88fLzub5n2/nR+ZmWS3iqIwlCAe
NNKEg4/3joiZEcSRL+JQcPD/IgojiJkv4lBwYGa1wcxShJmliCTNmhM4PmWgQVWXJM0a5aKSIiFdODCz
ZMys9Hj34Po2cUzMiDlxQRQN4HOUOyXuEtek88aEgwmaRQLDoBMCokuGtGVB4HwbMY6DCZkFMYkzQhI8
FvgHiDrTwcEEzCLxhjCpSjTTOMjcLBIMfZEk5lDcJ7alawuFg0zNIoEOCfQlkoBD8504lq4zBA4yNIuE
wSgNAknCjcmpdL3r4CAzs0iQsZu9dZxJ190EBxmZBSEqwqQKmufgfoyDTMyi5LUY5ZhLeUhwkIFZlDj6
KEmQ1AlqEjlQbhYlfFQRQBsnUl4+HCg2ixLFtFGKo762HEr5OTjQbRZuOKXktbGQ8nNwoNQsSlB781el
VnMO9Jq1bikjiM/z3eLb8/3i16uDFS7P94uLxzfE72wINOfirD0HCs2ipHqP/r483S3+vKau4u2dRmDc
gKaJo0MOdJrVuVa9f7hT/Hx5IBrTxNdne+L5NsCVm2UOlJlFyWBVV0oyiN+L2ysm/H1zWPx4cWvZHH56
cnMJjEGN8ssBNI3SOSNzRXsO9JnVeQSIvskXHzUMNU0qC2Bc1VyYKpWNyEU1Zw4UmUWJ4L5KSnAtEN4X
HbVJKlcFZvqGoZ9rMjgSK/ddLIIuszo3gX4/hSZOKlPHh0c7y+bSfR+DE6lcRFaWUlgEXWZ1mqxFTXBC
A9QyqVwT6K/c99ua3YGVm2QWQZdZnVZ+/SYQzZhUZh2oXe4cQCoTmXJUyCLoMktKai1+rQjtqyT8pnCA
e69ysw2LoMQsXHwlmWB8s/oMv/3hfJemtCXlbDwLMTGzFNWs0gMWQo9ZnfdWKO2zyqknFmICZikcDYJy
2Z+FmIBZQNl9FpiuWX5TCBKfwQDTNQu0nRvEIKI6Nzjg7Pu0zarWEiDNuqOZq1tGQfnL871lHwY2OCpU
PcCIsowPw+qM6ApqrPS3elJ6wEJMzCxHm5ViV9ukzx197t9q0HtTDISEehO6BwM1UjLJJ7JheqebACUw
2iM81dFkHRENUz+RO9p+9pCa5YhgWBZLJL32X/QFJkjmSPQ0LIvFx87L+jGQhv5NoN+TzhMAjXw4bxZB
kVmAEhl1y3Rbw1BeOk8DeWyYAZTMqE0haGMYBibSORq4oj0HyswClFCUrdN9CDWsg1n5bPIElFASD8+F
GNayGcxv+zSgxEavXaDJsJYDjDwfTACUWDKP/MAwzIK4NS+Y12Hnbq3mHCg1C1CC9jDd8phXOFUoSXtM
dXnMK5wylGgyzWFHpvEAuIMStlcraAKJV4RInWm+tMRBAtjrgDRBIvTeq7Fhgpo+Hw4yMwuQIPYKO02Q
MPZySG2QSGM3i/ba1TaQWPZCY22QePaqcG2QmPYSfo2QwDDOft5CNQnpwoGZJaPILPuxM0U/dmbImFmK
MLMUYWYpYnSz7Ofaw4k6MxGKeNBIE/GgkSLF1j9I9dPGGKWHXgAAAABJRU5ErkJggg==
iVBORw0KGgoAAAANSUhEUgAAAGsAAABQCAYAAAAeAotiAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAL
EgAACxIB0t1+/AAABLJJREFUeF7tnX9q1EAUx3uEHsG/rLa11hv0CD2CR+gN3CP0CD2Cf4mIyCJSREQW
EUEEKYoIUlARRASJ77syebPpS3aSzCbzJu+Pzx8vO5vmfb+dH5mZZLeKojCUIB400oSDj/eOiJkRxJEv
4lBw8P8iCiOImS/iUHBgZrXBzFKEmaWIJM2aEzg+ZaBBVZckzRrlopIiIV04MLNkzKz0ePfg+jZxTMyI
OXFBFA3gc5Q7Je4S16TzxoSDCZpFAsOgEwKiS4a0ZUHgfBsxjoMJmQUxiTNCEjwW+AeIOtPBwQTMIvGG
MKlKNNM4yNwsEgx9kSTmUNwntqVrC4WDTM0igQ4J9CWSgEPznTiWrjMEDjI0i4TBKA0CScKNyal0vevg
IDOzSJCxm711nEnX3QQHGZkFISrCpAqa5+B+jINMzKLktRjlmEt5SHCQgVmUOPooSZDUCWoSOVBuFiV8
VBFAGydSXj4cKDaLEsW0UYqjvrYcSvk5ONBtFm44peS1sZDyc3Cg1CxKUHvzV6VWcw70mrVuKSOIz/Pd
4tvz/eLXq4MVLs/3i4vHN8TvbAg05+KsPQcKzaKkeo/+vjzdLf68pq7i7Z1GYNyApomjQw50mtW5Vr1/
uFP8fHkgGtPE12d74vk2wJWbZQ6UmUXJYFVXSjKI34vbKyb8fXNY/Hhxa9kcfnpycwmMQY3yywE0jdI5
I3NFew70mdV5BIi+yRcfNQw1TSoLYFzVXJgqlY3IRTVnDhSZRYngvkpKcC0Q3hcdtUkqVwVm+oahn2sy
OBIr910sgi6zOjeBfj+FJk4qU8eHRzvL5tJ9H4MTqVxEVpZSWARdZnWarEVNcEID1DKpXBPor9z325rd
gZWbZBZBl1mdVn79JhDNmFRmHahd7hxAKhOZclTIIugyS0pqLX6tCO2rJPymcIB7r3KzDYugxCxcfCWZ
YHyz+gy//eF8l6a0JeVsPAsxMbMU1azSAxZCj1md91Yo7bPKqScWYgJmKRwNgnLZn4WYgFlA2X0WmK5Z
flMIEp/BANM1C7SdG8Qgojo3OODs+7TNqtYSIM26o5mrW0ZB+cvzvWUfBjY4KlQ9wIiyjA/D6ozoCmqs
9Ld6UnrAQkzMLEeblWJX26TPHX3u32rQe1MMhIR6E7oHAzVSMsknsmF6p5sAJTDaIzzV0WQdEQ1TP5E7
2n72kJrliGBYFkskvfZf9AUmSOZI9DQsi8XHzsv6MZCG/k2g35POEwCNfDhvFkGRWYASGXXLdFvDUF46
TwN5bJgBlMyoTSFoYxgGJtI5GriiPQfKzAKUUJSt030INayDWfls8gSUUBIPz4UY1rIZzG/7NKDERq9d
oMmwlgOMPB9MAJRYMo/8wDDMgrg1L5jXYedureYcKDULUIL2MN3ymFc4VShJe0x1ecwrnDKUaDLNYUem
8QC4gxK2VytoAolXhEidab60xEEC2OuANEEi9N6rsWGCmj4fDjIzC5Ag9go7TZAw9nJIbZBIYzeL9trV
NpBY9kJjbZB49qpwbZCY9hJ+jZDAMM5+3kI1CenCgZklo8gs+7EzRT92ZsiYWYowsxRhZilidLPs59rD
iTozEYp40EgT8aCRIsXWP0j108YYpYdeAAAAAElFTkSuQmCC
</value>
</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>

View File

@ -143,8 +143,12 @@ Public Class frmFlowForm
End Sub
Private Sub PictureBoxSearch_Click(sender As Object, e As EventArgs) Handles PictureBoxSearch.Click
Cursor = Cursors.WaitCursor
Dim oForm As New frmSearchStart(DTIDB_SEARCHES)
oForm.Show()
Dim oForm2 As New frmPreSearch()
oForm2.Show()
Cursor = Cursors.Default
End Sub
Private Sub PictureBoxSearch_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseEnter
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
frmAdministrationZooFlow.Show()
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

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

View File

@ -187,6 +187,26 @@
NCwyOS41LDE5Ljd6IE04LDI2Yy0yLjIsMC00LTEuOC00LTRzMS44LTQsNC00ICBzNCwxLjgsNCw0UzEw
LjIsMjYsOCwyNnogTTI0LDI2Yy0yLjIsMC00LTEuOC00LTRzMS44LTQsNC00czQsMS44LDQsNFMyNi4y
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>
</data>
<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 oYPositionControl As Integer
Dim oYPositionLabel As Integer
Dim oMyLastGridView As DevExpress.XtraGrid.Views.Grid.GridView
Dim oSingleResult As Boolean = False
Dim oAttriTitle As String = oAttributeRow.Item("ATTRIBUTE_TITLE").ToString
Dim oAttriID As Integer = CInt(oAttributeRow.Item("ATTRIBUTE_ID"))
@ -235,9 +235,6 @@ Public Class frmSearchStart
If oCalcHeight > YActControlHeight Then
YActControlHeight = oCalcHeight
End If
Dim oMyControl As Control
If oAttriTYPE = "VARCHAR" Or oAttriTYPE = "BIG INTEGER" Then
oMyControl = oControls.CreateExistingGridControl(oAttributeRow, oXPosition, oYPositionControl)
@ -253,7 +250,14 @@ Public Class frmSearchStart
Dim oView As DevExpress.XtraGrid.Views.Grid.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
oMyControl = oControls.CreateExistingDatepicker(oAttributeRow, oXPosition, oYPositionControl)
@ -267,6 +271,10 @@ Public Class frmSearchStart
oControlCount += 1
TabSelected.Controls.Add(oMyControl)
If oAttriTYPE = "VARCHAR" Or oAttriTYPE = "BIG INTEGER" Then
oMyLastGridView.FocusInvalidRow()
End If
oXPosition += oControlWidth + 20
Next
@ -307,6 +315,40 @@ Public Class frmSearchStart
Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged
TabSelected = XtraTabControl1.SelectedTabPage
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)
If DataLoaded = False Then Exit Sub
Dim oCurrentView As GridView = DirectCast(sender, GridView)
@ -318,6 +360,7 @@ Public Class frmSearchStart
Dim oResult As String = CType(rowView.Item(0), String)
Dim oAttrID = DirectCast(oCurrentControl.Tag, ClassControlCreator.ControlMetadata).AttrID
Dim oAttrTitle = DirectCast(oCurrentControl.Tag, ClassControlCreator.ControlMetadata).AttrTitle
RenewSearchAttributes()
AddSearchAttribute(oAttrID, oAttrTitle, oResult)
'For Each oAttributeRow1 As DataRow In oDTAttributes.Rows
' 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
Try
'Clear_token()
ClearSearchCriteria()
DTSearchTerms.Clear()
Catch ex As Exception
MsgBox("Unexpected Error in Clearing Search Items: " & ex.Message, MsgBoxStyle.Critical)
End Try
TabSelected.Controls.Clear()
Load_Search_Attributes()
End Sub
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.UIConfigManager.Save()
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
Dim oSEARCH_SQL = SEARCH_SQL
Dim oOperator As String
@ -721,40 +799,5 @@ Public Class frmSearchStart
Catch ex As Exception
End Try
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