MS_appLib

2017-10-17 10:35:50 +02:00
parent 0d43e8ffb4
commit abbc238bf6
328 changed files with 227 additions and 341803 deletions
--- a/app/DD_PM_WINDREAM/frmControl_Detail.vb
+++ b/app/DD_PM_WINDREAM/frmControl_Detail.vb
@@ -0,0 +1,56 @@
+
+Public Class frmControl_Detail
+    Private Sub TBPM_CONTROL_TABLEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
+        Me.Validate()
+        Me.TBPM_CONTROL_TABLEBindingSource.EndEdit()
+        Me.TableAdapterManager.UpdateAll(Me.DD_DMSLiteDataSet)
+
+    End Sub
+
+    Public Function FillData(ID As Integer)
+        Try
+            TBPM_CONTROL_TABLETableAdapter.FillByGUID(DD_DMSLiteDataSet.TBPM_CONTROL_TABLE, ID)
+            Return True
+        Catch ex As System.Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Daten:")
+        End Try
+
+    End Function
+
+    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+        Try
+            TBPM_CONTROL_TABLEBindingSource.EndEdit()
+            If DD_DMSLiteDataSet.TBPM_CONTROL_TABLE.GetChanges Is Nothing = False Then
+                Me.CHANGED_WHOTextBox.Text = Environment.UserName
+                TBPM_CONTROL_TABLEBindingSource.EndEdit()
+                TBPM_CONTROL_TABLETableAdapter.cmdUpdate(SPALTENNAMETextBox.Text, SPALTEN_HEADERTextBox.Text, SPALTENBREITETextBox.Text, True, READ_ONLYCheckBox.Checked, LOAD_IDX_VALUECheckBox.Checked, CHANGED_WHOTextBox.Text, GUIDTextBox.Text)
+                tslblAenderungen.Visible = True
+                tslblAenderungen.Text = "Änderungen gespeichert - " & Now
+                FillData(GUIDTextBox.Text)
+            Else
+                tslblAenderungen.Visible = False
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Speichern:")
+        End Try
+
+    End Sub
+
+    Private Sub frmControl_Detail_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        My.Settings.frmTableColumns_Position = Me.Location
+    End Sub
+
+    Private Sub frmControl_Detail_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Try
+            If My.Settings.frmTableColumns_Position.IsEmpty = False Then
+                If My.Settings.frmTableColumns_Position.X > 0 And My.Settings.frmTableColumns_Position.Y > 0 Then
+                    Me.Location = My.Settings.frmTableColumns_Position
+                End If
+            End If
+            Me.TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = MyConnectionString
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Formulardaten:")
+        End Try
+       
+    End Sub
+End Class