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

MS PM mit WM

Browse Source
This commit is contained in:
SchreiberM 2020-02-07 14:34:18 +01:00
parent eea8241375
commit f150f3d897
4 changed files with 190 additions and 142 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD_PM_WINDREAM/ClassInit.vb
View File

@ -130,7 +130,8 @@ Public Class ClassInit
Try Try
USER_USERNAME = Environment.UserName USER_USERNAME = Environment.UserName
Try Try
DT_CLIENT_USER = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{0}')", USER_USERNAME), False) Dim oSQL = $"SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{USER_USERNAME}')"
DT_CLIENT_USER = ClassDatabase.Return_Datatable(oSQL, False)
If DT_CLIENT_USER.Rows.Count > 1 Then If DT_CLIENT_USER.Rows.Count > 1 Then
frmClientLogin.ShowDialog() frmClientLogin.ShowDialog()
ElseIf DT_CLIENT_USER.Rows.Count = 1 Then ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
@ -138,8 +139,9 @@ Public Class ClassInit
Else Else
ERROR_STATE = "NO CLIENT" ERROR_STATE = "NO CLIENT"
Dim oDT As DataTable = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("No Client relation") Dim oDT As DataTable = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("No Client relation")
'Related to a client
' Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!") ' Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
MsgBox(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2"), MsgBoxStyle.Exclamation) MsgBox(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2") & vbNewLine & vbNewLine & oSQL, MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
End If End If
Catch ex As Exception Catch ex As Exception

73
app/DD_PM_WINDREAM/frmAdmin2.Designer.vb generated
View File

