Initial commit

EDOKA_Toolset/.svn/pristine/c7/c79b06701adf0be6863404988a53d4a9541e138c.svn-base

@@ -0,0 +1 @@
+d27c63805ed0e7d216ce9ff640553943a6212989

EDOKA_Toolset/.svn/pristine/c7/c7a828fffb599014ed86381ac50a5a9374495fa9.svn-base

@@ -0,0 +1,28 @@
+Public Class frmBenutzer
+
+    Private Sub frmBenutzer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.DokList.DataSource = Globals.Userdata.Tables(0)
+        Me.DokList.DataMember = Globals.Userdata.Tables(0).TableName
+    End Sub
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        Me.Close()
+    End Sub
+
+    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
+
+        For Each dr As DataRow In Globals.Userdata.Tables(0).Rows
+            dr.Item(0) = Crypto.EncryptText(dr.Item(0).ToString, "Selbstanzeigen")
+        Next
+        Globals.Userdata.WriteXml(ApplicationPath() + "\DocRetUsers.xml")
+        Globals.Userdata.Tables.Clear()
+        Globals.Userdata.ReadXml(ApplicationPath() + "\DocRetUsers.xml")
+        For Each dr As DataRow In Globals.Userdata.Tables(0).Rows
+            dr.Item(0) = Crypto.DecryptText(dr.Item(0).ToString, "Selbstanzeigen")
+        Next
+        Me.DokList.DataSource = Nothing
+        Me.DokList.DataSource = Globals.Userdata.Tables(0)
+        Me.DokList.DataMember = Globals.Userdata.Tables(0).TableName
+
+    End Sub
+End Class

EDOKA_Toolset/.svn/pristine/c7/c7e243e41e9d9ffe2372fd2e2229bc72b130e923.svn-base

@@ -0,0 +1,21 @@
+Imports PluginContracts
+Public Class Class1
+    Implements PluginContracts.IPlugin
+
+    Public ReadOnly Property Name() As String Implements IPlugin.Name
+        Get
+            Return "EDOKA_Hostdokument-Notizen"
+        End Get
+    End Property
+
+
+
+    Public Function Show(CurrentUser As String, Connectionstring As String, Parentform As Object) As Object Implements IPlugin.Show
+        Globals.Mitarbeiternr = CurrentUser
+        Dim f As New form1
+        f.MdiParent = Parentform
+        f.Show()
+
+    End Function
+
+End Class