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;
When i use only
Code: Select all
SELECT * FROM USER
So, please give beginner tips what could be wrong!