MS
This commit is contained in:
parent
abc4d664a0
commit
b8a3325c2f
@ -133,6 +133,12 @@
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DocumentResultList\Cache.vb" />
|
||||
<Compile Include="frmWorkflow_Adhoc_start.Designer.vb">
|
||||
<DependentUpon>frmWorkflow_Adhoc_start.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmWorkflow_Adhoc_start.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="GridBuilder.vb" />
|
||||
<Compile Include="IBaseForm.vb" />
|
||||
<Compile Include="IResultForm.vb" />
|
||||
@ -175,6 +181,9 @@
|
||||
<DependentUpon>frmDocumentResultList.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmWorkflow_Adhoc_start.resx">
|
||||
<DependentUpon>frmWorkflow_Adhoc_start.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
|
||||
@ -1,11 +1,12 @@
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemDateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
|
||||
235
GUIs.Common/frmWorkflow_Adhoc_start.Designer.vb
generated
Normal file
235
GUIs.Common/frmWorkflow_Adhoc_start.Designer.vb
generated
Normal file
@ -0,0 +1,235 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmWorkflow_Adhoc_start
|
||||
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(frmWorkflow_Adhoc_start))
|
||||
Dim ItemTemplateBase1 As DevExpress.XtraEditors.TableLayout.ItemTemplateBase = New DevExpress.XtraEditors.TableLayout.ItemTemplateBase()
|
||||
Dim TableColumnDefinition1 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
|
||||
Dim TableColumnDefinition2 As DevExpress.XtraEditors.TableLayout.TableColumnDefinition = New DevExpress.XtraEditors.TableLayout.TableColumnDefinition()
|
||||
Dim TemplatedItemElement1 As DevExpress.XtraEditors.TableLayout.TemplatedItemElement = New DevExpress.XtraEditors.TableLayout.TemplatedItemElement()
|
||||
Dim TemplatedItemElement2 As DevExpress.XtraEditors.TableLayout.TemplatedItemElement = New DevExpress.XtraEditors.TableLayout.TemplatedItemElement()
|
||||
Dim TableRowDefinition1 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
|
||||
Dim TableRowDefinition2 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
|
||||
Dim TableRowDefinition3 As DevExpress.XtraEditors.TableLayout.TableRowDefinition = New DevExpress.XtraEditors.TableLayout.TableRowDefinition()
|
||||
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.ComboBox1 = New System.Windows.Forms.ComboBox()
|
||||
Me.LabelControl3 = New DevExpress.XtraEditors.LabelControl()
|
||||
Me.LookUpEdit1 = New DevExpress.XtraEditors.LookUpEdit()
|
||||
Me.GroupControl1 = New DevExpress.XtraEditors.GroupControl()
|
||||
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
|
||||
Me.GroupControl2 = New DevExpress.XtraEditors.GroupControl()
|
||||
Me.ListBoxControl1 = New DevExpress.XtraEditors.ListBoxControl()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.GroupControl1.SuspendLayout()
|
||||
CType(Me.GroupControl2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.GroupControl2.SuspendLayout()
|
||||
CType(Me.ListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'RibbonControl1
|
||||
'
|
||||
Me.RibbonControl1.EmptyAreaImageOptions.ImagePadding = New System.Windows.Forms.Padding(35, 39, 35, 39)
|
||||
Me.RibbonControl1.ExpandCollapseItem.Id = 0
|
||||
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem})
|
||||
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.RibbonControl1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
|
||||
Me.RibbonControl1.MaxItemId = 1
|
||||
Me.RibbonControl1.Name = "RibbonControl1"
|
||||
Me.RibbonControl1.OptionsMenuMinWidth = 385
|
||||
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
|
||||
Me.RibbonControl1.Size = New System.Drawing.Size(933, 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 = "RibbonPage1"
|
||||
'
|
||||
'RibbonPageGroup1
|
||||
'
|
||||
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
|
||||
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
|
||||
'
|
||||
'RibbonPageGroup2
|
||||
'
|
||||
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
|
||||
Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
|
||||
'
|
||||
'RibbonStatusBar1
|
||||
'
|
||||
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 706)
|
||||
Me.RibbonStatusBar1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
|
||||
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
|
||||
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
|
||||
Me.RibbonStatusBar1.Size = New System.Drawing.Size(933, 24)
|
||||
'
|
||||
'RibbonPage2
|
||||
'
|
||||
Me.RibbonPage2.Name = "RibbonPage2"
|
||||
Me.RibbonPage2.Text = "RibbonPage2"
|
||||
'
|
||||
'ComboBox1
|
||||
'
|
||||
Me.ComboBox1.FormattingEnabled = True
|
||||
Me.ComboBox1.Location = New System.Drawing.Point(5, 27)
|
||||
Me.ComboBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
|
||||
Me.ComboBox1.Name = "ComboBox1"
|
||||
Me.ComboBox1.Size = New System.Drawing.Size(337, 21)
|
||||
Me.ComboBox1.TabIndex = 2
|
||||
'
|
||||
'LabelControl3
|
||||
'
|
||||
Me.LabelControl3.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.LabelControl3.Appearance.Options.UseFont = True
|
||||
Me.LabelControl3.Location = New System.Drawing.Point(526, 649)
|
||||
Me.LabelControl3.Name = "LabelControl3"
|
||||
Me.LabelControl3.Size = New System.Drawing.Size(81, 17)
|
||||
Me.LabelControl3.TabIndex = 7
|
||||
Me.LabelControl3.Text = "LabelControl3"
|
||||
'
|
||||
'LookUpEdit1
|
||||
'
|
||||
Me.LookUpEdit1.Location = New System.Drawing.Point(5, 30)
|
||||
Me.LookUpEdit1.MenuManager = Me.RibbonControl1
|
||||
Me.LookUpEdit1.Name = "LookUpEdit1"
|
||||
Me.LookUpEdit1.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.LookUpEdit1.Properties.Appearance.Options.UseFont = True
|
||||
Me.LookUpEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
|
||||
Me.LookUpEdit1.Size = New System.Drawing.Size(337, 24)
|
||||
Me.LookUpEdit1.TabIndex = 8
|
||||
'
|
||||
'GroupControl1
|
||||
'
|
||||
Me.GroupControl1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.GroupControl1.Controls.Add(Me.SimpleButton1)
|
||||
Me.GroupControl1.Controls.Add(Me.LookUpEdit1)
|
||||
Me.GroupControl1.Location = New System.Drawing.Point(12, 242)
|
||||
Me.GroupControl1.Name = "GroupControl1"
|
||||
Me.GroupControl1.Size = New System.Drawing.Size(909, 70)
|
||||
Me.GroupControl1.TabIndex = 10
|
||||
Me.GroupControl1.Text = "Benutzerauswahl"
|
||||
'
|
||||
'SimpleButton1
|
||||
'
|
||||
Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.SimpleButton1.Location = New System.Drawing.Point(348, 23)
|
||||
Me.SimpleButton1.Name = "SimpleButton1"
|
||||
Me.SimpleButton1.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light
|
||||
Me.SimpleButton1.Size = New System.Drawing.Size(108, 31)
|
||||
Me.SimpleButton1.TabIndex = 9
|
||||
Me.SimpleButton1.Text = "Hinzufügen"
|
||||
'
|
||||
'GroupControl2
|
||||
'
|
||||
Me.GroupControl2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.GroupControl2.Controls.Add(Me.ComboBox1)
|
||||
Me.GroupControl2.Location = New System.Drawing.Point(12, 173)
|
||||
Me.GroupControl2.Name = "GroupControl2"
|
||||
Me.GroupControl2.Size = New System.Drawing.Size(909, 63)
|
||||
Me.GroupControl2.TabIndex = 11
|
||||
Me.GroupControl2.Text = "Workflow-Layout Auswahl"
|
||||
'
|
||||
'ListBoxControl1
|
||||
'
|
||||
Me.ListBoxControl1.ItemHeight = 120
|
||||
Me.ListBoxControl1.Location = New System.Drawing.Point(17, 337)
|
||||
Me.ListBoxControl1.Name = "ListBoxControl1"
|
||||
Me.ListBoxControl1.Size = New System.Drawing.Size(561, 172)
|
||||
Me.ListBoxControl1.TabIndex = 12
|
||||
ItemTemplateBase1.Columns.Add(TableColumnDefinition1)
|
||||
ItemTemplateBase1.Columns.Add(TableColumnDefinition2)
|
||||
TemplatedItemElement1.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
TemplatedItemElement1.Appearance.Normal.Options.UseFont = True
|
||||
TemplatedItemElement1.FieldName = Nothing
|
||||
TemplatedItemElement1.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
|
||||
TemplatedItemElement1.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
|
||||
TemplatedItemElement1.Text = "element1"
|
||||
TemplatedItemElement1.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
|
||||
TemplatedItemElement2.FieldName = Nothing
|
||||
TemplatedItemElement2.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
|
||||
TemplatedItemElement2.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
|
||||
TemplatedItemElement2.RowIndex = 1
|
||||
TemplatedItemElement2.Text = "element2"
|
||||
TemplatedItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
|
||||
ItemTemplateBase1.Elements.Add(TemplatedItemElement1)
|
||||
ItemTemplateBase1.Elements.Add(TemplatedItemElement2)
|
||||
ItemTemplateBase1.Name = "template1"
|
||||
ItemTemplateBase1.Rows.Add(TableRowDefinition1)
|
||||
ItemTemplateBase1.Rows.Add(TableRowDefinition2)
|
||||
ItemTemplateBase1.Rows.Add(TableRowDefinition3)
|
||||
Me.ListBoxControl1.Templates.Add(ItemTemplateBase1)
|
||||
'
|
||||
'frmWorkflow_Adhoc_start
|
||||
'
|
||||
Me.Appearance.Options.UseFont = True
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(933, 730)
|
||||
Me.Controls.Add(Me.ListBoxControl1)
|
||||
Me.Controls.Add(Me.GroupControl2)
|
||||
Me.Controls.Add(Me.GroupControl1)
|
||||
Me.Controls.Add(Me.LabelControl3)
|
||||
Me.Controls.Add(Me.RibbonStatusBar1)
|
||||
Me.Controls.Add(Me.RibbonControl1)
|
||||
Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
|
||||
Me.Name = "frmWorkflow_Adhoc_start"
|
||||
Me.Ribbon = Me.RibbonControl1
|
||||
Me.StatusBar = Me.RibbonStatusBar1
|
||||
Me.Text = "Ad-hoc Workflow starten"
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.GroupControl1.ResumeLayout(False)
|
||||
CType(Me.GroupControl2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.GroupControl2.ResumeLayout(False)
|
||||
CType(Me.ListBoxControl1, 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 ComboBox1 As Windows.Forms.ComboBox
|
||||
Friend WithEvents LabelControl3 As DevExpress.XtraEditors.LabelControl
|
||||
Friend WithEvents LookUpEdit1 As DevExpress.XtraEditors.LookUpEdit
|
||||
Friend WithEvents GroupControl1 As DevExpress.XtraEditors.GroupControl
|
||||
Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
|
||||
Friend WithEvents GroupControl2 As DevExpress.XtraEditors.GroupControl
|
||||
Friend WithEvents ListBoxControl1 As DevExpress.XtraEditors.ListBoxControl
|
||||
End Class
|
||||
139
GUIs.Common/frmWorkflow_Adhoc_start.resx
Normal file
139
GUIs.Common/frmWorkflow_Adhoc_start.resx
Normal file
@ -0,0 +1,139 @@
|
||||
<?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.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||
<data name="SimpleButton1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
|
||||
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGICAAAC77u/
|
||||
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
|
||||
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
|
||||
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
|
||||
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
|
||||
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
|
||||
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
|
||||
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
|
||||
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZENpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0xNiw0
|
||||
QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHogTTI0
|
||||
LDE4aC02djZoLTR2LTZIOHYtNGg2VjhoNHY2aDZWMTh6IiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4N
|
||||
Cjwvc3ZnPgs=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
122
GUIs.Common/frmWorkflow_Adhoc_start.vb
Normal file
122
GUIs.Common/frmWorkflow_Adhoc_start.vb
Normal file
@ -0,0 +1,122 @@
|
||||
Imports DigitalData.Modules.ZooFlow
|
||||
Imports DigitalData.Modules.Logging
|
||||
Imports DigitalData.GUIs.Common.Base
|
||||
Imports DigitalData.Modules.ZooFlow.Constants
|
||||
Imports DigitalData.Modules.EDMI.API
|
||||
Imports DevExpress.XtraEditors
|
||||
Imports System.Drawing
|
||||
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
|
||||
|
||||
Public Class frmWorkflow_Adhoc_start
|
||||
Private ReadOnly Property LogConfig As LogConfig
|
||||
Private ReadOnly Property Logger As Logger
|
||||
Private Property OperationMode As OperationMode
|
||||
Private ReadOnly Environment As Environment
|
||||
Private Client As Client
|
||||
Private IsLoading As Boolean = True
|
||||
Public Sub New(pLogConfig As LogConfig, pEnvironment As Environment, pObjectID As Long)
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
LogConfig = pLogConfig
|
||||
Logger = pLogConfig.GetLogger()
|
||||
End Sub
|
||||
Private Function GetOperationMode() As OperationMode
|
||||
Dim oOperationMode As OperationMode
|
||||
|
||||
If Environment.Service.Client.IsOnline AndAlso Environment.Service.Address <> String.Empty Then
|
||||
oOperationMode = OperationMode.WithAppServer
|
||||
Else
|
||||
oOperationMode = OperationMode.NoAppServer
|
||||
End If
|
||||
|
||||
Return oOperationMode
|
||||
End Function
|
||||
Private Function InitAppServer() As Boolean
|
||||
Dim oServerAddress = Client.ParseServiceAddress(Environment.Service.Client.ServerAddress)
|
||||
Dim oAddress As String = oServerAddress.Item1
|
||||
Dim oPort As Integer = oServerAddress.Item2
|
||||
|
||||
Client = New Client(LogConfig, oAddress, oPort)
|
||||
|
||||
If Not Client.Connect() Then
|
||||
Logger.Warn("Client could not connect to Service at [{0}]", Environment.Service.Address)
|
||||
Return False
|
||||
End If
|
||||
|
||||
Return True
|
||||
End Function
|
||||
Private Sub frmWorkflow_Adhoc_start_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Try
|
||||
' Operation mode is either guessed from service settings
|
||||
' or explictly set from OperationModeOverride in Params
|
||||
OperationMode = GetOperationMode()
|
||||
If OperationMode = OperationMode.WithAppServer Or OperationMode = OperationMode.ZooFlow Then
|
||||
If InitAppServer() = False Then
|
||||
Me.Close()
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
' Initialize Viewer with GDPicture.NET License
|
||||
' Hide options relating to a filepath for zooflow
|
||||
If OperationMode = OperationMode.ZooFlow Then
|
||||
' RibbonPageGroupFilesystem.Visible = False
|
||||
End If
|
||||
|
||||
If OperationMode = OperationMode.NoAppServer Then
|
||||
' RibbonPageGroupCheckInOut.Visible = False
|
||||
' RibbonPageGroupWorkflow.Visible = False
|
||||
' RibbonPageGroupAttribute.Visible = False
|
||||
Else
|
||||
' RibbonPageGroupFilesystem.Visible = False
|
||||
End If
|
||||
Dim oDatatableUserselect As DataTable
|
||||
Dim oSQL = $"SELECT NAME + ', ' + PRENAME AS FULLNAME,EMAIL,USERNAME FROM TBDD_USER"
|
||||
Dim oResult As GetDatatableResponse = Nothing
|
||||
If OperationMode = OperationMode.ZooFlow Or OperationMode = OperationMode.WithAppServer Then
|
||||
oResult = Client.GetDatatableFromECM(oSQL)
|
||||
If oResult.OK = False Then
|
||||
Throw New ApplicationException(oResult.ErrorMessage)
|
||||
Else
|
||||
oDatatableUserselect = oResult.Table
|
||||
End If
|
||||
|
||||
Else
|
||||
oDatatableUserselect = Environment.Database.GetDatatable(oSQL)
|
||||
End If
|
||||
|
||||
If OperationMode = OperationMode.NoAppServer Then
|
||||
' panelContainerStatus.Visibility = Docking.DockVisibility.Hidden
|
||||
End If
|
||||
|
||||
' Hide the complete Navigation Ribbon Group if desired
|
||||
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Error while loading form:")
|
||||
|
||||
|
||||
Finally
|
||||
IsLoading = False
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
|
||||
ListBoxControl1.Items.Add(New ListItem() With {
|
||||
.Name = "Marlon Schreiber",
|
||||
.email = "m.schreiber@digitaldata.works"
|
||||
})
|
||||
ListBoxControl1.Items.Add(New ListItem() With {
|
||||
.Name = "Jonathan Jenne",
|
||||
.email = "j.jenner@digitaldata.works"
|
||||
})
|
||||
End Sub
|
||||
|
||||
Private Class ListItem
|
||||
Public Name As String
|
||||
Public email As String
|
||||
End Class
|
||||
End Class
|
||||
@ -295,7 +295,9 @@ Partial Class frmGlobix_Index
|
||||
'
|
||||
'SimpleButton1
|
||||
'
|
||||
Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.SimpleButton1.Appearance.BackColor = DevExpress.LookAndFeel.DXSkinColors.FillColors.Primary
|
||||
Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.SimpleButton1.Appearance.Options.UseBackColor = True
|
||||
Me.SimpleButton1.Appearance.Options.UseFont = True
|
||||
Me.SimpleButton1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SimpleButton1.ImageOptions.Location = DevExpress.XtraEditors.ImageLocation.MiddleRight
|
||||
|
||||
70
GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb
generated
70
GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb
generated
@ -58,8 +58,8 @@ Partial Class frmFlowSearch1
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.cmbLimitationDateAttr = New System.Windows.Forms.ComboBox()
|
||||
Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
|
||||
Me.txtSearchInput = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
|
||||
Me.TextEditSearch = New DevExpress.XtraEditors.TextEdit()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.DockPanel1.SuspendLayout()
|
||||
@ -81,7 +81,7 @@ Partial Class frmFlowSearch1
|
||||
CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtSearchInput.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextEditSearch.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'RibbonControl1
|
||||
@ -94,7 +94,7 @@ Partial Class frmFlowSearch1
|
||||
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(936, 89)
|
||||
Me.RibbonControl1.Size = New System.Drawing.Size(943, 89)
|
||||
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
|
||||
'
|
||||
'BarButtonStartSearch
|
||||
@ -170,10 +170,10 @@ Partial Class frmFlowSearch1
|
||||
'RibbonStatusBar1
|
||||
'
|
||||
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiStatus)
|
||||
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 745)
|
||||
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 515)
|
||||
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
|
||||
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
|
||||
Me.RibbonStatusBar1.Size = New System.Drawing.Size(936, 24)
|
||||
Me.RibbonStatusBar1.Size = New System.Drawing.Size(943, 24)
|
||||
'
|
||||
'RibbonPage2
|
||||
'
|
||||
@ -197,7 +197,7 @@ Partial Class frmFlowSearch1
|
||||
Me.DockPanel1.Location = New System.Drawing.Point(0, 89)
|
||||
Me.DockPanel1.Name = "DockPanel1"
|
||||
Me.DockPanel1.OriginalSize = New System.Drawing.Size(193, 200)
|
||||
Me.DockPanel1.Size = New System.Drawing.Size(193, 656)
|
||||
Me.DockPanel1.Size = New System.Drawing.Size(193, 426)
|
||||
Me.DockPanel1.Text = "Datum"
|
||||
'
|
||||
'DockPanel1_Container
|
||||
@ -207,7 +207,7 @@ Partial Class frmFlowSearch1
|
||||
Me.DockPanel1_Container.Controls.Add(Me.cmbLimitationDateAttr)
|
||||
Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 40)
|
||||
Me.DockPanel1_Container.Name = "DockPanel1_Container"
|
||||
Me.DockPanel1_Container.Size = New System.Drawing.Size(186, 613)
|
||||
Me.DockPanel1_Container.Size = New System.Drawing.Size(186, 383)
|
||||
Me.DockPanel1_Container.TabIndex = 0
|
||||
'
|
||||
'XtraTabControl1
|
||||
@ -220,7 +220,7 @@ Partial Class frmFlowSearch1
|
||||
Me.XtraTabControl1.Name = "XtraTabControl1"
|
||||
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
|
||||
Me.XtraTabControl1.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.XtraTabControl1.Size = New System.Drawing.Size(171, 552)
|
||||
Me.XtraTabControl1.Size = New System.Drawing.Size(171, 322)
|
||||
Me.XtraTabControl1.TabIndex = 10
|
||||
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
|
||||
'
|
||||
@ -241,13 +241,13 @@ Partial Class frmFlowSearch1
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYear_Last)
|
||||
Me.XtraTabPage1.Controls.Add(Me.ToggleSwitchYear)
|
||||
Me.XtraTabPage1.Name = "XtraTabPage1"
|
||||
Me.XtraTabPage1.Size = New System.Drawing.Size(169, 527)
|
||||
Me.XtraTabPage1.Size = New System.Drawing.Size(169, 297)
|
||||
Me.XtraTabPage1.Text = "Standard"
|
||||
'
|
||||
'DateEditTill
|
||||
'
|
||||
Me.DateEditTill.EditValue = Nothing
|
||||
Me.DateEditTill.Location = New System.Drawing.Point(3, 281)
|
||||
Me.DateEditTill.Location = New System.Drawing.Point(3, 260)
|
||||
Me.DateEditTill.MenuManager = Me.RibbonControl1
|
||||
Me.DateEditTill.Name = "DateEditTill"
|
||||
Me.DateEditTill.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
|
||||
@ -267,7 +267,7 @@ Partial Class frmFlowSearch1
|
||||
'
|
||||
'ToggleSwitchDateto
|
||||
'
|
||||
Me.ToggleSwitchDateto.Location = New System.Drawing.Point(3, 256)
|
||||
Me.ToggleSwitchDateto.Location = New System.Drawing.Point(3, 235)
|
||||
Me.ToggleSwitchDateto.MenuManager = Me.RibbonControl1
|
||||
Me.ToggleSwitchDateto.Name = "ToggleSwitchDateto"
|
||||
Me.ToggleSwitchDateto.Properties.OffText = "Datum bis"
|
||||
@ -277,7 +277,7 @@ Partial Class frmFlowSearch1
|
||||
'
|
||||
'lblDatefrom
|
||||
'
|
||||
Me.lblDatefrom.Location = New System.Drawing.Point(3, 211)
|
||||
Me.lblDatefrom.Location = New System.Drawing.Point(2, 190)
|
||||
Me.lblDatefrom.Name = "lblDatefrom"
|
||||
Me.lblDatefrom.Size = New System.Drawing.Size(34, 13)
|
||||
Me.lblDatefrom.TabIndex = 3
|
||||
@ -286,7 +286,7 @@ Partial Class frmFlowSearch1
|
||||
'DateEditFrom
|
||||
'
|
||||
Me.DateEditFrom.EditValue = Nothing
|
||||
Me.DateEditFrom.Location = New System.Drawing.Point(3, 230)
|
||||
Me.DateEditFrom.Location = New System.Drawing.Point(3, 209)
|
||||
Me.DateEditFrom.MenuManager = Me.RibbonControl1
|
||||
Me.DateEditFrom.Name = "DateEditFrom"
|
||||
Me.DateEditFrom.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
|
||||
@ -370,7 +370,7 @@ Partial Class frmFlowSearch1
|
||||
'XtraTabPage2
|
||||
'
|
||||
Me.XtraTabPage2.Name = "XtraTabPage2"
|
||||
Me.XtraTabPage2.Size = New System.Drawing.Size(169, 527)
|
||||
Me.XtraTabPage2.Size = New System.Drawing.Size(169, 297)
|
||||
Me.XtraTabPage2.Text = "...tbd"
|
||||
'
|
||||
'Label1
|
||||
@ -392,11 +392,9 @@ Partial Class frmFlowSearch1
|
||||
'
|
||||
'PictureEdit1
|
||||
'
|
||||
Me.PictureEdit1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.PictureEdit1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.PictureEdit1.EditValue = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_CW_DevExpress
|
||||
Me.PictureEdit1.Location = New System.Drawing.Point(709, 537)
|
||||
Me.PictureEdit1.Location = New System.Drawing.Point(716, 307)
|
||||
Me.PictureEdit1.MenuManager = Me.RibbonControl1
|
||||
Me.PictureEdit1.Name = "PictureEdit1"
|
||||
Me.PictureEdit1.Properties.Appearance.BackColor = System.Drawing.SystemColors.Control
|
||||
@ -408,39 +406,35 @@ Partial Class frmFlowSearch1
|
||||
Me.PictureEdit1.Size = New System.Drawing.Size(215, 202)
|
||||
Me.PictureEdit1.TabIndex = 8
|
||||
'
|
||||
'txtSearchInput
|
||||
'
|
||||
Me.txtSearchInput.EditValue = ""
|
||||
Me.txtSearchInput.Location = New System.Drawing.Point(206, 95)
|
||||
Me.txtSearchInput.MenuManager = Me.RibbonControl1
|
||||
Me.txtSearchInput.Name = "txtSearchInput"
|
||||
Me.txtSearchInput.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI Semibold", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtSearchInput.Properties.Appearance.ForeColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(19, Byte), Integer))
|
||||
Me.txtSearchInput.Properties.Appearance.Options.UseFont = True
|
||||
Me.txtSearchInput.Properties.Appearance.Options.UseForeColor = True
|
||||
Me.txtSearchInput.Properties.NullText = "Suchbegriff eingeben"
|
||||
Me.txtSearchInput.Properties.Padding = New System.Windows.Forms.Padding(10)
|
||||
Me.txtSearchInput.Size = New System.Drawing.Size(673, 46)
|
||||
Me.txtSearchInput.TabIndex = 12
|
||||
'
|
||||
'SimpleButton1
|
||||
'
|
||||
Me.SimpleButton1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.SimpleButton1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.ZooFlow_CW_DevExpress
|
||||
Me.SimpleButton1.ImageOptions.SvgImageSize = New System.Drawing.Size(40, 40)
|
||||
Me.SimpleButton1.Location = New System.Drawing.Point(878, 95)
|
||||
Me.SimpleButton1.Location = New System.Drawing.Point(885, 95)
|
||||
Me.SimpleButton1.Name = "SimpleButton1"
|
||||
Me.SimpleButton1.Size = New System.Drawing.Size(46, 46)
|
||||
Me.SimpleButton1.TabIndex = 16
|
||||
'
|
||||
'TextEditSearch
|
||||
'
|
||||
Me.TextEditSearch.Location = New System.Drawing.Point(199, 95)
|
||||
Me.TextEditSearch.MenuManager = Me.RibbonControl1
|
||||
Me.TextEditSearch.Name = "TextEditSearch"
|
||||
Me.TextEditSearch.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 18.0!)
|
||||
Me.TextEditSearch.Properties.Appearance.Options.UseFont = True
|
||||
Me.TextEditSearch.Size = New System.Drawing.Size(680, 38)
|
||||
Me.TextEditSearch.TabIndex = 20
|
||||
'
|
||||
'frmFlowSearch1
|
||||
'
|
||||
Me.Appearance.BackColor = System.Drawing.SystemColors.Control
|
||||
Me.Appearance.Options.UseBackColor = True
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(936, 769)
|
||||
Me.ClientSize = New System.Drawing.Size(943, 539)
|
||||
Me.Controls.Add(Me.TextEditSearch)
|
||||
Me.Controls.Add(Me.SimpleButton1)
|
||||
Me.Controls.Add(Me.txtSearchInput)
|
||||
Me.Controls.Add(Me.PictureEdit1)
|
||||
Me.Controls.Add(Me.DockPanel1)
|
||||
Me.Controls.Add(Me.RibbonStatusBar1)
|
||||
@ -473,7 +467,7 @@ Partial Class frmFlowSearch1
|
||||
CType(Me.ToggleSwitchYear_Last.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchYear.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtSearchInput.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextEditSearch.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@ -513,6 +507,6 @@ Partial Class frmFlowSearch1
|
||||
Friend WithEvents DateEditTill As DevExpress.XtraEditors.DateEdit
|
||||
Friend WithEvents DateEditFrom As DevExpress.XtraEditors.DateEdit
|
||||
Friend WithEvents ToggleSwitchDateto As DevExpress.XtraEditors.ToggleSwitch
|
||||
Friend WithEvents txtSearchInput As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
|
||||
Friend WithEvents TextEditSearch As DevExpress.XtraEditors.TextEdit
|
||||
End Class
|
||||
|
||||
@ -125,7 +125,6 @@ Public Class frmFlowSearch1
|
||||
Else
|
||||
cmbLimitationDateAttr.Items.Add(IDB_ADDED_WHEN_String_Englisch)
|
||||
End If
|
||||
'Dim oDT As DataTable = My.DatabaseIDB.GetDatatable($"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE TYPE_ID IN (5,6) AND LANG_ID = {My.Application.User.LanguageId}")
|
||||
|
||||
For Each oRow As DataRow In My.Tables.DTIDB_ATTRIBUTE.Rows
|
||||
If CBool(oRow.Item("SYS_ATTRIBUTE")) = False And (oRow.Item("TYP_ID") = 5 Or oRow.Item("TYP_ID") = 6) Then
|
||||
@ -163,9 +162,9 @@ Public Class frmFlowSearch1
|
||||
collection.Add(orow.Item("TERM"))
|
||||
Next
|
||||
|
||||
txtSearchInput.MaskBox.AutoCompleteSource = AutoCompleteSource.CustomSource
|
||||
txtSearchInput.MaskBox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
|
||||
txtSearchInput.MaskBox.AutoCompleteCustomSource = collection
|
||||
TextEditSearch.MaskBox.AutoCompleteSource = AutoCompleteSource.CustomSource
|
||||
TextEditSearch.MaskBox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
|
||||
TextEditSearch.MaskBox.AutoCompleteCustomSource = collection
|
||||
|
||||
TogglesDate = New List(Of ToggleSwitch) From {
|
||||
ToggleSwitchTomorrow,
|
||||
@ -190,7 +189,7 @@ Public Class frmFlowSearch1
|
||||
Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
|
||||
|
||||
Try
|
||||
Dim oResult = Await SearchRunner.Run(txtSearchInput.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
|
||||
Dim oResult = Await SearchRunner.Run(TextEditSearch.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
|
||||
If oResult.OK = False Then
|
||||
bsiStatus.Caption = oResult.ErrorMessage
|
||||
End If
|
||||
@ -206,29 +205,8 @@ Public Class frmFlowSearch1
|
||||
|
||||
End Sub
|
||||
|
||||
Private Async Function txtSearchInput_KeyUp(sender As Object, e As KeyEventArgs) As Threading.Tasks.Task Handles txtSearchInput.KeyUp
|
||||
If e.KeyCode = Keys.Return Then
|
||||
If txtSearchInput.Text = String.Empty Then
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
|
||||
|
||||
Try
|
||||
Dim oResult = Await SearchRunner.Run(txtSearchInput.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
|
||||
If oResult.OK = False Then
|
||||
bsiStatus.Caption = oResult.ErrorMessage
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Finally
|
||||
SplashScreenManager.CloseOverlayForm(oHandle)
|
||||
End Try
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Sub BarButtonReset_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonReset.ItemClick
|
||||
txtSearchInput.Text = ""
|
||||
TextEditSearch.Text = ""
|
||||
ResetTogglesDate()
|
||||
ToggleSwitchDateto.IsOn = False
|
||||
SearchRunner.ExplicitDate = False
|
||||
@ -255,10 +233,13 @@ Public Class frmFlowSearch1
|
||||
End Sub
|
||||
|
||||
Private Async Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
|
||||
RunSearch()
|
||||
End Sub
|
||||
Private Async Sub RunSearch()
|
||||
Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
|
||||
|
||||
Try
|
||||
Dim oResult = Await SearchRunner.Run(txtSearchInput.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
|
||||
Dim oResult = Await SearchRunner.Run(TextEditSearch.Text, DateEditFrom.EditValue, DateEditTill.EditValue)
|
||||
If oResult.OK = False Then
|
||||
bsiStatus.Caption = oResult.ErrorMessage
|
||||
End If
|
||||
@ -268,4 +249,18 @@ Public Class frmFlowSearch1
|
||||
SplashScreenManager.CloseOverlayForm(oHandle)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub TextEditSearch_KeyUp(sender As Object, e As KeyEventArgs) Handles TextEditSearch.KeyUp
|
||||
If e.KeyCode = Keys.Return Then
|
||||
If TextEditSearch.Text = String.Empty Then
|
||||
Return
|
||||
End If
|
||||
|
||||
RunSearch()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PictureEdit1_Click(sender As Object, e As EventArgs) Handles PictureEdit1.Click
|
||||
RunSearch()
|
||||
End Sub
|
||||
End Class
|
||||
67
GUIs.ZooFlow/frmServiceConfig.Designer.vb
generated
67
GUIs.ZooFlow/frmServiceConfig.Designer.vb
generated
@ -28,32 +28,32 @@ Partial Class frmServiceConfig
|
||||
Me.btnOK = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.txtServicePort = New DevExpress.XtraEditors.SpinEdit()
|
||||
Me.txtStatus = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
|
||||
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
|
||||
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.txtStatus = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.txtServicePort = New DevExpress.XtraEditors.TextEdit()
|
||||
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.LayoutControl1.SuspendLayout()
|
||||
CType(Me.txtServiceAddress.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtStatus.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtStatus.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'LayoutControl1
|
||||
'
|
||||
Me.LayoutControl1.Controls.Add(Me.txtServiceAddress)
|
||||
Me.LayoutControl1.Controls.Add(Me.txtServicePort)
|
||||
Me.LayoutControl1.Controls.Add(Me.txtStatus)
|
||||
Me.LayoutControl1.Controls.Add(Me.txtServicePort)
|
||||
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.LayoutControl1.Location = New System.Drawing.Point(0, 63)
|
||||
Me.LayoutControl1.Name = "LayoutControl1"
|
||||
@ -105,16 +105,15 @@ Partial Class frmServiceConfig
|
||||
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
|
||||
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
|
||||
'
|
||||
'txtServicePort
|
||||
'txtStatus
|
||||
'
|
||||
Me.txtServicePort.EditValue = New Decimal(New Integer() {9000, 0, 0, 0})
|
||||
Me.txtServicePort.Location = New System.Drawing.Point(105, 70)
|
||||
Me.txtServicePort.MenuManager = Me.RibbonControl1
|
||||
Me.txtServicePort.Name = "txtServicePort"
|
||||
Me.txtServicePort.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
|
||||
Me.txtServicePort.Size = New System.Drawing.Size(485, 20)
|
||||
Me.txtServicePort.StyleController = Me.LayoutControl1
|
||||
Me.txtServicePort.TabIndex = 5
|
||||
Me.txtStatus.Location = New System.Drawing.Point(105, 100)
|
||||
Me.txtStatus.MenuManager = Me.RibbonControl1
|
||||
Me.txtStatus.Name = "txtStatus"
|
||||
Me.txtStatus.Properties.ReadOnly = True
|
||||
Me.txtStatus.Size = New System.Drawing.Size(485, 20)
|
||||
Me.txtStatus.StyleController = Me.LayoutControl1
|
||||
Me.txtStatus.TabIndex = 6
|
||||
'
|
||||
'Root
|
||||
'
|
||||
@ -153,21 +152,6 @@ Partial Class frmServiceConfig
|
||||
Me.EmptySpaceItem1.Size = New System.Drawing.Size(610, 72)
|
||||
Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
|
||||
'
|
||||
'RibbonPage2
|
||||
'
|
||||
Me.RibbonPage2.Name = "RibbonPage2"
|
||||
Me.RibbonPage2.Text = "RibbonPage2"
|
||||
'
|
||||
'txtStatus
|
||||
'
|
||||
Me.txtStatus.Location = New System.Drawing.Point(105, 100)
|
||||
Me.txtStatus.MenuManager = Me.RibbonControl1
|
||||
Me.txtStatus.Name = "txtStatus"
|
||||
Me.txtStatus.Properties.ReadOnly = True
|
||||
Me.txtStatus.Size = New System.Drawing.Size(485, 20)
|
||||
Me.txtStatus.StyleController = Me.LayoutControl1
|
||||
Me.txtStatus.TabIndex = 6
|
||||
'
|
||||
'LayoutControlItem3
|
||||
'
|
||||
Me.LayoutControlItem3.Control = Me.txtStatus
|
||||
@ -178,6 +162,23 @@ Partial Class frmServiceConfig
|
||||
Me.LayoutControlItem3.Text = "Status"
|
||||
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(53, 13)
|
||||
'
|
||||
'RibbonPage2
|
||||
'
|
||||
Me.RibbonPage2.Name = "RibbonPage2"
|
||||
Me.RibbonPage2.Text = "RibbonPage2"
|
||||
'
|
||||
'txtServicePort
|
||||
'
|
||||
Me.txtServicePort.EditValue = New Decimal(New Integer() {9000, 0, 0, 0})
|
||||
Me.txtServicePort.Location = New System.Drawing.Point(105, 70)
|
||||
Me.txtServicePort.MenuManager = Me.RibbonControl1
|
||||
Me.txtServicePort.Name = "txtServicePort"
|
||||
Me.txtServicePort.Properties.EditValueChangedFiringMode = DevExpress.XtraEditors.Controls.EditValueChangedFiringMode.Buffered
|
||||
Me.txtServicePort.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Numeric
|
||||
Me.txtServicePort.Size = New System.Drawing.Size(485, 20)
|
||||
Me.txtServicePort.StyleController = Me.LayoutControl1
|
||||
Me.txtServicePort.TabIndex = 5
|
||||
'
|
||||
'frmServiceConfig
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@ -192,13 +193,13 @@ Partial Class frmServiceConfig
|
||||
Me.LayoutControl1.ResumeLayout(False)
|
||||
CType(Me.txtServiceAddress.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtStatus.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtStatus.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtServicePort.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@ -212,10 +213,10 @@ Partial Class frmServiceConfig
|
||||
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents btnOK As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents txtServiceAddress As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents txtServicePort As DevExpress.XtraEditors.SpinEdit
|
||||
Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
|
||||
Friend WithEvents txtStatus As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents txtServicePort As DevExpress.XtraEditors.TextEdit
|
||||
End Class
|
||||
|
||||
@ -19,11 +19,13 @@ Public Class frmServiceConfig
|
||||
txtServiceAddress.Text = oAddress.Item1
|
||||
txtServicePort.Text = oAddress.Item2
|
||||
End If
|
||||
|
||||
If My.Application.Service.Client.IsOnline Then
|
||||
txtStatus.Text = STATUS_CONNECTED
|
||||
If Not IsNothing(My.Application.Service.Client) Then
|
||||
If My.Application.Service.Client.IsOnline Then
|
||||
txtStatus.Text = STATUS_CONNECTED
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
txtServiceAddress.Focus()
|
||||
End Sub
|
||||
|
||||
|
||||
12
GUIs.ZooFlow/frmtest.Designer.vb
generated
12
GUIs.ZooFlow/frmtest.Designer.vb
generated
@ -38,6 +38,7 @@ Partial Class frmtest
|
||||
Me.txtIDB_OBJ_ID = New System.Windows.Forms.TextBox()
|
||||
Me.txtDoctypeID = New System.Windows.Forms.TextBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label2
|
||||
@ -172,11 +173,21 @@ Partial Class frmtest
|
||||
Me.Label3.TabIndex = 23
|
||||
Me.Label3.Text = "DoctypeID"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(12, 191)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(154, 23)
|
||||
Me.Button1.TabIndex = 24
|
||||
Me.Button1.Text = "AdhocWorkflow"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmtest
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(865, 450)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.txtDoctypeID)
|
||||
Me.Controls.Add(Me.txtProfileId)
|
||||
@ -214,4 +225,5 @@ Partial Class frmtest
|
||||
Friend WithEvents txtProfileId As TextBox
|
||||
Friend WithEvents txtDoctypeID As TextBox
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents Button1 As Button
|
||||
End Class
|
||||
|
||||
@ -1,9 +1,14 @@
|
||||
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
|
||||
Imports DigitalData.Modules.Base.IDB.FileStore
|
||||
Imports DigitalData.GUIs.Common
|
||||
Imports DigitalData.Modules.ZooFlow
|
||||
|
||||
Public Class frmtest
|
||||
Private Property Environment As Environment
|
||||
|
||||
Private Sub frmtest_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
cmbObjectStoreType.SelectedIndex = 0
|
||||
Environment = My.Application.GetEnvironment()
|
||||
End Sub
|
||||
|
||||
Private Sub btnOpenFile_Click(sender As Object, e As EventArgs) Handles btnOpenFile.Click
|
||||
@ -66,4 +71,11 @@ Public Class frmtest
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Dim oForm As New frmWorkflow_Adhoc_start(My.LogConfig, Environment, 4711)
|
||||
oForm.Show()
|
||||
oForm.BringToFront()
|
||||
oForm.Focus()
|
||||
End Sub
|
||||
End Class
|
||||
Loading…
x
Reference in New Issue
Block a user