MS_05042016
This commit is contained in:
SchreiberM
@@ -27,22 +27,21 @@ Public Class ClassControlCommandsUI
|
||||
|
||||
Sub LoadControls(FormId As Integer)
|
||||
_CtrlBuilder.ClearControls()
|
||||
|
||||
Dim sw As New Stopwatch
|
||||
sw.Start()
|
||||
Dim elapsed As Double
|
||||
Dim SQL As String = String.Format("SELECT T.*, dbo.FNPMO_GET_CONTROL_CAPTION ('{2}', {3},T.CONTROL_ID) AS 'CAPTION' FROM VWPMO_CONTROL_SCREEN T WHERE SCREEN_ID = {0} AND FORM_ID = {1}", CURRENT_SCREEN_ID, FormId, USER_LANGUAGE, CURRENT_SCREEN_ID)
|
||||
|
||||
' "SELECT * FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = " & FormId & " and SCREEN_ID = 1"
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
|
||||
|
||||
_CtrlBuilder.MasterPanel.SuspendLayout()
|
||||
|
||||
For Each dr As DataRow In DT.Rows
|
||||
|
||||
Dim parent As GroupBox = Nothing
|
||||
If (dr.Item("CONTROL_PARENT_ID") <> 0) Then
|
||||
Dim parentname As String = Get_Name_for_ControlID(dr.Item("CONTROL_PARENT_ID"), FormId)
|
||||
parent = _CtrlBuilder.GetControlByName(parentname)
|
||||
End If
|
||||
|
||||
Dim control As String
|
||||
Select Case dr.Item("CTRLTYPE_ID")
|
||||
Case 1 ' Label
|
||||
_CtrlBuilder.AddLabel(dr.Item("CONTROL_ID"),
|
||||
@@ -57,6 +56,7 @@ Public Class ClassControlCommandsUI
|
||||
dr.Item("CONTROL_SQLCOMMAND_1"),
|
||||
False,
|
||||
parent)
|
||||
control = "Label - " & dr.Item("CONTROL_ID")
|
||||
Case 2 ' TextBox
|
||||
_CtrlBuilder.AddTextBox(dr.Item("CONTROL_ID"),
|
||||
dr.Item("CONTROL_NAME"),
|
||||
@@ -76,6 +76,7 @@ Public Class ClassControlCommandsUI
|
||||
dr.Item("CONTROL_FORMAT_TYPE"),
|
||||
False,
|
||||
parent)
|
||||
control = "Text - " & dr.Item("CONTROL_ID")
|
||||
Case 3 ' ComboBox
|
||||
_CtrlBuilder.AddComboBox(dr.Item("CONTROL_ID"),
|
||||
dr.Item("CONTROL_NAME"),
|
||||
@@ -112,6 +113,7 @@ Public Class ClassControlCommandsUI
|
||||
dr.Item("CONTROL_REQUIRED"),
|
||||
False,
|
||||
parent)
|
||||
control = "DatePicker - " & dr.Item("CONTROL_ID")
|
||||
Case 5 ' GroupBox
|
||||
_CtrlBuilder.AddGroupBox(dr.Item("CONTROL_ID"),
|
||||
dr.Item("CONTROL_NAME"),
|
||||
@@ -127,6 +129,7 @@ Public Class ClassControlCommandsUI
|
||||
dr.Item("CTRLSCR_FONT_STYLE"),
|
||||
False,
|
||||
parent)
|
||||
control = "GroupBox - " & dr.Item("CONTROL_ID")
|
||||
Case 6 ' PictureBox
|
||||
_CtrlBuilder.AddPictureBox(dr.Item("CONTROL_ID"),
|
||||
dr.Item("CONTROL_NAME"),
|
||||
@@ -150,6 +153,7 @@ Public Class ClassControlCommandsUI
|
||||
dr.Item("CONTROL_REQUIRED"),
|
||||
dr.Item("CONTROL_COL_NAME"),
|
||||
parent)
|
||||
control = "Datagridview - " & dr.Item("CONTROL_ID")
|
||||
Case 10 ' Checkbox
|
||||
Dim Checked As Boolean = False
|
||||
'If IsDBNull(dr.Item("CONTROL_DEF_VALUE")) Then
|
||||
@@ -175,6 +179,7 @@ Public Class ClassControlCommandsUI
|
||||
dr.Item("CONTROL_READ_ONLY"),
|
||||
dr.Item("CONTROL_REQUIRED"),
|
||||
parent)
|
||||
control = "CheckBox - " & dr.Item("CONTROL_ID")
|
||||
Case 8 ' Function AddAppointment
|
||||
_CtrlBuilder.FunctionAddAppointment(dr.Item("CONTROL_ID"),
|
||||
dr.Item("CONTROL_NAME"),
|
||||
@@ -186,6 +191,7 @@ Public Class ClassControlCommandsUI
|
||||
False,
|
||||
parent)
|
||||
AddHandler _CtrlBuilder.CurrentControl.Click, _AddAppointmentHandler
|
||||
control = "Appointment - " & dr.Item("CONTROL_ID")
|
||||
Case 9 ' Function AddFormData
|
||||
_CtrlBuilder.FunctionAddFormData(dr.Item("CONTROL_ID"),
|
||||
dr.Item("CONTROL_NAME"),
|
||||
@@ -197,6 +203,7 @@ Public Class ClassControlCommandsUI
|
||||
False,
|
||||
parent)
|
||||
AddHandler _CtrlBuilder.CurrentControl.Click, _AddFormDataHandler
|
||||
control = "AddFormData - " & dr.Item("CONTROL_ID")
|
||||
Case 11 ' RadioButton
|
||||
Dim Checked As Boolean = False
|
||||
'If IsDBNull(dr.Item("CONTROL_DEF_VALUE")) Then
|
||||
@@ -222,6 +229,7 @@ Public Class ClassControlCommandsUI
|
||||
dr.Item("CONTROL_READ_ONLY"),
|
||||
dr.Item("CONTROL_REQUIRED"),
|
||||
parent)
|
||||
control = "Radiobutton - " & dr.Item("CONTROL_ID")
|
||||
Case 12 'CheckedListBox
|
||||
CtrlBuilder.AddCheckedListBox(dr.Item("CONTROL_ID"),
|
||||
dr.Item("CONTROL_NAME"),
|
||||
@@ -241,6 +249,7 @@ Public Class ClassControlCommandsUI
|
||||
dr.Item("CONTROL_STATIC_LIST"),
|
||||
dr.Item("CONTROL_SQLCOMMAND_1"),
|
||||
parent)
|
||||
control = "CheckedlistBox - " & dr.Item("CONTROL_ID")
|
||||
Case 13 'CheckedListBox
|
||||
CtrlBuilder.AddListBox(dr.Item("CONTROL_ID"),
|
||||
dr.Item("CONTROL_NAME"),
|
||||
@@ -260,8 +269,9 @@ Public Class ClassControlCommandsUI
|
||||
dr.Item("CONTROL_STATIC_LIST"),
|
||||
dr.Item("CONTROL_SQLCOMMAND_1"),
|
||||
parent)
|
||||
control = "Listbox - " & dr.Item("CONTROL_ID")
|
||||
End Select
|
||||
|
||||
|
||||
_CtrlBuilder.MasterPanel.ResumeLayout()
|
||||
|
||||
' ContextMenuStrip zuweisen
|
||||
@@ -271,6 +281,9 @@ Public Class ClassControlCommandsUI
|
||||
' Tag wird für ControlId verwendet, master data id bei rechtsklick herausfinden
|
||||
'_CtrlBuilder.CurrentControl.Tag = dr.Item("CTRLSCR_MASTER_DATA_ID")
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Adding Control '" & control & "' took " & Format(elapsed, "0.000000000") & " seconds", False)
|
||||
sw.Stop()
|
||||
sw.Reset()
|
||||
Next
|
||||
End Sub
|
||||
|
||||
@@ -299,7 +312,7 @@ Public Class ClassControlCommandsUI
|
||||
Dim RECORD_ID As Integer
|
||||
|
||||
If IsInsert Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> (SaveRecord) Insert", False)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> (SaveRecord) Insert", False)
|
||||
|
||||
' Den Record erstellen
|
||||
If CreateRecord(FormID) = False Then
|
||||
@@ -312,7 +325,7 @@ Public Class ClassControlCommandsUI
|
||||
CURRENT_RECORD_ID = RECORD_ID
|
||||
' Wenn gegeben, foreignrecordID mit Record verknüpfen
|
||||
If foreignRecordID > 0 Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> foreignRecordID: " & foreignRecordID & "; Record-ID: " & RECORD_ID, False)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> foreignRecordID: " & foreignRecordID & "; Record-ID: " & RECORD_ID, False)
|
||||
ConnectRecord(foreignRecordID, RECORD_ID)
|
||||
End If
|
||||
|
||||
@@ -326,7 +339,7 @@ Public Class ClassControlCommandsUI
|
||||
|
||||
Return "Neuer Datensatz eingefügt - " & Now
|
||||
ElseIf IsInsert = False Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> (SaveRecord) Update RecordID: " & RECORD_ID, False)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> (SaveRecord) Update RecordID: " & RECORD_ID, False)
|
||||
UpdateAllControls(FormID, RecordID, _CtrlBuilder.AllControls)
|
||||
|
||||
Return "Datensatz aktualisiert - " & Now
|
||||
@@ -481,7 +494,7 @@ Public Class ClassControlCommandsUI
|
||||
Try
|
||||
For Each ctrl As Control In controls
|
||||
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)
|
||||
|
||||
If TypeOf ctrl Is PictureBox Then
|
||||
@@ -513,7 +526,7 @@ Public Class ClassControlCommandsUI
|
||||
If ValueExists Then ' Control Updaten
|
||||
UpdateControlValue(CONTROL_ID, RecordID, CONTROL_VALUE)
|
||||
Else ' Neues Control
|
||||
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)
|
||||
InsertControlValue(CONTROL_ID, RecordID, CONTROL_VALUE)
|
||||
End If
|
||||
Next
|
||||
@@ -552,14 +565,14 @@ Public Class ClassControlCommandsUI
|
||||
|
||||
Dim type = ctrl.GetType().Name
|
||||
Dim CONTROL_ID As Integer = 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)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> GetControlValue CONTROL_ID: " & CONTROL_ID, False)
|
||||
Dim CONTROL_VALUE As String = Nothing
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> type = " & type.ToString, False)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> type = " & type.ToString, False)
|
||||
Select Case type
|
||||
Case "TextBox"
|
||||
Return DirectCast(ctrl, TextBox).Text
|
||||
Case "ComboBox"
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> Return Value: " & DirectCast(ctrl, ComboBox).Text, False)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Return Value: " & DirectCast(ctrl, ComboBox).Text, False)
|
||||
Return DirectCast(ctrl, ComboBox).Text
|
||||
Case "CheckBox"
|
||||
Return DirectCast(ctrl, CheckBox).Checked.ToString()
|
||||
@@ -608,7 +621,7 @@ Public Class ClassControlCommandsUI
|
||||
If ClassDatabase.Execute_Scalar(SQL) = 1 Then
|
||||
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)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted", False)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@@ -633,7 +646,7 @@ Public Class ClassControlCommandsUI
|
||||
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)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Checked ListBox record '" & rid.ToString & "' was linked successfully.", False)
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -765,7 +778,7 @@ Public Class ClassControlCommandsUI
|
||||
Public Shared Function ConnectRecord(PARENT_RECORD As Integer, LINK_RECORD As Integer, Optional Comment As String = "")
|
||||
Dim ADDED_WHO As String = Environment.UserName
|
||||
Dim SQL = "INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID,COMMENT,ADDED_WHO) VALUES (" & PARENT_RECORD & "," & LINK_RECORD & ",'" & Comment & "','" & ADDED_WHO & "')"
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(">> ConnectRecord SQL: " & SQL, False)
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> ConnectRecord SQL: " & SQL, False)
|
||||
Return ClassDatabase.Execute_non_Query(SQL, True)
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user