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

MS_22042016

Browse Source
This commit is contained in:
SchreiberM
2016-04-25 13:39:03 +02:00
parent 89224ad272 012b5d20db
commit 944dcd330a
12 changed files with 404 additions and 335 deletions
Download Patch File Download Diff File Expand all files Collapse all files

98
app/DD-Record-Organiser/ClassControlBuilder.vb
View File

@@ -76,6 +76,7 @@ Public Class ClassControlBuilder
Public Sub MouseHover(sender As Object, e As EventArgs) Public Sub MouseHover(sender As Object, e As EventArgs)
Dim onMouseHoverHandler As EventHandler = CType(Me.Events(_onMouseHoverName), EventHandler) Dim onMouseHoverHandler As EventHandler = CType(Me.Events(_onMouseHoverName), EventHandler)
If onMouseHoverHandler IsNot Nothing Then If onMouseHoverHandler IsNot Nothing Then
onMouseHoverHandler.Invoke(sender, e) onMouseHoverHandler.Invoke(sender, e)
End If End If
@@ -147,16 +148,20 @@ Public Class ClassControlBuilder
Dim SQL As String = String.Format("SELECT GUID, SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE SQL_COMMAND_1 LIKE '%@{0}@%'", controlId) Dim SQL As String = String.Format("SELECT GUID, SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE SQL_COMMAND_1 LIKE '%@{0}@%'", controlId)
Dim value Dim value
Select Case control.GetType() ' Diese Befehle führen dazu, dass auch der ValueMember als Wert ausgelesen wird
Case GetType(CustomComboBox) ' Das kann zu unerwarteten Ergebnissen führen, da der Benutzer nur den DisplayMember sieht.
If IsNothing(DirectCast(control, CustomComboBox).ValueMember) Then 'Select Case control.GetType()
value = DirectCast(control, CustomComboBox).Text ' Case GetType(CustomComboBox)
Else ' If IsNothing(DirectCast(control, CustomComboBox).ValueMember) Then
value = DirectCast(control, CustomComboBox).SelectedValue ' value = DirectCast(control, CustomComboBox).Text
End If ' Else
Case Else ' value = DirectCast(control, CustomComboBox).SelectedValue
Exit Sub ' End If
End Select ' Case Else
' Exit Sub
'End Select
' Die bessere Lösung ist für jetzt, einfach den angezeigten Wert auszulesen:
value = DirectCast(control, CustomComboBox).Text
If String.IsNullOrEmpty(value) Then If String.IsNullOrEmpty(value) Then
Exit Sub Exit Sub
@@ -175,10 +180,24 @@ Public Class ClassControlBuilder
Continue For Continue For
End If End If
sqlcommand = sqlcommand.ToUpper.Replace("@RECORD_ID", CURRENT_RECORD_ID)
Dim regex As New System.Text.RegularExpressions.Regex("(@(\d+)@)") Dim regex As New System.Text.RegularExpressions.Regex("(@(\d+)@)")
Dim match As System.Text.RegularExpressions.Match = regex.Match(sqlcommand) Dim match As System.Text.RegularExpressions.Match = regex.Match(sqlcommand)
If match.Success Then If match.Success Then
Dim sqlguid = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", controlId, CURRENT_RECORD_ID)
Dim ctrlvalID = ClassDatabase.Execute_Scalar(sqlguid)
If Not IsNothing(ctrlvalID) Then
Dim upd1 = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", value.ToString, controlId, CURRENT_RECORD_ID)
ClassDatabase.Execute_non_Query(upd1)
Else
Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", controlId, CURRENT_RECORD_ID, value, Environment.UserName)
If ClassDatabase.Execute_non_Query(ins) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue '" & ins & "'")
End If
End If
' DependingControlId bezeichnet das Control, das die Abhängigkeit enthält ' DependingControlId bezeichnet das Control, das die Abhängigkeit enthält
Dim dependingControlId As Integer = row.Item("GUID") Dim dependingControlId As Integer = row.Item("GUID")
Dim panel As Panel = DirectCast(control.Parent, Panel) Dim panel As Panel = DirectCast(control.Parent, Panel)
@@ -189,19 +208,52 @@ Public Class ClassControlBuilder
sqlcommand = sqlcommand.Replace(match.Groups(1).Value, value) sqlcommand = sqlcommand.Replace(match.Groups(1).Value, value)
If LogErrorsOnly = False Then ClassLogger.Add(" >> " & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId)) If LogErrorsOnly = False Then ClassLogger.Add(" >> " & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId))
Dim dt As DataTable = ClassDatabase.Return_Datatable(sqlcommand)
Dim obj
obj = dependingControl.GetType.ToString
Select Case dependingControl.GetType().Name
Case "ComboBox" Dim dt As DataTable = ClassDatabase.Return_Datatable(sqlcommand)
Dim type = dependingControl.GetType().Name
Select Case type
Case "DateEdit"
If dt.Rows.Count = 1 Then
Try
Dim dateValue As String = dt.Rows(0).Item(0)
If dateValue = "1900-01-01" Then
Continue For
End If
ControlLoader.DateTimePicker.LoadValue(dependingControl, dateValue)
Dim sql1 = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", dependingControlId, CURRENT_RECORD_ID)
Dim id = ClassDatabase.Execute_Scalar(sql1)
If Not IsNothing(id) Then
Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE GUID = {1}", dateValue, id)
If ClassDatabase.Execute_non_Query(upd) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue '" & upd)
Else
ClassLogger.Add(" >> Check Update depending control value as it was nothing and Update was not successful - Update-Command '" & upd & "'")
End If
Else
Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", dependingControlId, CURRENT_RECORD_ID, dateValue, Environment.UserName)
If ClassDatabase.Execute_non_Query(ins) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue '" & ins & "'")
Else
ClassLogger.Add(" >> Check Insert depending control value as it was nothing and Insert was not successful- Insert-Command '" & ins & "'")
End If
End If
Catch ex As Exception
ClassLogger.Add("Unexpectet Error in OnComboBoxValueChanged - TextBox: " & ex.Message, True)
End Try
Else
ClassLogger.Add(" >> Attention: RowCount for depending control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'")
End If
Case "CustomComboBox"
ControlLoader.Combobox.SetDataSource(DirectCast(dependingControl, CustomComboBox), dt) ControlLoader.Combobox.SetDataSource(DirectCast(dependingControl, CustomComboBox), dt)
Case "Label" Case "Label"
If dt.Rows.Count = 1 Then If dt.Rows.Count = 1 Then
Try Try
ControlLoader.Label.LoadValue(DirectCast(dependingControl, Label), 9999, 9999, dt.Rows(0).Item(0).ToString, True) ControlLoader.Label.LoadValue(DirectCast(dependingControl, Label), 9999, 9999, dt.Rows(0).Item(0).ToString, True)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(ex.Message) ClassLogger.Add("Unexpectet Error in OnComboBoxValueChanged - Label: " & ex.Message, True)
End Try End Try
End If End If
Case "TextBox" Case "TextBox"
@@ -214,7 +266,7 @@ Public Class ClassControlBuilder
If Not IsNothing(id) Then If Not IsNothing(id) Then
Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE GUID = {1}", value1, id) Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE GUID = {1}", value1, id)
If ClassDatabase.Execute_non_Query(sql1) = True Then If ClassDatabase.Execute_non_Query(upd) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue '" & upd) If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue '" & upd)
Else Else
ClassLogger.Add(" >> Check Update depending control value as it was nothing and Update was not successful - Update-Command '" & upd & "'") ClassLogger.Add(" >> Check Update depending control value as it was nothing and Update was not successful - Update-Command '" & upd & "'")
@@ -230,7 +282,7 @@ Public Class ClassControlBuilder
End If End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(ex.Message) ClassLogger.Add("Unexpectet Error in OnComboBoxValueChanged - TextBox: " & ex.Message, True)
End Try End Try
Else Else
ClassLogger.Add(" >> Attention: RowCount for depending control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'") ClassLogger.Add(" >> Attention: RowCount for depending control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'")
@@ -312,7 +364,7 @@ Public Class ClassControlBuilder
AddHandler textbox.TextChanged, AddressOf OnTextBoxTextChanged AddHandler textbox.TextChanged, AddressOf OnTextBoxTextChanged
AddHandler textbox.ReadOnlyChanged, AddressOf OnReadOnlyChanged AddHandler textbox.ReadOnlyChanged, AddressOf OnReadOnlyChanged
Case "ComboBox" Case "CustomComboBox"
Dim combo As CustomComboBox = CType(control, CustomComboBox) Dim combo As CustomComboBox = CType(control, CustomComboBox)
AddHandler combo.SelectedValueChanged, AddressOf RecordChanged AddHandler combo.SelectedValueChanged, AddressOf RecordChanged
AddHandler combo.SelectedValueChanged, AddressOf OnComboBoxValueChanged AddHandler combo.SelectedValueChanged, AddressOf OnComboBoxValueChanged
@@ -603,7 +655,7 @@ Public Class ClassControlBuilder
Select Case CurrentType Select Case CurrentType
Case "TextBox" Case "TextBox"
ActiveControl.BackColor = ActiveColor ActiveControl.BackColor = ActiveColor
Case "ComboBox" Case "CustomComboBox"
'Case "System.Windows.Forms.ComboBox" 'Case "System.Windows.Forms.ComboBox"
ActiveControl.BackColor = ActiveColor ActiveControl.BackColor = ActiveColor
Case "Label" Case "Label"
@@ -635,7 +687,7 @@ Public Class ClassControlBuilder
Select Case Type Select Case Type
Case "TextBox" Case "TextBox"
inctrl.BackColor = Color.White inctrl.BackColor = Color.White
Case "ComboBox" Case "CustomComboBox"
'Case "System.Windows.Forms.ComboBox" 'Case "System.Windows.Forms.ComboBox"
inctrl.BackColor = Color.White inctrl.BackColor = Color.White
Case "Label" Case "Label"
@@ -664,7 +716,7 @@ Public Class ClassControlBuilder
Select Case gbType Select Case gbType
Case "TextBox" Case "TextBox"
gbctrl.BackColor = Color.White gbctrl.BackColor = Color.White
Case "ComboBox" Case "CustomComboBox"
'Case "System.Windows.Forms.ComboBox" 'Case "System.Windows.Forms.ComboBox"
gbctrl.BackColor = Color.White gbctrl.BackColor = Color.White
Case "Label" Case "Label"

