AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

DesignerLock

Browse Source
This commit is contained in:
SchreiberM 2020-03-18 10:49:24 +01:00
parent c767b35b12
commit e81183a698
8 changed files with 194 additions and 108 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD_PM_WINDREAM/ClassDatabase.vb
View File

@ -80,7 +80,7 @@ Public Class ClassDatabase
Public Shared Function Return_Datatable_ConId(SQLCommand As String, ConnID As Integer, Optional userInput As Boolean = False) Public Shared Function Return_Datatable_ConId(SQLCommand As String, ConnID As Integer, Optional userInput As Boolean = False)
Try Try
Dim oConnString = Get_ConnectionString(ConnID) Dim oConnString = Get_ConnectionString(ConnID)
LOGGER.Debug("ReturnDatatable: " & SQLCommand) LOGGER.Debug($"Return_Datatable_ConId [{ConnID}]: " & SQLCommand)
Dim oSQLconnect As New SqlClient.SqlConnection Dim oSQLconnect As New SqlClient.SqlConnection
Dim oSQLcommand As SqlClient.SqlCommand Dim oSQLcommand As SqlClient.SqlCommand
oSQLconnect.ConnectionString = oConnString oSQLconnect.ConnectionString = oConnString
@ -103,7 +103,7 @@ Public Class ClassDatabase
End Function End Function
Public Shared Function Return_Datatable_ConStr(SQLCommand As String, ConNStr As String, Optional userInput As Boolean = False) Public Shared Function Return_Datatable_ConStr(SQLCommand As String, ConNStr As String, Optional userInput As Boolean = False)
Try Try
LOGGER.Debug("ReturnDatatable: " & SQLCommand) LOGGER.Debug("Return_Datatable_ConStr: " & SQLCommand)
Dim oSQLconnect As New SqlClient.SqlConnection Dim oSQLconnect As New SqlClient.SqlConnection
Dim oSQLcommand As SqlClient.SqlCommand Dim oSQLcommand As SqlClient.SqlCommand
oSQLconnect.ConnectionString = ConNStr oSQLconnect.ConnectionString = ConNStr
@ -133,7 +133,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo 'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD SQLcommand.CommandText = ExecuteCMD
LOGGER.Debug("Execute_Command Created: " & ExecuteCMD) LOGGER.Debug("Execute_non_Query Created: " & ExecuteCMD)
SQLcommand.ExecuteNonQuery() SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose() SQLcommand.Dispose()
SQLconnect.Close() SQLconnect.Close()
@ -159,7 +159,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo 'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD SQLcommand.CommandText = ExecuteCMD
LOGGER.Debug("Execute_Command Created: " & ExecuteCMD) LOGGER.Debug("Execute_non_Query_ConStr Created: " & ExecuteCMD)
SQLcommand.ExecuteNonQuery() SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose() SQLcommand.Dispose()
SQLconnect.Close() SQLconnect.Close()
@ -187,7 +187,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo 'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar SQLcommand.CommandText = cmdscalar
LOGGER.Debug("Execute_non_Query: " & cmdscalar) LOGGER.Debug("Execute_Scalar: " & cmdscalar)
result = SQLcommand.ExecuteScalar() result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose() SQLcommand.Dispose()
SQLconnect.Close() SQLconnect.Close()
@ -213,7 +213,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo 'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar SQLcommand.CommandText = cmdscalar
LOGGER.Debug("Execute Scalar: " & cmdscalar) LOGGER.Debug("Execute_Scalar_ConStr Scalar: " & cmdscalar)
result = SQLcommand.ExecuteScalar() result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose() SQLcommand.Dispose()
SQLconnect.Close() SQLconnect.Close()

4
app/DD_PM_WINDREAM/ClassWindream_allgemein.vb
View File

@ -56,7 +56,7 @@ Public Class ClassWindream_allgemein
Me.oConnect = CreateObject("Windream.WMConnect") Me.oConnect = CreateObject("Windream.WMConnect")
'MsgBox("windrem init 'ed") 'MsgBox("windrem init 'ed")
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Debug($"Error while creating WMConnect Object: {vbCrLf}{ex.Message}") LOGGER.Debug($"Error while creating WMConnect Object: {vbCrLf}{ex.Message}")
Return False Return False
End Try End Try
@ -111,7 +111,7 @@ LOGGER.Error(ex)
' Ordnertypen ausgelesen werden ' Ordnertypen ausgelesen werden
Me.oDokumentTypen = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument) Me.oDokumentTypen = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
Return False Return False
End Try End Try

2
app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.1.1.0")> <Assembly: AssemblyVersion("2.1.2.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

193
app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb generated
View File

