Lazarus Tdbf Tutorial/es

From Lazarus wiki
Revision as of 14:37, 29 October 2015 by Jma sp (talk | contribs) (→‎Resumen)
Jump to navigationJump to search

Deutsch (de) English (en) español (es) français (fr) português (pt) русский (ru) 中文(中国大陆)‎ (zh_CN)


Resumen

   Esta tutoría trata sobre el desarrollo elemental de bases de datos usando el componente TDbf (de Micha Nelissen) con Lazarus. Hay disponible documentación adicional para TDbf. Esta página fue creada por Tony Maro, pero ¡se agradecen otras colaboraciones!

   En Lazarus, el componente DbfLaz utiliza el código de FPC TDbf.


Documentación

   Para documentación de TDbf en PDF ir a SourceForge. Puede ser útil tener este pdf junto con este documento durante su lectura.

Este artículo sirve como documentación adicional para nuevas características respecto a la documentación original.

Alternativas y problemas conocidos

   Alternativas para bases de datos embedias tales como Firebird embebido (ventaja: fácilmente escalable para cliente / servidor), SQLite (ventaja: fácil implementación), o ZMSQL (usa archivos CSV; ventaja: sólo necesita código Pascal).

   Problemas conocidos: El código TDbf careció de mantenedor por largo tiempo. Actualmente (marzo de 2013), tanto el proyecto upstream de Sourceforge (centrado en Delphi) como los desarrolladores de bases de datos FPC están de nuevo para arreglar errores de TDbf. Los errores corregidos en el trunk de FPC necesitarán fusionarse con la versión de SourceForge y viceversa.

Incidencias actuales: por favor ver bugs en el seguimiento de errores, especialmente http://bugs.freepascal.org/view.php?id=22177

   Cuestiones actuales: por favor ver los errores en el gestor de fallos, especialmente http://bugs.freepascal.org/view.php?id=22177 en procesadores ARM, el código TDbf se sabe que no funciona debido a problemas de alineación del bús. El código TDbf necesitaría una reescritura; por supuesto, los parches son bienvenidos.

Lo que necesitarás

   El componente TDbf viene con FPC y por tanto con Lazarus.    También necesitarás instalar el paquete DbfLaz que trae Lazarus. Está situado en la carpeta lazarus/components/tdbf/.

¿Qué se puede hacer con TDbf?

   El componente TDbf proporciona a Lazarus (y otros entornos) acceso a tablas dBase y FoxPro. Permite la lectura, escritura y creación de tablas dBase III+, dBase IV, Visual dBase VII y FoxPro. Y sin necesitar librerías o gestores de bases de datos adicionales. Simplemente ponga el componente TDbf en su formulario y tendrá acceso inmediato a un entorno de bases de datos de para múltiples plataformas. TDbf funciona tanto en Windows como en Linux usando Lazarus.

Cómo crear una nueva tabla

   Como no hay todavía una aplicación "Database Desktop" para Lazarus, debemos crear las tablas de la base de datos mediante código, o utilizando herramientas externas.

Puedes probar esta aplicación (windows - funciona con wine): http://www.dirfile.com/cdbf_explorer.htm

Establecer la ruta de acceso

   Es recomendable crear una carpeta para sus aplicaciones de bases de datos. Esto simplifica la realización de copias de seguridad de los datos. Hay dos maneras de establecer la ruta de acceso. Puede fijar la ruta completa usando la propiedad FilePathFull, o puede establecer una ruta relativa a la ruta del programa con FilePath. Por ejemplo, estableciendo "FilePath" en tiempo de ejecución a "datos/" utilizaría una subcarpeta de datos dentro de la carpeta del archivo ejecutable. Fijar la propiedad "FilePathFull" a "/var/datos/" colocaría todo en esa carpeta, no teniendo en cuenta la ubicación del programa.

Elegir un tipo de tabla con TableLevel

   Por omisión, TDbf creará tablas dBase IV. Aunque son muy compatibles, hay características que puede desear usar que no están disponibles. Para poder utilizar campos autoincrementales, debe usar algo más nuevo. Los tipos de tabla posibles son:

Tipos de tablaTableLevel
dBase III+3
dBase IV4
Visual dBase VII7
FoxPro25


   Para elegir un tipo de tabla de el valor adecuado a la propiedad TableLevel.

