Initial commit

EDOKA_Toolset/Plugin_Dokument_Berechtigung/FrmData.vb

@@ -0,0 +1,94 @@
+Imports System.Windows.Forms
+
+Public Class FrmData
+    Dim daten As New DB
+    Dim dbco As New DB_Connection
+
+    Private Sub C1Daten_AfterColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles C1Daten.AfterColUpdate
+        'Aktualisieren von Mutierer und Mutiert_am
+
+        Dim i As Integer
+        Try
+            For i = 0 To Me.C1Daten.Columns.Count - 1
+                If LCase(Me.C1Daten.Columns(i).DataField) = "mutiert_am" Then Me.C1Daten.Columns(i).Value = Now
+                If LCase(Me.C1Daten.Columns(i).DataField) = "mutierer" Then Me.C1Daten.Columns(i).Value = Globals.Mitarbeiternr
+            Next
+
+            'neuer DB-Key auslösen, sofern kein Key vorhanden ist
+            If Me.C1Daten.Columns(0).Value Is DBNull.Value Then
+                'Dim dbkey As New edokadb.clsMyKey_Tabelle()
+                'Dim key As Long
+                'dbkey.cpMainConnectionProvider = conn
+                'key = dbkey.get_dbkey(tablename)
+                'Me.C1Daten.Columns(0).Value = key
+                For i = 0 To Me.C1Daten.Columns.Count - 1
+                    If LCase(Me.C1Daten.Columns(i).DataField) = "mandantnr" Then
+                        Me.C1Daten.Columns(i).Value = Globals.Mitarbeiternr
+                    End If
+                    If LCase(Me.C1Daten.Columns(i).DataField) = "erstellt_am" Then
+                        Me.C1Daten.Columns(i).Value = Now
+                    End If
+                    If LCase(Me.C1Daten.Columns(i).DataField) = "aktiv" Then
+                        Me.C1Daten.Columns(i).Value = 1
+                    End If
+                Next
+                'dbkey.Dispose()
+            End If
+        Catch
+        End Try
+
+    End Sub
+
+    Private Sub FrmData_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        refresh_data()
+    End Sub
+
+    Sub refresh_data()
+        daten.Get_data()
+
+        Me.C1Daten.DataSource = daten.dsDaten.Tables(0)
+        Me.C1Daten.DataMember = daten.dsDaten.Tables(0).TableName
+        Try
+            Me.C1Daten.Columns("aktiv").FilterText = True
+            Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
+            For i As Integer = 1 To C1Daten.Splits(0).DisplayColumns.Count - 1
+                Me.C1Daten.Splits(0).DisplayColumns(i).AutoSize()
+            Next
+        Catch
+        End Try
+    End Sub
+
+    Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
+        daten.Update_Daten()
+    End Sub
+
+    Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
+        Me.Close()
+    End Sub
+
+    Private Sub NeuerEintragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerEintragToolStripMenuItem.Click
+        Dim f As New FrmAddDok
+        f.ShowDialog()
+        Me.refresh_data()
+    End Sub
+
+    Private Sub MarkierterEintragInaktivierenToolStripMenuItem_Click(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Private Sub C1Daten_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Daten.MouseDown
+        Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
+        Me.C1Daten.Bookmark = Me.C1Daten.RowBookmark(Me.C1Daten.RowContaining(e.Y))
+    End Sub
+
+    Private Sub EintragLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem.Click
+        If MsgBox("Eintrag inaktivieren?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
+            Try
+                daten.deleteentry(Globals.Mitarbeiternr, Me.C1Daten.Columns(0).Value)
+                refresh_data()
+            Catch
+            End Try
+
+        End If
+    End Sub
+End Class