diff --git a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb
index 585857e8..aec396c9 100644
--- a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb
@@ -337,8 +337,11 @@ Partial Class frmAdmin_IDBAttribute
'
'LayoutControlItem1
'
+ Me.LayoutControlItem1.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.LayoutControlItem1.AppearanceItemCaption.Options.UseFont = True
Me.LayoutControlItem1.Control = Me.TextEdit1
Me.LayoutControlItem1.CustomizationFormText = "GUID"
+ Me.LayoutControlItem1.Enabled = False
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
@@ -378,7 +381,10 @@ Partial Class frmAdmin_IDBAttribute
'
'LayoutControlItem7
'
+ Me.LayoutControlItem7.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.LayoutControlItem7.AppearanceItemCaption.Options.UseFont = True
Me.LayoutControlItem7.Control = Me.txtAddedWho
+ Me.LayoutControlItem7.Enabled = False
Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 238)
Me.LayoutControlItem7.Name = "LayoutControlItem7"
Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
@@ -409,7 +415,10 @@ Partial Class frmAdmin_IDBAttribute
'
'LayoutControlItem9
'
+ Me.LayoutControlItem9.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.LayoutControlItem9.AppearanceItemCaption.Options.UseFont = True
Me.LayoutControlItem9.Control = Me.txtChangedWho
+ Me.LayoutControlItem9.Enabled = False
Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 278)
Me.LayoutControlItem9.Name = "LayoutControlItem9"
Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
@@ -429,7 +438,10 @@ Partial Class frmAdmin_IDBAttribute
'
'LayoutControlItem8
'
+ Me.LayoutControlItem8.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.LayoutControlItem8.AppearanceItemCaption.Options.UseFont = True
Me.LayoutControlItem8.Control = Me.txtAddedWhen
+ Me.LayoutControlItem8.Enabled = False
Me.LayoutControlItem8.Location = New System.Drawing.Point(436, 238)
Me.LayoutControlItem8.Name = "LayoutControlItem8"
Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
@@ -439,7 +451,10 @@ Partial Class frmAdmin_IDBAttribute
'
'LayoutControlItem10
'
+ Me.LayoutControlItem10.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.LayoutControlItem10.AppearanceItemCaption.Options.UseFont = True
Me.LayoutControlItem10.Control = Me.txtChangedWhen
+ Me.LayoutControlItem10.Enabled = False
Me.LayoutControlItem10.Location = New System.Drawing.Point(436, 278)
Me.LayoutControlItem10.Name = "LayoutControlItem10"
Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
diff --git a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.resx b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.resx
index 479a1577..8e679d2e 100644
--- a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.resx
+++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.resx
@@ -153,9 +153,6 @@
17, 56
-
- 17, 17
-
177, 17
diff --git a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb
index 0b08c637..4948e287 100644
--- a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb
+++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb
@@ -21,7 +21,10 @@
TBWH_ATTRIBUTE_TYPETableAdapter.Fill(DSIDB_Stammdaten.TBWH_ATTRIBUTE_TYPE)
VWIDB_BE_ATTRIBUTETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
VWIDB_BE_ATTRIBUTETableAdapter.FillByAttributeId(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, PrimaryKey, 1)
-
+ If IsInsert Then
+ VWIDB_BE_ATTRIBUTEBindingSource.AddNew()
+ DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.ADDED_WHOColumn.DefaultValue = My.Application.User.UserName
+ End If
Catch ex As Exception
ShowErrorMessage(ex)
End Try
@@ -29,7 +32,6 @@
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
ResetMessages()
-
If SaveData() And HasChanges Then
ShowStatus("Attribute saved!")
End If
@@ -82,7 +84,6 @@
"(TITLE, TYP_ID, VIEW_SEQUENCE, VIEW_VISIBLE, ADDED_WHO,COMMENT) " &
$"VALUES ('{TextEdit2.Text}',{ComboBoxEdit1.EditValue},{SpinEdit1.Value},'{CheckEdit2.Checked}','{My.Application.User.UserName}', '{TextEdit3.Text}')"
-
If My.DatabaseIDB.ExecuteNonQuery(oInsert) = True Then
IsInsert = False
Else
diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb
index efaf6e3f..566c2142 100644
--- a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb
+++ b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb
@@ -2154,6 +2154,7 @@ Partial Public Class DSIDB_Stammdaten
Me.columnTYPE_NAME.AllowDBNull = false
Me.columnTYPE_NAME.MaxLength = 100
Me.columnVIEW_VISIBLE.AllowDBNull = false
+ Me.columnVIEW_VISIBLE.DefaultValue = CType(true,Boolean)
Me.columnVIEW_SEQUENCE.AllowDBNull = false
Me.columnLANG_ID.AllowDBNull = false
Me.columnLANG_CODE.AllowDBNull = false
diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.xsd b/GUIs.ZooFlow/DSIDB_Stammdaten.xsd
index 3269a406..5fac4d0c 100644
--- a/GUIs.ZooFlow/DSIDB_Stammdaten.xsd
+++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xsd
@@ -614,7 +614,7 @@ FROM TBIDB_ATTRIBUTE_TYPE
-
+
@@ -653,7 +653,7 @@ FROM TBIDB_ATTRIBUTE_TYPE
-
+
@@ -681,7 +681,7 @@ FROM TBIDB_ATTRIBUTE_TYPE
-
+
@@ -711,7 +711,7 @@ FROM TBIDB_ATTRIBUTE_TYPE
-
+
@@ -768,7 +768,7 @@ FROM TBIDB_ATTRIBUTE_TYPE
-
+
@@ -809,7 +809,7 @@ FROM TBIDB_ATTRIBUTE_TYPE
-
+
@@ -875,7 +875,7 @@ FROM TBIDB_ATTRIBUTE_TYPE
-
+
@@ -928,7 +928,7 @@ FROM TBIDB_ATTRIBUTE_TYPE
-
+
@@ -965,7 +965,7 @@ FROM TBIDB_ATTRIBUTE_TYPE
-
+
@@ -979,7 +979,7 @@ FROM TBIDB_ATTRIBUTE_TYPE
-
+
@@ -1054,8 +1054,8 @@ FROM TBIDB_ATTRIBUTE_TYPE
-
-
+
+
\ No newline at end of file