279
app/DD-Record-Organiser/ClassControlCommandsUI.vb
View File

@@ -489,10 +489,11 @@ Public Class ClassControlCommandsUI
Private Sub UpdateAllControls(FormID As Integer, RecordID As Integer, controls As Control.ControlCollection) Private Sub UpdateAllControls(FormID As Integer, RecordID As Integer, controls As Control.ControlCollection)
Try Try
For Each ctrl As Control In controls For Each ctrl As Control In controls
Dim CONTROL_ID As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id 'GetControlID_for_RecordID(ctrl.Name, RecordID) Dim CONTROL_ID As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id 'GetControlID_for_RecordID(ctrl.Name, RecordID)
If LogErrorsOnly = False Then ClassLogger.Add(" >> CONTROL_ID: " & CONTROL_ID, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> CONTROL_ID: " & CONTROL_ID, False)
Dim CONTROL_VALUE As String = GetControlValue(ctrl) Dim CONTROL_VALUE As String = GetControlValue(ctrl)
Dim controltype = ctrl.GetType.ToString
If TypeOf ctrl Is PictureBox Then If TypeOf ctrl Is PictureBox Then
Dim id As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id 'GetControlID_for_Name(ctrl.Name, FormID) Dim id As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id 'GetControlID_for_Name(ctrl.Name, FormID)
UpsertImage(id, RecordID, ctrl.BackgroundImage) UpsertImage(id, RecordID, ctrl.BackgroundImage)
@@ -520,8 +521,14 @@ Public Class ClassControlCommandsUI
Dim ValueExists = ClassDatabase.Execute_Scalar(String.Format("SELECT RECORD_ID FROM VWPMO_VALUES WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", RecordID, CONTROL_ID)) Dim ValueExists = ClassDatabase.Execute_Scalar(String.Format("SELECT RECORD_ID FROM VWPMO_VALUES WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", RecordID, CONTROL_ID))
If IsNothing(ValueExists) Then ' Neues Control If IsNothing(ValueExists) Then ' Neues Control
If CONTROL_ID = 995 Or CONTROL_ID = 996 Or CONTROL_ID = 997 Or CONTROL_ID = 810 Then
Console.WriteLine("sdasd")
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> InsertControlValue: " & CONTROL_ID & "|" & RecordID & "|" & CONTROL_VALUE, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> InsertControlValue: " & CONTROL_ID & "|" & RecordID & "|" & CONTROL_VALUE, False)
If Not IsNothing(CONTROL_VALUE) Then If Not IsNothing(CONTROL_VALUE) Then
If TypeOf ctrl Is CustomComboBox And CONTROL_VALUE = "" Then
Exit Sub
End If
InsertControlValue(CONTROL_ID, RecordID, CONTROL_VALUE) InsertControlValue(CONTROL_ID, RecordID, CONTROL_VALUE)
End If End If
Else ' Update Control Else ' Update Control
@@ -538,8 +545,14 @@ Public Class ClassControlCommandsUI
Public Sub UpdateMultipleValues(ControlId As Integer, RecordId As Integer, value As String) Public Sub UpdateMultipleValues(ControlId As Integer, RecordId As Integer, value As String)
Try Try
If IsNothing(value) Then
Exit Sub
End If
Dim values As New List(Of String)(value.Split(";")) Dim values As New List(Of String)(value.Split(";"))
Dim dt As DataTable = ClassDatabase.Return_Datatable(String.Format("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlId, RecordId)) Dim dt As DataTable = ClassDatabase.Return_Datatable(String.Format("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", ControlId, RecordId))
If IsNothing(dt) Then
Exit Sub
End If
' Konvertiere datatable zu liste ' Konvertiere datatable zu liste
Dim oldValues = dt.AsEnumerable().Select(Of String)(Function(r) Dim oldValues = dt.AsEnumerable().Select(Of String)(Function(r)
Return r.Item("VALUE") Return r.Item("VALUE")
@@ -562,163 +575,159 @@ Public Class ClassControlCommandsUI
End Sub End Sub
Function GetControlValue(ctrl As Control) As String Function GetControlValue(ctrl As Control) As String
Dim CONTROL_ID As Integer
Try
Dim type = ctrl.GetType().Name
CONTROL_ID = DirectCast(ctrl.Tag, ClassControlMetadata).Id ' GetControlID_for_RecordID(ctrl.Name, CURRENT_RECORD_ID)
If LogErrorsOnly = False Then ClassLogger.Add(" >> GetControlValue CONTROL_ID: " & CONTROL_ID, False) Dim type = ctrl.GetType().Name
Dim CONTROL_VALUE As String = Nothing Dim CONTROL_ID As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id ' GetControlID_for_RecordID(ctrl.Name, CURRENT_RECORD_ID)
If LogErrorsOnly = False Then ClassLogger.Add(" >> type = " & type.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> GetControlValue CONTROL_ID: " & CONTROL_ID, False)
Select Case type Dim CONTROL_VALUE As String = Nothing
Case "TextBox" If LogErrorsOnly = False Then ClassLogger.Add(" >> type = " & type.ToString, False)
Return DirectCast(ctrl, TextBox).Text Select Case type
Case "ComboBox" Case "TextBox"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Return Value: " & DirectCast(ctrl, CustomComboBox).Text, False) Return DirectCast(ctrl, TextBox).Text
Return DirectCast(ctrl, CustomComboBox).Text Case "CustomComboBox"
Case "CheckBox" If LogErrorsOnly = False Then ClassLogger.Add(" >> Return Value: " & DirectCast(ctrl, CustomComboBox).Text, False)
Return DirectCast(ctrl, CheckBox).Checked.ToString() Return DirectCast(ctrl, CustomComboBox).Text
Case "RadioButton" Case "CheckBox"
Return DirectCast(ctrl, RadioButton).Checked.ToString() Return DirectCast(ctrl, CheckBox).Checked.ToString()
Case "DateEdit" Case "RadioButton"
Dim Value = DirectCast(ctrl, DevExpress.XtraEditors.DateEdit).EditValue Return DirectCast(ctrl, RadioButton).Checked.ToString()
Case "DateEdit"
Dim Value = DirectCast(ctrl, DevExpress.XtraEditors.DateEdit).EditValue
If IsDBNull(Value) Then If IsDBNull(Value) Then
Return "" Return ""
Else Else
Return DirectCast(ctrl, DevExpress.XtraEditors.DateEdit).DateTime.ToString("yyyy-MM-dd") Return DirectCast(ctrl, DevExpress.XtraEditors.DateEdit).DateTime.ToString("yyyy-MM-dd")
End If End If
Case "PictureBox" Case "PictureBox"
'Return "PictureBox" 'Es ist egal was für ein String hier zurückgegeben wird, hauptsache nicht Nothing 'Return "PictureBox" 'Es ist egal was für ein String hier zurückgegeben wird, hauptsache nicht Nothing
Case "CheckedListBoxControl" Case "CheckedListBoxControl"
Dim chklbx As DevExpress.XtraEditors.CheckedListBoxControl Dim chklbx As DevExpress.XtraEditors.CheckedListBoxControl
chklbx = DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl) chklbx = DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl)
Dim SQL_COMAMND = ClassDatabase.Execute_Scalar("SELECT UPPER(SQL_COMMAND_1) FROM TBPMO_CONTROL WHERE GUID = " & CONTROL_ID)
'TODO: Wenn keine Datasource vorhanden, angecheckte einträge als string speichern 'TODO: Wenn keine Datasource vorhanden, angecheckte einträge als string speichern
If IsNothing(chklbx.DataSource) Then If IsNothing(chklbx.DataSource) Then
Dim result As New List(Of String) Dim result As New List(Of String)
Dim result_string As String Dim result_string As String
For Each item As DevExpress.XtraEditors.Controls.CheckedListBoxItem In chklbx.CheckedItems For Each item As DevExpress.XtraEditors.Controls.CheckedListBoxItem In chklbx.CheckedItems
result.Add(item.Value.ToString.Trim) result.Add(item.Value.ToString.Trim)
Next Next
result_string = String.Join(";", result) result_string = String.Join(";", result)
' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll ' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll
' Überspringt den Rest der funktion ' Überspringt den Rest der funktion
Return result_string Return result_string
End If End If
Dim SQL_Datasource = "SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = " & CONTROL_ID If SQL_COMAMND.ToString.StartsWith("SELECT [RECORD_ID]") Or SQL_COMAMND.ToString.StartsWith("SELECT [RECORD-ID]") Then
SQL_Datasource = ClassDatabase.Execute_Scalar(SQL_Datasource) 'Alle Recorddatensätze durchlaufen und überprüfen ob nicht angehakt
'Wenn nicht angehakt dann Record löschen
If SQL_Datasource.ToUpper.Contains("SELECT [RECORD-ID],") Then Dim index As Integer = 0
'Alle Recorddatensätze durchlaufen und überprüfen ob nicht angehakt For i As Integer = 0 To chklbx.ItemCount - 1
'Wenn nicht angehakt dann Record löschen Dim item = chklbx.GetItem(i)
Dim index As Integer = 0 Dim row As DataRowView = CType(item, DataRowView)
For i As Integer = 0 To chklbx.ItemCount - 1 If chklbx.GetItemCheckState(i) = 0 Then
Dim item = chklbx.GetItem(i) If CInt(row(0)) > 0 Then
Dim row As DataRowView = CType(item, DataRowView) 'Überprüfen ob es den Record gibt
If chklbx.GetItemCheckState(i) = 0 Then Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
If CInt(row(0)) > 0 Then If ClassDatabase.Execute_Scalar(SQL) = 1 Then
'Überprüfen ob es den Record gibt SQL = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0)) If ClassDatabase.Execute_non_Query(SQL) = True Then
If ClassDatabase.Execute_Scalar(SQL) = 1 Then If LogErrorsOnly = False Then ClassLogger.Add(" >> TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted", False)
SQL = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
If ClassDatabase.Execute_non_Query(SQL) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted", False)
End If
End If End If
End If End If
End If End If
Next End If
End If
'Für jeden gecheckten Eintrag den Record der Stammentität mit dem selektierten linken
Dim checked_result As New List(Of String)
Dim checked_result_string As String
Dim checked_Count As Integer = 0
For Each item As Object In DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl).CheckedItems
checked_Count += 1
Next Next
End If
If SQL_Datasource.ToUpper.Contains("SELECT [RECORD-ID],") Then
For Each item As Object In DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl).CheckedItems 'Für jeden gecheckten Eintrag den Record der Stammentität mit dem selektierten linken
Dim row As DataRowView = CType(item, DataRowView) Dim checked_result As New List(Of String)
Try Dim checked_result_string As String
If CInt(row(0)) > 0 Then If SQL_COMAMND.ToString.StartsWith("SELECT [RECORD_ID]") Or SQL_COMAMND.ToString.StartsWith("SELECT [RECORD-ID]") Then
Dim rid = CInt(row(0))
Dim checked_value = row(1) For Each item As Object In DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl).CheckedItems
checked_result.Add(checked_value) Dim row As DataRowView = CType(item, DataRowView)
checked_result_string = String.Join(";", checked_result) Try
Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0)) If CInt(row(0)) > 0 Then
If ClassDatabase.Execute_Scalar(SQL) = 0 Then Dim rid = CInt(row(0))
If CURRENT_RECORD_ID = 0 Then Dim checked_value = row(1)
MsgBox("Attention: no current record Selected!", MsgBoxStyle.Exclamation) checked_result.Add(checked_value)
Else checked_result_string = String.Join(";", checked_result)
If ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) = True Then Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
If LogErrorsOnly = False Then ClassLogger.Add(" >> Checked ListBox record '" & rid.ToString & "' was linked successfully.", False) If ClassDatabase.Execute_Scalar(SQL) = 0 Then
End If If CURRENT_RECORD_ID = 0 Then
MsgBox("Attention: no current record Selected!", MsgBoxStyle.Exclamation)
Else
If ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Checked ListBox record '" & rid.ToString & "' was linked successfully.", False)
End If End If
End If End If
End If
Catch ex As Exception
ClassLogger.Add("Error in CheckedListBoxGetControlValue: " & ex.Message, True)
End Try
Next End If
Else End If
For Each item As Object In DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl).CheckedItems Catch ex As Exception
Dim row As DataRowView = CType(item, DataRowView) ClassLogger.Add("Error in CheckedListBoxGetControlValue: " & ex.Message, True)
End Try
Next
Else
For Each item As Object In DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl).CheckedItems
Dim row As DataRowView = CType(item, DataRowView)
If row.DataView.Table.Columns.Count = 1 Then
Dim checked_value = row(0)
checked_result.Add(checked_value)
ElseIf row.DataView.Table.Columns.Count = 2 Then
Dim checked_value = row(1) Dim checked_value = row(1)
checked_result.Add(checked_value) checked_result.Add(checked_value)
checked_result_string = String.Join(";", checked_result)
Next
End If
' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll
' Überspringt den Rest der funktion
If Not IsNothing(checked_result_string) Then
Dim sql = String.Format("select count(*) from TBPMO_CONTROL_VALUE where CONTROL_ID = {0} and RECORD_ID = {1}", CONTROL_ID, CURRENT_RECORD_ID)
If ClassDatabase.Execute_Scalar(sql) = 0 And checked_Count > 0 Then
InsertControlValue(CONTROL_ID, CURRENT_RECORD_ID, "")
End If
Return checked_result_string
Else
'In jedem Fall Nothing zurückgeben
Return Nothing
End If
Case "ListBoxControl"
Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(ctrl, DevExpress.XtraEditors.ListBoxControl)
Return listbox.SelectedValue
Case "DataGridView"
Dim list As New List(Of String)
Dim dgv As DataGridView = DirectCast(ctrl, DataGridView)
For Each row As DataGridViewRow In dgv.Rows
Dim cell As DataGridViewCell = row.Cells(0)
If Not IsNothing(cell.Value) Then
list.Add(cell.Value)
End If End If
checked_result_string = String.Join(";", checked_result)
Next Next
Return String.Join(";", list)
Case Else
End If
' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll
' Überspringt den Rest der funktion
If Not IsNothing(checked_result_string) Then
'Dim sql = String.Format("select count(*) from TBPMO_CONTROL_VALUE where CONTROL_ID = {0} and RECORD_ID = {1}", CONTROL_ID, CURRENT_RECORD_ID)
'If ClassDatabase.Execute_Scalar(sql) = 0 Then
' InsertControlValue(CONTROL_ID, CURRENT_RECORD_ID, "")
'End If
Return checked_result_string
Else
'In jedem Fall Nothing zurückgeben
Return Nothing Return Nothing
End Select End If
Catch ex As Exception
ClassLogger.Add("Unexpected error in GetControlValue for Control-ID: " & CONTROL_ID & " - error: " & ex.Message)
Return Nothing
End Try
Case "ListBoxControl"
Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(ctrl, DevExpress.XtraEditors.ListBoxControl)
Return listbox.SelectedValue
Case "DataGridView"
Dim list As New List(Of String)
Dim dgv As DataGridView = DirectCast(ctrl, DataGridView)
For Each row As DataGridViewRow In dgv.Rows
Dim cell As DataGridViewCell = row.Cells(0)
If Not IsNothing(cell.Value) Then
list.Add(cell.Value)
End If
Next
Return String.Join(";", list)
Case Else
Return Nothing
End Select
End Function End Function
Public Shared Function InsertControlValue(ControlID As Integer, RecordID As Integer, Value As String) Public Shared Function InsertControlValue(ControlID As Integer, RecordID As Integer, Value As String)

