Initial commit

EDOKA_Toolset/Plugin_Doc_Retrival/DocRetrival/frmBenutzer.vb

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