@ -92,7 +92,6 @@ Partial Class frmAdmin2
Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit()
Me.LANGUAGEComboBoxEdit = New DevExpress.XtraEditors.ComboBoxEdit() Me.LANGUAGEComboBoxEdit = New DevExpress.XtraEditors.ComboBoxEdit()
Me.CAPT_TYPETextEdit = New DevExpress.XtraEditors.TextEdit() Me.CAPT_TYPETextEdit = New DevExpress.XtraEditors.TextEdit()
Me.STRING1TextEdit = New DevExpress.XtraEditors.TextEdit()
Me.STRING2TextEdit = New DevExpress.XtraEditors.TextEdit() Me.STRING2TextEdit = New DevExpress.XtraEditors.TextEdit()
Me.STRING3TextEdit = New DevExpress.XtraEditors.TextEdit() Me.STRING3TextEdit = New DevExpress.XtraEditors.TextEdit()
Me.STRING4TextEdit = New DevExpress.XtraEditors.TextEdit() Me.STRING4TextEdit = New DevExpress.XtraEditors.TextEdit()
@ -143,6 +142,7 @@ Partial Class frmAdmin2
Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter() Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter()
Me.LayoutConverter1 = New DevExpress.XtraLayout.Converter.LayoutConverter(Me.components) Me.LayoutConverter1 = New DevExpress.XtraLayout.Converter.LayoutConverter(Me.components)
Me.STRING1TextEdit = New DevExpress.XtraEditors.MemoEdit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout() Me.XtraTabControl1.SuspendLayout()
@ -186,7 +186,6 @@ Partial Class frmAdmin2
CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LANGUAGEComboBoxEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LANGUAGEComboBoxEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.CAPT_TYPETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CAPT_TYPETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.STRING2TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING2TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.STRING3TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING3TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.STRING4TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.STRING4TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
@ -221,6 +220,7 @@ Partial Class frmAdmin2
Me.BindingNavigator2.SuspendLayout() Me.BindingNavigator2.SuspendLayout()
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'RibbonControl1 'RibbonControl1
@ -600,7 +600,7 @@ Partial Class frmAdmin2
Me.Root.GroupBordersVisible = False Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup1}) Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup1})
Me.Root.Name = "Root" Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(698, 476) Me.Root.Size = New System.Drawing.Size(698, 491)
Me.Root.TextVisible = False Me.Root.TextVisible = False
' '
'LayoutControlGroup1 'LayoutControlGroup1
@ -610,7 +610,7 @@ Partial Class frmAdmin2
Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.ItemForGUID, Me.ItemForTITLE, Me.ItemForEMAIL_SUBJECT, Me.ItemForEMAIL_BODY1, Me.ItemForEMAIL_BODY2, Me.ItemForEMAIL_BODY3, Me.ItemForADDED_WHO, Me.ItemForCHANGED_WHO, Me.ItemForADDED_WHEN, Me.ItemForCHANGED_WHEN}) Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.ItemForGUID, Me.ItemForTITLE, Me.ItemForEMAIL_SUBJECT, Me.ItemForEMAIL_BODY1, Me.ItemForEMAIL_BODY2, Me.ItemForEMAIL_BODY3, Me.ItemForADDED_WHO, Me.ItemForCHANGED_WHO, Me.ItemForADDED_WHEN, Me.ItemForCHANGED_WHEN})
Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 0) Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlGroup1.Name = "autoGeneratedGroup0" Me.LayoutControlGroup1.Name = "autoGeneratedGroup0"
Me.LayoutControlGroup1.Size = New System.Drawing.Size(678, 456) Me.LayoutControlGroup1.Size = New System.Drawing.Size(678, 471)
' '
'ItemForGUID 'ItemForGUID
' '
@ -644,23 +644,23 @@ Partial Class frmAdmin2
Me.ItemForEMAIL_BODY1.Control = Me.EMAIL_BODY1TextEdit Me.ItemForEMAIL_BODY1.Control = Me.EMAIL_BODY1TextEdit
Me.ItemForEMAIL_BODY1.Location = New System.Drawing.Point(0, 72) Me.ItemForEMAIL_BODY1.Location = New System.Drawing.Point(0, 72)
Me.ItemForEMAIL_BODY1.Name = "ItemForEMAIL_BODY1" Me.ItemForEMAIL_BODY1.Name = "ItemForEMAIL_BODY1"
Me.ItemForEMAIL_BODY1.Size = New System.Drawing.Size(678, 137) Me.ItemForEMAIL_BODY1.Size = New System.Drawing.Size(678, 142)
resources.ApplyResources(Me.ItemForEMAIL_BODY1, "ItemForEMAIL_BODY1") resources.ApplyResources(Me.ItemForEMAIL_BODY1, "ItemForEMAIL_BODY1")
Me.ItemForEMAIL_BODY1.TextSize = New System.Drawing.Size(74, 13) Me.ItemForEMAIL_BODY1.TextSize = New System.Drawing.Size(74, 13)
' '
'ItemForEMAIL_BODY2 'ItemForEMAIL_BODY2
' '
Me.ItemForEMAIL_BODY2.Control = Me.EMAIL_BODY2TextEdit Me.ItemForEMAIL_BODY2.Control = Me.EMAIL_BODY2TextEdit
Me.ItemForEMAIL_BODY2.Location = New System.Drawing.Point(0, 209) Me.ItemForEMAIL_BODY2.Location = New System.Drawing.Point(0, 214)
Me.ItemForEMAIL_BODY2.Name = "ItemForEMAIL_BODY2" Me.ItemForEMAIL_BODY2.Name = "ItemForEMAIL_BODY2"
Me.ItemForEMAIL_BODY2.Size = New System.Drawing.Size(678, 175) Me.ItemForEMAIL_BODY2.Size = New System.Drawing.Size(678, 185)
resources.ApplyResources(Me.ItemForEMAIL_BODY2, "ItemForEMAIL_BODY2") resources.ApplyResources(Me.ItemForEMAIL_BODY2, "ItemForEMAIL_BODY2")
Me.ItemForEMAIL_BODY2.TextSize = New System.Drawing.Size(74, 13) Me.ItemForEMAIL_BODY2.TextSize = New System.Drawing.Size(74, 13)
' '
'ItemForEMAIL_BODY3 'ItemForEMAIL_BODY3
' '
Me.ItemForEMAIL_BODY3.Control = Me.EMAIL_BODY3TextEdit Me.ItemForEMAIL_BODY3.Control = Me.EMAIL_BODY3TextEdit
Me.ItemForEMAIL_BODY3.Location = New System.Drawing.Point(0, 384) Me.ItemForEMAIL_BODY3.Location = New System.Drawing.Point(0, 399)
Me.ItemForEMAIL_BODY3.Name = "ItemForEMAIL_BODY3" Me.ItemForEMAIL_BODY3.Name = "ItemForEMAIL_BODY3"
Me.ItemForEMAIL_BODY3.Size = New System.Drawing.Size(678, 24) Me.ItemForEMAIL_BODY3.Size = New System.Drawing.Size(678, 24)
resources.ApplyResources(Me.ItemForEMAIL_BODY3, "ItemForEMAIL_BODY3") resources.ApplyResources(Me.ItemForEMAIL_BODY3, "ItemForEMAIL_BODY3")
@ -669,7 +669,7 @@ Partial Class frmAdmin2
'ItemForADDED_WHO 'ItemForADDED_WHO
' '
Me.ItemForADDED_WHO.Control = Me.ADDED_WHOTextEdit Me.ItemForADDED_WHO.Control = Me.ADDED_WHOTextEdit
Me.ItemForADDED_WHO.Location = New System.Drawing.Point(0, 408) Me.ItemForADDED_WHO.Location = New System.Drawing.Point(0, 423)
Me.ItemForADDED_WHO.Name = "ItemForADDED_WHO" Me.ItemForADDED_WHO.Name = "ItemForADDED_WHO"
Me.ItemForADDED_WHO.Size = New System.Drawing.Size(339, 24) Me.ItemForADDED_WHO.Size = New System.Drawing.Size(339, 24)
resources.ApplyResources(Me.ItemForADDED_WHO, "ItemForADDED_WHO") resources.ApplyResources(Me.ItemForADDED_WHO, "ItemForADDED_WHO")
@ -678,7 +678,7 @@ Partial Class frmAdmin2
'ItemForCHANGED_WHO 'ItemForCHANGED_WHO
' '
Me.ItemForCHANGED_WHO.Control = Me.CHANGED_WHOTextEdit Me.ItemForCHANGED_WHO.Control = Me.CHANGED_WHOTextEdit
Me.ItemForCHANGED_WHO.Location = New System.Drawing.Point(0, 432) Me.ItemForCHANGED_WHO.Location = New System.Drawing.Point(0, 447)
Me.ItemForCHANGED_WHO.Name = "ItemForCHANGED_WHO" Me.ItemForCHANGED_WHO.Name = "ItemForCHANGED_WHO"
Me.ItemForCHANGED_WHO.Size = New System.Drawing.Size(339, 24) Me.ItemForCHANGED_WHO.Size = New System.Drawing.Size(339, 24)
resources.ApplyResources(Me.ItemForCHANGED_WHO, "ItemForCHANGED_WHO") resources.ApplyResources(Me.ItemForCHANGED_WHO, "ItemForCHANGED_WHO")
@ -687,7 +687,7 @@ Partial Class frmAdmin2
'ItemForADDED_WHEN 'ItemForADDED_WHEN
' '
Me.ItemForADDED_WHEN.Control = Me.ADDED_WHENDateEdit Me.ItemForADDED_WHEN.Control = Me.ADDED_WHENDateEdit
Me.ItemForADDED_WHEN.Location = New System.Drawing.Point(339, 408) Me.ItemForADDED_WHEN.Location = New System.Drawing.Point(339, 423)
Me.ItemForADDED_WHEN.Name = "ItemForADDED_WHEN" Me.ItemForADDED_WHEN.Name = "ItemForADDED_WHEN"
Me.ItemForADDED_WHEN.Size = New System.Drawing.Size(339, 24) Me.ItemForADDED_WHEN.Size = New System.Drawing.Size(339, 24)
resources.ApplyResources(Me.ItemForADDED_WHEN, "ItemForADDED_WHEN") resources.ApplyResources(Me.ItemForADDED_WHEN, "ItemForADDED_WHEN")
@ -696,7 +696,7 @@ Partial Class frmAdmin2
'ItemForCHANGED_WHEN 'ItemForCHANGED_WHEN
' '
Me.ItemForCHANGED_WHEN.Control = Me.CHANGED_WHENDateEdit Me.ItemForCHANGED_WHEN.Control = Me.CHANGED_WHENDateEdit
Me.ItemForCHANGED_WHEN.Location = New System.Drawing.Point(339, 432) Me.ItemForCHANGED_WHEN.Location = New System.Drawing.Point(339, 447)
Me.ItemForCHANGED_WHEN.Name = "ItemForCHANGED_WHEN" Me.ItemForCHANGED_WHEN.Name = "ItemForCHANGED_WHEN"
Me.ItemForCHANGED_WHEN.Size = New System.Drawing.Size(339, 24) Me.ItemForCHANGED_WHEN.Size = New System.Drawing.Size(339, 24)
resources.ApplyResources(Me.ItemForCHANGED_WHEN, "ItemForCHANGED_WHEN") resources.ApplyResources(Me.ItemForCHANGED_WHEN, "ItemForCHANGED_WHEN")
@ -752,7 +752,6 @@ Partial Class frmAdmin2
Me.DataLayoutControl2.Controls.Add(Me.TextEdit2) Me.DataLayoutControl2.Controls.Add(Me.TextEdit2)
Me.DataLayoutControl2.Controls.Add(Me.LANGUAGEComboBoxEdit) Me.DataLayoutControl2.Controls.Add(Me.LANGUAGEComboBoxEdit)
Me.DataLayoutControl2.Controls.Add(Me.CAPT_TYPETextEdit) Me.DataLayoutControl2.Controls.Add(Me.CAPT_TYPETextEdit)
Me.DataLayoutControl2.Controls.Add(Me.STRING1TextEdit)
Me.DataLayoutControl2.Controls.Add(Me.STRING2TextEdit) Me.DataLayoutControl2.Controls.Add(Me.STRING2TextEdit)
Me.DataLayoutControl2.Controls.Add(Me.STRING3TextEdit) Me.DataLayoutControl2.Controls.Add(Me.STRING3TextEdit)
Me.DataLayoutControl2.Controls.Add(Me.STRING4TextEdit) Me.DataLayoutControl2.Controls.Add(Me.STRING4TextEdit)
@ -764,9 +763,11 @@ Partial Class frmAdmin2
Me.DataLayoutControl2.Controls.Add(Me.CHANGED_WHENTextEdit) Me.DataLayoutControl2.Controls.Add(Me.CHANGED_WHENTextEdit)
Me.DataLayoutControl2.Controls.Add(Me.OBJ_NAMETextEdit) Me.DataLayoutControl2.Controls.Add(Me.OBJ_NAMETextEdit)
Me.DataLayoutControl2.Controls.Add(Me.INTERNALCheckEdit) Me.DataLayoutControl2.Controls.Add(Me.INTERNALCheckEdit)
Me.DataLayoutControl2.Controls.Add(Me.STRING1TextEdit)
Me.DataLayoutControl2.DataSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource Me.DataLayoutControl2.DataSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource
resources.ApplyResources(Me.DataLayoutControl2, "DataLayoutControl2") resources.ApplyResources(Me.DataLayoutControl2, "DataLayoutControl2")
Me.DataLayoutControl2.Name = "DataLayoutControl2" Me.DataLayoutControl2.Name = "DataLayoutControl2"
Me.DataLayoutControl2.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1102, 272, 650, 400)
Me.DataLayoutControl2.Root = Me.LayoutControlGroup2 Me.DataLayoutControl2.Root = Me.LayoutControlGroup2
' '
'TextEdit1 'TextEdit1
@ -821,14 +822,6 @@ Partial Class frmAdmin2
Me.CAPT_TYPETextEdit.Name = "CAPT_TYPETextEdit" Me.CAPT_TYPETextEdit.Name = "CAPT_TYPETextEdit"
Me.CAPT_TYPETextEdit.StyleController = Me.DataLayoutControl2 Me.CAPT_TYPETextEdit.StyleController = Me.DataLayoutControl2
' '
'STRING1TextEdit
'
Me.STRING1TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True))
resources.ApplyResources(Me.STRING1TextEdit, "STRING1TextEdit")
Me.STRING1TextEdit.MenuManager = Me.RibbonControl1
Me.STRING1TextEdit.Name = "STRING1TextEdit"
Me.STRING1TextEdit.StyleController = Me.DataLayoutControl2
'
'STRING2TextEdit 'STRING2TextEdit
' '
Me.STRING2TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING2", True)) Me.STRING2TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING2", True))
@ -940,7 +933,7 @@ Partial Class frmAdmin2
Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.LayoutControlGroup2.GroupBordersVisible = False Me.LayoutControlGroup2.GroupBordersVisible = False
Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup3}) Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup3})
Me.LayoutControlGroup2.Name = "LayoutControlGroup2" Me.LayoutControlGroup2.Name = "Root"
Me.LayoutControlGroup2.Size = New System.Drawing.Size(544, 479) Me.LayoutControlGroup2.Size = New System.Drawing.Size(544, 479)
Me.LayoutControlGroup2.TextVisible = False Me.LayoutControlGroup2.TextVisible = False
' '
@ -967,14 +960,14 @@ Partial Class frmAdmin2
Me.ItemForSTRING1.Control = Me.STRING1TextEdit Me.ItemForSTRING1.Control = Me.STRING1TextEdit
Me.ItemForSTRING1.Location = New System.Drawing.Point(0, 120) Me.ItemForSTRING1.Location = New System.Drawing.Point(0, 120)
Me.ItemForSTRING1.Name = "ItemForSTRING1" Me.ItemForSTRING1.Name = "ItemForSTRING1"
Me.ItemForSTRING1.Size = New System.Drawing.Size(524, 24) Me.ItemForSTRING1.Size = New System.Drawing.Size(524, 171)
resources.ApplyResources(Me.ItemForSTRING1, "ItemForSTRING1") resources.ApplyResources(Me.ItemForSTRING1, "ItemForSTRING1")
Me.ItemForSTRING1.TextSize = New System.Drawing.Size(74, 13) Me.ItemForSTRING1.TextSize = New System.Drawing.Size(74, 13)
' '
'ItemForSTRING2 'ItemForSTRING2
' '
Me.ItemForSTRING2.Control = Me.STRING2TextEdit Me.ItemForSTRING2.Control = Me.STRING2TextEdit
Me.ItemForSTRING2.Location = New System.Drawing.Point(0, 144) Me.ItemForSTRING2.Location = New System.Drawing.Point(0, 291)
Me.ItemForSTRING2.Name = "ItemForSTRING2" Me.ItemForSTRING2.Name = "ItemForSTRING2"
Me.ItemForSTRING2.Size = New System.Drawing.Size(524, 24) Me.ItemForSTRING2.Size = New System.Drawing.Size(524, 24)
resources.ApplyResources(Me.ItemForSTRING2, "ItemForSTRING2") resources.ApplyResources(Me.ItemForSTRING2, "ItemForSTRING2")
@ -983,7 +976,7 @@ Partial Class frmAdmin2
'ItemForSTRING3 'ItemForSTRING3
' '
Me.ItemForSTRING3.Control = Me.STRING3TextEdit Me.ItemForSTRING3.Control = Me.STRING3TextEdit
Me.ItemForSTRING3.Location = New System.Drawing.Point(0, 168) Me.ItemForSTRING3.Location = New System.Drawing.Point(0, 315)
Me.ItemForSTRING3.Name = "ItemForSTRING3" Me.ItemForSTRING3.Name = "ItemForSTRING3"
Me.ItemForSTRING3.Size = New System.Drawing.Size(524, 24) Me.ItemForSTRING3.Size = New System.Drawing.Size(524, 24)
resources.ApplyResources(Me.ItemForSTRING3, "ItemForSTRING3") resources.ApplyResources(Me.ItemForSTRING3, "ItemForSTRING3")
@ -992,7 +985,7 @@ Partial Class frmAdmin2
'ItemForSTRING4 'ItemForSTRING4
' '
Me.ItemForSTRING4.Control = Me.STRING4TextEdit Me.ItemForSTRING4.Control = Me.STRING4TextEdit
Me.ItemForSTRING4.Location = New System.Drawing.Point(0, 192) Me.ItemForSTRING4.Location = New System.Drawing.Point(0, 339)
Me.ItemForSTRING4.Name = "ItemForSTRING4" Me.ItemForSTRING4.Name = "ItemForSTRING4"
Me.ItemForSTRING4.Size = New System.Drawing.Size(524, 24) Me.ItemForSTRING4.Size = New System.Drawing.Size(524, 24)
resources.ApplyResources(Me.ItemForSTRING4, "ItemForSTRING4") resources.ApplyResources(Me.ItemForSTRING4, "ItemForSTRING4")
@ -1001,7 +994,7 @@ Partial Class frmAdmin2
'ItemForSTRING5 'ItemForSTRING5
' '
Me.ItemForSTRING5.Control = Me.STRING5TextEdit Me.ItemForSTRING5.Control = Me.STRING5TextEdit
Me.ItemForSTRING5.Location = New System.Drawing.Point(0, 216) Me.ItemForSTRING5.Location = New System.Drawing.Point(0, 363)
Me.ItemForSTRING5.Name = "ItemForSTRING5" Me.ItemForSTRING5.Name = "ItemForSTRING5"
Me.ItemForSTRING5.Size = New System.Drawing.Size(524, 24) Me.ItemForSTRING5.Size = New System.Drawing.Size(524, 24)
resources.ApplyResources(Me.ItemForSTRING5, "ItemForSTRING5") resources.ApplyResources(Me.ItemForSTRING5, "ItemForSTRING5")
@ -1010,7 +1003,7 @@ Partial Class frmAdmin2
'ItemForSTRING6 'ItemForSTRING6
' '
Me.ItemForSTRING6.Control = Me.STRING6TextEdit Me.ItemForSTRING6.Control = Me.STRING6TextEdit
Me.ItemForSTRING6.Location = New System.Drawing.Point(0, 240) Me.ItemForSTRING6.Location = New System.Drawing.Point(0, 387)
Me.ItemForSTRING6.Name = "ItemForSTRING6" Me.ItemForSTRING6.Name = "ItemForSTRING6"
Me.ItemForSTRING6.Size = New System.Drawing.Size(524, 24) Me.ItemForSTRING6.Size = New System.Drawing.Size(524, 24)
resources.ApplyResources(Me.ItemForSTRING6, "ItemForSTRING6") resources.ApplyResources(Me.ItemForSTRING6, "ItemForSTRING6")
@ -1019,7 +1012,7 @@ Partial Class frmAdmin2
'LayoutControlItem3 'LayoutControlItem3
' '
Me.LayoutControlItem3.Control = Me.TextEdit3 Me.LayoutControlItem3.Control = Me.TextEdit3
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 264) Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 411)
Me.LayoutControlItem3.Name = "ItemForADDED_WHO" Me.LayoutControlItem3.Name = "ItemForADDED_WHO"
Me.LayoutControlItem3.Size = New System.Drawing.Size(262, 24) Me.LayoutControlItem3.Size = New System.Drawing.Size(262, 24)
resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3") resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3")
@ -1028,16 +1021,16 @@ Partial Class frmAdmin2
'LayoutControlItem5 'LayoutControlItem5
' '
Me.LayoutControlItem5.Control = Me.TextEdit4 Me.LayoutControlItem5.Control = Me.TextEdit4
Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 288) Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 435)
Me.LayoutControlItem5.Name = "ItemForCHANGED_WHO" Me.LayoutControlItem5.Name = "ItemForCHANGED_WHO"
Me.LayoutControlItem5.Size = New System.Drawing.Size(262, 171) Me.LayoutControlItem5.Size = New System.Drawing.Size(262, 24)
resources.ApplyResources(Me.LayoutControlItem5, "LayoutControlItem5") resources.ApplyResources(Me.LayoutControlItem5, "LayoutControlItem5")
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(74, 13) Me.LayoutControlItem5.TextSize = New System.Drawing.Size(74, 13)
' '
'LayoutControlItem4 'LayoutControlItem4
' '
Me.LayoutControlItem4.Control = Me.ADDED_WHENTextEdit Me.LayoutControlItem4.Control = Me.ADDED_WHENTextEdit
Me.LayoutControlItem4.Location = New System.Drawing.Point(262, 264) Me.LayoutControlItem4.Location = New System.Drawing.Point(262, 411)
Me.LayoutControlItem4.Name = "ItemForADDED_WHEN" Me.LayoutControlItem4.Name = "ItemForADDED_WHEN"
Me.LayoutControlItem4.Size = New System.Drawing.Size(262, 24) Me.LayoutControlItem4.Size = New System.Drawing.Size(262, 24)
resources.ApplyResources(Me.LayoutControlItem4, "LayoutControlItem4") resources.ApplyResources(Me.LayoutControlItem4, "LayoutControlItem4")
@ -1046,9 +1039,9 @@ Partial Class frmAdmin2
'LayoutControlItem6 'LayoutControlItem6
' '
Me.LayoutControlItem6.Control = Me.CHANGED_WHENTextEdit Me.LayoutControlItem6.Control = Me.CHANGED_WHENTextEdit
Me.LayoutControlItem6.Location = New System.Drawing.Point(262, 288) Me.LayoutControlItem6.Location = New System.Drawing.Point(262, 435)
Me.LayoutControlItem6.Name = "ItemForCHANGED_WHEN" Me.LayoutControlItem6.Name = "ItemForCHANGED_WHEN"
Me.LayoutControlItem6.Size = New System.Drawing.Size(262, 171) Me.LayoutControlItem6.Size = New System.Drawing.Size(262, 24)
resources.ApplyResources(Me.LayoutControlItem6, "LayoutControlItem6") resources.ApplyResources(Me.LayoutControlItem6, "LayoutControlItem6")
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(74, 13) Me.LayoutControlItem6.TextSize = New System.Drawing.Size(74, 13)
' '
@ -1244,6 +1237,14 @@ Partial Class frmAdmin2
' '
Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter.ClearBeforeFill = True Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter.ClearBeforeFill = True
' '
'STRING1TextEdit
'
Me.STRING1TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True))
resources.ApplyResources(Me.STRING1TextEdit, "STRING1TextEdit")
Me.STRING1TextEdit.MenuManager = Me.RibbonControl1
Me.STRING1TextEdit.Name = "STRING1TextEdit"
Me.STRING1TextEdit.StyleController = Me.DataLayoutControl2
'
'frmAdmin2 'frmAdmin2
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -1301,7 +1302,6 @@ Partial Class frmAdmin2
CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LANGUAGEComboBoxEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LANGUAGEComboBoxEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.CAPT_TYPETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CAPT_TYPETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.STRING2TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING2TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.STRING3TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING3TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.STRING4TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.STRING4TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit()
@ -1337,6 +1337,7 @@ Partial Class frmAdmin2
Me.BindingNavigator2.PerformLayout() Me.BindingNavigator2.PerformLayout()
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -1430,7 +1431,6 @@ Partial Class frmAdmin2
Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit
Friend WithEvents LANGUAGEComboBoxEdit As DevExpress.XtraEditors.ComboBoxEdit Friend WithEvents LANGUAGEComboBoxEdit As DevExpress.XtraEditors.ComboBoxEdit
Friend WithEvents CAPT_TYPETextEdit As DevExpress.XtraEditors.TextEdit Friend WithEvents CAPT_TYPETextEdit As DevExpress.XtraEditors.TextEdit
Friend WithEvents STRING1TextEdit As DevExpress.XtraEditors.TextEdit
Friend WithEvents STRING2TextEdit As DevExpress.XtraEditors.TextEdit Friend WithEvents STRING2TextEdit As DevExpress.XtraEditors.TextEdit
Friend WithEvents STRING3TextEdit As DevExpress.XtraEditors.TextEdit Friend WithEvents STRING3TextEdit As DevExpress.XtraEditors.TextEdit
Friend WithEvents STRING4TextEdit As DevExpress.XtraEditors.TextEdit Friend WithEvents STRING4TextEdit As DevExpress.XtraEditors.TextEdit
@ -1461,4 +1461,5 @@ Partial Class frmAdmin2
Friend WithEvents ItemForMODULE As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents ItemForMODULE As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents ItemForOBJ_NAME As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents ItemForOBJ_NAME As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents STRING1TextEdit As DevExpress.XtraEditors.MemoEdit
End Class End Class