198
app/DD-Record-Organiser/ClassControlLoader.vb
View File

@@ -15,16 +15,15 @@
'End Function 'End Function
Public Shared Function LoadAutoValue(control As Windows.Forms.Control, RecordId As Integer, ParentRecordId As Integer, entity_ID As Integer) Public Shared Function LoadAutoValue(control As Windows.Forms.Control, RecordId As Integer, ParentRecordId As Integer, entity_ID As Integer)
Dim ControlId As Integer
Try Try
If ControlId = 810 Then
Console.WriteLine("Obacht")
End If
Dim AutoValue As String = String.Empty Dim AutoValue As String = String.Empty
ControlId = DirectCast(control.Tag, ClassControlMetadata).Id Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
Dim CONNID = ClassDatabase.Execute_Scalar(String.Format("SELECT CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId)) Dim CONNID = ClassDatabase.Execute_Scalar(String.Format("SELECT CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId))
Dim SQL As String = ClassDatabase.Execute_Scalar(String.Format("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId)) Dim SQL As String = ClassDatabase.Execute_Scalar(String.Format("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId))
SQL = ClassControlValues.ReplaceSqlCommandPlaceholders(SQL, RecordId, ParentRecordId, entity_ID) SQL = ClassControlValues.ReplaceSqlCommandPlaceholders(SQL, RecordId, ParentRecordId, entity_ID)
If ControlId = 984 Then
Console.WriteLine("VertragsNr")
End If
If SQL = "" Or IsDBNull(SQL) Then If SQL = "" Or IsDBNull(SQL) Then
Return Nothing Return Nothing
@@ -43,7 +42,7 @@
Return AutoValue Return AutoValue
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in LoadAutoValue - Control-ID: " & ControlId.ToString & " - ERROR: " & ex.Message, True) ClassLogger.Add("Unexpected Error in LoadAutoValue: " & ex.Message, True)
Return Nothing Return Nothing
End Try End Try
@@ -56,9 +55,7 @@
Public Shared Function GetDynamicValue(controlId As Integer, formId As Integer, connID As Object, sqlCommand As String) As DynamicValue Public Shared Function GetDynamicValue(controlId As Integer, formId As Integer, connID As Object, sqlCommand As String) As DynamicValue
Dim returnValue As DynamicValue Dim returnValue As DynamicValue
If controlId = 810 Then
Console.WriteLine("Obacht")
End If
returnValue.StaticList = CheckForStaticList(controlId) returnValue.StaticList = CheckForStaticList(controlId)
returnValue.DataTable = GetSqlList(controlId, formId, connID, sqlCommand) returnValue.DataTable = GetSqlList(controlId, formId, connID, sqlCommand)
@@ -85,9 +82,6 @@
Public Shared Function GetSqlList(controlId As Integer, formId As Integer, connection_Id As Object, sqlCommand As String) As DataTable Public Shared Function GetSqlList(controlId As Integer, formId As Integer, connection_Id As Object, sqlCommand As String) As DataTable
Try Try
If controlId = 810 Then
Console.WriteLine("Obacht")
End If
If sqlCommand Is Nothing Or sqlCommand = String.Empty Then If sqlCommand Is Nothing Or sqlCommand = String.Empty Then
Return Nothing Return Nothing
End If End If
@@ -117,132 +111,81 @@
End Function End Function
Overloads Shared Sub SetDataSource(control As CustomComboBox, dt As DataTable) Overloads Shared Sub SetDataSource(control As CustomComboBox, dt As DataTable)
Try Dim sw As Stopwatch = Stopwatch.StartNew()
If control.Name = "cmbverantwortlich" Then Dim columnCount As Integer = dt.Columns.Count
Console.WriteLine("Obacht")
End If
Dim Name1 = dt.Columns(0).ColumnName.ToString
Dim Name2
Try
Name2 = dt.Columns(1).ColumnName.ToString
Catch ex As Exception
Name2 = dt.Columns(0).ColumnName.ToString
End Try
Dim columnCount As Integer = dt.Columns.Count
control.BeginUpdate()
' Damit beim Setzen von DisplayMember und ValueMember kein Fehler auftritt,
' muss die Datasource zunächst geleert werden und der selected index auf -1 gesetzt werden.
control.DataSource = Nothing
control.SelectedIndex = -1
ClassControlValues.ClearControlValue(control)
' Es ist wichtig, dass DisplayMember und ValueMember VOR der DataSource festgelegt werden, control.BeginUpdate()
' Dadurch ist das Laden der Datasource um einiges SCHNELLER
If columnCount = 1 Then
For Each row As DataRow In dt.Rows
control.Items.Add(row.Item(0).ToString)
Next
'control.ValueMember = Name1
'control.DisplayMember = Name1
ElseIf columnCount = 2 Then
'If control.Name = "cmbverantwortlich" Then
' control.ValueMember = Name1
' control.DisplayMember = Name2
'Else
For Each row As DataRow In dt.Rows
control.Items.Add(row.Item(1).ToString)
Next
'End If
'If control.Name = "cmbverantwortlich" Then ' Damit beim Setzen von DisplayMember und ValueMember kein Fehler auftritt,
' muss die Datasource zunächst geleert werden und der selected index auf -1 gesetzt werden.
control.DataSource = Nothing
control.SelectedIndex = -1
'Else ' Es ist wichtig, dass DisplayMember und ValueMember VOR der DataSource festgelegt werden,
' control.ValueMember = Name1 ' Dadurch ist das Laden der Datasource um einiges SCHNELLER
' control.DisplayMember = Name2 If columnCount = 1 Then
'End If control.DisplayMember = dt.Columns(0).ColumnName
End If control.ValueMember = dt.Columns(0).ColumnName
' Als Erstes setzen wir die DataSource ElseIf columnCount = 2 Then
'If control.Name = "cmbverantwortlich" Then control.DisplayMember = dt.Columns(1).ColumnName
' control.DataSource = dt control.ValueMember = dt.Columns(0).ColumnName
'End If End If
'control.DataSource = dt ' Als letztes setzen wir die DataSource
control.EndUpdate() control.DataSource = dt
Catch ex As Exception
ClassLogger.Add("unexpected Error in SetDataSource for ControlName: " & control.Name & " - Error: " & ex.Message)
End Try
control.EndUpdate()
sw.Stop()
Console.WriteLine("SetDataSource for {0} took {1}ms", control.Name, sw.ElapsedMilliseconds)
End Sub End Sub
Overloads Shared Sub SetDataSource(control As DevExpress.XtraEditors.CheckedListBoxControl, dt As DataTable) Overloads Shared Sub SetDataSource(control As DevExpress.XtraEditors.CheckedListBoxControl, dt As DataTable)
Try Dim columnCount As Integer = dt.Columns.Count
If control.Name = "cmbverantwortlich" Then
Console.WriteLine("Obacht")
End If
Dim columnCount As Integer = dt.Columns.Count
' Damit beim Setzen von DisplayMember und ValueMember kein Fehler auftritt, ' Damit beim Setzen von DisplayMember und ValueMember kein Fehler auftritt,
' muss die Datasource zunächst geleert werden und der selected index auf -1 gesetzt werden. ' muss die Datasource zunächst geleert werden und der selected index auf -1 gesetzt werden.
control.DataSource = Nothing control.DataSource = Nothing
control.SelectedIndex = -1 control.SelectedIndex = -1
' Es ist wichtig, dass DisplayMember und ValueMember VOR der DataSource festgelegt werden, ' Es ist wichtig, dass DisplayMember und ValueMember VOR der DataSource festgelegt werden,
' Dadurch ist das Laden der Datasource um einiges SCHNELLER ' Dadurch ist das Laden der Datasource um einiges SCHNELLER
If columnCount = 1 Then If columnCount = 1 Then
control.DisplayMember = dt.Columns(0).ColumnName control.DisplayMember = dt.Columns(0).ColumnName
control.ValueMember = dt.Columns(0).ColumnName control.ValueMember = dt.Columns(0).ColumnName
ElseIf columnCount = 2 Then ElseIf columnCount = 2 Then
control.DisplayMember = dt.Columns(1).ColumnName control.DisplayMember = dt.Columns(1).ColumnName
control.ValueMember = dt.Columns(0).ColumnName control.ValueMember = dt.Columns(0).ColumnName
End If End If
' Als letztes setzen wir die DataSource
control.DataSource = dt
control.EndUpdate()
Catch ex As Exception
ClassLogger.Add("unexpected Error in SetDataSource2 for ControlName: " & control.Name & " - Error: " & ex.Message)
End Try
' Als letztes setzen wir die DataSource
control.DataSource = dt
End Sub End Sub
Overloads Shared Sub SetDataSource(control As DevExpress.XtraEditors.ListBoxControl, dt As DataTable) Overloads Shared Sub SetDataSource(control As DevExpress.XtraEditors.ListBoxControl, dt As DataTable)
Try Dim columnCount As Integer = dt.Columns.Count
If control.Name = "cmbverantwortlich" Then
Console.WriteLine("Obacht")
End If
Dim columnCount As Integer = dt.Columns.Count
' Damit beim Setzen von DisplayMember und ValueMember kein Fehler auftritt, ' Damit beim Setzen von DisplayMember und ValueMember kein Fehler auftritt,
' muss die Datasource zunächst geleert werden und der selected index auf -1 gesetzt werden. ' muss die Datasource zunächst geleert werden und der selected index auf -1 gesetzt werden.
control.DataSource = Nothing control.DataSource = Nothing
control.SelectedIndex = -1 control.SelectedIndex = -1
' Es ist wichtig, dass DisplayMember und ValueMember VOR der DataSource festgelegt werden, ' Es ist wichtig, dass DisplayMember und ValueMember VOR der DataSource festgelegt werden,
' Dadurch ist das Laden der Datasource um einiges SCHNELLER ' Dadurch ist das Laden der Datasource um einiges SCHNELLER
If columnCount = 1 Then If columnCount = 1 Then
control.DisplayMember = dt.Columns(0).ColumnName control.DisplayMember = dt.Columns(0).ColumnName
'control.ValueMember = dt.Columns(0).ColumnName control.ValueMember = dt.Columns(0).ColumnName
ElseIf columnCount = 2 Then ElseIf columnCount = 2 Then
control.DisplayMember = dt.Columns(1).ColumnName control.DisplayMember = dt.Columns(1).ColumnName
control.ValueMember = dt.Columns(0).ColumnName control.ValueMember = dt.Columns(0).ColumnName
End If End If
' Als letztes setzen wir die DataSource ' Als letztes setzen wir die DataSource
control.DataSource = dt control.DataSource = dt
Catch ex As Exception
ClassLogger.Add("unexpected Error in SetDataSource3 for ControlName: " & control.Name & " - Error: " & ex.Message)
End Try
End Sub End Sub
Overloads Shared Sub SetDataSource(control As Windows.Forms.DataGridView, dt As DataTable) Overloads Shared Sub SetDataSource(control As Windows.Forms.DataGridView, dt As DataTable)
Try control.DataSource = dt
If control.Name = "cmbverantwortlich" Then
Console.WriteLine("Obacht")
End If
control.DataSource = dt
Catch ex As Exception
ClassLogger.Add("unexpected Error in SetDataSource4 for ControlName: " & control.Name & " - Error: " & ex.Message)
End Try
End Sub End Sub
End Class End Class
@@ -263,6 +206,10 @@
control.Text = value control.Text = value
Else Else
Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
If ControlId = 984 Then
Console.WriteLine("VertragsNr")
End If
Dim SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0} AND SCREEN_ID = {1}", ControlId, CURRENT_SCREEN_ID) Dim SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0} AND SCREEN_ID = {1}", ControlId, CURRENT_SCREEN_ID)
Dim ctrl_screen_id = ClassDatabase.Execute_Scalar(SQL, True) Dim ctrl_screen_id = ClassDatabase.Execute_Scalar(SQL, True)
If ctrl_screen_id > 0 Then If ctrl_screen_id > 0 Then
@@ -357,17 +304,11 @@
Public Class Combobox : Inherits _ListControl Public Class Combobox : Inherits _ListControl
Public Shared Sub LoadValue(control As CustomComboBox, recordId As Integer, parentRecordId As Integer, value As String) Public Shared Sub LoadValue(control As CustomComboBox, recordId As Integer, parentRecordId As Integer, value As String)
If control.Name = "cmbverantwortlich" Then
Console.WriteLine("Obacht")
End If
control.Text = value control.Text = value
End Sub End Sub
Public Shared Sub LoadList(control As CustomComboBox, formId As Integer, connID As Object, SQLCommand As String) Public Shared Sub LoadList(control As CustomComboBox, formId As Integer, connID As Object, SQLCommand As String)
Try Try
If control.Name = "cmbverantwortlich" Then
Console.WriteLine("Obacht")
End If
Dim dynamic As DynamicValue = GetDynamicValue(DirectCast(control.Tag, ClassControlMetadata).Id, formId, connID, SQLCommand) Dim dynamic As DynamicValue = GetDynamicValue(DirectCast(control.Tag, ClassControlMetadata).Id, formId, connID, SQLCommand)
If dynamic.StaticList IsNot Nothing Then If dynamic.StaticList IsNot Nothing Then
@@ -385,9 +326,6 @@
Private Shared Sub CalculateDropdownWidth(control As CustomComboBox, dt As DataTable) Private Shared Sub CalculateDropdownWidth(control As CustomComboBox, dt As DataTable)
Try Try
If control.Name = "cmbverantwortlich" Then
Console.WriteLine("Obacht")
End If
Const WIDEST_WIDTH As Integer = 300 Const WIDEST_WIDTH As Integer = 300
Dim FinalWidth As Integer = WIDEST_WIDTH Dim FinalWidth As Integer = WIDEST_WIDTH
Dim index As Integer = 1 Dim index As Integer = 1
@@ -428,8 +366,6 @@
control.SetItemCheckState(pos, CheckState.Checked) control.SetItemCheckState(pos, CheckState.Checked)
End If End If
Next Next
control.Refresh()
' control.Invoke(control)
End Sub End Sub
Public Shared Sub LoadList(control As DevExpress.XtraEditors.CheckedListBoxControl, formId As Integer, conn_Id As Object, SQLCommand As String) Public Shared Sub LoadList(control As DevExpress.XtraEditors.CheckedListBoxControl, formId As Integer, conn_Id As Object, SQLCommand As String)
@@ -461,9 +397,7 @@
If IsNothing(value) Then If IsNothing(value) Then
Exit Sub Exit Sub
End If End If
If control.Name = "cmbverantwortlich" Then
Console.WriteLine("Obacht")
End If
control.SelectedIndex = control.FindStringExact(value) control.SelectedIndex = control.FindStringExact(value)
End Sub End Sub

