MS ZF Adminconsole

GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb

@@ -17,8 +17,8 @@
 
     Private Sub frmAdmin_Attribute_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
-            TBIDB_ATTRIBUTE_TYPETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
-            TBIDB_ATTRIBUTE_TYPETableAdapter.Fill(DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPE)
+            TBWH_ATTRIBUTE_TYPETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
+            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)
 
@@ -31,7 +31,7 @@
         ResetMessages()
 
         If SaveData() And HasChanges Then
-            ShowStatus("Attribute gespeichert!")
+            ShowStatus("Attribute saved!")
         End If
     End Sub
 
@@ -56,8 +56,8 @@
         Try
             VWIDB_BE_ATTRIBUTEBindingSource.EndEdit()
 
-            If DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.GetChanges() IsNot Nothing Then
-                HasChanges = True
+            'If DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE.GetChanges() IsNot Nothing Or IsInsert Then
+            HasChanges = True
 
                 If IsInsert Then
                     txtAddedWho.EditValue = My.Application.User.UserName
@@ -67,9 +67,30 @@
 
                 VWIDB_BE_ATTRIBUTEBindingSource.EndEdit()
 
-                ' TODO: Update Database
-                'VWIDB_BE_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE)
+            ' TODO: Update Database
+            If Not IsInsert Then
+                Dim oUpdate As String = $"UPDATE TBIDB_ATTRIBUTE " &
+                $"SET TITLE = '{TextEdit2.Text}', TYP_ID = {ComboBoxEdit1.EditValue}, VIEW_SEQUENCE = {SpinEdit1.Value}, VIEW_VISIBLE = '{CheckEdit2.Checked}'" &
+                $", COMMENT = '{TextEdit3.Text}', CHANGED_WHO = '{My.Application.User.UserName}' " &
+                $"WHERE        (GUID = {TextEdit1.Text})"
+
+                If My.DatabaseIDB.ExecuteNonQuery(oUpdate) = False Then
+                    Return False
+                End If
+            Else
+                Dim oInsert As String = $"INSERT INTO TBIDB_ATTRIBUTE " &
+                         "(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
+                    Return False
+                End If
             End If
+            VWIDB_BE_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE)
+            'End If
 
             Return True
         Catch ex As Exception
@@ -77,20 +98,11 @@
             Return False
         End Try
     End Function
-    Private Sub Update_Datasource()
-        Dim oupdate = $"UPDATE TBIDB_ATTRIBUTE
-                        SET TITLE = '@TITLE', 
-                        TYP_ID = @TYP_ID, 
-                        MULTI_CONTEXT = @MULTI_CONTEXT, 
-                        VIEW_SEQUENCE = @VIEW_SEQUENCE, 
-                        VIEW_VISIBLE = @VIEW_VISIBLE, 
-                        COMMENT = @COMMENT
-                        WHERE (GUID = @GUID)"
-    End Sub
+
 
     Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
         Try
-            TBIDB_ATTRIBUTE_TYPETableAdapter.Delete(PrimaryKey)
+            'VWIDB_BE_ATTRIBUTETableAdapter.Delete(PrimaryKey)
             Return True
         Catch ex As Exception
             ShowErrorMessage(ex)