124
app/DD_PM_WINDREAM/frmAdmin2.resx
View File

@ -547,13 +547,13 @@
<value>Aktionen</value> <value>Aktionen</value>
</data> </data>
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1059, 158</value> <value>1059, 146</value>
</data> </data>
<data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 691</value> <value>0, 694</value>
</data> </data>
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing"> <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>1059, 24</value> <value>1059, 21</value>
</data> </data>
<data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve"> <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
<value>RibbonStatusBar1</value> <value>RibbonStatusBar1</value>
@ -587,7 +587,7 @@
<value>Fill</value> <value>Fill</value>
</data> </data>
<data name="XtraTabControl1.Location" type="System.Drawing.Point, System.Drawing"> <data name="XtraTabControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 158</value> <value>0, 146</value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="XtraTabPage1.AutoScroll" type="System.Boolean, mscorlib"> <data name="XtraTabPage1.AutoScroll" type="System.Boolean, mscorlib">
@ -658,6 +658,9 @@
<data name="BindingNavigatorPositionItem.AutoSize" type="System.Boolean, mscorlib"> <data name="BindingNavigatorPositionItem.AutoSize" type="System.Boolean, mscorlib">
<value>False</value> <value>False</value>
</data> </data>
<data name="BindingNavigatorPositionItem.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt</value>
</data>
<data name="BindingNavigatorPositionItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="BindingNavigatorPositionItem.Size" type="System.Drawing.Size, System.Drawing">
<value>50, 23</value> <value>50, 23</value>
</data> </data>
@ -791,7 +794,7 @@
<value>5</value> <value>5</value>
</data> </data>
<data name="EMAIL_BODY3TextEdit.Location" type="System.Drawing.Point, System.Drawing"> <data name="EMAIL_BODY3TextEdit.Location" type="System.Drawing.Point, System.Drawing">
<value>89, 396</value> <value>89, 411</value>
</data> </data>
<data name="EMAIL_BODY3TextEdit.Size" type="System.Drawing.Size, System.Drawing"> <data name="EMAIL_BODY3TextEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>597, 20</value> <value>597, 20</value>
@ -812,7 +815,7 @@
<value>6</value> <value>6</value>
</data> </data>
<data name="ADDED_WHOTextEdit.Location" type="System.Drawing.Point, System.Drawing"> <data name="ADDED_WHOTextEdit.Location" type="System.Drawing.Point, System.Drawing">
<value>89, 420</value> <value>89, 435</value>
</data> </data>
<data name="ADDED_WHOTextEdit.Size" type="System.Drawing.Size, System.Drawing"> <data name="ADDED_WHOTextEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>258, 20</value> <value>258, 20</value>
@ -833,7 +836,7 @@
<value>7</value> <value>7</value>
</data> </data>
<data name="CHANGED_WHOTextEdit.Location" type="System.Drawing.Point, System.Drawing"> <data name="CHANGED_WHOTextEdit.Location" type="System.Drawing.Point, System.Drawing">
<value>89, 444</value> <value>89, 459</value>
</data> </data>
<data name="CHANGED_WHOTextEdit.Size" type="System.Drawing.Size, System.Drawing"> <data name="CHANGED_WHOTextEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>258, 20</value> <value>258, 20</value>
@ -857,7 +860,7 @@
<value>89, 84</value> <value>89, 84</value>
</data> </data>
<data name="EMAIL_BODY1TextEdit.Size" type="System.Drawing.Size, System.Drawing"> <data name="EMAIL_BODY1TextEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>597, 133</value> <value>597, 138</value>
</data> </data>
<data name="EMAIL_BODY1TextEdit.TabIndex" type="System.Int32, mscorlib"> <data name="EMAIL_BODY1TextEdit.TabIndex" type="System.Int32, mscorlib">
<value>7</value> <value>7</value>
@ -875,10 +878,10 @@
<value>9</value> <value>9</value>
</data> </data>
<data name="EMAIL_BODY2TextEdit.Location" type="System.Drawing.Point, System.Drawing"> <data name="EMAIL_BODY2TextEdit.Location" type="System.Drawing.Point, System.Drawing">
<value>89, 221</value> <value>89, 226</value>
</data> </data>
<data name="EMAIL_BODY2TextEdit.Size" type="System.Drawing.Size, System.Drawing"> <data name="EMAIL_BODY2TextEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>597, 171</value> <value>597, 181</value>
</data> </data>
<data name="EMAIL_BODY2TextEdit.TabIndex" type="System.Int32, mscorlib"> <data name="EMAIL_BODY2TextEdit.TabIndex" type="System.Int32, mscorlib">
<value>8</value> <value>8</value>
@ -917,7 +920,7 @@
<value>11</value> <value>11</value>
</data> </data>
<data name="ADDED_WHENDateEdit.Location" type="System.Drawing.Point, System.Drawing"> <data name="ADDED_WHENDateEdit.Location" type="System.Drawing.Point, System.Drawing">
<value>428, 420</value> <value>428, 435</value>
</data> </data>
<data name="ADDED_WHENDateEdit.Properties.Mask.EditMask" xml:space="preserve"> <data name="ADDED_WHENDateEdit.Properties.Mask.EditMask" xml:space="preserve">
<value>G</value> <value>G</value>
@ -944,7 +947,7 @@
<value>12</value> <value>12</value>
</data> </data>
<data name="CHANGED_WHENDateEdit.Location" type="System.Drawing.Point, System.Drawing"> <data name="CHANGED_WHENDateEdit.Location" type="System.Drawing.Point, System.Drawing">
<value>428, 444</value> <value>428, 459</value>
</data> </data>
<data name="CHANGED_WHENDateEdit.Properties.Mask.EditMask" xml:space="preserve"> <data name="CHANGED_WHENDateEdit.Properties.Mask.EditMask" xml:space="preserve">
<value>d</value> <value>d</value>
@ -1004,7 +1007,7 @@
<value>Geändert wann</value> <value>Geändert wann</value>
</data> </data>
<data name="DataLayoutControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="DataLayoutControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>698, 476</value> <value>698, 491</value>
</data> </data>
<data name="DataLayoutControl1.TabIndex" type="System.Int32, mscorlib"> <data name="DataLayoutControl1.TabIndex" type="System.Int32, mscorlib">
<value>22</value> <value>22</value>
@ -1055,7 +1058,7 @@
<value>128</value> <value>128</value>
</data> </data>
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>353, 508</value> <value>353, 523</value>
</data> </data>
<data name="GridControl1.TabIndex" type="System.Int32, mscorlib"> <data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
<value>20</value> <value>20</value>
@ -1073,7 +1076,7 @@
<value>2</value> <value>2</value>
</data> </data>
<data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing"> <data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing">
<value>1057, 508</value> <value>1057, 523</value>
</data> </data>
<data name="XtraTabPage1.Text" xml:space="preserve"> <data name="XtraTabPage1.Text" xml:space="preserve">
<value>Email Phrasen</value> <value>Email Phrasen</value>
@ -1091,7 +1094,7 @@
<value>0</value> <value>0</value>
</data> </data>
<data name="XtraTabControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="XtraTabControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1059, 533</value> <value>1059, 548</value>
</data> </data>
<data name="XtraTabControl1.TabIndex" type="System.Int32, mscorlib"> <data name="XtraTabControl1.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@ -1220,29 +1223,8 @@
<data name="&gt;&gt;CAPT_TYPETextEdit.ZOrder" xml:space="preserve"> <data name="&gt;&gt;CAPT_TYPETextEdit.ZOrder" xml:space="preserve">
<value>8</value> <value>8</value>
</data> </data>
<data name="STRING1TextEdit.Location" type="System.Drawing.Point, System.Drawing">
<value>89, 132</value>
</data>
<data name="STRING1TextEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>443, 20</value>
</data>
<data name="STRING1TextEdit.TabIndex" type="System.Int32, mscorlib">
<value>9</value>
</data>
<data name="&gt;&gt;STRING1TextEdit.Name" xml:space="preserve">
<value>STRING1TextEdit</value>
</data>
<data name="&gt;&gt;STRING1TextEdit.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;STRING1TextEdit.Parent" xml:space="preserve">
<value>DataLayoutControl2</value>
</data>
<data name="&gt;&gt;STRING1TextEdit.ZOrder" xml:space="preserve">
<value>9</value>
</data>
<data name="STRING2TextEdit.Location" type="System.Drawing.Point, System.Drawing"> <data name="STRING2TextEdit.Location" type="System.Drawing.Point, System.Drawing">
<value>89, 156</value> <value>89, 303</value>
</data> </data>
<data name="STRING2TextEdit.Size" type="System.Drawing.Size, System.Drawing"> <data name="STRING2TextEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>443, 20</value> <value>443, 20</value>
@ -1260,10 +1242,10 @@
<value>DataLayoutControl2</value> <value>DataLayoutControl2</value>
</data> </data>
<data name="&gt;&gt;STRING2TextEdit.ZOrder" xml:space="preserve"> <data name="&gt;&gt;STRING2TextEdit.ZOrder" xml:space="preserve">
<value>10</value> <value>9</value>
</data> </data>
<data name="STRING3TextEdit.Location" type="System.Drawing.Point, System.Drawing"> <data name="STRING3TextEdit.Location" type="System.Drawing.Point, System.Drawing">
<value>89, 180</value> <value>89, 327</value>
</data> </data>
<data name="STRING3TextEdit.Size" type="System.Drawing.Size, System.Drawing"> <data name="STRING3TextEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>443, 20</value> <value>443, 20</value>
@ -1281,10 +1263,10 @@
<value>DataLayoutControl2</value> <value>DataLayoutControl2</value>
</data> </data>
<data name="&gt;&gt;STRING3TextEdit.ZOrder" xml:space="preserve"> <data name="&gt;&gt;STRING3TextEdit.ZOrder" xml:space="preserve">
<value>11</value> <value>10</value>
</data> </data>
<data name="STRING4TextEdit.Location" type="System.Drawing.Point, System.Drawing"> <data name="STRING4TextEdit.Location" type="System.Drawing.Point, System.Drawing">
<value>89, 204</value> <value>89, 351</value>
</data> </data>
<data name="STRING4TextEdit.Size" type="System.Drawing.Size, System.Drawing"> <data name="STRING4TextEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>443, 20</value> <value>443, 20</value>
@ -1302,10 +1284,10 @@
<value>DataLayoutControl2</value> <value>DataLayoutControl2</value>
</data> </data>
<data name="&gt;&gt;STRING4TextEdit.ZOrder" xml:space="preserve"> <data name="&gt;&gt;STRING4TextEdit.ZOrder" xml:space="preserve">
<value>12</value> <value>11</value>
</data> </data>
<data name="STRING5TextEdit.Location" type="System.Drawing.Point, System.Drawing"> <data name="STRING5TextEdit.Location" type="System.Drawing.Point, System.Drawing">
<value>89, 228</value> <value>89, 375</value>
</data> </data>
<data name="STRING5TextEdit.Size" type="System.Drawing.Size, System.Drawing"> <data name="STRING5TextEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>443, 20</value> <value>443, 20</value>
@ -1323,10 +1305,10 @@
<value>DataLayoutControl2</value> <value>DataLayoutControl2</value>
</data> </data>
<data name="&gt;&gt;STRING5TextEdit.ZOrder" xml:space="preserve"> <data name="&gt;&gt;STRING5TextEdit.ZOrder" xml:space="preserve">
<value>13</value> <value>12</value>
</data> </data>
<data name="STRING6TextEdit.Location" type="System.Drawing.Point, System.Drawing"> <data name="STRING6TextEdit.Location" type="System.Drawing.Point, System.Drawing">
<value>89, 252</value> <value>89, 399</value>
</data> </data>
<data name="STRING6TextEdit.Size" type="System.Drawing.Size, System.Drawing"> <data name="STRING6TextEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>443, 20</value> <value>443, 20</value>
@ -1344,10 +1326,10 @@
<value>DataLayoutControl2</value> <value>DataLayoutControl2</value>
</data> </data>
<data name="&gt;&gt;STRING6TextEdit.ZOrder" xml:space="preserve"> <data name="&gt;&gt;STRING6TextEdit.ZOrder" xml:space="preserve">
<value>14</value> <value>13</value>
</data> </data>
<data name="TextEdit3.Location" type="System.Drawing.Point, System.Drawing"> <data name="TextEdit3.Location" type="System.Drawing.Point, System.Drawing">
<value>89, 276</value> <value>89, 423</value>
</data> </data>
<data name="TextEdit3.Size" type="System.Drawing.Size, System.Drawing"> <data name="TextEdit3.Size" type="System.Drawing.Size, System.Drawing">
<value>181, 20</value> <value>181, 20</value>
@ -1365,10 +1347,10 @@
<value>DataLayoutControl2</value> <value>DataLayoutControl2</value>
</data> </data>
<data name="&gt;&gt;TextEdit3.ZOrder" xml:space="preserve"> <data name="&gt;&gt;TextEdit3.ZOrder" xml:space="preserve">
<value>15</value> <value>14</value>
</data> </data>
<data name="ADDED_WHENTextEdit.Location" type="System.Drawing.Point, System.Drawing"> <data name="ADDED_WHENTextEdit.Location" type="System.Drawing.Point, System.Drawing">
<value>351, 276</value> <value>351, 423</value>
</data> </data>
<data name="ADDED_WHENTextEdit.Properties.Mask.EditMask" xml:space="preserve"> <data name="ADDED_WHENTextEdit.Properties.Mask.EditMask" xml:space="preserve">
<value>d</value> <value>d</value>
@ -1392,10 +1374,10 @@
<value>DataLayoutControl2</value> <value>DataLayoutControl2</value>
</data> </data>
<data name="&gt;&gt;ADDED_WHENTextEdit.ZOrder" xml:space="preserve"> <data name="&gt;&gt;ADDED_WHENTextEdit.ZOrder" xml:space="preserve">
<value>16</value> <value>15</value>
</data> </data>
<data name="TextEdit4.Location" type="System.Drawing.Point, System.Drawing"> <data name="TextEdit4.Location" type="System.Drawing.Point, System.Drawing">
<value>89, 300</value> <value>89, 447</value>
</data> </data>
<data name="TextEdit4.Size" type="System.Drawing.Size, System.Drawing"> <data name="TextEdit4.Size" type="System.Drawing.Size, System.Drawing">
<value>181, 20</value> <value>181, 20</value>
@ -1413,10 +1395,10 @@
<value>DataLayoutControl2</value> <value>DataLayoutControl2</value>
</data> </data>
<data name="&gt;&gt;TextEdit4.ZOrder" xml:space="preserve"> <data name="&gt;&gt;TextEdit4.ZOrder" xml:space="preserve">
<value>17</value> <value>16</value>
</data> </data>
<data name="CHANGED_WHENTextEdit.Location" type="System.Drawing.Point, System.Drawing"> <data name="CHANGED_WHENTextEdit.Location" type="System.Drawing.Point, System.Drawing">
<value>351, 300</value> <value>351, 447</value>
</data> </data>
<data name="CHANGED_WHENTextEdit.Properties.Mask.EditMask" xml:space="preserve"> <data name="CHANGED_WHENTextEdit.Properties.Mask.EditMask" xml:space="preserve">
<value>d</value> <value>d</value>
@ -1440,7 +1422,7 @@
<value>DataLayoutControl2</value> <value>DataLayoutControl2</value>
</data> </data>
<data name="&gt;&gt;CHANGED_WHENTextEdit.ZOrder" xml:space="preserve"> <data name="&gt;&gt;CHANGED_WHENTextEdit.ZOrder" xml:space="preserve">
<value>18</value> <value>17</value>
</data> </data>
<data name="OBJ_NAMETextEdit.Location" type="System.Drawing.Point, System.Drawing"> <data name="OBJ_NAMETextEdit.Location" type="System.Drawing.Point, System.Drawing">
<value>89, 60</value> <value>89, 60</value>
@ -1461,7 +1443,7 @@
<value>DataLayoutControl2</value> <value>DataLayoutControl2</value>
</data> </data>
<data name="&gt;&gt;OBJ_NAMETextEdit.ZOrder" xml:space="preserve"> <data name="&gt;&gt;OBJ_NAMETextEdit.ZOrder" xml:space="preserve">
<value>19</value> <value>18</value>
</data> </data>
<data name="INTERNALCheckEdit.Location" type="System.Drawing.Point, System.Drawing"> <data name="INTERNALCheckEdit.Location" type="System.Drawing.Point, System.Drawing">
<value>274, 12</value> <value>274, 12</value>
@ -1474,7 +1456,7 @@
<value>Default</value> <value>Default</value>
</data> </data>
<data name="INTERNALCheckEdit.Size" type="System.Drawing.Size, System.Drawing"> <data name="INTERNALCheckEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>108, 20</value> <value>108, 19</value>
</data> </data>
<data name="INTERNALCheckEdit.TabIndex" type="System.Int32, mscorlib"> <data name="INTERNALCheckEdit.TabIndex" type="System.Int32, mscorlib">
<value>20</value> <value>20</value>
@ -1489,6 +1471,27 @@
<value>DataLayoutControl2</value> <value>DataLayoutControl2</value>
</data> </data>
<data name="&gt;&gt;INTERNALCheckEdit.ZOrder" xml:space="preserve"> <data name="&gt;&gt;INTERNALCheckEdit.ZOrder" xml:space="preserve">
<value>19</value>
</data>
<data name="STRING1TextEdit.Location" type="System.Drawing.Point, System.Drawing">
<value>89, 132</value>
</data>
<data name="STRING1TextEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>443, 167</value>
</data>
<data name="STRING1TextEdit.TabIndex" type="System.Int32, mscorlib">
<value>9</value>
</data>
<data name="&gt;&gt;STRING1TextEdit.Name" xml:space="preserve">
<value>STRING1TextEdit</value>
</data>
<data name="&gt;&gt;STRING1TextEdit.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.MemoEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;STRING1TextEdit.Parent" xml:space="preserve">
<value>DataLayoutControl2</value>
</data>
<data name="&gt;&gt;STRING1TextEdit.ZOrder" xml:space="preserve">
<value>20</value> <value>20</value>
</data> </data>
<data name="DataLayoutControl2.Location" type="System.Drawing.Point, System.Drawing"> <data name="DataLayoutControl2.Location" type="System.Drawing.Point, System.Drawing">
@ -1625,6 +1628,9 @@
<data name="ToolStripTextBox1.AutoSize" type="System.Boolean, mscorlib"> <data name="ToolStripTextBox1.AutoSize" type="System.Boolean, mscorlib">
<value>False</value> <value>False</value>
</data> </data>
<data name="ToolStripTextBox1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt</value>
</data>
<data name="ToolStripTextBox1.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripTextBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>50, 23</value> <value>50, 23</value>
</data> </data>
@ -1748,7 +1754,7 @@
<value>3</value> <value>3</value>
</data> </data>
<data name="GridControl2.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControl2.Size" type="System.Drawing.Size, System.Drawing">
<value>509, 508</value> <value>509, 523</value>
</data> </data>
<data name="GridControl2.TabIndex" type="System.Int32, mscorlib"> <data name="GridControl2.TabIndex" type="System.Int32, mscorlib">
<value>21</value> <value>21</value>
@ -1766,7 +1772,7 @@
<value>2</value> <value>2</value>
</data> </data>
<data name="XtraTabPage2.Size" type="System.Drawing.Size, System.Drawing"> <data name="XtraTabPage2.Size" type="System.Drawing.Size, System.Drawing">
<value>1057, 508</value> <value>1057, 523</value>
</data> </data>
<data name="XtraTabPage2.Text" xml:space="preserve"> <data name="XtraTabPage2.Text" xml:space="preserve">
<value>GUI Phrasen</value> <value>GUI Phrasen</value>