@ -58,7 +58,7 @@ Partial Class frmFormDesigner
Me.TBPM_CONTROL_TABLETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter() Me.TBPM_CONTROL_TABLETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter()
Me.GridControlContextMenu = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.GridControlContextMenu = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.MenuItemAddColumn = New System.Windows.Forms.ToolStripMenuItem() Me.MenuItemAddColumn = New System.Windows.Forms.ToolStripMenuItem()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.SplitContainerDesigner = New System.Windows.Forms.SplitContainer()
Me.pnldesigner = New DD_ProcessManager.ClassSnapPanel() Me.pnldesigner = New DD_ProcessManager.ClassSnapPanel()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.lblhintergrund = New System.Windows.Forms.Label() Me.lblhintergrund = New System.Windows.Forms.Label()
@ -66,11 +66,14 @@ Partial Class frmFormDesigner
Me.bbtnItemFinishSQL = New DevExpress.XtraBars.BarButtonItem() Me.bbtnItemFinishSQL = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
Me.TabControlEigenschaften.SuspendLayout() Me.TabControlEigenschaften.SuspendLayout()
Me.pageProperties.SuspendLayout() Me.pageProperties.SuspendLayout()
@ -82,12 +85,13 @@ Partial Class frmFormDesigner
CType(Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GridControlContextMenu.SuspendLayout() Me.GridControlContextMenu.SuspendLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerDesigner, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainerDesigner.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainerDesigner.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout() Me.SplitContainerDesigner.SuspendLayout()
Me.pnldesigner.SuspendLayout() Me.pnldesigner.SuspendLayout()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'GroupBox1 'GroupBox1
@ -100,12 +104,13 @@ Partial Class frmFormDesigner
Me.GroupBox1.Controls.Add(Me.btndtp) Me.GroupBox1.Controls.Add(Me.btndtp)
Me.GroupBox1.Controls.Add(Me.btntextbox) Me.GroupBox1.Controls.Add(Me.btntextbox)
Me.GroupBox1.Controls.Add(Me.btnlabel) Me.GroupBox1.Controls.Add(Me.btnlabel)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(7, 5) Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
Me.GroupBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.GroupBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.GroupBox1.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.GroupBox1.Size = New System.Drawing.Size(362, 122) Me.GroupBox1.Size = New System.Drawing.Size(373, 112)
Me.GroupBox1.TabIndex = 2 Me.GroupBox1.TabIndex = 2
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Control-Typ (Drag and Drop)" Me.GroupBox1.Text = "Control-Typ (Drag and Drop)"
@ -115,10 +120,10 @@ Partial Class frmFormDesigner
Me.btnButton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnButton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnButton.Image = CType(resources.GetObject("btnButton.Image"), System.Drawing.Image) Me.btnButton.Image = CType(resources.GetObject("btnButton.Image"), System.Drawing.Image)
Me.btnButton.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnButton.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnButton.Location = New System.Drawing.Point(215, 20) Me.btnButton.Location = New System.Drawing.Point(219, 17)
Me.btnButton.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnButton.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.btnButton.Name = "btnButton" Me.btnButton.Name = "btnButton"
Me.btnButton.Size = New System.Drawing.Size(98, 23) Me.btnButton.Size = New System.Drawing.Size(100, 24)
Me.btnButton.TabIndex = 8 Me.btnButton.TabIndex = 8
Me.btnButton.Text = "Button" Me.btnButton.Text = "Button"
Me.btnButton.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnButton.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@ -129,10 +134,10 @@ Partial Class frmFormDesigner
Me.btnLine.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnLine.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnLine.Image = CType(resources.GetObject("btnLine.Image"), System.Drawing.Image) Me.btnLine.Image = CType(resources.GetObject("btnLine.Image"), System.Drawing.Image)
Me.btnLine.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnLine.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnLine.Location = New System.Drawing.Point(215, 47) Me.btnLine.Location = New System.Drawing.Point(219, 76)
Me.btnLine.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnLine.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.btnLine.Name = "btnLine" Me.btnLine.Name = "btnLine"
Me.btnLine.Size = New System.Drawing.Size(98, 23) Me.btnLine.Size = New System.Drawing.Size(100, 24)
Me.btnLine.TabIndex = 7 Me.btnLine.TabIndex = 7
Me.btnLine.Text = "Linie" Me.btnLine.Text = "Linie"
Me.btnLine.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnLine.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@ -143,10 +148,10 @@ Partial Class frmFormDesigner
Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 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_ProcessManager.My.Resources.Resources.table_add Me.btnTabelle.Image = Global.DD_ProcessManager.My.Resources.Resources.table_add
Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnTabelle.Location = New System.Drawing.Point(111, 20) Me.btnTabelle.Location = New System.Drawing.Point(113, 20)
Me.btnTabelle.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnTabelle.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.btnTabelle.Name = "btnTabelle" Me.btnTabelle.Name = "btnTabelle"
Me.btnTabelle.Size = New System.Drawing.Size(98, 23) Me.btnTabelle.Size = New System.Drawing.Size(100, 24)
Me.btnTabelle.TabIndex = 6 Me.btnTabelle.TabIndex = 6
Me.btnTabelle.Text = "Tabelle" Me.btnTabelle.Text = "Tabelle"
Me.btnTabelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnTabelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@ -157,10 +162,10 @@ Partial Class frmFormDesigner
Me.btnCheckbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 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_ProcessManager.My.Resources.Resources.checkbox_16xLG Me.btnCheckbox.Image = Global.DD_ProcessManager.My.Resources.Resources.checkbox_16xLG
Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCheckbox.Location = New System.Drawing.Point(111, 74) Me.btnCheckbox.Location = New System.Drawing.Point(113, 76)
Me.btnCheckbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnCheckbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.btnCheckbox.Name = "btnCheckbox" Me.btnCheckbox.Name = "btnCheckbox"
Me.btnCheckbox.Size = New System.Drawing.Size(98, 23) Me.btnCheckbox.Size = New System.Drawing.Size(100, 24)
Me.btnCheckbox.TabIndex = 5 Me.btnCheckbox.TabIndex = 5
Me.btnCheckbox.Text = "Checkbox" Me.btnCheckbox.Text = "Checkbox"
Me.btnCheckbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnCheckbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@ -171,10 +176,10 @@ Partial Class frmFormDesigner
Me.btnVektor.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 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_ProcessManager.My.Resources.Resources.ComboBox_16xLG Me.btnVektor.Image = Global.DD_ProcessManager.My.Resources.Resources.ComboBox_16xLG
Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVektor.Location = New System.Drawing.Point(7, 74) Me.btnVektor.Location = New System.Drawing.Point(7, 76)
Me.btnVektor.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnVektor.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.btnVektor.Name = "btnVektor" Me.btnVektor.Name = "btnVektor"
Me.btnVektor.Size = New System.Drawing.Size(98, 23) Me.btnVektor.Size = New System.Drawing.Size(100, 24)
Me.btnVektor.TabIndex = 4 Me.btnVektor.TabIndex = 4
Me.btnVektor.Text = "LookupControl" Me.btnVektor.Text = "LookupControl"
Me.btnVektor.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnVektor.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@ -185,10 +190,10 @@ Partial Class frmFormDesigner
Me.btndtp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 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_ProcessManager.My.Resources.Resources.DateOrTimePicker_675 Me.btndtp.Image = Global.DD_ProcessManager.My.Resources.Resources.DateOrTimePicker_675
Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btndtp.Location = New System.Drawing.Point(111, 47) Me.btndtp.Location = New System.Drawing.Point(113, 48)
Me.btndtp.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btndtp.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.btndtp.Name = "btndtp" Me.btndtp.Name = "btndtp"
Me.btndtp.Size = New System.Drawing.Size(98, 23) Me.btndtp.Size = New System.Drawing.Size(100, 24)
Me.btndtp.TabIndex = 3 Me.btndtp.TabIndex = 3
Me.btndtp.Text = "DatePicker" Me.btndtp.Text = "DatePicker"
Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@ -199,10 +204,10 @@ Partial Class frmFormDesigner
Me.btntextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 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_ProcessManager.My.Resources.Resources.TextBox_708 Me.btntextbox.Image = Global.DD_ProcessManager.My.Resources.Resources.TextBox_708
Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btntextbox.Location = New System.Drawing.Point(7, 47) Me.btntextbox.Location = New System.Drawing.Point(7, 48)
Me.btntextbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btntextbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.btntextbox.Name = "btntextbox" Me.btntextbox.Name = "btntextbox"
Me.btntextbox.Size = New System.Drawing.Size(98, 23) Me.btntextbox.Size = New System.Drawing.Size(100, 24)
Me.btntextbox.TabIndex = 1 Me.btntextbox.TabIndex = 1
Me.btntextbox.Text = "Textbox" Me.btntextbox.Text = "Textbox"
Me.btntextbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btntextbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@ -216,7 +221,7 @@ Partial Class frmFormDesigner
Me.btnlabel.Location = New System.Drawing.Point(7, 20) Me.btnlabel.Location = New System.Drawing.Point(7, 20)
Me.btnlabel.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnlabel.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.btnlabel.Name = "btnlabel" Me.btnlabel.Name = "btnlabel"
Me.btnlabel.Size = New System.Drawing.Size(98, 23) Me.btnlabel.Size = New System.Drawing.Size(100, 24)
Me.btnlabel.TabIndex = 0 Me.btnlabel.TabIndex = 0
Me.btnlabel.Text = "Label" Me.btnlabel.Text = "Label"
Me.btnlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@ -224,17 +229,15 @@ Partial Class frmFormDesigner
' '
'TabControlEigenschaften 'TabControlEigenschaften
' '
Me.TabControlEigenschaften.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TabControlEigenschaften.Controls.Add(Me.pageProperties) Me.TabControlEigenschaften.Controls.Add(Me.pageProperties)
Me.TabControlEigenschaften.Controls.Add(Me.pageFormat) Me.TabControlEigenschaften.Controls.Add(Me.pageFormat)
Me.TabControlEigenschaften.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControlEigenschaften.Enabled = False Me.TabControlEigenschaften.Enabled = False
Me.TabControlEigenschaften.Location = New System.Drawing.Point(7, 106) Me.TabControlEigenschaften.Location = New System.Drawing.Point(0, 0)
Me.TabControlEigenschaften.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.TabControlEigenschaften.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.TabControlEigenschaften.Name = "TabControlEigenschaften" Me.TabControlEigenschaften.Name = "TabControlEigenschaften"
Me.TabControlEigenschaften.SelectedIndex = 0 Me.TabControlEigenschaften.SelectedIndex = 0
Me.TabControlEigenschaften.Size = New System.Drawing.Size(366, 415) Me.TabControlEigenschaften.Size = New System.Drawing.Size(373, 308)
Me.TabControlEigenschaften.TabIndex = 22 Me.TabControlEigenschaften.TabIndex = 22
' '
'pageProperties 'pageProperties
@ -244,7 +247,7 @@ Partial Class frmFormDesigner
Me.pageProperties.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pageProperties.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.pageProperties.Name = "pageProperties" Me.pageProperties.Name = "pageProperties"
Me.pageProperties.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pageProperties.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.pageProperties.Size = New System.Drawing.Size(358, 386) Me.pageProperties.Size = New System.Drawing.Size(365, 279)
Me.pageProperties.TabIndex = 3 Me.pageProperties.TabIndex = 3
Me.pageProperties.Text = "Eigenschaften" Me.pageProperties.Text = "Eigenschaften"
Me.pageProperties.UseVisualStyleBackColor = True Me.pageProperties.UseVisualStyleBackColor = True
@ -256,7 +259,7 @@ Partial Class frmFormDesigner
Me.pgControls.Location = New System.Drawing.Point(3, 2) Me.pgControls.Location = New System.Drawing.Point(3, 2)
Me.pgControls.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pgControls.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.pgControls.Name = "pgControls" Me.pgControls.Name = "pgControls"
Me.pgControls.Size = New System.Drawing.Size(352, 382) Me.pgControls.Size = New System.Drawing.Size(359, 275)
Me.pgControls.TabIndex = 0 Me.pgControls.TabIndex = 0
' '
'pageFormat 'pageFormat
@ -272,7 +275,7 @@ Partial Class frmFormDesigner
Me.pageFormat.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pageFormat.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.pageFormat.Name = "pageFormat" Me.pageFormat.Name = "pageFormat"
Me.pageFormat.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pageFormat.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.pageFormat.Size = New System.Drawing.Size(358, 361) Me.pageFormat.Size = New System.Drawing.Size(365, 279)
Me.pageFormat.TabIndex = 1 Me.pageFormat.TabIndex = 1
Me.pageFormat.Text = "Format" Me.pageFormat.Text = "Format"
Me.pageFormat.UseVisualStyleBackColor = True Me.pageFormat.UseVisualStyleBackColor = True
@ -282,10 +285,10 @@ Partial Class frmFormDesigner
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.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_ProcessManager.My.Resources.Resources.zoom_out Me.btnheight_minus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_out
Me.btnheight_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnheight_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnheight_minus.Location = New System.Drawing.Point(84, 69) Me.btnheight_minus.Location = New System.Drawing.Point(116, 64)
Me.btnheight_minus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnheight_minus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.btnheight_minus.Name = "btnheight_minus" Me.btnheight_minus.Name = "btnheight_minus"
Me.btnheight_minus.Size = New System.Drawing.Size(65, 29) Me.btnheight_minus.Size = New System.Drawing.Size(100, 24)
Me.btnheight_minus.TabIndex = 1 Me.btnheight_minus.TabIndex = 1
Me.btnheight_minus.Text = "kleiner" Me.btnheight_minus.Text = "kleiner"
Me.btnheight_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnheight_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@ -296,10 +299,10 @@ Partial Class frmFormDesigner
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.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_ProcessManager.My.Resources.Resources.zoom_in Me.btnheight_plus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_in
Me.btnheight_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnheight_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnheight_plus.Location = New System.Drawing.Point(7, 66) Me.btnheight_plus.Location = New System.Drawing.Point(10, 64)
Me.btnheight_plus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnheight_plus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.btnheight_plus.Name = "btnheight_plus" Me.btnheight_plus.Name = "btnheight_plus"
Me.btnheight_plus.Size = New System.Drawing.Size(72, 34) Me.btnheight_plus.Size = New System.Drawing.Size(100, 24)
Me.btnheight_plus.TabIndex = 0 Me.btnheight_plus.TabIndex = 0
Me.btnheight_plus.Text = "größer" Me.btnheight_plus.Text = "größer"
Me.btnheight_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnheight_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@ -308,7 +311,7 @@ Partial Class frmFormDesigner
'Label3 'Label3
' '
Me.Label3.AutoSize = True Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(8, 50) Me.Label3.Location = New System.Drawing.Point(10, 46)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(42, 16) Me.Label3.Size = New System.Drawing.Size(42, 16)
Me.Label3.TabIndex = 5 Me.Label3.TabIndex = 5
@ -317,7 +320,7 @@ Partial Class frmFormDesigner
'Label2 'Label2
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(4, 2) Me.Label2.Location = New System.Drawing.Point(6, 2)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(46, 16) Me.Label2.Size = New System.Drawing.Size(46, 16)
Me.Label2.TabIndex = 4 Me.Label2.TabIndex = 4
@ -328,10 +331,10 @@ Partial Class frmFormDesigner
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.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_ProcessManager.My.Resources.Resources.zoom_out Me.btnwidth_minus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_out
Me.btnwidth_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnwidth_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnwidth_minus.Location = New System.Drawing.Point(83, 21) Me.btnwidth_minus.Location = New System.Drawing.Point(116, 20)
Me.btnwidth_minus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnwidth_minus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.btnwidth_minus.Name = "btnwidth_minus" Me.btnwidth_minus.Name = "btnwidth_minus"
Me.btnwidth_minus.Size = New System.Drawing.Size(66, 26) Me.btnwidth_minus.Size = New System.Drawing.Size(100, 24)
Me.btnwidth_minus.TabIndex = 1 Me.btnwidth_minus.TabIndex = 1
Me.btnwidth_minus.Text = "kleiner" Me.btnwidth_minus.Text = "kleiner"
Me.btnwidth_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnwidth_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@ -342,10 +345,10 @@ Partial Class frmFormDesigner
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.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_ProcessManager.My.Resources.Resources.zoom_in Me.btnwidth_plus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_in
Me.btnwidth_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnwidth_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnwidth_plus.Location = New System.Drawing.Point(7, 21) Me.btnwidth_plus.Location = New System.Drawing.Point(10, 20)
Me.btnwidth_plus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.btnwidth_plus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.btnwidth_plus.Name = "btnwidth_plus" Me.btnwidth_plus.Name = "btnwidth_plus"
Me.btnwidth_plus.Size = New System.Drawing.Size(72, 27) Me.btnwidth_plus.Size = New System.Drawing.Size(100, 24)
Me.btnwidth_plus.TabIndex = 0 Me.btnwidth_plus.TabIndex = 0
Me.btnwidth_plus.Text = "größer" Me.btnwidth_plus.Text = "größer"
Me.btnwidth_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnwidth_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@ -369,9 +372,9 @@ Partial Class frmFormDesigner
'StatusStrip1 'StatusStrip1
' '
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblAenderungen}) Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblAenderungen})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 669) Me.StatusStrip1.Location = New System.Drawing.Point(0, 566)
Me.StatusStrip1.Name = "StatusStrip1" Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(1227, 22) Me.StatusStrip1.Size = New System.Drawing.Size(1199, 22)
Me.StatusStrip1.TabIndex = 20 Me.StatusStrip1.TabIndex = 20
Me.StatusStrip1.Text = "StatusStrip1" Me.StatusStrip1.Text = "StatusStrip1"
' '
@ -437,23 +440,23 @@ Partial Class frmFormDesigner
Me.MenuItemAddColumn.Size = New System.Drawing.Size(169, 22) Me.MenuItemAddColumn.Size = New System.Drawing.Size(169, 22)
Me.MenuItemAddColumn.Text = "Spalte hinzufügen" Me.MenuItemAddColumn.Text = "Spalte hinzufügen"
' '
'SplitContainer1 'SplitContainerDesigner
' '
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill Me.SplitContainerDesigner.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer1.Location = New System.Drawing.Point(0, 146) Me.SplitContainerDesigner.Location = New System.Drawing.Point(0, 146)
Me.SplitContainer1.Name = "SplitContainer1" Me.SplitContainerDesigner.Name = "SplitContainerDesigner"
' '
'SplitContainer1.Panel1 'SplitContainerDesigner.Panel1
' '
Me.SplitContainer1.Panel1.Controls.Add(Me.pnldesigner) Me.SplitContainerDesigner.Panel1.Controls.Add(Me.pnldesigner)
' '
'SplitContainer1.Panel2 'SplitContainerDesigner.Panel2
' '
Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) Me.SplitContainerDesigner.Panel2.Controls.Add(Me.Panel1)
Me.SplitContainer1.Panel2.Controls.Add(Me.TabControlEigenschaften) Me.SplitContainerDesigner.Panel2.Controls.Add(Me.GroupBox1)
Me.SplitContainer1.Size = New System.Drawing.Size(1227, 523) Me.SplitContainerDesigner.Size = New System.Drawing.Size(1199, 420)
Me.SplitContainer1.SplitterDistance = 842 Me.SplitContainerDesigner.SplitterDistance = 822
Me.SplitContainer1.TabIndex = 25 Me.SplitContainerDesigner.TabIndex = 25
' '
'pnldesigner 'pnldesigner
' '
@ -469,14 +472,14 @@ Partial Class frmFormDesigner
Me.pnldesigner.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.pnldesigner.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.pnldesigner.Name = "pnldesigner" Me.pnldesigner.Name = "pnldesigner"
Me.pnldesigner.ShowGrid = True Me.pnldesigner.ShowGrid = True
Me.pnldesigner.Size = New System.Drawing.Size(842, 523) Me.pnldesigner.Size = New System.Drawing.Size(822, 420)
Me.pnldesigner.TabIndex = 3 Me.pnldesigner.TabIndex = 3
' '
'Label1 'Label1
' '
Me.Label1.AutoSize = True Me.Label1.AutoSize = True
Me.Label1.ForeColor = System.Drawing.SystemColors.InactiveCaption Me.Label1.ForeColor = System.Drawing.SystemColors.InactiveCaption
Me.Label1.Location = New System.Drawing.Point(30, 40) Me.Label1.Location = New System.Drawing.Point(30, 20)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(347, 16) Me.Label1.Size = New System.Drawing.Size(347, 16)
Me.Label1.TabIndex = 6 Me.Label1.TabIndex = 6
@ -487,7 +490,7 @@ Partial Class frmFormDesigner
Me.lblhintergrund.AutoSize = True Me.lblhintergrund.AutoSize = True
Me.lblhintergrund.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblhintergrund.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblhintergrund.ForeColor = System.Drawing.SystemColors.InactiveCaption Me.lblhintergrund.ForeColor = System.Drawing.SystemColors.InactiveCaption
Me.lblhintergrund.Location = New System.Drawing.Point(30, 30) Me.lblhintergrund.Location = New System.Drawing.Point(30, 20)
Me.lblhintergrund.Name = "lblhintergrund" Me.lblhintergrund.Name = "lblhintergrund"
Me.lblhintergrund.Size = New System.Drawing.Size(248, 29) Me.lblhintergrund.Size = New System.Drawing.Size(248, 29)
Me.lblhintergrund.TabIndex = 1 Me.lblhintergrund.TabIndex = 1
@ -496,12 +499,12 @@ Partial Class frmFormDesigner
'RibbonControl1 'RibbonControl1
' '
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnItemFinishSQL, Me.BarButtonItem1, Me.BarButtonItem2}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtnItemFinishSQL, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarStaticItem1})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 4 Me.RibbonControl1.MaxItemId = 6
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.Size = New System.Drawing.Size(1227, 146) Me.RibbonControl1.Size = New System.Drawing.Size(1199, 146)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
' '
'bbtnItemFinishSQL 'bbtnItemFinishSQL
@ -525,18 +528,42 @@ Partial Class frmFormDesigner
Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem2.Name = "BarButtonItem2" Me.BarButtonItem2.Name = "BarButtonItem2"
' '
'BarButtonItem3
'
Me.BarButtonItem3.Caption = "Designer locked"
Me.BarButtonItem3.Id = 4
Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem3.ItemAppearance.Normal.BackColor = System.Drawing.Color.Red
Me.BarButtonItem3.ItemAppearance.Normal.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BarButtonItem3.ItemAppearance.Normal.Options.UseBackColor = True
Me.BarButtonItem3.ItemAppearance.Normal.Options.UseFont = True
Me.BarButtonItem3.Name = "BarButtonItem3"
'
'RibbonPage1 'RibbonPage1
' '
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Hintergrundfunktionen" Me.RibbonPage1.Text = "Hintergrundfunktionen"
' '
'RibbonPageGroup1 'RibbonPageGroup1
' '
Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnItemFinishSQL) Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnItemFinishSQL)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Funktionen" Me.RibbonPageGroup1.Text = "Funktionen"
' '
'RibbonStatusBar1
'
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 588)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1199, 21)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'RibbonPageGroup2 'RibbonPageGroup2
' '
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1) Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1)
@ -544,25 +571,33 @@ Partial Class frmFormDesigner
Me.RibbonPageGroup2.Name = "RibbonPageGroup2" Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
Me.RibbonPageGroup2.Text = "Control-Funktionen" Me.RibbonPageGroup2.Text = "Control-Funktionen"
' '
'RibbonStatusBar1 'BarStaticItem1
' '
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 691) Me.BarStaticItem1.Caption = "Locked"
Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.BarStaticItem1.Id = 5
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 Me.BarStaticItem1.ItemAppearance.Normal.Font = New System.Drawing.Font("Tahoma", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1227, 21) Me.BarStaticItem1.ItemAppearance.Normal.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
Me.BarStaticItem1.ItemAppearance.Normal.Options.UseFont = True
Me.BarStaticItem1.ItemAppearance.Normal.Options.UseForeColor = True
Me.BarStaticItem1.Name = "BarStaticItem1"
Me.BarStaticItem1.TextAlignment = System.Drawing.StringAlignment.Center
' '
'RibbonPage2 'Panel1
' '
Me.RibbonPage2.Name = "RibbonPage2" Me.Panel1.Controls.Add(Me.TabControlEigenschaften)
Me.RibbonPage2.Text = "RibbonPage2" Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 112)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(373, 308)
Me.Panel1.TabIndex = 23
' '
'frmFormDesigner 'frmFormDesigner
' '
Me.Appearance.Options.UseFont = True Me.Appearance.Options.UseFont = True
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1227, 712) Me.ClientSize = New System.Drawing.Size(1199, 609)
Me.Controls.Add(Me.SplitContainer1) Me.Controls.Add(Me.SplitContainerDesigner)
Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1) Me.Controls.Add(Me.RibbonControl1)
@ -587,13 +622,14 @@ Partial Class frmFormDesigner
CType(Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBWH_CHECK_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.GridControlContextMenu.ResumeLayout(False) Me.GridControlContextMenu.ResumeLayout(False)
Me.SplitContainer1.Panel1.ResumeLayout(False) Me.SplitContainerDesigner.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel2.ResumeLayout(False) Me.SplitContainerDesigner.Panel2.ResumeLayout(False)
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainerDesigner, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False) Me.SplitContainerDesigner.ResumeLayout(False)
Me.pnldesigner.ResumeLayout(False) Me.pnldesigner.ResumeLayout(False)
Me.pnldesigner.PerformLayout() Me.pnldesigner.PerformLayout()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -634,7 +670,7 @@ Partial Class frmFormDesigner
Friend WithEvents btnLine As Button Friend WithEvents btnLine As Button
Friend WithEvents GridControlContextMenu As ContextMenuStrip Friend WithEvents GridControlContextMenu As ContextMenuStrip
Friend WithEvents MenuItemAddColumn As ToolStripMenuItem Friend WithEvents MenuItemAddColumn As ToolStripMenuItem
Friend WithEvents SplitContainer1 As SplitContainer Friend WithEvents SplitContainerDesigner As SplitContainer
Friend WithEvents btnButton As Button Friend WithEvents btnButton As Button
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
@ -644,5 +680,8 @@ Partial Class frmFormDesigner
Friend WithEvents bbtnItemFinishSQL As DevExpress.XtraBars.BarButtonItem Friend WithEvents bbtnItemFinishSQL As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents Panel1 As Panel
Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
End Class End Class

