Bases de datos

Paradox

El acceso a bases de datos de Delphi es uno de sus puntos fuertes; est implementado en torno a la BDE, que es el mismo motor de acceso a datos usado por Paradox y dBase for Windows. Adems, Delphi trae drivers nativos para acceder a datos en tablas de Access y de FoxPro, as como un servidor SQL (Interbase), para luego hacer la migracin a Cliente/Servidor sin cambios en el programa. Instalando aparte el SQL Links tendremos acceso transparente a bases de datos ORACLE, SYBASE, DB2, SQL SERVER e INFORMIX as como a cualquier origen de datos ODBC.

Algunos conceptos y Herramientas

Antes de comenzar a trabajar con bases de datos, conviene tener en claro una serie de conceptos claves:

Base de Datos (Database): es un conjunto de tablas. En Delphi una base de datos es un directorio donde estarn las tablas -archivos- y los ndices.

Tabla (Table): es el lugar donde estn realmente los datos. Se divide en registros, los cuales estn formados por campos. Podemos hacer una analoga con una tabla, segn la cual los registros seran las filas y los campos las columnas.

Columna Campo

Nombre
Jos Anacleto Segismundo Luis Jorge Aquiles Prez Pirulo Bjrk

Apellido

Telefono
029383983 No tiene 52625-3298 098-765543 19 53 3 27 98

Edad
Fila - Registro

Paparulo Meo de la Torre

Tabla

Figura 1: Base de datos, tablas, registros, campos

Base de Datos

Indice (Index): es una estructura separada de la tabla que guarda ciertos campos de todos los registros, para acelerar las bsquedas y el ordenamiento. En Paradox y dBase se utilizan archivos adicionales para los ndices.

Structured Query Language (SQL): lenguaje estructurado creado especialmente para realizar consultas a bases de datos.

Database Desktop (DBD): es una versin reducida del Paradox for Windows; nos permite ver, crear, modificar, borrar tablas. Se encuentra en el men Tools|Database Desktop. Tambin podemos desde aqu transformar una tabla de un formato a otro o hacer consultas SQL.

SQL Explorer: es una herramienta muy potente que nos permite navegar por las definiciones y datos de las distintas bases de datos conectadas a la BDE, no importa su formato. Lo utilizaremos para crear alias, para ver datos directamente de las tablas y para ejecutar consultas SQL inmediatas.

Database Desktop
Es una herramienta para manejo de tablas en los distintos formatos manejados por la BDE. Posee una interface al estilo Paradox -se lo puede ver como un hermano pequeo del Paradox for Windows. Usaremos esta herramienta para crear tablas, cambiar su estructura, modificar sus datos, etc. Se puede encontrar en el men Tools de Delphi.

Crear una tabla usando el Database Desktop

Es la forma preferida de crear las tablas, que generalmente se definen en tiempo de diseo (es parte del diseo del programa la especificacin de los campos de las tablas y su contenido). Slo hay que seleccionar la opcin de men File|New|Table. Luego seleccionamos el formato deseado de tabla y aparecer el editor de estructura (Field Roster) en el que definimos los campos.

Figura 2: el Field Roster, donde se define la estructura de la tabla

Para definir completamente la tabla debemos indicar aqu los nombres de los campos, el tipo de datos que contendr cada uno, la longitud mxima si corresponde (algunos tipos de datos tienen longitud fija, como los tipos numricos de Paradox) y los campos que compondrn el Indice principal (o Clave Primaria).

Nombres de campos en formato Paradox ? Pueden tener hasta 25 caracteres de largo. ? Deben ser nicos en la tabla.

? Pueden contener letras, nmeros, y cualquier carcter imprimible excepto los siguientes: [ ] 1 El ndice principal es una estructura aparte de la tabla , { } ( ) # o la combinacin -> donde se mantienen nicamente los campos marcados ? Se pueden usar espacios, salvo al principio. en la definicin. Se utiliza para optimizar el mantenimiento de los datos en el archivo principal. No es necesario crear una clave principal, pero si muy recomendable. El subsistema de manejo de los datos funciona de manera mucho ms eficiente si dispone de un ndice, y hay algunas operaciones que no se pueden realizar si no se crea esta estructura (como el enlace de dos tablas en una relacin, o la bsqueda eficiente de un registro). La estructura del ndice primario es una decisin muy importante, ya que define no slo el orden de los registros sino tambin el criterio para diferenciar en forma unvoca cada registro. En otras palabras, no puede haber dos registros con valores iguales en los campos del ndice primario. Por ejemplo: en una tabla que contenga datos de personas, no sera buena la eleccin del campo nombre para la clave primaria, ya que pueden existir dos personas con el mismo nombre. En este caso un buen candidato sera el campo DNI, ya que no puede haber dos personas con el mismo nmero. Postergamos la discusin de los ndices para ms tarde. Los tipos de datos permitidos varan segn el formato de la tabla; as por ejemplo tenemos para las tablas de Paradox los campos tipo AutoIncrement o Time que en el formato de dBase no existen (aunque se pueden emular con otros).

En Paradox o Dbase, los ndices se guardan en archivos separados de la tabla principal.

En el Apndice II se ve una lista de los tipos de datos soportados por Paradox. Una vez que definimos la estructura en el Field Roster, grabamos la tabla recin creada y podemos empezar a llenarla, simplemente abrindola en el mismo Database Desktop y escribiendo los valores en los campos.

jercicio Crear una tabla en formato Paradox con la siguiente definicin: Clave primaria * 40 40 15

Nombre DNI Nombre y Apellido Direccin Telfono Fecha de Nacimiento Comentarios I A A A D M

Tipo

Longitud

30

Guardarla como NOMBRES.DB. Abrir NOTA: para empezar a editar una tabla hay que la tabla en el Database Desktop y agregar presionar F9 - para un campo particular, F2 algunos registros.

?
Archivos creados: hasta ahora tenemos tres archivos creados, todos con el mismo nombre pero diferentes extensiones. La tabla en si, con los datos, estar en el archivo NOMBRES.DB. Dado que hay un campo de tipo Memo (el campo comentarios), se crea tambin un archivo NOMBRES.MB. En el archivo principal se guardarn los primeros 30 caracteres de este campo2; si se pasa de esta cantidad, el resto ir a parar al archivo .MB. El tercer archivo tiene extensin .PX: es el archivo del ndice primario o principal. La interface tipo planilla de clculo del Database Desktop es muy conveniente para navegar los datos, comprobar cambios, editar registros, etc. NOTA: para borrar un registro hay que presionar Ctrl+Del en la ventana de hoja de datos de la tabla. Se elimina el rengln sobre el que se encuentra el cursor.

Mantenimiento de la Base de Datos

Damos a continuacin una referencia de algunas de las operaciones comunes que se pueden realizar con las tablas en el Database Desktop (salvo indicacin expresa, los comandos se encuentran en el men Tools|Utilities, y no es necesario abrir la tabla para ejecutar la accin sobre ella): ? Vaciar completamente una tabla: comando Empty del men Utilities. Se nos pide confirmacin, ya que la accin elimina todos los registros de la tabla y no se puede deshacer. No es necesario tener abierta la tabla para poder vaciarla.

En realidad, se guardan 10 bytes ms que lo indicado; vea el apndice II

? Agregar o actualizar registros de una tabla a otra: comando Add. Si se elige actualizar, se cambiarn los registros de la tabla destino cuya clave coincida con la de los registros de la tabla fuente. ? Copiar una tabla en otra: comando Copy. Se duplican tambin los ndices y otras caractersticas de la tabla origen, es decir, se crea una rplica idntica. Se cambian tablas de formato entre dBase y Paradox, simplemente especificando la extensin de la copia. En la ayuda se especifican los cambios que sufren los tipos de datos al pasar de un formato a otro. ? Borrar una tabla y todos sus archivos asociados: comando Delete. Este comando es preferible al borrado manual a travs del explorador o Administrador de Archivos, ya que elimina automticamente todos los archivos asociados con la tabla: ndices, reglas de validacin, etc. ? Renombrar una tabla: comando Rename. Las mismas consideraciones que para el comando Delete. ? Informacin sobre la estructura de la tabla: comando Info structure. Presenta la ventana del Field Roster con toda la informacin de definicin de los campos, sin posibilidad de modificarla. Esta informacin de estructura se puede guardar en una tabla. ? Cambiar la estructura de la tabla: comando Restructure. Presenta la ventana del Field Roster y permite cambiar cualquier atributo de la tabla. NOTA: para poder restructurar una tabla es necesario que la misma no est abierta en otro programa, por ejemplo en Delphi. De ser as, se nos presenta un mensaje indicando que la tabla est en uso y no se puede abrir en forma exclusiva. Debemos cambiar a Delphi (Alt+Tab) y cerrar la tabla antes de reintentar. ? Ordenar una tabla: comando Sort. Si la tabla origen no tiene ndice principal, los datos quedan en la misma tabla; caso contrario, se crea una nueva tabla sin ndice principal con los registros colocados en el orden pedido. ? Eliminar los registros de una tabla si ya existen en otra: comando Subtract. Se comparan los registros de la tabla origen (subtract records in) con los de la tabla destino (subtract records from) y si los valores de los campos del ndice principal coinciden se eliminan los registros de la tabla destino.

En definitiva, el Database Desktop es una muy buena herramienta para trabajar con las tablas, y es la preferida a la hora de crearlas o restructurarlas, tareas que son bastante trabajosas de llevar a cabo por programa.

E E E

jercicio Renombrar la tabla NOMBRES.DB a AGENDA.DB.

?
jercicio Agregar un campo EMAIL de tipo Alfanumrico, 50 caracteres de longitud.

?
jercicio Copiar la tabla AGENDA.DB a formato Dbase (.DBF). Observar las diferencias en la estructura. Iniciar el Explorador de Windows y reconocer los archivos de memo (.DBT) e ndices (.MDX) de Dbase.

Resumiendo: tenemos algo llamado Base de Datos (Database) que viene a ser como un gran recipiente donde se almacenan otras cosas: las tablas. stas tienen por fin los datos, organizados en registros compuestos de campos. Estas estructuras se pueden crear, modificar, llenar, borrar, etc. desde el Database Desktop. Hasta aqu todo bien. Pero no todo es tan sencillo: hay otras consideraciones a tener en cuenta cuando se trabaja con bases de datos.

ndices
Comencemos por los ndices. Un ndice es una estructura extra a una tabla, que crea el sistema de administracin de Bases de Datos para facilitar su tarea con esa tabla. No es obligatorio, pero si muy recomendable. O sea: siempre que podamos, crearemos ndices para nuestras tablas. Un ndice es simplemente una lista ordenada de los valores de los campos que lo componen. En particular, Paradox crea automticamente un ndice para los campos de la clave primaria de la tabla3 -llamado ndice primario o principal- pero se pueden crear fcilmente otros ndices -llamados en este caso secundarios. El efecto visible de los ndices es el ordenamiento de los registros: normalmente, los programas Administradores de Bases de Datos ordenan los registros basndose en los valores de los campos que se incluyen en el ndice. Veamos entonces cmo se crea un ndice y de qu se compone. Los ndices se componen de un subconjunto de los campos de la tabla a la que pertenecen. Se definen como parte de la estructura de la tabla: en el Field Roster del Database Desktop, por ejemplo. La Clave primaria (slo puede haber una en cada tabla, posiblemente compuesta de varios campos) sirve para identificar unvocamente a cada registro; no puede haber dos registros con los mismos datos en los campos de la clave primaria. Se define en el Field Roster marcando la columna Key de aquellos campos que la conformen -para marcar esta columna presione <Espacio> o haga doble click con el ratn. Los campos marcados debern ser los primeros de la tabla y todos contiguos. En una tabla simple de datos de personas (Agenda), si utilizamos el campo Nombre solo como clave primaria, no podramos cargar dos personas que se llamen igual. Si agregamos el apellido mejora un poco la situacin, pero an as hay muchos casos (por ejemplo padre e hijo) en que dos personas tienen el mismo nombre y el mismo apellido, y entonces no podran coexistir en la tabla. Podemos entonces agregar el campo Direccin al ndice; y tambin tendremos el mismo problema si el padre e hijo que se llaman igual viven en la misma casa. Como pueden ver, la definicin de una clave es un tema delicado. En este ejemplo, hay un dato que es el candidato ideal para conformar el ndice primario: el DNI. No puede haber dos personas con el mismo nmero, por lo que el requisito de unicidad se cumple perfectamente. Una vez marcados los campos de la clave primaria, al grabar la estructura de la tabla NOTA: fsicamente, los registros se almacenan en el orden se crear un archivo para contener un ndice dado por la clave primaria; por lo tanto, el tiempo de acceso a los campos de la clave. Este archivo tiene es ptimo cuando se utiliza este ndice. el mismo nombre que la tabla, con extensin .PX.
3

Este ndice es un poco especial internamente; vea el apndice III

Podemos ya notar el efecto ms visible: si ingresamos datos a la tabla, se ordenarn por DNI. Para conseguir que se ordenen por ejemplo por nombre, debemos definir otros ndices: los ndices secundarios. Los ndices secundarios tambin se componen de campos, pero stos pueden estar en cualquier posicin de la tabla y pueden exigir valores nicos o no. Para definirlos debemos cambiar la estructura de la tabla en el Field Roster, seleccionando Secondary Indexes (Indices secundarios) del Combo Table Properties (Propiedades de la tabla) como se ve en la fig.3. Se nos presentar entonces un cuadro de dilogo donde podremos elegir los campos que conformarn nuestro nuevo ndice secundario, movindolos desde la lista de la izquierda a la de la derecha utilizando los botones con flechas. En la fig. 4 se ve un ejemplo: en la tabla Nombres creada anteriormente definimos un ndice secundario sobre el campo Nombre y Apellido.

Figura 3: acceso a la definicin de los ndices secundarios

Las opciones de que disponemos a la hora de crear estos ndices son las siguientes: ? Unique: indica si los valores en los campos del ndice deben ser nicos, es decir, si se permitir el ingreso de dos registros con los mismos valores para todos los campos del ndice. Si marcamos esta opcin y luego intentamos ingresar dos registros con los mismos valores en los campos del ndice, el gestor de base de datos no lo permitir. ? Maintained: indica que el ndice sea automantenido o no. Delphi slo acepta ndices automantenidos, asi que deje esta opcin marcada. Los ndices automantenidos se abren automticamente al mismo tiempo que la tabla a la que pertenecen y se mantienen actualizados constantemente. Esto puede traer una ligera sobrecarga al sistema si definimos muchos ndices, pero es ms seguro. ? Case sensitive: si est marcado, la ordenacin tomar en cuenta si el campo est en maysculas o minsculas. ? Descending: si est marcado, la ordenacin ser en sentido inverso, de mayor a menor.

Figura 4: definicin de un ndice secundario por el Con las opciones marcadas como aparecen por defecto campo Nombre y Apellido (igual que en la figura 4), los ndices creados permitirn la existencia de mltiples registros con los mismos valores (que aparecern uno despus del otro), no se tendr en cuenta si la escritura est en maysculas o minsculas (ser lo mismo Primero que primero), el ndice se mantendr automticamente y el orden ser el normal, de menor a mayor.

Aceptemos el ndice secundario anterior con el botn OK; como nombre escribamos iNombre. Veremos un ejemplo de la utilizacin desde Delphi luego. Los ndices secundarios se almacenan en archivos separados de la tabla a la que pertenecen, con el mismo nombre pero extensin .X01, .Y01, X02, Y02, en general .X?? y .Y??.

El motor de Bases de Datos utiliza un slo ndice por vez: se denomina el ndice activo4. Los ndices secundarios almacenan todo el contenido de los campos que lo componen, ms los campos del ndice primario para cada registro, y un nmero de bloque para acceder al mismo rpidamente; por lo tanto, son bastante ms grandes que el ndice primario. Utilizaremos profusamente los ndices secundarios cuando accedamos a las tablas desde Delphi, por lo que pospondremos su aplicacin prctica hasta ese momento.

