You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
1.2 KiB
27 lines
1.2 KiB
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 |