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

jj 20.09 wd result list config

Browse Source
This commit is contained in:
JenneJ
2016-09-20 10:42:58 +02:00
parent 2760aada8c
commit 3265b3fd53
4 changed files with 27 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
app/DD-Record-Organiser/DD-Record-Organiser.vbproj
View File

@@ -1016,6 +1016,7 @@
<Generator>MyApplicationCodeGenerator</Generator> <Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput> <LastGenOutput>Application.Designer.vb</LastGenOutput>
</None> </None>
<None Include="My Project\DataSources\frmWD_Resultlist_Config.ResultListTypeSource.datasource" />
<None Include="My Project\Settings.Settings"> <None Include="My Project\Settings.Settings">
<Generator>SettingsSingleFileGenerator</Generator> <Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace> <CustomToolNamespace>My</CustomToolNamespace>

8
app/DD-Record-Organiser/frmWD_Resultlist_Config.Designer.vb generated
View File

@@ -376,7 +376,7 @@ Partial Class frmWD_Resultlist_Config
'colNAME 'colNAME
' '
Me.colNAME.Caption = "NAME" Me.colNAME.Caption = "NAME"
Me.colNAME.FieldName = "colNAME" Me.colNAME.FieldName = "NAME"
Me.colNAME.Name = "colNAME" Me.colNAME.Name = "colNAME"
Me.colNAME.UnboundType = DevExpress.Data.UnboundColumnType.[String] Me.colNAME.UnboundType = DevExpress.Data.UnboundColumnType.[String]
Me.colNAME.Visible = True Me.colNAME.Visible = True
@@ -445,13 +445,15 @@ Partial Class frmWD_Resultlist_Config
' '
'TYPE_IDComboBox 'TYPE_IDComboBox
' '
Me.TYPE_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "TYPE_ID", True)) Me.TYPE_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource, "TYPE_ID", True))
Me.TYPE_IDComboBox.DataSource = Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGBindingSource
Me.TYPE_IDComboBox.DisplayMember = "TYPE_ID"
Me.TYPE_IDComboBox.FormattingEnabled = True Me.TYPE_IDComboBox.FormattingEnabled = True
Me.TYPE_IDComboBox.Items.AddRange(New Object() {"1", "2", "3", "4"})
Me.TYPE_IDComboBox.Location = New System.Drawing.Point(123, 172) Me.TYPE_IDComboBox.Location = New System.Drawing.Point(123, 172)
Me.TYPE_IDComboBox.Name = "TYPE_IDComboBox" Me.TYPE_IDComboBox.Name = "TYPE_IDComboBox"
Me.TYPE_IDComboBox.Size = New System.Drawing.Size(178, 21) Me.TYPE_IDComboBox.Size = New System.Drawing.Size(178, 21)
Me.TYPE_IDComboBox.TabIndex = 29 Me.TYPE_IDComboBox.TabIndex = 29
Me.TYPE_IDComboBox.ValueMember = "TYPE_ID"
' '
'LANGUAGEComboBox 'LANGUAGEComboBox
' '

9
app/DD-Record-Organiser/frmWD_Resultlist_Config.resx
View File

@@ -159,15 +159,6 @@
<metadata name="TBWH_ENTITYBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBWH_ENTITYBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>160, 56</value> <value>160, 56</value>
</metadata> </metadata>
<metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="TBWH_ENTITYBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>160, 56</value>
</metadata>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value> <value>17, 56</value>
</metadata> </metadata>

24
app/DD-Record-Organiser/frmWD_Resultlist_Config.vb
View File

@@ -1,8 +1,8 @@
Public Class frmWD_Resultlist_Config Public Class frmWD_Resultlist_Config
'Private Class ResultListType 'Private Class ResultListType
' Public Name As String ' Public Property Name As String
' Public Id As Integer ' Public Property Id As Integer
' Public Sub New(Id As Integer, Name As String) ' Public Sub New(Id As Integer, Name As String)
' Me.Name = Name ' Me.Name = Name
@@ -24,7 +24,7 @@
'ResultListTypes.Add(New ResultListType(4, "DropDown")) 'ResultListTypes.Add(New ResultListType(4, "DropDown"))
' Gruppierung nach Entität und dann nach Sprache ' Gruppierung nach Entität und dann nach Sprache
grvwMain.Columns.Item("ENTITY_ID").GroupIndex = 0 grvwMain.Columns.Item("NAME").GroupIndex = 0
grvwMain.Columns.Item("LANGUAGE").GroupIndex = 1 grvwMain.Columns.Item("LANGUAGE").GroupIndex = 1
' Unwichtige Spalten ausblenden ' Unwichtige Spalten ausblenden
grvwMain.Columns.Item("GUID").Visible = False grvwMain.Columns.Item("GUID").Visible = False
@@ -74,4 +74,22 @@
End If End If
End If End If
End Sub End Sub
Private Sub TYPE_IDComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TYPE_IDComboBox.SelectedIndexChanged
Dim cmb As ComboBox = sender
Dim val = cmb.SelectedValue
Console.WriteLine(val)
End Sub
Private Sub TYPE_IDComboBox_TextUpdate(sender As Object, e As EventArgs) Handles TYPE_IDComboBox.TextUpdate
Dim cmb As ComboBox = sender
Dim val = cmb.SelectedValue
Console.WriteLine(val)
End Sub
Private Sub TYPE_IDComboBox_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles TYPE_IDComboBox.SelectionChangeCommitted
Dim cmb As ComboBox = sender
Dim val = cmb.SelectedValue
Console.WriteLine(val)
End Sub
End Class End Class