Reglas de validacin
Las reglas de validacin (validity checks) son restricciones a los datos que pueden ser ingresados en los campos. Las reglas posibles son las siguientes: ? Campo requerido (Required Field): indica que el campo no puede quedar vaco. ? Valor mnimo (Minimum Value): el valor del campo no puede ser menor que el especificado en este lugar. ? Valor mximo (Maximum Value): el valor del campo no puede ser mayor que el valor especificado en este lugar. ? Valor por defecto (Default Value): el campo toma este valor cuando se crea un nuevo registro. ? Mscara (Picture): cadena de caracteres que especifica el formato del campo. Se cuenta con un asistente que permite probar las mscaras cuando las generamos, y tiene unos cuantos ejemplos comenes listos para usar. El lenguaje de caracteres que utiliza Paradox para las mscaras es muy Figura 5: Reglas de validacin completo y complejo, por lo que se dejar al lector la encomiable tarea de aprenderlo por su cuenta. Damos a continuacin una tabla con algunos ejemplos: NOTA: las reglas de validacin se almacenan en archivos separados de la tabla, con el mismo nombre que sta pero extensin .VAL.

Caracter @ # ? &

Significado Cualquier caracter un nmero (0 a 9) Una letra (mayscula o minscula) una letra (convierte a mayscula)

Ejemplo @@: 4r ###: 798 ??: aA &&: aA es convertido a AA

No obstante, cuando se abre una tabla se abren todos los archivos de ndice, y se actualizan al mismo tiempo que la tabla.

Caracter ~ ! [] {} *n * ; Otro caracter

Significado una letra (convierte a minscula) Cualquier caracter; las letras se convierten a maysculas Opcional lista de entradas posibles n repeticiones de un grupo o caracter (lo que sigue) cualquier cantidad de repeticiones de lo que sigue indica que el caracter que sigue se trate literalmente se escribe literalmente