Añadir campos

   La creación de campos para su nueva tabla en tiempo de ejecución se realiza como en Delphi. Una vez establecidas las propiedades FilePath, TableLevel, y TableName, hay que utilizar la propiedad FieldDefs para determinar su estructura. Por ejemplo:

 MyDbf.FilePathFull := '/ubicacion/para/mis/datos';
 MyDbf.TableLevel := 7;
 MyDbf.TableName := 'clientes.dbf'; // nota: ¿es realmente necesario .dbf?
 With MyDbf.FieldDefs do begin
   Add('Id', ftAutoInc, 0, True);
   Add('Nombre', ftString, 80, True);
 End;

   Los tipos de campo definidos son:

  • ftUnknown
  • ftString
  • ftSmallInt
  • ftInteger
  • ftWord
  • ftBoolean
  • ftFloat
  • ftCurrency (TableLevel 25)
  • ftBCD (TableLevel 25)
  • ftDate
  • ftTime
  • ftDateTime
  • ftBytes (TableLevel 25)
  • ftVarBytes
  • ftAutoInc (TableLevel 7 or 25)
  • ftBlob
  • ftMemo
  • ftGraphic
  • ftFmtMemo
  • ftParadoxOle
  • ftDBaseOle
  • ftTypedBinary
  • ftCursor
  • ftFixedChar
  • ftWideString
  • ftLargeInt
  • ftADT
  • ftArray
  • ftReference
  • ftDataSet
  • ftOraBlob
  • ftOraClob
  • ftVariant
  • ftInterface
  • ftIDispatch
  • ftGuid
  • ftTimeStamp
  • ftFMTBcd

   Los tipos que aparecen en negrita son los soportados en la actualidad.

¡Siga adelante y créela!

   Una vez que ha definido los campos deseará usarlos en su nueva tabla, puede seguir adelante y crearla con:

 MyDbf.CreateTable;

Añadir índices a una tabla

   Si su base de datos es bastante grande, deberá definir índices para hacer búsquedas más rápidas. Para cambiar la estructura de índices de una tabla, deberemos tener acceso exclusivo a la tabla -mientras los creamos.

 MyDbf.Exclusive := True;
 MyDbf.Open;

   Justo ahora, tenemos que añadir el índice.

 MyDbf.AddIndex('clienteid', 'Id', [ixPrimary, ixUnique]);
 MyDbf.AddIndex('nombrecliente','Nombre', [ixCaseInsensitive]);
 MyDbf.Close;

