Difference between revisions of "Lazarus Tdbf Tutorial/es"

From Lazarus wiki
Jump to navigationJump to search
m (Fixed syntax highlighting)
 
(44 intermediate revisions by 7 users not shown)
Line 3: Line 3:
  
  
==Resumen==
+
== Resumen ==
  
   Este tutorial 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 [[User:Tonymaro | Tony Maro]], pero ¡se agradecen otras colaboraciones!
+
   Esta tutoría trata sobre el desarrollo elemental de bases de datos usando el componente [http://tdbf.sf.net TDbf] (de Micha Nelissen) con Lazarus. Hay disponible documentación adicional para TDbf. Esta página fue creada por [[User:Tonymaro | Tony Maro]], pero ¡se agradecen otras colaboraciones!
  
===Lo que necesitarás===
+
   En Lazarus, el componente DbfLaz utiliza el código de FPC TDbf.
 Sin duda pronto será más fácil cuando aparezca la próxima versión 2.0 de Free Pascal, sin embargo, entre tanto, necesitará una versión reciente de CVS de FPC 1.9.X para usar adecuadamente el componente TDbf. Se puede descargar sólo el componente TDbf y usarlo con la versión 1.1 de FreePascal, sin embargo, este documento fue escrito pensando en la 1.9.X, en parte debido a correcciones en otros componentes de bases de datos usados en Lazarus.
 
   (Nota del revisor: desde 2007/09/10 está disponible la versión 2.2.0 de FPC. LA RC1 de la 2.2.2 está disponible para pruebas)
 
  
   También necesitará instalar el paquete DbfLaz que trae Lazarus. Está situado en la carpeta lazarus/components/tdbf/.
+
 
 +
 
 +
=== Documentación ===
 +
 
 +
   Para documentación de TDbf en PDF ir a [https://sourceforge.net/project/showfiles.php?group_id=34085&package_id=26371  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
 +
 
 +
==== Limitaciones ====
 +
 
 +
* TDBF establece la codificación de la base de datos basándose en las configuraciones del lenguaje del sistema operativo (puedes establecer el tuyo estableciendo LanguageID; ver documentación). Mover una de estas bases de datos a un computador que no soporta dicha codificación puede ocasionar que la base de datos se quede como de solo lectura. ''Nota: investigar cuando esto se aplica a Tablelevel 7 (Visual DBase) y 25/30 (Foxpro/Visual Foxpro)''
 +
 
 +
* Ninguno de los formatos DBF utilizados soporta codicación Unicode (si UTF-8, UTF-16 o UTF-32). Podría haber una solución utilizando campos binarios, pero entonces perderiamos habilidades de reordenación, etc.
 +
 
 +
* El indexado de un fichero DBase con [ixCaseInsensitive] no funciona actualmente.
 +
* No soporta todavía integridad referencial en formatos de fichero que si lo soportan (DBase VII, Visual FoxPro).
 +
* No soporta (ahora o bien para siempre) encriptación interna de ficheros .dbf: el mecanismo de encriptación de DbaseIV es bastante debil de todos modos. Por favor utiliza uno de los métodos de encriptación que se mencionan más abajo.
 +
 
 +
FPC 2.6.x y anteriores:
 +
* En procesadores ARM, el códigoTDBF es sabido que no funciona debido a incidencias de alineación de bus. Esto está siendo addressed en la versión de desarrollo/trunk.
 +
* Escoger el tablelevel (25) de FoxPro generará ficheros que no se podrán leer mediante drivers Visual Foxpro. Esto se ha solucionado en la versión de desarrollo/trunk de FPC.
 +
 
 +
=== No necesita instalación ===
 +
 
 +
  El paquete DbfLaz (dbflaz.lpk) viene instalado por defecto tanto en FPC como en Lazarus. Este paquete utiliza TDbf y sus unidades asociadas en Free Pascal Free Component Library. En otras palabras, no es necesario instalar nada si tienes justamente una versión reciente de Lazarus. Está situado en la carpeta lazarus/components/tdbf/.
  
 
===¿Qué se puede hacer con TDbf?===
 
===¿Qué se puede hacer con TDbf?===
Line 18: Line 48:
 
==Cómo crear una nueva tabla==
 
==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.
+
   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===
 
===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.
+
   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.
  
===  Eligir un tipo de tabla con ''TableLevel''===
+
===  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:
+
   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:
  
*3 dBase III+
+
<center><table style="text-align: center; " border="1">
*4 dBase IV
+
    <tr>      <td>Tipos de tabla</td><td>TableLevel</td></tr>
*7 Visual dBase VII
+
    <tr>      <td>dBase III+</td><td>3</td></tr>
*25 FoxPro
+
    <tr>      <td>dBase IV</td><td>4</td></tr>
 +
    <tr>      <td>Visual dBase VII</td><td>7</td></tr>
 +
    <tr>      <td>FoxPro</td><td>25</td></tr>
 +
</table></center>
  
Para elegir un tipo de tabla seleccione apropiadamente la propiedad TableLevel.
+
 
 +
&nbsp;&nbsp;&nbsp;Para elegir un tipo de tabla de el valor adecuado a la propiedad TableLevel.
  
 
=== Añadir campos===
 
=== 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:
+
&nbsp;&nbsp;&nbsp;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:
 
+
<syntaxhighlight lang=pascal> MyDbf.FilePathFull := '/ubicacion/para/mis/datos';
MyDbf.FilePathFull := '/ubicacion/para/mis/datos';
 
 
  MyDbf.TableLevel := 7;
 
  MyDbf.TableLevel := 7;
 
  MyDbf.TableName := 'clientes.dbf'; // nota: ¿es realmente necesario .dbf?
 
  MyDbf.TableName := 'clientes.dbf'; // nota: ¿es realmente necesario .dbf?
Line 42: Line 77:
 
   Add('Id', ftAutoInc, 0, True);
 
   Add('Id', ftAutoInc, 0, True);
 
   Add('Nombre', ftString, 80, True);
 
   Add('Nombre', ftString, 80, True);
  End;
+
  End;</syntaxhighlight>
  
Los tipos de campo definidos son:
+
&nbsp;&nbsp;&nbsp;Los tipos de campo definidos son:
  
 
*    ftUnknown
 
*    ftUnknown
Line 85: Line 120:
 
*    ftFMTBcd
 
*    ftFMTBcd
  
Los tipos que aparecen en negrita son los soportados en la actualidad.
+
&nbsp;&nbsp;&nbsp;Los tipos que aparecen en negrita son los soportados en la actualidad.
  
 
===¡Siga adelante y créela!===
 
===¡Siga adelante y créela!===
Una vez que ha definido los campos deseará usarlos en su nueva tabla, puede seguir adelante y crearla con:
+
&nbsp;&nbsp;&nbsp;Una vez que ha definido los campos deseará usarlos en su nueva tabla, puede seguir adelante y crearla con:
 
+
<syntaxhighlight lang=pascal> MyDbf.CreateTable;</syntaxhighlight>
    MyDbf.CreateTable;
 
  
 
==Añadir índices a una tabla==
 
==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.  
+
&nbsp;&nbsp;&nbsp;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;
+
<syntaxhighlight lang=pascal> MyDbf.Exclusive := True;
        MyDbf.Open;
+
MyDbf.Open;</syntaxhighlight>
  
Justo ahora, tenemos que añadir el índice.
+
&nbsp;&nbsp;&nbsp;Justo ahora, tenemos que añadir el índice.
  
        MyDbf.AddIndex('clienteid', 'Id', [ixPrimary, ixUnique]);
+
<syntaxhighlight lang=pascal> MyDbf.AddIndex('clienteid', 'Id', [ixPrimary, ixUnique]);
        MyDbf.AddIndex('nombrecliente','Nombre', [ixCaseInsensitive]);
+
MyDbf.AddIndex('nombrecliente','Nombre', [ixCaseInsensitive]);
        MyDbf.Close;
+
MyDbf.Close;</syntaxhighlight>
  
 
==Lo unimos todo y ... ¡ya está!==
 
==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 ;-)'''
+
&nbsp;&nbsp;&nbsp;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:}
+
<syntaxhighlight lang=pascal> {Necesitamos que las siguientes unidades aparezcan en la clásula USES:}
  { uses
+
  uses {otras unidades, } Dbf, db, Dbf_Common;
        Dbf, db, Dbf_Common                                   }
+
  { "Dbf" aparecerá, automáticamente, cuando pongamos el componente TDbf en el formulario...  }
  { '''''Dbf''''' aparecerá, automáticamente, cuando pongamos el componente TDbf en el formulario...  }
+
  { pero necesitamos la unidad "db" para el objeto DataSet
  { pero necesitamos la unidad '''''db''''' para el objeto DataSet
+
  { y la unidad "Dbf_Common" para las definiciones de tipos de campo, por ejemplo        }
  { y la unidad '''''Dbf_Common''''' para las definiciones de tipos de campo, por ejemplo        }
 
 
  var
 
  var
 
   MyDbf: TDbf;
 
   MyDbf: TDbf;
Line 120: Line 153:
 
   MyDbf := TDbf.Create(nil);
 
   MyDbf := TDbf.Create(nil);
 
   try
 
   try
     { usamos una ruta de acceso relativa para la carpeta "datos" }
+
      
     MyDbf.FilePath := 'datos/';
+
    MyDbf.FilePath := 'datos/';    // usamos una ruta de acceso relativa para la carpeta "datos"
    { queremos utilizar tablas Visual dBase VII }
+
     MyDbf.TableLevel := 7;        // utilizaremos tablas de tipo "Visual dBase VII"
    MyDbf.TableLevel := 7;
+
     MyDbf.Exclusive := True;       // imprescindible para poder modificar la estructura añadiendo campos
     MyDbf.Exclusive := True;
 
 
     MyDbf.TableName := 'clientes.dbf';
 
     MyDbf.TableName := 'clientes.dbf';
 
     With MyDbf.FieldDefs do begin
 
     With MyDbf.FieldDefs do begin
Line 138: Line 170:
 
   finally
 
   finally
 
     MyDbf.Free;
 
     MyDbf.Free;
   end;
+
   end;</syntaxhighlight>
end;
 
  
 
==Archivos índice externos==
 
==Archivos índice externos==
  
El componente TDBF también soporta índices secundarios que se almacenan en un archivo separado. Esto podría ser útil si cree que la base de datos sea muy grande. Los archivos de índice secundarios se crean casi de modo idéntico a índices normales, pero con la adición de la extensión '.ndx ':
+
&nbsp;&nbsp;&nbsp;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]);
 
 
 
Cada vez que se abre TDbf, se debe cargar el archivo de índice:
 
 
 
    MyDbf.OpenIndexFile('nombrecliente.ndx');
 
 
 
Y debemos referirnos a los índices incluyendo la extensión:
 
 
 
    MyDbf.IndexName := 'nombrecliente.ndx';
 
 
 
Los índices se empaquetan por separado usando:
 
  
    MyDbf.CompactIndexFile('nombrecliente.ndx');
+
<syntaxhighlight lang=pascal> MyDbf.AddIndex('nombrecliente.ndx','Nombre', [ixCaseInsensitive]);</syntaxhighlight>
 +
&nbsp;&nbsp;&nbsp;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í:
 +
<syntaxhighlight lang=pascal> MyDbf.OpenIndexFile('nombrecliente.ndx');</syntaxhighlight>
 +
&nbsp;&nbsp;&nbsp;Por la misma razón los índices se empaquetan por separado, para ello utilizaremos el método ''CompactIndexFile'', de esta forma:
 +
<syntaxhighlight lang=pascal> MyDbf.CompactIndexFile('nombrecliente.ndx');</syntaxhighlight>
 +
&nbsp;&nbsp;&nbsp;Y al dar el valor a la propiedad ''IndexName'', para seleccionar el que estará activo,  debemos incluir el nombre y la extensión:
 +
<syntaxhighlight lang=pascal> MyDbf.IndexName := 'nombrecliente.ndx';</syntaxhighlight>
  
 
==Cómo enlazar TDbf a componentes de datos==
 
==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.
+
&nbsp;&nbsp;&nbsp;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 el control de TDBEDIT) se vinculan a un componente TDataSource mediante las propiedades "DataSource" "DataField". El componente TDataSource controla la comunicación entre el gestor de bases de datos y los componentes de acceso a datos. Un TDataSource entonces se vincula al componente TDbf mediante su propiedad "DataSet". La conexión es algo así:  
+
&nbsp;&nbsp;&nbsp;Los  componentes de acceso a datos en Lazarus (como ''TDBEdit'' y ''TDbNavigator'' por ejemplo) se vinculan a un componente ''TDataSource'' mediante las propiedades ''DataSource'' ''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-------
+
  <code> TDbEdit------\
              |
+
              |
TDbEdit------|-->TDataSource-->TDbf
+
  TDbEdit------|-->TDataSource-->TDbf
              |
+
              |
TDbNavigator--
+
  TDbNavigator-/</code>
  
No olvide establecer las propiedades FilePath (o FilePathFulll), TableLevel, y TableName del componente TDbf a los valores adecuados antes de la llamada
+
&nbsp;&nbsp;&nbsp;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;
+
<syntaxhighlight lang=pascal> TDbf.Active := True;</syntaxhighlight>
  
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.
+
&nbsp;&nbsp;&nbsp;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==
 
==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.
+
&nbsp;&nbsp;&nbsp;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;
+
<syntaxhighlight lang=pascal> MyDbf.Exclusive := True;
 
  MyDbf.Open;
 
  MyDbf.Open;
 
  MyDbf.PackTable;
 
  MyDbf.PackTable;
Line 187: Line 212:
 
  MyDbf.RegenerateIndexes;
 
  MyDbf.RegenerateIndexes;
 
  MyDbf.Close;
 
  MyDbf.Close;
  MyDbf.Exclusive := False;
+
  MyDbf.Exclusive := False;</syntaxhighlight>
  
 
==Relaciones de tabla principal==
 
==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 principal / detalle entre componentes TDbf.
+
&nbsp;&nbsp;&nbsp;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:  
+
&nbsp;&nbsp;&nbsp;Cuando hay dos tablas relacionadas, por ejemplo:  
  
[clientes]
+
  ['''clientes''']
Id      <----|
+
  Id      <----\
Nombre        |
+
  Nombre        |
Telefono      |
+
  Telefono      |
Direccion    |
+
  Direccion    |
              |  ClienteID en facturas hace referencia un campo primario de clientes
+
                |  ClienteID en facturas hace referencia a un campo primario de clientes
[facturas]    |
+
  ['''facturas''']    |
Id            |
+
  Id            |
Importe      |
+
  Importe      |
ClienteID  -----|  * Campo indexado como "idxclienteid"
+
  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.
+
&nbsp;&nbsp;&nbsp;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:  
+
&nbsp;&nbsp;&nbsp;En el componente TDbf de facturas seleccione lo siguiente:  
  
InvDbf.IndexName := 'idxclienteid'; // campo que se emparejará con el campo ID de la tabla clientes                                     
+
<syntaxhighlight lang=pascal> 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.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
+
  InvDbf.MasterFields := 'Id';        // campo en la tabla clientes que emparejamos con nuestro índice</syntaxhighlight>
 +
 
 +
== Cómo filtrar las Fechas vacías ==
 +
 
 +
&nbsp;&nbsp;&nbsp;Voy a mostrar aquí como podemos filtrar las fechas en blanco con el componente de Lazarus TDbf.
 +
 
 +
&nbsp;&nbsp;&nbsp;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.
 +
 
 +
&nbsp;&nbsp;&nbsp;La forma más sencilla de hacerlo es utilizando el controlador de eventos OnFilterRecord y poner el siguiente código:
 +
 
 +
<syntaxhighlight lang=pascal> if not dfb1.FieldByName('DT_ENCERRA').IsNull then Accept := False;</syntaxhighlight>
 +
 
 +
&nbsp;&nbsp;&nbsp;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.
 +
 
 +
&nbsp;&nbsp;&nbsp;También es necesario poner la propiedad Dbf1.Filtered a True, pero fuera de este evento.
 +
 
 +
<syntaxhighlight lang=pascal> dfb1.Filtered := True;</syntaxhighlight>
 +
 
 +
== Cómo filtrar un valor con TDbf ==
 +
 
 +
&nbsp;&nbsp;&nbsp;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"
 +
 
 +
&nbsp;&nbsp;&nbsp;Tenemos dos maneras de filtrar. La primera sería la de utilizar el siguiente código:
 +
 
 +
<syntaxhighlight lang=pascal> Dbf1.filter:= 'product_no "=" B019 "';</syntaxhighlight>
 +
 
 +
&nbsp;&nbsp;&nbsp;Resulta que esto funciona muy bien con varios componentes, pero no funciona con LazReport.
 +
 
 +
&nbsp;&nbsp;&nbsp;Para resolver el problema con LazReport puede utilizar el controlador de eventos OnFilterRecord y utilizar el siguiente código:
 +
 
 +
<syntaxhighlight lang=pascal> Accept:= Copy(Trim(Dbf1.FieldByName('product_no').AsString),1,4)='B019';</syntaxhighlight>
 +
 
 +
&nbsp;&nbsp;&nbsp;También es necesario poner la propiedad Dbf1.Filtered a True, pero fuera de este evento.
 +
 
 +
&nbsp;&nbsp;&nbsp;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==
 
==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
+
&nbsp;&nbsp;&nbsp;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
 
   [http://tony.maro.net/mod.php?mod=downloads&op=showcat&id=3&level=1 tony.maro.net]
 
   [http://tony.maro.net/mod.php?mod=downloads&op=showcat&id=3&level=1 tony.maro.net]
 +
 +
== See also ==
 +
*[[Example: TDbf (creating table and indexes, selecting of index)]]
  
 
==A tener en cuenta==
 
==A tener en cuenta==
  
Actualmente no se soporta la integridad referencial, ni los archivos .db encriptados internamente.
+
&nbsp;&nbsp;&nbsp;Actualmente no se soporta la integridad referencial, ni los archivos .db encriptados internamente.
  
 
* Traducido por [[User:Mgsalvador|Usuario: Mgsalvador]]
 
* Traducido por [[User:Mgsalvador|Usuario: Mgsalvador]]
 
* Normalización de estilo y formato, y algún añadido menor, por [[User:Iskraelectrica|iskraelectrica (jldc)]]. 11 de junio de 2008.
 
* Normalización de estilo y formato, y algún añadido menor, por [[User:Iskraelectrica|iskraelectrica (jldc)]]. 11 de junio de 2008.

Latest revision as of 00:29, 19 February 2020

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

Limitaciones

  • TDBF establece la codificación de la base de datos basándose en las configuraciones del lenguaje del sistema operativo (puedes establecer el tuyo estableciendo LanguageID; ver documentación). Mover una de estas bases de datos a un computador que no soporta dicha codificación puede ocasionar que la base de datos se quede como de solo lectura. Nota: investigar cuando esto se aplica a Tablelevel 7 (Visual DBase) y 25/30 (Foxpro/Visual Foxpro)
  • Ninguno de los formatos DBF utilizados soporta codicación Unicode (si UTF-8, UTF-16 o UTF-32). Podría haber una solución utilizando campos binarios, pero entonces perderiamos habilidades de reordenación, etc.
  • El indexado de un fichero DBase con [ixCaseInsensitive] no funciona actualmente.
  • No soporta todavía integridad referencial en formatos de fichero que si lo soportan (DBase VII, Visual FoxPro).
  • No soporta (ahora o bien para siempre) encriptación interna de ficheros .dbf: el mecanismo de encriptación de DbaseIV es bastante debil de todos modos. Por favor utiliza uno de los métodos de encriptación que se mencionan más abajo.

FPC 2.6.x y anteriores:

  • En procesadores ARM, el códigoTDBF es sabido que no funciona debido a incidencias de alineación de bus. Esto está siendo addressed en la versión de desarrollo/trunk.
  • Escoger el tablelevel (25) de FoxPro generará ficheros que no se podrán leer mediante drivers Visual Foxpro. Esto se ha solucionado en la versión de desarrollo/trunk de FPC.

No necesita instalación

  El paquete DbfLaz (dbflaz.lpk) viene instalado por defecto tanto en FPC como en Lazarus. Este paquete utiliza TDbf y sus unidades asociadas en Free Pascal Free Component Library. En otras palabras, no es necesario instalar nada si tienes justamente una versión reciente de 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

See also

A tener en cuenta

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