Ejemplo ~~: aA es convertido a aa !!!: y7S es convertido a Y7S [#]#: uno o dos nmeros {Uno,Dos): slo se puede escribir Uno o Dos *3#: tres nmeros *#: cualquier cantidad de nmeros ;#: el smbolo # [#]#/[#]/####: mscara para fecha, el da y el mes se pueden escribir con un solo dgito y se agregan las barras automticamente [#]#:[#]#: mscara para hora:minutos

IMPORTANTE: cuando creamos los componentes de campo en Delphi para una tabla que contenga reglas de validacin, las mismas no son importadas. Para lograr que se importen al menos las validaciones de valor mnimo y mximo, debemos primero ingresar la base de datos en el Diccionario de Datos. Veremos este tema al tratar el acceso a Bases de Datos desde Delphi.

Integridad Referencial
Cuando relacionamos dos tablas, una contiene los datos principales -por ejemplo, el nro. de factura y la fecha- mientras la otra contiene detalles que amplan la informacin. Esta relacin puede ser del tipo Uno-aUno (por cada registro de la tabla principal hay uno solo de la tabla de detalle que cumple con la relacin) o Uno-a-Muchos (por cada registro de la tabla principal puede haber ms de un registro de detalle)5. Al tener una relacin entre dos tablas se plantean problemas de consistencia de datos: qu sucede por ejemplo si se borra un registro de la tabla principal que tiene registros relacionados en la tabla de detalle? O si modificamos el valor de los campos de la relacin en un registro de la tabla principal que tenga registros relacionados? Hay que cambiar correspondientemente los valores de enlace de los registros de detalle para mantener la relacin? O tal vez prohibir directamente la modificacin o borrado de datos de la tabla

Hay una tercera forma terica de relacionar tablas, llamada Muchos-a-Muchos. No obstante, en la implementacin actual de los gestores de bases de datos relacionales ms utilizados esta forma debe realizarse utilizando una tabla auxiliar y relaciones Uno-a-Muchos.

10

principal cuando tengan registros relacionados? Para poder estudiar este problema y su solucin, necesitaremos un par de definiciones: ? Clave externa (Foreign Key): cuando uno o ms campos de una tabla (detalle) referencian a uno o ms campos de la clave primaria de otra tabla (principal) se dice que los primeros forman una clave externa. ? Integridad Referencial (Referential Integrity): es una regla que dice que para cada registro de una tabla de detalle que est en relacin con otra principal debe existir un valor de la clave primaria (en la tabla principal) para cada valor de la clave externa (en la tabla secundaria). Esto es, no pueden quedar registros hurfanos en el detalle, que no se correspondan con ningn registro de la tabla principal. La Integridad Referencial asegura la consistencia de la relacin entre las dos tablas. Ahora bien, el problema se presenta generalmente cuando tratamos con relaciones uno-a-muchos, al modificar o borrar registros de la tabla principal que tengan registros relacionados en la tabla detalle. Hay dos formas de solucionar este problema: 1. Impedir los cambios en la tabla principal si hay registros relacionados en la de detalle 2. Propagar los cambios a todos los registros relacionados, de manera que el enlace se mantenga Existe una tercera posibilidad en algunos gestores de Bases de Datos (no en Paradox): los campos de la clave externa toman un valor nulo cuando se elimina o modifica el registro principal al que referenciaban. Paradox nos permite especificar las dos formas cuando se trata de una modificacin, pero slo la prohibicin cuando hablamos de borrado de registros principales. Para especificar la Integridad Referencial entre dos tablas en el Database Desktop, debemos seguir los siguientes pasos: 1. Crear la tabla principal, con una clave primaria. Por ejemplo, crearemos una tabla de facturas con la siguiente estructura (FACTURAS.DB):

Campo NroFact FechaFact Cliente Tipo FormaPago

Tipo I D A A A

Tamao

Clave *

Comentario Clave Primaria

30 1 10

2. Crear la tabla de detalle o secundaria con campos que coincidan en tipo de datos con los de la clave primaria de la tabla principal. stos formarn la clave externa. En nuestro ejemplo, crearemos una tabla de detalle de facturas con la siguiente estructura (DETALLES.DB): Campo IDItem Cantidad Descripcion PrecioUnit Tipo + I A $ 40 Tamao Clave * Comentario Clave primaria

11

Factura

Clave externa a FACTURAS.DB

3. Crear la regla de Integridad Referencial entre las dos tablas. Para crear la Integridad Referencial, mientras definimos la estructura de la tabla detalle (en el Field Roster) seleccionamos la opcin Referential Integrity del combo Table Properties. A continuacin, presionamos el botn Define... para definir la regla. Se nos presenta un cuadro de dilogo como el de la figura 6. Aqu seleccionamos el o los campos de la clave externa deseada (en nuestro ejemplo, el campo Factura) y la tabla principal con la que deseamos relacionar (en nuestro ejemplo, FACTURAS.DB) de la cual se seleccionan automticamente los campos de la clave primaria. Elegimos luego el tipo de restriccin a aplicar para las modificaciones Figura 6: definicin de Integridad Referencial -recordemos que el borrado de registros se prohibe, sin opcin- entre Propagacin en cascada (Cascade) o Prohibicin de cambios (Prohibit). El cuadro de opcin Strict Referential Integrity indica si se desea que las versiones anteriores de Paradox que no permitan Integridad Referencial puedan o no modificar las tablas. Si est marcado, no se podrn abrir las tablas en una versin de Paradox que no tome en cuenta la Integridad Referencial. Es la opcin por defecto y la ms recomendada, ya que si no sera posible modificar los datos de una sola tabla y perder la consistencia de la relacin. Una vez que hemos especificado todos los datos necesarios, damos un nombre a la regla (es posible crear ms de una regla, por ejemplo para mantener Integridad Referencial con ms de una tabla). A partir de ahora, no ser posible agregar registros en la tabla de detalle cuyo nmero de factura no exista en la tabla de facturas, as como no podremos borrar un registro de facturas que tenga detalles. El comportamiento ante una modificacin del campo NroFact de una factura que tenga detalle depender del tipo de restriccin que aplicamos.

jercicio

Probaremos la regla de Integridad Referencial que acabamos de crear. Para ello, abriremos las dos tablas en la misma pantalla (Tile Top and Bottom) asi podemos ver el efecto de las modificaciones. A continuacin, crearemos por lo menos dos registros de facturas. ? Es posible crear primero los registros de detalle para estas facturas? Luego creamos por lo menos dos registros de detalle para cada factura (el valor del campo Factura debe coincidir con el NroFact de una factura existente). Qu suceder si ? modificamos el nmero de factura de un registro de Facturas? ? modificamos el nro. de factura de un registro de Detalles? ? borramos un registro de Detalles? ? borramos un registro de Facturas? ? agregamos un registro de Facturas que no tenga detalle? ? agregamos un registro de Detalles que no tenga factura?

?
12

La informacin de Integridad Referencial se guarda en los archivos .VAL de las dos tablas. Se crea automticamente un ndice secundario en los campos de la clave externa (en realidad, el nombre de la regla de Integridad Referencial que especificamos es el nombre de este ndice).

BDE
El Motor de Bases de Datos de Borland (Borland Database Engine, a partir de ahora BDE) est implementado en una serie de libreras de enlace dinmico (DLL) que se instalan con Delphi, que tambin lo usa internamente. En las ltimas versiones se la conoce como BDE, pero hace ya algunos aos que est incorporada a varios productos (Quattro Pro, Autocad, Word Perfect, etc); anteriormente se la conoci como Open Database Application Programming Interface (ODAPI) o Independent Database Application Programming Interface (IDAPI). La BDE es un intento de sentar un estndar para el acceso a bases de datos (en el que participaron Borland, Novell, IBM y WordPerfect), donde cada compana puede crear sus propios drivers mientras cumpla con las especificaciones. El intento no prosper comercialmente porque Microsoft lanz su propio producto con esa meta: ODBC (Open DataBase Connectivity). Como regla general, en una comparacin entre la BDE y ODBC se hallar que los drivers de la primera son ms veloces y con ms funcionalidad que los de ODBC. El lector atento podr pensar en este momento (el resto de los lectores tambin pensar, generalmente, en este momento; pero tambin generalmente el tema no tendr nada que ver con la BDE), y transcribo literalmente: Para qu @#@$#% gastar recursos y tiempo en ese paso intermedio entre el driver que accede a la tabla y mi programa?. Bueno, hay algunas buenas razones. La ms importante es la libertad que nos da al independizarnos del formato de la base de datos que accedemos. Podemos crear nuestro programa utilizando tablas de Paradox para el prototipo, y luego con pocos cambios migrar la base de datos a un servidor SQL tipo Oracle o SQL Server. La meta de esta librera es tratar a todos los tipos de bases de datos para los que posee un driver de la manera ms completa y eficiente posible; asi por ejemplo, provee un mecanismo propio de proceso de transacciones para las tablas de Paradox y Dbase, que no lo poseen. De esta manera, con el mismo procedimiento se puede iniciar una transaccin en cualquiera de las bases de datos soportadas. Los objetivos perseguidos al crear la BDE eran los siguientes: ? separar el lenguaje de programacin del formato y acceso a los datos ? lograr el acceso a datos de naturaleza diversa con una interface unificada ? usar la misma API para formatos propios y de otras compaas ? unificar el acceso a bases de datos ISAM (Index Secuencial Access Method) como las utilizadas en los gestores de bases de datos comunes de PC -dBase, Paradox, etc- y las bases de datos basadas en SQL como los grandes servidores SQL ? el motor de acceso debe ser extensible ? no nivelar para abajo -es decir, no restringir los servicios del motor de acceso a las pocas actividades comunes a todos los formatos sino permitir la utilizacin de todas las caractersticas de cada formato

13

Delphi encapsula casi toda la funcionalidad de la BDE en los componentes y controles de datos, por lo que raramente se necesitar acceder a la misma directamente. De todas maneras, en la parte de tcnicas y trucos veremos algunos casos en que ser conveniente.

Al compilar un programa que utiliza tablas, no se incluye en el ejecutable la BDE; hay que instalarla por separado. En el paquete original de Delphi 1 se incluyen los dos discos de instalacin para distribucin libre de royalties, mientras que en las versiones de 32 bits se incluye en el paquete un generador de instaladores que permite instalar automticamente las libreras adecuadas, adems de crear los alias correctos (Install Shield Express).

Alias
Un alias es un nombre descriptivo que asignamos a una base de datos (nuevamente, en el trabajo normal con tablas de Paradox y Dbase identificamos Bases de Datos con Directorios). Los alias se definen en el programa de configuracin de la BDE (men Tools|BDE Config) y valen de ah en ms para todos los programas que utilicen la BDE. Es una forma de facilitar la portabilidad: en lugar de indicar en el programa que las tablas estn en un directorio determinado de un disco especfico, definimos un alias. Entonces, al instalar el programa en otro equipo creamos en ste el mismo alias apuntando al directorio correcto (que puede diferir del original) y no es necesario cambiar el programa. Para crear, ver o modificar los alias podemos utilizar varias herramientas: Database Desktop, BDEConfig o SQL Explorer. Aqu nos centraremos en esta ltima.

SQL Explorer
El SQL Explorer es un explorador de bases de datos, en el mismo sentido que el Explorador de Windows. Lo mismo que en ste, podemos ver a la izquierda un panel de tipo rbol y a la derecha un panel de informacin sobre la rama del rbol seleccionada (fig. 7).

14

Figura 7: La pantalla principal de SQL Explorer, mostrando los datos de la tabla DEPARTMENT en la base de datos IBLOCAL

En el panel de la izquierda (el rbol) se ven los alias que tengamos definidos. Como cada alias representa una base de datos, hablaremos indistintamente de uno o de otro. Por ejemplo, podemos decir que la base de datos cuyo alias es IBLOCAL tiene una tabla llamada COUNTRY o simplemente la base de datos IBLOCAL tiene una tabla llamada COUNTRY. Vemos que al seleccionar la tabla DEPARTMENT podemos ver a la derecha los datos que la componen. Vamos a crear un alias para acceder a nuestra tabla de agenda. Nos posicionamos sobre la raz del rbol de alias (donde dice Databases) y presionamos el botn derecho del ratn. Aparecer un men contextual (fig. 8) en el que elegimos New.... NOTA: es importante que estemos sobre la raz del rbol, ya que en otros lugares el mismo comando crear diferentes objetos. Se nos pide ahora que ingresemos el tipo de alias (qu driver vamos a usar para acceder a los datos). Fig. 9. Para nuestro ejemplo seleccionamos Paradox (STANDARD).

Figura 8: El primer paso para crear un alias es seleccionar New... del men contextual.

Figura 9: Driver a utilizar: STANDARD=PARADOX

15

Ahora se crea una nueva rama en el rbol de Bases de Datos, y podemos cambiarle el nombre. Llammosla AGENDA (fig. 10). La definicin del alias est casi completa. Falta indicar al alias el lugar fsico de la base de datos en este equipo. Para el caso de las Bases de Datos de Paradox, debemos indicar un directorio; a la derecha, en la lnea que dice Path. Una vez escrito el camino que lleva a los datos, debemos confirmar los cambios presionando el botn Apply (Aplicar)
Figura 10: Poner nombre Agenda al nuevo alias

NOTA: siempre que cambiemos algo en los alias, debemos confirmar los cambios con el botn aplicar o las modificaciones se perdern.

Ahora si, ya estamos en condiciones de explorar nuestra base de datos con slo hacer doble click en el alias recin creado. Cuando hacemos doble click, estamos conectando con la base de datos que corresponde. Notaremos en el Figura 11: Aplicar (aceptar) los cambios SQL Explorer que se hunde el botn de Abrir, indicando que tenemos una conexin abierta. Para cerrarla, solamente tenemos que presionar el mismo botn.

A navegar
Una vez que tenemos abierta la (conexin a la) Base de Datos, veremos algunas pestaas en el panel de la derecha que nos permitirn ver los datos de distintas maneras dependiendo del tipo de Base de Datos que trabajemos. Los siguientes ejemplos son vlidos para una BD estndar, en particular trabajaremos con las tablas que vienen como ejemplo con Delphi.

Figura 11: La Base de Datos de demostracin que viene con Delphi est abierta.

Cuando tenemos seleccionado el alias en el panel de la izquierda solamente veremos dos pestaas: Definition (definicin), en la que se muestran los parmetros de la conexin, y Enter SQL (Ingreso de consultas SQL) donde podemos escribir y ejecutar una consulta SQL sobre la BD.

16

Las cosas se ponen ms interesantes cuando expandimos el nodo de las tablas:

Figura 12: expansin del nodo de tablas

Ahora podemos seleccionar una tabla particular, y veremos una pestaa nueva: Data (Datos). Si la seleccionamos, veremos la tabla con todos sus datos en una grilla. Podemos modificar, agregar, borrar y navegar los datos.

Figura 12: pestaa de datos

Como vern a la izquierda, el nodo de la tabla muestra tambin un signo +, indicando que se puede expandir todava ms. Veamos qu sucede:

17

Figura 12: se han expandido todos los nodos de la tabla para ver los detalles de su constitucin interna

Como vemos en la figura, se muestran los detalles internos de la tabla en cuestin. Si la BD es de tipo Servidor SQL (SQL Server, Interbase, Oracle, etc) veremos ms nodos, mostrando objetos que las simples BD de Paradox o Dbase no poseen. En definitiva: el Explorador de Bases de Datos es una potente herramienta que no debera faltar en ningn lugar donde se trabaje con Bases de Datos. Es una lstima que no exista una versin independiente del entorno de programacin -es necesario instalar Delphi para que se instale el SQL Explorer.

18

Apndice I
Los archivos generados por el motor de Paradox
Dado que el motor de Base de Datos de Paradox trabaja con el sistema de archivos de Windows, almacena cada objeto de la Base de Datos en archivos diferentes (uno o ms), diferencindolos por la extensin. A continuacin listamos las extensiones de estos archivos y su significado. NOTA: en todos los casos, el nombre del archivo es el nombre asignado a la tabla al grabarla.

Extensin .DB .MB .PX .Xnn y .Ynn .VAL

Significado Definicin de la tabla y todos sus datos excepto memos, grficos y objetos binarios (BLOBs) Datos de campos tipo Memo, Grficos y Binarios (BLOBs) Indice primario de la tabla Cada par representa un ndice secundario de la tabla. Definicin de Validaciones, Bsqueda rpida (Lookup) e Integridad Referencial

19

Apndice II
Tipos de datos soportados por el formato Paradox
NOTA: el formato que utiliza Paradox es del tipo Registro de longitud fija, lo que significa que si declaramos un campo como de 40 caracteres, aunque lo dejemos en blanco en realidad estar ocupando 40 bytes en el disco por cada registro.

Nombre Tipo Alpha (A) LongInteger (I) Autoincrement (+) Short (S) Number (N) Money ($)

Tipo de datos - Espacio que ocupa en bytes Alfanumrico - de 1 a 255 bytes Entero entre -2.147.483.648 y 2.147.483.647 (32 bits) - 4 bytes Entero entre -32.768 y 32.767 (16 bits) - 2 bytes Nmero real entre 5.0*10-324 y 1.7*10308 - 8 bytes Nmero real. Internamente se trabaja en 6 dgitos y en forma entera, independientemente de la cantidad de decimales mostrados. Por defecto se muestra con 2 decimales y el signo monetario. 8 bytes Nmero en formato BCD (Binary Coded Decimal). Mantenido por compatibilidad con otras aplicaciones que usen este formato, evita los errores de redondeo al trabajar con decimales. 17 bytes Fecha y hora juntos - 8 bytes Fecha - 4 bytes Hora - 4 bytes Valor True o False - 1 byte Campo de bytes, que puede contener hasta 255 bytes con cualquier informacin. De 1 a 255 bytes. Un conjunto de bytes de longitud arbitraria, por ejemplo para contener un sonido o un objeto OLE. En el archivo .DB se almacenan 10 bytes ms lo que indiquemos como longitud, hasta 240. El resto va a un archivo .MB (mximo 64 Mb)

En Delphi ShortString Integer, Longint

SmallInt Double, Real (Delphi 4) Currency

BCD (#)

Timestamp (@) Date (D) Time (T) Logical (L) Bytes (Y)

tDateTime tDateTime tDateTime Boolean Byte

Binary (B) OLE (O)

20

Nombre Tipo Memo (M) Formatted Memo (F)

Tipo de datos - Espacio que ocupa en bytes Texto de longitud arbitraria. En el archivo .DB se almacenan 10 bytes ms lo que indiquemos como longitud, hasta 240. El resto va a un archivo .MB (mximo 4 Mb para el memo, 64 Mb para el Memo con formato) Grfico. En el archivo .DB se almacenan 10 bytes ms lo que indiquemos como longitud, hasta 240. El resto va a un archivo .MB (mximo 64 Mb)

En Delphi String *

Graphic (G)

* El tipo String de Delphi est restringido a algo mas de 4 millones de caracteres, lo que en la mayora de los casos prcticos es ms que suficiente y se puede considerar como que no tiene lmite.

21

Apndice III
Datos internos sobre la estructura y funcionamiento de las tablas de Paradox
? Los registros de una tabla de Paradox se almacenan en bloques; cada bloque puede ser de 1, 2, 4, 8, 16 o 32 Kb. El valor por defecto es 2 Kb. Este valor se puede cambiar en la configuracin de la BDE. ? Los bloques -y los registros dentro de los mismos- se almacenan siguiendo el orden dado por el ndice primario. Por lo tanto, cuando utilizamos este ndice se reduce el tiempo de acceso a los datos. ? La cantidad mxima de bloques permitida para una tabla es de 65535; por lo tanto, el tamao mximo estar dado en relacin al tamao de los bloques: Tamao de bloque 1 Kb 2 Kb 4 Kb 8 Kb 16 Kb 32 Kb Tamao mximo de tabla 64 Mb 128 Mb 256 Mb 512 Mb 1024 Mb 2048 Mb

En la prctica, mucho antes de alcanzar estos lmites la tabla se volver imposible de manejar (un proceso de restructuracin de una tabla de ms de 100 Mb puede tomar horas). Paradox est pensado para manejar Base de Datos relativamente chicas, para aplicaciones medias o de escritorio. ? Cuando se busca un registro, se carga en memoria el bloque que lo contiene y se busca secuencialmente dentro del mismo. ? A medida que se insertan y borran registros, se van agregando bloques segn sea necesario. Despus de un tiempo, es muy posible que los bloques no estn ordenados fsicamente como en el ndice, y que muchos bloques tengan espacio desperdiciado. Esto se soluciona compactando la tabla (Restructure|Pack Table). ? Slo se permite un campo autoincremental por tabla, que se almacena en la cabecera de la misma. ? El algoritmo de bsqueda en los ndices es de tipo bsqueda binaria. ? El ndice primario, creado automticamente sobre los campos de la clave primaria de la tabla, almacena solamente el primer registro de cada bloque. Cuando se hace una bsqueda, se determina primero el bloque en el que el registro debe estar; se carga este bloque en memoria, y se hace una bsqueda secuencial dentro del mismo. De esta manera se logra un balance entre velocidad de operacin y tamao del ndice. ? Internamente, el archivo de ndice secundario de extensin .X?? es una tabla comn de Paradox. ? El archivo de ndice secundario con extensin .Y?? es un ndice primario para la tabla .X?? correspondiente.

22

Apndice IV
Archivos creados por la BDE al usar tablas Paradox
PDOXUSRS.NET - Paradox Network Control File Lleva la cuenta de los usuarios que acceden a una tabla compartida. Debe haber slo uno en cada sesin de la BDE. El valor se da en la opcin NET DIR de la configuracin de la BDE, o por programa utilizando la propiedad NetFileDir del objeto tSession que corresponda a la sesin utilizada (este cambio se debe hacer antes de que se cree cualquier Database o Dataset) Las versiones de la BDE anteriores a la 3.0 no permitan asignar a este parmetro valores diferentes para cada usuario; las posteriores permiten hacerlo mientras apunten al mismo archivo fsico (por ejemplo utilizando drives mapeados por la red).

PDOXUSRS.LCK - Lock Control File Contiene informacin sobre las actividades permitidas en un directorio donde hay tablas, y qu est haciendo cada usuario que accede a una tabla. Se crea automticamente la primera vez que se accede a una tabla en un directorio. Hay tres tipos de archivos PDOXUSRS.LCK: En un directorio compartido el archivo contiene informacin sobre tablas y registros bloqueados usuario que puso el bloqueo tipo de bloqueo la sesin en que fue establecido el bloqueo En el directorio privado de cada usuario (por defecto el mismo de la aplicacin), indica que otro usuario no puede acceder a las tablas en este directorio. El directorio privado se mantiene en la propiedad PrivateDir del objeto tSession En un directorio marcado como de slo lectura, como cuando tenemos las tablas en un CD-ROM. El acceso es ms rpido porque no se permiten los bloqueos (no puede haber escrituras). Se puede crear un archivo con esta marca usando la funcin de la BDE API DbiAcqPersistTableLock: el archivo PARADOX.DRO (Directory Read Only)

PARADOX.NET, PARADOX.LCK, <tabla>.LCK Archivos del sistema viejo de bloqueo de Paradox 1.0

Muchas veces estos archivos quedan desactualizados al terminar la aplicacin en forma imprevista (por ejemplo por un corte de energa), por lo que los siguientes accesos pueden presentar errores de bloqueos o parecidos. Simplemente elimine los archivos *.lck y *.net (cuidado que no haya nadie accediendo a las tablas!).

23

2 - Bases de datos

Acceso desde Delphi

Los componentes de acceso a datos

El esquema de acceso a los datos utilizado en Delphi hace uso de varias capas lgicas entre el archivo fsico y los controles (editores, etiquetas, etc) con los cuales interacta el usuario. De esta manera se logra una cierta independencia no slo del formato -lo que conseguimos con la BDE- sino tambin de la forma de acceder a los mismos. Por qu es deseable lo anterior? Porque el programador puede disponer de la forma de acceso que considere adecuada a cada situacin, mientras mantiene el ncleo de la interface sin cambios. As si crea su programa utilizando tablas y luego decide utilizar consultas SQL o algn otro tipo de acceso ms adecuado a las condiciones de ese momento puede hacerlo sin mayores complicaciones. El esquema de acceso en capas se ve en la siguiente figura, donde se muestran los nombres de las clases correspondientes a cada capa. (Fig. 1).

Figura 1: capas de acceso a los datos, con las clases intervinientes Los nicos componentes visibles son los de la ltima capa (controles de datos), que son los equivalentes de los controles comunes tales como editores, etiquetas, etc. pero que muestran el contenido de un campo particular de una tabla. No hay que hacer nada ms que especificar la fuente de datos (el componente de tipo tDataSource que utilicemos) y el campo que corresponde a cada uno para acceder a sus datos. La recuperacin de informacin desde la tabla y la posterior grabacin de los cambios se hacen automticamente, como veremos. Los objetos de acceso a los datos se encuentran en la pgina rotulada Data Access de la paleta de componentes. Son los siguientes:

DataSource: es el enlace entre los componentes de datos y los de acceso a tablas. Se relaciona con un tDataset (Delphi trae definidas las clases tTable y tQuery, pero podemos crear el que necesitemos) a travs de la propiedad DataSet.

Table: nos da acceso a una tabla con mtodos para navegar por ella y acceder a los registros. Se relaciona con el archivo fsico (la tabla real) a travs de las propiedades DatabaseName y

TableName . Los controles de datos se comunican con estos componentes a travs de un tDataSource.

Query: nos da acceso a los datos de una Base de Datos a travs de comandos SQL, con los cuales podemos acceder a ms de una tabla relacionada, crear campos calculados, etc. Las caractersticas SQL son las que pone a nuestra disposicin el motor de datos, por lo que podremos aprovechar todas las opciones avanzadas que da cada servidor particular.

StoredProc: Permite la ejecucin de procedimientos SQL almacenados en un servidor de datos. Se aplica comnmente en el desarrollo de aplicaciones Cliente/Servidor.

Database: representacin lgica de una base de datos (un directorio en la implementacin actual para tablas de Paradox o Dbase).

BatchMove: permite trabajar con bloques de registros: mover, copiar, borrar, agregar registros de una tabla a otra, etc.

Session: es un objeto que encapsula una sesin de la BDE (luego veremos qu son las sesiones y para qu se utilizan).

UpdateSQL: utilizado con una metodologa de acceso a los datos denominada Cached Updates (Actualizaciones retenidas). Lo veremos en la seccin dedicada a esta forma de acceso.

NestedTables: permite el acceso a tablas anidadas, tablas que son campos de otras tablas. Un servidor de datos que implementa dicha caracterstica es Oracle en su versin 8.

Iremos de lo fcil a lo difcil: primero utilizaremos la clase tTable, luego veremos un poco de SQL para usar la clase tQuery y finalmente veremos un poco la tecnologa de Actualizaciones Retenidas (Cached Updates).

Acceder a los datos de una tabla

El componente tTable es muy simple de usar; slo debemos poner ciertos valores en las propiedades que le dirn con qu Base de Datos trabajar, y dentro de sta a qu tabla acceder. Debemos indicar en la propiedad DatabaseName el nombre de la Base de Datos 1 . Una vez que hemos

En los casos de Paradox y Dbase, las bases de datos son simplemente directorios, por lo que en la propiedad DatabaseName podemos especificar directamente la ruta del directorio que contiene la tabla o un

definido la base de datos a usar, tenemos disponible en la propiedad TableName (Nombre de la Tabla) una lista con los nombres de las tablas que pertenecen a esa base de datos. Seleccionamos la deseada. Con estas dos propiedades el componente ya sabe con qu tabla trabajar y podremos navegar por los registros de la misma, filtrarla, limpiarla, etc. El componente Table permite hacer operaciones a nivel de tabla, es decir que afecten a toda la tabla a la vez. En cuanto a los datos particulares, se utiliza un cursor, una estructura lgica interna que podramos decir apunta hacia un registro particular. Podemos trabajar con los datos del registro apuntado por el cursor en cada momento, por lo tanto trabajamos con los datos a nivel de registro. No podemos con este componente leer o escribir el contenido de un solo campo, debemos hacerlo con el registro completo. An no podemos ver los datos. Para acceder a los datos brindados por el Table debemos usar un DataSource. ste est relacionado con la tabla a travs de la propiedad DataSet, donde se puede asignar un tTable o un tQuery2 . Una vez que hemos enlazado estos componentes entre s y con la tabla fsica, ya tenemos acceso a los datos desde nuestro programa. Para permitir una sencilla interaccin con el usuario, se definen controles anlogos a los de la pgina Standard de la paleta, pero con propiedades especiales para comunicarse con una fuente de datos. Estos controles estn en la pgina Data Controls. Los Controles de Datos (Data-Aware controls) son componentes comunes como editores, etiquetas, listas, combos, etc. pero que muestran datos de una tabla. Adems tenemos otros controles especiales para acceso a las tablas, como el Navegador o la Grilla. Para comunicar un componente de datos con una tabla debemos indicar dos cosas, en las propiedades correspondientes del componente en cuestin: DataSource indica la fuente de los datos (el componente tDataSource) que usamos. DataField indica el campo al que acceder este componente dentro del registro. Cuando ya hemos indicado la fuente de los datos, nos aparece una lista de los campos disponibles. En la figura 2 podemos ver los componentes y propiedades necesarias para acceder al campo Nombre de la tabla Agenda.db en la base de datos de alias Agenda con un editor:

Tabla AGENDA.DB Alias Agenda

Table1 DatabaseName: Agenda TableName: Agenda.db

DataSource1 Dataset: Table1

DBEdit1 Datasource : Datasource1 DataField: Nombre

Figura 2: : acceso a un campo especfico dentro de una tabla Veamos entonces la creacin de una pantalla de entrada y visualizacin de datos, utilizando la tabla de agenda.

Ejemplo

alias definido para ese directorio (lo ms recomendable) Tcnicamente se espera una instancia de la clase tDataset o descendientes, por lo que se puede definir otro componente distinto del Table o el Query, por ejemplo para acceder a datos sin usar la BDE.
2

Crear una nueva aplicacin. En el form principal agregar un componente DataSource y un Table. Seleccionamos la tabla. En la propiedad DatabaseName debemos colocar el alias que creamos para la Base de Datos de Agenda. Indicar la tabla AGENDA.DB en la propiedad TableName . Enlazar el DataSource con la tabla, seleccionando la ltima en la lista que despliega la propiedad Dataset. En este momento ya tenemos establecida una conexin entre la tabla en disco y Delphi. Ahora faltan los componentes que nos permitirn interactuar con los datos. Agregar en el form cuatro editores de la pgina Data Controls (DBEdit), un DBMemo y un DBNavigator; enlazarlos con la fuente de datos seleccionando el DataSource en la propiedad del mismo nombre de todos los controles. Cada uno de estos controles (salvo el Navigator) sirve para mostrar y modificar el contenido de un campo solamente. El nombre de ese campo debe especificarse en la propiedad FieldName de cada uno (convenientemente, si el control ya est enlazado a una fuente de datos Delphi muestra en una lista los campos pasibles de ser asignados). Por ejemplo, en el primer DBEdit seleccionamos el campo Nombre y Apellido. Adems colocar un botn tBitBtn con kind = bkClose para cerrar la ventana. Colocar etiquetas y paneles de manera que el form tome la forma de la figura 3.

Figura 3: Ficha de Altas, Bajas y Modificaciones para la tabla Agenda Ya tenemos todo en orden; ahora falta decirle a la tabla que queremos que nos muestre su interior, los registros que contiene. Para ello debemos abrir la tabla asignando el valor TRUE a la propiedad Active de la misma o bien llamando al mtodo Open, de la siguiente manera: Table1.Open, por ejemplo en el evento OnClick de un botn. Y voil! Los controles muestran ya el contenido de un registro; si no hemos cambiado nada ser el primero de la tabla.

jercicio 2-1
Agregar editores para los campos EMAIL y DNI de la tabla AGENDA

BIBLIO en funcionamiento
A continuacin, transformaremos el proyecto Biblio que comenzamos al principio del curso (para almacenar datos de publicaciones) para que almacene los datos en una Base de Datos, tornndolo funcional. Recordemos los datos que debemos almacenar, viendo la pantalla de datos:

Figura 4: La pantalla de datos una vez terminada

Lo primero que hacemos es determinar la estructura de la tabla necesaria:

Campo Titulo Tema Autor Editorial Ao edicion Formato Pagina desde Pagina hasta Palabras clave CDROM Discos Cant CD

Tipo de dato A A A A I A I I A L L I

Tamao 50 30 30 30

Comentarios

>0, 4 nmeros, por defecto=actual 10 >0 >0, >= Pagina desde 50 Por defecto=FALSE Por defecto=FALSE >0

Campo Cant Disc Tipo Disc Desc Otro Comentario Imagen

Tipo de dato I I A M G

Tamao

Comentarios >0 >=0, <=2

10 50 0

En la columna de comentarios estn algunas de las restricciones que podemos ver en una primera inspeccin. Analicemos un poco ms esta tabla: < Los campos Titulo, Autor, Tema y Editorial son campos alfanumricos simples que almacenarn directamente lo que se escriba en los editores correspondientes. < El campo de Formato tambin es alfanumrico, pero como siempre sern los mismos (Libro, Revista, etc) convendra tener estos valores ya escritos y no permitir al usuario escribir otro que no exista ya. Utilizaremos para ello un componente DBComboBox, que funciona igual que un ComboBox pero almacena el resultado en un campo de la tabla. < En general, hasta que hablemos de los componentes de campo ms adelante, definiremos las restricciones para los campos en la tabla (validity checks). De esta manera, las restricciones son forzadas por el motor de Bases de Datos y no por Delphi. < Los campos numricos Ao edicion, Pagina desde , Pagina hasta, Cant CD, Cant Disc y Tipo Disc no pueden ser negativos; indicamos pues una restriccin (validity check) de valor mnimo 0 para cada uno. < El campo Ao edicion debe entrarse con 4 dgitos; esto se indica con una restriccin de mscara de entrada ####. < El campo numrico Tipo Disc indica el tipo de disco que acompaa al material impreso. Utilizaremos una convencin para hacer ms fcil el tratamiento con los controles: 0 indicar discos de 3 pulgadas, 1 indicar discos de 5 1/4 pulgadas y 2 indicar cualquier otro formato (por ejemplo, Zip o Jazz). Por ello, podemos indicar valor mnimo 0 y valor mximo 2. < Los campos lgicos CDROM y Discos indicarn con valor TRUE (verdadero) que se incluye ese soporte, caso contrario tomarn valor FALSE (Falso). < Tambin hemos indicado los valores por defecto para algunos campos. Notemos que el valor por defecto del campo Ao edicion (el ao actual) no se puede especificar en la definicin de la tabla, ya que Paradox no tiene provisiones para eso. Deberemos programarlo en el sistema.

Nos falta todava la definicin de los campos de la clave principal. Para este caso podramos elegir una combinacin como Titulo + Autor. No obstante, utilizaremos otra tcnica: agregaremos un campo de tipo Autonumrico con el nico propsito de servir como clave principal (debe ser definido en primer lugar).

jercicio 2-2
Crear la tabla del proyecto Biblio en formato Paradox 7, incluyendo todas las restricciones que sea posible especificar. Definir al principio un campo llamado ID de tipo autoincremental. Marcarlo como Clave Primaria de la tabla. Grabar la tabla como BIBLIO.DB. Crear un alias Biblioteca que apunte al directorio correspondiente.

)
Ahora podemos enlazar ya todos los componentes de la ventana y comenzar a trabajar con datos reales.

jercicio 2-3
Colocar todos los componentes editores en la ventana de datos. Enlazarlos con los campos correspondientes de la tabla.

En la ventana de Biblio hay algunos componentes especiales, que veremos a continuacin.

DBComboBox
El co\mponente DBComboBox que utilizaremos para el campo Formato es una extensin del mismo componente estndar de Windows. Las propiedades relevantes son las siguientes: < DataSource: al igual que todos los controles de datos, indica el componente que provee el enlace con la tabla < DataField: nombre del campo que corresponde a este control. < Items : lista de valores predefinidos. No es necesario que el campo sea de tipo alfanumrico, las conversiones son realizadas automticamente por Delphi. < Style : estilo del control. Los valores posibles son los siguientes < DropDown: permite escribir en el editor, presenta la lista de opciones al presionar el botn < DropDownList: no permite escribir en el editor; solamente elegir un valor de la lista < OwnerDrawFixed: el programa debe encargarse de escribir (o dibujar) los valores que se mostrarn en la lista. Se asume que todos tienen la misma altura. Por cada elemento a dibujar se produce el evento OnDrawItem < OwnerDrawVariable: el programa debe escribir o dibujar los valores de la lista. Se puede variar la altura de cada uno. Por cada elemento a dibujar se producen los eventos OnMeasureItem y OnDrawItem.

< Simple: se comporta igual que un editor comn, sin mostrar el botn para desplegar la lista.

Coloquemos entonces el ComboBox del campo Formato con los siguientes items: Libro, Revista, Folleto, Fotocopias, Otros. Dado que no queremos que se puedan escribir otros valores diferentes a estos, ponemos el estilo igual a csDropDownList.

DBCheckBox
Los cuadros de opcin utilizados para indicar si la publicacin tiene discos o CD sirven para cualquier campo que slo pueda tomar dos valores diferentes, como los de tipo Lgico en Paradox. Las propiedades especiales de estos controles son: < DataSource, DataField: igual que en los dems controles de datos. < ValueChecked: valor que se colocar en el campo cuando el cuadro se encuentre marcado. Asimismo, cuando el campo contenga este valor se ver una marca en el cuadro. Por defecto = TRUE, adecuado para campos de tipo lgico. < ValueUnchecked: valor que se pondr en el campo cuando el cuadro no est marcado. Al mostrar el contenido de un registro, si el campo contiene este valor se ver el cuadro sin marcar. Por defecto = FALSE, adecuado para campos de tipo lgico. Vemos que la utilizacin de estos controles est adaptada por defecto a los campos de tipo lgico, pero no restringida a stos. Por ejemplo, si tenemos un campo de tipo entero que debe tomar slo los valores 0 y 1 podemos usar un control DBCheckBox sin problemas.

jercicio 2-4
Colocar los DBCheckBox para los campos CDROM y Discos

DBRadioGroup
Otro de los componentes estndar especialmente adaptado para trabajar con un campo de una tabla es el Grupo de botones radiales (RadioGroup). Representa un conjunto de valores mutuamente excluyentes (slo se puede elegir uno de ellos) y permite una representacin fcil de leer de un campo codificado. En nuestro ejemplo tenemos uno de esos campos: Tipo Disc, que acepta un valor entero entre 0 y 2. Cada uno de estos valores representa un tipo de disco, pero no queremos obligar al usuario a aprender esa codificacin. Para l (o ella) debe ser transparente. Aqu entra en juego el componente DBRadioGroup. Las propiedades ms importantes son las siguientes: < DataSource, DataField: igual que en los dems controles de datos. < Items : lista de etiquetas para cada botn. Esto es lo que se lee al costado de cada botn, no lo que se

10

coloca en el campo de la tabla. Se colocan en orden, uno por lnea. < Columns : cantidad de columnas en que se tienen que acomodar los botones. En nuestro ejemplo sern tres. < Values: valores que se colocarn en el campo al seleccionar un botn. Se toman en el orden en que estn escritos, uno por lnea. Colocaremos entonces el grupo de botones para el campo Tipo Disc, indicando como Items: 3 , 5 , Otros Values: 0, 1, 2 Columns: 3 De esta manera el usuario selecciona 3 y en la tabla se colocar un 0. Dado que lo contrario tambin es cierto, el usuario nunca se entera de la codificacin utilizada.

DBMemo
El campo de comentario es un campo de texto, pero un poco especial: no queremos restringir la libre expresin de la persona que introduzca el comentario a unos mseros 240 caracteres, no? Por eso definimos el campo como de tipo Memo, y debemos utilizar un componente acorde a esa definicin. Como se habrn podido imaginar, el componente en cuestin es una extensin del Memo estndar y se llama... DBMemo. No tiene propiedades especiales adems de DataSource y DataField.

jercicio 2-5
Agregar un DBMemo para el campo Comentarios

DBRichEdit
Existe otro componente para trabajar con los campos de texto, que permite especificar un formato adems del texto: DBRichEdit. Este control asume que el texto tiene formato de texto enriquecido (RTF, Rich-Text Format) a menos que pongamos la propiedad PlainText en True. Es una opcin a tener en cuenta si queremos ofrecer la opcin de formatear cada prrafo por separado (por ejemplo, distintos tipos de letras o colores). Este componente es la contrapartida del RichEdit estndar de Win32, y no tiene propiedades especiales adems de DataSource y DataField.

DBImage

11

El ltimo campo es un agregado que en otras pocas resultaba un lujo -y una caracterstica que poda definir la compra de un sistema en lugar de otro: la posibilidad de agregar una imagen del documento, obtenida mediante un escner o cmara digital. Ahora, bajo Windows, es algo muy fcil de hacer. Paradox incorpora un tipo de campo especial para almacenar imgenes, el tipo G (por Graphic), y Delphi tiene un control asociado: DBImage. El funcionamiento es el mismo que el componente estndar Image, pero como de costumbre los datos van a parar a la tabla. Para trabajar con este control es necesario tener en cuenta las siguientes propiedades: < DataSource, DataField: igual que los dems controles de datos < AutoDisplay: si est en FALSE, los datos no se muestran automticamente; hay que llamar por programa al mtodo LoadPicture. Muy til cuando no queremos demorar la navegacin con imgenes muy grandes; por ejemplo, nicamente llamar a LoadPicture despus de detenernos un par de segundos en un registro. < Center: indica que la imagen aparecer centrada en el control < Stretch: la imagen se redimensiona al tamao del control. < QuickDraw: si es TRUE, la imagen se muestra con los colores de la paleta del sistema; caso contrario, se crea una paleta especial para una mejor concordancia de los colores de cada imagen. El primer mtodo resulta en una imagen que aparece ms rpidamente pero tiene menor calidad. < Picture : contiene la imagen. Esta propiedad est disponible slo en tiempo de ejecucin, dado que se llena automticamente a travs del enlace a la fuente de datos (a diferencia de la misma propiedad del control Image). Si asignamos a esta propiedad un archivo grfico o invocamos el mtodo Picture.LoadFromFile efectivamente estamos cambiando el contenido del campo de la tabla.

NOTA: si agregamos la unit JPEG a la clusula uses de nuestro programa, podremos cargar imgenes JPG; no obstante, el campo Graphic de Paradox no reconoce el formato y no podremos ingresar la imagen en la tabla.

Tenemos que dar al usuario la posibilidad de cargar una imagen desde un archivo externo y tambin de eliminarla si no se usa ms; para eso son los dos botones inferiores. Para agregar o borrar datos de un registro debemos llamar a algunos mtodos del componente Table, por lo que postergaremos la discusin hasta ms tarde.

Ahora tenemos lista la pantalla de edicin de datos de publicaciones. An queda por ver la forma en que indicamos a la tabla que queremos guardar los datos ingresados, o cancelar las modificaciones en caso contrario.

Navegando se llega a Roma (?)

12

Cursores
Los datos en una tabla se almacenan en registros, como ya dijimos; la BDE utiliza el concepto de cursor para acceder a los datos. Un cursor es como un marcador de posicin; se ubica sobre una fila de la tabla (un registro) y nos da acceso a sus datos. La nica manera de acceder a los valores almacenados en un campo particular de un registro es posicionar un cursor sobre ese registro y a travs de los controles de datos -que ven lo que el cursor les muestra- modificar el contenido de los campos. Es posible indicar al cursor que se mueva al principio o al final de la tabla, o bien hacia adelante o hacia atrs de la posicin actual. Pero tenemos que tener en cuenta que el concepto de el registro nmero n ya no es aplicable. Veamos por qu. Supongamos que numero los registros en forma consecutiva, como se haca antes por ejemplo en Dbase. Entonces, podr emitir alguna orden para editar el contenido del registro nmero 4, por decir un nmero cualquiera. Modifico algunos datos y luego lo grabo en la misma posicin -la nmero 4. Ahora bien, qu sucede si mientras estoy editando ese registro alguien -la mano negra- accede a la tabla a travs de la red y me elimina el segundo registro de la tabla? El registro nmero 4 ser ahora el que ocupaba la posicin siguiente y por lo tanto modifico los datos equivocados. Por esto, No hay un mtodo directo para indicar al cursor que se posicione en el registro nmero n. Hace un tiempo no era comn tener varios equipos conectados en red, por lo que este problema no se vea en la mayora de los casos. No obstante ahora generalmente nuestros programas se ejecutarn en una red local, aunque al principio no lo planeemos as. Hay una forma de conocer el nmero secuencial de registro en el que estamos posicionados con el cursor, llamando a la BDE directamente; no hablaremos ahora de eso. Para movernos con seguridad entre los registros, utilizaremos Marcadores (Bookmarks) y mtodos de bsqueda.

El Navegador
El navegador (navigator) es como un control remoto del cursor; una botonera que nos permitir trabajar con los registros de una tabla. Podemos agregar, borrar, editar, aceptar o cancelar las modificaciones, recargar los datos desde el servidor y movernos (navegar) entre los registros. Los botones del navegador y sus funciones son los siguientes:

Primer registro Registro anterior Registro siguiente Ultimo registro

Editar Borrar Agregar

Refrescar datos Cancelar cambios Aceptar cambios

Figura 5: Navegador de tablas con la funcin de cada botn

Por ejemplo, si queremos agregar un registro a la tabla presionamos el botn +: la BDE crea un registro

13

nuevo en memoria -virtual- y posiciona el cursor en l. Vemos entonces en los controles de datos el contenido por defecto de los campos. Para que los datos que ingresemos se graben en la tabla fsica, debemos confirmarlos: la accin se denomina Post. En el navegador hay un botn especial para esta operacin, el que tiene una marca U. Si por el contrario no deseamos confirmar los cambios, disponemos del botn Cancelar: X. Una vez presionado este ltimo botn, los datos ingresados se pierden y el cursor vuelve a la tabla real. Tambin es posible confirmar los datos de una forma indirecta; cuando hay modificaciones y nos movemos a otro registro, la BDE considera que hemos aceptado los cambios y los confirma, efectuando as un Post implcito. Los datos de un registro no se pueden modificar directamente; hay que decirle a la BDE que deseamos hacerlo y entonces sta crear una copia virtual del registro en memoria para que podamos modificarla. Esta operacin se denomina edicin, y el cursor tiene un comando para hacerlo. En el navegador disponemos del botn . Luego de modificar los datos debemos aceptar los cambios con Post (U) o rechazarlos con Cancel (X). Todos los botones del navegador llaman a procedimientos de la tabla correspondiente. Por ejemplo, si el navegador est enlazado al componente Table1 y presionamos el botn U, el navegador llama al mtodo Table1.Post. Por supuesto que nosotros tambin podemos llamar directamente a estos mtodos de la tabla. A continuacin damos el nombre de cada mtodo invocado por los botones de un navegador:

First Prior Next Last Append Delete

Edit Post Cancel Refresh

Con esta informacin, podemos armar nuestro propio navegador.

E
14

jercicio 2-6
Crear un navegador que se pueda utilizar con las teclas, y que muestre dibujos y tambin un texto en cada botn.

Veremos ahora algunos ejemplos, utilizando el form de entrada de datos de Biblio. Escribiremos los eventos correspondientes de los botones Cargar y Borrar, que se encargan de la gestin de la imagen del campo Imagen. El botn Cargar debe llamar a DBImage1.Picture.LoadFromFile luego de obtener el nombre del archivo por algn medio (por ejemplo, invocando primero el cuadro de dilogo estndar de Abrir Archivo). Una primera versin del evento OnClick sera la siguiente:

procedure TForm1.Button1Click(Sender: TObject); begin if OpenPictureDialog1.Execute then DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName); end;