Lo unimos todo y ... ¡ya está!

   El siguiente ejemplo crea una tabla "clientes" mediante código. Esto, por supuesto, sólo es necesario hacerlo una vez para cada tabla, y de ahí en adelante, abrir la tabla, no crearla ;-)

 {Necesitamos que las siguientes unidades aparezcan en la clásula USES:}
 uses {otras unidades, } Dbf, db, Dbf_Common;
 { "Dbf" aparecerá, automáticamente, cuando pongamos el componente TDbf en el formulario...   }
 { pero necesitamos la unidad "db" para el objeto DataSet
 { y la unidad "Dbf_Common" para las definiciones de tipos de campo, por ejemplo        }
 var
   MyDbf: TDbf;
 begin
   MyDbf := TDbf.Create(nil);
   try
     
     MyDbf.FilePath := 'datos/';    // usamos una ruta de acceso relativa para la carpeta "datos"
     MyDbf.TableLevel := 7;         // utilizaremos tablas de tipo "Visual dBase VII"
     MyDbf.Exclusive := True;       // imprescindible para poder modificar la estructura añadiendo campos
     MyDbf.TableName := 'clientes.dbf';
     With MyDbf.FieldDefs do begin
       Add('Id', ftAutoInc, 0, True);
       Add('Nombre', ftString, 80, True);
     End;
     MyDbf.CreateTable;
     MyDbf.Open;
     MyDbf.AddIndex('clienteid', 'Id', [ixPrimary, ixUnique]);
     { añadimos un índice secundario }
     MyDbf.AddIndex('nombrecliente','Nombre', [ixCaseInsensitive]);
     MyDbf.Close;
   finally
     MyDbf.Free;
   end;

Archivos índice externos

   El componente TDBF también soporta índices secundarios que se almacenan en un archivo separado. Esto será útil cuándo la base de datos sea muy grande, al poder separar en varios archivos los distintos índices. Los archivos de índice secundarios se crean de forma muy parecida a los índices normales, pero con la adición de la extensión '.ndx ' en el nombre:

 MyDbf.AddIndex('nombrecliente.ndx','Nombre', [ixCaseInsensitive]);

   Estos índices no se gestionan de forma automática, por ello cada vez que se abre la tabla, se deberán cargar los archivos de índice que deseamos utilizar, usando el método OpenIndexFile, así:

 MyDbf.OpenIndexFile('nombrecliente.ndx');

   Por la misma razón los índices se empaquetan por separado, para ello utilizaremos el método CompactIndexFile, de esta forma:

 MyDbf.CompactIndexFile('nombrecliente.ndx');

   Y al dar el valor a la propiedad IndexName, para seleccionar el que estará activo, debemos incluir el nombre y la extensión:

 MyDbf.IndexName := 'nombrecliente.ndx';

Cómo enlazar TDbf a componentes de datos

   Los ejemplos anteriores muestran como crear una nueva tabla de base de datos mediante código. Usar la tabla es aún más simple.

   Los componentes de acceso a datos en Lazarus (como TDBEdit y TDbNavigator por ejemplo) se vinculan a un componente TDataSource mediante las propiedades DataSource y DataField. El componente TDataSource controla la comunicación entre el gestor de bases de datos y los componentes de acceso a datos. Un TDataSource se vincula al componente TDbf mediante su propiedad DataSet. La conexión sería así:

 TDbEdit------\
              |
 TDbEdit------|-->TDataSource-->TDbf
              |
 TDbNavigator-/

   No olvides establecer las propiedades FilePath (o FilePathFulll), TableLevel, y TableName del componente TDbf a los valores adecuados antes de activarlos mediante

 TDbf.Active := True;

   Se podría decir mucho más sobre programación con bases de datos en Lazarus, y yo recomendaría un buen libro de programación de bases de datos con Delphi porque los conceptos fundamentales son los mismos. Constantemente hago referencia a mi ejemplar de "Liberado Delphi 2" porque los conceptos y el código básico no han cambiado mucho en 8 años.

Empaquetar y reconstruir índices

   Cuando se borra un registro, realmente no desaparece físicamente del archivo que guarda la tabla. De vez en cuando debe empaquetar la tabla para eliminar realmente los registros y así recuperar ese espacio desaprovechado del archivo. Esto hay que hacerlo teniendo la tabla abierta en modo exclusivo.

 MyDbf.Exclusive := True;
 MyDbf.Open;
 MyDbf.PackTable;
 // reconstruimos todos los índices
 MyDbf.RegenerateIndexes;
 MyDbf.Close;
 MyDbf.Exclusive := False;

Relaciones de tabla principal

   La verdadera potencia de la programación de bases de datos comienza cuando tenemos múltiples tablas que se hacen referencia mutuamente. Mientras que TDbf aún no soporta la integridad referencial, si soporta una relación del tipo maestro/detalle entre componentes TDbf.

   Cuando hay dos tablas relacionadas, por ejemplo:

 [clientes]
 Id       <----\
 Nombre        |
 Telefono      |
 Direccion     |
               |  ClienteID en facturas hace referencia a un campo primario de clientes
 [facturas]    |
 Id            |
 Importe       |
 ClienteID   --\---|  * Campo indexado como "idxclienteid"

   Si desea mostrar todas las facturas para un cliente determinado, la tabla detalle (facturas) puede sincronizarse con la tabla principal (clientes) automáticamente.

   En el componente TDbf de facturas seleccione lo siguiente:

 InvDbf.IndexName := 'idxclienteid'; // campo que se emparejará con el campo ID de la tabla clientes                                     
 InvDbf.MasterSource := dsClientes;  // fuente de datos que se enlaza al componente TDbf de clientes
 InvDbf.MasterFields := 'Id';        // campo en la tabla clientes que emparejamos con nuestro índice

Cómo filtrar las Fechas vacías

   Voy a mostrar aquí como podemos filtrar las fechas en blanco con el componente de Lazarus TDbf.

   Considérese que en este ejemplo, el componente se denomina datos dbf1 y la base de datos tiene un campo, DT_ENCERRA, que indica cuando el caso se completó. Imagina también que necesitas crear un informe utilizando LazReport que enumera todos los casos que siguen pendientes, con el campo DT_ENCERRA en blanco.

   La forma más sencilla de hacerlo es utilizando el controlador de eventos OnFilterRecord y poner el siguiente código:

 if not dfb1.FieldByName('DT_ENCERRA').IsNull then Accept := False;

   Cuando ponemos el valor de Accept a False todos los registros que no cumplen con esa condición particular, no se tienen en cuenta, es decir, no se muestran en el informe.

   También es necesario poner la propiedad Dbf1.Filtered a True, pero fuera de este evento.

 dfb1.Filtered := True;

Cómo filtrar un valor con TDbf

   Supón que tienes una base de datos que identifica los productos con un código, por ejemplo, B019, y es necesario filtrar sólo aquellos productos que son de este código (B019, en este ejemplo) de manera que se genera un informe con LazReport. El componente se llama Dbf1. El campo que almacena el valor es "product_no"

   Tenemos dos maneras de filtrar. La primera sería la de utilizar el siguiente código:

 Dbf1.filter:= 'product_no "=" B019 "';

   Resulta que esto funciona muy bien con varios componentes, pero no funciona con LazReport.

   Para resolver el problema con LazReport puede utilizar el controlador de eventos OnFilterRecord y utilizar el siguiente código:

 Accept:= Copy(Trim(Dbf1.FieldByName('product_no').AsString),1,4)='B019';

   También es necesario poner la propiedad Dbf1.Filtered a True, pero fuera de este evento.

   Como se dijo antes, cuando el valor de Accept es false los registros no se tienen en cuenta y de esta manera puede evitar mostrar todos los productos con ese código en el informe LazReport

Programa de ejemplo - navegador DB

   He escrito un programa sencillo que utiliza el componente TDbf para abrir y mostrar tablas de bases de datos mediante el control dbGrid. El ejecutable Linux, junto con las fuentes del proyecto, que debería compilarse bien en Windows, está disponible en

 tony.maro.net

A tener en cuenta

   Actualmente no se soporta la integridad referencial, ni los archivos .db encriptados internamente.