ActiveDelphi

[dcbfreitas21]

tenho um aplicativo onde ao mostrar o formulario de produtos ele lista somente os produtos de determinado fornecedor (cadastrado em um outro formulario), porem executo tb codigos para procurar determinados produtos no evento onchange de uma edit e gostaria de juntar os dois, mas nao sei como fazer isso, o codigo do evento onshow é este:
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select tp.codigo, tp.produto, tp.unidade, tp.fornecedor, tp.valor, tu.unidade from tabelaproduto as tp inner join tabelaunidade as tu on tp.unidade = tu.codigo');
ADOQuery1.SQL.Add('where tp.fornecedor = ' + (Form_OC.DBEdit2.Text));
ADOQuery1.SQL.Add('order by produto');
ADOQuery1.Open;
ele ao mostrar o formulario mostra somente os produto do fornecedor informado na dbedit2 e o codigo do evento onchange é este:
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select tp.codigo, tp.produto, tp.valor, tp.unidade, tu.unidade from tabelaproduto as tp inner join tabelaunidade as tu on tp.unidade = tu.codigo');
ADOQuery1.SQL.Add('where produto LIKE ' + QuotedStr('%' + edit1.Text + '%'));
ADOQuery1.SQL.Add('order by produto');
ADOQuery1.Open;
mas ao editar ele nao respeita mais o fornecedor logicamente e nao estou sabendo como unir a linha:
ADOQuery1.SQL.Add('where produto LIKE ' + QuotedStr('%' + edit1.Text + '%'));
com a linha:
ADOQuery1.SQL.Add('where tp.fornecedor = ' + (Form_OC.DBEdit2.Text));

[imex]

Experimente mais ou menos como segue:

[dcbfreitas21]