diff --git a/app/DD_PM_WINDREAM/App.config b/app/DD_PM_WINDREAM/App.config index fef0f89..c5ec99d 100644 --- a/app/DD_PM_WINDREAM/App.config +++ b/app/DD_PM_WINDREAM/App.config @@ -6,11 +6,10 @@ - + - + diff --git a/app/DD_PM_WINDREAM/ClassControl.vb b/app/DD_PM_WINDREAM/ClassControl.vb deleted file mode 100644 index a2c3b2c..0000000 --- a/app/DD_PM_WINDREAM/ClassControl.vb +++ /dev/null @@ -1,40 +0,0 @@ -Public Class ClassControl - Private props As BaseProperties - Private ctrl As Control - - Public Sub New(control As Control) - ctrl = control - - If TypeOf control Is Label Then - props = CreateBasePropertyObject(New LabelProperties()) - ElseIf TypeOf control Is TextBox Then - props = CreateBasePropertyObject(New TextboxProperties()) - End If - End Sub - - Public ReadOnly Property Control As Control - Get - Return ctrl - End Get - End Property - - Public Property Properties As BaseProperties - Get - Return props - End Get - Set(value As BaseProperties) - props = value - End Set - End Property - - Private Function CreateBasePropertyObject(obj As BaseProperties) As BaseProperties - obj.ID = ctrl.Tag - obj.Name = ctrl.Name - obj.Location = ctrl.Location - obj.Width = ctrl.Width - obj.Height = ctrl.Height - - Return obj - End Function - -End Class diff --git a/app/DD_PM_WINDREAM/ClassControls.vb b/app/DD_PM_WINDREAM/ClassControls.vb deleted file mode 100644 index 393b6a3..0000000 --- a/app/DD_PM_WINDREAM/ClassControls.vb +++ /dev/null @@ -1,52 +0,0 @@ -Public Class ClassControls - Private controls As List(Of ClassControl) - - Public Sub New() - controls = New List(Of ClassControl) - End Sub - - Public Sub Load(datatable As DataTable) - - For Each row As DataRow In datatable.Rows - Dim type As String = row.Item("CTRL_TYPE") - Dim guid As Integer = row.Item("GUID") - Dim name As String = row.Item("NAME") - Dim location As New Point(row.Item("X_LOC"), row.Item("Y_LOC")) - Dim width As Integer = row.Item("WIDTH") - Dim height As Integer = row.Item("HEIGHT") - Dim text As String = row.Item("CTRL_TEXT") - - Dim control As ClassControl - - Select Case type - Case "TXT" - Dim textbox = AddTextbox(guid, name, height, width, location) - control = New ClassControl(textbox) - End Select - - - - - - Next - - End Sub - - Public Function GetAll() As List(Of ClassControl) - Return controls - End Function - - Public Function GetById() As ClassControl - - End Function - - Private Function AddTextbox(id As Integer, name As String, height As Integer, width As Integer, location As Point) - Dim textbox As New TextBox() - - textbox.Tag = id - textbox.Name = name - textbox.Height = height - textbox.Width = width - textbox.Location = location - End Function -End Class diff --git a/app/DD_PM_WINDREAM/ClassPMWindream.vb b/app/DD_PM_WINDREAM/ClassPMWindream.vb index 064b323..d0c1c8b 100644 --- a/app/DD_PM_WINDREAM/ClassPMWindream.vb +++ b/app/DD_PM_WINDREAM/ClassPMWindream.vb @@ -1,5 +1,6 @@ Imports WINDREAMLib Imports WMOSRCHLib + Public Class ClassPMWindream Inherits ClassWindream_allgemein 'Private email As New ClassNIEmail diff --git a/app/DD_PM_WINDREAM/ClassSQLEditor.vb b/app/DD_PM_WINDREAM/ClassSQLEditor.vb new file mode 100644 index 0000000..a70dc77 --- /dev/null +++ b/app/DD_PM_WINDREAM/ClassSQLEditor.vb @@ -0,0 +1,30 @@ +Imports System.ComponentModel +Imports System.Drawing.Design +Imports System.Windows.Forms.Design +Imports DD_PM_WINDREAM.InputProperties + +Public Class ClassSQLEditor + Inherits UITypeEditor + + Public Overrides Function GetEditStyle(context As ITypeDescriptorContext) As UITypeEditorEditStyle + Return UITypeEditorEditStyle.Modal + End Function + + Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object + 'Return MyBase.EditValue(context, provider, value) + Dim svc As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService) + Dim SQLSTring As String = DirectCast(value, SQLValue).Value + + If svc IsNot Nothing AndAlso SQLSTring IsNot Nothing Then + Using Form As New frmSQL_DESIGNER() + Form.Value = SQLSTring + If svc.ShowDialog(Form) = DialogResult.OK Then + Dim sql As New SQLValue(Form.Value) + value = sql + End If + End Using + End If + + Return value + End Function +End Class diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index dde1daa..d8beaa7 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -1,5 +1,5 @@  - + Debug x86 @@ -13,7 +13,7 @@ DD_PM_WINDREAM 512 WindowsForms - v4.0 + v4.5.1 @@ -56,6 +56,10 @@ PM_ohne_slogan_128px.ico + + False + ..\..\..\DDLibStandards\DD_LIB_Standards\bin\Debug\DD_LIB_Standards.dll + False @@ -110,7 +114,7 @@ D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraTreeList.v15.2.dll - ..\..\..\LizenzManager\LizenzManager\bin\Debug\DLLLicenseManager.dll + P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll False @@ -150,10 +154,9 @@ - - + frmAbout.vb @@ -273,6 +276,7 @@ Form + diff --git a/app/DD_PM_WINDREAM/ModuleControlProperties.vb b/app/DD_PM_WINDREAM/ModuleControlProperties.vb index b806516..626cce7 100644 --- a/app/DD_PM_WINDREAM/ModuleControlProperties.vb +++ b/app/DD_PM_WINDREAM/ModuleControlProperties.vb @@ -1,14 +1,23 @@ Imports System.ComponentModel +Imports System.Drawing.Design +Imports System.Globalization Public Module ModuleControlProperties - Private _id As Integer - Private _name As String - Private _location As Point - Private _width As Integer - Private _height As Integer + Public Enum IndexTypes + SimpleIndex = 0 + VectorIndex = 1 + End Enum Public Class BaseProperties - + Private _id As Integer + Private _name As String + Private _location As Point + Private _size As Size + Private _font As Font + Private _text_color As Color + + + <[ReadOnly](True)> Public Property ID() As Integer Get Return _id @@ -18,6 +27,7 @@ Public Module ModuleControlProperties End Set End Property + Public Property Name() As String Get Return _name @@ -27,6 +37,7 @@ Public Module ModuleControlProperties End Set End Property + Public Property Location() As Point Get Return _location @@ -36,48 +47,183 @@ Public Module ModuleControlProperties End Set End Property - Public Property Width() As Integer + + Public Property Size() As Size Get - Return _width + Return _size End Get - Set(value As Integer) - _width = value + Set(value As Size) + _size = value End Set End Property - Public Property Height() As Integer + + + Public Property Font As Font Get - Return _height + Return _font End Get - Set(value As Integer) - _height = value + Set(value As Font) + _font = value End Set End Property + + + Public Property TextColor As Color + Get + Return _text_color + End Get + Set(value As Color) + _text_color = value + End Set + End Property + + Class FontConverter + Inherits TypeConverter + + Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object + Dim font = DirectCast(value, Font) + Return $"{font.Name}, {font.Size}" + End Function + End Class End Class - Public Class TextboxProperties + Public Class InputProperties Inherits BaseProperties Private _required As Boolean Private _read_only As Boolean + Private _index_type As String + Private _indicies As List(Of String) + Private _index As String + Private _sql_command As String - Public Property Required() As String + Public Property Required() As Boolean Get Return _required End Get - Set(ByVal value As String) + Set(ByVal value As Boolean) _required = value End Set End Property - Public Property [ReadOnly]() As String + Public Property [ReadOnly]() As Boolean Get Return _read_only End Get - Set(ByVal value As String) + Set(ByVal value As Boolean) _read_only = value End Set End Property + + + Public Property IndexType() As IndexTypes + Get + Return _index_type + End Get + Set(ByVal value As IndexTypes) + _index_type = value + End Set + End Property + + ''' + ''' Diese Eigenschaft enthält die auswählbaren Indicies, die für das Control verfügbar sind. Wird nicht direkt angezeigt. + ''' + + Public Property Indicies() As List(Of String) + Get + Return _indicies + End Get + Set(ByVal value As List(Of String)) + _indicies = value + End Set + End Property + + ''' + ''' Diese Eigenschaft enthält des ausgewählten Index + ''' + + + Public Property Index() As String + Get + Return _index + End Get + Set(value As String) + _index = value + End Set + End Property + + + Public Property SQLCommand() As SQLValue + Get + Return New SQLValue(NotNull(_sql_command, "")) + End Get + Set(ByVal value As SQLValue) + _sql_command = value.Value + End Set + End Property + + ''' + ''' Sorgt dafür, dass die Liste von Indicies aus dem gleichnamigen Feld ausgelesen wird + ''' + Public Class IndexListConverter + Inherits TypeConverter + + Public Overrides Function GetStandardValuesSupported(context As ITypeDescriptorContext) As Boolean + Return True + End Function + + Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection + Dim indexList = DirectCast(context.Instance, InputProperties).Indicies + Dim values As New StandardValuesCollection(indexList) + Return values + End Function + + Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object + If IsNothing(value) Then + Return "" + Else + Return value.ToString() + End If + End Function + End Class + + Public Class SQLTypeConverter + Inherits TypeConverter + + Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As Globalization.CultureInfo, value As Object, destinationType As Type) As Object + 'Return MyBase.ConvertTo(context, culture, value, destinationType) + Dim sqlvalue As SQLValue = DirectCast(value, SQLValue) + Return sqlvalue.Value + End Function + End Class + + ''' + ''' Hilfsklasse, die für das anzeigen und abspeichern von SQL-Befehlen verwendet wird + ''' + + + Public Class SQLValue + Private _value As String + + Public Sub New(value As String) + Me.Value = value + End Sub + + Public Property Value As String + Get + Return _value + End Get + Set(value As String) + _value = value + End Set + End Property + End Class + End Class + + Public Class TextboxProperties + Inherits InputProperties + End Class Public Class LabelProperties @@ -85,6 +231,7 @@ Public Module ModuleControlProperties Private _text As String + Public Property Text() As String Get Return _text @@ -96,10 +243,11 @@ Public Module ModuleControlProperties End Class Public Class CheckboxProperties - Inherits BaseProperties + Inherits InputProperties Private _text As String + Public Property Text() As String Get Return _text @@ -110,4 +258,72 @@ Public Module ModuleControlProperties End Property End Class + Public Class ComboboxProperties + Inherits InputProperties + + Private _text As String + Private _choice_list As String + Private _choice_lists As List(Of String) + + + Public Property Text() As String + Get + Return _text + End Get + Set(value As String) + _text = value + End Set + End Property + + + Public Property ChoiceLists() As List(Of String) + Get + Return _choice_lists + End Get + Set(value As List(Of String)) + _choice_lists = value + End Set + End Property + + + + Public Property ChoiceList() As String + Get + Return _choice_list + End Get + Set(value As String) + _choice_list = value + End Set + End Property + + Public Class ChoiceListConverter + Inherits TypeConverter + + Public Overrides Function GetStandardValuesSupported(context As ITypeDescriptorContext) As Boolean + Return True + End Function + + Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection + Dim choiceListList = DirectCast(context.Instance, ComboboxProperties).ChoiceLists + Dim values As New StandardValuesCollection(choiceListList) + Return values + End Function + + Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object + If IsNothing(value) Then + Return "" + Else + Return value.ToString() + End If + End Function + End Class + End Class + + Public Class DatepickerProperties + Inherits InputProperties + End Class + + Public Class GridViewProperties + Inherits InputProperties + End Class End Module diff --git a/app/DD_PM_WINDREAM/ModuleHelperMethods.vb b/app/DD_PM_WINDREAM/ModuleHelperMethods.vb new file mode 100644 index 0000000..0a95b6b --- /dev/null +++ b/app/DD_PM_WINDREAM/ModuleHelperMethods.vb @@ -0,0 +1,50 @@ +Module ModuleHelperMethods + ''' + ''' Überprüft einen Wert auf verschiedene Arten von "Null"-Werten + ''' + ''' Der zu überprüfende Wert + ''' Der Standard Wert + ''' value oder wenn dieser "Null" ist, defaultValue + Public Function NotNull(Of T)(ByVal value As T, ByVal defaultValue As T) As T + If IsNothing(value) OrElse String.IsNullOrEmpty(value.ToString) OrElse IsDBNull(value) Then + Return defaultValue + Else + Return value + End If + End Function + + ''' + ''' Versucht einen String in einen Boolean zu konvertieren + ''' + ''' Der zu konvertierende String + ''' Den umgewandelten Wert oder Falsche + Public Function StrToBool(str As Object) As Boolean + Dim result As Boolean = False + + str = TryCast(str, String) + + Try + result = Convert.ToBoolean(str) + Catch ex As Exception + result = False + End Try + + Return result + End Function + + ''' + ''' Konvertiert eine Farbe in den entsprechenden Integer Wert + ''' + Public Function ColorToInt(color As Color) As Integer + Return ColorTranslator.ToWin32(color) + End Function + + ''' + ''' Konvertiert eine Zahl in die entsprechende Farbe + ''' + Public Function IntToColor(int As Integer) As Color + Return ColorTranslator.FromWin32(int) + End Function +End Module + + diff --git a/app/DD_PM_WINDREAM/My Project/Application.Designer.vb b/app/DD_PM_WINDREAM/My Project/Application.Designer.vb index b89a52d..c74e261 100644 --- a/app/DD_PM_WINDREAM/My Project/Application.Designer.vb +++ b/app/DD_PM_WINDREAM/My Project/Application.Designer.vb @@ -1,7 +1,7 @@ '------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.34014 +' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. @@ -14,8 +14,8 @@ Option Explicit On Namespace My - 'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern - ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer. + 'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten + ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer. ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. ' diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb index 072b919..e8c10ac 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb @@ -23,24 +23,12 @@ Partial Class frmFormDesigner _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim X_LOCLabel As System.Windows.Forms.Label - Dim Y_LOCLabel As System.Windows.Forms.Label Dim CHANGED_WHOLabel As System.Windows.Forms.Label Dim CHANGED_WHENLabel As System.Windows.Forms.Label - Dim HEIGHTLabel As System.Windows.Forms.Label - Dim WIDTHLabel As System.Windows.Forms.Label - Dim GUIDLabel As System.Windows.Forms.Label Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFormDesigner)) Me.Panel1 = New System.Windows.Forms.Panel() Me.lblDesign = New System.Windows.Forms.Label() Me.GroupBox1 = New System.Windows.Forms.GroupBox() - Me.btnTabelle = New System.Windows.Forms.Button() - Me.btnCheckbox = New System.Windows.Forms.Button() - Me.btnVektor = New System.Windows.Forms.Button() - Me.btndtp = New System.Windows.Forms.Button() - Me.btncmb = New System.Windows.Forms.Button() - Me.btntextbox = New System.Windows.Forms.Button() - Me.btnlabel = New System.Windows.Forms.Button() Me.pnldesigner = New System.Windows.Forms.Panel() Me.Label1 = New System.Windows.Forms.Label() Me.lblhintergrund = New System.Windows.Forms.Label() @@ -48,8 +36,6 @@ Partial Class frmFormDesigner Me.TabControlEigenschaften = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.LOAD_IDX_VALUECheckBox = New System.Windows.Forms.CheckBox() - Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() Me.READ_ONLYCheckBox = New System.Windows.Forms.CheckBox() Me.INDEX_NAME_VALUE = New System.Windows.Forms.TextBox() Me.rbVektor = New System.Windows.Forms.RadioButton() @@ -66,93 +52,72 @@ Partial Class frmFormDesigner Me.lblAuswahlliste = New System.Windows.Forms.Label() Me.INDEX_NAMETextBox = New System.Windows.Forms.TextBox() Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.btnheight_minus = New System.Windows.Forms.Button() - Me.btnheight_plus = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() - Me.btnwidth_minus = New System.Windows.Forms.Button() - Me.btnwidth_plus = New System.Windows.Forms.Button() Me.Label2 = New System.Windows.Forms.Label() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.pnlAuswahlliste = New System.Windows.Forms.Panel() - Me.btnEditor = New System.Windows.Forms.Button() - Me.btnShowConnections = New System.Windows.Forms.Button() Me.SQL_CommandTextBox = New System.Windows.Forms.TextBox() Me.Label5 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.cmbConnection = New System.Windows.Forms.ComboBox() - Me.TBPM_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TabPage4 = New System.Windows.Forms.TabPage() Me.pgControls = New System.Windows.Forms.PropertyGrid() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() + Me.btnrefresh = New System.Windows.Forms.Button() + Me.tslblAenderungen = New System.Windows.Forms.ToolStripStatusLabel() + Me.btnheight_minus = New System.Windows.Forms.Button() + Me.btnheight_plus = New System.Windows.Forms.Button() + Me.btnwidth_minus = New System.Windows.Forms.Button() + Me.btnwidth_plus = New System.Windows.Forms.Button() + Me.btnEditor = New System.Windows.Forms.Button() + Me.btnShowConnections = New System.Windows.Forms.Button() + Me.TBPM_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.btndelete = New System.Windows.Forms.Button() Me.btnsave = New System.Windows.Forms.Button() - Me.X_LOCTextBox = New System.Windows.Forms.TextBox() - Me.Y_LOCTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.btnTabelle = New System.Windows.Forms.Button() + Me.btnCheckbox = New System.Windows.Forms.Button() + Me.btnVektor = New System.Windows.Forms.Button() + Me.btndtp = New System.Windows.Forms.Button() + Me.btncmb = New System.Windows.Forms.Button() + Me.btntextbox = New System.Windows.Forms.Button() + Me.btnlabel = New System.Windows.Forms.Button() Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter() Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() - Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() - Me.tslblAenderungen = New System.Windows.Forms.ToolStripStatusLabel() - Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.HEIGHTTextBox = New System.Windows.Forms.TextBox() - Me.WIDTHTextBox = New System.Windows.Forms.TextBox() Me.TBPM_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONNECTIONTableAdapter() Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBWH_CHECK_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBWH_CHECK_PROFILE_CONTROLSTableAdapter() - Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_CONTROL_TABLETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter() - Me.btnrefresh = New System.Windows.Forms.Button() - Me.GUIDTextBox = New System.Windows.Forms.TextBox() - X_LOCLabel = New System.Windows.Forms.Label() - Y_LOCLabel = New System.Windows.Forms.Label() CHANGED_WHOLabel = New System.Windows.Forms.Label() CHANGED_WHENLabel = New System.Windows.Forms.Label() - HEIGHTLabel = New System.Windows.Forms.Label() - WIDTHLabel = New System.Windows.Forms.Label() - GUIDLabel = New System.Windows.Forms.Label() Me.Panel1.SuspendLayout() Me.GroupBox1.SuspendLayout() Me.pnldesigner.SuspendLayout() Me.gbxControl.SuspendLayout() Me.TabControlEigenschaften.SuspendLayout() Me.TabPage1.SuspendLayout() - CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage2.SuspendLayout() Me.TabPage3.SuspendLayout() Me.pnlAuswahlliste.SuspendLayout() - CType(Me.TBPM_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage4.SuspendLayout() Me.StatusStrip1.SuspendLayout() + CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPM_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' - 'X_LOCLabel - ' - X_LOCLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - X_LOCLabel.AutoSize = True - X_LOCLabel.Location = New System.Drawing.Point(12, 412) - X_LOCLabel.Name = "X_LOCLabel" - X_LOCLabel.Size = New System.Drawing.Size(72, 16) - X_LOCLabel.TabIndex = 14 - X_LOCLabel.Text = "Location X:" - ' - 'Y_LOCLabel - ' - Y_LOCLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Y_LOCLabel.AutoSize = True - Y_LOCLabel.Location = New System.Drawing.Point(134, 412) - Y_LOCLabel.Name = "Y_LOCLabel" - Y_LOCLabel.Size = New System.Drawing.Size(71, 16) - Y_LOCLabel.TabIndex = 16 - Y_LOCLabel.Text = "Location Y:" - ' 'CHANGED_WHOLabel ' CHANGED_WHOLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) CHANGED_WHOLabel.AutoSize = True - CHANGED_WHOLabel.Location = New System.Drawing.Point(12, 464) + CHANGED_WHOLabel.Location = New System.Drawing.Point(12, 499) CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" CHANGED_WHOLabel.Size = New System.Drawing.Size(91, 16) CHANGED_WHOLabel.TabIndex = 18 @@ -162,41 +127,12 @@ Partial Class frmFormDesigner ' CHANGED_WHENLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) CHANGED_WHENLabel.AutoSize = True - CHANGED_WHENLabel.Location = New System.Drawing.Point(250, 464) + CHANGED_WHENLabel.Location = New System.Drawing.Point(250, 499) CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" CHANGED_WHENLabel.Size = New System.Drawing.Size(98, 16) CHANGED_WHENLabel.TabIndex = 20 CHANGED_WHENLabel.Text = "Changed when:" ' - 'HEIGHTLabel - ' - HEIGHTLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - HEIGHTLabel.AutoSize = True - HEIGHTLabel.Location = New System.Drawing.Point(250, 412) - HEIGHTLabel.Name = "HEIGHTLabel" - HEIGHTLabel.Size = New System.Drawing.Size(49, 16) - HEIGHTLabel.TabIndex = 21 - HEIGHTLabel.Text = "Height:" - ' - 'WIDTHLabel - ' - WIDTHLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - WIDTHLabel.AutoSize = True - WIDTHLabel.Location = New System.Drawing.Point(328, 412) - WIDTHLabel.Name = "WIDTHLabel" - WIDTHLabel.Size = New System.Drawing.Size(46, 16) - WIDTHLabel.TabIndex = 22 - WIDTHLabel.Text = "Width:" - ' - 'GUIDLabel - ' - GUIDLabel.AutoSize = True - GUIDLabel.Location = New System.Drawing.Point(12, 515) - GUIDLabel.Name = "GUIDLabel" - GUIDLabel.Size = New System.Drawing.Size(25, 16) - GUIDLabel.TabIndex = 24 - GUIDLabel.Text = "ID:" - ' 'Panel1 ' Me.Panel1.Controls.Add(Me.lblDesign) @@ -236,97 +172,6 @@ Partial Class frmFormDesigner Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Control-Typ (Drag and Drop)" ' - 'btnTabelle - ' - Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnTabelle.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add - Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnTabelle.Location = New System.Drawing.Point(290, 55) - Me.btnTabelle.Name = "btnTabelle" - Me.btnTabelle.Size = New System.Drawing.Size(103, 29) - Me.btnTabelle.TabIndex = 6 - Me.btnTabelle.Text = "Tabelle" - Me.btnTabelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnTabelle.UseVisualStyleBackColor = True - ' - 'btnCheckbox - ' - Me.btnCheckbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnCheckbox.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.checkbox_16xLG - Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCheckbox.Location = New System.Drawing.Point(151, 90) - Me.btnCheckbox.Name = "btnCheckbox" - Me.btnCheckbox.Size = New System.Drawing.Size(133, 31) - Me.btnCheckbox.TabIndex = 5 - Me.btnCheckbox.Text = "Checkbox" - Me.btnCheckbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnCheckbox.UseVisualStyleBackColor = True - ' - 'btnVektor - ' - Me.btnVektor.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnVektor.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add - Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVektor.Location = New System.Drawing.Point(151, 55) - Me.btnVektor.Name = "btnVektor" - Me.btnVektor.Size = New System.Drawing.Size(133, 29) - Me.btnVektor.TabIndex = 4 - Me.btnVektor.Text = "Mehrfach-/Vektorfeld" - Me.btnVektor.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnVektor.UseVisualStyleBackColor = True - ' - 'btndtp - ' - Me.btndtp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btndtp.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.DateOrTimePicker_675 - Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btndtp.Location = New System.Drawing.Point(151, 22) - Me.btndtp.Name = "btndtp" - Me.btndtp.Size = New System.Drawing.Size(133, 27) - Me.btndtp.TabIndex = 3 - Me.btndtp.Text = "DatePicker" - Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btndtp.UseVisualStyleBackColor = True - ' - 'btncmb - ' - Me.btncmb.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btncmb.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.ComboBox_16xLG - Me.btncmb.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btncmb.Location = New System.Drawing.Point(12, 90) - Me.btncmb.Name = "btncmb" - Me.btncmb.Size = New System.Drawing.Size(133, 31) - Me.btncmb.TabIndex = 2 - Me.btncmb.Text = "Combobox" - Me.btncmb.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btncmb.UseVisualStyleBackColor = True - ' - 'btntextbox - ' - Me.btntextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btntextbox.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.TextBox_708 - Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btntextbox.Location = New System.Drawing.Point(13, 55) - Me.btntextbox.Name = "btntextbox" - Me.btntextbox.Size = New System.Drawing.Size(133, 29) - Me.btntextbox.TabIndex = 1 - Me.btntextbox.Text = "Textbox" - Me.btntextbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btntextbox.UseVisualStyleBackColor = True - ' - 'btnlabel - ' - Me.btnlabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnlabel.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Label_684 - Me.btnlabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnlabel.Location = New System.Drawing.Point(12, 22) - Me.btnlabel.Name = "btnlabel" - Me.btnlabel.Size = New System.Drawing.Size(133, 27) - Me.btnlabel.TabIndex = 0 - Me.btnlabel.Text = "Label" - Me.btnlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnlabel.UseVisualStyleBackColor = True - ' 'pnldesigner ' Me.pnldesigner.AllowDrop = True @@ -433,16 +278,6 @@ Partial Class frmFormDesigner Me.ToolTip1.SetToolTip(Me.LOAD_IDX_VALUECheckBox, "Die im zugrundeliegenden Index gepeicherten" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Daten werden nicht angezeigt") Me.LOAD_IDX_VALUECheckBox.UseVisualStyleBackColor = True ' - 'TBPM_PROFILE_CONTROLSBindingSource - ' - Me.TBPM_PROFILE_CONTROLSBindingSource.DataMember = "TBPM_PROFILE_CONTROLS" - Me.TBPM_PROFILE_CONTROLSBindingSource.DataSource = Me.DD_DMSLiteDataSet - ' - 'DD_DMSLiteDataSet - ' - Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" - Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' 'READ_ONLYCheckBox ' Me.READ_ONLYCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_PROFILE_CONTROLSBindingSource, "READ_ONLY", True)) @@ -598,7 +433,7 @@ Partial Class frmFormDesigner ' 'INDEX_NAMETextBox ' - Me.INDEX_NAMETextBox.Location = New System.Drawing.Point(6, 104) + Me.INDEX_NAMETextBox.Location = New System.Drawing.Point(6, 103) Me.INDEX_NAMETextBox.Name = "INDEX_NAMETextBox" Me.INDEX_NAMETextBox.Size = New System.Drawing.Size(319, 23) Me.INDEX_NAMETextBox.TabIndex = 16 @@ -609,9 +444,9 @@ Partial Class frmFormDesigner Me.TabPage2.Controls.Add(Me.btnheight_minus) Me.TabPage2.Controls.Add(Me.btnheight_plus) Me.TabPage2.Controls.Add(Me.Label3) + Me.TabPage2.Controls.Add(Me.Label2) Me.TabPage2.Controls.Add(Me.btnwidth_minus) Me.TabPage2.Controls.Add(Me.btnwidth_plus) - Me.TabPage2.Controls.Add(Me.Label2) Me.TabPage2.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.TabPage2.Location = New System.Drawing.Point(4, 25) Me.TabPage2.Name = "TabPage2" @@ -621,32 +456,6 @@ Partial Class frmFormDesigner Me.TabPage2.Text = "Format" Me.TabPage2.UseVisualStyleBackColor = True ' - 'btnheight_minus - ' - Me.btnheight_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnheight_minus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_out - Me.btnheight_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnheight_minus.Location = New System.Drawing.Point(94, 69) - Me.btnheight_minus.Name = "btnheight_minus" - Me.btnheight_minus.Size = New System.Drawing.Size(75, 25) - Me.btnheight_minus.TabIndex = 1 - Me.btnheight_minus.Text = "kleiner" - Me.btnheight_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnheight_minus.UseVisualStyleBackColor = True - ' - 'btnheight_plus - ' - Me.btnheight_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnheight_plus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_in - Me.btnheight_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnheight_plus.Location = New System.Drawing.Point(13, 69) - Me.btnheight_plus.Name = "btnheight_plus" - Me.btnheight_plus.Size = New System.Drawing.Size(75, 25) - Me.btnheight_plus.TabIndex = 0 - Me.btnheight_plus.Text = "größer" - Me.btnheight_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnheight_plus.UseVisualStyleBackColor = True - ' 'Label3 ' Me.Label3.AutoSize = True @@ -656,32 +465,6 @@ Partial Class frmFormDesigner Me.Label3.TabIndex = 5 Me.Label3.Text = "Höhe:" ' - 'btnwidth_minus - ' - Me.btnwidth_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnwidth_minus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_out - Me.btnwidth_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnwidth_minus.Location = New System.Drawing.Point(94, 22) - Me.btnwidth_minus.Name = "btnwidth_minus" - Me.btnwidth_minus.Size = New System.Drawing.Size(75, 25) - Me.btnwidth_minus.TabIndex = 1 - Me.btnwidth_minus.Text = "kleiner" - Me.btnwidth_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnwidth_minus.UseVisualStyleBackColor = True - ' - 'btnwidth_plus - ' - Me.btnwidth_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnwidth_plus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_in - Me.btnwidth_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnwidth_plus.Location = New System.Drawing.Point(13, 22) - Me.btnwidth_plus.Name = "btnwidth_plus" - Me.btnwidth_plus.Size = New System.Drawing.Size(75, 25) - Me.btnwidth_plus.TabIndex = 0 - Me.btnwidth_plus.Text = "größer" - Me.btnwidth_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnwidth_plus.UseVisualStyleBackColor = True - ' 'Label2 ' Me.Label2.AutoSize = True @@ -717,33 +500,6 @@ Partial Class frmFormDesigner Me.pnlAuswahlliste.Size = New System.Drawing.Size(441, 228) Me.pnlAuswahlliste.TabIndex = 2 ' - 'btnEditor - ' - Me.btnEditor.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.btnEditor.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnEditor.Image = CType(resources.GetObject("btnEditor.Image"), System.Drawing.Image) - Me.btnEditor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnEditor.Location = New System.Drawing.Point(6, 197) - Me.btnEditor.Name = "btnEditor" - Me.btnEditor.Size = New System.Drawing.Size(114, 28) - Me.btnEditor.TabIndex = 81 - Me.btnEditor.Text = "Editor Detail" - Me.btnEditor.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnEditor.UseVisualStyleBackColor = True - ' - 'btnShowConnections - ' - Me.btnShowConnections.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnShowConnections.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go1 - Me.btnShowConnections.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnShowConnections.Location = New System.Drawing.Point(271, 30) - Me.btnShowConnections.Name = "btnShowConnections" - Me.btnShowConnections.Size = New System.Drawing.Size(111, 24) - Me.btnShowConnections.TabIndex = 6 - Me.btnShowConnections.Text = "Connections" - Me.btnShowConnections.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnShowConnections.UseVisualStyleBackColor = True - ' 'SQL_CommandTextBox ' Me.SQL_CommandTextBox.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ @@ -790,20 +546,15 @@ Partial Class frmFormDesigner Me.cmbConnection.TabIndex = 0 Me.cmbConnection.ValueMember = "GUID" ' - 'TBPM_CONNECTIONBindingSource - ' - Me.TBPM_CONNECTIONBindingSource.DataMember = "TBPM_CONNECTION" - Me.TBPM_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet - ' 'TabPage4 ' Me.TabPage4.Controls.Add(Me.pgControls) - Me.TabPage4.Location = New System.Drawing.Point(4, 25) + Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Name = "TabPage4" Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage4.Size = New System.Drawing.Size(447, 234) + Me.TabPage4.Size = New System.Drawing.Size(447, 237) Me.TabPage4.TabIndex = 3 - Me.TabPage4.Text = "TabPage4" + Me.TabPage4.Text = "Eigenschaften" Me.TabPage4.UseVisualStyleBackColor = True ' 'pgControls @@ -815,6 +566,147 @@ Partial Class frmFormDesigner Me.pgControls.Size = New System.Drawing.Size(441, 228) Me.pgControls.TabIndex = 0 ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(15, 518) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(222, 23) + Me.CHANGED_WHOTextBox.TabIndex = 19 + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblAenderungen}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 556) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(995, 22) + Me.StatusStrip1.TabIndex = 20 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(253, 518) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(159, 23) + Me.CHANGED_WHENTextBox.TabIndex = 21 + ' + 'TBPM_PROFILE_CONTROLSBindingSource + ' + Me.TBPM_PROFILE_CONTROLSBindingSource.DataMember = "TBPM_PROFILE_CONTROLS" + Me.TBPM_PROFILE_CONTROLSBindingSource.DataSource = Me.DD_DMSLiteDataSet + ' + 'DD_DMSLiteDataSet + ' + Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" + Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'btnrefresh + ' + Me.btnrefresh.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.arrow_refresh + Me.btnrefresh.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnrefresh.Location = New System.Drawing.Point(415, 41) + Me.btnrefresh.Name = "btnrefresh" + Me.btnrefresh.Size = New System.Drawing.Size(81, 23) + Me.btnrefresh.TabIndex = 24 + Me.btnrefresh.Text = "Refresh" + Me.btnrefresh.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnrefresh.UseVisualStyleBackColor = True + ' + 'tslblAenderungen + ' + Me.tslblAenderungen.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_red + Me.tslblAenderungen.Name = "tslblAenderungen" + Me.tslblAenderungen.Size = New System.Drawing.Size(153, 17) + Me.tslblAenderungen.Text = "Änderungen gespeichert" + Me.tslblAenderungen.Visible = False + ' + 'btnheight_minus + ' + Me.btnheight_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnheight_minus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_out + Me.btnheight_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnheight_minus.Location = New System.Drawing.Point(94, 69) + Me.btnheight_minus.Name = "btnheight_minus" + Me.btnheight_minus.Size = New System.Drawing.Size(75, 25) + Me.btnheight_minus.TabIndex = 1 + Me.btnheight_minus.Text = "kleiner" + Me.btnheight_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnheight_minus.UseVisualStyleBackColor = True + ' + 'btnheight_plus + ' + Me.btnheight_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnheight_plus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_in + Me.btnheight_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnheight_plus.Location = New System.Drawing.Point(13, 69) + Me.btnheight_plus.Name = "btnheight_plus" + Me.btnheight_plus.Size = New System.Drawing.Size(75, 25) + Me.btnheight_plus.TabIndex = 0 + Me.btnheight_plus.Text = "größer" + Me.btnheight_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnheight_plus.UseVisualStyleBackColor = True + ' + 'btnwidth_minus + ' + Me.btnwidth_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnwidth_minus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_out + Me.btnwidth_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnwidth_minus.Location = New System.Drawing.Point(94, 22) + Me.btnwidth_minus.Name = "btnwidth_minus" + Me.btnwidth_minus.Size = New System.Drawing.Size(75, 25) + Me.btnwidth_minus.TabIndex = 1 + Me.btnwidth_minus.Text = "kleiner" + Me.btnwidth_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnwidth_minus.UseVisualStyleBackColor = True + ' + 'btnwidth_plus + ' + Me.btnwidth_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnwidth_plus.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.zoom_in + Me.btnwidth_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnwidth_plus.Location = New System.Drawing.Point(13, 22) + Me.btnwidth_plus.Name = "btnwidth_plus" + Me.btnwidth_plus.Size = New System.Drawing.Size(75, 25) + Me.btnwidth_plus.TabIndex = 0 + Me.btnwidth_plus.Text = "größer" + Me.btnwidth_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnwidth_plus.UseVisualStyleBackColor = True + ' + 'btnEditor + ' + Me.btnEditor.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btnEditor.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnEditor.Image = CType(resources.GetObject("btnEditor.Image"), System.Drawing.Image) + Me.btnEditor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnEditor.Location = New System.Drawing.Point(6, 197) + Me.btnEditor.Name = "btnEditor" + Me.btnEditor.Size = New System.Drawing.Size(114, 28) + Me.btnEditor.TabIndex = 81 + Me.btnEditor.Text = "Editor Detail" + Me.btnEditor.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnEditor.UseVisualStyleBackColor = True + ' + 'btnShowConnections + ' + Me.btnShowConnections.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnShowConnections.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go1 + Me.btnShowConnections.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnShowConnections.Location = New System.Drawing.Point(271, 30) + Me.btnShowConnections.Name = "btnShowConnections" + Me.btnShowConnections.Size = New System.Drawing.Size(111, 24) + Me.btnShowConnections.TabIndex = 6 + Me.btnShowConnections.Text = "Connections" + Me.btnShowConnections.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnShowConnections.UseVisualStyleBackColor = True + ' + 'TBPM_CONNECTIONBindingSource + ' + Me.TBPM_CONNECTIONBindingSource.DataMember = "TBPM_CONNECTION" + Me.TBPM_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet + ' 'btndelete ' Me.btndelete.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) @@ -842,34 +734,96 @@ Partial Class frmFormDesigner Me.btnsave.UseVisualStyleBackColor = True Me.btnsave.Visible = False ' - 'X_LOCTextBox + 'btnTabelle ' - Me.X_LOCTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.X_LOCTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "X_LOC", True)) - Me.X_LOCTextBox.Location = New System.Drawing.Point(15, 431) - Me.X_LOCTextBox.Name = "X_LOCTextBox" - Me.X_LOCTextBox.ReadOnly = True - Me.X_LOCTextBox.Size = New System.Drawing.Size(100, 23) - Me.X_LOCTextBox.TabIndex = 15 + Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnTabelle.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add + Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnTabelle.Location = New System.Drawing.Point(290, 55) + Me.btnTabelle.Name = "btnTabelle" + Me.btnTabelle.Size = New System.Drawing.Size(103, 29) + Me.btnTabelle.TabIndex = 6 + Me.btnTabelle.Text = "Tabelle" + Me.btnTabelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnTabelle.UseVisualStyleBackColor = True ' - 'Y_LOCTextBox + 'btnCheckbox ' - Me.Y_LOCTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.Y_LOCTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "Y_LOC", True)) - Me.Y_LOCTextBox.Location = New System.Drawing.Point(137, 431) - Me.Y_LOCTextBox.Name = "Y_LOCTextBox" - Me.Y_LOCTextBox.ReadOnly = True - Me.Y_LOCTextBox.Size = New System.Drawing.Size(100, 23) - Me.Y_LOCTextBox.TabIndex = 17 + Me.btnCheckbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnCheckbox.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.checkbox_16xLG + Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCheckbox.Location = New System.Drawing.Point(151, 90) + Me.btnCheckbox.Name = "btnCheckbox" + Me.btnCheckbox.Size = New System.Drawing.Size(133, 31) + Me.btnCheckbox.TabIndex = 5 + Me.btnCheckbox.Text = "Checkbox" + Me.btnCheckbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCheckbox.UseVisualStyleBackColor = True ' - 'CHANGED_WHOTextBox + 'btnVektor ' - Me.CHANGED_WHOTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "CHANGED_WHO", True)) - Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(15, 483) - Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" - Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(222, 23) - Me.CHANGED_WHOTextBox.TabIndex = 19 + Me.btnVektor.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnVektor.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.table_add + Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVektor.Location = New System.Drawing.Point(151, 55) + Me.btnVektor.Name = "btnVektor" + Me.btnVektor.Size = New System.Drawing.Size(133, 29) + Me.btnVektor.TabIndex = 4 + Me.btnVektor.Text = "Mehrfach-/Vektorfeld" + Me.btnVektor.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnVektor.UseVisualStyleBackColor = True + ' + 'btndtp + ' + Me.btndtp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btndtp.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.DateOrTimePicker_675 + Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btndtp.Location = New System.Drawing.Point(151, 22) + Me.btndtp.Name = "btndtp" + Me.btndtp.Size = New System.Drawing.Size(133, 27) + Me.btndtp.TabIndex = 3 + Me.btndtp.Text = "DatePicker" + Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btndtp.UseVisualStyleBackColor = True + ' + 'btncmb + ' + Me.btncmb.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btncmb.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.ComboBox_16xLG + Me.btncmb.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btncmb.Location = New System.Drawing.Point(12, 90) + Me.btncmb.Name = "btncmb" + Me.btncmb.Size = New System.Drawing.Size(133, 31) + Me.btncmb.TabIndex = 2 + Me.btncmb.Text = "Combobox" + Me.btncmb.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btncmb.UseVisualStyleBackColor = True + ' + 'btntextbox + ' + Me.btntextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btntextbox.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.TextBox_708 + Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btntextbox.Location = New System.Drawing.Point(13, 55) + Me.btntextbox.Name = "btntextbox" + Me.btntextbox.Size = New System.Drawing.Size(133, 29) + Me.btntextbox.TabIndex = 1 + Me.btntextbox.Text = "Textbox" + Me.btntextbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btntextbox.UseVisualStyleBackColor = True + ' + 'btnlabel + ' + Me.btnlabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnlabel.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Label_684 + Me.btnlabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnlabel.Location = New System.Drawing.Point(12, 22) + Me.btnlabel.Name = "btnlabel" + Me.btnlabel.Size = New System.Drawing.Size(133, 27) + Me.btnlabel.TabIndex = 0 + Me.btnlabel.Text = "Label" + Me.btnlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnlabel.UseVisualStyleBackColor = True ' 'TBPM_PROFILE_CONTROLSTableAdapter ' @@ -891,52 +845,6 @@ Partial Class frmFormDesigner Me.TableAdapterManager.TBPM_USERTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' - 'StatusStrip1 - ' - Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblAenderungen}) - Me.StatusStrip1.Location = New System.Drawing.Point(0, 556) - Me.StatusStrip1.Name = "StatusStrip1" - Me.StatusStrip1.Size = New System.Drawing.Size(995, 22) - Me.StatusStrip1.TabIndex = 20 - Me.StatusStrip1.Text = "StatusStrip1" - ' - 'tslblAenderungen - ' - Me.tslblAenderungen.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_red - Me.tslblAenderungen.Name = "tslblAenderungen" - Me.tslblAenderungen.Size = New System.Drawing.Size(153, 17) - Me.tslblAenderungen.Text = "Änderungen gespeichert" - Me.tslblAenderungen.Visible = False - ' - 'CHANGED_WHENTextBox - ' - Me.CHANGED_WHENTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "CHANGED_WHEN", True)) - Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(253, 483) - Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" - Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(159, 23) - Me.CHANGED_WHENTextBox.TabIndex = 21 - ' - 'HEIGHTTextBox - ' - Me.HEIGHTTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.HEIGHTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "HEIGHT", True)) - Me.HEIGHTTextBox.Location = New System.Drawing.Point(253, 431) - Me.HEIGHTTextBox.Name = "HEIGHTTextBox" - Me.HEIGHTTextBox.ReadOnly = True - Me.HEIGHTTextBox.Size = New System.Drawing.Size(71, 23) - Me.HEIGHTTextBox.TabIndex = 22 - ' - 'WIDTHTextBox - ' - Me.WIDTHTextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.WIDTHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "WIDTH", True)) - Me.WIDTHTextBox.Location = New System.Drawing.Point(331, 431) - Me.WIDTHTextBox.Name = "WIDTHTextBox" - Me.WIDTHTextBox.ReadOnly = True - Me.WIDTHTextBox.Size = New System.Drawing.Size(81, 23) - Me.WIDTHTextBox.TabIndex = 23 - ' 'TBPM_CONNECTIONTableAdapter ' Me.TBPM_CONNECTIONTableAdapter.ClearBeforeFill = True @@ -959,48 +867,17 @@ Partial Class frmFormDesigner ' Me.TBPM_CONTROL_TABLETableAdapter.ClearBeforeFill = True ' - 'btnrefresh - ' - Me.btnrefresh.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.arrow_refresh - Me.btnrefresh.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnrefresh.Location = New System.Drawing.Point(415, 41) - Me.btnrefresh.Name = "btnrefresh" - Me.btnrefresh.Size = New System.Drawing.Size(81, 23) - Me.btnrefresh.TabIndex = 24 - Me.btnrefresh.Text = "Refresh" - Me.btnrefresh.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnrefresh.UseVisualStyleBackColor = True - ' - 'GUIDTextBox - ' - Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_CONTROLSBindingSource, "GUID", True)) - Me.GUIDTextBox.Location = New System.Drawing.Point(43, 512) - Me.GUIDTextBox.Name = "GUIDTextBox" - Me.GUIDTextBox.ReadOnly = True - Me.GUIDTextBox.Size = New System.Drawing.Size(72, 23) - Me.GUIDTextBox.TabIndex = 25 - ' 'frmFormDesigner ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(995, 578) - Me.Controls.Add(GUIDLabel) - Me.Controls.Add(Me.GUIDTextBox) Me.Controls.Add(Me.btnrefresh) - Me.Controls.Add(WIDTHLabel) - Me.Controls.Add(Me.WIDTHTextBox) - Me.Controls.Add(HEIGHTLabel) - Me.Controls.Add(Me.HEIGHTTextBox) Me.Controls.Add(CHANGED_WHENLabel) Me.Controls.Add(Me.CHANGED_WHENTextBox) Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(CHANGED_WHOLabel) Me.Controls.Add(Me.CHANGED_WHOTextBox) - Me.Controls.Add(Y_LOCLabel) - Me.Controls.Add(Me.Y_LOCTextBox) - Me.Controls.Add(X_LOCLabel) - Me.Controls.Add(Me.X_LOCTextBox) Me.Controls.Add(Me.gbxControl) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.GroupBox1) @@ -1021,17 +898,17 @@ Partial Class frmFormDesigner Me.TabControlEigenschaften.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.TabPage1.PerformLayout() - CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage2.ResumeLayout(False) Me.TabPage2.PerformLayout() Me.TabPage3.ResumeLayout(False) Me.pnlAuswahlliste.ResumeLayout(False) Me.pnlAuswahlliste.PerformLayout() - CType(Me.TBPM_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage4.ResumeLayout(False) Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.PerformLayout() + CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPM_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) @@ -1065,8 +942,6 @@ Partial Class frmFormDesigner Friend WithEvents VALIDATIONCheckBox As System.Windows.Forms.CheckBox Friend WithEvents CTRL_TEXTTextBox As System.Windows.Forms.TextBox Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox - Friend WithEvents X_LOCTextBox As System.Windows.Forms.TextBox - Friend WithEvents Y_LOCTextBox As System.Windows.Forms.TextBox Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip Friend WithEvents tslblAenderungen As System.Windows.Forms.ToolStripStatusLabel @@ -1080,8 +955,6 @@ Partial Class frmFormDesigner Friend WithEvents btnheight_plus As System.Windows.Forms.Button Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label - Friend WithEvents HEIGHTTextBox As System.Windows.Forms.TextBox - Friend WithEvents WIDTHTextBox As System.Windows.Forms.TextBox Friend WithEvents btnVektor As System.Windows.Forms.Button Friend WithEvents TabPage3 As System.Windows.Forms.TabPage Friend WithEvents TBPM_CONNECTIONBindingSource As System.Windows.Forms.BindingSource @@ -1107,7 +980,6 @@ Partial Class frmFormDesigner Friend WithEvents btnrefresh As System.Windows.Forms.Button Friend WithEvents btnShowConnections As System.Windows.Forms.Button Friend WithEvents btnEditor As Button - Friend WithEvents GUIDTextBox As TextBox Friend WithEvents TabPage4 As TabPage Friend WithEvents pgControls As PropertyGrid End Class diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.resx b/app/DD_PM_WINDREAM/frmFormDesigner.resx index 622521c..85dcde1 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.resx +++ b/app/DD_PM_WINDREAM/frmFormDesigner.resx @@ -117,27 +117,12 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - False - - - False - False False - - False - - - False - - - False - 179, 17 @@ -161,15 +146,15 @@ 1021, 17 + + 904, 17 + 458, 17 731, 17 - - 904, 17 - 17, 56 diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index 46ac6cb..0aa3bc9 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -1,5 +1,5 @@ Public Class frmFormDesigner - Private _windreamPM As ClassPMWindream + Public _windreamPM As ClassPMWindream Private COLUMN_GUID Private MouseIsDown As Boolean = False Private idxlbl As Integer = 0 @@ -18,43 +18,42 @@ Private EndLocation As Point Private Sub frmFormDesigner_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing - ' - 'Try If CURRENT_ProfilGUID > 0 Then - Dim DT As DataTable = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND (CTRL_TYPE <> 'LBL')", CURRENT_ProfilGUID), True) - gbxControl.Visible = False - For Each row As DataRow In DT.Rows - If row.Item("INDEX_NAME").GetType.ToString.ToLower = "system.dbnull" Or row.Item("INDEX_NAME").ToString = "" Then - MsgBox("Für das Control '" & row.Item("NAME") & "' wurde noch keine Indexdefintion hinterlegt!", MsgBoxStyle.Exclamation, "Unvollständige Konfiguration:") - e.Cancel = True - gbxControl.Visible = True + Dim sql As String = $"SELECT NAME, INDEX_NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {CURRENT_ProfilGUID} AND CTRL_TYPE <> 'LBL'" + Dim dt As DataTable = ClassDatabase.Return_Datatable(sql) + + Dim missingIndexControls As New List(Of String) + + For Each row As DataRow In dt.Rows + If NotNull(row.Item("INDEX_NAME"), String.Empty) = String.Empty Then + missingIndexControls.Add(row.Item("NAME")) + End If Next + + If missingIndexControls.Count > 0 Then + e.Cancel = True + Dim missingControls As String = String.Join(vbCrLf, missingIndexControls.ToArray()) + MsgBox($"Für die folgenden Controls wurden noch keine Indexdefinitionen hinterlegt: {vbCrLf}{vbCrLf}{missingControls}") + End If End If + If Application.OpenForms().OfType(Of frmControl_Detail).Any Then frmControl_Detail.Close() End If - ' MessageBox.Show("Opened") - 'Catch ex As Exception - ' MsgBox("Fehler bei FormClosing: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") - 'End Try End Sub - '' Used to store the current cursor shape when we start - '' to move the control - 'Private m_CurrentCursor As Cursor - '' Holds the mouse position relative to the inside of - '' our control when the mouse button goes down - 'Private m_CursorOffset As Point + Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load Try - - Me.lblDesign.Text = "FormDesigner für Profil: " & CURRENT_ProfilName + lblDesign.Text = "FormDesigner für Profil: " & CURRENT_ProfilName 'löscht alle Controls pnldesigner.Controls.Clear() + CURRENT_CONTROL = Nothing Try + DD_LIB_Standards.clsWindream.Create_Session() ' Windream instanziieren _windreamPM = New ClassPMWindream() 'Windream initialisieren (Connection, Session, ... aufbauen) @@ -185,6 +184,17 @@ End Try _loading = False End Sub + + Function CreateBaseControl(ctrl As Control, guid As Integer, name As String, x As Integer, y As Integer, font As Font, color As Color) + ctrl.Tag = guid + ctrl.Name = name + ctrl.Location = New Point(x, y) + ctrl.Font = font + ctrl.ForeColor = color + + Return ctrl + End Function + Sub Controls_laden() Try TBPM_PROFILE_CONTROLSTableAdapter.FillByProfil(DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS, CURRENT_ProfilGUID) @@ -192,22 +202,42 @@ pnldesigner.Controls.Clear() Dim dt As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS - For Each dr As DataRow In dt.Rows - Select Case dr.Item("CTRL_TYPE") + For Each row As DataRow In dt.Rows + ' Ein Base Control erstellen + Dim guid As Integer = row.Item("GUID") + Dim name As String = row.Item("NAME") + Dim x As Integer = row.Item("X_LOC") + Dim y As Integer = row.Item("Y_LOC") + Dim style As FontStyle = NotNull(row.Item("FONT_STYLE"), FontStyle.Regular) + Dim size As Single = NotNull(row.Item("FONT_SIZE"), 10) + Dim familyString As String = NotNull(row.Item("FONT_FAMILY"), "Arial") + Dim family As FontFamily = New FontFamily(familyString) + Dim font As New Font(family, size, style, GraphicsUnit.Point) + Dim color As Color = IntToColor(NotNull(row.Item("FONT_COLOR"), 0)) + + ' Jetzt die Control spezifischen Eigenschaften zuweisen + Select Case row.Item("CTRL_TYPE") Case "TXT" - add_exisiting_textbox(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT"))) + Dim ctrl = CreateBaseControl(New TextBox, guid, name, x, y, font, color) + AddExistingTextbox(ctrl, row.Item("WIDTH"), row.Item("HEIGHT")) Case "LBL" - add_existing_label(dr.Item("GUID"), dr.Item("NAME"), dr.Item("CTRL_TEXT"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT"))) + Dim ctrl = CreateBaseControl(New Label, guid, name, x, y, font, color) + AddExistingLabel(ctrl, row.Item("CTRL_TEXT")) Case "CMB" - add_exisiting_Combobox(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT"))) + Dim ctrl = CreateBaseControl(New ComboBox, guid, name, x, y, font, color) + AddExistingCombobox(ctrl, row.Item("WIDTH"), row.Item("HEIGHT")) Case "DTP" - add_exisiting_DTP(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT"))) + Dim ctrl = CreateBaseControl(New ComboBox, guid, name, x, y, font, color) + AddExistingDatetimepicker(ctrl, row.Item("WIDTH"), row.Item("HEIGHT")) Case "DGV" - add_exisitingDGV(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT"))) + Dim ctrl = CreateBaseControl(New DataGridView, guid, name, x, y, font, color) + AddExistingDatagridview(ctrl, row.Item("WIDTH"), row.Item("HEIGHT")) Case "CHK" - add_exisiting_Checkbox(dr.Item("GUID"), dr.Item("NAME"), dr.Item("CTRL_TEXT"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT"))) + Dim ctrl = CreateBaseControl(New CheckBox, guid, name, x, y, font, color) + AddExistingCheckbox(ctrl, row.Item("CTRL_TEXT"), row.Item("WIDTH"), row.Item("HEIGHT")) Case "TABLE" - add_exisitingTABLE(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT"))) + Dim ctrl = CreateBaseControl(New DataGridView, guid, name, x, y, font, color) + AddExistingTable(ctrl, row.Item("WIDTH"), row.Item("HEIGHT")) End Select Next Catch ex As Exception @@ -245,8 +275,7 @@ End Sub Private Sub Panel2_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles pnldesigner.DragDrop - Dim r As New System.Random() - Dim a As Byte + Dim r As New Random() Dim random As Integer = r.Next(8, 100) Select Case e.Data.GetData(DataFormats.Text) Case "lbl" @@ -318,29 +347,14 @@ MsgBox("Fehler bei Anlegen Label: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Function - Function add_existing_label(ID As Integer, lblname As String, text As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer) - Dim lbl As New Label - lbl.Tag = ID - lbl.Name = lblname + Function AddExistingLabel(lbl As Label, text As String) lbl.Text = text lbl.AutoSize = True - 'lbl.Size = New Size(CInt(lbl.Text.Length * 10), vheight) - lbl.Location = New Point(x, y) pnldesigner.Controls.Add(lbl) - 'AddHandler lbl.Click, AddressOf OnlblClick - 'AddHandler lbl.MouseDown, AddressOf MovableLabel_MouseDown - 'AddHandler lbl.MouseUp, AddressOf MovableCtrl_MouseUp - 'AddHandler lbl.MouseMove, AddressOf Control_MouseMove 'MovableLabel_MouseMove - SetMovementHandlers(lbl) - - End Function - - - Private Function GetLastID() Dim sql = String.Format("SELECT MAX(GUID) FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0}", CURRENT_ProfilGUID) Return ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) @@ -358,10 +372,6 @@ pnldesigner.Controls.Add(txt) CURRENT_CONTROL = txt - 'AddHandler txt.Click, AddressOf OntxtClick - 'AddHandler txt.MouseDown, AddressOf MovableText_MouseDown - 'AddHandler txt.MouseUp, AddressOf MovableCtrl_MouseUp - 'AddHandler txt.MouseMove, AddressOf Control_MouseMove 'MovableText_MouseMove SetMovementHandlers(txt) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(CURRENT_ProfilGUID, txt.Name, "TXT", txtname, txt.Location.X, txt.Location.Y, Environment.UserName, 27, 200) @@ -373,10 +383,7 @@ MsgBox("Fehler bei Anlegen TextBox: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Function - Function add_exisiting_textbox(ID As Integer, txtname As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer) - Dim txt As New TextBox - txt.Tag = ID - txt.Name = txtname + Function AddExistingTextbox(txt As TextBox, vwidth As Integer, vheight As Integer) If vheight > 27 Then txt.Multiline = True Else @@ -386,20 +393,12 @@ txt.Cursor = Cursors.Hand txt.ReadOnly = True - txt.Location = New Point(x, y) txt.BackColor = Color.White + pnldesigner.Controls.Add(txt) - - - ''AddHandler txt.Click, AddressOf OntxtClick - 'AddHandler txt.MouseDown, AddressOf MovableText_MouseDown - 'AddHandler txt.MouseUp, AddressOf MovableCtrl_MouseUp - 'AddHandler txt.MouseMove, AddressOf Control_MouseMove 'MovableText_MouseMove SetMovementHandlers(txt) - btnsave.Visible = True - End Function Function add_newCheckbox(chkname As String) Try @@ -415,10 +414,6 @@ pnldesigner.Controls.Add(chk) CURRENT_CONTROL = chk - 'AddHandler chk.Click, AddressOf OnchkboxClick - 'AddHandler chk.MouseDown, AddressOf MovableChk_MouseDown - 'AddHandler chk.MouseUp, AddressOf MovableCtrl_MouseUp - 'AddHandler chk.MouseMove, AddressOf Control_MouseMove 'MovableChk_MouseMove SetMovementHandlers(chk) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(CURRENT_ProfilGUID, chk.Name, "CHK", chkname, chk.Location.X, chk.Location.Y, Environment.UserName, 27, 200) @@ -429,20 +424,12 @@ MsgBox("Fehler bei Anlegen Checkbox: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Function - Function add_exisiting_Checkbox(ID As Integer, chkname As String, text As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer) - Dim chk As New CheckBox - chk.Tag = ID - chk.Name = chkname + Function AddExistingCheckbox(chk As CheckBox, text As String, vwidth As Integer, vheight As Integer) chk.AutoSize = True - 'chk.Size = New Size(vwidth, vheight) chk.Text = text chk.Cursor = Cursors.Hand - chk.Location = New Point(x, y) + pnldesigner.Controls.Add(chk) - 'AddHandler chk.Click, AddressOf OnchkboxClick - 'AddHandler chk.MouseDown, AddressOf MovableChk_MouseDown - 'AddHandler chk.MouseUp, AddressOf MovableCtrl_MouseUp - 'AddHandler chk.MouseMove, AddressOf Control_MouseMove 'MovableChk_MouseMove SetMovementHandlers(chk) btnsave.Visible = True @@ -458,10 +445,6 @@ pnldesigner.Controls.Add(cmb) CURRENT_CONTROL = cmb - 'AddHandler cmb.Click, AddressOf OncmbClick - 'AddHandler cmb.MouseDown, AddressOf Movablecmb_MouseDown - 'AddHandler cmb.MouseUp, AddressOf MovableCtrl_MouseUp - 'AddHandler cmb.MouseMove, AddressOf Control_MouseMove 'Movablecmb_MouseMove SetMovementHandlers(cmb) TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(CURRENT_ProfilGUID, cmb.Name, "CMB", cmbname, cmb.Location.X, cmb.Location.Y, Environment.UserName, 24, 180) @@ -472,35 +455,21 @@ MsgBox("Fehler bei Anlegen Combobox: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Function - Function add_exisiting_Combobox(ID As Integer, cmbname As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer) - Dim cmb As New ComboBox - cmb.Tag = ID - cmb.Name = cmbname + Function AddExistingCombobox(cmb As ComboBox, vwidth As Integer, vheight As Integer) cmb.Size = New Size(vwidth, vheight) cmb.Cursor = Cursors.Hand - cmb.Location = New Point(x, y) + pnldesigner.Controls.Add(cmb) - 'AddHandler cmb.Click, AddressOf OncmbClick - 'AddHandler cmb.MouseDown, AddressOf Movablecmb_MouseDown - 'AddHandler cmb.MouseUp, AddressOf MovableCtrl_MouseUp - 'AddHandler cmb.MouseMove, AddressOf Control_MouseMove 'Movablecmb_MouseMove SetMovementHandlers(cmb) + btnsave.Visible = True End Function - Function add_exisiting_DTP(ID As Integer, dtpname As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer) - Dim dtp As New DateTimePicker - dtp.Tag = ID - dtp.Name = dtpname + Function AddExistingDatetimepicker(dtp As DateTimePicker, vwidth As Integer, vheight As Integer) dtp.Size = New Size(vwidth, vheight) dtp.Cursor = Cursors.Hand - dtp.Location = New Point(x, y) dtp.Format = DateTimePickerFormat.Short pnldesigner.Controls.Add(dtp) - 'AddHandler dtp.Click, AddressOf OndtpClick - 'AddHandler dtp.MouseDown, AddressOf Movabledtp_MouseDown - 'AddHandler dtp.MouseUp, AddressOf MovableCtrl_MouseUp - 'AddHandler dtp.MouseMove, AddressOf Control_MouseMove 'Movabledtp_MouseMove SetMovementHandlers(dtp) btnsave.Visible = True End Function @@ -529,13 +498,9 @@ MsgBox("Fehler bei Anlegen DatetimePicker: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Function - Function add_exisitingDGV(ID As Integer, dtpname As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer) - Dim dgv As New DataGridView - dgv.Tag = ID - dgv.Name = dtpname + Function AddExistingDatagridview(dgv As DataGridView, vwidth As Integer, vheight As Integer) dgv.Size = New Size(vwidth, vheight) dgv.Cursor = Cursors.Hand - dgv.Location = New Point(x, y) dgv.AllowUserToAddRows = False dgv.AllowUserToDeleteRows = False dgv.AllowUserToResizeColumns = False @@ -603,13 +568,17 @@ table.AllowUserToResizeColumns = True table.AllowUserToResizeRows = False - Dim col1 As New DataGridViewTextBoxColumn - col1.HeaderText = "Column1" - col1.Name = "column1" + Dim col1 As New DataGridViewTextBoxColumn With { + .HeaderText = "Column1", + .Name = "column1" + } + + Dim col2 As New DataGridViewTextBoxColumn With { + .HeaderText = "Column2", + .Name = "column2" + } + table.Columns.Add(col1) - Dim col2 As New DataGridViewTextBoxColumn - col2.HeaderText = "Column2" - col2.Name = "column2" table.Columns.Add(col2) pnldesigner.Controls.Add(table) CURRENT_CONTROL = table @@ -630,13 +599,9 @@ MsgBox("Fehler bei Anlegen Tabelle: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Function - Function add_exisitingTABLE(ID As Integer, tableName As String, x As Integer, y As Integer, vwidth As Integer, vheight As Integer) - Dim table As New DataGridView - table.Tag = ID - table.Name = tableName + Function AddExistingTable(table As DataGridView, vwidth As Integer, vheight As Integer) table.Size = New Size(vwidth, vheight) table.Cursor = Cursors.Hand - table.Location = New Point(x, y) table.AllowUserToAddRows = False table.AllowUserToDeleteRows = False table.AllowUserToResizeColumns = True @@ -681,6 +646,8 @@ inctrl.BackColor = Color.White Case "System.Windows.Forms.Label" inctrl.BackColor = Color.Transparent + Case "System.Windows.Forms.CheckBox" + inctrl.BackColor = Color.Transparent End Select End If Next @@ -691,23 +658,22 @@ Dim lbl As Label = sender CURRENT_CONTROL = lbl Load_Control() - Me.lblBeschriftung.Visible = True - Me.CTRL_TEXTTextBox.Visible = True - Me.lblIndex.Visible = False + lblBeschriftung.Visible = True + CTRL_TEXTTextBox.Visible = True + lblIndex.Visible = False - Me.cmbIndex.Visible = False - Me.rbIndex.Visible = False - Me.rbVektor.Visible = False + cmbIndex.Visible = False + rbIndex.Visible = False + rbVektor.Visible = False - Me.VALIDATIONCheckBox.Visible = False - Me.CheckBoxAuswahlliste.Visible = False - Me.CHOICE_LISTTextBox.Visible = False - Me.lblAuswahlliste.Visible = False + VALIDATIONCheckBox.Visible = False + CheckBoxAuswahlliste.Visible = False + CHOICE_LISTTextBox.Visible = False + lblAuswahlliste.Visible = False gbxControl.Visible = True - ' Me.pnlAuswahlliste.Enabled = False - Me.READ_ONLYCheckBox.Visible = False - Me.LOAD_IDX_VALUECheckBox.Visible = False + READ_ONLYCheckBox.Visible = False + LOAD_IDX_VALUECheckBox.Visible = False INDEX_NAMETextBox.Visible = False End Sub @@ -1033,194 +999,6 @@ gbxControl.Visible = True End If End Sub - Private Sub MovableCtrl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp - CURRENT_CONTROL.Tag = Nothing - ' The button was released, so we're going back to Static mode. - If MouseMoving = True Then - MouseMoving = False - EndLocation = e.Location - If X_LOCTextBox.Text <> String.Empty Then - If CURRENT_CONTROL.Location.X <> X_LOCTextBox.Text Or CURRENT_CONTROL.Location.Y <> Y_LOCTextBox.Text Then - X_LOCTextBox.Text = CURRENT_CONTROL.Location.X - Y_LOCTextBox.Text = CURRENT_CONTROL.Location.Y - Save_Control() - End If - End If - - 'Y_LOCTextBox.Text = end_location.Y - 'Save_Control() - End If - ' Restore the cursor image to the way we found it when the mouse - ' button was pressed - MyBase.Cursor = Cursors.Default - End Sub - 'Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove - ' Try - ' If CURRENT_CONTROL Is Nothing Then - ' Exit Sub - ' End If - ' 'Check which mode we're in. If we're supposed to be moving - ' 'our control - ' If MouseMoving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" Then - ' Me.Cursor = Cursors.Hand - ' Me.Refresh() - - ' Dim NowCursor As Point = GetCursorPosition() - ' ' get the screen position of the mouse pointer and map it - ' ' to the position relative to the top-left corner of our - ' If Point.op_Inequality(NowCursor, BeginLocation) Then - ' CURRENT_CONTROL.Location = New System.Drawing.Point(NowCursor.X - BeginLocation.X, - ' NowCursor.Y - BeginLocation.Y) - ' End If - ' End If - ' Catch ex As Exception - ' ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "MovableLabel_MouseMove") - ' MouseMoving = False - ' End Try - - 'End Sub - 'Private Sub MovableLabel_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove - ' Try - ' If CURRENT_CONTROL Is Nothing Then - ' Exit Sub - ' End If - ' 'Check which mode we're in. If we're supposed to be moving - ' 'our control - ' If MouseMoving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" And CURRENT_CONTROL.GetType.ToString = "System.Windows.Forms.Label" Then - ' Me.Cursor = Cursors.Hand - ' Me.Refresh() - - ' Dim lbl As Label = DirectCast(sender, Label) - - ' Dim NowCursor As Point = GetCursorPosition() - ' ' get the screen position of the mouse pointer and map it - ' ' to the position relative to the top-left corner of our - ' If Point.op_Inequality(NowCursor, BeginLocation) Then - ' lbl.Location = New System.Drawing.Point(NowCursor.X - BeginLocation.X, - ' NowCursor.Y - BeginLocation.Y) - ' End If - ' End If - ' Catch ex As Exception - ' ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "MovableLabel_MouseMove") - ' MouseMoving = False - ' End Try - - 'End Sub - 'Private Sub MovableText_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove - ' 'Check which mode we're in. If we're supposed to be moving - ' 'our control - ' If CURRENT_CONTROL Is Nothing Then - ' Exit Sub - ' End If - ' Try - ' If MouseMoving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" And CURRENT_CONTROL.GetType.ToString = "System.Windows.Forms.TextBox" Then - ' Me.Cursor = Cursors.Hand - ' Me.Refresh() - - ' Dim txt As TextBox = DirectCast(sender, TextBox) - - ' Dim NowCursor As Point = GetCursorPosition() - ' ' get the screen position of the mouse pointer and map it - ' ' to the position relative to the top-left corner of our - ' ' parent container - ' If Point.op_Inequality(NowCursor, BeginLocation) Then - ' txt.Location = New System.Drawing.Point(NowCursor.X - BeginLocation.X, - ' NowCursor.Y - BeginLocation.Y) - ' End If - - ' End If - ' Catch ex As Exception - ' ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "MovableText_MouseMove") - ' MouseMoving = False - ' End Try - - - 'End Sub - 'Private Sub MovableChk_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove - ' 'Check which mode we're in. If we're supposed to be moving - ' 'our control - ' If CURRENT_CONTROL Is Nothing Then - ' Exit Sub - ' End If - ' Try - ' If MouseMoving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" And CURRENT_CONTROL.GetType.ToString = "System.Windows.Forms.CheckBox" Then - ' Me.Cursor = Cursors.Hand - ' Me.Refresh() - - ' Dim chk As CheckBox = DirectCast(sender, CheckBox) - ' Dim NowCursor As Point = GetCursorPosition() - ' ' get the screen position of the mouse pointer and map it - ' ' to the position relative to the top-left corner of our - ' If Point.op_Inequality(NowCursor, BeginLocation) Then - ' chk.Location = New System.Drawing.Point(NowCursor.X - BeginLocation.X, - ' NowCursor.Y - BeginLocation.Y) - ' End If - ' End If - ' Catch ex As Exception - ' ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "MovableChk_MouseMove") - ' MouseMoving = False - ' End Try - - 'End Sub - 'Private Sub Movablecmb_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove - ' 'Check which mode we're in. If we're supposed to be moving - ' 'our control - ' If CURRENT_CONTROL Is Nothing Then - ' Exit Sub - ' End If - ' Try - ' If MouseMoving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" And CURRENT_CONTROL.GetType.ToString = "System.Windows.Forms.ComboBox" Then - ' Me.Cursor = Cursors.Hand - ' Me.Refresh() - - ' Dim cmb As ComboBox = DirectCast(sender, ComboBox) - ' Static LastCursor As Point - ' Dim NowCursor As Point = GetCursorPosition() - ' ' get the screen position of the mouse pointer and map it - ' ' to the position relative to the top-left corner of our - ' If Point.op_Inequality(NowCursor, BeginLocation) Then - ' cmb.Location = New System.Drawing.Point(NowCursor.X - BeginLocation.X, - ' NowCursor.Y - BeginLocation.Y) - ' End If - ' End If - ' Catch ex As Exception - ' ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Movablecmb_MouseMove") - ' MouseMoving = False - ' End Try - - - 'End Sub - - ''End Sub - 'Private Sub dgv_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove - ' 'Check which mode we're in. If we're supposed to be moving - ' 'our control - ' If CURRENT_CONTROL Is Nothing Then - ' Exit Sub - ' End If - ' Try - ' If MouseMoving = True And sender.ToString <> "DD_PM_WINDREAM.frmFormDesigner, Text: Validation-Designer" And CURRENT_CONTROL.GetType.ToString = "System.Windows.Forms.DataGridView" Then - ' Me.Cursor = Cursors.Hand - ' Me.Refresh() - - ' Dim dgv As DataGridView = DirectCast(sender, DataGridView) - ' Static LastCursor As Point - ' Dim NowCursor As Point = New Point(Cursor.Position.X, Cursor.Position.Y) - ' ' get the screen position of the mouse pointer and map it - ' ' to the position relative to the top-left corner of our - ' ' parent container - ' Dim clientPosition As Point = Me.pnldesigner.PointToClient(System.Windows.Forms.Cursor.Position) - ' If Point.op_Inequality(NowCursor, LastCursor) Then - ' dgv.Location = New System.Drawing.Point(clientPosition.X - BeginLocation.X, clientPosition.Y - BeginLocation.Y) - ' End If - ' End If - ' Catch ex As Exception - ' ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Movablecmb_MouseMove") - ' MouseMoving = False - ' End Try - - - 'End Sub Private Sub btnsave_Click(sender As System.Object, e As System.EventArgs) Handles btnsave.Click Save_Control() @@ -1311,40 +1089,10 @@ End If End Sub - Private Sub CTRL_TEXTTextBox_LostFocus(sender As Object, e As System.EventArgs) Handles CTRL_TEXTTextBox.LostFocus - Try - Dim type As String = CURRENT_CONTROL.GetType.ToString - If type.Contains("Label") Then - TBPM_PROFILE_CONTROLSBindingSource.EndEdit() - End If - Catch ex As Exception - MsgBox("Fehler bei CTRL_TEXTTextBox.LostFocus:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - If CURRENT_CONTROL.Text <> CTRL_TEXTTextBox.Text Then - CURRENT_CONTROL.Text = CTRL_TEXTTextBox.Text - CTRL_TEXTTextBox.Text = CURRENT_CONTROL.Text - Save_Control() - End If - End Sub - Private Sub NAMETextBox_LostFocus(sender As Object, e As System.EventArgs) Handles NAMETextBox.LostFocus - Try - Dim type As String = CURRENT_CONTROL.GetType.ToString - If type.Contains("TextBox") Then - TBPM_PROFILE_CONTROLSBindingSource.EndEdit() - End If - Catch ex As Exception - MsgBox("Fehler bei NAMETextBox.LostFocus:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - If CURRENT_CONTROL.Name <> NAMETextBox.Text Then - Save_Control() - End If - End Sub - Private Sub btnwidth_plus_Click(sender As System.Object, e As System.EventArgs) Handles btnwidth_plus.Click If CURRENT_CONTROL Is Nothing = False Then CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Width + 5, CURRENT_CONTROL.Height) - WIDTHTextBox.Text = CURRENT_CONTROL.Size.Width - Save_Control() + UpdateSingleValue("WIDTH", CURRENT_CONTROL.Size.Width) End If End Sub @@ -1352,36 +1100,31 @@ Private Sub btnwidth_minus_Click(sender As System.Object, e As System.EventArgs) Handles btnwidth_minus.Click If CURRENT_CONTROL Is Nothing = False Then CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Width - 5, CURRENT_CONTROL.Height) - WIDTHTextBox.Text = CURRENT_CONTROL.Size.Width - Save_Control() + UpdateSingleValue("WIDTH", CURRENT_CONTROL.Size.Width) End If End Sub Private Sub btnheight_plus_Click(sender As System.Object, e As System.EventArgs) Handles btnheight_plus.Click If CURRENT_CONTROL Is Nothing = False Then - Dim height As Integer = CURRENT_CONTROL.Height - height += 5 - If height > 21 Then - Dim txt As TextBox = DirectCast(CURRENT_CONTROL, TextBox) - txt.Multiline = True + Dim newHeight As Integer = CURRENT_CONTROL.Height + 5 + + If newHeight > 21 And TypeOf CURRENT_CONTROL Is TextBox Then + DirectCast(CURRENT_CONTROL, TextBox).Multiline = True End If - CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Width, height) - HEIGHTTextBox.Text = height - Save_Control() + CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Width, newHeight) + UpdateSingleValue("WIDTH", newHeight) End If End Sub Private Sub btnheight_minus_Click(sender As System.Object, e As System.EventArgs) Handles btnheight_minus.Click If CURRENT_CONTROL Is Nothing = False Then - Dim height As Integer = CURRENT_CONTROL.Height - height -= 5 - If height < 22 Then - Dim txt As TextBox = DirectCast(CURRENT_CONTROL, TextBox) - txt.Multiline = False + Dim newHeight As Integer = CURRENT_CONTROL.Height - 5 + + If newHeight < 22 And TypeOf CURRENT_CONTROL Is TextBox Then + DirectCast(CURRENT_CONTROL, TextBox).Multiline = True End If - CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Width, height) - HEIGHTTextBox.Text = height - Save_Control() + CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Width, newHeight) + UpdateSingleValue("WIDTH", newHeight) End If End Sub @@ -1507,21 +1250,7 @@ AddHandler control.MouseMove, AddressOf OnControl_MouseMove End Sub - ''' - ''' Weist die grundlegenden Eigenschaften zu einem Properties Objekt zu - ''' Die Properties werden an das Property Grid weitergegeben - ''' - ''' Das grundlegende Properties Objekt - ''' Die DataRow, die die Eigenschaften des Controls enthält - ''' Das gefüllt Properties Objekt - Private Function CreatePropsObject(obj As BaseProperties, row As DataRow) - obj.ID = row.Item("GUID") - obj.Location = New Point(row.Item("X_LOC"), row.Item("Y_LOC")) - obj.Name = row.Item("NAME") - obj.Width = row.Item("WIDTH") - obj.Height = row.Item("HEIGHT") - Return obj - End Function + Private Sub OnControl_MouseDown(sender As Control, e As MouseEventArgs) If e.Button = MouseButtons.Left Then @@ -1529,6 +1258,8 @@ BeginLocation = e.Location sender.BringToFront() MouseMoving = True + + Console.WriteLine("CURRENT_CONTROL:" & CURRENT_CONTROL.Name) End If End Sub @@ -1537,10 +1268,13 @@ MouseMoving = False EndLocation = e.Location - If CURRENT_CONTROL.Location.X <> X_LOCTextBox.Text Or CURRENT_CONTROL.Location.Y <> Y_LOCTextBox.Text Then - X_LOCTextBox.Text = CURRENT_CONTROL.Location.X - Y_LOCTextBox.Text = CURRENT_CONTROL.Location.Y - Save_Control() + Dim CurrentPosition As Point = DirectCast(pgControls.SelectedObject, BaseProperties).Location + + If Point.op_Inequality(CurrentPosition, EndLocation) Then + DirectCast(pgControls.SelectedObject, BaseProperties).Location = CURRENT_CONTROL.Location + + UpdateSingleValue("X_LOC", CURRENT_CONTROL.Location.X) + UpdateSingleValue("Y_LOC", CURRENT_CONTROL.Location.Y) End If End If @@ -1548,22 +1282,71 @@ End Sub Private Sub OnControl_MouseMove(sender As Control, e As MouseEventArgs) - If CURRENT_CONTROL Is Nothing Then - Exit Sub - End If - - If MouseMoving Then - Cursor = Cursors.Hand - Refresh() - - Dim CurrentPosition As Point = GetCursorPosition() - - If Point.op_Inequality(CurrentPosition, BeginLocation) Then - CURRENT_CONTROL.Location = New Point(CurrentPosition.X - BeginLocation.X, CurrentPosition.Y - BeginLocation.Y) + Try + If CURRENT_CONTROL Is Nothing Then + Exit Sub End If - End If + + If MouseMoving Then + Cursor = Cursors.Hand + Refresh() + + Dim CurrentPosition As Point = GetCursorPosition() + + If Point.op_Inequality(CurrentPosition, BeginLocation) Then + CURRENT_CONTROL.Location = New Point(CurrentPosition.X - BeginLocation.X, CurrentPosition.Y - BeginLocation.Y) + End If + End If + Catch ex As Exception + MouseMoving = False + End Try End Sub + ''' + ''' Weist die grundlegenden Eigenschaften zu einem Properties Objekt zu + ''' Die Properties werden an das Property Grid weitergegeben + ''' + ''' Das grundlegende Properties Objekt + ''' Die DataRow, die die Eigenschaften des Controls enthält + ''' Das gefüllt Properties Objekt + Private Function CreatePropsObject(obj As BaseProperties, row As DataRow, Optional indicies As List(Of String) = Nothing) + obj.ID = row.Item("GUID") + obj.Location = New Point(row.Item("X_LOC"), row.Item("Y_LOC")) + obj.Name = row.Item("NAME") + obj.Size = New Size(row.Item("WIDTH"), row.Item("HEIGHT")) + + Dim style As FontStyle = NotNull(row.Item("FONT_STYLE"), FontStyle.Regular) + Dim size As Single = NotNull(row.Item("FONT_SIZE"), 10) + Dim familyString As String = NotNull(row.Item("FONT_FAMILY"), "Arial") + Dim family As FontFamily = New FontFamily(familyString) + + obj.Font = New Font(family, size, style) + + Dim color As Integer = NotNull(row.Item("FONT_COLOR"), 0) + + obj.TextColor = IntToColor(color) + Return obj + End Function + + ''' + ''' Funktioniert wie CreatePropsObject mit dem Unterschied, dass zusätzlich noch eine Liste von Indicies übergeben wird + ''' Diese können dann im PropertyGrid angezeigt und ausgewählt werden. + ''' Außerdem werden noch einige Eigenschaften gesetzt, die alle Controls (außer reine Anzeige-Controls) haben + ''' + ''' Das grundlegende Properties Objekt + ''' Die DataRow, die die Eigenschaften des Controls enthält + ''' Eine Liste von Indicies + ''' Das gefüllt Properties Objekt + Private Function CreatePropsObjectWithIndicies(obj As InputProperties, row As DataRow, indicies As List(Of String)) + obj = CreatePropsObject(obj, row) + obj.Indicies = indicies + obj.ReadOnly = StrToBool(row.Item("READ_ONLY")) + obj.Required = StrToBool(row.Item("VALIDATION")) + obj.Index = NotNull(row.Item("INDEX_NAME"), "") + obj.SQLCommand = New InputProperties.SQLValue(row.Item("SQL_UEBERPRUEFUNG")) + Return obj + End Function + Private Sub OnControl_Click(sender As Control, e As MouseEventArgs) Dim props Dim dt As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS @@ -1572,8 +1355,15 @@ End Function).Single() CURRENT_CONTROL = sender + CURRENT_CONTROL_ID = sender.Tag + + Set_Active_Color() + gbxControl.Visible = True + Dim indicies As List(Of String) = _windreamPM.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList() + Dim choiceLists As List(Of String) = DD_LIB_Standards.clsWD_GET.GetChoiceLists() + If TypeOf sender Is Label Then Dim label As Label = sender Dim labelProps As LabelProperties = CreatePropsObject(New LabelProperties, row) @@ -1582,21 +1372,137 @@ props = labelProps ElseIf TypeOf sender Is CheckBox Then Dim check As CheckBox = sender - Dim checkProps As CheckboxProperties = CreatePropsObject(New CheckboxProperties, row) + Dim checkProps As CheckboxProperties = CreatePropsObjectWithIndicies(New CheckboxProperties, row, indicies) checkProps.Text = check.Text props = checkProps ElseIf TypeOf sender Is TextBox Then Dim txt As TextBox = sender - Dim txtProps As TextboxProperties = CreatePropsObject(New TextboxProperties, row) - - txtProps.ReadOnly = row.Item("READ_ONLY") - txtProps.Required = row.Item("VALIDATION") + Dim txtProps As TextboxProperties = CreatePropsObjectWithIndicies(New TextboxProperties, row, indicies) props = txtProps + + ElseIf TypeOf sender Is ComboBox Then + Dim cmb As ComboBox = sender + Dim cmbProps As ComboboxProperties = CreatePropsObjectWithIndicies(New ComboboxProperties, row, indicies) + cmbProps.ChoiceLists = choiceLists + cmbProps.ChoiceList = NotNull(row.Item("CHOICE_LIST"), "") + + props = cmbProps + + ElseIf TypeOf sender Is DateTimePicker Then + Dim dtp As DateTimePicker = sender + Dim dtpProps As DatepickerProperties = CreatePropsObjectWithIndicies(New DatepickerProperties, row, indicies) + + props = dtpProps + ElseIf TypeOf sender Is DataGridView Then + Dim grid As DataGridView = sender + Dim gridProps As GridViewProperties = CreatePropsObjectWithIndicies(New GridViewProperties, row, indicies) + + props = gridProps + Else + MsgBox("This is not a supported control type!") + Exit Sub End If pgControls.SelectedObject = props End Sub + + Private Sub pgControls_PropertyValueChanged(s As Object, e As PropertyValueChangedEventArgs) Handles pgControls.PropertyValueChanged + Dim oldValue As Object = e.OldValue + Dim newValue As Object = e.ChangedItem.Value + Dim prop As String = e.ChangedItem.Label + + Select Case prop + Case "Location" + UpdateSingleValue("X_LOC", DirectCast(newValue, Point).X) + UpdateSingleValue("Y_LOC", DirectCast(newValue, Point).Y) + + CURRENT_CONTROL.Location = newValue + + Case "X" + UpdateSingleValue("X_LOC", CInt(newValue)) + + CURRENT_CONTROL.Location = New Point(newValue, CURRENT_CONTROL.Location.Y) + + Case "Y" + UpdateSingleValue("Y_LOC", CInt(newValue)) + + CURRENT_CONTROL.Location = New Point(CURRENT_CONTROL.Location.X, newValue) + + Case "Size" + UpdateSingleValue("WIDTH", DirectCast(newValue, Size).Width) + UpdateSingleValue("HEIGHT", DirectCast(newValue, Size).Height) + + CURRENT_CONTROL.Size = newValue + + Case "Width" + UpdateSingleValue("WIDTH", DirectCast(newValue, Size).Width) + + CURRENT_CONTROL.Size = New Size(newValue, CURRENT_CONTROL.Size.Height) + + Case "Height" + UpdateSingleValue("HEIGHT", DirectCast(newValue, Size).Height) + + CURRENT_CONTROL.Size = New Size(CURRENT_CONTROL.Size.Width, newValue) + + Case "Name" + UpdateSingleValue("NAME", newValue) + + CURRENT_CONTROL.Name = newValue + + Case "Index" + UpdateSingleValue("INDEX_NAME", newValue) + + Case "Text" + UpdateSingleValue("CTRL_TEXT", newValue) + + CURRENT_CONTROL.Text = newValue + + Case "Required" + UpdateSingleValue("VALIDATION", IIf(newValue = True, 1, 0)) + + Case "ReadOnly" + UpdateSingleValue("READ_ONLY", IIf(newValue = True, 1, 0)) + + Case "Font" + Dim font As Font = newValue + Dim fontSize As Integer = Math.Truncate(font.SizeInPoints) + UpdateSingleValue("FONT_SIZE", fontSize) + UpdateSingleValue("FONT_FAMILY", font.FontFamily.Name) + UpdateSingleValue("FONT_STYLE", font.Style.ToString) + + CURRENT_CONTROL.Font = font + Case "TextColor" + Dim color As Color = newValue + UpdateSingleValue("FONT_COLOR", ColorToInt(color)) + + CURRENT_CONTROL.ForeColor = color + Case "SQLCommand" + UpdateSingleValue("SQL_UEBERPRUEFUNG", newValue) + UpdateSingleValue("CHOICE_LIST", "") + + Case "ChoiceList" + UpdateSingleValue("CHOICE_LIST", newValue) + UpdateSingleValue("SQL_UEBERPRUEFUNG", "") + End Select + End Sub + + Private Sub UpdateSingleValue(columnName As String, value As Object) + Dim guid As Integer = CURRENT_CONTROL_ID + Dim escapedValue = value + + If TypeOf value Is String Then + escapedValue = $"'{value}'" + ElseIf TypeOf value Is InputProperties.SQLValue Then + Dim v As InputProperties.SQLValue = value + escapedValue = $"'{v.Value.Replace("'", "''")}'" + End If + + ClassDatabase.Execute_non_Query($"UPDATE TBPM_PROFILE_CONTROLS SET {columnName} = {escapedValue} WHERE GUID = {guid}") + + tslblAenderungen.Visible = True + tslblAenderungen.Text = "Änderungen gespeichert - " & Now + End Sub #End Region End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb index 54531af..1ca2500 100644 --- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb +++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb @@ -256,6 +256,7 @@ Partial Class frmSQL_DESIGNER ' 'btnSaveSQLCommand ' + Me.btnSaveSQLCommand.DialogResult = System.Windows.Forms.DialogResult.OK Me.btnSaveSQLCommand.Image = CType(resources.GetObject("btnSaveSQLCommand.Image"), System.Drawing.Image) Me.btnSaveSQLCommand.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnSaveSQLCommand.Location = New System.Drawing.Point(818, 513) diff --git a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.resx b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.resx index abdf357..2e5d97e 100644 --- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.resx +++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.resx @@ -153,10 +153,10 @@ - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAABcSURBVDhPzYxRCoAwDEN3tt7/PP2NWDrJaoRNYRh4H0uX - 1wB8QpYrjA+Ku6OSp8iUwMwu9gjOT0wVMH1zE/DoiZ8LmDpi+mYQcJQgT5E9gkqeIlLwBlmuIMt50A4j - RH5TZf96FwAAAABJRU5ErkJggg== + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC @@ -168,10 +168,10 @@ - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAABcSURBVDhPzYxRCoAwDEN3tt7/PP2NWDrJaoRNYRh4H0uX - 1wB8QpYrjA+Ku6OSp8iUwMwu9gjOT0wVMH1zE/DoiZ8LmDpi+mYQcJQgT5E9gkqeIlLwBlmuIMt50A4j - RH5TZf96FwAAAABJRU5ErkJggg== + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn + yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF + TkSuQmCC diff --git a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb index 0528830..0649c0b 100644 --- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb +++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb @@ -5,21 +5,27 @@ Public Class frmSQL_DESIGNER Private _windreamPM As ClassPMWindream Private Sub TBPM_PROFILE_FINAL_INDEXINGBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) - Me.Validate() - Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource.EndEdit() - Me.TableAdapterManager.UpdateAll(Me.DD_DMSLiteDataSet) + Validate() + TBPM_PROFILE_FINAL_INDEXINGBindingSource.EndEdit() + TableAdapterManager.UpdateAll(Me.DD_DMSLiteDataSet) End Sub Private Sub frmSQL_FINAL_INDICES_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try lblSaveFinalIndex.Visible = False - 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSLiteDataSet.TBPM_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen. - Me.TBPM_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBPM_CONNECTIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_CONNECTION) - Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = MyConnectionString - cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID") - cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING")) - SQL_COMMANDTextBox.Text = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("SQL_COMMAND") + TBPM_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString + TBPM_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBPM_CONNECTION) + TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = MyConnectionString + + CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_UEBERPRUEFUNG,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_CONTROLS T, TBPM_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_CONTROL_ID), True) + + If CURRENT_DT_SQL_CONFIG_TABLE.Rows.Count > 0 Then + cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID") + cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING")) + SQL_COMMANDTextBox.Text = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("SQL_COMMAND") + Else + SQL_COMMANDTextBox.Text = String.Empty + End If Try ' Windream instanziieren _windreamPM = New ClassPMWindream() @@ -211,7 +217,7 @@ Public Class frmSQL_DESIGNER Else lblSaveFinalIndex.Visible = False End If - + Me.Value = SQL_COMMANDTextBox.Text End If End Sub