Q&A

  • ADOQuery를 사용한 검색내용을 Qreport로 인쇄하는 방법이...
검색할 때 쓰는 코드가 아래와 같은데

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;



0  COMMENTS