jj_04_01_16
This commit is contained in:
JenneJ
parent
b5e082cd84
commit
245a276082
254
app/DD-Record-Organiser/ClassControlLoader.vb
Normal file
254
app/DD-Record-Organiser/ClassControlLoader.vb
Normal file
@ -0,0 +1,254 @@
|
||||
Namespace ControlLoader
|
||||
|
||||
Public Class _BaseControl
|
||||
End Class
|
||||
|
||||
Public Class _ListControl : Inherits _BaseControl
|
||||
Public Shared Function _GetDynamicValue(controlId As Integer, formId As Integer, recordId As Integer, parentRecordId As Integer) As DynamicValue
|
||||
Dim returnValue As DynamicValue
|
||||
|
||||
returnValue.StaticList = CheckForStaticList(controlId, recordId)
|
||||
returnValue.DataTable = CheckForSqlCommand(controlId, formId, recordId, parentRecordId)
|
||||
|
||||
Return returnValue
|
||||
End Function
|
||||
|
||||
Private Shared Function CheckForStaticList(controlId As Integer, recordId As Integer) As List(Of String)
|
||||
Try
|
||||
Dim SQL As String = String.Format("SELECT VALUE FROM VWPMO_VALUES WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", controlId, recordId)
|
||||
Dim staticList As String = ClassDatabase.Execute_Scalar(SQL)
|
||||
|
||||
If IsNothing(staticList) Then
|
||||
Return Nothing
|
||||
Else
|
||||
Return New List(Of String)(staticList.Split(";"))
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in CheckForStaticList: " & vbNewLine & ex.Message)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Shared Function CheckForSqlCommand(controlId As Integer, formId As Integer, recordId As Integer, parentRecordId As Integer) As DataTable
|
||||
Try
|
||||
Dim SQL As String = String.Format("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = {0}", controlId)
|
||||
Dim SqlCommand As String = ClassDatabase.Execute_Scalar(SQL)
|
||||
|
||||
If SqlCommand Is Nothing Or SqlCommand = String.Empty Then
|
||||
Return Nothing
|
||||
End If
|
||||
|
||||
If SqlCommand.Contains("@") Then
|
||||
SqlCommand = ReplaceSqlCommandPlaceholders(SqlCommand, recordId, parentRecordId)
|
||||
End If
|
||||
|
||||
Dim CachedDataTable As DataTable = ClassControlValueCache.LoadFromCache(formId, controlId)
|
||||
Dim FinalDataTable As DataTable
|
||||
If CachedDataTable Is Nothing Then
|
||||
FinalDataTable = ClassDatabase.Return_Datatable(SqlCommand)
|
||||
ClassControlValueCache.SaveToCache(formId, controlId, FinalDataTable)
|
||||
Else
|
||||
FinalDataTable = CachedDataTable
|
||||
End If
|
||||
|
||||
Return FinalDataTable
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in CheckForSqlCommand: " & vbNewLine & ex.Message)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Shared Function ReplaceSqlCommandPlaceholders(sqlCommand As String, recordId As Integer, parentRecordId As Integer)
|
||||
sqlCommand = sqlCommand.Replace("@RECORD_ID", recordId)
|
||||
sqlCommand = sqlCommand.Replace("@RECORDID", recordId)
|
||||
sqlCommand = sqlCommand.Replace("@PARENTRECORD_ID", parentRecordId)
|
||||
sqlCommand = sqlCommand.Replace("@PARENTRECORDID", parentRecordId)
|
||||
|
||||
Return sqlCommand
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Public Structure DynamicValue
|
||||
Public StaticList As List(Of String)
|
||||
Public DataTable As DataTable
|
||||
End Structure
|
||||
|
||||
Public Class Label : Inherits _BaseControl
|
||||
|
||||
Public Shared Sub LoadValue(control As Windows.Forms.Label, value As String)
|
||||
' TODO: LoadControlAutoValue aufrufen
|
||||
control.Text = value
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Public Class Checkbox : Inherits _BaseControl
|
||||
|
||||
Public Shared Sub LoadValue(control As Windows.Forms.CheckBox, value As String)
|
||||
Dim result As Boolean = False
|
||||
Boolean.TryParse(value, result)
|
||||
control.Checked = result
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Public Class RadioButton : Inherits _BaseControl
|
||||
|
||||
Public Shared Sub LoadValue(control As Windows.Forms.RadioButton, value As String)
|
||||
Dim result As Boolean = False
|
||||
Boolean.TryParse(value, result)
|
||||
control.Checked = result
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Public Class TextBox : Inherits _BaseControl
|
||||
|
||||
Public Shared Sub LoadValue(control As Windows.Forms.TextBox, value As String)
|
||||
control.Text = value
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Public Class DateTimePicker : Inherits _BaseControl
|
||||
|
||||
Public Shared Sub LoadValue(control As DevExpress.XtraEditors.DateEdit, value As String)
|
||||
If String.IsNullOrWhiteSpace(value) Or value = "00:00:00" Then
|
||||
control.DateTime = DateTime.MinValue
|
||||
Else
|
||||
control.DateTime = DateTime.Parse(value)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Public Class Combobox : Inherits _ListControl
|
||||
|
||||
Public Shared Sub LoadValue(control As Windows.Forms.ComboBox, value As String)
|
||||
control.Text = value
|
||||
End Sub
|
||||
|
||||
Public Shared Sub LoadList(control As Windows.Forms.ComboBox, formId As Integer, recordId As Integer, parentRecordId As Integer)
|
||||
Try
|
||||
Dim dynamic As DynamicValue = _GetDynamicValue(control.Tag, formId, recordId, parentRecordId)
|
||||
|
||||
If dynamic.StaticList IsNot Nothing Then
|
||||
control.DataSource = dynamic.StaticList
|
||||
End If
|
||||
|
||||
If dynamic.DataTable IsNot Nothing AndAlso dynamic.DataTable.Rows.Count > 0 Then
|
||||
Dim dt As DataTable = dynamic.DataTable
|
||||
|
||||
control.DataSource = dt
|
||||
If dt.Columns.Count = 1 Then
|
||||
control.DisplayMember = dt.Columns(0).ColumnName
|
||||
control.ValueMember = dt.Columns(0).ColumnName
|
||||
ElseIf dt.Columns.Count = 2 Then
|
||||
control.DisplayMember = dt.Columns(1).ColumnName
|
||||
control.ValueMember = dt.Columns(0).ColumnName
|
||||
End If
|
||||
|
||||
CalculateDropdownWidth(control, dt)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Combobox.LoadList:" & vbNewLine & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Shared Sub CalculateDropdownWidth(control As Windows.Forms.ComboBox, dt As DataTable)
|
||||
Const WIDEST_WIDTH As Integer = 300
|
||||
Dim FinalWidth As Integer = WIDEST_WIDTH
|
||||
For Each row As DataRow In dt.Rows
|
||||
'Die Breite der Dropdown-List anpassen
|
||||
Using g As Graphics = control.CreateGraphics()
|
||||
Dim valueWidth As Integer = g.MeasureString(row.Item(1).ToString(), control.Font).Width
|
||||
If valueWidth + 30 > FinalWidth Then
|
||||
FinalWidth = valueWidth + 30
|
||||
End If
|
||||
g.Dispose()
|
||||
End Using
|
||||
Next
|
||||
|
||||
If FinalWidth > WIDEST_WIDTH Then
|
||||
control.DropDownWidth = Math.Max(FinalWidth, control.Width)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Public Class CheckedListBox : Inherits _ListControl
|
||||
|
||||
Public Shared Sub LoadValue(control As DevExpress.XtraEditors.CheckedListBoxControl, value As String)
|
||||
|
||||
For Each item As String In control.Items
|
||||
|
||||
Dim pos = control.FindStringExact(value)
|
||||
control.SetItemCheckState(pos, CheckState.Checked)
|
||||
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Sub LoadList(control As DevExpress.XtraEditors.CheckedListBoxControl, formId As Integer, recordId As Integer, parentRecordId As Integer)
|
||||
Try
|
||||
Dim dynamic As DynamicValue = _GetDynamicValue(control.Tag, formId, recordId, parentRecordId)
|
||||
|
||||
If dynamic.StaticList IsNot Nothing Then
|
||||
control.DataSource = dynamic.StaticList
|
||||
|
||||
'For Each item As String In dynamic.StaticList
|
||||
' Dim pos = control.FindStringExact(item)
|
||||
' control.SetItemCheckState(pos, CheckState.Checked)
|
||||
'Next
|
||||
End If
|
||||
|
||||
If dynamic.DataTable IsNot Nothing AndAlso dynamic.DataTable.Rows.Count > 0 Then
|
||||
Dim dt As DataTable = dynamic.DataTable
|
||||
|
||||
control.DataSource = dt
|
||||
If dt.Columns.Count = 1 Then
|
||||
control.DisplayMember = dt.Columns(0).ColumnName
|
||||
control.ValueMember = dt.Columns(0).ColumnName
|
||||
ElseIf dt.Columns.Count = 2 Then
|
||||
control.DisplayMember = dt.Columns(1).ColumnName
|
||||
control.ValueMember = dt.Columns(0).ColumnName
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in CheckedListBox.LoadList:" & vbNewLine & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Public Class ListBox : Inherits _ListControl
|
||||
|
||||
Public Shared Sub LoadValue(control As DevExpress.XtraEditors.ListBoxControl, value As String)
|
||||
control.SelectedIndex = control.FindStringExact(value)
|
||||
End Sub
|
||||
|
||||
Public Shared Sub LoadList(control As DevExpress.XtraEditors.ListBoxControl, formId As Integer, recordId As Integer, parentRecordId As Integer)
|
||||
Dim dynamic As DynamicValue = _GetDynamicValue(control.Tag, formId, recordId, parentRecordId)
|
||||
|
||||
If dynamic.StaticList IsNot Nothing Then
|
||||
control.DataSource = dynamic.StaticList
|
||||
End If
|
||||
|
||||
If dynamic.DataTable IsNot Nothing AndAlso dynamic.DataTable.Rows.Count > 0 Then
|
||||
Dim dt As DataTable = dynamic.DataTable
|
||||
|
||||
control.DataSource = dt
|
||||
If dt.Columns.Count = 1 Then
|
||||
control.DisplayMember = dt.Columns(0).ColumnName
|
||||
control.ValueMember = dt.Columns(0).ColumnName
|
||||
ElseIf dt.Columns.Count = 2 Then
|
||||
control.DisplayMember = dt.Columns(1).ColumnName
|
||||
control.ValueMember = dt.Columns(0).ColumnName
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
End Namespace
|
||||
@ -142,103 +142,100 @@ Public Class ClassControlValues
|
||||
|
||||
#Region "#### ClassControlValues REWRITE ####"
|
||||
Public Shared Sub LoadControlValuesNeu(RecordId As Integer, FormId As Integer, controls As Control.ControlCollection)
|
||||
|
||||
ClearControlValues(controls)
|
||||
Try
|
||||
' Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE VALUE <> '' AND RECORD_ID = {0}", RecordId)
|
||||
' Dim DT_ControlValues As DataTable = ClassDatabase.Return_Datatable(SQL, "LoadControlValues")
|
||||
Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE VALUE <> '' AND RECORD_ID = {0}", RecordId)
|
||||
Dim DT_ControlValues As DataTable = ClassDatabase.Return_Datatable(SQL, "LoadControlValues")
|
||||
If controls.Count = 0 Then
|
||||
ClassLogger.Add("the control-Collection in LoadControlValuesNeu is empty!", True)
|
||||
End If
|
||||
For Each control As Control In controls
|
||||
Dim ControlId As Integer = CInt(control.Tag)
|
||||
Dim SQL1 As String = String.Format("SELECT VALUE FROM VWPMO_VALUES WHERE CONTROL_ID = {0} AND VALUE <> '' AND RECORD_ID = {1}", ControlId, RecordId)
|
||||
Dim value = ClassDatabase.Execute_Scalar(SQL1)
|
||||
'Dim SQL1 As String = String.Format("SELECT VALUE FROM VWPMO_VALUES WHERE CONTROL_ID = {0} AND VALUE <> '' AND RECORD_ID = {1}", ControlId, RecordId)
|
||||
'Dim value = ClassDatabase.Execute_Scalar(SQL1)
|
||||
|
||||
'' Wert per LINQ aus DT_ControlValues suchen der zur aktuellen controlId passt
|
||||
'Dim value = (From row In DT_ControlValues.AsEnumerable()
|
||||
' Where row.Item("CONTROL_ID") = ControlId
|
||||
' Select row.Item("VALUE")).SingleOrDefault()
|
||||
' Wert per LINQ aus DT_ControlValues suchen der zur aktuellen controlId passt
|
||||
Dim value = (From row In DT_ControlValues.AsEnumerable()
|
||||
Where row.Item("CONTROL_ID") = ControlId
|
||||
Select row.Item("VALUE")).SingleOrDefault()
|
||||
|
||||
If Not IsNothing(value) Then
|
||||
' Continue For
|
||||
If TypeOf control Is GroupBox Then
|
||||
Dim groupbox As GroupBox = DirectCast(control, GroupBox)
|
||||
LoadControlValuesNeu(RecordId, FormId, groupbox.Controls)
|
||||
Else
|
||||
LoadControlValueNeu(RecordId, ControlId, control, value)
|
||||
End If
|
||||
If TypeOf control Is GroupBox Then
|
||||
Dim groupbox As GroupBox = DirectCast(control, GroupBox)
|
||||
LoadControlValuesNeu(RecordId, FormId, groupbox.Controls)
|
||||
Else
|
||||
If TypeOf control Is DevExpress.XtraEditors.CheckedListBoxControl Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> control DevExpress.XtraEditors.CheckedListBoxControl", False)
|
||||
Dim chklbx As DevExpress.XtraEditors.CheckedListBoxControl
|
||||
chklbx = DirectCast(control, DevExpress.XtraEditors.CheckedListBoxControl)
|
||||
|
||||
Dim chklbSql As String = "SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = " & ControlId
|
||||
' chklbSql = ClassDatabase.Execute_Scalar(chklbSql)
|
||||
' If Not (chklbSql Is Nothing Or chklbSql = String.Empty) Then
|
||||
' If chklbSql.ToString.Contains("@") Then
|
||||
' chklbSql = chklbSql.ToString.Replace("@RECORDID", CURRENT_RECORD_ID)
|
||||
' chklbSql = chklbSql.ToString.Replace("@RECORD_ID", CURRENT_RECORD_ID)
|
||||
' chklbSql = chklbSql.ToString.Replace("@PARENTRECORD_ID", CURRENT_PARENTID)
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(">> SQL CheckedListBox: " & chklbSql, False)
|
||||
' 'SQL-Command vorhanden also Ausführen des SQL
|
||||
' Dim DT_ListBox As DataTable = ClassDatabase.Return_Datatable(chklbSql, "LoadControlValues: CheckedListBox")
|
||||
' If DT_ListBox Is Nothing = False Then
|
||||
' chklbx.DataSource = DT_ListBox
|
||||
' Select Case DT_ListBox.Columns.Count
|
||||
' Case 2
|
||||
' chklbx.DisplayMember = DT_ListBox.Columns(1).ColumnName
|
||||
' chklbx.ValueMember = DT_ListBox.Columns(0).ColumnName
|
||||
' Case 1
|
||||
' chklbx.DisplayMember = DT_ListBox.Columns(0).ColumnName
|
||||
' chklbx.ValueMember = DT_ListBox.Columns(0).ColumnName
|
||||
' End Select
|
||||
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' ElseIf (chklbSql = String.Empty) Then
|
||||
' ' Wenn keine SQL Command ein leerer String ist,
|
||||
' ' lade das Control ohne Datenbank, da es wahrscheinlich eine Static List ist
|
||||
' chklbSql = "SELECT VALUE FROM VWPMO_VALUES WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & RecordID
|
||||
' Dim result As String = ClassDatabase.Execute_Scalar(chklbSql)
|
||||
|
||||
' If Not IsNothing(result) Then
|
||||
' If result.ToString <> String.Empty Then
|
||||
' Dim entries() As String = result.Split(";")
|
||||
' For Each entry As String In entries
|
||||
' Dim position = chklbx.FindStringExact(entry)
|
||||
' chklbx.SetItemCheckState(position, CheckState.Checked)
|
||||
' Next
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' Continue For
|
||||
' Else
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(">> chklbSql is nothing", False)
|
||||
' End If
|
||||
|
||||
' chklbx.UnCheckAll()
|
||||
' 'Recorddatensätze durchlaufen und überprüfen ob angehakt??
|
||||
' Dim index As Integer = 0
|
||||
' For i As Integer = 0 To chklbx.ItemCount - 1
|
||||
' Dim item = chklbx.GetItem(i)
|
||||
' Dim row As DataRowView = CType(item, DataRowView)
|
||||
' If CInt(row(0)) > 0 Then
|
||||
' 'Überprüfen ob es den Record gibt
|
||||
' Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
|
||||
' If ClassDatabase.Execute_Scalar(SQL) = 1 Then
|
||||
' chklbx.SetItemChecked(i, True)
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' Next
|
||||
ElseIf TypeOf control Is Label Then
|
||||
LoadControlValueNeu(RecordId, ControlId, control, value)
|
||||
End If
|
||||
LoadControlValueNeu(RecordId, ControlId, control, value)
|
||||
End If
|
||||
|
||||
'If Not IsNothing(value) Then
|
||||
' ' Continue For
|
||||
' If TypeOf control Is GroupBox Then
|
||||
' Dim groupbox As GroupBox = DirectCast(control, GroupBox)
|
||||
' LoadControlValuesNeu(RecordId, FormId, groupbox.Controls)
|
||||
' Else
|
||||
' LoadControlValueNeu(RecordId, ControlId, control, value)
|
||||
' End If
|
||||
'Else
|
||||
' If TypeOf control Is DevExpress.XtraEditors.CheckedListBoxControl Then
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(">> control DevExpress.XtraEditors.CheckedListBoxControl", False)
|
||||
' Dim chklbx As DevExpress.XtraEditors.CheckedListBoxControl
|
||||
' chklbx = DirectCast(control, DevExpress.XtraEditors.CheckedListBoxControl)
|
||||
' Dim chklbSql As String = "SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = " & ControlId
|
||||
' ' chklbSql = ClassDatabase.Execute_Scalar(chklbSql)
|
||||
' ' If Not (chklbSql Is Nothing Or chklbSql = String.Empty) Then
|
||||
' ' If chklbSql.ToString.Contains("@") Then
|
||||
' ' chklbSql = chklbSql.ToString.Replace("@RECORDID", CURRENT_RECORD_ID)
|
||||
' ' chklbSql = chklbSql.ToString.Replace("@RECORD_ID", CURRENT_RECORD_ID)
|
||||
' ' chklbSql = chklbSql.ToString.Replace("@PARENTRECORD_ID", CURRENT_PARENTID)
|
||||
' ' If LogErrorsOnly = False Then ClassLogger.Add(">> SQL CheckedListBox: " & chklbSql, False)
|
||||
' ' 'SQL-Command vorhanden also Ausführen des SQL
|
||||
' ' Dim DT_ListBox As DataTable = ClassDatabase.Return_Datatable(chklbSql, "LoadControlValues: CheckedListBox")
|
||||
' ' If DT_ListBox Is Nothing = False Then
|
||||
' ' chklbx.DataSource = DT_ListBox
|
||||
' ' Select Case DT_ListBox.Columns.Count
|
||||
' ' Case 2
|
||||
' ' chklbx.DisplayMember = DT_ListBox.Columns(1).ColumnName
|
||||
' ' chklbx.ValueMember = DT_ListBox.Columns(0).ColumnName
|
||||
' ' Case 1
|
||||
' ' chklbx.DisplayMember = DT_ListBox.Columns(0).ColumnName
|
||||
' ' chklbx.ValueMember = DT_ListBox.Columns(0).ColumnName
|
||||
' ' End Select
|
||||
' ' End If
|
||||
' ' End If
|
||||
' ' ElseIf (chklbSql = String.Empty) Then
|
||||
' ' ' Wenn keine SQL Command ein leerer String ist,
|
||||
' ' ' lade das Control ohne Datenbank, da es wahrscheinlich eine Static List ist
|
||||
' ' chklbSql = "SELECT VALUE FROM VWPMO_VALUES WHERE CONTROL_ID = " & CONTROL_ID & " AND RECORD_ID = " & RecordID
|
||||
' ' Dim result As String = ClassDatabase.Execute_Scalar(chklbSql)
|
||||
' ' If Not IsNothing(result) Then
|
||||
' ' If result.ToString <> String.Empty Then
|
||||
' ' Dim entries() As String = result.Split(";")
|
||||
' ' For Each entry As String In entries
|
||||
' ' Dim position = chklbx.FindStringExact(entry)
|
||||
' ' chklbx.SetItemCheckState(position, CheckState.Checked)
|
||||
' ' Next
|
||||
' ' End If
|
||||
' ' End If
|
||||
' ' Continue For
|
||||
' ' Else
|
||||
' ' If LogErrorsOnly = False Then ClassLogger.Add(">> chklbSql is nothing", False)
|
||||
' ' End If
|
||||
' ' chklbx.UnCheckAll()
|
||||
' ' 'Recorddatensätze durchlaufen und überprüfen ob angehakt??
|
||||
' ' Dim index As Integer = 0
|
||||
' ' For i As Integer = 0 To chklbx.ItemCount - 1
|
||||
' ' Dim item = chklbx.GetItem(i)
|
||||
' ' Dim row As DataRowView = CType(item, DataRowView)
|
||||
' ' If CInt(row(0)) > 0 Then
|
||||
' ' 'Überprüfen ob es den Record gibt
|
||||
' ' Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
|
||||
' ' If ClassDatabase.Execute_Scalar(SQL) = 1 Then
|
||||
' ' chklbx.SetItemChecked(i, True)
|
||||
' ' End If
|
||||
' ' End If
|
||||
' ' Next
|
||||
' ElseIf TypeOf control Is Label Then
|
||||
' LoadControlValueNeu(RecordId, ControlId, control, value)
|
||||
' End If
|
||||
'End If
|
||||
|
||||
|
||||
Next
|
||||
@ -253,55 +250,100 @@ Public Class ClassControlValues
|
||||
Select Case control.GetType()
|
||||
Case GetType(TextBox)
|
||||
Dim textbox As TextBox = DirectCast(control, TextBox)
|
||||
textbox.Text = value
|
||||
ControlLoader.TextBox.LoadValue(textbox, value)
|
||||
|
||||
Case GetType(Label)
|
||||
Dim label As Label = DirectCast(control, Label)
|
||||
Dim autoValue As String = LoadControlAutoValue(controlId, recordId, control)
|
||||
ControlLoader.Label.LoadValue(label, value)
|
||||
|
||||
If IsNothing(autoValue) Then
|
||||
label.Text = value
|
||||
Else
|
||||
label.Text = autoValue
|
||||
End If
|
||||
Case GetType(ComboBox)
|
||||
Dim combobox As ComboBox = DirectCast(control, ComboBox)
|
||||
combobox.Text = value
|
||||
ControlLoader.Combobox.LoadValue(combobox, value)
|
||||
|
||||
Case GetType(CheckBox)
|
||||
Dim checkbox As CheckBox = DirectCast(control, CheckBox)
|
||||
checkbox.Checked = Boolean.Parse(value)
|
||||
ControlLoader.Checkbox.LoadValue(checkbox, value)
|
||||
|
||||
Case GetType(RadioButton)
|
||||
Dim radiobutton As RadioButton = DirectCast(control, RadioButton)
|
||||
radiobutton.Checked = Boolean.Parse(value)
|
||||
ControlLoader.RadioButton.LoadValue(radiobutton, value)
|
||||
|
||||
Case GetType(DevExpress.XtraEditors.DateEdit)
|
||||
Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit)
|
||||
If value = String.Empty Or value = "00:00:00" Then
|
||||
datepicker.DateTime = DateTime.MinValue
|
||||
Else
|
||||
datepicker.DateTime = DateTime.Parse(value)
|
||||
End If
|
||||
ControlLoader.DateTimePicker.LoadValue(datepicker, value)
|
||||
|
||||
Case GetType(DevExpress.XtraEditors.ListBoxControl)
|
||||
Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(control, DevExpress.XtraEditors.ListBoxControl)
|
||||
listbox.SelectedIndex = listbox.FindStringExact(value)
|
||||
Case GetType(PictureBox)
|
||||
LoadImage(recordId, controlId, control)
|
||||
ControlLoader.ListBox.LoadValue(listbox, value)
|
||||
|
||||
Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
|
||||
Dim chklbx As DevExpress.XtraEditors.CheckedListBoxControl
|
||||
chklbx = DirectCast(control, DevExpress.XtraEditors.CheckedListBoxControl)
|
||||
If Not IsNothing(value) Then
|
||||
If value.ToString <> String.Empty Then
|
||||
Dim entries() As String = value.Split(";")
|
||||
For Each entry As String In entries
|
||||
Dim position = chklbx.FindStringExact(entry)
|
||||
chklbx.SetItemCheckState(position, CheckState.Checked)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Dim checkedlistbox As DevExpress.XtraEditors.CheckedListBoxControl = DirectCast(control, DevExpress.XtraEditors.CheckedListBoxControl)
|
||||
ControlLoader.CheckedListBox.LoadValue(checkedlistbox, value)
|
||||
|
||||
Case GetType(PictureBox)
|
||||
Dim picturebox = DirectCast(control, PictureBox)
|
||||
LoadImage(recordId, controlId, picturebox)
|
||||
|
||||
Case Else
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - Control-Type is not being worked: " & GetType(Control).ToString(), False)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString(), False)
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in LoadControlValueNeu:" & vbNewLine & ex.Message)
|
||||
MsgBox("Error in LoadControlValue:" & vbNewLine & ex.Message)
|
||||
End Try
|
||||
|
||||
'Try
|
||||
' Select Case control.GetType()
|
||||
' Case GetType(TextBox)
|
||||
' Dim textbox As TextBox = DirectCast(control, TextBox)
|
||||
' textbox.Text = value
|
||||
' Case GetType(Label)
|
||||
' Dim label As Label = DirectCast(control, Label)
|
||||
' Dim autoValue As String = LoadControlAutoValue(controlId, recordId, control)
|
||||
|
||||
' If IsNothing(autoValue) Then
|
||||
' label.Text = value
|
||||
' Else
|
||||
' label.Text = autoValue
|
||||
' End If
|
||||
' Case GetType(ComboBox)
|
||||
' Dim combobox As ComboBox = DirectCast(control, ComboBox)
|
||||
' combobox.Text = value
|
||||
' Case GetType(CheckBox)
|
||||
' Dim checkbox As CheckBox = DirectCast(control, CheckBox)
|
||||
' checkbox.Checked = Boolean.Parse(value)
|
||||
' Case GetType(RadioButton)
|
||||
' Dim radiobutton As RadioButton = DirectCast(control, RadioButton)
|
||||
' radiobutton.Checked = Boolean.Parse(value)
|
||||
' Case GetType(DevExpress.XtraEditors.DateEdit)
|
||||
' Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit)
|
||||
' If value = String.Empty Or value = "00:00:00" Then
|
||||
' datepicker.DateTime = DateTime.MinValue
|
||||
' Else
|
||||
' datepicker.DateTime = DateTime.Parse(value)
|
||||
' End If
|
||||
' Case GetType(DevExpress.XtraEditors.ListBoxControl)
|
||||
' Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(control, DevExpress.XtraEditors.ListBoxControl)
|
||||
' listbox.SelectedIndex = listbox.FindStringExact(value)
|
||||
' Case GetType(PictureBox)
|
||||
' LoadImage(recordId, controlId, control)
|
||||
' Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
|
||||
' Dim chklbx As DevExpress.XtraEditors.CheckedListBoxControl
|
||||
' chklbx = DirectCast(control, DevExpress.XtraEditors.CheckedListBoxControl)
|
||||
' If Not IsNothing(value) Then
|
||||
' If value.ToString <> String.Empty Then
|
||||
' Dim entries() As String = value.Split(";")
|
||||
' For Each entry As String In entries
|
||||
' Dim position = chklbx.FindStringExact(entry)
|
||||
' chklbx.SetItemCheckState(position, CheckState.Checked)
|
||||
' Next
|
||||
' End If
|
||||
' End If
|
||||
' Case Else
|
||||
' If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - Control-Type is not being worked: " & GetType(Control).ToString(), False)
|
||||
' End Select
|
||||
'Catch ex As Exception
|
||||
' MsgBox("Error in LoadControlValueNeu:" & vbNewLine & ex.Message)
|
||||
'End Try
|
||||
End Sub
|
||||
|
||||
'Private Shared Function CheckForStaticList(controlId As Integer, recordId As Integer)
|
||||
|
||||
@ -241,6 +241,7 @@
|
||||
<Import Include="System.Threading.Tasks" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="ClassControlLoader.vb" />
|
||||
<Compile Include="ClassControlValueCache.vb" />
|
||||
<Compile Include="ClassControlValuesConverter.vb" />
|
||||
<Compile Include="ClassFolderWatcher.vb" />
|
||||
|
||||
@ -205,7 +205,7 @@ Partial Class frmForm_Constructor_Main_2
|
||||
Me.GridControlMain.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GridControlMain.MainView = Me.grvwTiles
|
||||
Me.GridControlMain.Name = "GridControlMain"
|
||||
Me.GridControlMain.Size = New System.Drawing.Size(795, 270)
|
||||
Me.GridControlMain.Size = New System.Drawing.Size(788, 270)
|
||||
Me.GridControlMain.TabIndex = 0
|
||||
Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwCarousel, Me.grvwTiles, Me.grvwGrid})
|
||||
'
|
||||
@ -460,7 +460,7 @@ Partial Class frmForm_Constructor_Main_2
|
||||
Me.SplitContainerBottom.Panel1.Text = "Panel1"
|
||||
Me.SplitContainerBottom.Panel2.Controls.Add(Me.Panel2)
|
||||
Me.SplitContainerBottom.Panel2.Text = "Panel2"
|
||||
Me.SplitContainerBottom.Size = New System.Drawing.Size(1083, 372)
|
||||
Me.SplitContainerBottom.Size = New System.Drawing.Size(1083, 365)
|
||||
Me.SplitContainerBottom.SplitterPosition = 576
|
||||
Me.SplitContainerBottom.TabIndex = 0
|
||||
Me.SplitContainerBottom.Text = "SplitContainerControl1"
|
||||
@ -476,7 +476,7 @@ Partial Class frmForm_Constructor_Main_2
|
||||
Me.TCDetails.Location = New System.Drawing.Point(0, 25)
|
||||
Me.TCDetails.Name = "TCDetails"
|
||||
Me.TCDetails.SelectedTabPage = Me.TabDetails
|
||||
Me.TCDetails.Size = New System.Drawing.Size(1078, 347)
|
||||
Me.TCDetails.Size = New System.Drawing.Size(1071, 340)
|
||||
Me.TCDetails.TabIndex = 1
|
||||
Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabWindream, Me.TabFollowUp, Me.TabPos})
|
||||
'
|
||||
@ -485,7 +485,7 @@ Partial Class frmForm_Constructor_Main_2
|
||||
Me.TabDetails.Controls.Add(Me.pnlDetails)
|
||||
Me.TabDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD
|
||||
Me.TabDetails.Name = "TabDetails"
|
||||
Me.TabDetails.Size = New System.Drawing.Size(1072, 316)
|
||||
Me.TabDetails.Size = New System.Drawing.Size(1069, 312)
|
||||
Me.TabDetails.Text = "Detailansicht"
|
||||
'
|
||||
'pnlDetails
|
||||
@ -494,7 +494,7 @@ Partial Class frmForm_Constructor_Main_2
|
||||
Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnlDetails.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnlDetails.Name = "pnlDetails"
|
||||
Me.pnlDetails.Size = New System.Drawing.Size(1072, 316)
|
||||
Me.pnlDetails.Size = New System.Drawing.Size(1069, 312)
|
||||
Me.pnlDetails.TabIndex = 0
|
||||
'
|
||||
'TabWindream
|
||||
@ -503,7 +503,7 @@ Partial Class frmForm_Constructor_Main_2
|
||||
Me.TabWindream.Controls.Add(Me.ToolStripDokumente)
|
||||
Me.TabWindream.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954
|
||||
Me.TabWindream.Name = "TabWindream"
|
||||
Me.TabWindream.Size = New System.Drawing.Size(1072, 316)
|
||||
Me.TabWindream.Size = New System.Drawing.Size(1069, 312)
|
||||
Me.TabWindream.Text = "windream-Dateien"
|
||||
'
|
||||
'AxObjectListControl
|
||||
@ -514,7 +514,7 @@ Partial Class frmForm_Constructor_Main_2
|
||||
Me.AxObjectListControl.Location = New System.Drawing.Point(0, 25)
|
||||
Me.AxObjectListControl.Name = "AxObjectListControl"
|
||||
Me.AxObjectListControl.OcxState = CType(resources.GetObject("AxObjectListControl.OcxState"), System.Windows.Forms.AxHost.State)
|
||||
Me.AxObjectListControl.Size = New System.Drawing.Size(1072, 291)
|
||||
Me.AxObjectListControl.Size = New System.Drawing.Size(1069, 287)
|
||||
Me.AxObjectListControl.TabIndex = 6
|
||||
Me.AxObjectListControl.TabStop = False
|
||||
'
|
||||
@ -524,7 +524,7 @@ Partial Class frmForm_Constructor_Main_2
|
||||
Me.ToolStripDokumente.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWindreamView, Me.ToolStripDropDownButton2})
|
||||
Me.ToolStripDokumente.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStripDokumente.Name = "ToolStripDokumente"
|
||||
Me.ToolStripDokumente.Size = New System.Drawing.Size(1072, 25)
|
||||
Me.ToolStripDokumente.Size = New System.Drawing.Size(1069, 25)
|
||||
Me.ToolStripDokumente.TabIndex = 2
|
||||
Me.ToolStripDokumente.Text = "ToolStrip2"
|
||||
'
|
||||
@ -558,7 +558,7 @@ Partial Class frmForm_Constructor_Main_2
|
||||
Me.TabFollowUp.Controls.Add(Me.Label5)
|
||||
Me.TabFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD
|
||||
Me.TabFollowUp.Name = "TabFollowUp"
|
||||
Me.TabFollowUp.Size = New System.Drawing.Size(1072, 316)
|
||||
Me.TabFollowUp.Size = New System.Drawing.Size(1069, 312)
|
||||
Me.TabFollowUp.Text = "Wiedervorlage"
|
||||
'
|
||||
'ListViewFollowUps
|
||||
@ -737,7 +737,7 @@ Partial Class frmForm_Constructor_Main_2
|
||||
Me.TabPos.Image = CType(resources.GetObject("TabPos.Image"), System.Drawing.Image)
|
||||
Me.TabPos.Name = "TabPos"
|
||||
Me.TabPos.PageVisible = False
|
||||
Me.TabPos.Size = New System.Drawing.Size(1072, 316)
|
||||
Me.TabPos.Size = New System.Drawing.Size(1069, 312)
|
||||
Me.TabPos.Text = "Positionen"
|
||||
'
|
||||
'Panel1
|
||||
@ -746,7 +746,7 @@ Partial Class frmForm_Constructor_Main_2
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 25)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(1072, 291)
|
||||
Me.Panel1.Size = New System.Drawing.Size(1069, 287)
|
||||
Me.Panel1.TabIndex = 2
|
||||
'
|
||||
'GridControlPos
|
||||
@ -755,7 +755,7 @@ Partial Class frmForm_Constructor_Main_2
|
||||
Me.GridControlPos.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GridControlPos.MainView = Me.grvwGridPos
|
||||
Me.GridControlPos.Name = "GridControlPos"
|
||||
Me.GridControlPos.Size = New System.Drawing.Size(1072, 291)
|
||||
Me.GridControlPos.Size = New System.Drawing.Size(1069, 287)
|
||||
Me.GridControlPos.TabIndex = 0
|
||||
Me.GridControlPos.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGridPos})
|
||||
'
|
||||
@ -782,7 +782,7 @@ Partial Class frmForm_Constructor_Main_2
|
||||
Me.BindingNavigatorPOS.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
|
||||
Me.BindingNavigatorPOS.Name = "BindingNavigatorPOS"
|
||||
Me.BindingNavigatorPOS.PositionItem = Me.BindingNavigatorPositionItem
|
||||
Me.BindingNavigatorPOS.Size = New System.Drawing.Size(1072, 25)
|
||||
Me.BindingNavigatorPOS.Size = New System.Drawing.Size(1069, 25)
|
||||
Me.BindingNavigatorPOS.TabIndex = 1
|
||||
Me.BindingNavigatorPOS.Text = "BindingNavigator1"
|
||||
'
|
||||
@ -877,7 +877,7 @@ Partial Class frmForm_Constructor_Main_2
|
||||
Me.ToolStripEdit.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsButtonAdd, Me.tsButtonSave, Me.tsButtonDelete, Me.tsButtonEditMode, Me.ToolStripDropDownButton1, Me.tsButtonShowTaskOverview, Me.tsButtonShowWorkflowTasks})
|
||||
Me.ToolStripEdit.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStripEdit.Name = "ToolStripEdit"
|
||||
Me.ToolStripEdit.Size = New System.Drawing.Size(1078, 25)
|
||||
Me.ToolStripEdit.Size = New System.Drawing.Size(1071, 25)
|
||||
Me.ToolStripEdit.TabIndex = 0
|
||||
Me.ToolStripEdit.Text = "ToolStrip1"
|
||||
'
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user