Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.617 Beiträge
Delphi 12 Athens
|
AW: Login Webservice Delphi
8. Jul 2020, 08:07
Wo wird der Code denn ausgeführt, auf dem Server oder in der App? Wie dem auch sei, ich verstehe das Doppelmoppel eh nicht und würde das eher so machen:
Delphi-Quellcode:
nxQuery1.SQL.Text:='select * from Mitarbeiter where Benutzername=: p1 and Passwort=: p2';
nxQuery1.Params.ParamByName('p1').AsString := edit1.Text;
nxQuery1.Params.ParamByName('p2').AsString := edit2.Text;
nxQuery1.Open;
// Eof -> Kein entsprechender Datensatz gefunden, Anmeldung ungültig
if nxQuery1.Eof then
Showmessage ('Ungültiger Benutzername oder Passwort !')
else
GroupBox1.Visible:= false;
nxQuery1.Close;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|