26
app/DD_PM_WINDREAM/frmFormDesigner.resx
View File

@ -243,6 +243,32 @@
MTBsMy41LTMuNUM5LjcsMjYuNywxMi43LDI4LDE2LDI4YzUuOSwwLDEwLjgtNC4zLDExLjgtMTAgICBo MTBsMy41LTMuNUM5LjcsMjYuNywxMi43LDI4LDE2LDI4YzUuOSwwLDEwLjgtNC4zLDExLjgtMTAgICBo
LTQuMUMyMi44LDIxLjQsMTkuNywyNCwxNiwyNHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2 LTQuMUMyMi44LDIxLjQsMTkuNywyNCwxNiwyNHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2
Zz4L Zz4L
</value>
</data>
<data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFYEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJTZWN1cml0eV94NUZf
UGVybWlzc2lvbiI+DQogICAgPHBhdGggZD0iTTI3LDEwaC0zVjhjMC00LjQtMy42LTgtOC04UzgsMy42
LDgsOHYySDVjLTAuNiwwLTEsMC41LTEsMXYxOGMwLDAuNSwwLjQsMSwxLDFoMjJjMC42LDAsMS0wLjUs
MS0xVjExICAgQzI4LDEwLjUsMjcuNiwxMCwyNywxMHogTTE4LDI0aC00bDEuNC00LjFjLTAuOC0wLjMt
MS40LTEtMS40LTEuOWMwLTEuMSwwLjktMiwyLTJzMiwwLjksMiwyYzAsMC45LTAuNiwxLjYtMS40LDEu
OUwxOCwyNHogTTEyLDEwICAgVjhjMC0yLjIsMS44LTQsNC00czQsMS44LDQsNHYySDEyeiIgY2xhc3M9
IlllbGxvdyIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
</value> </value>
</data> </data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">

