ADOQurey를사용해서 검색기능을 만들었는데 DB그리드에 나와있는 검색 내용을 퀵리포트



로 출력이 가능하게 하는 방법이 없을까요?

----------------------------------------------------------------------

procedure TForm1.BitBtn1Click(Sender: TObject);

var

input_str: string;

begin

Input_str:= inputbox('품명 입력', '찾을 품명을 입력하세요','');



if trim(input_str)<>'' then

begin

adoquery1.Close;

adoquery1.sql.clear;

adoquery1.SQL.Add('Select * from 거래목록');

adoquery1.sql.add('where 품명 like :Name1');

adoquery1.parameters.ParamByName('Name1').value := '%'+input_str+'%';

adoquery1.open;

end;

end;

----------------------------------------------------------------------