Consulta SQL

[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.