Hemos utilizado un cuadro de dilogo estndar de abrir archivo de imagen (con vista previa, est en la pgina Dialogs) llamado OpenPictureDialog1. Hay un problema con el programa anterior: no podemos modificar el contenido de la tabla sin ponerla antes en modo de edicin. Veremos la imagen en pantalla, pero no se guardar en la tabla. Modificaremos entonces nuestro evento, de la siguiente manera:

procedure TForm1.Button1Click(Sender: TObject); begin if OpenPictureDialog1.Execute then begin Table1.Edit; DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName); end; end;

Ahora si, no hay problemas y la imagen se inserta en el registro actual de la tabla.

El botn Borrar debe eliminar la imagen. Para eso debemos asignar nil (nada) a la propiedad Picture del DBImage:
procedure TForm1.Button2Click(Sender: TObject); begin Table1.Edit; DBImage1.Picture.Assign(nil); end;

NOTA: no hay que olvidarse de aceptar o cancelar los cambios con Post o Cancel, respectivamente!

15

16

De grillas, tablas y otras yerbas

En los tiempos de Windows ya no es suficiente con mostrar un registro a la vez. El usuario ahora dispone de un arma de gran alcance: el ratn. Ya no est obligado a moverse lnea por lnea en una tabla, puede ir directamente a donde desee con slo presionar un botn. Para aprovechar este poder que pap Bill ha dado al usuario, los programadores debemos rompernos la cabeza ideando formas nuevas de presentar la informacin... y de protegernos de un montn de posibilidades de error ms que las que haba antes! La forma de presentacin ms intuitiva para una tabla es... una tabla. Sera bueno tener un componente que mostrara la informacin en forma de tabla. Lo mismo pensaron los muchachos en Borland y crearon el componente tDBGrid ( ). Este componente se ve grficamente como una tabla formada por filas y columnas; cada fila tiene los datos de un registro, cada columna es un campo. Por lo tanto, cada celda es un campo de un registro determinado (fig. 7). El usuario puede efectivamente posicionarse en cualquier celda (o en forma equivalente, en cualquier campo de cualquier registro) pulsando el ratn sobre ella. A continuacin puede editar el contenido directamente. Si bien es una interface cmoda y prctica, tambin es peligrosa; un usuario sin experiencia puede inadvertidamente modificar datos Figura 7: Componente DBGrid de una celda y luego pulsar en otra fila con lo cual el cursor se mueve y se efecta un Post implcito, aceptndose los cambios. Por ello tenemos disponibles distintas opciones para personalizar este componente y eventualmente restringir el acceso a los datos. La funcionalidad bsica requiere muy pocos cambios: slo hay que especificar la fuente de datos en la propiedad DataSource (que muestra una lista de las que estn disponibles) y ya tenemos acceso a la tabla. Es ms, disponemos de la funcionalidad de un navegador dado que hay teclas especiales para insertar (Insert) y borrar (Ctrl+Delete) filas, as como para cancelar los cambios (Escape ). Para aceptar las modificaciones basta con moverse a otra fila. La primera fila de una grilla muestra los ttulos de las columnas (por defecto, los nombres de los campos). Es posible modificar en tiempo de ejecucin el orden de las columnas arrastrando los ttulos, o el ancho de las mismas arrastrando la lnea divisoria 3 (Fig. 8).

