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