Consulta SQL

[sac]

Para ayudar a alguno que lo necesite a mi me funcionó de ésta manera:

Código Delphi [-]
Query1.close;   
Query1.sql.clear;   
Query1.SQL.Add('Select ...');   
Query1.SQL.Add('From ....'); //Luego anidé un if con mis 4 posibles consultas por campo cambiando el where y order   
if variable1 then 
begin 
  query1.sql.add('where Edad = :Pedad');  
  query1.sql.add('order by Nombre');   
end 
else //y Saliendo del if  
  Query1.Open; 
  DBGrid1.DataSource:=DS_...;  
end;

También podría haber usado un case en lugar del if
Espero que se haya entendido pero de ésta manera me funcionó

[[oscarac]]

claro sac
lo mas recomendable en esos caso es ir armando una cadena segun los requerimientos y/o parametros de la aplicacion
bien hecho

[PepeLolo]

Yo en estos casos lo que hago es lo siguiente:
Siempre construyo las consultas con el siguiente truco en el WHERE

Código SQL [-]
SELECT ID, NOMBRE, DIRECCION, POBLACIÓN
FROM CM_CLIENTES 
WHERE 1=1

Otro es poner marcas de sustitución en el SQL:

Código SQL [-]
SELECT ID, NOMBRE, DIRECCIÓN, POBLACIÓN
/* SELECT */ 
FROM CM_CLIENTES
/* FROM */
WHERE 1=1
/* WHERE */
/*ORDER BY*/

Cada una de estas marcas o comentarios los sustituyo por lo que corresponda en función de lo que haya seleccionado el usuario.

En mi caso todas las SQL de las aplicaciones están en BBDD y se leen y cargan donde y cuándo son requeridas.

[sac]

PepeLolo cómo sustituís me podés dar un ejemplo? xq ese código parece muy bueno

[PepeLolo]

Empezado por sac

PepeLolo cómo sustituís me podés dar un ejemplo? xq ese código parece muy bueno

Ejemplo:
En el evento Oncreate del form

Código Delphi [-]
cSqlCliente := sqlCliente.SQL.Text

lo que se hace es reservar la SQL original

Luego donde corresponda se sustituyen las marcas, yo siempre lo hago en el evento BeforeOpen de los componentes de datos

Código Delphi [-]
var cWhere, cSql :String;
Begin
   cWhere := '';
   cSql:= cSqlCliente;
   If eProvincia.txt <> '' Then cWhere := cWhere + 'AND Provincia  Like  ' + Quotedstr(eProvincia.txt) + FF;
   If eMunicipio.txt <> '' Then cWhere := cWhere +  'AND Municipio  Like  ' + Quotedstr(eMunicipio.txt) + FF
    cSql := stringReplace(cSql, '/* WHERE */, cWhere, []);
    SqlCliente.Sql.clear;
    SqlCliente.Sql.Text := cSql;
End;

Con ORDER BY, lo mismo.

He puesto un ejemplo basico para que te hagas una idea y lo comprendas. Este modelo lo puedes complicar mucho, hasta convertirlo en completamente dinámico.

En mi caso, no hay una instrucción DML en la aplicación, todas se encuentran almacenadas en la BBDD y se recuperan en función del formulario y componentes de este.