Foros Club Delphi - Consulta Filtrada Con TibQuery

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)

- - Consulta Filtrada Con TibQuery (https://www.clubdelphi.com/foros/showthread.php?t=70195)

Consulta Filtrada Con TibQuery

Código SQL [-]Select * from pedidos where pedidos.codigo= :CODIGO_INTERNO

La instrucción que tiene el boton de busqueda es esto.

Código Delphi [-]var cod:string;
begin
cod:= TEdit1.Text;
if trim(TEdit1.Text)='' then   exit;
TibQuery1.close;
TibQuery1.ParamByName('CODIGO_INTERNO').value:= cod;
TibQuery1.Open;

Todo funcionando impeke, el tema es que ahora necesitan filtrar otros criterios de busqueda en el mismo Form, y eso no lo he realizado con el TibQuery, quiero filtrar tambien "Nombre Pedido" (TEdit2) o el "Prodcuto" (TEdit3), pero la relación siempre es "O ES UNA, PERO NO LA OTRA, PERO NO TODAS LAS BUSQUEDAS"

Puedes orientarme ujn poco con el TibQuery

Saludos

Cita:

Empezado por mantraxer21 (Mensaje 378518)

Estimados:

tengo una aplicación que me permite la busqueda por un TEdit, y al momento de hacer Clic en el boton de buscar, éste sí me busca los resultados, pues la query es básicamente algo así.

Código SQL [-]Select * from pedidos where pedidos.codigo= :CODIGO_INTERNO

La instrucción que tiene el boton de busqueda es esto.

Código Delphi [-]var cod:string; begin cod:= TEdit1.Text; if trim(TEdit1.Text)='' then exit; TibQuery1.close; TibQuery1.ParamByName('CODIGO_INTERNO').value:= cod; TibQuery1.Open;

Todo funcionando impeke, el tema es que ahora necesitan filtrar otros criterios de busqueda en el mismo Form, y eso no lo he realizado con el TibQuery, quiero filtrar tambien "Nombre Pedido" (TEdit2) o el "Prodcuto" (TEdit3), pero la relación siempre es "O ES UNA, PERO NO LA OTRA, PERO NO TODAS LAS BUSQUEDAS"

Puedes orientarme ujn poco con el TibQuery

Saludos

yo cuando realizo ese tipo de filtro utilizo un componente (RadioButton)para seleccionar el tipo de busqueda y en el codigo pongo algo así

Código Delphi [-]begin 
cod:= TEdit1.Text; 
if trim(TEdit1.Text)='' then   exit; 

TibQuery1.close; 
If Radio_Button1 = Chcked Then
    TibQuery1.ParamByName('Detalle').value:= cod;
If Radio_Button2 = Chcked Then
    TibQuery1.ParamByName('CODIGO_INTERNO').value:= cod;
TibQuery1.Open;

espero que esto te sirva...

salu2:D:p