Filtered Report FastReport

[knopix]

I want to ask for a report filtered using FastReport how? i use sourcode

TForm1.BitBtn1Click procedure (Sender: TObject);

begin

  if Edit1.Text ='' then

  begin

    ShowMessage ('No Batch Input ...');

    Edit1.SetFocus;

    Exit;

  end;

Dm.ZQuery1.Filter: = 'no_batch =' + QuotedStr (Edit1.Text);

Dm.ZQuery1.Filtered: = True;

if Dm.ZQuery1.RecordCount = 0 then

  begin

    ShowMessage ('No Batch Not Found ... ");

    Edit1.SetFocus;

    Dm.ZQuery1.Filtered: = False;

    Exit;

  end;

 

case TButton (Sender). Tags of

1: FrxReport1.ShowReport;

2: FrxReport1.Export (FrxXLSExport1);

end;

Edit1.Clear;

Dm.ZQuery1.Filtered: = False;

end;