Quizás haya una forma más fácil.
En una tabla de configuración, guardas el select que ha de hacerse:
Código:
Tabla: Config
Seccion Valor
sqlClientes select idcliente, nombreCliente, direccion from clientes
sqlfacturas select * from facturas
Ahora en Delphi, al mostrar el dbgrid de clientes haces así:
Código Delphi
[-]
query1.sql.text := LeerConfig('sqlClientes');
query1.Open;
Obviamente la función LeerConfig hace un locate del parámetro que recibe, y devuelve la columna "Valor" donde tendrás el sql que necesitas.
Esto tiene algunos detalles a tener en cuenta:
- En el Grid, no añadas las columnas en tiempo de diseño, ya que cada vez que abras la consulta, se reinician dependiendo de los campos que se vayan a leer.
- Quizás necesites alguna rutina para establecer el ancho de cada columna, ya que por defecto el grid asignará el DisplayWith de cada campo al tamaño máximo de ese campo, por ejemplo, si el campo NombreCliente tiene un ancho máximo de 100 caracteres, esa columna se verá muy muy ancha.
Incluso puedes guardar en esa tabla config, sólo los campos que el usuario quiere ver:
Código Delphi
[-]
query1.sql.text := ' select '+LeerConfig('sqlClientes') + ' FROM BLAH BLAH';
query1.Open;
En la columna valor, solo se habrá guardado: "Nombrecliente, direccion, Telefono"
Normalmente, y como otra posibilidad más, puedes dar una opción al usuario para que pueda ocultar las columnas que él quiera, guardando esa lista de campos, después puedes recorrer el DBGrid y ocultarla, lo explico mejor:
Código Delphi
[-]
// el usuario quiere ver los siguientes campos:
VerCampos := ' Nombrecliente, Direccion, telefono';
//ocultamos las columnas del grid que no estan en esa lista:
with DBgrid1 do
for i:=0 to Columns.count -1 do
Visible := pos(Columns[i].FieldName, VerCampos) <> 0;
// para guardar las columnas para una próxima vez:
with DBgrid1.columns do
for i:=0 to count -1 do
VerCampos := VerCampos + ', '+ Columns[i].FieldName;
Saludos