Note que las nuevas posiciones y tamaos de las columnas no son permanentes, es decir, cuando cerremos la ventana en la que aparece la grilla y la volvamos a abrir los valores sern otra vez los originales.

17

Arrastrando esta lnea se cambia el ancho de la columna

Arrastrando el nombre se cambia el orden de los campos

Figura 8: modificaciones que el usuario puede hacer al aspecto de una grilla

Modos de una tabla

La primera columna tambin es especial: presenta informacin acerca del estado de la tabla y la posicin del cursor. Los smbolos que se muestran tienen los siguientes significados:

<

La tabla est en modo navegacin (browse). Slo estamos mirando, no hay modificaciones.

I La tabla est en modo edicin (edit). Se estn modificando los datos de un registro existente. * La tabla est en modo insercin (insert). Se est trabajando en un registro nuevo.

Cuando se est trabajando sobre los datos (modos edicin e insercin) se trabaja sobre una copia de los datos en memoria; para que esos datos vayan a parar al archivo en disco es necesario hacer Post. Si se cancela la operacin, simplemente se elimina la copia en memoria. En cualquiera de los casos, se vuelve al modo navegacin.

jercicio 2-7
Crear una aplicacin con un form que contenga lo necesario para acceder a la tabla NOMBRES.DB (la agenda creada anteriormente), y una grilla para ver los datos. Tomar nota de los campos que se muestran en la grilla, los ttulos, el ancho de las columnas, el orden, la posibilidad de edicin. Intente arrastrar una columna a otra posicin o redimensionarlas arrastrando la lnea divisoria de los ttulos, tanto en tiempo de diseo como en tiempo de ejecucin.

Cambiar la presentacin y el comportamiento por defecto de la grilla

En la mayora de los programas reales, modificaremos el aspecto y/o el comportamiento de la grilla estndar. En lugar de dar aqu una lista de las propiedades implicadas y su significado (que se puede obtener

18

fcilmente en la ayuda), veremos cmo realizar tareas comunes y resolver problemas que se presentan a menudo.

Cambiar la letra de los ttulos Como todos los componentes visuales, la grilla posee una propiedad Font que contiene las especificaciones del tipo de letra que se usar para mostrar los datos. Existe adems otra propiedad llamada TitleFont, que indica el tipo de letra que se usar para los ttulos. Se utiliza de la misma manera que la propiedad Font.

Impedir cambios a los datos de la grilla Se pueden prevenir algunos errores (sobre todo el borrado accidental de datos) poniendo la propiedad ReadOnly en True . A partir de ese momento, cualquier accin de edicin de los datos en la grilla est prohibida (incluso si ponemos por programa a la tabla en modo de edicin, no podremos escribir dentro de la grilla). Se puede lograr el mismo resultado quitando la constante dgEditing de la propiedad Options (en el inspector de objetos le pondremos valor False a esa constante)

Opciones para modificar la edicin Tomemos un tiempo para ver cmo es el comportamiento normal de una grilla. Cuando el componente recibe el foco, se muestra una celda en otro color (seleccionada). Para realizar cambios a los datos contenidos en esa celda (un campo particular del registro actual) debemos presionar el botn en el navegador o bien <Enter> en el teclado, con lo cual la tabla se pone en modo de edicin. Una vez realizados los cambios, podremos aceptarlos movindonos a otras filas (otro registro) o bien cancelar los cambios presionando <Esc>. Antes de entrar en edicin, podremos movernos de una celda a otra utilizando las teclas de cursor; en cualquier momento, pasamos al siguiente campo con <Tab> y volvemos al campo anterior con <Shift>+<Tab>. Se puede hacer que se pase a la siguiente columna con <Enter>? Si!!! tenemos que capturar un evento de teclado y responder en consecuencia. Para cambiar el nmero de columna que contiene la celda seleccionada en una grilla, disponemos de la propiedad SelectedIndex. Por lo tanto, el evento OnKeyPress de la grilla puede codificarse como sigue:

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then dbGrid1.SelectedIndex:= (dbGrid1.SelectedIndex + 1) mod dbGrid1.Columns.Count; end;

La funcin Mod evita que nos pasemos de la ltima columna; directamente salta a la primera, sin cambiar de registro.

Tenemos algunas posibilidades de modificacin del comportamiento estndar de las grillas en la propiedad Options. Notemos que esta propiedad es de tipo conjunto, lo que significa que en el inspector de objetos

19

tendremos que agregar cada opcin por separado dndole un valor verdadero mientras que por programa debemos asignar a esta propiedad una lista entre corchetes de las constantes predefinidas (las que empiezan con dg). Las opciones que tienen efectos sobre la edicin son dgEditing y dgRowSelect. Si se indica la segunda, la primera es ignorada y no se permiten cambios a los datos.

Opciones para modificar el aspecto Hay varias opciones que modifican la presentacin de la grilla. Pruebe el comportamiento de las opciones dgRowLines, dgColLines, dgIndicator, dgAlwaysShowEditor, dgAlwaysShowSelection, dgTitles. Estas opciones slo tienen efecto sobre el aspecto de la grilla, no sobre la forma de trabajar con los datos.

Modificar las columnas La opcin dgColumnResize permite o prohbe la modificacin del ancho de las columnas en tiempo de ejecucin. Existe una manera de cambiar las caractersticas de cada columna en forma permanente: la propiedad Columns . La propiedad Columns es una coleccin de objetos, instancias de la clase TColumn, cada uno de los cuales representa una columna. Estos objetos tienen propiedades que se pueden ver y modificar en el Inspector de Objetos. Por ejemplo: el color, tipo de letra y ttulo se pueden cambiar en tiempo de diseo para cada columna en la grilla. La clase Tcolumn tiene otras propiedades no visibles en el Inspector de Objetos, por ejemplo Field que representa el componente de campo con el que est asociada. Utilizaremos algunas de estas propiedades en los ejemplos que siguen. Las distintas columnas se pueden acceder a travs del ndice, el nmero de orden en la lista, como si la coleccin fuese un vector de columnas (comenzado en 0). As por ejemplo, la primera columna del dbGrid1 ser dbGrid1.Columns[0] y la ltima dbGrid1.Columns[dbGrid1.Columns.count-1].

Si no cambiamos el valor inicial de la propiedad Columns (vaca), se mostrarn todas las columnas de la tabla con el formato por defecto. Si modificamos esta propiedad, se mostrar slo lo que se indique en ella.

Cuando presionamos el botn de edicin de la propiedad Columns aparece la lista de columnas de esa grilla (figura 9). Llamaremos a esta ventana el Editor de columnas. Para agregar las columnas a la tabla podemos presionar el botn de Agregar todos los campos (el que tiene tres puntos), con lo cual se agrega una columna por cada campo de la tabla, con los valores por defecto de la definicin. Para ver las propiedades de una columna determinada, la seleccionamos en el editor y miramos el Inspector de Objetos.

Ocultar y reordenar campos

Figura 9: Editor de columnas con todas las columnas de la tabla

Podemos ahora ocultar cualquiera de las columnas (campos) poniendo su propiedad Visible en False.

20

Para reordenar las columnas, simplemente las arrastramos en la lista tomndolas del nmero.

Cambiar el ancho de una columna Las columnas tienen una propiedad Width que indica el ancho en pixels. Por defecto, este ancho se calcula en base al tamao del dato que contiene el campo correspondiente. Tambin, una vez que hemos definido las columnas, podemos redimensionarlas simplemente arrastrando las lneas divisoras de los ttulos... y las nuevas dimensiones sern permanentes, cada vez que el programa arranca cada columna tomar el ancho especificado.

Formato de presentacin de las columnas Podemos cambiar varias caractersticas de presentacin de las columnas: < El ttulo (Title ) es en s mismo una estructura compleja con varias subopciones, que nos permiten cambiar la tipografa, el color, el texto y la alineacin. < Alignment mantiene la alineacin de los datos en la columna, en forma independiente del ttulo. < Font contiene la fuente tipogrfica de los datos de la columna. < Podemos hacer una columna de slo lectura con ReadOnly. < La propiedad PickList mantiene una lista de palabras que se mostrar como un ComboBox en cada celda de la columna. Notemos que el Combo no aparece hasta que empezamos a editar el contenido.

Combinando estas posibilidades con los componentes de campo (el tema que veremos a continuacin), podremos presentar grillas realmente muy elaboradas con poco esfuerzo.

Ejemplo 1: permitir personalizacin del ancho de una columna por el usuario Se desea una aplicacin que permita al usuario modificar el ancho de la primera columna de una grilla. El form principal podra ser como el de la figura 10. Al presionar el botn etiquetado "<", la primera columna se achicar un pixel; con el otro botn, se ensanchar. El cdigo de los botones podra ser el siguiente (BitBtn1: izquierda, BitBtn2: derecha):

procedure TForm1.SpeedButton1Click(Sender: TObject); begin dbgrid1.Columns[0].Width:= dbgrid1.Columns[0].Width-1; end;

Figura 10: programa que permite modificar el ancho de la primera columna

procedure TForm1.SpeedButton2Click(Sender: TObject); begin

21

dbgrid1.Columns[0].Width:= dbgrid1.Columns[0].Width+1; end;

Podemos ampliar este ltimo ejemplo permitiendo al usuario que seleccione de una lista la columna sobre la que quiere actuar; para la seleccin utilizaremos un ComboBox, que tendremos que llenar con los nombres de las columnas visibles. En qu evento llenaremos el Combo con los nombres de las columnas visibles? Dado que queremos que aparezca desde el inicio del programa, lo haremos en el evento OnCreate:

procedure TForm1.FormCreate(Sender: TObject); var i: integer; begin for i:= 0 to dbGrid1.Columns.Count-1 do If dbGrid1.Columns[i].Visible then ComboBox1.Items.Add(dbGrid1.Columns[i].Title.Caption); ComboBox1.Text:= dbGrid1.Columns[0].Title.Caption; end;

