100 lines
3.4 KiB
VB.net
100 lines
3.4 KiB
VB.net
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
|