22
app/DD_PM_WINDREAM/frmFormDesigner.vb
View File

@ -11,6 +11,7 @@ Public Class frmFormDesigner
Public ProfileId As Integer Public ProfileId As Integer
Public ProfileName As String Public ProfileName As String
Public ProfileObjectType As String Public ProfileObjectType As String
Public Designer_Locked As Boolean = True
' Control Variables ' Control Variables
Private CurrentControl As Control = Nothing Private CurrentControl As Control = Nothing
@ -33,6 +34,10 @@ Public Class frmFormDesigner
Private Sub frmFormDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmFormDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load
Try Try
BarButtonItem3.Caption = "Designer locked"
BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Red
Designer_Locked = True
' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER ' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER
CURRENT_DESIGN_TYPE = "INPUT_INDEX" CURRENT_DESIGN_TYPE = "INPUT_INDEX"
@ -660,6 +665,9 @@ Public Class frmFormDesigner
Private Sub OnControl_MouseDown(sender As Control, e As MouseEventArgs) Private Sub OnControl_MouseDown(sender As Control, e As MouseEventArgs)
If e.Button = MouseButtons.Left Then If e.Button = MouseButtons.Left Then
If Designer_Locked Then
Exit Sub
End If
CurrentControl = sender CurrentControl = sender
Mouse_BeginLocation = e.Location Mouse_BeginLocation = e.Location
sender.BringToFront() sender.BringToFront()
@ -1180,4 +1188,18 @@ Public Class frmFormDesigner
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
LoadControls() LoadControls()
End Sub End Sub
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
If BarButtonItem3.Caption = "Designer locked" Then
BarButtonItem3.Caption = "Designer active"
BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Lime
Designer_Locked = False
Else
BarButtonItem3.Caption = "Designer locked"
BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Red
Designer_Locked = True
End If
End Sub
End Class End Class

