hallo,
so weit funktioniert alles ganz gut aber ich verstehe einen fehler nicht...
ich habe einige testbenutzer eingerichtet:
user passwort
admin test0
marketing test1
bearbeiter test2
betrachter test3
falls aber 2 benutzer genau das gleiche passwort haben bekomme ich bei beiden die meldung benutzername falsch, kann das aber nicht nachvollziehen da es doch eigentlich egal sein sollte und er nur überprüft ob die eingaben übereinstimmen..
Delphi-Quellcode:
procedure TSDIAppForm.ZConnectionAfterConnect(Sender: TObject);
begin
Connect.Enabled := False;
begin
begin
ZConnection1.Connect;
ZQuery1.SQL.Text := 'SELECT * FROM user WHERE username = ' + QuotedStr(user.Text);
ZQuery1.Open;
end;
ZConnection1.Connect;
ZQuery1.SQL.Text := 'SELECT * FROM user WHERE userpasswd = ' + QuotedStr(pass.Text);
ZQuery1.Open;
end;
if user.Text = (ansilowercase(username.text)) then
begin
if pass.Text = Passwort.Text then
Hauptmenue.ShowModal
else
MessageBox(self.Handle, 'Passwort falsch, bitte überprüfen Sie ihre Angaben!', 'Fehler!', 48 or MB_OK);
pass.clear;
user.Clear;
end
else
MessageBox(self.Handle, 'Benutzername falsch, bitte überprüfen Sie ihre Angaben!', 'Fehler!', 48 or MB_OK);
user.clear;
pass.Clear;
end;
vielen dank im voraus, Steve