hallo leute,
ich weiss, es gab schon einige Einträge zu diesem Thema, aber geholfen hat keiner.
ich mache ein programm, bei dem man sich als administrator anmelden kann. dabei gibt man den Username und das PW ein.
der code sieht wie folgt aus
Delphi-Quellcode:
procedure TFormAdmin.sbAdminClick(Sender: TObject);
var user, pw: string;
begin
user := edAdminUser.Text; //editfeld für Username eintrag
pw := meAdminPW.Text; //maskedit feld für PW
UnitLogin.FormLogin.TAdmin.Active := false; //die Tabelle ist im objkt.inspector auf true gesetzt
UnitLogin.FormLogin.TAdmin.Filtered := false;
UnitLogin.FormLogin.TAdmin.Filter := 'User = '+QuotedStr( user );
UnitLogin.FormLogin.TAdmin.Filtered := True;
UnitLogin.FormLogin.TAdmin.Open;
if ((edAdminUser.Text = 'mad') AND ( meAdminPW.Text = '1234' )) OR ( pw = UnitLogin.FormLogin.dbePW.Text ) then
begin
showmessage('Eingabe korrekt. Sie wurden als Administrator angemeldet.'); //information an den Benutzer
btAdminOK.Enabled := true; //wird freigegeben.
sbAdminLogin.Enabled := true; //als Admin kann man weitere Admins erstellen.
ok := 1;
end
else
begin
showmessage('Der Benutzername oder das Passwort stimmt nicht. Versuchen Sie es erneut.');
ok := 0;
end;
end;
'ok' wird in der Funktion isOk übergeben und isOk auf true gesetzt, wenn ok = 1
als admin kann man die einstellungen ändern und neue benutzer erfassen.
ich hoffe jemand kann mir helfen
mfg mark