Ahora bien: al presionar cualquiera de los botones, se modificar el ancho de la columna indicada en el ComboBox. Para ello necesitamos el ndice de la columna. Cmo podemos saber el ndice de la columna cuyo nombre seleccionamos en el combo? Una forma sencilla sera tomando directamente la propiedad ItemIndex del ComboBox como ndice de la columna. Dado que fueron introducidas en el orden que se encontraban en la grilla, debe ser el mismo. Esta solucin se ve en el siguiente listado, de los eventos OnClick de los dos botones:

procedure TForm1.SpeedButton1Click(Sender: TObject); begin dbgrid1.Columns[ComboBox1.ItemIndex].Width:= dbgrid1.Columns[ComboBox1.ItemIndex].Width-1; end;

procedure TForm1.SpeedButton2Click(Sender: TObject); begin dbgrid1.Columns[ComboBox1.ItemIndex].Width:= dbgrid1.Columns[ComboBox1.ItemIndex].Width+1; end;

El problema con esta aproximacin simplista es que cuando tenemos columnas no visibles, stas no se ingresan en el ComboBox; por lo tanto, el orden de los nombres en la lista ya no ser igual que el orden de las columnas en la grilla. Pueden probarlo ocultando la primera columna (Visble=False) y modificando el

22

ancho de cualquiera de las que aparecen en el ComboBox. Y ahora, quin podr defendernos?4 Una solucin sera crear una funcin que dado el nombre de una columna nos devuelva el ndice de la misma en la coleccin Columns . Esta funcin podra ser algo como lo siguiente:

function TForm1.IndiceDeColumna(const NombreCol: string): integer; var i: integer; begin Result:= -1; //Valor que indicaria que no se encontro la columna

for i:= 0 to dbGrid1.Columns.Count-1 do begin if dbGrid1.Columns[i].Title.Caption=NombreCol then begin Result:= i; break; //Termina el ciclo for end; end; end;

Ahora si, utilizando esta funcin los eventos OnClick de los botones se hacen simples:

procedure TForm1.SpeedButton1Click(Sender: TObject); var Temp: integer; begin Temp:= IndiceDeColumna(ComboBox1.Text); dbgrid1.Columns[temp].Width:= dbgrid1.Columns[Temp].Width-1; end;

procedure TForm1.SpeedButton2Click(Sender: TObject); var Temp: integer; begin Temp:= IndiceDeColumna(ComboBox1.Text); dbgrid1.Columns[Temp].Width:= dbgrid1.Columns[Temp].Width+1; end;

Sencillo, no?
4

Un tributo

23

Ejemplo 2: movimiento de columnas en tiempo de ejecucin Todava podemos hacer ms; pondremos otro par de botones que permitan mover de lugar la columna seleccionada en el ComboBox. Para mover la columna, podemos tomar varios caminos; en el ejemplo siguiente he ilustrado dos de ellos. El movimiento hacia atrs lo lleva a cabo intercambiando los componentes Tcolumn que representan la columna seleccionada en el ComboBox y la columna anterior:

procedure TForm1.SpeedButton3Click(Sender: TObject); var temp: integer; ColTemp: tColumn; begin //Mueve una columna hacia atras, copiando el objeto TColumn temp:= IndiceDeColumna(ComboBox1.Text); if temp>0 then begin ColTemp:= tColumn.Create(dbGrid1.Columns); ColTemp.Assign(dbGrid1.Columns[temp-1]); dbGrid1.Columns[temp-1].Assign(dbGrid1.Columns[temp]); dbGrid1.Columns[temp].Assign(ColTemp); Coltemp.Free; end; end;

Como vemos, necesitamos un componente Tcolumn temporal para hacer el intercambio. El movimiento hacia adelante se hace intercambiando las propiedades FieldName de los objetos Tcolumn que representan la columna seleccionada en el Combo y la siguiente. Necesitamos slo un string auxiliar para el intercambio:

procedure TForm1.SpeedButton4Click(Sender: TObject); var temp: integer; StrTemp: string; begin //Mueve una columna para adelante, copiando la propiedad FieldName Temp:= IndiceDeColumna(ComboBox1.Text); if temp<dbGrid1.Columns.Count-1 then begin StrTemp:= dbGrid1.Columns[temp+1].FieldName; dbGrid1.Columns[Temp+1].FieldName:= dbGrid1.Columns[temp].FieldName; dbGrid1.Columns[Temp].FieldName:= StrTemp;

24

end; end;

Hay otra posibilidad para modificar la presentacin de los datos en una grilla: dibujarlos nosotros mismos. Exploraremos ahora esa posibilidad.

Dibujar los datos

Teniendo todas las posibilidades que tienen las grillas, para qu podemos querer dibujar el contenido de las celdas? Hay varias ocasiones en que es deseable este grado de control: por ejemplo, para poner de distinto color las celdas con valores positivos y negativos; para mostrar el contenido de los campos grficos en la grilla; para mostrar el texto de los campos memo, etc. Lo primero es indicar a Delphi que deseamos escribir los datos por nuestra cuenta. Para esto, ponemos la propiedad DefaultDrawing en False. A partir de ahora, cada vez que la grilla vaya a graficar una celda generar un evento OnDrawColumnCell5 . Es aqu donde tomamos el control. Veamos un poco el evento y los datos que nos ofrece:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);

