Query that do not a result, while it must!

[haste]

Hello!

I use ZEOS 6.6.1 with Firebird 1.5.4 and Delphi 2006.
With that query

Code: Select all

procedure TForm1.LoginBnClick(Sender: TObject);
begin
  try
    ZQuery1.SQL.Clear;
    ZQuery1.sql.add('SELECT * FROM USER WHERE UNAME = :UserNameTxt AND PW = :PasswordTxt');
    UserNameTxt.Text := ZQuery1.ParamByName('UserNameTxt').AsString;
    PasswordTxt.Text:= ZQuery1.ParamByName('PasswordTxt').AsString;
    ZQuery1.Open;
    if ( Not (ZQuery1.IsEmpty)) then
        begin
          Form1.Visible := false;
          Form2.Showmodal;
        end
        else begin
          MessageDlg('Wrong Password/Username',mtWarning,[mbok],0);
          //Form1.Close;
          //Form2.Close;

    end
  finally
    ZQuery1.Active := false;
    ZQuery1.sql.clear;
  end
end;

i recieve empty query. With only one argument i recieve empry query, too!
When i use only

Code: Select all

SELECT * FROM USER

i recieve a result!

So, please give beginner tips what could be wrong!

[btrewern]

try

Code: Select all

    ZQuery1.ParamByName('UserNameTxt').AsString := UserNameTxt.Text;
    ZQuery1.ParamByName('PasswordTxt').AsString := PasswordTxt.Text;

instead of

Code: Select all

    UserNameTxt.Text := ZQuery1.ParamByName('UserNameTxt').AsString;
    PasswordTxt.Text:= ZQuery1.ParamByName('PasswordTxt').AsString;

Regards,

Ben

[haste]

btrewern: Thanks! With your corrections it works!