Duda con busquedas

[CarmaZone]

Hola a tod@s, soy yo de nuevo jeje. Ahora el asunto es éste:

Tengo un maestro/detalle (proveedores/articulos) y llamo a mi ventana buscar que contiene 4 edit para buscar por: CIF, empresa, articulo, precio/articulos. Bueno lo importante es esto: La consulta SQL se hacerla pero el problemas esque el usuario puede rellenar 1,2 o todos los campos y nose como controlar la sentencia.

He pensado:

Cada edit es un parametro y luego voy construyendo el where sumando los parametros de los edit que no esten vacios pero nose muy bien por donde guiarme.

Gracias De Antemano Y Salu2!!!

[roman]

Prueba esto:

Código Delphi [-]
var
  Criteria: TStringList;
  Where: String;

begin
  Criteria := TStringList.Create;
  Criteria.Delimiter := '&';
  Criteria.QuoteChar := ' ';

  Criteria.Values['cif'] := QuotedStr(Edit1.Text);
  Criteria.Values['empresa'] := QuotedStr(Edit2.Text);
  Criteria.Values['articulo'] := QuotedStr(Edit3.Text);
  Criteria.Values['precio'] := QuotedStr(Edit4.Text);

  Where := StringReplace(Criteria.DelimitedText, '&', ' and ', [rfReplaceAll]);

  Criteria.Free;
end;

Si la cadena Where está vacía es que no se llenó ningún campo. En caso contrario ya nada más agregas la cadena

'WHERE ' + Where

al resto de tu consulta.

Nota Fallará si el caracter & se encuentra en alguno de los campos.

// Saludos

[hermes_32]

Hola CarmaZone,

Tambien puedes hacer:

SELECT ....... FROM .....
WHERE 1=1
....

Despues ya te queda agregar el resto.

Un saludo.