diff --git a/app/DD-Record-Organiser/ClassControlCommands.vb b/app/DD-Record-Organiser/ClassControlCommands.vb index f8dd25e..7953902 100644 --- a/app/DD-Record-Organiser/ClassControlCommands.vb +++ b/app/DD-Record-Organiser/ClassControlCommands.vb @@ -423,15 +423,21 @@ If DeleteControlValues(CURRENT_CONTROL_ID) = True Then If DeleteControlScreen(CURRENT_CONTROL_ID) = True Then If ClassFunctionCommands.DeleteFunction(CURRENT_CONTROL_ID) = True Then - Dim SQL = "DELETE FROM TBPMO_CONTROL WHERE GUID = " & CURRENT_CONTROL_ID - + Dim SQL = "DELETE FROM TBPMO_CONTROL_IMAGE WHERE CONTROL_ID = " & CURRENT_CONTROL_ID If ClassDatabase.Execute_non_Query(SQL) = True Then - Return True + SQL = "DELETE FROM TBPMO_CONTROL WHERE GUID = " & CURRENT_CONTROL_ID + If ClassDatabase.Execute_non_Query(SQL) = True Then + Return True + End If Else - Throw New Exception() + Return False End If End If + Else + Return False End If + Else + Return False End If Catch ex As Exception @@ -492,5 +498,16 @@ Return False End Try End Function + Public Shared Function CTRL_EXISTSinPARENT(ctrlName As String, parent As Control) As Boolean + Dim bResult As Boolean = False + For Each elem As Control In parent.Controls + If elem.Name = ctrlName Then + bResult = True + Exit For + End If + Next + + Return bResult + End Function End Class diff --git a/app/DD-Record-Organiser/ClassDatabase.vb b/app/DD-Record-Organiser/ClassDatabase.vb index 5d0337d..e417c3b 100644 --- a/app/DD-Record-Organiser/ClassDatabase.vb +++ b/app/DD-Record-Organiser/ClassDatabase.vb @@ -1,4 +1,6 @@ -Public Class ClassDatabase +Imports Oracle.ManagedDataAccess.Client + +Public Class ClassDatabase Private Shared connectionString As String Public Shared Function Init() @@ -15,7 +17,34 @@ Return False End Try End Function + Public Shared Function GetConnectionString(id As Integer) + Dim connectionString As String = "" + Try + 'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id) + Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id) + If DTConnection.Rows.Count = 1 Then + Select Case DTConnection.Rows(0).Item("SQL_PROVIDER") + Case "MS-SQLServer" + connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Initial Catalog= " & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";" + Case "Oracle" + If DTConnection.Rows(0).Item("BEMERKUNG").ToString.Contains("without tnsnames") Then + connectionString = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & DTConnection.Rows(0).Item("SERVER") & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _ + DTConnection.Rows(0).Item("DATENBANK") & ")));User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";" + Else + connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Persist Security Info=True;User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";Unicode=True" + End If + Case Else + ClassLogger.Add(" - ConnectionType nicht integriert", False) + MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!") + End Select + End If + Catch ex As Exception + ClassLogger.Add(" - Unvorhergesehener Fehler bei GetConnectionString - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei GetConnectionString:") + End Try + Return connectionString + End Function Public Shared Function Return_Datatable(Select_anweisung As String, Optional CallMethod As String = "") Try Dim SQLconnect As New SqlClient.SqlConnection @@ -38,6 +67,29 @@ Return Nothing End Try End Function + Public Shared Function Return_Datatable_CS(Select_anweisung As String, ConString As String, Optional userInput As Boolean = False) + Try + Dim SQLconnect As New SqlClient.SqlConnection + Dim SQLcommand As SqlClient.SqlCommand + SQLconnect.ConnectionString = ConString + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + SQLcommand.CommandText = Select_anweisung + + Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand) + Dim dt As DataTable = New DataTable() + adapter1.Fill(dt) + SQLconnect.Close() + Return dt + Catch ex As Exception + If userInput = True Then + MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical) + End If + ClassLogger.Add("Fehler bei Return_Datatable_CS: " & ex.Message, True) + ClassLogger.Add("#SQL: " & Select_anweisung, False) + Return Nothing + End Try + End Function Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional Userinput As Boolean = False) Try Dim SQLconnect As New SqlClient.SqlConnection @@ -84,4 +136,71 @@ Return Nothing End Try End Function + Public Shared Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String) + Dim result + Try + Dim SQLconnect As New OracleConnection + Dim SQLcommand As New OracleCommand + SQLconnect.ConnectionString = OracleConnection + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + 'Update Last Created Record in Foo + SQLcommand.CommandText = cmdscalar + result = SQLcommand.ExecuteScalar() + SQLcommand.Dispose() + SQLconnect.Close() + Return result + Catch ex As Exception + ClassLogger.Add("Fehler bei OracleExecute_Scalar: " & ex.Message, True) + ClassLogger.Add("#SQL: " & cmdscalar, False) + Return Nothing + End Try + End Function + Public Shared Function OracleExecute_non_Query(ExecuteCMD As String, OracleConnection As String, Optional userInput As Boolean = False) + Try + Dim SQLconnect As New OracleConnection + Dim SQLcommand As OracleCommand + SQLconnect.ConnectionString = OracleConnection + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + 'Update Last Created Record in Foo + SQLcommand.CommandText = ExecuteCMD + SQLcommand.ExecuteNonQuery() + SQLcommand.Dispose() + SQLconnect.Close() + Return True + Catch ex As Exception + If userInput = True Then + MsgBox("Error in OracleExecute_non_Query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical) + End If + ClassLogger.Add("Fehler bei OracleExecute_non_Query: " & ex.Message, True) + ClassLogger.Add("#SQL: " & ExecuteCMD, False) + + Return False + End Try + End Function + + Public Shared Function Oracle_Return_Datatable(Select_anweisung As String, OracleConnection As String, Optional userInput As Boolean = False) + Try + Dim SQLconnect As New OracleConnection + Dim SQLcommand As OracleCommand + SQLconnect.ConnectionString = OracleConnection + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + SQLcommand.CommandText = Select_anweisung + + Dim adapter1 As OracleDataAdapter = New OracleDataAdapter(SQLcommand) + Dim dt As DataTable = New DataTable() + adapter1.Fill(dt) + SQLconnect.Close() + Return dt + Catch ex As Exception + If userInput = True Then + MsgBox("Error in Oracle Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical) + End If + ClassLogger.Add("Fehler bei Oracle_Return_Datatable: " & ex.Message, True) + ClassLogger.Add("#SQL: " & Select_anweisung, False) + Return Nothing + End Try + End Function End Class diff --git a/app/DD-Record-Organiser/ClassDragDrop.vb b/app/DD-Record-Organiser/ClassDragDrop.vb index 60c635d..f5dcce5 100644 --- a/app/DD-Record-Organiser/ClassDragDrop.vb +++ b/app/DD-Record-Organiser/ClassDragDrop.vb @@ -102,7 +102,7 @@ Public Class ClassDragDrop Else 'otherwise, do not handle e.Effect = DragDropEffects.None - frmForm_Constructor_OLD.tsstatus_Detail_show(True, "DragEnter ... Other FileFormat") + frmForm_Constructor.tsstatus_Detail_show(True, "DragEnter ... Other FileFormat") If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... Other FileFormat", False) End If @@ -153,20 +153,20 @@ Public Class ClassDragDrop If e.Data.GetDataPresent(DataFormats.FileDrop) Then e.Effect = DragDropEffects.All If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... SimpleFileDrop", False) - frmForm_Constructor_OLD.tslblStatusMain_show(True, "DragEnter ... SimpleFileDrop") + frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... SimpleFileDrop") ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then 'handle a message dragged from Outlook e.Effect = DragDropEffects.Copy - frmForm_Constructor_OLD.tslblStatusMain_show(True, "DragEnter ... OutlookMessage") + frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... OutlookMessage") If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... OutlookMessage", False) ElseIf e.Data.GetDataPresent("aryFileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then e.Effect = DragDropEffects.Copy - frmForm_Constructor_OLD.tslblStatusMain_show(True, "DragEnter ... Attachment from Outlook") - If LogErrorsOnly = True Then frmForm_Constructor_OLD.tsstatus_Detail_show(True, "DragEnter ... Attachment from Outlook") + frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... Attachment from Outlook") + If LogErrorsOnly = True Then frmForm_Constructor.tsstatus_Detail_show(True, "DragEnter ... Attachment from Outlook") Else 'otherwise, do not handle e.Effect = DragDropEffects.None - frmForm_Constructor_OLD.tslblStatusMain_show(True, "DragEnter ... Other FileFormat") + frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... Other FileFormat") If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... Other FileFormat", False) End If Catch ex As Exception diff --git a/app/DD-Record-Organiser/ClassFormCommands.vb b/app/DD-Record-Organiser/ClassFormCommands.vb index d980878..22ff53a 100644 --- a/app/DD-Record-Organiser/ClassFormCommands.vb +++ b/app/DD-Record-Organiser/ClassFormCommands.vb @@ -74,12 +74,14 @@ Public Shared Function DeleteFormView(guid) Try - Dim SQL As String = "DELETE FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & guid + Dim SQL As String = "DELETE FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE FORMVIEW_ID in (SELECT GUID FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & guid & ")" + If ClassDatabase.Execute_non_Query(SQL) = False Then Return False - If ClassDatabase.Execute_non_Query(SQL) = True Then - Return True + SQL = "DELETE FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & guid + If ClassDatabase.Execute_non_Query(SQL) = False Then + Return False Else - Throw New Exception() + Return True End If Catch ex As Exception MsgBox("Fehler beim Löschen der Anzeigeeigenschaften der Form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) @@ -95,14 +97,16 @@ If dt.Rows.Count > 0 Then For Each row As DataRow In dt.Rows Dim controlid As Integer = row.Item(0) - Console.WriteLine("deleting control: " & controlid) CURRENT_CONTROL_ID = controlid ClassControlCommands.DeleteControl() + Next End If - + Return True Catch ex As Exception - + MsgBox("Fehler beim Löschen der FormControls: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False End Try End Function + End Class diff --git a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj index 3ade9c2..ea2910b 100644 --- a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj +++ b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj @@ -228,6 +228,7 @@ + @@ -276,11 +277,21 @@ DD_DMSDataSet.xsd + + True + True + DD_DMSDataSet.xsd + True True DD_DMSDataSetMenuDesigner.xsd + + True + True + DD_ECMAdmin.xsd + frmConfiguration_Basic.vb @@ -293,6 +304,12 @@ Form + + frmConstructorDesigner.vb + + + Form + frmDD_EMAIL_ACCOUNT.vb @@ -323,6 +340,12 @@ Form + + frmNewKombiForm.vb + + + Form + frmQuickAccessManager.vb @@ -347,6 +370,12 @@ Form + + frmTestvb.vb + + + Form + frmUserKonfig_AddUsers.vb @@ -359,11 +388,6 @@ Form - - True - True - DD_DMSDataSet.xsd - True True @@ -525,6 +549,9 @@ frmConnections.vb + + frmConstructorDesigner.vb + frmDD_EMAIL_ACCOUNT.vb @@ -540,6 +567,9 @@ frmLogRecord.vb + + frmNewKombiForm.vb + frmQuickAccessManager.vb @@ -552,6 +582,9 @@ frmSQLEditor.vb + + frmTestvb.vb + frmUserKonfig_AddUsers.vb @@ -636,8 +669,8 @@ MSDataSetGenerator - DD_DMSDataSet.Designer.vb Designer + DD_DMSDataSet.Designer.vb DD_DMSDataSet.xsd @@ -664,6 +697,17 @@ DD_DMSDataSetMenuDesigner.xsd + + DD_ECMAdmin.xsd + + + Designer + MSDataSetGenerator + DD_ECMAdmin.Designer.vb + + + DD_ECMAdmin.xsd + MyApplicationCodeGenerator @@ -915,6 +959,10 @@ + + + + diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb b/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb index de95fc8..2e2c020 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb +++ b/app/DD-Record-Organiser/DD_DMSDataSet.Designer.vb @@ -1643,6 +1643,8 @@ Partial Public Class DD_DMSDataSet Private columnFORM_TYPE_ID As Global.System.Data.DataColumn + Private columnSINGLE_RECORD As Global.System.Data.DataColumn + _ Public Sub New() @@ -1758,6 +1760,14 @@ Partial Public Class DD_DMSDataSet End Get End Property + _ + Public ReadOnly Property SINGLE_RECORDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSINGLE_RECORD + End Get + End Property + _ @@ -1795,9 +1805,9 @@ Partial Public Class DD_DMSDataSet _ - Public Overloads Function AddTBPMO_FORMRow(ByVal PARENT_ID As Integer, ByVal NAME As String, ByVal LEVEL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SHOW_FORM_CONSTRUCT As Boolean, ByVal parentTBPMO_FORM_TYPERowByFK_TBPMO_FORM_FORM_TYPE_ID As TBPMO_FORM_TYPERow) As TBPMO_FORMRow + Public Overloads Function AddTBPMO_FORMRow(ByVal PARENT_ID As Integer, ByVal NAME As String, ByVal LEVEL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SHOW_FORM_CONSTRUCT As Boolean, ByVal parentTBPMO_FORM_TYPERowByFK_TBPMO_FORM_FORM_TYPE_ID As TBPMO_FORM_TYPERow, ByVal SINGLE_RECORD As Boolean) As TBPMO_FORMRow Dim rowTBPMO_FORMRow As TBPMO_FORMRow = CType(Me.NewRow,TBPMO_FORMRow) - Dim columnValuesArray() As Object = New Object() {Nothing, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHOW_FORM_CONSTRUCT, Nothing} + Dim columnValuesArray() As Object = New Object() {Nothing, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHOW_FORM_CONSTRUCT, Nothing, SINGLE_RECORD} If (Not (parentTBPMO_FORM_TYPERowByFK_TBPMO_FORM_FORM_TYPE_ID) Is Nothing) Then columnValuesArray(9) = parentTBPMO_FORM_TYPERowByFK_TBPMO_FORM_FORM_TYPE_ID(0) End If @@ -1839,6 +1849,7 @@ Partial Public Class DD_DMSDataSet Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnSHOW_FORM_CONSTRUCT = MyBase.Columns("SHOW_FORM_CONSTRUCT") Me.columnFORM_TYPE_ID = MyBase.Columns("FORM_TYPE_ID") + Me.columnSINGLE_RECORD = MyBase.Columns("SINGLE_RECORD") End Sub _ + Public Property SINGLE_RECORD() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM.SINGLE_RECORDColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_FORM.SINGLE_RECORDColumn) = value + End Set + End Property + _ Public Property TBPMO_FORM_TYPERow() As TBPMO_FORM_TYPERow @@ -22162,7 +22183,11 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = value @@ -22241,6 +22266,18 @@ Partial Public Class DD_DMSDataSet Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = Global.System.Convert.DBNull End Sub + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + _ Public Function IsCHANGED_WHONull() As Boolean @@ -26222,6 +26259,7 @@ Namespace DD_DMSDataSetTableAdapters tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("SHOW_FORM_CONSTRUCT", "SHOW_FORM_CONSTRUCT") tableMapping.ColumnMappings.Add("FORM_TYPE_ID", "FORM_TYPE_ID") + tableMapping.ColumnMappings.Add("SINGLE_RECORD", "SINGLE_RECORD") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection @@ -26231,10 +26269,9 @@ Namespace DD_DMSDataSetTableAdapters Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PARENT_ID, NAME, LEVEL, ADDED_W"& _ - "HO, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PARENT_ID,@NAME,@LEVEL,@"& _ - "ADDED_WHO,@SHOW_FORM_CONSTRUCT,@FORM_TYPE_ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ID, NAME, "& _ - "LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM WHERE (G"& _ - "UID = SCOPE_IDENTITY())" + "HO, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID, SINGLE_RECORD)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PARENT_ID"& _ + ",@NAME,@LEVEL,@ADDED_WHO,@SHOW_FORM_CONSTRUCT,@FORM_TYPE_ID,@SINGLE_RECORD); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ + "D_WHEN FROM TBPMO_FORM WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -26242,13 +26279,15 @@ Namespace DD_DMSDataSetTableAdapters Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHOW_FORM_CONSTRUCT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SHOW_FORM_CONSTRUCT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SINGLE_RECORD", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SINGLE_RECORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PARENT_ID = @PARENT_ID, NAME = @NAME,"& _ " LEVEL = @LEVEL, CHANGED_WHO = @CHANGED_WHO, SHOW_FORM_CONSTRUCT = @SHOW_FORM_CO"& _ - "NSTRUCT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FORM_TYPE_ID = @FORM_TYPE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE ("& _ - "GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED"& _ - "_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM WHERE (GUID = @GUID)" + "NSTRUCT, FORM_TYPE_ID = @FORM_TYPE_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SINGLE_RECORD "& _ + "= @SINGLE_RECORD"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_"& _ + "ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FOR"& _ + "M WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -26256,6 +26295,7 @@ Namespace DD_DMSDataSetTableAdapters Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHOW_FORM_CONSTRUCT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SHOW_FORM_CONSTRUCT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SINGLE_RECORD", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SINGLE_RECORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub @@ -26274,14 +26314,15 @@ Namespace DD_DMSDataSetTableAdapters Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ - "HANGED_WHEN, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHER"& _ - "E (GUID = @GUID)" + "HANGED_WHEN, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID, SINGLE_RECORD"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM T"& _ + "BPMO_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = "SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ - "HANGED_WHEN, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM" + "HANGED_WHEN, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID, SINGLE_RECORD"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM T"& _ + "BPMO_FORM" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text End Sub @@ -26388,7 +26429,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal PARENT_ID As Integer, ByVal NAME As String, ByVal LEVEL As String, ByVal ADDED_WHO As String, ByVal SHOW_FORM_CONSTRUCT As Boolean, ByVal FORM_TYPE_ID As Global.System.Nullable(Of Integer)) As Integer + Public Overloads Overridable Function Insert(ByVal PARENT_ID As Integer, ByVal NAME As String, ByVal LEVEL As String, ByVal ADDED_WHO As String, ByVal SHOW_FORM_CONSTRUCT As Boolean, ByVal FORM_TYPE_ID As Global.System.Nullable(Of Integer), ByVal SINGLE_RECORD As Boolean) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(PARENT_ID,Integer) If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") @@ -26411,6 +26452,7 @@ Namespace DD_DMSDataSetTableAdapters Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SINGLE_RECORD,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -26430,7 +26472,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal PARENT_ID As Integer, ByVal NAME As String, ByVal LEVEL As String, ByVal CHANGED_WHO As String, ByVal SHOW_FORM_CONSTRUCT As Boolean, ByVal FORM_TYPE_ID As Global.System.Nullable(Of Integer), ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Public Overloads Overridable Function Update(ByVal PARENT_ID As Integer, ByVal NAME As String, ByVal LEVEL As String, ByVal CHANGED_WHO As String, ByVal SHOW_FORM_CONSTRUCT As Boolean, ByVal FORM_TYPE_ID As Global.System.Nullable(Of Integer), ByVal SINGLE_RECORD As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PARENT_ID,Integer) If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") @@ -26453,8 +26495,9 @@ Namespace DD_DMSDataSetTableAdapters Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SINGLE_RECORD,Boolean) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -34591,81 +34634,37 @@ Namespace DD_DMSDataSetTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_FORM_CONSTRUCTOR] WHERE (([GUID] = @Original_GUID) AND ((@IsNu"& _ - "ll_FORM_TITLE = 1 AND [FORM_TITLE] IS NULL) OR ([FORM_TITLE] = @Original_FORM_TI"& _ - "TLE)) AND ([SEQUENCE_MENU] = @Original_SEQUENCE_MENU) AND ([ADDED_WHO] = @Origin"& _ - "al_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WH"& _ - "O = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND"& _ - " ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Or"& _ - "iginal_CHANGED_WHEN)) AND ((@IsNull_SHORT_TITLE = 1 AND [SHORT_TITLE] IS NULL) O"& _ - "R ([SHORT_TITLE] = @Original_SHORT_TITLE)))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FORM_TITLE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORT_TITLE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_FORM_CONSTRUCTOR] ([FORM_TITLE], [SEQUENCE_MENU], [ADDED_WHO],"& _ - " [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [MENU_IMG], [SHORT_TITLE]) VALUES "& _ - "(@FORM_TITLE, @SEQUENCE_MENU, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WH"& _ - "EN, @MENU_IMG, @SHORT_TITLE);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO"& _ - ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_C"& _ - "ONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORM_TITLE, SEQUENC"& _ + "E_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FORM_TITLE,@SEQUENCE_"& _ + "MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TITLE, SEQUENCE_MEN"& _ + "U, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM "& _ + "TBPMO_FORM_CONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_FORM_CONSTRUCTOR] SET [FORM_TITLE] = @FORM_TITLE, [SEQUENCE_MENU] ="& _ - " @SEQUENCE_MENU, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_"& _ - "WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [MENU_IMG] = @MENU_IMG, [SH"& _ - "ORT_TITLE] = @SHORT_TITLE WHERE (([GUID] = @Original_GUID) AND ((@IsNull_FORM_TI"& _ - "TLE = 1 AND [FORM_TITLE] IS NULL) OR ([FORM_TITLE] = @Original_FORM_TITLE)) AND "& _ - "([SEQUENCE_MENU] = @Original_SEQUENCE_MENU) AND ([ADDED_WHO] = @Original_ADDED_W"& _ - "HO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND "& _ - "[CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull"& _ - "_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHA"& _ - "NGED_WHEN)) AND ((@IsNull_SHORT_TITLE = 1 AND [SHORT_TITLE] IS NULL) OR ([SHORT_"& _ - "TITLE] = @Original_SHORT_TITLE)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDE"& _ - "D_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_F"& _ - "ORM_CONSTRUCTOR WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FORM_TITLE = @FORM_TITLE,"& _ + " SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IM"& _ + "G, SHORT_TITLE = @SHORT_TITLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _ + "ID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN,"& _ + " MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FORM_TITLE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORT_TITLE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_FORM_TITLE As String, ByVal Original_SEQUENCE_MENU As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_SHORT_TITLE As String) As Integer + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_FORM_TITLE Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FORM_TITLE,String) - End If - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SEQUENCE_MENU,Integer) - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADDED_WHO,String) - End If - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN,Date) - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - If (Original_SHORT_TITLE Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_SHORT_TITLE,String) - End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -34797,7 +34761,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String) As Integer + Public Overloads Overridable Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String) As Integer If (FORM_TITLE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else @@ -34809,26 +34773,15 @@ Namespace DD_DMSDataSetTableAdapters Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) End If - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHEN,Date) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - End If If (MENU_IMG Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(MENU_IMG,Byte()) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(MENU_IMG,Byte()) End If If (SHORT_TITLE Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(SHORT_TITLE,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SHORT_TITLE,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ @@ -34849,93 +34802,30 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update( _ - ByVal FORM_TITLE As String, _ - ByVal SEQUENCE_MENU As Integer, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal MENU_IMG() As Byte, _ - ByVal SHORT_TITLE As String, _ - ByVal Original_GUID As Integer, _ - ByVal Original_FORM_TITLE As String, _ - ByVal Original_SEQUENCE_MENU As Integer, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_SHORT_TITLE As String, _ - ByVal GUID As Integer) As Integer + Public Overloads Overridable Function Update(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (FORM_TITLE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TITLE,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHEN,Date) If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) End If If (MENU_IMG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(MENU_IMG,Byte()) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MENU_IMG,Byte()) End If If (SHORT_TITLE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SHORT_TITLE,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SHORT_TITLE,String) End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) - If (Original_FORM_TITLE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_FORM_TITLE,String) - End If - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SEQUENCE_MENU,Integer) - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ADDED_WHEN,Date) - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value - End If - If (Original_SHORT_TITLE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_SHORT_TITLE,String) - End If - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -34950,30 +34840,6 @@ Namespace DD_DMSDataSetTableAdapters End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal FORM_TITLE As String, _ - ByVal SEQUENCE_MENU As Integer, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal MENU_IMG() As Byte, _ - ByVal SHORT_TITLE As String, _ - ByVal Original_GUID As Integer, _ - ByVal Original_FORM_TITLE As String, _ - ByVal Original_SEQUENCE_MENU As Integer, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_SHORT_TITLE As String) As Integer - Return Me.Update(FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE, Original_GUID, Original_FORM_TITLE, Original_SEQUENCE_MENU, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_SHORT_TITLE, Original_GUID) - End Function End Class ''' @@ -38920,179 +38786,74 @@ Namespace DD_DMSDataSetTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_FORM_CONSTRUCTOR_DETAIL] WHERE (([GUID] = @Original_GUID) AND "& _ - "([CONSTRUCT_ID] = @Original_CONSTRUCT_ID) AND ([FORM_ID] = @Original_FORM_ID) AN"& _ - "D ([PARENT_ID] = @Original_PARENT_ID) AND ([LEVEL1_SELECT] = @Original_LEVEL1_SE"& _ - "LECT) AND ([SEQUENCE] = @Original_SEQUENCE) AND ((@IsNull_SQL_SELECT_EBENE1 = 1 "& _ - "AND [SQL_SELECT_EBENE1] IS NULL) OR ([SQL_SELECT_EBENE1] = @Original_SQL_SELECT_"& _ - "EBENE1)) AND ([SQL_SELECT_EBENE2] = @Original_SQL_SELECT_EBENE2) AND ((@IsNull_A"& _ - "DDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AN"& _ - "D ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANG"& _ - "ED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANG"& _ - "ED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_W"& _ - "HEN)) AND ([COLUMN_NAME1] = @Original_COLUMN_NAME1) AND ([COLUMN_NAME2] = @Origi"& _ - "nal_COLUMN_NAME2) AND ((@IsNull_WINDREAM_SEARCH = 1 AND [WINDREAM_SEARCH] IS NUL"& _ - "L) OR ([WINDREAM_SEARCH] = @Original_WINDREAM_SEARCH)) AND ((@IsNull_SEARCH_PATT"& _ - "ERN1 = 1 AND [SEARCH_PATTERN1] IS NULL) OR ([SEARCH_PATTERN1] = @Original_SEARCH"& _ - "_PATTERN1)) AND ((@IsNull_SEARCH_PATTERN2 = 1 AND [SEARCH_PATTERN2] IS NULL) OR "& _ - "([SEARCH_PATTERN2] = @Original_SEARCH_PATTERN2)) AND ((@IsNull_SEARCH_PATTERN3 ="& _ - " 1 AND [SEARCH_PATTERN3] IS NULL) OR ([SEARCH_PATTERN3] = @Original_SEARCH_PATTE"& _ - "RN3)) AND ((@IsNull_SEARCH_PATTERN4 = 1 AND [SEARCH_PATTERN4] IS NULL) OR ([SEAR"& _ - "CH_PATTERN4] = @Original_SEARCH_PATTERN4)) AND ((@IsNull_SEARCH_PATTERN5 = 1 AND"& _ - " [SEARCH_PATTERN5] IS NULL) OR ([SEARCH_PATTERN5] = @Original_SEARCH_PATTERN5)))"& _ - "" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WINDREAM_SEARCH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_FORM_CONSTRUCTOR_DETAIL] ([CONSTRUCT_ID], [FORM_ID], [PARENT_I"& _ - "D], [LEVEL1_SELECT], [SEQUENCE], [SQL_SELECT_EBENE1], [SQL_SELECT_EBENE2], [ADDE"& _ - "D_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [COLUMN_NAME1], [COLUMN_NAM"& _ - "E2], [WINDREAM_SEARCH], [SEARCH_PATTERN1], [SEARCH_PATTERN2], [SEARCH_PATTERN3],"& _ - " [SEARCH_PATTERN4], [SEARCH_PATTERN5]) VALUES (@CONSTRUCT_ID, @FORM_ID, @PARENT_"& _ - "ID, @LEVEL1_SELECT, @SEQUENCE, @SQL_SELECT_EBENE1, @SQL_SELECT_EBENE2, @ADDED_WH"& _ - "O, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @COLUMN_NAME1, @COLUMN_NAME2, @WIND"& _ - "REAM_SEARCH, @SEARCH_PATTERN1, @SEARCH_PATTERN2, @SEARCH_PATTERN3, @SEARCH_PATTE"& _ - "RN4, @SEARCH_PATTERN5);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_S"& _ - "ELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CH"& _ - "ANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PAT"& _ - "TERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM T"& _ - "BPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONSTRUCT_ID"& _ + ", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE"& _ + "NE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEAR"& _ + "CH_PATTERN5)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@S"& _ + "EQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_N"& _ + "AME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH"& _ + "_PATTERN4,@SEARCH_PATTERN5); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LE"& _ + "VEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WH"& _ + "EN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEAR"& _ + "CH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 "& _ + "FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_FORM_CONSTRUCTOR_DETAIL] SET [CONSTRUCT_ID] = @CONSTRUCT_ID, [FORM_"& _ - "ID] = @FORM_ID, [PARENT_ID] = @PARENT_ID, [LEVEL1_SELECT] = @LEVEL1_SELECT, [SEQ"& _ - "UENCE] = @SEQUENCE, [SQL_SELECT_EBENE1] = @SQL_SELECT_EBENE1, [SQL_SELECT_EBENE2"& _ - "] = @SQL_SELECT_EBENE2, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [C"& _ - "HANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COLUMN_NAME1] = @CO"& _ - "LUMN_NAME1, [COLUMN_NAME2] = @COLUMN_NAME2, [WINDREAM_SEARCH] = @WINDREAM_SEARCH"& _ - ", [SEARCH_PATTERN1] = @SEARCH_PATTERN1, [SEARCH_PATTERN2] = @SEARCH_PATTERN2, [S"& _ - "EARCH_PATTERN3] = @SEARCH_PATTERN3, [SEARCH_PATTERN4] = @SEARCH_PATTERN4, [SEARC"& _ - "H_PATTERN5] = @SEARCH_PATTERN5 WHERE (([GUID] = @Original_GUID) AND ([CONSTRUCT_"& _ - "ID] = @Original_CONSTRUCT_ID) AND ([FORM_ID] = @Original_FORM_ID) AND ([PARENT_I"& _ - "D] = @Original_PARENT_ID) AND ([LEVEL1_SELECT] = @Original_LEVEL1_SELECT) AND (["& _ - "SEQUENCE] = @Original_SEQUENCE) AND ((@IsNull_SQL_SELECT_EBENE1 = 1 AND [SQL_SEL"& _ - "ECT_EBENE1] IS NULL) OR ([SQL_SELECT_EBENE1] = @Original_SQL_SELECT_EBENE1)) AND"& _ - " ([SQL_SELECT_EBENE2] = @Original_SQL_SELECT_EBENE2) AND ((@IsNull_ADDED_WHO = 1"& _ - " AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ([ADDED_WH"& _ - "EN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS N"& _ - "ULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 "& _ - "AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND (["& _ - "COLUMN_NAME1] = @Original_COLUMN_NAME1) AND ([COLUMN_NAME2] = @Original_COLUMN_N"& _ - "AME2) AND ((@IsNull_WINDREAM_SEARCH = 1 AND [WINDREAM_SEARCH] IS NULL) OR ([WIND"& _ - "REAM_SEARCH] = @Original_WINDREAM_SEARCH)) AND ((@IsNull_SEARCH_PATTERN1 = 1 AND"& _ - " [SEARCH_PATTERN1] IS NULL) OR ([SEARCH_PATTERN1] = @Original_SEARCH_PATTERN1)) "& _ - "AND ((@IsNull_SEARCH_PATTERN2 = 1 AND [SEARCH_PATTERN2] IS NULL) OR ([SEARCH_PAT"& _ - "TERN2] = @Original_SEARCH_PATTERN2)) AND ((@IsNull_SEARCH_PATTERN3 = 1 AND [SEAR"& _ - "CH_PATTERN3] IS NULL) OR ([SEARCH_PATTERN3] = @Original_SEARCH_PATTERN3)) AND (("& _ - "@IsNull_SEARCH_PATTERN4 = 1 AND [SEARCH_PATTERN4] IS NULL) OR ([SEARCH_PATTERN4]"& _ - " = @Original_SEARCH_PATTERN4)) AND ((@IsNull_SEARCH_PATTERN5 = 1 AND [SEARCH_PAT"& _ - "TERN5] IS NULL) OR ([SEARCH_PATTERN5] = @Original_SEARCH_PATTERN5)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _ - "ID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1"& _ - ", SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NA"& _ - "ME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PAT"& _ - "TERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE"& _ - " (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONSTRUCT_ID = @CO"& _ + "NSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_"& _ + "SELECT, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_SELECT_EBENE1 = @SQ"& _ + "L_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_"& _ + "WHO, COLUMN_NAME1 = @COLUMN_NAME1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COLUMN_NAME2 = @CO"& _ + "LUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTER"& _ + "N1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTER"& _ + "N3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SE"& _ + "ARCH_PATTERN5"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONSTRUCT_ID"& _ + ", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE"& _ + "NE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME"& _ + "2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PA"& _ + "TTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WINDREAM_SEARCH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEARCH_PATTERN5", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQ"& _ "L_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_"& _ "WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SE"& _ "ARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN"& _ - "5"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (CONSTRUCT_ID = @"& _ - "CONSTRUCT_ID)" + "5"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, COLUMN_NAME1, COLUMN_NAM"& _ + "E2, CONSTRUCT_ID, FORM_ID, GUID, LEVEL1_SELECT, PARENT_ID, SEARCH_PATTERN1, SEAR"& _ + "CH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, SEQUENCE, SQL_SE"& _ + "LECT_EBENE1, SQL_SELECT_EBENE2, WINDREAM_SEARCH FROM TBPMO_FORM_CONSTRUCTOR_DETA"& _ + "IL WHERE (GUID = @ID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal CONSTRUCT_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -39136,9 +38905,35 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal CONSTRUCT_ID As Integer) As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = New DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByID(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByID(ByVal ID As Integer) As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) Dim dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = New DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() Me.Adapter.Fill(dataTable) Return dataTable @@ -39176,119 +38971,8 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _ - Public Overloads Overridable Function Delete( _ - ByVal Original_GUID As Integer, _ - ByVal Original_CONSTRUCT_ID As Integer, _ - ByVal Original_FORM_ID As Integer, _ - ByVal Original_PARENT_ID As Integer, _ - ByVal Original_LEVEL1_SELECT As Boolean, _ - ByVal Original_SEQUENCE As Integer, _ - ByVal Original_SQL_SELECT_EBENE1 As String, _ - ByVal Original_SQL_SELECT_EBENE2 As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_COLUMN_NAME1 As String, _ - ByVal Original_COLUMN_NAME2 As String, _ - ByVal Original_WINDREAM_SEARCH As String, _ - ByVal Original_SEARCH_PATTERN1 As String, _ - ByVal Original_SEARCH_PATTERN2 As String, _ - ByVal Original_SEARCH_PATTERN3 As String, _ - ByVal Original_SEARCH_PATTERN4 As String, _ - ByVal Original_SEARCH_PATTERN5 As String) As Integer + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CONSTRUCT_ID,Integer) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_FORM_ID,Integer) - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_PARENT_ID,Integer) - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_LEVEL1_SELECT,Boolean) - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_SEQUENCE,Integer) - If (Original_SQL_SELECT_EBENE1 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_SQL_SELECT_EBENE1,String) - End If - If (Original_SQL_SELECT_EBENE2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_SQL_SELECT_EBENE2") - Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_SQL_SELECT_EBENE2,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHO,String) - End If - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_ADDED_WHEN,Date) - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value - End If - If (Original_COLUMN_NAME1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_COLUMN_NAME1") - Else - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_COLUMN_NAME1,String) - End If - If (Original_COLUMN_NAME2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_COLUMN_NAME2") - Else - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_COLUMN_NAME2,String) - End If - If (Original_WINDREAM_SEARCH Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_WINDREAM_SEARCH,String) - End If - If (Original_SEARCH_PATTERN1 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_SEARCH_PATTERN1,String) - End If - If (Original_SEARCH_PATTERN2 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_SEARCH_PATTERN2,String) - End If - If (Original_SEARCH_PATTERN3 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_SEARCH_PATTERN3,String) - End If - If (Original_SEARCH_PATTERN4 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_SEARCH_PATTERN4,String) - End If - If (Original_SEARCH_PATTERN5 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(28).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(29).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(28).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_SEARCH_PATTERN5,String) - End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -39317,9 +39001,6 @@ Namespace DD_DMSDataSetTableAdapters ByVal SQL_SELECT_EBENE1 As String, _ ByVal SQL_SELECT_EBENE2 As String, _ ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal COLUMN_NAME1 As String, _ ByVal COLUMN_NAME2 As String, _ ByVal WINDREAM_SEARCH As String, _ @@ -39348,56 +39029,45 @@ Namespace DD_DMSDataSetTableAdapters Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String) End If - Me.Adapter.InsertCommand.Parameters(8).Value = CType(ADDED_WHEN,Date) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(10).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value - End If If (COLUMN_NAME1 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME1") Else - Me.Adapter.InsertCommand.Parameters(11).Value = CType(COLUMN_NAME1,String) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(COLUMN_NAME1,String) End If If (COLUMN_NAME2 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME2") Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(COLUMN_NAME2,String) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(COLUMN_NAME2,String) End If If (WINDREAM_SEARCH Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(13).Value = CType(WINDREAM_SEARCH,String) + Me.Adapter.InsertCommand.Parameters(10).Value = CType(WINDREAM_SEARCH,String) End If If (SEARCH_PATTERN1 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(14).Value = CType(SEARCH_PATTERN1,String) + Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEARCH_PATTERN1,String) End If If (SEARCH_PATTERN2 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN2,String) + Me.Adapter.InsertCommand.Parameters(12).Value = CType(SEARCH_PATTERN2,String) End If If (SEARCH_PATTERN3 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(16).Value = CType(SEARCH_PATTERN3,String) + Me.Adapter.InsertCommand.Parameters(13).Value = CType(SEARCH_PATTERN3,String) End If If (SEARCH_PATTERN4 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(17).Value = CType(SEARCH_PATTERN4,String) + Me.Adapter.InsertCommand.Parameters(14).Value = CType(SEARCH_PATTERN4,String) End If If (SEARCH_PATTERN5 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(18).Value = CType(SEARCH_PATTERN5,String) + Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN5,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ @@ -39426,10 +39096,7 @@ Namespace DD_DMSDataSetTableAdapters ByVal SEQUENCE As Integer, _ ByVal SQL_SELECT_EBENE1 As String, _ ByVal SQL_SELECT_EBENE2 As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal COLUMN_NAME1 As String, _ ByVal COLUMN_NAME2 As String, _ ByVal WINDREAM_SEARCH As String, _ @@ -39439,25 +39106,6 @@ Namespace DD_DMSDataSetTableAdapters ByVal SEARCH_PATTERN4 As String, _ ByVal SEARCH_PATTERN5 As String, _ ByVal Original_GUID As Integer, _ - ByVal Original_CONSTRUCT_ID As Integer, _ - ByVal Original_FORM_ID As Integer, _ - ByVal Original_PARENT_ID As Integer, _ - ByVal Original_LEVEL1_SELECT As Boolean, _ - ByVal Original_SEQUENCE As Integer, _ - ByVal Original_SQL_SELECT_EBENE1 As String, _ - ByVal Original_SQL_SELECT_EBENE2 As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_COLUMN_NAME1 As String, _ - ByVal Original_COLUMN_NAME2 As String, _ - ByVal Original_WINDREAM_SEARCH As String, _ - ByVal Original_SEARCH_PATTERN1 As String, _ - ByVal Original_SEARCH_PATTERN2 As String, _ - ByVal Original_SEARCH_PATTERN3 As String, _ - ByVal Original_SEARCH_PATTERN4 As String, _ - ByVal Original_SEARCH_PATTERN5 As String, _ ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID,Integer) @@ -39474,155 +39122,53 @@ Namespace DD_DMSDataSetTableAdapters Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2,String) End If - If (ADDED_WHO Is Nothing) Then + If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ADDED_WHEN,Date) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) End If If (COLUMN_NAME1 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME1") Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(COLUMN_NAME1,String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COLUMN_NAME1,String) End If If (COLUMN_NAME2 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME2") Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(COLUMN_NAME2,String) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(COLUMN_NAME2,String) End If If (WINDREAM_SEARCH Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(WINDREAM_SEARCH,String) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(WINDREAM_SEARCH,String) End If If (SEARCH_PATTERN1 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SEARCH_PATTERN1,String) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEARCH_PATTERN1,String) End If If (SEARCH_PATTERN2 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SEARCH_PATTERN2,String) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEARCH_PATTERN2,String) End If If (SEARCH_PATTERN3 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(SEARCH_PATTERN3,String) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SEARCH_PATTERN3,String) End If If (SEARCH_PATTERN4 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(SEARCH_PATTERN4,String) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SEARCH_PATTERN4,String) End If If (SEARCH_PATTERN5 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(SEARCH_PATTERN5,String) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SEARCH_PATTERN5,String) End If - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_CONSTRUCT_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_FORM_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_PARENT_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_LEVEL1_SELECT,Boolean) - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_SEQUENCE,Integer) - If (Original_SQL_SELECT_EBENE1 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_SQL_SELECT_EBENE1,String) - End If - If (Original_SQL_SELECT_EBENE2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_SQL_SELECT_EBENE2") - Else - Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_SQL_SELECT_EBENE2,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_ADDED_WHEN,Date) - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value - End If - If (Original_COLUMN_NAME1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_COLUMN_NAME1") - Else - Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_COLUMN_NAME1,String) - End If - If (Original_COLUMN_NAME2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_COLUMN_NAME2") - Else - Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_COLUMN_NAME2,String) - End If - If (Original_WINDREAM_SEARCH Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_WINDREAM_SEARCH,String) - End If - If (Original_SEARCH_PATTERN1 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_SEARCH_PATTERN1,String) - End If - If (Original_SEARCH_PATTERN2 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_SEARCH_PATTERN2,String) - End If - If (Original_SEARCH_PATTERN3 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_SEARCH_PATTERN3,String) - End If - If (Original_SEARCH_PATTERN4 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_SEARCH_PATTERN4,String) - End If - If (Original_SEARCH_PATTERN5 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(47).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(47).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_SEARCH_PATTERN5,String) - End If - Me.Adapter.UpdateCommand.Parameters(49).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -39637,53 +39183,6 @@ Namespace DD_DMSDataSetTableAdapters End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal CONSTRUCT_ID As Integer, _ - ByVal FORM_ID As Integer, _ - ByVal PARENT_ID As Integer, _ - ByVal LEVEL1_SELECT As Boolean, _ - ByVal SEQUENCE As Integer, _ - ByVal SQL_SELECT_EBENE1 As String, _ - ByVal SQL_SELECT_EBENE2 As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal COLUMN_NAME1 As String, _ - ByVal COLUMN_NAME2 As String, _ - ByVal WINDREAM_SEARCH As String, _ - ByVal SEARCH_PATTERN1 As String, _ - ByVal SEARCH_PATTERN2 As String, _ - ByVal SEARCH_PATTERN3 As String, _ - ByVal SEARCH_PATTERN4 As String, _ - ByVal SEARCH_PATTERN5 As String, _ - ByVal Original_GUID As Integer, _ - ByVal Original_CONSTRUCT_ID As Integer, _ - ByVal Original_FORM_ID As Integer, _ - ByVal Original_PARENT_ID As Integer, _ - ByVal Original_LEVEL1_SELECT As Boolean, _ - ByVal Original_SEQUENCE As Integer, _ - ByVal Original_SQL_SELECT_EBENE1 As String, _ - ByVal Original_SQL_SELECT_EBENE2 As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_COLUMN_NAME1 As String, _ - ByVal Original_COLUMN_NAME2 As String, _ - ByVal Original_WINDREAM_SEARCH As String, _ - ByVal Original_SEARCH_PATTERN1 As String, _ - ByVal Original_SEARCH_PATTERN2 As String, _ - ByVal Original_SEARCH_PATTERN3 As String, _ - ByVal Original_SEARCH_PATTERN4 As String, _ - ByVal Original_SEARCH_PATTERN5 As String) As Integer - Return Me.Update(CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, Original_GUID, Original_CONSTRUCT_ID, Original_FORM_ID, Original_PARENT_ID, Original_LEVEL1_SELECT, Original_SEQUENCE, Original_SQL_SELECT_EBENE1, Original_SQL_SELECT_EBENE2, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_COLUMN_NAME1, Original_COLUMN_NAME2, Original_WINDREAM_SEARCH, Original_SEARCH_PATTERN1, Original_SEARCH_PATTERN2, Original_SEARCH_PATTERN3, Original_SEARCH_PATTERN4, Original_SEARCH_PATTERN5, Original_GUID) - End Function End Class ''' diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xsc b/app/DD-Record-Organiser/DD_DMSDataSet.xsc index 042cb6a..77654a9 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.xsc +++ b/app/DD-Record-Organiser/DD_DMSDataSet.xsc @@ -8,6 +8,11 @@ + + + + + diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xsd b/app/DD-Record-Organiser/DD_DMSDataSet.xsd index abbc0ad..1d76dc2 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.xsd +++ b/app/DD-Record-Organiser/DD_DMSDataSet.xsd @@ -20,24 +20,25 @@ WHERE (GUID = @Original_GUID) - + INSERT INTO TBPMO_FORM - (PARENT_ID, NAME, LEVEL, ADDED_WHO, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID) -VALUES (@PARENT_ID,@NAME,@LEVEL,@ADDED_WHO,@SHOW_FORM_CONSTRUCT,@FORM_TYPE_ID); + (PARENT_ID, NAME, LEVEL, ADDED_WHO, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID, SINGLE_RECORD) +VALUES (@PARENT_ID,@NAME,@LEVEL,@ADDED_WHO,@SHOW_FORM_CONSTRUCT,@FORM_TYPE_ID,@SINGLE_RECORD); SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM WHERE (GUID = SCOPE_IDENTITY()) - - - - - - + + + + + + + - SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID + SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID, SINGLE_RECORD FROM TBPMO_FORM WHERE (GUID = @GUID) @@ -46,21 +47,22 @@ WHERE (GUID = @GUID) - + UPDATE TBPMO_FORM -SET PARENT_ID = @PARENT_ID, NAME = @NAME, LEVEL = @LEVEL, CHANGED_WHO = @CHANGED_WHO, SHOW_FORM_CONSTRUCT = @SHOW_FORM_CONSTRUCT, - FORM_TYPE_ID = @FORM_TYPE_ID -WHERE (GUID = @Original_GUID); +SET PARENT_ID = @PARENT_ID, NAME = @NAME, LEVEL = @LEVEL, CHANGED_WHO = @CHANGED_WHO, SHOW_FORM_CONSTRUCT = @SHOW_FORM_CONSTRUCT, FORM_TYPE_ID = @FORM_TYPE_ID, + SINGLE_RECORD = @SINGLE_RECORD +WHERE (GUID = @Original_GUID); SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM WHERE (GUID = @GUID) - - - - - - - - + + + + + + + + + @@ -77,12 +79,13 @@ SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED + - SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID + SELECT GUID, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHOW_FORM_CONSTRUCT, FORM_TYPE_ID, SINGLE_RECORD FROM TBPMO_FORM @@ -1647,37 +1650,26 @@ VALUES (@DOK_ID, 0) - - DELETE FROM [TBPMO_FORM_CONSTRUCTOR] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_FORM_TITLE = 1 AND [FORM_TITLE] IS NULL) OR ([FORM_TITLE] = @Original_FORM_TITLE)) AND ([SEQUENCE_MENU] = @Original_SEQUENCE_MENU) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ((@IsNull_SHORT_TITLE = 1 AND [SHORT_TITLE] IS NULL) OR ([SHORT_TITLE] = @Original_SHORT_TITLE))) + + DELETE FROM TBPMO_FORM_CONSTRUCTOR +WHERE (GUID = @Original_GUID) - - - - - - - - - - - - + - - INSERT INTO [TBPMO_FORM_CONSTRUCTOR] ([FORM_TITLE], [SEQUENCE_MENU], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [MENU_IMG], [SHORT_TITLE]) VALUES (@FORM_TITLE, @SEQUENCE_MENU, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @MENU_IMG, @SHORT_TITLE); + + INSERT INTO TBPMO_FORM_CONSTRUCTOR + (FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE) +VALUES (@FORM_TITLE,@SEQUENCE_MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE); SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - + + + + + @@ -1689,31 +1681,19 @@ FROM TBPMO_FORM_CONSTRUCTOR - - UPDATE [TBPMO_FORM_CONSTRUCTOR] SET [FORM_TITLE] = @FORM_TITLE, [SEQUENCE_MENU] = @SEQUENCE_MENU, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [MENU_IMG] = @MENU_IMG, [SHORT_TITLE] = @SHORT_TITLE WHERE (([GUID] = @Original_GUID) AND ((@IsNull_FORM_TITLE = 1 AND [FORM_TITLE] IS NULL) OR ([FORM_TITLE] = @Original_FORM_TITLE)) AND ([SEQUENCE_MENU] = @Original_SEQUENCE_MENU) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ((@IsNull_SHORT_TITLE = 1 AND [SHORT_TITLE] IS NULL) OR ([SHORT_TITLE] = @Original_SHORT_TITLE))); + + UPDATE TBPMO_FORM_CONSTRUCTOR +SET FORM_TITLE = @FORM_TITLE, SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IMG, SHORT_TITLE = @SHORT_TITLE +WHERE (GUID = @Original_GUID); SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - + + + + + + + @@ -2466,66 +2446,38 @@ SELECT GUID, DESCRIPTION, SQL_PROVIDER, SERVER, [DATABASE], USERNAME, PASSWORD, - - DELETE FROM [TBPMO_FORM_CONSTRUCTOR_DETAIL] WHERE (([GUID] = @Original_GUID) AND ([CONSTRUCT_ID] = @Original_CONSTRUCT_ID) AND ([FORM_ID] = @Original_FORM_ID) AND ([PARENT_ID] = @Original_PARENT_ID) AND ([LEVEL1_SELECT] = @Original_LEVEL1_SELECT) AND ([SEQUENCE] = @Original_SEQUENCE) AND ((@IsNull_SQL_SELECT_EBENE1 = 1 AND [SQL_SELECT_EBENE1] IS NULL) OR ([SQL_SELECT_EBENE1] = @Original_SQL_SELECT_EBENE1)) AND ([SQL_SELECT_EBENE2] = @Original_SQL_SELECT_EBENE2) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([COLUMN_NAME1] = @Original_COLUMN_NAME1) AND ([COLUMN_NAME2] = @Original_COLUMN_NAME2) AND ((@IsNull_WINDREAM_SEARCH = 1 AND [WINDREAM_SEARCH] IS NULL) OR ([WINDREAM_SEARCH] = @Original_WINDREAM_SEARCH)) AND ((@IsNull_SEARCH_PATTERN1 = 1 AND [SEARCH_PATTERN1] IS NULL) OR ([SEARCH_PATTERN1] = @Original_SEARCH_PATTERN1)) AND ((@IsNull_SEARCH_PATTERN2 = 1 AND [SEARCH_PATTERN2] IS NULL) OR ([SEARCH_PATTERN2] = @Original_SEARCH_PATTERN2)) AND ((@IsNull_SEARCH_PATTERN3 = 1 AND [SEARCH_PATTERN3] IS NULL) OR ([SEARCH_PATTERN3] = @Original_SEARCH_PATTERN3)) AND ((@IsNull_SEARCH_PATTERN4 = 1 AND [SEARCH_PATTERN4] IS NULL) OR ([SEARCH_PATTERN4] = @Original_SEARCH_PATTERN4)) AND ((@IsNull_SEARCH_PATTERN5 = 1 AND [SEARCH_PATTERN5] IS NULL) OR ([SEARCH_PATTERN5] = @Original_SEARCH_PATTERN5))) + + DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL +WHERE (GUID = @Original_GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + - - INSERT INTO [TBPMO_FORM_CONSTRUCTOR_DETAIL] ([CONSTRUCT_ID], [FORM_ID], [PARENT_ID], [LEVEL1_SELECT], [SEQUENCE], [SQL_SELECT_EBENE1], [SQL_SELECT_EBENE2], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [COLUMN_NAME1], [COLUMN_NAME2], [WINDREAM_SEARCH], [SEARCH_PATTERN1], [SEARCH_PATTERN2], [SEARCH_PATTERN3], [SEARCH_PATTERN4], [SEARCH_PATTERN5]) VALUES (@CONSTRUCT_ID, @FORM_ID, @PARENT_ID, @LEVEL1_SELECT, @SEQUENCE, @SQL_SELECT_EBENE1, @SQL_SELECT_EBENE2, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @COLUMN_NAME1, @COLUMN_NAME2, @WINDREAM_SEARCH, @SEARCH_PATTERN1, @SEARCH_PATTERN2, @SEARCH_PATTERN3, @SEARCH_PATTERN4, @SEARCH_PATTERN5); + + INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL + (CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, + SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5) +VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@SEQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_NAME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH_PATTERN4,@SEARCH_PATTERN5); SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + @@ -2534,67 +2486,40 @@ SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELE SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL -WHERE (CONSTRUCT_ID = @CONSTRUCT_ID) +WHERE (GUID = @ID) - + - - UPDATE [TBPMO_FORM_CONSTRUCTOR_DETAIL] SET [CONSTRUCT_ID] = @CONSTRUCT_ID, [FORM_ID] = @FORM_ID, [PARENT_ID] = @PARENT_ID, [LEVEL1_SELECT] = @LEVEL1_SELECT, [SEQUENCE] = @SEQUENCE, [SQL_SELECT_EBENE1] = @SQL_SELECT_EBENE1, [SQL_SELECT_EBENE2] = @SQL_SELECT_EBENE2, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COLUMN_NAME1] = @COLUMN_NAME1, [COLUMN_NAME2] = @COLUMN_NAME2, [WINDREAM_SEARCH] = @WINDREAM_SEARCH, [SEARCH_PATTERN1] = @SEARCH_PATTERN1, [SEARCH_PATTERN2] = @SEARCH_PATTERN2, [SEARCH_PATTERN3] = @SEARCH_PATTERN3, [SEARCH_PATTERN4] = @SEARCH_PATTERN4, [SEARCH_PATTERN5] = @SEARCH_PATTERN5 WHERE (([GUID] = @Original_GUID) AND ([CONSTRUCT_ID] = @Original_CONSTRUCT_ID) AND ([FORM_ID] = @Original_FORM_ID) AND ([PARENT_ID] = @Original_PARENT_ID) AND ([LEVEL1_SELECT] = @Original_LEVEL1_SELECT) AND ([SEQUENCE] = @Original_SEQUENCE) AND ((@IsNull_SQL_SELECT_EBENE1 = 1 AND [SQL_SELECT_EBENE1] IS NULL) OR ([SQL_SELECT_EBENE1] = @Original_SQL_SELECT_EBENE1)) AND ([SQL_SELECT_EBENE2] = @Original_SQL_SELECT_EBENE2) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([COLUMN_NAME1] = @Original_COLUMN_NAME1) AND ([COLUMN_NAME2] = @Original_COLUMN_NAME2) AND ((@IsNull_WINDREAM_SEARCH = 1 AND [WINDREAM_SEARCH] IS NULL) OR ([WINDREAM_SEARCH] = @Original_WINDREAM_SEARCH)) AND ((@IsNull_SEARCH_PATTERN1 = 1 AND [SEARCH_PATTERN1] IS NULL) OR ([SEARCH_PATTERN1] = @Original_SEARCH_PATTERN1)) AND ((@IsNull_SEARCH_PATTERN2 = 1 AND [SEARCH_PATTERN2] IS NULL) OR ([SEARCH_PATTERN2] = @Original_SEARCH_PATTERN2)) AND ((@IsNull_SEARCH_PATTERN3 = 1 AND [SEARCH_PATTERN3] IS NULL) OR ([SEARCH_PATTERN3] = @Original_SEARCH_PATTERN3)) AND ((@IsNull_SEARCH_PATTERN4 = 1 AND [SEARCH_PATTERN4] IS NULL) OR ([SEARCH_PATTERN4] = @Original_SEARCH_PATTERN4)) AND ((@IsNull_SEARCH_PATTERN5 = 1 AND [SEARCH_PATTERN5] IS NULL) OR ([SEARCH_PATTERN5] = @Original_SEARCH_PATTERN5))); + + UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL +SET CONSTRUCT_ID = @CONSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_SELECT, SEQUENCE = @SEQUENCE, + SQL_SELECT_EBENE1 = @SQL_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_WHO, COLUMN_NAME1 = @COLUMN_NAME1, + COLUMN_NAME2 = @COLUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTERN1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, + SEARCH_PATTERN3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SEARCH_PATTERN5 +WHERE (GUID = @Original_GUID); SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + @@ -2622,7 +2547,18 @@ SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELE - + + + + + SELECT ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, COLUMN_NAME1, COLUMN_NAME2, CONSTRUCT_ID, FORM_ID, GUID, LEVEL1_SELECT, PARENT_ID, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, WINDREAM_SEARCH FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @ID) + + + + + + + @@ -2669,6 +2605,7 @@ SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELE + @@ -3761,7 +3698,7 @@ SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELE - + @@ -3777,7 +3714,7 @@ SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELE - + @@ -4351,10 +4288,10 @@ SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELE - + - + diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xss b/app/DD-Record-Organiser/DD_DMSDataSet.xss index 194f3d8..c5d7ec6 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.xss +++ b/app/DD-Record-Organiser/DD_DMSDataSet.xss @@ -9,17 +9,17 @@ - + - + - + - + - + @@ -31,18 +31,18 @@ - + - + - - - - + + + + @@ -253,27 +253,31 @@ - + - 1283 + 1358 221 - 1283 - 294 + 1358 + 352 - + - 299 - 325 + 282 + 356 - 1171 - 325 + 282 + 373 + + + 1246 + 373 diff --git a/app/DD-Record-Organiser/ModuleHelperMethods.vb b/app/DD-Record-Organiser/ModuleHelperMethods.vb index ee752b0..c0dc74d 100644 --- a/app/DD-Record-Organiser/ModuleHelperMethods.vb +++ b/app/DD-Record-Organiser/ModuleHelperMethods.vb @@ -202,7 +202,7 @@ End Sub Public Sub OpenFormConstructor(id As Integer) CURRENT_CONSTRUCTOR_ID = id - Dim frm As New frmForm_Constructor_OLD + Dim frm As New frmForm_Constructor ' frm = frmForm_Constructor.Instance() frm.MdiParent = frmMain frm.Show() diff --git a/app/DD-Record-Organiser/ModuleRuntimeVariables.vb b/app/DD-Record-Organiser/ModuleRuntimeVariables.vb index fa1d0a4..7a20ce8 100644 --- a/app/DD-Record-Organiser/ModuleRuntimeVariables.vb +++ b/app/DD-Record-Organiser/ModuleRuntimeVariables.vb @@ -26,4 +26,7 @@ Public NEW_RECORD_ID As Integer Public LOGPATH As String + + Public INTEGER1 As Integer + Public STRING1 As String End Module diff --git a/app/DD-Record-Organiser/My Project/AssemblyInfo.vb b/app/DD-Record-Organiser/My Project/AssemblyInfo.vb index d7b9b71..e1334c1 100644 --- a/app/DD-Record-Organiser/My Project/AssemblyInfo.vb +++ b/app/DD-Record-Organiser/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/DD-Record-Organiser/My Project/Resources.Designer.vb b/app/DD-Record-Organiser/My Project/Resources.Designer.vb index 12a4bb6..a62b03a 100644 --- a/app/DD-Record-Organiser/My Project/Resources.Designer.vb +++ b/app/DD-Record-Organiser/My Project/Resources.Designer.vb @@ -820,6 +820,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Go() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Go", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -1030,6 +1040,36 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property module_32xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("module_32xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property module_32xMD() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("module_32xMD", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property module_32xSM() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("module_32xSM", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/app/DD-Record-Organiser/My Project/Resources.resx b/app/DD-Record-Organiser/My Project/Resources.resx index 811e2ba..6a295fc 100644 --- a/app/DD-Record-Organiser/My Project/Resources.resx +++ b/app/DD-Record-Organiser/My Project/Resources.resx @@ -151,6 +151,9 @@ ..\Resources\Filter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\database_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -256,6 +259,9 @@ ..\Resources\TextBox_708.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\add1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -499,7 +505,13 @@ ..\Resources\action_Cancel_16xLG1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\module_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\module_32xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\module_32xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/app/DD-Record-Organiser/My Project/licenses.licx b/app/DD-Record-Organiser/My Project/licenses.licx index 2e80c95..6b26d80 100644 --- a/app/DD-Record-Organiser/My Project/licenses.licx +++ b/app/DD-Record-Organiser/My Project/licenses.licx @@ -1,13 +1,14 @@ -DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraWizard.WizardControl, DevExpress.XtraWizard.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraScheduler.SchedulerControl, DevExpress.XtraScheduler.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraVerticalGrid.VGridControl, DevExpress.XtraVerticalGrid.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraVerticalGrid.PropertyGridControl, DevExpress.XtraVerticalGrid.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraWizard.WizardControl, DevExpress.XtraWizard.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraVerticalGrid.VGridControl, DevExpress.XtraVerticalGrid.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraScheduler.SchedulerControl, DevExpress.XtraScheduler.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Navigation.OfficeNavigationBar, DevExpress.XtraBars.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/DD-Record-Organiser/Resources/module_32xLG.png b/app/DD-Record-Organiser/Resources/module_32xLG.png new file mode 100644 index 0000000..b6c799f Binary files /dev/null and b/app/DD-Record-Organiser/Resources/module_32xLG.png differ diff --git a/app/DD-Record-Organiser/Resources/module_32xMD.png b/app/DD-Record-Organiser/Resources/module_32xMD.png new file mode 100644 index 0000000..5be8fd8 Binary files /dev/null and b/app/DD-Record-Organiser/Resources/module_32xMD.png differ diff --git a/app/DD-Record-Organiser/Resources/module_32xSM.png b/app/DD-Record-Organiser/Resources/module_32xSM.png new file mode 100644 index 0000000..49f8860 Binary files /dev/null and b/app/DD-Record-Organiser/Resources/module_32xSM.png differ diff --git a/app/DD-Record-Organiser/frmConnections.Designer.vb b/app/DD-Record-Organiser/frmConnections.Designer.vb index 4fc523b..152c672 100644 --- a/app/DD-Record-Organiser/frmConnections.Designer.vb +++ b/app/DD-Record-Organiser/frmConnections.Designer.vb @@ -22,6 +22,7 @@ Partial Class frmConnections 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() Dim GUIDLabel As System.Windows.Forms.Label Dim DESCRIPTIONLabel As System.Windows.Forms.Label Dim COMMENTLabel As System.Windows.Forms.Label @@ -30,11 +31,11 @@ Partial Class frmConnections Dim CHANGED_WHOLabel As System.Windows.Forms.Label Dim CHANGED_WHENLabel As System.Windows.Forms.Label Dim SQL_PROVIDERLabel As System.Windows.Forms.Label - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConnections)) Dim Label1 As System.Windows.Forms.Label - Me.TBPMO_CONNECTIONBindingNavigator = New System.Windows.Forms.BindingNavigator() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConnections)) + Me.TBPMO_CONNECTIONBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() - Me.TBPMO_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource() + Me.TBPMO_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() @@ -91,75 +92,93 @@ Partial Class frmConnections 'GUIDLabel ' GUIDLabel.AutoSize = True + GUIDLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) GUIDLabel.Location = New System.Drawing.Point(180, 28) GUIDLabel.Name = "GUIDLabel" - GUIDLabel.Size = New System.Drawing.Size(19, 13) + GUIDLabel.Size = New System.Drawing.Size(20, 13) GUIDLabel.TabIndex = 2 GUIDLabel.Text = "Id:" ' 'DESCRIPTIONLabel ' DESCRIPTIONLabel.AutoSize = True + DESCRIPTIONLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DESCRIPTIONLabel.Location = New System.Drawing.Point(254, 28) DESCRIPTIONLabel.Name = "DESCRIPTIONLabel" - DESCRIPTIONLabel.Size = New System.Drawing.Size(72, 13) + DESCRIPTIONLabel.Size = New System.Drawing.Size(83, 13) DESCRIPTIONLabel.TabIndex = 4 - DESCRIPTIONLabel.Text = "Bezeichnung:" + DESCRIPTIONLabel.Text = "Interner Name:" ' 'COMMENTLabel ' COMMENTLabel.AutoSize = True + COMMENTLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) COMMENTLabel.Location = New System.Drawing.Point(180, 184) COMMENTLabel.Name = "COMMENTLabel" - COMMENTLabel.Size = New System.Drawing.Size(64, 13) + COMMENTLabel.Size = New System.Drawing.Size(69, 13) COMMENTLabel.TabIndex = 14 COMMENTLabel.Text = "Bemerkung:" ' 'ADDED_WHOLabel ' ADDED_WHOLabel.AutoSize = True - ADDED_WHOLabel.Location = New System.Drawing.Point(180, 223) + ADDED_WHOLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHOLabel.Location = New System.Drawing.Point(180, 267) ADDED_WHOLabel.Name = "ADDED_WHOLabel" - ADDED_WHOLabel.Size = New System.Drawing.Size(61, 13) + ADDED_WHOLabel.Size = New System.Drawing.Size(67, 13) ADDED_WHOLabel.TabIndex = 20 ADDED_WHOLabel.Text = "Erstellt wer:" ' 'ADDED_WHENLabel ' ADDED_WHENLabel.AutoSize = True - ADDED_WHENLabel.Location = New System.Drawing.Point(181, 262) + ADDED_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHENLabel.Location = New System.Drawing.Point(290, 267) ADDED_WHENLabel.Name = "ADDED_WHENLabel" - ADDED_WHENLabel.Size = New System.Drawing.Size(70, 13) + ADDED_WHENLabel.Size = New System.Drawing.Size(77, 13) ADDED_WHENLabel.TabIndex = 22 ADDED_WHENLabel.Text = "Erstellt wann:" ' 'CHANGED_WHOLabel ' CHANGED_WHOLabel.AutoSize = True - CHANGED_WHOLabel.Location = New System.Drawing.Point(286, 223) + CHANGED_WHOLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHOLabel.Location = New System.Drawing.Point(400, 267) CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" - CHANGED_WHOLabel.Size = New System.Drawing.Size(74, 13) + CHANGED_WHOLabel.Size = New System.Drawing.Size(80, 13) CHANGED_WHOLabel.TabIndex = 24 CHANGED_WHOLabel.Text = "Geändert wer:" ' 'CHANGED_WHENLabel ' CHANGED_WHENLabel.AutoSize = True - CHANGED_WHENLabel.Location = New System.Drawing.Point(286, 262) + CHANGED_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHENLabel.Location = New System.Drawing.Point(509, 267) CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" - CHANGED_WHENLabel.Size = New System.Drawing.Size(83, 13) + CHANGED_WHENLabel.Size = New System.Drawing.Size(90, 13) CHANGED_WHENLabel.TabIndex = 26 CHANGED_WHENLabel.Text = "Geändert wann:" ' 'SQL_PROVIDERLabel ' SQL_PROVIDERLabel.AutoSize = True + SQL_PROVIDERLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) SQL_PROVIDERLabel.Location = New System.Drawing.Point(179, 67) SQL_PROVIDERLabel.Name = "SQL_PROVIDERLabel" - SQL_PROVIDERLabel.Size = New System.Drawing.Size(49, 13) + SQL_PROVIDERLabel.Size = New System.Drawing.Size(52, 13) SQL_PROVIDERLabel.TabIndex = 30 SQL_PROVIDERLabel.Text = "Provider:" ' + 'Label1 + ' + Label1.AutoSize = True + Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Label1.Location = New System.Drawing.Point(400, 67) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(67, 13) + Label1.TabIndex = 37 + Label1.Text = "Datenbank:" + ' 'TBPMO_CONNECTIONBindingNavigator ' Me.TBPMO_CONNECTIONBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem @@ -284,7 +303,7 @@ Partial Class frmConnections 'ToolStripButton1 ' Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.arrow_refresh + Me.ToolStripButton1.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton1.Name = "ToolStripButton1" Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22) @@ -294,6 +313,7 @@ Partial Class frmConnections ' Me.ListBox1.DataSource = Me.TBPMO_CONNECTIONBindingSource Me.ListBox1.DisplayMember = "DESCRIPTION" + Me.ListBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ListBox1.FormattingEnabled = True Me.ListBox1.Location = New System.Drawing.Point(12, 28) Me.ListBox1.Name = "ListBox1" @@ -303,55 +323,62 @@ Partial Class frmConnections 'GUIDTextBox ' Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "GUID", True)) + Me.GUIDTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GUIDTextBox.Location = New System.Drawing.Point(183, 44) Me.GUIDTextBox.Name = "GUIDTextBox" - Me.GUIDTextBox.Size = New System.Drawing.Size(68, 20) + Me.GUIDTextBox.Size = New System.Drawing.Size(68, 22) Me.GUIDTextBox.TabIndex = 3 ' 'DESCRIPTIONTextBox ' Me.DESCRIPTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "DESCRIPTION", True)) + Me.DESCRIPTIONTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.DESCRIPTIONTextBox.Location = New System.Drawing.Point(257, 44) Me.DESCRIPTIONTextBox.Name = "DESCRIPTIONTextBox" - Me.DESCRIPTIONTextBox.Size = New System.Drawing.Size(192, 20) + Me.DESCRIPTIONTextBox.Size = New System.Drawing.Size(267, 22) Me.DESCRIPTIONTextBox.TabIndex = 5 ' 'SERVERTextBox ' Me.SERVERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "SERVER", True)) + Me.SERVERTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.SERVERTextBox.Location = New System.Drawing.Point(184, 122) Me.SERVERTextBox.Name = "SERVERTextBox" - Me.SERVERTextBox.Size = New System.Drawing.Size(100, 20) + Me.SERVERTextBox.Size = New System.Drawing.Size(202, 22) Me.SERVERTextBox.TabIndex = 9 ' 'USERNAMETextBox ' Me.USERNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "USERNAME", True)) + Me.USERNAMETextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.USERNAMETextBox.Location = New System.Drawing.Point(183, 161) Me.USERNAMETextBox.Name = "USERNAMETextBox" - Me.USERNAMETextBox.Size = New System.Drawing.Size(114, 20) + Me.USERNAMETextBox.Size = New System.Drawing.Size(203, 22) Me.USERNAMETextBox.TabIndex = 11 ' 'PASSWORDTextBox ' Me.PASSWORDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "PASSWORD", True)) - Me.PASSWORDTextBox.Location = New System.Drawing.Point(328, 161) + Me.PASSWORDTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.PASSWORDTextBox.Location = New System.Drawing.Point(403, 161) Me.PASSWORDTextBox.Name = "PASSWORDTextBox" - Me.PASSWORDTextBox.Size = New System.Drawing.Size(121, 20) + Me.PASSWORDTextBox.Size = New System.Drawing.Size(121, 22) Me.PASSWORDTextBox.TabIndex = 13 ' 'BEMERKUNGTextBox ' Me.BEMERKUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "COMMENT", True)) + Me.BEMERKUNGTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BEMERKUNGTextBox.Location = New System.Drawing.Point(184, 200) Me.BEMERKUNGTextBox.Name = "BEMERKUNGTextBox" - Me.BEMERKUNGTextBox.Size = New System.Drawing.Size(267, 20) + Me.BEMERKUNGTextBox.Size = New System.Drawing.Size(340, 22) Me.BEMERKUNGTextBox.TabIndex = 15 ' 'AKTIVECheckBox ' Me.AKTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_CONNECTIONBindingSource, "AKTIVE", True)) - Me.AKTIVECheckBox.Location = New System.Drawing.Point(455, 42) + Me.AKTIVECheckBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.AKTIVECheckBox.Location = New System.Drawing.Point(530, 42) Me.AKTIVECheckBox.Name = "AKTIVECheckBox" Me.AKTIVECheckBox.Size = New System.Drawing.Size(104, 24) Me.AKTIVECheckBox.TabIndex = 17 @@ -360,17 +387,22 @@ Partial Class frmConnections ' 'btnCheck_Con ' - Me.btnCheck_Con.Location = New System.Drawing.Point(454, 84) + Me.btnCheck_Con.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnCheck_Con.Image = Global.DD_Record_Organiser.My.Resources.Resources.RadioButton_701 + Me.btnCheck_Con.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCheck_Con.Location = New System.Drawing.Point(530, 81) Me.btnCheck_Con.Name = "btnCheck_Con" - Me.btnCheck_Con.Size = New System.Drawing.Size(119, 23) + Me.btnCheck_Con.Size = New System.Drawing.Size(171, 23) Me.btnCheck_Con.TabIndex = 18 Me.btnCheck_Con.Text = "Test DB-Verbindung" + Me.btnCheck_Con.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnCheck_Con.UseVisualStyleBackColor = True ' 'cmbInitialCatalog ' + Me.cmbInitialCatalog.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cmbInitialCatalog.FormattingEnabled = True - Me.cmbInitialCatalog.Location = New System.Drawing.Point(328, 121) + Me.cmbInitialCatalog.Location = New System.Drawing.Point(403, 123) Me.cmbInitialCatalog.Name = "cmbInitialCatalog" Me.cmbInitialCatalog.Size = New System.Drawing.Size(121, 21) Me.cmbInitialCatalog.TabIndex = 19 @@ -378,41 +410,46 @@ Partial Class frmConnections 'ADDED_WHOTextBox ' Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "ADDED_WHO", True)) - Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(183, 239) + Me.ADDED_WHOTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(183, 283) Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" - Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(100, 20) + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(100, 22) Me.ADDED_WHOTextBox.TabIndex = 21 ' 'ADDED_WHENTextBox ' Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "ADDED_WHEN", True)) - Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(184, 278) + Me.ADDED_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(293, 283) Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" - Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(100, 20) + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(100, 22) Me.ADDED_WHENTextBox.TabIndex = 23 ' 'CHANGED_WHOTextBox ' Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "CHANGED_WHO", True)) - Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(289, 239) + Me.CHANGED_WHOTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(403, 283) Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" - Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(100, 20) + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(100, 22) Me.CHANGED_WHOTextBox.TabIndex = 25 ' 'CHANGED_WHENTextBox ' Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "CHANGED_WHEN", True)) - Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(289, 278) + Me.CHANGED_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(512, 283) Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" - Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(100, 20) + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(100, 22) Me.CHANGED_WHENTextBox.TabIndex = 27 ' 'CheckBoxwin_aut ' Me.CheckBoxwin_aut.AutoSize = True - Me.CheckBoxwin_aut.Location = New System.Drawing.Point(455, 125) + Me.CheckBoxwin_aut.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CheckBoxwin_aut.Location = New System.Drawing.Point(530, 127) Me.CheckBoxwin_aut.Name = "CheckBoxwin_aut" - Me.CheckBoxwin_aut.Size = New System.Drawing.Size(151, 17) + Me.CheckBoxwin_aut.Size = New System.Drawing.Size(170, 17) Me.CheckBoxwin_aut.TabIndex = 28 Me.CheckBoxwin_aut.Text = "Windows-Authentifizierung" Me.CheckBoxwin_aut.UseVisualStyleBackColor = True @@ -420,9 +457,10 @@ Partial Class frmConnections 'chkOR_ohne_TNS ' Me.chkOR_ohne_TNS.AutoSize = True - Me.chkOR_ohne_TNS.Location = New System.Drawing.Point(455, 161) + Me.chkOR_ohne_TNS.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.chkOR_ohne_TNS.Location = New System.Drawing.Point(530, 161) Me.chkOR_ohne_TNS.Name = "chkOR_ohne_TNS" - Me.chkOR_ohne_TNS.Size = New System.Drawing.Size(118, 17) + Me.chkOR_ohne_TNS.Size = New System.Drawing.Size(127, 17) Me.chkOR_ohne_TNS.TabIndex = 29 Me.chkOR_ohne_TNS.Text = "Ohne tnsnames.ora" Me.chkOR_ohne_TNS.UseVisualStyleBackColor = True @@ -431,10 +469,10 @@ Partial Class frmConnections ' Me.lblSave.AutoSize = True Me.lblSave.BackColor = System.Drawing.Color.Yellow - Me.lblSave.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblSave.Location = New System.Drawing.Point(510, 45) + Me.lblSave.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSave.Location = New System.Drawing.Point(400, 254) Me.lblSave.Name = "lblSave" - Me.lblSave.Size = New System.Drawing.Size(258, 16) + Me.lblSave.Size = New System.Drawing.Size(193, 13) Me.lblSave.TabIndex = 30 Me.lblSave.Text = "Connection erfolgreich gespeichert!" ' @@ -456,6 +494,7 @@ Partial Class frmConnections Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing @@ -473,7 +512,9 @@ Partial Class frmConnections 'SQL_PROVIDERComboBox ' Me.SQL_PROVIDERComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "SQL_PROVIDER", True)) + Me.SQL_PROVIDERComboBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.SQL_PROVIDERComboBox.FormattingEnabled = True + Me.SQL_PROVIDERComboBox.Items.AddRange(New Object() {"Oracle", "MS-SQLServer"}) Me.SQL_PROVIDERComboBox.Location = New System.Drawing.Point(183, 83) Me.SQL_PROVIDERComboBox.Name = "SQL_PROVIDERComboBox" Me.SQL_PROVIDERComboBox.Size = New System.Drawing.Size(121, 21) @@ -482,56 +523,52 @@ Partial Class frmConnections 'lblDataSource ' Me.lblDataSource.AutoSize = True + Me.lblDataSource.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblDataSource.Location = New System.Drawing.Point(181, 106) Me.lblDataSource.Name = "lblDataSource" - Me.lblDataSource.Size = New System.Drawing.Size(71, 13) + Me.lblDataSource.Size = New System.Drawing.Size(74, 13) Me.lblDataSource.TabIndex = 32 Me.lblDataSource.Text = "DataSource*:" ' 'lblInitialCatalog ' Me.lblInitialCatalog.AutoSize = True - Me.lblInitialCatalog.Location = New System.Drawing.Point(325, 105) + Me.lblInitialCatalog.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblInitialCatalog.Location = New System.Drawing.Point(400, 107) Me.lblInitialCatalog.Name = "lblInitialCatalog" - Me.lblInitialCatalog.Size = New System.Drawing.Size(74, 13) + Me.lblInitialCatalog.Size = New System.Drawing.Size(84, 13) Me.lblInitialCatalog.TabIndex = 33 Me.lblInitialCatalog.Text = "InitialCatalog*:" ' 'lblUserId ' Me.lblUserId.AutoSize = True + Me.lblUserId.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblUserId.Location = New System.Drawing.Point(181, 145) Me.lblUserId.Name = "lblUserId" - Me.lblUserId.Size = New System.Drawing.Size(45, 13) + Me.lblUserId.Size = New System.Drawing.Size(48, 13) Me.lblUserId.TabIndex = 34 Me.lblUserId.Text = "UserId*:" ' 'lblPassword ' Me.lblPassword.AutoSize = True - Me.lblPassword.Location = New System.Drawing.Point(325, 145) + Me.lblPassword.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblPassword.Location = New System.Drawing.Point(400, 145) Me.lblPassword.Name = "lblPassword" - Me.lblPassword.Size = New System.Drawing.Size(57, 13) + Me.lblPassword.Size = New System.Drawing.Size(61, 13) Me.lblPassword.TabIndex = 35 Me.lblPassword.Text = "Passwort*:" ' 'DATABASETextBox ' Me.DATABASETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONNECTIONBindingSource, "DATABASE", True)) - Me.DATABASETextBox.Location = New System.Drawing.Point(328, 84) + Me.DATABASETextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.DATABASETextBox.Location = New System.Drawing.Point(403, 83) Me.DATABASETextBox.Name = "DATABASETextBox" - Me.DATABASETextBox.Size = New System.Drawing.Size(100, 20) + Me.DATABASETextBox.Size = New System.Drawing.Size(121, 22) Me.DATABASETextBox.TabIndex = 36 ' - 'Label1 - ' - Label1.AutoSize = True - Label1.Location = New System.Drawing.Point(325, 68) - Label1.Name = "Label1" - Label1.Size = New System.Drawing.Size(63, 13) - Label1.TabIndex = 37 - Label1.Text = "Datenbank:" - ' 'frmConnections ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -570,8 +607,10 @@ Partial Class frmConnections Me.Controls.Add(Me.GUIDTextBox) Me.Controls.Add(Me.ListBox1) Me.Controls.Add(Me.TBPMO_CONNECTIONBindingNavigator) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmConnections" - Me.Text = "frmConnections" + Me.Text = "Connections-Verwaltung" CType(Me.TBPMO_CONNECTIONBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() Me.TBPMO_CONNECTIONBindingNavigator.ResumeLayout(False) Me.TBPMO_CONNECTIONBindingNavigator.PerformLayout() diff --git a/app/DD-Record-Organiser/frmConnections.resx b/app/DD-Record-Organiser/frmConnections.resx index a748676..1d24de3 100644 --- a/app/DD-Record-Organiser/frmConnections.resx +++ b/app/DD-Record-Organiser/frmConnections.resx @@ -141,6 +141,9 @@ False + + False + 17, 56 @@ -231,7 +234,130 @@ 662, 17 - - False - + + + AAABAAMAICAQAAEABADoAgAANgAAACAgAAABAAgAqAgAAB4DAAAgIAAAAQAgAKgQAADGCwAAKAAAACAA + AABAAAAAAQAEAAAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA + AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAP///////wAAAAAAAAAAD/// + ////////8AAAAAAAD//4d3d3d3d3j//wAAAAD/+Hd3d3d3d3d3d4//AAAA/3d3d3d3d3d3d3d3/wAAD/ + d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3d3d3d/8AAP93d3d3d3d3d3d3d3f/AAD/d3d3d3d3d3d3d3d3 + /wAA/3d3d3d3d3d3d3d3d/8AAP93d3d3d3d3d3d3d3f/AAD/d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3 + d3d3d/8AAP93d3d3d3d3d3d3d3f/AAD/d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3d3d3d/8AAP93d3d3 + d3d3d3d3d3f/AAD/d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3d3d3d/8AAP93d3d3d3d3d3d3d3f/AAD/ + d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3d3d3d/8AAP93d3eI/////4h3d3f/AAD/d3f//////////3d3 + /wAA/3eP///////////4d/8AAP93j///////////+Hf/AAD/d3f//////////3d3/wAAD/d3d4j///// + iHd3f/AAAA//h3d3d3d3d3d3eP/wAAAAD//4d3d3d3d3j//wAAAAAAAP///////////wAAAAAAAAAAD/ + //////8AAAAAAP/AA//+AAB/+AAAH+AAAAfgAAAHwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA + AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA+AA + AAfgAAAH+AAAH/4AAH//wAP/KAAAACAAAABAAAAAAQAIAAAAAAAABAAAAAAAAAAAAAAAAQAAAAEAAAAA + AABCQkIATU1NAG9vbwB5eXkAhoaGAJGRkQCamZkApKOkALOzswDFxMUAycnJANDPzwDm5OUA6+vrAPHv + 8AD29vYA+Pj4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP// + /wAAAAAAAAAAAAAAEREQEBAQEBAQEBERAAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEBAQEBAQEBAQEBAA + AAAAAAAAAAAAAAAQEBAOCQYDAQEBAQEBAQIDBgkOEBAQAAAAAAAAAAAREBALBAEBAQEBAQEBAQEBAQEB + AQEECxAQEQAAAAAAABAQBQEBAQEBAQEBAQEBAQEBAQEBAQEBBRAQAAAAAAAQEAUBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBBRAQAAAAABAQAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAAEBABAQEBAQEBAQEB + AQEBAQEBAQEBAQEBAQEQEAAAAAAQEAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBARAQAAAAABAQAQEBAQEB + AQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAAEBABAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEQEAAAAAAQEAEB + AQEBAQEBAQEBAQEBAQEBAQEBAQEBARAQAAAAABAQAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAA + EBABAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEQEAAAAAAQEAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBARAQ + AAAAABAQAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAAEBABAQEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEQEAAAAAAQEAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBARAQAAAAABAQAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBEBAAAAAAEBABAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEQEAAAAAAQEAEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBARAQAAAAABAQAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAAEBABAQEBAQQICg0P + Dw8PDw8NCggEAQEBAQEQEAAAAAAQEAEBAgcNDw8PDw8PDw8PDw8PDw8NBwIBARAQAAAAABAOAQEMDw8P + Dw8PDw8PDw8PDw8PDw8PDAEBEBAAAAAAEA4BAQwPDw8PDw8PDw8PDw8PDw8PDw8MAQEQEAAAAAAQEAUB + AgcNDw8PDw8PDw8PDw8PDw8NBwIBBRAQAAAAAAAQDgUBAQEECAoNDw8PDw8PDQoIBAEBAQUOEAAAAAAA + ABEQEAsEAQEBAQEBAQEBAQEBAQEBAQQLEBARAAAAAAAAAAAQEBAOCQYDAQEBAQEBAQEDBgkOEBAQAAAA + AAAAAAAAAAAAEBAQEBAQEBAQEBAQEBAQEBAQAAAAAAAAAAAAAAAAAAAAAAARERAQEBAQEBAQEREAAAAA + AAAAAAAA/8AD//4AAH/4AAAf4AAAB+AAAAfAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA + AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAAD4AAAB+AA + AAf4AAAf/gAAf//AA/8oAAAAIAAAAEAAAAABACAAAAAAAIAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vYg9vb2cPb29p/29va/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29va/9vb2n/b29nD29vYgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29hD29vZw9vb23/b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vbf9vb2cPb29hAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vZQ9vb27/b29v/29vb/6+vr/7Ozs/+RkZH/b29v/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9NTU3/b29v/5GRkf+zs7P/6+vr//b29v/29vb/9vb27/b2 + 9lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2n/b29v/29vb/ycnJ/3p6ev9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/enp6/8nJ + yf/29vb/9vb2//b29p8AAAAAAAAAAAAAAAAAAAAAAAAAAPb29nD29vb/9vb2/4aGhv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/4aGhv/29vb/9vb2//b29nAAAAAAAAAAAAAAAAAAAAAA9vb23/b29v+Ghob/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/4aGhv/29vb/9vb23wAAAAAAAAAAAAAAAAAAAAD29vb/9vb2/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAPb2 + 9v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v8AAAAAAAAAAAAA + AAAAAAAA9vb2//b29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2/wAA + AAAAAAAAAAAAAAAAAAD29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b2 + 9v/29vb/AAAAAAAAAAAAAAAAAAAAAPb29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2//b29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv/29vb/9vb2/wAAAAAAAAAAAAAAAAAAAAD29vb/9vb2/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAPb29v/29vb/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2//b2 + 9v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2/wAAAAAAAAAAAAAAAAAA + AAD29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v/29vb/AAAAAAAA + AAAAAAAAAAAAAPb29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b2 + 9v8AAAAAAAAAAAAAAAAAAAAA9vb2//b29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv/29vb/9vb2/wAAAAAAAAAAAAAAAAAAAAD29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAPb29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2//b29v9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2/wAAAAAAAAAAAAAAAAAAAAD29vb/9vb2/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAPb2 + 9v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv95eHj/pKOk/8XExf/m5OX/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/5uTl/8XExf+ko6T/eXh4/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v8AAAAAAAAAAAAA + AAAAAAAA9vb2//b29v9CQkL/QkJC/01NTf+amZn/5uTl//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/5uTl/5qZmf9NTU3/QkJC/0JCQv/29vb/9vb2/wAA + AAAAAAAAAAAAAAAAAAD29vb/6+vr/0JCQv9CQkL/0M/P//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/9DPz/9CQkL/QkJC//b2 + 9v/29vb/AAAAAAAAAAAAAAAAAAAAAPb29v/r6+v/QkJC/0JCQv/Qz8//8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/0M/P/0JC + Qv9CQkL/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb23/b29v+Ghob/QkJC/01NTf+amZn/5uTl//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/5uTl/5qZ + mf9NTU3/QkJC/4aGhv/29vb/9vb23wAAAAAAAAAAAAAAAAAAAAD29vZw9vb2/+vr6/+Ghob/QkJC/0JC + Qv9CQkL/eXh4/6SjpP/FxMX/5uTl//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/+bk5f/FxMX/pKOk/3l4 + eP9CQkL/QkJC/0JCQv+Ghob/6+vr//b29v/29vZwAAAAAAAAAAAAAAAAAAAAAAAAAAD29vaf9vb2//b2 + 9v/Jycn/enp6/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv96enr/ycnJ//b29v/29vb/9vb2nwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD29vZQ9vb27/b29v/29vb/6+vr/7Ozs/+RkZH/b29v/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/b29v/5GRkf+zs7P/6+vr//b29v/29vb/9vb27/b29lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAD29vYQ9vb2cPb29t/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb23/b29nD29vYQAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29iD29vZw9vb2n/b29r/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29r/29vaf9vb2cPb29iAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAP8AAP/4AAAf8AAAD+AAAAfAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA + AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA + AAPgAAAH8AAAD/gAAB//AAD/ + + \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmConnections.vb b/app/DD-Record-Organiser/frmConnections.vb index 8f37c9a..5116344 100644 --- a/app/DD-Record-Organiser/frmConnections.vb +++ b/app/DD-Record-Organiser/frmConnections.vb @@ -106,8 +106,10 @@ Public Class frmConnections Private Sub chkOR_ohne_TNS_CheckedChanged(sender As Object, e As EventArgs) Handles chkOR_ohne_TNS.CheckedChanged If chkOR_ohne_TNS.Checked Then Me.BEMERKUNGTextBox.Text = "without tnsnames" + Me.BEMERKUNGTextBox.Enabled = False Else Me.BEMERKUNGTextBox.Text = "" + Me.BEMERKUNGTextBox.Enabled = True End If End Sub diff --git a/app/DD-Record-Organiser/frmForm_Constructor.designer.vb b/app/DD-Record-Organiser/frmForm_Constructor.designer.vb index ddffc8f..43e6e34 100644 --- a/app/DD-Record-Organiser/frmForm_Constructor.designer.vb +++ b/app/DD-Record-Organiser/frmForm_Constructor.designer.vb @@ -43,27 +43,6 @@ Partial Class frmForm_Constructor Me.ResetEbenenAuswahlToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiimportEntitätToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) - Me.BindingNavigatorForm1 = New System.Windows.Forms.BindingNavigator(Me.components) - Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() - Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() - Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() - Me.tsbtnOverviewRefresh = New System.Windows.Forms.ToolStripButton() - Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton() - Me.ClearAllFiltersToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ExportNachExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.CarouselToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.TabelleToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.AnsichtKomplettZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.tslblEntity1 = New System.Windows.Forms.ToolStripLabel() - Me.tslblEntity2 = New System.Windows.Forms.ToolStripLabel() - Me.tslblEntity3 = New System.Windows.Forms.ToolStripLabel() Me.SplitCont_Details = New DevExpress.XtraEditors.SplitContainerControl() Me.TCDetails = New DevExpress.XtraTab.XtraTabControl() Me.TabPageDetails = New DevExpress.XtraTab.XtraTabPage() @@ -116,6 +95,24 @@ Partial Class frmForm_Constructor Me.tserstellt_Details = New System.Windows.Forms.ToolStripStatusLabel() Me.tsstatus_Detail = New System.Windows.Forms.ToolStripStatusLabel() Me.tslblactWFState = New System.Windows.Forms.ToolStripStatusLabel() + Me.BindingNavigatorForm1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.tsbtnOverviewRefresh = New System.Windows.Forms.ToolStripButton() + Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton() + Me.ClearAllFiltersToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ExportNachExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CarouselToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.TabelleToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AnsichtKomplettZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BindingSourceForm2 = New System.Windows.Forms.BindingSource(Me.components) Me.BindingSourceForm3 = New System.Windows.Forms.BindingSource(Me.components) Me.BindingSourceForm4 = New System.Windows.Forms.BindingSource(Me.components) @@ -131,6 +128,8 @@ Partial Class frmForm_Constructor Me.TBPMO_FILES_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter() Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() + Me.pnlTop = New System.Windows.Forms.Panel() + Me.pnlMain = New System.Windows.Forms.Panel() CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControlSelection, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.grvwSelection, System.ComponentModel.ISupportInitialize).BeginInit() @@ -144,8 +143,6 @@ Partial Class frmForm_Constructor Me.SplitContainerMain.Panel2.SuspendLayout() Me.SplitContainerMain.SuspendLayout() Me.CMSEntity.SuspendLayout() - CType(Me.BindingNavigatorForm1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.BindingNavigatorForm1.SuspendLayout() CType(Me.SplitCont_Details, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitCont_Details.SuspendLayout() CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).BeginInit() @@ -164,6 +161,8 @@ Partial Class frmForm_Constructor Me.TabPageParentEntity.SuspendLayout() Me.ToolStrip1.SuspendLayout() Me.StatusStrip2.SuspendLayout() + CType(Me.BindingNavigatorForm1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigatorForm1.SuspendLayout() CType(Me.BindingSourceForm2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BindingSourceForm3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BindingSourceForm4, System.ComponentModel.ISupportInitialize).BeginInit() @@ -171,6 +170,8 @@ Partial Class frmForm_Constructor Me.contextMenuCombo.SuspendLayout() CType(Me.TBPMO_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlTop.SuspendLayout() + Me.pnlMain.SuspendLayout() Me.SuspendLayout() ' 'grvwCarousel @@ -186,10 +187,10 @@ Partial Class frmForm_Constructor GridLevelNode1.LevelTemplate = Me.grvwCarousel GridLevelNode1.RelationName = "Level1" Me.GridControlSelection.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1}) - Me.GridControlSelection.Location = New System.Drawing.Point(298, 25) + Me.GridControlSelection.Location = New System.Drawing.Point(298, 0) Me.GridControlSelection.MainView = Me.grvwSelection Me.GridControlSelection.Name = "GridControlSelection" - Me.GridControlSelection.Size = New System.Drawing.Size(927, 153) + Me.GridControlSelection.Size = New System.Drawing.Size(1013, 182) Me.GridControlSelection.TabIndex = 13 Me.GridControlSelection.TabStop = False Me.GridControlSelection.UseEmbeddedNavigator = True @@ -235,7 +236,7 @@ Partial Class frmForm_Constructor Me.GridControlParentEntity.Location = New System.Drawing.Point(3, 3) Me.GridControlParentEntity.MainView = Me.GridViewParentEntity Me.GridControlParentEntity.Name = "GridControlParentEntity" - Me.GridControlParentEntity.Size = New System.Drawing.Size(245, 244) + Me.GridControlParentEntity.Size = New System.Drawing.Size(325, 314) Me.GridControlParentEntity.TabIndex = 14 Me.GridControlParentEntity.TabStop = False Me.GridControlParentEntity.UseEmbeddedNavigator = True @@ -270,9 +271,9 @@ Partial Class frmForm_Constructor 'StatusStrip1 ' Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblStatusMain, Me.tslblEntity}) - Me.StatusStrip1.Location = New System.Drawing.Point(0, 560) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 658) Me.StatusStrip1.Name = "StatusStrip1" - Me.StatusStrip1.Size = New System.Drawing.Size(1225, 24) + Me.StatusStrip1.Size = New System.Drawing.Size(1311, 24) Me.StatusStrip1.TabIndex = 0 Me.StatusStrip1.Text = "StatusStrip1" ' @@ -306,23 +307,22 @@ Partial Class frmForm_Constructor Me.SplitContainerMain.Panel1.Controls.Add(Me.GridControlSelection) Me.SplitContainerMain.Panel1.Controls.Add(Me.SplitterLeft) Me.SplitContainerMain.Panel1.Controls.Add(Me.TreeViewEbeneSelect) - Me.SplitContainerMain.Panel1.Controls.Add(Me.BindingNavigatorForm1) ' 'SplitContainerMain.Panel2 ' Me.SplitContainerMain.Panel2.Controls.Add(Me.SplitCont_Details) Me.SplitContainerMain.Panel2.Controls.Add(Me.ToolStrip1) Me.SplitContainerMain.Panel2.Controls.Add(Me.StatusStrip2) - Me.SplitContainerMain.Size = New System.Drawing.Size(1225, 560) - Me.SplitContainerMain.SplitterDistance = 178 + Me.SplitContainerMain.Size = New System.Drawing.Size(1311, 584) + Me.SplitContainerMain.SplitterDistance = 182 Me.SplitContainerMain.TabIndex = 1 ' 'SplitterLeft ' Me.SplitterLeft.BackColor = System.Drawing.SystemColors.InactiveCaption - Me.SplitterLeft.Location = New System.Drawing.Point(295, 25) + Me.SplitterLeft.Location = New System.Drawing.Point(295, 0) Me.SplitterLeft.Name = "SplitterLeft" - Me.SplitterLeft.Size = New System.Drawing.Size(3, 153) + Me.SplitterLeft.Size = New System.Drawing.Size(3, 182) Me.SplitterLeft.TabIndex = 12 Me.SplitterLeft.TabStop = False ' @@ -335,10 +335,10 @@ Partial Class frmForm_Constructor Me.TreeViewEbeneSelect.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.TreeViewEbeneSelect.ImageIndex = 0 Me.TreeViewEbeneSelect.ImageList = Me.ImageList1 - Me.TreeViewEbeneSelect.Location = New System.Drawing.Point(0, 25) + Me.TreeViewEbeneSelect.Location = New System.Drawing.Point(0, 0) Me.TreeViewEbeneSelect.Name = "TreeViewEbeneSelect" Me.TreeViewEbeneSelect.SelectedImageIndex = 1 - Me.TreeViewEbeneSelect.Size = New System.Drawing.Size(295, 153) + Me.TreeViewEbeneSelect.Size = New System.Drawing.Size(295, 182) Me.TreeViewEbeneSelect.TabIndex = 9 Me.TreeViewEbeneSelect.TabStop = False Me.ttToolTip.SetToolTip(Me.TreeViewEbeneSelect, "Wählen Sie hier die zu filternde Entität (RechtsKlick für Zurücksetzen)") @@ -369,6 +369,545 @@ Partial Class frmForm_Constructor Me.ImageList1.Images.SetKeyName(0, "medal_bronze_1.png") Me.ImageList1.Images.SetKeyName(1, "medal_gold_2.png") ' + 'SplitCont_Details + ' + Me.SplitCont_Details.AllowDrop = True + Me.SplitCont_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Style3D + Me.SplitCont_Details.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 + Me.SplitCont_Details.DataBindings.Add(New System.Windows.Forms.Binding("SplitterPosition", Global.DD_Record_Organiser.My.MySettings.Default, "Constructor_DetailsSplitter", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.SplitCont_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitCont_Details.Location = New System.Drawing.Point(0, 25) + Me.SplitCont_Details.Name = "SplitCont_Details" + Me.SplitCont_Details.Panel1.Controls.Add(Me.TCDetails) + Me.SplitCont_Details.Panel1.Text = "Panel1" + Me.SplitCont_Details.Panel2.Controls.Add(Me.XtraTabControl1) + Me.SplitCont_Details.Panel2.Text = "Panel2" + Me.SplitCont_Details.Size = New System.Drawing.Size(1311, 373) + Me.SplitCont_Details.SplitterPosition = Global.DD_Record_Organiser.My.MySettings.Default.Constructor_DetailsSplitter + Me.SplitCont_Details.TabIndex = 2 + Me.SplitCont_Details.Text = "SplitContainerControl1" + ' + 'TCDetails + ' + Me.TCDetails.AllowDrop = True + Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor = System.Drawing.Color.Magenta + Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.TCDetails.AppearancePage.HeaderHotTracked.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical + Me.TCDetails.AppearancePage.HeaderHotTracked.Options.UseBackColor = True + Me.TCDetails.Dock = System.Windows.Forms.DockStyle.Fill + Me.TCDetails.Location = New System.Drawing.Point(0, 0) + Me.TCDetails.Name = "TCDetails" + Me.TCDetails.SelectedTabPage = Me.TabPageDetails + Me.TCDetails.ShowHeaderFocus = DevExpress.Utils.DefaultBoolean.[False] + Me.TCDetails.Size = New System.Drawing.Size(764, 369) + Me.TCDetails.TabIndex = 19 + Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageDetails, Me.TabPageWD_Files, Me.TabPageFollowUp}) + ' + 'TabPageDetails + ' + Me.TabPageDetails.Controls.Add(Me.pnlDetails) + Me.TabPageDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD + Me.TabPageDetails.Name = "TabPageDetails" + Me.TabPageDetails.Size = New System.Drawing.Size(758, 338) + Me.TabPageDetails.Text = "Detailansicht:" + ' + 'pnlDetails + ' + Me.pnlDetails.AllowDrop = True + 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(758, 338) + Me.pnlDetails.TabIndex = 0 + ' + 'TabPageWD_Files + ' + Me.TabPageWD_Files.Controls.Add(Me.AxObjectListControl) + Me.TabPageWD_Files.Controls.Add(Me.ToolStripDokumente) + Me.TabPageWD_Files.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954 + Me.TabPageWD_Files.Name = "TabPageWD_Files" + Me.TabPageWD_Files.Size = New System.Drawing.Size(758, 338) + Me.TabPageWD_Files.Text = "windream-Dateien" + Me.ttToolTip.SetToolTip(Me.TabPageWD_Files, "Zeigt die Dateien in windream zum ausgewählten Datensatz an") + ' + 'AxObjectListControl + ' + Me.AxObjectListControl.AllowDrop = True + Me.AxObjectListControl.Dock = System.Windows.Forms.DockStyle.Fill + Me.AxObjectListControl.Enabled = True + 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(758, 313) + Me.AxObjectListControl.TabIndex = 5 + Me.AxObjectListControl.TabStop = False + ' + 'ToolStripDokumente + ' + 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(758, 25) + Me.ToolStripDokumente.TabIndex = 1 + Me.ToolStripDokumente.Text = "ToolStrip2" + ' + 'tslblWindreamView + ' + Me.tslblWindreamView.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tslblWindreamView.Name = "tslblWindreamView" + Me.tslblWindreamView.Size = New System.Drawing.Size(126, 22) + Me.tslblWindreamView.Text = "Windream-Dokumente" + ' + 'ToolStripDropDownButton2 + ' + Me.ToolStripDropDownButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripDropDownButton2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KonfigurationToolStripMenuItem}) + Me.ToolStripDropDownButton2.Image = CType(resources.GetObject("ToolStripDropDownButton2.Image"), System.Drawing.Image) + Me.ToolStripDropDownButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripDropDownButton2.Name = "ToolStripDropDownButton2" + Me.ToolStripDropDownButton2.Size = New System.Drawing.Size(210, 22) + Me.ToolStripDropDownButton2.Text = "Konfiguration windream-Ansicht" + ' + 'KonfigurationToolStripMenuItem + ' + Me.KonfigurationToolStripMenuItem.Name = "KonfigurationToolStripMenuItem" + Me.KonfigurationToolStripMenuItem.Size = New System.Drawing.Size(173, 22) + Me.KonfigurationToolStripMenuItem.Text = "Konfiguration User" + ' + 'TabPageFollowUp + ' + Me.TabPageFollowUp.Controls.Add(Me.grpbxFU_Profile) + Me.TabPageFollowUp.Controls.Add(Me.Label1) + Me.TabPageFollowUp.Controls.Add(Me.ListViewFollowUp) + Me.TabPageFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD + Me.TabPageFollowUp.Name = "TabPageFollowUp" + Me.TabPageFollowUp.Size = New System.Drawing.Size(758, 338) + Me.TabPageFollowUp.Text = "Wiedervorlage" + ' + 'grpbxFU_Profile + ' + Me.grpbxFU_Profile.Controls.Add(Me.lblWV_Date) + Me.grpbxFU_Profile.Controls.Add(Me.GroupBox3) + Me.grpbxFU_Profile.Controls.Add(Me.dtpWV) + Me.grpbxFU_Profile.Controls.Add(Me.lblFollowUp_save) + Me.grpbxFU_Profile.Controls.Add(Me.chkFollowUp) + Me.grpbxFU_Profile.Enabled = False + Me.grpbxFU_Profile.Location = New System.Drawing.Point(365, 28) + Me.grpbxFU_Profile.Name = "grpbxFU_Profile" + Me.grpbxFU_Profile.Size = New System.Drawing.Size(691, 254) + Me.grpbxFU_Profile.TabIndex = 105 + Me.grpbxFU_Profile.TabStop = False + ' + 'lblWV_Date + ' + Me.lblWV_Date.AutoSize = True + Me.lblWV_Date.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblWV_Date.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.lblWV_Date.Location = New System.Drawing.Point(6, 18) + Me.lblWV_Date.Name = "lblWV_Date" + Me.lblWV_Date.Size = New System.Drawing.Size(41, 13) + Me.lblWV_Date.TabIndex = 23 + Me.lblWV_Date.Text = "Label2" + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.Label3) + Me.GroupBox3.Controls.Add(Me.Label2) + Me.GroupBox3.Controls.Add(Me.ListBoxUser2Profile) + Me.GroupBox3.Controls.Add(Me.Label5) + Me.GroupBox3.Controls.Add(Me.cmbWHUser) + Me.GroupBox3.Controls.Add(Me.btnAddUser_WV) + Me.GroupBox3.Controls.Add(Me.btndelete) + Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox3.Location = New System.Drawing.Point(240, 18) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(445, 207) + Me.GroupBox3.TabIndex = 104 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "Individuelle Empfänger für diesen Datensatz:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(190, 51) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(65, 13) + Me.Label3.TabIndex = 94 + Me.Label3.Text = "Email-User:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(7, 22) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(371, 13) + Me.Label2.TabIndex = 93 + Me.Label2.Text = "Achtung: Diese Liste übersteuert die zentral konfigurierte Empfängerliste!" + ' + 'ListBoxUser2Profile + ' + Me.ListBoxUser2Profile.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListBoxUser2Profile.FormattingEnabled = True + Me.ListBoxUser2Profile.Location = New System.Drawing.Point(6, 51) + Me.ListBoxUser2Profile.Name = "ListBoxUser2Profile" + Me.ListBoxUser2Profile.Size = New System.Drawing.Size(181, 134) + Me.ListBoxUser2Profile.TabIndex = 80 + Me.ListBoxUser2Profile.TabStop = False + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(213, 21) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(92, 13) + Me.Label5.TabIndex = 91 + Me.Label5.Text = "User auswählen:" + ' + 'cmbWHUser + ' + Me.cmbWHUser.DisplayMember = "FORM_TITLE" + Me.cmbWHUser.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmbWHUser.FormattingEnabled = True + Me.cmbWHUser.Location = New System.Drawing.Point(193, 67) + Me.cmbWHUser.Name = "cmbWHUser" + Me.cmbWHUser.Size = New System.Drawing.Size(234, 21) + Me.cmbWHUser.TabIndex = 89 + Me.cmbWHUser.TabStop = False + Me.cmbWHUser.ValueMember = "GUID" + ' + 'btnAddUser_WV + ' + Me.btnAddUser_WV.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnAddUser_WV.Image = Global.DD_Record_Organiser.My.Resources.Resources.add + Me.btnAddUser_WV.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAddUser_WV.Location = New System.Drawing.Point(193, 94) + Me.btnAddUser_WV.Name = "btnAddUser_WV" + Me.btnAddUser_WV.Size = New System.Drawing.Size(234, 23) + Me.btnAddUser_WV.TabIndex = 90 + Me.btnAddUser_WV.TabStop = False + Me.btnAddUser_WV.Text = "User zu Wiedervorlage hinzufügen:" + Me.btnAddUser_WV.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAddUser_WV.UseVisualStyleBackColor = False + ' + 'btndelete + ' + Me.btndelete.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btndelete.Image = CType(resources.GetObject("btndelete.Image"), System.Drawing.Image) + Me.btndelete.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btndelete.Location = New System.Drawing.Point(193, 123) + Me.btndelete.Name = "btndelete" + Me.btndelete.Size = New System.Drawing.Size(234, 23) + Me.btndelete.TabIndex = 92 + Me.btndelete.TabStop = False + Me.btndelete.Text = "Userzuordnung löschen" + Me.btndelete.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btndelete.UseVisualStyleBackColor = True + ' + 'dtpWV + ' + Me.dtpWV.CalendarFont = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dtpWV.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.VWPMO_WF_USER_ACTIVEBindingSource, "TASK_DATE", True)) + Me.dtpWV.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpWV.Location = New System.Drawing.Point(9, 34) + Me.dtpWV.Name = "dtpWV" + Me.dtpWV.Size = New System.Drawing.Size(96, 21) + Me.dtpWV.TabIndex = 22 + ' + 'VWPMO_WF_USER_ACTIVEBindingSource + ' + Me.VWPMO_WF_USER_ACTIVEBindingSource.DataMember = "VWPMO_WF_USER_ACTIVE" + Me.VWPMO_WF_USER_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'DD_DMSDataSet + ' + Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" + Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'lblFollowUp_save + ' + Me.lblFollowUp_save.AutoSize = True + Me.lblFollowUp_save.BackColor = System.Drawing.Color.LawnGreen + Me.lblFollowUp_save.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFollowUp_save.Location = New System.Drawing.Point(11, 88) + Me.lblFollowUp_save.Name = "lblFollowUp_save" + Me.lblFollowUp_save.Size = New System.Drawing.Size(131, 13) + Me.lblFollowUp_save.TabIndex = 24 + Me.lblFollowUp_save.Text = "Wiedervorlage gespeichert" + Me.lblFollowUp_save.Visible = False + ' + 'chkFollowUp + ' + Me.chkFollowUp.AutoSize = True + Me.chkFollowUp.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.chkFollowUp.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.chkFollowUp.Location = New System.Drawing.Point(9, 65) + Me.chkFollowUp.Name = "chkFollowUp" + Me.chkFollowUp.Size = New System.Drawing.Size(109, 17) + Me.chkFollowUp.TabIndex = 26 + Me.chkFollowUp.Text = "Undo CheckBox" + Me.chkFollowUp.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(11, 12) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(143, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Hinterlegte Wiedervorlagen:" + ' + 'ListViewFollowUp + ' + Me.ListViewFollowUp.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.ListViewFollowUp.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2}) + Me.ListViewFollowUp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListViewFollowUp.FullRowSelect = True + Me.ListViewFollowUp.HideSelection = False + Me.ListViewFollowUp.Location = New System.Drawing.Point(11, 28) + Me.ListViewFollowUp.MultiSelect = False + Me.ListViewFollowUp.Name = "ListViewFollowUp" + Me.ListViewFollowUp.Size = New System.Drawing.Size(345, 258) + Me.ListViewFollowUp.TabIndex = 0 + Me.ListViewFollowUp.UseCompatibleStateImageBehavior = False + Me.ListViewFollowUp.View = System.Windows.Forms.View.Details + ' + 'ColumnHeader1 + ' + Me.ColumnHeader1.Text = "ID" + Me.ColumnHeader1.Width = 40 + ' + 'ColumnHeader2 + ' + Me.ColumnHeader2.Text = "Wiedervorlagetitel" + Me.ColumnHeader2.Width = 280 + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Appearance.BackColor = System.Drawing.Color.DarkOrange + Me.XtraTabControl1.Appearance.Options.UseBackColor = True + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.BackColor = System.Drawing.Color.Fuchsia + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.Options.UseBackColor = True + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.TabPageParentEntity + Me.XtraTabControl1.Size = New System.Drawing.Size(538, 369) + Me.XtraTabControl1.TabIndex = 0 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageParentEntity}) + ' + 'TabPageParentEntity + ' + Me.TabPageParentEntity.Appearance.PageClient.BackColor = System.Drawing.SystemColors.ActiveCaptionText + Me.TabPageParentEntity.Appearance.PageClient.Options.UseBackColor = True + Me.TabPageParentEntity.Controls.Add(Me.Button1) + Me.TabPageParentEntity.Controls.Add(Me.btnRefreshPEntity) + Me.TabPageParentEntity.Controls.Add(Me.lblParentID) + Me.TabPageParentEntity.Controls.Add(Me.Label4) + Me.TabPageParentEntity.Controls.Add(Me.GridControlParentEntity) + Me.TabPageParentEntity.Name = "TabPageParentEntity" + Me.TabPageParentEntity.Size = New System.Drawing.Size(532, 341) + Me.TabPageParentEntity.Text = "Parent-Entity" + ' + 'Button1 + ' + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.Close_16xLG + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(423, 290) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(98, 27) + Me.Button1.TabIndex = 18 + Me.Button1.Text = "Schließen" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.UseVisualStyleBackColor = True + ' + 'btnRefreshPEntity + ' + Me.btnRefreshPEntity.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnRefreshPEntity.BackColor = System.Drawing.SystemColors.Control + Me.btnRefreshPEntity.FlatAppearance.BorderColor = System.Drawing.Color.DarkOrange + Me.btnRefreshPEntity.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnRefreshPEntity.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG + Me.btnRefreshPEntity.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnRefreshPEntity.Location = New System.Drawing.Point(3, 325) + Me.btnRefreshPEntity.Name = "btnRefreshPEntity" + Me.btnRefreshPEntity.Size = New System.Drawing.Size(518, 31) + Me.btnRefreshPEntity.TabIndex = 17 + Me.btnRefreshPEntity.Text = "Parent-Datensatz aktualisieren" + Me.btnRefreshPEntity.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnRefreshPEntity.UseVisualStyleBackColor = False + ' + 'lblParentID + ' + Me.lblParentID.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblParentID.AutoSize = True + Me.lblParentID.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblParentID.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.lblParentID.Location = New System.Drawing.Point(334, 38) + Me.lblParentID.Name = "lblParentID" + Me.lblParentID.Size = New System.Drawing.Size(168, 16) + Me.lblParentID.TabIndex = 16 + Me.lblParentID.Text = "Keine Auswahl getroffen" + ' + 'Label4 + ' + Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(334, 12) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(160, 16) + Me.Label4.TabIndex = 15 + Me.Label4.Text = "Aktueller Parent-Datensatz" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnAddForm2, Me.tsbtnSaveForm2, Me.TSDropDownButtonRecordFunctions, Me.tsbtnshowTaskoverview, Me.tsbtnshowWorkflowtasks, Me.tsbtndeleteRecord}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.System + Me.ToolStrip1.Size = New System.Drawing.Size(1311, 25) + Me.ToolStrip1.TabIndex = 0 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'tsbtnAddForm2 + ' + Me.tsbtnAddForm2.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xLG + Me.tsbtnAddForm2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnAddForm2.Name = "tsbtnAddForm2" + Me.tsbtnAddForm2.Size = New System.Drawing.Size(89, 22) + Me.tsbtnAddForm2.Text = "Hinzufügen" + ' + 'tsbtnSaveForm2 + ' + Me.tsbtnSaveForm2.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG1 + Me.tsbtnSaveForm2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnSaveForm2.Name = "tsbtnSaveForm2" + Me.tsbtnSaveForm2.Size = New System.Drawing.Size(79, 22) + Me.tsbtnSaveForm2.Text = "Speichern" + ' + 'TSDropDownButtonRecordFunctions + ' + Me.TSDropDownButtonRecordFunctions.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.TSDropDownButtonRecordFunctions.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.WindreamSucheNeuLadenToolStripMenuItem, Me.WorkflowTasksAnneuErzeugenToolStripMenuItem, Me.ZeigeRecordLogsToolStripMenuItem, Me.VorlageToolStripMenuItem, Me.VerknüpfungenToolStripMenuItem}) + Me.TSDropDownButtonRecordFunctions.Image = CType(resources.GetObject("TSDropDownButtonRecordFunctions.Image"), System.Drawing.Image) + Me.TSDropDownButtonRecordFunctions.ImageTransparentColor = System.Drawing.Color.Magenta + Me.TSDropDownButtonRecordFunctions.Name = "TSDropDownButtonRecordFunctions" + Me.TSDropDownButtonRecordFunctions.Size = New System.Drawing.Size(138, 22) + Me.TSDropDownButtonRecordFunctions.Text = "Record-Funktionen" + ' + 'WindreamSucheNeuLadenToolStripMenuItem + ' + Me.WindreamSucheNeuLadenToolStripMenuItem.Image = CType(resources.GetObject("WindreamSucheNeuLadenToolStripMenuItem.Image"), System.Drawing.Image) + Me.WindreamSucheNeuLadenToolStripMenuItem.Name = "WindreamSucheNeuLadenToolStripMenuItem" + Me.WindreamSucheNeuLadenToolStripMenuItem.Size = New System.Drawing.Size(228, 22) + Me.WindreamSucheNeuLadenToolStripMenuItem.Text = "windream-Suche neu laden" + ' + 'WorkflowTasksAnneuErzeugenToolStripMenuItem + ' + Me.WorkflowTasksAnneuErzeugenToolStripMenuItem.Image = CType(resources.GetObject("WorkflowTasksAnneuErzeugenToolStripMenuItem.Image"), System.Drawing.Image) + Me.WorkflowTasksAnneuErzeugenToolStripMenuItem.Name = "WorkflowTasksAnneuErzeugenToolStripMenuItem" + Me.WorkflowTasksAnneuErzeugenToolStripMenuItem.Size = New System.Drawing.Size(228, 22) + Me.WorkflowTasksAnneuErzeugenToolStripMenuItem.Text = "WorkflowTasks neu erzeugen" + ' + 'ZeigeRecordLogsToolStripMenuItem + ' + Me.ZeigeRecordLogsToolStripMenuItem.Enabled = False + Me.ZeigeRecordLogsToolStripMenuItem.Image = CType(resources.GetObject("ZeigeRecordLogsToolStripMenuItem.Image"), System.Drawing.Image) + Me.ZeigeRecordLogsToolStripMenuItem.Name = "ZeigeRecordLogsToolStripMenuItem" + Me.ZeigeRecordLogsToolStripMenuItem.Size = New System.Drawing.Size(228, 22) + Me.ZeigeRecordLogsToolStripMenuItem.Text = "Zeige Record-Logs" + ' + 'VorlageToolStripMenuItem + ' + Me.VorlageToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.page_white_office + Me.VorlageToolStripMenuItem.Name = "VorlageToolStripMenuItem" + Me.VorlageToolStripMenuItem.Size = New System.Drawing.Size(228, 22) + Me.VorlageToolStripMenuItem.Text = "Office-Vorlagen" + ' + 'VerknüpfungenToolStripMenuItem + ' + Me.VerknüpfungenToolStripMenuItem.Enabled = False + Me.VerknüpfungenToolStripMenuItem.Name = "VerknüpfungenToolStripMenuItem" + Me.VerknüpfungenToolStripMenuItem.Size = New System.Drawing.Size(228, 22) + Me.VerknüpfungenToolStripMenuItem.Text = "Verknüpfungen anzeigen" + ' + 'tsbtnshowTaskoverview + ' + Me.tsbtnshowTaskoverview.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.tsbtnshowTaskoverview.Enabled = False + Me.tsbtnshowTaskoverview.Image = CType(resources.GetObject("tsbtnshowTaskoverview.Image"), System.Drawing.Image) + Me.tsbtnshowTaskoverview.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnshowTaskoverview.Name = "tsbtnshowTaskoverview" + Me.tsbtnshowTaskoverview.Size = New System.Drawing.Size(106, 22) + Me.tsbtnshowTaskoverview.Text = "Task-Übersicht" + Me.tsbtnshowTaskoverview.ToolTipText = "Show all Tasks" + ' + 'tsbtnshowWorkflowtasks + ' + Me.tsbtnshowWorkflowtasks.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.tsbtnshowWorkflowtasks.Enabled = False + Me.tsbtnshowWorkflowtasks.Image = CType(resources.GetObject("tsbtnshowWorkflowtasks.Image"), System.Drawing.Image) + Me.tsbtnshowWorkflowtasks.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.tsbtnshowWorkflowtasks.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnshowWorkflowtasks.Name = "tsbtnshowWorkflowtasks" + Me.tsbtnshowWorkflowtasks.Size = New System.Drawing.Size(122, 22) + Me.tsbtnshowWorkflowtasks.Text = "Taskmanagement" + Me.tsbtnshowWorkflowtasks.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'tsbtndeleteRecord + ' + Me.tsbtndeleteRecord.Image = Global.DD_Record_Organiser.My.Resources.Resources.Delete1 + Me.tsbtndeleteRecord.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtndeleteRecord.Name = "tsbtndeleteRecord" + Me.tsbtndeleteRecord.Size = New System.Drawing.Size(71, 22) + Me.tsbtndeleteRecord.Text = "Löschen" + ' + 'StatusStrip2 + ' + Me.StatusStrip2.Dock = System.Windows.Forms.DockStyle.None + Me.StatusStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tserstellt_Details, Me.tsstatus_Detail, Me.tslblactWFState}) + Me.StatusStrip2.Location = New System.Drawing.Point(0, 311) + Me.StatusStrip2.Name = "StatusStrip2" + Me.StatusStrip2.Size = New System.Drawing.Size(141, 24) + Me.StatusStrip2.TabIndex = 1 + Me.StatusStrip2.Text = "StatusStrip2" + ' + 'tserstellt_Details + ' + Me.tserstellt_Details.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) + Me.tserstellt_Details.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tserstellt_Details.Name = "tserstellt_Details" + Me.tserstellt_Details.Size = New System.Drawing.Size(124, 19) + Me.tserstellt_Details.Text = "ToolStripStatusLabel1" + ' + 'tsstatus_Detail + ' + Me.tsstatus_Detail.BackColor = System.Drawing.Color.LightBlue + Me.tsstatus_Detail.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) + Me.tsstatus_Detail.Image = CType(resources.GetObject("tsstatus_Detail.Image"), System.Drawing.Image) + Me.tsstatus_Detail.Name = "tsstatus_Detail" + Me.tsstatus_Detail.Size = New System.Drawing.Size(141, 20) + Me.tsstatus_Detail.Text = "ToolStripStatusLabel1" + Me.tsstatus_Detail.Visible = False + ' + 'tslblactWFState + ' + Me.tslblactWFState.Image = CType(resources.GetObject("tslblactWFState.Image"), System.Drawing.Image) + Me.tslblactWFState.Name = "tslblactWFState" + Me.tslblactWFState.Size = New System.Drawing.Size(137, 19) + Me.tslblactWFState.Text = "ToolStripStatusLabel1" + Me.tslblactWFState.Visible = False + ' 'BindingNavigatorForm1 ' Me.BindingNavigatorForm1.AddNewItem = Nothing @@ -376,7 +915,7 @@ Partial Class frmForm_Constructor Me.BindingNavigatorForm1.CountItem = Me.BindingNavigatorCountItem Me.BindingNavigatorForm1.CountItemFormat = "von {0} Datensätzen" Me.BindingNavigatorForm1.DeleteItem = Nothing - Me.BindingNavigatorForm1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.tsbtnOverviewRefresh, Me.ToolStripDropDownButton1, Me.tslblEntity1, Me.tslblEntity2, Me.tslblEntity3}) + Me.BindingNavigatorForm1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.tsbtnOverviewRefresh, Me.ToolStripDropDownButton1}) Me.BindingNavigatorForm1.Location = New System.Drawing.Point(0, 0) Me.BindingNavigatorForm1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem Me.BindingNavigatorForm1.MoveLastItem = Me.BindingNavigatorMoveLastItem @@ -384,7 +923,7 @@ Partial Class frmForm_Constructor Me.BindingNavigatorForm1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem Me.BindingNavigatorForm1.Name = "BindingNavigatorForm1" Me.BindingNavigatorForm1.PositionItem = Me.BindingNavigatorPositionItem - Me.BindingNavigatorForm1.Size = New System.Drawing.Size(1225, 25) + Me.BindingNavigatorForm1.Size = New System.Drawing.Size(1311, 25) Me.BindingNavigatorForm1.TabIndex = 0 Me.BindingNavigatorForm1.Text = "BindingNavigator1" ' @@ -513,572 +1052,6 @@ Partial Class frmForm_Constructor Me.AnsichtKomplettZurücksetzenToolStripMenuItem.Size = New System.Drawing.Size(236, 22) Me.AnsichtKomplettZurücksetzenToolStripMenuItem.Text = "Ansicht komplett zurücksetzen" ' - 'tslblEntity1 - ' - Me.tslblEntity1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.tslblEntity1.ForeColor = System.Drawing.Color.Fuchsia - Me.tslblEntity1.Image = CType(resources.GetObject("tslblEntity1.Image"), System.Drawing.Image) - Me.tslblEntity1.Name = "tslblEntity1" - Me.tslblEntity1.Size = New System.Drawing.Size(109, 22) - Me.tslblEntity1.Text = "ToolStripLabel1" - Me.tslblEntity1.Visible = False - ' - 'tslblEntity2 - ' - Me.tslblEntity2.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.tslblEntity2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.tslblEntity2.Image = CType(resources.GetObject("tslblEntity2.Image"), System.Drawing.Image) - Me.tslblEntity2.Name = "tslblEntity2" - Me.tslblEntity2.Size = New System.Drawing.Size(109, 22) - Me.tslblEntity2.Text = "ToolStripLabel1" - Me.tslblEntity2.Visible = False - ' - 'tslblEntity3 - ' - Me.tslblEntity3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.tslblEntity3.ForeColor = System.Drawing.Color.Purple - Me.tslblEntity3.Image = CType(resources.GetObject("tslblEntity3.Image"), System.Drawing.Image) - Me.tslblEntity3.Name = "tslblEntity3" - Me.tslblEntity3.Size = New System.Drawing.Size(109, 22) - Me.tslblEntity3.Text = "ToolStripLabel1" - Me.tslblEntity3.Visible = False - ' - 'SplitCont_Details - ' - Me.SplitCont_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Style3D - Me.SplitCont_Details.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 - Me.SplitCont_Details.DataBindings.Add(New System.Windows.Forms.Binding("SplitterPosition", Global.DD_Record_Organiser.My.MySettings.Default, "Constructor_DetailsSplitter", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) - Me.SplitCont_Details.Dock = System.Windows.Forms.DockStyle.Fill - Me.SplitCont_Details.Location = New System.Drawing.Point(0, 25) - Me.SplitCont_Details.Name = "SplitCont_Details" - Me.SplitCont_Details.Panel1.Controls.Add(Me.TCDetails) - Me.SplitCont_Details.Panel1.Text = "Panel1" - Me.SplitCont_Details.Panel2.Controls.Add(Me.XtraTabControl1) - Me.SplitCont_Details.Panel2.Text = "Panel2" - Me.SplitCont_Details.Size = New System.Drawing.Size(1225, 329) - Me.SplitCont_Details.SplitterPosition = Global.DD_Record_Organiser.My.MySettings.Default.Constructor_DetailsSplitter - Me.SplitCont_Details.TabIndex = 2 - Me.SplitCont_Details.Text = "SplitContainerControl1" - ' - 'TCDetails - ' - Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor = System.Drawing.Color.Magenta - Me.TCDetails.AppearancePage.HeaderHotTracked.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.TCDetails.AppearancePage.HeaderHotTracked.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical - Me.TCDetails.AppearancePage.HeaderHotTracked.Options.UseBackColor = True - Me.TCDetails.Dock = System.Windows.Forms.DockStyle.Fill - Me.TCDetails.Location = New System.Drawing.Point(0, 0) - Me.TCDetails.Name = "TCDetails" - Me.TCDetails.SelectedTabPage = Me.TabPageDetails - Me.TCDetails.ShowHeaderFocus = DevExpress.Utils.DefaultBoolean.[False] - Me.TCDetails.Size = New System.Drawing.Size(764, 325) - Me.TCDetails.TabIndex = 19 - Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageDetails, Me.TabPageWD_Files, Me.TabPageFollowUp}) - ' - 'TabPageDetails - ' - Me.TabPageDetails.Controls.Add(Me.pnlDetails) - Me.TabPageDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD - Me.TabPageDetails.Name = "TabPageDetails" - Me.TabPageDetails.Size = New System.Drawing.Size(758, 294) - Me.TabPageDetails.Text = "Detailansicht:" - ' - 'pnlDetails - ' - Me.pnlDetails.AllowDrop = True - 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(758, 294) - Me.pnlDetails.TabIndex = 0 - ' - 'TabPageWD_Files - ' - Me.TabPageWD_Files.Controls.Add(Me.AxObjectListControl) - Me.TabPageWD_Files.Controls.Add(Me.ToolStripDokumente) - Me.TabPageWD_Files.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954 - Me.TabPageWD_Files.Name = "TabPageWD_Files" - Me.TabPageWD_Files.Size = New System.Drawing.Size(758, 293) - Me.TabPageWD_Files.Text = "windream-Dateien" - Me.ttToolTip.SetToolTip(Me.TabPageWD_Files, "Zeigt die Dateien in windream zum ausgewählten Datensatz an") - ' - 'AxObjectListControl - ' - Me.AxObjectListControl.AllowDrop = True - Me.AxObjectListControl.Dock = System.Windows.Forms.DockStyle.Fill - Me.AxObjectListControl.Enabled = True - 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(758, 268) - Me.AxObjectListControl.TabIndex = 5 - Me.AxObjectListControl.TabStop = False - ' - 'ToolStripDokumente - ' - 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(758, 25) - Me.ToolStripDokumente.TabIndex = 1 - Me.ToolStripDokumente.Text = "ToolStrip2" - ' - 'tslblWindreamView - ' - Me.tslblWindreamView.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.tslblWindreamView.Name = "tslblWindreamView" - Me.tslblWindreamView.Size = New System.Drawing.Size(126, 22) - Me.tslblWindreamView.Text = "Windream-Dokumente" - ' - 'ToolStripDropDownButton2 - ' - Me.ToolStripDropDownButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.ToolStripDropDownButton2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KonfigurationToolStripMenuItem}) - Me.ToolStripDropDownButton2.Image = CType(resources.GetObject("ToolStripDropDownButton2.Image"), System.Drawing.Image) - Me.ToolStripDropDownButton2.ImageTransparentColor = System.Drawing.Color.Magenta - Me.ToolStripDropDownButton2.Name = "ToolStripDropDownButton2" - Me.ToolStripDropDownButton2.Size = New System.Drawing.Size(210, 22) - Me.ToolStripDropDownButton2.Text = "Konfiguration windream-Ansicht" - ' - 'KonfigurationToolStripMenuItem - ' - Me.KonfigurationToolStripMenuItem.Name = "KonfigurationToolStripMenuItem" - Me.KonfigurationToolStripMenuItem.Size = New System.Drawing.Size(173, 22) - Me.KonfigurationToolStripMenuItem.Text = "Konfiguration User" - ' - 'TabPageFollowUp - ' - Me.TabPageFollowUp.Controls.Add(Me.grpbxFU_Profile) - Me.TabPageFollowUp.Controls.Add(Me.Label1) - Me.TabPageFollowUp.Controls.Add(Me.ListViewFollowUp) - Me.TabPageFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD - Me.TabPageFollowUp.Name = "TabPageFollowUp" - Me.TabPageFollowUp.Size = New System.Drawing.Size(758, 293) - Me.TabPageFollowUp.Text = "Wiedervorlage" - ' - 'grpbxFU_Profile - ' - Me.grpbxFU_Profile.Controls.Add(Me.lblWV_Date) - Me.grpbxFU_Profile.Controls.Add(Me.GroupBox3) - Me.grpbxFU_Profile.Controls.Add(Me.dtpWV) - Me.grpbxFU_Profile.Controls.Add(Me.lblFollowUp_save) - Me.grpbxFU_Profile.Controls.Add(Me.chkFollowUp) - Me.grpbxFU_Profile.Enabled = False - Me.grpbxFU_Profile.Location = New System.Drawing.Point(365, 28) - Me.grpbxFU_Profile.Name = "grpbxFU_Profile" - Me.grpbxFU_Profile.Size = New System.Drawing.Size(691, 254) - Me.grpbxFU_Profile.TabIndex = 105 - Me.grpbxFU_Profile.TabStop = False - ' - 'lblWV_Date - ' - Me.lblWV_Date.AutoSize = True - Me.lblWV_Date.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblWV_Date.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) - Me.lblWV_Date.Location = New System.Drawing.Point(6, 18) - Me.lblWV_Date.Name = "lblWV_Date" - Me.lblWV_Date.Size = New System.Drawing.Size(41, 13) - Me.lblWV_Date.TabIndex = 23 - Me.lblWV_Date.Text = "Label2" - ' - 'GroupBox3 - ' - Me.GroupBox3.Controls.Add(Me.Label3) - Me.GroupBox3.Controls.Add(Me.Label2) - Me.GroupBox3.Controls.Add(Me.ListBoxUser2Profile) - Me.GroupBox3.Controls.Add(Me.Label5) - Me.GroupBox3.Controls.Add(Me.cmbWHUser) - Me.GroupBox3.Controls.Add(Me.btnAddUser_WV) - Me.GroupBox3.Controls.Add(Me.btndelete) - Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox3.Location = New System.Drawing.Point(240, 18) - Me.GroupBox3.Name = "GroupBox3" - Me.GroupBox3.Size = New System.Drawing.Size(445, 207) - Me.GroupBox3.TabIndex = 104 - Me.GroupBox3.TabStop = False - Me.GroupBox3.Text = "Individuelle Empfänger für diesen Datensatz:" - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(190, 51) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(65, 13) - Me.Label3.TabIndex = 94 - Me.Label3.Text = "Email-User:" - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(7, 22) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(371, 13) - Me.Label2.TabIndex = 93 - Me.Label2.Text = "Achtung: Diese Liste übersteuert die zentral konfigurierte Empfängerliste!" - ' - 'ListBoxUser2Profile - ' - Me.ListBoxUser2Profile.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.ListBoxUser2Profile.FormattingEnabled = True - Me.ListBoxUser2Profile.Location = New System.Drawing.Point(6, 51) - Me.ListBoxUser2Profile.Name = "ListBoxUser2Profile" - Me.ListBoxUser2Profile.Size = New System.Drawing.Size(181, 134) - Me.ListBoxUser2Profile.TabIndex = 80 - Me.ListBoxUser2Profile.TabStop = False - ' - 'Label5 - ' - Me.Label5.AutoSize = True - Me.Label5.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label5.Location = New System.Drawing.Point(213, 21) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(92, 13) - Me.Label5.TabIndex = 91 - Me.Label5.Text = "User auswählen:" - ' - 'cmbWHUser - ' - Me.cmbWHUser.DisplayMember = "FORM_TITLE" - Me.cmbWHUser.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cmbWHUser.FormattingEnabled = True - Me.cmbWHUser.Location = New System.Drawing.Point(193, 67) - Me.cmbWHUser.Name = "cmbWHUser" - Me.cmbWHUser.Size = New System.Drawing.Size(234, 21) - Me.cmbWHUser.TabIndex = 89 - Me.cmbWHUser.TabStop = False - Me.cmbWHUser.ValueMember = "GUID" - ' - 'btnAddUser_WV - ' - Me.btnAddUser_WV.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnAddUser_WV.Image = Global.DD_Record_Organiser.My.Resources.Resources.add - Me.btnAddUser_WV.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnAddUser_WV.Location = New System.Drawing.Point(193, 94) - Me.btnAddUser_WV.Name = "btnAddUser_WV" - Me.btnAddUser_WV.Size = New System.Drawing.Size(234, 23) - Me.btnAddUser_WV.TabIndex = 90 - Me.btnAddUser_WV.TabStop = False - Me.btnAddUser_WV.Text = "User zu Wiedervorlage hinzufügen:" - Me.btnAddUser_WV.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnAddUser_WV.UseVisualStyleBackColor = False - ' - 'btndelete - ' - Me.btndelete.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btndelete.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete - Me.btndelete.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btndelete.Location = New System.Drawing.Point(193, 123) - Me.btndelete.Name = "btndelete" - Me.btndelete.Size = New System.Drawing.Size(234, 23) - Me.btndelete.TabIndex = 92 - Me.btndelete.TabStop = False - Me.btndelete.Text = "Userzuordnung löschen" - Me.btndelete.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btndelete.UseVisualStyleBackColor = True - ' - 'dtpWV - ' - Me.dtpWV.CalendarFont = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.dtpWV.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.VWPMO_WF_USER_ACTIVEBindingSource, "TASK_DATE", True)) - Me.dtpWV.Format = System.Windows.Forms.DateTimePickerFormat.[Short] - Me.dtpWV.Location = New System.Drawing.Point(9, 34) - Me.dtpWV.Name = "dtpWV" - Me.dtpWV.Size = New System.Drawing.Size(96, 21) - Me.dtpWV.TabIndex = 22 - ' - 'VWPMO_WF_USER_ACTIVEBindingSource - ' - Me.VWPMO_WF_USER_ACTIVEBindingSource.DataMember = "VWPMO_WF_USER_ACTIVE" - Me.VWPMO_WF_USER_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet - ' - 'DD_DMSDataSet - ' - Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" - Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' - 'lblFollowUp_save - ' - Me.lblFollowUp_save.AutoSize = True - Me.lblFollowUp_save.BackColor = System.Drawing.Color.LawnGreen - Me.lblFollowUp_save.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblFollowUp_save.Location = New System.Drawing.Point(11, 88) - Me.lblFollowUp_save.Name = "lblFollowUp_save" - Me.lblFollowUp_save.Size = New System.Drawing.Size(131, 13) - Me.lblFollowUp_save.TabIndex = 24 - Me.lblFollowUp_save.Text = "Wiedervorlage gespeichert" - Me.lblFollowUp_save.Visible = False - ' - 'chkFollowUp - ' - Me.chkFollowUp.AutoSize = True - Me.chkFollowUp.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.chkFollowUp.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) - Me.chkFollowUp.Location = New System.Drawing.Point(9, 65) - Me.chkFollowUp.Name = "chkFollowUp" - Me.chkFollowUp.Size = New System.Drawing.Size(109, 17) - Me.chkFollowUp.TabIndex = 26 - Me.chkFollowUp.Text = "Undo CheckBox" - Me.chkFollowUp.UseVisualStyleBackColor = True - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(11, 12) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(143, 13) - Me.Label1.TabIndex = 1 - Me.Label1.Text = "Hinterlegte Wiedervorlagen:" - ' - 'ListViewFollowUp - ' - Me.ListViewFollowUp.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.ListViewFollowUp.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2}) - Me.ListViewFollowUp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.ListViewFollowUp.FullRowSelect = True - Me.ListViewFollowUp.HideSelection = False - Me.ListViewFollowUp.Location = New System.Drawing.Point(11, 28) - Me.ListViewFollowUp.MultiSelect = False - Me.ListViewFollowUp.Name = "ListViewFollowUp" - Me.ListViewFollowUp.Size = New System.Drawing.Size(345, 257) - Me.ListViewFollowUp.TabIndex = 0 - Me.ListViewFollowUp.UseCompatibleStateImageBehavior = False - Me.ListViewFollowUp.View = System.Windows.Forms.View.Details - ' - 'ColumnHeader1 - ' - Me.ColumnHeader1.Text = "ID" - Me.ColumnHeader1.Width = 40 - ' - 'ColumnHeader2 - ' - Me.ColumnHeader2.Text = "Wiedervorlagetitel" - Me.ColumnHeader2.Width = 280 - ' - 'XtraTabControl1 - ' - Me.XtraTabControl1.Appearance.BackColor = System.Drawing.Color.DarkOrange - Me.XtraTabControl1.Appearance.Options.UseBackColor = True - Me.XtraTabControl1.AppearancePage.HeaderHotTracked.BackColor = System.Drawing.Color.Fuchsia - Me.XtraTabControl1.AppearancePage.HeaderHotTracked.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.XtraTabControl1.AppearancePage.HeaderHotTracked.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical - Me.XtraTabControl1.AppearancePage.HeaderHotTracked.Options.UseBackColor = True - Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) - Me.XtraTabControl1.Name = "XtraTabControl1" - Me.XtraTabControl1.SelectedTabPage = Me.TabPageParentEntity - Me.XtraTabControl1.Size = New System.Drawing.Size(452, 325) - Me.XtraTabControl1.TabIndex = 0 - Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageParentEntity}) - ' - 'TabPageParentEntity - ' - Me.TabPageParentEntity.Appearance.PageClient.BackColor = System.Drawing.SystemColors.ActiveCaptionText - Me.TabPageParentEntity.Appearance.PageClient.Options.UseBackColor = True - Me.TabPageParentEntity.Controls.Add(Me.Button1) - Me.TabPageParentEntity.Controls.Add(Me.btnRefreshPEntity) - Me.TabPageParentEntity.Controls.Add(Me.lblParentID) - Me.TabPageParentEntity.Controls.Add(Me.Label4) - Me.TabPageParentEntity.Controls.Add(Me.GridControlParentEntity) - Me.TabPageParentEntity.Name = "TabPageParentEntity" - Me.TabPageParentEntity.Size = New System.Drawing.Size(446, 297) - Me.TabPageParentEntity.Text = "Parent-Entity" - ' - 'Button1 - ' - Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.Close_16xLG - Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(343, 220) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(98, 27) - Me.Button1.TabIndex = 18 - Me.Button1.Text = "Schließen" - Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button1.UseVisualStyleBackColor = True - ' - 'btnRefreshPEntity - ' - Me.btnRefreshPEntity.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnRefreshPEntity.BackColor = System.Drawing.SystemColors.Control - Me.btnRefreshPEntity.FlatAppearance.BorderColor = System.Drawing.Color.DarkOrange - Me.btnRefreshPEntity.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnRefreshPEntity.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG - Me.btnRefreshPEntity.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnRefreshPEntity.Location = New System.Drawing.Point(3, 263) - Me.btnRefreshPEntity.Name = "btnRefreshPEntity" - Me.btnRefreshPEntity.Size = New System.Drawing.Size(438, 31) - Me.btnRefreshPEntity.TabIndex = 17 - Me.btnRefreshPEntity.Text = "Parent-Datensatz aktualisieren" - Me.btnRefreshPEntity.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnRefreshPEntity.UseVisualStyleBackColor = False - ' - 'lblParentID - ' - Me.lblParentID.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblParentID.AutoSize = True - Me.lblParentID.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblParentID.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) - Me.lblParentID.Location = New System.Drawing.Point(254, 38) - Me.lblParentID.Name = "lblParentID" - Me.lblParentID.Size = New System.Drawing.Size(168, 16) - Me.lblParentID.TabIndex = 16 - Me.lblParentID.Text = "Keine Auswahl getroffen" - ' - 'Label4 - ' - Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Label4.AutoSize = True - Me.Label4.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label4.Location = New System.Drawing.Point(254, 12) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(160, 16) - Me.Label4.TabIndex = 15 - Me.Label4.Text = "Aktueller Parent-Datensatz" - ' - 'ToolStrip1 - ' - Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnAddForm2, Me.tsbtnSaveForm2, Me.TSDropDownButtonRecordFunctions, Me.tsbtnshowTaskoverview, Me.tsbtnshowWorkflowtasks, Me.tsbtndeleteRecord}) - Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) - Me.ToolStrip1.Name = "ToolStrip1" - Me.ToolStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.System - Me.ToolStrip1.Size = New System.Drawing.Size(1225, 25) - Me.ToolStrip1.TabIndex = 0 - Me.ToolStrip1.Text = "ToolStrip1" - ' - 'tsbtnAddForm2 - ' - Me.tsbtnAddForm2.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xLG - Me.tsbtnAddForm2.ImageTransparentColor = System.Drawing.Color.Magenta - Me.tsbtnAddForm2.Name = "tsbtnAddForm2" - Me.tsbtnAddForm2.Size = New System.Drawing.Size(89, 22) - Me.tsbtnAddForm2.Text = "Hinzufügen" - ' - 'tsbtnSaveForm2 - ' - Me.tsbtnSaveForm2.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG1 - Me.tsbtnSaveForm2.ImageTransparentColor = System.Drawing.Color.Magenta - Me.tsbtnSaveForm2.Name = "tsbtnSaveForm2" - Me.tsbtnSaveForm2.Size = New System.Drawing.Size(79, 22) - Me.tsbtnSaveForm2.Text = "Speichern" - ' - 'TSDropDownButtonRecordFunctions - ' - Me.TSDropDownButtonRecordFunctions.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.TSDropDownButtonRecordFunctions.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.WindreamSucheNeuLadenToolStripMenuItem, Me.WorkflowTasksAnneuErzeugenToolStripMenuItem, Me.ZeigeRecordLogsToolStripMenuItem, Me.VorlageToolStripMenuItem, Me.VerknüpfungenToolStripMenuItem}) - Me.TSDropDownButtonRecordFunctions.Image = CType(resources.GetObject("TSDropDownButtonRecordFunctions.Image"), System.Drawing.Image) - Me.TSDropDownButtonRecordFunctions.ImageTransparentColor = System.Drawing.Color.Magenta - Me.TSDropDownButtonRecordFunctions.Name = "TSDropDownButtonRecordFunctions" - Me.TSDropDownButtonRecordFunctions.Size = New System.Drawing.Size(138, 22) - Me.TSDropDownButtonRecordFunctions.Text = "Record-Funktionen" - ' - 'WindreamSucheNeuLadenToolStripMenuItem - ' - Me.WindreamSucheNeuLadenToolStripMenuItem.Image = CType(resources.GetObject("WindreamSucheNeuLadenToolStripMenuItem.Image"), System.Drawing.Image) - Me.WindreamSucheNeuLadenToolStripMenuItem.Name = "WindreamSucheNeuLadenToolStripMenuItem" - Me.WindreamSucheNeuLadenToolStripMenuItem.Size = New System.Drawing.Size(228, 22) - Me.WindreamSucheNeuLadenToolStripMenuItem.Text = "windream-Suche neu laden" - ' - 'WorkflowTasksAnneuErzeugenToolStripMenuItem - ' - Me.WorkflowTasksAnneuErzeugenToolStripMenuItem.Image = CType(resources.GetObject("WorkflowTasksAnneuErzeugenToolStripMenuItem.Image"), System.Drawing.Image) - Me.WorkflowTasksAnneuErzeugenToolStripMenuItem.Name = "WorkflowTasksAnneuErzeugenToolStripMenuItem" - Me.WorkflowTasksAnneuErzeugenToolStripMenuItem.Size = New System.Drawing.Size(228, 22) - Me.WorkflowTasksAnneuErzeugenToolStripMenuItem.Text = "WorkflowTasks neu erzeugen" - ' - 'ZeigeRecordLogsToolStripMenuItem - ' - Me.ZeigeRecordLogsToolStripMenuItem.Enabled = False - Me.ZeigeRecordLogsToolStripMenuItem.Image = CType(resources.GetObject("ZeigeRecordLogsToolStripMenuItem.Image"), System.Drawing.Image) - Me.ZeigeRecordLogsToolStripMenuItem.Name = "ZeigeRecordLogsToolStripMenuItem" - Me.ZeigeRecordLogsToolStripMenuItem.Size = New System.Drawing.Size(228, 22) - Me.ZeigeRecordLogsToolStripMenuItem.Text = "Zeige Record-Logs" - ' - 'VorlageToolStripMenuItem - ' - Me.VorlageToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.page_white_office - Me.VorlageToolStripMenuItem.Name = "VorlageToolStripMenuItem" - Me.VorlageToolStripMenuItem.Size = New System.Drawing.Size(228, 22) - Me.VorlageToolStripMenuItem.Text = "Office-Vorlagen" - ' - 'VerknüpfungenToolStripMenuItem - ' - Me.VerknüpfungenToolStripMenuItem.Enabled = False - Me.VerknüpfungenToolStripMenuItem.Name = "VerknüpfungenToolStripMenuItem" - Me.VerknüpfungenToolStripMenuItem.Size = New System.Drawing.Size(228, 22) - Me.VerknüpfungenToolStripMenuItem.Text = "Verknüpfungen anzeigen" - ' - 'tsbtnshowTaskoverview - ' - Me.tsbtnshowTaskoverview.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.tsbtnshowTaskoverview.Enabled = False - Me.tsbtnshowTaskoverview.Image = CType(resources.GetObject("tsbtnshowTaskoverview.Image"), System.Drawing.Image) - Me.tsbtnshowTaskoverview.ImageTransparentColor = System.Drawing.Color.Magenta - Me.tsbtnshowTaskoverview.Name = "tsbtnshowTaskoverview" - Me.tsbtnshowTaskoverview.Size = New System.Drawing.Size(106, 22) - Me.tsbtnshowTaskoverview.Text = "Task-Übersicht" - Me.tsbtnshowTaskoverview.ToolTipText = "Show all Tasks" - ' - 'tsbtnshowWorkflowtasks - ' - Me.tsbtnshowWorkflowtasks.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.tsbtnshowWorkflowtasks.Enabled = False - Me.tsbtnshowWorkflowtasks.Image = CType(resources.GetObject("tsbtnshowWorkflowtasks.Image"), System.Drawing.Image) - Me.tsbtnshowWorkflowtasks.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.tsbtnshowWorkflowtasks.ImageTransparentColor = System.Drawing.Color.Magenta - Me.tsbtnshowWorkflowtasks.Name = "tsbtnshowWorkflowtasks" - Me.tsbtnshowWorkflowtasks.Size = New System.Drawing.Size(122, 22) - Me.tsbtnshowWorkflowtasks.Text = "Taskmanagement" - Me.tsbtnshowWorkflowtasks.TextAlign = System.Drawing.ContentAlignment.MiddleRight - ' - 'tsbtndeleteRecord - ' - Me.tsbtndeleteRecord.Image = Global.DD_Record_Organiser.My.Resources.Resources.Delete1 - Me.tsbtndeleteRecord.ImageTransparentColor = System.Drawing.Color.Magenta - Me.tsbtndeleteRecord.Name = "tsbtndeleteRecord" - Me.tsbtndeleteRecord.Size = New System.Drawing.Size(71, 22) - Me.tsbtndeleteRecord.Text = "Löschen" - ' - 'StatusStrip2 - ' - Me.StatusStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tserstellt_Details, Me.tsstatus_Detail, Me.tslblactWFState}) - Me.StatusStrip2.Location = New System.Drawing.Point(0, 354) - Me.StatusStrip2.Name = "StatusStrip2" - Me.StatusStrip2.Size = New System.Drawing.Size(1225, 24) - Me.StatusStrip2.TabIndex = 1 - Me.StatusStrip2.Text = "StatusStrip2" - ' - 'tserstellt_Details - ' - Me.tserstellt_Details.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ - Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ - Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) - Me.tserstellt_Details.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.tserstellt_Details.Name = "tserstellt_Details" - Me.tserstellt_Details.Size = New System.Drawing.Size(124, 19) - Me.tserstellt_Details.Text = "ToolStripStatusLabel1" - ' - 'tsstatus_Detail - ' - Me.tsstatus_Detail.BackColor = System.Drawing.Color.LightBlue - Me.tsstatus_Detail.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ - Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ - Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) - Me.tsstatus_Detail.Image = CType(resources.GetObject("tsstatus_Detail.Image"), System.Drawing.Image) - Me.tsstatus_Detail.Name = "tsstatus_Detail" - Me.tsstatus_Detail.Size = New System.Drawing.Size(141, 20) - Me.tsstatus_Detail.Text = "ToolStripStatusLabel1" - Me.tsstatus_Detail.Visible = False - ' - 'tslblactWFState - ' - Me.tslblactWFState.Image = CType(resources.GetObject("tslblactWFState.Image"), System.Drawing.Image) - Me.tslblactWFState.Name = "tslblactWFState" - Me.tslblactWFState.Size = New System.Drawing.Size(137, 19) - Me.tslblactWFState.Text = "ToolStripStatusLabel1" - Me.tslblactWFState.Visible = False - ' 'BindingSourceForm2 ' Me.BindingSourceForm2.AllowNew = False @@ -1163,14 +1136,33 @@ Partial Class frmForm_Constructor ' Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = True ' + 'pnlTop + ' + Me.pnlTop.Controls.Add(Me.BindingNavigatorForm1) + Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlTop.Location = New System.Drawing.Point(0, 0) + Me.pnlTop.Name = "pnlTop" + Me.pnlTop.Size = New System.Drawing.Size(1311, 74) + Me.pnlTop.TabIndex = 4 + ' + 'pnlMain + ' + Me.pnlMain.Controls.Add(Me.SplitContainerMain) + Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlMain.Location = New System.Drawing.Point(0, 74) + Me.pnlMain.Name = "pnlMain" + Me.pnlMain.Size = New System.Drawing.Size(1311, 584) + Me.pnlMain.TabIndex = 5 + ' 'frmForm_Constructor ' Me.AllowDrop = True Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.SystemColors.Control - Me.ClientSize = New System.Drawing.Size(1225, 584) - Me.Controls.Add(Me.SplitContainerMain) + Me.ClientSize = New System.Drawing.Size(1311, 682) + Me.Controls.Add(Me.pnlMain) + Me.Controls.Add(Me.pnlTop) Me.Controls.Add(Me.StatusStrip1) Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) @@ -1186,15 +1178,11 @@ Partial Class frmForm_Constructor Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.PerformLayout() Me.SplitContainerMain.Panel1.ResumeLayout(False) - Me.SplitContainerMain.Panel1.PerformLayout() Me.SplitContainerMain.Panel2.ResumeLayout(False) Me.SplitContainerMain.Panel2.PerformLayout() CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainerMain.ResumeLayout(False) Me.CMSEntity.ResumeLayout(False) - CType(Me.BindingNavigatorForm1, System.ComponentModel.ISupportInitialize).EndInit() - Me.BindingNavigatorForm1.ResumeLayout(False) - Me.BindingNavigatorForm1.PerformLayout() CType(Me.SplitCont_Details, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitCont_Details.ResumeLayout(False) CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).EndInit() @@ -1221,6 +1209,9 @@ Partial Class frmForm_Constructor Me.ToolStrip1.PerformLayout() Me.StatusStrip2.ResumeLayout(False) Me.StatusStrip2.PerformLayout() + CType(Me.BindingNavigatorForm1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigatorForm1.ResumeLayout(False) + Me.BindingNavigatorForm1.PerformLayout() CType(Me.BindingSourceForm2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BindingSourceForm3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BindingSourceForm4, System.ComponentModel.ISupportInitialize).EndInit() @@ -1228,6 +1219,9 @@ Partial Class frmForm_Constructor Me.contextMenuCombo.ResumeLayout(False) CType(Me.TBPMO_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlTop.ResumeLayout(False) + Me.pnlTop.PerformLayout() + Me.pnlMain.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() @@ -1296,9 +1290,6 @@ Partial Class frmForm_Constructor Friend WithEvents AnsichtUmschaltenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents CarouselToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents TabelleToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents tslblEntity1 As System.Windows.Forms.ToolStripLabel - Friend WithEvents tslblEntity2 As System.Windows.Forms.ToolStripLabel - Friend WithEvents tslblEntity3 As System.Windows.Forms.ToolStripLabel Friend WithEvents tslblEntity As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents ZeigeRecordLogsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents VWPMO_WF_ACTIVEBindingSource As System.Windows.Forms.BindingSource @@ -1337,5 +1328,7 @@ Partial Class frmForm_Constructor Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents btnRefreshPEntity As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents pnlTop As System.Windows.Forms.Panel + Friend WithEvents pnlMain As System.Windows.Forms.Panel End Class diff --git a/app/DD-Record-Organiser/frmForm_Constructor.resx b/app/DD-Record-Organiser/frmForm_Constructor.resx index 2664099..ae87483 100644 --- a/app/DD-Record-Organiser/frmForm_Constructor.resx +++ b/app/DD-Record-Organiser/frmForm_Constructor.resx @@ -138,7 +138,69 @@ - 1006, 56 + 1123, 56 + + + 1013, 56 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS + CQAAAk1TRnQBSQFMAgEBAgEAAdABCAHQAQgBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA + AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 + AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA + AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm + AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM + AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA + ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz + AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ + AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM + AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA + AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA + AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ + AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/ + AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA + AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm + ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ + Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz + AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA + AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM + AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM + ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM + Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA + AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM + AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ + AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz + AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm + AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw + AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wUAAfQBlARNAZQB9AgA + AfQBeQFSAisBTAF0AfQnAAEbAVMBdQKaAZMBdAF1AU0BGgYAARoBUgF6ApoCegFYAUwBGiUAAfQBUwKa + AZMEdAF1AVMB9AQAAfQBWQKaBnoBTAH0JAAEmgGTBXQBdQGaBAACegKaBnoBWQF0JAABUwEaApoCkwV0 + AVMEAAFZAcMDmgZ6AVIkAAFTARoDmgGTBXQBTQQAATgBwwSaBXoBMSQAAVMBGgOaAZQBkwN0AZMBTQQA + ATgBwwSaBXoBMSQAAVMBGgSaApMCdAGUAVMEAAFZAsMEmgR6AVIkAAKaARoEmgGTAXQBkwF6AZoEAAKa + AcMFmgR6JAAB9AF1AhoGmgFTAfQEAAH0AVkCwwaaAVkB9CUAARsBUwGaAxoCmgFTARsGAAEbAVkBmgPD + AZoBegFYARsmAAG9AeMBdQVTARcBvQYAAQgBeAFYBFkBWAFzAQgmAAHjAZQB4wRHARcBFgFHBgABcgEI + AXgFlwGYAUkmAAHjAZQCFwRHARYBRwYAAZcBCAaXAZgBTyYAAeMBlAQXAkcBFgFHBgABlwEIBpcBmAFP + JgAB4wGUBRcBRwEWARcGAAGXAQgCeASXAZgBTyMAAUIBTQE+BwABPgMAASgDAAFAAwABEAMAAQEBAAEB + BQABgBcAA/8BAAHwAQ8B8AEPBAAB4AEHAeABBwQAAcABAwHAAQMEAAHAAQMBwAEDBAABwAEDAcABAwQA + AcABAwHAAQMEAAHAAQMBwAEDBAABwAEDAcABAwQAAcABAwHAAQMEAAHAAQMBwAEDBAAB4AEHAeABBwQA + AeABBwHgAQcEAAHgAQcB4AEHBAAB4AEHAeABBwQAAeABBwHgAQcEAAHgAQcB4AEHBAAL + + + + 811, 17 + + + 646, 17 + + + 912, 17 + + + 17, 56 @@ -147,159 +209,6 @@ zS3/P7z/iIKxGoBuAwgja4aJ4TUAppgQpp4BIAKGyTYAxCEWYzPgfH5+PoZCXPjokaMYBjQsX74cQyEu 3NfXj2GAwZUrVzAU4sLJScmoBkBj4H1kZCSGYlz41s3bYBrZgPm4kis2vH7dejCNbEDCvn37MBQSwsgG CIA45GCG//8pwf8ZANa5gGyReLItAAAAAElFTkSuQmCC - - - - 896, 56 - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w - LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 - ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABM - CQAAAk1TRnQBSQFMAgEBAgEABAgBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEoAwABQAMA - ARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHAAQAB8AHK - AaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5AQABgAF8 - Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMAAWYDAAGZ - AwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFmAZkCAAFm - AcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHMAWYCAAHM - AZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEAATMBAAGZ - AQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEzAWYCAAEz - AWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZAWYBAAEz - ApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLMAQABMwHM - Af8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEAAWYBAAFm - AQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEAAWYBMwHM - AQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZAWYBAAFm - ApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/AQABZgH/ - AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEAAZkBAAGZ - AQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFmATMBAAGZ - ATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZAf8BAAGZ - AcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEzAQABmQHM - AWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEAAcwBAAHM - AQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHMAWYBMwEA - AZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHMApkBAAHM - AZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHMAf8BMwEA - AZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEAAcwBMwIA - Af8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHMAmYBAAH/ - AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZAcwBAAH/ - AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEzAQABzAH/ - AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFmAQABIQEA - AaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHwAfsB/wEA - AaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wUAAfQBlARNAZQB9AgAAfQBeQFS - AisBTAF0AfQnAAEbAVMBdQKaAZMBdAF1AU0BGgYAARoBUgF6ApoCegFYAUwBGiUAAfQBUwKaAZMEdAF1 - AVMB9AQAAfQBWQKaBnoBTAH0JAAEmgGTBXQBdQGaBAACegKaBnoBWQF0JAABUwEaApoCkwV0AVMEAAFZ - AcMDmgZ6AVIkAAFTARoDmgGTBXQBTQQAATgBwwSaBXoBMSQAAVMBGgOaAZQBkwN0AZMBTQQAATgBwwSa - BXoBMSQAAVMBGgSaApMCdAGUAVMEAAFZAsMEmgR6AVIkAAKaARoEmgGTAXQBkwF6AZoEAAKaAcMFmgR6 - JAAB9AF1AhoGmgFTAfQEAAH0AVkCwwaaAVkB9CUAARsBUwGaAxoCmgFTARsGAAEbAVkBmgPDAZoBegFY - ARsmAAG9AeMBdQVTARcBvQYAAQgBeAFYBFkBWAFzAQgmAAHjAZQB4wRHARcBFgFHBgABcgEIAXgFlwGY - AUkmAAHjAZQCFwRHARYBRwYAAZcBCAaXAZgBTyYAAeMBlAQXAkcBFgFHBgABlwEIBpcBmAFPJgAB4wGU - BRcBRwEWARcGAAGXAQgCeASXAZgBTyMAAUIBTQE+BwABPgMAASgDAAFAAwABEAMAAQEBAAEBBQABgBcA - A/8BAAHwAQ8B8AEPBAAB4AEHAeABBwQAAcABAwHAAQMEAAHAAQMBwAEDBAABwAEDAcABAwQAAcABAwHA - AQMEAAHAAQMBwAEDBAABwAEDAcABAwQAAcABAwHAAQMEAAHAAQMBwAEDBAAB4AEHAeABBwQAAeABBwHg - AQcEAAHgAQcB4AEHBAAB4AEHAeABBwQAAeABBwHgAQcEAAHgAQcB4AEHBAAL - - - - 811, 17 - - - 134, 17 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 - wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 - v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg - UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA - Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu - lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w - 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f - Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ - 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 - n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI - N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f - oAc0QjgAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// - h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B - twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA - kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG - WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 - 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAJRJREFUOE/dkssNgCAQRLcUa6ELurAVKvJMJRw4eAKO6iAaXZFPvPmSSQjZ2cwk - S9775YuwYJZSLkKILsEDLznnRq11dqgkeOAlsD0mpVR2MCfMwhPNIIQwGGOaqmAGs/Ak+05rlVt0Tq3K - IzqnVOU1OuetSjE6h1epRucgprX2XIB3NToHZ3osiCfby08WXJW+GUQrK/59Ci2uLUYAAAAASUVORK5C - YII= - - - - - /9j/4AAQSkZJRgABAQEASABIAAD/2wBDAAYEBQYFBAYGBQYHBwYIChAKCgkJChQODwwQFxQYGBcUFhYa - HSUfGhsjHBYWICwgIyYnKSopGR8tMC0oMCUoKSj/2wBDAQcHBwoIChMKChMoGhYaKCgoKCgoKCgoKCgo - KCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCj/wAARCAAZABkDASIAAhEBAxEB/8QA - GQAAAgMBAAAAAAAAAAAAAAAABgcCAwUE/8QAMxAAAAUCAwUCDwAAAAAAAAAAAQIDBAUAEQYSExUhIjFR - FHEWMjM1QlRhc3SBkZKhsdL/xAAWAQEBAQAAAAAAAAAAAAAAAAAFBAP/xAAiEQACAgIABgMAAAAAAAAA - AAABAgMRAAQSISIxQVGhweH/2gAMAwEAAhEDEQA/ADTAmFodzhlobYsaoJQEoidMom5jzvW2XDMH2jR8 - H43U+HLS2wzPyySyDSJJnEojnuHDlvvvTijXqTthdMQ1yl4r8ym/mjopA4rCoZRIKHjMOXwzANWSurBx - ZRMmbLlRLflSG2RF+oN/sCmVj5eVjiGVevkcyoiUhACwmC3oh0Cljrn6/mtteS2YeqyjVlt2X1X3hhEt - 5Bs3FWPeIJFWuI8ZbjvrqSeYkauCLIyKOYo3tnLYwdB9lCMD5hae5D9VTN+SJ8qNMLqeTYOdd1PS/wAf - uGOKZCTnGolfNmACmAiVQqoiYvdvpaZB6h9aip4hu6g2rNRGHEWN9sR0Y2BZma7rP//Z - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADQSURBVDhPlY6xC0FRGMXvLIPBYjKZTDIYkOEtDAzU86Qw - MMigZGAQL2WyqVcMFgNZ/Rd6/9PVOa5Vna9O3Xu+fr8+Ez6CaP/sWTXgDGZ39+3rfZEDjoLNrc2PGnAU - rK8tOwyLcsBRsDw37G/iOHav7/z7g6NgfvJcpQnAUTA9VrlQA46C8aHknNoF4CgYbAuu0gTgKAhWeS7U - gKOgs8g5p3YBOAqas6yrNAE4CuqTDBdqwFHgjdLOqV0AjoJaP+UqTQCOgrKfiCrdpFUDzhhjPlRg7jGq - htNmAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAAHdJREFUOE+tj9ENgCAMRNnRX4dyABM2caz+Vk+BgBxSgpc8QkrvJThVnYIOR6DD - EZ4jRET8hTbwYS2lEiBYRGHdDnXLfoM7k1ABYpUkQXigfEkKQVzqkUv+FbQwfeEdLPTKCBVYy0gliOUG - RRlJghnocAQ6tKPuBBM5kPmw6vFnAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAAHdJREFUOE+tj9ENgCAMRNnRX4dyABM2caz+Vk+BgBxSgpc8QkrvJThVnYIOR6DD - EZ4jRET8hTbwYS2lEiBYRGHdDnXLfoM7k1ABYpUkQXigfEkKQVzqkUv+FbQwfeEdLPTKCBVYy0gliOUG - RRlJghnocAQ6tKPuBBM5kPmw6vFnAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAAHdJREFUOE+tj9ENgCAMRNnRX4dyABM2caz+Vk+BgBxSgpc8QkrvJThVnYIOR6DD - EZ4jRET8hTbwYS2lEiBYRGHdDnXLfoM7k1ABYpUkQXigfEkKQVzqkUv+FbQwfeEdLPTKCBVYy0gliOUG - RRlJghnocAQ6tKPuBBM5kPmw6vFnAAAAAElFTkSuQmCC @@ -307,7 +216,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAAAAIB - AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEARH0AAAwaAAAAAAAACw== + AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAwU4AAB0cAAAAAAAACw== @@ -324,17 +233,45 @@ QNZXOJ+UG+leKBFEziSfaFcB0/llZ2XA64LAz5JA8cDLA5WDxP2K7CbINfm4TzvWIQc6bHRIkI8ZgQcf D+56vpkB1A0978LsCwa9rbtK97dFEArTmp6FTReKO20oprrxPcdDpvpl0YG8v8LfaIoAkP8AXetq1oFY DwcIdDRYJUwiAB0yTe/NNUuIXy/etxLLTTpKAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd + tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8 + PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI + vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm + RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2 + yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E + A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y + Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu + YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI + nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y + todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ + RU5ErkJggg== - 182, 56 + 299, 56 + + + 299, 56 1349, 17 - - 912, 17 + + 1349, 17 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAB5SURBVDhPlZFBCsAwCAR9W/7/l7aXXFsW3KASqxGmIuok + pLKLOefbRVd8oDHGKCkF9/WktAU8zXIkyGgLkAnrI0HGEuDTxUqdgEWVf29gm5HdjBOgsM1I+wYUxcwZ + 1JYl4GAGh3ccvYH+ZR9o8IQq64oPNLroigmRDwwRqGv/fuehAAAAAElFTkSuQmCC + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6 @@ -393,14 +330,6 @@ vFXvHu0qboy1gTO+AGdTgXVqwDg0YOcIUPqXoPpuY1F5o2Tqeer/0Fh7XNqDvQYVubvlJwzK+qvjj+tG Jp/UcSZF3Q+L4vrOTOu1/Pv7VxY0d2rl2luXLh70HGrwLzoy+eeC7DdDjRpyPiqHagAAAABJRU5ErkJg gg== - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAB5SURBVDhPlZFBCsAwCAR9W/7/l7aXXFsW3KASqxGmIuok - pLKLOefbRVd8oDHGKCkF9/WktAU8zXIkyGgLkAnrI0HGEuDTxUqdgEWVf29gm5HdjBOgsM1I+wYUxcwZ - 1JYl4GAGh3ccvYH+ZR9o8IQq64oPNLroigmRDwwRqGv/fuehAAAAAElFTkSuQmCC @@ -421,24 +350,21 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALFSURBVDhPrVHfT5JhGKW75nV/Q9fdO6/a3NwyhBwRYvDx - aygoQh9KCny6WYb5MxRFCxXNUjRSqRCc+WMqLHW6zDXnmooNFS5cUa0bTt/3aqtl3XW2Z3v3vuec5zzP - y/vvWGaYjDkbnRk2lRTElBT2rgtIxRQyhGn9zbnbdCbHOaWfxWq5MZI0lCKh1eCQFR1bLDimaXJO6IqQ - NBoQZTmn9LO4L8lPf7Ja8c3ZgUOtCjGxkBR35u64N4coNx026S4SAeNmMugHdGZZU0lBxdNS7AivIOX1 - IqkvxhE7Aif6aXakUSNOSdmR+JikDZeIQaXHHLkTsMLuL4fFZ8Bu/lV8Hwvgi6sdiWINiZw0leKjVELE - 3Ch7YsEvAx2jSjeH7sK76IZ1lCbunEHK1YGU04njxgYcyKVEfEAVnhj8nkDdU4jpzUk0h+pgGTFi+8Y1 - 0jnl6sTn1lYc1zsQlxUQIWewz3a/l5+TNtvaLjPMeAZP2ytH9MMCJjcCGI4OoMtXg/kSCjviPPITXApu - F/sFYmwLczCtlINxDMLYNQtd7UCEV9SnwMLWDCbWRjG26sNgxIPy4RLYq9oRoSTsD+RhR8RHRCZGraUF - mpYwmifWUeVdBN/CpNkdKNP+lSGMLA9iKOpFz4Ib9JAOfOszPI9so6bnNdSNQSLiijPQtk5BXv8KQvsY - eGVN+iy9SxXX92vgnnFiYMlDdiGw+zG1FoNvfgue4FvY+pdg6JyF1PGSiBVNIeRXswYcAJwrbdEr1e1U - qtirRFEfRdyDK7t4PPMeT9h6FNqAvCFIxBSbiDMgCf6EqUFzQcbIzosYJt0TfgdPeBMP2QRtbPxCx0ln - zkBUM45cM7uDf0Flc2VJKnvjYpbo8L1Be2AdyqYwJHUvkFvhg9DcnVDQrdmn9L+DG01r7VQJLK6UqHqc - jexHtrn7q6yi7dYJg8f7ATayDPLL/Jv+AAAAAElFTkSuQmCC + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALESURBVDhPrVHdT5JhHKW75nV/Q9fdO6/a3NwylRgRYIB8 + DOVL7UVJgVc3y+EUJQRFCxTNUjRSqRCc+TEVljpd5ppzza+GCheuqNYNp/d9sNWy7jrbb3v2POec3/n9 + Hs5/xwpN58xbqNxotU50IJdh/2YJqYMyCaKU9vb8XSqX5ZzRz2OtpiqWMuiRVKtwzIhOTSacUhQ5JzXl + SFUZEGc4Z/TzoIW8zCezGd+cXThWK3Ag4JJiz+wd+0bzCzPRas3lrMBD51APqNxKu05U+1SPXe41pP1+ + pLQVOGFGYEU/zU5USiRkYmakIkxRhivEoM5rjN0LmWEN1sAUMGCPdx3fx0P44nYhWaEikVPVenwUC4mY + HWVfUPLLQEMrMu2R+/AveWAeo4g7a5B2dyHtdOK0rRVHUjERH8lKswa/J1D6SjGzNYX2SDNMo1XYuXWD + dE67u/HZ4cBpiw0JiYgIWYNDpjvNK8gYLZ1XaXoih6PukyL+YRFTmyGMxAfRE2jEgk6GXUEx+Qk2BbuL + Q5EAO9wCzMiloG1DqOqZg6ZpMMYp7y/D4vYsJtfHML4WwFDMi5oRHaz1LsRkQuYHirHLL0JMIkCTqQOq + jijaJzdQ719CkYnOMDuQZ4KrwxhdGcJw3A/fogfUsAZF5md4HttBo+81lG1hImKLNVA7piFteQWudRyc + Srs2T+tWJLQDKnhmnRhc9pJdlFiDmF4/QGBhG97wW1gGlmHonoPY9pKIy+wR8BoYAxYALug7tHKlS5au + 8MtR3i8j7uHVPTyefY8nTD2KbELaGiZiGZOINSAJ/kR1q+qShJZc5NN0xhd9B290Cw+ZBJ1M/FJbtjNr + wG+cQKGR2cG/oLC484R1fQkBQ7QF3sAV2oDcHoWw+QUKawPgGnuTZZQj/4z+d7Cjqc3dihKTO81vmGAi + B5Fv7P0qqe28k2VwOD8A3i8M0yVWkE8AAAAASUVORK5CYII= - - 1665, 17 - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m @@ -469,13 +395,89 @@ ZHEbz8fX0SXUs5FVqCoj1KwWEhEATfC3LJW6S0pWeVHC9vG+6Ht4o2t4KiRoEOJnuk8nE4CkdBAp1i7+ zHZe2U5PkqzIvy8VGt3BeTSGV6CpjkJW/goptiBuWZ8cZzF1187a/y2ymt7RnC2x++OSkkEhcghiq/+b 0tZw/7RDJPoJ1LcOxnbJXxoAAAAASUVORK5CYII= + + + + 134, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADQSURBVDhPlY6xC0FRGMXvLIPBYjKZTDIYkOEtDAzU86Qw + MMigZGAQL2WyqVcMFgNZ/Rd6/9PVOa5Vna9O3Xu+fr8+Ez6CaP/sWTXgDGZ39+3rfZEDjoLNrc2PGnAU + rK8tOwyLcsBRsDw37G/iOHav7/z7g6NgfvJcpQnAUTA9VrlQA46C8aHknNoF4CgYbAuu0gTgKAhWeS7U + gKOgs8g5p3YBOAqas6yrNAE4CuqTDBdqwFHgjdLOqV0AjoJaP+UqTQCOgrKfiCrdpFUDzhhjPlRg7jGq + htNmAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAJRJREFUOE/dkssNgCAQRLcUa6ELurAVKvJMJRw4eAKO6iAaXZFPvPmSSQjZ2cwk + S9775YuwYJZSLkKILsEDLznnRq11dqgkeOAlsD0mpVR2MCfMwhPNIIQwGGOaqmAGs/Ak+05rlVt0Tq3K + IzqnVOU1OuetSjE6h1epRucgprX2XIB3NToHZ3osiCfby08WXJW+GUQrK/59Ci2uLUYAAAAASUVORK5C + YII= + + + + + /9j/4AAQSkZJRgABAQEASABIAAD/2wBDAAYEBQYFBAYGBQYHBwYIChAKCgkJChQODwwQFxQYGBcUFhYa + HSUfGhsjHBYWICwgIyYnKSopGR8tMC0oMCUoKSj/2wBDAQcHBwoIChMKChMoGhYaKCgoKCgoKCgoKCgo + KCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCj/wAARCAAZABkDASIAAhEBAxEB/8QA + GQAAAgMBAAAAAAAAAAAAAAAABgcCAwUE/8QAMxAAAAUCAwUCDwAAAAAAAAAAAQIDBAUAEQYSExUhIjFR + FHEWMjM1QlRhc3SBkZKhsdL/xAAWAQEBAQAAAAAAAAAAAAAAAAAFBAP/xAAiEQACAgIABgMAAAAAAAAA + AAABAgMRAAQSISIxQVGhweH/2gAMAwEAAhEDEQA/ADTAmFodzhlobYsaoJQEoidMom5jzvW2XDMH2jR8 + H43U+HLS2wzPyySyDSJJnEojnuHDlvvvTijXqTthdMQ1yl4r8ym/mjopA4rCoZRIKHjMOXwzANWSurBx + ZRMmbLlRLflSG2RF+oN/sCmVj5eVjiGVevkcyoiUhACwmC3oh0Cljrn6/mtteS2YeqyjVlt2X1X3hhEt + 5Bs3FWPeIJFWuI8ZbjvrqSeYkauCLIyKOYo3tnLYwdB9lCMD5hae5D9VTN+SJ8qNMLqeTYOdd1PS/wAf + uGOKZCTnGolfNmACmAiVQqoiYvdvpaZB6h9aip4hu6g2rNRGHEWN9sR0Y2BZma7rP//Z 481, 17 - 17, 56 + 134, 56 1019, 17 @@ -487,28 +489,28 @@ 1492, 17 - 460, 56 + 577, 56 - 732, 56 + 849, 56 - 1113, 56 + 1230, 56 - 1255, 56 + 1372, 56 - 1392, 56 - - - 1630, 56 - - 17, 95 + + 255, 95 + + + 488, 95 + - 261, 95 + 732, 95 154 diff --git a/app/DD-Record-Organiser/frmForm_Constructor.vb b/app/DD-Record-Organiser/frmForm_Constructor.vb index cb6c567..c24ba4e 100644 --- a/app/DD-Record-Organiser/frmForm_Constructor.vb +++ b/app/DD-Record-Organiser/frmForm_Constructor.vb @@ -434,7 +434,7 @@ Public Class frmForm_Constructor Function Get_GridResult(Columnname As String) Dim result As String = grvwSelection.GetFocusedRowCellValue(grvwSelection.Columns(Columnname)) If result = String.Empty Then - Return "No Result for Column '" & Columnname & "'" + Return "No Column configured" Else Return result End If @@ -1142,7 +1142,7 @@ Public Class frmForm_Constructor 'Die Values in die Controls laden ' Load_Control_Values(CtrlBuilder.AllControls) 'Refresh_Treeview_SelectedData() - Refresh_Anzeige_Selected_Entity() + Anzeige_Selected_Entity() 'Die Daten neu laden 'Load_Data_for_TreeView() 'Und dann den Focus wieder setzen @@ -1389,70 +1389,168 @@ Public Class frmForm_Constructor Private Function GetSelectionGridName() Return System.IO.Path.Combine(Application.UserAppDataPath(), GridControlSelection.Name & "-" & ACT_EBENE_STRING & "-" & CONSTRUCTORID & "-UserLayout.xml") End Function - - Private Sub Refresh_Anzeige_Selected_Entity() + 'Sub CreateTile(entity As Integer, Text As String) + ' Dim tileitem As New DevExpress.XtraEditors.TileItem + ' tileitem.Text = Text + ' Dim colorBackground As Color + ' Dim colorBorder As Color + ' Dim style As FontStyle = FontStyle.Bold + ' Dim Segoe As Font = New Font(New FontFamily("Tahoma"), 8, style) + ' tileitem.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter + ' tileitem.Tag = CURRENT_RECORD_ID + ' Select Case entity + ' Case 1 + ' tileitem.ItemSize = DevExpress.XtraEditors.TileItemSize.Wide + ' tileitem.AppearanceItem.Normal.ForeColor = Color.Black + ' colorBackground = Color.DeepSkyBlue + ' colorBorder = Color.LightSkyBlue + ' Case 2 + ' tileitem.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium + ' tileitem.AppearanceItem.Normal.ForeColor = Color.Black + ' colorBackground = Color.Goldenrod + ' colorBorder = Color.Gold + ' Case 3 + ' tileitem.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium + ' colorBackground = Color.DarkViolet + ' colorBorder = Color.Plum + ' End Select + ' tileitem.AppearanceItem.Normal.Font = Segoe + + ' tileitem.AppearanceItem.Normal.BackColor = colorBackground + ' tileitem.AppearanceItem.Normal.BorderColor = colorBorder + ' TileControl1.Groups(0).Items.Add(tileitem) + + + + 'End Sub + Sub Create_NavButton(entity As Integer, Text As String) + Dim btn As New Button + btn.FlatStyle = FlatStyle.Flat + btn.Text = Text + btn.Size = New Size(245, 50) + Dim colorBackground As Color + Dim colorBorder As Color + Dim style As FontStyle = FontStyle.Bold + Dim Segoe As Font = New Font(New FontFamily("Tahoma"), 9, style) + btn.Font = Segoe + btn.Tag = CURRENT_RECORD_ID + + Select Case entity + Case 1 + btn.Name = "btnEntity" & entity + ' tileitem.AppearanceItem.Normal.ForeColor = Color.Black + colorBackground = Color.DeepSkyBlue + colorBorder = Color.LightSkyBlue + Case 2 + btn.Name = "btnEntity" & entity + ' tileitem.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium + ' tileitem.AppearanceItem.Normal.ForeColor = Color.Black + colorBackground = Color.Goldenrod + colorBorder = Color.Gold + Case 3 + btn.Name = "btnEntity" & entity + 'tileitem.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium + colorBackground = Color.DarkViolet + colorBorder = Color.Plum + End Select + btn.BackColor = colorBackground + btn.FlatAppearance.BorderColor = colorBorder + + pnlTop.Controls.Add(btn) + Select Case entity + Case 1 + btn.Location = New Point(12, 28) + Case 2 + btn.Location = New Point(263, 28) + Case 3 + btn.Location = New Point(514, 28) + btn.ForeColor = Color.White + End Select + End Sub + Private Sub Anzeige_Selected_Entity() Try - Me.tslblEntity1.Visible = False - Me.tslblEntity2.Visible = False - Me.tslblEntity3.Visible = False + 'Me.tslblEntity1.Visible = False + 'Me.tslblEntity2.Visible = False + 'Me.tslblEntity3.Visible = False tslblEntity.Text = "" + 'TileControl1.Groups(0).Items.Clear() Select Case ACT_EBENE Case 1 tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT - tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT - Me.tslblEntity1.Visible = True + 'tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT + 'Me.tslblEntity1.Visible = True + Create_NavButton(1, EBENE1_GRID_RESULT) Case 2 If CURRENT_FORM_TYPE = 5 Then tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT & " #### Gruppen-Entität: " & EBENE2_ENTITY - tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT - tslblEntity2.Text = "Gruppen-Entität: " & EBENE2_ENTITY - Me.tslblEntity1.Visible = True - Me.tslblEntity2.Visible = True + 'tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT + 'tslblEntity2.Text = "Gruppen-Entität: " & EBENE2_ENTITY + 'Me.tslblEntity1.Visible = True + 'Me.tslblEntity2.Visible = True + Create_NavButton(1, EBENE1_GRID_RESULT) + Create_NavButton(2, EBENE2_ENTITY) Exit Sub End If If EBENE1_GRID_RESULT Is Nothing = False Then tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT & " #### " & EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT - tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT - Me.tslblEntity1.Visible = True - Me.tslblEntity2.Visible = True + 'tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT + Create_NavButton(1, EBENE1_GRID_RESULT) + Create_NavButton(2, EBENE2_GRID_RESULT) + + + 'Me.tslblEntity1.Visible = True + 'Me.tslblEntity2.Visible = True Else - tslblEntity1.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT + ' tslblEntity1.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT tslblEntity.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT - Me.tslblEntity1.Visible = True + 'Me.tslblEntity1.Visible = True + Create_NavButton(1, EBENE2_GRID_RESULT) End If Case 3 If CURRENT_FORM_TYPE = 5 Then - tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT - tslblEntity2.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT - tslblEntity3.Text = "Gruppen-Entität: " & EBENE3_GRID_RESULT + 'tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT + 'tslblEntity2.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT + 'tslblEntity3.Text = "Gruppen-Entität: " & EBENE3_GRID_RESULT - Me.tslblEntity1.Visible = True - Me.tslblEntity2.Visible = True - Me.tslblEntity3.Visible = True + Create_NavButton(1, EBENE1_GRID_RESULT) + Create_NavButton(2, EBENE2_GRID_RESULT) + Create_NavButton(3, EBENE3_GRID_RESULT) + + 'Me.tslblEntity1.Visible = True + 'Me.tslblEntity2.Visible = True + 'Me.tslblEntity3.Visible = True Exit Sub End If If EBENE1_GRID_RESULT Is Nothing = False Then - tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT - tslblEntity2.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT - tslblEntity3.Text = EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT + 'tslblEntity1.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT + 'tslblEntity2.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT + 'tslblEntity3.Text = EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT tslblEntity.Text = EBENE1_ENTITY & " - " & EBENE1_GRID_RESULT & " #### " & EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT & _ " #### " & EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT - Me.tslblEntity1.Visible = True - Me.tslblEntity2.Visible = True - Me.tslblEntity3.Visible = True + 'Me.tslblEntity1.Visible = True + 'Me.tslblEntity2.Visible = True + 'Me.tslblEntity3.Visible = True + + Create_NavButton(1, EBENE1_GRID_RESULT) + Create_NavButton(2, EBENE2_GRID_RESULT) + Create_NavButton(3, EBENE3_GRID_RESULT) + + Else - tslblEntity1.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT - tslblEntity2.Text = EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT + 'tslblEntity1.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT + 'tslblEntity2.Text = EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT tslblEntity.Text = EBENE2_ENTITY & " - " & EBENE2_GRID_RESULT & " #### " & EBENE3_ENTITY & " - " & EBENE3_GRID_RESULT - Me.tslblEntity1.Visible = True - Me.tslblEntity2.Visible = True + ' Me.tslblEntity1.Visible = True + 'Me.tslblEntity2.Visible = True + Create_NavButton(1, EBENE2_GRID_RESULT) + Create_NavButton(2, EBENE3_GRID_RESULT) End If End Select Catch ex As Exception - MsgBox("Error in Refresh_Entity_Select:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + MsgBox("Error in Anzeige_Selected_Entity:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub @@ -1622,12 +1720,12 @@ Public Class frmForm_Constructor If FOLLOW_UPisActive = True Then Refresh_FollowUp_TabHeader() Refresh_CreatedChangedRecordByID(SelectedRecordID) - Refresh_Anzeige_Selected_Entity() + Anzeige_Selected_Entity() Show_act_WFTask() Show_NodeAmounts() If LogErrorsOnly = False Then ClassLogger.Add(">> grvwSelection_FocusedRowChanged Complete - RecordID: " & CURRENT_RECORD_ID, False) Refresh_TaskOverview() - + End Sub Sub HideColumns() Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & CURRENT_FORM_ID @@ -1689,6 +1787,7 @@ Public Class frmForm_Constructor If (selnode.Parent IsNot Nothing) Then If (selnode.Parent.GetType() Is GetType(TreeNode)) Then ACT_EBENE = 2 + Dim pnode As TreeNode = selnode.Parent If (pnode.Parent IsNot Nothing) Then If (selnode.Parent.GetType() Is GetType(TreeNode)) Then @@ -1709,8 +1808,10 @@ Public Class frmForm_Constructor End Sub Sub Load_Entity_Data(FORM_ID As Integer) Try + Dim IS_SINGLE_RECORD As Boolean VerknüpfungenToolStripMenuItem.Enabled = False CURRENT_FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & FORM_ID) + IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & FORM_ID) SelectedRecordID = 0 Dim DT As DataTable Dim sql As String = "SELECT PARENT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID @@ -1731,8 +1832,8 @@ Public Class frmForm_Constructor If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 1 in TreeView selektiert", False) EBENE2_ENTITY = "" EBENE3_ENTITY = "" - tslblEntity2.Visible = False - tslblEntity3.Visible = False + 'tslblEntity2.Visible = False + 'tslblEntity3.Visible = False EBENE1_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID) EBENE2_COLUMNNAME = "" @@ -1740,9 +1841,28 @@ Public Class frmForm_Constructor EBENE2_GRID_RESULT = Nothing EBENE3_GRID_RESULT = Nothing _sql = ClassDatabase.Execute_Scalar("SELECT SQL_SELECT_EBENE1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID) + If ClassControlCommands.CTRL_EXISTSinPARENT("btnEntity2", pnlTop) Then + Dim btn As Button = DirectCast(pnlTop.Controls("btnEntity2"), Button) + pnlTop.Controls.Remove(btn) + End If + If ClassControlCommands.CTRL_EXISTSinPARENT("btnEntity3", pnlTop) Then + Dim btn As Button = DirectCast(pnlTop.Controls("btnEntity3"), Button) + pnlTop.Controls.Remove(btn) + End If + If ClassControlCommands.CTRL_EXISTSinPARENT("btnEntity1", pnlTop) Then + Dim btn As Button = DirectCast(pnlTop.Controls("btnEntity1"), Button) + pnlTop.Controls.Remove(btn) + End If + 'Try + ' Dim tileitem As DevExpress.XtraEditors.TileItem = TileControl1.Groups(0).Items(1) + ' TileControl1.Groups(0).Items.Remove(tileitem) + 'Catch ex As Exception + + 'End Try + Case 2 Dim Level1Select = ClassDatabase.Execute_Scalar("SELECT LEVEL1_SELECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID) - If CBool(Level1Select) = False And CURRENT_FORM_TYPE <> 5 Then + If CBool(Level1Select) = False And CURRENT_FORM_TYPE <> 5 And EBENE1_RECID = 0 Then MsgBox("Entität '" & TreeViewEbeneSelect.SelectedNode.Text & "' kann nicht ohne Auswahl eines Ebene 1 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation) TreeViewEbeneSelect.SelectedNode = TreeViewEbeneSelect.SelectedNode.Parent Exit Sub @@ -1756,7 +1876,7 @@ Public Class frmForm_Constructor PARENT_RECORDID = EBENE1_RECID CURRENT_PARENTID = EBENE1_RECID End If - tslblEntity3.Visible = False + 'tslblEntity3.Visible = False EBENE2_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID) @@ -1770,6 +1890,19 @@ Public Class frmForm_Constructor End If EBENE2_GRID_RESULT = Nothing EBENE3_GRID_RESULT = Nothing + Try + If ClassControlCommands.CTRL_EXISTSinPARENT("btnEntity3", pnlTop) Then + Dim btn As Button = DirectCast(pnlTop.Controls("btnEntity3"), Button) + pnlTop.Controls.Remove(btn) + End If + If ClassControlCommands.CTRL_EXISTSinPARENT("btnEntity2", pnlTop) Then + Dim btn As Button = DirectCast(pnlTop.Controls("btnEntity2"), Button) + pnlTop.Controls.Remove(btn) + End If + Catch ex As Exception + + End Try + Case 3 If EBENE2_RECID = 0 Then MsgBox("Entität '" & TreeViewEbeneSelect.SelectedNode.Text & "' kann nicht ohne Auswahl eines Ebene 1 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation) @@ -1822,10 +1955,10 @@ Public Class frmForm_Constructor set_pnlsize() End If CURRENT_FORMVIEW_ID = act_FormViewID - + 'Überprüfen ob windream Dos angezeigt werden sollen? Check_windream_Show(act_FormViewID) - + If windream_Docshow = True Then @@ -1835,6 +1968,11 @@ Public Class frmForm_Constructor End If End If + Me.pnlDetails.Enabled = False + Me.tsbtnshowWorkflowtasks.Enabled = False + tsbtnAddForm2.Enabled = True + + Select Case CURRENT_FORM_TYPE Case 5 'Nur eine Gruppen-Entität: d.h. es wird nur die Dateientab angezeigt @@ -1859,7 +1997,7 @@ Public Class frmForm_Constructor Refresh_CreatedChangedRecordByID(CURRENT_RECORD_ID) End If TabPageDetails.PageVisible = False - Refresh_Anzeige_Selected_Entity() + Anzeige_Selected_Entity() Case Else TabPageDetails.PageVisible = True Dim Beschreibung = ClassDatabase.Execute_Scalar("SELECT FORM_TITLE FROM TBPMO_FORM_VIEW WHERE GUID = " & act_FormViewID) @@ -1872,16 +2010,39 @@ Public Class frmForm_Constructor Dim primaryKey(1) As DataColumn primaryKey(0) = DTEntity.Columns("Record-ID") DTEntity.PrimaryKey = primaryKey - LoadGrid_Selection(_sql, DTEntity) + + + 'If IS_SINGLE_RECORD = False Then + ' LoadGrid_Selection(_sql, DTEntity) + 'Else + ' Dim sql1 = CURRENT_ENTITYSQL.Replace("T.*", "TOP 1 [Record-ID]") + ' Dim id = ClassDatabase.Execute_Scalar(sql1, True) + ' If Not id Is Nothing Then + ' SelectedRecordID = id + ' CURRENT_RECORD_ID = id + ' Refresh_CreatedChangedRecordByID(SelectedRecordID) + ' Refresh_Anzeige_Selected_Entity() + ' Show_act_WFTask() + ' Show_NodeAmounts() + ' ClassControlValues.LoadControlValues(CURRENT_RECORD_ID, CURRENT_FORM_ID, CtrlBuilder.AllControls) + ' Me.pnlDetails.Enabled = True + ' Me.tsbtnshowWorkflowtasks.Enabled = True + ' tsbtnAddForm2.Enabled = False + ' Else + ' Me.pnlDetails.Enabled = True + ' Me.tsbtnshowWorkflowtasks.Enabled = True + ' End If + + 'End If + Select Case EDIT_STATE Case "none" Case "update" Case "insert" Case "delete" End Select - Me.pnlDetails.Enabled = False - Me.tsbtnshowWorkflowtasks.Enabled = False + 'Überprüfen ob es für diese Entität Wiedervorlagen gibt? Check_FOLLOWUP_IsConfigured(CURRENT_FORM_ID) End Select @@ -1900,39 +2061,45 @@ Public Class frmForm_Constructor Dim a As Integer = 0 For Each childNodeLevel1 As TreeNode In selnode.Nodes Dim PARENT_ID As Integer + Dim TYPE_ID As Integer If a = 0 Then - Dim sql As String = "SELECT PARENT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & childNodeLevel1.Tag - PARENT_ID = ClassDatabase.Execute_Scalar(sql) + Dim sql As String = "SELECT PARENT_ID, FORM_TYPE_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & childNodeLevel1.Tag + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "ShowNodeAmounts") + PARENT_ID = DT.Rows(0).Item(0) + TYPE_ID = DT.Rows(0).Item(1) End If - Dim result As Integer = ReturnAmountofRecords(childNodeLevel1.Tag, PARENT_ID) - If result <> 99999999 Then - Dim origtext As String = childNodeLevel1.Text - If origtext.Contains(" (") Then - Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1) - childNodeLevel1.Text = existingstring & " (" & result.ToString & ")" - Else - childNodeLevel1.Text = childNodeLevel1.Text & " (" & result.ToString & ")" - End If - End If - - For Each childNodeLevel2 As TreeNode In childNodeLevel1.Nodes - Dim origtext As String = childNodeLevel2.Text - If origtext.Contains(" (") Then - Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1) - childNodeLevel2.Text = existingstring - End If - For Each childNodeLevel3 As TreeNode In childNodeLevel2.Nodes - Dim origtext1 As String = childNodeLevel3.Text - If origtext1.Contains(" (") Then - Dim existingstring = origtext1.Substring(0, origtext1.IndexOf("(") - 1) - childNodeLevel1.Text = existingstring + If TYPE_ID <> 5 Then + Dim result As Integer = ReturnAmountofRecords(childNodeLevel1.Tag, PARENT_ID) + If result <> 99999999 Then + Dim origtext As String = childNodeLevel1.Text + If origtext.Contains(" (") Then + Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1) + childNodeLevel1.Text = existingstring & " (" & result.ToString & ")" + Else + childNodeLevel1.Text = childNodeLevel1.Text & " (" & result.ToString & ")" End If + End If + + For Each childNodeLevel2 As TreeNode In childNodeLevel1.Nodes + Dim origtext As String = childNodeLevel2.Text + If origtext.Contains(" (") Then + Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1) + childNodeLevel2.Text = existingstring + End If + For Each childNodeLevel3 As TreeNode In childNodeLevel2.Nodes + Dim origtext1 As String = childNodeLevel3.Text + If origtext1.Contains(" (") Then + Dim existingstring = origtext1.Substring(0, origtext1.IndexOf("(") - 1) + childNodeLevel1.Text = existingstring + End If + Next Next - Next - a += 1 + a += 1 + End If + Next Catch ex As Exception - + MsgBox("Error in Show_NodeAmounts:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) End Try End Sub Function ReturnAmountofRecords(EntityID As Integer, PARENT_ID As Integer) @@ -2244,6 +2411,7 @@ Public Class frmForm_Constructor Private Sub pnlDetails_MouseClick(sender As Object, e As MouseEventArgs) Handles pnlDetails.MouseClick pnlDetails.Select() + grvwSelection.Appearance.FocusedRow.BackColor = Color.OrangeRed End Sub Private Sub ListViewFollowUp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewFollowUp.SelectedIndexChanged diff --git a/app/DD-Record-Organiser/frmForm_Constructor_OLD.designer.vb b/app/DD-Record-Organiser/frmForm_Constructor_OLD.designer.vb index c9b96ea..08bd429 100644 --- a/app/DD-Record-Organiser/frmForm_Constructor_OLD.designer.vb +++ b/app/DD-Record-Organiser/frmForm_Constructor_OLD.designer.vb @@ -235,7 +235,7 @@ Partial Class frmForm_Constructor_OLD Me.GridControlParentEntity.Location = New System.Drawing.Point(3, 3) Me.GridControlParentEntity.MainView = Me.GridViewParentEntity Me.GridControlParentEntity.Name = "GridControlParentEntity" - Me.GridControlParentEntity.Size = New System.Drawing.Size(245, 261) + Me.GridControlParentEntity.Size = New System.Drawing.Size(245, 262) Me.GridControlParentEntity.TabIndex = 14 Me.GridControlParentEntity.TabStop = False Me.GridControlParentEntity.UseEmbeddedNavigator = True @@ -580,7 +580,7 @@ Partial Class frmForm_Constructor_OLD Me.TabPageDetails.Controls.Add(Me.pnlDetails) Me.TabPageDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD Me.TabPageDetails.Name = "TabPageDetails" - Me.TabPageDetails.Size = New System.Drawing.Size(758, 294) + Me.TabPageDetails.Size = New System.Drawing.Size(762, 297) Me.TabPageDetails.Text = "Detailansicht:" ' 'pnlDetails @@ -589,7 +589,7 @@ Partial Class frmForm_Constructor_OLD 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(758, 294) + Me.pnlDetails.Size = New System.Drawing.Size(762, 297) Me.pnlDetails.TabIndex = 0 ' 'TabPageWD_Files @@ -598,7 +598,7 @@ Partial Class frmForm_Constructor_OLD Me.TabPageWD_Files.Controls.Add(Me.ToolStripDokumente) Me.TabPageWD_Files.Image = Global.DD_Record_Organiser.My.Resources.Resources.Files_7954 Me.TabPageWD_Files.Name = "TabPageWD_Files" - Me.TabPageWD_Files.Size = New System.Drawing.Size(758, 293) + Me.TabPageWD_Files.Size = New System.Drawing.Size(762, 296) Me.TabPageWD_Files.Text = "windream-Dateien" Me.ttToolTip.SetToolTip(Me.TabPageWD_Files, "Zeigt die Dateien in windream zum ausgewählten Datensatz an") ' @@ -610,7 +610,7 @@ Partial Class frmForm_Constructor_OLD 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(758, 268) + Me.AxObjectListControl.Size = New System.Drawing.Size(762, 271) Me.AxObjectListControl.TabIndex = 5 Me.AxObjectListControl.TabStop = False ' @@ -619,7 +619,7 @@ Partial Class frmForm_Constructor_OLD 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(758, 25) + Me.ToolStripDokumente.Size = New System.Drawing.Size(762, 25) Me.ToolStripDokumente.TabIndex = 1 Me.ToolStripDokumente.Text = "ToolStrip2" ' @@ -653,7 +653,7 @@ Partial Class frmForm_Constructor_OLD Me.TabPageFollowUp.Controls.Add(Me.ListViewFollowUp) Me.TabPageFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD Me.TabPageFollowUp.Name = "TabPageFollowUp" - Me.TabPageFollowUp.Size = New System.Drawing.Size(758, 293) + Me.TabPageFollowUp.Size = New System.Drawing.Size(762, 296) Me.TabPageFollowUp.Text = "Wiedervorlage" ' 'grpbxFU_Profile @@ -867,7 +867,7 @@ Partial Class frmForm_Constructor_OLD Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) Me.XtraTabControl1.Name = "XtraTabControl1" Me.XtraTabControl1.SelectedTabPage = Me.TabPageParentEntity - Me.XtraTabControl1.Size = New System.Drawing.Size(452, 325) + Me.XtraTabControl1.Size = New System.Drawing.Size(445, 325) Me.XtraTabControl1.TabIndex = 0 Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageParentEntity}) ' @@ -881,7 +881,7 @@ Partial Class frmForm_Constructor_OLD Me.TabPageParentEntity.Controls.Add(Me.Label4) Me.TabPageParentEntity.Controls.Add(Me.GridControlParentEntity) Me.TabPageParentEntity.Name = "TabPageParentEntity" - Me.TabPageParentEntity.Size = New System.Drawing.Size(446, 297) + Me.TabPageParentEntity.Size = New System.Drawing.Size(443, 300) Me.TabPageParentEntity.Text = "Parent-Entity" ' 'Button1 @@ -889,7 +889,7 @@ Partial Class frmForm_Constructor_OLD Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.Close_16xLG Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(343, 238) + Me.Button1.Location = New System.Drawing.Point(343, 239) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(98, 27) Me.Button1.TabIndex = 18 @@ -907,7 +907,7 @@ Partial Class frmForm_Constructor_OLD Me.btnRefreshPEntity.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnRefreshPEntity.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG Me.btnRefreshPEntity.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnRefreshPEntity.Location = New System.Drawing.Point(3, 268) + Me.btnRefreshPEntity.Location = New System.Drawing.Point(3, 269) Me.btnRefreshPEntity.Name = "btnRefreshPEntity" Me.btnRefreshPEntity.Size = New System.Drawing.Size(438, 31) Me.btnRefreshPEntity.TabIndex = 17 @@ -1111,6 +1111,7 @@ Partial Class frmForm_Constructor_OLD Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing diff --git a/app/DD-Record-Organiser/frmForm_Constructor_OLD.resx b/app/DD-Record-Organiser/frmForm_Constructor_OLD.resx index b777f94..513e73a 100644 --- a/app/DD-Record-Organiser/frmForm_Constructor_OLD.resx +++ b/app/DD-Record-Organiser/frmForm_Constructor_OLD.resx @@ -157,7 +157,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS - CQAAAk1TRnQBSQFMAgEBAgEAAdgBBwHYAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CQAAAk1TRnQBSQFMAgEBAgEAAeABBwHgAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -421,19 +421,19 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALESURBVDhPrVHfT5JhGKW75nV/Q9fdO6/a3NwyhRgRYPAJ - MpRfQh9Kin66WQ6nKCEoWqBolqKRSoXgzB9TYanTZa4511Rs/rxgRbVuOH3fq62WddfZnu3d+55znvM8 - L++/Y4lhsmZr6OyYWS9NKins3uSTShbLEaN1t2fv0tkc54x+HisVpviJ0YBjjRqHrChltSJF0+R8rC3F - icmIBMs5o5+HUyLMfLLZ8M3VgUONCkmxgBR35u64t1ZRfiZm1l4mAsbLZNEP6Oxyh15a+dSAbcE1pAMB - nOjKcMSOwIl+mh2pS7BPydiRCjBBG68QgyqfJX4vbENtqALWoBE7wuv4PhrGF48bx2VqEvnEbMBHmYSI - uVF2xfxfBlpGlWmN3kdgwQvbCE3cOYO0pwNplwuplmYcKGREfEAVnRr8nqDEX4SpjQm0RhthHTZh69YN - 0jnt6cRnpxOpJjv25VIi5Az22O4OYV7GUtN+lWHGsniaHgUSH+YxsR7GUKIfXcF6zOkpbIsLyU9wKbhd - 7EnF2BLkYUqpAGMfgKlrBtqG/jivtLcY85vTGF8dwehKEANxHyqG9KitdiNOSdgfKMS2qABxuRgN1jao - 22JoHV9DdWABBVYmw+5AmQktD2J4aQCDiQD8817Qg1oU2J7heXwL9f7XKGmJEBFXnIHGOQlF0ysIakfB - K3focnQe1b6uTw3vtAv9iz6yC35tCJOrSQTnNuGLvEVN3yKMnTOQ2V8ScbEjCmEda8ABwAVDm05Z4qbS - ZQElSnsp4h5Z3sHj6fd4wtaj6DoUzREipthEnAFJ8CfMzepLckZ+UcQwGX/sHXyxDTxkE7Sz8Yvsp505 - A1H9GPIt7A7+BVWNJ0dS1bMvZon24Bu4w2tQOmKQNL5AfmUQAkv3cTHtzD2j/x3caBpbp4pv9aRFdWNs - 5BByLd1f5ZXtd04ZPN4PaSINBEySuoIAAAAASUVORK5CYII= + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALESURBVDhPrVHfT5JhGKW75nV/Q9fdO6/a3NwylRgRYIAg + Q/kl9KGkwKeb5XCKEIq/ChTNUjRSqRCc+WMqLnW6zDXnmooNFS5YUa0bTt/3aqtl3XW2Z3v3vuec5zzP + y/nvWKXpnHkrlRs1akVxuQwHN0tIxcskiFKa2/N3qVyWc0Y/j/VqQyyl1yGpUuKYEaXNZqQpipyT6gqk + DHqsMJwz+nk4hbzsJ4sF39ydOFYpEBdwSbFn9o59c/ALs1Gj+jIR0N10DvWAyq1yaEU1T3XY415Dxu9H + SlOJE2YEVvTT7ERZjoRMzIxUhClKf4UY1HpNsXshC2zBapgDeuzzruP7eAhfPB1IVipJ5JRRh49iIRGz + oxwISn4ZqGlFti1yH/6lbljGKOLOGmQ8nci43Ui3tuBIKibiI1npqcHvCcp9pZjZnkJbpAnmUQN2b90g + nTOeLnx2uZButiMhEREha3DIdG/lFWRN1varND2Rw1H1SbHyYRFTWyGMrAyiJ9CABa0Me4Ji8hNsCnYX + hyIBdrkFmJFLQduHYOiZg7pxMMap6C/D4s4sJjfGML4ewFDMi+oRLWx1HYjJhMwPFGOPX4SYRIBGsxNK + ZxRtk5uo8y+hyExnmR3Is8G1YYyuDmF4xQ/fYjeoYTWKLM/wPLaLBt9rlLeGiYgt1kDlmoa0+RW4tnFw + qhyaPI1HkdAMKNE968bgspfsosQWxPRGHIGFHXjDb2EdWIa+aw5i+0siLnNEwKtnDFgAuKBzauTlHbJM + pV+Oin4ZcQ+v7ePx7Hs8YepRZAvSljARy5hErAFJ8CeMLcpLElpykU/TWV/0HbzRbTxkErQz8Uvtp51Z + A37DBApNzA7+BYXVkyes7UsIGKI98AYdoU3IHVEIm16gsCYArqk3WUa58s/ofwc7msrSpSgxezL8+gkm + chD5pt6vkpr2O6cMDucHYLoNAUaDA9cAAAAASUVORK5CYII= diff --git a/app/DD-Record-Organiser/frmForm_Overview.Designer.vb b/app/DD-Record-Organiser/frmForm_Overview.Designer.vb index bc0d2a3..2cdfb26 100644 --- a/app/DD-Record-Organiser/frmForm_Overview.Designer.vb +++ b/app/DD-Record-Organiser/frmForm_Overview.Designer.vb @@ -51,12 +51,14 @@ Partial Class frmForm_Overview Me.CHANGED_WHOTextBoxPMOForm = New System.Windows.Forms.TextBox() Me.PARENT_IDTextBox = New System.Windows.Forms.TextBox() Me.NAMETextBox = New System.Windows.Forms.TextBox() - Me.LEVELTextBox = New System.Windows.Forms.TextBox() Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() Me.TBPMO_FORMTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORMTableAdapter() Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.TBPMO_FORM_VIEWTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter() Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.SINGLE_RECORDCheckBox = New System.Windows.Forms.CheckBox() + Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown() Me.GUIDTextBox = New System.Windows.Forms.TextBox() Me.ComboBox1 = New System.Windows.Forms.ComboBox() Me.TBPMO_FORM_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -69,6 +71,8 @@ Partial Class frmForm_Overview Me.Label2 = New System.Windows.Forms.Label() Me.btncopy = New System.Windows.Forms.Button() Me.lblStatus = New System.Windows.Forms.Label() + Me.btnGenerate = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() PARENT_IDLabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label() LEVELLabel = New System.Windows.Forms.Label() @@ -88,6 +92,7 @@ Partial Class frmForm_Overview Me.GroupBox1.SuspendLayout() CType(Me.TBPMO_FORM_VIEWBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox2.SuspendLayout() + CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPMO_FORM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -225,7 +230,7 @@ Partial Class frmForm_Overview Me.TBPMO_FORMBindingNavigator.MovePreviousItem = Nothing Me.TBPMO_FORMBindingNavigator.Name = "TBPMO_FORMBindingNavigator" Me.TBPMO_FORMBindingNavigator.PositionItem = Nothing - Me.TBPMO_FORMBindingNavigator.Size = New System.Drawing.Size(965, 25) + Me.TBPMO_FORMBindingNavigator.Size = New System.Drawing.Size(1046, 25) Me.TBPMO_FORMBindingNavigator.TabIndex = 0 Me.TBPMO_FORMBindingNavigator.Text = "BindingNavigator1" ' @@ -269,7 +274,7 @@ Partial Class frmForm_Overview Me.GroupBox1.Controls.Add(CHANGED_WHOLabel) Me.GroupBox1.Controls.Add(Me.CHANGED_WHOTextBoxPMOFormView) Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox1.Location = New System.Drawing.Point(328, 329) + Me.GroupBox1.Location = New System.Drawing.Point(328, 367) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(424, 179) Me.GroupBox1.TabIndex = 18 @@ -306,7 +311,8 @@ Partial Class frmForm_Overview Me.FORM_IDTextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.FORM_IDTextBox.Location = New System.Drawing.Point(125, 18) Me.FORM_IDTextBox.Name = "FORM_IDTextBox" - Me.FORM_IDTextBox.Size = New System.Drawing.Size(102, 25) + Me.FORM_IDTextBox.ReadOnly = True + Me.FORM_IDTextBox.Size = New System.Drawing.Size(69, 25) Me.FORM_IDTextBox.TabIndex = 20 ' 'ADDED_WHOTextBox1 @@ -360,15 +366,6 @@ Partial Class frmForm_Overview Me.NAMETextBox.Size = New System.Drawing.Size(245, 25) Me.NAMETextBox.TabIndex = 5 ' - 'LEVELTextBox - ' - Me.LEVELTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "LEVEL", True)) - Me.LEVELTextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LEVELTextBox.Location = New System.Drawing.Point(125, 118) - Me.LEVELTextBox.Name = "LEVELTextBox" - Me.LEVELTextBox.Size = New System.Drawing.Size(69, 25) - Me.LEVELTextBox.TabIndex = 7 - ' 'ADDED_WHOTextBox ' Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "ADDED_WHO", True)) @@ -389,13 +386,16 @@ Partial Class frmForm_Overview Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_ACCOUNTTableAdapter = Nothing Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_CONNECTIONTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing @@ -416,6 +416,9 @@ Partial Class frmForm_Overview ' 'GroupBox2 ' + Me.GroupBox2.Controls.Add(Me.Label4) + Me.GroupBox2.Controls.Add(Me.SINGLE_RECORDCheckBox) + Me.GroupBox2.Controls.Add(Me.NumericUpDown1) Me.GroupBox2.Controls.Add(Me.GUIDTextBox) Me.GroupBox2.Controls.Add(GUIDLabel) Me.GroupBox2.Controls.Add(Label1) @@ -424,7 +427,6 @@ Partial Class frmForm_Overview Me.GroupBox2.Controls.Add(PARENT_IDLabel) Me.GroupBox2.Controls.Add(Me.ADDED_WHOTextBox) Me.GroupBox2.Controls.Add(ADDED_WHOLabel) - Me.GroupBox2.Controls.Add(Me.LEVELTextBox) Me.GroupBox2.Controls.Add(LEVELLabel) Me.GroupBox2.Controls.Add(Me.NAMETextBox) Me.GroupBox2.Controls.Add(NAMELabel) @@ -434,11 +436,41 @@ Partial Class frmForm_Overview Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GroupBox2.Location = New System.Drawing.Point(328, 53) Me.GroupBox2.Name = "GroupBox2" - Me.GroupBox2.Size = New System.Drawing.Size(424, 270) + Me.GroupBox2.Size = New System.Drawing.Size(424, 308) Me.GroupBox2.TabIndex = 23 Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Entity Properties:" ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(234, 270) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(148, 26) + Me.Label4.TabIndex = 26 + Me.Label4.Text = "Es kann nur ein Datensatz für" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "diese Entität angelegt werden." + ' + 'SINGLE_RECORDCheckBox + ' + Me.SINGLE_RECORDCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_FORMBindingSource, "SINGLE_RECORD", True)) + Me.SINGLE_RECORDCheckBox.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SINGLE_RECORDCheckBox.Location = New System.Drawing.Point(125, 264) + Me.SINGLE_RECORDCheckBox.Name = "SINGLE_RECORDCheckBox" + Me.SINGLE_RECORDCheckBox.Size = New System.Drawing.Size(113, 24) + Me.SINGLE_RECORDCheckBox.TabIndex = 25 + Me.SINGLE_RECORDCheckBox.Text = "Single Record" + Me.SINGLE_RECORDCheckBox.UseVisualStyleBackColor = True + ' + 'NumericUpDown1 + ' + Me.NumericUpDown1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBPMO_FORMBindingSource, "LEVEL", True)) + Me.NumericUpDown1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NumericUpDown1.Location = New System.Drawing.Point(125, 119) + Me.NumericUpDown1.Name = "NumericUpDown1" + Me.NumericUpDown1.Size = New System.Drawing.Size(69, 25) + Me.NumericUpDown1.TabIndex = 24 + ' 'GUIDTextBox ' Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "GUID", True)) @@ -491,9 +523,9 @@ Partial Class frmForm_Overview ' 'btninsert ' - Me.btninsert.Image = Global.DD_Record_Organiser.My.Resources.Resources.add1 + Me.btninsert.Image = CType(resources.GetObject("btninsert.Image"), System.Drawing.Image) Me.btninsert.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btninsert.Location = New System.Drawing.Point(761, 53) + Me.btninsert.Location = New System.Drawing.Point(758, 53) Me.btninsert.Name = "btninsert" Me.btninsert.Size = New System.Drawing.Size(153, 33) Me.btninsert.TabIndex = 24 @@ -503,9 +535,9 @@ Partial Class frmForm_Overview ' 'btndelete ' - Me.btndelete.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + Me.btndelete.Image = CType(resources.GetObject("btndelete.Image"), System.Drawing.Image) Me.btndelete.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btndelete.Location = New System.Drawing.Point(761, 92) + Me.btndelete.Location = New System.Drawing.Point(758, 92) Me.btndelete.Name = "btndelete" Me.btndelete.Size = New System.Drawing.Size(153, 30) Me.btndelete.TabIndex = 25 @@ -515,9 +547,9 @@ Partial Class frmForm_Overview ' 'btnsave ' - Me.btnsave.Image = Global.DD_Record_Organiser.My.Resources.Resources.save + Me.btnsave.Image = CType(resources.GetObject("btnsave.Image"), System.Drawing.Image) Me.btnsave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnsave.Location = New System.Drawing.Point(761, 128) + Me.btnsave.Location = New System.Drawing.Point(758, 128) Me.btnsave.Name = "btnsave" Me.btnsave.Size = New System.Drawing.Size(153, 30) Me.btnsave.TabIndex = 26 @@ -537,9 +569,9 @@ Partial Class frmForm_Overview ' 'btncopy ' - Me.btncopy.Image = Global.DD_Record_Organiser.My.Resources.Resources.page_copy + Me.btncopy.Image = CType(resources.GetObject("btncopy.Image"), System.Drawing.Image) Me.btncopy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btncopy.Location = New System.Drawing.Point(761, 164) + Me.btncopy.Location = New System.Drawing.Point(758, 164) Me.btncopy.Name = "btncopy" Me.btncopy.Size = New System.Drawing.Size(153, 28) Me.btncopy.TabIndex = 28 @@ -559,11 +591,38 @@ Partial Class frmForm_Overview Me.lblStatus.Text = "Label3" Me.lblStatus.Visible = False ' + 'btnGenerate + ' + Me.btnGenerate.Image = CType(resources.GetObject("btnGenerate.Image"), System.Drawing.Image) + Me.btnGenerate.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnGenerate.Location = New System.Drawing.Point(336, 552) + Me.btnGenerate.Name = "btnGenerate" + Me.btnGenerate.Size = New System.Drawing.Size(153, 42) + Me.btnGenerate.TabIndex = 30 + Me.btnGenerate.Text = "Kombiformular erzeugen" + Me.btnGenerate.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnGenerate.UseVisualStyleBackColor = True + Me.btnGenerate.Visible = False + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(495, 568) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(272, 26) + Me.Label3.TabIndex = 31 + Me.Label3.Text = "Mit dieser Funktion wird ein Eingabeformular erzeugt, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "welches die links dargest" & _ + "ellte TreeView-Struktur umsetzt." + Me.Label3.Visible = False + ' 'frmForm_Overview ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(965, 702) + Me.ClientSize = New System.Drawing.Size(1046, 702) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.btnGenerate) Me.Controls.Add(Me.lblStatus) Me.Controls.Add(Me.btncopy) Me.Controls.Add(Me.Label2) @@ -589,6 +648,7 @@ Partial Class frmForm_Overview CType(Me.TBPMO_FORM_VIEWBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.PerformLayout() + CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPMO_FORM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -603,7 +663,6 @@ Partial Class frmForm_Overview Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents PARENT_IDTextBox As System.Windows.Forms.TextBox Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox - Friend WithEvents LEVELTextBox As System.Windows.Forms.TextBox Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton Friend WithEvents TBPMO_FORM_VIEWBindingSource As System.Windows.Forms.BindingSource @@ -627,4 +686,9 @@ Partial Class frmForm_Overview Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents btncopy As System.Windows.Forms.Button Friend WithEvents lblStatus As System.Windows.Forms.Label + Friend WithEvents btnGenerate As System.Windows.Forms.Button + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents NumericUpDown1 As System.Windows.Forms.NumericUpDown + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents SINGLE_RECORDCheckBox As System.Windows.Forms.CheckBox End Class diff --git a/app/DD-Record-Organiser/frmForm_Overview.resx b/app/DD-Record-Organiser/frmForm_Overview.resx index 1ee9e98..4deadef 100644 --- a/app/DD-Record-Organiser/frmForm_Overview.resx +++ b/app/DD-Record-Organiser/frmForm_Overview.resx @@ -174,9 +174,6 @@ X1Vf58ua8BnVhegAAAAASUVORK5CYII= - - 17, 17 - 244, 56 @@ -192,12 +189,84 @@ 726, 56 - - 726, 56 - 968, 56 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAEMSURBVDhPndOtS8NRFMbx+wcYDJYlk2mWWURQBFeU + oUHxDUENG/gSxLGwIcOBIogiOOGKiJYJMlkQFgRhIDNZDEt2wba/4fE+8Zxz0y98ypfnpMt1AIyTl3Uf + QPGxrQlUe17BX78nsOkdmUDVxiI+etcCm96RCVR5XMD794XApndkApXu5tD+OhXY9I7cwU3WB9Ban0dC + bBN4t3s5hZ/frvHUKQqxDW9d/mwc9287ifDWbR5nUH/dSoS3bq2cxnlzORHeuqXiiA+g1Ro5IbYJvHkW + mt8fRvlhRmDTOzKBZgspHN5OCGx6RyZQdnsIe/UxgU3vyASa3hhE/mpUYNM7MoEmVwd8ACXyneH+AS+X + rQ+E1u/kAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd + tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8 + PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI + vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm + RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2 + yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E + A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y + Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu + YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI + nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y + todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ + RU5ErkJggg== + + + + + Qk02BQAAAAAAADYEAAAoAAAAEAAAABAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAAA/wAA + gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA/////////wD//////wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wcH + BwcHBwcHBwcHBwcHBwcHBwAAAAAAAAAAAAAAAAcHBwAMDAAIDAwNBwcADAwABwcADAwACAwMDQcHAAwM + AAcHAAwMAAcICAcHBwAMDAAHBwAMDAYAAAAAAAAGDAwABwcADAwMDAwMDAwMDAwMAAcHAAwGAAAAAAAA + AAAGDAAHBwAMAA0NDQ0NDQ0NAAwABwcADAANDQ0NDQ0NDQAMAAcHAAwADQ0NDQ0NDQ0ADAAHBwAMAA0N + DQ0NDQ0NAAwABwcAAAANDQ0NDQ0NDQAAAAcHAAwADQ0NDQ0NDQ0ADAAHBwcAAAAAAAAAAAAAAAAHBwcH + BwcHBwcHBwcHBwcHBwc= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAEUSURBVDhPjZOhjoNQEEXnE6tQOGQlEonD1VCF4CdI + COFfMJRACGkFkkx7XvKax7JvWZIj7sxlcgSIqu4oyzL/oH+Qu/3dy1AUhW7b5oX9h++Rw4EPptj3/QE7 + v9/vYI6cKrdtq4/Hw8CBruvMkdvtBvm/lJum0WEYDrssy1TQIbiqFjunU9e1juP4hV2apiqoEKymC3NX + uaoqnabJwC5JEhU0CCj+hLkL3XmeDeQ4jlXQILh6v0GH7rIsBvL1elVBg2DVfNCh+3w+DeQoilTQIFg1 + H3Tovl4vAzkMQxU0CFbNBx3btQRBoIIGwar5oEOX53K5WHJBg6VV80GHLp+vi6CxrqspnEH3cAANR+mM + 3a+sqvIGZodWiQ7ahKIAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAALhJREFUOE+tk8ENhCAQRSnFWqiEOiiAO42sJXjmRCnsXriy83VIZCQE153kJcKf + /yM6KFk5Z0NsRBFgz3DbtUhciBhCKNbaorVuwB409KCXbUexOTnnLkaJ9x4hqQmhRYTQM/TgkFjNBq8m + m9bXWt7ps4NnqfNxDAK23pnBKAQeeBHQCJJRCLxNQG0ccQ75f0CPmSM8/ojPfiPPQpyZwkozSCha7KM8 + M43dUUZxyG+X6Vwk3rjOSn0Bs2pSjcG3D98AAAAASUVORK5CYII= + + AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA diff --git a/app/DD-Record-Organiser/frmForm_Overview.vb b/app/DD-Record-Organiser/frmForm_Overview.vb index 30c5358..7ae1b26 100644 --- a/app/DD-Record-Organiser/frmForm_Overview.vb +++ b/app/DD-Record-Organiser/frmForm_Overview.vb @@ -48,26 +48,28 @@ Public Class frmForm_Overview End Sub Sub Load_TreeView() Try - Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM WHERE FORM_TYPE_ID = 1 AND PARENT_ID = 0") + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 1 AND T.PARENT_ID = 0") If DT.Rows.Count > 0 Then TreeViewEntity.Nodes.Clear() For Each Row As DataRow In DT.Rows Dim Node As TreeNode - Node = TreeViewEntity.Nodes.Add(Row.Item("NAME").ToString) + Node = TreeViewEntity.Nodes.Add(Row.Item("FORM_TITLE").ToString) Node.Tag = Row.Item("GUID") 'Jetzt die Ebene1Knoten einhängen - Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM WHERE PARENT_ID = " & Row.Item("GUID") & " AND FORM_TYPE_ID in (2,5) ORDER BY LEVEL") + Dim sql As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (2,5) AND T.PARENT_ID = " & Row.Item("GUID") & " ORDER BY LEVEL" + Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable(sql) If dtEbene1.Rows.Count > 0 Then For Each row1 As DataRow In dtEbene1.Rows Dim Node1 As TreeNode - Node1 = Node.Nodes.Add(row1.Item("NAME").ToString) + Node1 = Node.Nodes.Add(row1.Item("FORM_TITLE").ToString) Node1.Tag = row1.Item("GUID") + Dim sql1 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (3,5) AND T.PARENT_ID = " & row1.Item("GUID") & " ORDER BY LEVEL" 'Jetzt die Ebene2 Knoten einhängen - Dim dtEbene2 As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM WHERE FORM_TYPE_ID in (3,5) AND PARENT_ID = " & row1.Item("GUID") & " ORDER BY LEVEL") + Dim dtEbene2 As DataTable = ClassDatabase.Return_Datatable(sql1) If dtEbene2.Rows.Count > 0 Then For Each row2 As DataRow In dtEbene2.Rows Dim Node2 As TreeNode - Node2 = Node1.Nodes.Add(row2.Item("NAME").ToString) + Node2 = Node1.Nodes.Add(row2.Item("FORM_TITLE").ToString) Node2.Tag = row2.Item("GUID") Next End If @@ -76,17 +78,19 @@ Public Class frmForm_Overview End If Next - Dim DT3 As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FORM WHERE FORM_TYPE_ID = 4 AND PARENT_ID = 0 ORDER BY NAME") + Dim sql2 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 4 AND T.PARENT_ID = 0 ORDER BY T1.FORM_TITLE" + Dim DT3 As DataTable = ClassDatabase.Return_Datatable(sql2) If DT3.Rows.Count > 0 Then Dim Node As TreeNode Node = TreeViewEntity.Nodes.Add("Unabhängige/Eigenständige Entitäten") For Each row3 As DataRow In DT3.Rows Dim Node2 As TreeNode - Node2 = Node.Nodes.Add(row3.Item("NAME").ToString) + Node2 = Node.Nodes.Add(row3.Item("FORM_TITLE").ToString) Node2.Tag = row3.Item("GUID") Next End If TreeViewEntity.ExpandAll() + TreeViewEntity.Nodes(0).EnsureVisible() End If Catch ex As Exception MsgBox("Error in Load_TreeView:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) @@ -98,8 +102,11 @@ Public Class frmForm_Overview Me.TBPMO_FORMTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FORM, FORMID) Me.TBPMO_FORM_VIEWTableAdapter.FillByFORMID(Me.DD_DMSDataSet.TBPMO_FORM_VIEW, FORMID) - 'ResizeColumns() - + If PARENT_IDTextBox.Text = 0 And ComboBox1.SelectedValue = 1 Then + Me.btnGenerate.Visible = True + Else + btnGenerate.Visible = False + End If Catch ex As Exception MsgBox("Error in Load_Forms:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try @@ -193,6 +200,14 @@ Public Class frmForm_Overview End Sub Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click Try + If FORM_TITLETextBox.Text = "" Then + MsgBox("Bitte geben Sie einen Titel für die Entität ein!", MsgBoxStyle.Exclamation) + FORM_TITLETextBox.Focus() + Exit Sub + End If + + Dim FORM_TITLE As String = FORM_TITLETextBox.Text + Dim DESCRIPTION As String = DESCRIPTIONTextBox.Text Me.TBPMO_FORMBindingSource.EndEdit() Dim changes = False @@ -210,8 +225,6 @@ Public Class frmForm_Overview Dim sql = "SELECT (MAX(GUID)) FROM TBPMO_FORM" Dim FORM_ID = ClassDatabase.Execute_Scalar(sql) - Dim FORM_TITLE As String = FORM_TITLETextBox.Text - Dim DESCRIPTION As String = DESCRIPTIONTextBox.Text Dim ADDED_WHO As String = Environment.UserName @@ -251,21 +264,55 @@ Public Class frmForm_Overview End Sub Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click - Dim result As MsgBoxResult = MsgBox("Wollen Sie das Formular wirklich löschen?", MsgBoxStyle.YesNo, "Frage:") + Dim result As MsgBoxResult = MsgBox("Wollen Sie das Formular wirklich löschen?" & vbNewLine & "Alle Daten werden unwiderruflich gelöscht!", MsgBoxStyle.YesNo, "Bestätigung notwendig:") If result = MsgBoxResult.Yes Then Try Dim CurrentID = GetCurrentGUID() Dim delete As String = "DELETE FROM TBPMO_FORM_SQL WHERE FORM_ID = " & CurrentID - ClassDatabase.Execute_non_Query(delete, True) - ' Delete controls (and control screens and control values) - ClassFormCommands.DeleteFormControls(CurrentID) - ' Delete form view - ClassFormCommands.DeleteFormView(CurrentID) - ' Delete the actual form - Me.TBPMO_FORMTableAdapter.Delete(CurrentID) - MsgBox("Das Formular/Die Entität wurde erfolgreich gelöscht!", MsgBoxStyle.Information) - Load_TreeView() - Load_Forms(999999999) + If ClassDatabase.Execute_non_Query(delete, True) = True Then + delete = "DELETE FROM TBPMO_FORM_SQL_CONSTRUCT WHERE FORM_ID = " & CurrentID + If ClassDatabase.Execute_non_Query(delete, True) = True Then + delete = "DELETE FROM TBPMO_WORKFLOW_FORM WHERE FORM_ID = " & CurrentID + If ClassDatabase.Execute_non_Query(delete, True) = True Then + delete = "DELETE FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = " & CurrentID + If ClassDatabase.Execute_non_Query(delete, True) = True Then + delete = "DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE FORM_ID = " & CurrentID + If ClassDatabase.Execute_non_Query(delete, True) = True Then + ' Delete controls (and control screens and control values) + If ClassFormCommands.DeleteFormControls(CurrentID) = True Then + ' Delete form view + If ClassFormCommands.DeleteFormView(CurrentID) = True Then + delete = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = " & CurrentID & ")" + If ClassDatabase.Execute_non_Query(delete, True) = True Then + delete = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = " & CurrentID & ")" + If ClassDatabase.Execute_non_Query(delete, True) = True Then + delete = "DELETE FROM TBPMO_RECORD_LOG WHERE RECORD_ID in (SELECT GUID FROM TBPMO_RECORD WHERE FORM_ID = " & CurrentID & ")" + If ClassDatabase.Execute_non_Query(delete, True) = True Then + delete = "DELETE FROM TBPMO_RECORD WHERE FORM_ID = " & CurrentID + If ClassDatabase.Execute_non_Query(delete, True) = True Then + ' Delete the actual form + Me.TBPMO_FORMTableAdapter.Delete(CurrentID) + MsgBox("Das Formular/Die Entität wurde erfolgreich gelöscht!", MsgBoxStyle.Information) + Load_TreeView() + Load_Forms(999999999) + End If + + End If + + End If + End If + End If + End If + End If + End If + End If + + + End If + End If + + + Catch ex As Exception MsgBox("Formular konnte nicht gelöscht werden:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try @@ -316,4 +363,44 @@ Public Class frmForm_Overview FORM_TITLETextBox.Text = NAMETextBox.Text End If End Sub + + Private Sub btnGenerate_Click(sender As Object, e As EventArgs) Handles btnGenerate.Click + Try + Dim CurrentID = GetCurrentGUID() + If CurrentID > 0 Then + Dim result As MsgBoxResult = MsgBox("Achtung mit dieser Funktion wird ein NEUES Kombi-Formular erzeugt!" & vbNewLine & "Wollen Sie fortfahren?", MsgBoxStyle.YesNo, "Frage:") + If result = MsgBoxResult.Yes Then + INTEGER1 = CurrentID + frmNewKombiForm.ShowDialog() + End If + End If + + + 'Dim CurrentID = GetCurrentGUID() + 'Dim sql As String = "EXEC PRPMO_COPY_ENTITY " & CurrentID.ToString + 'If ClassDatabase.Execute_non_Query(sql) = True Then + ' 'MsgBox("Die Entität wurde erfolgreich kopiert!", MsgBoxStyle.Information) + ' Load_TreeView() + ' Load_Forms(999999999) + ' lblStatus.Text = "Die Entität wurde erfolgreich kopiert." + ' lblStatus.Visible = True + 'Else + ' lblStatus.Visible = False + 'End If + Catch ex As Exception + MsgBox("Formular konnte nicht gelöscht werden:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged + If ComboBox1.SelectedIndex <> -1 Then + If ComboBox1.SelectedValue = 5 Then + ToolStripButton2.Enabled = False + ToolStripButton1.Enabled = False + Else + ToolStripButton2.Enabled = True + ToolStripButton1.Enabled = True + End If + End If + End Sub End Class \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmMain.Designer.vb b/app/DD-Record-Organiser/frmMain.Designer.vb index 408fd18..bd7c0be 100644 --- a/app/DD-Record-Organiser/frmMain.Designer.vb +++ b/app/DD-Record-Organiser/frmMain.Designer.vb @@ -51,6 +51,9 @@ Partial Class frmMain Me.BarButtonItem10 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem12 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem13 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem14 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem15 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem16 = New DevExpress.XtraBars.BarButtonItem() Me.pageHome = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.groupQuickAccess = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -60,11 +63,12 @@ Partial Class frmMain Me.RibbonPageGroupTask = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupMenue = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupWindream = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.DefaultLookAndFeel1 = New DevExpress.LookAndFeel.DefaultLookAndFeel(Me.components) Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem() - Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.BarButtonItem14 = New DevExpress.XtraBars.BarButtonItem() + Me.Button1 = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ribbonMain, System.ComponentModel.ISupportInitialize).BeginInit() @@ -107,9 +111,11 @@ Partial Class frmMain Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_CONNECTIONTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing @@ -129,9 +135,9 @@ Partial Class frmMain Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray Me.ribbonMain.ExpandCollapseItem.Id = 0 - Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelUser, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14}) + Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelUser, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16}) Me.ribbonMain.Location = New System.Drawing.Point(0, 0) - Me.ribbonMain.MaxItemId = 27 + Me.ribbonMain.MaxItemId = 29 Me.ribbonMain.Name = "ribbonMain" Me.ribbonMain.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.pageHome, Me.pageForms, Me.pageAdmin}) Me.ribbonMain.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.Office2013 @@ -298,6 +304,29 @@ Partial Class frmMain Me.BarButtonItem13.Name = "BarButtonItem13" Me.BarButtonItem13.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large ' + 'BarButtonItem14 + ' + Me.BarButtonItem14.Caption = "Connections" + Me.BarButtonItem14.Glyph = CType(resources.GetObject("BarButtonItem14.Glyph"), System.Drawing.Image) + Me.BarButtonItem14.Id = 26 + Me.BarButtonItem14.Name = "BarButtonItem14" + Me.BarButtonItem14.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'BarButtonItem15 + ' + Me.BarButtonItem15.Caption = "BarButtonItem15" + Me.BarButtonItem15.CategoryGuid = New System.Guid("6ffddb2b-9015-4d97-a4c1-91613e0ef537") + Me.BarButtonItem15.Id = 27 + Me.BarButtonItem15.Name = "BarButtonItem15" + ' + 'BarButtonItem16 + ' + Me.BarButtonItem16.Caption = "Designer" + Me.BarButtonItem16.Glyph = CType(resources.GetObject("BarButtonItem16.Glyph"), System.Drawing.Image) + Me.BarButtonItem16.Id = 28 + Me.BarButtonItem16.Name = "BarButtonItem16" + Me.BarButtonItem16.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' 'pageHome ' Me.pageHome.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.groupQuickAccess}) @@ -341,6 +370,7 @@ Partial Class frmMain Me.RibbonPageGroupProgram.ItemLinks.Add(Me.BarButtonItem2) Me.RibbonPageGroupProgram.ItemLinks.Add(Me.BarButtonItem5) Me.RibbonPageGroupProgram.ItemLinks.Add(Me.BarButtonItem13) + Me.RibbonPageGroupProgram.ItemLinks.Add(Me.BarButtonItem16) Me.RibbonPageGroupProgram.Name = "RibbonPageGroupProgram" Me.RibbonPageGroupProgram.Text = "Programm Konfiguration" ' @@ -368,6 +398,12 @@ Partial Class frmMain Me.RibbonPageGroupWindream.Name = "RibbonPageGroupWindream" Me.RibbonPageGroupWindream.Text = "Windream Konfiguration" ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem14) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "SQL Konfiguration" + ' 'RibbonStatusBar1 ' Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelMachine) @@ -391,19 +427,23 @@ Partial Class frmMain Me.BarButtonItem11.Name = "BarButtonItem11" Me.BarButtonItem11.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large ' - 'RibbonPageGroup1 + 'Button1 ' - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem14) - Me.RibbonPageGroup1.Name = "RibbonPageGroup1" - Me.RibbonPageGroup1.Text = "SQL Konfiguration" + Me.Button1.Location = New System.Drawing.Point(-16, -15) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(75, 23) + Me.Button1.TabIndex = 3 + Me.Button1.Text = "Button1" + Me.Button1.UseVisualStyleBackColor = True ' - 'BarButtonItem14 + 'Button2 ' - Me.BarButtonItem14.Caption = "Connections" - Me.BarButtonItem14.Glyph = CType(resources.GetObject("BarButtonItem14.Glyph"), System.Drawing.Image) - Me.BarButtonItem14.Id = 26 - Me.BarButtonItem14.Name = "BarButtonItem14" - Me.BarButtonItem14.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + Me.Button2.Location = New System.Drawing.Point(398, 375) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(75, 23) + Me.Button2.TabIndex = 4 + Me.Button2.Text = "Button2" + Me.Button2.UseVisualStyleBackColor = True ' 'frmMain ' @@ -415,6 +455,8 @@ Partial Class frmMain Me.BackgroundImageLayoutStore = System.Windows.Forms.ImageLayout.Center Me.BackgroundImageStore = CType(resources.GetObject("$this.BackgroundImageStore"), System.Drawing.Image) Me.ClientSize = New System.Drawing.Size(1498, 678) + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.ribbonMain) Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -473,5 +515,9 @@ Partial Class frmMain Friend WithEvents BarButtonItem13 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem14 As DevExpress.XtraBars.BarButtonItem Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BarButtonItem15 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem16 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button2 As System.Windows.Forms.Button End Class diff --git a/app/DD-Record-Organiser/frmMain.resx b/app/DD-Record-Organiser/frmMain.resx index 3ec516e..7a4fd66 100644 --- a/app/DD-Record-Organiser/frmMain.resx +++ b/app/DD-Record-Organiser/frmMain.resx @@ -1072,46 +1072,84 @@ - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAtdEVYdFRpdGxlAERCO1NvdXJjZTtTdG9yO2RhdGFzb3VyY2U7RGF0YWJhc2U7RWRpdCj2upwA - AAjPSURBVFhHxZYLWM1pHsf/jUuSUlIblmU2TGIxK+symRhSY4goqaiZkFRkbW4NurmW6GKMVLq4RFG6 - K07ofjvp4tLhRJdzuqh0U+l0+s77/uv0sNvuys7z7Ps8n+f5n///Pb/v9/++v9/v/zIA/q/885Dq4wvC - kD6GfsCwAaD3JXPp/+j/PxoDCUuQDInwEAcTTdkc/8163KAtLoUh5mHFoRbcolBzbnGIRU1xiDmKCIVB - W2oKLptxuYFm3Fw/kxuZFza6Jnsa/GC+coYciUENfWRkIGEJkvFF0M96Yx8Hm3s9vb6tsfzeMdRyg9DE - u4N2wUMCB+/fpEPcnAfx2wy8Fyai9WUYWnmhqM/zguCBM0pv2SHPb1Njmo+h9+nti1VITLoirImBhCXQ - QScNLb7yY27900iI2srQ01WJno6XELcVQ9yaD3FTOrrfPoK4PhniujiIa6LQXX0b3YJwiKquQVQRCtHr - y+jkXYCQcwgZPhvySMzhBLoSAwpLoIMaGJ7htR5EGT2iGvS8KyFwiXgOepoziYFUiBtTIG5IRvebBHTX - RqNbSA3chKjyKkTlwcSAP0RlFyHi/4J7rno08gjCJxmgk6TTzq6DqIWHHnEboRXoIkY6ySoQM+KWXHQT - I90NHLIKiRDXxqCbXQUCuwo3WCNd/EA0Z7sgyUmHRh5JoNswoLAEOlgDjzz00cT1IvvLQfd7AcTUAIVe - txMjHWRr2vnoaXtGtiMP7a/uoKMsAu28ALwr8Ubzg30QBq9CxTVDJB5ZTiPLEj7ZwIgHp1f3GbiHrs4q - dHXVoYtsx/u2QnTUBqOFtws1CUtREaqJ52dngHt0CorPaKDqtj4akrajPnILBEG6rIGEQ8sGbUCGc2LV - 72Yg9sBSGnkUYQjfahPVoHlGdSRI0ft8K2Ny2Wfgnpve72Yg2mFJvwECFR9SYKrvXGK6FgWma53J7496 - BZ0kE39kRWY1xwkdFYmfbaAiQAdFnstwc9eibBKTNiW2U6auXuHyytEG4moe+Hss8HD1cte+Z9QEa2Dk - 3SM6qEo6Cn60M14/DISAG4260vtoLEtAfbEH3j6x6Tfw1EMdWfsnIc91Gkp8tVDstRxZjn9Fip0auCe1 - cWv3IroCCjTucQNrt9K92yAWlqI14DjaOWHINtBFjNZCN/KcrgRrYFS843doLvLD+9o0NAnyWQMvEn1R - EGiLXG993HdQR5ylKu6YKSPKZCzizFWQsG080o/MQbGPHl6HbEJNuAmqIiwQvvNvSE9P19c19jxx7DwH - wsYOtPgfR7W9Kd5c9kWJ8z74q02hJqUlBuTiDmh/kAMCsgX1ZAvINrx7hs76CLS9Por6R0aojtJDWaAW - Ss7MwXO/xaiON0Njym40RFui6rIuXl3ZgLuntuHKLx6Zjp6JeN0kQmxWOTJ9L6DmjAuipqshZNIkHFNW - PkV0abfsNRDj8O3/lIRvbpMcCFyJ8jhH5Pj9BGHcJhJHiMhUPvyjCxGfxofnSkNcGj8B++Tk3YkmLdP+ - LZC783etzzZQf3c7aiI2ozzSHk+v74Ag2gjo5EP8fC+yks7gzgMeDK39oaXvBm2VWR5Ej1YITUK2CqgL - +Rs2C7M/pwoqb+mjNmErhElOKA62RGXketIxeRAX2aHz0XdoKzoEx/0HMF/3ZyhMXONJtQjsh8pWit0B - 1sDoCLsFg66CHJdpeOz1DYpDSaJeMEP5DX2A5IzoqSs6OUvQku+A7MNfgmM/GTpzNc5SHQIrvkB+GrPz - AwMK4dbzB1UFsVtUEGM5DpnnNyPXz4Ik3yr0tJagI9MSbbEL0ZK1hzWZvHMifHSVzhENRQLNerYBSSvp - MvNk1chlrwHFMCvNT66ClwFaKDg9GyVhW5Ef+BPKSAfsaS5Ee4oZ2iLmoinVBml7JiCelKnnckVvEn8M - QfJ5ljLdE8pIK+kwy9RnkJ+9BsZcs/z6vyZhdfxSUu+aKHJXR66vATK8jfDi0gpyVshDW5IxWq7NJCVp - hYc2qoi1UIX7EnkfEluJ0C+ed2gyc/ywM6M9/SvG9xvaLPtW4KrFnP9ooLl0F4Tx2nh5eR4KA42R5mGA - 0vPa5ICShZY4AzQETkdDsgU4W1UQRbbp2GI5XxJXmSBDYMWzHSYyLHsnMF4LZJlz8+mRoa8MA0xn5hQE - WqGtLPZfDLTXkPPhcztURH+LZ+HmSPVYj2fntMiZJQ2NkWtQ9+uXaIg3RdKPSrhlqAQXTdnzJCY9F1Jx - Gl8qc/c4JnOXKkuGnSrjMW8k4z631wB1J/2DhvJkb4PpwUGms1oT3TYj/6Y7XqReR3VJJKpyT6L2sTX4 - yTtw390CGWe3QiRMQWOYLuq8J6I+xggJZmMQvk4Rh7+WuUDiqRIkJyKpdGsVhpJmrcykWykzTxyUmVN/ - kWFOEOhgP5cEmqHyakoyEw4um2zivurP3t5rpsb56k994rNG7Um4g3FH9Ok9iNqpQ84RQEPoCtSeGoe6 - 22sQu1Ee11cr4ODsEb+SGOMI/eKPtioxEh4SiuyVmMrDY5hjGtKM2wz2U8AOyYGB5gO9SwPQhkFLZyxh - AmGG1/r50TmBJ1H3PA8CNxXU3tRD9Fo5XP1eHvs0pC+SOeMJkpOQ1AMLRYaSYk7YrMg8tlFgyg+MZl7t - H824fjWccSF8OKgJCdQMDSIxpKAw9o9zDpoYtTdV8iAgjSrj/D9wzVYfF/VnYq+69CUyh5rsF+eYKTAc - 017umyoyXKvRTNneUSyv7EcxztOHs/y78aER2rOVZi9a52Sz2xW1OTeR6mWPAFMtnF2uDtvZf/AjzycS - +sXvGcszLBt7ybckwnYjWV7YyrA4TRvGMuBBUQINRqA2VTWXbnlmeygEuis24PuZ6h0Oc8fHrJ2iuJE+ - I0i+bFLJRnIMi2EvuRayzIsdIxgexUq6n8EYoCugrDZLB2PGafDkFP90csiwkfPIPbrk9NRDmwz75ken - DmMGy4DCEmjQvuD0DWld0ySjSUlbGM0N+tZskzmiNpQZPEOZ3wCulDu5GBSzDgAAAABJRU5ErkJggg== + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAC10RVh0VGl0 + bGUAREI7U291cmNlO1N0b3I7ZGF0YXNvdXJjZTtEYXRhYmFzZTtFZGl0KPa6nAAACM9JREFUWEfFlgtY + zWkex/+NS5JSUhuWZTZMYjEr6zKZGFJjiCipqJmQVGRtbg26uZboYoxUurhEUborTuh+O+ni0uFEl3O6 + qHRT6XT6zvv+6/Sw2+7KzvPs+zyf5/mf//89v+/3/76/3+//MgD+r/zzkOrjC8KQPoZ+wLABoPclc+n/ + 6P8/GgMJS5AMifAQBxNN2Rz/zXrcoC0uhSHmYcWhFtyiUHNucYhFTXGIOYoIhUFbagoum3G5gWbcXD+T + G5kXNromexr8YL5yhhyJQQ19ZGQgYQmS8UXQz3pjHwebez29vq2x/N4x1HKD0MS7g3bBQwIH79+kQ9yc + B/HbDLwXJqL1ZRhaeaGoz/OC4IEzSm/ZIc9vU2Oaj6H36e2LVUhMuiKsiYGEJdBBJw0tvvJjbv3TSIja + ytDTVYmejpcQtxVD3JoPcVM6ut8+grg+GeK6OIhrotBdfRvdgnCIqq5BVBEK0evL6ORdgJBzCBk+G/JI + zOEEuhIDCkuggxoYnuG1HkQZPaIa9LwrIXCJeA56mjOJgVSIG1MgbkhG95sEdNdGo1tIDdyEqPIqROXB + xIA/RGUXIeL/gnuuejTyCMInGaCTpNPOroOohYcecRuhFegiRjrJKhAz4pZcdBMj3Q0csgqJENfGoJtd + BQK7CjdYI138QDRnuyDJSYdGHkmg2zCgsAQ6WAOPPPTRxPUi+8tB93sBxNQAhV63EyMdZGva+ehpe0a2 + Iw/tr+6goywC7bwAvCvxRvODfRAGr0LFNUMkHllOI8sSPtnAiAenV/cZuIeuzip0ddWhi2zH+7ZCdNQG + o4W3CzUJS1ERqonnZ2eAe3QKis9ooOq2PhqStqM+cgsEQbqsgYRDywZtQIZzYtXvZiD2wFIaeRRhCN9q + E9WgeUZ1JEjR+3wrY3LZZ+Cem97vZiDaYUm/AQIVH1Jgqu9cYroWBaZrncnvj3oFnSQTf2RFZjXHCR0V + iZ9toCJAB0Wey3Bz16JsEpM2JbZTpq5e4fLK0Qbiah74eyzwcPVy175n1ARrYOTdIzqoSjoKfrQzXj8M + hIAbjbrS+2gsS0B9sQfePrHpN/DUQx1Z+ychz3UaSny1UOy1HFmOf0WKnRq4J7Vxa/ciugIKNO5xA2u3 + 0r3bIBaWojXgONo5Ycg20EWM1kI38pyuBGtgVLzjd2gu8sP72jQ0CfJZAy8SfVEQaItcb33cd1BHnKUq + 7pgpI8pkLOLMVZCwbTzSj8xBsY8eXodsQk24CaoiLBC+829IT0/X1zX2PHHsPAfCxg60+B9Htb0p3lz2 + RYnzPvirTaEmpSUG5OIOaH+QAwKyBfVkC8g2vHuGzvoItL0+ivpHRqiO0kNZoBZKzszBc7/FqI43Q2PK + bjREW6Lqsi5eXdmAu6e24covHpmOnol43SRCbFY5Mn0voOaMC6KmqyFk0iQcU1Y+RXRpt+w1EOPw7f+U + hG9ukxwIXInyOEfk+P0EYdwmEkeIyFQ+/KMLEZ/Gh+dKQ1waPwH75OTdiSYt0/4tkLvzd63PNlB/dztq + IjajPNIeT6/vgCDaCOjkQ/x8L7KSzuDOAx4Mrf2hpe8GbZVZHkSPVghNQrYKqAv5GzYLsz+nCipv6aM2 + YSuESU4oDrZEZeR60jF5EBfZofPRd2grOgTH/QcwX/dnKExc40m1COyHylaK3QHWwOgIuwWDroIcl2l4 + 7PUNikNJol4wQ/kNfYDkjOipKzo5S9CS74Dsw1+CYz8ZOnM1zlIdAiu+QH4as/MDAwrh1vMHVQWxW1QQ + YzkOmec3I9fPgiTfKvS0lqAj0xJtsQvRkrWHNZm8cyJ8dJXOEQ1FAs16tgFJK+ky82TVyGWvAcUwK81P + roKXAVooOD0bJWFbkR/4E8pIB+xpLkR7ihnaIuaiKdUGaXsmIJ6UqedyRW8SfwxB8nmWMt0Tykgr6TDL + 1GeQn70Gxlyz/Pq/JmF1/FJS75oocldHrq8BMryN8OLSCnJWyENbkjFars0kJWmFhzaqiLVQhfsSeR8S + W4nQL553aDJz/LAzoz39K8b3G9os+1bgqsWc/2iguXQXhPHaeHl5HgoDjZHmYYDS89rkgJKFljgDNARO + R0OyBThbVRBFtunYYjlfEleZIENgxbMdJjIseycwXgtkmXPz6ZGhrwwDTGfmFARaoa0s9l8MtNeQ8+Fz + O1REf4tn4eZI9ViPZ+e0yJklDY2Ra1D365doiDdF0o9KuGWoBBdN2fMkJj0XUnEaXypz9zgmc5cqS4ad + KuMxbyTjPrfXAHUn/YOG8mRvg+nBQaazWhPdNiP/pjtepF5HdUkkqnJPovaxNfjJO3Df3QIZZ7dCJExB + Y5gu6rwnoj7GCAlmYxC+ThGHv5a5QOKpEiQnIql0axWGkmatzKRbKTNPHJSZU3+RYU4Q6GA/lwSaofJq + SjITDi6bbOK+6s/e3mumxvnqT33is0btSbiDcUf06T2I2qlDzhFAQ+gK1J4ah7rbaxC7UR7XVyvg4OwR + v5IY4wj94o+2KjESHhKK7JWYysNjmGMa0ozbDPZTwA7JgYHmA71LA9CGQUtnLGECYYbX+vnROYEnUfc8 + DwI3FdTe1EP0Wjlc/V4e+zSkL5I54wmSk5DUAwtFhpJiTtisyDy2UWDKD4xmXu0fzbh+NZxxIXw4qAkJ + 1AwNIjGkoDD2j3MOmhi1N1XyICCNKuP8P3DNVh8X9Wdir7r0JTKHmuwX55gpMBzTXu6bKjJcq9FM2d5R + LK/sRzHO04ez/LvxoRHas5VmL1rnZLPbFbU5N5HqZY8AUy2cXa4O29l/8CPPJxL6xe8ZyzMsG3vJtyTC + diNZXtjKsDhNG8Yy4EFRAg1GoDZVNZdueWZ7KAS6Kzbg+5nqHQ5zx8esnaK4kT4jSL5sUslGcgyLYS+5 + FrLMix0jGB7FSrqfwRigK6CsNksHY8Zp8OQU/3RyyLCR88g9uuT01EObDPvmR6cOYwbLgMISaNC+4PQN + aV3TJKNJSVsYzQ361myTOaI2lBk8Q5nfAK6UO7kYFLMOAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAADp0RVh0VGl0 + bGUAVmVyc2lvbjtQcm9kdWN0O1NldHRpbmc7UHJvcGVydDtDdXN0b21pejtEZXNpZ247SXRlbYRpbEcA + AAdSSURBVFhHxZcJVJVlGse1aXFcsnKStIlQRI2w0lERtHEPARE6eY5L0kkqQYRBQD1hIowJw4QbssYS + WmKkggyE3CuLCMoqi5CKlieI5bJc7mWTReH+533e7+MuBnfqzDkzzzm/8zzv+733+f+/737rGAD/VzTF + r2OsyBP/BfR7ndAW57rqQhPDok8ynhEZ9x/44wjQ/FOMPzDURrTFua66EGJY/OmyIysPt3y9GETzacKc + Izsl0BS/BI3EV0vQwKiPs0B9rAV+ibFAHaM22gIFgcsCWC8yojahLc511YUQtOip0uAVAQ2JG9B5ZesI + bHms1mYzOnM01J6xQf4hi0DW82kG7ZiOONdVF0LQonG3QlZB1X0Rqv5LIhkMiRZSkcsjkAlVH8t9lDNR + HrSUmo8Xe+uIc111IQQdqvE/HF8JlSIIgzX7McQYvMOgPIw45tvE8RDNcXzU80PNASgLtKDmE8XeOuJc + V10IQYsmVB1dDlX7PzBw0xv9jIFKliu9GKymOarFbZrt4lhcR/Vg4yGUHjan5pPE3jriXFddCEGLJt4M + fhtDbYHoLnJFd7EreghWEzRHY5of3i7M7dRaQ/VOPKzzRcmhRdT8WbG3jjjXVRdCcAOFfn/BrW/sUHnc + AhWPc2yJHsx1qI5ZiwuOBtR8MoMuax1xrqsuhCADk8qDLNH5gzdkKXYi6zVcHAlbrSySbIP2607I/Nuc + 323g2RsBFhhs8kNH5rvoFBFqB5YFlJQvCyil9iwzKEs3sPEGnnurXCF14waeY/wmA7Rocgk7cR41+KJD + Qo3sWLaDUmLLcwflDMIGHZdsobxko4U1lOnEOk5P0TZIXE2o+fNibx1xrqsuhOAGiv++CA9rP4VCbKYQ + EWorDd8T70CRynIqZWINp/3CMnRm2SHd2ZiavyD21hHnuupCCFr0XKH/Qgz8uBvyC5bqhoqU1WhPXc1q + kZSVnPaL2qxAe/JytH27CC1fzWVHywrf75hJzacw6LmgI8511YUQZOD5At8F6L/jhtZTpmg7Mx/yc0vR + nvRXxtsaLoicX8b3lrJSshU9FeHounESHTdC0FtzClf81ukYGA59Bl649tlb6Kt2QWu8KduT1zitp+eh + LWEB5ImLGUsg/47BjHUV+aPz2kEoc33Qnu2Ba6lR2Bd4Fns/T0B+ehyKwlypuQGDHkpPePjGjtnlEzOq + AXI5Jc/nDfRWfARZ3By0xM3lyGKpZsTORkvMbDY2QceVvWgrDEF45Cmcjo3FvewTiIqMQdWdOty8XYsI + Vud+/QV2eIecd/WJLFq0zI7OhbHO+yL0G7i673X0lDhyMRkRYyIQrZUZipw9CAuPQ839RpRW/oSAk0nY + 7R+P/v5HUHQ+gNtn0fAPTsD10jvc0MeeJ/JIw8kjRK+BP+XsMUX39c06Yk3ElwKyqFkceZY3oiOjUHrz + J3T39qP7QT/qGtrwaHAIckU3qmt+Qf/AQzzoG0CatAhW73mmkIaj65ERDfB3AcaL2V5z0XX1Pci+nMUE + jdHExARYHUljY7R+Zw25xA23JUfhfyQRnT29kCu70aro4lnW1oGmViXLStQ2yrHN+fDQm4vXW7L+9G4w + Vp+BqZkes/k13BQ1UyMaweqIGeqsLD6GrMRjOBp8Ai57wlDfJEezvAPZeeXYvjMAn7gHIa+wCj83yFFc + cRdbPgkccvjggNR6o9d2o1nzx41mgNxNlbqbsEtqHRdqJMIJIx3k14LxsXcoSsrvoqu7F719D9HI9thu + 0z6kRh9AWowvHHcGoalFidKq+8gvqcG/JIWwf/8giU3UZ8BAsssY7Wmr0RgmClIOe1Ug9FU0MFrzg/Gh + +1EU3qhBY7MCtU1tuF/fik1OfkiOOoCU6INw3hPKjkAbcotuI7ugGjEJUthu+pTEJuk1kO4yA3J2s2ng + goZM0FCTT77CMISi4AjOhvrCw90Lmz4KQBE7Erfu1SMjpwxOHsfgvDcM0txKVLO5pIwirLB2hflKx7w3 + zN/1ZBrP6DMwNW2HIbutLhdOvEhGhJBlVPMxnYTr0XzJHSVJn8PF8zh+ZntfUHYP+eyIVN+tx71aGSpv + 10GaX4W0rDJYb9ytemXGglWsP38/HMkABX8WxG2efjXB8WUkbJsu8P40nNk6zEv4ZgtjswFyQ3dhr9d+ + fJuci1s/1uMyEzt78SoyciuQnlOO+HNZSJaWIElSDL9/xsN0vl0q6z9+zpvrNbqPGaA3V/oQoec33T6n + M17Ww8y1Dh4VKdJCBIcnwsreDWscPFUpl0twLr0A5qu2q6wcdqn2B8QiKDQRc+bZlLLfTDA2sxrVAP0N + ZIKOBP0dw19GozF+ioGR0Qpb12LThfbp0wzn2ViudSqIOp2OL8LPw2yhfeFLfzaznW32TqqJ2brySZOn + zWS/eXLGa2tGNTAcZOS3QmYniEycb7lx91IrFyxd4wzj11fRCUdvxHwbg+4zY43mjmDg9zJKkCH6LqSH + DkE1/yB5PNR9tJv+78GYfwPiYK7C4w/SeAAAAABJRU5ErkJggg== diff --git a/app/DD-Record-Organiser/frmMain.vb b/app/DD-Record-Organiser/frmMain.vb index 4e6d45f..db15887 100644 --- a/app/DD-Record-Organiser/frmMain.vb +++ b/app/DD-Record-Organiser/frmMain.vb @@ -512,4 +512,14 @@ Public Class frmMain frm.MdiParent = Me frm.Show() End Sub + + Private Sub BarButtonItem16_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem16.ItemClick + Dim frm As New frmConstructorDesigner + frm.MdiParent = Me + frm.Show() + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + frmTestvb.Show() + End Sub End Class diff --git a/app/DD-Record-Organiser/frmSQLEditor.Designer.vb b/app/DD-Record-Organiser/frmSQLEditor.Designer.vb index 33e53b9..a80ccd7 100644 --- a/app/DD-Record-Organiser/frmSQLEditor.Designer.vb +++ b/app/DD-Record-Organiser/frmSQLEditor.Designer.vb @@ -23,8 +23,12 @@ Partial Class frmSQLEditor _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.Button1 = New System.Windows.Forms.Button() Me.txtValue = New System.Windows.Forms.TextBox() Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() @@ -71,6 +75,9 @@ Partial Class frmSQLEditor 'Button1 ' Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK + Me.Button1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button1.Location = New System.Drawing.Point(960, 700) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(266, 25) @@ -86,7 +93,7 @@ Partial Class frmSQLEditor Me.txtValue.Multiline = True Me.txtValue.Name = "txtValue" Me.txtValue.ScrollBars = System.Windows.Forms.ScrollBars.Both - Me.txtValue.Size = New System.Drawing.Size(1208, 253) + Me.txtValue.Size = New System.Drawing.Size(1208, 226) Me.txtValue.TabIndex = 2 ' 'DD_DMSDataSet @@ -117,6 +124,7 @@ Partial Class frmSQLEditor Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_CONSTRUCTORTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_TYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_FORM_VIEWTableAdapter = Nothing @@ -155,11 +163,15 @@ Partial Class frmSQLEditor ' 'btnTestSQL ' - Me.btnTestSQL.Location = New System.Drawing.Point(9, 700) + Me.btnTestSQL.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnTestSQL.Image = Global.DD_Record_Organiser.My.Resources.Resources.Go + Me.btnTestSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnTestSQL.Location = New System.Drawing.Point(954, 413) Me.btnTestSQL.Name = "btnTestSQL" - Me.btnTestSQL.Size = New System.Drawing.Size(266, 25) + Me.btnTestSQL.Size = New System.Drawing.Size(266, 29) Me.btnTestSQL.TabIndex = 7 Me.btnTestSQL.Text = "SQL Befehl testen" + Me.btnTestSQL.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnTestSQL.UseVisualStyleBackColor = True ' 'cmbPlaceholder @@ -195,10 +207,26 @@ Partial Class frmSQLEditor ' Me.dgvPlaceholders.AllowUserToAddRows = False Me.dgvPlaceholders.AllowUserToDeleteRows = False - DataGridViewCellStyle5.BackColor = System.Drawing.Color.Cyan - Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle7.BackColor = System.Drawing.Color.Cyan + Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle8.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvPlaceholders.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8 Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace}) + DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvPlaceholders.DefaultCellStyle = DataGridViewCellStyle9 Me.dgvPlaceholders.Enabled = False Me.dgvPlaceholders.Location = New System.Drawing.Point(9, 458) Me.dgvPlaceholders.Name = "dgvPlaceholders" @@ -220,9 +248,25 @@ Partial Class frmSQLEditor ' Me.dgvResult.AllowUserToAddRows = False Me.dgvResult.AllowUserToDeleteRows = False - DataGridViewCellStyle6.BackColor = System.Drawing.Color.Cyan - Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle10.BackColor = System.Drawing.Color.Cyan + Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle11.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvResult.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11 Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle12.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvResult.DefaultCellStyle = DataGridViewCellStyle12 Me.dgvResult.Location = New System.Drawing.Point(365, 458) Me.dgvResult.Name = "dgvResult" Me.dgvResult.ReadOnly = True diff --git a/app/DD-Record-Organiser/frmSQLEditor.vb b/app/DD-Record-Organiser/frmSQLEditor.vb index 13130ce..73545c7 100644 --- a/app/DD-Record-Organiser/frmSQLEditor.vb +++ b/app/DD-Record-Organiser/frmSQLEditor.vb @@ -175,16 +175,29 @@ Public Class frmSQLEditor End Sub Private Sub GetColumns(tableName As String, ByRef combobox As ComboBox) - Dim SQL As String = "SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('" & tableName & "') ORDER BY name" - Dim ds As DataSet = ExecuteWithConnection(cmbConnection.SelectedValue, SQL) + Try + Dim CS As String + CS = ClassDatabase.GetConnectionString(cmbConnection.SelectedValue) + Dim typeCS As String = ClassDatabase.Execute_Scalar("SELECT SQL_PROVIDER FROM TBDD_CONNECTION WHERE GUID = " & cmbConnection.SelectedValue, True) + Dim SQL As String + Dim DT As DataTable + If typeCS.ToUpper = "Oracle".ToUpper Then + SQL = "select COLUMN_NAME from USER_TAB_COLS where TABLE_NAME='" & tableName & "' order by COLUMN_NAME" + DT = ClassDatabase.Oracle_Return_Datatable(SQL, CS, True) + Else + SQL = "SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('" & tableName & "') ORDER BY name" + DT = ClassDatabase.Return_Datatable_CS(SQL, CS, True) + End If - If ds IsNot Nothing Then - combobox.Items.Clear() - - For Each row As DataRow In ds.Tables(0).Rows - combobox.Items.Add(row.Item(0)) - Next - End If + If DT IsNot Nothing Then + combobox.Items.Clear() + For Each row As DataRow In DT.Rows + combobox.Items.Add(row.Item(0)) + Next + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetColumns:") + End Try End Sub Private Sub GetColumns(tableName As String, ByRef combobox As DevExpress.XtraEditors.CheckedComboBoxEdit) diff --git a/app/DD-Record-Organiser/frmTestvb.Designer.vb b/app/DD-Record-Organiser/frmTestvb.Designer.vb new file mode 100644 index 0000000..253510b --- /dev/null +++ b/app/DD-Record-Organiser/frmTestvb.Designer.vb @@ -0,0 +1,85 @@ + _ +Partial Class frmTestvb + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.Button1 = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.SuspendLayout() + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(167, 174) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(75, 23) + Me.Button1.TabIndex = 4 + Me.Button1.Text = "medium" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(86, 174) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(75, 23) + Me.Button2.TabIndex = 5 + Me.Button2.Text = "small" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(248, 174) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(75, 23) + Me.Button3.TabIndex = 6 + Me.Button3.Text = "medium" + Me.Button3.UseVisualStyleBackColor = True + ' + 'Panel1 + ' + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(838, 69) + Me.Panel1.TabIndex = 7 + ' + 'frmTestvb + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(838, 261) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.Button3) + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.Button1) + Me.Name = "frmTestvb" + Me.Text = "frmTestvb" + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Panel1 As System.Windows.Forms.Panel +End Class diff --git a/app/DD-Record-Organiser/frmTestvb.resx b/app/DD-Record-Organiser/frmTestvb.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/app/DD-Record-Organiser/frmTestvb.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmTestvb.vb b/app/DD-Record-Organiser/frmTestvb.vb new file mode 100644 index 0000000..783cabb --- /dev/null +++ b/app/DD-Record-Organiser/frmTestvb.vb @@ -0,0 +1,60 @@ +Public Class frmTestvb + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + If CntrlExistsIn("btnEntity2", Panel1) = True Then + MsgBox("Control2 existiert") + End If + Dim btn As New Button + btn.Name = "btnEntity2" + btn.Text = "Button 2" + btn.Size = New Size(160, 45) + btn.FlatStyle = FlatStyle.Flat + btn.BackColor = Color.Goldenrod + btn.FlatAppearance.BorderColor = Color.Gold + Panel1.Controls.Add(btn) + btn.Location = New Point(177, 12) + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + If CntrlExistsIn("btnEntity1", Panel1) = True Then + MsgBox("Control1 existiert") + End If + Dim btn As New Button + btn.Name = "btnEntity1" + btn.Text = "Button 1" + btn.Size = New Size(160, 45) + btn.FlatStyle = FlatStyle.Flat + btn.BackColor = Color.DeepSkyBlue + btn.FlatAppearance.BorderColor = Color.LightSkyBlue + Panel1.Controls.Add(btn) + + btn.Location = New Point(6, 12) + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + If CntrlExistsIn("btnEntity3", Panel1) = True Then + MsgBox("Control3 existiert") + End If + Dim btn As New Button + btn.Name = "btnEntity3" + btn.Text = "Button 3" + btn.Size = New Size(160, 45) + btn.FlatStyle = FlatStyle.Flat + btn.BackColor = Color.DarkViolet + btn.FlatAppearance.BorderColor = Color.Plum + Panel1.Controls.Add(btn) + btn.Location = New Point(348, 12) + End Sub + Function CntrlExistsIn(ctrlName As String, parent As Control) As Boolean + Dim bResult As Boolean = False + + For Each elem As Control In parent.Controls + If elem.Name = ctrlName Then + bResult = True + Exit For + End If + Next + + Return bResult + End Function +End Class \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmTool_ControlDesigner.vb b/app/DD-Record-Organiser/frmTool_ControlDesigner.vb index f2716f6..1ca2b12 100644 --- a/app/DD-Record-Organiser/frmTool_ControlDesigner.vb +++ b/app/DD-Record-Organiser/frmTool_ControlDesigner.vb @@ -132,4 +132,10 @@ btnListBox.DoDragDrop("lstbx", DragDropEffects.Copy) End If End Sub + + Private Sub frmTool_ControlDesigner_Shown(sender As Object, e As EventArgs) Handles Me.Shown + If Me.WindowState = FormWindowState.Maximized Then + Me.WindowState = FormWindowState.Normal + End If + End Sub End Class \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmTool_ControlProperties.vb b/app/DD-Record-Organiser/frmTool_ControlProperties.vb index d4601a8..1df9f01 100644 --- a/app/DD-Record-Organiser/frmTool_ControlProperties.vb +++ b/app/DD-Record-Organiser/frmTool_ControlProperties.vb @@ -394,4 +394,10 @@ End If End If End Sub + + Private Sub frmTool_ControlProperties_Shown(sender As Object, e As EventArgs) Handles Me.Shown + If Me.WindowState = FormWindowState.Maximized Then + Me.WindowState = FormWindowState.Normal + End If + End Sub End Class \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmWD_Index_Dokart.vb b/app/DD-Record-Organiser/frmWD_Index_Dokart.vb index e944b65..6d2c599 100644 --- a/app/DD-Record-Organiser/frmWD_Index_Dokart.vb +++ b/app/DD-Record-Organiser/frmWD_Index_Dokart.vb @@ -75,7 +75,7 @@ Public Class frmWD_Index_Dokart If indexierung_erfolgreich = True Then If multiindex = False Then MsgBox("Datei erfolgreich nach windream übertragen", MsgBoxStyle.Information, "Erfolgsmeldung") ClassDatabase.Execute_Scalar("UPDATE TBPMO_FILES_USER SET WORKED = 1 WHERE GUID = " & CURRENT_FILEID) - frmForm_Constructor_OLD.tsstatus_Detail_show(True, "Datei erfolgreich nach windream übertragen") + frmForm_Constructor.tsstatus_Detail_show(True, "Datei erfolgreich nach windream übertragen") 'Die Originaldatei löschen If droptype = "dragdrop file" And indexierung_erfolgreich = True Then If chkdelete_origin.Checked = True Then diff --git a/app/SetupWiX/Product.wxs b/app/SetupWiX/Product.wxs index c4402b9..ea852a4 100644 --- a/app/SetupWiX/Product.wxs +++ b/app/SetupWiX/Product.wxs @@ -1,7 +1,7 @@ - +