129
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -666,6 +666,7 @@ Public Class frmValidator
For Each oControlRow As DataRow In DTCONTROLS.Rows For Each oControlRow As DataRow In DTCONTROLS.Rows
Dim oMyControl As Control Dim oMyControl As Control
Dim oControlID = oControlRow.Item("GUID")
oControlInfo = $"CtrlName: {oControlRow.Item("NAME")} - CtrlIndex: {oControlRow.Item("INDEX_NAME")}" oControlInfo = $"CtrlName: {oControlRow.Item("NAME")} - CtrlIndex: {oControlRow.Item("INDEX_NAME")}"
Try Try
Select Case oControlRow.Item("CTRL_TYPE").ToString.ToUpper Select Case oControlRow.Item("CTRL_TYPE").ToString.ToUpper
@ -948,6 +949,10 @@ Public Class frmValidator
End If End If
End If End If
End Sub End Sub
oMyControl = oGrid oMyControl = oGrid
Case "LINE" Case "LINE"
@ -996,7 +1001,16 @@ Public Class frmValidator
allgFunk.Insert_LogEntry($"ERROR CreateControls >> {ex.Message}") allgFunk.Insert_LogEntry($"ERROR CreateControls >> {ex.Message}")
End Try End Try
End Sub End Sub
Private Sub GridControlColumnWidthChanged(sender As System.Object, e As System.EventArgs)
Try
Dim oMyGridView As DevExpress.XtraGrid.Views.Grid.GridView = sender
Dim oControlID = DirectCast(oMyGridView.GridControl.Tag, ClassControlCreator.ControlMetadata).Guid
SaveDevExpressGridControl_Layout(CURRENT_ProfilGUID, oControlID, oMyGridView)
Catch ex As Exception
End Try
End Sub
Sub Clear_all_Input() Sub Clear_all_Input()
For Each inctrl As Control In Me.pnldesigner.Controls For Each inctrl As Control In Me.pnldesigner.Controls
Dim Type As String = inctrl.GetType.ToString Dim Type As String = inctrl.GetType.ToString
@ -2414,7 +2428,11 @@ Public Class frmValidator
Dim oType As String = oControl.GetType.ToString Dim oType As String = oControl.GetType.ToString
Dim oTyp As String = oControlRow.Item("CTRL_TYPE") Dim oTyp As String = oControlRow.Item("CTRL_TYPE")
Dim oIDBTyp As String = oControlRow.Item("IDB_TYP") Dim oIDBTyp As String
If IDB_ACTIVE Then
oIDBTyp = oControlRow.Item("IDB_TYP")
End If
Dim oSourceIndexName As String = oControlRow.Item("INDEX_NAME") Dim oSourceIndexName As String = oControlRow.Item("INDEX_NAME")
' Wenn kein defaultValue existiert, leeren String setzen ' Wenn kein defaultValue existiert, leeren String setzen
Dim oDefaultValue As String = NotNull(oControlRow.Item("DEFAULT_VALUE"), String.Empty) Dim oDefaultValue As String = NotNull(oControlRow.Item("DEFAULT_VALUE"), String.Empty)
@ -2582,6 +2600,7 @@ Public Class frmValidator
Case "DevExpress.XtraGrid.GridControl" Case "DevExpress.XtraGrid.GridControl"
oControlType = "DevExpress.XtraGrid.GridControl" oControlType = "DevExpress.XtraGrid.GridControl"
Dim oMyGridControl As GridControl = oControl Dim oMyGridControl As GridControl = oControl
Dim oDTColumnsPerDevExGrid As DataTable = DTGRID_COLUMNS.Clone()
If oSourceIndexName = "" Then If oSourceIndexName = "" Then
MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
Exit For Exit For
@ -2603,11 +2622,14 @@ Public Class frmValidator
Select Case oTyp Select Case oTyp
'Tabellendarstellung 'Tabellendarstellung
Case "TABLE" Case "TABLE"
Dim oDTColumnsPerDevExGrid As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlId} ORDER BY [SEQUENCE]") Dim oExpression = $"CONTROL_ID = {oControlId}"
Dim oColCount = oDTColumnsPerDevExGrid.Rows.Count DTGRID_COLUMNS.Select(oExpression, "SEQUENCE").CopyToDataTable(oDTColumnsPerDevExGrid, LoadOption.PreserveChanges)
'Dim oDTColumnsPerDevExGrid As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlId} ORDER BY [SEQUENCE]")
'Dim oColCount = oDTColumnsPerDevExGrid.Rows.Count
Dim oColValuesfromSource As String() Dim oColValuesfromSource As String()
LOGGER.Debug($"DevExpressGrid: {oColCount} Columns configured for control {oControlId}.") LOGGER.Debug($"DevExpressGrid: {oDTColumnsPerDevExGrid.Rows.Count} Columns configured for control {oControlId}.")
If oColCount >= 1 Then If oDTColumnsPerDevExGrid.Rows.Count >= 1 Then
Dim oDataSource As DataTable = oMyGridControl.DataSource Dim oDataSource As DataTable = oMyGridControl.DataSource
oDataSource.Rows.Clear() oDataSource.Rows.Clear()
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
@ -2615,7 +2637,7 @@ Public Class frmValidator
LOGGER.Debug($"vektorrow Value {Zeile.ToString}...") LOGGER.Debug($"vektorrow Value {Zeile.ToString}...")
oColValuesfromSource = Split(Zeile, Delimiter) oColValuesfromSource = Split(Zeile, Delimiter)
Select Case oColCount Select Case oDTColumnsPerDevExGrid.Rows.Count
Case 1 Case 1
oDataSource.Rows.Add(New String() {Zeile.ToString}) oDataSource.Rows.Add(New String() {Zeile.ToString})
@ -2683,45 +2705,7 @@ Public Class frmValidator
Case 4 Case 4
oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3)}) oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3)})
End Select End Select
'Select Case oMyDatatable.Rows.Count
' Case 1
' oDataSource.Rows.Add(New String() {oRow.Item(0).ToString})
' 'dgv.Rows.Add(New String() {Zeile.ToString})
' Case 2
' If SpaltenWerte.Length = 2 Then
' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)})
' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)})
' Else
' oDataSource.Rows.Add(New String() {SpaltenWerte(0), ""})
' 'dgv.Rows.Add(New String() {SpaltenWerte(0), ""})
' End If
' Case 3
' If SpaltenWerte.Length = 3 Then
' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)})
' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)})
' ElseIf SpaltenWerte.Length = 2 Then
' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""})
' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""})
' Else
' oDataSource.Rows.Add(New String() {SpaltenWerte(0), "", ""})
' 'dgv.Rows.Add(New String() {SpaltenWerte(0), "", ""})
' End If
' Case 4
' If SpaltenWerte.Length = 4 Then
' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)})
' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)})
' ElseIf SpaltenWerte.Length = 3 Then
' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""})
' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""})
' ElseIf SpaltenWerte.Length = 2 Then
' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""})
' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""})
' Else
' oDataSource.Rows.Add(New String() {SpaltenWerte(0), "", "", ""})
' 'dgv.Rows.Add(New String() {SpaltenWerte(0), "", "", ""})
' End If
'End Select
Next Next
End If End If
@ -2756,6 +2740,30 @@ Public Class frmValidator
End If End If
End If End If
Try
'Dim oFilteredDatatable As DataTable = DTGRID_COLUMNS.Clone()
'Dim oExpression = $"CONTROL_ID = {oControlRow.Item("GUID")}"
'DTGRID_COLUMNS.Select(oExpression, "SEQUENCE").CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges)
Dim oMyGridView As DevExpress.XtraGrid.Views.Grid.GridView = oMyGridControl.MainView
oMyGridView.OptionsView.ColumnAutoWidth = False
'AddHandler oMyGridView.ColumnWidthChanged, AddressOf GridControlColumnWidthChanged
For Each oRow As DataRow In oDTColumnsPerDevExGrid.Rows
For Each oActGridColumn As DevExpress.XtraGrid.Columns.GridColumn In oMyGridView.Columns
Dim oGridDXFieldName = oActGridColumn.FieldName
Dim GridDXColumnEditName = oActGridColumn.ColumnEditName
If oRow.Item("SPALTENNAME") = oGridDXFieldName Then
oActGridColumn.Width = oRow.Item("SPALTENBREITE")
Exit For
End If
Next
Next
Dim i = 0
' RestoreDevExpressGridControl_Layout(CURRENT_CLICKED_PROFILE_ID, oControlId, oMyGridView)
Catch ex As Exception
End Try
End If End If
Case "System.Windows.Forms.CheckBox" Case "System.Windows.Forms.CheckBox"
LOGGER.Debug("Loading checkbox.") LOGGER.Debug("Loading checkbox.")
@ -3600,7 +3608,11 @@ Public Class frmValidator
Dim oSQLCheckCommand As String = IIf(IsDBNull(dr.Item("SQL_UEBERPRUEFUNG")), "", dr.Item("SQL_UEBERPRUEFUNG")) Dim oSQLCheckCommand As String = IIf(IsDBNull(dr.Item("SQL_UEBERPRUEFUNG")), "", dr.Item("SQL_UEBERPRUEFUNG"))
Dim oIsReadOnly As Boolean = CBool(dr.Item("READ_ONLY")) Dim oIsReadOnly As Boolean = CBool(dr.Item("READ_ONLY"))
Dim oControlType As String = dr.Item("CTRL_TYPE") Dim oControlType As String = dr.Item("CTRL_TYPE")
Dim oIDBTyp As Integer = dr.Item("IDB_TYP") Dim oIDBTyp As Integer
If IDB_ACTIVE Then
oIDBTyp = dr.Item("IDB_TYP")
End If
oControlId = dr.Item("GUID") oControlId = dr.Item("GUID")
Dim oRegexMatch As String = NotNull(dr.Item("REGEX_MATCH"), String.Empty) Dim oRegexMatch As String = NotNull(dr.Item("REGEX_MATCH"), String.Empty)
Dim oRegexMessage As String = NotNull(dr.Item("REGEX_MESSAGE_DE"), String.Empty) Dim oRegexMessage As String = NotNull(dr.Item("REGEX_MESSAGE_DE"), String.Empty)
@ -4732,4 +4744,31 @@ Public Class frmValidator
SetStatusLabel($"Error while saving data!", "Red") SetStatusLabel($"Error while saving data!", "Red")
End If End If
End Sub End Sub
Private Sub SaveDevExpressGridControl_Layout(pProfilID As Integer, pControlID As Integer, pGridView As DevExpress.XtraGrid.Views.Grid.GridView)
Try
Dim xml As String = GetXML_OverviewLayoutName(pProfilID, pControlID)
pGridView.SaveLayoutToXml(xml)
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Error while saving GridLayout: " & ex.Message)
End Try
End Sub
Private Sub RestoreDevExpressGridControl_Layout(pProfilID As Integer, pControlID As Integer, pGridView As DevExpress.XtraGrid.Views.Grid.GridView)
Try
Dim oXml As String = GetXML_OverviewLayoutName(pProfilID, pControlID)
If File.Exists(oXml) Then
pGridView.RestoreLayoutFromXml(oXml)
End If
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Error while restoring layout: " & ex.Message)
End Try
End Sub
Private Function GetXML_OverviewLayoutName(pProfilID As Integer, pControlID As Integer)
Dim Filename As String = String.Format($"DevExpressValidatorGridControl_{pProfilID}-{pControlID}.xml")
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
End Function
End Class End Class