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

MS

Browse Source
This commit is contained in:
SchreiberM
2021-12-14 11:19:43 +01:00
parent ea1cdeef58
commit 67132f2ac9
5 changed files with 32 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb generated
View File

@@ -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)

3
GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.resx
View File

@@ -153,9 +153,6 @@
<metadata name="TBWH_ATTRIBUTE_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>177, 17</value>
</metadata>

7
GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb
View File

@@ -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