Common: Show Grid in Property Dialog
This commit is contained in:
Jonathan Jenne
parent
6b7a9a6293
commit
6b4010232d
@ -1,5 +1,7 @@
|
||||
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
|
||||
|
||||
@ -4,6 +4,9 @@ Imports DigitalData.Modules.Logging
|
||||
Imports DigitalData.Modules.ZooFlow
|
||||
Imports DigitalData.Modules.Database
|
||||
Imports DigitalData.Controls.LookupGrid
|
||||
Imports DevExpress.XtraGrid
|
||||
Imports System.Windows.Forms
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
|
||||
Public Class PropertyControls
|
||||
Private _LogConfig As LogConfig
|
||||
@ -16,53 +19,72 @@ Public Class PropertyControls
|
||||
_Db = Database
|
||||
End Sub
|
||||
|
||||
Public Function GetControlForAttribute(Attribute As Attribute) As BaseEdit
|
||||
Select Case Attribute.TypeName
|
||||
Case "BIT"
|
||||
Public Function GetControlForAttribute(pAttribute As Attribute, pIsReadOnly As Boolean) As Control
|
||||
Dim oControl As Control
|
||||
|
||||
Select Case pAttribute.TypeName
|
||||
Case Attribute.TYPE_BIT
|
||||
Dim oCheckboxEdit As New CheckEdit With {
|
||||
.Name = Attribute.ID,
|
||||
.Text = Attribute.Title
|
||||
.Name = pAttribute.ID,
|
||||
.Text = pAttribute.Title,
|
||||
.[ReadOnly] = pIsReadOnly
|
||||
}
|
||||
Return oCheckboxEdit
|
||||
oControl = oCheckboxEdit
|
||||
|
||||
Case "DATE"
|
||||
Case Attribute.TYPE_DATE
|
||||
Dim oDateEdit As New DateEdit With {
|
||||
.Name = Attribute.ID
|
||||
.Name = pAttribute.ID,
|
||||
.[ReadOnly] = pIsReadOnly
|
||||
}
|
||||
Return oDateEdit
|
||||
oControl = oDateEdit
|
||||
|
||||
Case "BIG INTEGER"
|
||||
Case Attribute.TYPE_BIG_INTEGER
|
||||
Dim oTextEdit As New TextEdit With {
|
||||
.Name = Attribute.ID
|
||||
.Name = pAttribute.ID,
|
||||
.[ReadOnly] = pIsReadOnly
|
||||
}
|
||||
Return oTextEdit
|
||||
oControl = oTextEdit
|
||||
|
||||
Case "DECIMAL"
|
||||
Case Attribute.TYPE_DECIMAL
|
||||
Dim oTextEdit As New TextEdit With {
|
||||
.Name = Attribute.ID
|
||||
.Name = pAttribute.ID,
|
||||
.[ReadOnly] = pIsReadOnly
|
||||
}
|
||||
Return oTextEdit
|
||||
oControl = oTextEdit
|
||||
|
||||
Case "FLOAT"
|
||||
Case Attribute.TYPE_FLOAT
|
||||
Dim oTextEdit As New TextEdit With {
|
||||
.Name = Attribute.ID
|
||||
.Name = pAttribute.ID,
|
||||
.[ReadOnly] = pIsReadOnly
|
||||
}
|
||||
Return oTextEdit
|
||||
oControl = oTextEdit
|
||||
|
||||
Case "VECTOR STRING"
|
||||
Dim oLookupEdit As New LookupControl2 With {
|
||||
.Name = Attribute.ID,
|
||||
.MultiSelect = True,
|
||||
.[ReadOnly] = True
|
||||
Case Attribute.TYPE_VECTOR_STRING
|
||||
' Minimum size is picked up by the LayoutControl to determine the grids size
|
||||
Dim oGrid As New GridControl With {
|
||||
.Name = pAttribute.ID,
|
||||
.MinimumSize = New System.Drawing.Size(0, 100)
|
||||
}
|
||||
Return oLookupEdit
|
||||
|
||||
oGrid.ForceInitialize()
|
||||
|
||||
Dim oView = DirectCast(oGrid.DefaultView, GridView)
|
||||
oView.OptionsView.ShowGroupPanel = False
|
||||
oView.OptionsView.ShowColumnHeaders = False
|
||||
oView.OptionsView.ShowIndicator = False
|
||||
oView.OptionsBehavior.ReadOnly = True
|
||||
oView.OptionsBehavior.Editable = False
|
||||
oControl = oGrid
|
||||
|
||||
Case Else
|
||||
Dim oTextEdit As New TextEdit With {
|
||||
.Name = Attribute.ID
|
||||
.Name = pAttribute.ID,
|
||||
.[ReadOnly] = pIsReadOnly
|
||||
}
|
||||
Return oTextEdit
|
||||
oControl = oTextEdit
|
||||
|
||||
End Select
|
||||
|
||||
Return oControl
|
||||
End Function
|
||||
End Class
|
||||
|
||||
@ -1,9 +1,13 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Imports DevExpress.XtraGrid
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
Imports DevExpress.XtraLayout
|
||||
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class frmObjectPropertyDialog
|
||||
Inherits DevExpress.XtraBars.TabForm
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
@ -20,9 +24,9 @@ Partial Class frmObjectPropertyDialog
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Dim SplashScreenManager As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, Nothing, true, true)
|
||||
Dim SplashScreenManager As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, Nothing, True, True)
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmObjectPropertyDialog))
|
||||
Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
|
||||
Me.TabFormControl1 = New DevExpress.XtraBars.TabFormControl()
|
||||
@ -35,9 +39,28 @@ Partial Class frmObjectPropertyDialog
|
||||
Me.TabPageObject = New DevExpress.XtraBars.TabFormPage()
|
||||
Me.TabFormContentContainer2 = New DevExpress.XtraBars.TabFormContentContainer()
|
||||
Me.LayoutControlObject = New DevExpress.XtraLayout.LayoutControl()
|
||||
Me.GroupControl1 = New DevExpress.XtraEditors.GroupControl()
|
||||
Me.progressLifecycle = New DevExpress.XtraEditors.ProgressBarControl()
|
||||
Me.lbLifecycleEnd = New DevExpress.XtraEditors.LabelControl()
|
||||
Me.lbLifecycleStart = New DevExpress.XtraEditors.LabelControl()
|
||||
Me.txtCreatedWhen = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.txtAccessedWhen = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.txtObjectId = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.txtCreatedWho = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.LayoutObject = New DevExpress.XtraLayout.LayoutControlGroup()
|
||||
Me.TabPageLifecycle = New DevExpress.XtraBars.TabFormPage()
|
||||
Me.TabFormContentContainer3 = New DevExpress.XtraBars.TabFormContentContainer()
|
||||
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator()
|
||||
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.txtAccessedWho = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
|
||||
Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.TabPageHistory = New DevExpress.XtraBars.TabFormPage()
|
||||
Me.TabFormContentContainer4 = New DevExpress.XtraBars.TabFormContentContainer()
|
||||
Me.GridValueHistory = New DevExpress.XtraGrid.GridControl()
|
||||
@ -48,56 +71,48 @@ Partial Class frmObjectPropertyDialog
|
||||
Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn()
|
||||
Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn()
|
||||
Me.AttributeRoot = New DevExpress.XtraLayout.LayoutControlGroup()
|
||||
Me.txtCreatedWhen = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.txtAccessedWhen = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.txtObjectId = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator()
|
||||
Me.txtCreatedWho = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.txtAccessedWho = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
|
||||
CType(Me.RepositoryItemComboBox1,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.TabFormControl1,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
Me.TabFormContentContainer1.SuspendLayout
|
||||
CType(Me.LayoutControlAttributes,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.AttributeLayout,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
Me.TabFormContentContainer2.SuspendLayout
|
||||
CType(Me.LayoutControlObject,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
Me.LayoutControlObject.SuspendLayout
|
||||
CType(Me.LayoutObject,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
Me.TabFormContentContainer4.SuspendLayout
|
||||
CType(Me.GridValueHistory,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.ViewValueHistory,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.AttributeRoot,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.txtCreatedWhen.Properties,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.LayoutControlItem1,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.txtChangedWhen.Properties,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.LayoutControlItem2,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.txtAccessedWhen.Properties,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.LayoutControlItem3,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.txtObjectId.Properties,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.LayoutControlItem4,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.SimpleSeparator1,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.txtCreatedWho.Properties,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.LayoutControlItem5,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.txtChangedWho.Properties,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.LayoutControlItem6,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.TextEdit1.Properties,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.txtAccessedWho,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
CType(Me.EmptySpaceItem1,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
Me.SuspendLayout
|
||||
CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TabFormControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.TabFormContentContainer1.SuspendLayout()
|
||||
CType(Me.LayoutControlAttributes, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.AttributeLayout, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.TabFormContentContainer2.SuspendLayout()
|
||||
CType(Me.LayoutControlObject, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.LayoutControlObject.SuspendLayout()
|
||||
CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.GroupControl1.SuspendLayout()
|
||||
CType(Me.progressLifecycle.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAccessedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutObject, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.TabFormContentContainer4.SuspendLayout()
|
||||
CType(Me.GridValueHistory, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ViewValueHistory, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.AttributeRoot, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SplashScreenManager
|
||||
'
|
||||
SplashScreenManager.ClosingDelay = 500
|
||||
'
|
||||
'RepositoryItemComboBox1
|
||||
'
|
||||
Me.RepositoryItemComboBox1.AutoHeight = false
|
||||
Me.RepositoryItemComboBox1.AutoHeight = False
|
||||
Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
|
||||
Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1"
|
||||
'
|
||||
@ -108,17 +123,16 @@ Partial Class frmObjectPropertyDialog
|
||||
Me.TabFormControl1.Name = "TabFormControl1"
|
||||
Me.TabFormControl1.Pages.Add(Me.TabPageAttributes)
|
||||
Me.TabFormControl1.Pages.Add(Me.TabPageObject)
|
||||
Me.TabFormControl1.Pages.Add(Me.TabPageLifecycle)
|
||||
Me.TabFormControl1.Pages.Add(Me.TabPageHistory)
|
||||
Me.TabFormControl1.SelectedPage = Me.TabPageAttributes
|
||||
Me.TabFormControl1.ShowAddPageButton = false
|
||||
Me.TabFormControl1.ShowTabCloseButtons = false
|
||||
Me.TabFormControl1.ShowAddPageButton = False
|
||||
Me.TabFormControl1.ShowTabCloseButtons = False
|
||||
Me.TabFormControl1.Size = New System.Drawing.Size(572, 71)
|
||||
Me.TabFormControl1.TabForm = Me
|
||||
Me.TabFormControl1.TabIndex = 0
|
||||
Me.TabFormControl1.TabRightItemLinks.Add(Me.BarStaticItem1)
|
||||
Me.TabFormControl1.TabRightItemLinks.Add(Me.cmbBusinessEntity)
|
||||
Me.TabFormControl1.TabStop = false
|
||||
Me.TabFormControl1.TabStop = False
|
||||
'
|
||||
'cmbBusinessEntity
|
||||
'
|
||||
@ -162,10 +176,10 @@ Partial Class frmObjectPropertyDialog
|
||||
'AttributeLayout
|
||||
'
|
||||
Me.AttributeLayout.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.AttributeLayout.GroupBordersVisible = false
|
||||
Me.AttributeLayout.GroupBordersVisible = False
|
||||
Me.AttributeLayout.Name = "AttributeRoot"
|
||||
Me.AttributeLayout.Size = New System.Drawing.Size(572, 534)
|
||||
Me.AttributeLayout.TextVisible = false
|
||||
Me.AttributeLayout.TextVisible = False
|
||||
'
|
||||
'TabPageObject
|
||||
'
|
||||
@ -184,6 +198,7 @@ Partial Class frmObjectPropertyDialog
|
||||
'
|
||||
'LayoutControlObject
|
||||
'
|
||||
Me.LayoutControlObject.Controls.Add(Me.GroupControl1)
|
||||
Me.LayoutControlObject.Controls.Add(Me.txtCreatedWhen)
|
||||
Me.LayoutControlObject.Controls.Add(Me.txtChangedWhen)
|
||||
Me.LayoutControlObject.Controls.Add(Me.txtAccessedWhen)
|
||||
@ -199,28 +214,217 @@ Partial Class frmObjectPropertyDialog
|
||||
Me.LayoutControlObject.TabIndex = 0
|
||||
Me.LayoutControlObject.Text = "LayoutControl1"
|
||||
'
|
||||
'GroupControl1
|
||||
'
|
||||
Me.GroupControl1.Controls.Add(Me.progressLifecycle)
|
||||
Me.GroupControl1.Controls.Add(Me.lbLifecycleEnd)
|
||||
Me.GroupControl1.Controls.Add(Me.lbLifecycleStart)
|
||||
Me.GroupControl1.Location = New System.Drawing.Point(12, 428)
|
||||
Me.GroupControl1.Name = "GroupControl1"
|
||||
Me.GroupControl1.Size = New System.Drawing.Size(548, 94)
|
||||
Me.GroupControl1.TabIndex = 2
|
||||
Me.GroupControl1.Text = "Lebenszyklus"
|
||||
'
|
||||
'progressLifecycle
|
||||
'
|
||||
Me.progressLifecycle.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.progressLifecycle.Location = New System.Drawing.Point(5, 49)
|
||||
Me.progressLifecycle.Name = "progressLifecycle"
|
||||
Me.progressLifecycle.Size = New System.Drawing.Size(538, 40)
|
||||
Me.progressLifecycle.TabIndex = 0
|
||||
'
|
||||
'lbLifecycleEnd
|
||||
'
|
||||
Me.lbLifecycleEnd.LineVisible = True
|
||||
Me.lbLifecycleEnd.Location = New System.Drawing.Point(489, 30)
|
||||
Me.lbLifecycleEnd.Name = "lbLifecycleEnd"
|
||||
Me.lbLifecycleEnd.Size = New System.Drawing.Size(54, 13)
|
||||
Me.lbLifecycleEnd.TabIndex = 1
|
||||
Me.lbLifecycleEnd.Text = "00.00.0000"
|
||||
'
|
||||
'lbLifecycleStart
|
||||
'
|
||||
Me.lbLifecycleStart.LineVisible = True
|
||||
Me.lbLifecycleStart.Location = New System.Drawing.Point(5, 30)
|
||||
Me.lbLifecycleStart.Name = "lbLifecycleStart"
|
||||
Me.lbLifecycleStart.Size = New System.Drawing.Size(54, 13)
|
||||
Me.lbLifecycleStart.TabIndex = 1
|
||||
Me.lbLifecycleStart.Text = "00.00.0000"
|
||||
'
|
||||
'txtCreatedWhen
|
||||
'
|
||||
Me.txtCreatedWhen.Location = New System.Drawing.Point(87, 37)
|
||||
Me.txtCreatedWhen.Name = "txtCreatedWhen"
|
||||
Me.txtCreatedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
|
||||
Me.txtCreatedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True
|
||||
Me.txtCreatedWhen.Properties.ReadOnly = True
|
||||
Me.txtCreatedWhen.Size = New System.Drawing.Size(197, 20)
|
||||
Me.txtCreatedWhen.StyleController = Me.LayoutControlObject
|
||||
Me.txtCreatedWhen.TabIndex = 4
|
||||
'
|
||||
'txtChangedWhen
|
||||
'
|
||||
Me.txtChangedWhen.Location = New System.Drawing.Point(87, 61)
|
||||
Me.txtChangedWhen.Name = "txtChangedWhen"
|
||||
Me.txtChangedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
|
||||
Me.txtChangedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True
|
||||
Me.txtChangedWhen.Properties.ReadOnly = True
|
||||
Me.txtChangedWhen.Size = New System.Drawing.Size(197, 20)
|
||||
Me.txtChangedWhen.StyleController = Me.LayoutControlObject
|
||||
Me.txtChangedWhen.TabIndex = 5
|
||||
'
|
||||
'txtAccessedWhen
|
||||
'
|
||||
Me.txtAccessedWhen.Location = New System.Drawing.Point(87, 85)
|
||||
Me.txtAccessedWhen.Name = "txtAccessedWhen"
|
||||
Me.txtAccessedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
|
||||
Me.txtAccessedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True
|
||||
Me.txtAccessedWhen.Properties.ReadOnly = True
|
||||
Me.txtAccessedWhen.Size = New System.Drawing.Size(197, 20)
|
||||
Me.txtAccessedWhen.StyleController = Me.LayoutControlObject
|
||||
Me.txtAccessedWhen.TabIndex = 6
|
||||
'
|
||||
'txtObjectId
|
||||
'
|
||||
Me.txtObjectId.Location = New System.Drawing.Point(87, 12)
|
||||
Me.txtObjectId.Name = "txtObjectId"
|
||||
Me.txtObjectId.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
|
||||
Me.txtObjectId.Properties.AppearanceReadOnly.Options.UseBackColor = True
|
||||
Me.txtObjectId.Properties.ReadOnly = True
|
||||
Me.txtObjectId.Size = New System.Drawing.Size(473, 20)
|
||||
Me.txtObjectId.StyleController = Me.LayoutControlObject
|
||||
Me.txtObjectId.TabIndex = 7
|
||||
'
|
||||
'txtCreatedWho
|
||||
'
|
||||
Me.txtCreatedWho.Location = New System.Drawing.Point(363, 37)
|
||||
Me.txtCreatedWho.Name = "txtCreatedWho"
|
||||
Me.txtCreatedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
|
||||
Me.txtCreatedWho.Properties.AppearanceReadOnly.Options.UseBackColor = True
|
||||
Me.txtCreatedWho.Properties.ReadOnly = True
|
||||
Me.txtCreatedWho.Size = New System.Drawing.Size(197, 20)
|
||||
Me.txtCreatedWho.StyleController = Me.LayoutControlObject
|
||||
Me.txtCreatedWho.TabIndex = 8
|
||||
'
|
||||
'txtChangedWho
|
||||
'
|
||||
Me.txtChangedWho.Location = New System.Drawing.Point(363, 61)
|
||||
Me.txtChangedWho.Name = "txtChangedWho"
|
||||
Me.txtChangedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
|
||||
Me.txtChangedWho.Properties.AppearanceReadOnly.Options.UseBackColor = True
|
||||
Me.txtChangedWho.Properties.ReadOnly = True
|
||||
Me.txtChangedWho.Size = New System.Drawing.Size(197, 20)
|
||||
Me.txtChangedWho.StyleController = Me.LayoutControlObject
|
||||
Me.txtChangedWho.TabIndex = 9
|
||||
'
|
||||
'TextEdit1
|
||||
'
|
||||
Me.TextEdit1.Location = New System.Drawing.Point(363, 85)
|
||||
Me.TextEdit1.Name = "TextEdit1"
|
||||
Me.TextEdit1.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
|
||||
Me.TextEdit1.Properties.AppearanceReadOnly.Options.UseBackColor = True
|
||||
Me.TextEdit1.Properties.ReadOnly = True
|
||||
Me.TextEdit1.Size = New System.Drawing.Size(197, 20)
|
||||
Me.TextEdit1.StyleController = Me.LayoutControlObject
|
||||
Me.TextEdit1.TabIndex = 10
|
||||
'
|
||||
'LayoutObject
|
||||
'
|
||||
Me.LayoutObject.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.LayoutObject.GroupBordersVisible = false
|
||||
Me.LayoutObject.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.SimpleSeparator1, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.txtAccessedWho, Me.EmptySpaceItem1})
|
||||
Me.LayoutObject.GroupBordersVisible = False
|
||||
Me.LayoutObject.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.SimpleSeparator1, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.txtAccessedWho, Me.EmptySpaceItem1, Me.LayoutControlItem7})
|
||||
Me.LayoutObject.Name = "LayoutObject"
|
||||
Me.LayoutObject.Size = New System.Drawing.Size(572, 534)
|
||||
Me.LayoutObject.TextVisible = false
|
||||
Me.LayoutObject.TextVisible = False
|
||||
'
|
||||
'TabPageLifecycle
|
||||
'LayoutControlItem1
|
||||
'
|
||||
Me.TabPageLifecycle.ContentContainer = Me.TabFormContentContainer3
|
||||
Me.TabPageLifecycle.Name = "TabPageLifecycle"
|
||||
Me.TabPageLifecycle.Text = "Lebenszyklus"
|
||||
Me.LayoutControlItem1.Control = Me.txtCreatedWhen
|
||||
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 25)
|
||||
Me.LayoutControlItem1.Name = "LayoutControlItem1"
|
||||
Me.LayoutControlItem1.Size = New System.Drawing.Size(276, 24)
|
||||
Me.LayoutControlItem1.Text = "Erstellt"
|
||||
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(72, 13)
|
||||
'
|
||||
'TabFormContentContainer3
|
||||
'LayoutControlItem2
|
||||
'
|
||||
Me.TabFormContentContainer3.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TabFormContentContainer3.Location = New System.Drawing.Point(0, 71)
|
||||
Me.TabFormContentContainer3.Name = "TabFormContentContainer3"
|
||||
Me.TabFormContentContainer3.Size = New System.Drawing.Size(572, 534)
|
||||
Me.TabFormContentContainer3.TabIndex = 3
|
||||
Me.LayoutControlItem2.Control = Me.txtChangedWhen
|
||||
Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 49)
|
||||
Me.LayoutControlItem2.Name = "LayoutControlItem2"
|
||||
Me.LayoutControlItem2.Size = New System.Drawing.Size(276, 24)
|
||||
Me.LayoutControlItem2.Text = "Geändert"
|
||||
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(72, 13)
|
||||
'
|
||||
'LayoutControlItem3
|
||||
'
|
||||
Me.LayoutControlItem3.Control = Me.txtAccessedWhen
|
||||
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 73)
|
||||
Me.LayoutControlItem3.Name = "LayoutControlItem3"
|
||||
Me.LayoutControlItem3.Size = New System.Drawing.Size(276, 24)
|
||||
Me.LayoutControlItem3.Text = "Letzter Zugriff"
|
||||
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(72, 13)
|
||||
'
|
||||
'LayoutControlItem4
|
||||
'
|
||||
Me.LayoutControlItem4.Control = Me.txtObjectId
|
||||
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 0)
|
||||
Me.LayoutControlItem4.Name = "LayoutControlItem4"
|
||||
Me.LayoutControlItem4.Size = New System.Drawing.Size(552, 24)
|
||||
Me.LayoutControlItem4.Text = "Objekt Id"
|
||||
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(72, 13)
|
||||
'
|
||||
'SimpleSeparator1
|
||||
'
|
||||
Me.SimpleSeparator1.AllowHotTrack = False
|
||||
Me.SimpleSeparator1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.SimpleSeparator1.Name = "SimpleSeparator1"
|
||||
Me.SimpleSeparator1.Size = New System.Drawing.Size(552, 1)
|
||||
'
|
||||
'LayoutControlItem5
|
||||
'
|
||||
Me.LayoutControlItem5.Control = Me.txtCreatedWho
|
||||
Me.LayoutControlItem5.Location = New System.Drawing.Point(276, 25)
|
||||
Me.LayoutControlItem5.Name = "LayoutControlItem5"
|
||||
Me.LayoutControlItem5.Size = New System.Drawing.Size(276, 24)
|
||||
Me.LayoutControlItem5.Text = "von"
|
||||
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(72, 13)
|
||||
'
|
||||
'LayoutControlItem6
|
||||
'
|
||||
Me.LayoutControlItem6.Control = Me.txtChangedWho
|
||||
Me.LayoutControlItem6.Location = New System.Drawing.Point(276, 49)
|
||||
Me.LayoutControlItem6.Name = "LayoutControlItem6"
|
||||
Me.LayoutControlItem6.Size = New System.Drawing.Size(276, 24)
|
||||
Me.LayoutControlItem6.Text = "von"
|
||||
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(72, 13)
|
||||
'
|
||||
'txtAccessedWho
|
||||
'
|
||||
Me.txtAccessedWho.Control = Me.TextEdit1
|
||||
Me.txtAccessedWho.CustomizationFormText = "von"
|
||||
Me.txtAccessedWho.Location = New System.Drawing.Point(276, 73)
|
||||
Me.txtAccessedWho.Name = "txtAccessedWho"
|
||||
Me.txtAccessedWho.Size = New System.Drawing.Size(276, 24)
|
||||
Me.txtAccessedWho.Text = "von"
|
||||
Me.txtAccessedWho.TextSize = New System.Drawing.Size(72, 13)
|
||||
'
|
||||
'EmptySpaceItem1
|
||||
'
|
||||
Me.EmptySpaceItem1.AllowHotTrack = False
|
||||
Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 97)
|
||||
Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
|
||||
Me.EmptySpaceItem1.Size = New System.Drawing.Size(552, 319)
|
||||
Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
|
||||
'
|
||||
'LayoutControlItem7
|
||||
'
|
||||
Me.LayoutControlItem7.Control = Me.GroupControl1
|
||||
Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 416)
|
||||
Me.LayoutControlItem7.Name = "LayoutControlItem7"
|
||||
Me.LayoutControlItem7.Size = New System.Drawing.Size(552, 98)
|
||||
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0)
|
||||
Me.LayoutControlItem7.TextVisible = False
|
||||
'
|
||||
'TabPageHistory
|
||||
'
|
||||
@ -252,15 +456,15 @@ Partial Class frmObjectPropertyDialog
|
||||
Me.ViewValueHistory.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4, Me.GridColumn5})
|
||||
Me.ViewValueHistory.GridControl = Me.GridValueHistory
|
||||
Me.ViewValueHistory.Name = "ViewValueHistory"
|
||||
Me.ViewValueHistory.OptionsBehavior.Editable = false
|
||||
Me.ViewValueHistory.OptionsBehavior.ReadOnly = true
|
||||
Me.ViewValueHistory.OptionsBehavior.Editable = False
|
||||
Me.ViewValueHistory.OptionsBehavior.ReadOnly = True
|
||||
'
|
||||
'GridColumn1
|
||||
'
|
||||
Me.GridColumn1.Caption = "Attribut"
|
||||
Me.GridColumn1.FieldName = "Attribute"
|
||||
Me.GridColumn1.Name = "GridColumn1"
|
||||
Me.GridColumn1.Visible = true
|
||||
Me.GridColumn1.Visible = True
|
||||
Me.GridColumn1.VisibleIndex = 0
|
||||
'
|
||||
'GridColumn2
|
||||
@ -268,7 +472,7 @@ Partial Class frmObjectPropertyDialog
|
||||
Me.GridColumn2.Caption = "Alter Wert"
|
||||
Me.GridColumn2.FieldName = "Old value"
|
||||
Me.GridColumn2.Name = "GridColumn2"
|
||||
Me.GridColumn2.Visible = true
|
||||
Me.GridColumn2.Visible = True
|
||||
Me.GridColumn2.VisibleIndex = 1
|
||||
'
|
||||
'GridColumn3
|
||||
@ -276,7 +480,7 @@ Partial Class frmObjectPropertyDialog
|
||||
Me.GridColumn3.Caption = "Neuer Wert"
|
||||
Me.GridColumn3.FieldName = "New value"
|
||||
Me.GridColumn3.Name = "GridColumn3"
|
||||
Me.GridColumn3.Visible = true
|
||||
Me.GridColumn3.Visible = True
|
||||
Me.GridColumn3.VisibleIndex = 2
|
||||
'
|
||||
'GridColumn4
|
||||
@ -284,7 +488,7 @@ Partial Class frmObjectPropertyDialog
|
||||
Me.GridColumn4.Caption = "Geändert Wer"
|
||||
Me.GridColumn4.FieldName = "Changed who"
|
||||
Me.GridColumn4.Name = "GridColumn4"
|
||||
Me.GridColumn4.Visible = true
|
||||
Me.GridColumn4.Visible = True
|
||||
Me.GridColumn4.VisibleIndex = 3
|
||||
'
|
||||
'GridColumn5
|
||||
@ -292,229 +496,72 @@ Partial Class frmObjectPropertyDialog
|
||||
Me.GridColumn5.Caption = "Geändert Wann"
|
||||
Me.GridColumn5.FieldName = "Changed when"
|
||||
Me.GridColumn5.Name = "GridColumn5"
|
||||
Me.GridColumn5.Visible = true
|
||||
Me.GridColumn5.Visible = True
|
||||
Me.GridColumn5.VisibleIndex = 4
|
||||
'
|
||||
'AttributeRoot
|
||||
'
|
||||
Me.AttributeRoot.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.AttributeRoot.GroupBordersVisible = false
|
||||
Me.AttributeRoot.GroupBordersVisible = False
|
||||
Me.AttributeRoot.Location = New System.Drawing.Point(0, 0)
|
||||
Me.AttributeRoot.Name = "AttributeRoot"
|
||||
Me.AttributeRoot.Size = New System.Drawing.Size(572, 534)
|
||||
Me.AttributeRoot.TextVisible = false
|
||||
'
|
||||
'txtCreatedWhen
|
||||
'
|
||||
Me.txtCreatedWhen.Location = New System.Drawing.Point(87, 37)
|
||||
Me.txtCreatedWhen.Name = "txtCreatedWhen"
|
||||
Me.txtCreatedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
|
||||
Me.txtCreatedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = true
|
||||
Me.txtCreatedWhen.Properties.ReadOnly = true
|
||||
Me.txtCreatedWhen.Size = New System.Drawing.Size(197, 20)
|
||||
Me.txtCreatedWhen.StyleController = Me.LayoutControlObject
|
||||
Me.txtCreatedWhen.TabIndex = 4
|
||||
'
|
||||
'LayoutControlItem1
|
||||
'
|
||||
Me.LayoutControlItem1.Control = Me.txtCreatedWhen
|
||||
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 25)
|
||||
Me.LayoutControlItem1.Name = "LayoutControlItem1"
|
||||
Me.LayoutControlItem1.Size = New System.Drawing.Size(276, 24)
|
||||
Me.LayoutControlItem1.Text = "Erstellt"
|
||||
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(72, 13)
|
||||
'
|
||||
'txtChangedWhen
|
||||
'
|
||||
Me.txtChangedWhen.Location = New System.Drawing.Point(87, 61)
|
||||
Me.txtChangedWhen.Name = "txtChangedWhen"
|
||||
Me.txtChangedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
|
||||
Me.txtChangedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = true
|
||||
Me.txtChangedWhen.Properties.ReadOnly = true
|
||||
Me.txtChangedWhen.Size = New System.Drawing.Size(197, 20)
|
||||
Me.txtChangedWhen.StyleController = Me.LayoutControlObject
|
||||
Me.txtChangedWhen.TabIndex = 5
|
||||
'
|
||||
'LayoutControlItem2
|
||||
'
|
||||
Me.LayoutControlItem2.Control = Me.txtChangedWhen
|
||||
Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 49)
|
||||
Me.LayoutControlItem2.Name = "LayoutControlItem2"
|
||||
Me.LayoutControlItem2.Size = New System.Drawing.Size(276, 24)
|
||||
Me.LayoutControlItem2.Text = "Geändert"
|
||||
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(72, 13)
|
||||
'
|
||||
'txtAccessedWhen
|
||||
'
|
||||
Me.txtAccessedWhen.Location = New System.Drawing.Point(87, 85)
|
||||
Me.txtAccessedWhen.Name = "txtAccessedWhen"
|
||||
Me.txtAccessedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
|
||||
Me.txtAccessedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = true
|
||||
Me.txtAccessedWhen.Properties.ReadOnly = true
|
||||
Me.txtAccessedWhen.Size = New System.Drawing.Size(197, 20)
|
||||
Me.txtAccessedWhen.StyleController = Me.LayoutControlObject
|
||||
Me.txtAccessedWhen.TabIndex = 6
|
||||
'
|
||||
'LayoutControlItem3
|
||||
'
|
||||
Me.LayoutControlItem3.Control = Me.txtAccessedWhen
|
||||
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 73)
|
||||
Me.LayoutControlItem3.Name = "LayoutControlItem3"
|
||||
Me.LayoutControlItem3.Size = New System.Drawing.Size(276, 24)
|
||||
Me.LayoutControlItem3.Text = "Letzter Zugriff"
|
||||
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(72, 13)
|
||||
'
|
||||
'txtObjectId
|
||||
'
|
||||
Me.txtObjectId.Location = New System.Drawing.Point(87, 12)
|
||||
Me.txtObjectId.Name = "txtObjectId"
|
||||
Me.txtObjectId.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
|
||||
Me.txtObjectId.Properties.AppearanceReadOnly.Options.UseBackColor = true
|
||||
Me.txtObjectId.Properties.ReadOnly = true
|
||||
Me.txtObjectId.Size = New System.Drawing.Size(473, 20)
|
||||
Me.txtObjectId.StyleController = Me.LayoutControlObject
|
||||
Me.txtObjectId.TabIndex = 7
|
||||
'
|
||||
'LayoutControlItem4
|
||||
'
|
||||
Me.LayoutControlItem4.Control = Me.txtObjectId
|
||||
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 0)
|
||||
Me.LayoutControlItem4.Name = "LayoutControlItem4"
|
||||
Me.LayoutControlItem4.Size = New System.Drawing.Size(552, 24)
|
||||
Me.LayoutControlItem4.Text = "Objekt Id"
|
||||
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(72, 13)
|
||||
'
|
||||
'SimpleSeparator1
|
||||
'
|
||||
Me.SimpleSeparator1.AllowHotTrack = false
|
||||
Me.SimpleSeparator1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.SimpleSeparator1.Name = "SimpleSeparator1"
|
||||
Me.SimpleSeparator1.Size = New System.Drawing.Size(552, 1)
|
||||
'
|
||||
'txtCreatedWho
|
||||
'
|
||||
Me.txtCreatedWho.Location = New System.Drawing.Point(363, 37)
|
||||
Me.txtCreatedWho.Name = "txtCreatedWho"
|
||||
Me.txtCreatedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
|
||||
Me.txtCreatedWho.Properties.AppearanceReadOnly.Options.UseBackColor = true
|
||||
Me.txtCreatedWho.Properties.ReadOnly = true
|
||||
Me.txtCreatedWho.Size = New System.Drawing.Size(197, 20)
|
||||
Me.txtCreatedWho.StyleController = Me.LayoutControlObject
|
||||
Me.txtCreatedWho.TabIndex = 8
|
||||
'
|
||||
'LayoutControlItem5
|
||||
'
|
||||
Me.LayoutControlItem5.Control = Me.txtCreatedWho
|
||||
Me.LayoutControlItem5.Location = New System.Drawing.Point(276, 25)
|
||||
Me.LayoutControlItem5.Name = "LayoutControlItem5"
|
||||
Me.LayoutControlItem5.Size = New System.Drawing.Size(276, 24)
|
||||
Me.LayoutControlItem5.Text = "von"
|
||||
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(72, 13)
|
||||
'
|
||||
'txtChangedWho
|
||||
'
|
||||
Me.txtChangedWho.Location = New System.Drawing.Point(363, 61)
|
||||
Me.txtChangedWho.Name = "txtChangedWho"
|
||||
Me.txtChangedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
|
||||
Me.txtChangedWho.Properties.AppearanceReadOnly.Options.UseBackColor = true
|
||||
Me.txtChangedWho.Properties.ReadOnly = true
|
||||
Me.txtChangedWho.Size = New System.Drawing.Size(197, 20)
|
||||
Me.txtChangedWho.StyleController = Me.LayoutControlObject
|
||||
Me.txtChangedWho.TabIndex = 9
|
||||
'
|
||||
'LayoutControlItem6
|
||||
'
|
||||
Me.LayoutControlItem6.Control = Me.txtChangedWho
|
||||
Me.LayoutControlItem6.Location = New System.Drawing.Point(276, 49)
|
||||
Me.LayoutControlItem6.Name = "LayoutControlItem6"
|
||||
Me.LayoutControlItem6.Size = New System.Drawing.Size(276, 24)
|
||||
Me.LayoutControlItem6.Text = "von"
|
||||
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(72, 13)
|
||||
'
|
||||
'TextEdit1
|
||||
'
|
||||
Me.TextEdit1.Location = New System.Drawing.Point(363, 85)
|
||||
Me.TextEdit1.Name = "TextEdit1"
|
||||
Me.TextEdit1.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
|
||||
Me.TextEdit1.Properties.AppearanceReadOnly.Options.UseBackColor = true
|
||||
Me.TextEdit1.Properties.ReadOnly = true
|
||||
Me.TextEdit1.Size = New System.Drawing.Size(197, 20)
|
||||
Me.TextEdit1.StyleController = Me.LayoutControlObject
|
||||
Me.TextEdit1.TabIndex = 10
|
||||
'
|
||||
'txtAccessedWho
|
||||
'
|
||||
Me.txtAccessedWho.Control = Me.TextEdit1
|
||||
Me.txtAccessedWho.CustomizationFormText = "von"
|
||||
Me.txtAccessedWho.Location = New System.Drawing.Point(276, 73)
|
||||
Me.txtAccessedWho.Name = "txtAccessedWho"
|
||||
Me.txtAccessedWho.Size = New System.Drawing.Size(276, 24)
|
||||
Me.txtAccessedWho.Text = "von"
|
||||
Me.txtAccessedWho.TextSize = New System.Drawing.Size(72, 13)
|
||||
'
|
||||
'EmptySpaceItem1
|
||||
'
|
||||
Me.EmptySpaceItem1.AllowHotTrack = false
|
||||
Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 97)
|
||||
Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
|
||||
Me.EmptySpaceItem1.Size = New System.Drawing.Size(552, 417)
|
||||
Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
|
||||
'
|
||||
'SplashScreenManager
|
||||
'
|
||||
SplashScreenManager.ClosingDelay = 500
|
||||
Me.AttributeRoot.TextVisible = False
|
||||
'
|
||||
'frmObjectPropertyDialog
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(572, 605)
|
||||
Me.Controls.Add(Me.TabFormContentContainer1)
|
||||
Me.Controls.Add(Me.TabFormControl1)
|
||||
Me.IconOptions.SvgImage = CType(resources.GetObject("frmObjectPropertyDialog.IconOptions.SvgImage"),DevExpress.Utils.Svg.SvgImage)
|
||||
Me.IconOptions.SvgImage = CType(resources.GetObject("frmObjectPropertyDialog.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.Name = "frmObjectPropertyDialog"
|
||||
Me.TabFormControl = Me.TabFormControl1
|
||||
Me.Text = "Eigenschaften"
|
||||
CType(Me.RepositoryItemComboBox1,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.TabFormControl1,System.ComponentModel.ISupportInitialize).EndInit
|
||||
Me.TabFormContentContainer1.ResumeLayout(false)
|
||||
CType(Me.LayoutControlAttributes,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.AttributeLayout,System.ComponentModel.ISupportInitialize).EndInit
|
||||
Me.TabFormContentContainer2.ResumeLayout(false)
|
||||
CType(Me.LayoutControlObject,System.ComponentModel.ISupportInitialize).EndInit
|
||||
Me.LayoutControlObject.ResumeLayout(false)
|
||||
CType(Me.LayoutObject,System.ComponentModel.ISupportInitialize).EndInit
|
||||
Me.TabFormContentContainer4.ResumeLayout(false)
|
||||
CType(Me.GridValueHistory,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.ViewValueHistory,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.AttributeRoot,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.txtCreatedWhen.Properties,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.LayoutControlItem1,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.txtChangedWhen.Properties,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.LayoutControlItem2,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.txtAccessedWhen.Properties,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.LayoutControlItem3,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.txtObjectId.Properties,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.LayoutControlItem4,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.SimpleSeparator1,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.txtCreatedWho.Properties,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.LayoutControlItem5,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.txtChangedWho.Properties,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.LayoutControlItem6,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.TextEdit1.Properties,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.txtAccessedWho,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.EmptySpaceItem1,System.ComponentModel.ISupportInitialize).EndInit
|
||||
Me.ResumeLayout(false)
|
||||
CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TabFormControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.TabFormContentContainer1.ResumeLayout(False)
|
||||
CType(Me.LayoutControlAttributes, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.AttributeLayout, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.TabFormContentContainer2.ResumeLayout(False)
|
||||
CType(Me.LayoutControlObject, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.LayoutControlObject.ResumeLayout(False)
|
||||
CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.GroupControl1.ResumeLayout(False)
|
||||
Me.GroupControl1.PerformLayout()
|
||||
CType(Me.progressLifecycle.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtCreatedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAccessedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtObjectId.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtCreatedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutObject, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAccessedWho, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.TabFormContentContainer4.ResumeLayout(False)
|
||||
CType(Me.GridValueHistory, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ViewValueHistory, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.AttributeRoot, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
|
||||
Friend WithEvents TabFormControl1 As DevExpress.XtraBars.TabFormControl
|
||||
Friend WithEvents TabPageAttributes As DevExpress.XtraBars.TabFormPage
|
||||
Friend WithEvents TabFormContentContainer1 As DevExpress.XtraBars.TabFormContentContainer
|
||||
Friend WithEvents TabPageObject As DevExpress.XtraBars.TabFormPage
|
||||
Friend WithEvents TabFormContentContainer2 As DevExpress.XtraBars.TabFormContentContainer
|
||||
Friend WithEvents TabPageLifecycle As DevExpress.XtraBars.TabFormPage
|
||||
Friend WithEvents TabFormContentContainer3 As DevExpress.XtraBars.TabFormContentContainer
|
||||
Friend WithEvents LayoutControlAttributes As DevExpress.XtraLayout.LayoutControl
|
||||
Friend WithEvents AttributeRoot As DevExpress.XtraLayout.LayoutControlGroup
|
||||
Friend WithEvents cmbBusinessEntity As DevExpress.XtraBars.BarEditItem
|
||||
@ -548,4 +595,9 @@ End Sub
|
||||
Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents txtAccessedWho As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
|
||||
Friend WithEvents lbLifecycleStart As DevExpress.XtraEditors.LabelControl
|
||||
Friend WithEvents lbLifecycleEnd As DevExpress.XtraEditors.LabelControl
|
||||
Friend WithEvents progressLifecycle As DevExpress.XtraEditors.ProgressBarControl
|
||||
Friend WithEvents GroupControl1 As DevExpress.XtraEditors.GroupControl
|
||||
Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
|
||||
End Class
|
||||
|
||||
@ -6,6 +6,8 @@ Imports DevExpress.XtraSplashScreen
|
||||
Imports DigitalData.Modules.Database
|
||||
Imports DigitalData.Modules.Logging
|
||||
Imports DigitalData.Modules.ZooFlow
|
||||
Imports DigitalData.Modules.Language
|
||||
Imports DevExpress.XtraGrid
|
||||
|
||||
Public Class frmObjectPropertyDialog
|
||||
Private _LogConfig As LogConfig
|
||||
@ -40,7 +42,6 @@ Public Class frmObjectPropertyDialog
|
||||
Dim oCombobox As RepositoryItemComboBox = DirectCast(cmbBusinessEntity.Edit, RepositoryItemComboBox)
|
||||
oCombobox.Items.AddRange(oEntityIds)
|
||||
|
||||
|
||||
ShowAttributeHistory(oHistoryDataTable)
|
||||
ShowObjectProperties(oObjectProperties)
|
||||
|
||||
@ -121,6 +122,14 @@ Public Class frmObjectPropertyDialog
|
||||
Return oTermValue
|
||||
End Function
|
||||
|
||||
Private Async Function GetAttributeValueAsTable(AttributeName As String, ObjectId As Long, Optional LanguageCode As String = "de-DE", Optional IsForeign As Boolean = False) As Task(Of DataTable)
|
||||
Dim oIsForeign = IIf(IsForeign, 1, 0)
|
||||
Dim oSQL = $"SELECT TERM_VALUE FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({ObjectId}, '{AttributeName}', '{LanguageCode}', {oIsForeign})"
|
||||
Dim oDatatable = Await _Db.GetDatatableAsync(oSQL)
|
||||
|
||||
Return oDatatable
|
||||
End Function
|
||||
|
||||
Private Async Sub cmbBusinessEntity_EditValueChanged(sender As Object, e As EventArgs) Handles cmbBusinessEntity.EditValueChanged
|
||||
Dim oEntityId As Long
|
||||
|
||||
@ -131,17 +140,25 @@ Public Class frmObjectPropertyDialog
|
||||
Dim oAttributes = Await GetAttributesForBusinessEntity(oEntityId)
|
||||
|
||||
For Each oAttribute As Attribute In oAttributes
|
||||
Dim oControl = _Controls.GetControlForAttribute(oAttribute)
|
||||
Dim oControl = _Controls.GetControlForAttribute(oAttribute, True)
|
||||
Dim oItem As LayoutControlItem = AttributeLayout.AddItem()
|
||||
|
||||
oItem.Text = oAttribute.Title
|
||||
oItem.Name = oAttribute.Title
|
||||
oItem.Control = oControl
|
||||
Next
|
||||
|
||||
For Each oItem As LayoutControlItem In AttributeLayout.Items
|
||||
Dim oValue = Await GetAttributeValue(oItem.Name, _ObjectId)
|
||||
Dim oEdit = DirectCast(oItem.Control, BaseEdit)
|
||||
oEdit.EditValue = oValue
|
||||
If TypeOf oItem.Control Is BaseEdit Then
|
||||
Dim oValue = Await GetAttributeValue(oItem.Name, _ObjectId)
|
||||
Dim oEdit = DirectCast(oItem.Control, BaseEdit)
|
||||
oEdit.EditValue = oValue
|
||||
ElseIf TypeOf oItem.Control Is GridControl Then
|
||||
Dim oValueTable = Await GetAttributeValueAsTable(oItem.Name, _ObjectId)
|
||||
Dim oGrid = DirectCast(oItem.Control, GridControl)
|
||||
oGrid.DataSource = oValueTable
|
||||
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
@ -166,8 +183,12 @@ Public Class frmObjectPropertyDialog
|
||||
txtObjectId.Text = oRow.Item("IDB_OBJ_ID")
|
||||
txtCreatedWhen.Text = oRow.Item("ADDED_WHEN")
|
||||
txtCreatedWho.Text = oRow.Item("ADDED_WHO")
|
||||
txtChangedWhen.Text = oRow.Item("CHANGED_WHEN")
|
||||
txtChangedWho.Text = oRow.Item("CHANGED_WHO")
|
||||
txtChangedWhen.Text = Utils.NotNull(oRow.Item("CHANGED_WHEN"), String.Empty)
|
||||
txtChangedWho.Text = Utils.NotNull(oRow.Item("CHANGED_WHO"), String.Empty)
|
||||
|
||||
lbLifecycleStart.Text = DirectCast(oRow.Item("ADDED_WHEN"), Date).ToShortDateString
|
||||
lbLifecycleEnd.Text = Date.MaxValue.ToShortDateString
|
||||
progressLifecycle.Position = 30
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
|
||||
@ -1,4 +1,11 @@
|
||||
Public Class Attribute
|
||||
Public Const TYPE_BIT = "BIT"
|
||||
Public Const TYPE_FLOAT = "FLOAT"
|
||||
Public Const TYPE_DECIMAL = "DECIMAL"
|
||||
Public Const TYPE_DATE = "DATE"
|
||||
Public Const TYPE_BIG_INTEGER = "BIG INTEGER"
|
||||
Public Const TYPE_VECTOR_STRING = "VECTOR STRING"
|
||||
|
||||
Public Property ID As Long
|
||||
Public Property Title As String
|
||||
Public Property TypeID As Long
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user