Lazarus Tdbf Tutorial/es: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		## Resumen
2	2
3	3		Esta tutoría trata sobre el desarrollo elemental de bases de datos usando el componente [TDbf](http://tdbf.sf.net) (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!
4	4
5	5		En Lazarus, el componente DbfLaz utiliza el código de FPC TDbf.
6	6
7	7		### Documentación
8	8
9	9		Para documentación de TDbf en PDF ir a [SourceForge](https://sourceforge.net/project/showfiles.php?group_id=34085&package_id=26371). Puede ser útil tener este pdf junto con este documento durante su lectura.
10	10
11	11		Este artículo sirve como documentación adicional para nuevas características respecto a la documentación original.
12	12
13	13		### Alternativas y problemas conocidos
14	14
15	15		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).
16	16
17	17		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.
18	18
19	19		Incidencias actuales: por favor ver bugs en el seguimiento de errores, especialmente <http://bugs.freepascal.org/view.php?id=22177>
20	20
21	21		#### Limitaciones
22	22
23	23		- 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)
24	24
25	25		- 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.
26	26
27	27		- El indexado de un fichero DBase con \[ixCaseInsensitive\] no funciona actualmente.
28	28		- No soporta todavía integridad referencial en formatos de fichero que si lo soportan (DBase VII, Visual FoxPro).
29	29		- 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.
30	30
31	31		FPC 2.6.x y anteriores:
32	32
33	33		- 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.
34	34		- 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.
35	35
36	36		### No necesita instalación
37	37
38	38		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/.
39	39
40	40		### ¿Qué se puede hacer con TDbf?
41	41
42	42		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.
43	43
44	44		## Cómo crear una nueva tabla
45	45
46	46		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.
47	47
48	48		Puedes probar esta aplicación (windows - funciona con *wine*): <http://www.dirfile.com/cdbf_explorer.htm>
49	49
50	50		### Establecer la ruta de acceso
51	51
52	52		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.
53	53
54	54		### Elegir un tipo de tabla con TableLevel
55	55
56	56		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:
57	57
58		-	~~<center>~~
59		-
60		-	~~<table style="text-align: center; " border="1">~~
61		-
62		-	~~<tr>~~
63		-
64		-	~~<td>~~
65		-
66	58		Tipos de tabla
67	59
68		-	~~</td>~~
69		-
70		-	~~<td>~~
71		-
72	60		TableLevel
73	61
74		-	~~</td>~~
75		-
76		-	~~</tr>~~
77		-
78		-	~~<tr>~~
79		-
80		-	~~<td>~~
81		-
82	62		dBase III+
83	63
84		-	~~</td>~~
85		-
86		-	~~<td>~~
87		-
88	64		3
89	65
90		-	~~</td>~~
91		-
92		-	~~</tr>~~
93		-
94		-	~~<tr>~~
95		-
96		-	~~<td>~~
97		-
98	66		dBase IV
99	67
100		-	~~</td>~~
101		-
102		-	~~<td>~~
103		-
104	68		4
105	69
106		-	~~</td>~~
107		-
108		-	~~</tr>~~
109		-
110		-	~~<tr>~~
111		-
112		-	~~<td>~~
113		-
114	70		Visual dBase VII
115	71
116		-	~~</td>~~
117		-
118		-	~~<td>~~
119		-
120	72		7
121	73
122		-	~~</td>~~
123		-
124		-	~~</tr>~~
125		-
126		-	~~<tr>~~
127		-
128		-	~~<td>~~
129		-
130	74		FoxPro
131	75
132		-	~~</td>~~
133		-
134		-	~~<td>~~
135		-
136	76		25
137	77
138		-	~~</td>~~
139		-
140		-	~~</tr>~~
141		-
142		-	~~</table>~~
143		-
144		-	~~</center>~~
145		-
146	78		Para elegir un tipo de tabla de el valor adecuado a la propiedad TableLevel.
147	79
148	80		### Añadir campos
149	81
150	82		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:
151	83
152	84		``` pascal
153	85		MyDbf.FilePathFull := '/ubicacion/para/mis/datos';
154	86		MyDbf.TableLevel := 7;
155	87		MyDbf.TableName := 'clientes.dbf'; // nota: ¿es realmente necesario .dbf?
156	88		With MyDbf.FieldDefs do begin
157	89		Add('Id', ftAutoInc, 0, True);
158	90		Add('Nombre', ftString, 80, True);
159	91		End;
160	92		```
161	93
162	94		Los tipos de campo definidos son:
163	95
164	96		- ftUnknown
165	97		- ftString
166	98		- ftSmallInt
167	99		- ftInteger
168	100		- ftWord
169	101		- ftBoolean
170	102		- ftFloat
171	103		- ftCurrency (TableLevel 25)
172	104		- ftBCD (TableLevel 25)
173	105		- ftDate
174	106		- ftTime
175	107		- ftDateTime
176	108		- ftBytes (TableLevel 25)
177	109		- ftVarBytes
178	110		- ftAutoInc (TableLevel 7 or 25)
179	111		- ftBlob
180	112		- ftMemo
181	113		- ftGraphic
182	114		- ftFmtMemo
183	115		- ftParadoxOle
184	116		- ftDBaseOle
185	117		- ftTypedBinary
186	118		- ftCursor
187	119		- ftFixedChar
188	120		- ftWideString
189	121		- ftLargeInt
190	122		- ftADT
191	123		- ftArray
192	124		- ftReference
193	125		- ftDataSet
194	126		- ftOraBlob
195	127		- ftOraClob
196	128		- ftVariant
197	129		- ftInterface
198	130		- ftIDispatch
199	131		- ftGuid
200	132		- ftTimeStamp
201	133		- ftFMTBcd
202	134
203	135		Los tipos que aparecen en negrita son los soportados en la actualidad.
204	136
205	137		### ¡Siga adelante y créela!
206	138
207	139		Una vez que ha definido los campos deseará usarlos en su nueva tabla, puede seguir adelante y crearla con:
208	140
209	141		``` pascal
210	142		MyDbf.CreateTable;
211	143		```
212	144
213	145		## Añadir índices a una tabla
214	146
215	147		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.
216	148
217	149		``` pascal
218	150		MyDbf.Exclusive := True;
219	151		MyDbf.Open;
220	152		```
221	153
222	154		Justo ahora, tenemos que añadir el índice.
223	155
224	156		``` pascal
225	157		MyDbf.AddIndex('clienteid', 'Id', [ixPrimary, ixUnique]);
226	158		MyDbf.AddIndex('nombrecliente','Nombre', [ixCaseInsensitive]);
227	159		MyDbf.Close;
228	160		```
229	161
230	162		## Lo unimos todo y ... ¡ya está!
231	163
232	164		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 ;-)
233	165
234	166		``` pascal
235	167		{Necesitamos que las siguientes unidades aparezcan en la clásula USES:}
236	168		uses {otras unidades, } Dbf, db, Dbf_Common;
237	169		{ "Dbf" aparecerá, automáticamente, cuando pongamos el componente TDbf en el formulario... }
238	170		{ pero necesitamos la unidad "db" para el objeto DataSet
239	171		{ y la unidad "Dbf_Common" para las definiciones de tipos de campo, por ejemplo }
240	172		var
241	173		MyDbf: TDbf;
242	174		begin
243	175		MyDbf := TDbf.Create(nil);
244	176		try
245	177
246	178		MyDbf.FilePath := 'datos/'; // usamos una ruta de acceso relativa para la carpeta "datos"
247	179		MyDbf.TableLevel := 7; // utilizaremos tablas de tipo "Visual dBase VII"
248	180		MyDbf.Exclusive := True; // imprescindible para poder modificar la estructura añadiendo campos
249	181		MyDbf.TableName := 'clientes.dbf';
250	182		With MyDbf.FieldDefs do begin
251	183		Add('Id', ftAutoInc, 0, True);
252	184		Add('Nombre', ftString, 80, True);
253	185		End;
254	186		MyDbf.CreateTable;
255	187		MyDbf.Open;
256	188		MyDbf.AddIndex('clienteid', 'Id', [ixPrimary, ixUnique]);
257	189		{ añadimos un índice secundario }
258	190		MyDbf.AddIndex('nombrecliente','Nombre', [ixCaseInsensitive]);
259	191		MyDbf.Close;
260	192		finally
261	193		MyDbf.Free;
262	194		end;
263	195		```
264	196
265	197		## Archivos índice externos
266	198
267	199		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:
268	200
269	201		``` pascal
270	202		MyDbf.AddIndex('nombrecliente.ndx','Nombre', [ixCaseInsensitive]);
271	203		```
272	204
273	205		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í:
274	206
275	207		``` pascal
276	208		MyDbf.OpenIndexFile('nombrecliente.ndx');
277	209		```
278	210
279	211		Por la misma razón los índices se empaquetan por separado, para ello utilizaremos el método CompactIndexFile, de esta forma:
280	212
281	213		``` pascal
282	214		MyDbf.CompactIndexFile('nombrecliente.ndx');
283	215		```
284	216
285	217		Y al dar el valor a la propiedad IndexName, para seleccionar el que estará activo, debemos incluir el nombre y la extensión:
286	218
287	219		``` pascal
288	220		MyDbf.IndexName := 'nombrecliente.ndx';
289	221		```
290	222
291	223		## Cómo enlazar TDbf a componentes de datos
292	224
293	225		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.
294	226
295	227		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í:
296	228
297		-	~~<code>` TDbEdit------\`\~~
	229	+	` TDbEdit------\`\
298	230		` \|`\
299	231		` TDbEdit------\|-->TDataSource-->TDbf`\
300	232		` \|`\
301		-	~~` TDbNavigator-/`</code>~~
	233	+	` TDbNavigator-/`
302	234
303	235		No olvides establecer las propiedades FilePath (o FilePathFulll), TableLevel, y TableName del componente TDbf a los valores adecuados antes de activarlos mediante
304	236
305	237		``` pascal
306	238		TDbf.Active := True;
307	239		```
308	240
309	241		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.
310	242
311	243		## Empaquetar y reconstruir índices
312	244
313	245		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.
314	246
315	247		``` pascal
316	248		MyDbf.Exclusive := True;
317	249		MyDbf.Open;
318	250		MyDbf.PackTable;
319	251		// reconstruimos todos los índices
320	252		MyDbf.RegenerateIndexes;
321	253		MyDbf.Close;
322	254		MyDbf.Exclusive := False;
323	255		```
324	256
325	257		## Relaciones de tabla principal
326	258
327	259		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.
328	260
329	261		Cuando hay dos tablas relacionadas, por ejemplo:
330	262
331	263		` [``clientes``]`\
332	264		` Id <----\`\
333	265		` Nombre \|`\
334	266		` Telefono \|`\
335	267		` Direccion \|`\
336	268		` \| ClienteID en facturas hace referencia a un campo primario de clientes`\
337	269		` [``facturas``] \|`\
338	270		` Id \|`\
339	271		` Importe \|`\
340	272		` ClienteID --\---\| * Campo indexado como "idxclienteid"`
341	273
342	274		Si desea mostrar todas las facturas para un cliente determinado, la tabla detalle (facturas) puede sincronizarse con la tabla principal (clientes) automáticamente.
343	275
344	276		En el componente TDbf de facturas seleccione lo siguiente:
345	277
346	278		``` pascal
347	279		InvDbf.IndexName := 'idxclienteid'; // campo que se emparejará con el campo ID de la tabla clientes
348	280		InvDbf.MasterSource := dsClientes; // fuente de datos que se enlaza al componente TDbf de clientes
349	281		InvDbf.MasterFields := 'Id'; // campo en la tabla clientes que emparejamos con nuestro índice
350	282		```
351	283
352	284		## Cómo filtrar las Fechas vacías
353	285
354	286		Voy a mostrar aquí como podemos filtrar las fechas en blanco con el componente de Lazarus TDbf.
355	287
356	288		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.
357	289
358	290		La forma más sencilla de hacerlo es utilizando el controlador de eventos OnFilterRecord y poner el siguiente código:
359	291
360	292		``` pascal
361	293		if not dfb1.FieldByName('DT_ENCERRA').IsNull then Accept := False;
362	294		```
363	295
364	296		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.
365	297
366	298		También es necesario poner la propiedad Dbf1.Filtered a True, pero fuera de este evento.
367	299
368	300		``` pascal
369	301		dfb1.Filtered := True;
370	302		```
371	303
372	304		## Cómo filtrar un valor con TDbf
373	305
374	306		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"
375	307
376	308		Tenemos dos maneras de filtrar. La primera sería la de utilizar el siguiente código:
377	309
378	310		``` pascal
379	311		Dbf1.filter:= 'product_no "=" B019 "';
380	312		```
381	313
382	314		Resulta que esto funciona muy bien con varios componentes, pero no funciona con LazReport.
383	315
384	316		Para resolver el problema con LazReport puede utilizar el controlador de eventos OnFilterRecord y utilizar el siguiente código:
385	317
386	318		``` pascal
387	319		Accept:= Copy(Trim(Dbf1.FieldByName('product_no').AsString),1,4)='B019';
388	320		```
389	321
390	322		También es necesario poner la propiedad Dbf1.Filtered a True, pero fuera de este evento.
391	323
392	324		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
393	325
394	326		## Programa de ejemplo - navegador DB
395	327
396	328		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
397	329
398	330		` `[`tony.maro.net`](http://tony.maro.net/mod.php?mod=downloads&op=showcat&id=3&level=1)
399	331
400	332		## See also
401	333
402	334		- [[Example: TDbf (creating table and indexes, selecting of index)]]
403	335
404	336		## A tener en cuenta
405	337
406	338		Actualmente no se soporta la integridad referencial, ni los archivos .db encriptados internamente.
407	339
408	340		- Traducido por Usuario: Mgsalvador
409	341		- Normalización de estilo y formato, y algún añadido menor, por iskraelectrica (jldc). 11 de junio de 2008.
410	342
411	343		---
412	344		From the Free Pascal wiki, page "Lazarus Tdbf Tutorial/es", as it stood on 2020-02-18 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).
413	345		Category: Castellano
414	346		Category: Español

Back to history