37
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -191,25 +191,30 @@ Public Class frmMain
If IDB_ACTIVE = False And ERROR_STATE = "" Then If IDB_ACTIVE = False And ERROR_STATE = "" Then
Try Try
WINDREAM.Start_WMCC_andCo() If Init_windream() = True Then
If Not IsNothing(WINDREAM.oSession) Then WINDREAM.Start_WMCC_andCo()
If WINDREAM.oSession.aLoggedin = False Then If Not IsNothing(WINDREAM.oSession) Then
MsgBox("You could not be logged in to windream. Please check the log.", MsgBoxStyle.Critical) If WINDREAM.oSession.aLoggedin = False Then
MsgBox("You could not be logged in to windream. Please check the log.", MsgBoxStyle.Critical)
End If
Else
MsgBox("Login on windream was not possible. Please check the log.", MsgBoxStyle.Critical)
End If End If
Else
MsgBox("Login on windream was not possible. Please check the log.", MsgBoxStyle.Critical)
End If End If
'_windreamPM = New ClassPMWindream
'_windreamPM.Start_WMCC_andCo()
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
End Try End Try
Else Else
Dim oSQL = $"SELECT SQL_COMMAND FROM TBDD_SQL_COMMANDS WHERE TITLE = 'PM_IDB_DOC_DATA'" SOURCE_INIT = Init_IDB()
IDB_DOC_DATA_SQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING) If SOURCE_INIT = True Then
LOGGER.Debug($"Got the IDB_DOC_DATA_SQL..{IDB_DOC_DATA_SQL}") Dim oSQL = $"SELECT SQL_COMMAND FROM TBDD_SQL_COMMANDS WHERE TITLE = 'PM_IDB_DOC_DATA'"
IDB_DOC_DATA_SQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING)
LOGGER.Debug($"Got the IDB_DOC_DATA_SQL..{IDB_DOC_DATA_SQL}")
End If
End If End If
@ -1097,9 +1102,7 @@ Public Class frmMain
WINDREAM = New ClassPMWindream() WINDREAM = New ClassPMWindream()
WINDREAM.Create_Session() WINDREAM.Create_Session()
WINDREAM_ALLG = New ClassWindream_allgemein WINDREAM_ALLG = New ClassWindream_allgemein
Return WINDREAM.IsLoggedIn
LOGGER.Debug("windream initialized")
Return True
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
@ -1133,12 +1136,6 @@ Public Class frmMain
Exit Sub Exit Sub
End If End If
If IDB_ACTIVE = False Then
SOURCE_INIT = Init_windream()
Else
SOURCE_INIT = Init_IDB()
End If
If SOURCE_INIT = True Then If SOURCE_INIT = True Then

6
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -1704,8 +1704,10 @@ Public Class frmValidator
Dim oENABLE_GUID = oRowEnablingControl.Item("GUID") Dim oENABLE_GUID = oRowEnablingControl.Item("GUID")
Dim oENABLE_CtrlName = oRowEnablingControl.Item("NAME") Dim oENABLE_CtrlName = oRowEnablingControl.Item("NAME")
For Each oControl As Control In pnldesigner.Controls For Each oControl As Control In pnldesigner.Controls
oControl.Enabled = False If oENABLE_GUID = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid Then
Exit For oControl.Enabled = False
Exit For
End If
Next Next
Next Next
Catch ex As Exception Catch ex As Exception