58
app/DD-Record-Organiser/ClassControlValues.vb
View File

@@ -163,9 +163,7 @@ Public Class ClassControlValues
For Each control As Control In controls For Each control As Control In controls
Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
If ControlId = 810 Then
Console.WriteLine("Obacht")
End If
' Wert per LINQ aus DT_ControlValues suchen der zur aktuellen controlId passt ' Wert per LINQ aus DT_ControlValues suchen der zur aktuellen controlId passt
Dim values As List(Of Object) = (From row In DT_ControlValues.AsEnumerable() Dim values As List(Of Object) = (From row In DT_ControlValues.AsEnumerable()
Where row.Item("CONTROL_ID") = ControlId Where row.Item("CONTROL_ID") = ControlId
@@ -225,9 +223,7 @@ Public Class ClassControlValues
Try Try
' Für die meisten Controls wird nur das erste Element der Liste benötigt ' Für die meisten Controls wird nur das erste Element der Liste benötigt
Dim value As String = Nothing Dim value As String = Nothing
If controlId = 810 Then
Console.WriteLine("Obacht")
End If
If values.Count > 0 Then If values.Count > 0 Then
value = values.Item(0) value = values.Item(0)
End If End If
@@ -277,7 +273,7 @@ Public Class ClassControlValues
ClassLogger.Add(" >> Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString(), False) ClassLogger.Add(" >> Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString(), False)
End Select End Select
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in LoadControlValue - ControlID: " & controlId.ToString & " - Error: " & ex.Message, True) ClassLogger.Add("Unexpected Error in LoadControlValue: " & ex.Message, True)
MsgBox("Error in LoadControlValue:" & vbNewLine & ex.Message) MsgBox("Error in LoadControlValue:" & vbNewLine & ex.Message)
End Try End Try
@@ -483,16 +479,25 @@ Public Class ClassControlValues
Case GetType(DataGridView) Case GetType(DataGridView)
Dim dgv As DataGridView = DirectCast(control, DataGridView) Dim dgv As DataGridView = DirectCast(control, DataGridView)
dgv.Rows.Clear() Dim ds = dgv.DataSource
If (IsNothing(ds)) Then
dgv.Rows.Clear()
dgv.Refresh()
Else
dgv.DataSource = Nothing
dgv.Refresh()
End If
Console.WriteLine("Clearing DataGridView")
End Select End Select
End Sub End Sub
#End Region #End Region
#Region "LoadDefaultValue" #Region "LoadDefaultValue"
Public Shared Sub LoadDefaultValues(FormID As Integer, RecordID As Integer, controls As Control.ControlCollection) Public Shared Sub LoadDefaultValues(FormID As Integer, RecordID As Integer, controls As Control.ControlCollection, ParentRecordId As Integer, entity_ID As Integer)
'' Zuerst alle Controls leeren '' Zuerst alle Controls leeren
'ClearControlValues(controls) ClearControlValues(controls)
Dim i = 0 Dim i = 0
For Each control As Control In controls For Each control As Control In controls
@@ -503,10 +508,10 @@ Public Class ClassControlValues
End If End If
If TypeOf control Is GroupBox Then If TypeOf control Is GroupBox Then
LoadDefaultValues(FormID, RecordID, DirectCast(control, GroupBox).Controls) LoadDefaultValues(FormID, RecordID, DirectCast(control, GroupBox).Controls, ParentRecordId, entity_ID)
End If End If
LoadDefaultValue(CONTROL_ID, RecordID, control) LoadDefaultValue(CONTROL_ID, RecordID, control, ParentRecordId, entity_ID)
'Den Focus auf das erste Steuerelement setzen 'Den Focus auf das erste Steuerelement setzen
If i = 1 Then If i = 1 Then
@@ -516,7 +521,7 @@ Public Class ClassControlValues
Next Next
End Sub End Sub
Public Shared Sub LoadDefaultValue(ControlID As Integer, RecordID As Integer, control As Control) Public Shared Sub LoadDefaultValue(ControlID As Integer, RecordID As Integer, control As Control, ParentRecordId As Integer, entity_ID As Integer)
Try Try
Dim SQL = String.Format("SELECT CONTROL_DEF_VALUE FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0}", ControlID) Dim SQL = String.Format("SELECT CONTROL_DEF_VALUE FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0}", ControlID)
Dim autoValue = ClassDatabase.Execute_Scalar(SQL) Dim autoValue = ClassDatabase.Execute_Scalar(SQL)
@@ -586,6 +591,33 @@ Public Class ClassControlValues
' Mit EditValue kann man auch den angezeigten Wert leeren ' Mit EditValue kann man auch den angezeigten Wert leeren
'datepicker.DateTime = autoValue 'datepicker.DateTime = autoValue
datepicker.EditValue = autoValue datepicker.EditValue = autoValue
Case GetType(Label)
Dim lbl As Label = DirectCast(control, Label)
Dim CONNID = ClassDatabase.Execute_Scalar(String.Format("SELECT CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlID))
Dim SQL_AUTOVALUE As String = ClassDatabase.Execute_Scalar(String.Format("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlID))
SQL_AUTOVALUE = ClassControlValues.ReplaceSqlCommandPlaceholders(SQL_AUTOVALUE, RecordID, ParentRecordId, entity_ID)
If ControlID = 984 Then
Console.WriteLine("VertragsNr")
End If
If SQL_AUTOVALUE = "" Or IsDBNull(SQL_AUTOVALUE) Then
Exit Sub
End If
If SQL_AUTOVALUE.ToUpper.StartsWith("select RECORD_ENTITY_ID FROM TBPMO_RECORD WHERE".ToUpper) Then
SQL_AUTOVALUE = "SELECT MAX(RECORD_ENTITY_ID) + 1 FROM TBPMO_RECORD WHERE FORM_ID = " & entity_ID
End If
If Not IsNothing(CONNID) Then
autoValue = ClassDatabase.Execute_ScalarWithConnection(CONNID, SQL_AUTOVALUE)
Else
autoValue = ClassDatabase.Execute_Scalar(SQL_AUTOVALUE, True)
End If
' AutoValue = ClassDatabase.Execute_Scalar(SQL)
If Not String.IsNullOrEmpty(autoValue) And Not IsDBNull(autoValue) Then
lbl.Text = autoValue
End If
End Select End Select
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in LoadDefaultValue:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in LoadDefaultValue:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)

32
app/DD-Record-Organiser/ClassCustomComboBox.vb
View File

@@ -7,23 +7,37 @@
DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
End Sub End Sub
Protected Overrides Sub OnEnabledChanged(e As EventArgs) 'Protected Overrides Sub OnEnabledChanged(e As EventArgs)
'MyBase.OnEnabledChanged(e) ' 'MyBase.OnEnabledChanged(e)
If Me.Enabled Then ' If Me.Enabled Then
Me.DropDownStyle = ComboBoxStyle.DropDown ' Me.DropDownStyle = ComboBoxStyle.DropDown
Else ' Else
Me.DropDownStyle = ComboBoxStyle.DropDownList ' Me.DropDownStyle = ComboBoxStyle.DropDownList
End If ' End If
End Sub 'End Sub
Protected Overrides Sub OnDrawItem(e As DrawItemEventArgs) Protected Overrides Sub OnDrawItem(e As DrawItemEventArgs)
Dim g As System.Drawing.Graphics = e.Graphics Dim g As System.Drawing.Graphics = e.Graphics
Dim rect As Rectangle = e.Bounds Dim rect As Rectangle = e.Bounds
If e.Index >= 0 Then If e.Index >= 0 Then
Dim label As String = Me.Items(e.Index).ToString() Dim label As String
' Wenn die Items eine Static List ist, wird der String ausgelesen
If (Me.Items(e.Index).GetType() = GetType(String)) Then
label = Me.Items(e.Index).ToString()
Else
'Wenn die Items aus einer Datatable kommen, wird der DisplayMember ausgelesen
Dim rowView As DataRowView = Me.Items(e.Index)
Dim rowCount As Integer = rowView.Row.ItemArray.Count
If rowCount = 1 Then
label = rowView.Item(0)
ElseIf rowCount = 2 Then
label = rowView.Item(1)
End If
End If
If e.State = (DrawItemState.Disabled Or DrawItemState.NoAccelerator Or DrawItemState.NoFocusRect Or DrawItemState.ComboBoxEdit) Then If e.State = (DrawItemState.Disabled Or DrawItemState.NoAccelerator Or DrawItemState.NoFocusRect Or DrawItemState.ComboBoxEdit) Then
' DISABLED STATE ' DISABLED STATE

2
app/DD-Record-Organiser/ClassDatabase.vb
View File

@@ -140,7 +140,7 @@ Public Class ClassDatabase
Try Try
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = connectionString SQLconnect.ConnectionString = MyConnectionString
SQLconnect.Open() SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo 'Update Last Created Record in Foo

2
app/DD-Record-Organiser/My Project/AssemblyInfo.vb
View File

@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.4.4.9")> <Assembly: AssemblyVersion("2.4.5.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")> <Assembly: NeutralResourcesLanguageAttribute("")>

1
app/DD-Record-Organiser/frmConfig_Basic.vb
View File

@@ -30,6 +30,7 @@ Public Class frmConfig_Basic
CONNECTION_CHANGED = True CONNECTION_CHANGED = True
'Set the construction string 'Set the construction string
MyConnectionString = con 'csb.ConnectionString MyConnectionString = con 'csb.ConnectionString
ClassDatabase.Init()
My.Settings.Save() My.Settings.Save()
If chkbxUserAut.Checked = False Then If chkbxUserAut.Checked = False Then
Dim wrapper As New ClassEncryption("!35452didalog=") Dim wrapper As New ClassEncryption("!35452didalog=")

42
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -621,8 +621,6 @@ Public Class frmConstructor_Main
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Column_Row_Handler() Column_Row_Handler()
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
Me.Refresh()
' pnlDetails.Invoke(sender, e)
'If dataloaded = True Then 'If dataloaded = True Then
' If LogErrorsOnly = False Then ClassLogger.Add(" >> grvwSelection_FocusedRowChanged - EditState: " & EDIT_STATE, False) ' If LogErrorsOnly = False Then ClassLogger.Add(" >> grvwSelection_FocusedRowChanged - EditState: " & EDIT_STATE, False)
' Dim selRecID = GetSelected_RecordID() ' Dim selRecID = GetSelected_RecordID()
@@ -722,7 +720,8 @@ Public Class frmConstructor_Main
RIGHT_ONLY_READ = False RIGHT_ONLY_READ = False
End Try End Try
If RIGHT_ONLY_READ = True Then If RIGHT_ONLY_READ = True Then
tsButtonAdd.Enabled = False ' Hinzufügen sollte auch bei RIGHT_ONLY_READ verfügbar sein
tsButtonAdd.Enabled = True
tsButtonEdit.Enabled = False tsButtonEdit.Enabled = False
tsButtonSave.Enabled = False tsButtonSave.Enabled = False
tsButtonDelete.Enabled = False tsButtonDelete.Enabled = False
@@ -1154,9 +1153,11 @@ Public Class frmConstructor_Main
Lock_RecordControls(False) Lock_RecordControls(False)
tsButtonShowWorkflowTasks.Enabled = True tsButtonShowWorkflowTasks.Enabled = True
CURRENT_PARENT_ID = PARENT_ID CURRENT_PARENT_ID = PARENT_ID
ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls) ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls, CURRENT_PARENT_ID, ENTITY_ID)
' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden ' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden
tsButtonSave.Enabled = True tsButtonSave.Enabled = True
' Muss aktiviert werden, sonst funktionieren die Combobox Abhängigkeits Events nicht
CURRENT_RECORD_ENABLED = True
EDIT_STATE = EditState.Insert EDIT_STATE = EditState.Insert
RECORD_CHANGED = True RECORD_CHANGED = True
tsslblRecord.Text = "Adding record ......" tsslblRecord.Text = "Adding record ......"
@@ -1333,7 +1334,7 @@ Public Class frmConstructor_Main
msg = "The record and all dependencies for '" & SELECTED_RECORD_ID & "' were deleted - " & Now msg = "The record and all dependencies for '" & SELECTED_RECORD_ID & "' were deleted - " & Now
End If End If
Update_Status_Label(True, msg, EditState.Update) Update_Status_Label(True, msg, EditState.Update)
msg = "Wollen Sie die zugehörigen windream-Dateien ebenfalls löschen?" msg = "Wollen Sie die zugehörigen windream-Dateien ebenfalls löschen?"
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = "Do You want to delete the related windream-documents?" msg = "Do You want to delete the related windream-documents?"
@@ -1992,14 +1993,6 @@ Public Class frmConstructor_Main
Case GetType(Windows.Forms.TextBox) Case GetType(Windows.Forms.TextBox)
Dim txt As TextBox = CType(Control, TextBox) Dim txt As TextBox = CType(Control, TextBox)
txt.ReadOnly = state txt.ReadOnly = state
Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
'Dim chlb As DevExpress.XtraEditors.CheckedListBoxControl = CType(Control, DevExpress.XtraEditors.CheckedListBoxControl)
'If state = True Then
' chlb.Enabled = False
'Else
' chlb.Enabled = True
'End If
Case Else Case Else
Control.Enabled = Not state Control.Enabled = Not state
@@ -3197,6 +3190,7 @@ Public Class frmConstructor_Main
If LogErrorsOnly = False Then ClassLogger.Add(" >> GetSearchDocuments took " & Format(elapsed, "0.000000000") & " seconds", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> GetSearchDocuments took " & Format(elapsed, "0.000000000") & " seconds", False)
If windreamSucheErgebnisse.Count > 0 Then If windreamSucheErgebnisse.Count > 0 Then
Dim files_deleted As Integer = 0 Dim files_deleted As Integer = 0
For Each dok As WMObject In windreamSucheErgebnisse For Each dok As WMObject In windreamSucheErgebnisse
Dim filename = "W:" & dok.aPath Dim filename = "W:" & dok.aPath
Try Try
@@ -3212,7 +3206,7 @@ Public Class frmConstructor_Main
MsgBox(msg, MsgBoxStyle.Information) MsgBox(msg, MsgBoxStyle.Information)
Next Next
Else Else
Dim msg = "Es wurden keine Dateien für diesen Datensatz gefunden!" Dim msg = "Es wurden keine Dateien für diesen Datensatz gefunden!"
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = "No files found for record!" msg = "No files found for record!"
End If End If
@@ -3530,9 +3524,13 @@ Public Class frmConstructor_Main
CURRENT_RECORD_ID = RECORD_ID CURRENT_RECORD_ID = RECORD_ID
CURRENT_FORM_ID = ENTITY_ID CURRENT_FORM_ID = ENTITY_ID
CURRENT_FORMVIEW_ID = FORMVIEW_ID CURRENT_FORMVIEW_ID = FORMVIEW_ID
frmWD_Index_Dokart.ShowDialog() If ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_FILES_USER WHERE GUID = " & CURRENT_FILEID & " AND WORKED = 0") = 1 Then
RUN_WD_SEARCH(WD_Suche, "RECORD") frmWD_Index_Dokart.ShowDialog()
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> File was deleted or worked meanwhile!")
End If
Next Next
RUN_WD_SEARCH(WD_Suche, "RECORD")
End If End If
End If End If
Else Else
@@ -4302,11 +4300,21 @@ Public Class frmConstructor_Main
Console.WriteLine("Filter changed: " & Now) Console.WriteLine("Filter changed: " & Now)
End Sub End Sub
Public Sub New() Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub AxObjectListControl_CausesValidationChanged(sender As Object, e As EventArgs) Handles AxObjectListControl.CausesValidationChanged
Console.WriteLine("CausesValidationChanged")
End Sub
Private Sub AxObjectListControl_SettingFlagChanged(sender As Object, e As EventArgs) Handles AxObjectListControl.SettingFlagChanged
Console.WriteLine("SettingFlagChanged")
End Sub
Private Sub AxObjectListControl_Validated(sender As Object, e As EventArgs) Handles AxObjectListControl.Validated
Console.WriteLine("Validated")
End Sub End Sub
End Class End Class

19
app/DD-Record-Organiser/frmForm_Input.vb
View File

@@ -440,6 +440,23 @@ Public Class frmFormInput
System.Windows.Forms.MessageBox.Show(ex.Message) System.Windows.Forms.MessageBox.Show(ex.Message)
End Try End Try
End Sub End Sub
Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs)
Dim result As MsgBoxResult
result = MessageBox.Show("Möchten Sie den Datensatz wirklich löschen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Dim sql As String = "DELETE FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = " & SelectedRecordID
If ClassDatabase.Execute_non_Query(sql) = True Then ' Delete der Controls erfolgreich ausgeführt, jetzt der Record
sql = "DELETE FROM TBPMO_RECORD WHERE GUID = " & SelectedRecordID
If ClassDatabase.Execute_non_Query(sql) = True Then
LoadOverview_Grid()
ToolStrip_Notice("Der Datensatz wurde erfolgreich gelöscht - " & Now)
End If
End If
End If
End Sub
Private Sub tsbtnrefresh_Click(sender As Object, e As EventArgs) Handles tsbtnrefresh.Click Private Sub tsbtnrefresh_Click(sender As Object, e As EventArgs) Handles tsbtnrefresh.Click
LoadOverview_Grid() LoadOverview_Grid()
End Sub End Sub
@@ -449,7 +466,7 @@ Public Class frmFormInput
ClassControlValues.ClearControlValues(pnlView.Controls) ClassControlValues.ClearControlValues(pnlView.Controls)
ClassControlValues.UnloadControlValuesList(SelectedRecordID, thisformid, pnlView.Controls) ClassControlValues.UnloadControlValuesList(SelectedRecordID, thisformid, pnlView.Controls)
ClassControlValues.LoadControlValuesList(thisformid, pnlView.Controls) ClassControlValues.LoadControlValuesList(thisformid, pnlView.Controls)
ClassControlValues.LoadDefaultValues(thisformid, SelectedRecordID, pnlView.Controls) ClassControlValues.LoadDefaultValues(thisformid, SelectedRecordID, pnlView.Controls, 99, 99)
'Das Flag INSERT nach LoadControls setzen 'Das Flag INSERT nach LoadControls setzen
CtrlCommandUI.IsInsert = True CtrlCommandUI.IsInsert = True

2
app/DD-Record-Organiser/frmLevel_Designer.vb
View File

@@ -774,6 +774,7 @@
props.ShowColumn = NotNull(CBool(r.Item("CONTROL_SHOW_COLUMN")), True) props.ShowColumn = NotNull(CBool(r.Item("CONTROL_SHOW_COLUMN")), True)
props.TabStop = r.Item("CTRLSCR_TAB_STOP") props.TabStop = r.Item("CTRLSCR_TAB_STOP")
props.TabIndex = r.Item("CTRLSCR_TAB_INDEX") props.TabIndex = r.Item("CTRLSCR_TAB_INDEX")
props.SQLCommand = New SQLValue(NotNull(r.Item("CONTROL_SQLCOMMAND_1"), ""))
Case "Datagridview" Case "Datagridview"
props.ControlType = "DataGridView/Table" props.ControlType = "DataGridView/Table"
@@ -820,6 +821,7 @@
CType(r.Item("CTRLSCR_FONT_STYLE"), FontStyle)) CType(r.Item("CTRLSCR_FONT_STYLE"), FontStyle))
props.ColumnTitle = ClassConverter.ToStringOrDefault(r.Item("CONTROL_COL_NAME"), ctrl.Name) props.ColumnTitle = ClassConverter.ToStringOrDefault(r.Item("CONTROL_COL_NAME"), ctrl.Name)
props.ShowColumn = ClassConverter.ToBooleanOrDefault(r.Item("CONTROL_SHOW_COLUMN"), True) props.ShowColumn = ClassConverter.ToBooleanOrDefault(r.Item("CONTROL_SHOW_COLUMN"), True)
props.SQLCommand = New SQLValue(NotNull(r.Item("CONTROL_SQLCOMMAND_1"), ""))
Case "F_AddAppointment" Case "F_AddAppointment"
props.ControlType = "Function.AddToCalendar" props.ControlType = "Function.AddToCalendar"

6
app/DD-Record-Organiser/frmTool_ControlProperties.vb
View File

@@ -50,7 +50,7 @@
Select Case type Select Case type
Case "Label" : props = New LabelProperties() Case "Label" : props = New LabelProperties()
Case "Textbox" : props = New TextBoxProperties() Case "Textbox" : props = New TextBoxProperties()
Case "Combobox" : props = New ComboBoxProperties() Case "CustomComboBox" : props = New ComboBoxProperties()
Case "Checkbox" : props = New CheckBoxProperties() Case "Checkbox" : props = New CheckBoxProperties()
Case "RadioButton" : props = New RadioButtonProperties() Case "RadioButton" : props = New RadioButtonProperties()
Case "Datepicker" : props = New DateTimePickerProperties() Case "Datepicker" : props = New DateTimePickerProperties()
@@ -97,7 +97,7 @@
props.Multiline = r.Item("CONTROL_MULTILINE") props.Multiline = r.Item("CONTROL_MULTILINE")
props.SQLCommand = New SQLValue(NotNull(r.Item("CONTROL_SQLCOMMAND_1"), "")) props.SQLCommand = New SQLValue(NotNull(r.Item("CONTROL_SQLCOMMAND_1"), ""))
Case "Combobox" Case "CustomComboBox"
props.FontColor = IntToColor(r.Item("CTRLSCR_FONT_COLOR")) props.FontColor = IntToColor(r.Item("CTRLSCR_FONT_COLOR"))
props.Font = New Font(r.Item("CTRLSCR_FONT_FAMILY").ToString(), props.Font = New Font(r.Item("CTRLSCR_FONT_FAMILY").ToString(),
CType(r.Item("CTRLSCR_FONT_SIZE"), Single), CType(r.Item("CTRLSCR_FONT_SIZE"), Single),
@@ -303,7 +303,7 @@
' Else ' Else
' props.Format = "String" ' props.Format = "String"
' End If ' End If
' Case "Combobox" ' Case "CustomComboBox"
' props = New ComboBoxProperties() ' props = New ComboBoxProperties()
' props.MasterDataId = row.Item("CTRLSCR_MASTER_DATA_ID") ' props.MasterDataId = row.Item("CTRLSCR_MASTER_DATA_ID")
' props.DefaultValue = ClassConverter.ToStringOrDefault(row.Item("CONTROL_DEF_VALUE")) ' props.DefaultValue = ClassConverter.ToStringOrDefault(row.Item("CONTROL_DEF_VALUE"))