From 67132f2ac9abf13ba96c6ba0f8c4049aa538c7e8 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Tue, 14 Dec 2021 11:19:43 +0100 Subject: [PATCH] MS --- .../frmAdmin_IDBAttribute.Designer.vb | 15 ++++++++++++ .../Administration/frmAdmin_IDBAttribute.resx | 3 --- .../Administration/frmAdmin_IDBAttribute.vb | 7 +++--- GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb | 1 + GUIs.ZooFlow/DSIDB_Stammdaten.xsd | 24 +++++++++---------- 5 files changed, 32 insertions(+), 18 deletions(-) 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 3b7f841b..5921b1e5 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 8151d31c..bbcb32bc 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