Public Class frmBenutzer

    Private Sub frmBenutzer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.DokList.DataSource = Globals.Userdata.Tables(0)
        Me.DokList.DataMember = Globals.Userdata.Tables(0).TableName
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.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(Application.StartupPath + "\users.xml")
        Globals.Userdata.Tables.Clear()
        Globals.Userdata.ReadXml(Application.StartupPath + "\users.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

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Me.Close()
    End Sub
End Class