Login mit verschiedenen FORMS

[Amenovis]

Also ich habe mal ein simple Login Form die auch wunderbar funktioniert

Dazu habe ich eine Tabelle mit 3 Spalten

USER....PASSWORD....SECTION

das loginscript sieht bis jetzt so aus:

Delphi-Quellcode:

begin
  QUery1.SQL.Clear;
  Query1.SQL.Text:='Select * From USER where user='''+Edit1.Text+''' and password='''+Edit2.Text+'''';
  Query1.Open;
  if not Query1.Eof then begin
      Form1.Hide;
      Form2.Showmodal;
  end else
     ShowMessage('Wrong User or Password!')
  end;

Nun hätte ich gern die Möglichkeit den dritten Wert zu nutzen um dem Programm zu sagen welches Fenster er öffnen soll.... Also verschachtelte IF Funktion....

Delphi-Quellcode:

begin
  QUery1.SQL.Clear;
  Query1.SQL.Text:='Select * From USER where user='''+Edit1.Text+''' and password='''+Edit2.Text+'''';
  Query1.Open;
  if not Query1.Eof then begin
      IF QUERY1 SECTION = 1 THEN BEGIN
      Form2.Showmodal;
      end;
      IF QUERY1 SECTION = 2 THEN BEGIN
      Form3.Showmodal;
      end;
  end else
     ShowMessage('Wrong User or Password!')
  end;

WIe stelle ich das an den Wert der SECTION auszulesen und die FORM zu zuweisen ?

LG Timo

[scrat1979]

Query1.FieldByName(„SECTION“).AsInteger

[Amenovis]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  QUery1.SQL.Clear;
  Query1.SQL.Text:='Select * From USER where user='''+Edit1.Text+''' and password='''+Edit2.Text+'''';
  Query1.Open;
  if not Query1.Eof then begin
      if Query1.FieldByName('SECTION').AsString = '1' then begin
      Form1.Hide;
      Form2.Showmodal;
      end;
      if Query1.FieldByName('SECTION').AsString = '2' then begin
      Form1.Hide;
      Form3.Showmodal;
      end;
  end else
     ShowMessage('Wrong User or Password!')
  end;

Klappt DANKEEEEEEEEEEEEEEEEEEE hatte es so ähnlich da war sicher wieder der Riesen Baum der den Wald verdeckt !!


lg

Timo

[scrat1979]

Zitat von Amenovis:

„SECTION“ <--- mit 'section' hatte ich es versucht wie bekomme ich den die „“ hin und was bewirken diese ?

und ich versuch es gleich danke dafür!

lg

Timo

So wie Du es gemacht hast ist es richtig, ich bekomme die einfache Anführungszeichen mit dem Handy leider gerade nicht hin, da sie automatisch umgewandelt werden

FieldByName('SECTION').AsInteger Jetzt ging es... der Code ist jedenfalls korrekt.

[Amenovis]

ja gesehen da war bei mir sicher wieder ein mini Fehler drin ... das sind die schlimmsten die finde ich nie

lg

Timo

[scrat1979]

Super!

Und der übliche Komentar Sieh‘ Dir mal SQL-Parameter und deren Vorteile an.

[Amenovis]

ja da gibt es einige die ich jetzt schon liebe sum() zb muss mir mal unbedingt eine liste mit allem besorgen was da so gängig ist mit ultra einfach beispielen für innerlich plonde wie mich

[skoschke]

Man kann auch doppelte Anführungszeichen verwenden:

'Select * From USER where user= " '+Edit1.Text+' " and password= " '+Edit2.Text+' " ';

Ciao
Stefan

[Schokohase]

Man kann auch die Anführungszeichen komplett entsorgen und mit Parametern arbeiten.

Delphi-Quellcode:

QUery1.SQL.Clear;
Query1.SQL.Text:='Select * From USER where user=:user and password=:pass';
Query1.ParamByName('user').AsString := Edit1.Text;
Query1.ParamByName('pass').AsString := Edit2.Text;
Query1.Open;

... allerdings ist es sehr fahrlässig die Kennwörter im Klartext in der Datenbank zu speichern. Dort sollten sich nur Salted Hashs befinden.

[haentschman]

Zitat:

Man kann auch die Anführungszeichen komplett entsorgen

...nicht KANN sondern MUSS.
siehe: https://de.wikipedia.org/wiki/SQL-Injection

PS:
QUery1.SQL.Clear; vor Query.SQL.Text ist nicht nötig weil SQL.Text das sowieso macht.