Aquí informe...
Componentes: FIBPlus
Evaluado: FIBDataset
Código Delphi
[-]
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
pFIBDataSet1.Close;
pFIBDataSet1.ParamByName('ID_EMP').Clear; pFIBDataSet1.Open;
end;
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
pFIBDataSet1.Close;
pFIBDataSet1.ParamByName('ID_EMP').AsInteger:=1;
pFIBDataSet1.Open;
end;
El resultado es el esperado...
Saludos cordiales