Diverses

2020-01-08 14:32:30 +01:00
parent 5f24e2a9e1
commit 46a9991b2a
22 changed files with 1579 additions and 72 deletions
--- a/Dokumentation/uscntr_DomUser.vb
+++ b/Dokumentation/uscntr_DomUser.vb
@@ -0,0 +1,99 @@
+Public Class uscntr_DomUser
+
+    Dim DomList As New List(Of cDomUser)
+    Property DomUser As New cDomUser
+
+    Private Sub uscntr_DomUser_Load(sender As Object, e As EventArgs) Handles Me.Load
+        FillForm()
+    End Sub
+
+    Function FillForm()
+        If DomUser.Exist Then
+            TxtAvisoBenutzername.Text = DomUser.mit_username
+            TxtAvisoKennwort.Text = DomUser.mit_pwd
+            txtBenutzer.Text = DomUser.du_sAMAc
+            txtEMailAdresse.Text = DomUser.du_EMail
+            txtVorname.Text = DomUser.du_Vorname
+            txtNachname.Text = DomUser.du_Nachname
+            txtDomaene.Text = DomUser.du_Dom
+            chkEMailAktiv.Checked = DomUser.du_Email_Activated
+            txtInfo.Text = DomUser.du_Info
+            txtDomKennwort.Text = DomUser.du_Kennwort
+
+            txtEMailAdresse.Enabled = DomUser.du_Email_Activated
+        End If
+    End Function
+
+    Function FillDomUser()
+        DomUser.mit_username = TxtAvisoBenutzername.Text
+        DomUser.mit_pwd = TxtAvisoKennwort.Text
+        DomUser.du_sAMAc = txtBenutzer.Text
+        DomUser.du_Vorname = txtVorname.Text
+        DomUser.du_Nachname = txtNachname.Text
+        DomUser.du_Kennwort = txtDomKennwort.Text
+        DomUser.du_Dom = txtDomaene.Text
+        DomUser.du_Email_Activated = chkEMailAktiv.Checked
+        DomUser.du_EMail = txtEMailAdresse.Text
+        DomUser.du_Info = txtInfo.Text
+    End Function
+
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
+        If CheckBox1.Checked Then
+            txtDomKennwort.PasswordChar = ""
+        Else
+            txtDomKennwort.PasswordChar = "*"
+        End If
+
+    End Sub
+
+    Private Sub ChkKennwortAnzeigen_CheckedChanged(sender As Object, e As EventArgs) Handles ChkKennwortAnzeigen.CheckedChanged
+        If ChkKennwortAnzeigen.Checked Then
+            TxtAvisoKennwort.PasswordChar = ""
+        Else
+            TxtAvisoKennwort.PasswordChar = "*"
+        End If
+    End Sub
+
+    Private Sub chkEMailAktiv_CheckedChanged(sender As Object, e As EventArgs) Handles chkEMailAktiv.CheckedChanged
+        If chkEMailAktiv.Checked Then
+            txtEMailAdresse.Enabled = True
+        Else
+            txtEMailAdresse.Enabled = False
+        End If
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnLoadFromAviso.Click
+        DomList.Clear()
+        DomUser = New cDomUser
+        DomUser.getFromAvisoUser(TxtAvisoBenutzername.Text)
+        DomList = DomUser.getFromAvisoUserLIST(TxtAvisoBenutzername.Text)
+        If DomList.Count = 1 Then
+            FillForm()
+        Else
+            ListDomUser.Items.Clear()
+            For Each domu As cDomUser In DomList
+                ListDomUser.Items.Add(domu.du_Dom & "\" & domu.du_sAMAc)
+            Next
+            ListDomUser.Visible = True
+        End If
+
+    End Sub
+
+    Private Sub cmdSave_Click(sender As Object, e As EventArgs) Handles cmdSave.Click
+        FillDomUser()
+        DomUser.Save()
+    End Sub
+
+    Private Sub ListDomUser_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListDomUser.SelectedIndexChanged, ListDomUser.MouseClick
+
+        DomUser = DomList.Item(ListDomUser.SelectedIndex)
+        DomUser.Exist = True
+        ListDomUser.Visible = False
+        FillForm()
+    End Sub
+
+    Private Sub btnSchliessen_Click(sender As Object, e As EventArgs) Handles btnSchliessen.Click
+        cmdSave.PerformClick()
+        ParentForm.Close()
+    End Sub
+End Class