This commit is contained in:
Digital Data - Marlon Schreiber
2018-04-10 15:37:15 +02:00
parent 58019b9fae
commit 0cbb2d25bb
12 changed files with 179 additions and 106 deletions

View File

@@ -22,7 +22,6 @@ Partial Class frmProfileDesigner
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim GUIDLabel As System.Windows.Forms.Label
Dim NAMELabel As System.Windows.Forms.Label
Dim DESCRIPTIONLabel As System.Windows.Forms.Label
@@ -65,7 +64,7 @@ Partial Class frmProfileDesigner
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet()
Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter()
Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
@@ -78,7 +77,7 @@ Partial Class frmProfileDesigner
Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.VWPM_PROFILE_USERBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton()
Me.cmbProfiles = New System.Windows.Forms.ToolStripSplitButton()
Me.TBPM_PROFILEBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
Me.TBPM_PROFILEBindingNavigator = New System.Windows.Forms.BindingNavigator()
Me.tstrpbtn_add = New System.Windows.Forms.ToolStripButton()
Me.tstrlblSave = New System.Windows.Forms.ToolStripLabel()
Me.btnRefreshProfiles = New System.Windows.Forms.ToolStripButton()
@@ -96,7 +95,7 @@ Partial Class frmProfileDesigner
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.cmbType = New System.Windows.Forms.ComboBox()
Me.TBPM_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_TYPEBindingSource = New System.Windows.Forms.BindingSource()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.MOVE2FOLDERTextBox = New System.Windows.Forms.TextBox()
Me.btnmovetoFolderDialog = New System.Windows.Forms.Button()
@@ -156,15 +155,15 @@ Partial Class frmProfileDesigner
Me.cmbIndexe2 = New System.Windows.Forms.ComboBox()
Me.btnSaveSQLCommand = New System.Windows.Forms.Button()
Me.SQL_COMMANDTextBox = New System.Windows.Forms.TextBox()
Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource()
Me.btnShowConnections = New System.Windows.Forms.Button()
Me.Label14 = New System.Windows.Forms.Label()
Me.cmbConnection = New System.Windows.Forms.ComboBox()
Me.TBPM_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator = New System.Windows.Forms.BindingNavigator()
Me.BindingNavigatorCountItem4 = New System.Windows.Forms.ToolStripLabel()
Me.BindingNavigatorMoveFirstItem4 = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMovePreviousItem4 = New System.Windows.Forms.ToolStripButton()
@@ -193,7 +192,7 @@ Partial Class frmProfileDesigner
Me.TBPM_PROFILE_ZuordnungDataGridView = New System.Windows.Forms.DataGridView()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.TBPM_PROFILE_ZuordnungBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
Me.TBPM_PROFILE_ZuordnungBindingNavigator = New System.Windows.Forms.BindingNavigator()
Me.BindingNavigatorCountItem1 = New System.Windows.Forms.ToolStripLabel()
Me.BindingNavigatorMoveFirstItem1 = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMovePreviousItem1 = New System.Windows.Forms.ToolStripButton()
@@ -211,8 +210,8 @@ Partial Class frmProfileDesigner
Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.TBPROFILE_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPROFILE_USERBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
Me.TBPROFILE_USERBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPROFILE_USERBindingNavigator = New System.Windows.Forms.BindingNavigator()
Me.BindingNavigatorCountItem2 = New System.Windows.Forms.ToolStripLabel()
Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMoveFirstItem2 = New System.Windows.Forms.ToolStripButton()
@@ -237,7 +236,7 @@ Partial Class frmProfileDesigner
Me.DataGridViewTextBoxColumn19 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn20 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn21 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.TBPM_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_USERBindingSource = New System.Windows.Forms.BindingSource()
Me.TabPage8 = New System.Windows.Forms.TabPage()
Me.RIGHT_FILE_DELETECheckBox = New System.Windows.Forms.CheckBox()
Me.lblSaveUser = New System.Windows.Forms.Label()
@@ -245,13 +244,12 @@ Partial Class frmProfileDesigner
Me.CHANGED_WHOTextBox1 = New System.Windows.Forms.TextBox()
Me.ADDED_WHENTextBox1 = New System.Windows.Forms.TextBox()
Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox()
Me.ADMINCheckBox = New System.Windows.Forms.CheckBox()
Me.EMAILTextBox = New System.Windows.Forms.TextBox()
Me.USERNAMETextBox = New System.Windows.Forms.TextBox()
Me.NAMETextBox1 = New System.Windows.Forms.TextBox()
Me.PRENAMETextBox = New System.Windows.Forms.TextBox()
Me.GUIDTextBox = New System.Windows.Forms.TextBox()
Me.TBPM_USERBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
Me.TBPM_USERBindingNavigator = New System.Windows.Forms.BindingNavigator()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
@@ -269,7 +267,7 @@ Partial Class frmProfileDesigner
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.Button2 = New System.Windows.Forms.Button()
Me.VEKTOR_DELIMITERTextBox = New System.Windows.Forms.TextBox()
Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource()
Me.btnConnections = New System.Windows.Forms.Button()
Me.btnopen_SQLAdmin = New System.Windows.Forms.Button()
Me.EMAIL_ACTIVECheckBox = New System.Windows.Forms.CheckBox()
@@ -297,8 +295,8 @@ Partial Class frmProfileDesigner
Me.DataGridViewTextBoxColumn23 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn24 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn25 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.TBPM_ERROR_LOGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_ERROR_LOGBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
Me.TBPM_ERROR_LOGBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_ERROR_LOGBindingNavigator = New System.Windows.Forms.BindingNavigator()
Me.BindingNavigatorCountItem3 = New System.Windows.Forms.ToolStripLabel()
Me.BindingNavigatorDeleteItem1 = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMoveFirstItem3 = New System.Windows.Forms.ToolStripButton()
@@ -309,7 +307,7 @@ Partial Class frmProfileDesigner
Me.BindingNavigatorMoveNextItem3 = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMoveLastItem3 = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorSeparator11 = New System.Windows.Forms.ToolStripSeparator()
Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tstrpinfo = New System.Windows.Forms.ToolStripStatusLabel()
Me.TBPROFILE_USERTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter()
@@ -319,9 +317,10 @@ Partial Class frmProfileDesigner
Me.TBPM_ERROR_LOGTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_ERROR_LOGTableAdapter()
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter()
Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter()
Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter()
Me.TBPM_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_CONNECTIONTableAdapter()
Me.Button4 = New System.Windows.Forms.Button()
GUIDLabel = New System.Windows.Forms.Label()
NAMELabel = New System.Windows.Forms.Label()
DESCRIPTIONLabel = New System.Windows.Forms.Label()
@@ -1480,7 +1479,7 @@ Partial Class frmProfileDesigner
Me.TabControlFinalIndices.Location = New System.Drawing.Point(668, 161)
Me.TabControlFinalIndices.Name = "TabControlFinalIndices"
Me.TabControlFinalIndices.SelectedIndex = 0
Me.TabControlFinalIndices.Size = New System.Drawing.Size(1587, 564)
Me.TabControlFinalIndices.Size = New System.Drawing.Size(1587, 567)
Me.TabControlFinalIndices.TabIndex = 90
'
'TabPage9
@@ -1501,7 +1500,7 @@ Partial Class frmProfileDesigner
Me.TabPage9.Location = New System.Drawing.Point(4, 25)
Me.TabPage9.Name = "TabPage9"
Me.TabPage9.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage9.Size = New System.Drawing.Size(1579, 535)
Me.TabPage9.Size = New System.Drawing.Size(1579, 538)
Me.TabPage9.TabIndex = 0
Me.TabPage9.Text = "Fester Wert"
Me.TabPage9.UseVisualStyleBackColor = True
@@ -1670,7 +1669,7 @@ Partial Class frmProfileDesigner
Me.TabPage10.Location = New System.Drawing.Point(4, 25)
Me.TabPage10.Name = "TabPage10"
Me.TabPage10.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage10.Size = New System.Drawing.Size(1579, 538)
Me.TabPage10.Size = New System.Drawing.Size(1579, 541)
Me.TabPage10.TabIndex = 1
Me.TabPage10.Text = "Dynamisches SQL"
Me.TabPage10.UseVisualStyleBackColor = True
@@ -1930,7 +1929,7 @@ Partial Class frmProfileDesigner
Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.Location = New System.Drawing.Point(9, 161)
Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.MultiSelect = False
Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.Name = "TBPM_PROFILE_FINAL_INDEXINGDataGridView"
Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.Size = New System.Drawing.Size(653, 582)
Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.Size = New System.Drawing.Size(653, 585)
Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.TabIndex = 75
'
'GUID
@@ -2481,6 +2480,7 @@ Partial Class frmProfileDesigner
'TabPage8
'
Me.TabPage8.AutoScroll = True
Me.TabPage8.Controls.Add(Me.Button4)
Me.TabPage8.Controls.Add(Me.RIGHT_FILE_DELETECheckBox)
Me.TabPage8.Controls.Add(Me.lblSaveUser)
Me.TabPage8.Controls.Add(CHANGED_WHENLabel1)
@@ -2491,7 +2491,6 @@ Partial Class frmProfileDesigner
Me.TabPage8.Controls.Add(Me.ADDED_WHENTextBox1)
Me.TabPage8.Controls.Add(ADDED_WHOLabel1)
Me.TabPage8.Controls.Add(Me.ADDED_WHOTextBox1)
Me.TabPage8.Controls.Add(Me.ADMINCheckBox)
Me.TabPage8.Controls.Add(EMAILLabel)
Me.TabPage8.Controls.Add(Me.EMAILTextBox)
Me.TabPage8.Controls.Add(USERNAMELabel)
@@ -2514,7 +2513,7 @@ Partial Class frmProfileDesigner
'
Me.RIGHT_FILE_DELETECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_USERBindingSource, "PM_RIGHT_FILE_DELETE", True))
Me.RIGHT_FILE_DELETECheckBox.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.RIGHT_FILE_DELETECheckBox.Location = New System.Drawing.Point(624, 66)
Me.RIGHT_FILE_DELETECheckBox.Location = New System.Drawing.Point(520, 66)
Me.RIGHT_FILE_DELETECheckBox.Name = "RIGHT_FILE_DELETECheckBox"
Me.RIGHT_FILE_DELETECheckBox.Size = New System.Drawing.Size(136, 24)
Me.RIGHT_FILE_DELETECheckBox.TabIndex = 79
@@ -2578,17 +2577,6 @@ Partial Class frmProfileDesigner
Me.ADDED_WHOTextBox1.Size = New System.Drawing.Size(188, 22)
Me.ADDED_WHOTextBox1.TabIndex = 12
'
'ADMINCheckBox
'
Me.ADMINCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_USERBindingSource, "PM_ADMIN", True))
Me.ADMINCheckBox.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ADMINCheckBox.Location = New System.Drawing.Point(520, 66)
Me.ADMINCheckBox.Name = "ADMINCheckBox"
Me.ADMINCheckBox.Size = New System.Drawing.Size(76, 24)
Me.ADMINCheckBox.TabIndex = 11
Me.ADMINCheckBox.Text = "Admin?"
Me.ADMINCheckBox.UseVisualStyleBackColor = True
'
'EMAILTextBox
'
Me.EMAILTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_USERBindingSource, "EMAIL", True))
@@ -3261,6 +3249,15 @@ Partial Class frmProfileDesigner
'
Me.TBPM_CONNECTIONTableAdapter.ClearBeforeFill = True
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(672, 67)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(147, 23)
Me.Button4.TabIndex = 80
Me.Button4.Text = "User als Admin setzen"
Me.Button4.UseVisualStyleBackColor = True
'
'frmProfileDesigner
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -3582,7 +3579,6 @@ Partial Class frmProfileDesigner
Friend WithEvents CHANGED_WHOTextBox1 As System.Windows.Forms.TextBox
Friend WithEvents ADDED_WHENTextBox1 As System.Windows.Forms.TextBox
Friend WithEvents ADDED_WHOTextBox1 As System.Windows.Forms.TextBox
Friend WithEvents ADMINCheckBox As System.Windows.Forms.CheckBox
Friend WithEvents EMAILTextBox As System.Windows.Forms.TextBox
Friend WithEvents USERNAMETextBox As System.Windows.Forms.TextBox
Friend WithEvents NAMETextBox1 As System.Windows.Forms.TextBox
@@ -3626,4 +3622,5 @@ Partial Class frmProfileDesigner
Friend WithEvents ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox As CheckBox
Friend WithEvents SQL_VIEWTextBox As TextBox
Friend WithEvents WORK_HISTORY_ENTRYTextBox As TextBox
Friend WithEvents Button4 As Button
End Class