Sender: el objeto que genera el evento, como siempre Rect: el rectngulo de pantalla que hay que dibujar. El tipo Trect es un registro variante, que podemos tratar como un conjunto de cuatro enteros (Left, Top, Right, Bottom) o dos Tpoint (TopLeft, BottomRight). Son las coordenadas de la esquina superior izquierda y de la esquina inferior derecha. DataCol: el ndice de la columna que se quiere dibujar. Column: el objeto Tcolumn que representa la columna a dibujar. State: el estado de la celda. Los estados posibles son: C gdSelected: la celda est seleccionada (generalmente pintadas con el color C gdFocused: la celda tiene el foco de atencin del teclado C gdFixed: la celda est en la zona fija de la grilla (la zona que no se mueve con las barras de desplazamiento, usualmente pintadas de gris)

Con estos datos es suficiente para graficar el interior de la celda. Uds. se preguntarn y de donde sacamos los datos?. Si no lo han hecho, hganlo ahora! La respuesta es: del campo asociado a esa columna. Y cmo sabemos cul es el campo, cmo accedemos a l? Ayudados por el componente que representa esa columna: el parmetro Column.

Se mantiene un evento llamado OnDrawDataCell por compatibilidad, pero se recomienda el uso del nuevo OnDrawColumnCell en su lugar

25

Dijimos anteriormente que la clase Tcolumn tena una propiedad que no se ve en el Inspector de Objetos que referencia al componente de campo correspondiente a la columna. Bien, ha llegado el momento de utilizarlo. Como todos los componentes de campo tiene las propiedades AsString, AsInteger, etc. -y es de ah de donde obtendremos los datos. Veamos un ejemplo: quiero mostrar el contenido de un campo memo en la grilla (por lo menos, lo que alcance con el ancho actual de la columna). Trabajando con la tabla de Agenda, tenemos el campo Comentarios de tipo memo. Primero indicamos a la grilla que queremos dibujar nosotros su interior: la propiedad DefaultDrawing va a False. Ahora se generar el evento OnDrawColumnCell, en el que hacemos:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin with dbGrid1 do begin if column.Field.DataType=ftMemo then begin if gdSelected in State then Canvas.brush.Color:= clHighlight //Color resaltado else Canvas.brush.Color:= Color; //Mismo Color que el Grid Canvas.Rectangle(rect.Left,rect.Top,rect.right,rect.bottom); Canvas.TextRect(rect,rect.Left+2,rect.Top+2,column.Field.asString) end else DefaultDrawColumnCell(rect,datacol,column,state); if gdFocused in State then Canvas.drawFocusRect(rect); //grafica el recuadro punteado end; end;

El mayor problema de este programa es la extensin de los campos memo; difcilmente entre todo el texto en una sola lnea. Sera bueno hacer ms alta la lnea segn la cantidad de texto... pero es sumamente difcil, implica modificar el componente TDBGrid. Se puede encontrar el cdigo fuente de un componente como ese en http://www.marcocantu.com.

Como ejemplo final, vamos a mostrar una imagen en la grilla. La forma ms sencilla de hacerlo es creando un objeto Tbitmap temporal para mantener la imagen al sacarla de la tabla, y despus dibujar esta imagen en la celda. Usaremos la famosa tabla Animals.dbf de los ejemplos de Delphi (alias DBDemos), donde tenemos el campo BMP con una foto del cada animal.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var

26

g:tBitmap; begin with dbGrid1 do begin if column.Field.FieldName='BMP' then begin if gdSelected in State then Canvas.brush.Color:= clHighlight //Color resaltado else Canvas.brush.Color:= Color; //Mismo Color que el Grid Canvas.Rectangle(rect.Left,rect.Top,rect.right,rect.bottom); g:= tBitmap.Create; g.Assign(column.field); Canvas.StretchDraw(rect,g); g.Free; end else DefaultDrawColumnCell(rect,datacol,column,state); if gdFocused in State then Canvas.drawFocusRect(rect); end; end;

Nuevamente, los grficos estarn muy deformados por la poca altura de las lneas.

Columnas con opciones

Otra de las opciones de que disponemos en las columnas de un DBGrid es la de especificar valores posibles para una columna; cada celda de esta columna se comportar efectivamente como un ComboBox (al entrar en edicin). Para esto slo es necesario especificar los valores que se desplegarn en la lista, en la propiedad PickList de la columna deseada. Esta lista no es excluyente, lo que significa que se puede todava escribir cualquier valor aunque no est en la lista. Una imagen vale ms que 1001 palabras...

27

Figura 11: especificar una lista de valores en la propiedad PickList del campo SIZE, y su efecto en el programa final

Editores especiales
Todava tenemos otra opcin para las columnas de la grilla: si ponemos la propiedad ButtonStyle en cbsEllipsis, cuando entremos a editar ese campo aparecer un botoncito en el extremo derecho de la celda. Recordaremos ese botn del Inspector de Objetos: all nos permite invocar algn editor especial (como el de las listas). Aqu... nos genera un evento en la grilla. El evento OnEditButtonClick se genera cada vez que presionamos ese botn. Aqu podemos abrir otra ventana, ir a otro lado, en fin... lo que nuestra imaginacin nos permita. Como ya se me est acabando la imaginacin y el lugar, haremos slo un pequeo ejemplo que al presionar el botn pone la columna de un color elegido al azar entre cinco posibilidades:

procedure TForm1.DBGrid1EditButtonClick(Sender: TObject); const colores: array[0..4] of tColor = (clRed,clBlue,clWindow,clGreen,clYellow); begin dbgrid1.Columns[dbGrid1.SelectedIndex].Color:= colores[Round(random(5))]; end;

28

Alguna de las columnas debe tener la propiedad ButtonStyle en cbsEllipsis para que se llame alguna vez a este evento!

La grilla de controles
Hay an otro control disponible para mostrar los datos de una tabla, una opcin intermedia entre una grilla y una pantalla de controles. Se denomina DBCtrlGrid (ControlGrid, o grilla de controles). La idea es tener la versatilidad de poder utilizar cualquier control de acceso a datos, pero mostrando ms de un registro a la vez como en una grilla. En efecto, la grilla de controles es como una matriz de paneles, cada uno de los cuales puede contener cualquier control. Se muestra el contenido de un registro de la tabla en cada panel. Crearemos una grilla de controles para la tabla biolife.db, de los ejemplos de Delphi. Coloquemos en una ficha nueva un componente Table, un DataSource y un dbCtrlGrid. A continuacin enlazamos la fuente de datos con la tabla y sta con el archivo. La grilla de controles se enlaza con la fuente de datos, igual que la grilla comn, a travs de la propiedad DataSource. La grilla de controles tiene un solo panel activo (los dems aparecen rayados). Este es el panel que nosotros debemos armar con los controles de acceso a datos; una vez en funcionamiento, se repetirn los controles en los dems paneles -mostrando un registro diferente en cada uno, claro. Ponemos entonces los controles para acceder a los datos en el panel activo. La ventana queda como en la fig. 13. A continuacin, activamos la tabla. Se ven los datos en los controles? Se activan los paneles restantes? Cuando ejecutamos el programa, vemos que los dems paneles se activan y cada uno muestra un registro diferente. Algunas de las propiedades que nos servirn para manejar la grilla son las siguientes: C AllowDelete: cuando est en verdadero (True) se permite el borrado de registros con <Ctrl>+<Del>

Figura 13: grilla de controles en tiempo de diseo

C AllowInsert: como se habrn imaginado, habilita o no la posibilidad de insertar registros utilizando <Alt>+<Ins> C ColCount, RowCount: cantidad de columnas y de filas, respectivamente. El tamao total del control se divide en partes iguales para cada celda de la matriz resultante. Por lo tanto, si la altura de un panel no nos alcanza, no tenemos otra opcin ms que agrandar el control completo o disminuir la cantidad de filas. C Orientation: determina el orden de aparicin de los registros en la grilla, segn la siguiente figura:

29

Orientation = goVertical

Orientation = goHorizontal

Figura 14: distribucin de los registros en la grilla segn el valor de la propiedad Orientation

C SelectedIndex: indica el nro. de panel seleccionado (el que tiene el foco de edicin). Asignando un valor a esta propiedad estamos efectivamente cambiando la posicin del cursor en la tabla. Ver el ejemplo ms abajo. Esta propiedad no es visible en tiempo de diseo. C PanelCount:nmero de paneles en el control. No visible en tiempo de diseo.

Ejemplo: vamos a hacer un programa que mueva el cursor de la tabla al registro que corresponda al panel sobre el que pasamos con el ratn. Entonces, si paso con el puntero sobre la celda marcada 1, el registro actual de la tabla deber ser el registro que se muestra en ese panel. Pondremos tambin una grilla comn en la ventana para ver el efecto del cambio de registro. La ficha principal queda como en la figura 15. Notemos primero el comportamiento por defecto de la grilla de controles; al ejecutar el programa vemos que se selecciona el primer panel (y en la grilla inferior vemos que el cursor se posiciona en el registro correspondiente). Para lograr nuestro cometido tenemos que responder al movimiento del ratn (evento OnMouseMove ), y seleccionar entonces el panel sobre el que est el puntero. Para calcular el nro. de panel debemos tomar en cuenta la anchura y la altura de cada panel. El procedimiento queda como se ve en el siguiente listado: Figura 15: ficha del ejemplo
procedure TForm1.DBCtrlGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Caption:= IntToStr(x)+', '+IntToStr(y); if dbCtrlGrid1.Orientation=goHorizontal then

30

dbCtrlGrid1.PanelIndex:= y div dbCtrlGrid1.PanelHeight+ (x div dbCtrlGrid1.PanelWidth)*dbCtrlGrid1.RowCount else dbCtrlGrid1.PanelIndex:= (y div dbCtrlGrid1.PanelHeight)*dbCtrlGrid1.ColCount+ x div dbCtrlGrid1.PanelWidth; end;

Ahora si, cuando ejecutamos esta aplicacin vemos que el cursor de la tabla se desplaza inmediatamente al registro correspondiente al panel sobre el que est el puntero del ratn. Podemos ver tambin que se selecciona este panel, lo que implica que ser el que responda al teclado.

31

Acceso por programa a los datos de un campo

Cmo podemos cambiar por programa el contenido de un campo? Puedo leer el contenido de un campo y colocarlo por ejemplo en el ttulo de la ventana? Uds. se estarn haciendo estas preguntas y otras por el estilo. Si la nica manera de acceder a los datos de una tabla es con los controles de datos, entonces la utilidad de su existencia se vuelve una restriccin. Por supuesto, ste no es el caso. El acceso a los datos implica la utilizacin de componentes especiales diseados para representar un campo. Estos componentes son descendientes de una clase abstracta llamada Tfield, y hay una clase especializada para cada tipo de dato diferente que pueda tener un campo. Les llamaremos en forma general componentes de campo. Estos componentes proveen los mtodos y propiedades necesarios para C Recuperar el valor de un campo de una tabla C Cambiar el valor de un campo de una tabla C Convertir el valor de un campo de un tipo de datos a otro C Validar el dato ingresado C Determinar el aspecto del campo cuando se mira y cuando se edita C Mostrar el contenido del campo como el resultado de algn clculo (campos calculados) C Buscar el contenido del campo desde otra tabla (campos lookup) Veremos todas estas caractersticas en las siguientes secciones. En la siguiente tabla se pueden ver las distintas clases, junto con el tipo de dato correspondiente en Paradox y Delphi:

Clase tField tStringField tIntegerField tSmallIntField tWordField tFloatField tAutoincField

Tipo de campo en Paradox

Tipo de datos

Alpha (A) LongInteger (I) Short (S) Puede ser I S Number (N) Autoincrement (+)

String Entero entre -2.147.483.648 y 2.147.483.647 (32 bits - longint) Entero entre -32.768 y 32.767 (16 bits - integer) Entero entre 0 y 65.535 (16 bits - word) Nmero real entre 5.0 * 10-324 y 1.7 * 10308 Nmero entero secuencial, automtico

32

Clase tCurrencyField

Tipo de campo en Paradox Money ($)

Tipo de datos Nmero real. Internamente se trabaja en 6 dgitos, independientemente de la cantidad de decimales mostrados. Por defecto se muestra con 2 decimales y el signo monetario. Nmero en formato BCD (Binary Coded Decimal). Sirve para compatibilidad con otras aplicaciones que usen este formato6 . Fecha y hora, juntos en un tipo tDateTime. Fecha. Hora. Valor True o False. Campo de bytes, que puede contener hasta 255 bytes con cualquier informacin. Un conjunto de hasta 65535 bytes con datos arbitrarios. Los primeros dos indican la longitud.

tBCDField

BCD (#)

tDateTimeField tDateField tTimeField tBooleanField tBytesField tVarBytesField tBlobField

Timestamp (@ ) Date (D) Time (T) Logical (L) Bytes (Y)

Binary (B) Formatted Memo (F) OLE (O)

Un conjunto de bytes de longitud arbitraria, por ejemplo para contener un sonido o un objeto OLE.

tMemoField tGraphicField TADTField TarrayField TreferenceField TaggregateField

Memo (M) Graphic (G)

Igual que el tipo tBlobField, pero los bytes deberan contener texto. Igual que el tipo tBlobField, pero los bytes deberan contener un grfico. Tipo de datos definido por el usuario (Abstract Data Type). No disponible en Paradox. Vector de datos, ya sea comunes o definidos por el usuario. No disponible en Paradox. Referencia a otra tabla. No disponible en Paradox. Funciones de agregacin sobre grupos de registros; no disponible en Paradox.

En la clase tField tenemos definidas algunas propiedades que nos permiten acceder al dato del campo

Internamente Delphi usa el tipo Currency para los campos BCD, por lo que la precisin se restringe a 20 dgitos significativos con 4 decimales

33

correspondiente haciendo las conversiones de tipo necesarias automticamente. Estas propiedades nos permiten acceder al contenido del campo al que est enlazado el componente, aunque el tipo de dato que pedimos no sea el correcto (mientras se pueda hacer la conversin). Por ejemplo, podemos pedir una fecha de un campo tipo Date como String, o ingresar un valor numrico como un string. Las conversiones necesarias se realizan automticamente, y en caso de no ser posibles se genera una excepcin. Ahora bien, Cmo se crean estos componentes? Hay dos maneras: llamando al mtodo FieldByName que poseen los Datasets (los componentes Table o Query, entre otros), o creando componentes en tiempo de diseo, de los cuales podremos ver sus propiedades y eventos en el Inspector de Objetos. Cada mtodo tiene sus ventajas y desventajas, que trataremos a su debido tiempo. Veamos un ejemplo concreto. Haremos que al presionar un botn se tome el contenido del campo Nombre de la tabla NOMBRES.DB que creamos anteriormente, y se muestre ese valor en el ttulo del form. Para esto crearemos un form con un componente Ttable, y enlazaremos este componente al archivo en disco. Coloquemos tambin un DataSource, una grilla y un navegador para poder ver los datos y movernos por los registros. Enlazamos todo como ya sabemos, y agregamos un botn para tomar el dato y ponerlo en la propiedad Caption del form. El evento OnClick del botn deber ser algo como esto:

procedure TForm1.Button1Click(sender:tObject); begin caption:= Table1.FieldByName('Nombre').AsString; end;

Como vemos, utilizamos el mtodo FieldByName pasndole como parmetro el nombre del campo. Esta funcin nos devuelve un componente de campo (un descendiente de Tfield, en el caso de este campo ser un TstringField porque el campo es de tipo Alfanumrico). Ahora bien, estos componentes tienen propiedades que nos permiten acceder al dato que han extrado del archivo: todas estas propiedades tienen nombres que comienzan con As..., de tal manera que nos indican qu tipo de datos aceptan (si se les asigna un valor) o devuelven (si se leen). En el ejemplo anterior necesitbamos el dato como un string, por lo que lo pedimos leyendo la propiedad AsString del componente creado por la llamada a FieldByName . Dado que en este caso el campo era de tipo alfanumrico, no fue necesaria ninguna conversin. Agreguemos ahora otro botn para poner en la barra de ttulo no el campo Nombre sino el campo Edad. Este campo es de tipo Entero, por lo que el componente creado ser una instancia de TintegerField.

procedure TForm1.Button2Click(sender:tObject); begin caption:= Table1.FieldByName('Edad').AsString; end;

Cuando corremos el programa, podemos ver que se muestra la edad del registro actual correctamente en la barra de ttulo del form. Esta vez, fue necesaria una conversin de nmero entero a string que fue realizada internamente. De la misma manera, podemos por ejemplo asignar un nuevo valor al campo Edad del registro actual tomndolo directamente de un editor (conversin de string a entero).

34

jercicio 2-8
Agregar al form del ejemplo anterior un editor y otro botn. Al presionar este nuevo botn se debe tomar el nmero escrito en el editor y ponerlo en el campo Edad.

)
Como siempre, antes de modificar el valor de un registro debemos poner la tabla en modo de edicin; y despus tenemos que aceptar (Post) o cancelar (Cancel) los cambios realizados. Las conversiones posibles se resumen en el siguiente cuadro:

Tipo tStringField

AsString

AsInteger Convierte a integer si es posible

AsFloat / AsCurrency Convierte a Float si es posible Convierte a Float

AsDateTime Convierte a DateTime si es posible No permitido

AsBoolean Convierte a Boolean si es posible No permitido

tIntegerField tSmallIntField tWordField tFloatField tCurrencyField tBCDField tDateTimeField tDateField tTimeField

Convierte a String

Convierte a String

Redondea al entero ms cercano No permitido Convierte la fecha a la cantidad de das desde el 01/01/0001. Convierte la hora a una fraccin de 24 hs.

No permitido

No permitido

Convierte a String

Si no se No permitido especifica la hora o la fecha valen cero.

tBooleanField

Convierte a No permitido string True o False Convierte a No permitido string (generalmente slo tiene sentido para los Memo)

No permitido

No permitido

tBytesField tVarBytesField tBlobField tMemoField tGraphicField NOTAS:

No permitido

No permitido

No permitido

35

C C

Tambin hay una propiedad llamada AsVariant, que funciona para todos los tipos de datos listados; como su nombre lo indica, trabaja con variables tipo Variant. El tipo Currency es igual al Float para la conversin, pero de precisin fija.

La funcin FieldByName crea un componente de campo y devuelve un puntero a l como resultado. No obstante, hay otra forma de crear los componentes de campo: como propiedades de la ficha en donde est la tabla.

Creacin de campos persistentes

Para crear los componentes de campo en tiempo de diseo (que llamaremos desde ahora campos persistentes o componentes de campo persistentes) y agregarlos como propiedades de la ficha que contiene la tabla, debemos hacer doble click en el icono de la tabla. Aparece la ventana del Editor de campos, que se ve en la figura 16. El navegador del editor de campos nos permite navegar por la tabla en tiempo de diseo.

Y dnde est el piloto... es decir, los comandos para crear los componentes de campo? Ocultos en un men contextual, que traemos a la vista como siempre con el botn derecho del ratn. Tenemos un comando para crear un componente para cada campo: Add all fields . Al invocarlo se crean todos los componentes como propiedades de la ficha actual. Cada componente de campo tiene propiedades y eventos, que ahora podemos ver en el Figura 16: El editor de campos Inspector de Objetos cuando seleccionamos uno en el editor. Notemos en especial la propiedad Name , que como de costumbre nos indica el nombre de la variable (propiedad, en este caso) creada para referenciar al componente. Por defecto se asignan nombres compuestos por el nombre de la tabla (por ejemplo, Table1) seguidos del nombre del campo sin espacios ni caracteres especiales. Por ejemplo, el campo Nro factura se referencia con el componente Table1NroFactura. Luego veremos otras propiedades de estos componentes; por ahora, presentamos algunos ejemplos para aclarar un poco las tormentosas nubes que nos tapan el sol de la maana.

Ejemplos C

Queremos poner el valor 01/04/1996" en el campo Fecha De Nacimiento del registro actual.

Suponiendo que creamos el objeto correspondiente al campo Fecha de Nacimiento y se llama Table1FechaDeNacimiento, podemos hacer
Table1FechaDeNacimiento.AsString:= '01/04/1996';

De la misma manera, para tomar el valor de la fecha y ponerlo en un string s, hacemos

36

s:= Table1FechaDeNacimiento.AsString;

Si queremos por ejemplo colocar la fecha actual en el campo Fecha de la factura:

Table1Fecha.AsDateTime:= Now;

Notemos que no hay propiedades AsDate o AsTime ; simplemente, los componentes se limitan a tomar en cuenta la parte que les interesa. C

Para asignar un valor a un campo memo podemos usar la propiedad AsString:

Table1Comentarios.AsString:= 'Esto es un comentario';

o tambin asignarle las lneas de un memo comn:

Table1Comentarios.Assign(Memo1.Lines);

Los campos de tipo Blob (Binary Large Objects) como ser el memo, graphic o binary poseen los mtodos LoadFromFile y SaveToFile para trabajar con archivos. Tambin poseen un mtodo Clear para limpiar el campo correspondiente. Por ejemplo 7 , para cargar un grfico en un campo de tipo Graphic, podemos una vez creado el componente de campo correspondiente utilizar sus mtodos. Recordemos en el ejemplo BiblioDB anterior, que trabajamos con el mtodo LoadFromFile pero del DBImage.Picture . Es decir, si tuviramos que cargar un grfico en un campo pero sin mostrarlo en pantalla, tendramos que usar igualmente un componente DBImage pero no visible. Una solucin ms sencilla y natural es utilizar un componente de campo para hacer la tarea. Comparemos las dos soluciones:

En BiblioDB:
procedure TForm1.Button1Click(Sender: TObject); begin if OpenPictureDialog1.Execute then begin Table1.Edit; DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName); end; end;

Con componentes de campo:

7

El ejemplo completo (Agenda Multimedia) se lista al final.

37

procedure TForm2.Button5Click(Sender: TObject); begin if OpenPictureDialog1.Execute then begin Table1.Edit; Table1Foto.LoadFromFile(OpenPictureDialog1.FileName); end; end;

Vemos que ahora el mtodo llamado al presionar el botn de Cargar corresponde al componente de campo (Table1Foto) en lugar del DBImage1. Lo mismo sucede con el botn de borrar la imagen. Lo nico necesario es llamar al mtodo Clear del componente de campo:
procedure TForm2.Button6Click(Sender: TObject); begin Table1.Edit; Table1Foto.Clear; end;

El ejemplo completo de la Agenda Multimedia es muy largo y complejo para mostrarlo aqu; por lo tanto posponemos el listado completo al final del captulo. En este programa se ve adems la utilizacin por programa del componente MediaPlayer, que tiene tambin sus vueltas.

La propiedad Fields Los campos de la tabla se mantienen en una propiedad de tTable llamada Fields . Es un array de objetos tipo tField o descendientes. De aqu que podemos acceder a un determinado campo con el ndice en el array, por ejemplo para leer el contenido del tercer campo como un string haramos
Table1.Fields[2].AsString:= 'Algun valor';

Notemos que el orden de los campos est determinado en la estructura de la tabla; si luego cambiamos la estructura desde el Database Desktop por ejemplo, la sentencia anterior no cambia y puede modificar un campo no deseado.

Determinar el aspecto de los datos

Los componentes de campo tienen propiedades que afectan al aspecto de los datos al ser presentados en pantalla. Las caractersticas de presentacin que podemos controlar dependen del tipo de datos que contiene el campo. Damos a continuacin una tabla de las propiedades utilizadas para controlar la presentacin de los datos,

38

indicando cuando sea necesario si son especficas para un tipo de dato:

Propiedad Alignment DisplayFormat

Tipo de campo Todos

Se utiliza para Alineacin horizontal

Ejemplos Para los nmeros usualmente se utiliza alRight (a la derecha) #.00 muestra un dgito (si existe) a la izquierda del punto; si no existe un dgito no pone nada, y dos dgitos a la derecha del punto, completando con ceros. dd/mm/yyyy dos dgitos para el da/dos dgitos para el mes/cuatro dgitos para el ao hh:mm hora con dos dgitos, dos puntos, minutos con dos dgitos

Numricos, fecha, Formato de presentacin hora cuando no est en edicin

DisplayLabel DisplayWidth EditMask

Todos Todos Fecha, hora, texto

Ttulo de columna en grillas* Ancho de columna en grillas* Mscara para edicin 99/99/0000 formato para fecha, dos nmeros opcionales / dos nmeros opcionales / cuatro nmeros requeridos #;(#);0"! Los nros. Positivos se muestran normalmente, los negativos entre parntesis y el cero con un signo de admiracin detrs

EditFormat

Numricos

Formato para edicin

Visible

Todos

Determina si el campo se ve o no en una grilla*

* Si se definen columnas para la grilla, estas propiedades no tienen efecto. No obstante, si los componentes de campo se crean antes que las columnas, stas toman los valores de las propiedades de los componentes. Los smbolos usados para las mscaras son diferentes para cada propiedad, desgraciadamente; y tambin son diferentes de las mscaras de edicin de Paradox. Se puede ver la lista completa en la ayuda.

Campos virtuales
Todos los componentes de campo con los que hemos trabajado hasta el momento se refieren a un campo real de una tabla fsica. Pero tenemos otras posibilidades: podemos crear campos virtuales, que no se corresponden con un campo de la tabla. Estos campos pueden representar por ejemplo un clculo entre otros campos o mostrar valores de una tabla mientras trabajamos con otra.

39

Los campos calculados son aquellos en los que mostramos el resultado de un clculo. Por lo tanto, no son editables. En los otros aspectos, son iguales a los campos reales: tienen las mismas propiedades, mtodos y eventos. Su contenido debe ser calculado en el programa, en un evento especial de la tabla que se denomina OnCalcFields . Este evento se produce cada vez que es necesario cambiar el contenido de los campos calculados, siempre que la propiedad AutoCalcFields de la tabla est en TRUE. Caso contrario, tendremos que activarlo nosotros mismos. Esto puede servir cuando hay muchos cambios a los datos, ya que por cada cambio se llama automticamente este evento. En este evento debemos calcular todos los valores necesarios, con cuidado de no modificar los campos comunes: esto provocara que se llame nuevamente al evento, entrando en un bucle recursivo con consecuencias generalmente desastrosas para la aplicacin. Vamos ya a un ejemplo. El seor Desparicio Temprano, dueo de la empresa Desparicio-nes Co. quiere facturar con la computadora, que para eso se la ha comprado pues. El programa debe cumplir los siguientes requerimientos: C C C C Se desea saber el Nro. de factura, el Tipo (A, B o C), la fecha y el cliente Cada factura no puede tener ms de cuatro tems (lneas) Por cada tem hay que guardar la Cantidad, Descripcin y Precio Unitario. Por cada tem hay que calcular el subtotal, y por cada factura el total general. Estos clculos deben ser dinmicos, es decir, actualizarse automticamente cuando el usuario cambia algn valor.

