ParamByName
Prueba de la siguiente manera:
Dm1.QUsuario.Active := False;
Dm1.QUsuario.SQL.Text := 'SELECT * FROM USUARIO WHERE USUARIO =:Us AND PASWORD =:Pas';
Dm1.QUsuario.ParamByName('Us').AsString := EditUsuario.Text;
Dm1.QUsuario.ParamByName('Pas').AsString := EditPasword.Text;
Dm1.QUsuario.Active := True;
|