Filtering Laporan Pada Delphi 7 Dengan QReport

Contoh Kode untuk filtering Laporan dengan QReport

procedure TForm3.Button3Click(Sender: TObject);
begin
QUICKREPORT2.TABLE1.Open;
WITH QUICKREPORT2.TABLE1 DO
BEGIN
QUICKREPORT2.TABLE1.IndexFieldNames:= 'NAMA';
setrangestart;
fieldbyname('NAMA').AsString:=edit2.Text;
setrangeend;
fieldbyname('NAMA').AsString:=edit2.Text;
applyrange;
end;
quickreport2.preview;
QUICKREPORT2.TABLE1.Close;
end;

Atau bisa Download latihan lengakapnya disini