PRIMA!!! Jetzt klappt es!
Habe es etwas abgewandelt, weil das Programm sonst die Schleife immer wieder als Endlosschleife durchlaufen ist.
SQL-Code:
procedure TLogIn.Button1Click(Sender: TObject);
begin
sqlquery1.sql.Text:=('select LogIn, BenutzerID, AbteilungID, Passwort from Benutzer where LogIn=');
sqlquery1.SQL.Add(#39+Benutzername.Text+#39);
sqlquery1.Open;
if not sqlquery1.Eof then
begin
showmessage(sqlquery1.fieldbyname('Passwort').asstring);
if sqlquery1.FieldByName('Passwort').asstring = Passwort.Text then
begin
showmessage('Passwort Korrekt');
menueunit.BenutzerID:=sqlquery1.fieldbyname('BenutzerID').asinteger;
menueunit.AbteilungID:=sqlquery1.fieldbyname('AbteilungID').asinteger;
end
else
showmessage('Benutzername oder Passwort ist nicht korrekt');
end;
end;
Kannst Du mir in einem Satz sagen, was "sqlquery1.Eof" bedeutet?
Vielen Dank für die tolle Hilfe!
Ykcim