begin
dm.qlab.SQL.Clear;
if combobox1.text <> 'Seleccione' then
Begin
dm.qlab.sql.text := 'Select * from stock';
dm.qlab.Open;
end
else
Begin
Showmessage('Debe seleccionar un criterio de busqueda antes de presionar el boton');
end;
if combobox1.Text = 'PRODUCTO' then
Begin
dm.qlab.Close;
dm.qlab.SQL.text := 'Select * from stock where producto = ' + QuotedStr(Edit1.text);
dm.qlab.Open;
end;
if combobox1.Text = 'MZ' then
Begin
dm.qlab.Close;
dm.qlab.SQL.text := 'Select * from stock where subpro = ' + QuotedStr(Edit1.text);
dm.qlab.Open;end;
end;