knopix Posted April 18, 2013 Share Posted April 18, 2013 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; Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.