121 lines
4.3 KiB
VB.net
121 lines
4.3 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
|
|
|
|
chkAutoLogoff.Checked = DomUser.du_autologoff
|
|
If DomUser.du_autologoff = True Then
|
|
DateTimePicker1.Value = DomUser.du_autologofftime
|
|
End If
|
|
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
|
|
DomUser.du_autologoff = chkAutoLogoff.Checked
|
|
DomUser.du_autologofftime = DateTimePicker1.Value
|
|
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.Text = ""
|
|
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
|
|
|
|
Private Sub chkAutoLogoff_CheckedChanged(sender As Object, e As EventArgs) Handles chkAutoLogoff.CheckedChanged
|
|
DateTimePicker1.Enabled = chkAutoLogoff.Checked
|
|
cmd3Uhr.Enabled = chkAutoLogoff.Checked
|
|
End Sub
|
|
|
|
Private Sub Button1_Click_1(sender As Object, e As EventArgs)
|
|
MsgBox("hier")
|
|
End Sub
|
|
|
|
Private Sub cmd3Uhr_Click(sender As Object, e As EventArgs) Handles cmd3Uhr.Click
|
|
DateTimePicker1.Value = New DateTime(2020, 9, 1, 3, 0, 0)
|
|
End Sub
|
|
End Class
|