Componente para maquillar DataModule

[[Al González]]

Empezado por roman

Disculpa Al, pero no entiendo. Veo que usas distintos datamodules, como otros hemos expresado, pero no entiendo qué papel desempeñan las propieades que marcas en la organización de los componentes.

Hola Román, con mucho gusto intentaré darte un norte, bajo el entendido (dime si estoy equivocado) de que tienes poca experiencia con TDataSetProvider y TClientDataSet según se desprende de varios mensajes del foro. Me agrada ver que alguien se animó a preguntar.

Primero decir que no todas las propiedades enmarcadas en rojo tienen que ver con facilitar la organización de los objetos en los módulos de datos. Me pareció adecuado encerrar todas las que representan nuevas características respecto a los componentes nativos. De todas formas me gustaría disponer del tiempo necesario para explicar cada una de ellas, pero creo que por ahora me limitaré a las que competen al caso y un par más.

Segundo, para evitar confusiones, decir que mi respuesta no es tanto para darle esto como solución a mcbullrich (ya quisiera yo tener estos componentes listos para varias versiones de Delphi), como sí para enriquecer el debate sobre esta inquietud que muchos comparten: la saturación "visual" de los módulos de datos (visual en el único tiempo en que un módulo de datos es visible: durante el diseño).

Ahora, antes de entrar en materia, un poco de contexto "histórico" sobre la propiedades StoreActive e ImmediateApplyUpdates (antiguamente llamada ImmediateUpdates) de TMagiaClientDataSet: http://www.clubdelphi.com/foros/showthread.php?t=30633. Tómese en cuenta que ese hilo es de hace seis años, y desde entonces han cambiado tantas cosas en mi cabeza como en el código de las clases (creo que para bien). Lo traigo a colación por recordar la buena orientación que entonces me diste, Román. Gracias a las opiniones que entonces recibí pude tomar buenas decisiones sobre el diseño de ambas propiedades, las cuales pueden verse en la tercera imagen que subí.

Viendo la segunda imagen podrán notar que también TMagiaSQLQuery tiene propiedad StoreActive. Y TMagiaSQLConnection y por tanto también su derivado especial para Firebird TMagiaFirebirdSQLConnection (primera imagen) tienen una propiedad de semejante funcionamiento llamada StoreConnected. Mientras se dejen en False estas propiedades, no serán guardadas en el DFM las propiedades Active y Connected, respectivamente, lo cual se traduce en que al ejecutar la aplicación esos objetos iniciarán cerrados (no intentarán abrirse por sí mismos). Así el programador se despreocupa de si dejó alguna conexión, consulta o conjunto de datos abierto en tiempo de diseño, teniendo mayor control sobre su apertura a través del código de la aplicación.

Pasemos al meollo del asunto. Aunque los primeros mensajes de mcbullrich no están debidamente formulados, sí que hacen mella en quienes hemos usado los componentes que menciona:

Empezado por mcbullrich

[...]incluyendo el TQLquery [creo que quiso decir TSQLQuery], TProvider [TDataSetProvider], TClientDataset [TClientDataSet] y TDatasource [TDataSource][...]De esta manera puedo hacer más entendible mi DataModule.

Todo esto tiene que ver con las aplicaciones de más de 2 capas (sean lógicas o físicas). ¿Qué pasa? Que por cada TDataSetProvider hay que poner a su lado (o en otro módulo de datos) el conjunto de datos que va a proveer, y asignar éste a la propiedad DataSet del primero. Esto hace que por cada tabla o consulta con la que se quiera trabajar se tengan dos componentes (la consulta y el proveedor) que ocuparán espacio visual en tiempo de diseño, en lugar de uno sólo que es lo normal cuando la aplicación no está dividida en capas. Ambos son tan dependientes uno del otro, que imaginé que valdría la pena unirlos en uno solo, y con ello reducir el esfuerzo mental y mecánico del programador que los utiliza. El DataSetProvider debía ser el contenedor, puesto que debe estar visible hacia "el exterior" y el conjunto de datos que provee (generalmente una consulta SQL) debía ser el "subcomponente" contenido.

Una pregunta importante era: ¿cómo hacer que el proveedor pueda contener cualquier clase de conjunto de datos (TSQLQuery, TADOQuery, etcétera)? La respuesta fue una propiedad de tipo String llamada InternalDataSetClass (segunda imagen). Con ella el programador indica de qué clase quiere que sea el conjunto de datos contenido (válido mientras la clase esté registrada). Nótese en la imagen que la propiedad nativa DataSet hace referencia a un objeto que pertenece, no a un módulo de datos, sino al propio componente proveedor: prContrato.DataSet. Es decir, al usar la propiedad InternalDataSetClass, el componente crea y guarda de forma interna un objeto de esa clase. Se puede notar que las "subpropiedades" de prContrato.DataSet son las de un objeto TMagiaSQLQuery (valor de las propiedad InternalDataSetClass). También podría ser un subcomponente ADO, ZeosLib, etcétera.

No está de más decir que si esta propiedad de tipo String se deja en blanco, entonces en DataSet se puede asignar un objeto externo de la manera habitual.

Otra pregunta que derivó de lo anterior fue: ¿cómo podrá ahora el programador definirle campos persistentes a ese conjunto de datos interno? Es de esperarse que si se le da doble clic a un TDataSetProvider no se abrirá el editor de campos, el editor de campos es para data sets. Bueno, pues con un poco más de programación conseguí que TMagiaDataSetProvider sí hiciera aparecer el editor de campos de Delphi al darle doble clic. En la imagen puede verse esa pequeña ventana con el título: prContrato.DataSet (los campos persistentes del conjunto de datos interno del proveedor prContrato).

Bueno, eso fue por el lado de dmProveedor. Tengo que interrumpir esto por falta de tiempo, pero más adelante intentaré explicar lo que concierne a dmCliente. Por el momento, quien tenga experiencia con TClientDataSet y haya visto en la tercera imagen que además de la propiedad nativa ProviderName se tiene una propiedad llamada Provider, podrá inferir la utilidad de ésta cuando se trabaja en capas lógicas (o "2.5 capas").

Saludos y gracias por interesarte Román.

Al González.