-> Hier kostenlos registrieren
Hallo
Ich möchte gerne mit einem Auswahlfeld (Symbolisches EA-Feld) den Benutzernamen auswählen, dann in ein Eingabefeld das Kennwort eingeben und dann über einen Button den Benutzer anmelden (wahlweise auch ohne button, nach der eingabe des Kennwortes)
Meine Lösung (die nicht funktioniert)
DB20 erstellt
0.0 Schmitz String[20] 'schmitz'
22.0 Kennwort String[20] ' '
Variablen
Kennwort Steuerung_1 String DB 20 DBB 22
Benutzername Steuerung_1 String DB [benutzer_db] DBB [benutzername]
benutzer_db intern Int
benutzername intern Int
benutzer intern Int
Textliste Benutzerliste
0 = schmitz
1 = müller
Symbolisches EA-Feld
Eingabe
Textliste "Benutzerliste"
Variable "benutzer"
EA-Feld
Eingabe Zeichenkette
Variable "Kennwort"
Schaltfläche
Loslassen => Benutzerscripte "Benutzerauswahl"
Script "Benutzerauswahl"
Dim benutzer
If benutzer = 0 Then
Call Benutzer_0 'Script'
End If
If benutzer = 1 Then
Call Benutzer_1
End If
Script "Benutzer_0"
Dim benutzer_db, benutzername
SetValue benutzer_db, 20
SetValue benutzername, 0
Logon SmartTags("Benutzerverwaltung\Kennwort"), SmartTags("Benutzerverwaltung\Benutzername")
So, ich hoffe ich hab alles verständlich beschrieben und jemand kann mir sagen wo mein Fehler liegt.
Ich muß dazu sagen, daß ich keine Ahnung von VBScripten hab. Hab mir das so zusammen gesucht.
Ach ja, die meldung lautet "Benutzername oder Kennwort falsch"
hab ich natürlich in der Benutzerverwaltung angelegt, funktioniert auch auf anderem Wege
Danke schon mal für Tips und Ideen
Gruß
Ich möchte gerne mit einem Auswahlfeld (Symbolisches EA-Feld) den Benutzernamen auswählen, dann in ein Eingabefeld das Kennwort eingeben und dann über einen Button den Benutzer anmelden (wahlweise auch ohne button, nach der eingabe des Kennwortes)
Meine Lösung (die nicht funktioniert)
DB20 erstellt
0.0 Schmitz String[20] 'schmitz'
22.0 Kennwort String[20] ' '
Variablen
Kennwort Steuerung_1 String DB 20 DBB 22
Benutzername Steuerung_1 String DB [benutzer_db] DBB [benutzername]
benutzer_db intern Int
benutzername intern Int
benutzer intern Int
Textliste Benutzerliste
0 = schmitz
1 = müller
Symbolisches EA-Feld
Eingabe
Textliste "Benutzerliste"
Variable "benutzer"
EA-Feld
Eingabe Zeichenkette
Variable "Kennwort"
Schaltfläche
Loslassen => Benutzerscripte "Benutzerauswahl"
Script "Benutzerauswahl"
Dim benutzer
If benutzer = 0 Then
Call Benutzer_0 'Script'
End If
If benutzer = 1 Then
Call Benutzer_1
End If
Script "Benutzer_0"
Dim benutzer_db, benutzername
SetValue benutzer_db, 20
SetValue benutzername, 0
Logon SmartTags("Benutzerverwaltung\Kennwort"), SmartTags("Benutzerverwaltung\Benutzername")
So, ich hoffe ich hab alles verständlich beschrieben und jemand kann mir sagen wo mein Fehler liegt.
Ich muß dazu sagen, daß ich keine Ahnung von VBScripten hab. Hab mir das so zusammen gesucht.
Ach ja, die meldung lautet "Benutzername oder Kennwort falsch"
hab ich natürlich in der Benutzerverwaltung angelegt, funktioniert auch auf anderem Wege
Danke schon mal für Tips und Ideen
Gruß