Dados estos requerimientos, podemos plantear la siguiente estructura para la tabla FACTURAS1.DB:

Nombre Nro factura Tipo Fecha Cliente Cant1 Desc1 PU1 Cant2 Desc2 PU2 Cant3 Desc3 PU3 Cant4

Tipo I A D A I A $ I A $ I A $ I

Longitud

Comentarios Clave primaria

Mnimo A, mximo C, por defecto C Por defecto: fecha de creacin de la factura

30 Por defecto: 1 40

40

40

40

Nombre Desc4 PU4

Tipo A $

Longitud 40

Comentarios

Ahora creamos en Delphi el formulario de Entrada, Modificacin y Baja de datos (ABM), como el de la figura 17. En esta ficha podemos ver varios componentes de campo. Hay un editor para cada campo, no creo que tengan problemas en localizar cada uno. Ahora bien, a qu campo estn enlazados los componentes DBText que aparecen a la derecha? Estos componentes estn ah para mostrar el subtotal de cada lnea. Como habrn adivinado, para cada uno vamos a definir un campo calculado. Para definir los campos calculados debemos entrar al editor de campos, haciendo doble click en el icono de la Figura 17: El formulario de ABM de la tabla Facturas1.db tabla. A continuacin invocamos el men contextual y seleccionamos la opcin New Field, que nos trae a la pantalla el dilogo de creacin de nuevo campo (fig. 18). En esta ventana definimos las caractersticas de nuestro campo virtual. En la Fig. 18 vemos los datos correspondientes al primero de nuestros campos calculados, el Subtotal para la linea 1. Lo llamamos ST1 8 (el componente se llama Table1ST1) y especificamos el tipo de datos que trabaja (Currency) y el tipo de campo (Calculated, calculado). Los dems datos no se aplican a este caso.

Bueno, pues manos a la tecla! La creacin de los otros tres campos calculados ST2, ST3 y ST4 queda para Uds. Es indispensable que lo hagan antes de continuar.

Figura 18: Cuadro de dilogo para definir un nuevo campo calculado

Ahora si, vamos a dar valor a estos campos. Para ello, disponemos como dijimos arriba de un evento en el componente Ttable llamado OnCalcFields . En l debemos asignar un valor a cada campo calculado inclusive podemos asignar valores a otros componentes o hacer otros clculos, siempre que no modifiquemos

Un alarde de imaginacin y creatividad!

41

un componente no calculado. En nuestro caso, se puede calcular el valor correspondiente a ST1 como el valor del campo Cant1 multiplicado por el valor del campo PU1:
Table1ST1.AsCurrency:= Table1Cant1.AsInteger * Table1PU1.AsCurrency;

Lo mismo para los dems, por supuesto. Ms an: despus de calcular todos los subtotales, podemos aqu mismo calcular el total general sumando todo. El objetivo del Label9 que veamos en la ficha es justamente mostrar ese total general. La ltima lnea entonces del evento OnCalcFields es
Label9.Caption:= FloatToStr(Table1ST1.AsCurrency + Table1ST2.AsCurrency + Table1ST3.AsCurrency + Table1ST4.AsCurrency);

Queda para el afanoso lector la tarea de completar este evento y probar la aplicacin.

Campos y componentes de bsqueda (Lookup)

Ahora bien, el seor Desparicio Temprano no es capaz de escribir un nombre dos veces igual; as, nos encontramos con varias facturas con clientes como Perez, Prez, Peres, etc. Todos distintos a la hora de buscar por cliente. Por lo tanto, decidimos guardar los datos de los clientes en otra tabla (y aprovecharemos para guardar algo ms que el nombre) como nuestra ya famosa agenda. Y en la factura, nicamente dejar al usuario que elija uno de los nombres que ya estn ingresados. Para esto tenemos disponible un tipo de campo especial: el tipo Lookup o campo de bsqueda. Bsicamente, los campos de bsqueda son como los polticos: muestran algo que no es lo que contienen. Se enlazan con dos tablas, una de donde sacan los datos para mostrar (en una lista) y la otra es donde dejan el valor correspondiente al dato elegido por el usuario. Estos campos son principalmente para su uso con una grilla. Cuando entramos a editar un campo de este tipo en una grilla la celda se transforma en un ComboBox, que muestra los datos de la tabla secundaria. Cuando no usamos una grilla, tenemos dos componentes especiales para la misma tarea: el DBLookupComboBox y el DBLookupListBox. Los llamaremos genricamente Controles de bsqueda. En todos los casos, necesitamos dos tablas. Una de ellas ser la depositaria de la eleccin del usuario, mientras que la otra proveer los datos para mostrar como opciones entre las cuales elegir. Luego, el funcionamiento es sencillo: cada vez que el valor del campo principal cambia, el componente busca el nuevo valor en la tabla secundaria (por un campo declarado como clave para la bsqueda) y muestra el valor de otro campo de la tabla secundaria en su lugar. As por ejemplo podemos tener en la tabla principal los nmeros de DNI y ver en cambio los nombres. Utilizaremos en el ejemplo de la factura un componente DBLookupComboBox para traer el nombre del cliente desde la tabla de agenda creada anteriormente. Hay varias propiedades a tener en cuenta cuando usamos un componente DBLookupComboBox: C C DataSource, DataField: como siempre, indican el destino de los datos que ingresemos (tabla primaria). ListSource: el nombre de la fuente de datos (componente DataSource) que proveer el contenido de la lista de opciones (tabla secundaria).

42

KeyField: el nombre del campo de la tabla secundaria (aquella referenciada por la fuente de datos ListSource) en donde se buscar una coincidencia con el campo principal (DataField). El valor de este campo es el que se guarda en la tabla principal. ListField: el campo de la tabla secundaria que aparecer en la lista. Se puede especificar una lista de campos (en la lista aparecern varias columnas), que entonces debemos escribir a mano separando cada uno con ; (punto y coma). ListFieldIndex: en caso que utilicemos ms de un campo en la propiedad ListField, debemos seleccionar uno para que aparezca en la parte de texto del ComboBox. Adems, en las bsquedas incrementales se utilizar este campo. La propiedad ListFieldIndex es el nmero de campo de los listados en ListField.

En nuestro ejemplo, vamos a mostrar en la lista del ComboBox los campos DNI, Apellido y Nombre y Direccion para tener una buena idea de quin es nuestro cliente. De estos campos, mostraremos el apellido y nombre. El campo de la tabla principal es el campo Cliente, que enlazaremos con el campo Apellido y Nombre de la tabla secundaria. En este caso, los campos de bsqueda y de resultado son del mismo tipo (ambos son cadenas de caracteres), pero no es obligatorio que sea asi. Bueno, basta de chchara. Las propiedades que tenemos que especificar en el componente DBLookupComboBox son entonces: DataSource: la fuente de datos principal (enlazada con la tabla Facturas1.db) DataField: Cliente ListSource: la fuente de datos secundaria, enlazada con la tabla Agenda.db. KeyField: Nombre y Apellido ListField: DNI;Apellido y nombre;Direccion ListFieldIndex: 1 Ahora al correr el programa, el usuario no puede escribir en el ComboBox, slo seleccionar un dato de la lista (Fig. 19) NOTA: es posible que la lista sea muy angosta para mostrar todas las columnas; por defecto toma el ancho del ComboBox. Podemos especificar el tamao de la lista con las propiedades DropDownRows (cantidad de lneas Figura 19: El usuario no puede escribir el nombre del a mostrar en la lista) y DropDownWidth (ancho cliente directamente, debe seleccionarlo en la lista total de la lista).

Claro que el no poder escribir un nuevo nombre puede ser un poco engorroso; normalmente pondremos tambin un botn para permitir el ingreso de los datos de un nuevo cliente. En el programa Facturas1 completo se puede ver la tcnica. Para definir un campo de bsqueda, debemos seguir los mismos pasos que para definir un campo calculado: esto es, en el Editor de Campos pedimos la creacin de un nuevo campo con el men contextual, le damos nombre, tipo de dato y longitud. Pero esta vez ser un campo de tipo Lookup, con lo que se nos habilitan los controles de la parte inferior del cuadro de dilogo. Estas son las propiedades equivalentes a aquellas que tuvimos que cambiar para el DBLookupComboBox:

43

Control de bsqueda Tabla principal Campo principal Tabla secundaria Campo de bsqueda Campo de resultado DataSource DataField ListSource KeyField ListField

Campo de bsqueda El dataset sobre el que est definido El mismo LookupDataSet LookupKeyFields LookupResultFields

La definicin del campo BusCliente quedara como se ve en la figura 20.

Figura 20: definicin de un campo de bsqueda NOTA: por ms que el campo de bsqueda acepta la especificacin de mltiples campos en la lista, no tenemos una forma de seleccionar cul de ellos se devolver como resultado (lo que en los controles de campo era funcin de la propiedad ListFieldIndex). Por lo tanto, si especificamos mltiples campos como LookupResultField nos encontraremos con un bonito mensaje de error.

<<<Modificar el ejemplo para que tambin utilice el campo Lookup en una grilla>>>

Haremos un ejemplo completo con campos calculados y campos de bsqueda despus de ver tablas relacionadas.

Cambiar el ndice activo

Las tablas utilizan por defecto el ndice principal, formado por los campos de la clave principal. Pero muchas veces ser necesario utilizar otro ndice distinto, lo que Paradox llama ndice secundario. Recordemos que el ndice determina el orden en que se muestran los registros, y tambin permiten una bsqueda rpida.

44

Slo un ndice puede estar activo a la vez. El nombre de este ndice aparece en la propiedad IndexName del componente de tabla (los componentes Query no tienen esta propiedad porque trabajan con una tabla virtual). Si esta propiedad est en blanco, se utiliza el ndice principal. Supongamos que queremos ver las facturas que hemos ingresado, pero ordenadas por tipo para que aparezcan todas las de tipo 'A', luego las 'B' y luego... sabr el lector dilucidar la letra que viene despus? Creamos entonces un ndice secundario sobre la tabla Facturas1, con el campo Tipo como nico elemento. Lo guardamos como iTipo. Ahora en Delphi, creamos una nueva aplicacin y colocamos los consabidos Table, DataSource y DBGrid. Enlacemos todo y activemos la tabla, para ver inmediatamente los datos. Cul es el orden de los registros? Por qu? Cul es el ndice activo? Exacto, el ndice activo es el principal; por lo tanto, los registros aparecen ordenados por Nro factura. Para cambiar el ndice podemos abrir la lista de la propiedad IndexName del componente Table (Fig. 21). Aparecer el nuevo ndice que hemos definido: iTipo. Seleccionamos este, y voil! los datos se reordenan automticamente en la grilla. Fcil, no? No todo es color de rosa... si no, sera muy aburrida la vida! Recordemos que el uso de los ndices secundarios se debe pensar con cuidado. Para volver al ndice principal, simplemente asignamos la cadena vaca a la propiedad IndexName (o borramos la casilla correspondiente en el Inspector de Objetos). Figura 21: Seleccin de un nuevo ndice activo

Busque, Sultn, busque!

Una de las operaciones bsicas a realizar sobre cualquier tabla es la bsqueda. Delphi nos ofrece varios caminos posibles:

El mtodo FindKey (componente tTable)

Busca la primera ocurrencia exacta de los valores buscados. Los campos sobre los que se trabaja deben ser los primeros en el ndice activo. Es una funcin que devuelve un valor lgico verdadero si se encuentra un registro coincidente (y el cursor en la tabla queda posicionado sobre ese registro) o falso en otro caso (y el cursor no se mueve). Esta funcin espera como parmetro un array de valores. Esto es, una lista con los valores a buscar. Estos valores deben estar especificados en el orden correspondiente segn el ndice activo. Por ejemplo, si el ndice est formado por los campos Fecha y NumCliente, podemos buscar un registro particular con la siguiente instruccin:
FindKey(['10/10/1998',8])

que nos devuelve un valor lgico verdadero si lo encuentra -y posiciona la tabla en ese registro- o bien

45

devuelve falso y deja la tabla en la posicin que estaba. Notemos que al momento de especificar los valores, si es necesaria alguna conversin Delphi la hace automticamente.

El mtodo FindNearest (tTable)

Es similar al anterior, slo que no devuelve nada (es un procedimiento). Si el registro buscado se encuentra, se posiciona el cursor de la tabla sobre el mismo. Caso contrario, se ubica el cursor en el lugar donde debera estar el registro si existiera. Este procedimiento espera como parmetro tambin una lista de valores, igual que FindKey.

Ambos mtodos trabajan con el ndice activo; slo se puede buscar con estos mtodos en los campos del ndice. Y en el orden que aparecen estos campos en el ndice: por ejemplo, si en el ndice tenemos primero el campo NumCliente y luego el campo Fecha entonces los valores se deben listar en ese orden en la llamada al mtodo. Esto indica la necesidad de definir ndices secundarios por cada campo o combinacin de campos que vayamos a utilizar para bsqueda; teniendo en cuenta que los ndices secundarios deben ser automantenidos y que son generalmente muy grandes -a veces ms que la tabla misma, vemos que hay que buscar una solucin de compromiso entre la sobrecarga del sistema con muchos ndices y las posibilidades de bsqueda. Tambin hay que tener en cuenta que con estos mtodos se encuentra el primer registro que cumpla los requisitos; si hay ms de uno, debemos usar otro mtodo. Estas consideraciones nos llevan a otros mtodos de bsqueda, tal vez ms flexibles pero ms lentos, que trataremos ms adelante.

Veamos algunos ejemplos.

Ejemplo 1 Buscar en la tabla de nombres un registro con el nombre 'Eduardo Prez'

if Table1.FindKey(['Eduardo Prez']) then ShowMessage('Encontrado!') else ShowMessage('No encontrado');

Ejemplo 2 Buscar en la tabla de nombres un registro que empiece con 'E' y mostrar el nombre encontrado.
Table1.FindNearest(['E']);

46

Si no se encuentra un registro que empiece con 'E', el cursor se ubicar en la posicin donde debera estar tal registro.

Ejemplo 3 Buscar en la tabla de nombres una persona de nombre 'Eduardo Prez' y direccin 'Almafuerte 9287'. La tabla se llama TableNombres y los objetos de campo estn creados con los nombres TableNombresNombreYApellido y TableNombresDireccion respectivamente.
If Table1.FindKey(['Eduardo Prez','Almafuerte 9287']) then ShowMessage('Encontrado!') else ShowMessage('No encontrado');

Ejemplo 4 Buscar en la tabla de nombres el primer registro que tenga fecha de nacimiento posterior al 1/1/1960. La tabla se llama Table1 y el ndice secundario por fecha de nacimiento es 'iFecha';

Table1.IndexName:= 'iFecha'; table1.FindNearest(['1/1/1960']);

Ahora la tabla queda posicionada en el registro buscado o en el lugar donde debera estar.

Ejemplo 5 Hacer un programa con bsqueda secuencial; es decir, a medida que se va escribiendo un nombre en un editor se debe ir buscando en la tabla. Para ello escribimos en el evento OnChange del editor lo siguiente:

procedure tForm1.Edit1Change(sender:tObject); begin Table1.FindNearest([edit1.text]); end;

De esta manera, cada vez que cambia el contenido del editor se busca nuevamente una coincidencia (no exacta) en la tabla. Esto nos permite encontrar rpidamente lo que buscamos, escribiendo generalmente slo las primeras letras. Qu pasara si usamos FindKey en lugar de FindNearest en el ejemplo 5?

47