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
Show Stats 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>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\DataSources\frmWD_Resultlist_Config.ResultListTypeSource.datasource" />
<None Include="My Project\Settings.Settings">
<Generator>SettingsSingleFileGenerator</Generator>
<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
'
Me.colNAME.Caption = "NAME"
Me.colNAME.FieldName = "colNAME"
Me.colNAME.FieldName = "NAME"
Me.colNAME.Name = "colNAME"
Me.colNAME.UnboundType = DevExpress.Data.UnboundColumnType.[String]
Me.colNAME.Visible = True
@ -445,13 +445,15 @@ Partial Class frmWD_Resultlist_Config
'
'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.Items.AddRange(New Object() {"1", "2", "3", "4"})
Me.TYPE_IDComboBox.Location = New System.Drawing.Point(123, 172)
Me.TYPE_IDComboBox.Name = "TYPE_IDComboBox"
Me.TYPE_IDComboBox.Size = New System.Drawing.Size(178, 21)
Me.TYPE_IDComboBox.TabIndex = 29
Me.TYPE_IDComboBox.ValueMember = "TYPE_ID"
'
'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">
<value>160, 56</value>
</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">
<value>17, 56</value>
</metadata>

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

@ -1,8 +1,8 @@
Public Class frmWD_Resultlist_Config
'Private Class ResultListType
' Public Name As String
' Public Id As Integer
' Public Property Name As String
' Public Property Id As Integer
' Public Sub New(Id As Integer, Name As String)
' Me.Name = Name
@ -24,7 +24,7 @@
'ResultListTypes.Add(New ResultListType(4, "DropDown"))
' 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
' Unwichtige Spalten ausblenden
grvwMain.Columns.Item("GUID").Visible = False
@ -74,4 +74,22 @@
End If
End If
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