검색할 때 쓰는 코드가 아래와 같은데
DB그리드(Form1)에 나와있는 검색 내용이 퀵리포트(Form2)로 출력이 가능하게 하는 방법이 없을까요?
----------------------------------------------------------------------
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;