buen dia foro. estoy haciendo una aplicacion firemonkey con adoquiery, quiero hacer esta consulta antes de abrir un from con showmodal, pero algo esta mal porque no funciona, es decir que me abre el from y me muestra informacion en el grid.
lo que quiero hacer es: un from con un campo edit1.text y el valor que coloque alli debe buscarlo en una tabla y si lo consigue abre el showmodal de lo contrario que salga un mensaje (no lo encontre) y que no habra el fromshowmodal. adjunto sentencia que estoy colocando:
Código Delphi
[-]adoQuery3.Close;
adoQuery3.Sql.Clear;
adoQuery3.Sql.Add('Select * From mov');
adoQuery3.Sql.Add('where cod_cli = '+ADOQuery1rif.asstring+'');
begin
While Not Adoquery3.Eof do
ShowMessage('No se ha incontrado ningun articulo relacionado con el Cliente');
adoQuery3.Open;
begin
Application.CreateForm(TFormSelequipo , FormSelequipo);
if FormSelequipo.ShowModal = mrOk then
begin
ADOQuery1equipo.asstring := ADOQuery3articulo.AsString;
ADOQuery1serial.AsString := ADOQuery3serial.AsString;
end
else
ShowMessage('No se ha incontrado ningun articulo relacionado con el Cliente');
end;
end;
end;
Agradezco su ayuda